izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
0
Fork 0
Code Issues Releases Wiki Activity
collapseos/tools/tests/unit/test_expr.asm

204 lines
2.6 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"
lib/expr: refactor for easier operator addition
2019-11-23 06:45:12 +11:00
.inc "lib/ari.asm"
zasm: rename #inc to .inc scas, it's not needed any more.
2019-10-07 05:32:23 +11:00
.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"
basic: add expression support to print Again, same thing as in zasm.
2019-11-19 07:52:07 +11:00
.equ EXPR_PARSE parseNumberOrSymbol
.inc "lib/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:
lib/expr: add division and modulo operators
2019-11-23 07:03:16 +11: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
lib/expr: add division and modulo operators
2019-11-23 07:03:16 +11:00
; Old-style tests, not touching them now.
zasm: don't match prefixes in symFind Only match when full names match.
2019-05-18 03:14:16 +10:00
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
lib/expr: add division and modulo operators
2019-11-23 07:03:16 +11:00
; New-style tests
call testParseExpr
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
lib/expr: add division and modulo operators
2019-11-23 07:03:16 +11:00
testParseExpr:
ld iy, .t1
call .testEQ
ld iy, .t2
call .testEQ
lib/expr: add bitwise operators
2019-11-23 09:16:51 +11:00
ld iy, .t3
call .testEQ
ld iy, .t4
call .testEQ
ld iy, .t5
call .testEQ
lib/expr: add left/right shifting operators
2019-11-23 10:35:10 +11:00
ld iy, .t6
call .testEQ
ld iy, .t7
call .testEQ
basic: add support for signed integers
2019-11-24 06:56:23 +11:00
ld iy, .t8
call .testEQ
lib/expr: add division and modulo operators
2019-11-23 07:03:16 +11:00
ret
.testEQ:
push iy \ pop hl
inc hl \ inc hl
call parseExpr
jp nz, fail
push ix \ pop de
ld a, e
cp (iy)
jp nz, fail
ld a, d
cp (iy+1)
jp nz, fail
jp nexttest
.t1:
.dw 7
.db "42/6", 0
.t2:
.dw 1
.db "7%3", 0
lib/expr: add bitwise operators
2019-11-23 09:16:51 +11:00
.t3:
.dw 0x0907
.db "0x99f7&0x0f0f", 0
.t4:
.dw 0x9fff
.db "0x99f7|0x0f0f", 0
.t5:
.dw 0x96f8
.db "0x99f7^0x0f0f", 0
lib/expr: add left/right shifting operators
2019-11-23 10:35:10 +11:00
.t6:
.dw 0x133e
.db "0x99f7}3", 0
.t7:
.dw 0xcfb8
.db "0x99f7{3", 0
basic: add support for signed integers
2019-11-24 06:56:23 +11:00
.t8:
.dw 0xffff
.db "-1", 0
lib/expr: add division and modulo operators
2019-11-23 07:03:16 +11:00
zasm: don't match prefixes in symFind Only match when full names match.
2019-05-18 03:14:16 +10:00
nexttest:
ld a, (testNum)
inc a
ld (testNum), a
ret
fail:
ld a, (testNum)
halt