collapseos/tools/tests/unit/test_expr.asm

.equ	RAMSTART	0x4000
jp	test

#include "core.asm"
#include "parse.asm"
#include "zasm/util.asm"
#include "zasm/const.asm"
#include "zasm/parse.asm"
.equ	SYM_RAMSTART	RAMSTART
#include "zasm/symbol.asm"
#include "zasm/expr.asm"

; Pretend that we aren't in first pass
zasmIsFirstPass:
	jp	unsetZ

zasmGetPC:
	ret

testNum:	.db 1

s1:		.db "2+2", 0
s2:		.db "0x4001+0x22", 0
s3:		.db "FOO+BAR", 0
s4:		.db "BAR*3", 0
s5:		.db "FOO-3", 0
s6:		.db "FOO+BAR*4", 0

sFOO:		.db "FOO", 0
sBAR:		.db "BAR", 0

test:
	ld	hl, 0xffff
	ld	sp, hl

	ld	hl, s1
	call	parseExpr
	jp	nz, fail
	push	ix \ pop hl
	ld	a, h
	or	a
	jp	nz, fail
	ld	a, l
	cp	4
	jp	nz, fail
	call	nexttest

	ld	hl, s2
	call	parseExpr
	jp	nz, fail
	push	ix \ pop hl
	ld	a, h
	cp	0x40
	jp	nz, fail
	ld	a, l
	cp	0x23
	jp	nz, fail
	call	nexttest

	; before the next test, let's set up FOO and BAR symbols
	call	symInit
	ld	hl, sFOO
	ld	de, 0x4000
	call	symRegister
	jp	nz, fail
	ld	hl, sBAR
	ld	de, 0x20
	call	symRegister
	jp	nz, fail

	ld	hl, s3
	call	parseExpr
	jp	nz, fail
	push	ix \ pop hl
	ld	a, h
	cp	0x40
	jp	nz, fail
	ld	a, l
	cp	0x20
	jp	nz, fail
	call	nexttest

	ld	hl, s4
	call	parseExpr
	jp	nz, fail
	push	ix \ pop hl
	ld	a, h
	or	a
	jp	nz, fail
	ld	a, l
	cp	0x60
	jp	nz, fail
	call	nexttest

	ld	hl, s5
	call	parseExpr
	jp	nz, fail
	push	ix \ pop hl
	ld	a, h
	cp	0x3f
	jp	nz, fail
	ld	a, l
	cp	0xfd
	jp	nz, fail
	call	nexttest

	ld	hl, s6
	call	parseExpr
	jp	nz, fail
	push	ix \ pop hl
	ld	a, h
	cp	0x40
	jp	nz, fail
	ld	a, l
	cp	0x80
	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: don't match prefixes in symFind Only match when full names match. 2019-05-18 03:14:16 +10:00			`.equ RAMSTART 0x4000`
			`jp test`

			`#include "core.asm"`
			`#include "parse.asm"`
Make apps folder into a namespace To straighten out includes and to pave the way into zasm being part of the same "include CFS" as parts, we make zasm includes namespaced. 2019-05-18 10:22:32 +10:00			`#include "zasm/util.asm"`
zasm: add ERR_DUPSYM and ERR_OOM error conditions 2019-05-28 07:45:05 +10:00			`#include "zasm/const.asm"`
Make apps folder into a namespace To straighten out includes and to pave the way into zasm being part of the same "include CFS" as parts, we make zasm includes namespaced. 2019-05-18 10:22:32 +10:00			`#include "zasm/parse.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`
Make apps folder into a namespace To straighten out includes and to pave the way into zasm being part of the same "include CFS" as parts, we make zasm includes namespaced. 2019-05-18 10:22:32 +10:00			`#include "zasm/symbol.asm"`
			`#include "zasm/expr.asm"`
zasm: don't match prefixes in symFind Only match when full names match. 2019-05-18 03:14:16 +10:00
			`; Pretend that we aren't in first pass`
			`zasmIsFirstPass:`
			`jp unsetZ`

zasm: add support for "$" symbol Allows for the ".fill x-$" pattern. 2019-05-20 23:17:50 +10:00			`zasmGetPC:`
			`ret`

zasm: don't match prefixes in symFind Only match when full names match. 2019-05-18 03:14:16 +10:00			`testNum: .db 1`

			`s1: .db "2+2", 0`
			`s2: .db "0x4001+0x22", 0`
			`s3: .db "FOO+BAR", 0`
