Fix "shift" test to actually test RGBLINK

This commit is contained in:
ISSOtm
2022-02-05 11:39:10 +01:00
parent 4ed5ba7508
commit acc31feaa1
2 changed files with 20 additions and 45 deletions

View File

@@ -1,10 +1,11 @@
test: macro
macro test
; Test the rpn system, as well as the linker...
dl \1 + zero
DEF expr EQUS STRRPL(STRRPL("\1 + zero)", "<<", "<< ("), ">>", ">> (")
dl expr
PURGE expr
; ...as well as the constexpr system
result\@ equ \1
println "\1 = {result\@}"
println "\1 = ", (\1)
endm
section "test", ROM0[0]