jp	test

.inc "core.asm"
.inc "lib/ari.asm"

testNum:	.db 1

test:
	ld	sp, 0xffff

	ld	de, 12
	ld	bc, 4
	call	multDEBC
	ld	a, l
	cp	48
	jp	nz, fail
	call	nexttest

	; success
	xor	a
	halt

nexttest:
	ld	a, (testNum)
	inc	a
	ld	(testNum), a
	ret

fail:
	ld	a, (testNum)
	halt