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

Subversion Repositories t400

[/] [t400/] [trunk/] [sw/] [verif/] [black_box/] [ske/] [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 SKE instruction.
        ;;
 
        ;; the cpu type is defined on asl's command line
 
        org     0x00
        clra
 
        ;; test 0 == 0
        x       0x0
        clra
        ske
        jmp     fail
 
        ;; test 5 == 5
        clra
        aisc    0x5
        x       0x0
        ld      0x0
        ske
        jmp     fail
 
        ;; test a == a
        clra
        aisc    0xa
        x       0x0
        ld      0x0
        ske
        jmp     fail
 
        ;; test f == f
        clra
        aisc    0xf
        x       0x0
        ld      0x0
        ske
        jmp     fail
 
        ;; test 0 == f
        clra
        ske
        jmp     ok_0_ne_f
        jmp     fail
 
ok_0_ne_f:
        ;; test f == 0
        x       0x0
        ske
        jmp     ok_f_ne_0
        jmp     fail
 
ok_f_ne_0:
        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 SKE instruction.`
5			`;;`
6
7			`;; the cpu type is defined on asl's command line`
8
9			`org 0x00`
10			`clra`
11
12			`;; test 0 == 0`
13			`x 0x0`
14			`clra`
15			`ske`
16			`jmp fail`
17
18			`;; test 5 == 5`
19			`clra`
20			`aisc 0x5`
21			`x 0x0`
22			`ld 0x0`
23			`ske`
24			`jmp fail`
25
26			`;; test a == a`
27			`clra`
28			`aisc 0xa`
29			`x 0x0`
30			`ld 0x0`
31			`ske`
32			`jmp fail`
33
34			`;; test f == f`
35			`clra`
36			`aisc 0xf`
37			`x 0x0`
38			`ld 0x0`
39			`ske`
40			`jmp fail`
41
42			`;; test 0 == f`
43			`clra`
44			`ske`
45			`jmp ok_0_ne_f`
46			`jmp fail`
47
48			`ok_0_ne_f:`
49			`;; test f == 0`
50			`x 0x0`
51			`ske`
52			`jmp ok_f_ne_0`
53			`jmp fail`
54
55			`ok_f_ne_0:`
56			`jmp pass`
57
58
59			`org 0x100`
60			`include "pass_fail.asm"`

Browse

Tools

Subversion Repositories t400

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