OpenCores
URL https://opencores.org/ocsvn/openmsp430/openmsp430/trunk

Subversion Repositories openmsp430

[/] [openmsp430/] [trunk/] [core/] [sim/] [rtl_sim/] [src/] [sing-op_rrc.s43] - Blame information for rev 145

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

Line No. Rev Author Line
1 2 olivier.gi
/*===========================================================================*/
2
/* Copyright (C) 2001 Authors                                                */
3
/*                                                                           */
4
/* This source file may be used and distributed without restriction provided */
5
/* that this copyright statement is not removed from the file and that any   */
6
/* derivative work contains the original copyright notice and the associated */
7
/* disclaimer.                                                               */
8
/*                                                                           */
9
/* This source file is free software; you can redistribute it and/or modify  */
10
/* it under the terms of the GNU Lesser General Public License as published  */
11
/* by the Free Software Foundation; either version 2.1 of the License, or    */
12
/* (at your option) any later version.                                       */
13
/*                                                                           */
14
/* This source is distributed in the hope that it will be useful, but WITHOUT*/
15
/* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or     */
16
/* FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public       */
17
/* License for more details.                                                 */
18
/*                                                                           */
19
/* You should have received a copy of the GNU Lesser General Public License  */
20
/* along with this source; if not, write to the Free Software Foundation,    */
21
/* Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA        */
22
/*                                                                           */
23
/*===========================================================================*/
24
/*                 SINGLE-OPERAND ARITHMETIC: RRC[.B] INSTRUCTION            */
25
/*---------------------------------------------------------------------------*/
26
/* Test the RRC[.B] instruction.                                             */
27 18 olivier.gi
/*                                                                           */
28
/* Author(s):                                                                */
29
/*             - Olivier Girard,    olgirard@gmail.com                       */
30
/*                                                                           */
31
/*---------------------------------------------------------------------------*/
32 19 olivier.gi
/* $Rev: 141 $                                                                */
33
/* $LastChangedBy: olivier.girard $                                          */
34
/* $LastChangedDate: 2012-05-05 23:22:06 +0200 (Sat, 05 May 2012) $          */
35 2 olivier.gi
/*===========================================================================*/
36
 
37 141 olivier.gi
.include "pmem_defs.asm"
38 2 olivier.gi
 
39
.global main
40
 
41
main:
42
        /* -------------- TEST INSTRUCTION IN WORD MODE ------------------- */
43
 
44
 
45
        # Addressing mode: Rn
46
        #------------------------
47
 
48
        mov     #0x0000, r2        ;# Test 1
49
        mov     #0x3332, r4
50
        rrc          r4            ;# RRC ({C=0, r4=0x3332}  => {r4=0x1999, C=0})
51
        mov          r2, r5
52
 
53
        mov     #0x0000, r2        ;# Test 2
54
        mov     #0x3333, r6
55
        rrc          r6            ;# RRC ({C=0, r6=0x3333}  => {r6=0x1999, C=1})
56
        mov          r2, r7
57
 
58
        mov     #0x0001, r2        ;# Test 3
59
        mov     #0x3332, r8
60
        rrc          r8            ;# RRC ({C=1, r9=0x3332}  => {r9=0x9999, C=0})
61
        mov          r2, r9
62
 
63
        mov     #0x0001, r2        ;# Test 4
64
        mov     #0x3333, r10
65
        rrc         r10            ;# RRC ({C=1, r10=0x3333} => {r10=0x9999, C=1})
66
        mov          r2, r11
67
 
68
        mov     #0x1000, r15
69
 
70
 
71
        # Addressing mode: @Rn
72
        #------------------------
73
 
74
        mov     #0x0000, r2        ;# Test 1
75 111 olivier.gi
        mov     #0x3332, &DMEM_200
76
        mov   #DMEM_200, r4
77
        mov     #0xaaaa, &DMEM_202
78 2 olivier.gi
        rrc         @r4            ;# RRC ({C=0, mem00=0x3332}  => {mem00=0x1999, C=0})
79
        mov          r2, r5
80
 
81
        mov     #0x0000, r2        ;# Test 2
82 111 olivier.gi
        mov     #0x3333, &DMEM_202
83
        mov   #DMEM_202, r6
84
        mov     #0xaaaa, &DMEM_204
85 2 olivier.gi
        rrc         @r6            ;# RRC ({C=0, mem01=0x3333}  => {mem01=0x1999, C=1})
86
        mov          r2, r7
