| # cr16 testcase for tbitw | |
| # mach: cr16 | |
| .include "testutils.inc" | |
| start | |
| .global tbitw | |
| tbitw: | |
| movw $0, r1 | |
| lpr r1, psr | |
| tbitw $0,_y | |
| spr psr, r1 | |
| cmpb $0x20, r1 | |
| beq ok1 | |
| not_ok: | |
| fail | |
| ok1: | |
| movw $0, r1 | |
| lpr r1, psr | |
| movd $_y, (r1,r0) | |
| tbitw $1,0(r1,r0) | |
| loadw _y, r1 | |
| spr psr, r1 | |
| cmpb $0x20, r1 | |
| beq ok2 | |
| br not_ok | |
| ok2: | |
| pass | |
| _y: .word 0xf7 |