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

Subversion Repositories t48

[/] [t48/] [tags/] [rel_0_4_beta/] [sw/] [verif/] [black_box/] [inc/] [rr/] [test.asm] - Blame information for rev 292

Details | Compare with Previous | View Log


        ;; *******************************************************************
        ;; $Id: test.asm,v 1.1.1.1 2004-03-25 22:29:16 arniml Exp $
        ;;
        ;; Test INC 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, #0FFH
        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, #000H
        inc     r0
        jnz     fail_p3
        mov     a, r0
        jnz     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
        mov     a, r7
        jz      fail_p3
 
        mov     a, #000H
        inc     r1
        jnz     fail_p3
        mov     a, r1
        jnz     fail_p3
        ;;
        mov     a, r0
        jnz     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
        mov     a, r7
        jz      fail_p3
 
        mov     a, #000H
        inc     r2
        jnz     fail_p3
        mov     a, r2
        jnz     fail_p3
        ;;
        mov     a, r0
        jnz     fail_p3
        mov     a, r1
        jnz     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
        mov     a, r7
        jz      fail_p3
 
        mov     a, #000H
        inc     r3
        jnz     fail_p3
        mov     a, r3
        jnz     fail_p3
        ;;
        mov     a, r0
        jnz     fail_p3
        mov     a, r1
        jnz     fail_p3
        mov     a, r2
        jnz     fail_p3
        ;;
        mov     a, r4
        jz      fail_p3
        mov     a, r5
        jz      fail_p3
        mov     a, r6
        jz      fail_p3
        mov     a, r7
        jz      fail_p3
 
        mov     a, #000H
        inc     r4
        jnz     fail_p3
        mov     a, r4
        jnz     fail_p3
        ;;
        mov     a, r0
        jnz     fail_p3
        mov     a, r1
        jnz     fail_p3
        mov     a, r2
        jnz     fail_p3
        mov     a, r3
        jnz     fail_p3
        ;;
        mov     a, r5
        jz      fail_p3
        mov     a, r6
        jz      fail_p3
        mov     a, r7
        jz      fail_p3
 
        mov     a, #000H
        inc     r5
        jnz     fail_p3
        mov     a, r5
        jnz     fail_p3
        ;;
        mov     a, r0
        jnz     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, r6
        jz      fail_p3
        mov     a, r7
        jz      fail_p3
 
        mov     a, #000H
        inc     r6
        jnz     fail_p3
        mov     a, r6
        jnz     fail_p3
        ;;
        mov     a, r0
        jnz     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, r7
        jz      fail_p3
 
        mov     a, #000H
        inc     r7
        jnz     fail_p3
        mov     a, r7
        jnz     fail_p3
        ;;
        mov     a, r0
        jnz     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
        ret
 
fail_p3:
        FAIL

Browse

Tools

Subversion Repositories t48

[/] [t48/] [tags/] [rel_0_4_beta/] [sw/] [verif/] [black_box/] [inc/] [rr/] [test.asm] - Blame information for rev 292

