|
0
|
1 ********************************************************************
|
|
|
2 * Ident - Show module information
|
|
|
3 *
|
|
|
4 * $Id$
|
|
|
5 *
|
|
|
6 * Ed. Comments Who YY/MM/DD
|
|
|
7 * ------------------------------------------------------------------
|
|
28
|
8 * 7 Original Tandy/Microware version BGP 02/04/06
|
|
0
|
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
|
|
28
|
45 path rmb 1
|
|
0
|
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
|
|
28
|
63 L0013 fcb C$LF
|
|
|
64 fcc "Use: Ident [-opts] <module> [-opts]"
|
|
|
65 fcb C$LF
|
|
|
66 fcc " to display module header."
|
|
|
67 fcb C$LF
|
|
|
68 fcc " -m to display module in memory."
|
|
|
69 fcb C$LF
|
|
|
70 fcc " -s for short form."
|
|
|
71 fcb C$LF
|
|
|
72 fcc " -v for no CRC verification"
|
|
|
73 fcb C$LF
|
|
|
74 fcc " -x for file in execution directory"
|
|
|
75 fcb C$CR
|
|
|
76 L00CD fcs "Module header is incorrect!"
|
|
|
77 L00E8 fcs "Header for: "
|
|
|
78 L00F4 fcs "Module size:"
|
|
|
79 L0100 fcs "Module CRC: "
|
|
|
80 L010C fcs "Hdr parity: "
|
|
|
81 L0118 fcs "Exec. off: "
|
|
|
82 L0124 fcs "Data Size: "
|
|
|
83 L0130 fcs "Ty/La At/Rv:"
|
|
|
84 L013C fcs "Edition: "
|
|
|
85 L0148 fcs "mod,"
|
|
|
86 L014C fcs "re-en,"
|
|
|
87 L0152 fcs "non-shr,"
|
|
|
88 L015A fcs "R/O"
|
|
|
89 L015D fcs "R/W"
|
|
|
90 L0160 fcs "(Good)"
|
|
|
91 L0166 fcc "(Bad)"
|
|
|
92 fcb $80+C$BELL
|
|
0
|
93 L016C fcb $10
|
|
|
94 fcb $1C
|
|
|
95 fcb $20
|
|
|
96 fcb $24 $
|
|
|
97 fcb $29 )
|
|
|
98 fcb $2D -
|
|
|
99 fcb $32 2
|
|
|
100 fcb $37 7
|
|
|
101 fcb $3C <
|
|
|
102 fcb $41 A
|
|
|
103 fcb $46 F
|
|
|
104 fcb $4B K
|
|
|
105 fcb $50 P
|
|
|
106 fcb $56 V
|
|
|
107 fcb $5E ^
|
|
|
108 fcb $65 e
|
|
28
|
109 fcs "bad type for"
|
|
|
110 fcs "Prog"
|
|
|
111 fcs "Subr"
|
|
|
112 fcs "Multi"
|
|
|
113 fcs "Data"
|
|
|
114 fcs "Usr 5"
|
|
|
115 fcs "Usr 6"
|
|
|
116 fcs "Usr 7"
|
|
|
117 fcs "Usr 8"
|
|
|
118 fcs "Usr 9"
|
|
|
119 fcs "Usr A"
|
|
|
120 fcs "Usr B"
|
|
|
121 fcs "System"
|
|
|
122 fcs "File Man"
|
|
|
123 fcs "Dev Dvr"
|
|
|
124 fcs "Dev Dsc"
|
|
0
|
125 L01D8 fcb $10
|
|
|
126 fcb $15
|
|
|
127 fcb $1E
|
|
|
128 fcb $2D -
|
|
|
129 fcb $3B ;
|
|
|
130 fcb $44 D
|
|
|
131 fcb $51 Q
|
|
|
132 fcb $60 `
|
|
|
133 fcb $60 `
|
|
|
134 fcb $60 `
|
|
|
135 fcb $60 `
|
|
|
136 fcb $60 `
|
|
|
137 fcb $60 `
|
|
|
138 fcb $60 `
|
|
|
139 fcb $60 `
|
|
|
140 fcb $60 `
|
|
28
|
141 fcs "Data,"
|
|
|
142 fcs "6809 obj,"
|
|
|
143 fcs "BASIC09 I-code,"
|
|
|
144 fcs "PASCAL P-code,"
|
|
|
145 fcs "C I-code,"
|
|
|
146 fcs "COBOL I-code,"
|
|
|
147 fcs "FORTRAN I-code,"
|
|
|
148 fcs "????,"
|
|
|
149
|
|
|
150 start leas >u019C,u
|
|
0
|
151 sts <u0006
|
|
|
152 tfr y,d
|
|
|
153 subd <u0006
|
|
|
154 std <u0008
|
|
|
155 leay <u0022,u
|
|
|
156 sty <u0000
|
|
|
157 clr <u000A
|
|
|
158 clr <u000B
|
|
|
159 clr <u000C
|
|
|
160 clr <u0018
|
|
28
|
161 lda #READ.
|
|
0
|
162 sta <u000D
|
|
|
163 ldd #$0000
|
|
|
164 std <u0002
|
|
|
165 std <u0004
|
|
|
166 L0263 lda ,x+
|
|
28
|
167 L0265 cmpa #C$SPAC
|
|
0
|
168 beq L0263
|
|
28
|
169 cmpa #C$COMA
|
|
0
|
170 beq L0263
|
|
28
|
171 cmpa #C$CR
|
|
0
|
172 beq L02BB
|
|
28
|
173 cmpa #'-
|
|
0
|
174 beq L027E
|
|
|
175 ldy <u0002
|
|
|
176 bne L0263
|
|
|
177 stx <u0002
|
|
|
178 bra L0263
|
|
|
179 L027E lda ,x+
|
|
28
|
180 cmpa #'-
|
|
0
|
181 beq L027E
|
|
28
|
182 cmpa #'0
|
|
0
|
183 bcs L0265
|
|
28
|
184 eora #'M
|
|
0
|
185 anda #$DF
|
|
|
186 bne L0292
|
|
|
187 inc <u000A
|
|
|
188 bra L027E
|
|
|
189 L0292 lda -$01,x
|
|
28
|
190 eora #'S
|
|
0
|
191 anda #$DF
|
|
|
192 bne L029E
|
|
|
193 inc <u000B
|
|
|
194 bra L027E
|
|
|
195 L029E lda -$01,x
|
|
28
|
196 eora #'V
|
|
0
|
197 anda #$DF
|
|
|
198 bne L02AA
|
|
|
199 inc <u000C
|
|
|
200 bra L027E
|
|
|
201 L02AA lda -$01,x
|
|
28
|
202 eora #'X
|
|
0
|
203 anda #$DF
|
|
|
204 bne L02B8
|
|
28
|
205 lda #EXEC.+READ.
|
|
0
|
206 sta <u000D
|
|
|
207 bra L027E
|
|
|
208 L02B8 lbra L03C4
|
|
|
209 L02BB ldx <u0002
|
|
|
210 lbeq L03C4
|
|
|
211 leax -$01,x
|
|
|
212 tst <u000A
|
|
|
213 beq L0314
|
|
|
214 pshs u
|
|
|
215 clra
|
|
|
216 os9 F$Link
|
|
|
217 lbcs L03D2
|
|
|
218 stu <u000E
|
|
|
219 ldd ,u
|
|
28
|
220 cmpd #M$ID12
|
|
0
|
221 beq L02EB
|
|
|
222 puls u
|
|
|
223 L02DD leay >L00CD,pcr
|
|
|
224 lbsr L05FC
|
|
|
225 lbsr L0612
|
|
|
226 clrb
|
|
|
227 lbra L03D2
|
|
|
228 L02EB ldd u0002,u
|
|
|
229 subd #$0003
|
|
|
230 leax d,u
|
|
|
231 puls u
|
|
|
232 leay <u0010,u
|
|
|
233 pshs u
|
|
|
234 lda #$03
|
|
|
235 L02FB ldb ,x+
|
|
|
236 stb ,y+
|
|
|
237 deca
|
|
|
238 bne L02FB
|
|
|
239 puls u
|
|
|
240 lbsr L03D5
|
|
|
241 ldu <u000E
|
|
|
242 os9 F$UnLink
|
|
|
243 lbcs L03D2
|
|
|
244 clrb
|
|
|
245 lbra L03D2
|
|
|
246 L0314 lda #$80
|
|
|
247 sta <u00A1
|
|
|
248 lda <u000D
|
|
|
249 os9 I$Open
|
|
|
250 lbcs L03D2
|
|
28
|
251 sta <path
|
|
0
|
252 ldd #$0000
|
|
|
253 std <u001E
|
|
|
254 std <u0020
|
|
|
255 std <u001C
|
|
|
256 L032C ldd <u0020
|
|
|
257 addd <u001C
|
|
|
258 std <u0020
|
|
|
259 bcc L033B
|
|
|
260 ldd <u001E
|
|
|
261 addd #$0001
|
|
|
262 std <u001E
|
|
|
263 L033B pshs u
|
|
|
264 ldx <u001E
|
|
|
265 ldu <u0020
|
|
28
|
266 lda <path
|
|
0
|
267 os9 I$Seek
|
|
|
268 lbcs L03D2
|
|
|
269 puls u
|
|
|
270 leax <u0072,u
|
|
|
271 stx <u000E
|
|
|
272 ldy #$000E
|
|
|
273 os9 I$Read
|
|
|
274 bcc L0360
|
|
28
|
275 cmpb #E$EOF
|
|
0
|
276 bne L03D2
|
|
|
277 bra L03C1
|
|
|
278 L0360 ldd ,x
|
|
28
|
279 cmpd #M$ID12
|
|
0
|
280 lbne L02DD
|
|
|
281 pshs u,x
|
|
|
282 ldd $02,x
|
|
|
283 std <u001C
|
|
|
284 addd <u0020
|
|
|
285 tfr d,u
|
|
|
286 leau -u0003,u
|
|
|
287 ldx <u001E
|
|
|
288 bcc L037C
|
|
|
289 leax $01,x
|
|
28
|
290 L037C lda <path
|
|
0
|
291 os9 I$Seek
|
|
|
292 bcs L03D2
|
|
|
293 puls u,x
|
|
|
294 leax <u0010,u
|
|
|
295 ldy #$0003
|
|
28
|
296 lda <path
|
|
0
|
297 os9 I$Read
|
|
|
298 bcs L03D2
|
|
|
299 pshs u,x
|
|
|
300 ldy <u000E
|
|
|
301 ldd $04,y
|
|
|
302 addd <u0020
|
|
|
303 tfr d,u
|
|
|
304 ldx <u001E
|
|
|
305 bcc L03A4
|
|
|
306 leax $01,x
|
|
28
|
307 L03A4 lda <path
|
|
0
|
308 os9 I$Seek
|
|
|
309 bcs L03D2
|
|
|
310 puls u,x
|
|
|
311 leax >u0080,u
|
|
|
312 ldy #$0021
|
|
28
|
313 lda <path
|
|
0
|
314 os9 I$Read
|
|
|
315 bcs L03D2
|
|
|
316 bsr L03D5
|
|
|
317 lbra L032C
|
|
|
318 L03C1 clrb
|
|
|
319 bra L03D2
|
|
|
320 L03C4 lda #$01
|
|
|
321 leax >L0013,pcr
|
|
|
322 ldy #$00BA
|
|
|
323 os9 I$WritLn
|
|
|
324 clrb
|
|
|
325 L03D2 os9 F$Exit
|
|
|
326 L03D5 tst <u000B
|
|
|
327 lbne L0502
|
|
|
328 lbsr L0612
|
|
|
329 leay >L00E8,pcr
|
|
|
330 lbsr L05FC
|
|
|
331 lbsr L04E9
|
|
|
332 lbsr L0612
|
|
|
333 leay >L00F4,pcr
|
|
|
334 lbsr L05FC
|
|
|
335 ldy <u000E
|
|
|
336 ldd $02,y
|
|
|
337 lbsr L05D2
|
|
|
338 leay >L0100,pcr
|
|
|
339 lbsr L05FC
|
|
|
340 lbsr L0543
|
|
|
341 tst <u000C
|
|
|
342 bne L041E
|
|
|
343 lbsr L0553
|
|
|
344 tsta
|
|
|
345 beq L0417
|
|
|
346 leay >L0166,pcr
|
|
|
347 lbsr L05FC
|
|
|
348 bra L041E
|
|
|
349 L0417 leay >L0160,pcr
|
|
|
350 lbsr L05FC
|
|
|
351 L041E lbsr L0612
|
|
|
352 leay >L010C,pcr
|
|
|
353 lbsr L05FC
|
|
|
354 ldy <u000E
|
|
|
355 ldb $08,y
|
|
|
356 lbsr L0633
|
|
|
357 lbsr L0612
|
|
|
358 ldy <u000E
|
|
|
359 ldb $06,y
|
|
|
360 stb <u001A
|
|
|
361 andb #$F0
|
|
|
362 cmpb #$E0
|
|
|
363 beq L0444
|
|
|
364 cmpb #$10
|
|
|
365 bne L0462
|
|
|
366 L0444 leay >L0118,pcr
|
|
|
367 lbsr L05FC
|
|
|
368 ldy <u000E
|
|
|
369 ldd $09,y
|
|
|
370 lbsr L05D2
|
|
|
371 leay >L0124,pcr
|
|
|
372 lbsr L05FC
|
|
|
373 ldy <u000E
|
|
|
374 ldd $0B,y
|
|
|
375 lbsr L05D2
|
|
|
376 L0462 leay >L013C,pcr
|
|
|
377 lbsr L05FC
|
|
|
378 ldb <u0016
|
|
|
379 pshs b
|
|
|
380 lbsr L0633
|
|
|
381 ldb #$05
|
|
|
382 lbsr L0654
|
|
|
383 puls b
|
|
|
384 clra
|
|
|
385 lbsr L0649
|
|
|
386 lbsr L0612
|
|
|
387 leay >L0130,pcr
|
|
|
388 lbsr L05FC
|
|
|
389 ldb <u001A
|
|
|
390 lbsr L0633
|
|
|
391 ldy <u000E
|
|
|
392 ldb $07,y
|
|
|
393 stb <u001B
|
|
|
394 lbsr L0633
|
|
|
395 lbsr L0612
|
|
|
396 ldb <u001A
|
|
|
397 lsrb
|
|
|
398 lsrb
|
|
|
399 lsrb
|
|
|
400 lsrb
|
|
|
401 leax >L016C,pcr
|
|
|
402 lda b,x
|
|
|
403 leay a,x
|
|
|
404 lbsr L05FC
|
|
|
405 leay >L0148,pcr
|
|
|
406 lbsr L05FC
|
|
|
407 ldb <u001A
|
|
|
408 andb #$0F
|
|
|
409 leax >L01D8,pcr
|
|
|
410 lda b,x
|
|
|
411 leay a,x
|
|
|
412 lbsr L05FC
|
|
|
413 ldb <u001B
|
|
|
414 bitb #$80
|
|
|
415 beq L04CD
|
|
|
416 leay >L014C,pcr
|
|
|
417 lbsr L05FC
|
|
|
418 bra L04D4
|
|
|
419 L04CD leay >L0152,pcr
|
|
|
420 lbsr L05FC
|
|
|
421 L04D4 bitb #$40
|
|
|
422 beq L04DE
|
|
|
423 leay >L015D,pcr
|
|
|
424 bra L04E2
|
|
|
425 L04DE leay >L015A,pcr
|
|
|
426 L04E2 lbsr L05FC
|
|
|
427 lbsr L0612
|
|
|
428 rts
|
|
|
429 L04E9 tst <u000A
|
|
|
430 beq L04F6
|
|
|
431 ldy <u000E
|
|
|
432 ldd $04,y
|
|
|
433 leay d,y
|
|
|
434 bra L04FA
|
|
|
435 L04F6 leay >u0080,u
|
|
|
436 L04FA lbsr L05FC
|
|
|
437 lda ,y
|
|
|
438 sta <u0016
|
|
|
439 rts
|
|
|
440 L0502 ldb #$06
|
|
|
441 lbsr L0654
|
|
|
442 ldy <u000E
|
|
|
443 ldb $06,y
|
|
|
444 lbsr L0633
|
|
|
445 bsr L0543
|
|
|
446 tst <u000C
|
|
|
447 beq L0519
|
|
|
448 lda #$20
|
|
|
449 bra L0520
|
|
|
450 L0519 bsr L0553
|
|
|
451 tsta
|
|
|
452 bne L0520
|
|
28
|
453 lda #C$PERD
|
|
0
|
454 L0520 lbsr L0608
|
|
|
455 lbsr L0666
|
|
|
456 bsr L04E9
|
|
|
457 ldx <u0000
|
|
|
458 pshs x
|
|
|
459 leax <u0022,u
|
|
|
460 stx <u0000
|
|
|
461 ldb <u0016
|
|
|
462 inc <u0018
|
|
|
463 clra
|
|
|
464 lbsr L0692
|
|
|
465 clr <u0018
|
|
|
466 puls x
|
|
|
467 stx <u0000
|
|
|
468 lbsr L0612
|
|
|
469 rts
|
|
28
|
470 L0543 lda #'$
|
|
0
|
471 lbsr L0608
|
|
|
472 ldd <u0010
|
|
|
473 lbsr L066E
|
|
|
474 ldb <u0012
|
|
|
475 lbsr L0664
|
|
|
476 rts
|
|
|
477 L0553 ldd #$FFFF
|
|
|
478 std <u0013
|
|
|
479 stb <u0015
|
|
|
480 pshs u,y,x
|
|
|
481 leau <u0013,u
|
|
|
482 tst <u000A
|
|
|
483 beq L0571
|
|
|
484 ldx <u000E
|
|
|
485 ldy $02,x
|
|
|
486 os9 F$CRC
|
|
|
487 lbcs L03D2
|
|
|
488 bra L058C
|
|
|
489 L0571 pshs u,x
|
|
|
490 ldx <u001E
|
|
|
491 ldu <u0020
|
|
28
|
492 lda <path
|
|
0
|
493 os9 I$Seek
|
|
|
494 puls u,x
|
|
|
495 lbcs L03D2
|
|
|
496 ldd <u001C
|
|
|
497 pshs b,a
|
|
|
498 bsr L05BF
|
|
|
499 puls b,a
|
|
|
500 std <u001C
|
|
|
501 L058C puls u,y,x
|
|
|
502 lda <u0013
|
|
|
503 cmpa #$80
|
|
|
504 bne L059E
|
|
|
505 ldd <u0014
|
|
|
506 cmpd #$0FE3
|
|
|
507 bne L059E
|
|
|
508 bra L05A1
|
|
|
509 L059E lda #$3F
|
|
|
510 rts
|
|
|
511 L05A1 clra
|
|
|
512 rts
|
|
28
|
513 L05A3 lda <path
|
|
0
|
514 ldx <u0006
|
|
|
515 ldy <u0008
|
|
|
516 cmpy <u001C
|
|
|
517 bls L05B2
|
|
|
518 ldy <u001C
|
|
|
519 L05B2 os9 I$Read
|
|
|
520 sty <u0004
|
|
|
521 rts
|
|
|
522 L05B9 bsr L05A3
|
|
|
523 lbcs L03D2
|
|
|
524 L05BF ldy <u0004
|
|
|
525 beq L05B9
|
|
|
526 os9 F$CRC
|
|
|
527 ldd <u001C
|
|
|
528 subd <u0004
|
|
|
529 std <u001C
|
|
|
530 bne L05B9
|
|
|
531 std <u0004
|
|
|
532 rts
|
|
|
533 L05D2 pshs b,a
|
|
|
534 bsr L0628
|
|
|
535 ldb #$03
|
|
|
536 bsr L0654
|
|
|
537 puls b,a
|
|
|
538 bsr L0649
|
|
|
539 bsr L0612
|
|
|
540 rts
|
|
|
541 pshs b,a
|
|
|
542 andb #$F0
|
|
|
543 lsrb
|
|
|
544 lsrb
|
|
|
545 lsrb
|
|
|
546 lsrb
|
|
28
|
547 L05E9 lda #'$
|
|
0
|
548 bsr L0608
|
|
|
549 lbsr L0682
|
|
|
550 ldb #$02
|
|
|
551 bsr L0654
|
|
|
552 puls pc,b,a
|
|
|
553 pshs b,a
|
|
|
554 andb #$0F
|
|
|
555 bra L05E9
|
|
|
556 L05FC lda ,y
|
|
|
557 anda #$7F
|
|
|
558 bsr L0608
|
|
|
559 lda ,y+
|
|
|
560 bpl L05FC
|
|
28
|
561 L0606 lda #C$SPAC
|
|
0
|
562 L0608 pshs x
|
|
|
563 ldx <u0000
|
|
|
564 sta ,x+
|
|
|
565 stx <u0000
|
|
|
566 puls pc,x
|
|
|
567 L0612 pshs y,x,a
|
|
28
|
568 lda #C$CR
|
|
0
|
569 bsr L0608
|
|
|
570 leax <u0022,u
|
|
|
571 stx <u0000
|
|
28
|
572 ldy #80
|
|
0
|
573 lda #$01
|
|
|
574 os9 I$WritLn
|
|
|
575 puls pc,y,x,a
|
|
|
576 L0628 pshs a
|
|
28
|
577 lda #'$
|
|
0
|
578 bsr L0608
|
|
|
579 puls a
|
|
|
580 bsr L0660
|
|
|
581 rts
|
|
|
582 L0633 pshs a
|
|
28
|
583 lda #'$
|
|
0
|
584 bsr L0608
|
|
|
585 puls a
|
|
|
586 bsr L0664
|
|
|
587 rts
|
|
|
588 pshs a
|
|
28
|
589 lda #'$
|
|
0
|
590 bsr L0608
|
|
|
591 puls a
|
|
|
592 bsr L0682
|
|
|
593 rts
|
|
|
594 L0649 pshs a
|
|
28
|
595 lda #'#
|
|
0
|
596 bsr L0608
|
|
|
597 puls a
|
|
|
598 bsr L0692
|
|
|
599 rts
|
|
|
600 L0654 pshs b,a
|
|
|
601 L0656 tstb
|
|
|
602 ble L065E
|
|
|
603 bsr L0606
|
|
|
604 decb
|
|
|
605 bra L0656
|
|
|
606 L065E puls pc,b,a
|
|
|
607 L0660 bsr L066E
|
|
|
608 bra L0666
|
|
|
609 L0664 bsr L0674
|
|
|
610 L0666 pshs a
|
|
28
|
611 lda #C$SPAC
|
|
0
|
612 bsr L0608
|
|
|
613 puls pc,a
|
|
|
614 L066E exg a,b
|
|
|
615 bsr L0674
|
|
|
616 tfr a,b
|
|
|
617 L0674 pshs b
|
|
|
618 andb #$F0
|
|
|
619 lsrb
|
|
|
620 lsrb
|
|
|
621 lsrb
|
|
|
622 lsrb
|
|
|
623 bsr L0682
|
|
|
624 puls b
|
|
|
625 andb #$0F
|
|
|
626 L0682 cmpb #$09
|
|
|
627 bls L0688
|
|
|
628 addb #$07
|
|
|
629 L0688 addb #$30
|
|
|
630 exg a,b
|
|
|
631 lbsr L0608
|
|
|
632 exg a,b
|
|
|
633 rts
|
|
|
634 L0692 pshs u,y,b
|
|
|
635 leau <L06C3,pcr
|
|
|
636 clr <u0017
|
|
|
637 ldy #$0005
|
|
|
638 L069D clr ,s
|
|
|
639 L069F subd ,u
|
|
|
640 bcs L06A7
|
|
|
641 inc ,s
|
|
|
642 bra L069F
|
|
|
643 L06A7 addd ,u++
|
|
|
644 pshs b
|
|
|
645 ldb $01,s
|
|
|
646 exg a,b
|
|
|
647 bsr L06CD
|
|
|
648 exg a,b
|
|
|
649 puls b
|
|
|
650 cmpy #$0002
|
|
|
651 bgt L06BD
|
|
|
652 inc <u0017
|
|
|
653 L06BD leay -$01,y
|
|
|
654 bne L069D
|
|
|
655 puls pc,u,y,b
|
|
|
656 L06C3 fdb $2710,$03e8,$0064,$000a,$0001
|
|
|
657 L06CD tsta
|
|
|
658 beq L06D2
|
|
|
659 sta <u0017
|
|
|
660 L06D2 tst <u0017
|
|
|
661 bne L06DF
|
|
|
662 tst <u0018
|
|
|
663 beq L06DE
|
|
|
664 lda #$20
|
|
|
665 bra L06E1
|
|
|
666 L06DE rts
|
|
|
667 L06DF adda #$30
|
|
|
668 L06E1 lbra L0608
|
|
|
669
|
|
|
670 emod
|
|
|
671 eom equ *
|
|
|
672 end
|