87
 
88
        mov     #0x0001, r2        ;# Test 3
89 111 olivier.gi
        mov     #0x3332, &DMEM_204
90
        mov   #DMEM_204, r8
91
        mov     #0xaaaa, &DMEM_206
92 2 olivier.gi
        rrc         @r8            ;# RRC ({C=1, mem02=0x3332}  => {mem02=0x9999, C=0})
93
        mov          r2, r9
94
 
95
        mov     #0x0001, r2        ;# Test 4
96 111 olivier.gi
        mov     #0x3333, &DMEM_206
97
        mov   #DMEM_206, r10
98
        mov     #0xaaaa, &DMEM_208
99 2 olivier.gi
        rrc        @r10            ;# RRC ({C=1, mem03=0x3333}  => {mem03=0x9999, C=1})
100
        mov          r2, r11
101
 
102
        mov     #0x2000, r15
103
 
104
 
105
        # Addressing mode: @Rn+
106
        #------------------------
107
 
108
        mov     #0x0000, r2        ;# Test 1
109 111 olivier.gi
        mov     #0x3332, &DMEM_208
110
        mov   #DMEM_208, r4
111
        mov     #0xaaaa, &DMEM_20A
112 2 olivier.gi
        rrc        @r4+            ;# RRC ({C=0, mem04=0x3332}  => {mem04=0x1999, C=0})
113
        mov          r2, r5
114
 
115
        mov     #0x0000, r2        ;# Test 2
116 111 olivier.gi
        mov     #0x3333, &DMEM_20A
117
        mov   #DMEM_20A, r6
118
        mov     #0xaaaa, &DMEM_20C
119 2 olivier.gi
        rrc        @r6+            ;# RRC ({C=0, mem05=0x3333}  => {mem05=0x1999, C=1})
120
        mov          r2, r7
121
 
122
        mov     #0x0001, r2        ;# Test 3
123 111 olivier.gi
        mov     #0x3332, &DMEM_20C
124
        mov   #DMEM_20C, r8
125
        mov     #0xaaaa, &DMEM_20E
126 2 olivier.gi
        rrc        @r8+            ;# RRC ({C=1, mem06=0x3332}  => {mem06=0x9999, C=0})
127
        mov          r2, r9
128
 
129
        mov     #0x0001, r2        ;# Test 4
130 111 olivier.gi
        mov     #0x3333, &DMEM_20E
131
        mov   #DMEM_20E, r10
132
        mov     #0xaaaa, &DMEM_210
133 2 olivier.gi
        rrc       @r10+            ;# RRC ({C=1, mem07=0x3333}  => {mem07=0x9999, C=1})
134
        mov          r2, r11
135
 
136
        mov     #0x3000, r15
137
 
138
 
139
        # Addressing mode: X(Rn)
140
        #------------------------
141
 
142
        mov     #0x0000, r2        ;# Test 1
143 111 olivier.gi
        mov     #0x3332, &DMEM_210
144
        mov   #DMEM_200, r4
145
        mov     #0xaaaa, &DMEM_212
146 2 olivier.gi
        rrc       16(r4)            ;# RRC ({C=0, mem08=0x3332}  => {mem08=0x1999, C=0})
147
        mov          r2, r5
148
 
149
        mov     #0x0000, r2        ;# Test 2
150 111 olivier.gi
        mov     #0x3333, &DMEM_212
151
        mov   #DMEM_200, r6
152
        mov     #0xaaaa, &DMEM_214
153 2 olivier.gi
        rrc       18(r6)            ;# RRC ({C=0, mem09=0x3333}  => {mem09=0x1999, C=1})
154
        mov          r2, r7
155
 
156
        mov     #0x0001, r2        ;# Test 3
157 111 olivier.gi
        mov     #0x3332, &DMEM_214
158
        mov   #DMEM_200, r8
159
        mov     #0xaaaa, &DMEM_216
160 2 olivier.gi
        rrc       20(r8)            ;# RRC ({C=1, mem0a=0x3332}  => {mem0a=0x9999, C=0})
161
        mov          r2, r9
162
 
163
        mov     #0x0001, r2        ;# Test 4
164 111 olivier.gi
        mov     #0x3333, &DMEM_216
165
        mov   #DMEM_200, r10
166
        mov     #0xaaaa, &DMEM_218
167 2 olivier.gi
        rrc      22(r10)            ;# RRC ({C=1, mem0b=0x3333}  => {mem0b=0x9999, C=1})
