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

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gdb/] [gdb-6.8/] [sim/] [testsuite/] [sim/] [h8300/] [shar.s] - Blame information for rev 26

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 26 jlechner 
# Hitachi H8 testcase 'shar'
2 
# mach(): all
3 
# as(h8300):    --defsym sim_cpu=0
4 
# as(h8300h):   --defsym sim_cpu=1
5 
# as(h8300s):   --defsym sim_cpu=2
6 
# as(h8sx):     --defsym sim_cpu=3
7 
# ld(h8300h):   -m h8300helf
8 
# ld(h8300s):   -m h8300self
9 
# ld(h8sx):     -m h8300sxelf
10 
 
11 
        .include "testutils.inc"
12 
 
13 
        start
14 
 
15 
        .data
16 
byte_dest:      .byte   0xa5
17 
        .align 2
18 
word_dest:      .word   0xa5a5
19 
        .align 4
20 
long_dest:      .long   0xa5a5a5a5
21 
 
22 
        .text
23 
 
24 
shar_b_reg8_1:
25 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
26 
        set_ccr_zero
27 
 
28 
        shar.b  r0l             ; shift right arithmetic by one
29 
;;;     .word   0x1188
30 
 
31 
        test_carry_set          ; H=0 N=1 Z=0 V=0 C=1
32 
        test_zero_clear
33 
        test_ovf_clear
34 
        test_neg_set
35 
 
36 
        test_h_gr16 0xa5d2 r0   ; 1010 0101 -> 1101 0010
37 
.if (sim_cpu)
38 
        test_h_gr32 0xa5a5a5d2 er0
39 
.endif
40 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
41 
        test_gr_a5a5 2
42 
        test_gr_a5a5 3
43 
        test_gr_a5a5 4
44 
        test_gr_a5a5 5
45 
        test_gr_a5a5 6
46 
        test_gr_a5a5 7
47 
 
48 
.if (sim_cpu == h8sx)
49 
shar_b_ind_1:
50 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
51 
        set_ccr_zero
52 
 
53 
        mov     #byte_dest, er0
54 
        shar.b  @er0    ; shift right arithmetic by one, indirect
55 
;;;     .word   0x7d00
56 
;;;     .word   0x1180
57 
 
58 
        test_carry_set          ; H=0 N=1 Z=0 V=0 C=1
59 
        test_zero_clear
60 
        test_ovf_clear
61 
        test_neg_set
62 
 
63 
        test_h_gr32  byte_dest er0
64 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
65 
        test_gr_a5a5 2
66 
        test_gr_a5a5 3
67 
        test_gr_a5a5 4
68 
        test_gr_a5a5 5
69 
        test_gr_a5a5 6
70 
        test_gr_a5a5 7
71 
        ; 1010 0101 -> 1101 0010
72 
        cmp.b   #0xd2, @byte_dest
73 
        beq     .Lbind1
74 
        fail
75 
.Lbind1:
76 
        mov.b   #0xa5, @byte_dest
77 
 
78 
shar_b_postinc_1:
79 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
80 
        set_ccr_zero
81 
 
82 
        mov     #byte_dest, er0
83 
        shar.b  @er0+   ; shift right arithmetic by one, postinc
84 
;;;     .word   0x0174
85 
;;;     .word   0x6c08
86 
;;;     .word   0x1180
87 
 
88 
        test_carry_set          ; H=0 N=1 Z=0 V=0 C=1
89 
        test_zero_clear
90 
        test_ovf_clear
91 
        test_neg_set
92 
 
93 
        test_h_gr32  byte_dest+1 er0
94 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
95 
        test_gr_a5a5 2
96 
        test_gr_a5a5 3
97 
        test_gr_a5a5 4
98 
        test_gr_a5a5 5
99 
        test_gr_a5a5 6
100 
        test_gr_a5a5 7
101 
        ; 1010 0101 -> 1101 0010
102 
        cmp.b   #0xd2, @byte_dest
103 
        beq     .Lbpostinc1
104 
        fail
105 
.Lbpostinc1:
106 
        mov.b   #0xa5, @byte_dest
107 
 
108 
shar_b_postdec_1:
109 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
110 
        set_ccr_zero
111 
 
112 
        mov     #byte_dest, er0
113 
        shar.b  @er0-   ; shift right arithmetic by one, postdec
114 
;;;     .word   0x0176
115 
;;;     .word   0x6c08
116 
;;;     .word   0x1180
117 
 
118 
        test_carry_set          ; H=0 N=1 Z=0 V=0 C=1
119 
        test_zero_clear
120 
        test_ovf_clear
121 
        test_neg_set
122 
 
123 
        test_h_gr32  byte_dest-1 er0
124 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
125 
        test_gr_a5a5 2
126 
        test_gr_a5a5 3
127 
        test_gr_a5a5 4
128 
        test_gr_a5a5 5
129 
        test_gr_a5a5 6
130 
        test_gr_a5a5 7
131 
        ; 1010 0101 -> 1101 0010
132 
        cmp.b   #0xd2, @byte_dest
133 
        beq     .Lbpostdec1
134 
        fail
135 
.Lbpostdec1:
136 
        mov.b   #0xa5, @byte_dest
137 
 
138 
shar_b_preinc_1:
139 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
140 
        set_ccr_zero
141 
 
142 
        mov     #byte_dest-1, er0
143 
        shar.b  @+er0   ; shift right arithmetic by one, preinc
144 
;;;     .word   0x0175
145 
;;;     .word   0x6c08
146 
;;;     .word   0x1180
147 
 
148 
        test_carry_set          ; H=0 N=1 Z=0 V=0 C=1
149 
        test_zero_clear
150 
        test_ovf_clear
151 
        test_neg_set
152 
 
153 
        test_h_gr32  byte_dest er0
154 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
155 
        test_gr_a5a5 2
156 
        test_gr_a5a5 3
157 
        test_gr_a5a5 4
158 
        test_gr_a5a5 5
159 
        test_gr_a5a5 6
160 
        test_gr_a5a5 7
161 
        ; 1010 0101 -> 1101 0010
162 
        cmp.b   #0xd2, @byte_dest
163 
        beq     .Lbpreinc1
164 
        fail
165 
.Lbpreinc1:
166 
        mov.b   #0xa5, @byte_dest
167 
 
168 
shar_b_predec_1:
169 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
170 
        set_ccr_zero
171 
 
172 
        mov     #byte_dest+1, er0
173 
        shar.b  @-er0   ; shift right arithmetic by one, predec
174 
;;;     .word   0x0177
175 
;;;     .word   0x6c08
176 
;;;     .word   0x1180
177 
 
178 
        test_carry_set          ; H=0 N=1 Z=0 V=0 C=1
179 
        test_zero_clear
180 
        test_ovf_clear
181 
        test_neg_set
182 
 
183 
        test_h_gr32  byte_dest er0
184 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
185 
        test_gr_a5a5 2
186 
        test_gr_a5a5 3
187 
        test_gr_a5a5 4
188 
        test_gr_a5a5 5
189 
        test_gr_a5a5 6
190 
        test_gr_a5a5 7
191 
        ; 1010 0101 -> 1101 0010
192 
        cmp.b   #0xd2, @byte_dest
193 
        beq     .Lbpredec1
194 
        fail
195 
.Lbpredec1:
196 
        mov.b   #0xa5, @byte_dest
197 
 
198 
shar_b_disp2_1:
199 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
200 
        set_ccr_zero
201 
 
202 
        mov     #byte_dest-2, er0
203 
        shar.b  @(2:2, er0)     ; shift right arithmetic by one, disp2
204 
;;;     .word   0x0176
205 
;;;     .word   0x6808
206 
;;;     .word   0x1180
207 
 
208 
        test_carry_set          ; H=0 N=1 Z=0 V=0 C=1
209 
        test_zero_clear
210 
        test_ovf_clear
211 
        test_neg_set
212 
 
213 
        test_h_gr32  byte_dest-2 er0
214 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
215 
        test_gr_a5a5 2
216 
        test_gr_a5a5 3
217 
        test_gr_a5a5 4
218 
        test_gr_a5a5 5
219 
        test_gr_a5a5 6
220 
        test_gr_a5a5 7
221 
        ; 1010 0101 -> 1101 0010
222 
        cmp.b   #0xd2, @byte_dest
223 
        beq     .Lbdisp21
224 
        fail
225 
.Lbdisp21:
226 
        mov.b   #0xa5, @byte_dest
227 
 
228 
shar_b_disp16_1:
229 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
230 
        set_ccr_zero
231 
 
232 
        mov     #byte_dest-44, er0
233 
        shar.b  @(44:16, er0)   ; shift right arithmetic by one, disp16
234 
;;;     .word   0x0174
235 
;;;     .word   0x6e08
236 
;;;     .word   44
237 
;;;     .word   0x1180
238 
 
239 
        test_carry_set          ; H=0 N=1 Z=0 V=0 C=1
240 
        test_zero_clear
241 
        test_ovf_clear
242 
        test_neg_set
243 
 
244 
        test_h_gr32  byte_dest-44 er0
245 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
246 
        test_gr_a5a5 2
247 
        test_gr_a5a5 3
248 
        test_gr_a5a5 4
249 
        test_gr_a5a5 5
250 
        test_gr_a5a5 6
251 
        test_gr_a5a5 7
252 
        ; 1010 0101 -> 1101 0010
253 
        cmp.b   #0xd2, @byte_dest
254 
        beq     .Lbdisp161
255 
        fail
256 
.Lbdisp161:
257 
        mov.b   #0xa5, @byte_dest
258 
 
259 
shar_b_disp32_1:
260 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
261 
        set_ccr_zero
262 
 
263 
        mov     #byte_dest-666, er0
264 
        shar.b  @(666:32, er0)  ; shift right arithmetic by one, disp32
265 
;;;     .word   0x7884
266 
;;;     .word   0x6a28
267 
;;;     .long   666
268 
;;;     .word   0x1180
269 
 
