207
|
1 nam sformat
|
|
2 ttl program module
|
|
3
|
|
4 * Disassembled 02/07/15 07:16:29 by Disasm v1.6 (C) 1988 by RML
|
|
5
|
|
6 ifp1
|
|
7 use /dd/defs/os9defs
|
|
8 endc
|
|
9 tylg set Prgrm+Objct
|
|
10 atrv set ReEnt+rev
|
|
11 rev set $00
|
|
12 mod eom,name,tylg,atrv,start,size
|
|
13 u0000 rmb 1
|
|
14 u0001 rmb 2
|
|
15 u0003 rmb 1
|
|
16 u0004 rmb 1
|
|
17 u0005 rmb 2
|
|
18 u0007 rmb 2
|
|
19 u0009 rmb 1
|
|
20 u000A rmb 1
|
|
21 u000B rmb 1
|
|
22 u000C rmb 1
|
|
23 u000D rmb 1
|
|
24 u000E rmb 1
|
|
25 u000F rmb 1
|
|
26 u0010 rmb 1
|
|
27 u0011 rmb 1
|
|
28 u0012 rmb 1
|
|
29 u0013 rmb 1
|
|
30 u0014 rmb 2
|
|
31 u0016 rmb 1
|
|
32 u0017 rmb 1
|
|
33 u0018 rmb 2
|
|
34 u001A rmb 1
|
|
35 u001B rmb 2
|
|
36 u001D rmb 6
|
|
37 u0023 rmb 1
|
|
38 u0024 rmb 2
|
|
39 u0026 rmb 5
|
|
40 u002B rmb 2
|
|
41 u002D rmb 3
|
|
42 u0030 rmb 3
|
|
43 u0033 rmb 1
|
|
44 u0034 rmb 1
|
|
45 u0035 rmb 2
|
|
46 u0037 rmb 1
|
|
47 u0038 rmb 1
|
|
48 u0039 rmb 20
|
|
49 u004D rmb 2
|
|
50 u004F rmb 21
|
|
51 u0064 rmb 9
|
|
52 u006D rmb 1
|
|
53 u006E rmb 3
|
|
54 u0071 rmb 1
|
|
55 u0072 rmb 1
|
|
56 u0073 rmb 1
|
|
57 u0074 rmb 1
|
|
58 u0075 rmb 2
|
|
59 u0077 rmb 2
|
|
60 u0079 rmb 2
|
|
61 u007B rmb 1
|
|
62 u007C rmb 10
|
|
63 u0086 rmb 7
|
|
64 u008D rmb 1
|
|
65 u008E rmb 1
|
|
66 u008F rmb 2
|
|
67 u0091 rmb 1
|
|
68 u0092 rmb 3
|
|
69 u0095 rmb 3
|
|
70 u0098 rmb 3
|
|
71 u009B rmb 1
|
|
72 u009C rmb 2
|
|
73 u009E rmb 2
|
|
74 u00A0 rmb 8
|
|
75 u00A8 rmb 1
|
|
76 u00A9 rmb 1
|
|
77 u00AA rmb 1
|
|
78 u00AB rmb 1
|
|
79 u00AC rmb 1
|
|
80 u00AD rmb 32
|
|
81 u00CD rmb 9
|
|
82 u00D6 rmb 18
|
|
83 u00E8 rmb 21
|
|
84 u00FD rmb 6514
|
|
85 u1A6F rmb 506
|
|
86 size equ .
|
|
87 name equ *
|
|
88 fcs /sformat/
|
|
89 fcb $1B
|
|
90 fcb $28 (
|
|
91 fcb $63 c
|
|
92 fcb $29 )
|
|
93 fcb $20
|
|
94 fcb $43 C
|
|
95 fcb $6F o
|
|
96 fcb $70 p
|
|
97 fcb $79 y
|
|
98 fcb $72 r
|
|
99 fcb $69 i
|
|
100 fcb $67 g
|
|
101 fcb $68 h
|
|
102 fcb $74 t
|
|
103 fcb $20
|
|
104 fcb $31 1
|
|
105 fcb $39 9
|
|
106 fcb $38 8
|
|
107 fcb $33 3
|
|
108 fcb $20
|
|
109 fcb $44 D
|
|
110 fcb $2E .
|
|
111 fcb $50 P
|
|
112 fcb $2E .
|
|
113 fcb $4A J
|
|
114 fcb $6F o
|
|
115 fcb $68 h
|
|
116 fcb $6E n
|
|
117 fcb $73 s
|
|
118 fcb $6F o
|
|
119 fcb $6E n
|
|
120 L0033 fcb $0A
|
|
121 fcb $20
|
|
122 fcb $20
|
|
123 fcb $20
|
|
124 fcb $20
|
|
125 fcb $44 D
|
|
126 fcb $6F o
|
|
127 fcb $75 u
|
|
128 fcb $62 b
|
|
129 fcb $6C l
|
|
130 fcb $65 e
|
|
131 fcb $0A
|
|
132 fcb $20
|
|
133 fcb $20
|
|
134 fcb $20
|
|
135 fcb $20
|
|
136 fcb $53 S
|
|
137 fcb $69 i
|
|
138 fcb $6E n
|
|
139 fcb $67 g
|
|
140 fcb $6C l
|
|
141 fcb $65 e
|
|
142 fcb $09
|
|
143 fcb $20
|
|
144 fcb $44 D
|
|
145 fcb $65 e
|
|
146 fcb $6E n
|
|
147 fcb $73 s
|
|
148 fcb $69 i
|
|
149 fcb $74 t
|
|
150 fcb $79 y
|
|
151 fcb $0D
|
|
152 fcb $0B
|
|
153 fcb $20
|
|
154 fcb $43 C
|
|
155 fcb $79 y
|
|
156 fcb $6C l
|
|
157 fcb $69 i
|
|
158 fcb $6E n
|
|
159 fcb $64 d
|
|
160 fcb $65 e
|
|
161 fcb $72 r
|
|
162 fcb $73 s
|
|
163 fcb $0D
|
|
164 fcb $07
|
|
165 fcb $20
|
|
166 fcb $73 s
|
|
167 fcb $69 i
|
|
168 fcb $64 d
|
|
169 fcb $65 e
|
|
170 fcb $73 s
|
|
171 fcb $0D
|
|
172 fcb $12
|
|
173 fcb $20
|
|
174 fcb $20
|
|
175 fcb $20
|
|
176 fcb $20
|
|
177 fcb $43 C
|
|
178 fcb $6F o
|
|
179 fcb $6C l
|
|
180 fcb $6F o
|
|
181 fcb $72 r
|
|
182 fcb $20
|
|
183 fcb $43 C
|
|
184 fcb $6F o
|
|
185 fcb $6D m
|
|
186 fcb $70 p
|
|
187 fcb $75 u
|
|
188 fcb $74 t
|
|
189 fcb $65 e
|
|
190 fcb $72 r
|
|
191 fcb $11
|
|
192 L007B fcb $20
|
|
193 fcb $20
|
|
194 fcb $20
|
|
195 fcb $20
|
|
196 fcb $4F O
|
|
197 fcb $53 S
|
|
198 fcb $2D -
|
|
199 fcb $39 9
|
|
200 fcb $20
|
|
201 fcb $53 S
|
|
202 fcb $74 t
|
|
203 fcb $61 a
|
|
204 fcb $6E n
|
|
205 fcb $64 d
|
|
206 fcb $61 a
|
|
207 fcb $72 r
|
|
208 fcb $64 d
|
|
209 fcb $08
|
|
210 fcb $20
|
|
211 fcb $66 f
|
|
212 fcb $6F o
|
|
213 fcb $72 r
|
|
214 fcb $6D m
|
|
215 fcb $61 a
|
|
216 fcb $74 t
|
|
217 fcb $0D
|
|
218 fcb $0F
|
|
219 fcb $20
|
|
220 fcb $54 T
|
|
221 fcb $72 r
|
|
222 fcb $6B k
|
|
223 fcb $20
|
|
224 fcb $30 0
|
|
225 fcb $20
|
|
226 fcb $53 S
|
|
227 fcb $65 e
|
|
228 fcb $63 c
|
|
229 fcb $74 t
|
|
230 fcb $6F o
|
|
231 fcb $72 r
|
|
232 fcb $73 s
|
|
233 fcb $0D
|
|
234 fcb $0F
|
|
235 fcb $20
|
|
236 fcb $53 S
|
|
237 fcb $65 e
|
|
238 fcb $63 c
|
|
239 fcb $74 t
|
|
240 fcb $6F o
|
|
241 fcb $72 r
|
|
242 fcb $73 s
|
|
243 fcb $2F /
|
|
244 fcb $54 T
|
|
245 fcb $72 r
|
|
246 fcb $61 a
|
|
247 fcb $63 c
|
|
248 fcb $6B k
|
|
249 L00B4 fcb $0D
|
|
250 fcb $16
|
|
251 fcb $43 C
|
|
252 fcb $6F o
|
|
253 fcb $6C l
|
|
254 fcb $6F o
|
|
255 fcb $72 r
|
|
256 fcb $20
|
|
257 fcb $43 C
|
|
258 fcb $6F o
|
|
259 fcb $6D m
|
|
260 fcb $70 p
|
|
261 fcb $75 u
|
|
262 fcb $74 t
|
|
263 fcb $65 e
|
|
264 fcb $72 r
|
|
265 fcb $20
|
|
266 fcb $46 F
|
|
267 fcb $6F o
|
|
268 fcb $72 r
|
|
269 fcb $6D m
|
|
270 fcb $61 a
|
|
271 fcb $74 t
|
|
272 fcb $3F ?
|
|
273 fcb $0F
|
|
274 fcb $44 D
|
|
275 fcb $6F o
|
|
276 fcb $75 u
|
|
277 fcb $62 b
|
|
278 fcb $6C l
|
|
279 fcb $65 e
|
|
280 fcb $20
|
|
281 fcb $44 D
|
|
282 fcb $65 e
|
|
283 fcb $6E n
|
|
284 fcb $73 s
|
|
285 fcb $69 i
|
|
286 fcb $74 t
|
|
287 fcb $79 y
|
|
288 fcb $3F ?
|
|
289 fcb $0D
|
|
290 fcb $44 D
|
|
291 fcb $6F o
|
|
292 fcb $75 u
|
|
293 fcb $62 b
|
|
294 fcb $6C l
|
|
295 fcb $65 e
|
|
296 fcb $20
|
|
297 fcb $53 S
|
|
298 fcb $69 i
|
|
299 fcb $64 d
|
|
300 fcb $65 e
|
|
301 fcb $64 d
|
|
302 fcb $3F ?
|
|
303 fcb $11
|
|
304 fcb $4E N
|
|
305 fcb $6F o
|
|
306 fcb $2E .
|
|
307 fcb $20
|
|
308 fcb $6F o
|
|
309 fcb $66 f
|
|
310 fcb $20
|
|
311 fcb $43 C
|
|
312 fcb $79 y
|
|
313 fcb $6C l
|
|
314 fcb $69 i
|
|
315 fcb $6E n
|
|
316 fcb $64 d
|
|
317 fcb $65 e
|
|
318 fcb $72 r
|
|
319 fcb $73 s
|
|
320 fcb $3D =
|
|
321 fcb $01
|
|
322 fcb $0D
|
|
323 fcb $13
|
|
324 fcb $46 F
|
|
325 fcb $4F O
|
|
326 fcb $52 R
|
|
327 fcb $4D M
|
|
328 fcb $41 A
|
|
329 fcb $54 T
|
|
330 fcb $20
|
|
331 fcb $50 P
|
|
332 fcb $41 A
|
|
333 fcb $52 R
|
|
334 fcb $41 A
|
|
335 fcb $4D M
|
|
336 fcb $45 E
|
|
337 fcb $54 T
|
|
338 fcb $45 E
|
|
339 fcb $52 R
|
|
340 fcb $53 S
|
|
341 fcb $3A :
|
|
342 fcb $0D
|
|
343 fcb $11
|
|
344 fcb $46 F
|
|
345 fcb $6F o
|
|
346 fcb $72 r
|
|
347 fcb $6D m
|
|
348 fcb $61 a
|
|
349 fcb $74 t
|
|
350 fcb $74 t
|
|
351 fcb $69 i
|
|
352 fcb $6E n
|
|
353 fcb $67 g
|
|
354 fcb $20
|
|
355 fcb $64 d
|
|
356 fcb $72 r
|
|
357 fcb $69 i
|
|
358 fcb $76 v
|
|
359 fcb $65 e
|
|
360 fcb $20
|
|
361 fcb $1D
|
|
362 fcb $79 y
|
|
363 fcb $20
|
|
364 fcb $28 (
|
|
365 fcb $79 y
|
|
366 fcb $65 e
|
|
367 fcb $73 s
|
|
368 fcb $29 )
|
|
369 fcb $2C ,
|
|
370 fcb $20
|
|
371 fcb $6E n
|
|
372 fcb $20
|
|
373 fcb $28 (
|
|
374 fcb $6E n
|
|
375 fcb $6F o
|
|
376 fcb $29 )
|
|
377 fcb $2C ,
|
|
378 fcb $20
|
|
379 fcb $6F o
|
|
380 fcb $72 r
|
|
381 fcb $20
|
|
382 fcb $71 q
|
|
383 fcb $20
|
|
384 fcb $28 (
|
|
385 fcb $71 q
|
|
386 fcb $75 u
|
|
387 fcb $69 i
|
|
388 fcb $74 t
|
|
389 fcb $29 )
|
|
390 fcb $0D
|
|
391 fcb $06
|
|
392 fcb $52 R
|
|
393 fcb $65 e
|
|
394 fcb $61 a
|
|
395 fcb $64 d
|
|
396 fcb $79 y
|
|
397 fcb $3F ?
|
|
398 fcb $0D
|
|
399 fcb $56 V
|
|
400 fcb $6F o
|
|
401 fcb $6C l
|
|
402 fcb $75 u
|
|
403 fcb $6D m
|
|
404 fcb $65 e
|
|
405 fcb $20
|
|
406 fcb $4E N
|
|
407 fcb $61 a
|
|
408 fcb $6D m
|
|
409 fcb $65 e
|
|
410 fcb $3D =
|
|
411 fcb $0D
|
|
412 fcb $12
|
|
413 fcb $56 V
|
|
414 fcb $65 e
|
|
415 fcb $72 r
|
|
416 fcb $69 i
|
|
417 fcb $66 f
|
|
418 fcb $79 y
|
|
419 fcb $69 i
|
|
420 fcb $6E n
|
|
421 fcb $67 g
|
|
422 fcb $20
|
|
423 fcb $54 T
|
|
424 fcb $72 r
|
|
425 fcb $61 a
|
|
426 fcb $63 c
|
|
427 fcb $6B k
|
|
428 fcb $73 s
|
|
429 fcb $3A :
|
|
430 fcb $0D
|
|
431 fcb $0E
|
|
432 fcb $20
|
|
433 fcb $47 G
|
|
434 fcb $6F o
|
|
435 fcb $6F o
|
|
436 fcb $64 d
|
|
437 fcb $20
|
|
438 fcb $53 S
|
|
439 fcb $65 e
|
|
440 fcb $63 c
|
|
441 fcb $74 t
|
|
442 fcb $6F o
|
|
443 fcb $72 r
|
|
444 fcb $73 s
|
|
445 fcb $0D
|
|
446 fcb $1D
|
|
447 fcb $2A *
|
|
448 fcb $2A *
|
|
449 fcb $2A *
|
|
450 fcb $20
|
|
451 fcb $53 S
|
|
452 fcb $54 T
|
|
453 fcb $41 A
|
|
454 fcb $4E N
|
|
455 fcb $44 D
|
|
456 fcb $41 A
|
|
457 fcb $52 R
|
|
458 fcb $44 D
|
|
459 fcb $20
|
|
460 fcb $44 D
|
|
461 fcb $49 I
|
|
462 fcb $53 S
|
|
463 fcb $4B K
|
|
464 fcb $20
|
|
465 fcb $46 F
|
|
466 fcb $4F O
|
|
467 fcb $52 R
|
|
468 fcb $4D M
|
|
469 fcb $41 A
|
|
470 fcb $54 T
|
|
471 fcb $20
|
|
472 fcb $2A *
|
|
473 fcb $2A *
|
|
474 fcb $2A *
|
|
475 fcb $0D
|
|
476 fcb $20
|
|
477 fcb $28 (
|
|
478 fcb $43 C
|
|
479 fcb $29 )
|
|
480 fcb $20
|
|
481 fcb $43 C
|
|
482 fcb $6F o
|
|
483 fcb $70 p
|
|
484 fcb $79 y
|
|
485 fcb $72 r
|
|
486 fcb $69 i
|
|
487 fcb $67 g
|
|
488 fcb $68 h
|
|
489 fcb $74 t
|
|
490 fcb $20
|
|
491 fcb $31 1
|
|
492 fcb $39 9
|
|
493 fcb $38 8
|
|
494 fcb $33 3
|
|
495 fcb $20
|
|
496 fcb $44 D
|
|
497 fcb $2E .
|
|
498 fcb $50 P
|
|
499 fcb $2E .
|
|
500 fcb $20
|
|
501 fcb $4A J
|
|
502 fcb $6F o
|
|
503 fcb $68 h
|
|
504 fcb $6E n
|
|
505 fcb $73 s
|
|
506 fcb $6F o
|
|
507 fcb $6E n
|
|
508 fcb $0D
|
|
509 fcb $14
|
|
510 fcb $41 A
|
|
511 fcb $4C L
|
|
512 fcb $4C L
|
|
513 fcb $20
|
|
514 fcb $52 R
|
|
515 fcb $49 I
|
|
516 fcb $47 G
|
|
517 fcb $48 H
|
|
518 fcb $54 T
|
|
519 fcb $53 S
|
|
520 fcb $20
|
|
521 fcb $52 R
|
|
522 fcb $45 E
|
|
523 fcb $53 S
|
|
524 fcb $45 E
|
|
525 fcb $52 R
|
|
526 fcb $56 V
|
|
527 fcb $45 E
|
|
528 fcb $44 D
|
|
529 fcb $0D
|
|
530 fcb $0D
|
|
531 fcb $53 S
|
|
532 fcb $59 Y
|
|
533 fcb $4E N
|
|
534 fcb $54 T
|
|
535 fcb $41 A
|
|
536 fcb $58 X
|
|
537 fcb $20
|
|
538 fcb $45 E
|
|
539 fcb $52 R
|
|
540 fcb $52 R
|
|
541 fcb $4F O
|
|
542 fcb $52 R
|
|
543 fcb $0D
|
|
544 fcb $1D
|
|
545 fcb $75 u
|
|
546 fcb $73 s
|
|
547 fcb $65 e
|
|
548 fcb $3A :
|
|
549 fcb $20
|
|
550 fcb $53 S
|
|
551 fcb $46 F
|
|
552 fcb $4F O
|
|
553 fcb $52 R
|
|
554 fcb $4D M
|
|
555 fcb $41 A
|
|
556 fcb $54 T
|
|
557 fcb $20
|
|
558 fcb $2F /
|
|
559 fcb $64 d
|
|
560 fcb $65 e
|
|
561 fcb $76 v
|
|
562 fcb $6E n
|
|
563 fcb $61 a
|
|
564 fcb $6D m
|
|
565 fcb $65 e
|
|
566 fcb $20
|
|
567 fcb $5B [
|
|
568 fcb $6F o
|
|
569 fcb $70 p
|
|
570 fcb $74 t
|
|
571 fcb $73 s
|
|
572 fcb $5D ]
|
|
573 fcb $0D
|
|
574 fcb $1A
|
|
575 fcb $20
|
|
576 fcb $6F o
|
|
577 fcb $70 p
|
|
578 fcb $74 t
|
|
579 fcb $73 s
|
|
580 fcb $3A :
|
|
581 fcb $20
|
|
582 fcb $53 S
|
|
583 fcb $20
|
|
584 fcb $3D =
|
|
585 fcb $20
|
|
586 fcb $53 S
|
|
587 fcb $69 i
|
|
588 fcb $6E n
|
|
589 fcb $67 g
|
|
590 fcb $6C l
|
|
591 fcb $65 e
|
|
592 fcb $20
|
|
593 fcb $64 d
|
|
594 fcb $65 e
|
|
595 fcb $6E n
|
|
596 fcb $73 s
|
|
597 fcb $69 i
|
|
598 fcb $74 t
|
|
599 fcb $79 y
|
|
600 fcb $0D
|
|
601 fcb $1A
|
|
602 fcb $20
|
|
603 fcb $20
|
|
604 fcb $20
|
|
605 fcb $20
|
|
606 fcb $20
|
|
607 fcb $20
|
|
608 fcb $20
|
|
609 fcb $44 D
|
|
610 fcb $20
|
|
611 fcb $3D =
|
|
612 fcb $20
|
|
613 fcb $44 D
|
|
614 fcb $6F o
|
|
615 fcb $75 u
|
|
616 fcb $62 b
|
|
617 fcb $6C l
|
|
618 fcb $65 e
|
|
619 fcb $20
|
|
620 fcb $64 d
|
|
621 fcb $65 e
|
|
622 fcb $6E n
|
|
623 fcb $73 s
|
|
624 fcb $69 i
|
|
625 fcb $74 t
|
|
626 fcb $79 y
|
|
627 fcb $0D
|
|
628 fcb $11
|
|
629 fcb $20
|
|
630 fcb $20
|
|
631 fcb $20
|
|
632 fcb $20
|
|
633 fcb $20
|
|
634 fcb $20
|
|
635 fcb $20
|
|
636 fcb $52 R
|
|
637 fcb $20
|
|
638 fcb $3D =
|
|
639 fcb $20
|
|
640 fcb $52 R
|
|
641 fcb $65 e
|
|
642 fcb $61 a
|
|
643 fcb $64 d
|
|
644 fcb $79 y
|
|
645 fcb $0D
|
|
646 fcb $12
|
|
647 fcb $20
|
|
648 fcb $20
|
|
649 fcb $20
|
|
650 fcb $20
|
|
651 fcb $20
|
|
652 fcb $20
|
|
653 fcb $20
|
|
654 fcb $31 1
|
|
655 fcb $20
|
|
656 fcb $3D =
|
|
657 fcb $20
|
|
658 fcb $31 1
|
|
659 fcb $20
|
|
660 fcb $73 s
|
|
661 fcb $69 i
|
|
662 fcb $64 d
|
|
663 fcb $65 e
|
|
664 fcb $0D
|
|
665 fcb $13
|
|
666 fcb $20
|
|
667 fcb $20
|
|
668 fcb $20
|
|
669 fcb $20
|
|
670 fcb $20
|
|
671 fcb $20
|
|
672 fcb $20
|
|
673 fcb $32 2
|
|
674 fcb $20
|
|
675 fcb $3D =
|
|
676 fcb $20
|
|
677 fcb $32 2
|
|
678 fcb $20
|
|
679 fcb $73 s
|
|
680 fcb $69 i
|
|
681 fcb $64 d
|
|
682 fcb $65 e
|
|
683 fcb $73 s
|
|
684 fcb $0D
|
|
685 fcb $12
|
|
686 fcb $20
|
|
687 fcb $20
|
|
688 fcb $20
|
|
689 fcb $20
|
|
690 fcb $20
|
|
691 fcb $20
|
|
692 fcb $20
|
|
693 fcb $34 4
|
|
694 fcb $20
|
|
695 fcb $3D =
|
|
696 fcb $20
|
|
697 fcb $34 4
|
|
698 fcb $38 8
|
|
699 fcb $20
|
|
700 fcb $54 T
|
|
701 fcb $50 P
|
|
702 fcb $49 I
|
|
703 fcb $0D
|
|
704 fcb $1C
|
|
705 fcb $20
|
|
706 fcb $20
|
|
707 fcb $20
|
|
708 fcb $20
|
|
709 fcb $20
|
|
710 fcb $20
|
|
711 fcb $20
|
|
712 fcb $4F O
|
|
713 fcb $20
|
|
714 fcb $3D =
|
|
715 fcb $20
|
|
716 fcb $4F O
|
|
717 fcb $53 S
|
|
718 fcb $2D -
|
|
719 fcb $39 9
|
|
720 fcb $20
|
|
721 fcb $53 S
|
|
722 fcb $74 t
|
|
723 fcb $64 d
|
|
724 fcb $2E .
|
|
725 fcb $20
|
|
726 fcb $66 f
|
|
727 fcb $6F o
|
|
728 fcb $72 r
|
|
729 fcb $6D m
|
|
730 fcb $61 a
|
|
731 fcb $74 t
|
|
732 fcb $0D
|
|
733 fcb $13
|
|
734 fcb $20
|
|
735 fcb $20
|
|
736 fcb $20
|
|
737 fcb $20
|
|
738 fcb $20
|
|
739 fcb $20
|
|
740 fcb $20
|
|
741 fcb $22 "
|
|
742 fcb $64 d
|
|
743 fcb $69 i
|
|
744 fcb $73 s
|
|
745 fcb $6B k
|
|
746 fcb $20
|
|
747 fcb $6E n
|
|
748 fcb $61 a
|
|
749 fcb $6D m
|
|
750 fcb $65 e
|
|
751 fcb $22 "
|
|
752 fcb $0D
|
|
753 fcb $1A
|
|
754 fcb $20
|
|
755 fcb $20
|
|
756 fcb $20
|
|
757 fcb $20
|
|
758 fcb $20
|
|
759 fcb $20
|
|
760 fcb $20
|
|
761 fcb $27 '
|
|
762 fcb $6E n
|
|
763 fcb $6F o
|
|
764 fcb $2E .
|
|
765 fcb $20
|
|
766 fcb $6F o
|
|
767 fcb $66 f
|
|
768 fcb $20
|
|
769 fcb $63 c
|
|
770 fcb $79 y
|
|
771 fcb $6C l
|
|
772 fcb $69 i
|
|
773 fcb $6E n
|
|
774 fcb $64 d
|
|
775 fcb $65 e
|
|
776 fcb $72 r
|
|
777 fcb $73 s
|
|
778 fcb $27 '
|
|
779 fcb $0D
|
|
780 fcb $14
|
|
781 fcb $20
|
|
782 fcb $20
|
|
783 fcb $20
|
|
784 fcb $20
|
|
785 fcb $20
|
|
786 fcb $20
|
|
787 fcb $20
|
|
788 fcb $3A :
|
|
789 fcb $49 I
|
|
790 fcb $6E n
|
|
791 fcb $74 t
|
|
792 fcb $65 e
|
|
793 fcb $72 r
|
|
794 fcb $6C l
|
|
795 fcb $65 e
|
|
796 fcb $61 a
|
|
797 fcb $76 v
|
|
798 fcb $65 e
|
|
799 fcb $3A :
|
|
800 fcb $0D
|
|
801 fcb $11
|
|
802 fcb $43 C
|
|
803 fcb $68 h
|
|
804 fcb $61 a
|
|
805 fcb $6E n
|
|
806 fcb $67 g
|
|
807 fcb $65 e
|
|
808 fcb $20
|
|
809 fcb $74 t
|
|
810 fcb $6F o
|
|
811 fcb $20
|
|
812 fcb $34 4
|
|
813 fcb $38 8
|
|
814 fcb $20
|
|
815 fcb $74 t
|
|
816 fcb $70 p
|
|
817 fcb $69 i
|
|
818 fcb $3F ?
|
|
819 fcb $13
|
|
820 fcb $53 S
|
|
821 fcb $79 y
|
|
822 fcb $73 s
|
|
823 fcb $74 t
|
|
824 fcb $65 e
|
|
825 fcb $6D m
|
|
826 fcb $20
|
|
827 fcb $53 S
|
|
828 fcb $65 e
|
|
829 fcb $63 c
|
|
830 fcb $74 t
|
|
831 fcb $6F o
|
|
832 fcb $72 r
|
|
833 fcb $20
|
|
834 fcb $42 B
|
|
835 fcb $41 A
|
|
836 fcb $44 D
|
|
837 fcb $07
|
|
838 fcb $0D
|
|
839 fcb $01
|
|
840 fcb $28 (
|
|
841 L0304 fcb $27 '
|
|
842 fcb $FF
|
|
843 fcb $01
|
|
844 fcb $FF
|
|
845 fcb $06
|
|
846 fcb $00
|
|
847 fcb $01
|
|
848 fcb $FC
|
|
849 fcb $0C
|
|
850 fcb $FF
|
|
851 fcb $05
|
|
852 fcb $00
|
|
853 fcb $01
|
|
854 fcb $00
|
|
855 fcb $01
|
|
856 fcb $FE
|
|
857 fcb $04
|
|
858 fcb $01
|
|
859 fcb $01
|
|
860 fcb $F7 w
|
|
861 fcb $0A
|
|
862 fcb $FF
|
|
863 fcb $06
|
|
864 fcb $00
|
|
865 fcb $01
|
|
866 fcb $FB
|
|
867 fcb $00
|
|
868 fcb $E5 e
|
|
869 fcb $01
|
|
870 fcb $F7 w
|
|
871 fcb $08
|
|
872 fcb $FF
|
|
873 fcb $02
|
|
874 fcb $FF
|
|
875 fcb $01
|
|
876 fcb $52 R
|
|
877 L0328 fcb $50 P
|
|
878 fcb $4E N
|
|
879 fcb $0C
|
|
880 fcb $00
|
|
881 fcb $03
|
|
882 fcb $F6 v
|
|
883 fcb $01
|
|
884 fcb $FC
|
|
885 fcb $20
|
|
886 fcb $4E N
|
|
887 fcb $0C
|
|
888 fcb $00
|
|
889 fcb $03
|
|
890 fcb $F5 u
|
|
891 fcb $01
|
|
892 fcb $FE
|
|
893 fcb $04
|
|
894 fcb $01
|
|
895 fcb $01
|
|
896 fcb $F7 w
|
|
897 fcb $16
|
|
898 fcb $4E N
|
|
899 fcb $0C
|
|
900 fcb $00
|
|
901 fcb $03
|
|
902 fcb $F5 u
|
|
903 fcb $01
|
|
904 fcb $FB
|
|
905 fcb $00
|
|
906 fcb $E5 e
|
|
907 fcb $01
|
|
908 fcb $F7 w
|
|
909 fcb $16
|
|
910 fcb $4E N
|
|
911 fcb $01
|
|
912 fcb $50 P
|
|
913 L034C fcb $20
|
|
914 fcb $4E N
|
|
915 fcb $0C
|
|
916 fcb $00
|
|
917 fcb $03
|
|
918 fcb $F6 v
|
|
919 fcb $01
|
|
920 fcb $FC
|
|
921 fcb $20
|
|
922 fcb $4E N
|
|
923 fcb $08
|
|
924 fcb $00
|
|
925 fcb $03
|
|
926 fcb $F5 u
|
|
927 fcb $01
|
|
928 fcb $FE
|
|
929 fcb $04
|
|
930 fcb $01
|
|
931 fcb $01
|
|
932 fcb $F7 w
|
|
933 fcb $16
|
|
934 fcb $4E N
|
|
935 fcb $0C
|
|
936 fcb $00
|
|
937 fcb $03
|
|
938 fcb $F5 u
|
|
939 fcb $01
|
|
940 fcb $FB
|
|
941 fcb $00
|
|
942 fcb $E5 e
|
|
943 fcb $01
|
|
944 fcb $F7 w
|
|
945 fcb $18
|
|
946 fcb $4E N
|
|
947 start equ *
|
|
948 pshs u
|
|
949 clrb
|
|
950 L0371 clr ,u+
|
|
951 decb
|
|
952 bne L0371
|
|
953 puls u
|
|
954 stu <u0005
|
|
955 L037A lda ,x+
|
|
956 cmpa #$20
|
|
957 beq L037A
|
|
958 cmpa #$2F
|
|
959 bne L03EA
|
|
960 sta <u0023
|
|
961 os9 F$PrsNam
|
|
962 bcs L03EA
|
|
963 stb <u001A
|
|
964 inc <u001A
|
|
965 leay <u0024,u
|
|
966 L0392 lda ,x+
|
|
967 sta -$07,y
|
|
968 sta ,y+
|
|
969 decb
|
|
970 bne L0392
|
|
971 lda #$40
|
|
972 ldb #$0D
|
|
973 std ,y
|
|
974 stb -$07,y
|
|
975 stx <u0001
|
|
976 lbsr L05FB
|
|
977 lbra L1AAD
|
|
978 clra
|
|
979 lbsr L1AB1
|
|
980 fcb $4B K
|
|
981 fcb $18
|
|
982 lbsr L05FB
|
|
983 jmp <u004F
|
|
984 leax <u001D,u
|
|
985 os9 I$Attach
|
|
986 lbcs L09B9
|
|
987 stu <u001B
|
|
988 ldu <u0005
|
|
989 lda #$01
|
|
990 clrb
|
|
991 leax <u004D,u
|
|
992 os9 I$GetStt
|
|
993 lbcs L09B9
|
|
994 ldb $07,x
|
|
995 stb <u006D
|
|
996 clr $07,x
|
|
997 clrb
|
|
998 os9 I$SetStt
|
|
999 bcs L03E7
|
|
1000 leax <u0023,u
|
|
1001 lda #$02
|
|
1002 os9 I$Open
|
|
1003 bcc L03F1
|
|
1004 L03E7 lbra L09A6
|
|
1005 L03EA lbsr L0AB8
|
|
1006 clrb
|
|
1007 os9 F$Exit
|
|
1008 L03F1 sta <u0000
|
|
1009 ldb #$00
|
|
1010 leax <u006E,u
|
|
1011 os9 I$GetStt
|
|
1012 bcs L03E7
|
|
1013 lda <u0072,u
|
|
1014 tfr a,b
|
|
1015 anda #$01
|
|
1016 sta <u000D
|
|
1017 andb #$02
|
|
1018 stb <u000C
|
|
1019 lda <u0071,u
|
|
1020 tfr a,b
|
|
1021 anda #$81
|
|
1022 lbne L0AAB
|
|
1023 andb #$20
|
|
1024 stb <u0011
|
|
1025 ldd <u0074,u
|
|
1026 std <u000E
|
|
1027 ldd <u0077,u
|
|
1028 stb <u0013
|
|
1029 ldd <u0079,u
|
|
1030 stb <u0012
|
|
1031 ldb <u007B,u
|
|
1032 stb <u0010
|
|
1033 bra L0436
|
|
1034 L042F cmpa #$60
|
|
1035 bls L0435
|
|
1036 suba #$20
|
|
1037 L0435 rts
|
|
1038 L0436 ldx <u0001
|
|
1039 L0438 lda ,x+
|
|
1040 bsr L042F
|
|
1041 cmpa #$0D
|
|
1042 lbeq L0502
|
|
1043 ldb #$01
|
|
1044 tst <u0011
|
|
1045 bne L0456
|
|
1046 cmpa #$53
|
|
1047 bne L0456
|
|
1048 clr <u000D
|
|
1049 lda #$0A
|
|
1050 sta <u0012
|
|
1051 sta <u0013
|
|
1052 bra L0438
|
|
1053 L0456 cmpa #$44
|
|
1054 bne L045E
|
|
1055 stb <u000D
|
|
1056 bra L0438
|
|
1057 L045E cmpa #$52
|
|
1058 bne L0480
|
|
1059 stb <u0003
|
|
1060 bra L0438
|
|
1061 cmpa #$43
|
|
1062 bne L0478
|
|
1063 lda #$20
|
|
1064 sta <u0011
|
|
1065 stb <u000D
|
|
1066 lda #$12
|
|
1067 sta <u0012
|
|
1068 sta <u0013
|
|
1069 bra L0438
|
|
1070 L0478 cmpa #$4F
|
|
1071 bne L0480
|
|
1072 clr <u0011
|
|
1073 bra L0438
|
|
1074 L0480 cmpa #$31
|
|
1075 bne L0488
|
|
1076 stb <u000F
|
|
1077 bra L0438
|
|
1078 L0488 cmpa #$32
|
|
1079 bne L0497
|
|
1080 cmpb <u0075
|
|
1081 lbeq L0AAB
|
|
1082 incb
|
|
1083 stb <u000F
|
|
1084 bra L0438
|
|
1085 L0497 cmpa #$34
|
|
1086 bne L049F
|
|
1087 clr <u000C
|
|
1088 bra L04D5
|
|
1089 L049F cmpa #$27
|
|
1090 bne L04BD
|
|
1091 lbsr L069E
|
|
1092 lbcs L0AB0
|
|
1093 cmpd <u0073
|
|
1094 lbhi L0AAB
|
|
1095 stb <u000E
|
|
1096 lda ,x+
|
|
1097 cmpa #$27
|
|
1098 lbne L0AB0
|
|
1099 bra L04D5
|
|
1100 L04BD cmpa #$22
|
|
1101 bne L04EF
|
|
1102 inc <u0004
|
|
1103 leay >u00AD,u
|
|
1104 ldb #$20
|
|
1105 L04C9 lda ,x+
|
|
1106 cmpa #$22
|
|
1107 bne L04D8
|
|
1108 L04CF lda ,-y
|
|
1109 ora #$80
|
|
1110 sta ,y
|
|
1111 L04D5 lbra L0438
|
|
1112 L04D8 cmpa #$0D
|
|
1113 lbeq L0AB0
|
|
1114 sta ,y+
|
|
1115 decb
|
|
1116 bne L04C9
|
|
1117 L04E3 lda ,x+
|
|
1118 cmpa #$22
|
|
1119 beq L04CF
|
|
1120 cmpa #$0D
|
|
1121 beq L04CF
|
|
1122 bra L04E3
|
|
1123 L04EF cmpa #$3A
|
|
1124 bne L04D5
|
|
1125 lbsr L069E
|
|
1126 stb <u0010
|
|
1127 lda ,x+
|
|
1128 cmpa #$3A
|
|
1129 lbne L0AB0
|
|
1130 bra L04D5
|
|
1131 L0502 bsr L057F
|
|
1132 clr <u008D
|
|
1133 lsl >$0E0D
|
|
1134 tst <u0026
|
|
1135 eim #$8D,<u0071
|
|
1136 oim #$20,<u0003
|
|
1137 bsr L057F
|
|
1138 neg <u008D
|
|
1139 rol $02,x
|
|
1140 ldb <u000E
|
|
1141 lbsr L0638
|
|
1142 bsr L057F
|
|
1143 com <u00D6
|
|
1144 clr <u0017
|
|
1145 oim #$14,<u008D
|
|
1146 rolb
|
|
1147 lsr <u000D
|
|
1148 fcb $11
|
|
1149 beq L0530
|
|
1150 bsr L057F
|
|
1151 eim #$20,<u0003
|
|
1152 L0530 bsr L057F
|
|
1153 ror <u008D
|
|
1154 deca
|
|
1155 asr <u00D6
|
|
1156 nop
|
|
1157 lbsr L0638
|
|
1158 bsr L057F
|
|
1159 lsl <u00D6
|
|
1160 sync
|
|
1161 lbsr L0638
|
|
1162 bsr L057F
|
|
1163 rol <u008D
|
|
1164 pulu dp,b,a
|
|
1165 bsr L057F
|
|
1166 L054B fcb $10
|
|
1167 ldb <u001A
|
|
1168 clra
|
|
1169 tfr d,y
|
|
1170 leax <u0023,u
|
|
1171 lda #$01
|
|
1172 os9 I$WritLn
|
|
1173 lbcs L03E7
|
|
1174 bsr L057F
|
|
1175 jmp <u000D
|
|
1176 com <u0010
|
|
1177 bne L0566
|
|
1178 bita #$8D
|
|
1179 lbsr L16F7
|
|
1180 sexw
|
|
1181 nop
|
|
1182 lbsr L061D
|
|
1183 lbeq L06EB
|
|
1184 cmpa #$51
|
|
1185 lbeq L09A0
|
|
1186 cmpa #$4E
|
|
1187 bne L0546
|
|
1188 bra L0581
|
|
1189 L057F bra L05FB
|
|
1190 L0581 bra L059D
|
|
1191 bsr L05FB
|
|
1192 dec <u000F
|
|
1193 fcb $11
|
|
1194 lbsr L061D
|
|
1195 bne L059D
|
|
1196 lda #$20
|
|
1197 sta <u0011
|
|
1198 lda #$12
|
|
1199 sta <u0012
|
|
1200 sta <u0013
|
|
1201 lda #$01
|
|
1202 sta <u000D
|
|
1203 bra L05B6
|
|
1204 L059D tst <u0011
|
|
1205 bne L05B6
|
|
1206 lda #$0A
|
|
1207 sta <u0012
|
|
1208 sta <u0013
|
|
1209 bsr L05FB
|
|
1210 tim #$0F,<u000D
|
|
1211 bsr L061D
|
|
1212 bne L05B6
|
|
1213 inc <u000D
|
|
1214 lda #$10
|
|
1215 sta <u0013
|
|
1216 L05B6 tst <u000C
|
|
1217 beq L05C3
|
|
1218 bsr L05FB
|
|
1219 bcs L054B
|
|
1220 fcb $5E ^
|
|
1221 bne L05C3
|
|
1222 clr <u000C
|
|
1223 L05C3 lda <u0075
|
|
1224 cmpa #$01
|
|
1225 beq L05D6
|
|
1226 bsr L05FB
|
|
1227 inc <u0086
|
|
1228 oim #$97,<u000F
|
|
1229 bsr L061D
|
|
1230 bne L05D6
|
|
1231 inc <u000F
|
|
1232 L05D6 bsr L05FB
|
|
1233 tst <u0010
|
|
1234 ldx #$0050
|
|
1235 leax >u00CD,u
|
|
1236 clra
|
|
1237 os9 I$ReadLn
|
|
1238 lbcs L03E7
|
|
1239 lbsr L069E
|
|
1240 bcs L05D6
|
|
1241 cmpd <u0073
|
|
1242 bhi L05D6
|
|
1243 stb <u000E
|
|
1244 bsr L05FB
|
|
1245 jmp <u0016
|
|
1246 stu >$0735
|
|
1247 ldw ,x+
|
|
1248 pshs x
|
|
1249 leax >L0033,pcr
|
|
1250 L0605 tsta
|
|
1251 beq L060E
|
|
1252 ldb ,x+
|
|
1253 abx
|
|
1254 deca
|
|
1255 bra L0605
|
|
1256 L060E ldb ,x+
|
|
1257 clra
|
|
1258 tfr d,y
|
|
1259 lda #$01
|
|
1260 os9 I$WritLn
|
|
1261 lbcs L03E7
|
|
1262 rts
|
|
1263 L061D clr ,-s
|
|
1264 tfr s,x
|
|
1265 ldy #$0001
|
|
1266 clra
|
|
1267 os9 I$Read
|
|
1268 lbcs L03E7
|
|
1269 bsr L05FB
|
|
1270 jmp <u0035
|
|
1271 aim #$17,<u00FD
|
|
1272 orb >$8159
|
|
1273 rts
|
|
1274 L0638 clra
|
|
1275 leax <u002B,u
|
|
1276 ldy #$0004
|
|
1277 bsr L065D
|
|
1278 leax <u002D,u
|
|
1279 ldy #$0003
|
|
1280 lda #$01
|
|
1281 os9 I$WritLn
|
|
1282 lbcs L03E7
|
|
1283 rts
|
|
1284 L0653 beq L0665
|
|
1285 com <u00E8
|
|
1286 neg <u0064
|
|
1287 neg <u000A
|
|
1288 neg <u0001
|
|
1289 L065D pshs y
|
|
1290 pshs x,b,a
|
|
1291 lda #$30
|
|
1292 ldb #$05
|
|
1293 L0665 stb $04,s
|
|
1294 L0667 sta ,x+
|
|
1295 decb
|
|
1296 bne L0667
|
|
1297 puls x,b,a
|
|
1298 pshs x,b,a
|
|
1299 leay <L0653,pcr
|
|
1300 L0673 subd ,y
|
|
1301 bcs L067B
|
|
1302 inc ,x
|
|
1303 bra L0673
|
|
1304 L067B addd ,y++
|
|
1305 leax $01,x
|
|
1306 dec $04,s
|
|
1307 bne L0673
|
|
1308 puls x,b,a
|
|
1309 puls y
|
|
1310 pshs y
|
|
1311 tst $01,s
|
|
1312 beq L069B
|
|
1313 lda #$30
|
|
1314 ldb #$20
|
|
1315 L0691 cmpa ,x
|
|
1316 bne L069B
|
|
1317 stb ,x+
|
|
1318 dec $01,s
|
|
1319 bne L0691
|
|
1320 L069B leas $02,s
|
|
1321 rts
|
|
1322 L069E pshs y
|
|
1323 leay u0007,u
|
|
1324 bsr L06A6
|
|
1325 puls pc,y
|
|
1326 L06A6 clrb
|
|
1327 clra
|
|
1328 std ,y
|
|
1329 L06AA lda ,x+
|
|
1330 cmpa #$20
|
|
1331 beq L06AA
|
|
1332 cmpa #$30
|
|
1333 bcs L06E2
|
|
1334 cmpa #$39
|
|
1335 bhi L06E2
|
|
1336 suba #$30
|
|
1337 sta $01,y
|
|
1338 L06BC ldb ,x+
|
|
1339 cmpb #$30
|
|
1340 bcs L06E5
|
|
1341 cmpb #$39
|
|
1342 bhi L06E5
|
|
1343 subb #$30
|
|
1344 clra
|
|
1345 pshs b,a
|
|
1346 lda $01,y
|
|
1347 ldb #$0A
|
|
1348 mul
|
|
1349 pshs b,a
|
|
1350 lda ,y
|
|
1351 ldb #$0A
|
|
1352 mul
|
|
1353 tfr b,a
|
|
1354 clrb
|
|
1355 addd ,s++
|
|
1356 addd ,s++
|
|
1357 std ,y
|
|
1358 bra L06BC
|
|
1359 L06E2 comb
|
|
1360 bra L06E6
|
|
1361 L06E5 clrb
|
|
1362 L06E6 leax -$01,x
|
|
1363 ldd ,y
|
|
1364 rts
|
|
1365 L06EB lda <u0000
|
|
1366 ldb #$03
|
|
1367 os9 I$SetStt
|
|
1368 lda <u000D
|
|
1369 pshs a
|
|
1370 tst <u0011
|
|
1371 beq L070E
|
|
1372 leax >L034C,pcr
|
|
1373 L06FE lda <u0012
|
|
1374 lbsr L0A01
|
|
1375 clra
|
|
1376 clrb
|
|
1377 lbsr L09BC
|
|
1378 puls a
|
|
1379 sta <u000D
|
|
1380 bra L0716
|
|
1381 L070E leax >L0304,pcr
|
|
1382 clr <u000D
|
|
1383 bra L06FE
|
|
1384 L0716 leax >L034C,pcr
|
|
1385 tst <u0011
|
|
1386 bne L0734
|
|
1387 leax >L0304,pcr
|
|
1388 tst <u000D
|
|
1389 beq L0734
|
|
1390 leax >L0328,pcr
|
|
1391 lda <u0013
|
|
1392 cmpa #$10
|
|
1393 bls L0734
|
|
1394 leax >L034C,pcr
|
|
1395 L0734 lda <u0013
|
|
1396 lbsr L0A01
|
|
1397 bra L0746
|
|
1398 L073B lda <u0009
|
|
1399 inca
|
|
1400 cmpa <u000E
|
|
1401 beq L0755
|
|
1402 clrb
|
|
1403 lbsr L09BC
|
|
1404 L0746 lda <u000F
|
|
1405 cmpa #$02
|
|
1406 bne L073B
|
|
1407 lda <u0009
|
|
1408 ldb #$01
|
|
1409 lbsr L09BC
|
|
1410 bra L073B
|
|
1411 L0755 lda <u0013
|
|
1412 sta <u0091
|
|
1413 sta <u00A0
|
|
1414 ldd <u008F
|
|
1415 addd #$0007
|
|
1416 lsra
|
|
1417 rorb
|
|
1418 lsra
|
|
1419 rorb
|
|
1420 lsra
|
|
1421 rorb
|
|
1422 std <u0092
|
|
1423 subd #$0001
|
|
1424 pshs a
|
|
1425 ldb #$02
|
|
1426 addb ,s+
|
|
1427 stb <u0098
|
|
1428 ldb #$01
|
|
1429 stb <u0095
|
|
1430 lda <u000C
|
|
1431 ora <u000D
|
|
1432 lsla
|
|
1433 ldb <u000F
|
|
1434 cmpb #$02
|
|
1435 bne L0783
|
|
1436 inca
|
|
1437 L0783 sta <u009E
|
|
1438 lda <u00AD
|
|
1439 leax >u00A8,u
|
|
1440 os9 F$Time
|
|
1441 sta <u00AD
|
|
1442 tst <u0004
|
|
1443 bne L07B8
|
|
1444 lbsr L05FB
|
|
1445 sync
|
|
1446 leax >u00AD,u
|
|
1447 ldy #$0020
|
|
1448 clra
|
|
1449 os9 I$ReadLn
|
|
1450 lbcs L03E7
|
|
1451 tfr y,d
|
|
1452 L07AA decb
|
|
1453 lda b,x
|
|
1454 tstb
|
|
1455 beq L07B4
|
|
1456 cmpa #$0D
|
|
1457 beq L07AA
|
|
1458 L07B4 ora #$80
|
|
1459 sta b,x
|
|
1460 L07B8 lda #$FF
|
|
1461 sta <u009B
|
|
1462 ldd <u00A9
|
|
1463 addd <u00AB
|
|
1464 pshs b,a
|
|
1465 ldb <u00AC
|
|
1466 leax >u00AD,u
|
|
1467 L07C8 lda ,s
|
|
1468 eora b,x
|
|
1469 sta ,s
|
|
1470 rola
|
|
1471 rol $01,s
|
|
1472 rol ,s
|
|
1473 decb
|
|
1474 bne L07C8
|
|
1475 puls b,a
|
|
1476 addd <u000D
|
|
1477 subd <u0011
|
|
1478 addd <u0005
|
|
1479 subd <u0001
|
|
1480 std <u009C
|
|
1481 leax >u00CD,u
|
|
1482 ldy #$1000
|
|
1483 L07EA clr ,x+
|
|
1484 leay -$01,y
|
|
1485 bne L07EA
|
|
1486 lda <u0000
|
|
1487 ldb #$03
|
|
1488 os9 I$SetStt
|
|
1489 ldy #$0100
|
|
1490 leax >u008E,u
|
|
1491 os9 I$Write
|
|
1492 lbcs L03E7
|
|
1493 ldd <u0092
|
|
1494 inca
|
|
1495 clrb
|
|
1496 tfr d,y
|
|
1497 leax >u00CD,u
|
|
1498 lda #$FF
|
|
1499 L0812 sta ,x+
|
|
1500 leay -$01,y
|
|
1501 bne L0812
|
|
1502 ldy <u008F
|
|
1503 leax >u00CD,u
|
|
1504 clra
|
|
1505 clrb
|
|
1506 os9 F$DelBit
|
|
1507 ldb <u0092
|
|
1508 addb #$02
|
|
1509 addb <u007C
|
|
1510 std <u0037
|
|
1511 tfr d,y
|
|
1512 clra
|
|
1513 clrb
|
|
1514 os9 F$AllBit
|
|
1515 lda <u0000
|
|
1516 os9 I$Close
|
|
1517 bcc L083D
|
|
1518 L083A lbra L09A6
|
|
1519 L083D leax <u0023,u
|
|
1520 lda #$01
|
|
1521 os9 I$Open
|
|
1522 bcs L083A
|
|
1523 sta <u0000
|
|
1524 leax >u1A6F,u
|
|
1525 ldy #$0100
|
|
1526 os9 I$Read
|
|
1527 bcs L083A
|
|
1528 os9 I$Read
|
|
1529 bcs L083A
|
|
1530 lda <u0000
|
|
1531 os9 I$Close
|
|
1532 bcs L083A
|
|
1533 leax <u0023,u
|
|
1534 lda #$03
|
|
1535 os9 I$Open
|
|
1536 bcs L083A
|
|
1537 sta <u0000
|
|
1538 ldd <u008F
|
|
1539 std <u0035
|
|
1540 lda <u0000
|
|
1541 ldx #$0000
|
|
1542 tfr x,u
|
|
1543 os9 I$Seek
|
|
1544 ldu <u0005
|
|
1545 lbcs L091A
|
|
1546 lbsr L05FB
|
|
1547 sexw
|
|
1548 L0886 ldd <u0030
|
|
1549 cmpd <u008F
|
|
1550 lbeq L091D
|
|
1551 tst <u0034
|
|
1552 bne L08B6
|
|
1553 ldy #$0001
|
|
1554 leax >L00B4,pcr
|
|
1555 lda #$01
|
|
1556 os9 I$Write
|
|
1557 bcs L091A
|
|
1558 ldb <u0033
|
|
1559 lbsr L0638
|
|
1560 leax >L007B,pcr
|
|
1561 ldy #$0001
|
|
1562 lda #$01
|
|
1563 os9 I$WritLn
|
|
1564 bcs L091A
|
|
1565 L08B6 leax >u1A6F,u
|
|
1566 ldy #$0100
|
|
1567 lda <u0000
|
|
1568 os9 I$Read
|
|
1569 bcc L08F6
|
|
1570 ldd <u0030
|
|
1571 cmpd <u0037
|
|
1572 bcs L0914
|
|
1573 ldy #$0001
|
|
1574 leax >u00CD,u
|
|
1575 os9 F$AllBit
|
|
1576 ldd <u0035
|
|
1577 subd #$0001
|
|
1578 std <u0035
|
|
1579 clrb
|
|
1580 L08DF pshs b
|
|
1581 ldd <u0030
|
|
1582 addd #$0001
|
|
1583 pshs b,a
|
|
1584 clrb
|
|
1585 pshs b
|
|
1586 puls u,x
|
|
1587 lda <u0000
|
|
1588 os9 I$Seek
|
|
1589 ldu <u0005
|
|
1590 bcs L091A
|
|
1591 L08F6 ldd <u0030
|
|
1592 addd #$0001
|
|
1593 std <u0030
|
|
1594 inc <u0034
|
|
1595 ldb <u0012
|
|
1596 clra
|
|
1597 cmpd <u0030
|
|
1598 bcc L0909
|
|
1599 ldb <u0013
|
|
1600 L0909 cmpb <u0034
|
|
1601 bne L0911
|
|
1602 clr <u0034
|
|
1603 inc <u0033
|
|
1604 L0911 lbra L0886
|
|
1605 L0914 lbsr L05FB
|
|
1606 bne L08DF
|
|
1607 oim #$16,<u0000
|
|
1608 adca #$17
|
|
1609 ldd >$DB0E
|
|
1610 ldd <u0035
|
|
1611 leax <u002B,u
|
|
1612 ldy #$0004
|
|
1613 lbsr L065D
|
|
1614 leax <u002B,u
|
|
1615 ldy #$0005
|
|
1616 lda #$01
|
|
1617 os9 I$WritLn
|
|
1618 bcs L091A
|
|
1619 lbsr L05FB
|
|
1620 fcb $15
|
|
1621 ldx #$0000
|
|
1622 ldu #$0100
|
|
1623 lda <u0000
|
|
1624 os9 I$Seek
|
|
1625 ldu <u0005
|
|
1626 bcs L091A
|
|
1627 leax >u00CD,u
|
|
1628 lda <u0098
|
|
1629 deca
|
|
1630 clrb
|
|
1631 leax d,x
|
|
1632 lda #$BF
|
|
1633 sta ,x
|
|
1634 ldd <u00A8
|
|
1635 std $03,x
|
|
1636 std $0D,x
|
|
1637 ldd <u00AA
|
|
1638 std $05,x
|
|
1639 sta $0F,x
|
|
1640 lda <u00AC
|
|
1641 sta $07,x
|
|
1642 lda #$40
|
|
1643 sta $0C,x
|
|
1644 ldb <u0098
|
|
1645 stb >$011F,x
|
|
1646 stb >$013F,x
|
|
1647 incb
|
|
1648 stb <$12,x
|
|
1649 ldb <u007C
|
|
1650 decb
|
|
1651 stb <$14,x
|
|
1652 ldd #$2EAE
|
|
1653 std >$0100,x
|
|
1654 stb >$0120,x
|
|
1655 lda <u0038
|
|
1656 deca
|
|
1657 clrb
|
|
1658 tfr d,y
|
|
1659 leax >u00CD,u
|
|
1660 lda <u0000
|
|
1661 os9 I$Write
|
|
1662 bcs L09A6
|
|
1663 L09A0 ldu <u001B
|
|
1664 os9 I$Detach
|
|
1665 L09A5 clrb
|
|
1666 L09A6 pshs b,cc
|
|
1667 ldb <u006D
|
|
1668 ldu <u0005
|
|
1669 leax <u004D,u
|
|
1670 stb $07,x
|
|
1671 lda #$01
|
|
1672 clrb
|
|
1673 os9 I$SetStt
|
|
1674 puls b,cc
|
|
1675 L09B9 os9 F$Exit
|
|
1676 L09BC bsr L09E9
|
|
1677 pshs u
|
|
1678 clra
|
|
1679 ldb <u000D
|
|
1680 orb <u000C
|
|
1681 lslb
|
|
1682 orb <u000A
|
|
1683 tfr d,y
|
|
1684 ldb <u0009
|
|
1685 pshs b,a
|
|
1686 leax >u00CD,u
|
|
1687 puls u
|
|
1688 lda <u0000
|
|
1689 ldb #$04
|
|
1690 os9 I$SetStt
|
|
1691 bcc L09DF
|
|
1692 bra L09A6
|
|
1693 L09DF ldd <u008F
|
|
1694 addb <u000B
|
|
1695 adca #$00
|
|
1696 std <u008F
|
|
1697 puls pc,u
|
|
1698 L09E9 std <u0009
|
|
1699 ldb <u000B
|
|
1700 pshs b
|
|
1701 ldx <u0014
|
|
1702 L09F1 ldd <u0009
|
|
1703 std ,x
|
|
1704 tfr x,d
|
|
1705 addd <u0018
|
|
1706 tfr d,x
|
|
1707 dec ,s
|
|
1708 bne L09F1
|
|
1709 puls pc,b
|
|
1710 L0A01 sta <u000B
|
|
1711 ldb <u0010
|
|
1712 lbsr L0A7E
|
|
1713 leay >u00CD,u
|
|
1714 clrb
|
|
1715 pshs x,b,a
|
|
1716 ldd -$02,x
|
|
1717 std <u0018
|
|
1718 ldb #$05
|
|
1719 bsr L0A6F
|
|
1720 stx <u0016
|
|
1721 ldb #$03
|
|
1722 bsr L0A6F
|
|
1723 sty <u0014
|
|
1724 ldb #$09
|
|
1725 bsr L0A6F
|
|
1726 ldb ,s
|
|
1727 decb
|
|
1728 pshs b
|
|
1729 L0A29 ldx <u0016
|
|
1730 ldb #$0C
|
|
1731 bsr L0A6F
|
|
1732 dec ,s
|
|
1733 bne L0A29
|
|
1734 leas $01,s
|
|
1735 leax >u1A6F,u
|
|
1736 tfr x,d
|
|
1737 pshs y
|
|
1738 subd ,s
|
|
1739 std ,s
|
|
1740 ldx $04,s
|
|
1741 lda $01,x
|
|
1742 puls x
|
|
1743 L0A47 sta ,y+
|
|
1744 leax -$01,x
|
|
1745 bne L0A47
|
|
1746 ldy <u0014
|
|
1747 leax <u0039,u
|
|
1748 ldb $01,s
|
|
1749 L0A55 lda b,x
|
|
1750 tst <u0011
|
|
1751 beq L0A5C
|
|
1752 inca
|
|
1753 L0A5C sta $02,y
|
|
1754 L0A5E incb
|
|
1755 stb $01,s
|
|
1756 tfr y,d
|
|
1757 addd <u0018
|
|
1758 tfr d,y
|
|
1759 ldb $01,s
|
|
1760 cmpb ,s
|
|
1761 bne L0A55
|
|
1762 puls pc,x,b,a
|
|
1763 L0A6F pshs b
|
|
1764 L0A71 ldd ,x++
|
|
1765 L0A73 stb ,y+
|
|
1766 deca
|
|
1767 bne L0A73
|
|
1768 dec ,s
|
|
1769 bne L0A71
|
|
1770 puls pc,b
|
|
1771 L0A7E pshs x,b,a
|
|
1772 leax <u0039,u
|
|
1773 lda #$FF
|
|
1774 ldb #$14
|
|
1775 L0A87 sta ,x+
|
|
1776 decb
|
|
1777 bne L0A87
|
|
1778 leax <u0039,u
|
|
1779 clra
|
|
1780 clrb
|
|
1781 bra L0A94
|
|
1782 L0A93 incb
|
|
1783 L0A94 cmpb ,s
|
|
1784 bcs L0A9A
|
|
1785 subb ,s
|
|
1786 L0A9A tst b,x
|
|
1787 bpl L0A93
|
|
1788 sta b,x
|
|
1789 inca
|
|
1790 cmpa ,s
|
|
1791 beq L0AA9
|
|
1792 addb $01,s
|
|
1793 bra L0A94
|
|
1794 L0AA9 puls pc,x,b,a
|
|
1795 L0AAB ldb #$F9
|
|
1796 os9 F$Exit
|
|
1797 L0AB0 bsr L0AB8
|
|
1798 lbra L09A5
|
|
1799 L0AB5 lbra L05FB
|
|
1800 L0AB8 bsr L0AB5
|
|
1801 daa
|
|
1802 bsr L0AB5
|
|
1803 orcc #$8D
|
|
1804 bitb >$1B8D
|
|
1805 sbcb >$1C8D
|
|
1806 stu -$03,x
|
|
1807 bsr L0AB5
|
|
1808 exg a,0
|
|
1809 adcb -$01,x
|
|
1810 bsr L0AB5
|
|
1811 bra L0A5E
|
|
1812 addd $02,y
|
|
1813 bsr L0AB5
|
|
1814 bls L0A64
|
|
1815 std <u0024
|
|
1816 rts
|
|
1817 fcb $01
|
|
1818 fcb $E9 i
|
|
1819 emod
|
|
1820 eom equ *
|