test. если не заработает, то откат на предыдущий коммит

This commit is contained in:
Tolik 2026-05-03 22:53:40 +10:00
parent b3a47ce2b5
commit 648c089108
2 changed files with 28 additions and 14 deletions

View File

@ -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
LD A,D
OR E
.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
LD A,D
OR E
.write_loop: EXX
DEC DE
LD A,D
OR E
EXX
JR Z,.SectorSizeError
;
OUTI

Binary file not shown.