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

Subversion Repositories t400

[/] [t400/] [trunk/] [sw/] [verif/] [black_box/] [xas/] [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 XAS instruction.
        ;;
 
        ;; the cpu type is defined on asl's command line
 
        org     0x00
        clra
 
        ;; *******************************************************************
        ;; Test counter functionality
        ;;
        lei     0x5
        ;; enable counter
        clra
        camq
 
        ;; clear SKL
        xas
        nop                     ; spend some time to let effect of SKL
        nop                     ; falling edge pass by
        nop                     ;
 
        ;; -------------------------------------------------------------------
        ;; step 1
        ;; decrement counter from 1 to 0
        ;; test SO by controlling SI via SO
        ;;
        ;; load 0x1 to counter
        clra
        aisc    0x1
        xas
        ;; decrement via SO
        lei     0xd
        nop                     ; ensure minimum '1' duration
        lei     0x5
        nop                     ;
        nop                     ; ensure minimum '0' duration
        nop                     ;
        xas
        ;; check for 0x0
        xad     3, 15
        clra
        x       0
        xad     3, 15
        ske
        jmp     fail
 
        ;; -------------------------------------------------------------------
        ;; step 2
        ;; decrement counter from 0 to 0xf
        ;; test SKL by controlling SI via SK
        ;;
        ;; set SKL to '1'
        sc                      ; SKL = '1'
        xas
        ;; load 0x0 to counter, decrement via SK
        clra
        rc
        xas
        nop                     ;
        nop                     ; ensure minimum '0' duration
        nop                     ;
        xas
        ;; check for 0xf
        xad     3, 15
        clra
        aisc    0xf
        x       0
        xad     3, 15
        ske
        jmp     fail
 
 
        ;; -------------------------------------------------------------------
        ;; step 3
        ;; check minimum high time on SI
        ;;
        ;; load 0x0 to counter
        clra
        xas
        ;; clock on SI
        lei     0xd
        lei     0x5             ; high time too short
        nop                     ;
        nop                     ; ensure minimum '0' duration
        nop                     ;
        xas
        ;; check for 0x0
        xad     3, 15
        clra
        x       0
        xad     3, 15
        ske
        jmp     fail
 
        ;; -------------------------------------------------------------------
        ;; step 4
        ;; check minimum low time on SI
        ;;
        ;; load 0x0 to counter
        clra
        xas
        ;; clock on SI
        lei     0xd
        nop                     ; ensure minimum '1' duration
        lei     0x5
        lei     0xd             ; low time too short
        xas
        ;; check for 0x0
        xad     3, 15
        clra
        x       0
        xad     3, 15
        ske
        jmp     fail
 
 
        ;; *******************************************************************
        ;; Test shift register functionality
        ;;
        lei     0xc             ; SO = SIO output
        ;; enable shift register
        aisc    0x1
        camq
 
        ;; shift out 0x5
        aisc    0x4
        sc
        xas
        ;;
        nop                     ;
        nop                     ; shift for four clocks on SK
        rc                      ;
        xas                     ; stop SK
        ;; check for 0x2
        xad     3, 15
        clra
        aisc    0x2
        x       0
        xad     3, 15
        ske
        jmp     fail
 
        ;; shift out 0x0
        clra
        sc
        xas
        ;;
        nop                     ;
        nop                     ; shift for four clocks on SK
        rc                      ;
        xas                     ; stop SK
        ;; check for 0x8
        xad     3, 15
        clra
        aisc    0x8
        x       0
        xad     3, 15
        ske
        jmp     fail
 
        ;; now disable SO and check that only '0' is shifted in
        lei     0x4             ; SO = '0'
        ;; shift out 0xf
        clra
        aisc    0xf
        sc
        xas
        ;;
        nop                     ;
        nop                     ; shift for four clocks on SK
        rc                      ;
        xas                     ; stop SK
        ;; check for 0x0
        xad     3, 15
        clra
        x       0
        xad     3, 15
        ske
        jmp     fail
 
        ;; enable SO
        lei     0xc
        ;; shift out 0x1 to force SI to '1' via SO
        clra
        aisc    0x1
        sc
        xas
        ;;
        nop                     ;
        nop                     ; shift for four clocks on SK
        rc                      ;
        xas                     ; stop SK
        ;; shift out 0x0 with disabled SK
        clra
        xas
        ;;
        nop                     ;
        nop                     ; shift for four clocks on SK
        nop                     ;
        xas
        ;; check for 0xf
        xad     3, 15
        clra
        aisc    0xf
        x       0
        xad     3, 15
        ske
        jmp     fail
 
        jmp     pass
 
        org     0x100
        include "pass_fail.asm"

Browse

Tools

Subversion Repositories t400

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

Line No.	Rev	Author	Line
1	6	arniml	`;; *******************************************************************`
2	179	arniml	`;; $Id: test.asm 179 2009-04-01 19:48:38Z arniml $`
3	6	arniml	`;;`
4			`;; Checks the XAS instruction.`
5			`;;`
6
7			`;; the cpu type is defined on asl's command line`
8
9			`org 0x00`
10			`clra`
11
12			`;; *******************************************************************`
13			`;; Test counter functionality`
14			`;;`
15			`lei 0x5`
16			`;; enable counter`
17			`clra`
18			`camq`
19
20			`;; clear SKL`
21			`xas`
22	72	arniml	`nop ; spend some time to let effect of SKL`
23			`nop ; falling edge pass by`
24			`nop ;`
25	6	arniml
26			`;; -------------------------------------------------------------------`
27			`;; step 1`
28			`;; decrement counter from 1 to 0`
29			`;; test SO by controlling SI via SO`
30			`;;`
31			`;; load 0x1 to counter`
32			`clra`
33			`aisc 0x1`
34			`xas`
35			`;; decrement via SO`
36			`lei 0xd`
37			`nop ; ensure minimum '1' duration`
38			`lei 0x5`
39			`nop ;`
40			`nop ; ensure minimum '0' duration`
41			`nop ;`
42			`xas`
43			`;; check for 0x0`
44			`xad 3, 15`
45			`clra`
46			`x 0`
47			`xad 3, 15`
48			`ske`
49			`jmp fail`
50
51			`;; -------------------------------------------------------------------`
52			`;; step 2`
53			`;; decrement counter from 0 to 0xf`
54			`;; test SKL by controlling SI via SK`
55			`;;`
56			`;; set SKL to '1'`
57			`sc ; SKL = '1'`
58			`xas`
59			`;; load 0x0 to counter, decrement via SK`
60			`clra`
61			`rc`
62			`xas`
63			`nop ;`
64			`nop ; ensure minimum '0' duration`
65			`nop ;`
66			`xas`
67			`;; check for 0xf`
68			`xad 3, 15`
69			`clra`
70			`aisc 0xf`
71			`x 0`
72			`xad 3, 15`
73			`ske`
74			`jmp fail`
75
76
77			`;; -------------------------------------------------------------------`
78			`;; step 3`
79			`;; check minimum high time on SI`
80			`;;`
81			`;; load 0x0 to counter`
82			`clra`
83			`xas`
84			`;; clock on SI`
85			`lei 0xd`
86			`lei 0x5 ; high time too short`
87			`nop ;`
88			`nop ; ensure minimum '0' duration`
89			`nop ;`
90			`xas`
91			`;; check for 0x0`
92			`xad 3, 15`
93			`clra`
94			`x 0`
95			`xad 3, 15`
96			`ske`
97			`jmp fail`
98
99			`;; -------------------------------------------------------------------`
100			`;; step 4`
101			`;; check minimum low time on SI`
102			`;;`
103			`;; load 0x0 to counter`
104			`clra`
105			`xas`
106			`;; clock on SI`
107			`lei 0xd`
108			`nop ; ensure minimum '1' duration`
109			`lei 0x5`
110			`lei 0xd ; low time too short`
111			`xas`
112			`;; check for 0x0`
113			`xad 3, 15`
114			`clra`
115			`x 0`
116			`xad 3, 15`
117			`ske`
118			`jmp fail`
119
120
121			`;; *******************************************************************`
122			`;; Test shift register functionality`
123			`;;`
124			`lei 0xc ; SO = SIO output`
125			`;; enable shift register`
126			`aisc 0x1`
127			`camq`
128
129			`;; shift out 0x5`
130			`aisc 0x4`
131			`sc`
132			`xas`
133			`;;`
134			`nop ;`
135			`nop ; shift for four clocks on SK`
136			`rc ;`
137			`xas ; stop SK`
138			`;; check for 0x2`
139			`xad 3, 15`
140			`clra`
141			`aisc 0x2`
142			`x 0`
143			`xad 3, 15`
144			`ske`
145			`jmp fail`
146
147			`;; shift out 0x0`
148			`clra`
149			`sc`
150			`xas`
151			`;;`
152			`nop ;`
153			`nop ; shift for four clocks on SK`
154			`rc ;`
155			`xas ; stop SK`
156			`;; check for 0x8`
157			`xad 3, 15`
158			`clra`
159			`aisc 0x8`
160			`x 0`
161			`xad 3, 15`
162			`ske`
163			`jmp fail`
164
165			`;; now disable SO and check that only '0' is shifted in`
166			`lei 0x4 ; SO = '0'`
167			`;; shift out 0xf`
168			`clra`
169			`aisc 0xf`
170			`sc`
171			`xas`
172			`;;`
173			`nop ;`
174			`nop ; shift for four clocks on SK`
175			`rc ;`
176			`xas ; stop SK`
177			`;; check for 0x0`
178			`xad 3, 15`
179			`clra`
180			`x 0`
181			`xad 3, 15`
182			`ske`
183			`jmp fail`
184
185			`;; enable SO`
186			`lei 0xc`
187			`;; shift out 0x1 to force SI to '1' via SO`
188			`clra`
189			`aisc 0x1`
190			`sc`
191			`xas`
192			`;;`
193			`nop ;`
194			`nop ; shift for four clocks on SK`
195			`rc ;`
196			`xas ; stop SK`
197			`;; shift out 0x0 with disabled SK`
198			`clra`
199			`xas`
200			`;;`
201			`nop ;`
202			`nop ; shift for four clocks on SK`
203			`nop ;`
204			`xas`
205			`;; check for 0xf`
206			`xad 3, 15`
207			`clra`
208			`aisc 0xf`
209			`x 0`
210			`xad 3, 15`
211			`ske`
212			`jmp fail`
213
214			`jmp pass`
215
216			`org 0x100`
217			`include "pass_fail.asm"`