95 lines
1.2 KiB
PHP
95 lines
1.2 KiB
PHP
# r0-r3 are used as tmps, consider them call clobbered by these macros.
|
|
|
|
.macro start
|
|
.data
|
|
failmsg:
|
|
.ascii "fail\n"
|
|
passmsg:
|
|
.ascii "pass\n"
|
|
.text
|
|
.global _start
|
|
_start:
|
|
.endm
|
|
|
|
.macro exit rc
|
|
ldi8 r1, \rc
|
|
ldi8 r0, #1
|
|
trap #0
|
|
.endm
|
|
|
|
.macro pass
|
|
ldi8 r3, 5
|
|
ld24 r2, passmsg
|
|
ldi8 r1, 1
|
|
ldi8 r0, 5
|
|
trap #0
|
|
exit 0
|
|
.endm
|
|
|
|
.macro fail
|
|
ldi8 r3, 5
|
|
ld24 r2, failmsg
|
|
ldi8 r1, 1
|
|
ldi8 r0, 5
|
|
trap #0
|
|
exit 1
|
|
.endm
|
|
|
|
.macro mvi_h_gr reg, val
|
|
.if (\val >= -128) && (\val <= 127)
|
|
ldi8 \reg, \val
|
|
.else
|
|
seth \reg, high(\val)
|
|
or3 \reg, \reg, low(\val)
|
|
.endif
|
|
.endm
|
|
|
|
.macro mvaddr_h_gr reg, addr
|
|
seth \reg, high(\addr)
|
|
or3 \reg, \reg, low(\addr)
|
|
.endm
|
|
|
|
# Other macros know this only clobbers r0.
|
|
.macro test_h_gr reg, val
|
|
mvaddr_h_gr r0, \val
|
|
beq \reg, r0, test_gr\@
|
|
fail
|
|
test_gr\@:
|
|
.endm
|
|
|
|
.macro mvi_h_condbit val
|
|
ldi8 r0, 0
|
|
ldi8 r1, 1
|
|
.if \val
|
|
cmp r0, r1
|
|
.else
|
|
cmp r1, r0
|
|
.endif
|
|
.endm
|
|
|
|
.macro test_h_condbit val
|
|
.if \val
|
|
bc test_c1\@
|
|
fail
|
|
test_c1\@:
|
|
.else
|
|
bnc test_c0\@
|
|
fail
|
|
test_c0\@:
|
|
.endif
|
|
.endm
|
|
|
|
.macro mvi_h_accum0 hi, lo
|
|
mvi_h_gr r0, \hi
|
|
mvtachi r0
|
|
mvi_h_gr r0, \lo
|
|
mvtaclo r0
|
|
.endm
|
|
|
|
.macro test_h_accum0 hi, lo
|
|
mvfachi r1
|
|
test_h_gr r1, \hi
|
|
mvfaclo r1
|
|
test_h_gr r1, \lo
|
|
.endm
|
|
|