mirror of https://github.com/wwarthen/RomWBW.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
117 lines
1.5 KiB
117 lines
1.5 KiB
extrn .begin,.chl,.swt
|
|
extrn csave,cret,.move
|
|
PUBLIC rdsector_
|
|
rdsector_: lxi d,.2
|
|
call csave
|
|
LXI H,-6629
|
|
SHLD ireghl_
|
|
LXI H,8-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
XCHG
|
|
SHLD iregbc_
|
|
LXI H,0
|
|
SHLD iregde_
|
|
CALL bioscall_
|
|
LXI H,-6626
|
|
SHLD ireghl_
|
|
LXI H,10-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
XCHG
|
|
SHLD iregbc_
|
|
CALL bioscall_
|
|
LXI H,-6623
|
|
SHLD ireghl_
|
|
LXI H,12-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
XCHG
|
|
SHLD iregbc_
|
|
CALL bioscall_
|
|
LXI H,-6620
|
|
SHLD ireghl_
|
|
LXI H,14-.2
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
XCHG
|
|
SHLD iregbc_
|
|
CALL bioscall_
|
|
LXI H,-6617
|
|
SHLD ireghl_
|
|
CALL bioscall_
|
|
LDA irega_
|
|
MOV L,A
|
|
MVI H,0
|
|
RET
|
|
.2 EQU 0
|
|
PUBLIC wrsector_
|
|
wrsector_: lxi d,.3
|
|
call csave
|
|
LXI H,-6629
|
|
SHLD ireghl_
|
|
LXI H,8-.3
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
XCHG
|
|
SHLD iregbc_
|
|
LXI H,0
|
|
SHLD iregde_
|
|
CALL bioscall_
|
|
LXI H,-6626
|
|
SHLD ireghl_
|
|
LXI H,10-.3
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
XCHG
|
|
SHLD iregbc_
|
|
CALL bioscall_
|
|
LXI H,-6623
|
|
SHLD ireghl_
|
|
LXI H,12-.3
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
XCHG
|
|
SHLD iregbc_
|
|
CALL bioscall_
|
|
LXI H,-6620
|
|
SHLD ireghl_
|
|
LXI H,14-.3
|
|
DAD SP
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
XCHG
|
|
SHLD iregbc_
|
|
CALL bioscall_
|
|
LXI H,-6614
|
|
SHLD ireghl_
|
|
LXI H,0
|
|
SHLD iregbc_
|
|
CALL bioscall_
|
|
LDA irega_
|
|
MOV L,A
|
|
MVI H,0
|
|
RET
|
|
.3 EQU 0
|
|
extrn bioscall_
|
|
extrn ireghl_
|
|
extrn iregde_
|
|
extrn iregbc_
|
|
extrn irega_
|
|
END
|
|
|