Tolik-Trek/Sprinter-BIOS
1
0
Fork 0
mirror of https://github.com/Tolik-Trek/Sprinter-BIOS.git synced 2026-06-15 17:31:46 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

...

Browse Source
This commit is contained in:
Tolik 2026-05-03 19:12:37 +10:00
parent 7346ac6038
commit b3a47ce2b5
1 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/bios/exp/EXTENDED/FDD_DRIVER.asm
View File

@ -5,7 +5,8 @@
; LD A,#01 ; LD A,#01
; AND A ; AND A
; RET ; RET
FDD_COUNTERS:
.RW_Retries EQU 30;5
;[]===========================================================[] ;[]===========================================================[]
@ -346,7 +347,8 @@ FDD_5x_LONG_WRITE:
;------------------------------- ;-------------------------------
;WRITE SECTOR ;WRITE SECTOR
;------------------------------- ;-------------------------------
FDD_RW_SECTOR: LD D,5 ;RETRY COUNT FDD_COUNTERS.RW_Retries
FDD_RW_SECTOR: LD D,FDD_COUNTERS.RW_Retries
.RETRY: ;DI .RETRY: ;DI
PUSH HL PUSH HL
PUSH DE PUSH DE
@ -354,11 +356,6 @@ FDD_RW_SECTOR: LD D,5 ;RETRY COUNT
INC A INC A
OUT (FDC_93.Sector),A OUT (FDC_93.Sector),A
; ;
;IN A,(SLOT3)
;EX AF,AF'
;LD A,XH
;OUT (SLOT3),A
;
LD B,4 LD B,4
LD C,FDC_93.Data LD C,FDC_93.Data
EXX EXX
@ -427,10 +424,10 @@ FDD_RW_SECTOR: LD D,5 ;RETRY COUNT
JR NZ,.error_exit JR NZ,.error_exit
; ;
BIT 2,C BIT 2,C
JR NZ,.data_lost JR NZ,.data_lost ; Error Read
; ;
LD A,BIOS.Error.Seek LD A,BIOS.Error.Seek
.CMD_ERROR: DEC D .CMD_ERROR: DEC D ; FDD_COUNTERS.RW_Retries
JR Z,.error_exit JR Z,.error_exit
; ;
PUSH DE PUSH DE
@ -701,7 +698,7 @@ DISK_ID: EXX
RET RET
//////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////
; ; in: A - track
SEEK: LD XL,A SEEK: LD XL,A
LD C,A LD C,A
IN A,(SLOT3) IN A,(SLOT3)