URL https://opencores.org/ocsvn/scarts/scarts/trunk

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gdb/] [gdb-6.8/] [sim/] [testsuite/] [sim/] [fr30/] [btsth.cgs] - Blame information for rev 26

Details | Compare with Previous | View Log


# fr30 testcase for btsth $Rj,@$Ri
# mach(): fr30
 
        .include "testutils.inc"
 
        START
 
        .text
        .global btsth
btsth:
        ; Test btsth $Rj,@$Ri
        mvi_h_mem       0x55555555,sp
        set_cc          0x0b            ; Set mask opposite of expected
        btsth           0x0a,@sp
        test_cc         0 1 1 1
        test_h_mem      0x55555555,sp
 
        mvi_h_mem       0xffffffff,sp
        set_cc          0x04            ; Set mask opposite of expected
        btsth           0x0a,@sp
        test_cc         1 0 0 0
        test_h_mem      0xffffffff,sp
 
        mvi_h_mem       0xe5ffffff,sp
        set_cc          0x0e            ; Set mask opposite of expected
        btsth           0x07,@sp
        test_cc         0 0 1 0
        test_h_mem      0xe5ffffff,sp
 
        pass

Line No.	Rev	Author	Line
1	26	jlechner	`# fr30 testcase for btsth $Rj,@$Ri`
2			`# mach(): fr30`
3
4			`.include "testutils.inc"`
5
6			`START`
7
8			`.text`
9			`.global btsth`
10			`btsth:`
11			`; Test btsth $Rj,@$Ri`
12			`mvi_h_mem 0x55555555,sp`
13			`set_cc 0x0b ; Set mask opposite of expected`
14			`btsth 0x0a,@sp`
15			`test_cc 0 1 1 1`
16			`test_h_mem 0x55555555,sp`
17
18			`mvi_h_mem 0xffffffff,sp`
19			`set_cc 0x04 ; Set mask opposite of expected`
20			`btsth 0x0a,@sp`
21			`test_cc 1 0 0 0`
22			`test_h_mem 0xffffffff,sp`
23
24			`mvi_h_mem 0xe5ffffff,sp`
25			`set_cc 0x0e ; Set mask opposite of expected`
26			`btsth 0x07,@sp`
27			`test_cc 0 0 1 0`
28			`test_h_mem 0xe5ffffff,sp`
29
30			`pass`

Browse

Tools

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gdb/] [gdb-6.8/] [sim/] [testsuite/] [sim/] [fr30/] [btsth.cgs] - Blame information for rev 26