sbitw.cgs revision 1.1 1 1.1 christos # cr16 testcase for sbitw
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 sbitw
9 1.1 christos sbitw:
10 1.1 christos sbitw $4,_y
11 1.1 christos loadw _y, r1
12 1.1 christos cmpb $0x1f, 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 sbitw $5,0(r1,r0)
20 1.1 christos loadw _y, r1
21 1.1 christos cmpb $0x3f, 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 sbitw $6,0(r1)
28 1.1 christos loadw _y, r1
29 1.1 christos cmpb $0x7f, 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 0x0f
36