projects
/
external
/
binutils.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
* hppa.h (pa_opcodes): Use "cX" completer instead of "cx" in fstqx
[external/binutils.git]
/
sim
/
testsuite
/
sim
/
cr16
/
tbitb.cgs
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