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

Subversion Repositories t400

[/] [t400/] [trunk/] [sw/] [verif/] [black_box/] [xor/] [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 XOR instruction.
        ;;
 
        ;; the cpu type is defined on asl's command line
 
        org     0x00
        clra
 
        ;; preload M with 5
        aisc    0x5
        x       0x0
        ;; preload A with 10
        clra
        aisc    0xa
        ;; test a10 xor m5
        xor
        x       0x0
        clra
        aisc    0xf
        ske
        jmp     fail
 
        ;; preload M with 10
        clra
        aisc    0xa
        x       0x0
        ;; preload A with 5
        clra
        aisc    0x5
        ;; test a5 xor m10
        xor
        x       0x0
        clra
        aisc    0xf
        ske
        jmp     fail
 
        ;; M has 15
        ;; preload A with 0
        clra
        ;; test a0 xor m15
        xor
        ske
        jmp     fail
 
        ;; preload M with 0
        clra
        x       0x0
        ;; A now has 15
        ;; test a15 xor m0
        xor
        x       0x0
        clra
        aisc    0xf
        ske
        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 XOR instruction.`
5			`;;`
6
7			`;; the cpu type is defined on asl's command line`
8
9			`org 0x00`
10			`clra`
11
12			`;; preload M with 5`
13			`aisc 0x5`
14			`x 0x0`
15			`;; preload A with 10`
16			`clra`
17			`aisc 0xa`
18			`;; test a10 xor m5`
19			`xor`
20			`x 0x0`
21			`clra`
22			`aisc 0xf`
23			`ske`
24			`jmp fail`
25
26			`;; preload M with 10`
27			`clra`
28			`aisc 0xa`
29			`x 0x0`
30			`;; preload A with 5`
31			`clra`
32			`aisc 0x5`
33			`;; test a5 xor m10`
34			`xor`
35			`x 0x0`
36			`clra`
37			`aisc 0xf`
38			`ske`
39			`jmp fail`
40
41			`;; M has 15`
42			`;; preload A with 0`
43			`clra`
44			`;; test a0 xor m15`
45			`xor`
46			`ske`
47			`jmp fail`
48
49			`;; preload M with 0`
50			`clra`
51			`x 0x0`
52			`;; A now has 15`
53			`;; test a15 xor m0`
54			`xor`
55			`x 0x0`
56			`clra`
57			`aisc 0xf`
58			`ske`
59			`jmp fail`
60
61			`jmp pass`
62
63			`org 0x100`
64			`include "pass_fail.asm"`

Browse

Tools

Subversion Repositories t400

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