|
2824
|
1 * Disassembly by Os9disasm of pffinit.r
|
|
|
2
|
|
|
3 section bss
|
|
|
4
|
|
|
5 * Uninitialized data (class D)
|
|
|
6 D0000 rmb 1
|
|
|
7 * Initialized Data (class H)
|
|
|
8
|
|
|
9 endsect
|
|
|
10
|
|
|
11
|
|
|
12 section bss
|
|
|
13
|
|
|
14 * Uninitialized data (class B)
|
|
|
15 B0000 rmb 1
|
|
|
16 B0001 rmb 29
|
|
|
17 B001e rmb 0
|
|
|
18 * Initialized Data (class G)
|
|
|
19 G0000 fcb $00
|
|
|
20 fcb $00
|
|
|
21 fcb $00
|
|
|
22 fcb $00
|
|
|
23 fcb $00
|
|
|
24 fcb $00
|
|
|
25 fcb $00
|
|
|
26 fcb $81
|
|
|
27 fcb $4c
|
|
|
28 fcb $cc
|
|
|
29 fcb $cc
|
|
|
30 fcb $cc
|
|
|
31 fcb $cc
|
|
|
32 fcb $cc
|
|
|
33 fcb $cd
|
|
|
34 fcb $7d
|
|
|
35 fcb $23
|
|
|
36 fcb $d7
|
|
|
37 fcb $0a
|
|
|
38 fcb $3d
|
|
|
39 fcb $70
|
|
|
40 fcb $a3
|
|
|
41 fcb $d7
|
|
|
42 fcb $7a
|
|
|
43 fcb $03
|
|
|
44 fcb $12
|
|
|
45 fcb $6e
|
|
|
46 fcb $97
|
|
|
47 fcb $8d
|
|
|
48 fcb $4f
|
|
|
49 fcb $df
|
|
|
50 fcb $77
|
|
|
51 fcb $51
|
|
|
52 fcb $b7
|
|
|
53 fcb $17
|
|
|
54 fcb $58
|
|
|
55 fcb $e2
|
|
|
56 fcb $19
|
|
|
57 fcb $65
|
|
|
58 fcb $73
|
|
|
59 fcb $27
|
|
|
60 fcb $c5
|
|
|
61 fcb $ac
|
|
|
62 fcb $47
|
|
|
63 fcb $1b
|
|
|
64 fcb $47
|
|
|
65 fcb $84
|
|
|
66 fcb $70
|
|
|
67 fcb $06
|
|
|
68 fcb $37
|
|
|
69 fcb $bd
|
|
|
70 fcb $05
|
|
|
71 fcb $af
|
|
|
72 fcb $6c
|
|
|
73 fcb $6a
|
|
|
74 fcb $6d
|
|
|
75 fcb $56
|
|
|
76 fcb $bf
|
|
|
77 fcb $94
|
|
|
78 fcb $d5
|
|
|
79 fcb $e5
|
|
|
80 fcb $7a
|
|
|
81 fcb $43
|
|
|
82 fcb $69
|
|
|
83 fcb $2b
|
|
|
84 fcb $cc
|
|
|
85 fcb $77
|
|
|
86 fcb $11
|
|
|
87 fcb $84
|
|
|
88 fcb $61
|
|
|
89 fcb $cf
|
|
|
90 fcb $66
|
|
|
91 fcb $09
|
|
|
92 fcb $70
|
|
|
93 fcb $5f
|
|
|
94 fcb $41
|
|
|
95 fcb $36
|
|
|
96 fcb $b4
|
|
|
97 fcb $a6
|
|
|
98 fcb $63
|
|
|
99 fcb $5b
|
|
|
100 fcb $e6
|
|
|
101 fcb $fe
|
|
|
102 fcb $ce
|
|
|
103 fcb $bd
|
|
|
104 fcb $ed
|
|
|
105 fcb $d6
|
|
|
106 fcb $5f
|
|
|
107 fcb $2f
|
|
|
108 fcb $eb
|
|
|
109 fcb $ff
|
|
|
110 fcb $0b
|
|
|
111 fcb $cb
|
|
|
112 fcb $24
|
|
|
113 fcb $ab
|
|
|
114 fcb $5c
|
|
|
115 fcb $0c
|
|
|
116 fcb $bc
|
|
|
117 fcb $cc
|
|
|
118 fcb $09
|
|
|
119 fcb $6f
|
|
|
120 fcb $50
|
|
|
121 fcb $89
|
|
|
122 fcb $59
|
|
|
123 fcb $61
|
|
|
124 fcb $2e
|
|
|
125 fcb $13
|
|
|
126 fcb $42
|
|
|
127 fcb $4b
|
|
|
128 fcb $b4
|
|
|
129 fcb $0e
|
|
|
130 fcb $55
|
|
|
131 fcb $34
|
|
|
132 fcb $24
|
|
|
133 fcb $dc
|
|
|
134 fcb $35
|
|
|
135 fcb $09
|
|
|
136 fcb $5c
|
|
|
137 fcb $d8
|
|
|
138 fcb $52
|
|
|
139 fcb $10
|
|
|
140 fcb $1d
|
|
|
141 fcb $7c
|
|
|
142 fcb $f7
|
|
|
143 fcb $3a
|
|
|
144 fcb $b0
|
|
|
145 fcb $ad
|
|
|
146 fcb $4f
|
|
|
147 fcb $66
|
|
|
148 fcb $95
|
|
|
149 fcb $94
|
|
|
150 fcb $be
|
|
|
151 fcb $c4
|
|
|
152 fcb $4d
|
|
|
153 fcb $e1
|
|
|
154 fcb $4b
|
|
|
155 fcb $38
|
|
|
156 fcb $77
|
|
|
157 fcb $aa
|
|
|
158 fcb $32
|
|
|
159 fcb $36
|
|
|
160 fcb $a4
|
|
|
161 fcb $b4
|
|
|
162 fcb $48
|
|
|
163 fdb G0090
|
|
|
164
|
|
|
165 endsect
|
|
|
166
|
|
|
167 section code
|
|
|
168
|
|
|
169 pffinit: pshs u
|
|
|
170 puls u,pc
|
|
|
171 pffloat: pshs d,u
|
|
|
172 ldx 6,s
|
|
|
173 bra L001a
|
|
|
174 L000a ldd #1
|
|
|
175 bra L0016
|
|
|
176 L000f ldd #-1
|
|
|
177 bra L0016
|
|
|
178 L0014 clra
|
|
|
179 clrb
|
|
|
180 L0016 std ,s
|
|
|
181 bra L0037
|
|
|
182 L001a cmpx #'f
|
|
|
183 beq L000a
|
|
|
184 cmpx #'e
|
|
|
185 beq L000f
|
|
|
186 cmpx #'E
|
|
|
187 lbeq L000f
|
|
|
188 cmpx #'g
|
|
|
189 beq L0014
|
|
|
190 cmpx #'G
|
|
|
191 lbeq L0014
|
|
|
192 L0037 ldd 6,s
|
|
|
193 leax _chcodes,y
|
|
|
194 leax d,x
|
|
|
195 ldb ,x
|
|
|
196 clra
|
|
|
197 andb #2
|
|
|
198 pshs d
|
|
|
199 ldd 2,s
|
|
|
200 pshs d
|
|
|
201 ldd 12,s
|
|
|
202 pshs d
|
|
|
203 ldd [16,s]
|
|
|
204 addd #8
|
|
|
205 std [16,s]
|
|
|
206 subd #8
|
|
|
207 pshs d
|
|
|
208 bsr L0064
|
|
|
209 leas 8,s
|
|
|
210 leas 2,s
|
|
|
211 puls u,pc
|
|
|
212 L0064 pshs u
|
|
|
213 leas -32,s
|
|
|
214 ldd #1
|
|
|
215 std 8,s
|
|
|
216 leax ,s
|
|
|
217 pshs x
|
|
|
218 ldx 38,s
|
|
|
219 lbsr _dmove
|
|
|
220 leau ,s
|
|
|
221 ldb 7,u
|
|
|
222 bne L008f
|
|
|
223 clra
|
|
|
224 clrb
|
|
|
225 std 24,s
|
|
|
226 std 26,s
|
|
|
227 std 18,s
|
|
|
228 leax 32,s
|
|
|
229 lbra L0181
|
|
|
230 L008f ldb 7,u
|
|
|
231 clra
|
|
|
232 addd #-128
|
|
|
233 std 22,s
|
|
|
234 bge L00a9
|
|
|
235 ldd 22,s
|
|
|
236 nega
|
|
|
237 negb
|
|
|
238 sbca #0
|
|
|
239 std 22,s
|
|
|
240 ldd #1
|
|
|
241 bra L00ab
|
|
|
242 L00a9 clra
|
|
|
243 clrb
|
|
|
244 L00ab std 24,s
|
|
|
245 ldd 22,s
|
|
|
246 pshs d
|
|
|
247 ldd #78
|
|
|
248 lbsr ccmult
|
|
|
249 pshs d
|
|
|
250 ldd #8
|
|
|
251 lbsr ccasr
|
|
|
252 std 20,s
|
|
|
253 ldd 24,s
|
|
|
254 beq L00d2
|
|
|
255 ldd 20,s
|
|
|
256 nega
|
|
|
257 negb
|
|
|
258 sbca #0
|
|
|
259 bra L00d5
|
|
|
260 L00d2 ldd 20,s
|
|
|
261 L00d5 addd #1
|
|
|
262 std 18,s
|
|
|
263 ldb ,u
|
|
|
264 bge L00eb
|
|
|
265 ldb ,u
|
|
|
266 clra
|
|
|
267 andb #$7f
|
|
|
268 stb ,u
|
|
|
269 ldd #1
|
|
|
270 bra L00ed
|
|
|
271 L00eb clra
|
|
|
272 clrb
|
|
|
273 L00ed std 26,s
|
|
|
274 leax ,s
|
|
|
275 pshs x
|
|
|
276 ldd 26,s
|
|
|
277 pshs d
|
|
|
278 ldd 24,s
|
|
|
279 pshs d
|
|
|
280 leax 6,s
|
|
|
281 lbsr _dstack
|
|
|
282 lbsr scale
|
|
|
283 leas 12,s
|
|
|
284 lbsr _dmove
|
|
|
285 bra L012f
|
|
|
286 L010d leax ,s
|
|
|
287 pshs x
|
|
|
288 lbsr _dstack
|
|
|
289 bsr L011e
|
|
|
290 fdb 8192,0,0,132
|
|
|
291 L011e puls x
|
|
|
292 lbsr _dmul
|
|
|
293 lbsr _dmove
|
|
|
294 ldd 18,s
|
|
|
295 addd #-1
|
|
|
296 std 18,s
|
|
|
297 L012f leax ,s
|
|
|
298 lbsr _dstack
|
|
|
299 bsr L013e
|
|
|
300 fdb 0,0,0,129
|
|
|
301 L013e puls x
|
|
|
302 lbsr _dcmpr
|
|
|
303 blt L010d
|
|
|
304 bra L0169
|
|
|
305 L0147 leax ,s
|
|
|
306 pshs x
|
|
|
307 lbsr _dstack
|
|
|
308 bsr L0158
|
|
|
309 fdb 8192,0,0,132
|
|
|
310 L0158 puls x
|
|
|
311 lbsr _ddiv
|
|
|
312 lbsr _dmove
|
|
|
313 ldd 18,s
|
|
|
314 addd #1
|
|
|
315 std 18,s
|
|
|
316 L0169 leax ,s
|
|
|
317 lbsr _dstack
|
|
|
318 bsr L0178
|
|
|
319 fdb 8192,0,0,132
|
|
|
320 L0178 puls x
|
|
|
321 lbsr _dcmpr
|
|
|
322 bge L0147
|
|
|
323 bra L0184
|
|
|
324 L0181 leas -32,x
|
|
|
325 L0184 leax B0000,y
|
|
|
326 stx 30,s
|
|
|
327 ldd #'0
|
|
|
328 ldx 30,s
|
|
|
329 leax 1,x
|
|
|
330 stx 30,s
|
|
|
331 stb -1,x
|
|
|
332 ldd 26,s
|
|
|
333 beq L01aa
|
|
|
334 ldd #'-
|
|
|
335 ldx 30,s
|
|
|
336 leax 1,x
|
|
|
337 stx 30,s
|
|
|
338 stb -1,x
|
|
|
339 L01aa ldd 38,s
|
|
|
340 cmpd #$0010
|
|
|
341 ble L01b8
|
|
|
342 ldd #$0010
|
|
|
343 bra L01bf
|
|
|
344 L01b8 ldd 38,s
|
|
|
345 bge L01c2
|
|
|
346 clra
|
|
|
347 clrb
|
|
|
348 L01bf std 38,s
|
|
|
349 L01c2 clra
|
|
|
350 clrb
|
|
|
351 std 10,s
|
|
|
352 ldd 40,s
|
|
|
353 bne L01e0
|
|
|
354 ldd #1
|
|
|
355 std 10,s
|
|
|
356 ldd 18,s
|
|
|
357 cmpd #5
|
|
|
358 lbgt L0252
|
|
|
359 leax 32,s
|
|
|
360 bra L0213
|
|
|
361 L01e0 ldd 40,s
|
|
|
362 bge L0216
|
|
|
363 bra L01ea
|
|
|
364 L01e7 leas -32,x
|
|
|
365 L01ea ldd #1
|
|
|
366 std 16,s
|
|
|
367 ldd #1
|
|
|
368 std 12,s
|
|
|
369 leax ,s
|
|
|
370 lbsr _dstack
|
|
|
371 bsr L0204
|
|
|
372 fdb 0,0,0,0
|
|
|
373 L0204 puls x
|
|
|
374 lbsr _dcmpr
|
|
|
375 bne L0258
|
|
|
376 ldd #1
|
|
|
377 std 18,s
|
|
|
378 bra L0258
|
|
|
379 L0213 leas -32,x
|
|
|
380 L0216 clra
|
|
|
381 clrb
|
|
|
382 std 16,s
|
|
|
383 ldd 18,s
|
|
|
384 std 12,s
|
|
|
385 bge L0247
|
|
|
386 ldd 12,s
|
|
|
387 addd 38,s
|
|
|
388 blt L0233
|
|
|
389 ldd 38,s
|
|
|
390 addd 12,s
|
|
|
391 std 38,s
|
|
|
392 bra L0258
|
|
|
393 L0233 ldd 38,s
|
|
|
394 nega
|
|
|
395 negb
|
|
|
396 sbca #0
|
|
|
397 std 12,s
|
|
|
398 clra
|
|
|
399 clrb
|
|
|
400 std 38,s
|
|
|
401 clra
|
|
|
402 clrb
|
|
|
403 std 8,s
|
|
|
404 bra L0258
|
|
|
405 L0247 ldd 12,s
|
|
|
406 addd 38,s
|
|
|
407 cmpd #$0019
|
|
|
408 ble L0258
|
|
|
409 L0252 leax 32,s
|
|
|
410 lbra L01e7
|
|
|
411 L0258 leax G0000,y
|
|
|
412 stx 14,s
|
|
|
413 leax ,s
|
|
|
414 pshs x
|
|
|
415 lbsr L0464
|
|
|
416 leas 2,s
|
|
|
417 ldd 12,s
|
|
|
418 bge L029e
|
|
|
419 ldd #'0
|
|
|
420 ldx 30,s
|
|
|
421 leax 1,x
|
|
|
422 stx 30,s
|
|
|
423 stb -1,x
|
|
|
424 ldd 30,s
|
|
|
425 std 28,s
|
|
|
426 ldd #'.
|
|
|
427 bra L0286
|
|
|
428 L0283 ldd #'0
|
|
|
429 L0286 ldx 30,s
|
|
|
430 leax 1,x
|
|
|
431 stx 30,s
|
|
|
432 stb -1,x
|
|
|
433 ldd 12,s
|
|
|
434 addd #1
|
|
|
435 std 12,s
|
|
|
436 subd #1
|
|
|
437 bne L0283
|
|
|
438 bra L02f1
|
|
|
439 L029e ldd 12,s
|
|
|
440 bne L02be
|
|
|
441 ldd #'0
|
|
|
442 bra L02b4
|
|
|
443 L02a7 leax 14,s
|
|
|
444 pshs x
|
|
|
445 leax 2,s
|
|
|
446 pshs x
|
|
|
447 lbsr L049c
|
|
|
448 leas 4,s
|
|
|
449 L02b4 ldx 30,s
|
|
|
450 leax 1,x
|
|
|
451 stx 30,s
|
|
|
452 stb -1,x
|
|
|
453 L02be ldd 12,s
|
|
|
454 addd #-1
|
|
|
455 std 12,s
|
|
|
456 subd #-1
|
|
|
457 bne L02a7
|
|
|
458 ldd 30,s
|
|
|
459 std 28,s
|
|
|
460 ldd 38,s
|
|
|
461 beq L02f1
|
|
|
462 ldd #'.
|
|
|
463 bra L02e7
|
|
|
464 L02da leax 14,s
|
|
|
465 pshs x
|
|
|
466 leax 2,s
|
|
|
467 pshs x
|
|
|
468 lbsr L049c
|
|
|
469 leas 4,s
|
|
|
470 L02e7 ldx 30,s
|
|
|
471 leax 1,x
|
|
|
472 stx 30,s
|
|
|
473 stb -1,x
|
|
|
474 L02f1 ldd 38,s
|
|
|
475 addd #-1
|
|
|
476 std 38,s
|
|
|
477 subd #-1
|
|
|
478 bgt L02da
|
|
|
479 ldd 8,s
|
|
|
480 lbeq L037b
|
|
|
481 leas -4,s
|
|
|
482 ldd 34,s
|
|
|
483 std ,s
|
|
|
484 tfr d,x
|
|
|
485 pshs x
|
|
|
486 leax 20,s
|
|
|
487 pshs x
|
|
|
488 leax 8,s
|
|
|
489 pshs x
|
|
|
490 lbsr L049c
|
|
|
491 leas 4,s
|
|
|
492 stb [,s++]
|
|
|
493 ldd #5
|
|
|
494 std 2,s
|
|
|
495 L0325 ldb [,s]
|
|
|
496 sex
|
|
|
497 tfr d,x
|
|
|
498 bra L0343
|
|
|
499 L032c ldd ,s
|
|
|
500 addd #-1
|
|
|
501 std ,s
|
|
|
502 bra L034d
|
|
|
503 L0335 ldd #'-
|
|
|
504 ldx ,s
|
|
|
505 stb -1,x
|
|
|
506 ldd #'0
|
|
|
507 stb [,s]
|
|
|
508 bra L034d
|
|
|
509 L0343 cmpx #'.
|
|
|
510 beq L032c
|
|
|
511 cmpx #'-
|
|
|
512 beq L0335
|
|
|
513 L034d ldb [,s]
|
|
|
514 sex
|
|
|
515 addd 2,s
|
|
|
516 stb [,s]
|
|
|
517 cmpd #'9
|
|
|
518 ble L035f
|
|
|
519 ldd #1
|
|
|
520 bra L0361
|
|
|
521 L035f clra
|
|
|
522 clrb
|
|
|
523 L0361 std 2,s
|
|
|
524 beq L0379
|
|
|
525 ldb [,s]
|
|
|
526 sex
|
|
|
527 subd #10
|
|
|
528 stb [,s]
|
|
|
529 bra L036f
|
|
|
530 L036f ldd ,s
|
|
|
531 addd #-1
|
|
|
532 std ,s
|
|
|
533 lbra L0325
|
|
|
534 L0379 leas 4,s
|
|
|
535 L037b ldd 16,s
|
|
|
536 lbeq L03f2
|
|
|
537 ldd 42,s
|
|
|
538 beq L038c
|
|
|
539 ldd #'E
|
|
|
540 bra L038f
|
|
|
541 L038c ldd #'e
|
|
|
542 L038f ldx 30,s
|
|
|
543 leax 1,x
|
|
|
544 stx 30,s
|
|
|
545 stb -1,x
|
|
|
546 ldd 18,s
|
|
|
547 addd #-1
|
|
|
548 std 18,s
|
|
|
549 bge L03b3
|
|
|
550 ldd 18,s
|
|
|
551 nega
|
|
|
552 negb
|
|
|
553 sbca #0
|
|
|
554 std 18,s
|
|
|
555 ldd #$002d
|
|
|
556 bra L03b6
|
|
|
557 L03b3 ldd #'+
|
|
|
558 L03b6 ldx 30,s
|
|
|
559 leax 1,x
|
|
|
560 stx 30,s
|
|
|
561 stb -1,x
|
|
|
562 ldd 18,s
|
|
|
563 pshs d
|
|
|
564 ldd #10
|
|
|
565 lbsr ccdiv
|
|
|
566 addd #'0
|
|
|
567 ldx 30,s
|
|
|
568 leax 1,x
|
|
|
569 stx 30,s
|
|
|
570 stb -1,x
|
|
|
571 ldd 18,s
|
|
|
572 pshs d
|
|
|
573 ldd #10
|
|
|
574 lbsr ccmod
|
|
|
575 addd #'0
|
|
|
576 ldx 30,s
|
|
|
577 leax 1,x
|
|
|
578 stx 30,s
|
|
|
579 stb -1,x
|
|
|
580 bra L0422
|
|
|
581 L03f2 ldd 10,s
|
|
|
582 beq L0422
|
|
|
583 ldd 30,s
|
|
|
584 cmpd 28,s
|
|
|
585 beq L0422
|
|
|
586 bra L0413
|
|
|
587 L0401 ldb [30,s]
|
|
|
588 cmpb #'0
|
|
|
589 beq L0413
|
|
|
590 ldd 30,s
|
|
|
591 addd #1
|
|
|
592 std 30,s
|
|
|
593 bra L0422
|
|
|
594 L0413 ldd 30,s
|
|
|
595 addd #-1
|
|
|
596 std 30,s
|
|
|
597 cmpd 28,s
|
|
|
598 bne L0401
|
|
|
599 L0422 clra
|
|
|
600 clrb
|
|
|
601 stb [30,s]
|
|
|
602 leax B001e,y
|
|
|
603 cmpx 30,s
|
|
|
604 bhi L044b
|
|
|
605 leax L04eb,pcr
|
|
|
606 pshs x
|
|
|
607 leax _iob+26,y
|
|
|
608 pshs x
|
|
|
609 lbsr fprintf
|
|
|
610 leas 4,s
|
|
|
611 ldd #1
|
|
|
612 pshs d
|
|
|
613 lbsr exit
|
|
|
614 leas 2,s
|
|
|
615 L044b ldb B0000,y
|
|
|
616 cmpb #'0
|
|
|
617 bne L0459
|
|
|
618 leax B0001,y
|
|
|
619 bra L045d
|
|
|
620 L0459 leax B0000,y
|
|
|
621 L045d tfr x,d
|
|
|
622 leas 32,s
|
|
|
623 puls u,pc
|
|
|
624 L0464 pshs u
|
|
|
625 ldx 4,s
|
|
|
626 lda 7,x
|
|
|
627 suba #$80
|
|
|
628 bcs L0496
|
|
|
629 ldb ,x
|
|
|
630 orb #$80
|
|
|
631 stb ,x
|
|
|
632 clr 7,x
|
|
|
633 suba #4
|
|
|
634 beq L048d
|
|
|
635 L047a lsr ,x
|
|
|
636 ror 1,x
|
|
|
637 ror 2,x
|
|
|
638 ror 3,x
|
|
|
639 ror 4,x
|
|
|
640 ror 5,x
|
|
|
641 ror 6,x
|
|
|
642 ror 7,x
|
|
|
643 inca
|
|
|
644 bne L047a
|
|
|
645 L048d lda #8
|
|
|
646 L048f deca
|
|
|
647 bmi L0496
|
|
|
648 ldb a,x
|
|
|
649 beq L048f
|
|
|
650 L0496 sta D0000
|
|
|
651 clra
|
|
|
652 clrb
|
|
|
653 puls u,pc
|
|
|
654 L049c ldx 2,s
|
|
|
655 clra
|
|
|
656 ldb ,x
|
|
|
657 lsrb
|
|
|
658 lsrb
|
|
|
659 lsrb
|
|
|
660 lsrb
|
|
|
661 addb #'0
|
|
|
662 pshs d,u
|
|
|
663 ldb ,x
|
|
|
664 andb #$0f
|
|
|
665 stb ,x
|
|
|
666 bsr L04dd
|
|
|
667 lda D0000
|
|
|
668 bmi L04db
|
|
|
669 L04b5 ldb a,x
|
|
|
670 bne L04bc
|
|
|
671 deca
|
|
|
672 bpl L04b5
|
|
|
673 L04bc sta D0000
|
|
|
674 bmi L04db
|
|
|
675 leas -8,s
|
|
|
676 L04c2 ldb a,x
|
|
|
677 stb a,s
|
|
|
678 deca
|
|
|
679 bpl L04c2
|
|
|
680 bsr L04dd
|
|
|
681 bsr L04dd
|
|
|
682 lda D0000
|
|
|
683 clrb
|
|
|
684 L04d0 ldb a,x
|
|
|
685 adcb a,s
|
|
|
686 stb a,x
|
|
|
687 deca
|
|
|
688 bpl L04d0
|
|
|
689 leas 8,s
|
|
|
690 L04db puls d,u,pc
|
|
|
691 L04dd lda D0000
|
|
|
692 bmi L04ea
|
|
|
693 asl a,x
|
|
|
694 bra L04e7
|
|
|
695 L04e5 rol a,x
|
|
|
696 L04e7 deca
|
|
|
697 bpl L04e5
|
|
|
698 L04ea rts
|
|
|
699 L04eb fcc "pffinit buffer overflow"
|
|
|
700 fcb $0d,$00
|
|
|
701
|
|
|
702 endsect
|
|
|
703
|
