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

109 lines
1.3 KiB
NASM
Raw Normal View History

zasm: add "last value" symbol (@)
2019-10-05 10:26:21 +10:00
.equ RAMSTART 0x4000
; declare DIREC_LASTVAL manually so that we don't have to include directive.asm
.equ DIREC_LASTVAL RAMSTART
Add unit test for zasm's parse unit
2019-05-18 00:00:30 +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"
.inc "parse.asm"
.inc "lib/util.asm"
.inc "zasm/util.asm"
.inc "lib/parse.asm"
.inc "zasm/parse.asm"
Add unit test for zasm's parse unit
2019-05-18 00:00:30 +10:00
; mocks. aren't used in tests
zasm: add support for "$" symbol Allows for the ".fill x-$" pattern.
2019-05-20 23:17:50 +10:00
zasmGetPC:
Add unit test for zasm's parse unit
2019-05-18 00:00:30 +10:00
zasmIsFirstPass:
symSelect:
zasm: fix bug with registry selection During expression parsing, if a local label was parsed, it would select the local registry and keep that selection, making subsequent global labels register in the wrong place.
2019-07-21 08:07:52 +10:00
symFindVal:
Add unit test for zasm's parse unit
2019-05-18 00:00:30 +10:00
jp fail
testNum: .db 1
s99: .db "99", 0
s0x99: .db "0x99", 0
zasm: fix 3-digit hex parsing
2019-05-18 13:00:57 +10:00
s0x100: .db "0x100", 0
zasm: add support for "0b" literals
2019-05-18 00:34:01 +10:00
s0b0101: .db "0b0101", 0
s0b01010101: .db "0b01010101", 0
Add unit test for zasm's parse unit
2019-05-18 00:00:30 +10:00
sFoo: .db "Foo", 0
test:
ld hl, 0xffff
ld sp, hl
ld hl, s99
call parseLiteral
jp nz, fail
Run unit tests with zasm
2019-05-20 21:50:23 +10:00
push ix \ pop hl
ld a, h
Add unit test for zasm's parse unit
2019-05-18 00:00:30 +10:00
or a
jp nz, fail
Run unit tests with zasm
2019-05-20 21:50:23 +10:00
ld a, l
Add unit test for zasm's parse unit
2019-05-18 00:00:30 +10:00
cp 99
jp nz, fail
call nexttest
zasm: fix 3-digit hex parsing
2019-05-18 13:00:57 +10:00
ld hl, s0x100
call parseLiteral
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 3-digit hex parsing
2019-05-18 13:00:57 +10:00
cp 1
jp nz, fail
Run unit tests with zasm
2019-05-20 21:50:23 +10:00
ld a, l
zasm: fix 3-digit hex parsing
2019-05-18 13:00:57 +10:00
or a
jp nz, fail
call nexttest
Add unit test for zasm's parse unit
2019-05-18 00:00:30 +10:00
ld hl, sFoo
call parseLiteral
jp z, fail
call nexttest
zasm: add support for "0b" literals
2019-05-18 00:34:01 +10:00
ld hl, s0b0101
call parseLiteral
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 support for "0b" literals
2019-05-18 00:34:01 +10:00
or a
jp nz, fail
Run unit tests with zasm
2019-05-20 21:50:23 +10:00
ld a, l
zasm: add support for "0b" literals
2019-05-18 00:34:01 +10:00
cp 0b0101
jp nz, fail
call nexttest
ld hl, s0b01010101
call parseLiteral
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 support for "0b" literals
2019-05-18 00:34:01 +10:00
or a
jp nz, fail
Run unit tests with zasm
2019-05-20 21:50:23 +10:00
ld a, l
zasm: add support for "0b" literals
2019-05-18 00:34:01 +10:00
cp 0b01010101
jp nz, fail
call nexttest
zasm: add "last value" symbol (@)
2019-10-05 10:26:21 +10:00
.equ FOO 0x42
.equ BAR @+1
ld a, BAR
cp 0x43
jp nz, fail
call nexttest
Add unit test for zasm's parse unit
2019-05-18 00:00:30 +10:00
; success
xor a
halt
nexttest:
ld a, (testNum)
inc a
ld (testNum), a
ret
fail:
ld a, (testNum)
halt