1# Test for correct generation of 9s12x specific moves
2
3	.sect .text
4;;
5;; Test all s12x extended forms of movb, movw
6;; page 273 et seq in S12XCPUV2
7;;
8v1=4
9v2=68
10v3=88
11v4=0x89
12v5=0xfe
13v6=0x80
14a1=0x1234
15a2=0x3456
16a3=0x8123
17a4=0xc567
18a5=0x2987
19a6=0x1009
20
21;movb
22    movb     #v1, a1
23    movb     #v2, 0,x
24    movb     #v3, -254,y
25    movb     #v4, a1,sp
26    movb     #v5, [d,x]
27    movb     #v6, [a2,sp]
28
29    movb     a1, a2
30    movb     a2, 1,x
31    movb     a3, 255,y
32    movb     a4, a1,sp
33    movb     a5, [d,y]
34    movb     a6, [a3,sp]
35
36    movb     1,x+, a1
37    movb     2,-x, 15,x
38    movb     7,sp+, 253,y
39    movb     6,-sp, a2,sp
40    movb     -15,y, [d,x]
41    movb     13,sp, [a5,sp]
42
43    movb     [d,x], a1
44    movb     [d,y], 14,x
45    movb     [d,sp], 253,y
46    movb     [d,pc], a2,sp
47    movb     [d,x], [d,x]
48    movb     [d,y], [a5,sp]
49
50    movb     [a1,x], a2
51    movb     [a2,y], 13,x
52    movb     [a3,sp], 251,y
53    movb     [a4,pc], a3,sp
54    movb     [a5,x], [d,pc]
55    movb     [a6,y], [a5,sp]
56
57;movw
58    movw     #a1, a1
59    movw     #a2, 0,x
60    movw     #a3, -254,y
61    movw     #a4, a1,sp
62    movw     #a5, [d,x]
63    movw     #a6, [a2,sp]
64
65    movw     a1, a2
66    movw     a2, 1,x
67    movw     a3, 255,y
68    movw     a4, a1,sp
69    movw     a5, [d,y]
70    movw     a6, [a3,sp]
71
72    movw     1,x+, a1
73    movw     2,-x, 15,x
74    movw     7,sp+, 253,y
75    movw     6,-sp, a2,sp
76    movw     -15,y, [d,x]
77    movw     13,sp, [a5,sp]
78
79    movw     [d,x], a1
80    movw     [d,y], 14,x
81    movw     [d,sp], 253,y
82    movw     [d,pc], a2,sp
83    movw     [d,x], [d,x]
84    movw     [d,y], [a5,sp]
85
86    movw     [a1,x], a2
87    movw     [a2,y], 13,x
88    movw     [a3,sp], 251,y
89    movw     [a4,pc], a3,sp
90    movw     [a5,x], [d,pc]
91    movw     [a6,y], [a5,sp]
92