Subversion Repositories scarts

# FIXME: wip, copied from ../testutils.inc
# r0-r3 are used as tmps, consider them call clobbered by these macros.
# This uses the angel rom monitor calls.
# ??? How do we use the \@ facility of .macros ???
# @ is the comment char!

        .macro a_mvi_h_gr reg, val
        ldr \reg,[pc]
        b . + 8
        .word \val
        .endm

        .macro mvaddr_h_gr reg, addr
        ldr \reg,[pc]
        b . + 8
        .word \val
        .endm

        .macro start
        .data
failmsg:
        .asciz "fail\n"
passmsg:
        .asciz "pass\n"
        .text

do_pass:
        ldr r1, passmsg_addr
        mov r0, #4
        swi #0x123456
        exit 0
passmsg_addr:
        .word passmsg

do_fail:
        ldr r1, failmsg_addr
        mov r0, #4
        swi #0x123456
        exit 1
failmsg_addr:
        .word failmsg

        .global _start
_start:
        .endm

# *** Other macros know pass/fail are 4 bytes in size!  Yuck.

        .macro pass
        b do_pass
        .endm

        .macro fail
        b do_fail
        .endm

        .macro exit rc
        mov r1, #\rc
        mov r0, #0x2a @ decimal 42
        swi #1
        # If that returns, punt with a sigill.
        stc 0,cr0,[r0]
        .endm

# Other macros know this only clobbers r0.
        .macro test_h_gr reg, val
        mvaddr_h_gr r0, \val
        cmp \reg, r0
        beq . + 8
        fail
        .endm

        .macro mvi_h_cc c, n, v, z
        ldi8 r0, 0
        ldi8 r1, 1
        .if xxx
        cmp r0, r1
        .else
        cmp r1, r0
        .endif
        .endm

        .macro test_h_cc c, n, v, z
        .if xxx
        bc . + 8
        fail
        .else
        bnc . + 8
        fail
        .endif
        .endm