Subversion Repositories scarts

# 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