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

Subversion Repositories t400

[/] [t400/] [trunk/] [sw/] [verif/] [black_box/] [xabr/] [test.asm] - Blame information for rev 179

Details | Compare with Previous | View Log


        ;; *******************************************************************
        ;; $Id: test.asm 179 2009-04-01 19:48:38Z arniml $
        ;;
        ;; Checks the XABR instruction.
        ;;
 
        ;; the cpu type is defined on asl's command line
 
        org     0x00
        clra
 
        ;; preload digit 0 of all registers with different data
        lbi     0, 0
        stii    0x4
        stii    0x0             ; register number
        lbi     1, 0
        stii    0x5
        stii    0x1             ; register number
        lbi     2, 0
        stii    0x6
        stii    0x2             ; register number
        lbi     3, 0
        stii    0x7
        stii    0x3             ; register number
 
 
        ;; *******************************************************************
        ;; check Br -> A path of XABR
        ;;
        lbi     0, 0
        xabr
        lbi     0, 1
        ske                     ; check against preloaded register number
        jmp     fail
        ;;
        lbi     1, 0
        xabr
        lbi     1, 1
        ske                     ; check against preloaded register number
        jmp     fail
        ;;
        lbi     2, 0
        xabr
        lbi     2, 1
        ske                     ; check against preloaded register number
        jmp     fail
        ;;
        lbi     3, 0
        xabr
        lbi     3, 1
        ske                     ; check against preloaded register number
        jmp     fail
 
 
        ;; *******************************************************************
        ;; check A -> Br path of XABR
        ;;
        lbi     0, 0            ; set Bd
 
        ;; check for Br = 3
        clra
        aisc    0x3
        xabr
        ;; expect 0x7 @ 3, 0
        clra
        aisc    0x7
        ske
        jmp     fail
 
        ;; check for Br = 2
        clra
        aisc    0x2
        xabr
        ;; expect 0x6 @ 2, 0
        clra
        aisc    0x6
        ske
        jmp     fail
 
        ;; check for Br = 1
        clra
        aisc    0x1
        xabr
        ;; expect 0x5 @ 1, 0
        clra
        aisc    0x5
        ske
        jmp     fail
 
        ;; check for Br = 0
        clra
        xabr
        ;; expect 0x4 @ 0, 0
        clra
        aisc    0x4
        ske
        jmp     fail
 
 
        jmp     pass
 
 
        include "pass_fail.asm"

Line No.	Rev	Author	Line
1	34	arniml	`;; *******************************************************************`
2	179	arniml	`;; $Id: test.asm 179 2009-04-01 19:48:38Z arniml $`
3	34	arniml	`;;`
4			`;; Checks the XABR instruction.`
5			`;;`
6
7			`;; the cpu type is defined on asl's command line`
8
9			`org 0x00`
10			`clra`
11
12			`;; preload digit 0 of all registers with different data`
13			`lbi 0, 0`
14			`stii 0x4`
15			`stii 0x0 ; register number`
16			`lbi 1, 0`
17			`stii 0x5`
18			`stii 0x1 ; register number`
19			`lbi 2, 0`
20			`stii 0x6`
21			`stii 0x2 ; register number`
22			`lbi 3, 0`
23			`stii 0x7`
24			`stii 0x3 ; register number`
25
26
27			`;; *******************************************************************`
28			`;; check Br -> A path of XABR`
29			`;;`
30			`lbi 0, 0`
31			`xabr`
32			`lbi 0, 1`
33			`ske ; check against preloaded register number`
34			`jmp fail`
35			`;;`
36			`lbi 1, 0`
37			`xabr`
38			`lbi 1, 1`
39			`ske ; check against preloaded register number`
40			`jmp fail`
41			`;;`
42			`lbi 2, 0`
43			`xabr`
44			`lbi 2, 1`
45			`ske ; check against preloaded register number`
46			`jmp fail`
47			`;;`
48			`lbi 3, 0`
49			`xabr`
50			`lbi 3, 1`
51			`ske ; check against preloaded register number`
52			`jmp fail`
53
54
55			`;; *******************************************************************`
56			`;; check A -> Br path of XABR`
57			`;;`
58			`lbi 0, 0 ; set Bd`
59
60			`;; check for Br = 3`
61			`clra`
62			`aisc 0x3`
63			`xabr`
64			`;; expect 0x7 @ 3, 0`
65			`clra`
66			`aisc 0x7`
67			`ske`
68			`jmp fail`
69
70			`;; check for Br = 2`
71			`clra`
72			`aisc 0x2`
73			`xabr`
74			`;; expect 0x6 @ 2, 0`
75			`clra`
76			`aisc 0x6`
77			`ske`
78			`jmp fail`
79
80			`;; check for Br = 1`
81			`clra`
82			`aisc 0x1`
83			`xabr`
84			`;; expect 0x5 @ 1, 0`
85			`clra`
86			`aisc 0x5`
87			`ske`
88			`jmp fail`
89
90			`;; check for Br = 0`
91			`clra`
92			`xabr`
93			`;; expect 0x4 @ 0, 0`
94			`clra`
95			`aisc 0x4`
96			`ske`
97			`jmp fail`
98
99
100			`jmp pass`
101
102
103			`include "pass_fail.asm"`

Browse

Tools

Subversion Repositories t400

[/] [t400/] [trunk/] [sw/] [verif/] [black_box/] [xabr/] [test.asm] - Blame information for rev 179