исправлена ошика в OPENDSK - если был признак media changed, то не то пыталось открыть

This commit is contained in:
Tolik 2025-04-14 01:19:45 +10:00
parent eae2582230
commit cc65c4ba24
3 changed files with 5 additions and 17 deletions

View File

@ -168,18 +168,6 @@ MKDIR:
PUSH HL ; áâ. à §àï¤
PUSH IX ; ­®¬¥à «®£. ᥪâ®à 
;
; IN A,(SLOT3)
; PUSH AF
; IN A,(SLOT0)
; OUT (SLOT3),A
; ;
; LD A,(CORE_BUFFERS.FS_Buffer.DRIVE)
; LD DE,CORE_BUFFERS.SECTOR_BUFFER+#C000
; LD BC,1*256 + Dss.DRV.Write
; RST ToDSS.DRV
; ;
; POP AF
; OUT (SLOT3),A
CALL WRITE_SECTOR
; !FIXIT ­¥â ¯à®¢¥àª¨ ­  ®è¨¡ªã
;

View File

@ -183,9 +183,9 @@ TMPNAME: DZ ' ' ; 12
;----------------------------------------------------------------------;
; IN: A - drive number
OPENDSK: ;!TEST DRV.Open ®¡å®¤ R10
LD C,A
LD B,A
LD A,(CORE_BUFFERS.FS_Buffer.DRIVE)
CP C
CP B
JR NZ,.open
PUSH BC
LD C,Dss.DRV.MediaCheck
@ -194,7 +194,7 @@ OPENDSK: ;!TEST DRV.Open
JR Z,.exit
JR .skip_open ;!FIXIT ª®£¤  DRV.MediaCheck ¨ DRV.Open ¡ã¤ã⠮⫨ç âìáï
;
.open: LD A,C
.open: LD A,B
;
.force: PUSH AF
LD C,Dss.DRV.Open

View File

@ -607,8 +607,8 @@ F_START: DI
;LD A,H
;LD A,0
;
LD B,1
CALL BOOTDSK
;LD B,1
CALL BOOTDSK.SET
RET C
;
EI