|
0
|
1 ********************************************************************
|
|
|
2 * Ident - Show module information
|
|
|
3 *
|
|
|
4 * $Id$
|
|
|
5 *
|
|
|
6 * Ed. Comments Who YY/MM/DD
|
|
|
7 * ------------------------------------------------------------------
|
|
|
8 * 7 Original Tandy/Microware version
|
|
|
9
|
|
|
10 nam Ident
|
|
|
11 ttl Show module information
|
|
|
12
|
|
|
13 * Disassembled 98/09/20 15:54:44 by Disasm v1.6 (C) 1988 by RML
|
|
|
14
|
|
|
15 ifp1
|
|
|
16 use defsfile
|
|
|
17 endc
|
|
|
18
|
|
|
19 tylg set Prgrm+Objct
|
|
|
20 atrv set ReEnt+rev
|
|
|
21 rev set $01
|
|
|
22 edition set 7
|
|
|
23
|
|
|
24 mod eom,name,tylg,atrv,start,size
|
|
|
25 u0000 rmb 1
|
|
|
26 u0001 rmb 1
|
|
|
27 u0002 rmb 1
|
|
|
28 u0003 rmb 1
|
|
|
29 u0004 rmb 2
|
|
|
30 u0006 rmb 2
|
|
|
31 u0008 rmb 2
|
|
|
32 u000A rmb 1
|
|
|
33 u000B rmb 1
|
|
|
34 u000C rmb 1
|
|
|
35 u000D rmb 1
|
|
|
36 u000E rmb 2
|
|
|
37 u0010 rmb 2
|
|
|
38 u0012 rmb 1
|
|
|
39 u0013 rmb 1
|
|
|
40 u0014 rmb 1
|
|
|
41 u0015 rmb 1
|
|
|
42 u0016 rmb 1
|
|
|
43 u0017 rmb 1
|
|
|
44 u0018 rmb 1
|
|
|
45 u0019 rmb 1
|
|
|
46 u001A rmb 1
|
|
|
47 u001B rmb 1
|
|
|
48 u001C rmb 2
|
|
|
49 u001E rmb 2
|
|
|
50 u0020 rmb 2
|
|
|
51 u0022 rmb 66
|
|
|
52 u0064 rmb 14
|
|
|
53 u0072 rmb 14
|
|
|
54 u0080 rmb 33
|
|
|
55 u00A1 rmb 71
|
|
|
56 u00E8 rmb 180
|
|
|
57 u019C rmb 2048
|
|
|
58 size equ .
|
|
|
59
|
|
|
60 name fcs /Ident/
|
|
|
61 fcb edition
|
|
|
62
|
|
|
63 L0013 fcb $0A
|
|
|
64 fcb $55 U
|
|
|
65 fcb $73 s
|
|
|
66 fcb $65 e
|
|
|
67 fcb $3A :
|
|
|
68 fcb $20
|
|
|
69 fcb $49 I
|
|
|
70 fcb $64 d
|
|
|
71 fcb $65 e
|
|
|
72 fcb $6E n
|
|
|
73 fcb $74 t
|
|
|
74 fcb $20
|
|
|
75 fcb $5B [
|
|
|
76 fcb $2D -
|
|
|
77 fcb $6F o
|
|
|
78 fcb $70 p
|
|
|
79 fcb $74 t
|
|
|
80 fcb $73 s
|
|
|
81 fcb $5D ]
|
|
|
82 fcb $20
|
|
|
83 fcb $3C <
|
|
|
84 fcb $6D m
|
|
|
85 fcb $6F o
|
|
|
86 fcb $64 d
|
|
|
87 fcb $75 u
|
|
|
88 fcb $6C l
|
|
|
89 fcb $65 e
|
|
|
90 fcb $3E >
|
|
|
91 fcb $20
|
|
|
92 fcb $5B [
|
|
|
93 fcb $2D -
|
|
|
94 fcb $6F o
|
|
|
95 fcb $70 p
|
|
|
96 fcb $74 t
|
|
|
97 fcb $73 s
|
|
|
98 fcb $5D ]
|
|
|
99 fcb $0A
|
|
|
100 fcb $20
|
|
|
101 fcb $20
|
|
|
102 fcb $74 t
|
|
|
103 fcb $6F o
|
|
|
104 fcb $20
|
|
|
105 fcb $64 d
|
|
|
106 fcb $69 i
|
|
|
107 fcb $73 s
|
|
|
108 fcb $70 p
|
|
|
109 fcb $6C l
|
|
|
110 fcb $61 a
|
|
|
111 fcb $79 y
|
|
|
112 fcb $20
|
|
|
113 fcb $6D m
|
|
|
114 fcb $6F o
|
|
|
115 fcb $64 d
|
|
|
116 fcb $75 u
|
|
|
117 fcb $6C l
|
|
|
118 fcb $65 e
|
|
|
119 fcb $20
|
|
|
120 fcb $68 h
|
|
|
121 fcb $65 e
|
|
|
122 fcb $61 a
|
|
|
123 fcb $64 d
|
|
|
124 fcb $65 e
|
|
|
125 fcb $72 r
|
|
|
126 fcb $2E .
|
|
|
127 fcb $0A
|
|
|
128 fcb $20
|
|
|
129 fcb $20
|
|
|
130 fcb $2D -
|
|
|
131 fcb $6D m
|
|
|
132 fcb $20
|
|
|
133 fcb $74 t
|
|
|
134 fcb $6F o
|
|
|
135 fcb $20
|
|
|
136 fcb $64 d
|
|
|
137 fcb $69 i
|
|
|
138 fcb $73 s
|
|
|
139 fcb $70 p
|
|
|
140 fcb $6C l
|
|
|
141 fcb $61 a
|
|
|
142 fcb $79 y
|
|
|
143 fcb $20
|
|
|
144 fcb $6D m
|
|
|
145 fcb $6F o
|
|
|
146 fcb $64 d
|
|
|
147 fcb $75 u
|
|
|
148 fcb $6C l
|
|
|
149 fcb $65 e
|
|
|
150 fcb $20
|
|
|
151 fcb $69 i
|
|
|
152 fcb $6E n
|
|
|
153 fcb $20
|
|
|
154 fcb $6D m
|
|
|
155 fcb $65 e
|
|
|
156 fcb $6D m
|
|
|
157 fcb $6F o
|
|
|
158 fcb $72 r
|
|
|
159 fcb $79 y
|
|
|
160 fcb $2E .
|
|
|
161 fcb $0A
|
|
|
162 fcb $20
|
|
|
163 fcb $20
|
|
|
164 fcb $2D -
|
|
|
165 fcb $73 s
|
|
|
166 fcb $20
|
|
|
167 fcb $66 f
|
|
|
168 fcb $6F o
|
|
|
169 fcb $72 r
|
|
|
170 fcb $20
|
|
|
171 fcb $73 s
|
|
|
172 fcb $68 h
|
|
|
173 fcb $6F o
|
|
|
174 fcb $72 r
|
|
|
175 fcb $74 t
|
|
|
176 fcb $20
|
|
|
177 fcb $66 f
|
|
|
178 fcb $6F o
|
|
|
179 fcb $72 r
|
|
|
180 fcb $6D m
|
|
|
181 fcb $2E .
|
|
|
182 fcb $0A
|
|
|
183 fcb $20
|
|
|
184 fcb $20
|
|
|
185 fcb $2D -
|
|
|
186 fcb $76 v
|
|
|
187 fcb $20
|
|
|
188 fcb $66 f
|
|
|
189 fcb $6F o
|
|
|
190 fcb $72 r
|
|
|
191 fcb $20
|
|
|
192 fcb $6E n
|
|
|
193 fcb $6F o
|
|
|
194 fcb $20
|
|
|
195 fcb $43 C
|
|
|
196 fcb $52 R
|
|
|
197 fcb $43 C
|
|
|
198 fcb $20
|
|
|
199 fcb $76 v
|
|
|
200 fcb $65 e
|
|
|
201 fcb $72 r
|
|
|
202 fcb $69 i
|
|
|
203 fcb $66 f
|
|
|
204 fcb $69 i
|
|
|
205 fcb $63 c
|
|
|
206 fcb $61 a
|
|
|
207 fcb $74 t
|
|
|
208 fcb $69 i
|
|
|
209 fcb $6F o
|
|
|
210 fcb $6E n
|
|
|
211 fcb $0A
|
|
|
212 fcb $20
|
|
|
213 fcb $20
|
|
|
214 fcb $2D -
|
|
|
215 fcb $78 x
|
|
|
216 fcb $20
|
|
|
217 fcb $66 f
|
|
|
218 fcb $6F o
|
|
|
219 fcb $72 r
|
|
|
220 fcb $20
|
|
|
221 fcb $66 f
|
|
|
222 fcb $69 i
|
|
|
223 fcb $6C l
|
|
|
224 fcb $65 e
|
|
|
225 fcb $20
|
|
|
226 fcb $69 i
|
|
|
227 fcb $6E n
|
|
|
228 fcb $20
|
|
|
229 fcb $65 e
|
|
|
230 fcb $78 x
|
|
|
231 fcb $65 e
|
|
|
232 fcb $63 c
|
|
|
233 fcb $75 u
|
|
|
234 fcb $74 t
|
|
|
235 fcb $69 i
|
|
|
236 fcb $6F o
|
|
|
237 fcb $6E n
|
|
|
238 fcb $20
|
|
|
239 fcb $64 d
|
|
|
240 fcb $69 i
|
|
|
241 fcb $72 r
|
|
|
242 fcb $65 e
|
|
|
243 fcb $63 c
|
|
|
244 fcb $74 t
|
|
|
245 fcb $6F o
|
|
|
246 fcb $72 r
|
|
|
247 fcb $79 y
|
|
|
248 fcb $0D
|
|
|
249 L00CD fcb $4D M
|
|
|
250 fcb $6F o
|
|
|
251 fcb $64 d
|
|
|
252 fcb $75 u
|
|
|
253 fcb $6C l
|
|
|
254 fcb $65 e
|
|
|
255 fcb $20
|
|
|
256 fcb $68 h
|
|
|
257 fcb $65 e
|
|
|
258 fcb $61 a
|
|
|
259 fcb $64 d
|
|
|
260 fcb $65 e
|
|
|
261 fcb $72 r
|
|
|
262 fcb $20
|
|
|
263 fcb $69 i
|
|
|
264 fcb $73 s
|
|
|
265 fcb $20
|
|
|
266 fcb $69 i
|
|
|
267 fcb $6E n
|
|
|
268 fcb $63 c
|
|
|
269 fcb $6F o
|
|
|
270 fcb $72 r
|
|
|
271 fcb $72 r
|
|
|
272 fcb $65 e
|
|
|
273 fcb $63 c
|
|
|
274 fcb $74 t
|
|
|
275 fcb $A1 !
|
|
|
276 L00E8 fcb $48 H
|
|
|
277 fcb $65 e
|
|
|
278 fcb $61 a
|
|
|
279 fcb $64 d
|
|
|
280 fcb $65 e
|
|
|
281 fcb $72 r
|
|
|
282 fcb $20
|
|
|
283 fcb $66 f
|
|
|
284 fcb $6F o
|
|
|
285 fcb $72 r
|
|
|
286 fcb $3A :
|
|
|
287 fcb $A0
|
|
|
288 L00F4 fcb $4D M
|
|
|
289 fcb $6F o
|
|
|
290 fcb $64 d
|
|
|
291 fcb $75 u
|
|
|
292 fcb $6C l
|
|
|
293 fcb $65 e
|
|
|
294 fcb $20
|
|
|
295 fcb $73 s
|
|
|
296 fcb $69 i
|
|
|
297 fcb $7A z
|
|
|
298 fcb $65 e
|
|
|
299 fcb $BA :
|
|
|
300 L0100 fcb $4D M
|
|
|
301 fcb $6F o
|
|
|
302 fcb $64 d
|
|
|
303 fcb $75 u
|
|
|
304 fcb $6C l
|
|
|
305 fcb $65 e
|
|
|
306 fcb $20
|
|
|
307 fcb $43 C
|
|
|
308 fcb $52 R
|
|
|
309 fcb $43 C
|
|
|
310 fcb $3A :
|
|
|
311 fcb $A0
|
|
|
312 L010C fcb $48 H
|
|
|
313 fcb $64 d
|
|
|
314 fcb $72 r
|
|
|
315 fcb $20
|
|
|
316 fcb $70 p
|
|
|
317 fcb $61 a
|
|
|
318 fcb $72 r
|
|
|
319 fcb $69 i
|
|
|
320 fcb $74 t
|
|
|
321 fcb $79 y
|
|
|
322 fcb $3A :
|
|
|
323 fcb $A0
|
|
|
324 L0118 fcb $45 E
|
|
|
325 fcb $78 x
|
|
|
326 fcb $65 e
|
|
|
327 fcb $63 c
|
|
|
328 fcb $2E .
|
|
|
329 fcb $20
|
|
|
330 fcb $6F o
|
|
|
331 fcb $66 f
|
|
|
332 fcb $66 f
|
|
|
333 fcb $3A :
|
|
|
334 fcb $20
|
|
|
335 fcb $A0
|
|
|
336 L0124 fcb $44 D
|
|
|
337 fcb $61 a
|
|
|
338 fcb $74 t
|
|
|
339 fcb $61 a
|
|
|
340 fcb $20
|
|
|
341 fcb $53 S
|
|
|
342 fcb $69 i
|
|
|
343 fcb $7A z
|
|
|
344 fcb $65 e
|
|
|
345 fcb $3A :
|
|
|
346 fcb $20
|
|
|
347 fcb $A0
|
|
|
348 L0130 fcb $54 T
|
|
|
349 fcb $79 y
|
|
|
350 fcb $2F /
|
|
|
351 fcb $4C L
|
|
|
352 fcb $61 a
|
|
|
353 fcb $20
|
|
|
354 fcb $41 A
|
|
|
355 fcb $74 t
|
|
|
356 fcb $2F /
|
|
|
357 fcb $52 R
|
|
|
358 fcb $76 v
|
|
|
359 fcb $BA :
|
|
|
360 L013C fcb $45 E
|
|
|
361 fcb $64 d
|
|
|
362 fcb $69 i
|
|
|
363 fcb $74 t
|
|
|
364 fcb $69 i
|
|
|
365 fcb $6F o
|
|
|
366 fcb $6E n
|
|
|
367 fcb $3A :
|
|
|
368 fcb $20
|
|
|
369 fcb $20
|
|
|
370 fcb $20
|
|
|
371 fcb $A0
|
|
|
372 L0148 fcb $6D m
|
|
|
373 fcb $6F o
|
|
|
374 fcb $64 d
|
|
|
375 fcb $AC ,
|
|
|
376 L014C fcb $72 r
|
|
|
377 fcb $65 e
|
|
|
378 fcb $2D -
|
|
|
379 fcb $65 e
|
|
|
380 fcb $6E n
|
|
|
381 fcb $AC ,
|
|
|
382 L0152 fcb $6E n
|
|
|
383 fcb $6F o
|
|
|
384 fcb $6E n
|
|
|
385 fcb $2D -
|
|
|
386 fcb $73 s
|
|
|
387 fcb $68 h
|
|
|
388 fcb $72 r
|
|
|
389 fcb $AC ,
|
|
|
390 L015A fcb $52 R
|
|
|
391 fcb $2F /
|
|
|
392 fcb $CF O
|
|
|
393 L015D fcb $52 R
|
|
|
394 fcb $2F /
|
|
|
395 fcb $D7 W
|
|
|
396 L0160 fcb $28 (
|
|
|
397 fcb $47 G
|
|
|
398 fcb $6F o
|
|
|
399 fcb $6F o
|
|
|
400 fcb $64 d
|
|
|
401 fcb $A9 )
|
|
|
402 L0166 fcb $28 (
|
|
|
403 fcb $42 B
|
|
|
404 fcb $61 a
|
|
|
405 fcb $64 d
|
|
|
406 fcb $29 )
|
|
|
407 fcb $87
|
|
|
408 L016C fcb $10
|
|
|
409 fcb $1C
|
|
|
410 fcb $20
|
|
|
411 fcb $24 $
|
|
|
412 fcb $29 )
|
|
|
413 fcb $2D -
|
|
|
414 fcb $32 2
|
|
|
415 fcb $37 7
|
|
|
416 fcb $3C <
|
|
|
417 fcb $41 A
|
|
|
418 fcb $46 F
|
|
|
419 fcb $4B K
|
|
|
420 fcb $50 P
|
|
|
421 fcb $56 V
|
|
|
422 fcb $5E ^
|
|
|
423 fcb $65 e
|
|
|
424 fcb $62 b
|
|
|
425 fcb $61 a
|
|
|
426 fcb $64 d
|
|
|
427 fcb $20
|
|
|
428 fcb $74 t
|
|
|
429 fcb $79 y
|
|
|
430 fcb $70 p
|
|
|
431 fcb $65 e
|
|
|
432 fcb $20
|
|
|
433 fcb $66 f
|
|
|
434 fcb $6F o
|
|
|
435 fcb $F2 r
|
|
|
436 fcb $50 P
|
|
|
437 fcb $72 r
|
|
|
438 fcb $6F o
|
|
|
439 fcb $E7 g
|
|
|
440 fcb $53 S
|
|
|
441 fcb $75 u
|
|
|
442 fcb $62 b
|
|
|
443 fcb $F2 r
|
|
|
444 fcb $4D M
|
|
|
445 fcb $75 u
|
|
|
446 fcb $6C l
|
|
|
447 fcb $74 t
|
|
|
448 fcb $E9 i
|
|
|
449 fcb $44 D
|
|
|
450 fcb $61 a
|
|
|
451 fcb $74 t
|
|
|
452 fcb $E1 a
|
|
|
453 fcb $55 U
|
|
|
454 fcb $73 s
|
|
|
455 fcb $72 r
|
|
|
456 fcb $20
|
|
|
457 fcb $B5 5
|
|
|
458 fcb $55 U
|
|
|
459 fcb $73 s
|
|
|
460 fcb $72 r
|
|
|
461 fcb $20
|
|
|
462 fcb $B6 6
|
|
|
463 fcb $55 U
|
|
|
464 fcb $73 s
|
|
|
465 fcb $72 r
|
|
|
466 fcb $20
|
|
|
467 fcb $B7 7
|
|
|
468 fcb $55 U
|
|
|
469 fcb $73 s
|
|
|
470 fcb $72 r
|
|
|
471 fcb $20
|
|
|
472 fcb $B8 8
|
|
|
473 fcb $55 U
|
|
|
474 fcb $73 s
|
|
|
475 fcb $72 r
|
|
|
476 fcb $20
|
|
|
477 fcb $B9 9
|
|
|
478 fcb $55 U
|
|
|
479 fcb $73 s
|
|
|
480 fcb $72 r
|
|
|
481 fcb $20
|
|
|
482 fcb $C1 A
|
|
|
483 fcb $55 U
|
|
|
484 fcb $73 s
|
|
|
485 fcb $72 r
|
|
|
486 fcb $20
|
|
|
487 fcb $C2 B
|
|
|
488 fcb $53 S
|
|
|
489 fcb $79 y
|
|
|
490 fcb $73 s
|
|
|
491 fcb $74 t
|
|
|
492 fcb $65 e
|
|
|
493 fcb $ED m
|
|
|
494 fcb $46 F
|
|
|
495 fcb $69 i
|
|
|
496 fcb $6C l
|
|
|
497 fcb $65 e
|
|
|
498 fcb $20
|
|
|
499 fcb $4D M
|
|
|
500 fcb $61 a
|
|
|
501 fcb $EE n
|
|
|
502 fcb $44 D
|
|
|
503 fcb $65 e
|
|
|
504 fcb $76 v
|
|
|
505 fcb $20
|
|
|
506 fcb $44 D
|
|
|
507 fcb $76 v
|
|
|
508 fcb $F2 r
|
|
|
509 fcb $44 D
|
|
|
510 fcb $65 e
|
|
|
511 fcb $76 v
|
|
|
512 fcb $20
|
|
|
513 fcb $44 D
|
|
|
514 fcb $73 s
|
|
|
515 fcb $E3 c
|
|
|
516 L01D8 fcb $10
|
|
|
517 fcb $15
|
|
|
518 fcb $1E
|
|
|
519 fcb $2D -
|
|
|
520 fcb $3B ;
|
|
|
521 fcb $44 D
|
|
|
522 fcb $51 Q
|
|
|
523 fcb $60 `
|
|
|
524 fcb $60 `
|
|
|
525 fcb $60 `
|
|
|
526 fcb $60 `
|
|
|
527 fcb $60 `
|
|
|
528 fcb $60 `
|
|
|
529 fcb $60 `
|
|
|
530 fcb $60 `
|
|
|
531 fcb $60 `
|
|
|
532 fcb $44 D
|
|
|
533 fcb $61 a
|
|
|
534 fcb $74 t
|
|
|
535 fcb $61 a
|
|
|
536 fcb $AC ,
|
|
|
537 fcb $36 6
|
|
|
538 fcb $38 8
|
|
|
539 fcb $30 0
|
|
|
540 fcb $39 9
|
|
|
541 fcb $20
|
|
|
542 fcb $6F o
|
|
|
543 fcb $62 b
|
|
|
544 fcb $6A j
|
|
|
545 fcb $AC ,
|
|
|
546 fcb $42 B
|
|
|
547 fcb $41 A
|
|
|
548 fcb $53 S
|
|
|
549 fcb $49 I
|
|
|
550 fcb $43 C
|
|
|
551 fcb $30 0
|
|
|
552 fcb $39 9
|
|
|
553 fcb $20
|
|
|
554 fcb $49 I
|
|
|
555 fcb $2D -
|
|
|
556 fcb $63 c
|
|
|
557 fcb $6F o
|
|
|
558 fcb $64 d
|
|
|
559 fcb $65 e
|
|
|
560 fcb $AC ,
|
|
|
561 fcb $50 P
|
|
|
562 fcb $41 A
|
|
|
563 fcb $53 S
|
|
|
564 fcb $43 C
|
|
|
565 fcb $41 A
|
|
|
566 fcb $4C L
|
|
|
567 fcb $20
|
|
|
568 fcb $50 P
|
|
|
569 fcb $2D -
|
|
|
570 fcb $63 c
|
|
|
571 fcb $6F o
|
|
|
572 fcb $64 d
|
|
|
573 fcb $65 e
|
|
|
574 fcb $AC ,
|
|
|
575 fcb $43 C
|
|
|
576 fcb $20
|
|
|
577 fcb $49 I
|
|
|
578 fcb $2D -
|
|
|
579 fcb $63 c
|
|
|
580 fcb $6F o
|
|
|
581 fcb $64 d
|
|
|
582 fcb $65 e
|
|
|
583 fcb $AC ,
|
|
|
584 fcb $43 C
|
|
|
585 fcb $4F O
|
|
|
586 fcb $42 B
|
|
|
587 fcb $4F O
|
|
|
588 fcb $4C L
|
|
|
589 fcb $20
|
|
|
590 fcb $49 I
|
|
|
591 fcb $2D -
|
|
|
592 fcb $63 c
|
|
|
593 fcb $6F o
|
|
|
594 fcb $64 d
|
|
|
595 fcb $65 e
|
|
|
596 fcb $AC ,
|
|
|
597 fcb $46 F
|
|
|
598 fcb $4F O
|
|
|
599 fcb $52 R
|
|
|
600 fcb $54 T
|
|
|
601 fcb $52 R
|
|
|
602 fcb $41 A
|
|
|
603 fcb $4E N
|
|
|
604 fcb $20
|
|
|
605 fcb $49 I
|
|
|
606 fcb $2D -
|
|
|
607 fcb $63 c
|
|
|
608 fcb $6F o
|
|
|
609 fcb $64 d
|
|
|
610 fcb $65 e
|
|
|
611 fcb $AC ,
|
|
|
612 fcb $3F ?
|
|
|
613 fcb $3F ?
|
|
|
614 fcb $3F ?
|
|
|
615 fcb $3F ?
|
|
|
616 fcb $AC ,
|
|
|
617 start equ *
|
|
|
618 leas >u019C,u
|
|
|
619 sts <u0006
|
|
|
620 tfr y,d
|
|
|
621 subd <u0006
|
|
|
622 std <u0008
|
|
|
623 leay <u0022,u
|
|
|
624 sty <u0000
|
|
|
625 clr <u000A
|
|
|
626 clr <u000B
|
|
|
627 clr <u000C
|
|
|
628 clr <u0018
|
|
|
629 lda #$01
|
|
|
630 sta <u000D
|
|
|
631 ldd #$0000
|
|
|
632 std <u0002
|
|
|
633 std <u0004
|
|
|
634 L0263 lda ,x+
|
|
|
635 L0265 cmpa #$20
|
|
|
636 beq L0263
|
|
|
637 cmpa #$2C
|
|
|
638 beq L0263
|
|
|
639 cmpa #$0D
|
|
|
640 beq L02BB
|
|
|
641 cmpa #$2D
|
|
|
642 beq L027E
|
|
|
643 ldy <u0002
|
|
|
644 bne L0263
|
|
|
645 stx <u0002
|
|
|
646 bra L0263
|
|
|
647 L027E lda ,x+
|
|
|
648 cmpa #$2D
|
|
|
649 beq L027E
|
|
|
650 cmpa #$30
|
|
|
651 bcs L0265
|
|
|
652 eora #$4D
|
|
|
653 anda #$DF
|
|
|
654 bne L0292
|
|
|
655 inc <u000A
|
|
|
656 bra L027E
|
|
|
657 L0292 lda -$01,x
|
|
|
658 eora #$53
|
|
|
659 anda #$DF
|
|
|
660 bne L029E
|
|
|
661 inc <u000B
|
|
|
662 bra L027E
|
|
|
663 L029E lda -$01,x
|
|
|
664 eora #$56
|
|
|
665 anda #$DF
|
|
|
666 bne L02AA
|
|
|
667 inc <u000C
|
|
|
668 bra L027E
|
|
|
669 L02AA lda -$01,x
|
|
|
670 eora #$58
|
|
|
671 anda #$DF
|
|
|
672 bne L02B8
|
|
|
673 lda #$05
|
|
|
674 sta <u000D
|
|
|
675 bra L027E
|
|
|
676 L02B8 lbra L03C4
|
|
|
677 L02BB ldx <u0002
|
|
|
678 lbeq L03C4
|
|
|
679 leax -$01,x
|
|
|
680 tst <u000A
|
|
|
681 beq L0314
|
|
|
682 pshs u
|
|
|
683 clra
|
|
|
684 os9 F$Link
|
|
|
685 lbcs L03D2
|
|
|
686 stu <u000E
|
|
|
687 ldd ,u
|
|
|
688 cmpd #$87CD
|
|
|
689 beq L02EB
|
|
|
690 puls u
|
|
|
691 L02DD leay >L00CD,pcr
|
|
|
692 lbsr L05FC
|
|
|
693 lbsr L0612
|
|
|
694 clrb
|
|
|
695 lbra L03D2
|
|
|
696 L02EB ldd u0002,u
|
|
|
697 subd #$0003
|
|
|
698 leax d,u
|
|
|
699 puls u
|
|
|
700 leay <u0010,u
|
|
|
701 pshs u
|
|
|
702 lda #$03
|
|
|
703 L02FB ldb ,x+
|
|
|
704 stb ,y+
|
|
|
705 deca
|
|
|
706 bne L02FB
|
|
|
707 puls u
|
|
|
708 lbsr L03D5
|
|
|
709 ldu <u000E
|
|
|
710 os9 F$UnLink
|
|
|
711 lbcs L03D2
|
|
|
712 clrb
|
|
|
713 lbra L03D2
|
|
|
714 L0314 lda #$80
|
|
|
715 sta <u00A1
|
|
|
716 lda <u000D
|
|
|
717 os9 I$Open
|
|
|
718 lbcs L03D2
|
|
|
719 sta <u0019
|
|
|
720 ldd #$0000
|
|
|
721 std <u001E
|
|
|
722 std <u0020
|
|
|
723 std <u001C
|
|
|
724 L032C ldd <u0020
|
|
|
725 addd <u001C
|
|
|
726 std <u0020
|
|
|
727 bcc L033B
|
|
|
728 ldd <u001E
|
|
|
729 addd #$0001
|
|
|
730 std <u001E
|
|
|
731 L033B pshs u
|
|
|
732 ldx <u001E
|
|
|
733 ldu <u0020
|
|
|
734 lda <u0019
|
|
|
735 os9 I$Seek
|
|
|
736 lbcs L03D2
|
|
|
737 puls u
|
|
|
738 leax <u0072,u
|
|
|
739 stx <u000E
|
|
|
740 ldy #$000E
|
|
|
741 os9 I$Read
|
|
|
742 bcc L0360
|
|
|
743 cmpb #$D3
|
|
|
744 bne L03D2
|
|
|
745 bra L03C1
|
|
|
746 L0360 ldd ,x
|
|
|
747 cmpd #$87CD
|
|
|
748 lbne L02DD
|
|
|
749 pshs u,x
|
|
|
750 ldd $02,x
|
|
|
751 std <u001C
|
|
|
752 addd <u0020
|
|
|
753 tfr d,u
|
|
|
754 leau -u0003,u
|
|
|
755 ldx <u001E
|
|
|
756 bcc L037C
|
|
|
757 leax $01,x
|
|
|
758 L037C lda <u0019
|
|
|
759 os9 I$Seek
|
|
|
760 bcs L03D2
|
|
|
761 puls u,x
|
|
|
762 leax <u0010,u
|
|
|
763 ldy #$0003
|
|
|
764 lda <u0019
|
|
|
765 os9 I$Read
|
|
|
766 bcs L03D2
|
|
|
767 pshs u,x
|
|
|
768 ldy <u000E
|
|
|
769 ldd $04,y
|
|
|
770 addd <u0020
|
|
|
771 tfr d,u
|
|
|
772 ldx <u001E
|
|
|
773 bcc L03A4
|
|
|
774 leax $01,x
|
|
|
775 L03A4 lda <u0019
|
|
|
776 os9 I$Seek
|
|
|
777 bcs L03D2
|
|
|
778 puls u,x
|
|
|
779 leax >u0080,u
|
|
|
780 ldy #$0021
|
|
|
781 lda <u0019
|
|
|
782 os9 I$Read
|
|
|
783 bcs L03D2
|
|
|
784 bsr L03D5
|
|
|
785 lbra L032C
|
|
|
786 L03C1 clrb
|
|
|
787 bra L03D2
|
|
|
788 L03C4 lda #$01
|
|
|
789 leax >L0013,pcr
|
|
|
790 ldy #$00BA
|
|
|
791 os9 I$WritLn
|
|
|
792 clrb
|
|
|
793 L03D2 os9 F$Exit
|
|
|
794 L03D5 tst <u000B
|
|
|
795 lbne L0502
|
|
|
796 lbsr L0612
|
|
|
797 leay >L00E8,pcr
|
|
|
798 lbsr L05FC
|
|
|
799 lbsr L04E9
|
|
|
800 lbsr L0612
|
|
|
801 leay >L00F4,pcr
|
|
|
802 lbsr L05FC
|
|
|
803 ldy <u000E
|
|
|
804 ldd $02,y
|
|
|
805 lbsr L05D2
|
|
|
806 leay >L0100,pcr
|
|
|
807 lbsr L05FC
|
|
|
808 lbsr L0543
|
|
|
809 tst <u000C
|
|
|
810 bne L041E
|
|
|
811 lbsr L0553
|
|
|
812 tsta
|
|
|
813 beq L0417
|
|
|
814 leay >L0166,pcr
|
|
|
815 lbsr L05FC
|
|
|
816 bra L041E
|
|
|
817 L0417 leay >L0160,pcr
|
|
|
818 lbsr L05FC
|
|
|
819 L041E lbsr L0612
|
|
|
820 leay >L010C,pcr
|
|
|
821 lbsr L05FC
|
|
|
822 ldy <u000E
|
|
|
823 ldb $08,y
|
|
|
824 lbsr L0633
|
|
|
825 lbsr L0612
|
|
|
826 ldy <u000E
|
|
|
827 ldb $06,y
|
|
|
828 stb <u001A
|
|
|
829 andb #$F0
|
|
|
830 cmpb #$E0
|
|
|
831 beq L0444
|
|
|
832 cmpb #$10
|
|
|
833 bne L0462
|
|
|
834 L0444 leay >L0118,pcr
|
|
|
835 lbsr L05FC
|
|
|
836 ldy <u000E
|
|
|
837 ldd $09,y
|
|
|
838 lbsr L05D2
|
|
|
839 leay >L0124,pcr
|
|
|
840 lbsr L05FC
|
|
|
841 ldy <u000E
|
|
|
842 ldd $0B,y
|
|
|
843 lbsr L05D2
|
|
|
844 L0462 leay >L013C,pcr
|
|
|
845 lbsr L05FC
|
|
|
846 ldb <u0016
|
|
|
847 pshs b
|
|
|
848 lbsr L0633
|
|
|
849 ldb #$05
|
|
|
850 lbsr L0654
|
|
|
851 puls b
|
|
|
852 clra
|
|
|
853 lbsr L0649
|
|
|
854 lbsr L0612
|
|
|
855 leay >L0130,pcr
|
|
|
856 lbsr L05FC
|
|
|
857 ldb <u001A
|
|
|
858 lbsr L0633
|
|
|
859 ldy <u000E
|
|
|
860 ldb $07,y
|
|
|
861 stb <u001B
|
|
|
862 lbsr L0633
|
|
|
863 lbsr L0612
|
|
|
864 ldb <u001A
|
|
|
865 lsrb
|
|
|
866 lsrb
|
|
|
867 lsrb
|
|
|
868 lsrb
|
|
|
869 leax >L016C,pcr
|
|
|
870 lda b,x
|
|
|
871 leay a,x
|
|
|
872 lbsr L05FC
|
|
|
873 leay >L0148,pcr
|
|
|
874 lbsr L05FC
|
|
|
875 ldb <u001A
|
|
|
876 andb #$0F
|
|
|
877 leax >L01D8,pcr
|
|
|
878 lda b,x
|
|
|
879 leay a,x
|
|
|
880 lbsr L05FC
|
|
|
881 ldb <u001B
|
|
|
882 bitb #$80
|
|
|
883 beq L04CD
|
|
|
884 leay >L014C,pcr
|
|
|
885 lbsr L05FC
|
|
|
886 bra L04D4
|
|
|
887 L04CD leay >L0152,pcr
|
|
|
888 lbsr L05FC
|
|
|
889 L04D4 bitb #$40
|
|
|
890 beq L04DE
|
|
|
891 leay >L015D,pcr
|
|
|
892 bra L04E2
|
|
|
893 L04DE leay >L015A,pcr
|
|
|
894 L04E2 lbsr L05FC
|
|
|
895 lbsr L0612
|
|
|
896 rts
|
|
|
897 L04E9 tst <u000A
|
|
|
898 beq L04F6
|
|
|
899 ldy <u000E
|
|
|
900 ldd $04,y
|
|
|
901 leay d,y
|
|
|
902 bra L04FA
|
|
|
903 L04F6 leay >u0080,u
|
|
|
904 L04FA lbsr L05FC
|
|
|
905 lda ,y
|
|
|
906 sta <u0016
|
|
|
907 rts
|
|
|
908 L0502 ldb #$06
|
|
|
909 lbsr L0654
|
|
|
910 ldy <u000E
|
|
|
911 ldb $06,y
|
|
|
912 lbsr L0633
|
|
|
913 bsr L0543
|
|
|
914 tst <u000C
|
|
|
915 beq L0519
|
|
|
916 lda #$20
|
|
|
917 bra L0520
|
|
|
918 L0519 bsr L0553
|
|
|
919 tsta
|
|
|
920 bne L0520
|
|
|
921 lda #$2E
|
|
|
922 L0520 lbsr L0608
|
|
|
923 lbsr L0666
|
|
|
924 bsr L04E9
|
|
|
925 ldx <u0000
|
|
|
926 pshs x
|
|
|
927 leax <u0022,u
|
|
|
928 stx <u0000
|
|
|
929 ldb <u0016
|
|
|
930 inc <u0018
|
|
|
931 clra
|
|
|
932 lbsr L0692
|
|
|
933 clr <u0018
|
|
|
934 puls x
|
|
|
935 stx <u0000
|
|
|
936 lbsr L0612
|
|
|
937 rts
|
|
|
938 L0543 lda #$24
|
|
|
939 lbsr L0608
|
|
|
940 ldd <u0010
|
|
|
941 lbsr L066E
|
|
|
942 ldb <u0012
|
|
|
943 lbsr L0664
|
|
|
944 rts
|
|
|
945 L0553 ldd #$FFFF
|
|
|
946 std <u0013
|
|
|
947 stb <u0015
|
|
|
948 pshs u,y,x
|
|
|
949 leau <u0013,u
|
|
|
950 tst <u000A
|
|
|
951 beq L0571
|
|
|
952 ldx <u000E
|
|
|
953 ldy $02,x
|
|
|
954 os9 F$CRC
|
|
|
955 lbcs L03D2
|
|
|
956 bra L058C
|
|
|
957 L0571 pshs u,x
|
|
|
958 ldx <u001E
|
|
|
959 ldu <u0020
|
|
|
960 lda <u0019
|
|
|
961 os9 I$Seek
|
|
|
962 puls u,x
|
|
|
963 lbcs L03D2
|
|
|
964 ldd <u001C
|
|
|
965 pshs b,a
|
|
|
966 bsr L05BF
|
|
|
967 puls b,a
|
|
|
968 std <u001C
|
|
|
969 L058C puls u,y,x
|
|
|
970 lda <u0013
|
|
|
971 cmpa #$80
|
|
|
972 bne L059E
|
|
|
973 ldd <u0014
|
|
|
974 cmpd #$0FE3
|
|
|
975 bne L059E
|
|
|
976 bra L05A1
|
|
|
977 L059E lda #$3F
|
|
|
978 rts
|
|
|
979 L05A1 clra
|
|
|
980 rts
|
|
|
981 L05A3 lda <u0019
|
|
|
982 ldx <u0006
|
|
|
983 ldy <u0008
|
|
|
984 cmpy <u001C
|
|
|
985 bls L05B2
|
|
|
986 ldy <u001C
|
|
|
987 L05B2 os9 I$Read
|
|
|
988 sty <u0004
|
|
|
989 rts
|
|
|
990 L05B9 bsr L05A3
|
|
|
991 lbcs L03D2
|
|
|
992 L05BF ldy <u0004
|
|
|
993 beq L05B9
|
|
|
994 os9 F$CRC
|
|
|
995 ldd <u001C
|
|
|
996 subd <u0004
|
|
|
997 std <u001C
|
|
|
998 bne L05B9
|
|
|
999 std <u0004
|
|
|
1000 rts
|
|
|
1001 L05D2 pshs b,a
|
|
|
1002 bsr L0628
|
|
|
1003 ldb #$03
|
|
|
1004 bsr L0654
|
|
|
1005 puls b,a
|
|
|
1006 bsr L0649
|
|
|
1007 bsr L0612
|
|
|
1008 rts
|
|
|
1009 pshs b,a
|
|
|
1010 andb #$F0
|
|
|
1011 lsrb
|
|
|
1012 lsrb
|
|
|
1013 lsrb
|
|
|
1014 lsrb
|
|
|
1015 L05E9 lda #$24
|
|
|
1016 bsr L0608
|
|
|
1017 lbsr L0682
|
|
|
1018 ldb #$02
|
|
|
1019 bsr L0654
|
|
|
1020 puls pc,b,a
|
|
|
1021 pshs b,a
|
|
|
1022 andb #$0F
|
|
|
1023 bra L05E9
|
|
|
1024 L05FC lda ,y
|
|
|
1025 anda #$7F
|
|
|
1026 bsr L0608
|
|
|
1027 lda ,y+
|
|
|
1028 bpl L05FC
|
|
|
1029 L0606 lda #$20
|
|
|
1030 L0608 pshs x
|
|
|
1031 ldx <u0000
|
|
|
1032 sta ,x+
|
|
|
1033 stx <u0000
|
|
|
1034 puls pc,x
|
|
|
1035 L0612 pshs y,x,a
|
|
|
1036 lda #$0D
|
|
|
1037 bsr L0608
|
|
|
1038 leax <u0022,u
|
|
|
1039 stx <u0000
|
|
|
1040 ldy #$0050
|
|
|
1041 lda #$01
|
|
|
1042 os9 I$WritLn
|
|
|
1043 puls pc,y,x,a
|
|
|
1044 L0628 pshs a
|
|
|
1045 lda #$24
|
|
|
1046 bsr L0608
|
|
|
1047 puls a
|
|
|
1048 bsr L0660
|
|
|
1049 rts
|
|
|
1050 L0633 pshs a
|
|
|
1051 lda #$24
|
|
|
1052 bsr L0608
|
|
|
1053 puls a
|
|
|
1054 bsr L0664
|
|
|
1055 rts
|
|
|
1056 pshs a
|
|
|
1057 lda #$24
|
|
|
1058 bsr L0608
|
|
|
1059 puls a
|
|
|
1060 bsr L0682
|
|
|
1061 rts
|
|
|
1062 L0649 pshs a
|
|
|
1063 lda #$23
|
|
|
1064 bsr L0608
|
|
|
1065 puls a
|
|
|
1066 bsr L0692
|
|
|
1067 rts
|
|
|
1068 L0654 pshs b,a
|
|
|
1069 L0656 tstb
|
|
|
1070 ble L065E
|
|
|
1071 bsr L0606
|
|
|
1072 decb
|
|
|
1073 bra L0656
|
|
|
1074 L065E puls pc,b,a
|
|
|
1075 L0660 bsr L066E
|
|
|
1076 bra L0666
|
|
|
1077 L0664 bsr L0674
|
|
|
1078 L0666 pshs a
|
|
|
1079 lda #$20
|
|
|
1080 bsr L0608
|
|
|
1081 puls pc,a
|
|
|
1082 L066E exg a,b
|
|
|
1083 bsr L0674
|
|
|
1084 tfr a,b
|
|
|
1085 L0674 pshs b
|
|
|
1086 andb #$F0
|
|
|
1087 lsrb
|
|
|
1088 lsrb
|
|
|
1089 lsrb
|
|
|
1090 lsrb
|
|
|
1091 bsr L0682
|
|
|
1092 puls b
|
|
|
1093 andb #$0F
|
|
|
1094 L0682 cmpb #$09
|
|
|
1095 bls L0688
|
|
|
1096 addb #$07
|
|
|
1097 L0688 addb #$30
|
|
|
1098 exg a,b
|
|
|
1099 lbsr L0608
|
|
|
1100 exg a,b
|
|
|
1101 rts
|
|
|
1102 L0692 pshs u,y,b
|
|
|
1103 leau <L06C3,pcr
|
|
|
1104 clr <u0017
|
|
|
1105 ldy #$0005
|
|
|
1106 L069D clr ,s
|
|
|
1107 L069F subd ,u
|
|
|
1108 bcs L06A7
|
|
|
1109 inc ,s
|
|
|
1110 bra L069F
|
|
|
1111 L06A7 addd ,u++
|
|
|
1112 pshs b
|
|
|
1113 ldb $01,s
|
|
|
1114 exg a,b
|
|
|
1115 bsr L06CD
|
|
|
1116 exg a,b
|
|
|
1117 puls b
|
|
|
1118 cmpy #$0002
|
|
|
1119 bgt L06BD
|
|
|
1120 inc <u0017
|
|
|
1121 L06BD leay -$01,y
|
|
|
1122 bne L069D
|
|
|
1123 puls pc,u,y,b
|
|
|
1124 L06C3 fdb $2710,$03e8,$0064,$000a,$0001
|
|
|
1125 L06CD tsta
|
|
|
1126 beq L06D2
|
|
|
1127 sta <u0017
|
|
|
1128 L06D2 tst <u0017
|
|
|
1129 bne L06DF
|
|
|
1130 tst <u0018
|
|
|
1131 beq L06DE
|
|
|
1132 lda #$20
|
|
|
1133 bra L06E1
|
|
|
1134 L06DE rts
|
|
|
1135 L06DF adda #$30
|
|
|
1136 L06E1 lbra L0608
|
|
|
1137
|
|
|
1138 emod
|
|
|
1139 eom equ *
|
|
|
1140 end
|