270 
        test_carry_set          ; H=0 N=1 Z=0 V=0 C=1
271 
        test_zero_clear
272 
        test_ovf_clear
273 
        test_neg_set
274 
 
275 
        test_h_gr32  byte_dest-666 er0
276 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
277 
        test_gr_a5a5 2
278 
        test_gr_a5a5 3
279 
        test_gr_a5a5 4
280 
        test_gr_a5a5 5
281 
        test_gr_a5a5 6
282 
        test_gr_a5a5 7
283 
        ; 1010 0101 -> 1101 0010
284 
        cmp.b   #0xd2, @byte_dest
285 
        beq     .Lbdisp321
286 
        fail
287 
.Lbdisp321:
288 
        mov.b   #0xa5, @byte_dest
289 
 
290 
shar_b_abs16_1:
291 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
292 
        set_ccr_zero
293 
 
294 
        shar.b  @byte_dest:16   ; shift right arithmetic by one, abs16
295 
;;;     .word   0x6a18
296 
;;;     .word   byte_dest
297 
;;;     .word   0x1180
298 
 
299 
        test_carry_set          ; H=0 N=1 Z=0 V=0 C=1
300 
        test_zero_clear
301 
        test_ovf_clear
302 
        test_neg_set
303 
 
304 
        test_gr_a5a5 0           ; Make sure ALL general regs not disturbed
305 
        test_gr_a5a5 2
306 
        test_gr_a5a5 2
307 
        test_gr_a5a5 3
308 
        test_gr_a5a5 4
309 
        test_gr_a5a5 5
310 
        test_gr_a5a5 6
311 
        test_gr_a5a5 7
312 
        ; 1010 0101 -> 1101 0010
313 
        cmp.b   #0xd2, @byte_dest
314 
        beq     .Lbabs161
315 
        fail
316 
.Lbabs161:
317 
        mov.b   #0xa5, @byte_dest
318 
 
319 
shar_b_abs32_1:
320 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
321 
        set_ccr_zero
322 
 
323 
        shar.b  @byte_dest:32   ; shift right arithmetic by one, abs32
324 
;;;     .word   0x6a38
325 
;;;     .long   byte_dest
326 
;;;     .word   0x1180
327 
 
328 
        test_carry_set          ; H=0 N=1 Z=0 V=0 C=1
329 
        test_zero_clear
330 
        test_ovf_clear
331 
        test_neg_set
332 
 
333 
        test_gr_a5a5 0           ; Make sure ALL general regs not disturbed
334 
        test_gr_a5a5 2
335 
        test_gr_a5a5 2
336 
        test_gr_a5a5 3
337 
        test_gr_a5a5 4
338 
        test_gr_a5a5 5
339 
        test_gr_a5a5 6
340 
        test_gr_a5a5 7
341 
        ; 1010 0101 -> 1101 0010
342 
        cmp.b   #0xd2, @byte_dest
343 
        beq     .Lbabs321
344 
        fail
345 
.Lbabs321:
346 
        mov.b   #0xa5, @byte_dest
347 
.endif
348 
 
349 
shar_b_reg8_2:
350 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
351 
        set_ccr_zero
352 
 
353 
        shar.b  #2, r0l         ; shift right arithmetic by two
354 
;;;     .word   0x11c8
355 
 
356 
        test_carry_clear        ; H=0 N=1 Z=0 V=0 C=0
357 
        test_zero_clear
358 
        test_ovf_clear
359 
        test_neg_set
360 
        test_h_gr16 0xa5e9 r0   ; 1010 0101 -> 1110 1001
361 
.if (sim_cpu)
362 
        test_h_gr32 0xa5a5a5e9 er0
363 
.endif
364 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
365 
        test_gr_a5a5 2
366 
        test_gr_a5a5 3
367 
        test_gr_a5a5 4
368 
        test_gr_a5a5 5
369 
        test_gr_a5a5 6
370 
        test_gr_a5a5 7
371 
 
372 
.if (sim_cpu == h8sx)
373 
shar_b_ind_2:
374 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
375 
        set_ccr_zero
376 
 
377 
        mov     #byte_dest, er0
378 
        shar.b  #2, @er0        ; shift right arithmetic by two, indirect
379 
;;;     .word   0x7d00
380 
;;;     .word   0x11c0
381 
 
382 
        test_carry_clear                ; H=0 N=1 Z=0 V=0 C=0
383 
        test_zero_clear
384 
        test_ovf_clear
385 
        test_neg_set
386 
 
387 
        test_h_gr32  byte_dest er0
388 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
389 
        test_gr_a5a5 2
390 
        test_gr_a5a5 3
391 
        test_gr_a5a5 4
392 
        test_gr_a5a5 5
393 
        test_gr_a5a5 6
394 
        test_gr_a5a5 7
395 
        ; 1010 0101 -> 1110 1001
396 
        cmp.b   #0xe9, @byte_dest
397 
        beq     .Lbind2
398 
        fail
399 
.Lbind2:
400 
        mov.b   #0xa5, @byte_dest
401 
 
402 
shar_b_postinc_2:
403 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
404 
        set_ccr_zero
405 
 
406 
        mov     #byte_dest, er0
407 
        shar.b  #2, @er0+       ; shift right arithmetic by two, postinc
408 
;;;     .word   0x0174
409 
;;;     .word   0x6c08
410 
;;;     .word   0x11c0
411 
 
412 
        test_carry_clear                ; H=0 N=1 Z=0 V=0 C=0
413 
        test_zero_clear
414 
        test_ovf_clear
415 
        test_neg_set
416 
 
417 
        test_h_gr32  byte_dest+1 er0
418 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
419 
        test_gr_a5a5 2
420 
        test_gr_a5a5 3
421 
        test_gr_a5a5 4
422 
        test_gr_a5a5 5
423 
        test_gr_a5a5 6
424 
        test_gr_a5a5 7
425 
        ; 1010 0101 -> 1110 1001
426 
        cmp.b   #0xe9, @byte_dest
427 
        beq     .Lbpostinc2
428 
        fail
429 
.Lbpostinc2:
430 
        mov.b   #0xa5, @byte_dest
431 
 
432 
shar_b_postdec_2:
433 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
434 
        set_ccr_zero
435 
 
436 
        mov     #byte_dest, er0
437 
        shar.b  #2, @er0-       ; shift right arithmetic by two, postdec
438 
;;;     .word   0x0176
439 
;;;     .word   0x6c08
440 
;;;     .word   0x11c0
441 
 
442 
        test_carry_clear                ; H=0 N=1 Z=0 V=0 C=0
443 
        test_zero_clear
444 
        test_ovf_clear
445 
        test_neg_set
446 
 
447 
        test_h_gr32  byte_dest-1 er0
448 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
449 
        test_gr_a5a5 2
450 
        test_gr_a5a5 3
451 
        test_gr_a5a5 4
452 
        test_gr_a5a5 5
453 
        test_gr_a5a5 6
454 
        test_gr_a5a5 7
455 
        ; 1010 0101 -> 1110 1001
456 
        cmp.b   #0xe9, @byte_dest
457 
        beq     .Lbpostdec2
458 
        fail
459 
.Lbpostdec2:
460 
        mov.b   #0xa5, @byte_dest
461 
 
462 
shar_b_preinc_2:
463 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
464 
        set_ccr_zero
465 
 
466 
        mov     #byte_dest-1, er0
467 
        shar.b  #2, @+er0       ; shift right arithmetic by two, preinc
468 
;;;     .word   0x0175
469 
;;;     .word   0x6c08
470 
;;;     .word   0x11c0
471 
 
472 
        test_carry_clear                ; H=0 N=1 Z=0 V=0 C=0
473 
        test_zero_clear
474 
        test_ovf_clear
475 
        test_neg_set
476 
 
477 
        test_h_gr32  byte_dest er0
478 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
479 
        test_gr_a5a5 2
480 
        test_gr_a5a5 3
481 
        test_gr_a5a5 4
482 
        test_gr_a5a5 5
483 
        test_gr_a5a5 6
484 
        test_gr_a5a5 7
485 
        ; 1010 0101 -> 1110 1001
486 
        cmp.b   #0xe9, @byte_dest
487 
        beq     .Lbpreinc2
488 
        fail
489 
.Lbpreinc2:
490 
        mov.b   #0xa5, @byte_dest
491 
 
492 
shar_b_predec_2:
493 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
494 
        set_ccr_zero
495 
 
496 
        mov     #byte_dest+1, er0
497 
        shar.b  #2, @-er0       ; shift right arithmetic by two, predec
498 
;;;     .word   0x0177
499 
;;;     .word   0x6c08
500 
;;;     .word   0x11c0
501 
 
502 
        test_carry_clear                ; H=0 N=1 Z=0 V=0 C=0
503 
        test_zero_clear
504 
        test_ovf_clear
505 
        test_neg_set
506 
 
507 
        test_h_gr32  byte_dest er0
508 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
509 
        test_gr_a5a5 2
510 
        test_gr_a5a5 3
511 
        test_gr_a5a5 4
512 
        test_gr_a5a5 5
513 
        test_gr_a5a5 6
514 
        test_gr_a5a5 7
515 
        ; 1010 0101 -> 1110 1001
516 
        cmp.b   #0xe9, @byte_dest
517 
        beq     .Lbpredec2
518 
        fail
519 
.Lbpredec2:
520 
        mov.b   #0xa5, @byte_dest
521 
 
522 
shar_b_disp2_2:
523 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
524 
        set_ccr_zero
525 
 
526 
        mov     #byte_dest-2, er0
527 
        shar.b  #2, @(2:2, er0) ; shift right arithmetic by two, disp2
528 
;;;     .word   0x0176
529 
;;;     .word   0x6808
530 
;;;     .word   0x11c0
531 
 
532 
        test_carry_clear                ; H=0 N=1 Z=0 V=0 C=0
