OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gdb-7.2/] [sim/] [testsuite/] [sim/] [cr16/] [tbitb.cgs] - Blame information for rev 841

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 330 jeremybenn
# 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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.