jp	test

.inc "core.asm"
.inc "str.asm"
.inc "lib/util.asm"
.inc "zasm/util.asm"

testNum:	.db 1
sFoo:		.db "foo", 0

test:
	ld	hl, 0xffff
	ld	sp, hl

	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