168
        mov          r2, r11
169
 
170
        mov     #0x4000, r15
171
 
172
 
173
        # Addressing mode: EDE
174
        #------------------------
175 111 olivier.gi
.set   EDE_218,  DMEM_218
176
.set   EDE_21A,  DMEM_21A
177
.set   EDE_21C,  DMEM_21C
178
.set   EDE_21E,  DMEM_21E
179 2 olivier.gi
 
180
        mov     #0x0000, r2        ;# Test 1
181 111 olivier.gi
        mov     #0x3332, &DMEM_218
182
        mov     #0xaaaa, &DMEM_21A
183 141 olivier.gi
        rrc     EDE_218+PMEM_LENGTH            ;# RRC ({C=0, mem0c=0x3332}  => {mem0c=0x1999, C=0})
184 2 olivier.gi
        mov          r2, r5
185
 
186
        mov     #0x0000, r2        ;# Test 2
187 111 olivier.gi
        mov     #0x3333, &DMEM_21A
188
        mov     #0xaaaa, &DMEM_21C
189 141 olivier.gi
        rrc     EDE_21A+PMEM_LENGTH            ;# RRC ({C=0, mem0d=0x3333}  => {mem0d=0x1999, C=1})
190 2 olivier.gi
        mov          r2, r7
191
 
192
        mov     #0x0001, r2        ;# Test 3
193 111 olivier.gi
        mov     #0x3332, &DMEM_21C
194
        mov     #0xaaaa, &DMEM_21E
195 141 olivier.gi
        rrc     EDE_21C+PMEM_LENGTH            ;# RRC ({C=1, mem0e=0x3332}  => {mem0e=0x9999, C=0})
196 2 olivier.gi
        mov          r2, r9
197
 
198
        mov     #0x0001, r2        ;# Test 4
199 111 olivier.gi
        mov     #0x3333, &DMEM_21E
200
        mov     #0xaaaa, &DMEM_220
201 141 olivier.gi
        rrc     EDE_21E+PMEM_LENGTH            ;# RRC ({C=1, mem0f=0x3333}  => {mem0f=0x9999, C=1})
202 2 olivier.gi
        mov          r2, r11
203
 
204
        mov     #0x5000, r15
205
 
206
 
207
        # Addressing mode: &EDE
208
        #------------------------
209 111 olivier.gi
.set   aEDE_220,  DMEM_220
210
.set   aEDE_222,  DMEM_222
211
.set   aEDE_224,  DMEM_224
212
.set   aEDE_226,  DMEM_226
213 2 olivier.gi
 
214
        mov     #0x0000, r2        ;# Test 1
215 111 olivier.gi
        mov     #0x3332, &DMEM_220
216
        mov     #0xaaaa, &DMEM_222
217 2 olivier.gi
        rrc   &aEDE_220            ;# RRC ({C=0, mem10=0x3332}  => {mem10=0x1999, C=0})
218
        mov          r2, r5
219
 
220
        mov     #0x0000, r2        ;# Test 2
221 111 olivier.gi
        mov     #0x3333, &DMEM_222
222
        mov     #0xaaaa, &DMEM_224
223 2 olivier.gi
        rrc   &aEDE_222            ;# RRC ({C=0, mem11=0x3333}  => {mem11=0x1999, C=1})
224
        mov          r2, r7
225
 
226
        mov     #0x0001, r2        ;# Test 3
227 111 olivier.gi
        mov     #0x3332, &DMEM_224
228
        mov     #0xaaaa, &DMEM_226
229 2 olivier.gi
        rrc   &aEDE_224            ;# RRC ({C=1, mem12=0x3332}  => {mem12=0x9999, C=0})
230
        mov          r2, r9
231
 
232
        mov     #0x0001, r2        ;# Test 4
233 111 olivier.gi
        mov     #0x3333, &DMEM_226
234
        mov     #0xaaaa, &DMEM_228
235 2 olivier.gi
        rrc   &aEDE_226            ;# RRC ({C=1, mem13=0x3333}  => {mem13=0x9999, C=1})
236
        mov          r2, r11
237
 
238
        mov     #0x6000, r15
239
 
240
 
241
        /* ----------------------- CLEAR MEMORY --------------------------- */
242
        mov     #0x0015, r4
243 111 olivier.gi
        mov   #DMEM_200, r5
244 2 olivier.gi
clear_mem_loop:
245
        clr    0(r5)
246
        incd     r5
247
        dec      r4
