ed: fix boken 'a' and 'd' cmds

This commit is contained in:
Virgil Dupras 2019-07-21 19:32:24 -04:00
parent f43241a5a0
commit 0fd16a0bb6
1 changed files with 2 additions and 1 deletions

View File

@ -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'