1 # cr16 testcase for tbitb 2 # mach: cr16 3 4 .include "testutils.inc" 5 6 start 7 8 .global tbitb 9 tbitb: 10 movw $0, r1 11 lpr r1, psr 12 movw $_y, r1 13 tbitb $0, 0(r1) 14 spr psr, r1 15 cmpb $0x20, r1 16 beq ok1 17 not_ok: 18 fail 19 20 ok1: 21 movw $0, r1 22 lpr r1, psr 23 movd $_y, (r1,r0) 24 tbitb $1,0(r1,r0) 25 spr psr, r1 26 cmpb $0x20, r1 27 beq ok2 28 br not_ok 29 ok2: 30 31 pass 32 33 _y: .word 0xf7 34
Indexes created Sat May 02 00:23:24 UTC 2026