248
        jnz     clear_mem_loop
249
 
250
        mov     #0x7000, r15
251
 
252
 
253
        /* -------------- TEST INSTRUCTION IN BYTE MODE ------------------- */
254
 
255
        # Addressing mode: Rn
256
        #------------------------
257
 
258
        mov     #0x0000, r2    ;# Test 1
259
        mov     #0xff32, r4
260
        rrc.b        r4        ;# RRC.B ({C=0, r4=0x32}  => {r4=0x19, C=0})
261
        mov          r2, r5
262
 
263
        mov     #0x0000, r2    ;# Test 2
264
        mov     #0xff33, r6
265
        rrc.b        r6        ;# RRC.B ({C=0, r6=0x33}  => {r6=0x19, C=1})
266
        mov          r2, r7
267
 
268
        mov     #0x0001, r2    ;# Test 3
269
        mov     #0xf032, r8
270
        rrc.b        r8        ;# RRC.B ({C=1, r9=0x32}  => {r9=0x99, C=0})
271
        mov          r2, r9
272
 
273
        mov     #0x0001, r2    ;# Test 4
274
        mov     #0xf033, r10
275
        rrc.b       r10        ;# RRC.B ({C=1, r10=0x33} => {r10=0x99, C=1})
276
        mov          r2, r11
277
 
278
        mov     #0x8000, r15
279
 
280
 
281
        # Addressing mode: @Rn (Low Byte)
282
        #---------------------------------
283
 
284
        mov     #0x0000, r2        ;# Test 1: Low Byte
285 111 olivier.gi
        mov     #0x2532, &DMEM_200
286
        mov   #DMEM_200, r4
287
        mov     #0xaaaa, &DMEM_202
288 2 olivier.gi
        rrc.b       @r4            ;# RRC.B ({C=0, mem00=0x2532}  => {mem00=0x2519, C=0})
289
        mov          r2, r5
290
 
291
        mov     #0x0000, r2        ;# Test 2: Low Byte
292 111 olivier.gi
        mov     #0x2533, &DMEM_202
293
        mov   #DMEM_202, r6
294
        mov     #0xaaaa, &DMEM_204
295 2 olivier.gi
        rrc.b       @r6            ;# RRC.B ({C=0, mem01=0x2533}  => {mem01=0x2519, C=1})
296
        mov          r2, r7
297
 
298
        mov     #0x0001, r2        ;# Test 3: Low Byte
299 111 olivier.gi
        mov     #0x2532, &DMEM_204
300
        mov   #DMEM_204, r8
301
        mov     #0xaaaa, &DMEM_206
302 2 olivier.gi
        rrc.b       @r8            ;# RRC.B ({C=1, mem02=0x2532}  => {mem02=0x2599, C=0})
303
        mov          r2, r9
304
 
305
        mov     #0x0001, r2        ;# Test 4: Low Byte
306 111 olivier.gi
        mov     #0x2533, &DMEM_206
307
        mov   #DMEM_206, r10
308
        mov     #0xaaaa, &DMEM_208
309 2 olivier.gi
        rrc.b      @r10            ;# RRC.B ({C=1, mem03=0x2533}  => {mem03=0x2599, C=1})
310
        mov          r2, r11
311
 
312
        mov     #0x9000, r15
313
 
314
        # Addressing mode: @Rn (High Byte)
315
        #---------------------------------
316
 
317
        mov     #0x0000, r2        ;# Test 1: High Byte
318 111 olivier.gi
        mov     #0x3225, &DMEM_208
319
        mov   #DMEM_209, r4
320
        mov     #0xaaaa, &DMEM_20A
321 2 olivier.gi
        rrc.b       @r4            ;# RRC.B ({C=0, mem04=0x3225}  => {mem04=0x1925, C=0})
322
        mov          r2, r6
323
 
324
        mov     #0x0000, r2        ;# Test 2: High Byte
325 111 olivier.gi
        mov     #0x3325, &DMEM_20A
326
        mov   #DMEM_20B, r6
327
        mov     #0xaaaa, &DMEM_20C
328 2 olivier.gi
        rrc.b       @r6            ;# RRC.B ({C=0, mem05=0x3325}  => {mem05=0x1925, C=1})
329
        mov          r2, r8
330
 
331
        mov     #0x0001, r2        ;# Test 3: High Byte
332 111 olivier.gi
        mov     #0x3225, &DMEM_20C
333
        mov   #DMEM_20D, r8
