izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-06 10:38:10 +11:00
Code Issues Releases Wiki Activity
1cea6e71e0
collapseos/tools/tests/unit/test_expr.asm

142 lines
1.8 KiB
NASM
Raw Normal View History

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: add "last value" symbol (@)
2019-10-05 10:26:21 +10:00
; declare DIREC_LASTVAL manually so that we don't have to include directive.asm
.equ DIREC_LASTVAL RAMSTART
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"
.inc "lib/parse.asm"
.inc "zasm/parse.asm"
zasm: add "last value" symbol (@)
2019-10-05 10:26:21 +10:00
.equ SYM_RAMSTART DIREC_LASTVAL+2
zasm: rename #inc to .inc scas, it's not needed any more.
2019-10-07 05:32:23 +11:00
.inc "zasm/symbol.asm"
.inc "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
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, sBAR
ld de, 0x20
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, 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
Reference in New Issue Copy Permalink