mirror of
https://github.com/Tolik-Trek/Estex-DSS.git
synced 2026-06-15 17:31:47 +03:00
исправлена ошика в OPENDSK - если был признак media changed, то не то пыталось открыть
This commit is contained in:
parent
eae2582230
commit
cc65c4ba24
@ -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 ¥â ¯à®¢¥àª¨ ®è¨¡ªã
|
||||
;
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user