334
        mov     #0xaaaa, &DMEM_20E
335 2 olivier.gi
        rrc.b       @r8            ;# RRC.B ({C=1, mem06=0x3225}  => {mem06=0x9925, C=0})
336
        mov          r2, r10
337
 
338
        mov     #0x0001, r2        ;# Test 4: High Byte
339 111 olivier.gi
        mov     #0x3325, &DMEM_20E
340
        mov   #DMEM_20F, r10
341
        mov     #0xaaaa, &DMEM_210
342 2 olivier.gi
        rrc.b      @r10            ;# RRC.B ({C=1, mem07=0x3325}  => {mem07=0x9925, C=1})
343
        mov          r2, r11
344
 
345
        mov     #0x9001, r15
346
 
347
 
348
        # Addressing mode: @Rn+ (Low Byte)
349
        #---------------------------------
350
 
351
        mov     #0x0000, r2        ;# Test 1: Low Byte
352 111 olivier.gi
        mov     #0x2532, &DMEM_210
353
        mov   #DMEM_210, r4
354
        mov     #0xaaaa, &DMEM_212
355 2 olivier.gi
        rrc.b      @r4+            ;# RRC.B ({C=0, mem08=0x2532}  => {mem08=0x2519, C=0})
356
        mov          r2, r5
357
 
358
        mov     #0x0000, r2        ;# Test 2: Low Byte
359 111 olivier.gi
        mov     #0x2533, &DMEM_212
360
        mov   #DMEM_212, r6
361
        mov     #0xaaaa, &DMEM_214
362 2 olivier.gi
        rrc.b      @r6+            ;# RRC.B ({C=0, mem09=0x2533}  => {mem09=0x2519, C=1})
363
        mov          r2, r7
364
 
365
        mov     #0x0001, r2        ;# Test 3: Low Byte
366 111 olivier.gi
        mov     #0x2532, &DMEM_214
367
        mov   #DMEM_214, r8
368
        mov     #0xaaaa, &DMEM_216
369 2 olivier.gi
        rrc.b      @r8+            ;# RRC.B ({C=1, mem0a=0x2532}  => {mem0a=0x2599, C=0})
370
        mov          r2, r9
371
 
372
        mov     #0x0001, r2        ;# Test 4: Low Byte
373 111 olivier.gi
        mov     #0x2533, &DMEM_216
374
        mov   #DMEM_216, r10
375
        mov     #0xaaaa, &DMEM_218
376 2 olivier.gi
        rrc.b     @r10+            ;# RRC.B ({C=1, mem0b=0x2533}  => {mem0b=0x2599, C=1})
377
        mov          r2, r11
378
 
379
        mov     #0xA000, r15
380
 
381
        # Addressing mode: @Rn+ (High Byte)
382
        #-----------------------------------
383
 
384
        mov     #0x0000, r2        ;# Test 1: High Byte
385 111 olivier.gi
        mov     #0x3225, &DMEM_218
386
        mov   #DMEM_219, r4
387
        mov     #0xaaaa, &DMEM_21A
388 2 olivier.gi
        rrc.b      @r4+            ;# RRC.B ({C=0, mem0c=0x3225}  => {mem0c=0x1925, C=0})
389
        mov          r2, r6
390
 
391
        mov     #0x0000, r2        ;# Test 2: High Byte
392 111 olivier.gi
        mov     #0x3325, &DMEM_21A
393
        mov   #DMEM_21B, r6
394
        mov     #0xaaaa, &DMEM_21C
395 2 olivier.gi
        rrc.b      @r6+            ;# RRC.B ({C=0, mem0d=0x3325}  => {mem0d=0x1925, C=1})
396
        mov          r2, r8
397
 
398
        mov     #0x0001, r2        ;# Test 3: High Byte
399 111 olivier.gi
        mov     #0x3225, &DMEM_21C
400
        mov   #DMEM_21D, r8
401
        mov     #0xaaaa, &DMEM_21E
402 2 olivier.gi
        rrc.b      @r8+            ;# RRC.B ({C=1, mem0e=0x3225}  => {mem0e=0x9925, C=0})
403
        mov          r2, r10
404
 
405
        mov     #0x0001, r2        ;# Test 4: High Byte
406 111 olivier.gi
        mov     #0x3325, &DMEM_21E
407
        mov   #DMEM_21F, r10
408
        mov     #0xaaaa, &DMEM_220
