izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-05 22:30:54 +11:00
Code Issues Releases Wiki Activity
ca7c21d49f
collapseos/tests/unit/test_z_instr.asm

179 lines
2.5 KiB
NASM
Raw Normal View History

zasm: simplify (IX/Y+d) handling We now require less special handling.
2019-11-11 12:16:50 +11:00
jp runTests
.inc "err.h"
.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: simplify (IX/Y+d) handling We now require less special handling.
2019-11-11 12:16:50 +11:00
.inc "zasm/const.asm"
lib/expr: refactor for easier operator addition
2019-11-23 06:45:12 +11:00
.inc "lib/ari.asm"
zasm: simplify (IX/Y+d) handling We now require less special handling.
2019-11-11 12:16:50 +11:00
.inc "lib/util.asm"
.inc "zasm/util.asm"
.inc "lib/parse.asm"
basic: add expression support to print Again, same thing as in zasm.
2019-11-19 07:52:07 +11:00
.equ EXPR_PARSE parseLiteral
.inc "lib/expr.asm"
zasm: simplify (IX/Y+d) handling We now require less special handling.
2019-11-11 12:16:50 +11:00
.equ INS_RAMSTART RAMSTART
.inc "zasm/instr.asm"
zasmGetPC:
ret
zasmIsFirstPass:
jp unsetZ
readWord:
readComma:
symFindVal:
xor a
ret
ioPutB:
push hl
ld hl, SPITBOWL
push af
ld a, (SPITCNT)
call addHL
inc a
ld (SPITCNT), a
pop af
ld (hl), a
pop hl
cp a
ret
runTests:
call testMatchArg
call testSpitUpcode
xor a
halt
testSpitUpcode:
zasm: little drive-by optimization Use IX directly for argspec rows instead of going through DE. It saves a bit of processing. The code was this way because I initially didn't use IX at all, so as code evolved, that DE translation stayed as an artifact.
2019-12-14 02:23:11 +11:00
ld iy, .t1
zasm: simplify (IX/Y+d) handling We now require less special handling.
2019-11-11 12:16:50 +11:00
call .test
zasm: little drive-by optimization Use IX directly for argspec rows instead of going through DE. It saves a bit of processing. The code was this way because I initially didn't use IX at all, so as code evolved, that DE translation stayed as an artifact.
2019-12-14 02:23:11 +11:00
ld iy, .t2
zasm: simplify (IX/Y+d) handling We now require less special handling.
2019-11-11 12:16:50 +11:00
call .test
zasm: little drive-by optimization Use IX directly for argspec rows instead of going through DE. It saves a bit of processing. The code was this way because I initially didn't use IX at all, so as code evolved, that DE translation stayed as an artifact.
2019-12-14 02:23:11 +11:00
ld iy, .t3
zasm: simplify (IX/Y+d) handling We now require less special handling.
2019-11-11 12:16:50 +11:00
call .test
zasm: little drive-by optimization Use IX directly for argspec rows instead of going through DE. It saves a bit of processing. The code was this way because I initially didn't use IX at all, so as code evolved, that DE translation stayed as an artifact.
2019-12-14 02:23:11 +11:00
ld iy, .t4
zasm: simplify (IX/Y+d) handling We now require less special handling.
2019-11-11 12:16:50 +11:00
call .test
zasm: little drive-by optimization Use IX directly for argspec rows instead of going through DE. It saves a bit of processing. The code was this way because I initially didn't use IX at all, so as code evolved, that DE translation stayed as an artifact.
2019-12-14 02:23:11 +11:00
ld iy, .t5
zasm: simplify (IX/Y+d) handling We now require less special handling.
2019-11-11 12:16:50 +11:00
call .test
ret
.test:
; init spitbowl
xor a
ld (SPITCNT), a
ld (SPITBOWL), a
ld (SPITBOWL+1), a
ld (SPITBOWL+2), a
ld (SPITBOWL+3), a
zasm: little drive-by optimization Use IX directly for argspec rows instead of going through DE. It saves a bit of processing. The code was this way because I initially didn't use IX at all, so as code evolved, that DE translation stayed as an artifact.
2019-12-14 02:23:11 +11:00
push iy \ pop ix
call intoIX
ld a, (iy+2)
zasm: simplify (IX/Y+d) handling We now require less special handling.
2019-11-11 12:16:50 +11:00
ld (INS_CURARG1), a
zasm: little drive-by optimization Use IX directly for argspec rows instead of going through DE. It saves a bit of processing. The code was this way because I initially didn't use IX at all, so as code evolved, that DE translation stayed as an artifact.
2019-12-14 02:23:11 +11:00
ld a, (iy+3)
zasm: simplify (IX/Y+d) handling We now require less special handling.
2019-11-11 12:16:50 +11:00
ld (INS_CURARG1+1), a
zasm: little drive-by optimization Use IX directly for argspec rows instead of going through DE. It saves a bit of processing. The code was this way because I initially didn't use IX at all, so as code evolved, that DE translation stayed as an artifact.
2019-12-14 02:23:11 +11:00
ld a, (iy+4)
zasm: simplify (IX/Y+d) handling We now require less special handling.
2019-11-11 12:16:50 +11:00
ld (INS_CURARG1+2), a
zasm: little drive-by optimization Use IX directly for argspec rows instead of going through DE. It saves a bit of processing. The code was this way because I initially didn't use IX at all, so as code evolved, that DE translation stayed as an artifact.
2019-12-14 02:23:11 +11:00
ld a, (iy+5)
zasm: simplify (IX/Y+d) handling We now require less special handling.
2019-11-11 12:16:50 +11:00
ld (INS_CURARG2), a
zasm: little drive-by optimization Use IX directly for argspec rows instead of going through DE. It saves a bit of processing. The code was this way because I initially didn't use IX at all, so as code evolved, that DE translation stayed as an artifact.
2019-12-14 02:23:11 +11:00
ld a, (iy+6)
zasm: simplify (IX/Y+d) handling We now require less special handling.
2019-11-11 12:16:50 +11:00
ld (INS_CURARG2+1), a
zasm: little drive-by optimization Use IX directly for argspec rows instead of going through DE. It saves a bit of processing. The code was this way because I initially didn't use IX at all, so as code evolved, that DE translation stayed as an artifact.
2019-12-14 02:23:11 +11:00
ld a, (iy+7)
zasm: simplify (IX/Y+d) handling We now require less special handling.
2019-11-11 12:16:50 +11:00
ld (INS_CURARG2+2), a
call spitUpcode
jp nz, fail
ld a, (SPITCNT)
zasm: little drive-by optimization Use IX directly for argspec rows instead of going through DE. It saves a bit of processing. The code was this way because I initially didn't use IX at all, so as code evolved, that DE translation stayed as an artifact.
2019-12-14 02:23:11 +11:00
cp (iy+8)
zasm: simplify (IX/Y+d) handling We now require less special handling.
2019-11-11 12:16:50 +11:00
jp nz, fail
ld a, (SPITBOWL)
zasm: little drive-by optimization Use IX directly for argspec rows instead of going through DE. It saves a bit of processing. The code was this way because I initially didn't use IX at all, so as code evolved, that DE translation stayed as an artifact.
2019-12-14 02:23:11 +11:00
cp (iy+9)
zasm: simplify (IX/Y+d) handling We now require less special handling.
2019-11-11 12:16:50 +11:00
jp nz, fail
ld a, (SPITBOWL+1)
zasm: little drive-by optimization Use IX directly for argspec rows instead of going through DE. It saves a bit of processing. The code was this way because I initially didn't use IX at all, so as code evolved, that DE translation stayed as an artifact.
2019-12-14 02:23:11 +11:00
cp (iy+10)
zasm: simplify (IX/Y+d) handling We now require less special handling.
2019-11-11 12:16:50 +11:00
jp nz, fail
ld a, (SPITBOWL+2)
zasm: little drive-by optimization Use IX directly for argspec rows instead of going through DE. It saves a bit of processing. The code was this way because I initially didn't use IX at all, so as code evolved, that DE translation stayed as an artifact.
2019-12-14 02:23:11 +11:00
cp (iy+11)
zasm: simplify (IX/Y+d) handling We now require less special handling.
2019-11-11 12:16:50 +11:00
jp nz, fail
ld a, (SPITBOWL+3)
zasm: little drive-by optimization Use IX directly for argspec rows instead of going through DE. It saves a bit of processing. The code was this way because I initially didn't use IX at all, so as code evolved, that DE translation stayed as an artifact.
2019-12-14 02:23:11 +11:00
cp (iy+12)
zasm: simplify (IX/Y+d) handling We now require less special handling.
2019-11-11 12:16:50 +11:00
jp nz, fail
jp nexttest
; Test data is a argspec pointer in instrTBl followed by 2*3 bytes of CURARG
; followed by the expected spit, 1 byte cnt + 4 bytes spits.
.t1:
zasm: generalize handling of IX/IY in 0xcb upcode family There's a couple of bit fiddling instructions that didn't have their IX/IY variant implemented yet and without this commit, each of them would have required a special routine. Not anymore.
2019-11-11 13:02:18 +11:00
.dw instrTBl+17*6 ; CCF
zasm: simplify (IX/Y+d) handling We now require less special handling.
2019-11-11 12:16:50 +11:00
.db 0, 0, 0
.db 0, 0, 0
.db 1, 0x3f, 0, 0, 0
.t2:
.dw instrTBl+10*6 ; AND (IX+0x42)
.db 'x', 0x42, 0
.db 0, 0, 0
.db 3, 0xdd, 0xa6, 0x42, 0
.t3:
.dw instrTBl+13*6 ; BIT 4, (IX+3)
.db 'N', 4, 0
.db 'x', 3, 0
.db 4, 0xdd, 0xcb, 0x03, 0x66
.t4:
zasm: generalize handling of IX/IY in 0xcb upcode family There's a couple of bit fiddling instructions that didn't have their IX/IY variant implemented yet and without this commit, each of them would have required a special routine. Not anymore.
2019-11-11 13:02:18 +11:00
.dw instrTBl+18*6 ; CP (IX+5)
zasm: simplify (IX/Y+d) handling We now require less special handling.
2019-11-11 12:16:50 +11:00
.db 'x', 5, 0
.db 0, 0, 0
.db 3, 0xdd, 0xbe, 0x05, 0
.t5:
.dw instrTBl+4*6 ; ADD A, (IX+5)
.db 'A', 0, 0
.db 'x', 5, 0
.db 3, 0xdd, 0x86, 0x05, 0
testMatchArg:
ld iy, .t1
call .test
ret
.test:
ld hl, SPITBOWL
ld a, (iy+2)
ld (hl), a
push iy \ pop de
call intoDE
push de \ pop ix
ld a, (ix+1)
call matchArg
jp nz, fail
ld a, (iy+3)
ld (hl), a
ld a, (ix+2)
call matchArg
jp nz, fail
jp nexttest
; Test data is argspec pointer followed by two bytes: first bytes of our two
; CURARG.
.t1:
.dw instrTBl+4*6 ; ADD A, (IX)
.db 'A', 'x'
nexttest:
ld a, (testNum)
inc a
ld (testNum), a
ret
fail:
ld a, (testNum)
halt
testNum: .db 1
SPITCNT:
.db 0
SPITBOWL:
.db 0, 0, 0, 0
DIREC_LASTVAL:
.db 0, 0
RAMSTART:
Reference in New Issue Copy Permalink