исправлена ошика в 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 HL ; áâ. à §àï¤
PUSH IX ; ­®¬¥à «®£. ᥪâ®à  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 CALL WRITE_SECTOR
; !FIXIT ­¥â ¯à®¢¥àª¨ ­  ®è¨¡ªã ; !FIXIT ­¥â ¯à®¢¥àª¨ ­  ®è¨¡ªã
; ;

View File

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

View File

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