409 2 olivier.gi
        rrc.b     @r10+            ;# RRC.B ({C=1, mem0f=0x3325}  => {mem0f=0x9925, C=1})
410
        mov          r2, r11
411
 
412
        mov     #0xA001, r15
413
 
414
 
415
        # Addressing mode: X(Rn) (Low Byte)
416
        #-----------------------------------
417
 
418
        mov     #0x0000, r2        ;# Test 1
419 111 olivier.gi
        mov     #0x2532, &DMEM_220
420
        mov   #DMEM_200, r4
421
        mov     #0xaaaa, &DMEM_222
422 2 olivier.gi
        rrc.b     32(r4)           ;# RRC ({C=0, mem10=0x2532}  => {mem10=0x2519, C=0})
423
        mov          r2, r5
424
 
425
        mov     #0x0000, r2        ;# Test 2
426 111 olivier.gi
        mov     #0x2533, &DMEM_222
427
        mov   #DMEM_200, r6
428
        mov     #0xaaaa, &DMEM_224
429 2 olivier.gi
        rrc.b     34(r6)           ;# RRC ({C=0, mem11=0x2533}  => {mem11=0x2519, C=1})
430
        mov          r2, r7
431
 
432
        mov     #0x0001, r2        ;# Test 3
433 111 olivier.gi
        mov     #0x2532, &DMEM_224
434
        mov   #DMEM_200, r8
435
        mov     #0xaaaa, &DMEM_226
436 2 olivier.gi
        rrc.b     36(r8)           ;# RRC ({C=1, mem12=0x2532}  => {mem12=0x2599, C=0})
437
        mov          r2, r9
438
 
439
        mov     #0x0001, r2        ;# Test 4
440 111 olivier.gi
        mov     #0x2533, &DMEM_226
441
        mov   #DMEM_200, r10
442
        mov     #0xaaaa, &DMEM_228
443 2 olivier.gi
        rrc.b    38(r10)           ;# RRC ({C=1, mem13=0x2533}  => {mem13=0x2599, C=1})
444
        mov          r2, r11
445
 
446
        mov     #0xB000, r15
447
 
448
        # Addressing mode: X(Rn) (High Byte)
449
        #------------------------------------
450
 
451
        mov     #0x0000, r2        ;# Test 1
452 111 olivier.gi
        mov     #0x3225, &DMEM_228
453
        mov   #DMEM_200, r4
454
        mov     #0xaaaa, &DMEM_22A
455 2 olivier.gi
        rrc.b     41(r4)           ;# RRC ({C=0, mem14=0x3225}  => {mem14=0x1925, C=0})
456
        mov          r2, r5
457
 
458
        mov     #0x0000, r2        ;# Test 2
459 111 olivier.gi
        mov     #0x3325, &DMEM_22A
460
        mov   #DMEM_200, r6
461
        mov     #0xaaaa, &DMEM_22C
462 2 olivier.gi
        rrc.b     43(r6)           ;# RRC ({C=0, mem15=0x3325}  => {mem15=0x1925, C=1})
463
        mov          r2, r7
464
 
465
        mov     #0x0001, r2        ;# Test 3
466 111 olivier.gi
        mov     #0x3225, &DMEM_22C
467
        mov   #DMEM_200, r8
468
        mov     #0xaaaa, &DMEM_22E
469 2 olivier.gi
        rrc.b     45(r8)           ;# RRC ({C=1, mem16=0x3225}  => {mem16=0x9925, C=0})
470
        mov          r2, r9
471
 
472
        mov     #0x0001, r2        ;# Test 4
473 111 olivier.gi
        mov     #0x3325, &DMEM_22E
474
        mov   #DMEM_200, r10
475
        mov     #0xaaaa, &DMEM_230
476 2 olivier.gi
        rrc.b    47(r10)           ;# RRC ({C=1, mem17=0x3325}  => {mem17=0x9925, C=1})
477
        mov          r2, r11
478
 
479
        mov     #0xB001, r15
480
 
481
 
482
        # Addressing mode: EDE (Low Byte)
483
        #---------------------------------
484 111 olivier.gi
.set   EDE_230,  DMEM_230
485
.set   EDE_232,  DMEM_232
486
.set   EDE_234,  DMEM_234
487
.set   EDE_236,  DMEM_236
488 2 olivier.gi
 
489
        mov     #0x0000, r2        ;# Test 1
490 111 olivier.gi
        mov     #0x2532, &DMEM_230
491
        mov     #0xaaaa, &DMEM_232
