collapseos/tools/tests/unit/test_util_z.asm

jp	test

.inc "core.asm"
.inc "str.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
zasm: add multiplication expressions 2019-05-18 12:22:10 +10:00			`jp test`

zasm: rename #inc to .inc scas, it's not needed any more. 2019-10-07 05:32:23 +11:00			`.inc "core.asm"`
Extract str.asm from core.asm and make core included by userspace Most of register fiddling routines (which is now the only thing contained in care.asm) are used by almost all userspace apps, often in inner loops. That makes the penalty of using jump tables for those a bit too high. Moreover, it burdens jump tables needlessly. Because this unit is very small (now that string routines are out), it makes sense to always include it in binaries. 2019-11-15 01:55:31 +11:00			`.inc "str.asm"`
zasm: rename #inc to .inc scas, it's not needed any more. 2019-10-07 05:32:23 +11:00			`.inc "zasm/util.asm"`
zasm: add multiplication expressions 2019-05-18 12:22:10 +10:00
			`testNum: .db 1`
zasm: clarify strlen's API 2019-07-23 23:28:39 +10:00			`sFoo: .db "foo", 0`
zasm: add multiplication expressions 2019-05-18 12:22:10 +10:00
			`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`

zasm: clarify strlen's API 2019-07-23 23:28:39 +10:00			`ld hl, sFoo`
			`call strlen`
			`cp 3`
			`jp nz, fail`
			`call nexttest`

zasm: add multiplication expressions 2019-05-18 12:22:10 +10:00			`; success`
			`xor a`
			`halt`

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

			`fail:`
			`ld a, (testNum)`
			`halt`