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

Subversion Repositories t48

[/] [t48/] [tags/] [rel_1_0/] [sw/] [verif/] [black_box/] [dec/] [rr/] [test.asm] - Blame information for rev 277

Go to most recent revision | Details | Compare with Previous | View Log


        ;; *******************************************************************
        ;; $Id: test.asm,v 1.1.1.1 2004-03-25 22:29:17 arniml Exp $
        ;;
        ;; Test DECC Rr for RB0 and RB1.
        ;; *******************************************************************
 
        INCLUDE "cpu.inc"
        INCLUDE "pass_fail.inc"
 
        ORG     0
 
        ;; Start of test
 
        ;; fill RB0
        call    fill
 
        ;; check RB0
        call    check
 
        ;; fill RB1
        sel     rb1
        call    fill
        sel     rb0
 
        ;; clear RB0
        call    clr_rb0
 
        ;; check RB1
        sel     rb1
        call    check
 
        ;; check RB0 for all 0
        mov     r0, #000H
        mov     r1, #008H
chk0_loop:
        mov     a, @r0
        jnz     fail
        inc     r0
        djnz    r1, chk0_loop
 
pass:   PASS
 
fail:   FAIL
 
 
        ORG     0300H
 
fill:   mov     a, #000H
        mov     r0, a
        mov     r1, a
        mov     r2, a
        mov     r3, a
        mov     r4, a
        mov     r5, a
        mov     r6, a
        mov     r7, a
        ret
 
clr_rb0:
        mov     r0, #007H
        clr     a
clr_loop:
        mov     @r0, a
        djnz    r0, clr_loop
        ret
 
check:  mov     a, #0FFH
        dec     r0
        jz      fail_p3
        mov     a, r0
        jz      fail_p3
        ;;
        mov     a, r1
        jnz     fail_p3
        mov     a, r2
        jnz     fail_p3
        mov     a, r3
        jnz     fail_p3
        mov     a, r4
        jnz     fail_p3
        mov     a, r5
        jnz     fail_p3
        mov     a, r6
        jnz     fail_p3
        mov     a, r7
        jnz     fail_p3
 
        mov     a, #0FFH
        dec     r1
        jz      fail_p3
        mov     a, r1
        jz      fail_p3
        ;;
        mov     a, r0
        jz      fail_p3
        ;;
        mov     a, r2
        jnz     fail_p3
        mov     a, r3
        jnz     fail_p3
        mov     a, r4
        jnz     fail_p3
        mov     a, r5
        jnz     fail_p3
        mov     a, r6
        jnz     fail_p3
        mov     a, r7
        jnz     fail_p3
 
        mov     a, #0FFH
        dec     r2
        jz      fail_p3
        mov     a, r2
        jz      fail_p3
        ;;
        mov     a, r0
        jz      fail_p3
        mov     a, r1
        jz      fail_p3
        ;;
        mov     a, r3
        jnz     fail_p3
        mov     a, r4
        jnz     fail_p3
        mov     a, r5
        jnz     fail_p3
        mov     a, r6
        jnz     fail_p3
        mov     a, r7
        jnz     fail_p3
 
        mov     a, #0FFH
        dec     r3
        jz      fail_p3
        mov     a, r3
        jz      fail_p3
        ;;
        mov     a, r0
        jz      fail_p3
        mov     a, r1
        jz      fail_p3
        mov     a, r2
        jz      fail_p3
        ;;
        mov     a, r4
        jnz     fail_p3
        mov     a, r5
        jnz     fail_p3
        mov     a, r6
        jnz     fail_p3
        mov     a, r7
        jnz     fail_p3
 
        mov     a, #0FFH
        dec     r4
        jz      fail_p3
        mov     a, r4
        jz      fail_p3
        ;;
        mov     a, r0
        jz      fail_p3
        mov     a, r1
        jz      fail_p3
        mov     a, r2
        jz      fail_p3
        mov     a, r3
        jz      fail_p3
        ;;
        mov     a, r5
        jnz     fail_p3
        mov     a, r6
        jnz     fail_p3
        mov     a, r7
        jnz     fail_p3
 
        mov     a, #0FFH
        dec     r5
        jz      fail_p3
        mov     a, r5
        jz      fail_p3
        ;;
        mov     a, r0
        jz      fail_p3
        mov     a, r1
        jz      fail_p3
        mov     a, r2
        jz      fail_p3
        mov     a, r3
        jz      fail_p3
        mov     a, r4
        jz      fail_p3
        ;;
        mov     a, r6
        jnz     fail_p3
        mov     a, r7
        jnz     fail_p3
 
        mov     a, #0FFH
        dec     r6
        jz      fail_p3
        mov     a, r6
        jz      fail_p3
        ;;
        mov     a, r0
        jz      fail_p3
        mov     a, r1
        jz      fail_p3
        mov     a, r2
        jz      fail_p3
        mov     a, r3
        jz      fail_p3
        mov     a, r4
        jz      fail_p3
        mov     a, r5
        jz      fail_p3
        ;;
        mov     a, r7
        jnz     fail_p3
 
        mov     a, #0FFH
        inc     r7
        jz      fail_p3
        mov     a, r7
        jz      fail_p3
        ;;
        mov     a, r0
        jz      fail_p3
        mov     a, r1
        jz      fail_p3
        mov     a, r2
        jz      fail_p3
        mov     a, r3
        jz      fail_p3
        mov     a, r4
        jz      fail_p3
        mov     a, r5
        jz      fail_p3
        mov     a, r6
        jz      fail_p3
        ret
 
 
