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

Subversion Repositories t400

[/] [t400/] [trunk/] [sw/] [verif/] [black_box/] [asc/] [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 ASC instruction.
        ;;
 
        ;; the cpu type is defined on asl's command line
 
        org     0x00
        clra
 
        ;; preload M with 0x5
        rmb     0x3
        smb     0x2
        rmb     0x1
        smb     0x0
 
        clra
        rc
        ;; test a0 + m5 + c0
        asc
        jmp     ok_a0_m5_c0_carry
        jmp     fail
ok_a0_m5_c0_carry:
        skc
        jmp     ok_a0_m5_c0_c
        jmp     fail
ok_a0_m5_c0_c:
        ske
        jmp     fail
 
        ;; test a5 + m5 + c0
        asc
        jmp     ok_a5_m5_c0_carry
        jmp     fail
ok_a5_m5_c0_carry:
        skc
        jmp     ok_a5_m5_c0_c
        jmp     fail
ok_a5_m5_c0_c:
        aisc    16+5 - 10
        nop
        ske
        jmp     fail
 
        rc
        asc
        ;; test a10 + m5 + c0
        asc
        jmp     ok_a10_m5_c0_carry
        jmp     fail
ok_a10_m5_c0_carry:
        skc
        jmp     ok_a10_m5_c0_c
        jmp     fail
ok_a10_m5_c0_c:
        aisc    16+5 - 15
        nop
        ske
        jmp     fail
 
        rc
        asc
        asc
        ;; test a15 + m5 + c0
        asc
        jmp     fail
        skc
        jmp     fail
        rc
        aisc    16+5 - 20
        nop
        ske
        jmp     fail
 
        sc
        clra
        ;; test a0 + m5 + c1
        asc
        jmp     ok_a0_m5_c1_carry
        jmp     fail
ok_a0_m5_c1_carry:
        skc
        jmp     ok_a0_m5_c1_c
        jmp     fail
ok_a0_m5_c1_c:
        aisc    16+5 - 6
        nop
        ske
        jmp     fail
 
        sc
        ;; test a5 + m5 + c1
        asc
        jmp     ok_a5_m5_c1_carry
        jmp     fail
ok_a5_m5_c1_carry:
        skc
        jmp     ok_a5_m5_c1_c
        jmp     fail
ok_a5_m5_c1_c:
        aisc    16+5 - 11
        nop
        ske
        jmp     fail
 
        rc
        asc
        sc
        ;; test a10 + m5 + c1
        asc
        jmp     fail
        skc
        jmp     fail
        aisc    16+5 - 16
        nop
        ske
        jmp     fail
 
        rc
        asc
        asc
        sc
        ;; test a15 + m5 + c1
        asc
        jmp     fail
        skc
        jmp     fail
        ;; aisc 16+5 - 21
        nop
        ske
        jmp     fail
 
 
        rc
        aisc    0xa
        x       0x0
        clra
        ;; test a0 + m15 + c0
        asc
        jmp     ok_a0_m15_c0_carry
        jmp     fail
ok_a0_m15_c0_carry:
        skc
        jmp     ok_a0_m15_c0_c
        jmp     fail
ok_a0_m15_c0_c:
        ske
        jmp     fail
 
        rc
        ;; test a15 + m15 + c0
        asc
        jmp     fail
        skc
        jmp     fail
        aisc    16+15 - 30
        nop
        ske
        jmp     fail
 
        sc
        clra
        ;; test a0 + m15 + c1
        asc
        jmp     fail
        skc
        jmp     fail
        aisc    16+15 - 16
        nop
        ske
        jmp     fail
 
        sc
        ;; test a15 + m15 + c1
        asc
        jmp     fail
        skc
        jmp     fail
        ;; aisc 16+15 - 31
        nop
        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 ASC 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 0x5`
13			`rmb 0x3`
14			`smb 0x2`
15			`rmb 0x1`
16			`smb 0x0`
17
18			`clra`
19			`rc`
20			`;; test a0 + m5 + c0`
21			`asc`
22			`jmp ok_a0_m5_c0_carry`
23			`jmp fail`
24			`ok_a0_m5_c0_carry:`
25			`skc`
26			`jmp ok_a0_m5_c0_c`
27			`jmp fail`
28			`ok_a0_m5_c0_c:`
29			`ske`
30			`jmp fail`
31
32			`;; test a5 + m5 + c0`
33			`asc`
34			`jmp ok_a5_m5_c0_carry`
35			`jmp fail`
36			`ok_a5_m5_c0_carry:`
37			`skc`
38			`jmp ok_a5_m5_c0_c`
39			`jmp fail`
40			`ok_a5_m5_c0_c:`
41			`aisc 16+5 - 10`
42			`nop`
43			`ske`
44			`jmp fail`
45
46			`rc`
47			`asc`
48			`;; test a10 + m5 + c0`
49			`asc`
50			`jmp ok_a10_m5_c0_carry`
51			`jmp fail`
52			`ok_a10_m5_c0_carry:`
53			`skc`
54			`jmp ok_a10_m5_c0_c`
55			`jmp fail`
56			`ok_a10_m5_c0_c:`
57			`aisc 16+5 - 15`
58			`nop`
59			`ske`
60			`jmp fail`
61
62			`rc`
63			`asc`
64			`asc`
65			`;; test a15 + m5 + c0`
66			`asc`
67			`jmp fail`
68			`skc`
69			`jmp fail`
70			`rc`
71			`aisc 16+5 - 20`
72			`nop`
73			`ske`
74			`jmp fail`
75
76			`sc`
77			`clra`
78			`;; test a0 + m5 + c1`
79			`asc`
80			`jmp ok_a0_m5_c1_carry`
81			`jmp fail`
82			`ok_a0_m5_c1_carry:`
83			`skc`
84			`jmp ok_a0_m5_c1_c`
85			`jmp fail`
86			`ok_a0_m5_c1_c:`
87			`aisc 16+5 - 6`
88			`nop`
89			`ske`
90			`jmp fail`
91
92			`sc`
93			`;; test a5 + m5 + c1`
94			`asc`
95			`jmp ok_a5_m5_c1_carry`
96			`jmp fail`
97			`ok_a5_m5_c1_carry:`
98			`skc`
99			`jmp ok_a5_m5_c1_c`
100			`jmp fail`
101			`ok_a5_m5_c1_c:`
102			`aisc 16+5 - 11`
103			`nop`
104			`ske`
105			`jmp fail`
106
107			`rc`
108			`asc`
109			`sc`
110			`;; test a10 + m5 + c1`
111			`asc`
112			`jmp fail`
113			`skc`
114			`jmp fail`
115			`aisc 16+5 - 16`
116			`nop`
117			`ske`
118			`jmp fail`
119
120			`rc`
121			`asc`
122			`asc`
123			`sc`
124			`;; test a15 + m5 + c1`
125			`asc`
126			`jmp fail`
127			`skc`
128			`jmp fail`
129	25	arniml	`;; aisc 16+5 - 21`
130	2	arniml	`nop`
131			`ske`
132			`jmp fail`
133
134
135			`rc`
136			`aisc 0xa`
137			`x 0x0`
138			`clra`
139			`;; test a0 + m15 + c0`
140			`asc`
141			`jmp ok_a0_m15_c0_carry`
142			`jmp fail`
143			`ok_a0_m15_c0_carry:`
144			`skc`
145			`jmp ok_a0_m15_c0_c`
146			`jmp fail`
147			`ok_a0_m15_c0_c:`
148			`ske`
149			`jmp fail`
150
151			`rc`
152			`;; test a15 + m15 + c0`
153			`asc`
154			`jmp fail`
155			`skc`
156			`jmp fail`
157			`aisc 16+15 - 30`
158			`nop`
159			`ske`
160			`jmp fail`
161
162			`sc`
163			`clra`
164			`;; test a0 + m15 + c1`
165			`asc`
166			`jmp fail`
167			`skc`
168			`jmp fail`
169			`aisc 16+15 - 16`
170			`nop`
171			`ske`
172			`jmp fail`
173
174			`sc`
175			`;; test a15 + m15 + c1`
176			`asc`
177			`jmp fail`
178			`skc`
179			`jmp fail`
180	25	arniml	`;; aisc 16+15 - 31`
181	2	arniml	`nop`
182			`ske`
183			`jmp fail`
184
185
186			`jmp pass`
187
188			`org 0x100`
189			`include "pass_fail.asm"`

Browse

Tools

Subversion Repositories t400

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