fixed eject bug

This commit is contained in:
Tolik 2025-07-07 22:53:01 +10:00
parent ed32954619
commit 71bcb289a7
2 changed files with 7 additions and 5 deletions

View File

@ -68,6 +68,8 @@ EX_COMMAND_LINE:
POP IX
JR NC,.EOCL
;
CP BIOS.Error.ATAPI.MediumError
JR Z,.EOCL
CP BIOS.Error.ATAPI.UnitAttention
JR NZ,.error
;

View File

@ -22,11 +22,11 @@ COMP01: LD D,H
COMP004: PUSH BC
PUSH DE
COMP000: LD A,(DE)
CP #61
CP 'a'
JP C,COMP001
CP #7B
CP 'z' + 1
JP NC,COMP001
SUB #20
SUB %0010'0000
COMP001: CP (HL)
JP NZ,COMP002
INC HL
@ -51,8 +51,8 @@ NOSPC: INC HL
COMP002: XOR A
LD C,#FF
CPI
JP NZ,$-2
.loop: CPI
JP NZ,.loop
INC HL
INC HL
POP DE