492 141 olivier.gi
        rrc.b   EDE_230+PMEM_LENGTH            ;# RRC ({C=0, mem18=0x2532}  => {mem18=0x2519, C=0})
493 2 olivier.gi
        mov          r2, r5
494
 
495
        mov     #0x0000, r2        ;# Test 2
496 111 olivier.gi
        mov     #0x2533, &DMEM_232
497
        mov     #0xaaaa, &DMEM_234
498 141 olivier.gi
        rrc.b   EDE_232+PMEM_LENGTH            ;# RRC ({C=0, mem19=0x2533}  => {mem19=0x2519, C=1})
499 2 olivier.gi
        mov          r2, r7
500
 
501
        mov     #0x0001, r2        ;# Test 3
502 111 olivier.gi
        mov     #0x2532, &DMEM_234
503
        mov     #0xaaaa, &DMEM_236
504 141 olivier.gi
        rrc.b   EDE_234+PMEM_LENGTH            ;# RRC ({C=1, mem1a=0x2532}  => {mem1a=0x2599, C=0})
505 2 olivier.gi
        mov          r2, r9
506
 
507
        mov     #0x0001, r2        ;# Test 4
508 111 olivier.gi
        mov     #0x2533, &DMEM_236
509
        mov     #0xaaaa, &DMEM_238
510 141 olivier.gi
        rrc.b   EDE_236+PMEM_LENGTH            ;# RRC ({C=1, mem1b=0x2533}  => {mem1b=0x2599, C=1})
511 2 olivier.gi
        mov          r2, r11
512
 
513
        mov     #0xC000, r15
514
 
515
        # Addressing mode: EDE (High Byte)
516
        #----------------------------------
517 111 olivier.gi
.set   EDE_239,  DMEM_239
518
.set   EDE_23B,  DMEM_23B
519
.set   EDE_23D,  DMEM_23D
520
.set   EDE_23F,  DMEM_23F
521 2 olivier.gi
 
522
        mov     #0x0000, r2        ;# Test 1
523 111 olivier.gi
        mov     #0x3225, &DMEM_238
524
        mov     #0xaaaa, &DMEM_23A
525 141 olivier.gi
        rrc.b   EDE_239+PMEM_LENGTH            ;# RRC ({C=0, mem1c=0x3225}  => {mem1c=0x1925, C=0})
526 2 olivier.gi
        mov          r2, r5
527
 
528
        mov     #0x0000, r2        ;# Test 2
529 111 olivier.gi
        mov     #0x3325, &DMEM_23A
530
        mov     #0xaaaa, &DMEM_23C
531 141 olivier.gi
        rrc.b   EDE_23B+PMEM_LENGTH            ;# RRC ({C=0, mem1d=0x3325}  => {mem1d=0x1925, C=1})
532 2 olivier.gi
        mov          r2, r7
533
 
534
        mov     #0x0001, r2        ;# Test 3
535 111 olivier.gi
        mov     #0x3225, &DMEM_23C
536
        mov     #0xaaaa, &DMEM_23E
537 141 olivier.gi
        rrc.b   EDE_23D+PMEM_LENGTH            ;# RRC ({C=1, mem1e=0x3225}  => {mem1e=0x9925, C=0})
538 2 olivier.gi
        mov          r2, r9
539
 
540
        mov     #0x0001, r2        ;# Test 4
541 111 olivier.gi
        mov     #0x3325, &DMEM_23E
542
        mov     #0xaaaa, &DMEM_240
543 141 olivier.gi
        rrc.b   EDE_23F+PMEM_LENGTH            ;# RRC ({C=1, mem1f=0x3325}  => {mem1f=0x9925, C=1})
544 2 olivier.gi
        mov          r2, r11
545
 
546
        mov     #0xC001, r15
547
 
548
 
549
        # Addressing mode: &EDE (Low Byte)
550
        #----------------------------------
551 111 olivier.gi
.set   aEDE_240,  DMEM_240
552
.set   aEDE_242,  DMEM_242
553
.set   aEDE_244,  DMEM_244
554
.set   aEDE_246,  DMEM_246
555 2 olivier.gi
 
556
        mov     #0x0000, r2        ;# Test 1
557 111 olivier.gi
        mov     #0x2532, &DMEM_240
558
        mov     #0xaaaa, &DMEM_242
559 2 olivier.gi
        rrc.b &aEDE_240            ;# RRC ({C=0, mem20=0x2532}  => {mem20=0x2519, C=0})
