mirror of
https://github.com/Tolik-Trek/CDX.git
synced 2026-06-15 09:21:38 +03:00
fixed eject bug
This commit is contained in:
parent
ed32954619
commit
71bcb289a7
@ -68,6 +68,8 @@ EX_COMMAND_LINE:
|
|||||||
POP IX
|
POP IX
|
||||||
JR NC,.EOCL
|
JR NC,.EOCL
|
||||||
;
|
;
|
||||||
|
CP BIOS.Error.ATAPI.MediumError
|
||||||
|
JR Z,.EOCL
|
||||||
CP BIOS.Error.ATAPI.UnitAttention
|
CP BIOS.Error.ATAPI.UnitAttention
|
||||||
JR NZ,.error
|
JR NZ,.error
|
||||||
;
|
;
|
||||||
|
|||||||
10
COMMAND.ASM
10
COMMAND.ASM
@ -22,11 +22,11 @@ COMP01: LD D,H
|
|||||||
COMP004: PUSH BC
|
COMP004: PUSH BC
|
||||||
PUSH DE
|
PUSH DE
|
||||||
COMP000: LD A,(DE)
|
COMP000: LD A,(DE)
|
||||||
CP #61
|
CP 'a'
|
||||||
JP C,COMP001
|
JP C,COMP001
|
||||||
CP #7B
|
CP 'z' + 1
|
||||||
JP NC,COMP001
|
JP NC,COMP001
|
||||||
SUB #20
|
SUB %0010'0000
|
||||||
COMP001: CP (HL)
|
COMP001: CP (HL)
|
||||||
JP NZ,COMP002
|
JP NZ,COMP002
|
||||||
INC HL
|
INC HL
|
||||||
@ -51,8 +51,8 @@ NOSPC: INC HL
|
|||||||
|
|
||||||
COMP002: XOR A
|
COMP002: XOR A
|
||||||
LD C,#FF
|
LD C,#FF
|
||||||
CPI
|
.loop: CPI
|
||||||
JP NZ,$-2
|
JP NZ,.loop
|
||||||
INC HL
|
INC HL
|
||||||
INC HL
|
INC HL
|
||||||
POP DE
|
POP DE
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user