533 
        test_zero_clear
534 
        test_ovf_clear
535 
        test_neg_set
536 
 
537 
        test_h_gr32  byte_dest-2 er0
538 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
539 
        test_gr_a5a5 2
540 
        test_gr_a5a5 3
541 
        test_gr_a5a5 4
542 
        test_gr_a5a5 5
543 
        test_gr_a5a5 6
544 
        test_gr_a5a5 7
545 
        ; 1010 0101 -> 1110 1001
546 
        cmp.b   #0xe9, @byte_dest
547 
        beq     .Lbdisp22
548 
        fail
549 
.Lbdisp22:
550 
        mov.b   #0xa5, @byte_dest
551 
 
552 
shar_b_disp16_2:
553 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
554 
        set_ccr_zero
555 
 
556 
        mov     #byte_dest-44, er0
557 
        shar.b  #2, @(44:16, er0)       ; shift right arithmetic by two, disp16
558 
;;;     .word   0x0174
559 
;;;     .word   0x6e08
560 
;;;     .word   44
561 
;;;     .word   0x11c0
562 
 
563 
        test_carry_clear                ; H=0 N=1 Z=0 V=0 C=0
564 
        test_zero_clear
565 
        test_ovf_clear
566 
        test_neg_set
567 
 
568 
        test_h_gr32  byte_dest-44 er0
569 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
570 
        test_gr_a5a5 2
571 
        test_gr_a5a5 3
572 
        test_gr_a5a5 4
573 
        test_gr_a5a5 5
574 
        test_gr_a5a5 6
575 
        test_gr_a5a5 7
576 
        ; 1010 0101 -> 1110 1001
577 
        cmp.b   #0xe9, @byte_dest
578 
        beq     .Lbdisp162
579 
        fail
580 
.Lbdisp162:
581 
        mov.b   #0xa5, @byte_dest
582 
 
583 
shar_b_disp32_2:
584 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
585 
        set_ccr_zero
586 
 
587 
        mov     #byte_dest-666, er0
588 
        shar.b  #2, @(666:32, er0)      ; shift right arithmetic by two, disp32
589 
;;;     .word   0x7884
590 
;;;     .word   0x6a28
591 
;;;     .long   666
592 
;;;     .word   0x11c0
593 
 
594 
        test_carry_clear                ; H=0 N=1 Z=0 V=0 C=0
595 
        test_zero_clear
596 
        test_ovf_clear
597 
        test_neg_set
598 
 
599 
        test_h_gr32  byte_dest-666 er0
600 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
601 
        test_gr_a5a5 2
602 
        test_gr_a5a5 3
603 
        test_gr_a5a5 4
604 
        test_gr_a5a5 5
605 
        test_gr_a5a5 6
606 
        test_gr_a5a5 7
607 
        ; 1010 0101 -> 1110 1001
608 
        cmp.b   #0xe9, @byte_dest
609 
        beq     .Lbdisp322
610 
        fail
611 
.Lbdisp322:
612 
        mov.b   #0xa5, @byte_dest
613 
 
614 
shar_b_abs16_2:
615 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
616 
        set_ccr_zero
617 
 
618 
        shar.b  #2, @byte_dest:16       ; shift right arithmetic by two, abs16
619 
;;;     .word   0x6a18
620 
;;;     .word   byte_dest
621 
;;;     .word   0x11c0
622 
 
623 
        test_carry_clear                ; H=0 N=1 Z=0 V=0 C=0
624 
        test_zero_clear
625 
        test_ovf_clear
626 
        test_neg_set
627 
 
628 
        test_gr_a5a5 0           ; Make sure ALL general regs not disturbed
629 
        test_gr_a5a5 2
630 
        test_gr_a5a5 2
631 
        test_gr_a5a5 3
632 
        test_gr_a5a5 4
633 
        test_gr_a5a5 5
634 
        test_gr_a5a5 6
635 
        test_gr_a5a5 7
636 
        ; 1010 0101 -> 1110 1001
637 
        cmp.b   #0xe9, @byte_dest
638 
        beq     .Lbabs162
639 
        fail
640 
.Lbabs162:
641 
        mov.b   #0xa5, @byte_dest
642 
 
643 
shar_b_abs32_2:
644 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
645 
        set_ccr_zero
646 
 
647 
        shar.b  #2, @byte_dest:32       ; shift right arithmetic by two, abs32
648 
;;;     .word   0x6a38
649 
;;;     .long   byte_dest
650 
;;;     .word   0x11c0
651 
 
652 
        test_carry_clear                ; H=0 N=1 Z=0 V=0 C=0
653 
        test_zero_clear
654 
        test_ovf_clear
655 
        test_neg_set
656 
 
657 
        test_gr_a5a5 0           ; Make sure ALL general regs not disturbed
658 
        test_gr_a5a5 2
659 
        test_gr_a5a5 2
660 
        test_gr_a5a5 3
661 
        test_gr_a5a5 4
662 
        test_gr_a5a5 5
663 
        test_gr_a5a5 6
664 
        test_gr_a5a5 7
665 
        ; 1010 0101 -> 1110 1001
666 
        cmp.b   #0xe9, @byte_dest
667 
        beq     .Lbabs322
668 
        fail
669 
.Lbabs322:
670 
        mov.b   #0xa5, @byte_dest
671 
.endif
672 
 
673 
.if (sim_cpu)                   ; Not available in h8300 mode
674 
shar_w_reg16_1:
675 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
676 
        set_ccr_zero
677 
 
678 
        shar.w  r0              ; shift right arithmetic by one
679 
;;;     .word   0x1190
680 
 
681 
        test_carry_set          ; H=0 N=1 Z=0 V=0 C=1
682 
        test_zero_clear
683 
        test_ovf_clear
684 
        test_neg_set
685 
        test_h_gr16 0xd2d2 r0   ; 1010 0101 1010 0101 -> 1101 0010 1101 0010
686 
        test_h_gr32 0xa5a5d2d2 er0
687 
 
688 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
689 
        test_gr_a5a5 2
690 
        test_gr_a5a5 3
691 
        test_gr_a5a5 4
692 
        test_gr_a5a5 5
693 
        test_gr_a5a5 6
694 
        test_gr_a5a5 7
695 
 
696 
.if (sim_cpu == h8sx)
697 
shar_w_ind_1:
698 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
699 
        set_ccr_zero
700 
 
701 
        mov     #word_dest, er0
702 
        shar.w  @er0    ; shift right arithmetic by one, indirect
703 
;;;     .word   0x7d80
704 
;;;     .word   0x1190
705 
 
706 
        test_carry_set          ; H=0 N=1 Z=0 V=0 C=1
707 
        test_zero_clear
708 
        test_ovf_clear
709 
        test_neg_set
710 
 
711 
        test_h_gr32  word_dest er0
712 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
713 
        test_gr_a5a5 2
714 
        test_gr_a5a5 3
715 
        test_gr_a5a5 4
716 
        test_gr_a5a5 5
717 
        test_gr_a5a5 6
718 
        test_gr_a5a5 7
719 
        ; 1010 0101 1010 0101 -> 1101 0010 1101 0010
720 
        cmp.w   #0xd2d2, @word_dest
721 
        beq     .Lwind1
722 
        fail
723 
.Lwind1:
724 
        mov.w   #0xa5a5, @word_dest
725 
 
726 
shar_w_postinc_1:
727 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
728 
        set_ccr_zero
729 
 
730 
        mov     #word_dest, er0
731 
        shar.w  @er0+   ; shift right arithmetic by one, postinc
732 
;;;     .word   0x0154
733 
;;;     .word   0x6d08
734 
;;;     .word   0x1190
735 
 
736 
        test_carry_set          ; H=0 N=1 Z=0 V=0 C=1
737 
        test_zero_clear
738 
        test_ovf_clear
739 
        test_neg_set
740 
 
741 
        test_h_gr32  word_dest+2 er0
742 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
743 
        test_gr_a5a5 2
744 
        test_gr_a5a5 3
745 
        test_gr_a5a5 4
746 
        test_gr_a5a5 5
747 
        test_gr_a5a5 6
748 
        test_gr_a5a5 7
749 
        ; 1010 0101 1010 0101 -> 1101 0010 1101 0010
750 
        cmp.w   #0xd2d2, @word_dest
751 
        beq     .Lwpostinc1
752 
        fail
753 
.Lwpostinc1:
754 
        mov.w   #0xa5a5, @word_dest
755 
 
756 
shar_w_postdec_1:
757 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
758 
        set_ccr_zero
759 
 
760 
        mov     #word_dest, er0
761 
        shar.w  @er0-   ; shift right arithmetic by one, postdec
762 
;;;     .word   0x0156
763 
;;;     .word   0x6d08
764 
;;;     .word   0x1190
765 
 
766 
        test_carry_set          ; H=0 N=1 Z=0 V=0 C=1
767 
        test_zero_clear
768 
        test_ovf_clear
769 
        test_neg_set
770 
 
771 
        test_h_gr32  word_dest-2 er0
772 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
773 
        test_gr_a5a5 2
774 
        test_gr_a5a5 3
775 
        test_gr_a5a5 4
776 
        test_gr_a5a5 5
777 
        test_gr_a5a5 6
778 
        test_gr_a5a5 7
779 
        ; 1010 0101 1010 0101 -> 1101 0010 1101 0010
780 
        cmp.w   #0xd2d2, @word_dest
781 
        beq     .Lwpostdec1
782 
        fail
783 
.Lwpostdec1:
784 
        mov.w   #0xa5a5, @word_dest
785 
 
786 
shar_w_preinc_1:
787 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
788 
        set_ccr_zero
789 
 
790 
        mov     #word_dest-2, er0
791 
        shar.w  @+er0   ; shift right arithmetic by one, preinc
792 
;;;     .word   0x0155
793 
;;;     .word   0x6d08
794 
;;;     .word   0x1190
795 
 
