Tolik-Trek/Sprinter-BIOS
1
0
Fork 0
mirror of https://github.com/Tolik-Trek/Sprinter-BIOS.git synced 2026-06-15 01:11:47 +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
; AND A
; RET
FDD_COUNTERS:
.RW_Retries EQU 30;5
;[]===========================================================[]
@ -346,7 +347,8 @@ FDD_5x_LONG_WRITE:
;-------------------------------
;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
PUSH HL
PUSH DE
@ -354,11 +356,6 @@ FDD_RW_SECTOR: LD D,5 ;RETRY COUNT
INC A
OUT (FDC_93.Sector),A
;
;IN A,(SLOT3)
;EX AF,AF'
;LD A,XH
;OUT (SLOT3),A
;
LD B,4
LD C,FDC_93.Data
EXX
@ -427,10 +424,10 @@ FDD_RW_SECTOR: LD D,5 ;RETRY COUNT
JR NZ,.error_exit
;
BIT 2,C
JR NZ,.data_lost
JR NZ,.data_lost ; Error Read
;
LD A,BIOS.Error.Seek
.CMD_ERROR: DEC D
.CMD_ERROR: DEC D ; FDD_COUNTERS.RW_Retries
JR Z,.error_exit
;
PUSH DE
@ -701,7 +698,7 @@ DISK_ID: EXX
RET
////////////////////////////////////////////////////////////////////////
;
; in: A - track
SEEK: LD XL,A
LD C,A
IN A,(SLOT3)