если нет диска в приводе, то не пишет ошибку, что нет привода

This commit is contained in:
Tolik 2025-04-23 00:49:08 +10:00
parent 03e52d38f2
commit 6badb66772
2 changed files with 31 additions and 32 deletions

61
CDX.ASM
View File

@ -190,37 +190,36 @@ MALLOC:
; RST ToDSS
; RET
INIT: XOR A
LD (STOPMODE),A
DEC A
LD (CDDRIVE),A
;
LD BC,+(#C0-1)*256 + BIOS.DRV_DETECT
.loop: INC B
LD A,B
CP #C4
SCF
RET Z
PUSH BC
RST ToBIOS
POP BC
JR NC,.found
;
CP BIOS.Error.ATAPI.UnitAttention
JR NZ,.loop
;
PUSH BC
LD A,B
CALL SAVE_MEDIA_CHANGED
POP BC
;
.found: LD A,B
LD (CDDRIVE),A
RET
;
; LD C,BIOS.DRV_RESET
; JP ToBIOS
; RET
INIT: XOR A
LD (STOPMODE),A
DEC A
LD (CDDRIVE),A
;
LD BC,+(#C0-1)*256 + BIOS.DRV_DETECT
.loop: INC B
LD A,B
CP #C4
SCF
RET Z
PUSH BC
RST ToBIOS
POP BC
JR NC,.found
;
CP BIOS.Error.ATAPI.MediumError
JR Z,.media_changed
CP BIOS.Error.ATAPI.UnitAttention
JR NZ,.loop
;
.media_changed: PUSH BC
LD A,B
CALL SAVE_MEDIA_CHANGED
POP BC
;
.found: LD A,B
LD (CDDRIVE),A
RET
SAVE_MEDIA_CHANGED:
LD C,BIOS.DRV_GET_PAR

@ -1 +1 @@
Subproject commit f533c03f52f53e581c794c1017b7b0d61d39dfbf
Subproject commit a0e68ce3a19bd47537585e49bfbf5e45fab197a1