796 
        test_carry_set          ; H=0 N=1 Z=0 V=0 C=1
797 
        test_zero_clear
798 
        test_ovf_clear
799 
        test_neg_set
800 
 
801 
        test_h_gr32  word_dest er0
802 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
803 
        test_gr_a5a5 2
804 
        test_gr_a5a5 3
805 
        test_gr_a5a5 4
806 
        test_gr_a5a5 5
807 
        test_gr_a5a5 6
808 
        test_gr_a5a5 7
809 
        ; 1010 0101 1010 0101 -> 1101 0010 1101 0010
810 
        cmp.w   #0xd2d2, @word_dest
811 
        beq     .Lwpreinc1
812 
        fail
813 
.Lwpreinc1:
814 
        mov.w   #0xa5a5, @word_dest
815 
 
816 
shar_w_predec_1:
817 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
818 
        set_ccr_zero
819 
 
820 
        mov     #word_dest+2, er0
821 
        shar.w  @-er0   ; shift right arithmetic by one, predec
822 
;;;     .word   0x0157
823 
;;;     .word   0x6d08
824 
;;;     .word   0x1190
825 
 
826 
        test_carry_set          ; H=0 N=1 Z=0 V=0 C=1
827 
        test_zero_clear
828 
        test_ovf_clear
829 
        test_neg_set
830 
 
831 
        test_h_gr32  word_dest er0
832 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
833 
        test_gr_a5a5 2
834 
        test_gr_a5a5 3
835 
        test_gr_a5a5 4
836 
        test_gr_a5a5 5
837 
        test_gr_a5a5 6
838 
        test_gr_a5a5 7
839 
        ; 1010 0101 1010 0101 -> 1101 0010 1101 0010
840 
        cmp.w   #0xd2d2, @word_dest
841 
        beq     .Lwpredec1
842 
        fail
843 
.Lwpredec1:
844 
        mov.w   #0xa5a5, @word_dest
845 
 
846 
shar_w_disp2_1:
847 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
848 
        set_ccr_zero
849 
 
850 
        mov     #word_dest-4, er0
851 
        shar.w  @(4:2, er0)     ; shift right arithmetic by one, disp2
852 
;;;     .word   0x0156
853 
;;;     .word   0x6908
854 
;;;     .word   0x1190
855 
 
856 
        test_carry_set          ; H=0 N=1 Z=0 V=0 C=1
857 
        test_zero_clear
858 
        test_ovf_clear
859 
        test_neg_set
860 
 
861 
        test_h_gr32  word_dest-4 er0
862 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
863 
        test_gr_a5a5 2
864 
        test_gr_a5a5 3
865 
        test_gr_a5a5 4
866 
        test_gr_a5a5 5
867 
        test_gr_a5a5 6
868 
        test_gr_a5a5 7
869 
        ; 1010 0101 1010 0101 -> 1101 0010 1101 0010
870 
        cmp.w   #0xd2d2, @word_dest
871 
        beq     .Lwdisp21
872 
        fail
873 
.Lwdisp21:
874 
        mov.w   #0xa5a5, @word_dest
875 
 
876 
shar_w_disp16_1:
877 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
878 
        set_ccr_zero
879 
 
880 
        mov     #word_dest-44, er0
881 
        shar.w  @(44:16, er0)   ; shift right arithmetic by one, disp16
882 
;;;     .word   0x0154
883 
;;;     .word   0x6f08
884 
;;;     .word   44
885 
;;;     .word   0x1190
886 
 
887 
        test_carry_set          ; H=0 N=1 Z=0 V=0 C=1
888 
        test_zero_clear
889 
        test_ovf_clear
890 
        test_neg_set
891 
 
892 
        test_h_gr32  word_dest-44 er0
893 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
894 
        test_gr_a5a5 2
895 
        test_gr_a5a5 3
896 
        test_gr_a5a5 4
897 
        test_gr_a5a5 5
898 
        test_gr_a5a5 6
899 
        test_gr_a5a5 7
900 
        ; 1010 0101 1010 0101 -> 1101 0010 1101 0010
901 
        cmp.w   #0xd2d2, @word_dest
902 
        beq     .Lwdisp161
903 
        fail
904 
.Lwdisp161:
905 
        mov.w   #0xa5a5, @word_dest
906 
 
907 
shar_w_disp32_1:
908 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
909 
        set_ccr_zero
910 
 
911 
        mov     #word_dest-666, er0
912 
        shar.w  @(666:32, er0)  ; shift right arithmetic by one, disp32
913 
;;;     .word   0x7884
914 
;;;     .word   0x6b28
915 
;;;     .long   666
916 
;;;     .word   0x1190
917 
 
918 
        test_carry_set          ; H=0 N=1 Z=0 V=0 C=1
919 
        test_zero_clear
920 
        test_ovf_clear
921 
        test_neg_set
922 
 
923 
        test_h_gr32  word_dest-666 er0
924 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
925 
        test_gr_a5a5 2
926 
        test_gr_a5a5 3
927 
        test_gr_a5a5 4
928 
        test_gr_a5a5 5
929 
        test_gr_a5a5 6
930 
        test_gr_a5a5 7
931 
        ; 1010 0101 1010 0101 -> 1101 0010 1101 0010
932 
        cmp.w   #0xd2d2, @word_dest
933 
        beq     .Lwdisp321
934 
        fail
935 
.Lwdisp321:
936 
        mov.w   #0xa5a5, @word_dest
937 
 
938 
shar_w_abs16_1:
939 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
940 
        set_ccr_zero
941 
 
942 
        shar.w  @word_dest:16   ; shift right arithmetic by one, abs16
943 
;;;     .word   0x6b18
944 
;;;     .word   word_dest
945 
;;;     .word   0x1190
946 
 
947 
        test_carry_set          ; H=0 N=1 Z=0 V=0 C=1
948 
        test_zero_clear
949 
        test_ovf_clear
950 
        test_neg_set
951 
 
952 
        test_gr_a5a5 0           ; Make sure ALL general regs not disturbed
953 
        test_gr_a5a5 1
954 
        test_gr_a5a5 2
955 
        test_gr_a5a5 3
956 
        test_gr_a5a5 4
957 
        test_gr_a5a5 5
958 
        test_gr_a5a5 6
959 
        test_gr_a5a5 7
960 
        ; 1010 0101 1010 0101 -> 1101 0010 1101 0010
961 
        cmp.w   #0xd2d2, @word_dest
962 
        beq     .Lwabs161
963 
        fail
964 
.Lwabs161:
965 
        mov.w   #0xa5a5, @word_dest
966 
 
967 
shar_w_abs32_1:
968 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
969 
        set_ccr_zero
970 
 
971 
        shar.w  @word_dest:32   ; shift right arithmetic by one, abs32
972 
;;;     .word   0x6b38
973 
;;;     .long   word_dest
974 
;;;     .word   0x1190
975 
 
976 
        test_carry_set          ; H=0 N=1 Z=0 V=0 C=1
977 
        test_zero_clear
978 
        test_ovf_clear
979 
        test_neg_set
980 
 
981 
        test_gr_a5a5 0           ; Make sure ALL general regs not disturbed
982 
        test_gr_a5a5 1
983 
        test_gr_a5a5 2
984 
        test_gr_a5a5 3
985 
        test_gr_a5a5 4
986 
        test_gr_a5a5 5
987 
        test_gr_a5a5 6
988 
        test_gr_a5a5 7
989 
        ; 1010 0101 1010 0101 -> 1101 0010 1101 0010
990 
        cmp.w   #0xd2d2, @word_dest
991 
        beq     .Lwabs321
992 
        fail
993 
.Lwabs321:
994 
        mov.w   #0xa5a5, @word_dest
995 
.endif
996 
 
997 
shar_w_reg16_2:
998 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
999 
        set_ccr_zero
1000 
 
1001 
        shar.w  #2, r0          ; shift right arithmetic by two
1002 
;;;     .word   0x11d0
1003 
 
1004 
        test_carry_clear        ; H=0 N=1 Z=0 V=0 C=0
1005 
        test_zero_clear
1006 
        test_ovf_clear
1007 
        test_neg_set
1008 
 
1009 
        test_h_gr16 0xe969 r0   ; 1010 0101 1010 0101 -> 1110 1001 0110 1001
1010 
        test_h_gr32 0xa5a5e969 er0
1011 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
1012 
        test_gr_a5a5 2
1013 
        test_gr_a5a5 3
1014 
        test_gr_a5a5 4
1015 
        test_gr_a5a5 5
1016 
        test_gr_a5a5 6
1017 
        test_gr_a5a5 7
1018 
 
1019 
.if (sim_cpu == h8sx)
1020 
shar_w_ind_2:
1021 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
1022 
        set_ccr_zero
1023 
 
1024 
        mov     #word_dest, er0
1025 
        shar.w  #2, @er0        ; shift right arithmetic by two, indirect
1026 
;;;     .word   0x7d80
1027 
;;;     .word   0x11d0
1028 
 
1029 
        test_carry_clear                ; H=0 N=1 Z=0 V=0 C=0
1030 
        test_zero_clear
1031 
        test_ovf_clear
1032 
        test_neg_set
1033 
 
1034 
        test_h_gr32  word_dest er0
1035 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
1036 
        test_gr_a5a5 2
1037 
        test_gr_a5a5 3
1038 
        test_gr_a5a5 4
1039 
        test_gr_a5a5 5
1040 
        test_gr_a5a5 6
1041 
        test_gr_a5a5 7
1042 
        ; 1010 0101 1010 0101 -> 1110 1001 0110 1001
1043 
        cmp.w   #0xe969, @word_dest
1044 
        beq     .Lwind2
1045 
        fail
1046 
.Lwind2:
1047 
        mov.w   #0xa5a5, @word_dest
1048 
 
1049 
shar_w_postinc_2:
1050 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
1051 
        set_ccr_zero