560
        mov          r2, r5
561
 
562
        mov     #0x0000, r2        ;# Test 2
563 111 olivier.gi
        mov     #0x2533, &DMEM_242
564
        mov     #0xaaaa, &DMEM_244
565 2 olivier.gi
        rrc.b &aEDE_242            ;# RRC ({C=0, mem21=0x2533}  => {mem21=0x2519, C=1})
566
        mov          r2, r7
567
 
568
        mov     #0x0001, r2        ;# Test 3
569 111 olivier.gi
        mov     #0x2532, &DMEM_244
570
        mov     #0xaaaa, &DMEM_246
571 2 olivier.gi
        rrc.b &aEDE_244            ;# RRC ({C=1, mem22=0x2532}  => {mem22=0x2599, C=0})
572
        mov          r2, r9
573
 
574
        mov     #0x0001, r2        ;# Test 4
575 111 olivier.gi
        mov     #0x2533, &DMEM_246
576
        mov     #0xaaaa, &DMEM_248
577 2 olivier.gi
        rrc.b &aEDE_246            ;# RRC ({C=1, mem23=0x2533}  => {mem23=0x2599, C=1})
578
        mov          r2, r11
579
 
580
        mov     #0xD000, r15
581
 
582
        # Addressing mode: &EDE (High Byte)
583
        #-----------------------------------
584 111 olivier.gi
.set   aEDE_249,  DMEM_249
585
.set   aEDE_24B,  DMEM_24B
586
.set   aEDE_24D,  DMEM_24D
587
.set   aEDE_24F,  DMEM_24F
588 2 olivier.gi
 
589
        mov     #0x0000, r2        ;# Test 1
590 111 olivier.gi
        mov     #0x3225, &DMEM_248
591
        mov     #0xaaaa, &DMEM_24A
592 2 olivier.gi
        rrc.b &aEDE_249            ;# RRC ({C=0, mem24=0x3225}  => {mem24=0x1925, C=0})
593
        mov          r2, r5
594
 
595
        mov     #0x0000, r2        ;# Test 2
596 111 olivier.gi
        mov     #0x3325, &DMEM_24A
597
        mov     #0xaaaa, &DMEM_24C
598 2 olivier.gi
        rrc.b &aEDE_24B            ;# RRC ({C=0, mem25=0x3325}  => {mem25=0x1925, C=1})
599
        mov          r2, r7
600
 
601
        mov     #0x0001, r2        ;# Test 3
602 111 olivier.gi
        mov     #0x3225, &DMEM_24C
603
        mov     #0xaaaa, &DMEM_24E
604 2 olivier.gi
        rrc.b &aEDE_24D            ;# RRC ({C=1, mem26=0x3225}  => {mem26=0x9925, C=0})
605
        mov          r2, r9
606
 
607
        mov     #0x0001, r2        ;# Test 4
608 111 olivier.gi
        mov     #0x3325, &DMEM_24E
609
        mov     #0xaaaa, &DMEM_250
610 2 olivier.gi
        rrc.b &aEDE_24F            ;# RRC ({C=1, mem27=0x3325}  => {mem27=0x9925, C=1})
611
        mov          r2, r11
612
 
613
        mov     #0xD001, r15
614
 
615
 
616
 
617
        /* ----------------------         END OF TEST        --------------- */
618
end_of_test:
619
        nop
620
        br #0xffff
621
 
622
 
623
 
624
        /* ----------------------         INTERRUPT VECTORS  --------------- */
625
 
626
.section .vectors, "a"
627
.word end_of_test  ; Interrupt  0 (lowest priority)    
628
.word end_of_test  ; Interrupt  1                      
629
.word end_of_test  ; Interrupt  2                      
630
.word end_of_test  ; Interrupt  3                      
631
.word end_of_test  ; Interrupt  4                      
632
.word end_of_test  ; Interrupt  5                      
633
.word end_of_test  ; Interrupt  6                      
634
.word end_of_test  ; Interrupt  7                      
635
.word end_of_test  ; Interrupt  8                      
636
.word end_of_test  ; Interrupt  9                      
637
.word end_of_test  ; Interrupt 10                      Watchdog timer
638
.word end_of_test  ; Interrupt 11                      
639
.word end_of_test  ; Interrupt 12                      
640
.word end_of_test  ; Interrupt 13                      
641
.word end_of_test  ; Interrupt 14                      NMI
642
.word main         ; Interrupt 15 (highest priority)   RESET

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.