mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-06 10:28:08 +11:00
28d5ebdc8a
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.
89 lines
1.1 KiB
NASM
89 lines
1.1 KiB
NASM
.equ RAMSTART 0x4000
|
|
jp test
|
|
|
|
#include "core.asm"
|
|
#include "parse.asm"
|
|
#include "zasm/util.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
|
|
|
|
testNum: .db 1
|
|
|
|
s1: .db "2+2", 0
|
|
s2: .db "0x4001+0x22", 0
|
|
s3: .db "FOO+BAR", 0
|
|
|
|
sFOO: .db "FOO", 0
|
|
sBAR: .db "BAR", 0
|
|
|
|
test:
|
|
ld hl, 0xffff
|
|
ld sp, hl
|
|
|
|
ld hl, s1
|
|
call parseExpr
|
|
jp nz, fail
|
|
ld a, ixh
|
|
or a
|
|
jp nz, fail
|
|
ld a, ixl
|
|
cp 4
|
|
jp nz, fail
|
|
call nexttest
|
|
|
|
ld hl, s2
|
|
call parseExpr
|
|
jp nz, fail
|
|
ld a, ixh
|
|
cp 0x40
|
|
jp nz, fail
|
|
ld a, ixl
|
|
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
|
|
ld a, ixh
|
|
cp 0x40
|
|
jp nz, fail
|
|
ld a, ixl
|
|
cp 0x20
|
|
jp nz, fail
|
|
call nexttest
|
|
|
|
; success
|
|
xor a
|
|
halt
|
|
|
|
nexttest:
|
|
ld a, (testNum)
|
|
inc a
|
|
ld (testNum), a
|
|
ret
|
|
|
|
fail:
|
|
ld a, (testNum)
|
|
halt
|
|
|
|
|
|
|