zasm: implement error conditions in .dw

This commit is contained in:
Virgil Dupras 2019-05-27 13:52:58 -04:00
parent f5d4321ece
commit 436ff51c39
2 changed files with 13 additions and 0 deletions

View File

@ -79,8 +79,10 @@ handleDW:
push hl
.loop:
call readWord
jr nz, .badfmt
ld hl, scratchpad
call parseExpr
jr nz, .badarg
push ix \ pop hl
ld a, l
call ioPutC
@ -91,6 +93,15 @@ handleDW:
cp a ; ensure Z
pop hl
ret
.badfmt:
ld a, ERR_BAD_FMT
jr .error
.badarg:
ld a, ERR_BAD_ARG
.error:
call unsetZ
pop hl
ret
handleEQU:
push hl

View File

@ -20,8 +20,10 @@ chkerr "foo" 1
chkerr "ld a, foo" 2
chkerr "ld a, hl" 2
chkerr ".db foo" 2
chkerr ".dw foo" 2
chkerr "ld a," 3
chkerr "ld a, 'A" 3
chkerr ".db 0x42," 3
chkerr ".dw 0x4242," 3
chkerr "ld a, 0x100" 4
chkerr ".db 0x100" 4