mirror of
https://github.com/Tolik-Trek/Sprinter-BIOS.git
synced 2026-06-15 09:21:46 +03:00
test. если не заработает, то откат на предыдущий коммит
This commit is contained in:
parent
b3a47ce2b5
commit
648c089108
@ -347,7 +347,6 @@ FDD_5x_LONG_WRITE:
|
||||
;-------------------------------
|
||||
;WRITE SECTOR
|
||||
;-------------------------------
|
||||
FDD_COUNTERS.RW_Retries
|
||||
FDD_RW_SECTOR: LD D,FDD_COUNTERS.RW_Retries
|
||||
.RETRY: ;DI
|
||||
PUSH HL
|
||||
@ -363,6 +362,17 @@ FDD_RW_SECTOR: LD D,FDD_COUNTERS.RW_Retries
|
||||
EXX
|
||||
OUT (FDC_93.Command),A
|
||||
;
|
||||
; [ ] 15/04/25 à §¬¥à ᥪâ®à ¡®«ìè¥, 祬 ãáâ ®¢«¥® ¢ SYS_PAGE.FDD_TABLE.BytesPerSector ¢ë§®¢¥â ®è¨¡ªã
|
||||
LD A,SYS_PAGE
|
||||
OUT (SLOT3),A
|
||||
EXX
|
||||
LD E,(IY + FDD_TABLE_s.BytesPerSector)
|
||||
LD D,(IY + FDD_TABLE_s.BytesPerSector + 1)
|
||||
INC DE
|
||||
EXX
|
||||
LD A,XH
|
||||
OUT (SLOT3),A
|
||||
;
|
||||
.wait_loop: IN A,(FDC_93.DrvCTRL) ;WAIT INTRQ or DRQ
|
||||
AND %1100'0000 ;b6: DRQ (§ ¯à®á ¤ ëå = 1). b7: INTRQ (¢ë¯®«ï¥âáï ª®¬ ¤ = 0).
|
||||
JR NZ,.RW_PROC
|
||||
@ -380,21 +390,23 @@ FDD_RW_SECTOR: LD D,FDD_COUNTERS.RW_Retries
|
||||
.RW_PROC: IN A,(SLOT3)
|
||||
EX AF,AF'
|
||||
; [ ] 15/04/25 à §¬¥à ᥪâ®à ¡®«ìè¥, 祬 ãáâ ®¢«¥® ¢ SYS_PAGE.FDD_TABLE.BytesPerSector ¢ë§®¢¥â ®è¨¡ªã
|
||||
LD A,SYS_PAGE
|
||||
OUT (SLOT3),A
|
||||
LD E,(IY + FDD_TABLE_s.BytesPerSector)
|
||||
LD D,(IY + FDD_TABLE_s.BytesPerSector + 1)
|
||||
LD A,XH
|
||||
OUT (SLOT3),A
|
||||
INC DE
|
||||
; LD A,SYS_PAGE
|
||||
; OUT (SLOT3),A
|
||||
; LD E,(IY + FDD_TABLE_s.BytesPerSector)
|
||||
; LD D,(IY + FDD_TABLE_s.BytesPerSector + 1)
|
||||
; LD A,XH
|
||||
; OUT (SLOT3),A
|
||||
; INC DE
|
||||
EXX
|
||||
BIT 5,B
|
||||
EXX
|
||||
JR NZ,.write_loop ; १ã«ìâ â BIT 5,B
|
||||
;READ BYTE
|
||||
.read_loop: DEC DE
|
||||
.read_loop: EXX
|
||||
DEC DE
|
||||
LD A,D
|
||||
OR E
|
||||
EXX
|
||||
JR Z,.SectorSizeError
|
||||
;
|
||||
INI
|
||||
@ -463,9 +475,11 @@ FDD_RW_SECTOR: LD D,FDD_COUNTERS.RW_Retries
|
||||
RET
|
||||
;
|
||||
;WRITE BYTE
|
||||
.write_loop: DEC DE
|
||||
.write_loop: EXX
|
||||
DEC DE
|
||||
LD A,D
|
||||
OR E
|
||||
EXX
|
||||
JR Z,.SectorSizeError
|
||||
;
|
||||
OUTI
|
||||
|
||||
Binary file not shown.
Loading…
Reference in New Issue
Block a user