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

Subversion Repositories t400

[/] [t400/] [trunk/] [sw/] [verif/] [black_box/] [casc/] [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 CASC instruction.
        ;;
 
        ;; the cpu type is defined on asl's command line
 
        org     0x00
        clra
 
        ;; preload M0 with 0x5
        rmb     0x3
        smb     0x2
        rmb     0x1
        smb     0x0
 
        rc
        aisc    0xf
        ;; test /(a15) + m5 + c0
        casc
        jmp     ok_a15_m5_c0_carry
        jmp     fail
ok_a15_m5_c0_carry:
        skc
        jmp     ok_a15_m5_c0_c
        jmp     fail
ok_a15_m5_c0_c:
        ;; expect 0x5 as result
        ske
        jmp     fail
 
        sc
        clra
        aisc    0xa
        ;; test /(a10) + m5 + c1
        casc
        jmp     ok_a10_m5_c1_carry
        jmp     fail
ok_a10_m5_c1_carry:
        skc
        jmp     ok_a10_m5_c1_c
        jmp     fail
ok_a10_m5_c1_c:
        ;; expect 0xb as result
        aisc    0xa
        nop
        ske
        jmp     fail
 
        ;; preload M0 with 0xa
        smb     0x3
        rmb     0x2
        smb     0x1
        rmb     0x0
        ;;
        rc
        clra
        aisc    0x5
        ;; test /(a5) + m10 + c0
        casc
        jmp     fail
        skc
        jmp     fail
        ;; expect 0x4 as result
        aisc    0x6
        ske
        jmp     fail
 
        ;; preload M0 with 0xf
        smb     0x3
        smb     0x2
        smb     0x1
        smb     0x0
        ;;
        sc
        clra
        ;; test /(a0) + m15 + c1
        casc
        jmp     fail
        skc
        jmp     fail
        ;; expect 0xf as result
        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 CASC instruction.`
5			`;;`
6
7			`;; the cpu type is defined on asl's command line`
8
9			`org 0x00`
10			`clra`
11
12	23	arniml	`;; preload M0 with 0x5`
13			`rmb 0x3`
14			`smb 0x2`
15			`rmb 0x1`
16			`smb 0x0`
17	2	arniml
18			`rc`
19	23	arniml	`aisc 0xf`
20			`;; test /(a15) + m5 + c0`
21	2	arniml	`casc`
22			`jmp ok_a15_m5_c0_carry`
23			`jmp fail`
24			`ok_a15_m5_c0_carry:`
25			`skc`
26			`jmp ok_a15_m5_c0_c`
27			`jmp fail`
28			`ok_a15_m5_c0_c:`
29	23	arniml	`;; expect 0x5 as result`
30	2	arniml	`ske`
31			`jmp fail`
32
33	23	arniml	`sc`
34			`clra`
35			`aisc 0xa`
36			`;; test /(a10) + m5 + c1`
37			`casc`
38			`jmp ok_a10_m5_c1_carry`
39			`jmp fail`
40			`ok_a10_m5_c1_carry:`
41			`skc`
42			`jmp ok_a10_m5_c1_c`
43			`jmp fail`
44			`ok_a10_m5_c1_c:`
45			`;; expect 0xb as result`
46			`aisc 0xa`
47			`nop`
48			`ske`
49			`jmp fail`
50	2	arniml
51	23	arniml	`;; preload M0 with 0xa`
52			`smb 0x3`
53			`rmb 0x2`
54			`smb 0x1`
55			`rmb 0x0`
56			`;;`
57			`rc`
58			`clra`
59			`aisc 0x5`
60			`;; test /(a5) + m10 + c0`
61			`casc`
62			`jmp fail`
63			`skc`
64			`jmp fail`
65			`;; expect 0x4 as result`
66			`aisc 0x6`
67			`ske`
68			`jmp fail`
69
70			`;; preload M0 with 0xf`
71			`smb 0x3`
72			`smb 0x2`
73			`smb 0x1`
74			`smb 0x0`
75			`;;`
76			`sc`
77			`clra`
78			`;; test /(a0) + m15 + c1`
79			`casc`
80			`jmp fail`
81			`skc`
82			`jmp fail`
83			`;; expect 0xf as result`
84			`ske`
85			`jmp fail`
86
87
88	2	arniml	`jmp pass`
89
90			`org 0x100`
91			`include "pass_fail.asm"`

Browse

Tools

Subversion Repositories t400

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