; Pretend that we aren't in first pass
zasmIsFirstPass:
jp unsetZ
zasmGetPC:
ret
sFOO: .db "FOO", 0
sBAR: .db "BAR", 0
test:
ld sp, 0xffff
; before testing begins, let's set up FOO and BAR symbols
call symInit
ld hl, sFOO
ld de, 0x4000
call symRegisterGlobal
jp nz, fail
ld hl, sBAR
ld de, 0x20
call symRegisterGlobal
jp nz, fail
; There was this untested regression during the replacement of find-and-subst
; parseExpr to the recursive descent one. It was time consuming to find. Here
; it goes, here it stays.
t10:
.dw '-'+1
.db "'-'+1", 0
t11:
.dw 0x4023
.db "0x4001+0x22", 0
t12:
.dw 0x4020
.db "FOO+BAR", 0
t13:
.dw 0x60
.db "BAR*3", 0
t14:
.dw 0x3ffd
.db "FOO-3", 0
t15:
.dw 0x4080
.db "FOO+BAR*4", 0
; "0" is a special case, let's test it
t16:
.dw 0
.db "0", 0
; Another one that caused troubles
t17:
.dw 123
.db "0+123", 0
