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 ;WRITE SECTOR
;------------------------------- ;-------------------------------
FDD_COUNTERS.RW_Retries
FDD_RW_SECTOR: LD D,FDD_COUNTERS.RW_Retries FDD_RW_SECTOR: LD D,FDD_COUNTERS.RW_Retries
.RETRY: ;DI .RETRY: ;DI
PUSH HL PUSH HL
@ -363,6 +362,17 @@ FDD_RW_SECTOR: LD D,FDD_COUNTERS.RW_Retries
EXX EXX
OUT (FDC_93.Command),A 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 .wait_loop: IN A,(FDC_93.DrvCTRL) ;WAIT INTRQ or DRQ
AND %1100'0000 ;b6: DRQ (§ ¯à®á ¤ ­­ëå = 1). b7: INTRQ (¢ë¯®«­ï¥âáï ª®¬ ­¤  = 0). AND %1100'0000 ;b6: DRQ (§ ¯à®á ¤ ­­ëå = 1). b7: INTRQ (¢ë¯®«­ï¥âáï ª®¬ ­¤  = 0).
JR NZ,.RW_PROC JR NZ,.RW_PROC
@ -380,21 +390,23 @@ FDD_RW_SECTOR: LD D,FDD_COUNTERS.RW_Retries
.RW_PROC: IN A,(SLOT3) .RW_PROC: IN A,(SLOT3)
EX AF,AF' EX AF,AF'
; [ ] 15/04/25 à §¬¥à ᥪâ®à  ¡®«ìè¥, 祬 ãáâ ­®¢«¥­® ¢ SYS_PAGE.FDD_TABLE.BytesPerSector ¢ë§®¢¥â ®è¨¡ªã ; [ ] 15/04/25 à §¬¥à ᥪâ®à  ¡®«ìè¥, 祬 ãáâ ­®¢«¥­® ¢ SYS_PAGE.FDD_TABLE.BytesPerSector ¢ë§®¢¥â ®è¨¡ªã
LD A,SYS_PAGE ; LD A,SYS_PAGE
OUT (SLOT3),A ; OUT (SLOT3),A
LD E,(IY + FDD_TABLE_s.BytesPerSector) ; LD E,(IY + FDD_TABLE_s.BytesPerSector)
LD D,(IY + FDD_TABLE_s.BytesPerSector + 1) ; LD D,(IY + FDD_TABLE_s.BytesPerSector + 1)
LD A,XH ; LD A,XH
OUT (SLOT3),A ; OUT (SLOT3),A
INC DE ; INC DE
EXX EXX
BIT 5,B BIT 5,B
EXX EXX
JR NZ,.write_loop ; १ã«ìâ â BIT 5,B JR NZ,.write_loop ; १ã«ìâ â BIT 5,B
;READ BYTE ;READ BYTE
.read_loop: DEC DE .read_loop: EXX
DEC DE
LD A,D LD A,D
OR E OR E
EXX
JR Z,.SectorSizeError JR Z,.SectorSizeError
; ;
INI INI
@ -463,9 +475,11 @@ FDD_RW_SECTOR: LD D,FDD_COUNTERS.RW_Retries
RET RET
; ;
;WRITE BYTE ;WRITE BYTE
.write_loop: DEC DE .write_loop: EXX
DEC DE
LD A,D LD A,D
OR E OR E
EXX
JR Z,.SectorSizeError JR Z,.SectorSizeError
; ;
OUTI OUTI

Binary file not shown.