-bug: EXECOM - увеличена задержка ожидания ВГ93

This commit is contained in:
Tolik 2026-01-20 23:33:14 +10:00
parent e0c70519c3
commit fd285cae0f
3 changed files with 37 additions and 9 deletions

View File

@ -200,6 +200,7 @@ FDD_5x_LONG_READ:
EXX EXX
PUSH BC PUSH BC
CALL SEEK CALL SEEK
;!FIXIT ª®­âà®«ì ®è¨¡ª¨
POP BC POP BC
EXX EXX
PUSH DE PUSH DE
@ -400,8 +401,10 @@ FDD_RW_SECTOR: LD D,5 ;RETRY COUNT
PUSH DE PUSH DE
PUSH HL PUSH HL
CALL RESWG ; RESET_WG CALL RESWG ; RESET_WG
;!FIXIT ª®­âà®«ì ®è¨¡ª¨
LD A,XL LD A,XL
CALL SEEK ; !!!!! ¯®á¬®âà¥âì CALL SEEK ; !!!!! ¯®á¬®âà¥âì
;!FIXIT ª®­âà®«ì ®è¨¡ª¨
POP HL POP HL
POP DE POP DE
JR .RETRY JR .RETRY
@ -434,9 +437,9 @@ FDD_RW_SECTOR: LD D,5 ;RETRY COUNT
JR Z,.SectorSizeError JR Z,.SectorSizeError
; ;
OUTI OUTI
.wwait_data: IN A,(FDC_93.DrvCTRL) .wait_data_w: IN A,(FDC_93.DrvCTRL)
AND %1100'0000 ;b6: DRQ (§ ¯à®á ¤ ­­ëå = 1). b7: INTRQ (¢ë¯®«­ï¥âáï ª®¬ ­¤  = 0). AND %1100'0000 ;b6: DRQ (§ ¯à®á ¤ ­­ëå = 1). b7: INTRQ (¢ë¯®«­ï¥âáï ª®¬ ­¤  = 0).
JR Z,.wwait_data JR Z,.wait_data_w
JP P,.write_loop JP P,.write_loop
JP .rw_return JP .rw_return
; ;
@ -683,22 +686,47 @@ P50ms: PUSH BC
RET RET
; ;
////////////////////////////////////////////////////////////////////////
;RESWG: LD A,8
; ;
;EXECOM: OUT (FDC_93.Command),A
; LD HL,#0000 ; áçñâ稪
;.WREST: DEC HL
; LD A,H
; OR L
; SCF
; RET Z
; ;
; IN A,(FDC_93.DrvCTRL)
; AND #80
; JR Z,.WREST
; RET
; ;
RESWG: LD A,8 ;!HARDCODE CMD Š<>1818ƒ93 RESWG: LD A,8 ;!HARDCODE CMD Š<>1818ƒ93
; ;
EXECOM: OUT (FDC_93.Command),A EXECOM: OUT (FDC_93.Command),A
LD HL,#0000 ; áçñâ稪 LD HL,#0000 ; áçñâ稪
PUSH BC
LD B,3 ; áçñâ稪
;
.WREST: DEC HL .WREST: DEC HL
LD A,H LD A,H
OR L OR L
SCF JR NZ,.get_state
RET Z
; ;
IN A,(FDC_93.DrvCTRL) DJNZ .WREST
;
POP BC
SCF
RET
;
.get_state: IN A,(FDC_93.DrvCTRL)
AND #80 AND #80
JR Z,.WREST JR Z,.WREST
RET POP BC
; RET
////////////////////////////////////////////////////////////////////////
; ;
;------------------------------- ;-------------------------------

View File

@ -85,8 +85,8 @@ DRV_LIST:
; RET ; RET
; ; ; ;
INCLUDE 'EXTENDED/FDD_DRIVER_2.asm' INCLUDE 'EXTENDED/FDD_DRIVER.asm'
INCLUDE 'EXTENDED/RAM_DISK_DRIVER_1.asm' INCLUDE 'EXTENDED/RAM_DISK_DRIVER.asm'
INCLUDE 'EXTENDED/IDE/ATA_DRV.asm' INCLUDE 'EXTENDED/IDE/ATA_DRV.asm'
INCLUDE 'EXTENDED/IDE/ATAPI_DRV.asm' INCLUDE 'EXTENDED/IDE/ATAPI_DRV.asm'
INCLUDE 'EXTENDED/IDE/SHARED.asm' INCLUDE 'EXTENDED/IDE/SHARED.asm'