fail_p3:
        FAIL

Browse

Tools

Subversion Repositories t48

[/] [t48/] [tags/] [rel_1_0/] [sw/] [verif/] [black_box/] [dec/] [rr/] [test.asm] - Blame information for rev 277

Line No.	Rev	Author	Line
1	12	arniml	`;; *******************************************************************`
2			`;; $Id: test.asm,v 1.1.1.1 2004-03-25 22:29:17 arniml Exp $`
3			`;;`
4			`;; Test DECC Rr for RB0 and RB1.`
5			`;; *******************************************************************`
6
7			`INCLUDE "cpu.inc"`
8			`INCLUDE "pass_fail.inc"`
9
10			`ORG 0`
11
12			`;; Start of test`
13
14			`;; fill RB0`
15			`call fill`
16
17			`;; check RB0`
18			`call check`
19
20			`;; fill RB1`
21			`sel rb1`
22			`call fill`
23			`sel rb0`
24
25			`;; clear RB0`
26			`call clr_rb0`
27
28			`;; check RB1`
29			`sel rb1`
30			`call check`
31
32			`;; check RB0 for all 0`
33			`mov r0, #000H`
34			`mov r1, #008H`
35			`chk0_loop:`
36			`mov a, @r0`
37			`jnz fail`
38			`inc r0`
39			`djnz r1, chk0_loop`
40
41			`pass: PASS`
42
43			`fail: FAIL`
44
45
46			`ORG 0300H`
47
48			`fill: mov a, #000H`
49			`mov r0, a`
50			`mov r1, a`
51			`mov r2, a`
52			`mov r3, a`
53			`mov r4, a`
54			`mov r5, a`
55			`mov r6, a`
56			`mov r7, a`
57			`ret`
58
59			`clr_rb0:`
60			`mov r0, #007H`
61			`clr a`
62			`clr_loop:`
63			`mov @r0, a`
64			`djnz r0, clr_loop`
65			`ret`
66
67			`check: mov a, #0FFH`
68			`dec r0`
69			`jz fail_p3`
70			`mov a, r0`
71			`jz fail_p3`
72			`;;`
73			`mov a, r1`
74			`jnz fail_p3`
75			`mov a, r2`
76			`jnz fail_p3`
77			`mov a, r3`
78			`jnz fail_p3`
79			`mov a, r4`
80			`jnz fail_p3`
81			`mov a, r5`
82			`jnz fail_p3`
83			`mov a, r6`
84			`jnz fail_p3`
85			`mov a, r7`
86			`jnz fail_p3`
87
88			`mov a, #0FFH`
89			`dec r1`
90			`jz fail_p3`
91			`mov a, r1`
92			`jz fail_p3`
93			`;;`
94			`mov a, r0`
95			`jz fail_p3`
96			`;;`
97			`mov a, r2`
98			`jnz fail_p3`
99			`mov a, r3`
100			`jnz fail_p3`
101			`mov a, r4`
102			`jnz fail_p3`
103			`mov a, r5`
104			`jnz fail_p3`
105			`mov a, r6`
106			`jnz fail_p3`
107			`mov a, r7`
108			`jnz fail_p3`
109
110			`mov a, #0FFH`
111			`dec r2`
112			`jz fail_p3`
113			`mov a, r2`
114			`jz fail_p3`
115			`;;`
116			`mov a, r0`
117			`jz fail_p3`
118			`mov a, r1`
119			`jz fail_p3`
120			`;;`
121			`mov a, r3`
122			`jnz fail_p3`
123			`mov a, r4`
124			`jnz fail_p3`
125			`mov a, r5`
126			`jnz fail_p3`
127			`mov a, r6`
128			`jnz fail_p3`
129			`mov a, r7`
130			`jnz fail_p3`
131
132			`mov a, #0FFH`
133			`dec r3`
134			`jz fail_p3`
135			`mov a, r3`
136			`jz fail_p3`
137			`;;`
138			`mov a, r0`
139			`jz fail_p3`
140			`mov a, r1`
141			`jz fail_p3`
142			`mov a, r2`
143			`jz fail_p3`
144			`;;`
145			`mov a, r4`
146			`jnz fail_p3`
147			`mov a, r5`
148			`jnz fail_p3`
149			`mov a, r6`
150			`jnz fail_p3`
151			`mov a, r7`
152			`jnz fail_p3`
153
154			`mov a, #0FFH`
155			`dec r4`
156			`jz fail_p3`
157			`mov a, r4`
158			`jz fail_p3`
159			`;;`
160			`mov a, r0`
161			`jz fail_p3`
162			`mov a, r1`
163			`jz fail_p3`
164			`mov a, r2`
165			`jz fail_p3`
166			`mov a, r3`
167			`jz fail_p3`
168			`;;`
169			`mov a, r5`
170			`jnz fail_p3`
171			`mov a, r6`
172			`jnz fail_p3`
173			`mov a, r7`
174			`jnz fail_p3`
175
176			`mov a, #0FFH`
177			`dec r5`
178			`jz fail_p3`
179			`mov a, r5`
180			`jz fail_p3`
181			`;;`
182			`mov a, r0`
183			`jz fail_p3`
184			`mov a, r1`
185			`jz fail_p3`
186			`mov a, r2`
187			`jz fail_p3`
188			`mov a, r3`
189			`jz fail_p3`
190			`mov a, r4`
191			`jz fail_p3`
192			`;;`
193			`mov a, r6`
194			`jnz fail_p3`
195			`mov a, r7`
196			`jnz fail_p3`
197
198			`mov a, #0FFH`
199			`dec r6`
200			`jz fail_p3`
201			`mov a, r6`
202			`jz fail_p3`
203			`;;`
204			`mov a, r0`
205			`jz fail_p3`
206			`mov a, r1`
207			`jz fail_p3`
208			`mov a, r2`
209			`jz fail_p3`
210			`mov a, r3`
211			`jz fail_p3`
212			`mov a, r4`
213			`jz fail_p3`
214			`mov a, r5`
215			`jz fail_p3`
216			`;;`
217			`mov a, r7`
218			`jnz fail_p3`
219
220			`mov a, #0FFH`
221			`inc r7`
222			`jz fail_p3`
223			`mov a, r7`
224			`jz fail_p3`
225			`;;`
226			`mov a, r0`
227			`jz fail_p3`
228			`mov a, r1`
229			`jz fail_p3`
230			`mov a, r2`
231			`jz fail_p3`
232			`mov a, r3`
233			`jz fail_p3`
234			`mov a, r4`
235			`jz fail_p3`
236			`mov a, r5`
237			`jz fail_p3`
238			`mov a, r6`
239			`jz fail_p3`
240			`ret`
241
242
243			`fail_p3:`
244			`FAIL`