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

Subversion Repositories t400

[/] [t400/] [trunk/] [sw/] [verif/] [black_box/] [skgz/] [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 SKGZ instruction.
        ;;
 
        ;; the cpu type is defined on asl's command line
 
        org     0x00
        clra
 
        ;; output 0x1 on G
        aisc    0x1
        x       0x0
        omg
        ;; check no skip on 0x1
        skgz
        jmp     ok_1
        jmp     fail
ok_1:
 
        ;; output 0x2 on G
        clra
        aisc    0x2
        x       0x0
        omg
        ;; check no skip on 0x2
        skgz
        jmp     ok_2
        jmp     fail
ok_2:
 
        ;; output 0x4 on G
        clra
        aisc    0x4
        x       0x0
        omg
        ;; check no skip on 0x4
        skgz
        jmp     ok_4
        jmp     fail
ok_4:
 
        ;; output 0x1 on G to break G monitoring sequence
        clra
        aisc    0x1
        x       0x0
        omg
 
        ;; output 0x8 on G
        clra
        aisc    0x8
        x       0x0
        omg
        ;; check no skip on 0x8
        skgz
        jmp     ok_8
        jmp     fail
ok_8:
 
 
        ;; output 0x0 on G
        clra
        x       0x0
        omg
        ;; check skip on 0x0
        skgz
        jmp     fail
        jmp     pass
 
        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 SKGZ instruction.`
5			`;;`
6
7			`;; the cpu type is defined on asl's command line`
8
9			`org 0x00`
10			`clra`
11
12			`;; output 0x1 on G`
13			`aisc 0x1`
14			`x 0x0`
15			`omg`
16			`;; check no skip on 0x1`
17			`skgz`
18			`jmp ok_1`
19			`jmp fail`
20			`ok_1:`
21
22			`;; output 0x2 on G`
23			`clra`
24			`aisc 0x2`
25			`x 0x0`
26			`omg`
27			`;; check no skip on 0x2`
28			`skgz`
29			`jmp ok_2`
30			`jmp fail`
31			`ok_2:`
32
33			`;; output 0x4 on G`
34			`clra`
35			`aisc 0x4`
36			`x 0x0`
37			`omg`
38			`;; check no skip on 0x4`
39			`skgz`
40			`jmp ok_4`
41			`jmp fail`
42			`ok_4:`
43
44			`;; output 0x1 on G to break G monitoring sequence`
45			`clra`
46			`aisc 0x1`
47			`x 0x0`
48			`omg`
49
50			`;; output 0x8 on G`
51			`clra`
52			`aisc 0x8`
53			`x 0x0`
54			`omg`
55			`;; check no skip on 0x8`
56			`skgz`
57			`jmp ok_8`
58			`jmp fail`
59			`ok_8:`
60
61
62			`;; output 0x0 on G`
63			`clra`
64			`x 0x0`
65			`omg`
66			`;; check skip on 0x0`
67			`skgz`
68			`jmp fail`
69			`jmp pass`
70
71			`org 0x100`
72			`include "pass_fail.asm"`

Browse

Tools

Subversion Repositories t400

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