1052 
 
1053 
        mov     #word_dest, er0
1054 
        shar.w  #2, @er0+       ; shift right arithmetic by two, postinc
1055 
;;;     .word   0x0154
1056 
;;;     .word   0x6d08
1057 
;;;     .word   0x11d0
1058 
 
1059 
        test_carry_clear                ; H=0 N=1 Z=0 V=0 C=0
1060 
        test_zero_clear
1061 
        test_ovf_clear
1062 
        test_neg_set
1063 
 
1064 
        test_h_gr32  word_dest+2 er0
1065 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
1066 
        test_gr_a5a5 2
1067 
        test_gr_a5a5 3
1068 
        test_gr_a5a5 4
1069 
        test_gr_a5a5 5
1070 
        test_gr_a5a5 6
1071 
        test_gr_a5a5 7
1072 
        ; 1010 0101 1010 0101 -> 1110 1001 0110 1001
1073 
        cmp.w   #0xe969, @word_dest
1074 
        beq     .Lwpostinc2
1075 
        fail
1076 
.Lwpostinc2:
1077 
        mov.w   #0xa5a5, @word_dest
1078 
 
1079 
shar_w_postdec_2:
1080 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
1081 
        set_ccr_zero
1082 
 
1083 
        mov     #word_dest, er0
1084 
        shar.w  #2, @er0-       ; shift right arithmetic by two, postdec
1085 
;;;     .word   0x0156
1086 
;;;     .word   0x6d08
1087 
;;;     .word   0x11d0
1088 
 
1089 
        test_carry_clear                ; H=0 N=1 Z=0 V=0 C=0
1090 
        test_zero_clear
1091 
        test_ovf_clear
1092 
        test_neg_set
1093 
 
1094 
        test_h_gr32  word_dest-2 er0
1095 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
1096 
        test_gr_a5a5 2
1097 
        test_gr_a5a5 3
1098 
        test_gr_a5a5 4
1099 
        test_gr_a5a5 5
1100 
        test_gr_a5a5 6
1101 
        test_gr_a5a5 7
1102 
        ; 1010 0101 1010 0101 -> 1110 1001 0110 1001
1103 
        cmp.w   #0xe969, @word_dest
1104 
        beq     .Lwpostdec2
1105 
        fail
1106 
.Lwpostdec2:
1107 
        mov.w   #0xa5a5, @word_dest
1108 
 
1109 
shar_w_preinc_2:
1110 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
1111 
        set_ccr_zero
1112 
 
1113 
        mov     #word_dest-2, er0
1114 
        shar.w  #2, @+er0       ; shift right arithmetic by two, preinc
1115 
;;;     .word   0x0155
1116 
;;;     .word   0x6d08
1117 
;;;     .word   0x11d0
1118 
 
1119 
        test_carry_clear                ; H=0 N=1 Z=0 V=0 C=0
1120 
        test_zero_clear
1121 
        test_ovf_clear
1122 
        test_neg_set
1123 
 
1124 
        test_h_gr32  word_dest er0
1125 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
1126 
        test_gr_a5a5 2
1127 
        test_gr_a5a5 3
1128 
        test_gr_a5a5 4
1129 
        test_gr_a5a5 5
1130 
        test_gr_a5a5 6
1131 
        test_gr_a5a5 7
1132 
        ; 1010 0101 1010 0101 -> 1110 1001 0110 1001
1133 
        cmp.w   #0xe969, @word_dest
1134 
        beq     .Lwpreinc2
1135 
        fail
1136 
.Lwpreinc2:
1137 
        mov.w   #0xa5a5, @word_dest
1138 
 
1139 
shar_w_predec_2:
1140 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
1141 
        set_ccr_zero
1142 
 
1143 
        mov     #word_dest+2, er0
1144 
        shar.w  #2, @-er0       ; shift right arithmetic by two, predec
1145 
;;;     .word   0x0157
1146 
;;;     .word   0x6d08
1147 
;;;     .word   0x11d0
1148 
 
1149 
        test_carry_clear                ; H=0 N=1 Z=0 V=0 C=0
1150 
        test_zero_clear
1151 
        test_ovf_clear
1152 
        test_neg_set
1153 
 
1154 
        test_h_gr32  word_dest er0
1155 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
1156 
        test_gr_a5a5 2
1157 
        test_gr_a5a5 3
1158 
        test_gr_a5a5 4
1159 
        test_gr_a5a5 5
1160 
        test_gr_a5a5 6
1161 
        test_gr_a5a5 7
1162 
        ; 1010 0101 1010 0101 -> 1110 1001 0110 1001
1163 
        cmp.w   #0xe969, @word_dest
1164 
        beq     .Lwpredec2
1165 
        fail
1166 
.Lwpredec2:
1167 
        mov.w   #0xa5a5, @word_dest
1168 
 
1169 
shar_w_disp2_2:
1170 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
1171 
        set_ccr_zero
1172 
 
1173 
        mov     #word_dest-4, er0
1174 
        shar.w  #2, @(4:2, er0) ; shift right arithmetic by two, disp2
1175 
;;;     .word   0x0156
1176 
;;;     .word   0x6908
1177 
;;;     .word   0x11d0
1178 
 
1179 
        test_carry_clear                ; H=0 N=1 Z=0 V=0 C=0
1180 
        test_zero_clear
1181 
        test_ovf_clear
1182 
        test_neg_set
1183 
 
1184 
        test_h_gr32  word_dest-4 er0
1185 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
1186 
        test_gr_a5a5 2
1187 
        test_gr_a5a5 3
1188 
        test_gr_a5a5 4
1189 
        test_gr_a5a5 5
1190 
        test_gr_a5a5 6
1191 
        test_gr_a5a5 7
1192 
        ; 1010 0101 1010 0101 -> 1110 1001 0110 1001
1193 
        cmp.w   #0xe969, @word_dest
1194 
        beq     .Lwdisp22
1195 
        fail
1196 
.Lwdisp22:
1197 
        mov.w   #0xa5a5, @word_dest
1198 
 
1199 
shar_w_disp16_2:
1200 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
1201 
        set_ccr_zero
1202 
 
1203 
        mov     #word_dest-44, er0
1204 
        shar.w  #2, @(44:16, er0)       ; shift right arithmetic by two, disp16
1205 
;;;     .word   0x0154
1206 
;;;     .word   0x6f08
1207 
;;;     .word   44
1208 
;;;     .word   0x11d0
1209 
 
1210 
        test_carry_clear                ; H=0 N=1 Z=0 V=0 C=0
1211 
        test_zero_clear
1212 
        test_ovf_clear
1213 
        test_neg_set
1214 
 
1215 
        test_h_gr32  word_dest-44 er0
1216 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
1217 
        test_gr_a5a5 2
1218 
        test_gr_a5a5 3
1219 
        test_gr_a5a5 4
1220 
        test_gr_a5a5 5
1221 
        test_gr_a5a5 6
1222 
        test_gr_a5a5 7
1223 
        ; 1010 0101 1010 0101 -> 1110 1001 0110 1001
1224 
        cmp.w   #0xe969, @word_dest
1225 
        beq     .Lwdisp162
1226 
        fail
1227 
.Lwdisp162:
1228 
        mov.w   #0xa5a5, @word_dest
1229 
 
1230 
shar_w_disp32_2:
1231 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
1232 
        set_ccr_zero
1233 
 
1234 
        mov     #word_dest-666, er0
1235 
        shar.w  #2, @(666:32, er0)      ; shift right arithmetic by two, disp32
1236 
;;;     .word   0x7884
1237 
;;;     .word   0x6b28
1238 
;;;     .long   666
1239 
;;;     .word   0x11d0
1240 
 
1241 
        test_carry_clear                ; H=0 N=1 Z=0 V=0 C=0
1242 
        test_zero_clear
1243 
        test_ovf_clear
1244 
        test_neg_set
1245 
 
1246 
        test_h_gr32  word_dest-666 er0
1247 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
1248 
        test_gr_a5a5 2
1249 
        test_gr_a5a5 3
1250 
        test_gr_a5a5 4
1251 
        test_gr_a5a5 5
1252 
        test_gr_a5a5 6
1253 
        test_gr_a5a5 7
1254 
        ; 1010 0101 1010 0101 -> 1110 1001 0110 1001
1255 
        cmp.w   #0xe969, @word_dest
1256 
        beq     .Lwdisp322
1257 
        fail
1258 
.Lwdisp322:
1259 
        mov.w   #0xa5a5, @word_dest
1260 
 
1261 
shar_w_abs16_2:
1262 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
1263 
        set_ccr_zero
1264 
 
1265 
        shar.w  #2, @word_dest:16       ; shift right arithmetic by two, abs16
1266 
;;;     .word   0x6b18
1267 
;;;     .word   word_dest
1268 
;;;     .word   0x11d0
1269 
 
1270 
        test_carry_clear                ; H=0 N=1 Z=0 V=0 C=0
1271 
        test_zero_clear
1272 
        test_ovf_clear
1273 
        test_neg_set
1274 
 
1275 
        test_gr_a5a5 0           ; Make sure ALL general regs not disturbed
1276 
        test_gr_a5a5 2
1277 
        test_gr_a5a5 2
1278 
        test_gr_a5a5 3
1279 
        test_gr_a5a5 4
1280 
        test_gr_a5a5 5
1281 
        test_gr_a5a5 6
1282 
        test_gr_a5a5 7
1283 
        ; 1010 0101 1010 0101 -> 1110 1001 0110 1001
1284 
        cmp.w   #0xe969, @word_dest
1285 
        beq     .Lwabs162
1286 
        fail
1287 
.Lwabs162:
1288 
        mov.w   #0xa5a5, @word_dest
1289 
 
1290 
shar_w_abs32_2:
1291 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
1292 
        set_ccr_zero
1293 
 
1294 
        shar.w  #2, @word_dest:32       ; shift right arithmetic by two, abs32
