Раскопки в софте с Квант-4C
С одной стороны, там не только Квант-овское, но даже и для БК. С другой стороны - осталось это именно на Квант-е
Для затравки
Код:Directory DU1:[BK0] 2021-04-06 20:42 BK.MAC;1 14. 1994-10-04 23:31 BKROM0.CRF;1 37. 1994-10-04 23:50 BKROM0.FNT;1 104. 1994-10-04 23:49 BKROM0.LST;1 208. 1992-04-03 12:15 BKROM1.LST;1 612. 1994-10-04 23:52 BYTE.BLD;1 1. 1994-10-04 23:40 BYTE.FTN;1 6. 1992-04-10 15:45 CRF.BLD;1 1. 1994-10-04 23:40 CRF.FTN;1 15. 1992-04-01 15:46 FONT.BLD;1 1. 1994-10-04 23:41 FONT.FTN;1 4. 1992-04-01 11:52 GFNAME.MAC;1 3. 1992-04-01 10:32 MICROS.DIR;1 4. 1994-10-04 23:57 SCAN.BLD;1 1. 1994-10-04 23:42 SCAN.FTN;1 2. 1992-04-28 13:18 TEST.BLD;1 1. 1994-10-04 23:42 TEST.FTN;1 2. 1992-04-01 11:03 Total of 1016./1016. blocks in 17. files >Код:Directory DU1:[BK1] 2021-04-06 20:43 BLOCK0.BKF;1 1. 1993-12-08 22:17 D1.DSK;1 1600. 1993-12-08 22:17 D1.LST;1 14. 1994-10-05 12:13 GETBKF.BLD;1 1. 1994-10-14 16:06 GETBKF.PAS;1 13. 1994-10-15 14:20 GETBKF.TSK;1 13. C 1994-10-15 14:35 HICOPIR.BIN;1 6. 1994-10-15 14:36 MICROS.DIR;1 4. 1995-07-15 19:46 SYSTEM.;1 20. 1994-10-14 18:42 SYSTEM.DOC;1 13. 1994-10-14 18:40 SYSTEM1.;1 26. 1994-10-14 18:42 SYSTEM10.;1 21. 1994-10-14 22:15 SYSTEM11.;1 19. 1994-10-14 22:16 SYSTEM12.;1 21. 1994-10-14 22:16 SYSTEM13.;1 21. 1994-10-14 22:17 SYSTEM2.;1 21. 1994-10-14 18:43 SYSTEM2A.;1 14. 1994-10-14 22:09 SYSTEM3.;1 20. 1994-10-14 22:09 SYSTEM3A.;1 21. 1994-10-14 22:10 SYSTEM4.;1 19. 1994-10-14 22:11 SYSTEM5.;1 20. 1994-10-14 22:11 SYSTEM6.;1 20. 1994-10-14 22:12 SYSTEM6A.;1 20. 1994-10-14 22:13 SYSTEM7.;1 29. 1994-10-14 22:13 SYSTEM8.;1 19. 1994-10-14 22:14 SYSTEM9.;1 21. 1994-10-15 13:28 PROT.LST;1 6. 2021-04-06 20:38 Total of 2023./2023. blocks in 27. files > >RUN GETBKF Floppy:D1 L - List C - Copy E - Exit 0 SOPWITH 20 31 760, 37000 0 STONENIGHTMARE 20 19 720, 22303 0 PANGO 70 24 400, 30000 0 FORT 94 15 760, 16020 0 PIF-PAF 109 12 760, 13020 0 CACHE 121 23 766, 26250 0 рай 144 23 5000, 26700 0 стена 167 -143 760, 34000 0 PIF-PAF 188 12 760, 13020 0 CACHE 200 23 766, 26250 0 SUPERMAN* 223 5 400, 4520 0 SUPERMAN.PIC 228 23 6026, 26350 0 SUPERMAN.GMC 251 32 6026, 37130 0 рай 283 23 5000, 26700 0 HOBBIT*BAS 306 17 600, 20110 0 HOBBIT.GM2 323 31 1000, 37000 0 KINGS VALLEY 354 31 400, 36426 0 MARS 385 15 760, 16020 0 MARS PLAY 400 30 1000, 35500 0 TRAVEL* 430 15 600, 16200 0 TRAVEL PLAY 445 31 1000, 37000 0 биллиард 476 26 732, 31766 0 RACE 502 15 600, 16200 0 RACEPLAY 517 31 1000, 37000 0 дорога 548 28 600, 34000 0 DIGGER 576 22 732, 25456 0 REVERSY*FOC 598 26 1752, 31362 0 SWREKL1 624 30 732, 35400 0 десантник 654 16 732, 17146 Next [y/n] ?- - - Добавлено - - -Код:************************************************************** * с и с т е м а * * руководство по системному программированию для бк-0010 * * и программированию на ассемблере. * * зальцман ю.а., Г.алма-ата, ТЕЛ.691797. 1987-1988 ГГ. * ************************************************************** 8.04.88 Г. посвящается жене автора, которая занималась воспитанием нашего сына, пока автор занимался "воспитанием" бк-0010,и писал данное руководство. уважаемые читатели! вашему вниманию предлагается руководство по системному программированию и программированию на ассемблере для бк-0010. данное руководство отнюдь не повторяет известную литературу, а существенно ее дополняет. при написании руководства автор стремился сделать текст максимально доступным, наглядным и живым, что иногда шло в ущерб строгости изложения, что может
Код:>TYP GDZ.MC .TITLE GET DZ DISKETTE .IDENT /WAS.01/ .MCALL .LOCK, .UNLOCK .MCALL .LOOKUP, .ENTER, .CLOSE .MCALL .READW, .WRITW .MCALL .PRINT, .TTINR, .TTYIN .MCALL .EXIT ILUN=1 OLUN=2 DZLEN=800. UNIT=10. AREA: .BLKW 10 INAM: .RAD50 /MZ1 / ONAM: .RAD50 /MZ0DZDISKDSK/ BLK: .WORD 0 BUF: .BLKW 256.*UNIT START: .LOCK CALL ASK1 BCS EXIT CALL INIT CLR BLK MOV #DZLEN/UNIT,R5 LOOP: MOV R5,-(SP) CALL GET CALL PUT ADD #UNIT,BLK MOV (SP)+,R5 SOB R5,LOOP .CLOSE #ILUN .CLOSE #OLUN EXIT: CALL ASK2 .UNLOCK .EXIT ; M1: .ASCII /DZ diskette copier V01. (c) by WAS, 1992./<15><12> .ASCII /Insert input disk into MZ1: /<15><12> .ASCII / and disk for output file "DZDISK.DSK" into MZ0:/<15><12> .ASCII /Continue ?/<200> .EVEN ASK1: .PRINT #M1 .TTYIN CALL REST CMPB #'N,R0 BEQ 20$ CMPB #'Y,R0 BNE ASK1 TST (PC)+ 20$: SEC RETURN ; M2: .ASCII /Insert system disk. Continue ?/<200> .EVEN ASK2: .PRINT #M2 .TTYIN CALL REST CMPB #'Y,R0 BNE ASK2 RETURN5 ; INIT: .LOOKUP #AREA,#ILUN,#INAM .ENTER #AREA,#OLUN,#ONAM,#DZLEN RETURN ; GET: MOV BLK,BL0 MOV #UNIT,R4 MOV #BUF,R5 L: MOV R4,-(SP) MOV R5,-(SP) CALL CONV MOV (SP)+,R5 MOV (SP)+,R4 .READW #AREA,#ILUN,R5,#256.,BL INC BL0 ADD #256.*2,R5 SOB R4,L RETURN ; PUT: .WRITW #AREA,#OLUN,#BUF,#256.*UNIT,BLK RETURN ; BL0: .WORD 0 BL: .WORD 0 TRACK: .BYTE 0 SECTOR: .BYTE 0 TRKOFF: .WORD 0 ; CONV: CALL CNV1 CALL CNV2 RETURN ; CNV1: MOV BL0,R5 MOV (PC)+,R4 .BYTE -7.,-10. 50$: CMP #1280.,R5 BHI 60$ ADD #-1280.,R5 60$: ROL R5 INCB R4 BLE 50$ MOVB R5,R1 ADD R4,R5 MOV R1,R4 ASL R1 70$: SUB #10.,R1 BGT 70$ MOV R1,TRKOFF MOV R5,TRACK TTTT: MOVB SECTOR,R2 BGT 50$ SUB #-6.,R2 BGT 40$ ADD #4.,R2 SEC 40$: ROL R2 ADD TRKOFF,R2 BGT 50$ ADD #10.,R2 50$: MOVB TRACK,R0 CMPB R0,#80. BNE 60$ CLR R0 60$: MOVB R0,TRACK MOVB R2,SECTOR RETURN ; CNV2: CLR R1 BISB TRACK,R1 MUL #20.,R1 MOV R1,R0 CLR R1 BISB SECTOR,R1 DEC R1 ADD R1,R0 MOV R0,BL RETURN ; REST: MOV R0,-(SP) 10$: .TTINR BCC 10$ MOV (SP)+,R0 RETURN .END START >
Ответить с цитированием
Размещение рекламы на форуме способствует его дальнейшему развитию 
