| # r0-r5 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: |
| .global _start |
| _start: |
| .endm |
| |
| .macro exit rc |
| movw $\rc,r2 |
| movw $0x410,r0 |
| excp 8 |
| .endm |
| |
| .macro pass |
| movw $1, r2 |
| movd $passmsg,(r4,r3) |
| movw $5, r5 |
| movw $0x404, r0 |
| excp 8 |
| exit 0 |
| .endm |
| |
| .macro fail |
| movw $1, r2 |
| movd $failmsg,(r4,r3) |
| movw $5, r5 |
| movw $0x404, r0 |
| excp 8 |
| exit 1 |
| .endm |
| |
| # Other macros know this only clobbers r0. |
| .macro test_h_gr reg, val |
| movw $\val,r0 |
| cmpw \reg, r0 |
| beq test_gr |
| fail |
| test_gr: |
| .endm |
| |
| .macro test_h_grp regp, val |
| movd $\val,(r1,r0) |
| cmpd \regp,(r1,r0) |
| beq test_grp |
| fail |
| test_grp: |
| .endm |
| |
| |
| .macro mvi_h_condbit val |
| movw $0, r0 |
| movw $\val, r1 |
| cmpw r0, r1 |
| .endm |
| |
| .macro test_h_condbit val |
| .if \val |
| br test_c1 |
| fail |
| test_c1: |
| .else |
| br test_c0 |
| fail |
| test_c0: |
| .endif |
| .endm |