1295 
;;;     .word   0x6b38
1296 
;;;     .long   word_dest
1297 
;;;     .word   0x11d0
1298 
 
1299 
        test_carry_clear                ; H=0 N=1 Z=0 V=0 C=0
1300 
        test_zero_clear
1301 
        test_ovf_clear
1302 
        test_neg_set
1303 
 
1304 
        test_gr_a5a5 0           ; Make sure ALL general regs not disturbed
1305 
        test_gr_a5a5 2
1306 
        test_gr_a5a5 2
1307 
        test_gr_a5a5 3
1308 
        test_gr_a5a5 4
1309 
        test_gr_a5a5 5
1310 
        test_gr_a5a5 6
1311 
        test_gr_a5a5 7
1312 
        ; 1010 0101 1010 0101 -> 1110 1001 0110 1001
1313 
        cmp.w   #0xe969, @word_dest
1314 
        beq     .Lwabs322
1315 
        fail
1316 
.Lwabs322:
1317 
        mov.w   #0xa5a5, @word_dest
1318 
.endif
1319 
 
1320 
shar_l_reg32_1:
1321 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
1322 
        set_ccr_zero
1323 
 
1324 
        shar.l  er0             ; shift right arithmetic by one, register
1325 
;;;     .word   0x11b0
1326 
 
1327 
        test_carry_set          ; H=0 N=1 Z=0 V=0 C=1
1328 
        test_zero_clear
1329 
        test_ovf_clear
1330 
        test_neg_set
1331 
 
1332 
        ; 1010 0101 1010 0101 1010 0101 1010 0101
1333 
        ; -> 1101 0010 1101 0010 1101 0010 1101 0010
1334 
        test_h_gr32  0xd2d2d2d2 er0
1335 
 
1336 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
1337 
        test_gr_a5a5 2
1338 
        test_gr_a5a5 3
1339 
        test_gr_a5a5 4
1340 
        test_gr_a5a5 5
1341 
        test_gr_a5a5 6
1342 
        test_gr_a5a5 7
1343 
 
1344 
.if (sim_cpu == h8sx)
1345 
shar_l_ind_1:
1346 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
1347 
        set_ccr_zero
1348 
 
1349 
        mov     #long_dest, er0
1350 
        shar.l  @er0    ; shift right arithmetic by one, indirect
1351 
;;;     .word   0x0104
1352 
;;;     .word   0x6908
1353 
;;;     .word   0x11b0
1354 
 
1355 
        test_carry_set          ; H=0 N=1 Z=0 V=0 C=1
1356 
        test_zero_clear
1357 
        test_ovf_clear
1358 
        test_neg_set
1359 
 
1360 
        test_h_gr32  long_dest er0
1361 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
1362 
        test_gr_a5a5 2
1363 
        test_gr_a5a5 3
1364 
        test_gr_a5a5 4
1365 
        test_gr_a5a5 5
1366 
        test_gr_a5a5 6
1367 
        test_gr_a5a5 7
1368 
        ; 1010 0101 1010 0101 1010 0101 1010 0101
1369 
        ;; -> 1101 0010 1101 0010 1101 0010 1101 0010
1370 
        cmp.l   #0xd2d2d2d2, @long_dest
1371 
        beq     .Llind1
1372 
        fail
1373 
.Llind1:
1374 
        mov     #0xa5a5a5a5, @long_dest
1375 
 
1376 
shar_l_postinc_1:
1377 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
1378 
        set_ccr_zero
1379 
 
1380 
        mov     #long_dest, er0
1381 
        shar.l  @er0+   ; shift right arithmetic by one, postinc
1382 
;;;     .word   0x0104
1383 
;;;     .word   0x6d08
1384 
;;;     .word   0x11b0
1385 
 
1386 
        test_carry_set          ; H=0 N=1 Z=0 V=0 C=1
1387 
        test_zero_clear
1388 
        test_ovf_clear
1389 
        test_neg_set
1390 
 
1391 
        test_h_gr32  long_dest+4 er0
1392 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
1393 
        test_gr_a5a5 2
1394 
        test_gr_a5a5 3
1395 
        test_gr_a5a5 4
1396 
        test_gr_a5a5 5
1397 
        test_gr_a5a5 6
1398 
        test_gr_a5a5 7
1399 
        ; 1010 0101 1010 0101 1010 0101 1010 0101
1400 
        ;; -> 1101 0010 1101 0010 1101 0010 1101 0010
1401 
        cmp.l   #0xd2d2d2d2, @long_dest
1402 
        beq     .Llpostinc1
1403 
        fail
1404 
.Llpostinc1:
1405 
        mov     #0xa5a5a5a5, @long_dest
1406 
 
1407 
shar_l_postdec_1:
1408 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
1409 
        set_ccr_zero
1410 
 
1411 
        mov     #long_dest, er0
1412 
        shar.l  @er0-   ; shift right arithmetic by one, postdec
1413 
;;;     .word   0x0106
1414 
;;;     .word   0x6d08
1415 
;;;     .word   0x11b0
1416 
 
1417 
        test_carry_set          ; H=0 N=1 Z=0 V=0 C=1
1418 
        test_zero_clear
1419 
        test_ovf_clear
1420 
        test_neg_set
1421 
 
1422 
        test_h_gr32  long_dest-4 er0
1423 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
1424 
        test_gr_a5a5 2
1425 
        test_gr_a5a5 3
1426 
        test_gr_a5a5 4
1427 
        test_gr_a5a5 5
1428 
        test_gr_a5a5 6
1429 
        test_gr_a5a5 7
1430 
        ; 1010 0101 1010 0101 1010 0101 1010 0101
1431 
        ;; -> 1101 0010 1101 0010 1101 0010 1101 0010
1432 
        cmp.l   #0xd2d2d2d2, @long_dest
1433 
        beq     .Llpostdec1
1434 
        fail
1435 
.Llpostdec1:
1436 
        mov     #0xa5a5a5a5, @long_dest
1437 
 
1438 
shar_l_preinc_1:
1439 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
1440 
        set_ccr_zero
1441 
 
1442 
        mov     #long_dest-4, er0
1443 
        shar.l  @+er0   ; shift right arithmetic by one, preinc
1444 
;;;     .word   0x0105
1445 
;;;     .word   0x6d08
1446 
;;;     .word   0x11b0
1447 
 
1448 
        test_carry_set          ; H=0 N=1 Z=0 V=0 C=1
1449 
        test_zero_clear
1450 
        test_ovf_clear
1451 
        test_neg_set
1452 
 
1453 
        test_h_gr32  long_dest er0
1454 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
1455 
        test_gr_a5a5 2
1456 
        test_gr_a5a5 3
1457 
        test_gr_a5a5 4
1458 
        test_gr_a5a5 5
1459 
        test_gr_a5a5 6
1460 
        test_gr_a5a5 7
1461 
        ; 1010 0101 1010 0101 1010 0101 1010 0101
1462 
        ;; -> 1101 0010 1101 0010 1101 0010 1101 0010
1463 
        cmp.l   #0xd2d2d2d2, @long_dest
1464 
        beq     .Llpreinc1
1465 
        fail
1466 
.Llpreinc1:
1467 
        mov     #0xa5a5a5a5, @long_dest
1468 
 
1469 
shar_l_predec_1:
1470 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
1471 
        set_ccr_zero
1472 
 
1473 
        mov     #long_dest+4, er0
1474 
        shar.l  @-er0   ; shift right arithmetic by one, predec
1475 
;;;     .word   0x0107
1476 
;;;     .word   0x6d08
1477 
;;;     .word   0x11b0
1478 
 
1479 
        test_carry_set          ; H=0 N=1 Z=0 V=0 C=1
1480 
        test_zero_clear
1481 
        test_ovf_clear
1482 
        test_neg_set
1483 
 
1484 
        test_h_gr32  long_dest er0
1485 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
1486 
        test_gr_a5a5 2
1487 
        test_gr_a5a5 3
1488 
        test_gr_a5a5 4
1489 
        test_gr_a5a5 5
1490 
        test_gr_a5a5 6
1491 
        test_gr_a5a5 7
1492 
        ; 1010 0101 1010 0101 1010 0101 1010 0101
1493 
        ;; -> 1101 0010 1101 0010 1101 0010 1101 0010
1494 
        cmp.l   #0xd2d2d2d2, @long_dest
1495 
        beq     .Llpredec1
1496 
        fail
1497 
.Llpredec1:
1498 
        mov     #0xa5a5a5a5, @long_dest
1499 
 
1500 
shar_l_disp2_1:
1501 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
1502 
        set_ccr_zero
1503 
 
1504 
        mov     #long_dest-8, er0
1505 
        shar.l  @(8:2, er0)     ; shift right arithmetic by one, disp2
1506 
;;;     .word   0x0106
1507 
;;;     .word   0x6908
1508 
;;;     .word   0x11b0
1509 
 
1510 
        test_carry_set          ; H=0 N=1 Z=0 V=0 C=1
1511 
        test_zero_clear
1512 
        test_ovf_clear
1513 
        test_neg_set
1514 
 
1515 
        test_h_gr32  long_dest-8 er0
1516 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
1517 
        test_gr_a5a5 2
1518 
        test_gr_a5a5 3
1519 
        test_gr_a5a5 4
1520 
        test_gr_a5a5 5
1521 
        test_gr_a5a5 6
1522 
        test_gr_a5a5 7
1523 
        ; 1010 0101 1010 0101 1010 0101 1010 0101
1524 
        ;; -> 1101 0010 1101 0010 1101 0010 1101 0010
1525 
        cmp.l   #0xd2d2d2d2, @long_dest
1526 
        beq     .Lldisp21
1527 
        fail
1528 
.Lldisp21:
1529 
        mov     #0xa5a5a5a5, @long_dest
1530 
 
1531 
shar_l_disp16_1:
1532 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
1533 
        set_ccr_zero
