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 2024-04-21 04:57:22 +10:00
parent 55620e1adf
commit e43370d8a5
2 changed files with 41 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Shared_Includes

@ -1 +1 @@
Subproject commit 73f764ccd1ab8de8dea7eef3b4f5cd27e2ea8dab Subproject commit 62170ee7bc7dabe6fd55b94e89826ca510a60097

12
src/bios/exp/EXTENDED/IDE/HDD_DRV.ASM
View File

@ -258,7 +258,6 @@ RDS000: LD C,IDE.Device.HDD
;SAVE HL! ;SAVE HL!
RDS002: EXX RDS002: EXX
LD DE,#8908 ;WAIT BUSY=0 & DRQ=1 & ERR=0 LD DE,#8908 ;WAIT BUSY=0 & DRQ=1 & ERR=0
;LD BC,IDE.Read.Status
CALL WAITPRT CALL WAITPRT
EXX EXX
RET C RET C
@ -299,7 +298,6 @@ RDS004: DUP 16
.W44: INC XL ;INC LOADED SECTORS .W44: INC XL ;INC LOADED SECTORS
EXX EXX
LD DE,#C140 ;WAIT BUSY=0 & ERR=0 & READY=1 LD DE,#C140 ;WAIT BUSY=0 & ERR=0 & READY=1
;LD BC,IDE.Read.Status
CALL WAITPRT CALL WAITPRT
EXX EXX
RET C RET C
@ -404,7 +402,6 @@ WRS000:
RET C RET C
EXX EXX
LD DE,#C140 ;WAIT BUSY=0 & READY=1 & ERR=0 LD DE,#C140 ;WAIT BUSY=0 & READY=1 & ERR=0
;LD BC,IDE.Read.Status
CALL WAITPRT CALL WAITPRT
EXX EXX
RET C RET C
@ -440,7 +437,6 @@ NO_WriteProtect:
;SAVE HL! ;SAVE HL!
WRS002: EXX WRS002: EXX
LD DE,#8908 ;WAIT BUSY=0 & DRQ=1 & ERR=0 LD DE,#8908 ;WAIT BUSY=0 & DRQ=1 & ERR=0
;LD BC,IDE.Read.Status
CALL WAITPRT CALL WAITPRT
EXX EXX
RET C RET C
@ -481,7 +477,6 @@ WRS003:
.W33: INC XL ;INC SAVED SECTORS .W33: INC XL ;INC SAVED SECTORS
EXX EXX
LD DE,#C140 ;WAIT BUSY=0 & ERR=0 & READY=1 LD DE,#C140 ;WAIT BUSY=0 & ERR=0 & READY=1
;LD BC,IDE.Read.Status
CALL WAITPRT CALL WAITPRT
EXX EXX
RET C RET C
@ -514,13 +509,11 @@ HDD_5x.VERIFY:
RET RET
;[]================================================================[#54] ;[]================================================================[#54]
;VERIFY SECTOR(S) ;VERIFY SECTOR(S)
VRS000: VRS000: LD C,IDE.Device.HDD
LD C,IDE.Device.HDD
CALL SELECT_DRIVE CALL SELECT_DRIVE
RET C RET C
EXX EXX
LD DE,#C140 ;WAIT BUSY=0 & READY=1 & ERR=0 LD DE,#C140 ;WAIT BUSY=0 & READY=1 & ERR=0
;LD BC,IDE.Read.Status
CALL WAITPRT CALL WAITPRT
EXX EXX
RET C RET C
@ -537,7 +530,6 @@ VRS002: LD BC,IDE.Read.Status
SCF SCF
RET RET
VRS003: LD DE,#C140 ;WAIT BUSY=0 & ERR=0 & READY=1 VRS003: LD DE,#C140 ;WAIT BUSY=0 & ERR=0 & READY=1
;LD BC,IDE.Read.Status
CALL WAITPRT CALL WAITPRT
RET C RET C
XOR A XOR A
@ -637,7 +629,9 @@ CHS005: INC A
WAITPRT: WAITPRT:
LD BC,IDE.Read.Status LD BC,IDE.Read.Status
LD HL,#0000 ; § ¤¥à¦ª  ;!HARDCODE LD HL,#0000 ; § ¤¥à¦ª  ;!HARDCODE
;
.loop: PUSH HL .loop: PUSH HL
;
.loop2: IN A,(C) .loop2: IN A,(C)
AND D AND D
CP E CP E