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

Subversion Repositories t400

[/] [t400/] [trunk/] [sw/] [verif/] [black_box/] [lqid/] [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 LQID and INL instruction.
        ;;
 
        ;; the cpu type is defined on asl's command line
 
        org     0x00
        clra
 
        ;; preload reference data
        lbi     0, 0
        stii    0x0
        lbi     0, 9
        stii    0x1
        stii    0x2
        stii    0x3
        stii    0x4
        stii    0x5
        stii    0x6
        stii    0x7
 
        lbi     1, 0
        stii    0x8
        lbi     1, 9
        stii    0x9
        stii    0xa
        stii    0xb
        stii    0xc
        stii    0xd
        stii    0xe
        stii    0xf
 
 
load    MACRO   addr, noadd
        lbi     2, 0
        stii    addr & 0x0f
        clra
        IF      noadd <> 1
        aisc    (addr >> 4) & 0x0f
        ENDIF
        lbi     2, 0
        lqid
        inl
        ENDM
 
        ;; enable Q output to L
        lei     0x4
 
        ;;
        load    read_block_0_55, 0
        lbi     0, 8 + 5
        ske
        jmp     fail
        lbi     2, 0
        ske
        jmp     fail
 
        ;;
        load    read_block_0_aa, 0
        lbi     1, 0xa
        ske
        jmp     fail
        lbi     2, 0
        ske
        jmp     fail
 
        ;;
        load    read_block_0_0f, 0
        lbi     1, 0xf
        ske
        jmp     fail
        lbi     2, 0
        clra
        ske
        jmp     fail
 
        ;;
        load    read_block_0_f0, 0
        lbi     0, 0
        ske
        jmp     fail
        lbi     2, 0
        clra
        aisc    0xf
        ske
        jmp     fail
 
        jmp     block_1
 
 
        ;; -------------------------------------------------------------------
        ;; Block 0 testdata
        ;;
        org     0x064
read_block_0_55:
        db      0x55
 
        org     0x071
read_block_0_aa:
        db      0xaa
 
        org     0x0a9
read_block_0_0f:
        db      0x0f
 
        org     0x0ff
read_block_0_f0:
        db      0xf0
 
 
        ;; -------------------------------------------------------------------
        ;; Block 1 testdata
        ;;
        org     0x105
read_block_1_68:
        db      0x68
 
        org     0x120
read_block_1_b1:
        db      0xb1
 
        org     0x17e
read_block_1_04:
        db      0x04
 
        org     0x1c2
read_block_1_db:
        db      0xdb
 
 
        org     0x128
block_1:
        ;;
        load    read_block_1_68, 1
        lbi     1, 0
        ske
        jmp     fail
        lbi     2, 0
        clra
        aisc    0x6
        ske
        jmp     fail
 
        ;;
        load    read_block_1_b1, 0
        lbi     0, 8 + 1
        ske
        jmp     fail
        lbi     2, 0
        clra
        aisc    0xb
        ske
        jmp     fail
 
        ;;
        load    read_block_1_04, 0
        lbi     0, 8 + 4
        ske
        jmp     fail
        lbi     2, 0
        clra
        ske
        jmp     fail
 
        ;;
        load    read_block_1_db, 0
        lbi     1, 0xb
        ske
        jmp     fail
        lbi     2, 0
        clra
        aisc    0xd
        ske
        jmp     fail
 
 
        IF      MOMCPUNAME <> "COP420"
        jmp     pass
        ELSEIF
        jmp     block_2
        ENDIF
 
 
        org     0x180
        include "pass_fail.asm"
 
 
        IF      MOMCPUNAME = "COP420"
 
        ;; -------------------------------------------------------------------
        ;; Block 2 testdata
        ;;
        org     0x211
read_block_2_34:
        db      0x34
 
        org     0x237
read_block_2_91:
        db      0x91
 
        org     0x254
read_block_2_89:
        db      0x89
 
        org     0x296
read_block_2_3c:
        db      0x3c
 
 
        org     0x2b0
block_2:
        ;;
        load    read_block_2_34, 0
        lbi     0, 8 + 4
        ske
        jmp     fail
        lbi     2, 0
        clra
        aisc    0x3
        ske
        jmp     fail
 
        ;;
        load    read_block_2_91, 0
        lbi     0, 8 + 1
        ske
        jmp     fail
        lbi     2, 0
        clra
        aisc    0x9
        ske
        jmp     fail
 
        ;;
        load    read_block_2_89, 0
        lbi     1, 9
        ske
        jmp     fail
        lbi     2, 0
        clra
        aisc    0x8
        ske
        jmp     fail
 
        ;;
        load    read_block_2_3c, 0
        lbi     1, 0xc
        ske
        jmp     fail
        lbi     2, 0
        clra
        aisc    0x3
        ske
        jmp     fail
 
        jmp     block_3
 
 
        ;; -------------------------------------------------------------------
        ;; Block 3 testdata
        ;;
        org     0x300
read_block_3_76:
        db      0x76
 
        org     0x34b
read_block_3_33:
        db      0x33
 
        org     0x3a4
read_block_3_e9:
        db      0xe9
 
        org     0x3e0
read_block_3_9d:
        db      0x9d
 
 
        org     0x350
block_3:
        ;;
        load    read_block_3_76, 1
        lbi     0, 8 + 6
        ske
        jmp     fail
        lbi     2, 0
        clra
        aisc    0x7
        ske
        jmp     fail
 
        ;;
        load    read_block_3_33, 0
        lbi     0, 8 + 3
        ske
        jmp     fail
        lbi     2, 0
        clra
        aisc    0x3
        ske
        jmp     fail
 
        ;;
        load    read_block_3_e9, 0
        lbi     1, 9
        ske
        jmp     fail
        lbi     2, 0
        clra
        aisc    0xe
        ske
        jmp     fail
 
        ;;
        load    read_block_3_9d, 0
        lbi     1, 0xd
        ske
        jmp     fail
        lbi     2, 0
        clra
        aisc    0x9
        ske
        jmp     fail
 
        jmp     pass
 
        ENDIF

Browse

Tools

Subversion Repositories t400

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

Line No.	Rev	Author	Line
1	41	arniml	`;; *******************************************************************`
2	179	arniml	`;; $Id: test.asm 179 2009-04-01 19:48:38Z arniml $`
3	41	arniml	`;;`
4	42	arniml	`;; Checks the LQID and INL instruction.`
5	41	arniml	`;;`
6
7			`;; the cpu type is defined on asl's command line`
8
9			`org 0x00`
10			`clra`
11
12			`;; preload reference data`
13			`lbi 0, 0`
14			`stii 0x0`
15			`lbi 0, 9`
16			`stii 0x1`
17			`stii 0x2`
18			`stii 0x3`
19			`stii 0x4`
20			`stii 0x5`
21			`stii 0x6`
22			`stii 0x7`
23
24			`lbi 1, 0`
25			`stii 0x8`
26			`lbi 1, 9`
27			`stii 0x9`
28			`stii 0xa`
29			`stii 0xb`
30			`stii 0xc`
31			`stii 0xd`
32			`stii 0xe`
33			`stii 0xf`
34
35
36			`load MACRO addr, noadd`
37			`lbi 2, 0`
38			`stii addr & 0x0f`
39			`clra`
40			`IF noadd <> 1`
41			`aisc (addr >> 4) & 0x0f`
42			`ENDIF`
43			`lbi 2, 0`
44			`lqid`
45			`inl`
46			`ENDM`
47
48			`;; enable Q output to L`
49			`lei 0x4`
50
51			`;;`
52			`load read_block_0_55, 0`
53			`lbi 0, 8 + 5`
54			`ske`
55			`jmp fail`
56			`lbi 2, 0`
57			`ske`
58			`jmp fail`
59
60			`;;`
61			`load read_block_0_aa, 0`
62			`lbi 1, 0xa`
63			`ske`
64			`jmp fail`
65			`lbi 2, 0`
66			`ske`
67			`jmp fail`
68
69			`;;`
70			`load read_block_0_0f, 0`
71			`lbi 1, 0xf`
72			`ske`
73			`jmp fail`
74			`lbi 2, 0`
75			`clra`
76			`ske`
77			`jmp fail`
78
79			`;;`
80			`load read_block_0_f0, 0`
81			`lbi 0, 0`
82			`ske`
83			`jmp fail`
84			`lbi 2, 0`
85			`clra`
86			`aisc 0xf`
87			`ske`
88			`jmp fail`
89
90			`jmp block_1`
91
92
93			`;; -------------------------------------------------------------------`
94			`;; Block 0 testdata`
95			`;;`
96			`org 0x064`
97			`read_block_0_55:`
98			`db 0x55`
99
100			`org 0x071`
101			`read_block_0_aa:`
102			`db 0xaa`
103
104			`org 0x0a9`
105			`read_block_0_0f:`
106			`db 0x0f`
107
108			`org 0x0ff`
109			`read_block_0_f0:`
110			`db 0xf0`
111
112
113			`;; -------------------------------------------------------------------`
114			`;; Block 1 testdata`
115			`;;`
116			`org 0x105`
117			`read_block_1_68:`
118			`db 0x68`
119
120			`org 0x120`
121			`read_block_1_b1:`
122			`db 0xb1`
123
124			`org 0x17e`
125			`read_block_1_04:`
126			`db 0x04`
127
128			`org 0x1c2`
129			`read_block_1_db:`
130			`db 0xdb`
131
132
133			`org 0x128`
134			`block_1:`
135			`;;`
136			`load read_block_1_68, 1`
137			`lbi 1, 0`
138			`ske`
139			`jmp fail`
140			`lbi 2, 0`
141			`clra`
142			`aisc 0x6`
143			`ske`
144			`jmp fail`
145
146			`;;`
147			`load read_block_1_b1, 0`
148			`lbi 0, 8 + 1`
149			`ske`
150			`jmp fail`
151			`lbi 2, 0`
152			`clra`
153			`aisc 0xb`
154			`ske`
155			`jmp fail`
156
157			`;;`
158			`load read_block_1_04, 0`
159			`lbi 0, 8 + 4`
160			`ske`
161			`jmp fail`
162			`lbi 2, 0`
163			`clra`
164			`ske`
165			`jmp fail`
166
167			`;;`
168			`load read_block_1_db, 0`
169			`lbi 1, 0xb`
170			`ske`
171			`jmp fail`
172			`lbi 2, 0`
173			`clra`
174			`aisc 0xd`
175			`ske`
176			`jmp fail`
177
178
179			`IF MOMCPUNAME <> "COP420"`
180			`jmp pass`
181			`ELSEIF`
182			`jmp block_2`
183			`ENDIF`
184
185
186			`org 0x180`
187			`include "pass_fail.asm"`
188
189
190			`IF MOMCPUNAME = "COP420"`
191
192			`;; -------------------------------------------------------------------`
193			`;; Block 2 testdata`
194			`;;`
195			`org 0x211`
196			`read_block_2_34:`
197			`db 0x34`
198
199			`org 0x237`
200			`read_block_2_91:`
201			`db 0x91`
202
203			`org 0x254`
204			`read_block_2_89:`
205			`db 0x89`
206
207			`org 0x296`
208			`read_block_2_3c:`
209			`db 0x3c`
210
211
212			`org 0x2b0`
213			`block_2:`
214			`;;`
215			`load read_block_2_34, 0`
216			`lbi 0, 8 + 4`
217			`ske`
218			`jmp fail`
219			`lbi 2, 0`
220			`clra`
221			`aisc 0x3`
222			`ske`
223			`jmp fail`
224
225			`;;`
226			`load read_block_2_91, 0`
227			`lbi 0, 8 + 1`
228			`ske`
229			`jmp fail`
230			`lbi 2, 0`
231			`clra`
232			`aisc 0x9`
233			`ske`
234			`jmp fail`
235
236			`;;`
237			`load read_block_2_89, 0`
238			`lbi 1, 9`
239			`ske`
240			`jmp fail`
241			`lbi 2, 0`
242			`clra`
243			`aisc 0x8`
244			`ske`
245			`jmp fail`
246
247			`;;`
248			`load read_block_2_3c, 0`
249			`lbi 1, 0xc`
250			`ske`
251			`jmp fail`
252			`lbi 2, 0`
253			`clra`
254			`aisc 0x3`
255			`ske`
256			`jmp fail`
257
258			`jmp block_3`
259
260
261			`;; -------------------------------------------------------------------`
262			`;; Block 3 testdata`
263			`;;`
264			`org 0x300`
265			`read_block_3_76:`
266			`db 0x76`
267
268			`org 0x34b`
269			`read_block_3_33:`
270			`db 0x33`
271
272			`org 0x3a4`
273			`read_block_3_e9:`
274			`db 0xe9`
275
276			`org 0x3e0`
277			`read_block_3_9d:`
278			`db 0x9d`
279
280
281			`org 0x350`
282			`block_3:`
283			`;;`
284			`load read_block_3_76, 1`
285			`lbi 0, 8 + 6`
286			`ske`
287			`jmp fail`
288			`lbi 2, 0`
289			`clra`
290			`aisc 0x7`
291			`ske`
292			`jmp fail`
293
294			`;;`
295			`load read_block_3_33, 0`
296			`lbi 0, 8 + 3`
297			`ske`
298			`jmp fail`
299			`lbi 2, 0`
300			`clra`
301			`aisc 0x3`
302			`ske`
303			`jmp fail`
304
305			`;;`
306			`load read_block_3_e9, 0`
307			`lbi 1, 9`
308			`ske`
309			`jmp fail`
310			`lbi 2, 0`
311			`clra`
312			`aisc 0xe`
313			`ske`
314			`jmp fail`
315
316			`;;`
317			`load read_block_3_9d, 0`
318			`lbi 1, 0xd`
319			`ske`
320			`jmp fail`
321			`lbi 2, 0`
322			`clra`
323			`aisc 0x9`
324			`ske`
325			`jmp fail`
326
327			`jmp pass`
328
329			`ENDIF`