1534 
 
1535 
        mov     #long_dest-44, er0
1536 
        shar.l  @(44:16, er0)   ; shift right arithmetic by one, disp16
1537 
;;;     .word   0x0104
1538 
;;;     .word   0x6f08
1539 
;;;     .word   44
1540 
;;;     .word   0x11b0
1541 
 
1542 
        test_carry_set          ; H=0 N=1 Z=0 V=0 C=1
1543 
        test_zero_clear
1544 
        test_ovf_clear
1545 
        test_neg_set
1546 
 
1547 
        test_h_gr32  long_dest-44 er0
1548 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
1549 
        test_gr_a5a5 2
1550 
        test_gr_a5a5 3
1551 
        test_gr_a5a5 4
1552 
        test_gr_a5a5 5
1553 
        test_gr_a5a5 6
1554 
        test_gr_a5a5 7
1555 
        ; 1010 0101 1010 0101 1010 0101 1010 0101
1556 
        ;; -> 1101 0010 1101 0010 1101 0010 1101 0010
1557 
        cmp.l   #0xd2d2d2d2, @long_dest
1558 
        beq     .Lldisp161
1559 
        fail
1560 
.Lldisp161:
1561 
        mov     #0xa5a5a5a5, @long_dest
1562 
 
1563 
shar_l_disp32_1:
1564 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
1565 
        set_ccr_zero
1566 
 
1567 
        mov     #long_dest-666, er0
1568 
        shar.l  @(666:32, er0)  ; shift right arithmetic by one, disp32
1569 
;;;     .word   0x7884
1570 
;;;     .word   0x6b28
1571 
;;;     .long   666
1572 
;;;     .word   0x11b0
1573 
 
1574 
        test_carry_set          ; H=0 N=1 Z=0 V=0 C=1
1575 
        test_zero_clear
1576 
        test_ovf_clear
1577 
        test_neg_set
1578 
 
1579 
        test_h_gr32  long_dest-666 er0
1580 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
1581 
        test_gr_a5a5 2
1582 
        test_gr_a5a5 3
1583 
        test_gr_a5a5 4
1584 
        test_gr_a5a5 5
1585 
        test_gr_a5a5 6
1586 
        test_gr_a5a5 7
1587 
        ; 1010 0101 1010 0101 1010 0101 1010 0101
1588 
        ;; -> 1101 0010 1101 0010 1101 0010 1101 0010
1589 
        cmp.l   #0xd2d2d2d2, @long_dest
1590 
        beq     .Lldisp321
1591 
        fail
1592 
.Lldisp321:
1593 
        mov     #0xa5a5a5a5, @long_dest
1594 
 
1595 
shar_l_abs16_1:
1596 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
1597 
        set_ccr_zero
1598 
 
1599 
        shar.l  @long_dest:16   ; shift right arithmetic by one, abs16
1600 
;;;     .word   0x0104
1601 
;;;     .word   0x6b08
1602 
;;;     .word   long_dest
1603 
;;;     .word   0x11b0
1604 
 
1605 
        test_carry_set          ; H=0 N=1 Z=0 V=0 C=1
1606 
        test_zero_clear
1607 
        test_ovf_clear
1608 
        test_neg_set
1609 
 
1610 
        test_gr_a5a5 0           ; Make sure ALL general regs not disturbed
1611 
        test_gr_a5a5 1
1612 
        test_gr_a5a5 2
1613 
        test_gr_a5a5 3
1614 
        test_gr_a5a5 4
1615 
        test_gr_a5a5 5
1616 
        test_gr_a5a5 6
1617 
        test_gr_a5a5 7
1618 
        ; 1010 0101 1010 0101 1010 0101 1010 0101
1619 
        ;; -> 1101 0010 1101 0010 1101 0010 1101 0010
1620 
        cmp.l   #0xd2d2d2d2, @long_dest
1621 
        beq     .Llabs161
1622 
        fail
1623 
.Llabs161:
1624 
        mov     #0xa5a5a5a5, @long_dest
1625 
 
1626 
shar_l_abs32_1:
1627 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
1628 
        set_ccr_zero
1629 
 
1630 
        shar.l  @long_dest:32   ; shift right arithmetic by one, abs32
1631 
;;;     .word   0x0104
1632 
;;;     .word   0x6b28
1633 
;;;     .long   long_dest
1634 
;;;     .word   0x11b0
1635 
 
1636 
        test_carry_set          ; H=0 N=1 Z=0 V=0 C=1
1637 
        test_zero_clear
1638 
        test_ovf_clear
1639 
        test_neg_set
1640 
 
1641 
        test_gr_a5a5 0           ; Make sure ALL general regs not disturbed
1642 
        test_gr_a5a5 1
1643 
        test_gr_a5a5 2
1644 
        test_gr_a5a5 3
1645 
        test_gr_a5a5 4
1646 
        test_gr_a5a5 5
1647 
        test_gr_a5a5 6
1648 
        test_gr_a5a5 7
1649 
        ; 1010 0101 1010 0101 1010 0101 1010 0101
1650 
        ;; -> 1101 0010 1101 0010 1101 0010 1101 0010
1651 
        cmp.l   #0xd2d2d2d2, @long_dest
1652 
        beq     .Llabs321
1653 
        fail
1654 
.Llabs321:
1655 
        mov     #0xa5a5a5a5, @long_dest
1656 
.endif
1657 
 
1658 
shar_l_reg32_2:
1659 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
1660 
        set_ccr_zero
1661 
 
1662 
        shar.l  #2, er0         ; shift right arithmetic by two, register
1663 
;;;     .word   0x11f0
1664 
 
1665 
        test_carry_clear        ; H=0 N=1 Z=0 V=0 C=0
1666 
        test_zero_clear
1667 
        test_ovf_clear
1668 
        test_neg_set
1669 
        ; 1010 0101 1010 0101 1010 0101 1010 0101
1670 
        ; -> 1110 1001 0110 1001 0110 1001 0110 1001
1671 
        test_h_gr32  0xe9696969 er0
1672 
 
1673 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
1674 
        test_gr_a5a5 2
1675 
        test_gr_a5a5 3
1676 
        test_gr_a5a5 4
1677 
        test_gr_a5a5 5
1678 
        test_gr_a5a5 6
1679 
        test_gr_a5a5 7
1680 
 
1681 
.if (sim_cpu == h8sx)
1682 
 
1683 
shar_l_ind_2:
1684 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
1685 
        set_ccr_zero
1686 
 
1687 
        mov     #long_dest, er0
1688 
        shar.l  #2, @er0        ; shift right arithmetic by two, indirect
1689 
;;;     .word   0x0104
1690 
;;;     .word   0x6908
1691 
;;;     .word   0x11f0
1692 
 
1693 
        test_carry_clear                ; H=0 N=1 Z=0 V=0 C=0
1694 
        test_zero_clear
1695 
        test_ovf_clear
1696 
        test_neg_set
1697 
 
1698 
        test_h_gr32  long_dest er0
1699 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
1700 
        test_gr_a5a5 2
1701 
        test_gr_a5a5 3
1702 
        test_gr_a5a5 4
1703 
        test_gr_a5a5 5
1704 
        test_gr_a5a5 6
1705 
        test_gr_a5a5 7
1706 
        ; 1010 0101 1010 0101 1010 0101 1010 0101
1707 
        ;; -> 1110 1001 0110 1001 0110 1001 0110 1001
1708 
        cmp.l   #0xe9696969, @long_dest
1709 
        beq     .Llind2
1710 
        fail
1711 
.Llind2:
1712 
        mov     #0xa5a5a5a5, @long_dest
1713 
 
1714 
shar_l_postinc_2:
1715 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
1716 
        set_ccr_zero
1717 
 
1718 
        mov     #long_dest, er0
1719 
        shar.l  #2, @er0+       ; shift right arithmetic by two, postinc
1720 
;;;     .word   0x0104
1721 
;;;     .word   0x6d08
1722 
;;;     .word   0x11f0
1723 
 
1724 
        test_carry_clear                ; H=0 N=1 Z=0 V=0 C=0
1725 
        test_zero_clear
1726 
        test_ovf_clear
1727 
        test_neg_set
1728 
 
1729 
        test_h_gr32  long_dest+4 er0
1730 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
1731 
        test_gr_a5a5 2
1732 
        test_gr_a5a5 3
1733 
        test_gr_a5a5 4
1734 
        test_gr_a5a5 5
1735 
        test_gr_a5a5 6
1736 
        test_gr_a5a5 7
1737 
        ; 1010 0101 1010 0101 1010 0101 1010 0101
1738 
        ;; -> 1110 1001 0110 1001 0110 1001 0110 1001
1739 
        cmp.l   #0xe9696969, @long_dest
1740 
        beq     .Llpostinc2
1741 
        fail
1742 
.Llpostinc2:
1743 
        mov     #0xa5a5a5a5, @long_dest
1744 
 
1745 
shar_l_postdec_2:
1746 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
1747 
        set_ccr_zero
1748 
 
1749 
        mov     #long_dest, er0
1750 
        shar.l  #2, @er0-       ; shift right arithmetic by two, postdec
1751 
;;;     .word   0x0106
1752 
;;;     .word   0x6d08
1753 
;;;     .word   0x11f0
1754 
 
1755 
        test_carry_clear                ; H=0 N=1 Z=0 V=0 C=0
1756 
        test_zero_clear
1757 
        test_ovf_clear
1758 
        test_neg_set
1759 
 
1760 
        test_h_gr32  long_dest-4 er0
1761 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
1762 
        test_gr_a5a5 2
1763 
        test_gr_a5a5 3
1764 
        test_gr_a5a5 4
1765 
        test_gr_a5a5 5
1766 
        test_gr_a5a5 6
1767 
        test_gr_a5a5 7
1768 
        ; 1010 0101 1010 0101 1010 0101 1010 0101
