mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-30 23:38:05 +11:00
ed: fix boken 'a' and 'd' cmds
This commit is contained in:
parent
f43241a5a0
commit
0fd16a0bb6
@ -66,7 +66,7 @@ edMain:
|
|||||||
; Now, process line.
|
; Now, process line.
|
||||||
call printcrlf
|
call printcrlf
|
||||||
call cmdParse
|
call cmdParse
|
||||||
jr nz, .error
|
jp nz, .error
|
||||||
ld a, (CMD_TYPE)
|
ld a, (CMD_TYPE)
|
||||||
cp 'q'
|
cp 'q'
|
||||||
jr z, .doQ
|
jr z, .doQ
|
||||||
@ -84,6 +84,7 @@ edMain:
|
|||||||
call cpHLDE
|
call cpHLDE
|
||||||
pop hl ; <-- lvl 1
|
pop hl ; <-- lvl 1
|
||||||
jr z, .error
|
jr z, .error
|
||||||
|
ld a, (CMD_TYPE)
|
||||||
cp 'd'
|
cp 'd'
|
||||||
jr z, .doD
|
jr z, .doD
|
||||||
cp 'a'
|
cp 'a'
|
||||||
|
Loading…
Reference in New Issue
Block a user