collapseos/tests/unit/test_symbol.asm

.equ	RAMSTART	0x4000
.equ	ZASM_REG_MAXCNT		0xff
.equ	ZASM_LREG_MAXCNT	0x40
.equ	ZASM_REG_BUFSZ		0x1000
.equ	ZASM_LREG_BUFSZ		0x200

jp	test

.inc "core.asm"
.inc "str.asm"
.inc "lib/util.asm"
.inc "zasm/util.asm"
.inc "zasm/const.asm"
.equ	SYM_RAMSTART	RAMSTART
.inc "zasm/symbol.asm"

testNum:	.db 1

sFOO:		.db "FOO", 0
sFOOBAR:	.db "FOOBAR", 0
sOther:		.db "Other", 0

test:
	ld	sp, 0xffff

	; Check that we compare whole strings (a prefix will not match a longer
	; string).
	call	symInit
	ld	hl, sFOOBAR
	ld	de, 42
	call	symRegisterGlobal
	jp	nz, fail
	ld	hl, sFOO
	ld	de, 43
	call	symRegisterGlobal
	jp	nz, fail

	ld	hl, sFOO
	call	symFindVal		; don't match FOOBAR
	jp	nz, fail
	ld	a, d
	or	a
	jp	nz, fail
	ld	a, e
	cp	43
	jp	nz, fail
	call	nexttest

	ld	hl, sOther
	call	symFindVal
	jp	z, fail
	call	nexttest

	; success
	xor	a
	halt

nexttest:
	ld	hl, testNum
	inc	(hl)
	ret

fail:
	ld	a, (testNum)
	halt
zasm: don't match prefixes in symFind Only match when full names match. 2019-05-18 03:14:16 +10:00			`.equ RAMSTART 0x4000`
recipes/sms/romasm: make zasm's memory usage fit the SMS 2019-07-24 06:50:19 +10:00			`.equ ZASM_REG_MAXCNT 0xff`
			`.equ ZASM_LREG_MAXCNT 0x40`
			`.equ ZASM_REG_BUFSZ 0x1000`
			`.equ ZASM_LREG_BUFSZ 0x200`

zasm: don't match prefixes in symFind Only match when full names match. 2019-05-18 03:14:16 +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 "lib/util.asm"`
			`.inc "zasm/util.asm"`
			`.inc "zasm/const.asm"`
zasm: don't match prefixes in symFind Only match when full names match. 2019-05-18 03:14:16 +10:00			`.equ SYM_RAMSTART RAMSTART`
zasm: rename #inc to .inc scas, it's not needed any more. 2019-10-07 05:32:23 +11:00			`.inc "zasm/symbol.asm"`
zasm: don't match prefixes in symFind Only match when full names match. 2019-05-18 03:14:16 +10:00
			`testNum: .db 1`

			`sFOO: .db "FOO", 0`
			`sFOOBAR: .db "FOOBAR", 0`
zasm: make symbol registry a bit more straightforward Instead of strings of variable length driving the iteration of the registry, we do so through records that keep track of lengths and counts. 2019-07-24 05:21:42 +10:00			`sOther: .db "Other", 0`
zasm: don't match prefixes in symFind Only match when full names match. 2019-05-18 03:14:16 +10:00
			`test:`
zasm: make symbol registry a bit more straightforward Instead of strings of variable length driving the iteration of the registry, we do so through records that keep track of lengths and counts. 2019-07-24 05:21:42 +10:00			`ld sp, 0xffff`
zasm: don't match prefixes in symFind Only match when full names match. 2019-05-18 03:14:16 +10:00
			`; Check that we compare whole strings (a prefix will not match a longer`
			`; string).`
			`call symInit`
			`ld hl, sFOOBAR`
			`ld de, 42`
zasm: remove SYM_CTX 2019-07-23 05:59:47 +10:00			`call symRegisterGlobal`
zasm: don't match prefixes in symFind Only match when full names match. 2019-05-18 03:14:16 +10:00			`jp nz, fail`
			`ld hl, sFOO`
			`ld de, 43`
zasm: remove SYM_CTX 2019-07-23 05:59:47 +10:00			`call symRegisterGlobal`
zasm: don't match prefixes in symFind Only match when full names match. 2019-05-18 03:14:16 +10:00			`jp nz, fail`

			`ld hl, sFOO`
zasm: fix bug with registry selection During expression parsing, if a local label was parsed, it would select the local registry and keep that selection, making subsequent global labels register in the wrong place. 2019-07-21 08:07:52 +10:00			`call symFindVal ; don't match FOOBAR`
zasm: don't match prefixes in symFind Only match when full names match. 2019-05-18 03:14:16 +10:00			`jp nz, fail`
zasm: de-index symRegister Make symRegister's logic pointer-based so we can break through the 0x100 limit. 2019-05-19 23:06:24 +10:00			`ld a, d`
			`or a`
			`jp nz, fail`
			`ld a, e`
			`cp 43`
			`jp nz, fail`
			`call nexttest`

zasm: make symbol registry a bit more straightforward Instead of strings of variable length driving the iteration of the registry, we do so through records that keep track of lengths and counts. 2019-07-24 05:21:42 +10:00			`ld hl, sOther`
			`call symFindVal`
			`jp z, fail`
			`call nexttest`

zasm: don't match prefixes in symFind Only match when full names match. 2019-05-18 03:14:16 +10:00			`; success`
			`xor a`
			`halt`

			`nexttest:`
zasm: make symbol registry a bit more straightforward Instead of strings of variable length driving the iteration of the registry, we do so through records that keep track of lengths and counts. 2019-07-24 05:21:42 +10:00			`ld hl, testNum`
			`inc (hl)`
zasm: don't match prefixes in symFind Only match when full names match. 2019-05-18 03:14:16 +10:00			`ret`

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