|
0
|
1 ********************************************************************
|
|
|
2 * Format - Initialize disk media
|
|
|
3 *
|
|
|
4 * $Id$
|
|
|
5 *
|
|
|
6 * Ed. Comments Who YY/MM/DD
|
|
|
7 * ------------------------------------------------------------------
|
|
|
8 * 18 Original Microware distribution version
|
|
|
9
|
|
|
10 nam Format
|
|
|
11 ttl Initialize disk media
|
|
|
12
|
|
|
13 * Disassembled 02/04/03 22:47:09 by Disasm v1.6 (C) 1988 by RML
|
|
|
14
|
|
|
15 ifp1
|
|
104
|
16 use defsfile
|
|
0
|
17 endc
|
|
|
18 tylg set Prgrm+Objct
|
|
|
19 atrv set ReEnt+rev
|
|
|
20 rev set $01
|
|
|
21 mod eom,name,tylg,atrv,start,size
|
|
|
22 u0000 rmb 1
|
|
|
23 u0001 rmb 1
|
|
|
24 u0002 rmb 1
|
|
|
25 u0003 rmb 1
|
|
|
26 u0004 rmb 1
|
|
|
27 u0005 rmb 2
|
|
|
28 u0007 rmb 1
|
|
|
29 u0008 rmb 1
|
|
|
30 u0009 rmb 1
|
|
|
31 u000A rmb 1
|
|
|
32 u000B rmb 1
|
|
|
33 u000C rmb 2
|
|
|
34 u000E rmb 1
|
|
|
35 u000F rmb 1
|
|
|
36 u0010 rmb 1
|
|
|
37 u0011 rmb 1
|
|
|
38 u0012 rmb 1
|
|
|
39 u0013 rmb 2
|
|
|
40 u0015 rmb 1
|
|
|
41 u0016 rmb 1
|
|
|
42 u0017 rmb 1
|
|
|
43 u0018 rmb 1
|
|
|
44 u0019 rmb 1
|
|
|
45 u001A rmb 1
|
|
|
46 u001B rmb 1
|
|
|
47 u001C rmb 1
|
|
|
48 u001D rmb 2
|
|
|
49 u001F rmb 1
|
|
|
50 u0020 rmb 2
|
|
|
51 u0022 rmb 1
|
|
|
52 u0023 rmb 1
|
|
|
53 u0024 rmb 1
|
|
|
54 u0025 rmb 1
|
|
|
55 u0026 rmb 1
|
|
|
56 u0027 rmb 1
|
|
|
57 u0028 rmb 1
|
|
|
58 u0029 rmb 1
|
|
|
59 u002A rmb 1
|
|
|
60 u002B rmb 1
|
|
|
61 u002C rmb 1
|
|
|
62 u002D rmb 2
|
|
|
63 u002F rmb 1
|
|
|
64 u0030 rmb 1
|
|
|
65 u0031 rmb 1
|
|
|
66 u0032 rmb 1
|
|
|
67 u0033 rmb 1
|
|
|
68 u0034 rmb 2
|
|
|
69 u0036 rmb 2
|
|
|
70 u0038 rmb 2
|
|
|
71 u003A rmb 1
|
|
|
72 u003B rmb 2
|
|
|
73 u003D rmb 2
|
|
|
74 u003F rmb 4
|
|
|
75 u0043 rmb 1
|
|
|
76 u0044 rmb 2
|
|
|
77 u0046 rmb 1
|
|
|
78 u0047 rmb 1
|
|
|
79 u0048 rmb 13
|
|
|
80 u0055 rmb 15
|
|
|
81 u0064 rmb 3
|
|
|
82 u0067 rmb 32
|
|
|
83 u0087 rmb 40
|
|
|
84 u00AF rmb 14
|
|
|
85 u00BD rmb 12
|
|
|
86 u00C9 rmb 5
|
|
|
87 u00CE rmb 9
|
|
|
88 u00D7 rmb 17
|
|
|
89 u00E8 rmb 6
|
|
|
90 u00EE rmb 177
|
|
|
91 u019F rmb 2
|
|
|
92 u01A1 rmb 2
|
|
|
93 u01A3 rmb 12
|
|
|
94 u01AF rmb 256
|
|
|
95 u02AF rmb 3
|
|
|
96 u02B2 rmb 9924
|
|
|
97 u2976 rmb 451
|
|
|
98 size equ .
|
|
|
99 name equ *
|
|
|
100 fcs /Format/
|
|
|
101 fcb $12
|
|
|
102 L0014 fcb $00
|
|
|
103 fcb $00
|
|
|
104 L0016 fcb $00
|
|
|
105 fcb $00
|
|
|
106 L0018 fcb $00
|
|
|
107 fcb $00
|
|
|
108 L001A fcb $80
|
|
|
109 fcb $E5 e
|
|
|
110 fcb $80
|
|
|
111 fcb $E5 e
|
|
|
112 fcb $00
|
|
|
113 fcb $00
|
|
|
114 L0020 fcb $01
|
|
|
115 fcb $00
|
|
|
116 fcb $28 (
|
|
|
117 fcb $FF
|
|
|
118 fcb $06
|
|
|
119 fcb $00
|
|
|
120 fcb $01
|
|
|
121 fcb $FC
|
|
|
122 fcb $0C
|
|
|
123 fcb $FF
|
|
|
124 fcb $00
|
|
|
125 fcb $00
|
|
|
126 fcb $06
|
|
|
127 fcb $00
|
|
|
128 fcb $01
|
|
|
129 fcb $FE
|
|
|
130 fcb $04
|
|
|
131 fcb $00
|
|
|
132 fcb $01
|
|
|
133 fcb $F7 w
|
|
|
134 fcb $0A
|
|
|
135 fcb $FF
|
|
|
136 fcb $06
|
|
|
137 fcb $00
|
|
|
138 fcb $01
|
|
|
139 fcb $FB
|
|
|
140 fcb $80
|
|
|
141 fcb $E5 e
|
|
|
142 fcb $80
|
|
|
143 fcb $E5 e
|
|
|
144 fcb $01
|
|
|
145 fcb $F7 w
|
|
|
146 fcb $0A
|
|
|
147 fcb $FF
|
|
|
148 fcb $00
|
|
|
149 fcb $00
|
|
|
150 fcb $FF
|
|
|
151 fcb $00
|
|
|
152 fcb $43 C
|
|
|
153 fcb $01
|
|
|
154 fcb $28 (
|
|
|
155 L0049 fcb $50 P
|
|
|
156 fcb $4E N
|
|
|
157 fcb $0C
|
|
|
158 fcb $00
|
|
|
159 fcb $03
|
|
|
160 fcb $F6 v
|
|
|
161 fcb $01
|
|
|
162 fcb $FC
|
|
|
163 fcb $20
|
|
|
164 fcb $4E N
|
|
|
165 fcb $00
|
|
|
166 fcb $00
|
|
|
167 fcb $0C
|
|
|
168 fcb $00
|
|
|
169 fcb $03
|
|
|
170 fcb $F5 u
|
|
|
171 fcb $01
|
|
|
172 fcb $FE
|
|
|
173 fcb $04
|
|
|
174 fcb $00
|
|
|
175 fcb $01
|
|
|
176 fcb $F7 w
|
|
|
177 fcb $16
|
|
|
178 fcb $4E N
|
|
|
179 fcb $0C
|
|
|
180 fcb $00
|
|
|
181 fcb $03
|
|
|
182 fcb $F5 u
|
|
|
183 fcb $01
|
|
|
184 fcb $FB
|
|
|
185 fcb $80
|
|
|
186 fcb $E5 e
|
|
|
187 fcb $80
|
|
|
188 fcb $E5 e
|
|
|
189 fcb $01
|
|
|
190 fcb $F7 w
|
|
|
191 fcb $16
|
|
|
192 fcb $4E N
|
|
|
193 fcb $00
|
|
|
194 fcb $00
|
|
|
195 fcb $4E N
|
|
|
196 fcb $00
|
|
|
197 fcb $90
|
|
|
198 fcb $01
|
|
|
199 fcb $52 R
|
|
|
200 L0076 fcb $20
|
|
|
201 fcb $4E N
|
|
|
202 fcb $00
|
|
|
203 fcb $00
|
|
|
204 fcb $08
|
|
|
205 fcb $00
|
|
|
206 fcb $03
|
|
|
207 fcb $F5 u
|
|
|
208 fcb $01
|
|
|
209 fcb $FE
|
|
|
210 fcb $04
|
|
|
211 fcb $00
|
|
|
212 fcb $01
|
|
|
213 fcb $F7 w
|
|
|
214 fcb $16
|
|
|
215 fcb $4E N
|
|
|
216 fcb $0C
|
|
|
217 fcb $00
|
|
|
218 fcb $03
|
|
|
219 fcb $F5 u
|
|
|
220 fcb $01
|
|
|
221 fcb $FB
|
|
|
222 fcb $80
|
|
|
223 fcb $E5 e
|
|
|
224 fcb $80
|
|
|
225 fcb $E5 e
|
|
|
226 fcb $01
|
|
|
227 fcb $F7 w
|
|
|
228 fcb $18
|
|
|
229 fcb $4E N
|
|
|
230 fcb $00
|
|
|
231 fcb $00
|
|
|
232 fcb $4E N
|
|
|
233 fcb $00
|
|
|
234 fcb $2C ,
|
|
|
235 fcb $01
|
|
|
236 fcb $50 P
|
|
|
237 start equ *
|
|
|
238 stu <u0000
|
|
|
239 bsr L00BE
|
|
|
240 bsr L00CF
|
|
|
241 bsr L011A
|
|
|
242 lbsr L0295
|
|
|
243 lbsr L0351
|
|
|
244 lbsr L04A9
|
|
|
245 lbsr L0589
|
|
|
246 lbsr L05BF
|
|
|
247 lbsr L07C0
|
|
|
248 ldu <u0044
|
|
|
249 os9 I$Detach
|
|
|
250 clrb
|
|
|
251 L00BB os9 F$Exit
|
|
|
252 L00BE leay u0002,u
|
|
|
253 pshs y
|
|
|
254 leay >u00AF,u
|
|
|
255 L00C6 clr ,-y
|
|
|
256 cmpy ,s
|
|
|
257 bhi L00C6
|
|
|
258 puls pc,y
|
|
|
259 L00CF lda ,x+
|
|
|
260 cmpa #$2F
|
|
|
261 beq L00DA
|
|
|
262 L00D5 ldb #$D7
|
|
|
263 lbra L08E4
|
|
|
264 L00DA os9 F$PrsNam
|
|
|
265 lbcs L08E4
|
|
|
266 lda #$2F
|
|
|
267 cmpa ,y
|
|
|
268 beq L00D5
|
|
|
269 sty <u0020
|
|
|
270 leay <u0047,u
|
|
|
271 L00ED sta ,y+
|
|
|
272 lda ,x+
|
|
|
273 decb
|
|
|
274 bpl L00ED
|
|
|
275 leax <u0048,u
|
|
|
276 lda #$20
|
|
|
277 sta ,y
|
|
|
278 clra
|
|
|
279 os9 I$Attach
|
|
|
280 lbcs L08E4
|
|
|
281 stu <u0044
|
|
|
282 ldu <u0000
|
|
|
283 lda #$40
|
|
|
284 ldb #$20
|
|
|
285 std ,y
|
|
|
286 lda #$02
|
|
|
287 leax <u0047,u
|
|
|
288 os9 I$Open
|
|
|
289 bcs L00BB
|
|
|
290 sta <u0002
|
|
|
291 rts
|
|
|
292 L011A bsr L0122
|
|
|
293 bsr L015D
|
|
|
294 lbsr L0216
|
|
|
295 rts
|
|
|
296 L0122 leax >u01AF,u
|
|
|
297 clrb
|
|
|
298 os9 I$GetStt
|
|
|
299 bcs L00BB
|
|
|
300 ldb $07,x
|
|
|
301 stb <u0012
|
|
|
302 ldb $04,x
|
|
|
303 pshs b
|
|
|
304 andb #$01
|
|
|
305 stb <u0010
|
|
|
306 puls b
|
|
|
307 lsrb
|
|
|
308 andb #$01
|
|
|
309 stb <u0011
|
|
|
310 ldd $05,x
|
|
|
311 std <u0013
|
|
|
312 ldb $03,x
|
|
|
313 stb <u001B
|
|
|
314 andb #$20
|
|
|
315 stb <u0046
|
|
|
316 ldd $09,x
|
|
|
317 std <u0017
|
|
|
318 ldd $0B,x
|
|
|
319 std <u0019
|
|
|
320 ldb $0D,x
|
|
|
321 stb <u001F
|
|
|
322 ldb #$01
|
|
|
323 stb <u0025
|
|
|
324 clrb
|
|
|
325 rts
|
|
|
326 L015D ldx <u0020
|
|
|
327 L015F leay >L0188,pcr
|
|
|
328 bsr L0176
|
|
|
329 bcs L017F
|
|
|
330 pshs b,a
|
|
|
331 ldd $02,y
|
|
|
332 leay d,y
|
|
|
333 puls b,a
|
|
|
334 jsr ,y
|
|
|
335 bcc L015F
|
|
|
336 lbra L00BB
|
|
|
337 L0176 lda ,x+
|
|
|
338 L0178 cmpa ,y
|
|
|
339 bne L0180
|
|
|
340 ldb $01,y
|
|
|
341 clra
|
|
|
342 L017F rts
|
|
|
343 L0180 leay $04,y
|
|
|
344 tst ,y
|
|
|
345 bne L0178
|
|
|
346 coma
|
|
|
347 rts
|
|
|
348 L0188 fcb $52 R
|
|
|
349 rolb
|
|
|
350 neg <u002C
|
|
|
351 aim #$59,>$0028
|
|
|
352 bhi L0192
|
|
|
353 L0192 neg <u002D
|
|
|
354 abx
|
|
|
355 neg <u0000
|
|
|
356 tstb
|
|
|
357 coma
|
|
|
358 neg <u0000
|
|
|
359 bhi L0200
|
|
|
360 neg <u0000
|
|
|
361 exg y,a
|
|
|
362 neg <u0000
|
|
|
363 sync
|
|
|
364 bvs L01A6
|
|
|
365 L01A6 neg <u000F
|
|
|
366 bge L01AA
|
|
|
367 L01AA neg <u000B
|
|
|
368 bra L01AE
|
|
|
369 L01AE neg <u0007
|
|
|
370 neg <u00D7
|
|
|
371 pulsw
|
|
|
372 stb <u001C
|
|
|
373 rts
|
|
|
374 stb <u0012
|
|
|
375 rts
|
|
|
376 inc <u0046
|
|
|
377 rts
|
|
|
378 leay <u0067,u
|
|
|
379 ldb #$20
|
|
|
380 L01C2 lda ,x+
|
|
|
381 cmpa #$22
|
|
|
382 beq L01D9
|
|
|
383 sta ,y+
|
|
|
384 decb
|
|
|
385 bne L01C2
|
|
|
386 L01CD ldb ,x+
|
|
|
387 cmpb #$22
|
|
|
388 beq L01DF
|
|
|
389 cmpb #$20
|
|
|
390 bcc L01CD
|
|
|
391 bra L01DF
|
|
|
392 L01D9 lda #$20
|
|
|
393 cmpb #$20
|
|
|
394 beq L01E3
|
|
|
395 L01DF leay -$01,y
|
|
|
396 lda ,y
|
|
|
397 L01E3 adda #$80
|
|
|
398 sta ,y
|
|
|
399 clrb
|
|
|
400 rts
|
|
|
401 lbsr L08AF
|
|
|
402 ldd <u001D
|
|
|
403 std <u0013
|
|
|
404 rts
|
|
|
405 lbsr L08AF
|
|
|
406 ldd <u001D
|
|
|
407 tsta
|
|
|
408 beq L01FB
|
|
|
409 ldb #$01
|
|
|
410 L01FB stb <u001F
|
|
|
411 L01FD rts
|
|
|
412 lbsr L08AF
|
|
|
413 ldd <u001D
|
|
|
414 tsta
|
|
|
415 beq L0208
|
|
|
416 ldb #$01
|
|
|
417 L0208 stb <u0025
|
|
|
418 negb
|
|
|
419 decb
|
|
|
420 andb <u0025
|
|
|
421 beq L0214
|
|
|
422 ldb #$01
|
|
|
423 stb <u0025
|
|
|
424 L0214 clrb
|
|
|
425 rts
|
|
|
426 L0216 leax >L08F9,pcr
|
|
|
427 lbsr L0272
|
|
|
428 leay >u01AF,u
|
|
|
429 ldx $0B,y
|
|
|
430 tst <u0010
|
|
|
431 beq L0229
|
|
|
432 ldx $09,y
|
|
|
433 L0229 stx <u0017
|
|
|
434 leax >L0954,pcr
|
|
|
435 ldy #$0011
|
|
|
436 lbsr L0276
|
|
|
437 leax <u0047,u
|
|
|
438 tfr x,y
|
|
|
439 L023B lda ,y+
|
|
|
440 cmpa #$40
|
|
|
441 bne L023B
|
|
|
442 pshs y
|
|
|
443 lda #$0D
|
|
|
444 sta -$01,y
|
|
|
445 lbsr L0272
|
|
|
446 puls y
|
|
|
447 lda #$40
|
|
|
448 sta -$01,y
|
|
|
449 lda <u001C
|
|
|
450 bne L01FD
|
|
|
451 L0254 leax >L0965,pcr
|
|
|
452 ldy #$001A
|
|
|
453 lbsr L027C
|
|
|
454 anda #$DF
|
|
|
455 cmpa #$59
|
|
|
456 beq L01FD
|
|
|
457 clrb
|
|
|
458 cmpa #$4E
|
|
|
459 lbeq L00BB
|
|
|
460 bra L0254
|
|
|
461 L026E leax >L090F,pcr
|
|
|
462 L0272 ldy #$0050
|
|
|
463 L0276 lda #$01
|
|
|
464 os9 I$WritLn
|
|
|
465 rts
|
|
|
466 L027C pshs u,y,x,b,a
|
|
|
467 bsr L0276
|
|
|
468 leax ,s
|
|
|
469 ldy #$0001
|
|
|
470 clra
|
|
|
471 os9 I$Read
|
|
|
472 lbcs L00BB
|
|
|
473 bsr L026E
|
|
|
474 puls u,y,x,b,a
|
|
|
475 anda #$7F
|
|
|
476 rts
|
|
|
477 L0295 leax >L001A,pcr
|
|
|
478 stx <u000A
|
|
|
479 ldb <u001B
|
|
|
480 bitb #$C0
|
|
|
481 bne L02B9
|
|
|
482 ldb <u0046
|
|
|
483 beq L02AB
|
|
|
484 leax >L0076,pcr
|
|
|
485 bra L02B9
|
|
|
486 L02AB leax >L0020,pcr
|
|
|
487 stx <u000A
|
|
|
488 tst <u0010
|
|
|
489 beq L02B9
|
|
|
490 leax >L0049,pcr
|
|
|
491 L02B9 stx <u000C
|
|
|
492 clra
|
|
|
493 ldb <u0012
|
|
|
494 tfr d,y
|
|
|
495 clrb
|
|
|
496 ldx <u0013
|
|
|
497 bsr L0303
|
|
|
498 exg d,x
|
|
|
499 subd #$0001
|
|
|
500 bcc L02CE
|
|
|
501 leax -$01,x
|
|
|
502 L02CE exg d,x
|
|
|
503 ldy <u0017
|
|
|
504 bsr L0303
|
|
|
505 exg d,x
|
|
|
506 addd <u0019
|
|
|
507 std <u0023
|
|
|
508 exg d,x
|
|
|
509 adcb #$00
|
|
|
510 stb <u0022
|
|
|
511 lda #$08
|
|
|
512 pshs a
|
|
|
513 ldx <u0023
|
|
|
514 ldb <u0022
|
|
|
515 bsr L034C
|
|
|
516 lda <u0025
|
|
|
517 pshs a
|
|
|
518 bsr L034C
|
|
|
519 tstb
|
|
|
520 beq L02FE
|
|
|
521 leax >L09EF,pcr
|
|
|
522 lbsr L0272
|
|
|
523 lbra L0528
|
|
|
524 L02FE leas $02,s
|
|
|
525 stx <u0026
|
|
|
526 rts
|
|
|
527 L0303 lda #$08
|
|
|
528 L0305 clr ,-s
|
|
|
529 deca
|
|
|
530 bne L0305
|
|
|
531 sty ,s
|
|
|
532 stb $02,s
|
|
|
533 stx $03,s
|
|
|
534 L0311 ldd ,s
|
|
|
535 beq L0334
|
|
|
536 lsra
|
|
|
537 rorb
|
|
|
538 std ,s
|
|
|
539 bcc L0327
|
|
|
540 ldd $03,s
|
|
|
541 addd $06,s
|
|
|
542 std $06,s
|
|
|
543 lda $02,s
|
|
|
544 adca $05,s
|
|
|
545 sta $05,s
|
|
|
546 L0327 ldd $03,s
|
|
|
547 lslb
|
|
|
548 rola
|
|
|
549 std $03,s
|
|
|
550 lda $02,s
|
|
|
551 rola
|
|
|
552 sta $02,s
|
|
|
553 bra L0311
|
|
|
554 L0334 leas $05,s
|
|
|
555 puls pc,x,b
|
|
|
556 L0338 pshs x,b
|
|
|
557 lsr ,s
|
|
|
558 ror $01,s
|
|
|
559 ror $02,s
|
|
|
560 puls x,b
|
|
|
561 exg d,x
|
|
|
562 adcb #$00
|
|
|
563 adca #$00
|
|
|
564 exg d,x
|
|
|
565 adcb #$00
|
|
|
566 L034C lsr $02,s
|
|
|
567 bne L0338
|
|
|
568 rts
|
|
|
569 L0351 tst <u001B
|
|
|
570 bpl L036B
|
|
|
571 leax >L0A58,pcr
|
|
|
572 ldy #$0022
|
|
|
573 lbsr L027C
|
|
|
574 anda #$DF
|
|
|
575 cmpa #$59
|
|
|
576 beq L036B
|
|
|
577 cmpa #$4E
|
|
|
578 bne L0351
|
|
|
579 rts
|
|
|
580 L036B lda <u0002
|
|
|
581 ldb #$03
|
|
|
582 os9 I$SetStt
|
|
|
583 lbcs L00BB
|
|
|
584 ldd #$0000
|
|
|
585 std <u0003
|
|
|
586 inca
|
|
|
587 sta <u0007
|
|
|
588 L037E clr <u0005
|
|
|
589 L0380 bsr L03DA
|
|
|
590 leax >u00AF,u
|
|
|
591 ldu <u0003
|
|
|
592 clrb
|
|
|
593 tst <u0010
|
|
|
594 beq L039B
|
|
|
595 tst <u0046
|
|
|
596 bne L0399
|
|
|
597 tst <u0004
|
|
|
598 bne L0399
|
|
|
599 tst <u0005
|
|
|
600 beq L039B
|
|
|
601 L0399 orb #$02
|
|
|
602 L039B tst <u0011
|
|
|
603 beq L03A1
|
|
|
604 orb #$04
|
|
|
605 L03A1 lda <u0005
|
|
|
606 beq L03A7
|
|
|
607 orb #$01
|
|
|
608 L03A7 tfr d,y
|
|
|
609 lda <u0002
|
|
|
610 ldb #$04
|
|
|
611 os9 I$SetStt
|
|
|
612 lbcs L00BB
|
|
|
613 ldu <u0000
|
|
|
614 ldb <u0005
|
|
|
615 incb
|
|
|
616 stb <u0005
|
|
|
617 cmpb <u0012
|
|
|
618 bcs L0380
|
|
|
619 ldd <u0003
|
|
|
620 addd #$0001
|
|
|
621 std <u0003
|
|
|
622 cmpd <u0013
|
|
|
623 bcs L037E
|
|
|
624 rts
|
|
|
625 L03CC ldy <u000E
|
|
|
626 L03CF ldd ,y++
|
|
|
627 beq L03E9
|
|
|
628 L03D3 stb ,x+
|
|
|
629 deca
|
|
|
630 bne L03D3
|
|
|
631 bra L03CF
|
|
|
632 L03DA lda <u001B
|
|
|
633 bita #$C0
|
|
|
634 beq L03EA
|
|
|
635 ldy <u000C
|
|
|
636 leax >u00AF,u
|
|
|
637 bsr L03CF
|
|
|
638 L03E9 rts
|
|
|
639 L03EA ldy <u000C
|
|
|
640 ldb <u0018
|
|
|
641 tst <u0046
|
|
|
642 bne L0400
|
|
|
643 tst <u0004
|
|
|
644 bne L0400
|
|
|
645 tst <u0005
|
|
|
646 bne L0400
|
|
|
647 ldy <u000A
|
|
|
648 ldb <u001A
|
|
|
649 L0400 sty <u000E
|
|
|
650 stb <u0009
|
|
|
651 stb <u0016
|
|
|
652 bsr L0466
|
|
|
653 leax >u00AF,u
|
|
|
654 bsr L03CF
|
|
|
655 sty <u000E
|
|
|
656 L0412 bsr L03CC
|
|
|
657 dec <u0009
|
|
|
658 bne L0412
|
|
|
659 lda ,y+
|
|
|
660 sty <u000E
|
|
|
661 stx <u003B
|
|
|
662 leay >u2976,u
|
|
|
663 sty <u001D
|
|
|
664 tfr a,b
|
|
|
665 L0428 std ,x++
|
|
|
666 cmpx <u001D
|
|
|
667 bcs L0428
|
|
|
668 ldy <u000E
|
|
|
669 ldd ,y++
|
|
|
670 std <u003D
|
|
|
671 ldd ,y
|
|
|
672 std <u003F
|
|
|
673 clr <u0009
|
|
|
674 leax >u00AF,u
|
|
|
675 ldd <u003D
|
|
|
676 leay >u0087,u
|
|
|
677 L0445 leax d,x
|
|
|
678 ldd <u0004
|
|
|
679 std ,x
|
|
|
680 ldb <u0009
|
|
|
681 lda b,y
|
|
|
682 incb
|
|
|
683 stb <u0009
|
|
|
684 ldb <u0007
|
|
|
685 tst <u0046
|
|
|
686 beq L0459
|
|
|
687 inca
|
|
|
688 L0459 std $02,x
|
|
|
689 lda <u0009
|
|
|
690 cmpa <u0016
|
|
|
691 bcc L0465
|
|
|
692 ldd <u003F
|
|
|
693 bra L0445
|
|
|
694 L0465 rts
|
|
|
695 L0466 pshs y,b
|
|
|
696 tfr b,a
|
|
|
697 ldb <u0004
|
|
|
698 cmpb #$01
|
|
|
699 bhi L0492
|
|
|
700 leax >u0087,u
|
|
|
701 leay a,x
|
|
|
702 ldb <u001F
|
|
|
703 bne L0481
|
|
|
704 L047A leax >L097F,pcr
|
|
|
705 lbra L0676
|
|
|
706 L0481 cmpb <u0016
|
|
|
707 bhi L047A
|
|
|
708 nega
|
|
|
709 pshs y,x,b,a
|
|
|
710 clra
|
|
|
711 L0489 sta ,x
|
|
|
712 inca
|
|
|
713 cmpa <u0016
|
|
|
714 bne L0494
|
|
|
715 leas $06,s
|
|
|
716 L0492 puls pc,y,b
|
|
|
717 L0494 ldb <u001F
|
|
|
718 abx
|
|
|
719 cmpx $04,s
|
|
|
720 bcs L049F
|
|
|
721 ldb ,s
|
|
|
722 leax b,x
|
|
|
723 L049F cmpx $02,s
|
|
|
724 bne L0489
|
|
|
725 leax $01,x
|
|
|
726 stx $02,s
|
|
|
727 bra L0489
|
|
|
728 L04A9 lbsr L081B
|
|
|
729 ldd <u0023
|
|
|
730 std $01,x
|
|
|
731 ldb <u0022
|
|
|
732 stb ,x
|
|
|
733 ldd <u0017
|
|
|
734 std <$11,x
|
|
|
735 stb $03,x
|
|
|
736 lda <u0025
|
|
|
737 sta $07,x
|
|
|
738 clra
|
|
|
739 ldb <u0026
|
|
|
740 tst <u0027
|
|
|
741 beq L04C9
|
|
|
742 addd #$0001
|
|
|
743 L04C9 addd #$0001
|
|
|
744 addd #$0010
|
|
|
745 std $09,x
|
|
|
746 clra
|
|
|
747 tst <u0010
|
|
|
748 beq L04D8
|
|
|
749 ora #$02
|
|
|
750 L04D8 ldb <u0012
|
|
|
751 cmpb #$01
|
|
|
752 beq L04E0
|
|
|
753 ora #$01
|
|
|
754 L04E0 tst <u0011
|
|
|
755 beq L04E6
|
|
|
756 ora #$04
|
|
|
757 L04E6 sta <$10,x
|
|
|
758 ldd <u0026
|
|
|
759 std $04,x
|
|
|
760 lda #$FF
|
|
|
761 sta $0D,x
|
|
|
762 leax >u00C9,u
|
|
|
763 os9 F$Time
|
|
|
764 leax >u00CE,u
|
|
|
765 leay <u0067,u
|
|
|
766 tst ,y
|
|
|
767 beq L050B
|
|
|
768 L0503 lda ,y+
|
|
|
769 sta ,x+
|
|
|
770 bpl L0503
|
|
|
771 bra L053E
|
|
|
772 L050B leax >L09A3,pcr
|
|
|
773 ldy #$000B
|
|
|
774 lbsr L0276
|
|
|
775 leax >u00CE,u
|
|
|
776 ldy #$0021
|
|
|
777 clra
|
|
|
778 os9 I$ReadLn
|
|
|
779 bcc L052F
|
|
|
780 cmpa #$D3
|
|
|
781 bne L050B
|
|
|
782 L0528 leax >L09E0,pcr
|
|
|
783 lbra L0676
|
|
|
784 L052F tfr y,d
|
|
|
785 leax d,x
|
|
|
786 clr ,-x
|
|
|
787 decb
|
|
|
788 beq L050B
|
|
|
789 lda ,-x
|
|
|
790 ora #$80
|
|
|
791 sta ,x
|
|
|
792 L053E leax >u00C9,u
|
|
|
793 leay <$40,x
|
|
|
794 pshs y
|
|
|
795 ldd #$0000
|
|
|
796 L054A addd ,x++
|
|
|
797 cmpx ,s
|
|
|
798 bcs L054A
|
|
|
799 leas $02,s
|
|
|
800 std >u00BD,u
|
|
|
801 ldd >L0014,pcr
|
|
|
802 std >u019F,u
|
|
|
803 ldd >L0016,pcr
|
|
|
804 std >u01A1,u
|
|
|
805 ldd >L0018,pcr
|
|
|
806 std >u01A3,u
|
|
|
807 lda <u0002
|
|
|
808 ldb #$00
|
|
|
809 leax >u00EE,u
|
|
|
810 os9 I$GetStt
|
|
|
811 ldb #$03
|
|
|
812 os9 I$SetStt
|
|
|
813 lbcs L00BB
|
|
|
814 leax >u00AF,u
|
|
|
815 lbra L0827
|
|
|
816 L0589 lda <u0002
|
|
|
817 os9 I$Close
|
|
|
818 leax <u0047,u
|
|
|
819 lda #$01
|
|
|
820 os9 I$Open
|
|
|
821 lbcs L0672
|
|
|
822 sta <u0002
|
|
|
823 leax >u00AF,u
|
|
|
824 ldy #$0100
|
|
|
825 os9 I$Read
|
|
|
826 lbcs L0672
|
|
|
827 lda <u0002
|
|
|
828 os9 I$Close
|
|
|
829 leax <u0047,u
|
|
|
830 lda #$03
|
|
|
831 os9 I$Open
|
|
|
832 lbcs L0672
|
|
|
833 sta <u0002
|
|
|
834 rts
|
|
|
835 L05BF lda <u001B
|
|
|
836 clr <u0043
|
|
|
837 bita #$80
|
|
|
838 beq L05DE
|
|
|
839 L05C7 leax >L0A7A,pcr
|
|
|
840 ldy #$0019
|
|
|
841 lbsr L027C
|
|
|
842 anda #$DF
|
|
|
843 cmpa #$59
|
|
|
844 beq L05DE
|
|
|
845 cmpa #$4E
|
|
|
846 bne L05C7
|
|
|
847 sta <u0043
|
|
|
848 L05DE ldd <u0019
|
|
|
849 std <u0015
|
|
|
850 clra
|
|
|
851 clrb
|
|
|
852 std <u0034
|
|
|
853 std <u0003
|
|
|
854 std <u0008
|
|
|
855 std <u0030
|
|
|
856 stb <u002F
|
|
|
857 sta <u003A
|
|
|
858 leax >u01AF,u
|
|
|
859 stx <u0036
|
|
|
860 lbsr L081F
|
|
|
861 leax >$0100,x
|
|
|
862 stx <u0038
|
|
|
863 clra
|
|
|
864 ldb #$01
|
|
|
865 std <u0032
|
|
|
866 lda <u0025
|
|
|
867 sta <u0029
|
|
|
868 clr <u0028
|
|
|
869 clra
|
|
|
870 ldb <u0026
|
|
|
871 tst <u0027
|
|
|
872 beq L0614
|
|
|
873 addd #$0001
|
|
|
874 L0614 addd #$0009
|
|
|
875 addd #$0010
|
|
|
876 std <u002B
|
|
|
877 lda <u0025
|
|
|
878 L061E lsra
|
|
|
879 bcs L062F
|
|
|
880 lsr <u002B
|
|
|
881 ror <u002C
|
|
|
882 bcc L061E
|
|
|
883 inc <u002C
|
|
|
884 bne L061E
|
|
|
885 inc <u002B
|
|
|
886 bra L061E
|
|
|
887 L062F ldb <u002C
|
|
|
888 stb <u002D
|
|
|
889 lda <u0025
|
|
|
890 mul
|
|
|
891 std <u002B
|
|
|
892 subd #$0001
|
|
|
893 subb <u0026
|
|
|
894 sbca #$00
|
|
|
895 subd #$0010
|
|
|
896 tst <u0027
|
|
|
897 beq L0649
|
|
|
898 subd #$0001
|
|
|
899 L0649 stb <u002A
|
|
|
900 L064B tst <u0043
|
|
|
901 bne L067D
|
|
|
902 lda <u0002
|
|
|
903 leax >u00AF,u
|
|
|
904 ldy #$0100
|
|
|
905 os9 I$Read
|
|
|
906 bcc L067D
|
|
|
907 os9 F$PErr
|
|
|
908 lbsr L084B
|
|
|
909 lda #$FF
|
|
|
910 sta <u0028
|
|
|
911 tst <u002F
|
|
|
912 bne L067D
|
|
|
913 ldx <u0030
|
|
|
914 cmpx <u002B
|
|
|
915 bhi L067D
|
|
|
916 L0672 leax >L09CD,pcr
|
|
|
917 L0676 lbsr L0272
|
|
|
918 clrb
|
|
|
919 lbra L00BB
|
|
|
920 L067D ldd <u0008
|
|
|
921 addd #$0001
|
|
|
922 std <u0008
|
|
|
923 cmpd <u0015
|
|
|
924 bcs L06C2
|
|
|
925 clr <u0008
|
|
|
926 clr <u0009
|
|
|
927 tst <u0043
|
|
|
928 bne L06B7
|
|
|
929 lda #$20
|
|
|
930 pshs a
|
|
|
931 lda <u0004
|
|
|
932 lbsr L0724
|
|
|
933 pshs b,a
|
|
|
934 lda <u0003
|
|
|
935 lbsr L0724
|
|
|
936 pshs b
|
|
|
937 tfr s,x
|
|
|
938 ldy #$0004
|
|
|
939 lbsr L0276
|
|
|
940 lda $02,s
|
|
|
941 cmpa #$46
|
|
|
942 bne L06B5
|
|
|
943 lbsr L026E
|
|
|
944 L06B5 leas $04,s
|
|
|
945 L06B7 ldd <u0003
|
|
|
946 addd #$0001
|
|
|
947 std <u0003
|
|
|
948 ldd <u0017
|
|
|
949 std <u0015
|
|
|
950 L06C2 dec <u0029
|
|
|
951 bne L06D8
|
|
|
952 bsr L0701
|
|
|
953 tst <u0028
|
|
|
954 bne L06D2
|
|
|
955 ldx <u0034
|
|
|
956 leax $01,x
|
|
|
957 stx <u0034
|
|
|
958 L06D2 clr <u0028
|
|
|
959 lda <u0025
|
|
|
960 sta <u0029
|
|
|
961 L06D8 ldb <u002F
|
|
|
962 ldx <u0030
|
|
|
963 leax $01,x
|
|
|
964 bne L06E1
|
|
|
965 incb
|
|
|
966 L06E1 cmpb <u0022
|
|
|
967 bcs L06E9
|
|
|
968 cmpx <u0023
|
|
|
969 bcc L06F0
|
|
|
970 L06E9 stb <u002F
|
|
|
971 stx <u0030
|
|
|
972 lbra L064B
|
|
|
973 L06F0 lda #$FF
|
|
|
974 sta <u0028
|
|
|
975 leay >u01AF,u
|
|
|
976 L06F8 cmpy <u0036
|
|
|
977 beq L073C
|
|
|
978 bsr L0701
|
|
|
979 bra L06F8
|
|
|
980 L0701 ldx <u0036
|
|
|
981 lda <u0028
|
|
|
982 rora
|
|
|
983 rol ,x+
|
|
|
984 inc <u003A
|
|
|
985 lda <u003A
|
|
|
986 cmpa #$08
|
|
|
987 bcs L0723
|
|
|
988 clr <u003A
|
|
|
989 stx <u0036
|
|
|
990 cmpx <u0038
|
|
|
991 bne L0723
|
|
|
992 bsr L0780
|
|
|
993 leax >u01AF,u
|
|
|
994 stx <u0036
|
|
|
995 lbsr L081F
|
|
|
996 L0723 rts
|
|
|
997 L0724 tfr a,b
|
|
|
998 lsra
|
|
|
999 lsra
|
|
|
1000 lsra
|
|
|
1001 lsra
|
|
|
1002 andb #$0F
|
|
|
1003 addd #$3030
|
|
|
1004 cmpa #$39
|
|
|
1005 bls L0735
|
|
|
1006 adda #$07
|
|
|
1007 L0735 cmpb #$39
|
|
|
1008 bls L073B
|
|
|
1009 addb #$07
|
|
|
1010 L073B rts
|
|
|
1011 L073C lbsr L026E
|
|
|
1012 leax >L0A3F,pcr
|
|
|
1013 ldy #$0019
|
|
|
1014 lbsr L0276
|
|
|
1015 ldb <u0025
|
|
|
1016 clra
|
|
|
1017 ldx <u0034
|
|
|
1018 pshs x,a
|
|
|
1019 L0751 lsrb
|
|
|
1020 bcs L075C
|
|
|
1021 lsl $02,s
|
|
|
1022 rol $01,s
|
|
|
1023 rol ,s
|
|
|
1024 bra L0751
|
|
|
1025 L075C puls x,a
|
|
|
1026 ldb #$0D
|
|
|
1027 pshs b
|
|
|
1028 tfr d,y
|
|
|
1029 tfr x,d
|
|
|
1030 tfr b,a
|
|
|
1031 bsr L0724
|
|
|
1032 pshs b,a
|
|
|
1033 tfr x,d
|
|
|
1034 bsr L0724
|
|
|
1035 pshs b,a
|
|
|
1036 tfr y,d
|
|
|
1037 bsr L0724
|
|
|
1038 pshs b,a
|
|
|
1039 tfr s,x
|
|
|
1040 lbsr L0272
|
|
|
1041 leas $07,s
|
|
|
1042 rts
|
|
|
1043 L0780 pshs y
|
|
|
1044 clra
|
|
|
1045 ldb #$01
|
|
|
1046 cmpd <u0032
|
|
|
1047 bne L079B
|
|
|
1048 leax >u01AF,u
|
|
|
1049 clra
|
|
|
1050 ldb <u002D
|
|
|
1051 tfr d,y
|
|
|
1052 clrb
|
|
|
1053 os9 F$AllBit
|
|
|
1054 lbcs L0672
|
|
|
1055 L079B lbsr L0835
|
|
|
1056 leax >u01AF,u
|
|
|
1057 lbsr L0827
|
|
|
1058 ldd <u0022
|
|
|
1059 cmpd <u002F
|
|
|
1060 bcs L07B7
|
|
|
1061 bhi L07B4
|
|
|
1062 ldb <u0024
|
|
|
1063 cmpb <u0031
|
|
|
1064 bcc L07B7
|
|
|
1065 L07B4 lbsr L084B
|
|
|
1066 L07B7 ldd <u0032
|
|
|
1067 addd #$0001
|
|
|
1068 std <u0032
|
|
|
1069 puls pc,y
|
|
|
1070 L07C0 ldd #$0010
|
|
|
1071 addd <u0032
|
|
|
1072 std <u0032
|
|
|
1073 bsr L0835
|
|
|
1074 leax >u02AF,u
|
|
|
1075 bsr L081F
|
|
|
1076 leax >u02B2,u
|
|
|
1077 os9 F$Time
|
|
|
1078 leax >u02AF,u
|
|
|
1079 lda #$BF
|
|
|
1080 sta ,x
|
|
|
1081 lda #$02
|
|
|
1082 sta $08,x
|
|
|
1083 clra
|
|
|
1084 ldb #$40
|
|
|
1085 std $0B,x
|
|
|
1086 ldb <u002A
|
|
|
1087 decb
|
|
|
1088 stb <$14,x
|
|
|
1089 ldd <u0032
|
|
|
1090 addd #$0001
|
|
|
1091 std <$11,x
|
|
|
1092 bsr L0827
|
|
|
1093 bsr L081B
|
|
|
1094 ldd #$2EAE
|
|
|
1095 std ,x
|
|
|
1096 stb <$20,x
|
|
|
1097 ldd <u0032
|
|
|
1098 std <$1E,x
|
|
|
1099 std <$3E,x
|
|
|
1100 bsr L0827
|
|
|
1101 bsr L081B
|
|
|
1102 ldb <u002A
|
|
|
1103 L080F decb
|
|
|
1104 bne L0813
|
|
|
1105 rts
|
|
|
1106 L0813 pshs b
|
|
|
1107 bsr L0827
|
|
|
1108 puls b
|
|
|
1109 bra L080F
|
|
|
1110 L081B leax >u00AF,u
|
|
|
1111 L081F clra
|
|
|
1112 clrb
|
|
|
1113 L0821 sta d,x
|
|
|
1114 decb
|
|
|
1115 bne L0821
|
|
|
1116 rts
|
|
|
1117 L0827 lda <u0002
|
|
|
1118 ldy #$0100
|
|
|
1119 os9 I$Write
|
|
|
1120 lbcs L00BB
|
|
|
1121 rts
|
|
|
1122 L0835 clra
|
|
|
1123 ldb <u0032
|
|
|
1124 tfr d,x
|
|
|
1125 lda <u0033
|
|
|
1126 clrb
|
|
|
1127 tfr d,u
|
|
|
1128 L083F lda <u0002
|
|
|
1129 os9 I$Seek
|
|
|
1130 ldu <u0000
|
|
|
1131 lbcs L00BB
|
|
|
1132 rts
|
|
|
1133 L084B ldx <u002F
|
|
|
1134 lda <u0031
|
|
|
1135 clrb
|
|
|
1136 addd #$0100
|
|
|
1137 tfr d,u
|
|
|
1138 bcc L083F
|
|
|
1139 leax $01,x
|
|
|
1140 bra L083F
|
|
|
1141 ldd ,y
|
|
|
1142 leau >u00AF,u
|
|
|
1143 leax >L08A3,pcr
|
|
|
1144 ldy #$2F20
|
|
|
1145 L0869 leay >$0100,y
|
|
|
1146 subd ,x
|
|
|
1147 bcc L0869
|
|
|
1148 addd ,x++
|
|
|
1149 pshs b,a
|
|
|
1150 ldd ,x
|
|
|
1151 tfr y,d
|
|
|
1152 beq L0891
|
|
|
1153 ldy #$2F30
|
|
|
1154 cmpd #$3020
|
|
|
1155 bne L088B
|
|
|
1156 ldy #$2F20
|
|
|
1157 tfr b,a
|
|
|
1158 L088B sta ,u+
|
|
|
1159 puls b,a
|
|
|
1160 bra L0869
|
|
|
1161 L0891 sta ,u+
|
|
|
1162 lda #$0D
|
|
|
1163 sta ,u
|
|
|
1164 ldu <u0000
|
|
|
1165 leas $02,s
|
|
|
1166 leax >u00AF,u
|
|
|
1167 lbsr L0272
|
|
|
1168 rts
|
|
|
1169 L08A3 beq L08B5
|
|
|
1170 com <u00E8
|
|
|
1171 neg <u0064
|
|
|
1172 neg <u000A
|
|
|
1173 neg <u0001
|
|
|
1174 neg <u0000
|
|
|
1175 L08AF ldd #$0000
|
|
|
1176 L08B2 bsr L08C2
|
|
|
1177 bcs L08BC
|
|
|
1178 bne L08B2
|
|
|
1179 std <u001D
|
|
|
1180 bne L08C1
|
|
|
1181 L08BC ldd #$0001
|
|
|
1182 std <u001D
|
|
|
1183 L08C1 rts
|
|
|
1184 L08C2 pshs y,b,a
|
|
|
1185 ldb ,x+
|
|
|
1186 subb #$30
|
|
|
1187 cmpb #$0A
|
|
|
1188 bcc L08E0
|
|
|
1189 lda #$00
|
|
|
1190 ldy #$000A
|
|
|
1191 L08D2 addd ,s
|
|
|
1192 bcs L08DE
|
|
|
1193 leay -$01,y
|
|
|
1194 bne L08D2
|
|
|
1195 std ,s
|
|
|
1196 andcc #$FB
|
|
|
1197 L08DE puls pc,y,b,a
|
|
|
1198 L08E0 orcc #$04
|
|
|
1199 puls pc,y,b,a
|
|
|
1200 L08E4 lda #$02
|
|
|
1201 os9 F$PErr
|
|
|
1202 leax <L0910,pcr
|
|
|
1203 ldy #$0154
|
|
|
1204 lda #$02
|
|
|
1205 os9 I$WritLn
|
|
|
1206 clrb
|
|
|
1207 os9 F$Exit
|
|
|
1208 L08F9 dec <u0044
|
|
|
1209 fcb $52 R
|
|
|
1210 fcb $41 A
|
|
|
1211 asra
|
|
|
1212 clra
|
|
|
1213 fcb $4E N
|
|
|
1214 bra L0948
|
|
|
1215 clra
|
|
|
1216 fcb $52 R
|
|
|
1217 tsta
|
|
|
1218 fcb $41 A
|
|
|
1219 lsrb
|
|
|
1220 bra L095E
|
|
|
1221 lsrb
|
|
|
1222 rola
|
|
|
1223 inca
|
|
|
1224 rola
|
|
|
1225 lsrb
|
|
|
1226 rolb
|
|
|
1227 L090F tst <u0055
|
|
|
1228 com >$653A
|
|
|
1229 bra L095C
|
|
|
1230 clra
|
|
|
1231 fcb $52 R
|
|
|
1232 tsta
|
|
|
1233 fcb $41 A
|
|
|
1234 lsrb
|
|
|
1235 bra L094C
|
|
|
1236 lsr $05,s
|
|
|
1237 ror >$6E61
|
|
|
1238 tst $05,s
|
|
|
1239 bra L0962
|
|
|
1240 clr -$10,s
|
|
|
1241 lsr >$733E
|
|
|
1242 dec <u0020
|
|
|
1243 bra L099E
|
|
|
1244 neg >$7473
|
|
|
1245 abx
|
|
|
1246 bra L0987
|
|
|
1247 bra L0957
|
|
|
1248 blt L0959
|
|
|
1249 fcb $52 R
|
|
|
1250 eim #$61,$04,s
|
|
|
1251 rol >$0A20
|
|
|
1252 bra L0962
|
|
|
1253 bra L0964
|
|
|
1254 bra L0966
|
|
|
1255 bra L096A
|
|
|
1256 L0948 lsr $09,s
|
|
|
1257 com >$6B20
|
|
|
1258 jmp $01,s
|
|
|
1259 tst $05,s
|
|
|
1260 bhi L095D
|
|
|
1261 tst <u0046
|
|
|
1262 clr -$0E,s
|
|
|
1263 L0957 tst $01,s
|
|
|
1264 L0959 lsr >$7469
|
|
|
1265 L095C jmp $07,s
|
|
|
1266 L095E bra L09C4
|
|
|
1267 aim #$69,>$7665
|
|
|
1268 L0964 bra L09DF
|
|
|
1269 L0966 bra L0990
|
|
|
1270 rol >$6573
|
|
|
1271 bvs L098D
|
|
|
1272 clr -$0E,s
|
|
|
1273 bra L09DF
|
|
|
1274 bra L099B
|
|
|
1275 jmp $0F,s
|
|
|
1276 bvs L0981
|
|
|
1277 fcb $52 R
|
|
|
1278 eim #$61,$04,s
|
|
|
1279 rol >$3F20
|
|
|
1280 bra L09C1
|
|
|
1281 fcb $42 B
|
|
|
1282 L0981 clra
|
|
|
1283 fcb $52 R
|
|
|
1284 lsrb
|
|
|
1285 bra L09CF
|
|
|
1286 jmp -$0C,s
|
|
|
1287 eim #$72,$0C,s
|
|
|
1288 eim #$61,-$0A,s
|
|
|
1289 eim #$20,-$0A,s
|
|
|
1290 oim #$6C,-$0B,s
|
|
|
1291 eim #$20,$0F,s
|
|
|
1292 eim #$74,>$206F
|
|
|
1293 L099B ror $00,y
|
|
|
1294 aim #$61,>$6E67
|
|
|
1295 eim #u000D,$04,u
|
|
|
1296 rol -$0D,s
|
|
|
1297 tim #$20,$0E,s
|
|
|
1298 oim #$6D,$05,s
|
|
|
1299 abx
|
|
|
1300 bra L09F7
|
|
|
1301 clr -$09,s
|
|
|
1302 bra L0A20
|
|
|
1303 oim #$6E,-$07,s
|
|
|
1304 bra L09FB
|
|
|
1305 rol >$6C69
|
|
|
1306 jmp $04,s
|
|
|
1307 eim #$72,-$0D,s
|
|
|
1308 bra L09EA
|
|
|
1309 lsrb
|
|
|
1310 aim #$61,>$636B
|
|
|
1311 com >$3F29
|
|
|
1312 bra L0A06
|
|
|
1313 bra L0A10
|
|
|
1314 oim #$64,$00,y
|
|
|
1315 com >$7973
|
|
|
1316 lsr >$656D
|
|
|
1317 bra L0A4C
|
|
|
1318 eim #$63,-$0C,s
|
|
|
1319 clr -$0E,s
|
|
|
1320 bge L0A00
|
|
|
1321 L09E0 rora
|
|
|
1322 clra
|
|
|
1323 fcb $52 R
|
|
|
1324 tsta
|
|
|
1325 fcb $41 A
|
|
|
1326 lsrb
|
|
|
1327 bra L0A29
|
|
|
1328 fcb $42 B
|
|
|
1329 clra
|
|
|
1330 L09EA fcb $52 R
|
|
|
1331 lsrb
|
|
|
1332 fcb $45 E
|
|
|
1333 lsra
|
|
|
1334 tst <u0043
|
|
|
1335 inc -$0B,s
|
|
|
1336 com >$7465
|
|
|
1337 aim #$20,>$7369
|
|
|
1338 dec >$6520
|
|
|
1339 tst $09,s
|
|
|
1340 com >$6D61
|
|
|
1341 lsr >$6368
|
|
|
1342 tst <u0044
|
|
|
1343 L0A06 clr -$0B,s
|
|
|
1344 aim #$6C,$05,s
|
|
|
1345 bra L0A71
|
|
|
1346 eim #$6E,-$0D,s
|
|
|
1347 L0A10 rol -$0C,s
|
|
|
1348 rol >$3F20
|
|
|
1349 coma
|
|
|
1350 lsl $01,s
|
|
|
1351 jmp $07,s
|
|
|
1352 eim #$20,$06,s
|
|
|
1353 aim #$6F,>$6D20
|
|
|
1354 rts
|
|
|
1355 pshu u,y,x,b
|
|
|
1356 neg >$6920
|
|
|
1357 lsr >$6F20
|
|
|
1358 pshs y,x,dp
|
|
|
1359 lsr >$7069
|
|
|
1360 swi
|
|
|
1361 fcb $20
|
|
|
1362 lsra
|
|
|
1363 clr -$0B,s
|
|
|
1364 aim #$6C,$05,s
|
|
|
1365 bra L0AAC
|
|
|
1366 rol $04,s
|
|
|
1367 eim #$64,-$01,y
|
|
|
1368 bra L0A8E
|
|
|
1369 eim #$6D,>$6265
|
|
|
1370 aim #$20,>$6F66
|
|
|
1371 bra L0AB1
|
|
|
1372 clr $0F,s
|
|
|
1373 L0A4C lsr $00,y
|
|
|
1374 com >$6563
|
|
|
1375 lsr >$6F72
|
|
|
1376 com >$3A20
|
|
|
1377 bcc L0A9B
|
|
|
1378 clr -$0C,s
|
|
|
1379 lsl $00,y
|
|
|
1380 negb
|
|
|
1381 lsla
|
|
|
1382 rolb
|
|
|
1383 comb
|
|
|
1384 rola
|
|
|
1385 coma
|
|
|
1386 fcb $41 A
|
|
|
1387 inca
|
|
|
1388 bra L0AC8
|
|
|
1389 jmp $04,s
|
|
|
1390 bra L0AB7
|
|
|
1391 clra
|
|
|
1392 asra
|
|
|
1393 rola
|
|
|
1394 coma
|
|
|
1395 fcb $41 A
|
|
|
1396 inca
|
|
|
1397 L0A71 bra L0AD9
|
|
|
1398 clr -$0E,s
|
|
|
1399 tst $01,s
|
|
|
1400 lsr >$3F20
|
|
|
1401 L0A7A negb
|
|
|
1402 lsl -$07,s
|
|
|
1403 com >$6963
|
|
|
1404 oim #$6C,$00,y
|
|
|
1405 rorb
|
|
|
1406 eim #$72,$09,s
|
|
|
1407 ror -$07,s
|
|
|
1408 bra L0AEF
|
|
|
1409 eim #$73,$09,s
|
|
|
1410 L0A8E aim #$65,>$643F
|
|
|
1411 fcb $20
|
|
|
1412 emod
|
|
|
1413 eom equ *
|