Line No.	Rev	Author	Line
1	12	arniml	`;; *******************************************************************`
2			`;; $Id: test.asm,v 1.1.1.1 2004-03-25 22:29:16 arniml Exp $`
3			`;;`
4			`;; Test INC 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
42			`pass: PASS`
43
44			`fail: FAIL`
45
46
47			`ORG 0300H`
48			`fill: mov a, #0FFH`
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, #000H`
68			`inc r0`
69			`jnz fail_p3`
70			`mov a, r0`
71			`jnz fail_p3`
72			`;;`
73			`mov a, r1`
74			`jz fail_p3`
75			`mov a, r2`
76			`jz fail_p3`
77			`mov a, r3`
78			`jz fail_p3`
79			`mov a, r4`
80			`jz fail_p3`
81			`mov a, r5`
82			`jz fail_p3`
83			`mov a, r6`
84			`jz fail_p3`
85			`mov a, r7`
86			`jz fail_p3`
87
88			`mov a, #000H`
89			`inc r1`
90			`jnz fail_p3`
91			`mov a, r1`
92			`jnz fail_p3`
93			`;;`
94			`mov a, r0`
95			`jnz fail_p3`
96			`;;`
97			`mov a, r2`
98			`jz fail_p3`
99			`mov a, r3`
100			`jz fail_p3`
101			`mov a, r4`
102			`jz fail_p3`
103			`mov a, r5`
104			`jz fail_p3`
105			`mov a, r6`
106			`jz fail_p3`
107			`mov a, r7`
108			`jz fail_p3`
109
110			`mov a, #000H`
111			`inc r2`
112			`jnz fail_p3`
113			`mov a, r2`
114			`jnz fail_p3`
115			`;;`
116			`mov a, r0`
117			`jnz fail_p3`
118			`mov a, r1`
119			`jnz fail_p3`
120			`;;`
121			`mov a, r3`
122			`jz fail_p3`
123			`mov a, r4`
124			`jz fail_p3`
125			`mov a, r5`
126			`jz fail_p3`
127			`mov a, r6`
128			`jz fail_p3`
129			`mov a, r7`
130			`jz fail_p3`
131
132			`mov a, #000H`
133			`inc r3`
134			`jnz fail_p3`
135			`mov a, r3`
136			`jnz fail_p3`
137			`;;`
138			`mov a, r0`
139			`jnz fail_p3`
140			`mov a, r1`
141			`jnz fail_p3`
142			`mov a, r2`
143			`jnz fail_p3`
144			`;;`
145			`mov a, r4`
146			`jz fail_p3`
147			`mov a, r5`
148			`jz fail_p3`
149			`mov a, r6`
150			`jz fail_p3`
151			`mov a, r7`
152			`jz fail_p3`
153
154			`mov a, #000H`
155			`inc r4`
156			`jnz fail_p3`
157			`mov a, r4`
158			`jnz fail_p3`
159			`;;`
160			`mov a, r0`
161			`jnz fail_p3`
162			`mov a, r1`
163			`jnz fail_p3`
164			`mov a, r2`
165			`jnz fail_p3`
166			`mov a, r3`
167			`jnz fail_p3`
168			`;;`
169			`mov a, r5`
170			`jz fail_p3`
171			`mov a, r6`
172			`jz fail_p3`
173			`mov a, r7`
174			`jz fail_p3`
175
176			`mov a, #000H`
177			`inc r5`
178			`jnz fail_p3`
179			`mov a, r5`
180			`jnz fail_p3`
181			`;;`
182			`mov a, r0`
183			`jnz fail_p3`
184			`mov a, r1`
185			`jnz fail_p3`
186			`mov a, r2`
187			`jnz fail_p3`
188			`mov a, r3`
189			`jnz fail_p3`
190			`mov a, r4`
191			`jnz fail_p3`
192			`;;`
193			`mov a, r6`
194			`jz fail_p3`
195			`mov a, r7`
196			`jz fail_p3`
197
198			`mov a, #000H`
199			`inc r6`
200			`jnz fail_p3`
201			`mov a, r6`
202			`jnz fail_p3`
203			`;;`
204			`mov a, r0`
205			`jnz fail_p3`
206			`mov a, r1`
207			`jnz fail_p3`
208			`mov a, r2`
209			`jnz fail_p3`
210			`mov a, r3`
211			`jnz fail_p3`
212			`mov a, r4`
213			`jnz fail_p3`
214			`mov a, r5`
215			`jnz fail_p3`
216			`;;`
217			`mov a, r7`
218			`jz fail_p3`
219
220			`mov a, #000H`
221			`inc r7`
222			`jnz fail_p3`
223			`mov a, r7`
224			`jnz fail_p3`
225			`;;`
226			`mov a, r0`
227			`jnz fail_p3`
228			`mov a, r1`
229			`jnz fail_p3`
230			`mov a, r2`
231			`jnz fail_p3`
232			`mov a, r3`
233			`jnz fail_p3`
234			`mov a, r4`
235			`jnz fail_p3`
236			`mov a, r5`
237			`jnz fail_p3`
238			`mov a, r6`
239			`jnz fail_p3`
240			`ret`
241
242			`fail_p3:`
243			`FAIL`