collapseos/tools/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 "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"`
			`.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`