mirror of
https://github.com/Tolik-Trek/CDX.git
synced 2026-06-15 01:11:38 +03:00
fixed eject bug
This commit is contained in:
parent
ed32954619
commit
71bcb289a7
@ -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
|
||||
;
|
||||
|
||||
10
COMMAND.ASM
10
COMMAND.ASM
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user