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

Subversion Repositories t400

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

Go to most recent revision | Details | Compare with Previous | View Log


        ;; *******************************************************************
        ;; $Id: test.asm,v 1.1 2006-05-22 23:17:59 arniml Exp $
        ;;
        ;; Checks the ININ instruction.
        ;;
 
        ;; the cpu type is defined on asl's command line
 
        org     0x00
        clra
 
        ;; preload reference data
        stii    0x0
        stii    0x1
        stii    0x2
        stii    0x3
        stii    0x4
        stii    0x5
        stii    0x6
        stii    0x7
        stii    0x8
        stii    0x9
        stii    0xa
        stii    0xb
        stii    0xc
        stii    0xd
        stii    0xe
        stii    0xf
 
        ;; output 0 on G and check
        ogi     0x0
        inin
        lbi     0, 0
        ske
        jmp     fail
 
        ;; output 8 on G and check
        ogi     0x8
        inin
        lbi     0, 8
        ske
        jmp     fail
 
        ;; output 1 on G and check
        ogi     0x1
        inin
        lbi     0, 1
        ske
        jmp     fail
 
        ;; output 4 on G and check
        ogi     0x4
        inin
        lbi     0, 4
        ske
        jmp     fail
 
        ;; output 15 on G and check
        ogi     0xf
        inin
        lbi     0, 15
        ske
        jmp     fail
 
 
 
        jmp     pass
 
 
        org     0x100
        include "pass_fail.asm"

Line No.	Rev	Author	Line
1	50	arniml	`;; *******************************************************************`
2			`;; $Id: test.asm,v 1.1 2006-05-22 23:17:59 arniml Exp $`
3			`;;`
4			`;; Checks the ININ instruction.`
5			`;;`
6
7			`;; the cpu type is defined on asl's command line`
8
9			`org 0x00`
10			`clra`
11
12			`;; preload reference data`
13			`stii 0x0`
14			`stii 0x1`
15			`stii 0x2`
16			`stii 0x3`
17			`stii 0x4`
18			`stii 0x5`
19			`stii 0x6`
20			`stii 0x7`
21			`stii 0x8`
22			`stii 0x9`
23			`stii 0xa`
24			`stii 0xb`
25			`stii 0xc`
26			`stii 0xd`
27			`stii 0xe`
28			`stii 0xf`
29
30			`;; output 0 on G and check`
31			`ogi 0x0`
32			`inin`
33			`lbi 0, 0`
34			`ske`
35			`jmp fail`
36
37			`;; output 8 on G and check`
38			`ogi 0x8`
39			`inin`
40			`lbi 0, 8`
41			`ske`
42			`jmp fail`
43
44			`;; output 1 on G and check`
45			`ogi 0x1`
46			`inin`
47			`lbi 0, 1`
48			`ske`
49			`jmp fail`
50
51			`;; output 4 on G and check`
52			`ogi 0x4`
53			`inin`
54			`lbi 0, 4`
55			`ske`
56			`jmp fail`
57
58			`;; output 15 on G and check`
59			`ogi 0xf`
60			`inin`
61			`lbi 0, 15`
62			`ske`
63			`jmp fail`
64
65
66
67			`jmp pass`
68
69
70			`org 0x100`
71			`include "pass_fail.asm"`

Browse

Tools

Subversion Repositories t400

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