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

Subversion Repositories t400

[/] [t400/] [trunk/] [sw/] [verif/] [black_box/] [skgbz/] [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 SKGBZ instruction.
        ;;
 
        ;; the cpu type is defined on asl's command line
 
        org     0x00
        clra
 
        ;; output 0x0 on G
        x       0x0
        omg
        ;; check G0
        skgbz   0x0
        jmp     fail
        ;; check G1
        skgbz   0x1
        jmp     fail
        ;; check G2
        skgbz   0x2
        jmp     fail
        ;; check G3
        skgbz   0x3
        jmp     fail
 
        ;; output 0x1 on G
        clra
        aisc    0x1
        x       0x0
        omg
        ;; check G0
        skgbz   0x0
        jmp     ok_0
        jmp     fail
ok_0:
        ;; check G1
        skgbz   0x1
        jmp     fail
        ;; check G2
        skgbz   0x2
        jmp     fail
        ;; check G3
        skgbz   0x3
        jmp     fail
 
        ;; output 0x2 on G
        clra
        aisc    0x2
        x       0x0
        omg
        ;; check G0
        skgbz   0x0
        jmp     fail
        ;; check G1
        skgbz   0x1
        jmp     ok_1
        jmp     fail
ok_1:
        ;; check G2
        skgbz   0x2
        jmp     fail
        ;; check G3
        skgbz   0x3
        jmp     fail
 
        ;; output 0x4 on G
        clra
        aisc    0x4
        x       0x0
        omg
        ;; check G0
        skgbz   0x0
        jmp     fail
        ;; check G1
        skgbz   0x1
        jmp     fail
        ;; check G2
        skgbz   0x2
        jmp     ok_2
        jmp     fail
ok_2:
        ;; check G3
        skgbz   0x3
        jmp     fail
 
        ;; output 0x1 on G to break monitoring sequence
        ;; on T411L
        clra
        aisc    0x1
        x       0x0
        omg
 
        ;; output 0x8 on G
        clra
        aisc    0x8
        x       0x0
        omg
        ;; check G0
        skgbz   0x0
        jmp     fail
        ;; check G1
        skgbz   0x1
        jmp     fail
        ;; check G2
        skgbz   0x2
        jmp     fail
        ;; check G3
        skgbz   0x3
        jmp     pass
        jmp     fail
 
        org     0x100
        include "pass_fail.asm"

Line No.	Rev	Author	Line
1	2	arniml	`;; *******************************************************************`
2	179	arniml	`;; $Id: test.asm 179 2009-04-01 19:48:38Z arniml $`
3	2	arniml	`;;`
4			`;; Checks the SKGBZ instruction.`
5			`;;`
6
7			`;; the cpu type is defined on asl's command line`
8
9			`org 0x00`
10			`clra`
11
12			`;; output 0x0 on G`
13			`x 0x0`
14			`omg`
15			`;; check G0`
16			`skgbz 0x0`
17			`jmp fail`
18			`;; check G1`
19			`skgbz 0x1`
20			`jmp fail`
21			`;; check G2`
22			`skgbz 0x2`
23			`jmp fail`
24			`;; check G3`
25			`skgbz 0x3`
26			`jmp fail`
27
28			`;; output 0x1 on G`
29			`clra`
30			`aisc 0x1`
31			`x 0x0`
32			`omg`
33			`;; check G0`
34			`skgbz 0x0`
35			`jmp ok_0`
36			`jmp fail`
37			`ok_0:`
38			`;; check G1`
39			`skgbz 0x1`
40			`jmp fail`
41			`;; check G2`
42			`skgbz 0x2`
43			`jmp fail`
44			`;; check G3`
45			`skgbz 0x3`
46			`jmp fail`
47
48			`;; output 0x2 on G`
49			`clra`
50			`aisc 0x2`
51			`x 0x0`
52			`omg`
53			`;; check G0`
54			`skgbz 0x0`
55			`jmp fail`
56			`;; check G1`
57			`skgbz 0x1`
58			`jmp ok_1`
59			`jmp fail`
60			`ok_1:`
61			`;; check G2`
62			`skgbz 0x2`
63			`jmp fail`
64			`;; check G3`
65			`skgbz 0x3`
66			`jmp fail`
67
68			`;; output 0x4 on G`
69			`clra`
70			`aisc 0x4`
71			`x 0x0`
72			`omg`
73			`;; check G0`
74			`skgbz 0x0`
75			`jmp fail`
76			`;; check G1`
77			`skgbz 0x1`
78			`jmp fail`
79			`;; check G2`
80			`skgbz 0x2`
81			`jmp ok_2`
82			`jmp fail`
83			`ok_2:`
84			`;; check G3`
85			`skgbz 0x3`
86			`jmp fail`
87
88			`;; output 0x1 on G to break monitoring sequence`
89			`;; on T411L`
90			`clra`
91			`aisc 0x1`
92			`x 0x0`
93			`omg`
94
95			`;; output 0x8 on G`
96			`clra`
97			`aisc 0x8`
98			`x 0x0`
99			`omg`
100			`;; check G0`
101			`skgbz 0x0`
102			`jmp fail`
103			`;; check G1`
104			`skgbz 0x1`
105			`jmp fail`
106			`;; check G2`
107			`skgbz 0x2`
108			`jmp fail`
109			`;; check G3`
110			`skgbz 0x3`
111			`jmp pass`
112			`jmp fail`
113
114			`org 0x100`
115			`include "pass_fail.asm"`

Browse

Tools

Subversion Repositories t400

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