1 1.1 christos # cr16 testcase for cbitw 2 1.1 christos # mach: cr16 3 1.1 christos 4 1.1 christos .include "testutils.inc" 5 1.1 christos 6 1.1 christos start 7 1.1 christos 8 1.1 christos .global cbitw 9 1.1 christos cbitw: 10 1.1 christos cbitw $4,_y 11 1.1 christos loadw _y, r1 12 1.1 christos cmpb $0xef, r1 13 1.1 christos beq ok1 14 1.1 christos not_ok: 15 1.1 christos fail 16 1.1 christos 17 1.1 christos ok1: 18 1.1 christos movd $_y, (r1,r0) 19 1.1 christos cbitw $5,0(r1,r0) 20 1.1 christos loadw _y, r1 21 1.1 christos cmpb $0xcf, r1 22 1.1 christos beq ok2 23 1.1 christos br not_ok 24 1.1 christos ok2: 25 1.1 christos 26 1.1 christos movw $_y, r1 27 1.1 christos cbitw $6,0(r1) 28 1.1 christos loadw _y, r1 29 1.1 christos cmpb $0x8f, r1 30 1.1 christos beq ok3 31 1.1 christos br not_ok 32 1.1 christos ok3: 33 1.1 christos pass 34 1.1 christos 35 1.1 christos _y: .word 0xff 36