collapseos/tools/tests/unit/test_util_z.asm
Virgil Dupras f4b6c7637d zasm: rename #inc to .inc
scas, it's not needed any more.
2019-10-06 14:32:23 -04:00

44 lines
389 B
NASM

jp test
.inc "core.asm"
.inc "parse.asm"
.inc "zasm/util.asm"
testNum: .db 1
sFoo: .db "foo", 0
test:
ld hl, 0xffff
ld sp, hl
ld de, 12
ld bc, 4
call multDEBC
ld a, l
cp 48
jp nz, fail
call nexttest
ld hl, sFoo
call strlen
cp 3
jp nz, fail
call nexttest
; success
xor a
halt
nexttest:
ld a, (testNum)
inc a
ld (testNum), a
ret
fail:
ld a, (testNum)
halt