1	.text
2	.global abs
3abs:
4	a0 = abs a0;
5	A0 = ABS A1;
6	A1 = Abs a0;
7	a1 = aBs A1;
8	A1 = abs a1, a0 = ABS A0;
9	r0 = abs r2;
10
11	.text
12	.global add
13add:
14	sp = sp + P0;
15	SP = SP + P2;
16	FP = p1 + fp;
17
18	R7 = r7 + r2 (NS);
19	r6 = r6 + r0 (s);
20
21	r4.L = R2.h + r0.L (s);
22	r5.H = R1.H + R1.L (S);
23	r6.L = R6.L + r5.l (NS);
24
25	.text
26	.global add_sub_prescale_down
27add_sub_prescale_down:
28	r4.l = r0 + r1 (RND20);
29	R3.H = r5 + r0 (rnd20);
30	r1.L = r7 - R5 (rND20);
31
32	.text
33	.global add_sub_prescale_up
34add_sub_prescale_up:
35	r2.L = R0 + R1 (rnd12);
36	r7.H = r7 + r6 (RND12);
37	r5.l = r3 - R2 (rNd12);
38	r2.h = R1 - R2 (Rnd12);
39
40	.text
41	.global add_immediate
42add_immediate:
43	R5 += -64;
44	r2 += 63;
45	i0 += 2;
46	I3 += 2;
47	I2 += 4;
48	i1 += 4;
49	P0 += 4;
50	sp += 16;
51	FP += -32;
52
53	.text
54	.global divide_primitive
55divide_primitive:
56	divs (r3, r5);
57	divq (R3, R5);
58
59	.text
60	.global expadj
61expadj:
62	r6.L = EXPADJ (r5, r4.l);
63	R5.l = ExpAdj (r0.h, r1.l);
64	R4.L = expadj (R3, R5.L) (V);
65
66	.text
67	.global max
68max:
69	R6 = MAX (r5, R2);
70	r0 = max (r1, r3);
71
72	.text
73	.global min
74min:
75	r5 = mIn (r2, R3);
76	R4 = Min (r7, R0);
77
78
79	.text
80	.global modify_decrement
81modify_decrement:
82	A0 -= A1;
83	a0 -= a1 (w32);
84	fp -= p2;
85	SP -= P0;
86	I3 -= M0;
87	i1 -= m1;
88
89	.text
90	.global modify_increment
91modify_increment:
92	a0 += a1;
93	A0 += A1 (w32);
94	Sp += P1 (Brev);
95	P5 += Fp (BREV);
96	i2 += M2;
97	I0 += m0 (brev);
98	r7 = ( a0 += a1);
99	r6.l = (A0 += a1);
100	R0.H = (a0 += A1);
101
102	.text
103	.global multiply16
104multiply16:
105	R0.l = r1.h * r2.l;
106	r1.L = r5.H * r0.H (s2rnd);
107	r7.l = r3.l * r3.H (FU);
108	r4 = r2.H * r5.H (iSS2);
109	r0 = r1.l * r3.l (is);
110	r6 = R5.H * r0.l;
111
112	r2.h = r7.l * r6.H (M, iu);
113	r3.H = r5.H * r0.L;
114	R0.H = r1.L * r1.H (M);
115	r1 = r7.H * r6.L (M, is);
116	R5 = r0.l * r2.h;
117	r3 = r6.H * r0.H (m);
118
119	.text
120	.global multiply32
121multiply32:
122	R4 *= r0;
123	r7 *= R2;
124
125	.text
126	.global multiply_accumulate
127multiply_accumulate:
128	a0 = r5.l * R7.H (w32);
129	a0 = r0.h * r0.l;
130	A0 += R2.L * r3.H (FU);
131	A0 += r4.h * r1.L;
132	a0 -= r7.l * r6.H (Is);
133	A0 -= R5.H * r2.H;
134
135	a1 = r1.L * r0.H (M);
136	A1 = r2.h * r0.L;
137	A1 = R7.H * R6.L (M, W32);
138	a1 += r3.l * r2.l (fu);
139	a1 += R6.H * r1.L;
140	A1 -= r0.L * R3.H (is);
141	a1 -= r2.l * r7.h;
142
143	.text
144	.global multiply_accumulate_half
145multiply_accumulate_half:
146	r7.l = (a0 = r6.H * r5.L);
147	r0.L = (A0 = r1.h * R2.l) (tfu);
148	R2.L = (a0 += r5.L * r4.L);
149	r3.l = (A0 += r7.H * r6.h) (T);
150	r0.l = (a0 -= r3.h * r2.h);
151	r1.l = (a0 -= r5.L * r4.L) (iH);
152
153	r1.H = (a1 = r1.l * R0.H);
154	r2.h = (A1 = r0.H * r3.L) (M, Iss2);
155	R6.H = (a1 += r7.l * r7.H);
156	r7.h = (a1 += R2.L * R3.L) (S2rnd);
157	r6.H = (A1 -= R4.h * r2.h);
158	r5.h = (a1 -= r3.H * r7.L) (M, tFu);
159
160	.text
161	.global multiply_accumulate_data_reg
162multiply_accumulate_data_reg:
163	R0 = (A0 = R1.L * R2.L);
164	R2 = (A0 = r1.l * r2.l) (is);
165	r4 = (a0 += r7.h * r6.L);
166	r6 = (A0 += R5.L * r3.h) (s2RND);
167	R6 = (a0 -= r2.h * r7.l);
168	r4 = (A0 -= R0.L * r6.H) (FU);
169
170	r7 = (a1 = r0.h * r1.l);
171	R5 = (A1 = r2.H * r3.H) (M, fu);
172	R3 = (A1 += r7.l * r5.l);
173	r1 = (a1 += r2.h * r7.h) (iss2);
174	r3 = (A1 -= r0.l * R0.H);
175	R5 = (a1 -= R2.l * R7.h) (m, is);
176	r7 = (a1+=r1.h*r3.h) (IU);
177
178	.text
179	.global negate
180negate:
181	R5 = - r0;
182	r7 = -R2(s);
183	R7 = -r2(Ns);
184	A0 = -A0;
185	a0 = -a1;
186	A1 = -A0;
187	a1 = -A1;
188	a1 = -a1, a0 = -a0;
189
190	.text
191	.global round_half
192round_half:
193	R5.L = r3 (rnd);
194	r6.H = r0 (RND);
195
196	.text
197	.global saturate
198saturate:
199	A0 = A0 (S);
200	a1 = a1 (s);
201	A1 = a1 (S), a0 = A0 (s);
202
203	.text
204	.global signbits
205signbits:
206	R5.l = signbits r0;
207	r0.L = SIGNbits r7.H;
208	r3.l = signBits A0;
209	r7.L = SIGNBITS a1;
210
211	.text
212	.global subtract
213subtract:
214	R5 = R3 - R0;
215	R7 = R7 - r0 (S);
216	r3 = r2 - r1 (ns);
217
218	r5.l = R6.H - R7.h (s);
219	r0.H = r3.l - r3.h (NS);
220
221	.text
222	.global subtract_immediate
223subtract_immediate:
224	I2 -= 2;
225	i0 -= 4;
226
227