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