Tolik-Trek/Sprinter-Core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

...

Browse Source
This commit is contained in:
Anatoliy Belyanskiy 2023-08-03 03:09:28 +10:00
parent 373bc29096
commit 0c22fe031e
2 changed files with 22 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Shared_Includes

@ -1 +1 @@
Subproject commit 1b0d3781b011955f7e2ffc428109dfa0db63d09e Subproject commit b325c3281f76e83037cb0019450ae6e36689db65

29
src/bios/exp/EXTENDED/CD_DRIVER_0.asm
View File

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