|
2824
|
1 * Disassembly by Os9disasm of cfloats.r
|
|
|
2
|
|
|
3 section code
|
|
|
4
|
|
|
5 * class D external label equates
|
|
|
6
|
|
|
7 D0000 equ $0000
|
|
|
8 D0010 equ $0010
|
|
|
9 D0011 equ $0011
|
|
|
10 D0012 equ $0012
|
|
|
11 D0013 equ $0013
|
|
|
12 D0014 equ $0014
|
|
|
13 D0015 equ $0015
|
|
|
14 D0016 equ $0016
|
|
|
15 D0017 equ $0017
|
|
|
16 D0018 equ $0018
|
|
|
17 D0019 equ $0019
|
|
|
18 D001c equ $001c
|
|
|
19 D001d equ $001d
|
|
|
20 D001e equ $001e
|
|
|
21 D0022 equ $0022
|
|
|
22 D0023 equ $0023
|
|
|
23 D0024 equ $0024
|
|
|
24 D0025 equ $0025
|
|
|
25 D0026 equ $0026
|
|
|
26 D0027 equ $0027
|
|
|
27 D0028 equ $0028
|
|
|
28 D0029 equ $0029
|
|
|
29 D002a equ $002a
|
|
|
30 D0081 equ $0081
|
|
|
31
|
|
|
32 _dnorm: ldx 2,s
|
|
|
33 lbsr _dstack
|
|
|
34 bsr L0008
|
|
|
35 rts
|
|
|
36 L0008 pshs u
|
|
|
37 leas -30,s
|
|
|
38 tfr s,u
|
|
|
39 clr D001d,u
|
|
|
40 clr D0019,u
|
|
|
41 lbsr L028f
|
|
|
42 lbra L00b4
|
|
|
43 _dneg: ldb #7
|
|
|
44 clra
|
|
|
45 L001e ora b,x
|
|
|
46 decb
|
|
|
47 bpl L001e
|
|
|
48 tsta
|
|
|
49 lbeq _xtofla
|
|
|
50 ldd ,x
|
|
|
51 eora #$80
|
|
|
52 lbra L064d
|
|
|
53 _dadd: lbsr L04a7
|
|
|
54 lbsr L0189
|
|
|
55 lbra L00b4
|
|
|
56 _dsub: lbsr L04a7
|
|
|
57 lbsr L015f
|
|
|
58 lbra L00b4
|
|
|
59 _dmul: lbsr L04a7
|
|
|
60 lbsr L0302
|
|
|
61 bra L00b4
|
|
|
62 _ddiv: lbsr L04a7
|
|
|
63 lbsr L032e
|
|
|
64 bra L00b4
|
|
|
65 _dtol: lbsr _xtofla
|
|
|
66 lbra L054b
|
|
|
67 _dtoi: bsr _dtol
|
|
|
68 ldd 2,x
|
|
|
69 rts
|
|
|
70 _ltod: ldd ,x
|
|
|
71 std _flacc,y
|
|
|
72 ldd 2,x
|
|
|
73 leax _flacc,y
|
|
|
74 std 2,x
|
|
|
75 lbra L04eb
|
|
|
76 _itod: leax _flacc,y
|
|
|
77 std 2,x
|
|
|
78 tfr a,b
|
|
|
79 sex
|
|
|
80 tfr a,b
|
|
|
81 std ,x
|
|
|
82 lbra L04eb
|
|
|
83 _utod: leax _flacc,y
|
|
|
84 std 2,x
|
|
|
85 clr ,x
|
|
|
86 clr 1,x
|
|
|
87 lbra L04eb
|
|
|
88 _dtof: ldd ,x
|
|
|
89 std _flacc,y
|
|
|
90 lda 2,x
|
|
|
91 ldb 7,x
|
|
|
92 leax _flacc,y
|
|
|
93 std 2,x
|
|
|
94 rts
|
|
|
95 _ftod: ldd ,x
|
|
|
96 std _flacc,y
|
|
|
97 ldd 2,x
|
|
|
98 leax _flacc,y
|
|
|
99 sta 2,x
|
|
|
100 stb 7,x
|
|
|
101 clr 3,x
|
|
|
102 clr 4,x
|
|
|
103 clr 5,x
|
|
|
104 clr 6,x
|
|
|
105 rts
|
|
|
106 L00b4 leax _flacc,y
|
|
|
107 ldd D0022,u
|
|
|
108 std ,x
|
|
|
109 ldd D0024,u
|
|
|
110 std 2,x
|
|
|
111 ldd D0026,u
|
|
|
112 std 4,x
|
|
|
113 ldd D0028,u
|
|
|
114 std 6,x
|
|
|
115 leas D001e,u
|
|
|
116 puls u
|
|
|
117 puls d
|
|
|
118 std 6,s
|
|
|
119 leas 6,s
|
|
|
120 rts
|
|
|
121 _dcmpr: lda 2,s
|
|
|
122 eora ,x
|
|
|
123 bmi L0147
|
|
|
124 lda 2,s
|
|
|
125 bmi L011a
|
|
|
126 lda 9,s
|
|
|
127 beq L0113
|
|
|
128 ldb 7,x
|
|
|
129 beq L014b
|
|
|
130 cmpa 7,x
|
|
|
131 bne L011e
|
|
|
132 ldd 2,s
|
|
|
133 cmpd ,x
|
|
|
134 bne L011e
|
|
|
135 ldd 4,s
|
|
|
136 cmpd 2,x
|
|
|
137 bne L011e
|
|
|
138 ldd 6,s
|
|
|
139 cmpd 4,x
|
|
|
140 bne L011e
|
|
|
141 lda 8,s
|
|
|
142 anda #254
|
|
|
143 pshs a
|
|
|
144 ldb 6,x
|
|
|
145 andb #254
|
|
|
146 cmpa ,s+
|
|
|
147 bne L011e
|
|
|
148 bra L014f
|
|
|
149 L0113 lda 7,x
|
|
|
150 bne L015a
|
|
|
151 clra
|
|
|
152 bra L014f
|
|
|
153 L011a lda 7,x
|
|
|
154 cmpa 9,s
|
|
|
155 L011e bhi L014b
|
|
|
156 bcs L015a
|
|
|
157 ldd ,x
|
|
|
158 cmpd 2,s
|
|
|
159 bne L011e
|
|
|
160 ldd 2,x
|
|
|
161 cmpd 4,s
|
|
|
162 bne L011e
|
|
|
163 ldd 4,x
|
|
|
164 cmpd 6,s
|
|
|
165 bne L011e
|
|
|
166 lda 6,x
|
|
|
167 anda #254
|
|
|
168 pshs a
|
|
|
169 lda 8,s
|
|
|
170 anda #254
|
|
|
171 cmpa ,s+
|
|
|
172 bne L011e
|
|
|
173 bra L014f
|
|
|
174 L0147 lda ,x
|
|
|
175 bpl L015a
|
|
|
176 L014b lda #1
|
|
|
177 andcc #254
|
|
|
178 L014f pshs cc
|
|
|
179 ldd 1,s
|
|
|
180 std 9,s
|
|
|
181 puls cc
|
|
|
182 leas 8,s
|
|
|
183 rts
|
|
|
184 L015a clra
|
|
|
185 cmpa #1
|
|
|
186 bra L014f
|
|
|
187 L015f lda D0017,u
|
|
|
188 beq L0180
|
|
|
189 ldb D001c,u
|
|
|
190 eorb #$80
|
|
|
191 stb D001c,u
|
|
|
192 eorb D0018,u
|
|
|
193 stb D0019,u
|
|
|
194 ldb D0029,u
|
|
|
195 bne L0192
|
|
|
196 lbsr L061b
|
|
|
197 lda D0022,u
|
|
|
198 lbra L02d2
|
|
|
199 L0180 lda D0022,u
|
|
|
200 ldb D0018,u
|
|
|
201 lbra L02d5
|
|
|
202 L0189 lbeq L061b
|
|
|
203 lda D0017,u
|
|
|
204 beq L0180
|
|
|
205 L0192 suba D0029,u
|
|
|
206 beq L01c3
|
|
|
207 sta ,u
|
|
|
208 bcs L01c9
|
|
|
209 ldb D0017,u
|
|
|
210 stb D0029,u
|
|
|
211 ldd D0022,u
|
|
|
212 L01a4 lsra
|
|
|
213 rorb
|
|
|
214 ror D0024,u
|
|
|
215 ror D0025,u
|
|
|
216 ror D0026,u
|
|
|
217 ror D0027,u
|
|
|
218 ror D0028,u
|
|
|
219 dec ,u
|
|
|
220 bne L01a4
|
|
|
221 std D0022,u
|
|
|
222 L01bc lda D0019,u
|
|
|
223 bmi L0238
|
|
|
224 bra L01e9
|
|
|
225 L01c3 inc ,u
|
|
|
226 orcc #1
|
|
|
227 bra L01bc
|
|
|
228 L01c9 ldd D0010,u
|
|
|
229 L01cc lsra
|
|
|
230 rorb
|
|
|
231 ror D0012,u
|
|
|
232 ror D0013,u
|
|
|
233 ror D0014,u
|
|
|
234 ror D0015,u
|
|
|
235 ror D0016,u
|
|
|
236 inc ,u
|
|
|
237 bne L01cc
|
|
|
238 std D0010,u
|
|
|
239 lda D0019,u
|
|
|
240 bmi L023b
|
|
|
241 L01e9 ldd D0027,u
|
|
|
242 adcb D0016,u
|
|
|
243 adca D0015,u
|
|
|
244 std D0027,u
|
|
|
245 ldd D0025,u
|
|
|
246 adcb D0014,u
|
|
|
247 adca D0013,u
|
|
|
248 std D0025,u
|
|
|
249 ldb D0024,u
|
|
|
250 adcb D0012,u
|
|
|
251 stb D0024,u
|
|
|
252 ldd D0022,u
|
|
|
253 adcb D0011,u
|
|
|
254 adca D0010,u
|
|
|
255 std D0022,u
|
|
|
256 bcc L0230
|
|
|
257 inc D0029,u
|
|
|
258 ror D0022,u
|
|
|
259 ror D0023,u
|
|
|
260 ror D0024,u
|
|
|
261 ror D0025,u
|
|
|
262 ror D0026,u
|
|
|
263 ror D0027,u
|
|
|
264 ror D0028,u
|
|
|
265 L0230 lda D001c,u
|
|
|
266 sta D0019,u
|
|
|
267 bra L028f
|
|
|
268 L0238 rola
|
|
|
269 coma
|
|
|
270 asra
|
|
|
271 L023b ldd D0027,u
|
|
|
272 sbcb D0016,u
|
|
|
273 sbca D0015,u
|
|
|
274 std D0027,u
|
|
|
275 ldd D0025,u
|
|
|
276 sbcb D0014,u
|
|
|
277 sbca D0013,u
|
|
|
278 std D0025,u
|
|
|
279 ldd D0023,u
|
|
|
280 sbcb D0012,u
|
|
|
281 sbca D0011,u
|
|
|
282 std D0023,u
|
|
|
283 lda D0022,u
|
|
|
284 sbca D0010,u
|
|
|
285 sta D0022,u
|
|
|
286 lda D0018,u
|
|
|
287 bcc L028c
|
|
|
288 com D0022,u
|
|
|
289 com D0023,u
|
|
|
290 com D0024,u
|
|
|
291 com D0025,u
|
|
|
292 com D0026,u
|
|
|
293 com D0027,u
|
|
|
294 com D0028,u
|
|
|
295 lda ,u
|
|
|
296 beq L0289
|
|
|
297 lbsr L05d8
|
|
|
298 L0289 lda D001c,u
|
|
|
299 L028c sta D0019,u
|
|
|
300 L028f clr ,u
|
|
|
301 L0291 lda D0022,u
|
|
|
302 bmi L02d2
|
|
|
303 ora D0023,u
|
|
|
304 ora D0024,u
|
|
|
305 ora D0025,u
|
|
|
306 ora D0026,u
|
|
|
307 ora D0027,u
|
|
|
308 ora D0028,u
|
|
|
309 beq L02e6
|
|
|
310 ldd D0022,u
|
|
|
311 L02ad dec D0029,u
|
|
|
312 bne L02b5
|
|
|
313 dec D001d,u
|
|
|
314 L02b5 asl ,u
|
|
|
315 rol D0028,u
|
|
|
316 rol D0027,u
|
|
|
317 rol D0026,u
|
|
|
318 rol D0025,u
|
|
|
319 rol D0024,u
|
|
|
320 rolb
|
|
|
321 rola
|
|
|
322 bpl L02ad
|
|
|
323 stb D0023,u
|
|
|
324 ldb D0029,u
|
|
|
325 beq L02ea
|
|
|
326 L02d2 ldb D0019,u
|
|
|
327 L02d5 anda #$7f
|
|
|
328 andb #$80
|
|
|
329 pshs b
|
|
|
330 adda ,s+
|
|
|
331 sta D0022,u
|
|
|
332 tst D001d,u
|
|
|
333 bne L02ea
|
|
|
334 L02e5 rts
|
|
|
335 L02e6 sta D0029,u
|
|
|
336 rts
|
|
|
337 L02ea lda D001d,u
|
|
|
338 ldb D0029,u
|
|
|
339 subd #0
|
|
|
340 beq L02fd
|
|
|
341 bmi L02fd
|
|
|
342 L02f7 ldd #$0028
|
|
|
343 lbra _rpterr
|
|
|
344 L02fd lbsr L0328
|
|
|
345 bra L02f7
|
|
|
346 L0302 beq L0328
|
|
|
347 lda D0017,u
|
|
|
348 beq L0328
|
|
|
349 lbsr L03a4
|
|
|
350 clra
|
|
|
351 ldb D0029,u
|
|
|
352 addb D0017,u
|
|
|
353 adca #0
|
|
|
354 subd #$0080
|
|
|
355 stb D0029,u
|
|
|
356 sta D001d,u
|
|
|
357 lbsr L0291
|
|
|
358 lda ,u
|
|
|
359 bpl L02e5
|
|
|
360 lbra L05d8
|
|
|
361 L0328 clra
|
|
|
362 sta D0029,u
|
|
|
363 bra L038e
|
|
|
364 L032e ldb D0017,u
|
|
|
365 bne L0339
|
|
|
366 ldd #$0029
|
|
|
367 lbra _rpterr
|
|
|
368 L0339 tsta
|
|
|
369 beq L0328
|
|
|
370 lbsr L0402
|
|
|
371 clra
|
|
|
372 ldb D0029,u
|
|
|
373 subb D0017,u
|
|
|
374 sbca #0
|
|
|
375 addd #$0081
|
|
|
376 sta D001d,u
|
|
|
377 stb D0029,u
|
|
|
378 lda 6,u
|
|
|
379 coma
|
|
|
380 asra
|
|
|
381 ror D0022,u
|
|
|
382 ror D0023,u
|
|
|
383 ror D0024,u
|
|
|
384 ror D0025,u
|
|
|
385 ror D0026,u
|
|
|
386 ror D0027,u
|
|
|
387 ror D0028,u
|
|
|
388 ror ,u
|
|
|
389 lbsr L0291
|
|
|
390 lda ,u
|
|
|
391 bpl L03a3
|
|
|
392 lbra L05d8
|
|
|
393 L0376 pshs a
|
|
|
394 ldd D0022,u
|
|
|
395 std ,u
|
|
|
396 ldd D0024,u
|
|
|
397 std 2,u
|
|
|
398 ldd D0026,u
|
|
|
399 std 4,u
|
|
|
400 ldb D0028,u
|
|
|
401 stb 6,u
|
|
|
402 puls a
|
|
|
403 L038e sta D0022,u
|
|
|
404 sta D0023,u
|
|
|
405 sta D0024,u
|
|
|
406 sta D0025,u
|
|
|
407 sta D0026,u
|
|
|
408 sta D0027,u
|
|
|
409 sta D0028,u
|
|
|
410 L03a3 rts
|
|
|
411 L03a4 clra
|
|
|
412 bsr L0376
|
|
|
413 ldb #$38
|
|
|
414 stb 8,u
|
|
|
415 L03ab lda 6,u
|
|
|
416 lsra
|
|
|
417 bcc L03da
|
|
|
418 ldd D0027,u
|
|
|
419 addd D0015,u
|
|
|
420 std D0027,u
|
|
|
421 ldd D0025,u
|
|
|
422 adcb D0014,u
|
|
|
423 adca D0013,u
|
|
|
424 std D0025,u
|
|
|
425 ldd D0023,u
|
|
|
426 adcb D0012,u
|
|
|
427 adca D0011,u
|
|
|
428 std D0023,u
|
|
|
429 lda D0022,u
|
|
|
430 adca D0010,u
|
|
|
431 sta D0022,u
|
|
|
432 L03da ror D0022,u
|
|
|
433 ror D0023,u
|
|
|
434 ror D0024,u
|
|
|
435 ror D0025,u
|
|
|
436 ror D0026,u
|
|
|
437 ror D0027,u
|
|
|
438 ror D0028,u
|
|
|
439 ror ,u
|
|
|
440 ror 1,u
|
|
|
441 ror 2,u
|
|
|
442 ror 3,u
|
|
|
443 ror 4,u
|
|
|
444 ror 5,u
|
|
|
445 ror 6,u
|
|
|
446 dec 8,u
|
|
|
447 bne L03ab
|
|
|
448 rts
|
|
|
449 L0402 clra
|
|
|
450 lbsr L0376
|
|
|
451 ldb #$39
|
|
|
452 stb 8,u
|
|
|
453 L040a ldb ,u
|
|
|
454 cmpb D0010,u
|
|
|
455 bcs L0441
|
|
|
456 ldd 5,u
|
|
|
457 subd D0015,u
|
|
|
458 std 13,u
|
|
|
459 ldd 3,u
|
|
|
460 sbcb D0014,u
|
|
|
461 sbca D0013,u
|
|
|
462 std 11,u
|
|
|
463 ldb 2,u
|
|
|
464 sbcb D0012,u
|
|
|
465 stb 10,u
|
|
|
466 ldd ,u
|
|
|
467 sbcb D0011,u
|
|
|
468 sbca D0010,u
|
|
|
469 bcs L0441
|
|
|
470 std ,u
|
|
|
471 lda 10,u
|
|
|
472 sta 2,u
|
|
|
473 ldd 11,u
|
|
|
474 std 3,u
|
|
|
475 ldd 13,u
|
|
|
476 std 5,u
|
|
|
477 L0441 rol D0028,u
|
|
|
478 rol D0027,u
|
|
|
479 rol D0026,u
|
|
|
480 rol D0025,u
|
|
|
481 rol D0024,u
|
|
|
482 rol D0023,u
|
|
|
483 rol D0022,u
|
|
|
484 rol 6,u
|
|
|
485 rol 5,u
|
|
|
486 rol 4,u
|
|
|
487 rol 3,u
|
|
|
488 rol 2,u
|
|
|
489 rol 1,u
|
|
|
490 rol ,u
|
|
|
491 dec 8,u
|
|
|
492 bhi L040a
|
|
|
493 beq L048f
|
|
|
494 ldd 5,u
|
|
|
495 subd D0015,u
|
|
|
496 std 5,u
|
|
|
497 ldd 3,u
|
|
|
498 sbcb D0014,u
|
|
|
499 sbca D0013,u
|
|
|
500 std 3,u
|
|
|
501 ldd 1,u
|
|
|
502 sbcb D0012,u
|
|
|
503 sbca D0011,u
|
|
|
504 std 1,u
|
|
|
505 lda ,u
|
|
|
506 sbca D0010,u
|
|
|
507 sta ,u
|
|
|
508 clra
|
|
|
509 bra L0441
|
|
|
510 L048f ror ,u
|
|
|
511 com D0022,u
|
|
|
512 com D0023,u
|
|
|
513 com D0024,u
|
|
|
514 com D0025,u
|
|
|
515 com D0026,u
|
|
|
516 com D0027,u
|
|
|
517 com D0028,u
|
|
|
518 rts
|
|
|
519 L04a7 puls d
|
|
|
520 pshs u
|
|
|
521 leas -30,s
|
|
|
522 tfr s,u
|
|
|
523 pshs d
|
|
|
524 clr D001d,u
|
|
|
525 ldd 6,x
|
|
|
526 std D0016,u
|
|
|
527 ldd 4,x
|
|
|
528 std D0014,u
|
|
|
529 ldd 2,x
|
|
|
530 std D0012,u
|
|
|
531 ldd ,x
|
|
|
532 stb D0011,u
|
|
|
533 tfr a,b
|
|
|
534 sta D001c,u
|
|
|
535 ora #$80
|
|
|
536 sta D0010,u
|
|
|
537 eorb D0022,u
|
|
|
538 stb D0019,u
|
|
|
539 lda D0022,u
|
|
|
540 sta D0018,u
|
|
|
541 ora #$80
|
|
|
542 sta D0022,u
|
|
|
543 lda D0029,u
|
|
|
544 rts
|
|
|
545 leax D0022,u
|
|
|
546 L04eb lda #$a0
|
|
|
547 sta 7,x
|
|
|
548 clr 4,x
|
|
|
549 clr 5,x
|
|
|
550 clr 6,x
|
|
|
551 lda ,x
|
|
|
552 tfr a,b
|
|
|
553 orb 1,x
|
|
|
554 orb 2,x
|
|
|
555 orb 3,x
|
|
|
556 beq L0537
|
|
|
557 ldb 1,x
|
|
|
558 tsta
|
|
|
559 bpl L0519
|
|
|
560 pshs d
|
|
|
561 clra
|
|
|
562 clrb
|
|
|
563 subd 2,x
|
|
|
564 std 2,x
|
|
|
565 ldd #0
|
|
|
566 sbcb 1,s
|
|
|
567 sbca ,s
|
|
|
568 leas 2,s
|
|
|
569 bvs L0523
|
|
|
570 L0519 dec 7,x
|
|
|
571 asl 3,x
|
|
|
572 rol 2,x
|
|
|
573 rolb
|
|
|
574 rola
|
|
|
575 bpl L0519
|
|
|
576 L0523 anda #$7f
|
|
|
577 tst ,x
|
|
|
578 bpl L052b
|
|
|
579 ora #$80
|
|
|
580 L052b std ,x
|
|
|
581 rts
|
|
|
582 leax D0022,u
|
|
|
583 clr 4,x
|
|
|
584 clr 5,x
|
|
|
585 clr 6,x
|
|
|
586 L0537 clr 7,x
|
|
|
587 L0539 clr ,x
|
|
|
588 clr 1,x
|
|
|
589 clr 2,x
|
|
|
590 clr 3,x
|
|
|
591 rts
|
|
|
592 L0542 ldd #$002a
|
|
|
593 lbra _rpterr
|
|
|
594 leax D0022,u
|
|
|
595 L054b ldb 7,x
|
|
|
596 beq L0539
|
|
|
597 subb #$81
|
|
|
598 bcs L05ca
|
|
|
599 negb
|
|
|
600 addb #$1f
|
|
|
601 bmi L0542
|
|
|
602 bne L056f
|
|
|
603 ldd ,x
|
|
|
604 cmpd #$8000
|
|
|
605 bne L0542
|
|
|
606 lda 2,x
|
|
|
607 ora 3,x
|
|
|
608 ora 4,x
|
|
|
609 ora 5,x
|
|
|
610 ora 6,x
|
|
|
611 bne L0542
|
|
|
612 rts
|
|
|
613 L056f pshs b
|
|
|
614 ldd ,x
|
|
|
615 bmi L0585
|
|
|
616 ora #$80
|
|
|
617 L0577 lsra
|
|
|
618 rorb
|
|
|
619 ror 2,x
|
|
|
620 ror 3,x
|
|
|
621 dec ,s
|
|
|
622 bne L0577
|
|
|
623 std ,x
|
|
|
624 puls b,pc
|
|
|
625 L0585 clr ,-s
|
|
|
626 L0587 lsra
|
|
|
627 rorb
|
|
|
628 ror 2,x
|
|
|
629 ror 3,x
|
|
|
630 ror 4,x
|
|
|
631 ror 5,x
|
|
|
632 ror 6,x
|
|
|
633 bcc L0597
|
|
|
634 inc ,s
|
|
|
635 L0597 dec 1,s
|
|
|
636 bne L0587
|
|
|
637 std ,x
|
|
|
638 ldd ,s++
|
|
|
639 bne L05a9
|
|
|
640 lda 4,x
|
|
|
641 ora 5,x
|
|
|
642 ora 6,x
|
|
|
643 beq L05ba
|
|
|
644 L05a9 ldd 2,x
|
|
|
645 addd #1
|
|
|
646 std 2,x
|
|
|
647 ldd ,x
|
|
|
648 adcb #0
|
|
|
649 adca #0
|
|
|
650 bcs L0542
|
|
|
651 std ,x
|
|
|
652 L05ba clra
|
|
|
653 clrb
|
|
|
654 subd 2,x
|
|
|
655 std 2,x
|
|
|
656 ldd #0
|
|
|
657 sbcb 1,x
|
|
|
658 sbca ,x
|
|
|
659 std ,x
|
|
|
660 rts
|
|
|
661 L05ca lda ,x
|
|
|
662 lbpl L0539
|
|
|
663 ldd #-1
|
|
|
664 std 2,x
|
|
|
665 std ,x
|
|
|
666 rts
|
|
|
667 L05d8 inc D0028,u
|
|
|
668 bne L060e
|
|
|
669 inc D0027,u
|
|
|
670 bne L060e
|
|
|
671 inc D0026,u
|
|
|
672 bne L060e
|
|
|
673 inc D0025,u
|
|
|
674 bne L060e
|
|
|
675 inc D0024,u
|
|
|
676 bne L060e
|
|
|
677 inc D0023,u
|
|
|
678 bne L060e
|
|
|
679 ldb D0022,u
|
|
|
680 tfr b,a
|
|
|
681 anda #$7f
|
|
|
682 inca
|
|
|
683 bpl L0605
|
|
|
684 inc D0029,u
|
|
|
685 anda #$7f
|
|
|
686 L0605 andb #$80
|
|
|
687 pshs b
|
|
|
688 adda ,s+
|
|
|
689 sta D0022,u
|
|
|
690 L060e rts
|
|
|
691 L060f neg D0000
|
|
|
692 neg D0000
|
|
|
693 neg D0000
|
|
|
694 neg D0081
|
|
|
695 leax >L060f,pcr
|
|
|
696 L061b pshs a
|
|
|
697 ldd ,x
|
|
|
698 std D0022,u
|
|
|
699 ldd 2,x
|
|
|
700 std D0024,u
|
|
|
701 ldd 4,x
|
|
|
702 std D0026,u
|
|
|
703 ldd 6,x
|
|
|
704 std D0028,u
|
|
|
705 puls a,pc
|
|
|
706 L0633 pshs a
|
|
|
707 ldd D0022,u
|
|
|
708 std ,x
|
|
|
709 ldd D0024,u
|
|
|
710 std 2,x
|
|
|
711 ldd D0026,u
|
|
|
712 std 4,x
|
|
|
713 ldd D0028,u
|
|
|
714 std 6,x
|
|
|
715 puls a,pc
|
|
|
716 _xtofla: ldd ,x
|
|
|
717 L064d std _flacc,y
|
|
|
718 ldd 2,x
|
|
|
719 std _flacc+2,y
|
|
|
720 ldd 4,x
|
|
|
721 std _flacc+4,y
|
|
|
722 ldd 6,x
|
|
|
723 leax _flacc,y
|
|
|
724 std 6,x
|
|
|
725 rts
|
|
|
726 _dinc: pshs x
|
|
|
727 bsr _dstack
|
|
|
728 leax <L060f,pcr
|
|
|
729 pshs x
|
|
|
730 lbsr L04a7
|
|
|
731 lbsr L0189
|
|
|
732 L0675 ldx D002a,u
|
|
|
733 bsr L0633
|
|
|
734 ldx D001e,u
|
|
|
735 leas D002a,u
|
|
|
736 tfr x,u
|
|
|
737 puls x,pc
|
|
|
738 _ddec: pshs x
|
|
|
739 bsr _dstack
|
|
|
740 leax >L060f,pcr
|
|
|
741 pshs x
|
|
|
742 lbsr L04a7
|
|
|
743 lbsr L015f
|
|
|
744 bra L0675
|
|
|
745 _finc: pshs x
|
|
|
746 bsr _fstack
|
|
|
747 leax L060f,pcr
|
|
|
748 pshs x
|
|
|
749 lbsr L04a7
|
|
|
750 lbsr L0189
|
|
|
751 L06a6 ldx D002a,u
|
|
|
752 ldd D0022,u
|
|
|
753 std ,x
|
|
|
754 lda D0024,u
|
|
|
755 ldb D0029,u
|
|
|
756 std 2,x
|
|
|
757 ldx D001e,u
|
|
|
758 leas D002a,u
|
|
|
759 tfr x,u
|
|
|
760 puls x,pc
|
|
|
761 _fdec: pshs x
|
|
|
762 bsr _fstack
|
|
|
763 leax L060f,pcr
|
|
|
764 pshs x
|
|
|
765 lbsr L04a7
|
|
|
766 lbsr L015f
|
|
|
767 bra L06a6
|
|
|
768 _fstack: leas -8,s
|
|
|
769 ldd 8,s
|
|
|
770 std ,s
|
|
|
771 clra
|
|
|
772 clrb
|
|
|
773 std 5,s
|
|
|
774 std 7,s
|
|
|
775 ldd ,x
|
|
|
776 std 2,s
|
|
|
777 ldd 2,x
|
|
|
778 sta 4,s
|
|
|
779 stb 9,s
|
|
|
780 rts
|
|
|
781 _dstack: leas -8,s
|
|
|
782 ldd 8,s
|
|
|
783 std ,s
|
|
|
784 ldd ,x
|
|
|
785 std 2,s
|
|
|
786 ldd 2,x
|
|
|
787 std 4,s
|
|
|
788 ldd 4,x
|
|
|
789 std 6,s
|
|
|
790 ldd 6,x
|
|
|
791 std 8,s
|
|
|
792 rts
|
|
|
793 _fmove: pshs u
|
|
|
794 ldu 4,s
|
|
|
795 exg x,u
|
|
|
796 ldd ,u
|
|
|
797 std ,x
|
|
|
798 ldd 2,u
|
|
|
799 std 2,x
|
|
|
800 bra L0726
|
|
|
801 _dmove: pshs u
|
|
|
802 ldu 4,s
|
|
|
803 exg x,u
|
|
|
804 ldd ,u
|
|
|
805 std ,x
|
|
|
806 ldd 2,u
|
|
|
807 std 2,x
|
|
|
808 ldd 4,u
|
|
|
809 std 4,x
|
|
|
810 ldd 6,u
|
|
|
811 std 6,x
|
|
|
812 L0726 puls u
|
|
|
813 puls d
|
|
|
814 std ,s
|
|
|
815 rts
|
|
|
816
|
|
|
817 endsect
|
|
|
818
|
