|
9
|
1 ********************************************************************
|
|
|
2 * progname - program module
|
|
|
3 *
|
|
|
4 * $Id$
|
|
|
5 *
|
|
|
6 * Ed. Comments Who YY/MM/DD
|
|
|
7 * ------------------------------------------------------------------
|
|
|
8 * - Original Pascal 2.0 distribution version
|
|
|
9 *
|
|
|
10 * $Log$
|
|
|
11 * Revision 1.1 2002/04/05 08:23:28 roug
|
|
|
12 * Checked in Pascal 2.0
|
|
|
13 *
|
|
|
14 *
|
|
|
15
|
|
|
16 nam PascalE
|
|
|
17 ttl program module
|
|
|
18
|
|
|
19 * Disassembled 02/04/05 10:05:29 by Disasm v1.6 (C) 1988 by RML
|
|
|
20
|
|
|
21 ifp1
|
|
|
22 use /dd/defs/os9defs
|
|
|
23 endc
|
|
|
24 tylg set Prgrm+Objct
|
|
|
25 atrv set ReEnt+rev
|
|
|
26 rev set $01
|
|
|
27 mod eom,name,tylg,atrv,start,size
|
|
|
28 u0000 rmb 2
|
|
|
29 u0002 rmb 2
|
|
|
30 u0004 rmb 1
|
|
|
31 u0005 rmb 1
|
|
|
32 u0006 rmb 1
|
|
|
33 u0007 rmb 1
|
|
|
34 u0008 rmb 1
|
|
|
35 u0009 rmb 1
|
|
|
36 u000A rmb 1
|
|
|
37 u000B rmb 1
|
|
|
38 u000C rmb 1
|
|
|
39 u000D rmb 1
|
|
|
40 u000E rmb 1
|
|
|
41 u000F rmb 1
|
|
|
42 u0010 rmb 6
|
|
|
43 u0016 rmb 2
|
|
|
44 u0018 rmb 2
|
|
|
45 u001A rmb 6
|
|
|
46 u0020 rmb 2
|
|
|
47 u0022 rmb 12
|
|
|
48 u002E rmb 18
|
|
|
49 u0040 rmb 2
|
|
|
50 u0042 rmb 2
|
|
|
51 u0044 rmb 2
|
|
|
52 u0046 rmb 2
|
|
|
53 u0048 rmb 6
|
|
|
54 u004E rmb 2
|
|
|
55 u0050 rmb 58
|
|
|
56 u008A rmb 2
|
|
|
57 u008C rmb 2
|
|
|
58 u008E rmb 1
|
|
|
59 u008F rmb 6
|
|
|
60 u0095 rmb 4
|
|
|
61 u0099 rmb 2
|
|
|
62 u009B rmb 245
|
|
|
63 u0190 rmb 5
|
|
|
64 u0195 rmb 6
|
|
|
65 u019B rmb 4
|
|
|
66 u019F rmb 4
|
|
|
67 u01A3 rmb 4160
|
|
|
68 size equ .
|
|
|
69 name equ *
|
|
|
70 fcs /PascalE/
|
|
|
71 fcb $01
|
|
|
72 L0015 fcb $2A *
|
|
|
73 fcb $45 E
|
|
|
74 fcb $52 R
|
|
|
75 fcb $52 R
|
|
|
76 fcb $4F O
|
|
|
77 fcb $52 R
|
|
|
78 fcb $20
|
|
|
79 fcb $4E N
|
|
|
80 fcb $6F o
|
|
|
81 fcb $20
|
|
|
82 fcb $70 p
|
|
|
83 fcb $63 c
|
|
|
84 fcb $6F o
|
|
|
85 fcb $64 d
|
|
|
86 fcb $65 e
|
|
|
87 fcb $20
|
|
|
88 fcb $66 f
|
|
|
89 fcb $69 i
|
|
|
90 fcb $6C l
|
|
|
91 fcb $65 e
|
|
|
92 fcb $20
|
|
|
93 fcb $6E n
|
|
|
94 fcb $61 a
|
|
|
95 fcb $6D m
|
|
|
96 fcb $65 e
|
|
|
97 fcb $20
|
|
|
98 fcb $68 h
|
|
|
99 fcb $61 a
|
|
|
100 fcb $73 s
|
|
|
101 fcb $20
|
|
|
102 fcb $62 b
|
|
|
103 fcb $65 e
|
|
|
104 fcb $65 e
|
|
|
105 fcb $6E n
|
|
|
106 fcb $20
|
|
|
107 fcb $66 f
|
|
|
108 fcb $6F o
|
|
|
109 fcb $75 u
|
|
|
110 fcb $6E n
|
|
|
111 fcb $64 d
|
|
|
112 fcb $2E .
|
|
|
113 fcb $20
|
|
|
114 fcb $20
|
|
|
115 fcb $41 A
|
|
|
116 fcb $20
|
|
|
117 fcb $70 p
|
|
|
118 fcb $63 c
|
|
|
119 fcb $6F o
|
|
|
120 fcb $64 d
|
|
|
121 fcb $65 e
|
|
|
122 fcb $20
|
|
|
123 fcb $66 f
|
|
|
124 fcb $69 i
|
|
|
125 fcb $6C l
|
|
|
126 fcb $65 e
|
|
|
127 fcb $20
|
|
|
128 fcb $6E n
|
|
|
129 fcb $61 a
|
|
|
130 fcb $6D m
|
|
|
131 fcb $65 e
|
|
|
132 fcb $20
|
|
|
133 L0052 fcb $6D m
|
|
|
134 fcb $75 u
|
|
|
135 fcb $73 s
|
|
|
136 fcb $74 t
|
|
|
137 fcb $20
|
|
|
138 fcb $62 b
|
|
|
139 fcb $65 e
|
|
|
140 fcb $20
|
|
|
141 fcb $73 s
|
|
|
142 fcb $75 u
|
|
|
143 fcb $70 p
|
|
|
144 fcb $70 p
|
|
|
145 fcb $6C l
|
|
|
146 fcb $69 i
|
|
|
147 fcb $65 e
|
|
|
148 fcb $64 d
|
|
|
149 fcb $20
|
|
|
150 fcb $69 i
|
|
|
151 fcb $6D m
|
|
|
152 fcb $6D m
|
|
|
153 fcb $65 e
|
|
|
154 fcb $64 d
|
|
|
155 fcb $69 i
|
|
|
156 fcb $61 a
|
|
|
157 fcb $74 t
|
|
|
158 fcb $65 e
|
|
|
159 fcb $6C l
|
|
|
160 fcb $79 y
|
|
|
161 fcb $20
|
|
|
162 fcb $66 f
|
|
|
163 fcb $6F o
|
|
|
164 fcb $6C l
|
|
|
165 fcb $6C l
|
|
|
166 fcb $6F o
|
|
|
167 fcb $77 w
|
|
|
168 fcb $69 i
|
|
|
169 fcb $6E n
|
|
|
170 fcb $67 g
|
|
|
171 fcb $20
|
|
|
172 fcb $61 a
|
|
|
173 fcb $20
|
|
|
174 fcb $22 "
|
|
|
175 fcb $3A :
|
|
|
176 fcb $22 "
|
|
|
177 fcb $20
|
|
|
178 fcb $6F o
|
|
|
179 fcb $6E n
|
|
|
180 fcb $20
|
|
|
181 fcb $74 t
|
|
|
182 fcb $68 h
|
|
|
183 fcb $65 e
|
|
|
184 fcb $20
|
|
|
185 fcb $63 c
|
|
|
186 fcb $6F o
|
|
|
187 fcb $6D m
|
|
|
188 fcb $6D m
|
|
|
189 fcb $61 a
|
|
|
190 fcb $6E n
|
|
|
191 fcb $64 d
|
|
|
192 fcb $20
|
|
|
193 fcb $6C l
|
|
|
194 fcb $69 i
|
|
|
195 fcb $6E n
|
|
|
196 fcb $65 e
|
|
|
197 fcb $2E .
|
|
|
198 L0093 fcb $46 F
|
|
|
199 fcb $20
|
|
|
200 fcb $20
|
|
|
201 fcb $20
|
|
|
202 fcb $20
|
|
|
203 fcb $20
|
|
|
204 fcb $20
|
|
|
205 fcb $20
|
|
|
206 fcb $20
|
|
|
207 L009C fcb $2A *
|
|
|
208 fcb $45 E
|
|
|
209 fcb $52 R
|
|
|
210 fcb $52 R
|
|
|
211 fcb $4F O
|
|
|
212 fcb $52 R
|
|
|
213 fcb $20
|
|
|
214 fcb $4F O
|
|
|
215 fcb $53 S
|
|
|
216 fcb $2D -
|
|
|
217 fcb $39 9
|
|
|
218 fcb $20
|
|
|
219 fcb $65 e
|
|
|
220 fcb $72 r
|
|
|
221 fcb $72 r
|
|
|
222 fcb $6F o
|
|
|
223 fcb $72 r
|
|
|
224 fcb $20
|
|
|
225 L00AE fcb $20
|
|
|
226 fcb $65 e
|
|
|
227 fcb $6E n
|
|
|
228 fcb $63 c
|
|
|
229 fcb $6F o
|
|
|
230 fcb $75 u
|
|
|
231 fcb $6E n
|
|
|
232 fcb $74 t
|
|
|
233 fcb $65 e
|
|
|
234 fcb $72 r
|
|
|
235 fcb $65 e
|
|
|
236 fcb $64 d
|
|
|
237 fcb $20
|
|
|
238 fcb $77 w
|
|
|
239 fcb $68 h
|
|
|
240 fcb $65 e
|
|
|
241 fcb $6E n
|
|
|
242 fcb $20
|
|
|
243 fcb $74 t
|
|
|
244 fcb $72 r
|
|
|
245 fcb $79 y
|
|
|
246 fcb $69 i
|
|
|
247 fcb $6E n
|
|
|
248 fcb $67 g
|
|
|
249 fcb $20
|
|
|
250 fcb $74 t
|
|
|
251 fcb $6F o
|
|
|
252 fcb $20
|
|
|
253 fcb $6F o
|
|
|
254 fcb $70 p
|
|
|
255 fcb $65 e
|
|
|
256 fcb $6E n
|
|
|
257 fcb $20
|
|
|
258 fcb $66 f
|
|
|
259 fcb $69 i
|
|
|
260 fcb $6C l
|
|
|
261 fcb $65 e
|
|
|
262 fcb $2E .
|
|
|
263 L00D4 fcb $46 F
|
|
|
264 fcb $20
|
|
|
265 fcb $20
|
|
|
266 fcb $20
|
|
|
267 fcb $20
|
|
|
268 fcb $20
|
|
|
269 fcb $20
|
|
|
270 fcb $20
|
|
|
271 fcb $20
|
|
|
272 L00DD fcb $2A *
|
|
|
273 fcb $45 E
|
|
|
274 fcb $52 R
|
|
|
275 fcb $52 R
|
|
|
276 fcb $4F O
|
|
|
277 fcb $52 R
|
|
|
278 fcb $20
|
|
|
279 fcb $50 P
|
|
|
280 fcb $63 c
|
|
|
281 fcb $6F o
|
|
|
282 fcb $64 d
|
|
|
283 fcb $65 e
|
|
|
284 fcb $20
|
|
|
285 fcb $66 f
|
|
|
286 fcb $69 i
|
|
|
287 fcb $6C l
|
|
|
288 fcb $65 e
|
|
|
289 fcb $20
|
|
|
290 fcb $68 h
|
|
|
291 fcb $61 a
|
|
|
292 fcb $73 s
|
|
|
293 fcb $20
|
|
|
294 fcb $62 b
|
|
|
295 fcb $65 e
|
|
|
296 fcb $65 e
|
|
|
297 fcb $6E n
|
|
|
298 fcb $20
|
|
|
299 fcb $61 a
|
|
|
300 fcb $6C l
|
|
|
301 fcb $74 t
|
|
|
302 fcb $65 e
|
|
|
303 fcb $72 r
|
|
|
304 fcb $65 e
|
|
|
305 fcb $64 d
|
|
|
306 fcb $20
|
|
|
307 fcb $6F o
|
|
|
308 fcb $72 r
|
|
|
309 fcb $20
|
|
|
310 fcb $68 h
|
|
|
311 fcb $61 a
|
|
|
312 fcb $73 s
|
|
|
313 fcb $20
|
|
|
314 fcb $69 i
|
|
|
315 fcb $6E n
|
|
|
316 fcb $76 v
|
|
|
317 fcb $61 a
|
|
|
318 fcb $6C l
|
|
|
319 fcb $69 i
|
|
|
320 fcb $64 d
|
|
|
321 fcb $20
|
|
|
322 fcb $66 f
|
|
|
323 fcb $6F o
|
|
|
324 fcb $72 r
|
|
|
325 fcb $6D m
|
|
|
326 fcb $61 a
|
|
|
327 fcb $74 t
|
|
|
328 fcb $2E .
|
|
|
329 L0116 fcb $31 1
|
|
|
330 fcb $64 d
|
|
|
331 L0118 fcb $2A *
|
|
|
332 fcb $45 E
|
|
|
333 fcb $52 R
|
|
|
334 fcb $52 R
|
|
|
335 fcb $4F O
|
|
|
336 fcb $52 R
|
|
|
337 fcb $20
|
|
|
338 fcb $50 P
|
|
|
339 fcb $63 c
|
|
|
340 fcb $6F o
|
|
|
341 fcb $64 d
|
|
|
342 fcb $65 e
|
|
|
343 fcb $20
|
|
|
344 fcb $66 f
|
|
|
345 fcb $69 i
|
|
|
346 fcb $6C l
|
|
|
347 fcb $65 e
|
|
|
348 fcb $20
|
|
|
349 fcb $77 w
|
|
|
350 fcb $61 a
|
|
|
351 fcb $73 s
|
|
|
352 fcb $20
|
|
|
353 fcb $70 p
|
|
|
354 fcb $72 r
|
|
|
355 fcb $6F o
|
|
|
356 fcb $64 d
|
|
|
357 fcb $75 u
|
|
|
358 fcb $63 c
|
|
|
359 fcb $65 e
|
|
|
360 fcb $64 d
|
|
|
361 fcb $20
|
|
|
362 fcb $62 b
|
|
|
363 fcb $79 y
|
|
|
364 fcb $20
|
|
|
365 fcb $74 t
|
|
|
366 fcb $68 h
|
|
|
367 fcb $65 e
|
|
|
368 fcb $20
|
|
|
369 fcb $77 w
|
|
|
370 fcb $72 r
|
|
|
371 fcb $6F o
|
|
|
372 fcb $6E n
|
|
|
373 fcb $67 g
|
|
|
374 fcb $20
|
|
|
375 fcb $73 s
|
|
|
376 fcb $65 e
|
|
|
377 fcb $72 r
|
|
|
378 fcb $69 i
|
|
|
379 fcb $65 e
|
|
|
380 fcb $73 s
|
|
|
381 fcb $20
|
|
|
382 fcb $6F o
|
|
|
383 fcb $66 f
|
|
|
384 fcb $20
|
|
|
385 fcb $63 c
|
|
|
386 fcb $6F o
|
|
|
387 fcb $6D m
|
|
|
388 fcb $70 p
|
|
|
389 fcb $69 i
|
|
|
390 fcb $6C l
|
|
|
391 fcb $65 e
|
|
|
392 fcb $72 r
|
|
|
393 fcb $2E .
|
|
|
394 L0157 fcb $2A *
|
|
|
395 fcb $45 E
|
|
|
396 fcb $52 R
|
|
|
397 fcb $52 R
|
|
|
398 fcb $4F O
|
|
|
399 fcb $52 R
|
|
|
400 fcb $20
|
|
|
401 fcb $50 P
|
|
|
402 fcb $63 c
|
|
|
403 fcb $6F o
|
|
|
404 fcb $64 d
|
|
|
405 fcb $65 e
|
|
|
406 fcb $20
|
|
|
407 fcb $66 f
|
|
|
408 fcb $69 i
|
|
|
409 fcb $6C l
|
|
|
410 fcb $65 e
|
|
|
411 fcb $20
|
|
|
412 fcb $68 h
|
|
|
413 fcb $61 a
|
|
|
414 fcb $73 s
|
|
|
415 fcb $20
|
|
|
416 L016D fcb $20
|
|
|
417 fcb $63 c
|
|
|
418 fcb $6F o
|
|
|
419 fcb $6D m
|
|
|
420 fcb $70 p
|
|
|
421 fcb $69 i
|
|
|
422 fcb $6C l
|
|
|
423 fcb $65 e
|
|
|
424 fcb $20
|
|
|
425 fcb $74 t
|
|
|
426 fcb $69 i
|
|
|
427 fcb $6D m
|
|
|
428 fcb $65 e
|
|
|
429 fcb $20
|
|
|
430 fcb $65 e
|
|
|
431 fcb $72 r
|
|
|
432 fcb $72 r
|
|
|
433 fcb $6F o
|
|
|
434 fcb $72 r
|
|
|
435 fcb $73 s
|
|
|
436 fcb $2C ,
|
|
|
437 fcb $20
|
|
|
438 fcb $69 i
|
|
|
439 fcb $74 t
|
|
|
440 fcb $20
|
|
|
441 fcb $63 c
|
|
|
442 fcb $61 a
|
|
|
443 fcb $6E n
|
|
|
444 fcb $6E n
|
|
|
445 fcb $6F o
|
|
|
446 fcb $74 t
|
|
|
447 fcb $20
|
|
|
448 fcb $62 b
|
|
|
449 fcb $65 e
|
|
|
450 fcb $20
|
|
|
451 fcb $70 p
|
|
|
452 fcb $72 r
|
|
|
453 fcb $6F o
|
|
|
454 fcb $63 c
|
|
|
455 fcb $65 e
|
|
|
456 fcb $73 s
|
|
|
457 fcb $73 s
|
|
|
458 fcb $65 e
|
|
|
459 fcb $64 d
|
|
|
460 fcb $2E .
|
|
|
461 L019A fcb $2A *
|
|
|
462 fcb $45 E
|
|
|
463 fcb $52 R
|
|
|
464 fcb $52 R
|
|
|
465 fcb $4F O
|
|
|
466 fcb $52 R
|
|
|
467 fcb $20
|
|
|
468 fcb $50 P
|
|
|
469 fcb $63 c
|
|
|
470 fcb $6F o
|
|
|
471 fcb $64 d
|
|
|
472 fcb $65 e
|
|
|
473 fcb $20
|
|
|
474 fcb $66 f
|
|
|
475 fcb $69 i
|
|
|
476 fcb $6C l
|
|
|
477 fcb $65 e
|
|
|
478 fcb $20
|
|
|
479 fcb $68 h
|
|
|
480 fcb $61 a
|
|
|
481 fcb $73 s
|
|
|
482 fcb $20
|
|
|
483 fcb $6E n
|
|
|
484 fcb $6F o
|
|
|
485 fcb $20
|
|
|
486 fcb $65 e
|
|
|
487 fcb $78 x
|
|
|
488 fcb $74 t
|
|
|
489 fcb $65 e
|
|
|
490 fcb $72 r
|
|
|
491 fcb $6E n
|
|
|
492 fcb $61 a
|
|
|
493 fcb $6C l
|
|
|
494 fcb $20
|
|
|
495 fcb $72 r
|
|
|
496 fcb $6F o
|
|
|
497 fcb $75 u
|
|
|
498 fcb $74 t
|
|
|
499 fcb $69 i
|
|
|
500 fcb $6E n
|
|
|
501 fcb $65 e
|
|
|
502 fcb $73 s
|
|
|
503 fcb $2E .
|
|
|
504 L01C5 fcb $54 T
|
|
|
505 fcb $68 h
|
|
|
506 fcb $65 e
|
|
|
507 fcb $20
|
|
|
508 fcb $66 f
|
|
|
509 fcb $6F o
|
|
|
510 fcb $6C l
|
|
|
511 fcb $6C l
|
|
|
512 fcb $6F o
|
|
|
513 fcb $77 w
|
|
|
514 fcb $69 i
|
|
|
515 fcb $6E n
|
|
|
516 fcb $67 g
|
|
|
517 fcb $20
|
|
|
518 fcb $70 p
|
|
|
519 fcb $72 r
|
|
|
520 fcb $6F o
|
|
|
521 fcb $63 c
|
|
|
522 fcb $65 e
|
|
|
523 fcb $64 d
|
|
|
524 fcb $75 u
|
|
|
525 fcb $72 r
|
|
|
526 fcb $65 e
|
|
|
527 fcb $73 s
|
|
|
528 fcb $20
|
|
|
529 fcb $77 w
|
|
|
530 fcb $65 e
|
|
|
531 fcb $72 r
|
|
|
532 fcb $65 e
|
|
|
533 fcb $20
|
|
|
534 fcb $6E n
|
|
|
535 fcb $6F o
|
|
|
536 fcb $74 t
|
|
|
537 fcb $20
|
|
|
538 fcb $75 u
|
|
|
539 fcb $70 p
|
|
|
540 fcb $64 d
|
|
|
541 fcb $61 a
|
|
|
542 fcb $74 t
|
|
|
543 fcb $65 e
|
|
|
544 fcb $64 d
|
|
|
545 fcb $3A :
|
|
|
546 L01EF fcb $50 P
|
|
|
547 fcb $52 R
|
|
|
548 fcb $4F O
|
|
|
549 fcb $43 C
|
|
|
550 fcb $4E N
|
|
|
551 fcb $41 A
|
|
|
552 fcb $4D M
|
|
|
553 fcb $45 E
|
|
|
554 fcb $20
|
|
|
555 fcb $20
|
|
|
556 fcb $50 P
|
|
|
557 fcb $52 R
|
|
|
558 fcb $4F O
|
|
|
559 fcb $43 C
|
|
|
560 fcb $23 #
|
|
|
561 fcb $20
|
|
|
562 fcb $20
|
|
|
563 fcb $4D M
|
|
|
564 fcb $54 T
|
|
|
565 fcb $59 Y
|
|
|
566 fcb $50 P
|
|
|
567 fcb $45 E
|
|
|
568 L0205 fcb $2D -
|
|
|
569 fcb $2D -
|
|
|
570 fcb $2D -
|
|
|
571 fcb $2D -
|
|
|
572 fcb $2D -
|
|
|
573 fcb $2D -
|
|
|
574 fcb $2D -
|
|
|
575 fcb $2D -
|
|
|
576 fcb $20
|
|
|
577 fcb $20
|
|
|
578 fcb $2D -
|
|
|
579 fcb $2D -
|
|
|
580 fcb $2D -
|
|
|
581 fcb $2D -
|
|
|
582 fcb $2D -
|
|
|
583 fcb $20
|
|
|
584 fcb $20
|
|
|
585 fcb $2D -
|
|
|
586 fcb $2D -
|
|
|
587 fcb $2D -
|
|
|
588 fcb $2D -
|
|
|
589 fcb $2D -
|
|
|
590 L021B fcb $53 S
|
|
|
591 fcb $55 U
|
|
|
592 fcb $50 P
|
|
|
593 fcb $50 P
|
|
|
594 fcb $4F O
|
|
|
595 fcb $52 R
|
|
|
596 fcb $D4 T
|
|
|
597 start equ *
|
|
|
598 sty <u0000
|
|
|
599 stx <u004E
|
|
|
600 leax -$01,y
|
|
|
601 stx <u0050
|
|
|
602 stu <u0002
|
|
|
603 leax >L0758,pcr
|
|
|
604 stx <u0008
|
|
|
605 leax >L0768,pcr
|
|
|
606 stx <u001A
|
|
|
607 leax <L021B,pcr
|
|
|
608 lda #$21
|
|
|
609 os9 F$Link
|
|
|
610 bcc L024F
|
|
|
611 cmpb #$DD
|
|
|
612 bne L024C
|
|
|
613 os9 F$Load
|
|
|
614 bcc L024F
|
|
|
615 L024C os9 F$Exit
|
|
|
616 L024F sty <u0004
|
|
|
617 stu <u0006
|
|
|
618 clra
|
|
|
619 clrb
|
|
|
620 stb <u002E
|
|
|
621 stb <u0040
|
|
|
622 std <u0016
|
|
|
623 stb <u0022
|
|
|
624 ldd #$01F4
|
|
|
625 std <u0046
|
|
|
626 ldx <u0004
|
|
|
627 jsr <-$1E,x
|
|
|
628 ldd <u0002
|
|
|
629 addd #$01DF
|
|
|
630 std <u0018
|
|
|
631 ldd #$0093
|
|
|
632 std <u0044
|
|
|
633 ldd #$0BB8
|
|
|
634 std <u0042
|
|
|
635 clra
|
|
|
636 clrb
|
|
|
637 std <u0048
|
|
|
638 ldx <u0004
|
|
|
639 jsr <-$39,x
|
|
|
640 leax >-$01A3,s
|
|
|
641 pshs x
|
|
|
642 ldd #$0014
|
|
|
643 ldx <u0004
|
|
|
644 jsr <-$2A,x
|
|
|
645 ldd #$0100
|
|
|
646 std >-u019B,u
|
|
|
647 clr >-u0190,u
|
|
|
648 ldd #$0000
|
|
|
649 std >-u0195,u
|
|
|
650 ldd #$0000
|
|
|
651 std -$06,y
|
|
|
652 L02A7 ldd $06,y
|
|
|
653 addd -$06,y
|
|
|
654 pshs b,a
|
|
|
655 ldb [,s++]
|
|
|
656 subb #$20
|
|
|
657 beq L02B7
|
|
|
658 ldb #$01
|
|
|
659 bra L02B8
|
|
|
660 L02B7 clrb
|
|
|
661 L02B8 pshs b
|
|
|
662 ldd -$06,y
|
|
|
663 subd #$004F
|
|
|
664 bge L02C5
|
|
|
665 ldb #$01
|
|
|
666 bra L02C6
|
|
|
667 L02C5 clrb
|
|
|
668 L02C6 andb ,s+
|
|
|
669 lsrb
|
|
|
670 lbcc L02D7
|
|
|
671 ldd -$06,y
|
|
|
672 addd #$0001
|
|
|
673 std -$06,y
|
|
|
674 lbra L02A7
|
|
|
675 L02D7 ldd -$06,y
|
|
|
676 subd #$0000
|
|
|
677 lbne L0325
|
|
|
678 leax >L0015,pcr
|
|
|
679 pshs x
|
|
|
680 ldd #$003D
|
|
|
681 pshs b,a
|
|
|
682 pshs b,a
|
|
|
683 ldd $02,y
|
|
|
684 pshs b,a
|
|
|
685 ldx <u0004
|
|
|
686 jsr -$03,x
|
|
|
687 ldd $02,y
|
|
|
688 pshs b,a
|
|
|
689 ldx ,s
|
|
|
690 clr $0D,x
|
|
|
691 ldx <u0004
|
|
|
692 jsr -$09,x
|
|
|
693 leax >L0052,pcr
|
|
|
694 pshs x
|
|
|
695 ldd #$0041
|
|
|
696 pshs b,a
|
|
|
697 pshs b,a
|
|
|
698 ldd $02,y
|
|
|
699 pshs b,a
|
|
|
700 ldx <u0004
|
|
|
701 jsr -$03,x
|
|
|
702 ldd $02,y
|
|
|
703 pshs b,a
|
|
|
704 ldx ,s
|
|
|
705 clr $0D,x
|
|
|
706 ldx <u0004
|
|
|
707 jsr -$09,x
|
|
|
708 lbra L074D
|
|
|
709 L0325 ldd -$06,y
|
|
|
710 subd #$004F
|
|
|
711 bne L0330
|
|
|
712 ldb #$01
|
|
|
713 bra L0331
|
|
|
714 L0330 clrb
|
|
|
715 L0331 pshs b
|
|
|
716 ldd $06,y
|
|
|
717 addd -$06,y
|
|
|
718 pshs b,a
|
|
|
719 ldb [,s++]
|
|
|
720 subb #$20
|
|
|
721 beq L0343
|
|
|
722 ldb #$01
|
|
|
723 bra L0344
|
|
|
724 L0343 clrb
|
|
|
725 L0344 andb ,s+
|
|
|
726 lsrb
|
|
|
727 lbcc L0353
|
|
|
728 ldd #$0050
|
|
|
729 std -$04,y
|
|
|
730 lbra L0357
|
|
|
731 L0353 ldd -$06,y
|
|
|
732 std -$04,y
|
|
|
733 L0357 leax >-$019F,y
|
|
|
734 pshs x
|
|
|
735 ldb #$00
|
|
|
736 pshs b
|
|
|
737 ldx <u0004
|
|
|
738 jsr <-$18,x
|
|
|
739 leax >-$019F,y
|
|
|
740 pshs x
|
|
|
741 ldd $06,y
|
|
|
742 pshs b,a
|
|
|
743 leax >L0093,pcr
|
|
|
744 pshs x
|
|
|
745 ldx <u0004
|
|
|
746 jsr <-$54,x
|
|
|
747 leas -$02,s
|
|
|
748 leax >-$019F,y
|
|
|
749 pshs x
|
|
|
750 ldx <u0004
|
|
|
751 jsr <-$12,x
|
|
|
752 puls b,a
|
|
|
753 std -$06,y
|
|
|
754 leax >-$019F,y
|
|
|
755 pshs x
|
|
|
756 ldb #$01
|
|
|
757 pshs b
|
|
|
758 ldx <u0004
|
|
|
759 jsr <-$18,x
|
|
|
760 ldd -$06,y
|
|
|
761 subd #$0000
|
|
|
762 lbeq L0403
|
|
|
763 leax >L009C,pcr
|
|
|
764 pshs x
|
|
|
765 ldd #$0012
|
|
|
766 pshs b,a
|
|
|
767 pshs b,a
|
|
|
768 ldd $02,y
|
|
|
769 pshs b,a
|
|
|
770 ldx <u0004
|
|
|
771 jsr -$03,x
|
|
|
772 ldd -$06,y
|
|
|
773 pshs b,a
|
|
|
774 ldd #$0001
|
|
|
775 pshs b,a
|
|
|
776 ldd $02,y
|
|
|
777 pshs b,a
|
|
|
778 ldx <u0004
|
|
|
779 jsr ,x
|
|
|
780 leax >L00AE,pcr
|
|
|
781 pshs x
|
|
|
782 ldd #$0026
|
|
|
783 pshs b,a
|
|
|
784 pshs b,a
|
|
|
785 ldd $02,y
|
|
|
786 pshs b,a
|
|
|
787 ldx <u0004
|
|
|
788 jsr -$03,x
|
|
|
789 ldd $06,y
|
|
|
790 pshs b,a
|
|
|
791 ldd -$04,y
|
|
|
792 pshs b,a
|
|
|
793 ldd #$0050
|
|
|
794 pshs b,a
|
|
|
795 ldd $02,y
|
|
|
796 pshs b,a
|
|
|
797 ldx <u0004
|
|
|
798 jsr -$03,x
|
|
|
799 ldd $02,y
|
|
|
800 pshs b,a
|
|
|
801 ldx ,s
|
|
|
802 clr $0D,x
|
|
|
803 ldx <u0004
|
|
|
804 jsr -$09,x
|
|
|
805 lbra L074D
|
|
|
806 L0403 leax >-$019F,y
|
|
|
807 pshs x
|
|
|
808 ldd #$0000
|
|
|
809 pshs b,a
|
|
|
810 leax >L00D4,pcr
|
|
|
811 pshs x
|
|
|
812 ldx <u0004
|
|
|
813 jsr <-$21,x
|
|
|
814 leax >-$019F,y
|
|
|
815 pshs x
|
|
|
816 ldd #$0000
|
|
|
817 pshs b,a
|
|
|
818 ldx <u0004
|
|
|
819 jsr <$12,x
|
|
|
820 ldx <u0004
|
|
|
821 jsr <-$24,x
|
|
|
822 leax >-$019F,y
|
|
|
823 pshs x
|
|
|
824 ldx <u0004
|
|
|
825 jsr -$06,x
|
|
|
826 ldd #$0000
|
|
|
827 std -$02,y
|
|
|
828 ldd #$0000
|
|
|
829 std -$06,y
|
|
|
830 ldd #$00FF
|
|
|
831 std >-$01A1,y
|
|
|
832 ldd -$06,y
|
|
|
833 subd >-$01A1,y
|
|
|
834 lbgt L0481
|
|
|
835 L0453 ldd -$02,y
|
|
|
836 pshs b,a
|
|
|
837 leax >-$018F,y
|
|
|
838 ldd -$06,y
|
|
|
839 ldb d,x
|
|
|
840 clra
|
|
|
841 addd ,s++
|
|
|
842 pshs b,a
|
|
|
843 ldd #$00FF
|
|
|
844 anda ,s+
|
|
|
845 andb ,s+
|
|
|
846 std -$02,y
|
|
|
847 ldd -$06,y
|
|
|
848 subd >-$01A1,y
|
|
|
849 lbge L0481
|
|
|
850 ldd -$06,y
|
|
|
851 addd #$0001
|
|
|
852 std -$06,y
|
|
|
853 lbra L0453
|
|
|
854 L0481 ldd -$02,y
|
|
|
855 subd #$0000
|
|
|
856 lbeq L04AE
|
|
|
857 leax >L00DD,pcr
|
|
|
858 pshs x
|
|
|
859 ldd #$0039
|
|
|
860 pshs b,a
|
|
|
861 pshs b,a
|
|
|
862 ldd $02,y
|
|
|
863 pshs b,a
|
|
|
864 ldx <u0004
|
|
|
865 jsr -$03,x
|
|
|
866 ldd $02,y
|
|
|
867 pshs b,a
|
|
|
868 ldx ,s
|
|
|
869 clr $0D,x
|
|
|
870 ldx <u0004
|
|
|
871 jsr -$09,x
|
|
|
872 lbra L074D
|
|
|
873 L04AE leax >-$0173,y
|
|
|
874 pshs x
|
|
|
875 leax >L0116,pcr
|
|
|
876 ldd ,x
|
|
|
877 subd [,s++]
|
|
|
878 lbeq L04E4
|
|
|
879 leax >L0118,pcr
|
|
|
880 pshs x
|
|
|
881 ldd #$003F
|
|
|
882 pshs b,a
|
|
|
883 pshs b,a
|
|
|
884 ldd $02,y
|
|
|
885 pshs b,a
|
|
|
886 ldx <u0004
|
|
|
887 jsr -$03,x
|
|
|
888 ldd $02,y
|
|
|
889 pshs b,a
|
|
|
890 ldx ,s
|
|
|
891 clr $0D,x
|
|
|
892 ldx <u0004
|
|
|
893 jsr -$09,x
|
|
|
894 lbra L074D
|
|
|
895 L04E4 ldd >-$016B,y
|
|
|
896 subd #$0000
|
|
|
897 lbeq L053B
|
|
|
898 leax >L0157,pcr
|
|
|
899 pshs x
|
|
|
900 ldd #$0016
|
|
|
901 pshs b,a
|
|
|
902 pshs b,a
|
|
|
903 ldd $02,y
|
|
|
904 pshs b,a
|
|
|
905 ldx <u0004
|
|
|
906 jsr -$03,x
|
|
|
907 ldd >-$016B,y
|
|
|
908 pshs b,a
|
|
|
909 ldd #$0001
|
|
|
910 pshs b,a
|
|
|
911 ldd $02,y
|
|
|
912 pshs b,a
|
|
|
913 ldx <u0004
|
|
|
914 jsr ,x
|
|
|
915 leax >L016D,pcr
|
|
|
916 pshs x
|
|
|
917 ldd #$002D
|
|
|
918 pshs b,a
|
|
|
919 pshs b,a
|
|
|
920 ldd $02,y
|
|
|
921 pshs b,a
|
|
|
922 ldx <u0004
|
|
|
923 jsr -$03,x
|
|
|
924 ldd $02,y
|
|
|
925 pshs b,a
|
|
|
926 ldx ,s
|
|
|
927 clr $0D,x
|
|
|
928 ldx <u0004
|
|
|
929 jsr -$09,x
|
|
|
930 lbra L074D
|
|
|
931 L053B ldd >-$015F,y
|
|
|
932 subd #$0000
|
|
|
933 lbne L056A
|
|
|
934 leax >L019A,pcr
|
|
|
935 pshs x
|
|
|
936 ldd #$002B
|
|
|
937 pshs b,a
|
|
|
938 pshs b,a
|
|
|
939 ldd $02,y
|
|
|
940 pshs b,a
|
|
|
941 ldx <u0004
|
|
|
942 jsr -$03,x
|
|
|
943 ldd $02,y
|
|
|
944 pshs b,a
|
|
|
945 ldx ,s
|
|
|
946 clr $0D,x
|
|
|
947 ldx <u0004
|
|
|
948 jsr -$09,x
|
|
|
949 lbra L074D
|
|
|
950 L056A ldd #$0000
|
|
|
951 std -$0A,y
|
|
|
952 ldd >-$016F,y
|
|
|
953 std -$0C,y
|
|
|
954 ldd >-$0161,y
|
|
|
955 std -$0E,y
|
|
|
956 ldd #$0000
|
|
|
957 std -$06,y
|
|
|
958 ldd >-$015F,y
|
|
|
959 subd #$0001
|
|
|
960 std >-$01A1,y
|
|
|
961 ldd -$06,y
|
|
|
962 subd >-$01A1,y
|
|
|
963 lbgt L065F
|
|
|
964 L0595 leax >-$019F,y
|
|
|
965 pshs x
|
|
|
966 ldd -$0E,y
|
|
|
967 pshs b,a
|
|
|
968 ldd -$06,y
|
|
|
969 pshs b,a
|
|
|
970 ldd #$0002
|
|
|
971 pshs b,a
|
|
|
972 ldx <u0004
|
|
|
973 jsr -$0C,x
|
|
|
974 puls b,a
|
|
|
975 addd ,s++
|
|
|
976 pshs b,a
|
|
|
977 ldx <u0004
|
|
|
978 jsr <$12,x
|
|
|
979 ldx <u0004
|
|
|
980 jsr <-$24,x
|
|
|
981 leax >-$019F,y
|
|
|
982 pshs x
|
|
|
983 ldx <u0004
|
|
|
984 jsr -$06,x
|
|
|
985 leax -$08,y
|
|
|
986 pshs x
|
|
|
987 ldd #$000D
|
|
|
988 pshs b,a
|
|
|
989 ldx <u0004
|
|
|
990 jsr <-$4B,x
|
|
|
991 leax >-$018F,y
|
|
|
992 pshs x
|
|
|
993 ldd -$06,y
|
|
|
994 pshs b,a
|
|
|
995 ldd #$0001
|
|
|
996 anda ,s+
|
|
|
997 andb ,s+
|
|
|
998 lslb
|
|
|
999 rola
|
|
|
1000 lslb
|
|
|
1001 rola
|
|
|
1002 lslb
|
|
|
1003 rola
|
|
|
1004 lslb
|
|
|
1005 rola
|
|
|
1006 lslb
|
|
|
1007 rola
|
|
|
1008 lslb
|
|
|
1009 rola
|
|
|
1010 lslb
|
|
|
1011 rola
|
|
|
1012 addd ,s++
|
|
|
1013 std >-u01A3,u
|
|
|
1014 ldd -$08,y
|
|
|
1015 pshs b,a
|
|
|
1016 ldd >-$01A3,y
|
|
|
1017 addd #$0004
|
|
|
1018 pshs b,a
|
|
|
1019 sty <u000E
|
|
|
1020 stu <u0010
|
|
|
1021 puls u,y
|
|
|
1022 ldx #$0008
|
|
|
1023 L0610 ldd ,y++
|
|
|
1024 std ,u++
|
|
|
1025 leax -$02,x
|
|
|
1026 bne L0610
|
|
|
1027 ldu <u0010
|
|
|
1028 ldy <u000E
|
|
|
1029 ldd -$08,y
|
|
|
1030 addd #$0008
|
|
|
1031 pshs b,a
|
|
|
1032 ldx >-$01A3,y
|
|
|
1033 ldb $02,x
|
|
|
1034 stb [,s++]
|
|
|
1035 ldd -$08,y
|
|
|
1036 addd #$0009
|
|
|
1037 pshs b,a
|
|
|
1038 ldx >-$01A3,y
|
|
|
1039 ldb $03,x
|
|
|
1040 stb [,s++]
|
|
|
1041 ldx -$08,y
|
|
|
1042 ldb #$01
|
|
|
1043 stb $0A,x
|
|
|
1044 ldx -$08,y
|
|
|
1045 ldd -$0A,y
|
|
|
1046 std $0B,x
|
|
|
1047 ldd -$08,y
|
|
|
1048 std -$0A,y
|
|
|
1049 ldd -$06,y
|
|
|
1050 subd >-$01A1,y
|
|
|
1051 lbge L065F
|
|
|
1052 ldd -$06,y
|
|
|
1053 addd #$0001
|
|
|
1054 std -$06,y
|
|
|
1055 lbra L0595
|
|
|
1056 L065F clr -$0F,y
|
|
|
1057 ldd ,y
|
|
|
1058 pshs b,a
|
|
|
1059 ldd #$0000
|
|
|
1060 pshs b,a
|
|
|
1061 pshs u
|
|
|
1062 lbsr L0E40
|
|
|
1063 ldb -$0F,y
|
|
|
1064 eorb #$01
|
|
|
1065 lsrb
|
|
|
1066 lbcc L074D
|
|
|
1067 leax >L01C5,pcr
|
|
|
1068 pshs x
|
|
|
1069 ldd #$002A
|
|
|
1070 pshs b,a
|
|
|
1071 pshs b,a
|
|
|
1072 ldd $02,y
|
|
|
1073 pshs b,a
|
|
|
1074 ldx <u0004
|
|
|
1075 jsr -$03,x
|
|
|
1076 ldd $02,y
|
|
|
1077 pshs b,a
|
|
|
1078 ldx ,s
|
|
|
1079 clr $0D,x
|
|
|
1080 ldx <u0004
|
|
|
1081 jsr -$09,x
|
|
|
1082 ldd $02,y
|
|
|
1083 pshs b,a
|
|
|
1084 ldx ,s
|
|
|
1085 clr $0D,x
|
|
|
1086 ldx <u0004
|
|
|
1087 jsr -$09,x
|
|
|
1088 leax >L01EF,pcr
|
|
|
1089 pshs x
|
|
|
1090 ldd #$0016
|
|
|
1091 pshs b,a
|
|
|
1092 pshs b,a
|
|
|
1093 ldd $02,y
|
|
|
1094 pshs b,a
|
|
|
1095 ldx <u0004
|
|
|
1096 jsr -$03,x
|
|
|
1097 ldd $02,y
|
|
|
1098 pshs b,a
|
|
|
1099 ldx ,s
|
|
|
1100 clr $0D,x
|
|
|
1101 ldx <u0004
|
|
|
1102 jsr -$09,x
|
|
|
1103 leax >L0205,pcr
|
|
|
1104 pshs x
|
|
|
1105 ldd #$0016
|
|
|
1106 pshs b,a
|
|
|
1107 pshs b,a
|
|
|
1108 ldd $02,y
|
|
|
1109 pshs b,a
|
|
|
1110 ldx <u0004
|
|
|
1111 jsr -$03,x
|
|
|
1112 ldd $02,y
|
|
|
1113 pshs b,a
|
|
|
1114 ldx ,s
|
|
|
1115 clr $0D,x
|
|
|
1116 ldx <u0004
|
|
|
1117 jsr -$09,x
|
|
|
1118 ldd -$0A,y
|
|
|
1119 std -$08,y
|
|
|
1120 L06EB ldd -$08,y
|
|
|
1121 subd #$0000
|
|
|
1122 lbeq L074D
|
|
|
1123 ldx -$08,y
|
|
|
1124 ldb $0A,x
|
|
|
1125 lsrb
|
|
|
1126 lbcc L0744
|
|
|
1127 ldd -$08,y
|
|
|
1128 pshs b,a
|
|
|
1129 ldd #$0008
|
|
|
1130 pshs b,a
|
|
|
1131 pshs b,a
|
|
|
1132 ldd $02,y
|
|
|
1133 pshs b,a
|
|
|
1134 ldx <u0004
|
|
|
1135 jsr -$03,x
|
|
|
1136 ldx -$08,y
|
|
|
1137 ldb $09,x
|
|
|
1138 clra
|
|
|
1139 pshs b,a
|
|
|
1140 ldd #$0007
|
|
|
1141 pshs b,a
|
|
|
1142 ldd $02,y
|
|
|
1143 pshs b,a
|
|
|
1144 ldx <u0004
|
|
|
1145 jsr ,x
|
|
|
1146 ldx -$08,y
|
|
|
1147 ldb $08,x
|
|
|
1148 clra
|
|
|
1149 pshs b,a
|
|
|
1150 ldd #$0007
|
|
|
1151 pshs b,a
|
|
|
1152 ldd $02,y
|
|
|
1153 pshs b,a
|
|
|
1154 ldx <u0004
|
|
|
1155 jsr ,x
|
|
|
1156 ldd $02,y
|
|
|
1157 pshs b,a
|
|
|
1158 ldx ,s
|
|
|
1159 clr $0D,x
|
|
|
1160 ldx <u0004
|
|
|
1161 jsr -$09,x
|
|
|
1162 L0744 ldx -$08,y
|
|
|
1163 ldd $0B,x
|
|
|
1164 std -$08,y
|
|
|
1165 lbra L06EB
|
|
|
1166 L074D leax >-u019F,u
|
|
|
1167 pshs x
|
|
|
1168 ldx <u0004
|
|
|
1169 jsr <-$3F,x
|
|
|
1170 L0758 ldx <u0004
|
|
|
1171 jsr <-$36,x
|
|
|
1172 ldu <u0006
|
|
|
1173 os9 F$UnLink
|
|
|
1174 bcs L0765
|
|
|
1175 clrb
|
|
|
1176 L0765 os9 F$Exit
|
|
|
1177 L0768 ldd #$0076
|
|
|
1178 ldx <u0004
|
|
|
1179 jsr <-$3C,x
|
|
|
1180 L0770 lda <u0020
|
|
|
1181 ldb #$01
|
|
|
1182 stb <u0020
|
|
|
1183 pshs a
|
|
|
1184 pshs u
|
|
|
1185 leau ,s
|
|
|
1186 leax -$02,s
|
|
|
1187 pshs x
|
|
|
1188 ldd #$0029
|
|
|
1189 ldx <u0004
|
|
|
1190 jsr <-$2A,x
|
|
|
1191 leax >-$008F,y
|
|
|
1192 ldd [<u000B,u]
|
|
|
1193 ldb d,x
|
|
|
1194 subb #$2C
|
|
|
1195 lbeq L079A
|
|
|
1196 lbra L0882
|
|
|
1197 L079A ldd u000B,u
|
|
|
1198 pshs b,a
|
|
|
1199 pshs b,a
|
|
|
1200 ldd [,s++]
|
|
|
1201 addd #$0001
|
|
|
1202 std [,s++]
|
|
|
1203 ldd [<u000B,u]
|
|
|
1204 subd u0009,u
|
|
|
1205 lbne L07B3
|
|
|
1206 lbra L0882
|
|
|
1207 L07B3 ldd #$0000
|
|
|
1208 std [<u0007,u]
|
|
|
1209 leax >-$008F,y
|
|
|
1210 ldd [<u000B,u]
|
|
|
1211 ldb d,x
|
|
|
1212 clra
|
|
|
1213 pshs b,a
|
|
|
1214 ldd #$0000
|
|
|
1215 pshs b,a
|
|
|
1216 pshs b,a
|
|
|
1217 pshs b,a
|
|
|
1218 ldd #$03FF
|
|
|
1219 pshs b,a
|
|
|
1220 ldb #$18
|
|
|
1221 L07D5 clr ,-s
|
|
|
1222 decb
|
|
|
1223 bne L07D5
|
|
|
1224 lbsr L1270
|
|
|
1225 eorb #$01
|
|
|
1226 lsrb
|
|
|
1227 lbcc L07E7
|
|
|
1228 lbra L0882
|
|
|
1229 L07E7 leax >-$008F,y
|
|
|
1230 ldd [<u000B,u]
|
|
|
1231 ldb d,x
|
|
|
1232 clra
|
|
|
1233 pshs b,a
|
|
|
1234 ldd #$0000
|
|
|
1235 pshs b,a
|
|
|
1236 pshs b,a
|
|
|
1237 pshs b,a
|
|
|
1238 ldd #$03FF
|
|
|
1239 pshs b,a
|
|
|
1240 ldb #$18
|
|
|
1241 L0803 clr ,-s
|
|
|
1242 decb
|
|
|
1243 bne L0803
|
|
|
1244 lbsr L1270
|
|
|
1245 pshs b
|
|
|
1246 ldd [<u000B,u]
|
|
|
1247 subd u0009,u
|
|
|
1248 bge L0818
|
|
|
1249 ldb #$01
|
|
|
1250 bra L0819
|
|
|
1251 L0818 clrb
|
|
|
1252 L0819 andb ,s+
|
|
|
1253 lsrb
|
|
|
1254 lbcc L087D
|
|
|
1255 leax >-$008F,y
|
|
|
1256 ldd [<u000B,u]
|
|
|
1257 ldb d,x
|
|
|
1258 clra
|
|
|
1259 subd #$0030
|
|
|
1260 std -u0002,u
|
|
|
1261 ldd [<u0007,u]
|
|
|
1262 subd #$0CCC
|
|
|
1263 bne L083B
|
|
|
1264 ldb #$01
|
|
|
1265 bra L083C
|
|
|
1266 L083B clrb
|
|
|
1267 L083C pshs b
|
|
|
1268 ldd -u0002,u
|
|
|
1269 subd #$0007
|
|
|
1270 ble L0849
|
|
|
1271 ldb #$01
|
|
|
1272 bra L084A
|
|
|
1273 L0849 clrb
|
|
|
1274 L084A andb ,s+
|
|
|
1275 lsrb
|
|
|
1276 lbcc L0854
|
|
|
1277 lbra L0882
|
|
|
1278 L0854 ldd u0007,u
|
|
|
1279 pshs b,a
|
|
|
1280 pshs b,a
|
|
|
1281 ldd [,s++]
|
|
|
1282 pshs b,a
|
|
|
1283 ldd #$000A
|
|
|
1284 pshs b,a
|
|
|
1285 ldx <u0004
|
|
|
1286 jsr -$0F,x
|
|
|
1287 ldd -u0002,u
|
|
|
1288 addd ,s++
|
|
|
1289 std [,s++]
|
|
|
1290 ldd u000B,u
|
|
|
1291 pshs b,a
|
|
|
1292 pshs b,a
|
|
|
1293 ldd [,s++]
|
|
|
1294 addd #$0001
|
|
|
1295 std [,s++]
|
|
|
1296 lbra L07E7
|
|
|
1297 L087D clr u000D,u
|
|
|
1298 lbra L0886
|
|
|
1299 L0882 ldb #$01
|
|
|
1300 stb u000D,u
|
|
|
1301 L0886 leas ,u
|
|
|
1302 puls u
|
|
|
1303 puls x,a
|
|
|
1304 sta <u0020
|
|
|
1305 leas $08,s
|
|
|
1306 jmp ,x
|
|
|
1307 L0892 bpl L08D9
|
|
|
1308 fcb $52 R
|
|
|
1309 fcb $52 R
|
|
|
1310 clra
|
|
|
1311 fcb $52 R
|
|
|
1312 bra L08E3
|
|
|
1313 jmp -$0A,s
|
|
|
1314 oim #$6C,$09,s
|
|
|
1315 lsr $00,y
|
|
|
1316 fcb $45 E
|
|
|
1317 lslb
|
|
|
1318 lsrb
|
|
|
1319 fcb $45 E
|
|
|
1320 fcb $52 R
|
|
|
1321 fcb $4E N
|
|
|
1322 fcb $41 A
|
|
|
1323 inca
|
|
|
1324 bra L090F
|
|
|
1325 eim #$66,$09,s
|
|
|
1326 jmp $09,s
|
|
|
1327 lsr >$696F
|
|
|
1328 jmp $00,y
|
|
|
1329 ror $0F,s
|
|
|
1330 aim #$6D,>$6174
|
|
|
1331 bra L092C
|
|
|
1332 jmp $00,y
|
|
|
1333 inc $09,s
|
|
|
1334 jmp $05,s
|
|
|
1335 bra L0933
|
|
|
1336 eim #$6D,>$6265
|
|
|
1337 aim #$20,>$2061
|
|
|
1338 lsr >$2055
|
|
|
1339 comb
|
|
|
1340 fcb $45 E
|
|
|
1341 bra L093A
|
|
|
1342 rol $0C,s
|
|
|
1343 eim #$20,$0E,s
|
|
|
1344 L08D9 eim #$73,-$0C,s
|
|
|
1345 rol $0E,s
|
|
|
1346 asr $00,y
|
|
|
1347 inc $05,s
|
|
|
1348 ror >$656C
|
|
|
1349 bra L0956
|
|
|
1350 ror $00,y
|
|
|
1351 L08E9 lda <u0020
|
|
|
1352 ldb #$02
|
|
|
1353 stb <u0020
|
|
|
1354 pshs a
|
|
|
1355 pshs u
|
|
|
1356 leau ,s
|
|
|
1357 leax >-$008E,s
|
|
|
1358 pshs x
|
|
|
1359 ldd #$0029
|
|
|
1360 ldx <u0004
|
|
|
1361 jsr <-$2A,x
|
|
|
1362 ldd #$0000
|
|
|
1363 std -u0006,u
|
|
|
1364 L0908 leax >-$008F,y
|
|
|
1365 ldd -u0006,u
|
|
|
1366 ldb d,x
|
|
|
1367 clra
|
|
|
1368 pshs b,a
|
|
|
1369 ldd #$0000
|
|
|
1370 pshs b,a
|
|
|
1371 pshs b,a
|
|
|
1372 pshs b,a
|
|
|
1373 ldd #$03FF
|
|
|
1374 pshs b,a
|
|
|
1375 ldd #$FFFE
|
|
|
1376 pshs b,a
|
|
|
1377 ldd #$87FF
|
|
|
1378 pshs b,a
|
|
|
1379 ldb #$14
|
|
|
1380 L092D clr ,-s
|
|
|
1381 decb
|
|
|
1382 bne L092D
|
|
|
1383 lbsr L1270
|
|
|
1384 pshs b
|
|
|
1385 ldd -u0006,u
|
|
|
1386 subd #$0008
|
|
|
1387 bge L0942
|
|
|
1388 ldb #$01
|
|
|
1389 bra L0943
|
|
|
1390 L0942 clrb
|
|
|
1391 L0943 andb ,s+
|
|
|
1392 pshs b
|
|
|
1393 ldd -u0006,u
|
|
|
1394 subd u000B,u
|
|
|
1395 bge L0951
|
|
|
1396 ldb #$01
|
|
|
1397 bra L0952
|
|
|
1398 L0951 clrb
|
|
|
1399 L0952 andb ,s+
|
|
|
1400 lsrb
|
|
|
1401 lbcc L0976
|
|
|
1402 leax <-u0018,u
|
|
|
1403 ldd -u0006,u
|
|
|
1404 leax d,x
|
|
|
1405 pshs x
|
|
|
1406 leax >-$008F,y
|
|
|
1407 ldd -u0006,u
|
|
|
1408 ldb d,x
|
|
|
1409 stb [,s++]
|
|
|
1410 ldd -u0006,u
|
|
|
1411 addd #$0001
|
|
|
1412 std -u0006,u
|
|
|
1413 lbra L0908
|
|
|
1414 L0976 ldd -u0006,u
|
|
|
1415 subd u000B,u
|
|
|
1416 lbne L0981
|
|
|
1417 lbra L0CF5
|
|
|
1418 L0981 ldd -u0006,u
|
|
|
1419 std -u0004,u
|
|
|
1420 ldd #$0007
|
|
|
1421 std >-u008E,u
|
|
|
1422 ldd -u0004,u
|
|
|
1423 subd >-u008E,u
|
|
|
1424 lbgt L09B5
|
|
|
1425 L0996 leax <-u0018,u
|
|
|
1426 ldd -u0004,u
|
|
|
1427 leax d,x
|
|
|
1428 ldb #$20
|
|
|
1429 stb ,x
|
|
|
1430 ldd -u0004,u
|
|
|
1431 subd >-u008E,u
|
|
|
1432 lbge L09B5
|
|
|
1433 ldd -u0004,u
|
|
|
1434 addd #$0001
|
|
|
1435 std -u0004,u
|
|
|
1436 lbra L0996
|
|
|
1437 L09B5 leax >-$008F,y
|
|
|
1438 ldd -u0006,u
|
|
|
1439 ldb d,x
|
|
|
1440 subb #$2C
|
|
|
1441 lbeq L09C6
|
|
|
1442 lbra L0CF5
|
|
|
1443 L09C6 ldd -u0006,u
|
|
|
1444 addd #$0001
|
|
|
1445 std -u0006,u
|
|
|
1446 ldd #$0000
|
|
|
1447 std -u0004,u
|
|
|
1448 L09D2 leax >-$008F,y
|
|
|
1449 ldd -u0006,u
|
|
|
1450 ldb d,x
|
|
|
1451 clra
|
|
|
1452 pshs b,a
|
|
|
1453 ldd #$0000
|
|
|
1454 pshs b,a
|
|
|
1455 pshs b,a
|
|
|
1456 ldd #$C000
|
|
|
1457 pshs b,a
|
|
|
1458 ldd #$03FF
|
|
|
1459 pshs b,a
|
|
|
1460 ldd #$FFFE
|
|
|
1461 pshs b,a
|
|
|
1462 ldd #$87FF
|
|
|
1463 pshs b,a
|
|
|
1464 ldb #$14
|
|
|
1465 L09FA clr ,-s
|
|
|
1466 decb
|
|
|
1467 bne L09FA
|
|
|
1468 lbsr L1270
|
|
|
1469 pshs b
|
|
|
1470 ldd -u0006,u
|
|
|
1471 subd u000B,u
|
|
|
1472 bge L0A0E
|
|
|
1473 ldb #$01
|
|
|
1474 bra L0A0F
|
|
|
1475 L0A0E clrb
|
|
|
1476 L0A0F andb ,s+
|
|
|
1477 pshs b
|
|
|
1478 ldd -u0004,u
|
|
|
1479 subd #$0074
|
|
|
1480 bge L0A1E
|
|
|
1481 ldb #$01
|
|
|
1482 bra L0A1F
|
|
|
1483 L0A1E clrb
|
|
|
1484 L0A1F andb ,s+
|
|
|
1485 lsrb
|
|
|
1486 lbcc L0A4B
|
|
|
1487 leax >-u008C,u
|
|
|
1488 ldd -u0004,u
|
|
|
1489 leax d,x
|
|
|
1490 pshs x
|
|
|
1491 leax >-$008F,y
|
|
|
1492 ldd -u0006,u
|
|
|
1493 ldb d,x
|
|
|
1494 stb [,s++]
|
|
|
1495 ldd -u0006,u
|
|
|
1496 addd #$0001
|
|
|
1497 std -u0006,u
|
|
|
1498 ldd -u0004,u
|
|
|
1499 addd #$0001
|
|
|
1500 std -u0004,u
|
|
|
1501 lbra L09D2
|
|
|
1502 L0A4B ldd -u0006,u
|
|
|
1503 subd u000B,u
|
|
|
1504 bne L0A55
|
|
|
1505 ldb #$01
|
|
|
1506 bra L0A56
|
|
|
1507 L0A55 clrb
|
|
|
1508 L0A56 pshs b
|
|
|
1509 ldd -u0004,u
|
|
|
1510 subd #$0000
|
|
|
1511 bne L0A63
|
|
|
1512 ldb #$01
|
|
|
1513 bra L0A64
|
|
|
1514 L0A63 clrb
|
|
|
1515 L0A64 orb ,s+
|
|
|
1516 lsrb
|
|
|
1517 lbcc L0A6E
|
|
|
1518 lbra L0CF5
|
|
|
1519 L0A6E ldd -u0004,u
|
|
|
1520 std -u0002,u
|
|
|
1521 ldd #$0073
|
|
|
1522 std >-u008E,u
|
|
|
1523 ldd -u0002,u
|
|
|
1524 subd >-u008E,u
|
|
|
1525 lbgt L0AA3
|
|
|
1526 L0A83 leax >-u008C,u
|
|
|
1527 ldd -u0002,u
|
|
|
1528 leax d,x
|
|
|
1529 ldb #$20
|
|
|
1530 stb ,x
|
|
|
1531 ldd -u0002,u
|
|
|
1532 subd >-u008E,u
|
|
|
1533 lbge L0AA3
|
|
|
1534 ldd -u0002,u
|
|
|
1535 addd #$0001
|
|
|
1536 std -u0002,u
|
|
|
1537 lbra L0A83
|
|
|
1538 L0AA3 leas -$01,s
|
|
|
1539 leax -u0006,u
|
|
|
1540 pshs x
|
|
|
1541 ldd u000B,u
|
|
|
1542 pshs b,a
|
|
|
1543 leax -u0002,u
|
|
|
1544 pshs x
|
|
|
1545 ldx u0005,u
|
|
|
1546 pshs x
|
|
|
1547 lbsr L0770
|
|
|
1548 lsr ,s+
|
|
|
1549 lbcc L0AC1
|
|
|
1550 lbra L0CF5
|
|
|
1551 L0AC1 ldd -u0002,u
|
|
|
1552 subd #$00FF
|
|
|
1553 lble L0ACD
|
|
|
1554 lbra L0CF5
|
|
|
1555 L0ACD ldd -u0002,u
|
|
|
1556 stb -u000F,u
|
|
|
1557 leas -$01,s
|
|
|
1558 leax -u0006,u
|
|
|
1559 pshs x
|
|
|
1560 ldd u000B,u
|
|
|
1561 pshs b,a
|
|
|
1562 leax -u000E,u
|
|
|
1563 pshs x
|
|
|
1564 ldx u0005,u
|
|
|
1565 pshs x
|
|
|
1566 lbsr L0770
|
|
|
1567 lsr ,s+
|
|
|
1568 lbcc L0AEF
|
|
|
1569 lbra L0CF5
|
|
|
1570 L0AEF leas -$01,s
|
|
|
1571 leax -u0006,u
|
|
|
1572 pshs x
|
|
|
1573 ldd u000B,u
|
|
|
1574 pshs b,a
|
|
|
1575 leax -u000C,u
|
|
|
1576 pshs x
|
|
|
1577 ldx u0005,u
|
|
|
1578 pshs x
|
|
|
1579 lbsr L0770
|
|
|
1580 lsr ,s+
|
|
|
1581 lbcc L0B0D
|
|
|
1582 lbra L0CF5
|
|
|
1583 L0B0D leas -$01,s
|
|
|
1584 leax -u0006,u
|
|
|
1585 pshs x
|
|
|
1586 ldd u000B,u
|
|
|
1587 pshs b,a
|
|
|
1588 leax -u000A,u
|
|
|
1589 pshs x
|
|
|
1590 ldx u0005,u
|
|
|
1591 pshs x
|
|
|
1592 lbsr L0770
|
|
|
1593 lsr ,s+
|
|
|
1594 lbcc L0B2B
|
|
|
1595 lbra L0CF5
|
|
|
1596 L0B2B clr -u0010,u
|
|
|
1597 ldd -$0A,y
|
|
|
1598 std -u0008,u
|
|
|
1599 L0B31 ldd -u0008,u
|
|
|
1600 subd #$0000
|
|
|
1601 lbeq L0CEC
|
|
|
1602 ldx -u0008,u
|
|
|
1603 ldb $0A,x
|
|
|
1604 lsrb
|
|
|
1605 lbcc L0CE3
|
|
|
1606 ldd -u0008,u
|
|
|
1607 pshs b,a
|
|
|
1608 leax <-u0018,u
|
|
|
1609 pshs x
|
|
|
1610 sty <u000E
|
|
|
1611 stu <u0010
|
|
|
1612 puls u,y
|
|
|
1613 ldx #$0008
|
|
|
1614 L0B56 ldd ,u++
|
|
|
1615 subd ,y++
|
|
|
1616 bne L0B64
|
|
|
1617 leax -$02,x
|
|
|
1618 bne L0B56
|
|
|
1619 ldb #$01
|
|
|
1620 bra L0B65
|
|
|
1621 L0B64 clrb
|
|
|
1622 L0B65 ldu <u0010
|
|
|
1623 ldy <u000E
|
|
|
1624 lsrb
|
|
|
1625 lbcc L0CDF
|
|
|
1626 leax >-$019F,y
|
|
|
1627 pshs x
|
|
|
1628 ldd -$0C,y
|
|
|
1629 pshs b,a
|
|
|
1630 ldx -u0008,u
|
|
|
1631 ldb $09,x
|
|
|
1632 clra
|
|
|
1633 pshs b,a
|
|
|
1634 ldd #$0008
|
|
|
1635 pshs b,a
|
|
|
1636 ldx <u0004
|
|
|
1637 jsr -$0C,x
|
|
|
1638 puls b,a
|
|
|
1639 addd ,s++
|
|
|
1640 pshs b,a
|
|
|
1641 ldx <u0004
|
|
|
1642 jsr <$12,x
|
|
|
1643 ldx <u0004
|
|
|
1644 jsr <-$24,x
|
|
|
1645 leax >-$019F,y
|
|
|
1646 pshs x
|
|
|
1647 ldx <u0004
|
|
|
1648 jsr -$06,x
|
|
|
1649 leax >-$018F,y
|
|
|
1650 pshs x
|
|
|
1651 ldx -u0008,u
|
|
|
1652 ldb $09,x
|
|
|
1653 clra
|
|
|
1654 pshs b,a
|
|
|
1655 ldd #$0007
|
|
|
1656 anda ,s+
|
|
|
1657 andb ,s+
|
|
|
1658 lslb
|
|
|
1659 rola
|
|
|
1660 lslb
|
|
|
1661 rola
|
|
|
1662 lslb
|
|
|
1663 rola
|
|
|
1664 lslb
|
|
|
1665 rola
|
|
|
1666 lslb
|
|
|
1667 rola
|
|
|
1668 addd ,s++
|
|
|
1669 std >-u008E,u
|
|
|
1670 addd #$0002
|
|
|
1671 pshs b,a
|
|
|
1672 ldd -u000C,u
|
|
|
1673 std [,s++]
|
|
|
1674 ldx >-u008E,u
|
|
|
1675 ldd -u000A,u
|
|
|
1676 std $04,x
|
|
|
1677 ldx >-u008E,u
|
|
|
1678 ldd $0E,x
|
|
|
1679 subd #$0001
|
|
|
1680 std -u0006,u
|
|
|
1681 leax >-$019F,y
|
|
|
1682 pshs x
|
|
|
1683 ldd -$0C,y
|
|
|
1684 pshs b,a
|
|
|
1685 ldx -u0008,u
|
|
|
1686 ldb $09,x
|
|
|
1687 clra
|
|
|
1688 pshs b,a
|
|
|
1689 ldd #$0008
|
|
|
1690 pshs b,a
|
|
|
1691 ldx <u0004
|
|
|
1692 jsr -$0C,x
|
|
|
1693 puls b,a
|
|
|
1694 addd ,s++
|
|
|
1695 pshs b,a
|
|
|
1696 ldx <u0004
|
|
|
1697 jsr <$12,x
|
|
|
1698 ldx <u0004
|
|
|
1699 jsr <-$24,x
|
|
|
1700 leax >-$019F,y
|
|
|
1701 pshs x
|
|
|
1702 ldx <u0004
|
|
|
1703 jsr -$09,x
|
|
|
1704 leax >-$019F,y
|
|
|
1705 pshs x
|
|
|
1706 ldd -$0E,y
|
|
|
1707 pshs b,a
|
|
|
1708 ldd -u0006,u
|
|
|
1709 pshs b,a
|
|
|
1710 ldd #$0002
|
|
|
1711 pshs b,a
|
|
|
1712 ldx <u0004
|
|
|
1713 jsr -$0C,x
|
|
|
1714 puls b,a
|
|
|
1715 addd ,s++
|
|
|
1716 pshs b,a
|
|
|
1717 ldx <u0004
|
|
|
1718 jsr <$12,x
|
|
|
1719 ldx <u0004
|
|
|
1720 jsr <-$24,x
|
|
|
1721 leax >-$019F,y
|
|
|
1722 pshs x
|
|
|
1723 ldx <u0004
|
|
|
1724 jsr -$06,x
|
|
|
1725 leax >-$018F,y
|
|
|
1726 pshs x
|
|
|
1727 ldd -u0006,u
|
|
|
1728 pshs b,a
|
|
|
1729 ldd #$0001
|
|
|
1730 anda ,s+
|
|
|
1731 andb ,s+
|
|
|
1732 lslb
|
|
|
1733 rola
|
|
|
1734 lslb
|
|
|
1735 rola
|
|
|
1736 lslb
|
|
|
1737 rola
|
|
|
1738 lslb
|
|
|
1739 rola
|
|
|
1740 lslb
|
|
|
1741 rola
|
|
|
1742 lslb
|
|
|
1743 rola
|
|
|
1744 lslb
|
|
|
1745 rola
|
|
|
1746 addd ,s++
|
|
|
1747 std >-u008E,u
|
|
|
1748 addd #$0002
|
|
|
1749 pshs b,a
|
|
|
1750 ldb -u000F,u
|
|
|
1751 stb [,s++]
|
|
|
1752 ldd -u000E,u
|
|
|
1753 std [>-u008E,u]
|
|
|
1754 ldd >-u008E,u
|
|
|
1755 addd #$000C
|
|
|
1756 pshs b,a
|
|
|
1757 leax >-u008C,u
|
|
|
1758 pshs x
|
|
|
1759 sty <u000E
|
|
|
1760 stu <u0010
|
|
|
1761 puls u,y
|
|
|
1762 ldx #$0074
|
|
|
1763 L0C95 ldd ,y++
|
|
|
1764 std ,u++
|
|
|
1765 leax -$02,x
|
|
|
1766 bne L0C95
|
|
|
1767 ldu <u0010
|
|
|
1768 ldy <u000E
|
|
|
1769 leax >-$019F,y
|
|
|
1770 pshs x
|
|
|
1771 ldd -$0E,y
|
|
|
1772 pshs b,a
|
|
|
1773 ldd -u0006,u
|
|
|
1774 pshs b,a
|
|
|
1775 ldd #$0002
|
|
|
1776 pshs b,a
|
|
|
1777 ldx <u0004
|
|
|
1778 jsr -$0C,x
|
|
|
1779 puls b,a
|
|
|
1780 addd ,s++
|
|
|
1781 pshs b,a
|
|
|
1782 ldx <u0004
|
|
|
1783 jsr <$12,x
|
|
|
1784 ldx <u0004
|
|
|
1785 jsr <-$24,x
|
|
|
1786 leax >-$019F,y
|
|
|
1787 pshs x
|
|
|
1788 ldx <u0004
|
|
|
1789 jsr -$09,x
|
|
|
1790 ldd -u0008,u
|
|
|
1791 addd #$000A
|
|
|
1792 pshs b,a
|
|
|
1793 clr [,s++]
|
|
|
1794 lbra L0CE3
|
|
|
1795 L0CDF ldb #$01
|
|
|
1796 stb -u0010,u
|
|
|
1797 L0CE3 ldx -u0008,u
|
|
|
1798 ldd $0B,x
|
|
|
1799 std -u0008,u
|
|
|
1800 lbra L0B31
|
|
|
1801 L0CEC ldb -u0010,u
|
|
|
1802 eorb #$01
|
|
|
1803 stb -$0F,y
|
|
|
1804 lbra L0D4D
|
|
|
1805 L0CF5 leax >L0892,pcr
|
|
|
1806 pshs x
|
|
|
1807 ldd #$0039
|
|
|
1808 pshs b,a
|
|
|
1809 pshs b,a
|
|
|
1810 ldd $02,y
|
|
|
1811 pshs b,a
|
|
|
1812 ldx <u0004
|
|
|
1813 jsr -$03,x
|
|
|
1814 ldd u0009,u
|
|
|
1815 pshs b,a
|
|
|
1816 ldd #$0001
|
|
|
1817 pshs b,a
|
|
|
1818 ldd $02,y
|
|
|
1819 pshs b,a
|
|
|
1820 ldx <u0004
|
|
|
1821 jsr ,x
|
|
|
1822 leax >L08CB,pcr
|
|
|
1823 pshs x
|
|
|
1824 ldd #$001E
|
|
|
1825 pshs b,a
|
|
|
1826 pshs b,a
|
|
|
1827 ldd $02,y
|
|
|
1828 pshs b,a
|
|
|
1829 ldx <u0004
|
|
|
1830 jsr -$03,x
|
|
|
1831 ldd u0007,u
|
|
|
1832 pshs b,a
|
|
|
1833 ldd #$0001
|
|
|
1834 pshs b,a
|
|
|
1835 ldd $02,y
|
|
|
1836 pshs b,a
|
|
|
1837 ldx <u0004
|
|
|
1838 jsr ,x
|
|
|
1839 ldd $02,y
|
|
|
1840 pshs b,a
|
|
|
1841 ldx ,s
|
|
|
1842 clr $0D,x
|
|
|
1843 ldx <u0004
|
|
|
1844 jsr -$09,x
|
|
|
1845 L0D4D leas ,u
|
|
|
1846 puls u
|
|
|
1847 puls x,a
|
|
|
1848 sta <u0020
|
|
|
1849 leas $08,s
|
|
|
1850 jmp ,x
|
|
|
1851 L0D59 fcb $55 U
|
|
|
1852 comb
|
|
|
1853 fcb $45 E
|
|
|
1854 bra L0DB7
|
|
|
1855 bra L0D80
|
|
|
1856 bra L0D82
|
|
|
1857 bra L0D84
|
|
|
1858 bra L0D86
|
|
|
1859 L0D66 bpl L0DBF
|
|
|
1860 fcb $41 A
|
|
|
1861 fcb $52 R
|
|
|
1862 fcb $4E N
|
|
|
1863 rola
|
|
|
1864 fcb $4E N
|
|
|
1865 asra
|
|
|
1866 bra L0DBF
|
|
|
1867 comb
|
|
|
1868 blt L0DAC
|
|
|
1869 bra L0DBA
|
|
|
1870 aim #$72,>$6F72
|
|
|
1871 bra L0D9B
|
|
|
1872 eim #$6E,$03,s
|
|
|
1873 clr -$0B,s
|
|
|
1874 L0D80 jmp -$0C,s
|
|
|
1875 L0D82 eim #$72,$05,s
|
|
|
1876 lsr $00,y
|
|
|
1877 asr >$6869
|
|
|
1878 inc $05,s
|
|
|
1879 bra L0E02
|
|
|
1880 aim #$79,>$696E
|
|
|
1881 asr $00,y
|
|
|
1882 lsr >$6F20
|
|
|
1883 clr -$10,s
|
|
|
1884 eim #$6E,$00,y
|
|
|
1885 fcb $55 U
|
|
|
1886 comb
|
|
|
1887 fcb $45 E
|
|
|
1888 bra L0E07
|
|
|
1889 rol $0C,s
|
|
|
1890 eim #$20,$0A,y
|
|
|
1891 fcb $45 E
|
|
|
1892 fcb $52 R
|
|
|
1893 fcb $52 R
|
|
|
1894 clra
|
|
|
1895 fcb $52 R
|
|
|
1896 bra L0DF6
|
|
|
1897 jmp -$0A,s
|
|
|
1898 oim #$6C,$09,s
|
|
|
1899 lsr $00,y
|
|
|
1900 com $0F,s
|
|
|
1901 tst $0D,s
|
|
|
1902 oim #$6E,$04,s
|
|
|
1903 bra L0E2C
|
|
|
1904 jmp $00,y
|
|
|
1905 L0DBF inc $09,s
|
|
|
1906 jmp $05,s
|
|
|
1907 bra L0E33
|
|
|
1908 eim #$6D,>$6265
|
|
|
1909 aim #$20,>$2061
|
|
|
1910 lsr >$2055
|
|
|
1911 comb
|
|
|
1912 fcb $45 E
|
|
|
1913 bra L0E3A
|
|
|
1914 rol $0C,s
|
|
|
1915 eim #$20,$0E,s
|
|
|
1916 eim #$73,-$0C,s
|
|
|
1917 rol $0E,s
|
|
|
1918 asr $00,y
|
|
|
1919 inc $05,s
|
|
|
1920 ror >$656C
|
|
|
1921 bra L0E56
|
|
|
1922 ror $00,y
|
|
|
1923 L0DE9 bpl L0E30
|
|
|
1924 fcb $52 R
|
|
|
1925 fcb $52 R
|
|
|
1926 clra
|
|
|
1927 fcb $52 R
|
|
|
1928 bra L0E3A
|
|
|
1929 jmp -$0A,s
|
|
|
1930 oim #$6C,$09,s
|
|
|
1931 L0DF6 lsr $00,y
|
|
|
1932 fcb $45 E
|
|
|
1933 lslb
|
|
|
1934 lsrb
|
|
|
1935 fcb $45 E
|
|
|
1936 fcb $52 R
|
|
|
1937 fcb $4E N
|
|
|
1938 fcb $41 A
|
|
|
1939 inca
|
|
|
1940 bra L0E66
|
|
|
1941 L0E02 eim #$66,$09,s
|
|
|
1942 jmp $09,s
|
|
|
1943 L0E07 lsr >$696F
|
|
|
1944 jmp $00,y
|
|
|
1945 ror $0F,s
|
|
|
1946 aim #$6D,>$6174
|
|
|
1947 bra L0E83
|
|
|
1948 jmp $00,y
|
|
|
1949 inc $09,s
|
|
|
1950 jmp $05,s
|
|
|
1951 bra L0E8A
|
|
|
1952 eim #$6D,>$6265
|
|
|
1953 aim #$20,>$2061
|
|
|
1954 lsr >$2055
|
|
|
1955 comb
|
|
|
1956 fcb $45 E
|
|
|
1957 bra L0E91
|
|
|
1958 rol $0C,s
|
|
|
1959 eim #$20,$0E,s
|
|
|
1960 L0E30 eim #$73,-$0C,s
|
|
|
1961 L0E33 rol $0E,s
|
|
|
1962 asr $00,y
|
|
|
1963 inc $05,s
|
|
|
1964 ror >$656C
|
|
|
1965 bra L0EAD
|
|
|
1966 ror $00,y
|
|
|
1967 L0E40 lda <u0020
|
|
|
1968 ldb #$03
|
|
|
1969 stb <u0020
|
|
|
1970 pshs a
|
|
|
1971 pshs u
|
|
|
1972 leau ,s
|
|
|
1973 leax >-$009B,s
|
|
|
1974 pshs x
|
|
|
1975 ldd #$002D
|
|
|
1976 ldx <u0004
|
|
|
1977 jsr <-$2A,x
|
|
|
1978 ldd #$0080
|
|
|
1979 std >-u0095,u
|
|
|
1980 clr >-u008A,u
|
|
|
1981 ldd #$0012
|
|
|
1982 std >-u008F,u
|
|
|
1983 leas -$01,s
|
|
|
1984 ldd u0009,u
|
|
|
1985 pshs b,a
|
|
|
1986 ldx <u0004
|
|
|
1987 jsr <-$15,x
|
|
|
1988 lsr ,s+
|
|
|
1989 lbcc L0E85
|
|
|
1990 ldd u0009,u
|
|
|
1991 pshs b,a
|
|
|
1992 ldx <u0004
|
|
|
1993 L0E83 jsr $06,x
|
|
|
1994 L0E85 ldd #$0000
|
|
|
1995 std -u0006,u
|
|
|
1996 L0E8A ldx u0009,u
|
|
|
1997 ldb $0B,x
|
|
|
1998 andb #$01
|
|
|
1999 eorb #$01
|
|
|
2000 lsrb
|
|
|
2001 lbcc L1259
|
|
|
2002 ldd #$0000
|
|
|
2003 std -u0008,u
|
|
|
2004 L0E9C ldx u0009,u
|
|
|
2005 ldb $0B,x
|
|
|
2006 andb #$02
|
|
|
2007 lsrb
|
|
|
2008 eorb #$01
|
|
|
2009 pshs b
|
|
|
2010 ldd -u0008,u
|
|
|
2011 subd #$0080
|
|
|
2012 bge L0EB2
|
|
|
2013 ldb #$01
|
|
|
2014 bra L0EB3
|
|
|
2015 L0EB2 clrb
|
|
|
2016 L0EB3 andb ,s+
|
|
|
2017 lsrb
|
|
|
2018 lbcc L0F29
|
|
|
2019 ldd u0009,u
|
|
|
2020 std >-u009B,u
|
|
|
2021 leax >-$008F,y
|
|
|
2022 ldd -u0008,u
|
|
|
2023 leax d,x
|
|
|
2024 pshs x
|
|
|
2025 ldd >-u009B,u
|
|
|
2026 pshs b,a
|
|
|
2027 ldx <u0004
|
|
|
2028 jsr $0C,x
|
|
|
2029 leax >-$008F,y
|
|
|
2030 ldd -u0008,u
|
|
|
2031 ldb d,x
|
|
|
2032 clra
|
|
|
2033 pshs b,a
|
|
|
2034 ldd #$0000
|
|
|
2035 pshs b,a
|
|
|
2036 pshs b,a
|
|
|
2037 pshs b,a
|
|
|
2038 pshs b,a
|
|
|
2039 pshs b,a
|
|
|
2040 pshs b,a
|
|
|
2041 ldd #$FFFE
|
|
|
2042 pshs b,a
|
|
|
2043 ldd #$07FF
|
|
|
2044 pshs b,a
|
|
|
2045 ldb #$10
|
|
|
2046 L0EFA clr ,-s
|
|
|
2047 decb
|
|
|
2048 bne L0EFA
|
|
|
2049 lbsr L1270
|
|
|
2050 lsrb
|
|
|
2051 lbcc L0F1F
|
|
|
2052 leax >-$008F,y
|
|
|
2053 ldd -u0008,u
|
|
|
2054 leax d,x
|
|
|
2055 pshs x
|
|
|
2056 leax >-$008F,y
|
|
|
2057 ldd -u0008,u
|
|
|
2058 ldb d,x
|
|
|
2059 clra
|
|
|
2060 subd #$0020
|
|
|
2061 stb [,s++]
|
|
|
2062 L0F1F ldd -u0008,u
|
|
|
2063 addd #$0001
|
|
|
2064 std -u0008,u
|
|
|
2065 lbra L0E9C
|
|
|
2066 L0F29 ldd -u0008,u
|
|
|
2067 subd #$0080
|
|
|
2068 bne L0F34
|
|
|
2069 ldb #$01
|
|
|
2070 bra L0F35
|
|
|
2071 L0F34 clrb
|
|
|
2072 L0F35 pshs b
|
|
|
2073 ldx u0009,u
|
|
|
2074 ldb $0B,x
|
|
|
2075 andb #$02
|
|
|
2076 lsrb
|
|
|
2077 eorb #$01
|
|
|
2078 andb ,s+
|
|
|
2079 lsrb
|
|
|
2080 lbcc L0F53
|
|
|
2081 ldd u0009,u
|
|
|
2082 std >-u009B,u
|
|
|
2083 pshs b,a
|
|
|
2084 ldx <u0004
|
|
|
2085 jsr $09,x
|
|
|
2086 L0F53 ldd -u0006,u
|
|
|
2087 addd #$0001
|
|
|
2088 std -u0006,u
|
|
|
2089 ldd -u0008,u
|
|
|
2090 subd #$0000
|
|
|
2091 lbeq L1241
|
|
|
2092 ldb >-$008F,y
|
|
|
2093 subb #$2A
|
|
|
2094 lbeq L1241
|
|
|
2095 ldb >-$008F,y
|
|
|
2096 subb #$20
|
|
|
2097 lbne L119E
|
|
|
2098 leax >-$008E,y
|
|
|
2099 pshs x
|
|
|
2100 leax >L0D59,pcr
|
|
|
2101 pshs x
|
|
|
2102 sty <u000E
|
|
|
2103 stu <u0010
|
|
|
2104 puls u,y
|
|
|
2105 ldx #$0004
|
|
|
2106 L0F8D ldd ,u++
|
|
|
2107 subd ,y++
|
|
|
2108 bne L0F9B
|
|
|
2109 leax -$02,x
|
|
|
2110 bne L0F8D
|
|
|
2111 ldb #$01
|
|
|
2112 bra L0F9C
|
|
|
2113 L0F9B clrb
|
|
|
2114 L0F9C ldu <u0010
|
|
|
2115 ldy <u000E
|
|
|
2116 pshs b
|
|
|
2117 ldd -u0008,u
|
|
|
2118 subd #$0006
|
|
|
2119 blt L0FAE
|
|
|
2120 ldb #$01
|
|
|
2121 bra L0FAF
|
|
|
2122 L0FAE clrb
|
|
|
2123 L0FAF andb ,s+
|
|
|
2124 lsrb
|
|
|
2125 lbcc L1143
|
|
|
2126 ldd #$0005
|
|
|
2127 std -u0004,u
|
|
|
2128 ldd #$0000
|
|
|
2129 std -u0002,u
|
|
|
2130 L0FC0 leax >-$008F,y
|
|
|
2131 ldd -u0004,u
|
|
|
2132 ldb d,x
|
|
|
2133 subb #$20
|
|
|
2134 bne L0FD0
|
|
|
2135 ldb #$01
|
|
|
2136 bra L0FD1
|
|
|
2137 L0FD0 clrb
|
|
|
2138 L0FD1 pshs b
|
|
|
2139 ldd -u0004,u
|
|
|
2140 subd -u0008,u
|
|
|
2141 bge L0FDD
|
|
|
2142 ldb #$01
|
|
|
2143 bra L0FDE
|
|
|
2144 L0FDD clrb
|
|
|
2145 L0FDE andb ,s+
|
|
|
2146 lsrb
|
|
|
2147 lbcc L0FEF
|
|
|
2148 ldd -u0004,u
|
|
|
2149 addd #$0001
|
|
|
2150 std -u0004,u
|
|
|
2151 lbra L0FC0
|
|
|
2152 L0FEF leax >-$008F,y
|
|
|
2153 ldd -u0004,u
|
|
|
2154 ldb d,x
|
|
|
2155 subb #$20
|
|
|
2156 beq L0FFF
|
|
|
2157 ldb #$01
|
|
|
2158 bra L1000
|
|
|
2159 L0FFF clrb
|
|
|
2160 L1000 pshs b
|
|
|
2161 ldd -u0004,u
|
|
|
2162 subd -u0008,u
|
|
|
2163 bge L100C
|
|
|
2164 ldb #$01
|
|
|
2165 bra L100D
|
|
|
2166 L100C clrb
|
|
|
2167 L100D andb ,s+
|
|
|
2168 lsrb
|
|
|
2169 lbcc L1039
|
|
|
2170 leax >-$008F,y
|
|
|
2171 ldd -u0002,u
|
|
|
2172 leax d,x
|
|
|
2173 pshs x
|
|
|
2174 leax >-$008F,y
|
|
|
2175 ldd -u0004,u
|
|
|
2176 ldb d,x
|
|
|
2177 stb [,s++]
|
|
|
2178 ldd -u0004,u
|
|
|
2179 addd #$0001
|
|
|
2180 std -u0004,u
|
|
|
2181 ldd -u0002,u
|
|
|
2182 addd #$0001
|
|
|
2183 std -u0002,u
|
|
|
2184 lbra L0FEF
|
|
|
2185 L1039 leax >-$008F,y
|
|
|
2186 ldd -u0002,u
|
|
|
2187 leax d,x
|
|
|
2188 ldb #$20
|
|
|
2189 stb ,x
|
|
|
2190 leax >-u0099,u
|
|
|
2191 pshs x
|
|
|
2192 ldb #$00
|
|
|
2193 pshs b
|
|
|
2194 ldx <u0004
|
|
|
2195 jsr <-$18,x
|
|
|
2196 leax >-u0099,u
|
|
|
2197 pshs x
|
|
|
2198 leax >-$008F,y
|
|
|
2199 pshs x
|
|
|
2200 leax >L0D5D,pcr
|
|
|
2201 pshs x
|
|
|
2202 ldx <u0004
|
|
|
2203 jsr <-$54,x
|
|
|
2204 leas -$02,s
|
|
|
2205 leax >-u0099,u
|
|
|
2206 pshs x
|
|
|
2207 ldx <u0004
|
|
|
2208 jsr <-$12,x
|
|
|
2209 puls b,a
|
|
|
2210 std -u0004,u
|
|
|
2211 leax >-u0099,u
|
|
|
2212 pshs x
|
|
|
2213 ldb #$01
|
|
|
2214 pshs b
|
|
|
2215 ldx <u0004
|
|
|
2216 jsr <-$18,x
|
|
|
2217 ldd -u0004,u
|
|
|
2218 subd #$0000
|
|
|
2219 lbeq L1122
|
|
|
2220 leax >L0D66,pcr
|
|
|
2221 pshs x
|
|
|
2222 ldd #$0014
|
|
|
2223 pshs b,a
|
|
|
2224 pshs b,a
|
|
|
2225 ldd $02,y
|
|
|
2226 pshs b,a
|
|
|
2227 ldx <u0004
|
|
|
2228 jsr -$03,x
|
|
|
2229 ldd -u0004,u
|
|
|
2230 pshs b,a
|
|
|
2231 ldd #$0001
|
|
|
2232 pshs b,a
|
|
|
2233 ldd $02,y
|
|
|
2234 pshs b,a
|
|
|
2235 ldx <u0004
|
|
|
2236 jsr ,x
|
|
|
2237 leax >L0D7A,pcr
|
|
|
2238 pshs x
|
|
|
2239 ldd #$002B
|
|
|
2240 pshs b,a
|
|
|
2241 pshs b,a
|
|
|
2242 ldd $02,y
|
|
|
2243 pshs b,a
|
|
|
2244 ldx <u0004
|
|
|
2245 jsr -$03,x
|
|
|
2246 ldd #$0000
|
|
|
2247 std -u0004,u
|
|
|
2248 ldd -u0002,u
|
|
|
2249 subd #$0001
|
|
|
2250 std >-u009B,u
|
|
|
2251 ldd -u0004,u
|
|
|
2252 subd >-u009B,u
|
|
|
2253 lbgt L1113
|
|
|
2254 L10E7 leax >-$008F,y
|
|
|
2255 ldd -u0004,u
|
|
|
2256 ldb d,x
|
|
|
2257 pshs b
|
|
|
2258 ldd #$0001
|
|
|
2259 pshs b,a
|
|
|
2260 ldd $02,y
|
|
|
2261 pshs b,a
|
|
|
2262 ldx <u0004
|
|
|
2263 jsr <-$27,x
|
|
|
2264 ldd -u0004,u
|
|
|
2265 subd >-u009B,u
|
|
|
2266 lbge L1113
|
|
|
2267 ldd -u0004,u
|
|
|
2268 addd #$0001
|
|
|
2269 std -u0004,u
|
|
|
2270 lbra L10E7
|
|
|
2271 L1113 ldd $02,y
|
|
|
2272 pshs b,a
|
|
|
2273 ldx ,s
|
|
|
2274 clr $0D,x
|
|
|
2275 ldx <u0004
|
|
|
2276 jsr -$09,x
|
|
|
2277 lbra L1136
|
|
|
2278 L1122 leax >-u0099,u
|
|
|
2279 pshs x
|
|
|
2280 ldd u0007,u
|
|
|
2281 addd #$0001
|
|
|
2282 pshs b,a
|
|
|
2283 ldx u0005,u
|
|
|
2284 pshs x
|
|
|
2285 lbsr L0E40
|
|
|
2286 L1136 ldb -$0F,y
|
|
|
2287 lsrb
|
|
|
2288 lbcc L1140
|
|
|
2289 lbra L1259
|
|
|
2290 L1140 lbra L119B
|
|
|
2291 L1143 leax >L0DA5,pcr
|
|
|
2292 pshs x
|
|
|
2293 ldd #$0026
|
|
|
2294 pshs b,a
|
|
|
2295 pshs b,a
|
|
|
2296 ldd $02,y
|
|
|
2297 pshs b,a
|
|
|
2298 ldx <u0004
|
|
|
2299 jsr -$03,x
|
|
|
2300 ldd -u0006,u
|
|
|
2301 pshs b,a
|
|
|
2302 ldd #$0001
|
|
|
2303 pshs b,a
|
|
|
2304 ldd $02,y
|
|
|
2305 pshs b,a
|
|
|
2306 ldx <u0004
|
|
|
2307 jsr ,x
|
|
|
2308 leax >L0DCB,pcr
|
|
|
2309 pshs x
|
|
|
2310 ldd #$001E
|
|
|
2311 pshs b,a
|
|
|
2312 pshs b,a
|
|
|
2313 ldd $02,y
|
|
|
2314 pshs b,a
|
|
|
2315 ldx <u0004
|
|
|
2316 jsr -$03,x
|
|
|
2317 ldd u0007,u
|
|
|
2318 pshs b,a
|
|
|
2319 ldd #$0001
|
|
|
2320 pshs b,a
|
|
|
2321 ldd $02,y
|
|
|
2322 pshs b,a
|
|
|
2323 ldx <u0004
|
|
|
2324 jsr ,x
|
|
|
2325 ldd $02,y
|
|
|
2326 pshs b,a
|
|
|
2327 ldx ,s
|
|
|
2328 clr $0D,x
|
|
|
2329 ldx <u0004
|
|
|
2330 jsr -$09,x
|
|
|
2331 L119B lbra L1241
|
|
|
2332 L119E ldb >-$008F,y
|
|
|
2333 clra
|
|
|
2334 pshs b,a
|
|
|
2335 ldd #$0000
|
|
|
2336 pshs b,a
|
|
|
2337 pshs b,a
|
|
|
2338 pshs b,a
|
|
|
2339 pshs b,a
|
|
|
2340 ldd #$FFFE
|
|
|
2341 pshs b,a
|
|
|
2342 ldd #$07FF
|
|
|
2343 pshs b,a
|
|
|
2344 ldb #$14
|
|
|
2345 L11BC clr ,-s
|
|
|
2346 decb
|
|
|
2347 bne L11BC
|
|
|
2348 lbsr L1270
|
|
|
2349 lsrb
|
|
|
2350 lbcc L11E9
|
|
|
2351 ldd -u0008,u
|
|
|
2352 pshs b,a
|
|
|
2353 ldd -u0006,u
|
|
|
2354 pshs b,a
|
|
|
2355 ldd u0007,u
|
|
|
2356 pshs b,a
|
|
|
2357 ldx u0005,u
|
|
|
2358 pshs x
|
|
|
2359 lbsr L08E9
|
|
|
2360 ldb -$0F,y
|
|
|
2361 lsrb
|
|
|
2362 lbcc L11E6
|
|
|
2363 lbra L1259
|
|
|
2364 L11E6 lbra L1241
|
|
|
2365 L11E9 leax >L0DE9,pcr
|
|
|
2366 pshs x
|
|
|
2367 ldd #$0039
|
|
|
2368 pshs b,a
|
|
|
2369 pshs b,a
|
|
|
2370 ldd $02,y
|
|
|
2371 pshs b,a
|
|
|
2372 ldx <u0004
|
|
|
2373 jsr -$03,x
|
|
|
2374 ldd -u0006,u
|
|
|
2375 pshs b,a
|
|
|
2376 ldd #$0001
|
|
|
2377 pshs b,a
|
|
|
2378 ldd $02,y
|
|
|
2379 pshs b,a
|
|
|
2380 ldx <u0004
|
|
|
2381 jsr ,x
|
|
|
2382 leax >L0E22,pcr
|
|
|
2383 pshs x
|
|
|
2384 ldd #$001E
|
|
|
2385 pshs b,a
|
|
|
2386 pshs b,a
|
|
|
2387 ldd $02,y
|
|
|
2388 pshs b,a
|
|
|
2389 ldx <u0004
|
|
|
2390 jsr -$03,x
|
|
|
2391 ldd u0007,u
|
|
|
2392 pshs b,a
|
|
|
2393 ldd #$0001
|
|
|
2394 pshs b,a
|
|
|
2395 ldd $02,y
|
|
|
2396 pshs b,a
|
|
|
2397 ldx <u0004
|
|
|
2398 jsr ,x
|
|
|
2399 ldd $02,y
|
|
|
2400 pshs b,a
|
|
|
2401 ldx ,s
|
|
|
2402 clr $0D,x
|
|
|
2403 ldx <u0004
|
|
|
2404 jsr -$09,x
|
|
|
2405 L1241 ldx u0009,u
|
|
|
2406 ldb $0B,x
|
|
|
2407 andb #$01
|
|
|
2408 eorb #$01
|
|
|
2409 lsrb
|
|
|
2410 lbcc L1256
|
|
|
2411 ldd u0009,u
|
|
|
2412 pshs b,a
|
|
|
2413 ldx <u0004
|
|
|
2414 jsr $06,x
|
|
|
2415 L1256 lbra L0E8A
|
|
|
2416 L1259 leax >-u0099,u
|
|
|
2417 pshs x
|
|
|
2418 ldx <u0004
|
|
|
2419 jsr <-$3F,x
|
|
|
2420 leas ,u
|
|
|
2421 puls u
|
|
|
2422 puls x,a
|
|
|
2423 sta <u0020
|
|
|
2424 leas $06,s
|
|
|
2425 jmp ,x
|
|
|
2426 L1270 leax <$22,s
|
|
|
2427 ldd ,x
|
|
|
2428 tsta
|
|
|
2429 bne L128F
|
|
|
2430 lsrb
|
|
|
2431 lsrb
|
|
|
2432 lsrb
|
|
|
2433 comb
|
|
|
2434 lda b,x
|
|
|
2435 beq L128F
|
|
|
2436 ldb $01,x
|
|
|
2437 leax <L1297,pcr
|
|
|
2438 andb #$07
|
|
|
2439 bita b,x
|
|
|
2440 beq L128F
|
|
|
2441 ldb #$01
|
|
|
2442 bra L1290
|
|
|
2443 L128F clrb
|
|
|
2444 L1290 ldx ,s
|
|
|
2445 leas <$24,s
|
|
|
2446 jmp ,x
|
|
|
2447 L1297 oim #$02,<u0004
|
|
|
2448 lsl <u0010
|
|
|
2449 bra L12DE
|
|
|
2450 fcb $80
|
|
|
2451 emod
|
|
|
2452 eom equ *
|