1769 
        ;; -> 1110 1001 0110 1001 0110 1001 0110 1001
1770 
        cmp.l   #0xe9696969, @long_dest
1771 
        beq     .Llpostdec2
1772 
        fail
1773 
.Llpostdec2:
1774 
        mov     #0xa5a5a5a5, @long_dest
1775 
 
1776 
shar_l_preinc_2:
1777 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
1778 
        set_ccr_zero
1779 
 
1780 
        mov     #long_dest-4, er0
1781 
        shar.l  #2, @+er0       ; shift right arithmetic by two, preinc
1782 
;;;     .word   0x0105
1783 
;;;     .word   0x6d08
1784 
;;;     .word   0x11f0
1785 
 
1786 
        test_carry_clear                ; H=0 N=1 Z=0 V=0 C=0
1787 
        test_zero_clear
1788 
        test_ovf_clear
1789 
        test_neg_set
1790 
 
1791 
        test_h_gr32  long_dest er0
1792 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
1793 
        test_gr_a5a5 2
1794 
        test_gr_a5a5 3
1795 
        test_gr_a5a5 4
1796 
        test_gr_a5a5 5
1797 
        test_gr_a5a5 6
1798 
        test_gr_a5a5 7
1799 
        ; 1010 0101 1010 0101 1010 0101 1010 0101
1800 
        ;; -> 1110 1001 0110 1001 0110 1001 0110 1001
1801 
        cmp.l   #0xe9696969, @long_dest
1802 
        beq     .Llpreinc2
1803 
        fail
1804 
.Llpreinc2:
1805 
        mov     #0xa5a5a5a5, @long_dest
1806 
 
1807 
shar_l_predec_2:
1808 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
1809 
        set_ccr_zero
1810 
 
1811 
        mov     #long_dest+4, er0
1812 
        shar.l  #2, @-er0       ; shift right arithmetic by two, predec
1813 
;;;     .word   0x0107
1814 
;;;     .word   0x6d08
1815 
;;;     .word   0x11f0
1816 
 
1817 
        test_carry_clear                ; H=0 N=1 Z=0 V=0 C=0
1818 
        test_zero_clear
1819 
        test_ovf_clear
1820 
        test_neg_set
1821 
 
1822 
        test_h_gr32  long_dest er0
1823 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
1824 
        test_gr_a5a5 2
1825 
        test_gr_a5a5 3
1826 
        test_gr_a5a5 4
1827 
        test_gr_a5a5 5
1828 
        test_gr_a5a5 6
1829 
        test_gr_a5a5 7
1830 
        ; 1010 0101 1010 0101 1010 0101 1010 0101
1831 
        ;; -> 1110 1001 0110 1001 0110 1001 0110 1001
1832 
        cmp.l   #0xe9696969, @long_dest
1833 
        beq     .Llpredec2
1834 
        fail
1835 
.Llpredec2:
1836 
        mov     #0xa5a5a5a5, @long_dest
1837 
 
1838 
shar_l_disp2_2:
1839 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
1840 
        set_ccr_zero
1841 
 
1842 
        mov     #long_dest-8, er0
1843 
        shar.l  #2, @(8:2, er0) ; shift right arithmetic by two, disp2
1844 
;;;     .word   0x0106
1845 
;;;     .word   0x6908
1846 
;;;     .word   0x11f0
1847 
 
1848 
        test_carry_clear                ; H=0 N=1 Z=0 V=0 C=0
1849 
        test_zero_clear
1850 
        test_ovf_clear
1851 
        test_neg_set
1852 
 
1853 
        test_h_gr32  long_dest-8 er0
1854 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
1855 
        test_gr_a5a5 2
1856 
        test_gr_a5a5 3
1857 
        test_gr_a5a5 4
1858 
        test_gr_a5a5 5
1859 
        test_gr_a5a5 6
1860 
        test_gr_a5a5 7
1861 
        ; 1010 0101 1010 0101 1010 0101 1010 0101
1862 
        ;; -> 1110 1001 0110 1001 0110 1001 0110 1001
1863 
        cmp.l   #0xe9696969, @long_dest
1864 
        beq     .Lldisp22
1865 
        fail
1866 
.Lldisp22:
1867 
        mov     #0xa5a5a5a5, @long_dest
1868 
 
1869 
shar_l_disp16_2:
1870 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
1871 
        set_ccr_zero
1872 
 
1873 
        mov     #long_dest-44, er0
1874 
        shar.l  #2, @(44:16, er0)       ; shift right arithmetic by two, disp16
1875 
;;;     .word   0x0104
1876 
;;;     .word   0x6f08
1877 
;;;     .word   44
1878 
;;;     .word   0x11f0
1879 
 
1880 
        test_carry_clear                ; H=0 N=1 Z=0 V=0 C=0
1881 
        test_zero_clear
1882 
        test_ovf_clear
1883 
        test_neg_set
1884 
 
1885 
        test_h_gr32  long_dest-44 er0
1886 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
1887 
        test_gr_a5a5 2
1888 
        test_gr_a5a5 3
1889 
        test_gr_a5a5 4
1890 
        test_gr_a5a5 5
1891 
        test_gr_a5a5 6
1892 
        test_gr_a5a5 7
1893 
        ; 1010 0101 1010 0101 1010 0101 1010 0101
1894 
        ;; -> 1110 1001 0110 1001 0110 1001 0110 1001
1895 
        cmp.l   #0xe9696969, @long_dest
1896 
        beq     .Lldisp162
1897 
        fail
1898 
.Lldisp162:
1899 
        mov     #0xa5a5a5a5, @long_dest
1900 
 
1901 
shar_l_disp32_2:
1902 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
1903 
        set_ccr_zero
1904 
 
1905 
        mov     #long_dest-666, er0
1906 
        shar.l  #2, @(666:32, er0)      ; shift right arithmetic by two, disp32
1907 
;;;     .word   0x7884
1908 
;;;     .word   0x6b28
1909 
;;;     .long   666
1910 
;;;     .word   0x11f0
1911 
 
1912 
        test_carry_clear                ; H=0 N=1 Z=0 V=0 C=0
1913 
        test_zero_clear
1914 
        test_ovf_clear
1915 
        test_neg_set
1916 
 
1917 
        test_h_gr32  long_dest-666 er0
1918 
        test_gr_a5a5 1          ; Make sure other general regs not disturbed
1919 
        test_gr_a5a5 2
1920 
        test_gr_a5a5 3
1921 
        test_gr_a5a5 4
1922 
        test_gr_a5a5 5
1923 
        test_gr_a5a5 6
1924 
        test_gr_a5a5 7
1925 
        ; 1010 0101 1010 0101 1010 0101 1010 0101
1926 
        ;; -> 1110 1001 0110 1001 0110 1001 0110 1001
1927 
        cmp.l   #0xe9696969, @long_dest
1928 
        beq     .Lldisp322
1929 
        fail
1930 
.Lldisp322:
1931 
        mov     #0xa5a5a5a5, @long_dest
1932 
 
1933 
shar_l_abs16_2:
1934 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
1935 
        set_ccr_zero
1936 
 
1937 
        shar.l  #2, @long_dest:16       ; shift right arithmetic by two, abs16
1938 
;;;     .word   0x0104
1939 
;;;     .word   0x6b08
1940 
;;;     .word   long_dest
1941 
;;;     .word   0x11f0
1942 
 
1943 
        test_carry_clear                ; H=0 N=1 Z=0 V=0 C=0
1944 
        test_zero_clear
1945 
        test_ovf_clear
1946 
        test_neg_set
1947 
 
1948 
        test_gr_a5a5 0           ; Make sure ALL general regs not disturbed
1949 
        test_gr_a5a5 1
1950 
        test_gr_a5a5 2
1951 
        test_gr_a5a5 3
1952 
        test_gr_a5a5 4
1953 
        test_gr_a5a5 5
1954 
        test_gr_a5a5 6
1955 
        test_gr_a5a5 7
1956 
        ; 1010 0101 1010 0101 1010 0101 1010 0101
1957 
        ;; -> 1110 1001 0110 1001 0110 1001 0110 1001
1958 
        cmp.l   #0xe9696969, @long_dest
1959 
        beq     .Llabs162
1960 
        fail
1961 
.Llabs162:
1962 
        mov     #0xa5a5a5a5, @long_dest
1963 
 
1964 
shar_l_abs32_2:
1965 
        set_grs_a5a5            ; Fill all general regs with a fixed pattern
1966 
        set_ccr_zero
1967 
 
1968 
        shar.l  #2, @long_dest:32       ; shift right arithmetic by two, abs32
1969 
;;;     .word   0x0104
1970 
;;;     .word   0x6b28
1971 
;;;     .long   long_dest
1972 
;;;     .word   0x11f0
1973 
 
1974 
        test_carry_clear                ; H=0 N=1 Z=0 V=0 C=0
1975 
        test_zero_clear
1976 
        test_ovf_clear
1977 
        test_neg_set
1978 
 
1979 
        test_gr_a5a5 0           ; Make sure ALL general regs not disturbed
1980 
        test_gr_a5a5 1
1981 
        test_gr_a5a5 2
1982 
        test_gr_a5a5 3
1983 
        test_gr_a5a5 4
1984 
        test_gr_a5a5 5
1985 
        test_gr_a5a5 6
1986 
        test_gr_a5a5 7
1987 
        ; 1010 0101 1010 0101 1010 0101 1010 0101
1988 
        ;; -> 1110 1001 0110 1001 0110 1001 0110 1001
1989 
        cmp.l   #0xe9696969, @long_dest
1990 
        beq     .Llabs322
1991 
        fail
1992 
.Llabs322:
1993 
        mov     #0xa5a5a5a5, @long_dest
1994 
 
1995 
.endif
1996 
.endif
1997 
        pass
1998 
 
1999 
        exit 0
2000 
 

powered by: WebSVN 2.1.0

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