zasm: fix expr operator priority 2019-05-19 05:17:56 +10:00			`s4: .db "BAR*3", 0`
zasm: fix false truncation error on "-" expressions 2019-05-19 04:51:11 +10:00			`s5: .db "FOO-3", 0`
zasm: fix expr operator priority 2019-05-19 05:17:56 +10:00			`s6: .db "FOO+BAR*4", 0`
zasm: don't match prefixes in symFind Only match when full names match. 2019-05-18 03:14:16 +10:00
			`sFOO: .db "FOO", 0`
			`sBAR: .db "BAR", 0`

			`test:`
			`ld hl, 0xffff`
			`ld sp, hl`

			`ld hl, s1`
			`call parseExpr`
			`jp nz, fail`
Run unit tests with zasm 2019-05-20 21:50:23 +10:00			`push ix \ pop hl`
			`ld a, h`
zasm: don't match prefixes in symFind Only match when full names match. 2019-05-18 03:14:16 +10:00			`or a`
			`jp nz, fail`
Run unit tests with zasm 2019-05-20 21:50:23 +10:00			`ld a, l`
zasm: don't match prefixes in symFind Only match when full names match. 2019-05-18 03:14:16 +10:00			`cp 4`
			`jp nz, fail`
			`call nexttest`

			`ld hl, s2`
			`call parseExpr`
			`jp nz, fail`
Run unit tests with zasm 2019-05-20 21:50:23 +10:00			`push ix \ pop hl`
			`ld a, h`
zasm: don't match prefixes in symFind Only match when full names match. 2019-05-18 03:14:16 +10:00			`cp 0x40`
			`jp nz, fail`
Run unit tests with zasm 2019-05-20 21:50:23 +10:00			`ld a, l`
zasm: don't match prefixes in symFind Only match when full names match. 2019-05-18 03:14:16 +10:00			`cp 0x23`
			`jp nz, fail`
			`call nexttest`

			`; before the next test, let's set up FOO and BAR symbols`
			`call symInit`
			`ld hl, sFOO`
			`ld de, 0x4000`
			`call symRegister`
			`jp nz, fail`
			`ld hl, sBAR`
			`ld de, 0x20`
			`call symRegister`
			`jp nz, fail`

			`ld hl, s3`
			`call parseExpr`
			`jp nz, fail`
Run unit tests with zasm 2019-05-20 21:50:23 +10:00			`push ix \ pop hl`
			`ld a, h`
zasm: don't match prefixes in symFind Only match when full names match. 2019-05-18 03:14:16 +10:00			`cp 0x40`
			`jp nz, fail`
Run unit tests with zasm 2019-05-20 21:50:23 +10:00			`ld a, l`
zasm: don't match prefixes in symFind Only match when full names match. 2019-05-18 03:14:16 +10:00			`cp 0x20`
			`jp nz, fail`
			`call nexttest`

zasm: add multiplication expressions 2019-05-18 12:22:10 +10:00			`ld hl, s4`
			`call parseExpr`
			`jp nz, fail`
Run unit tests with zasm 2019-05-20 21:50:23 +10:00			`push ix \ pop hl`
			`ld a, h`
zasm: add multiplication expressions 2019-05-18 12:22:10 +10:00			`or a`
			`jp nz, fail`
Run unit tests with zasm 2019-05-20 21:50:23 +10:00			`ld a, l`
zasm: fix expr operator priority 2019-05-19 05:17:56 +10:00			`cp 0x60`
zasm: add multiplication expressions 2019-05-18 12:22:10 +10:00			`jp nz, fail`
			`call nexttest`

zasm: fix false truncation error on "-" expressions 2019-05-19 04:51:11 +10:00			`ld hl, s5`
			`call parseExpr`
			`jp nz, fail`
Run unit tests with zasm 2019-05-20 21:50:23 +10:00			`push ix \ pop hl`
			`ld a, h`
zasm: fix false truncation error on "-" expressions 2019-05-19 04:51:11 +10:00			`cp 0x3f`
			`jp nz, fail`
Run unit tests with zasm 2019-05-20 21:50:23 +10:00			`ld a, l`
zasm: fix false truncation error on "-" expressions 2019-05-19 04:51:11 +10:00			`cp 0xfd`
			`jp nz, fail`
			`call nexttest`

zasm: fix expr operator priority 2019-05-19 05:17:56 +10:00			`ld hl, s6`
			`call parseExpr`
			`jp nz, fail`
Run unit tests with zasm 2019-05-20 21:50:23 +10:00			`push ix \ pop hl`
			`ld a, h`
zasm: fix expr operator priority 2019-05-19 05:17:56 +10:00			`cp 0x40`
			`jp nz, fail`
Run unit tests with zasm 2019-05-20 21:50:23 +10:00			`ld a, l`
zasm: fix expr operator priority 2019-05-19 05:17:56 +10:00			`cp 0x80`
			`jp nz, 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:`
			`ld a, (testNum)`
			`inc a`
			`ld (testNum), a`
			`ret`

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