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

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gdb/] [gdb-6.8/] [sim/] [testsuite/] [sim/] [h8300/] [orl.s] - Blame information for rev 26

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 26 jlechner 
# Hitachi H8 testcase 'or.l'
2 
# mach(): h8300h h8300s h8sx
3 
# as(h8300):    --defsym sim_cpu=0
4 
# as(h8300h):   --defsym sim_cpu=1
5 
# as(h8300s):   --defsym sim_cpu=2
6 
# as(h8sx):     --defsym sim_cpu=3
7 
# ld(h8300h):   -m h8300helf
8 
# ld(h8300s):   -m h8300self
9 
# ld(h8sx):     -m h8300sxelf
10 
 
11 
        .include "testutils.inc"
12 
 
13 
        start
14 
 
15 
.if (sim_cpu == h8sx)           ; 16-bit immediate is only available on sx.
16 
or_l_imm16:
17 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
18 
        ;;  fixme set ccr
19 
 
20 
        ;;  or.l #xx:16,Rd
21 
        or.l    #0xaaaa, er0    ; Immediate 16-bit operand
22 
 
23 
        ;; fixme test ccr       ; H=0 N=1 Z=0 V=0 C=0
24 
 
25 
        test_h_gr32 0xa5a5afaf er0      ; or result:     a5a5a5a5 | aaaa
26 
 
27 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
28 
        test_gr_a5a5 2
29 
        test_gr_a5a5 3
30 
        test_gr_a5a5 4
31 
        test_gr_a5a5 5
32 
        test_gr_a5a5 6
33 
        test_gr_a5a5 7
34 
.endif
35 
 
36 
or_l_imm32:
37 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
38 
        ;;  fixme set ccr
39 
 
40 
        ;;  or.l #xx:32,Rd
41 
        or.l    #0xaaaaaaaa, er0        ; Immediate 32-bit operand
42 
 
43 
        ;; fixme test ccr       ; H=0 N=1 Z=0 V=0 C=0
44 
 
45 
        test_h_gr32 0xafafafaf er0      ; or result:     a5a5a5a5 | aaaaaaaa
46 
 
47 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
48 
        test_gr_a5a5 2
49 
        test_gr_a5a5 3
50 
        test_gr_a5a5 4
51 
        test_gr_a5a5 5
52 
        test_gr_a5a5 6
53 
        test_gr_a5a5 7
54 
 
55 
or_l_reg:
56 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
57 
        ;;  fixme set ccr
58 
 
59 
        ;;  or.l Rs,Rd
60 
        mov.l   #0xaaaaaaaa, er1
61 
        or.l    er1, er0        ; Register operand
62 
 
63 
        ;; fixme test ccr       ; H=0 N=1 Z=0 V=0 C=0
64 
 
65 
        test_h_gr32 0xafafafaf er0      ; or result:    a5a5a5a5 | aaaaaaaa
66 
        test_h_gr32 0xaaaaaaaa er1      ; Make sure er1 is unchanged
67 
 
68 
        test_gr_a5a5 2          ; Make sure other general regs not disturbed
69 
        test_gr_a5a5 3
70 
        test_gr_a5a5 4
71 
        test_gr_a5a5 5
72 
        test_gr_a5a5 6
73 
        test_gr_a5a5 7
74 
 
75 
        pass
76 
 
77 
        exit 0

powered by: WebSVN 2.1.0

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