| blob | 35848c957acd3f289726a3f1c346273d849cbf9f |
1 0000 029f 0010 jmp 0x0010
2 0002 0000 nop
3 0003 0000 nop
4 0004 02ff rti
5 0005 0000 nop
6 0006 02ff rti
7 0007 0000 nop
8 0008 02ff rti
9 0009 0000 nop
10 000a 02ff rti
11 000b 0000 nop
12 000c 02ff rti
13 000d 0000 nop
14 000e 02ff rti
15 000f 0000 nop
17 // Entry
18 void 0010_Entry()
19 {
20 0010 1302 sbset #0x02
21 0011 1303 sbset #0x03
22 0012 1204 sbclr #0x04
23 0013 1305 sbset #0x05
24 0014 1306 sbset #0x06
25 0015 8e00 set16
26 0016 8c00 clr15
27 0017 8b00 m0
28 0018 009e ffff lri $AC0.M, #0xffff
29 001a 1d1e mrr $WR0, $AC0.M
30 001b 1d3e mrr $WR1, $AC0.M
31 001c 1d5e mrr $WR2, $AC0.M
32 001d 1d7e mrr $WR3, $AC0.M
33 001e 0092 00ff lri $CR, #0x00ff
34 0020 8100 clr $ACC0
35 0021 009f 1000 lri $AC1.M, #0x1000
36 0023 0080 0000 lri $AR0, #0x0000
37 0025 005f loop $AC1.M
38 0026 1b1e srri @$AR0, $AC0.M // clear dram
39 0027 26ff lrs $AC0.M, @CMBL
40 0028 16fc 8888 si @DMBH, #0x8888
41 002a 16fd 1111 si @DMBL, #0x1111 // SENDMAIL 0x88881111
42 002c 26fc lrs $AC0.M, @DMBH
43 002d 02a0 8000 andf $AC0.M, #0x8000
44 002f 029c 002c jlnz 0x002c
45 }
47 void 0031_MainLoop()
48 {
49 0031 8100 clr $ACC0
50 0032 8900 clr $ACC1
51 0033 26fe lrs $AC0.M, @CMBH
52 0034 02c0 8000 andcf $AC0.M, #0x8000
53 0036 029c 0031 jlnz 0x0031 // wait for mail
54 0038 27ff lrs $AC1.M, @CMBL
55 0039 00ff 0345 sr @0x0345, $AC1.M
56 003b 1ffe mrr $AC1.M, $AC0.M
57 003c 0340 00ff andi $AC1.M, #0x00ff
58 003e 00ff 0344 sr @0x0344, $AC1.M
59 0040 1479 lsr $ACC0, #-7
60 0041 0240 007e andi $AC0.M, #0x007e
61 0043 0200 0062 addi $AC0.M, #0x0062
62 0045 00fe 0343 sr @0x0343, $AC0.M
63 0047 1c1e mrr $AR0, $AC0.M
64 0048 170f jmpr $AR0 // jump on CMD?
65 0049 009e 8000 lri $AC0.M, #0x8000
66 004b 00dc 0343 lr $AC0.L, @0x0343
67 004d 02bf 005a call 005a_SendMail(AC0.M,AC0.L) // sendmail 0x8000????
68 004f 029f 0031 jmp 0x0031
69 }
71 void 0051_WaitForMailAndStoreIt(DEST $AR0)
72 {
73 0051 26fe lrs $AC0.M, @CMBH
74 0052 02c0 8000 andcf $AC0.M, #0x8000
75 0054 029c 0051 jlnz 0x0051
76 0056 24ff lrs $AC0.L, @CMBL
77 0057 1b1e srri @$AR0, $AC0.M
78 0058 1b1c srri @$AR0, $AC0.L
79 0059 02df ret
80 }
82 void 005a_SendMail(AC0.M,AC0.L)
83 {
84 005a 2efc srs @DMBH, $AC0.M
85 005b 2cfd srs @DMBL, $AC0.L
86 005c 26fc lrs $AC0.M, @DMBH
87 005d 02a0 8000 andf $AC0.M, #0x8000
88 005f 029c 005c jlnz 0x005c
89 0061 02df ret
90 }
92 //CMDs
93 0062 029f 0049 jmp 0x0049 // CMD_0
94 0064 029f 02bd jmp 0x02bd // CMD_1
95 0066 029f 0470 jmp 0x0470 // CMD_2
96 0068 029f 0031 jmp 0x0031 // CMD_3
97 006a 029f 00df jmp 0x00df // CMD_4
98 006c 029f 00f1 jmp 0x00f1 // CMD_5
99 006e 029f 05bb jmp 0x05bb // CMD_6
100 0070 029f 056f jmp 0x056f // CMD_7
101 0072 029f 05d7 jmp 0x05d7 // CMD_8
102 0074 029f 059f jmp 0x059f // CMD_9
103 0076 029f 0741 jmp 0x0741 // CMD_A
104 0078 029f 0618 jmp 0x0618 // CMD_B - jump to IROM area (0x8644)
105 007a 029f 0203 jmp 0x0203 // CMD_C
107 {
108 007c 193e lrri $AC0.M, @$AR1
109 007d 193c lrri $AC0.L, @$AR1
110 007e 2fcd srs @DSPA, $AC1.M
111 007f 0f00 lris $AC1.M, #0x00
112 0080 2fc9 srs @DSCR, $AC1.M // DMEM->CPU
113 0081 2ece srs @DSMAH, $AC0.M
114 0082 2ccf srs @DSMAL, $AC0.L
115 0083 1fe0 mrr $AC1.M, $AR0
116 0084 1501 lsl $ACC1, #1
117 0085 2fcb srs @DSBL, $AC1.M
118 0086 02bf 008f call 0x008f
119 0088 02df ret
120 }
122 {
123 0089 193e lrri $AC0.M, @$AR1
124 008a 193c lrri $AC0.L, @$AR1
125 008b 2fcd srs @DSPA, $AC1.M
126 008c 0f01 lris $AC1.M, #0x01
127 008d 029f 0080 jmp 0x0080
128 }
130 {
131 008f 26c9 lrs $AC0.M, @DSCR
132 0090 02a0 0004 andf $AC0.M, #0x0004
133 0092 029c 008f jlnz 0x008f
134 0094 02df ret
135 }
137 {
138 0095 193e lrri $AC0.M, @$AR1
139 0096 193c lrri $AC0.L, @$AR1
140 0097 00ff ffcd sr @DSPA, $AC1.M
141 0099 0f00 lris $AC1.M, #0x00
142 009a 00ff ffc9 sr @DSCR, $AC1.M
143 009c 00fe ffce sr @DSMAH, $AC0.M
144 009e 00fc ffcf sr @DSMAL, $AC0.L
145 00a0 1fe0 mrr $AC1.M, $AR0
146 00a1 1501 lsl $ACC1, #1
147 00a2 00ff ffcb sr @DSBL, $AC1.M
148 00a4 02df ret
149 }
151 void 00a5_WaitForDMAend()
152 {
153 00a5 00de ffc9 lr $AC0.M, @DSCR
154 00a7 02a0 0004 andf $AC0.M, #0x0004
155 00a9 029c 00a5 jlnz 0x00a5
156 00ab 02df ret
157 }
159 void 00ac_AccZeldaTypeRead()
160 {
161 00ac 193e lrri $AC0.M, @$AR1
162 00ad 193c lrri $AC0.L, @$AR1
163 00ae 0240 7fff andi $AC0.M, #0x7fff
164 00b0 02bf 00ba call 00ba_AccSetup()
165 00b2 007a 00b8 bloop $AX0.H, 0x00b8
166 00b4 26d3 lrs $AC0.M, @UnkZelda
167 00b5 1b3e srri @$AR1, $AC0.M
168 00b6 0000 nop
169 00b7 0000 nop
170 00b8 0000 nop
171 00b9 02df ret
172 }
174 void 00ba_AccSetup()
175 {
176 00ba 1c3f mrr $AR1, $AC1.M
177 00bb 009f 0005 lri $AC1.M, #0x0005
178 00bd 2fd1 srs @SampleFormat, $AC1.M // reads will be u8
179 00be 1f5e mrr $AX0.H, $AC0.M
180 00bf 1f1c mrr $AX0.L, $AC0.L
181 00c0 2ed4 srs @ACSAH, $AC0.M
182 00c1 2cd5 srs @ACSAL, $AC0.L
183 00c2 8900 clr $ACC1
184 00c3 1fa0 mrr $AC1.L, $AR0
185 00c4 4c00 add $ACC0, $ACC1
186 00c5 0200 0030 addi $AC0.M, #0x0030
187 00c7 2ed6 srs @ACEAH, $AC0.M
188 00c8 2cd7 srs @ACEAL, $AC0.L
189 00c9 1fda mrr $AC0.M, $AX0.H
190 00ca 1f98 mrr $AC0.L, $AX0.L
191 00cb 147f lsr $ACC0, #-1
192 00cc 2ed8 srs @ACCAH, $AC0.M
193 00cd 2cd9 srs @ACCAL, $AC0.L
194 00ce 1f40 mrr $AX0.H, $AR0
195 00cf 02df ret
196 }
198 void 00d0_AccZeldaTypeWrite()
199 {
200 00d0 193e lrri $AC0.M, @$AR1
201 00d1 193c lrri $AC0.L, @$AR1
202 00d2 0260 8000 ori $AC0.M, #0x8000
203 00d4 02bf 00ba call 00ba_AccSetup()
204 00d6 007a 00dd bloop $AX0.H, 0x00dd
205 {
206 00d8 193e lrri $AC0.M, @$AR1
207 00d9 2ed3 srs @UnkZelda, $AC0.M
208 00da 0000 nop
209 00db 0000 nop
210 00dc 0000 nop
211 00dd 0000 nop
212 }
213 00de 02df ret
214 }
216 {
217 00df 0080 0346 lri $AR0, #0x0346
218 00e1 02bf 0051 call 0x0051
219 00e3 02bf 0051 call 0x0051
220 00e5 0081 0346 lri $AR1, #0x0346
221 00e7 00df 0349 lr $AC1.M, @0x0349
222 00e9 0340 ffff andi $AC1.M, #0xffff
223 00eb 00c0 0345 lr $AR0, @0x0345
224 00ed 02bf 007c call 0x007c
225 00ef 029f 0049 jmp 0x0049
226 }
228 {
229 00f1 0080 0346 lri $AR0, #0x0346
230 00f3 02bf 0051 call 0x0051
231 00f5 02bf 0051 call 0x0051
232 00f7 0081 0346 lri $AR1, #0x0346
233 00f9 00df 0349 lr $AC1.M, @0x0349
234 00fb 0340 ffff andi $AC1.M, #0xffff
235 00fd 00c0 0345 lr $AR0, @0x0345
236 00ff 02bf 0089 call 0x0089
237 0101 029f 0049 jmp 0x0049
238 }
240 {
241 0103 0092 00ff lri $CR, #0x00ff
242 0105 2fd1 srs @SampleFormat, $AC1.M
243 0106 0340 0003 andi $AC1.M, #0x0003
244 0108 1f7f mrr $AX1.H, $AC1.M
245 0109 1f5e mrr $AX0.H, $AC0.M
246 010a 1f1c mrr $AX0.L, $AC0.L
247 010b 0200 0010 addi $AC0.M, #0x0010
248 010d 2ed4 srs @ACSAH, $AC0.M
249 010e 2cd5 srs @ACSAL, $AC0.L
250 010f 8900 clr $ACC1
251 0110 1fa0 mrr $AC1.L, $AR0
252 0111 4c00 add $ACC0, $ACC1
253 0112 0200 0030 addi $AC0.M, #0x0030
254 0114 2ed6 srs @ACEAH, $AC0.M
255 0115 2cd7 srs @ACEAL, $AC0.L
256 0116 1fda mrr $AC0.M, $AX0.H
257 0117 1f98 mrr $AC0.L, $AX0.L
258 0118 1ffb mrr $AC1.M, $AX1.H
259 0119 7900 decm $AC1.M
260 011a 02ca lsrn
261 011b 2ed8 srs @ACCAH, $AC0.M
262 011c 2cd9 srs @ACCAL, $AC0.L
263 011d 02df ret
264 }
266 //DSPLLE errors here!!! readw/writes from 0x3???
267 {
268 011e 1c23 mrr $AR1, $AR3
269 011f 197e lrri $AC0.M, @$AR3
270 0120 191b lrri $AX1.H, @$AR0
271 0121 d858 mulc'l $AC1.M, $AX1.H : $AX1.H, @$AR0
272 0122 1128 0128 bloopi #0x28, 0x0128
273 0124 dcd3 mulcac'ld $AC1.M, $AX1.H, $ACC0 : $AX0.L, $AX1.H, @$AR3
274 0125 6231 movr's $ACC0, $AX1.L : @$AR1, $AC0.M
275 0126 dcd3 mulcac'ld $AC1.M, $AX1.H, $ACC0 : $AX0.L, $AX1.H, @$AR3
276 0127 6231 movr's $ACC0, $AX1.L : @$AR1, $AC0.M
277 0128 4900 addax $ACC1, $AX0
278 0129 02df ret
279 }
281 {
282 012a 8f00 set40
283 012b 1c03 mrr $AR0, $AR3
284 012c 00db 038e lr $AX1.H, @0x038e
285 012e 009a 0004 lri $AX0.H, #0x0004
286 0130 1978 lrri $AX0.L, @$AR3
287 0131 a843 mulx'l $AX0.L, $AX1.H : $AX0.L, @$AR3
288 0132 ae00 mulxmv $AX0.L, $AX1.H, $ACC0
289 0133 1128 0138 bloopi #0x28, 0x0138
290 0135 38c3 asrnrx'l $ACC0, $AX0.H : $AX0.L, @$AR3
291 0136 ae30 mulxmv's $AX0.L, $AX1.H, $ACC0 : @$AR0, $AC0.M
292 0137 38c3 asrnrx'l $ACC0, $AX0.H : $AX0.L, @$AR3
293 0138 ae30 mulxmv's $AX0.L, $AX1.H, $ACC0 : @$AR0, $AC0.M
294 0139 8e00 set16
295 013a 02df ret
296 }
298 {
299 013b 00f9 0361 sr @0x0361, $AX1.L
300 013d 1fc0 mrr $AC0.M, $AR0
301 013e 0200 fffc addi $AC0.M, #0xfffc
302 0140 1c1e mrr $AR0, $AC0.M
303 0141 1c5e mrr $AR2, $AC0.M
304 0142 0083 0424 lri $AR3, #0x0424
305 0144 197e lrri $AC0.M, @$AR3
306 0145 197f lrri $AC1.M, @$AR3
307 0146 80a2 nx'sl : $AC0.M, $AX0.H
308 0147 64a3 movr'sl $ACC0, $AX0.H : $AC1.M, $AX0.H
309 0148 6530 movr's $ACC1, $AX0.H : @$AR0, $AC0.M
310 0149 1b1f srri @$AR0, $AC1.M
311 014a 1c02 mrr $AR0, $AR2
312 014b 8100 clr $ACC0
313 014c 00de 0402 lr $AC0.M, @0x0402
314 014e 00fe 0362 sr @0x0362, $AC0.M
315 0150 1474 lsr $ACC0, #-12
316 0151 1f7e mrr $AX1.H, $AC0.M
317 0152 1f3c mrr $AX1.L, $AC0.L
318 0153 8900 clr $ACC1
319 0154 00dd 0418 lr $AC1.L, @0x0418
320 0156 1504 lsl $ACC1, #4
321 0157 0604 cmpis $AC0.M, #0x04
322 0158 0290 01b0 jge 0x01b0
323 015a 1fdd mrr $AC0.M, $AC1.L
324 015b 0082 0c00 lri $AR2, #0x0c00
325 015d 1050 loopi #0x50
326 015e 4b2a addax's $ACC1, $AX1 : @$AR2, $AC1.L
327 015f 1fbe mrr $AC1.L, $AC0.M
328 0160 00fe 0360 sr @0x0360, $AC0.M
329 0162 8900 clr $ACC1
330 0163 1fbe mrr $AC1.L, $AC0.M
331 0164 009a fff8 lri $AX0.H, #0xfff8
332 0166 009b 00fc lri $AX1.H, #0x00fc
333 0168 00d8 0361 lr $AX0.L, @0x0361
334 016a 0082 0c00 lri $AR2, #0x0c00
335 016c 0083 0c00 lri $AR3, #0x0c00
336 016e 195e lrri $AC0.M, @$AR2
337 016f 3480 lsrnrx $ACC0, $AX0.H
338 0170 1128 0175 bloopi #0x28, 0x0175
339 0172 367a andr'l $AC0.M, $AX1.H : $AC1.M, @$AR2
340 0173 35b3 lsrnrx's $ACC1, $AX0.H : @$AR3, $AC0.M
341 0174 3772 andr'l $AC1.M, $AX1.H : $AC0.M, @$AR2
342 0175 34bb lsrnrx's $ACC0, $AX0.H : @$AR3, $AC1.M
343 0176 8a00 m2
344 0177 0082 0c00 lri $AR2, #0x0c00
345 0179 00dd 0418 lr $AC1.L, @0x0418
346 017b 1504 lsl $ACC1, #4
347 017c 1fe0 mrr $AC1.M, $AR0
348 017d 8100 clr $ACC0
349 017e 00de 0362 lr $AC0.M, @0x0362
350 0180 1474 lsr $ACC0, #-12
351 0181 1f7e mrr $AX1.H, $AC0.M
352 0182 1f3c mrr $AX1.L, $AC0.L
353 0183 8f00 set40
354 0184 1943 lrri $AR3, @$AR2
355 0185 4bc3 addax'ld $ACC1, $AX1 : $AX0.L, $AX1.L, @$AR3
356 0186 90c3 mul'ld $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
357 0187 f2c3 madd'ld $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
358 0188 f2c3 madd'ld $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
359 0189 f200 madd $AX0.L, $AX0.H
360 018a fe00 movpz $ACC0
361 018b 1c1f mrr $AR0, $AC1.M
362 018c 1943 lrri $AR3, @$AR2
363 018d 4bc3 addax'ld $ACC1, $AX1 : $AX0.L, $AX1.L, @$AR3
364 018e 90c3 mul'ld $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
365 018f 114e 0197 bloopi #0x4e, 0x0197
366 0191 f2c3 madd'ld $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
367 0192 f2c3 madd'ld $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
368 0193 f231 madd's $AX0.L, $AX0.H : @$AR1, $AC0.M
369 0194 1c1f mrr $AR0, $AC1.M
370 0195 1943 lrri $AR3, @$AR2
371 0196 4bc3 addax'ld $ACC1, $AX1 : $AX0.L, $AX1.L, @$AR3
372 0197 92c3 mulmvz'ld $AX0.L, $AX0.H, $ACC0 : $AX0.L, $AX1.L, @$AR3
373 0198 f2c3 madd'ld $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
374 0199 f2c3 madd'ld $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
375 019a f231 madd's $AX0.L, $AX0.H : @$AR1, $AC0.M
376 019b fe00 movpz $ACC0
377 019c 1b3e srri @$AR1, $AC0.M
378 019d 8b00 m0
379 019e 8e00 set16
380 019f 00fe 041b sr @0x041b, $AC0.M
381 01a1 1c1f mrr $AR0, $AC1.M
382 01a2 150c lsl $ACC1, #12
383 01a3 0340 0fff andi $AC1.M, #0x0fff
384 01a5 00ff 0418 sr @0x0418, $AC1.M
385 01a7 0083 0424 lri $AR3, #0x0424
386 01a9 191e lrri $AC0.M, @$AR0
387 01aa 191f lrri $AC1.M, @$AR0
388 01ab 80a0 nx'ls : $AX0.H, $AC0.M
389 01ac 64a1 movr'ls $ACC0, $AX0.H : $AX0.H, $AC1.M
390 01ad 6533 movr's $ACC1, $AX0.H : @$AR3, $AC0.M
391 01ae 1b7f srri @$AR3, $AC1.M
392 01af 02df ret
393 }
395 {
396 01b0 1fe0 mrr $AC1.M, $AR0
397 01b1 1c1f mrr $AR0, $AC1.M
398 01b2 1128 01b9 bloopi #0x28, 0x01b9
399 01b4 4b70 addax'l $ACC1, $AX1 : $AC0.M, @$AR0
400 01b5 1b3e srri @$AR1, $AC0.M
401 01b6 1c1f mrr $AR0, $AC1.M
402 01b7 4b70 addax'l $ACC1, $AX1 : $AC0.M, @$AR0
403 01b8 1b3e srri @$AR1, $AC0.M
404 01b9 1c1f mrr $AR0, $AC1.M
405 01ba 029f 019f jmp 0x019f
406 }
408 {
409 01bc 8a00 m2
410 01bd 0088 0007 lri $WR0, #0x0007
411 01bf 1150 01cc bloopi #0x50, 0x01cc
412 {
413 01c1 1c61 mrr $AR3, $AR1
414 01c2 84c3 clrp'ld : $AX0.L, $AX1.L, @$AR3
415 01c3 f2c3 madd'ld $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
416 01c4 f2c3 madd'ld $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
417 01c5 f2c3 madd'ld $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
418 01c6 f2c3 madd'ld $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
419 01c7 f2c3 madd'ld $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
420 01c8 f2c3 madd'ld $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
421 01c9 f2c3 madd'ld $AX0.L, $AX0.H : $AX0.L, $AX1.L, @$AR3
422 01ca f200 madd $AX0.L, $AX0.H
423 01cb fe00 movpz $ACC0
424 01cc 1b3e srri @$AR1, $AC0.M
425 }
426 01cd 0088 ffff lri $WR0, #0xffff
427 01cf 8b00 m0
428 01d0 02df ret
429 }
431 {
432 01d1 0088 0003 lri $WR0, #0x0003
433 01d3 0085 0000 lri $IX1, #0x0000
434 01d5 0087 0000 lri $IX3, #0x0000
435 01d7 1fc2 mrr $AC0.M, $AR2
436 01d8 195b lrri $AX1.H, @$AR2
437 01d9 1959 lrri $AX1.L, @$AR2
438 01da 195f lrri $AC1.M, @$AR2
439 01db 195a lrri $AX0.H, @$AR2
440 01dc 1c5e mrr $AR2, $AC0.M
441 01dd 1fda mrr $AC0.M, $AX0.H
442 01de 1c61 mrr $AR3, $AR1
443 01df 8a00 m2
444 01e0 8f00 set40
445 01e1 191a lrri $AX0.H, @$AR0
446 01e2 b850 mulx'l $AX0.H, $AX1.H : $AX0.H, @$AR0
447 01e3 e250 maddx'l $AX0.H, $AX1.L : $AX0.H, @$AR0
448 01e4 ea50 maddc'l $AC1.M, $AX1.L : $AX0.H, @$AR0
449 01e5 e8e8 maddc'ldm $AC0.M, $AX1.L : $AX0.H, $AX1.L, @$AR0
450 01e6 b650 mulxmv'l $AX0.H, $AX1.L, $ACC0 : $AX0.H, @$AR0
451 01e7 1127 01f2 bloopi #0x27, 0x01f2
452 {
453 01e9 e3a8 maddx'lsm $AX0.H, $AX1.H : $AX0.H, $AC0.M
454 01ea 197e lrri $AC0.M, @$AR3
455 01eb e850 maddc'l $AC0.M, $AX1.L : $AX0.H, @$AR0
456 01ec eaf8 maddc'ldm $AC1.M, $AX1.L : $AX0.H, $AX1.H, @$AR0
457 01ed bf50 mulxmv'l $AX0.H, $AX1.H, $ACC1 : $AX0.H, @$AR0
458 01ee e2a9 maddx'lsm $AX0.H, $AX1.L : $AX0.H, $AC1.M
459 01ef 197f lrri $AC1.M, @$AR3
460 01f0 ea50 maddc'l $AC1.M, $AX1.L : $AX0.H, @$AR0
461 01f1 e8e8 maddc'ldm $AC0.M, $AX1.L : $AX0.H, $AX1.L, @$AR0
462 01f2 b650 mulxmv'l $AX0.H, $AX1.L, $ACC0 : $AX0.H, @$AR0
463 }
464 01f3 e3a8 maddx'lsm $AX0.H, $AX1.H : $AX0.H, $AC0.M
465 01f4 197e lrri $AC0.M, @$AR3
466 01f5 e850 maddc'l $AC0.M, $AX1.L : $AX0.H, @$AR0
467 01f6 eaf8 maddc'ldm $AC1.M, $AX1.L : $AX0.H, $AX1.H, @$AR0
468 01f7 bf00 mulxmv $AX0.H, $AX1.H, $ACC1
469 01f8 1bff srrn @$AR3, $AC1.M
470 01f9 197f lrri $AC1.M, @$AR3
471 01fa 8e00 set16
472 01fb 8b00 m0
473 01fc 0088 ffff lri $WR0, #0xffff
474 01fe 1b5b srri @$AR2, $AX1.H
475 01ff 1b59 srri @$AR2, $AX1.L
476 0200 1b5f srri @$AR2, $AC1.M
477 0201 1b5e srri @$AR2, $AC0.M
478 0202 02df ret
479 }
481 {
482 0203 0080 0346 lri $AR0, #0x0346
483 0205 02bf 0051 call 0x0051
484 0207 02bf 0051 call 0x0051
485 0209 0081 0346 lri $AR1, #0x0346
486 020b 009f 0580 lri $AC1.M, #0x0580
487 020d 0080 0080 lri $AR0, #0x0080
488 020f 02bf 007c call 0x007c
489 0211 0081 0348 lri $AR1, #0x0348
490 0213 009f 0c00 lri $AC1.M, #0x0c00
491 0215 0080 0080 lri $AR0, #0x0080
492 0217 02bf 007c call 0x007c
493 0219 0080 0c00 lri $AR0, #0x0c00
494 021b 0081 0580 lri $AR1, #0x0580
495 021d 02bf 01d1 call 0x01d1
496 021f 0081 0346 lri $AR1, #0x0346
497 0221 009f 0580 lri $AC1.M, #0x0580
498 0223 0080 0080 lri $AR0, #0x0080
499 0225 02bf 0089 call 0x0089
500 0227 0081 0348 lri $AR1, #0x0348
501 0229 009f 0c00 lri $AC1.M, #0x0c00
502 022b 0080 0080 lri $AR0, #0x0080
503 022d 02bf 0089 call 0x0089
504 022f 029f 0049 jmp 0x0049
505 }
507 void 0231_FormatAudioSynths(format AC0.M)
508 {
509 0231 8100 clr $ACC0
510 0232 1f5e mrr $AX0.H, $AC0.M
511 0233 00d8 0402 lr $AX0.L, @0x0402
512 0235 00dc 0418 lr $AC0.L, @0x0418
513 0237 0080 0520 lri $AR0, #0x0520
514 0239 00df 0440 lr $AC1.M, @0x0440
515 023b 1501 lsl $ACC1, #1
516 023c 0340 007e andi $AC1.M, #0x007e
517 023e 0300 0246 addi $AC1.M, #0x0246
518 0240 1c5f mrr $AR2, $AC1.M
519 0241 175f callr $AR2 // call 0x0246
520 0242 00fc 0418 sr @0x0418, $AC0.L
521 0244 029f 04e7 jmp 0x04e7 // dummy
522 0246 029f 0257 jmp 0x0257 // 0x0 - Synth0
523 0248 029f 028f jmp 0x028f // 0x1 - Synth1
524 024a 029f 0277 jmp 0x0277 // 0x2 - Synth2
525 024c 029f 0267 jmp 0x0267 // 0x3 - Synth3
526 024e 029f 0292 jmp 0x0292 // 0x4 - Synth4
527 0250 029f 0256 jmp 0x0256 // 0x5 - dummy
528 0252 029f 02b1 jmp 0x02b1 // 0x6 - Synth6
529 0254 029f 02ae jmp 0x02ae // 0x7 - Synth7
530 0256 02df ret
531 }
533 void 0257_Synth0()
534 {
535 0257 1401 lsl $ACC0, #1
536 0258 009b c000 lri $AX1.H, #0xc000
537 025a 0099 4000 lri $AX1.L, #0x4000
538 025c 1150 0264 bloopi #0x50, 0x0264
539 {
540 025e 02c0 0001 andcf $AC0.M, #0x0001
541 0260 027c iflnz
542 0261 1b1b srri @$AR0, $AX1.H
543 0262 027d iflz
544 0263 1b19 srri @$AR0, $AX1.L
545 0264 4800 addax $ACC0, $AX0
546 }
547 0265 147f lsr $ACC0, #-1
548 0266 02df ret
549 }
551 void 0267_Synth3()
552 {
553 0267 1401 lsl $ACC0, #1
554 0268 009b c000 lri $AX1.H, #0xc000
555 026a 0099 4000 lri $AX1.L, #0x4000
556 026c 1150 0274 bloopi #0x50, 0x0274
557 {
558 026e 02c0 0003 andcf $AC0.M, #0x0003
559 0270 027c iflnz
560 0271 1b1b srri @$AR0, $AX1.H
561 0272 027d iflz
562 0273 1b19 srri @$AR0, $AX1.L
563 0274 4800 addax $ACC0, $AX0
564 }
565 0275 147f lsr $ACC0, #-1
566 0276 02df ret
567 }
569 void 0277_Synth2()
570 {
571 0277 1401 lsl $ACC0, #1
572 0278 0081 0ca0 lri $AR1, #0x0ca0
573 027a 009b c000 lri $AX1.H, #0xc000
574 027c 0099 4000 lri $AX1.L, #0x4000
575 027e 8900 clr $ACC1
576 027f 0082 0000 lri $AR2, #0x0000
577 0281 1150 028c bloopi #0x50, 0x028c
578 {
579 0283 02c0 0001 andcf $AC0.M, #0x0001
580 0285 027c iflnz
581 0286 1b1b srri @$AR0, $AX1.H
582 0287 027d iflz
583 0288 1b19 srri @$AR0, $AX1.L
584 0289 183d lrr $AC1.L, @$AR1
585 028a 4900 addax $ACC1, $AX0
586 028b 1fe2 mrr $AC1.M, $AR2
587 028c 4c39 add's $ACC0, $ACC1 : @$AR1, $AC1.M
588 }
589 028d 147f lsr $ACC0, #-1
590 028e 02df ret
591 }
593 void 028f_Synth1()
594 {
595 028f 1050 loopi #0x50
596 0290 4820 addax's $ACC0, $AX0 : @$AR0, $AC0.L
597 0291 02df ret
598 }
600 void 0292_Synth4()
601 {
602 0292 0082 0140 lri $AR2, #0x0140
603 0294 008a 003f lri $WR2, #0x003f
604 0296 0086 0000 lri $IX2, #0x0000
605 0298 1406 lsl $ACC0, #6
606 0299 8900 clr $ACC1
607 029a 1fb8 mrr $AC1.L, $AX0.L
608 029b 1506 lsl $ACC1, #6
609 029c 009b 003f lri $AX1.H, #0x003f
610 029e 009a 0000 lri $AX0.H, #0x0000
611 02a0 3600 andr $AC0.M, $AX1.H
612 02a1 1cde mrr $IX2, $AC0.M
613 02a2 001a addarn $AR2, $IX2
614 02a3 3400 andr $AC0.M, $AX0.H
615 02a4 1150 02aa bloopi #0x50, 0x02aa
616 {
617 02a6 4c00 add $ACC0, $ACC1
618 02a7 364a andr'l $AC0.M, $AX1.H : $AX1.L, @$AR2
619 02a8 1cde mrr $IX2, $AC0.M
620 02a9 340e andr'nr $AC0.M, $AX0.H : $AR2
621 02aa 1b19 srri @$AR0, $AX1.L
622 }
623 02ab 1fc2 mrr $AC0.M, $AR2
624 02ac 147a lsr $ACC0, #-6
625 02ad 02df ret
626 }
628 void 02b1_Synth7()
629 {
630 02ae 1050 loopi #0x50
631 02af 1b18 srri @$AR0, $AX0.L
632 02b0 02df ret
633 }
635 void 02b1_Synth6()
636 {
637 02b1 0083 0000 lri $AR3, #0x0000
638 02b3 140f lsl $ACC0, #15
639 02b4 4853 addax'l $ACC0, $AX0 : $AX0.H, @$AR3
640 02b5 1114 02ba bloopi #0x14, 0x02ba
641 {
642 02b7 48a2 addax'sl $ACC0, $AX0 : $AC0.M, $AX0.H
643 02b8 48a2 addax'sl $ACC0, $AX0 : $AC0.M, $AX0.H
644 02b9 48a2 addax'sl $ACC0, $AX0 : $AC0.M, $AX0.H
645 02ba 48a2 addax'sl $ACC0, $AX0 : $AC0.M, $AX0.H
646 }
647 02bb 146f lsr $ACC0, #-17
648 02bc 02df ret
649 }
651 {
652 02bd 0080 0380 lri $AR0, #0x0380
653 02bf 02bf 0051 call 0x0051
654 02c1 02bf 0051 call 0x0051
655 02c3 02bf 0051 call 0x0051
656 02c5 02bf 0051 call 0x0051
657 02c7 0081 0382 lri $AR1, #0x0382
658 02c9 009f 0000 lri $AC1.M, #0x0000
659 02cb 0080 0200 lri $AR0, #0x0200
660 02cd 02bf 007c call 0x007c
661 02cf 0081 0384 lri $AR1, #0x0384
662 02d1 009f 0300 lri $AC1.M, #0x0300
663 02d3 0080 0020 lri $AR0, #0x0020
664 02d5 02bf 007c call 0x007c
665 02d7 02bf 0351 call 0x0351
666 02d9 00de 0345 lr $AC0.M, @0x0345
667 02db 00fe 0342 sr @0x0342, $AC0.M
668 02dd 029f 0049 jmp 0x0049
669 }
671 {
672 02df 00de 0344 lr $AC0.M, @0x0344
673 02e1 1404 lsl $ACC0, #4
674 02e2 0200 03a8 addi $AC0.M, #0x03a8
675 02e4 1c1e mrr $AR0, $AC0.M
676 02e5 02bf 0051 call 0x0051
677 02e7 02bf 0051 call 0x0051
678 02e9 02bf 0051 call 0x0051
679 02eb 00de 0345 lr $AC0.M, @0x0345
680 02ed 1b1e srri @$AR0, $AC0.M
681 02ee 00de 0344 lr $AC0.M, @0x0344
682 02f0 0200 03a4 addi $AC0.M, #0x03a4
683 02f2 1c1e mrr $AR0, $AC0.M
684 02f3 8100 clr $ACC0
685 02f4 1b1e srri @$AR0, $AC0.M
686 02f5 02df ret
687 }
689 {
690 02f6 00de 0344 lr $AC0.M, @0x0344
691 02f8 1404 lsl $ACC0, #4
692 02f9 0200 03b0 addi $AC0.M, #0x03b0
693 02fb 1c1e mrr $AR0, $AC0.M
694 02fc 02bf 0051 call 0x0051
695 02fe 02bf 0051 call 0x0051
696 0300 02bf 0051 call 0x0051
697 0302 02bf 0051 call 0x0051
698 0304 02df ret
699 }
701 {
702 0305 0081 034c lri $AR1, #0x034c
703 0307 009f 0400 lri $AC1.M, #0x0400
704 0309 0080 0080 lri $AR0, #0x0080
705 030b 02bf 007c call 0x007c
706 030d 02df ret
707 }
709 {
710 030e 0081 034c lri $AR1, #0x034c
711 0310 009f 0a00 lri $AC1.M, #0x0a00
712 0312 0080 0004 lri $AR0, #0x0004
713 0314 02bf 00a5 call 00a5_WaitForDMAend()
714 0316 02bf 007c call 0x007c
715 0318 0081 034c lri $AR1, #0x034c
716 031a 009f 0400 lri $AC1.M, #0x0400
717 031c 0080 0080 lri $AR0, #0x0080
718 031e 02bf 0095 call 0x0095
719 0320 02df ret
720 }
722 {
723 0321 0081 034c lri $AR1, #0x034c
724 0323 009f 0400 lri $AC1.M, #0x0400
725 0325 0080 0040 lri $AR0, #0x0040
726 0327 0081 034c lri $AR1, #0x034c
727 0329 193e lrri $AC0.M, @$AR1
728 032a 193c lrri $AC0.L, @$AR1
729 032b 0098 0000 lri $AX0.L, #0x0000
730 032d 7000 addaxl $ACC0, $AX0.L
731 032e 02bf 008b call 0x008b
732 0330 02df ret
733 }
735 {
736 0331 191e lrri $AC0.M, @$AR0
737 0332 191a lrri $AX0.H, @$AR0
738 0333 005f loop $AC1.M
739 0334 64a0 movr'ls $ACC0, $AX0.H : $AX0.H, $AC0.M
740 0335 1b7e srri @$AR3, $AC0.M
741 0336 1b7a srri @$AR3, $AX0.H
742 0337 02df ret
743 }
745 {
746 0338 191e lrri $AC0.M, @$AR0
747 0339 191a lrri $AX0.H, @$AR0
748 033a 007f 033f bloop $AC1.M, 0x033f
749 {
750 033c 32b2 not's $AC0.M : @$AR2, $AC0.M
751 033d 65a0 movr'ls $ACC1, $AX0.H : $AX0.H, $AC0.M
752 033e 33ba not's $AC1.M : @$AR2, $AC1.M
753 033f 64a1 movr'ls $ACC0, $AX0.H : $AX0.H, $AC1.M
754 }
755 0340 0000 nop
756 0341 02df ret
757 }
759 {
760 0342 8a00 m2
761 0343 157f lsr $ACC1, #-1
762 0344 1c20 mrr $AR1, $AR0
763 0345 1c03 mrr $AR0, $AR3
764 0346 193a lrri $AX0.H, @$AR1
765 0347 9051 mul'l $AX0.L, $AX0.H : $AX0.H, @$AR1
766 0348 925b mulmvz'l $AX0.L, $AX0.H, $ACC0 : $AX1.H, @$AR3
767 0349 007f 034e bloop $AC1.M, 0x034e
768 {
769 034b 4651 addr'l $ACC0, $AX1.H : $AX0.H, @$AR1
770 034c 92b2 mulmvz'sl $AX0.L, $AX0.H, $ACC0 : $AC0.M, $AX1.H
771 034d 4651 addr'l $ACC0, $AX1.H : $AX0.H, @$AR1
772 034e 92b2 mulmvz'sl $AX0.L, $AX0.H, $ACC0 : $AC0.M, $AX1.H
773 }
774 034f 8b00 m0
775 0350 02df ret
776 }
778 {
779 0351 0083 ffa0 lri $AR3, #0xffa0
780 0353 0080 0300 lri $AR0, #0x0300
781 0355 009f 000e lri $AC1.M, #0x000e
782 0357 1108 035c bloopi #0x08, 0x035c
783 {
784 0359 191e lrri $AC0.M, @$AR0
785 035a 1b7e srri @$AR3, $AC0.M
786 035b 191e lrri $AC0.M, @$AR0
787 035c 1b7e srri @$AR3, $AC0.M
788 }
789 035d 02df ret
790 }
792 {
793 035e 0080 0f40 lri $AR0, #0x0f40
794 0360 0082 0d00 lri $AR2, #0x0d00
795 0362 0083 0d60 lri $AR3, #0x0d60
796 0364 009f 0028 lri $AC1.M, #0x0028
797 0366 02bf 0338 call 0x0338
798 0368 8900 clr $ACC1
799 0369 009e 0050 lri $AC0.M, #0x0050
800 036b 0080 0ca0 lri $AR0, #0x0ca0
801 036d 005e loop $AC0.M
802 036e 1b1f srri @$AR0, $AC1.M
803 036f 0080 0f40 lri $AR0, #0x0f40
804 0371 005e loop $AC0.M
805 0372 1b1f srri @$AR0, $AC1.M
806 0373 0080 0fa0 lri $AR0, #0x0fa0
807 0375 005e loop $AC0.M
808 0376 1b1f srri @$AR0, $AC1.M
809 0377 02df ret
810 }
812 {
813 0378 0080 0dc0 lri $AR0, #0x0dc0
814 037a 009e 0180 lri $AC0.M, #0x0180
815 037c 8900 clr $ACC1
816 037d 005e loop $AC0.M
817 037e 1b1f srri @$AR0, $AC1.M
818 037f 02df ret
819 }
821 {
822 0380 00c0 03a0 lr $AR0, @0x03a0
823 0382 191a lrri $AX0.H, @$AR0
824 0383 00df 03a1 lr $AC1.M, @0x03a1
825 0385 009b 00a0 lri $AX1.H, #0x00a0
826 0387 0081 0393 lri $AR1, #0x0393
827 0389 18bc lrrd $AC0.L, @$AR1
828 038a b871 mulx'l $AX0.H, $AX1.H : $AC0.M, @$AR1
829 038b bc00 mulxac $AX0.H, $AX1.H, $ACC0
830 038c 0080 0050 lri $AR0, #0x0050
831 038e 0508 addis $AC1.M, #0x08
832 038f 02bf 007e call 0x007e
833 0391 00de 0390 lr $AC0.M, @0x0390
834 0393 02a0 0001 andf $AC0.M, #0x0001
835 0395 029d 039f jlz 0x039f
836 0397 0080 0398 lri $AR0, #0x0398
837 0399 009e 0008 lri $AC0.M, #0x0008
838 039b 00c1 03a1 lr $AR1, @0x03a1
839 039d 02bf 01bc call 0x01bc
840 039f 009f 0050 lri $AC1.M, #0x0050
841 03a1 00c0 03a1 lr $AR0, @0x03a1
842 03a3 8100 clr $ACC0
843 03a4 00de 0394 lr $AC0.M, @0x0394
844 03a6 b100 tst $ACC0
845 03a7 0295 03ae jz 0x03ae
846 03a9 1c7e mrr $AR3, $AC0.M
847 03aa 00d8 0395 lr $AX0.L, @0x0395
848 03ac 02bf 0342 call 0x0342
849 03ae 009f 0050 lri $AC1.M, #0x0050
850 03b0 00c0 03a1 lr $AR0, @0x03a1
851 03b2 8100 clr $ACC0
852 03b3 00de 0396 lr $AC0.M, @0x0396
853 03b5 b100 tst $ACC0
854 03b6 0295 03bd jz 0x03bd
855 03b8 1c7e mrr $AR3, $AC0.M
856 03b9 00d8 0397 lr $AX0.L, @0x0397
857 03bb 02bf 0342 call 0x0342
858 03bd 00de 0390 lr $AC0.M, @0x0390
859 03bf 02a0 0002 andf $AC0.M, #0x0002
860 03c1 02dd retlz
861 03c2 0080 0398 lri $AR0, #0x0398
862 03c4 009e 0008 lri $AC0.M, #0x0008
863 03c6 00c1 03a1 lr $AR1, @0x03a1
864 03c8 02bf 01bc call 0x01bc
865 03ca 02df ret
866 }
868 {
869 03cb 009f 0dc0 lri $AC1.M, #0x0dc0
870 03cd 00ff 03a1 sr @0x03a1, $AC1.M
871 03cf 009f 03a8 lri $AC1.M, #0x03a8
872 03d1 00ff 03a2 sr @0x03a2, $AC1.M
873 03d3 009f 03a4 lri $AC1.M, #0x03a4
874 03d5 00ff 03a0 sr @0x03a0, $AC1.M
875 03d7 1104 0400 bloopi #0x04, 0x0400
876 {
877 03d9 00c0 03a2 lr $AR0, @0x03a2
878 03db 0083 0390 lri $AR3, #0x0390
879 03dd 009f 000e lri $AC1.M, #0x000e
880 03df 02bf 0331 call 0x0331
881 03e1 00da 0390 lr $AX0.H, @0x0390
882 03e3 8600 tstaxh $AX0.H
883 03e4 0295 03f1 jz 0x03f1
884 03e6 00df 03a1 lr $AC1.M, @0x03a1
885 03e8 1c7f mrr $AR3, $AC1.M
886 03e9 0550 addis $AC1.M, #0x50
887 03ea 1c1f mrr $AR0, $AC1.M
888 03eb 009f 0006 lri $AC1.M, #0x0006
889 03ed 02bf 0331 call 0x0331
890 03ef 02bf 0380 call 0x0380
891 03f1 00de 03a2 lr $AC0.M, @0x03a2
892 03f3 0410 addis $AC0.M, #0x10
893 03f4 00fe 03a2 sr @0x03a2, $AC0.M
894 03f6 00de 03a1 lr $AC0.M, @0x03a1
895 03f8 0460 addis $AC0.M, #0x60
896 03f9 00fe 03a1 sr @0x03a1, $AC0.M
897 03fb 00de 03a0 lr $AC0.M, @0x03a0
898 03fd 7400 incm $AC0.M
899 03fe 00fe 03a0 sr @0x03a0, $AC0.M
900 0400 0000 nop
901 }
902 0401 02df ret
903 }
905 {
906 0402 00c0 03a0 lr $AR0, @0x03a0
907 0404 181a lrr $AX0.H, @$AR0
908 0405 8100 clr $ACC0
909 0406 181e lrr $AC0.M, @$AR0
910 0407 00db 0391 lr $AX1.H, @0x0391
911 0409 7400 incm $AC0.M
912 040a d100 cmpar $ACC1, $AX0.H
913 040b 0270 ifge
914 040c 8100 clr $ACC0
915 040d 1b1e srri @$AR0, $AC0.M
916 040e 00df 03a1 lr $AC1.M, @0x03a1
917 0410 009b 00a0 lri $AX1.H, #0x00a0
918 0412 0081 0393 lri $AR1, #0x0393
919 0414 18bc lrrd $AC0.L, @$AR1
920 0415 b871 mulx'l $AX0.H, $AX1.H : $AC0.M, @$AR1
921 0416 bc00 mulxac $AX0.H, $AX1.H, $ACC0
922 0417 0080 0050 lri $AR0, #0x0050
923 0419 02bf 008b call 0x008b
924 041b 02df ret
925 }
927 {
928 041c 009f 0dc0 lri $AC1.M, #0x0dc0
929 041e 00ff 03a1 sr @0x03a1, $AC1.M
930 0420 009f 03a8 lri $AC1.M, #0x03a8
931 0422 00ff 03a2 sr @0x03a2, $AC1.M
932 0424 009f 03a4 lri $AC1.M, #0x03a4
933 0426 00ff 03a0 sr @0x03a0, $AC1.M
934 0428 1104 0448 bloopi #0x04, 0x0448
935 {
936 042a 00c0 03a2 lr $AR0, @0x03a2
937 042c 0083 0390 lri $AR3, #0x0390
938 042e 009f 000e lri $AC1.M, #0x000e
939 0430 02bf 0331 call 0x0331
940 0432 00da 0390 lr $AX0.H, @0x0390
941 0434 8600 tstaxh $AX0.H
942 0435 0295 0439 jz 0x0439
943 0437 02bf 0402 call 0x0402
944 0439 00de 03a2 lr $AC0.M, @0x03a2
945 043b 0410 addis $AC0.M, #0x10
946 043c 00fe 03a2 sr @0x03a2, $AC0.M
947 043e 00de 03a1 lr $AC0.M, @0x03a1
948 0440 0460 addis $AC0.M, #0x60
949 0441 00fe 03a1 sr @0x03a1, $AC0.M
950 0443 00de 03a0 lr $AC0.M, @0x03a0
951 0445 7400 incm $AC0.M
952 0446 00fe 03a0 sr @0x03a0, $AC0.M
953 0448 0000 nop
954 }
955 0449 02df ret
956 }
958 {
959 044a 0081 0386 lri $AR1, #0x0386
960 044c 009f 03a8 lri $AC1.M, #0x03a8
961 044e 0080 0040 lri $AR0, #0x0040
962 0450 02bf 007c call 0x007c
963 0452 02df ret
964 }
966 {
967 0453 191e lrri $AC0.M, @$AR0
968 0454 189c lrrd $AC0.L, @$AR0
969 0455 4800 addax $ACC0, $AX0
970 0456 1b1e srri @$AR0, $AC0.M
971 0457 1b1c srri @$AR0, $AC0.L
972 0458 02df ret
973 0459 8100 clr $ACC0
974 045a 26fe lrs $AC0.M, @CMBH
975 045b 02c0 8000 andcf $AC0.M, #0x8000
976 045d 029c 045a jlnz 0x045a
977 045f 26ff lrs $AC0.M, @CMBL
978 0460 02df ret
979 }
981 {
982 0461 0080 0388 lri $AR0, #0x0388
983 0463 0081 0051 lri $AR1, #0x0051
984 0465 173f callr $AR1 // call 0x0051
985 0466 00de 0344 lr $AC0.M, @0x0344
986 0468 00fe 0341 sr @0x0341, $AC0.M
987 046a 00de 0345 lr $AC0.M, @0x0345
988 046c 00fe 038e sr @0x038e, $AC0.M
989 046e 173f callr $AR1 // call 0x0051
990 046f 02df ret
991 }
993 {
994 0470 02bf 0461 call 0x0461
995 0472 009e 8000 lri $AC0.M, #0x8000
996 0474 00dc 0341 lr $AC0.L, @0x0341
997 0476 02bf 005a call 005a_SendMail(AC0.M,AC0.L) // 0x8000????
998 0478 8100 clr $ACC0
999 0479 00fe 0355 sr @0x0355, $AC0.M
1000 047b 02bf 044a call 0x044a
1001 047d 00de 0341 lr $AC0.M, @0x0341
1002 047f 007e 056c bloop $AC0.M, 0x056c
1003 {
1004 0481 02bf 035e call 0x035e
1005 0483 02bf 03cb call 0x03cb
1006 0485 02bf 0459 call 0x0459
1007 0487 8100 clr $ACC0
1008 0488 00fe 0354 sr @0x0354, $AC0.M
1009 048a 00de 0342 lr $AC0.M, @0x0342
1010 048c 007e 0538 bloop $AC0.M, 0x0538
1011 {
1012 048e 00d8 0354 lr $AX0.L, @0x0354
1013 0490 009a 0100 lri $AX0.H, #0x0100
1014 0492 8100 clr $ACC0
1015 0493 00de 0380 lr $AC0.M, @0x0380
1016 0495 00dc 0381 lr $AC0.L, @0x0381
1017 0497 9000 mul $AX0.L, $AX0.H
1018 0498 9400 mulac $AX0.L, $AX0.H, $ACC0
1019 0499 00fe 034c sr @0x034c, $AC0.M
1020 049b 00fc 034d sr @0x034d, $AC0.L
1021 049d 02bf 0305 call 0x0305
1022 049f 00da 0400 lr $AX0.H, @0x0400
1023 04a1 8600 tstaxh $AX0.H
1024 04a2 0295 0533 jz 0x0533
1025 04a4 00da 0401 lr $AX0.H, @0x0401
1026 04a6 8600 tstaxh $AX0.H
1027 04a7 0294 0533 jnz 0x0533
1028 04a9 00da 0406 lr $AX0.H, @0x0406
1029 04ab 8600 tstaxh $AX0.H
1030 04ac 0294 0930 jnz 0x0930
1031 04ae 8100 clr $ACC0
1032 04af 00de 0440 lr $AC0.M, @0x0440
1033 04b1 0607 cmpis $AC0.M, #0x07 // format 0x7 or less (Synths)
1034 04b2 0293 0231 jle 0x0231
1035 04b4 0620 cmpis $AC0.M, #0x20 // format 0x20
1036 04b5 0295 079e jz 0x079e
1037 04b7 0621 cmpis $AC0.M, #0x21 // format 0x21
1038 04b8 0295 07a7 jz 0x07a7
1039 04ba 00d8 0402 lr $AX0.L, @0x0402
1040 04bc 8100 clr $ACC0
1041 04bd 8900 clr $ACC1
1042 04be 00dc 0418 lr $AC0.L, @0x0418
1043 04c0 8d00 set15
1044 04c1 0099 0050 lri $AX1.L, #0x0050
1045 04c3 a000 mulx $AX0.L, $AX1.L
1046 04c4 a400 mulxac $AX0.L, $AX1.L, $ACC0
1047 04c5 1404 lsl $ACC0, #4
1048 04c6 8c00 clr15
1049 04c7 1ffe mrr $AC1.M, $AC0.M
1050 04c8 0083 0580 lri $AR3, #0x0580
1051 04ca 00da 0441 lr $AX0.H, @0x0441
1052 04cc 8600 tstaxh $AX0.H
1053 04cd 0295 04dd jz 0x04dd
1054 04cf 00da 0449 lr $AX0.H, @0x0449
1055 04d1 8100 clr $ACC0
1056 04d2 00de 044b lr $AC0.M, @0x044b
1057 04d4 3800 orr $AC0.M, $AX0.H
1058 04d5 0240 000f andi $AC0.M, #0x000f
1059 04d7 0295 04dd jz 0x04dd
1060 04d9 02bf 06a6 call 0x06a6
1061 04db 029f 04df jmp 0x04df
1062 04dd 02bf 0837 call 0x0837
1063 //RAW21-jmp
1064 04df 0080 0580 lri $AR0, #0x0580
1065 04e1 0081 0520 lri $AR1, #0x0520
1066 04e3 0099 0000 lri $AX1.L, #0x0000
1067 04e5 02bf 013b call 0x013b
1068 //RAW20-jmp
1069 04e7 0080 0450 lri $AR0, #0x0450
1070 04e9 0081 0520 lri $AR1, #0x0520
1071 04eb 0082 0428 lri $AR2, #0x0428
1072 04ed 0083 0453 lri $AR3, #0x0453
1073 04ef 18fa lrrd $AX0.H, @$AR3
1074 04f0 8600 tstaxh $AX0.H
1075 04f1 0294 0501 jnz 0x0501
1076 04f3 18fa lrrd $AX0.H, @$AR3
1077 04f4 8600 tstaxh $AX0.H
1078 04f5 0294 0501 jnz 0x0501
1079 04f7 18fa lrrd $AX0.H, @$AR3
1080 04f8 8600 tstaxh $AX0.H
1081 04f9 0294 0501 jnz 0x0501
1082 04fb 8100 clr $ACC0
1083 04fc 18fe lrrd $AC0.M, @$AR3
1084 04fd 0280 7fff cmpi $AC0.M, #0x7fff
1085 04ff 0295 0505 jz 0x0505
1086 0501 02bf 01d1 call 0x01d1
1087 0503 029f 0505 jmp 0x0505
1088 0505 8100 clr $ACC0
1089 0506 1c9e mrr $IX0, $AC0.M
1090 0507 1cde mrr $IX2, $AC0.M
1091 0508 7400 incm $AC0.M
1092 0509 1cfe mrr $IX3, $AC0.M
1093 050a 8f00 set40
1094 050b 0086 0002 lri $IX2, #0x0002
1095 050d 0082 0408 lri $AR2, #0x0408
1096 050f 1104 052f bloopi #0x04, 0x052f
1097 {
1098 0511 8100 clr $ACC0
1099 0512 195e lrri $AC0.M, @$AR2
1100 0513 1200 sbclr #0x00
1101 0514 b100 tst $ACC0
1102 0515 0275 ifz
1103 0516 1300 sbset #0x00
1104 0517 1c7e mrr $AR3, $AC0.M
1105 0518 195e lrri $AC0.M, @$AR2
1106 0519 14fa asr $ACC0, #-6
1107 051a 1f5e mrr $AX0.H, $AC0.M
1108 051b 1f1c mrr $AX0.L, $AC0.L
1109 051c 185f lrr $AC1.M, @$AR2
1110 051d 0080 0520 lri $AR0, #0x0520
1111 051f 029d 0523 jlz 0x0523
1112 0521 02bf 011e call 0x011e
1113 0523 1b5f srri @$AR2, $AC1.M
1114 0524 8100 clr $ACC0
1115 0525 185e lrr $AC0.M, @$AR2
1116 0526 000e xar $AR2
1117 //; *** UNKNOWN OPCODE ***
1118 // 0xc/0xd/0xe/0xf is one opcode where last 2 bits define target $AR? reg
1119 // (new value is based on orig $AR? and %WR? reg value = unknown)
1120 0527 b100 tst $ACC0
1121 0528 0274 ifnz
1122 0529 7800 decm $AC0.M
1123 052a b100 tst $ACC0
1124 052b 8900 clr $ACC1
1125 052c 0275 ifz
1126 052d 1a5f srr @$AR2, $AC1.M
1127 052e 001a addarn $AR2, $IX2
1128 052f 1b5e srri @$AR2, $AC0.M
1129 }
1130 0530 8e00 set16
1131 0531 02bf 0321 call 0x0321
1132 0533 00de 0354 lr $AC0.M, @0x0354
1133 0535 7400 incm $AC0.M
1134 0536 00fe 0354 sr @0x0354, $AC0.M
1135 0538 0000 nop
1136 }
1137 0539 16fb 0001 si @DIRQ, #0x0001
1138 053b 0083 0d00 lri $AR3, #0x0d00
1139 053d 02bf 012a call 0x012a
1140 053f 0081 0388 lri $AR1, #0x0388
1141 0541 009f 0d00 lri $AC1.M, #0x0d00
1142 0543 0080 0050 lri $AR0, #0x0050
1143 0545 02bf 0089 call 0x0089
1144 0547 0080 0fa0 lri $AR0, #0x0fa0
1145 0549 0083 0d60 lri $AR3, #0x0d60
1146 054b 009f 0050 lri $AC1.M, #0x0050
1147 054d 0098 8000 lri $AX0.L, #0x8000
1148 054f 02bf 0342 call 0x0342
1149 0551 0083 0d60 lri $AR3, #0x0d60
1150 0553 02bf 012a call 0x012a
1151 0555 0081 038a lri $AR1, #0x038a
1152 0557 009f 0d60 lri $AC1.M, #0x0d60
1153 0559 0080 0050 lri $AR0, #0x0050
1154 055b 02bf 0089 call 0x0089
1155 055d 009a 0000 lri $AX0.H, #0x0000
1156 055f 0098 00a0 lri $AX0.L, #0x00a0
1157 0561 0080 0388 lri $AR0, #0x0388
1158 0563 02bf 0453 call 0x0453
1159 0565 0080 038a lri $AR0, #0x038a
1160 0567 02bf 0453 call 0x0453
1161 0569 02bf 041c call 0x041c
1162 056b 0000 nop
1163 056c 0000 nop
1164 }
1165 056d 029f 0031 jmp 0x0031
1166 }
1168 {
1169 056f 0080 0346 lri $AR0, #0x0346
1170 0571 02bf 0051 call 0x0051
1171 0573 02bf 0051 call 0x0051
1172 0575 0081 0346 lri $AR1, #0x0346
1173 0577 193e lrri $AC0.M, @$AR1
1174 0578 193c lrri $AC0.L, @$AR1
1175 0579 009f 0400 lri $AC1.M, #0x0400
1176 057b 00c0 0345 lr $AR0, @0x0345
1177 057d 02bf 007e call 0x007e
1178 057f 0081 0348 lri $AR1, #0x0348
1179 0581 193e lrri $AC0.M, @$AR1
1180 0582 193c lrri $AC0.L, @$AR1
1181 0583 009f 0800 lri $AC1.M, #0x0800
1182 0585 00c0 0345 lr $AR0, @0x0345
1183 0587 02bf 007e call 0x007e
1184 0589 0081 0346 lri $AR1, #0x0346
1185 058b 193e lrri $AC0.M, @$AR1
1186 058c 193c lrri $AC0.L, @$AR1
1187 058d 009f 0800 lri $AC1.M, #0x0800
1188 058f 00c0 0345 lr $AR0, @0x0345
1189 0591 02bf 008b call 0x008b
1190 0593 0081 0348 lri $AR1, #0x0348
1191 0595 193e lrri $AC0.M, @$AR1
1192 0596 193c lrri $AC0.L, @$AR1
1193 0597 009f 0400 lri $AC1.M, #0x0400
1194 0599 00c0 0345 lr $AR0, @0x0345
1195 059b 02bf 008b call 0x008b
1196 059d 029f 0049 jmp 0x0049
1197 }
1199 {
1200 059f 0080 0346 lri $AR0, #0x0346
1201 05a1 02bf 0051 call 0x0051
1202 05a3 02bf 0051 call 0x0051
1203 05a5 0081 0346 lri $AR1, #0x0346
1204 05a7 193e lrri $AC0.M, @$AR1
1205 05a8 193c lrri $AC0.L, @$AR1
1206 05a9 009f 0400 lri $AC1.M, #0x0400
1207 05ab 00c0 0345 lr $AR0, @0x0345
1208 05ad 02bf 007e call 0x007e
1209 05af 0081 0348 lri $AR1, #0x0348
1210 05b1 193e lrri $AC0.M, @$AR1
1211 05b2 193c lrri $AC0.L, @$AR1
1212 05b3 009f 0400 lri $AC1.M, #0x0400
1213 05b5 00c0 0345 lr $AR0, @0x0345
1214 05b7 02bf 008b call 0x008b
1215 05b9 029f 0049 jmp 0x0049
1216 }
1218 {
1219 05bb 0080 0346 lri $AR0, #0x0346
1220 05bd 02bf 0051 call 0x0051
1221 05bf 02bf 0051 call 0x0051
1222 05c1 0081 0346 lri $AR1, #0x0346
1223 05c3 193e lrri $AC0.M, @$AR1
1224 05c4 193c lrri $AC0.L, @$AR1
1225 05c5 009f 0400 lri $AC1.M, #0x0400
1226 05c7 00c0 0345 lr $AR0, @0x0345
1227 05c9 02bf 00ae call 0x00ae
1228 05cb 0081 0348 lri $AR1, #0x0348
1229 05cd 193e lrri $AC0.M, @$AR1
1230 05ce 193c lrri $AC0.L, @$AR1
1231 05cf 009f 0400 lri $AC1.M, #0x0400
1232 05d1 00c0 0345 lr $AR0, @0x0345
1233 05d3 02bf 008b call 0x008b
1234 05d5 029f 0049 jmp 0x0049
1235 }
1237 {
1238 05d7 0080 0346 lri $AR0, #0x0346
1239 05d9 02bf 0051 call 0x0051
1240 05db 02bf 0051 call 0x0051
1241 05dd 0081 0346 lri $AR1, #0x0346
1242 05df 193e lrri $AC0.M, @$AR1
1243 05e0 193c lrri $AC0.L, @$AR1
1244 05e1 009f 0400 lri $AC1.M, #0x0400
1245 05e3 00c0 0344 lr $AR0, @0x0344
1246 05e5 02bf 007e call 0x007e
1247 05e7 0081 0348 lri $AR1, #0x0348
1248 05e9 193e lrri $AC0.M, @$AR1
1249 05ea 193c lrri $AC0.L, @$AR1
1250 05eb 009f 0800 lri $AC1.M, #0x0800
1251 05ed 00c0 0344 lr $AR0, @0x0344
1252 05ef 02bf 007e call 0x007e
1253 05f1 0080 0400 lri $AR0, #0x0400
1254 05f3 0083 0800 lri $AR3, #0x0800
1255 05f5 0084 0000 lri $IX0, #0x0000
1256 05f7 00da 0345 lr $AX0.H, @0x0345
1257 05f9 00df 0344 lr $AC1.M, @0x0344
1258 05fb 8f00 set40
1259 05fc 197b lrri $AX1.H, @$AR3
1260 05fd b800 mulx $AX0.H, $AX1.H
1261 05fe 197b lrri $AX1.H, @$AR3
1262 05ff 007f 0604 bloop $AC1.M, 0x0604
1263 0601 199e lrrn $AC0.M, @$AR0
1264 0602 bc00 mulxac $AX0.H, $AX1.H, $ACC0
1265 0603 80b2 nx'sl : $AC0.M, $AX1.H
1266 0604 0000 nop
1267 0605 8e00 set16
1268 0606 0081 0346 lri $AR1, #0x0346
1269 0608 193e lrri $AC0.M, @$AR1
1270 0609 193c lrri $AC0.L, @$AR1
1271 060a 009f 0400 lri $AC1.M, #0x0400
1272 060c 00c0 0344 lr $AR0, @0x0344
1273 060e 02bf 008b call 0x008b
1274 0610 009e 8200 lri $AC0.M, #0x8200
1275 0612 00dc 0344 lr $AC0.L, @0x0344
1276 0614 02bf 005a call 005a_SendMail(AC0.M,AC0.L) // 0x8200????
1277 0616 029f 0031 jmp 0x0031
1278 }
1280 {
1281 0618 0080 0346 lri $AR0, #0x0346
1282 061a 02bf 0051 call 0x0051
1283 061c 0081 0346 lri $AR1, #0x0346
1284 061e 009f 0400 lri $AC1.M, #0x0400
1285 0620 00c0 0345 lr $AR0, @0x0345
1286 0622 02bf 007c call 0x007c
1287 0624 02bf 8644 call 0x8644 // iROM!!!!
1288 0626 029f 0049 jmp 0x0049
1289 }
1291 {
1292 0628 009e 0430 lri $AC0.M, #0x0430
1293 062a 2219 lrs $AX0.H, @0x0019
1294 062b 4400 addr $ACC0, $AX0.H
1295 062c 1c1e mrr $AR0, $AC0.M
1296 062d 1fda mrr $AC0.M, $AX0.H
1297 062e 3280 not $AC0.M
1298 062f 7400 incm $AC0.M
1299 0630 221a lrs $AX0.H, @0x001a
1300 0631 4400 addr $ACC0, $AX0.H
1301 0632 0090 0000 lri $AC0.H, #0x0000
1302 0634 029f 0645 jmp 0x0645
1303 }
1305 {
1306 0636 009e 0430 lri $AC0.M, #0x0430
1307 0638 2219 lrs $AX0.H, @0x0019
1308 0639 4400 addr $ACC0, $AX0.H
1309 063a 1c1e mrr $AR0, $AC0.M
1310 063b 1fda mrr $AC0.M, $AX0.H
1311 063c 3280 not $AC0.M
1312 063d 7400 incm $AC0.M
1313 063e 221a lrs $AX0.H, @0x001a
1314 063f 4400 addr $ACC0, $AX0.H
1315 0640 0090 0000 lri $AC0.H, #0x0000
1316 0642 8200 cmp
1317 0643 0270 ifge
1318 0644 1fdf mrr $AC0.M, $AC1.M
1319 0645 1f3e mrr $AX1.L, $AC0.M
1320 0646 02bf 0699 call 0x0699
1321 0648 261c lrs $AC0.M, @0x001c
1322 0649 241d lrs $AC0.L, @0x001d
1323 064a 7200 addaxl $ACC0, $AX1.L
1324 064b 5300 subr $ACC1, $AX1.L
1325 064c 2e1c srs @0x001c, $AC0.M
1326 064d 2c1d srs @0x001d, $AC0.L
1327 064e 02df ret
1328 }
1330 {
1331 064f 8100 clr $ACC0
1332 0650 221c lrs $AX0.H, @0x001c
1333 0651 201d lrs $AX0.L, @0x001d
1334 0652 4800 addax $ACC0, $AX0
1335 0653 147c lsr $ACC0, #-4
1336 0654 2e1e srs @0x001e, $AC0.M
1337 0655 2c1f srs @0x001f, $AC0.L
1338 0656 2340 lrs $AX1.H, @0x0040
1339 0657 c814 mulc'mv $AC0.M, $AX1.H : $AX1.L, $AC0.L
1340 0658 9e00 mulmv $AX1.L, $AX1.H, $ACC0
1341 0659 f000 lsl16 $ACC0
1342 065a 4e00 addp $ACC0
1343 065b 234c lrs $AX1.H, @0x004c
1344 065c 214d lrs $AX1.L, @0x004d
1345 065d 4a00 addax $ACC0, $AX1
1346 065e 2e20 srs @0x0020, $AC0.M
1347 065f 2c21 srs @0x0021, $AC0.L
1348 0660 1fd8 mrr $AC0.M, $AX0.L
1349 0661 0240 000f andi $AC0.M, #0x000f
1350 0663 2e19 srs @0x0019, $AC0.M
1351 0664 264a lrs $AC0.M, @0x004a
1352 0665 244b lrs $AC0.L, @0x004b
1353 0666 5800 subax $ACC0, $AX0
1354 0667 2e22 srs @0x0022, $AC0.M
1355 0668 2c23 srs @0x0023, $AC0.L
1356 0669 02df ret
1357 }
1359 {
1360 066a 221e lrs $AX0.H, @0x001e
1361 066b 201f lrs $AX0.L, @0x001f
1362 066c 8100 clr $ACC0
1363 066d 264a lrs $AC0.M, @0x004a
1364 066e 244b lrs $AC0.L, @0x004b
1365 066f 147c lsr $ACC0, #-4
1366 0670 5800 subax $ACC0, $AX0
1367 0671 0295 067a jz 0x067a
1368 0673 02bf 06ec call 0x06ec
1369 0675 0e10 lris $AC0.M, #0x10
1370 0676 2e1a srs @0x001a, $AC0.M
1371 0677 8100 clr $ACC0
1372 0678 2e19 srs @0x0019, $AC0.M
1373 0679 02df ret
1374 }
1376 {
1377 067a 224a lrs $AX0.H, @0x004a
1378 067b 204b lrs $AX0.L, @0x004b
1379 067c 8100 clr $ACC0
1380 067d 261c lrs $AC0.M, @0x001c
1381 067e 241d lrs $AC0.L, @0x001d
1382 067f 5800 subax $ACC0, $AX0
1383 0680 0290 0687 jge 0x0687
1384 0682 02bf 06ec call 0x06ec
1385 0684 2623 lrs $AC0.M, @0x0023
1386 0685 029f 0676 jmp 0x0676
1387 }
1389 {
1390 0687 2648 lrs $AC0.M, @0x0048
1391 0688 2449 lrs $AC0.L, @0x0049
1392 0689 2e1c srs @0x001c, $AC0.M
1393 068a 2c1d srs @0x001d, $AC0.L
1394 068b 0e10 lris $AC0.M, #0x10
1395 068c 2e1a srs @0x001a, $AC0.M
1396 068d 02bf 064f call 0x064f
1397 068f 2642 lrs $AC0.M, @0x0042
1398 0690 2e3f srs @0x003f, $AC0.M
1399 0691 2643 lrs $AC0.M, @0x0043
1400 0692 2e3e srs @0x003e, $AC0.M
1401 0693 8100 clr $ACC0
1402 0694 00fe 0362 sr @0x0362, $AC0.M
1403 0696 02bf 06ec call 0x06ec
1404 0698 02df ret
1405 }
1407 {
1408 0699 b100 tst $ACC0
1409 069a 02d5 retz
1410 069b 04fe addis $AC0.M, #0xfe
1411 069c 1f1e mrr $AX0.L, $AC0.M
1412 069d 191e lrri $AC0.M, @$AR0
1413 069e 0291 06a4 jl 0x06a4
1414 06a0 191a lrri $AX0.H, @$AR0
1415 06a1 0058 loop $AX0.L
1416 06a2 64a0 movr'ls $ACC0, $AX0.H : $AX0.H, $AC0.M
1417 06a3 6433 movr's $ACC0, $AX0.H : @$AR3, $AC0.M
1418 06a4 1b7e srri @$AR3, $AC0.M
1419 06a5 02df ret
1420 }
1422 {
1423 06a6 0092 0004 lri $CR, #0x0004
1424 06a8 02bf 064f call 0x064f
1425 06aa 8100 clr $ACC0
1426 06ab 00fe 0362 sr @0x0362, $AC0.M
1427 06ad 8100 clr $ACC0
1428 06ae 2622 lrs $AC0.M, @0x0022
1429 06af 2423 lrs $AC0.L, @0x0023
1430 06b0 b100 tst $ACC0
1431 06b1 0294 06c3 jnz 0x06c3
1432 06b3 02bf 066a call 0x066a
1433 06b5 2219 lrs $AX0.H, @0x0019
1434 06b6 8600 tstaxh $AX0.H
1435 06b7 0294 06c0 jnz 0x06c0
1436 06b9 02bf 0636 call 0x0636
1437 06bb b900 tst $ACC1
1438 06bc 0295 06e9 jz 0x06e9
1439 06be 02bf 064f call 0x064f
1440 06c0 8100 clr $ACC0
1441 06c1 2622 lrs $AC0.M, @0x0022
1442 06c2 2423 lrs $AC0.L, @0x0023
1443 06c3 1f1f mrr $AX0.L, $AC1.M
1444 06c4 009a 0000 lri $AX0.H, #0x0000
1445 06c6 5800 subax $ACC0, $AX0
1446 06c7 0290 06d6 jge 0x06d6
1447 06c9 8100 clr $ACC0
1448 06ca 2619 lrs $AC0.M, @0x0019
1449 06cb b100 tst $ACC0
1450 06cc 0294 06d0 jnz 0x06d0
1451 06ce 02bf 066a call 0x066a
1452 06d0 02bf 0628 call 0x0628
1453 06d2 02bf 064f call 0x064f
1454 06d4 029f 06ad jmp 0x06ad
1455 }
1457 {
1458 06d6 8100 clr $ACC0
1459 06d7 2619 lrs $AC0.M, @0x0019
1460 06d8 b100 tst $ACC0
1461 06d9 0294 06dd jnz 0x06dd
1462 06db 02bf 066a call 0x066a
1463 06dd 02bf 0636 call 0x0636
1464 06df b900 tst $ACC1
1465 06e0 0295 06e9 jz 0x06e9
1466 06e2 02bf 064f call 0x064f
1467 06e4 029f 06d6 jmp 0x06d6
1468 }
1470 {
1471 06e6 8100 clr $ACC0
1472 06e7 005f loop $AC1.M
1473 06e8 1b7e srri @$AR3, $AC0.M
1474 06e9 0092 00ff lri $CR, #0x00ff
1475 06eb 02df ret
1476 }
1478 {
1479 06ec 00ff 0360 sr @0x0360, $AC1.M
1480 06ee 00da 0362 lr $AX0.H, @0x0362
1481 06f0 8600 tstaxh $AX0.H
1482 06f1 0294 06fe jnz 0x06fe
1483 06f3 0a01 lris $AX0.H, #0x01
1484 06f4 00fa 0362 sr @0x0362, $AX0.H
1485 06f6 2620 lrs $AC0.M, @0x0020
1486 06f7 2421 lrs $AC0.L, @0x0021
1487 06f8 009f 0005 lri $AC1.M, #0x0005
1488 06fa 02bf 0103 call 0x0103
1489 06fc 0092 0004 lri $CR, #0x0004
1490 06fe 0080 ffd3 lri $AR0, #0xffd3
1491 0700 0084 0000 lri $IX0, #0x0000
1492 0702 199e lrrn $AC0.M, @$AR0
1493 0703 1ffe mrr $AC1.M, $AC0.M
1494 0704 1401 lsl $ACC0, #1
1495 0705 0240 001e andi $AC0.M, #0x001e
1496 0707 0200 0300 addi $AC0.M, #0x0300
1497 0709 1c3e mrr $AR1, $AC0.M
1498 070a 157c lsr $ACC1, #-4
1499 070b 0340 000f andi $AC1.M, #0x000f
1500 070d 0a11 lris $AX0.H, #0x11
1501 070e 5500 subr $ACC1, $AX0.H
1502 070f 009a 00f0 lri $AX0.H, #0x00f0
1503 0711 009b 000f lri $AX1.H, #0x000f
1504 0713 0082 0370 lri $AR2, #0x0370
1505 0715 1998 lrrn $AX0.L, @$AR0
1506 0716 6000 movr $ACC0, $AX0.L
1507 0717 1107 071e bloopi #0x07, 0x071e
1508 {
1509 0719 3400 andr $AC0.M, $AX0.H
1510 071a 1408 lsl $ACC0, #8
1511 071b 6032 movr's $ACC0, $AX0.L : @$AR2, $AC0.M
1512 071c 3644 andr'ln $AC0.M, $AX1.H : $AX0.L, @$AR0
1513 071d 140c lsl $ACC0, #12
1514 071e 6032 movr's $ACC0, $AX0.L : @$AR2, $AC0.M
1515 }
1516 071f 3400 andr $AC0.M, $AX0.H
1517 0720 1408 lsl $ACC0, #8
1518 0721 6032 movr's $ACC0, $AX0.L : @$AR2, $AC0.M
1519 0722 3600 andr $AC0.M, $AX1.H
1520 0723 140c lsl $ACC0, #12
1521 0724 1b5e srri @$AR2, $AC0.M
1522 0725 8f00 set40
1523 0726 1f7f mrr $AX1.H, $AC1.M
1524 0727 203e lrs $AX0.L, @0x003e
1525 0728 273f lrs $AC1.M, @0x003f
1526 0729 193a lrri $AX0.H, @$AR1
1527 072a 1939 lrri $AX1.L, @$AR1
1528 072b 0080 0370 lri $AR0, #0x0370
1529 072d 0081 0430 lri $AR1, #0x0430
1530 072f 1c80 mrr $IX0, $AR0
1531 0730 a000 mulx $AX0.L, $AX1.L
1532 0731 ea70 maddc'l $AC1.M, $AX1.L : $AC0.M, @$AR0
1533 0732 1108 073b bloopi #0x08, 0x073b
1534 0734 3a93 asrnrx'mv $ACC0, $AX1.H : $AX0.L, $AC1.M
1535 0735 a478 mulxac'l $AX0.L, $AX1.L, $ACC0 : $AC1.M, @$AR0
1536 0736 1485 asl $ACC0, #5
1537 0737 e831 maddc's $AC0.M, $AX1.L : @$AR1, $AC0.M
1538 0738 3b92 asrnrx'mv $ACC1, $AX1.H : $AX0.L, $AC0.M
1539 0739 a570 mulxac'l $AX0.L, $AX1.L, $ACC1 : $AC0.M, @$AR0
1540 073a 1585 asl $ACC1, #5
1541 073b ea39 maddc's $AC1.M, $AX1.L : @$AR1, $AC1.M
1542 073c 8e00 set16
1543 073d 8900 clr $ACC1
1544 073e 00df 0360 lr $AC1.M, @0x0360
1545 0740 02df ret
1546 }
1548 {
1549 0741 0080 0346 lri $AR0, #0x0346
1550 0743 02bf 0051 call 0x0051
1551 0745 8100 clr $ACC0
1552 0746 0080 0430 lri $AR0, #0x0430
1553 0748 1010 loopi #0x10
1554 0749 1b1e srri @$AR0, $AC0.M
1555 074a 00fe 0442 sr @0x0442, $AC0.M
1556 074c 00fe 0443 sr @0x0443, $AC0.M
1557 074e 009c 0000 lri $AC0.L, #0x0000
1558 0750 00fe 041c sr @0x041c, $AC0.M
1559 0752 00fc 041d sr @0x041d, $AC0.L
1560 0754 009e 0100 lri $AC0.M, #0x0100
1561 0756 009c f100 lri $AC0.L, #0xf100
1562 0758 00fe 044e sr @0x044e, $AC0.M
1563 075a 00fc 044f sr @0x044f, $AC0.L
1564 075c 009e 0040 lri $AC0.M, #0x0040
1565 075e 009c 0000 lri $AC0.L, #0x0000
1566 0760 00fe 044c sr @0x044c, $AC0.M
1567 0762 00fc 044d sr @0x044d, $AC0.L
1568 0764 009e 0009 lri $AC0.M, #0x0009
1569 0766 00fe 0440 sr @0x0440, $AC0.M
1570 0768 009e 0010 lri $AC0.M, #0x0010
1571 076a 00fe 041a sr @0x041a, $AC0.M
1572 076c 009e 0100 lri $AC0.M, #0x0100
1573 076e 009c f250 lri $AC0.L, #0xf250
1574 0770 00fe 044a sr @0x044a, $AC0.M
1575 0772 00fc 044b sr @0x044b, $AC0.L
1576 0774 009c 0000 lri $AC0.L, #0x0000
1577 0776 00fe 0448 sr @0x0448, $AC0.M
1578 0778 00fc 0449 sr @0x0449, $AC0.L
1579 077a 009e 0001 lri $AC0.M, #0x0001
1580 077c 00fe 0441 sr @0x0441, $AC0.M
1581 077e 8900 clr $ACC1
1582 077f 00ff 0401 sr @0x0401, $AC1.M
1583 0781 1180 079b bloopi #0x80, 0x079b
1584 {
1585 0783 0083 0580 lri $AR3, #0x0580
1586 0785 009f 0100 lri $AC1.M, #0x0100
1587 0787 02bf 06a6 call 0x06a6
1588 0789 0081 0346 lri $AR1, #0x0346
1589 078b 193e lrri $AC0.M, @$AR1
1590 078c 18bc lrrd $AC0.L, @$AR1
1591 078d 009f 0580 lri $AC1.M, #0x0580
1592 078f 0080 0100 lri $AR0, #0x0100
1593 0791 02bf 008b call 0x008b
1594 0793 0081 0346 lri $AR1, #0x0346
1595 0795 193e lrri $AC0.M, @$AR1
1596 0796 18bc lrrd $AC0.L, @$AR1
1597 0797 0098 0200 lri $AX0.L, #0x0200
1598 0799 7000 addaxl $ACC0, $AX0.L
1599 079a 1b3e srri @$AR1, $AC0.M
1600 079b 1abc srrd @$AR1, $AC0.L
1601 }
1602 079c 029f 0049 jmp 0x0049
1603 }
1605 void 079e_AudioFormatRAW20()
1606 {
1607 079e 8900 clr $ACC1
1608 079f 009f 0050 lri $AC1.M, #0x0050
1609 07a1 0083 0520 lri $AR3, #0x0520
1610 07a3 02bf 07b9 call 0x07b9
1611 07a5 029f 04e7 jmp 0x04e7
1612 }
1614 void 07a7_AudioFormatRAW21()
1615 {
1616 07a7 00d8 0402 lr $AX0.L, @0x0402
1617 07a9 8100 clr $ACC0
1618 07aa 8900 clr $ACC1
1619 07ab 00dc 0418 lr $AC0.L, @0x0418
1620 07ad 009a 0050 lri $AX0.H, #0x0050
1621 07af 9000 mul $AX0.L, $AX0.H
1622 07b0 9400 mulac $AX0.L, $AX0.H, $ACC0
1623 07b1 1404 lsl $ACC0, #4
1624 07b2 1ffe mrr $AC1.M, $AC0.M
1625 07b3 0083 0580 lri $AR3, #0x0580
1626 07b5 02bf 07b9 call 0x07b9
1627 07b7 029f 04df jmp 0x04df
1628 }
1630 {
1631 07b9 0092 0004 lri $CR, #0x0004
1632 07bb 8100 clr $ACC0
1633 07bc 2622 lrs $AC0.M, @0x0022
1634 07bd 2423 lrs $AC0.L, @0x0023
1635 07be 1f1f mrr $AX0.L, $AC1.M
1636 07bf 009a 0000 lri $AX0.H, #0x0000
1637 07c1 5800 subax $ACC0, $AX0
1638 07c2 0290 07d9 jge 0x07d9
1639 07c4 8900 clr $ACC1
1640 07c5 00c0 0423 lr $AR0, @0x0423
1641 07c7 02bf 07fe call 0x07fe
1642 07c9 8100 clr $ACC0
1643 07ca 1fd8 mrr $AC0.M, $AX0.L
1644 07cb 2223 lrs $AX0.H, @0x0023
1645 07cc 5400 subr $ACC0, $AX0.H
1646 07cd 0007 dar $AR3
1647 07ce 1979 lrri $AX1.L, @$AR3
1648 07cf 005e loop $AC0.M
1649 07d0 1b79 srri @$AR3, $AX1.L
1650 07d1 009f 0001 lri $AC1.M, #0x0001
1651 07d3 2f01 srs @0x0001, $AC1.M
1652 07d4 8900 clr $ACC1
1653 07d5 2f23 srs @0x0023, $AC1.M
1654 07d6 0092 00ff lri $CR, #0x00ff
1655 07d8 02df ret
1656 }
1658 {
1659 07d9 2e22 srs @0x0022, $AC0.M
1660 07da 2c23 srs @0x0023, $AC0.L
1661 07db 8100 clr $ACC0
1662 07dc 8900 clr $ACC1
1663 07dd 264a lrs $AC0.M, @0x004a
1664 07de 271c lrs $AC1.M, @0x001c
1665 07df 5c00 sub $ACC0, $ACC1
1666 07e0 2e1e srs @0x001e, $AC0.M
1667 07e1 5000 subr $ACC0, $AX0.L
1668 07e2 0290 07f8 jge 0x07f8
1669 07e4 00c0 041e lr $AR0, @0x041e
1670 07e6 02bf 07fe call 0x07fe
1671 07e8 8100 clr $ACC0
1672 07e9 1fd8 mrr $AC0.M, $AX0.L
1673 07ea 221e lrs $AX0.H, @0x001e
1674 07eb 5400 subr $ACC0, $AX0.H
1675 07ec 1c1e mrr $AR0, $AC0.M
1676 07ed 8100 clr $ACC0
1677 07ee 2e1c srs @0x001c, $AC0.M
1678 07ef 2648 lrs $AC0.M, @0x0048
1679 07f0 2449 lrs $AC0.L, @0x0049
1680 07f1 2e4c srs @0x004c, $AC0.M
1681 07f2 2c4d srs @0x004d, $AC0.L
1682 07f3 02bf 07fe call 0x07fe
1683 07f5 0092 00ff lri $CR, #0x00ff
1684 07f7 02df ret
1685 }
1687 {
1688 07f8 1c18 mrr $AR0, $AX0.L
1689 07f9 02bf 07fe call 0x07fe
1690 07fb 0092 00ff lri $CR, #0x00ff
1691 07fd 02df ret
1692 }
1694 {
1695 07fe 8100 clr $ACC0
1696 07ff 1fc0 mrr $AC0.M, $AR0
1697 0800 b100 tst $ACC0
1698 0801 02d5 retz
1699 0802 8900 clr $ACC1
1700 0803 271c lrs $AC1.M, @0x001c
1701 0804 0340 0001 andi $AC1.M, #0x0001
1702 0806 009b 0000 lri $AX1.H, #0x0000
1703 0808 1f3f mrr $AX1.L, $AC1.M
1704 0809 264c lrs $AC0.M, @0x004c
1705 080a 244d lrs $AC0.L, @0x004d
1706 080b 8900 clr $ACC1
1707 080c 251c lrs $AC1.L, @0x001c
1708 080d 1501 lsl $ACC1, #1
1709 080e 4c00 add $ACC0, $ACC1
1710 080f 5a00 subax $ACC0, $AX1
1711 0810 5a00 subax $ACC0, $AX1
1712 0811 1c20 mrr $AR1, $AR0
1713 0812 1fe0 mrr $AC1.M, $AR0
1714 0813 0502 addis $AC1.M, #0x02
1715 0814 1c1f mrr $AR0, $AC1.M
1716 0815 009f 0a00 lri $AC1.M, #0x0a00
1717 0817 0092 00ff lri $CR, #0x00ff
1718 0819 02bf 007e call 0x007e
1719 081b 0092 0004 lri $CR, #0x0004
1720 081d 271c lrs $AC1.M, @0x001c
1721 081e 1f61 mrr $AX1.H, $AR1
1722 081f 4700 addr $ACC1, $AX1.H
1723 0820 2f1c srs @0x001c, $AC1.M
1724 0821 0080 0a00 lri $AR0, #0x0a00
1725 0823 8900 clr $ACC1
1726 0824 1ff9 mrr $AC1.M, $AX1.L
1727 0825 b900 tst $ACC1
1728 0826 0274 ifnz
1729 0827 0008 iar $AR0
1730 0828 8900 clr $ACC1
1731 0829 1fe1 mrr $AC1.M, $AR1
1732 082a 191e lrri $AC0.M, @$AR0
1733 082b 0701 cmpis $AC1.M, #0x01
1734 082c 0293 0835 jle 0x0835
1735 082e 191a lrri $AX0.H, @$AR0
1736 082f 05fe addis $AC1.M, #0xfe
1737 0830 005f loop $AC1.M
1738 0831 64a0 movr'ls $ACC0, $AX0.H : $AX0.H, $AC0.M
1739 0832 1b7e srri @$AR3, $AC0.M
1740 0833 1b7a srri @$AR3, $AX0.H
1741 0834 02df ret
1742 }
1744 {
1745 0835 1b7e srri @$AR3, $AC0.M
1746 0836 02df ret
1747 }
1749 {
1750 0837 0092 0004 lri $CR, #0x0004
1751 0839 2201 lrs $AX0.H, @0x0001
1752 083a 8600 tstaxh $AX0.H
1753 083b 0294 0868 jnz 0x0868
1754 083d 2204 lrs $AX0.H, @0x0004
1755 083e 8600 tstaxh $AX0.H
1756 083f 02b4 08bc callnz 0x08bc
1757 0841 2219 lrs $AX0.H, @0x0019
1758 0842 8600 tstaxh $AX0.H
1759 0843 0295 085d jz 0x085d
1760 0845 009e 0430 lri $AC0.M, #0x0430
1761 0847 4400 addr $ACC0, $AX0.H
1762 0848 1c1e mrr $AR0, $AC0.M
1763 0849 0e10 lris $AC0.M, #0x10
1764 084a 5400 subr $ACC0, $AX0.H
1765 084b 1f7e mrr $AX1.H, $AC0.M
1766 084c 02bf 0699 call 0x0699
1767 084e d900 cmpar $ACC1, $AX1.H
1768 084f 0292 085c jg 0x085c
1769 0851 0295 0858 jz 0x0858
1770 0853 2619 lrs $AC0.M, @0x0019
1771 0854 4c00 add $ACC0, $ACC1
1772 0855 2e19 srs @0x0019, $AC0.M
1773 0856 029f 08b9 jmp 0x08b9
1775 0858 8100 clr $ACC0
1776 0859 2e19 srs @0x0019, $AC0.M
1777 085a 029f 08b9 jmp 0x08b9
1779 085c 5700 subr $ACC1, $AX1.H
1780 085d 8100 clr $ACC0
1781 085e 2605 lrs $AC0.M, @0x0005
1782 085f b100 tst $ACC0
1783 0860 0295 0879 jz 0x0879
1784 0862 8100 clr $ACC0
1785 0863 2e05 srs @0x0005, $AC0.M
1786 0864 2241 lrs $AX0.H, @0x0041
1787 0865 8600 tstaxh $AX0.H
1788 0866 0294 086f jnz 0x086f
1789 0868 8100 clr $ACC0
1790 0869 005f loop $AC1.M
1791 086a 1b7e srri @$AR3, $AC0.M
1792 086b 7400 incm $AC0.M
1793 086c 2e01 srs @0x0001, $AC0.M
1794 086d 029f 08b9 jmp 0x08b9
1796 086f 2648 lrs $AC0.M, @0x0048
1797 0870 2449 lrs $AC0.L, @0x0049
1798 0871 2e1c srs @0x001c, $AC0.M
1799 0872 2c1d srs @0x001d, $AC0.L
1800 0873 02bf 08c1 call 0x08c1
1801 0875 2642 lrs $AC0.M, @0x0042
1802 0876 2443 lrs $AC0.L, @0x0043
1803 0877 2e3f srs @0x003f, $AC0.M
1804 0878 2c3e srs @0x003e, $AC0.L
1805 0879 00ff 0360 sr @0x0360, $AC1.M
1806 087b 2620 lrs $AC0.M, @0x0020
1807 087c 2421 lrs $AC0.L, @0x0021
1808 087d 009f 0005 lri $AC1.M, #0x0005
1809 087f 02bf 0103 call 0x0103
1810 0881 0092 0004 lri $CR, #0x0004
1811 0883 8900 clr $ACC1
1812 0884 00ff 0362 sr @0x0362, $AC1.M
1813 0886 00df 0360 lr $AC1.M, @0x0360
1814 0888 02bf 08db call 0x08db
1815 088a 8100 clr $ACC0
1816 088b 00de 0362 lr $AC0.M, @0x0362
1817 088d 2240 lrs $AX0.H, @0x0040
1818 088e 4400 addr $ACC0, $AX0.H
1819 088f 00fe 0362 sr @0x0362, $AC0.M
1820 0891 8100 clr $ACC0
1821 0892 2622 lrs $AC0.M, @0x0022
1822 0893 2423 lrs $AC0.L, @0x0023
1823 0894 0a01 lris $AX0.H, #0x01
1824 0895 0081 0405 lri $AR1, #0x0405
1825 0897 7a00 dec $ACC0
1826 0898 b100 tst $ACC0
1827 0899 0275 ifz
1828 089a 1a3a srr @$AR1, $AX0.H
1829 089b 2e22 srs @0x0022, $AC0.M
1830 089c 2c23 srs @0x0023, $AC0.L
1831 089d 0710 cmpis $AC1.M, #0x10
1832 089e 0293 08a7 jle 0x08a7
1833 08a0 05f0 addis $AC1.M, #0xf0
1834 08a1 2205 lrs $AX0.H, @0x0005
1835 08a2 8600 tstaxh $AX0.H
1836 08a3 0294 0862 jnz 0x0862
1837 08a5 029f 0888 jmp 0x0888
1838 08a7 0275 ifz
1839 08a8 8900 clr $ACC1
1840 08a9 2f19 srs @0x0019, $AC1.M
1841 08aa 1fc3 mrr $AC0.M, $AR3
1842 08ab 04f0 addis $AC0.M, #0xf0
1843 08ac 1c1e mrr $AR0, $AC0.M
1844 08ad 0083 0430 lri $AR3, #0x0430
1845 08af 0e10 lris $AC0.M, #0x10
1846 08b0 02bf 0699 call 0x0699
1847 08b2 2620 lrs $AC0.M, @0x0020
1848 08b3 2421 lrs $AC0.L, @0x0021
1849 08b4 00d8 0362 lr $AX0.L, @0x0362
1850 08b6 7000 addaxl $ACC0, $AX0.L
1851 08b7 2c21 srs @0x0021, $AC0.L
1852 08b8 2e20 srs @0x0020, $AC0.M
1853 08b9 0092 00ff lri $CR, #0x00ff
1854 08bb 02df ret
1855 }
1857 {
1858 08bc 8100 clr $ACC0
1859 08bd 2e1c srs @0x001c, $AC0.M
1860 08be 2e1d srs @0x001d, $AC0.M
1861 08bf 2e3e srs @0x003e, $AC0.M
1862 08c0 2e3f srs @0x003f, $AC0.M
1863 08c1 231c lrs $AX1.H, @0x001c
1864 08c2 211d lrs $AX1.L, @0x001d
1865 08c3 264a lrs $AC0.M, @0x004a
1866 08c4 244b lrs $AC0.L, @0x004b
1867 08c5 5a00 subax $ACC0, $AX1
1868 08c6 147c lsr $ACC0, #-4
1869 08c7 2e22 srs @0x0022, $AC0.M
1870 08c8 2c23 srs @0x0023, $AC0.L
1871 08c9 261c lrs $AC0.M, @0x001c
1872 08ca 241d lrs $AC0.L, @0x001d
1873 08cb 147c lsr $ACC0, #-4
1874 08cc 2240 lrs $AX0.H, @0x0040
1875 08cd c010 mulc'mv $AC0.M, $AX0.H : $AX0.L, $AC0.L
1876 08ce 9600 mulmv $AX0.L, $AX0.H, $ACC0
1877 08cf f000 lsl16 $ACC0
1878 08d0 4e00 addp $ACC0
1879 08d1 234c lrs $AX1.H, @0x004c
1880 08d2 214d lrs $AX1.L, @0x004d
1881 08d3 4a00 addax $ACC0, $AX1
1882 08d4 2e20 srs @0x0020, $AC0.M
1883 08d5 2c21 srs @0x0021, $AC0.L
1884 08d6 8100 clr $ACC0
1885 08d7 2e05 srs @0x0005, $AC0.M
1886 08d8 2e19 srs @0x0019, $AC0.M
1887 08d9 2e04 srs @0x0004, $AC0.M
1888 08da 02df ret
1889 }
1891 {
1892 08db 00ff 0360 sr @0x0360, $AC1.M
1893 08dd 0080 ffd3 lri $AR0, #0xffd3
1894 08df 0084 0000 lri $IX0, #0x0000
1895 08e1 199e lrrn $AC0.M, @$AR0
1896 08e2 1ffe mrr $AC1.M, $AC0.M
1897 08e3 1401 lsl $ACC0, #1
1898 08e4 0240 001e andi $AC0.M, #0x001e
1899 08e6 0200 0300 addi $AC0.M, #0x0300
1900 08e8 1c3e mrr $AR1, $AC0.M
1901 08e9 157c lsr $ACC1, #-4
1902 08ea 0340 000f andi $AC1.M, #0x000f
1903 08ec 0a11 lris $AX0.H, #0x11
1904 08ed 5500 subr $ACC1, $AX0.H
1905 08ee 009a 00f0 lri $AX0.H, #0x00f0
1906 08f0 009b 000f lri $AX1.H, #0x000f
1907 08f2 0082 0370 lri $AR2, #0x0370
1908 08f4 1998 lrrn $AX0.L, @$AR0
1909 08f5 6000 movr $ACC0, $AX0.L
1910 08f6 1107 08fd bloopi #0x07, 0x08fd
1911 {
1912 08f8 3400 andr $AC0.M, $AX0.H
1913 08f9 1408 lsl $ACC0, #8
1914 08fa 6032 movr's $ACC0, $AX0.L : @$AR2, $AC0.M
1915 08fb 3644 andr'ln $AC0.M, $AX1.H : $AX0.L, @$AR0
1916 08fc 140c lsl $ACC0, #12
1917 08fd 6032 movr's $ACC0, $AX0.L : @$AR2, $AC0.M
1918 }
1919 08fe 3400 andr $AC0.M, $AX0.H
1920 08ff 1408 lsl $ACC0, #8
1921 0900 6032 movr's $ACC0, $AX0.L : @$AR2, $AC0.M
1922 0901 3600 andr $AC0.M, $AX1.H
1923 0902 140c lsl $ACC0, #12
1924 0903 1b5e srri @$AR2, $AC0.M
1925 0904 8f00 set40
1926 0905 1f7f mrr $AX1.H, $AC1.M
1927 0906 203e lrs $AX0.L, @0x003e
1928 0907 273f lrs $AC1.M, @0x003f
1929 0908 193a lrri $AX0.H, @$AR1
1930 0909 1939 lrri $AX1.L, @$AR1
1931 090a 0080 0370 lri $AR0, #0x0370
1932 090c 1c80 mrr $IX0, $AR0
1933 090d a000 mulx $AX0.L, $AX1.L
1934 090e ea70 maddc'l $AC1.M, $AX1.L : $AC0.M, @$AR0
1935 090f 3a93 asrnrx'mv $ACC0, $AX1.H : $AX0.L, $AC1.M
1936 0910 a478 mulxac'l $AX0.L, $AX1.L, $ACC0 : $AC1.M, @$AR0
1937 0911 1485 asl $ACC0, #5
1938 0912 e833 maddc's $AC0.M, $AX1.L : @$AR3, $AC0.M
1939 0913 3b92 asrnrx'mv $ACC1, $AX1.H : $AX0.L, $AC0.M
1940 0914 a570 mulxac'l $AX0.L, $AX1.L, $ACC1 : $AC0.M, @$AR0
1941 0915 1585 asl $ACC1, #5
1942 0916 ea3b maddc's $AC1.M, $AX1.L : @$AR3, $AC1.M
1943 0917 1106 0920 bloopi #0x06, 0x0920
1944 {
1945 0919 3a93 asrnrx'mv $ACC0, $AX1.H : $AX0.L, $AC1.M
1946 091a a478 mulxac'l $AX0.L, $AX1.L, $ACC0 : $AC1.M, @$AR0
1947 091b 1485 asl $ACC0, #5
1948 091c e833 maddc's $AC0.M, $AX1.L : @$AR3, $AC0.M
1949 091d 3b92 asrnrx'mv $ACC1, $AX1.H : $AX0.L, $AC0.M
1950 091e a570 mulxac'l $AX0.L, $AX1.L, $ACC1 : $AC0.M, @$AR0
1951 091f 1585 asl $ACC1, #5
1952 0920 ea3b maddc's $AC1.M, $AX1.L : @$AR3, $AC1.M
1953 }
1954 0921 3a93 asrnrx'mv $ACC0, $AX1.H : $AX0.L, $AC1.M
1955 0922 a478 mulxac'l $AX0.L, $AX1.L, $ACC0 : $AC1.M, @$AR0
1956 0923 1485 asl $ACC0, #5
1957 0924 e833 maddc's $AC0.M, $AX1.L : @$AR3, $AC0.M
1958 0925 3b92 asrnrx'mv $ACC1, $AX1.H : $AX0.L, $AC0.M
1959 0926 a500 mulxac $AX0.L, $AX1.L, $ACC1
1960 0927 1585 asl $ACC1, #5
1961 0928 1b7f srri @$AR3, $AC1.M
1962 0929 2e3e srs @0x003e, $AC0.M
1963 092a 2f3f srs @0x003f, $AC1.M
1964 092b 8e00 set16
1965 092c 8900 clr $ACC1
1966 092d 00df 0360 lr $AC1.M, @0x0360
1967 092f 02df ret
1968 }
1970 {
1971 0930 0083 0520 lri $AR3, #0x0520
1972 0932 00de 041b lr $AC0.M, @0x041b
1973 0934 1050 loopi #0x50
1974 0935 1b7e srri @$AR3, $AC0.M
1975 0936 029f 04e7 jmp 0x04e7
1976 }
1978 0938 0000 nop
1979 0939 0000 nop
1980 093a 0000 nop
1981 093b 0000 nop
1982 093c 0000 nop
1983 093d 0000 nop
1984 093e 0000 nop
1985 093f 0000 nop