С одной стороны, там не только Квант-овское, но даже и для БК. С другой стороны - осталось это именно на Квант-е
Для затравки
Код:
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
>