Пусть враги твои, All, умрут без сыновей!
Вот, сабжъ. Глядишь, кому пригодится.
Даже с сорняком. :)
────[ Здесь начинается файл moa_driv.a ]───────────────────────
;moa_driv.blk
;Disk driver with MOA-trdos support.
;(c) Oleg Grigoriev AKA Ruiner AKA #0R.
;Warning: Only for Scorpion with HDD!
;Warning: No check's!
;Version 1.00
;Complete: 100%
;Creating date: 27-10-98
;last edit: 24-04-1999
;************************************************************;
ORG #8000
DEFW INST
DEFW READ
DEFW WRIT
DEFW INIT
DEFB %11101000 ;SCCSR
DRCSR DEFB %10000000 ;DRCSR
DEFW #0000
DEFW #0101
DEFW BUFFER
DEFB #00,#00,#00,#00
DEFW #0000
DEFB #00,#00,#00,#00,#00,#00,#00,#00
DEFB #83
DEFB #00
DEFB #00
DEFB #00
DEFB #00
DEFB #00
DEFB #00,#00,#00,#00,#00,#00,#00,#00
DEFB #00,#00,#00,#00,#00,#00,#00,#00
;***************************************
;
INST CP #08
RET NC
LD (SEADR+#01),A
CALL SEADR
INST2 LD HL,#FFFF
LD (BLKNM+#01),HL
XOR A
RET
;***************************************
;
INIT CALL SEADR
LD HL,BUFFER
LD DE,#0001
LD BC,#0124
RST #08
DEFB #81
INIT1 LD HL,(BUFFER+#0B)
LD DE,"SK"
LD A,(BUFFER+#0A)
SUB "D"
LD A,#09
JR NZ,INIT2
SBC HL,DE
RET Z
INIT2 SCF
RET
;***************************************
;
SEADR LD A,#00
AND #03
LD H,A
OR #80
LD C,#23
RST #08
DEFB #81
RET NC
LD A,(DRCSR)
ADD A,A
JR NC,SEADR
LD A,#06
LD BC,#021F
RST #10
CP "R"
JR Z,SEADR
POP AF
LD A,#06
SCF
RET
;************************************************************;
;IN: HL =ADDR;DE =BLK;B =QUAN
;
READ LD C,#24
JR $+#04
WRIT LD C,#25
SRL D
RR E
INC DE
JR NC,HDD1
XOR A
INC A
CALL HDDRB
INC DE
INC H
DEC B
RET Z
HDD1 SRL B
JR Z,HDD2
PUSH AF
PUSH BC
RST #08
DEFB #81
POP BC
POP AF
HDD2 RET NC
XOR A
;-----------------------------
;IN: [A]=HLF
;
HDDRB PUSH AF
PUSH HL
PUSH BC
PUSH BC
PUSH DE
PUSH AF
PUSH BC
PUSH HL
BLKNM LD HL,#0000
OR A
SBC HL,DE
LD HL,BUFFER
JR Z,HDDRB1
LD (BLKNM+#01),DE
LD BC,#0124
RST #08
DEFB #81
DEC H
DEC H
HDDRB1 POP DE
POP BC
POP AF
ADD A,H
LD H,A
BIT 0,C
JR Z,$+#03
EX DE,HL
LD BC,#0100
LDIR
POP DE
POP BC
JR Z,HDDRB2
LD B,#01
LD HL,BUFFER
RST #08
DEFB #81
DEC DE
HDDRB2 POP BC
POP HL
POP AF
RET
;***************************************
BUFFER DEFS #0200
.
────[ Здесь кончается файл moa_driv.a ]────────────────────────
────[ Здесь начинается файл moa_driv.u ]───────────────────────
section 1 of 1 of file moa_driv.blk < iS-UUE 1.00 by MK >
begin 644 moa_driv.blk
M-("(@(R`18#H@````0'G@```````````````````@P``````````````````
M`````````/X(T#)H@,UG@"'__R*S@*_)S6>`(>>`$0$``20!SX$JH`14TLZ
M8#61#X)(`/M4L@WR3X`Y@-G]H`.(^!T#H)@(