This commit is contained in:
Anatoliy Belyanskiy committed 2023-08-03 03:09:28 +10:00
1 parent 373bc29096
commit 0c22fe031e
2 files changed
+22 -11

No files matched your search

+21 -10
View File
@@ -6,10 +6,11 @@
;---------------------------------------------------------------
;========================================================
SIZESEC EQU #0800
PKTSIZE EQU 12
RAM_ATAPI_PK EQU #FEE0
RAM_ATAPI_READ EQU #FEF0
PKTSIZE EQU 13
RAM_ATAPI_PK EQU SYS_PAGE.SHARED_BUFFER_32b
RAM_ATAPI_READ EQU SYS_PAGE.SHARED_BUFFER_32b+16
ASSERT ((PKTSIZE % 2) = 0), "PKTSIZE must be an even number"
;[]===========================================================[]
CD_5x.RESET:
LD B,50
@@ -91,10 +92,17 @@ CD_READ:
LD BC,PKTSIZE
LDIR
EXX
LD A,H
LD (RAM_ATAPI_READ+SECREAD+0),A ;R01
LD A,L
LD (RAM_ATAPI_READ+SECREAD+1),A ;R01
;!TEST
;LD A,H
;LD (RAM_ATAPI_READ+SECREAD+0),A ;R01
;LD A,L
;LD (RAM_ATAPI_READ+SECREAD+1),A ;R01
LD A,H
LD H,L
LD L,A
LD (RAM_ATAPI_READ+SECREAD+0),HL
;
LD A,XH
LD (RAM_ATAPI_READ+SECREAD+2),A ;R01
LD A,XL
@@ -200,17 +208,20 @@ AP_COM: AND #01
OUT (SLOT3),A
LD HL,RAM_ATAPI_PK
LD BC,IDE.Write.Data
LD A,PKTSIZE
SRL A
LD A,PKTSIZE/2
;SRL A
.OUTPKT:
OUTI
OUTI
DEC A
JR NZ,.OUTPKT
POP BC
OUT (C),B
LD B,#80
DJNZ $
.pause2: DJNZ .pause2
.AP_LOOP:
EXX
LD DE,#8000