|
31
|
1 ********************************************************************
|
|
|
2 * RBF - Random Block file manager
|
|
|
3 *
|
|
|
4 * $Id: rbf.asm,v 1.1.1.1 2001/02/21 23:30:55 boisy Exp $
|
|
|
5 *
|
|
|
6 * Ed. Comments Who YY/MM/DD
|
|
|
7 * ------------------------------------------------------------------
|
|
|
8 * 30 Given to me by Gene Heskett BGP 98/10/10
|
|
|
9
|
|
|
10 nam RBF
|
|
|
11 ttl Random Block file manager
|
|
|
12
|
|
|
13 * Disassembled 98/08/24 22:41:27 by Disasm v1.6 (C) 1988 by RML
|
|
|
14
|
|
|
15 ifp1
|
|
|
16 use defsfile
|
|
|
17 endc
|
|
|
18
|
|
|
19 tylg set FlMgr+Objct
|
|
|
20 atrv set ReEnt+rev
|
|
|
21 rev set $02
|
|
|
22 edition set 30
|
|
|
23
|
|
|
24 mod eom,name,tylg,atrv,start,size
|
|
|
25 u0000 rmb 0
|
|
|
26 size equ .
|
|
|
27
|
|
|
28 name fcs /RBF/
|
|
|
29 fcb 30
|
|
|
30 L0011 fcb $26
|
|
|
31
|
|
|
32 start equ *
|
|
|
33 lbra L0039
|
|
|
34 lbra L018D
|
|
|
35 lbra L0220
|
|
|
36 lbra L02EC
|
|
|
37 lbra L031F
|
|
|
38 lbra L0407
|
|
|
39 lbra L04B2
|
|
|
40 lbra L0569
|
|
|
41 lbra L0429
|
|
|
42 lbra L0542
|
|
|
43 lbra L05E2
|
|
|
44 lbra L064E
|
|
|
45 lbra L0288
|
|
|
46 L0039 pshs y
|
|
|
47 leas -$05,s
|
|
|
48 lda $02,u
|
|
|
49 anda #$7F
|
|
|
50 sta $02,u
|
|
|
51 lbsr L07B5
|
|
|
52 bcs L004A
|
|
|
53 ldb #$DA
|
|
|
54 L004A cmpb #$D8
|
|
|
55 bne L0082
|
|
|
56 cmpa #$2F
|
|
|
57 beq L0082
|
|
|
58 pshs x
|
|
|
59 ldx $06,y
|
|
|
60 stu $04,x
|
|
|
61 ldb <$16,y
|
|
|
62 ldx <$17,y
|
|
|
63 lda <$19,y
|
|
|
64 ldu <$1A,y
|
|
|
65 pshs u,x,b,a
|
|
|
66 ldx $06,y
|
|
|
67 lda $01,x
|
|
|
68 clrb
|
|
|
69 anda #$20
|
|
|
70 beq L0071
|
|
|
71 ldd $06,x
|
|
|
72 L0071 addd #$0001
|
|
|
73 bcc L0079
|
|
|
74 ldd #$FFFF
|
|
|
75 L0079 lbsr L0DBE
|
|
|
76 bcc L0087
|
|
|
77 leas $06,s
|
|
|
78 L0080 leas $02,s
|
|
|
79 L0082 leas $05,s
|
|
|
80 lbra L02B1
|
|
|
81 L0087 std $0B,s
|
|
|
82 ldb <$16,y
|
|
|
83 ldx <$17,y
|
|
|
84 stb $08,s
|
|
|
85 stx $09,s
|
|
|
86 puls u,x,b,a
|
|
|
87 stb <$16,y
|
|
|
88 stx <$17,y
|
|
|
89 sta <$19,y
|
|
|
90 stu <$1A,y
|
|
|
91 ldd <$3A,y
|
|
|
92 std $0B,y
|
|
|
93 ldd <$3C,y
|
|
|
94 std $0D,y
|
|
|
95 lbsr L0960
|
|
|
96 bcs L00B9
|
|
|
97 L00B0 tst ,x
|
|
|
98 beq L00CB
|
|
|
99 lbsr L094B
|
|
|
100 bcc L00B0
|
|
|
101 L00B9 cmpb #$D3
|
|
|
102 bne L0080
|
|
|
103 ldd #$0020
|
|
|
104 lbsr L05A2
|
|
|
105 bcs L0080
|
|
|
106 lbsr L0275
|
|
|
107 lbsr L0960
|
|
|
108 L00CB leau ,x
|
|
|
109 lbsr L0173
|
|
|
110 puls x
|
|
|
111 os9 F$PrsNam
|
|
|
112 bcs L0082
|
|
|
113 cmpb #$1D
|
|
|
114 bls L00DD
|
|
|
115 ldb #$1D
|
|
|
116 L00DD clra
|
|
|
117 tfr d,y
|
|
|
118 lbsr L05D4
|
|
|
119 tfr y,d
|
|
|
120 ldy $05,s
|
|
|
121 decb
|
|
|
122 lda b,u
|
|
|
123 ora #$80
|
|
|
124 sta b,u
|
|
|
125 ldb ,s
|
|
|
126 ldx $01,s
|
|
|
127 stb <$1D,u
|
|
|
128 stx <$1E,u
|
|
|
129 lbsr L120E
|
|
|
130 bcs L015B
|
|
|
131 ldu $08,y
|
|
|
132 bsr L017A
|
|
|
133 lda #$04
|
|
|
134 sta $0A,y
|
|
|
135 ldx $06,y
|
|
|
136 lda $02,x
|
|
|
137 sta ,u
|
|
|
138 ldx <$0050
|
|
|
139 ldd $08,x
|
|
|
140 std $01,u
|
|
|
141 lbsr L02D1
|
|
|
142 ldd $03,u
|
|
|
143 std $0D,u
|
|
|
144 ldb $05,u
|
|
|
145 stb $0F,u
|
|
|
146 ldb #$01
|
|
|
147 stb $08,u
|
|
|
148 ldd $03,s
|
|
|
149 subd #$0001
|
|
|
150 beq L013A
|
|
|
151 leax <$10,u
|
|
|
152 std $03,x
|
|
|
153 ldd $01,s
|
|
|
154 addd #$0001
|
|
|
155 std $01,x
|
|
|
156 ldb ,s
|
|
|
157 adcb #$00
|
|
|
158 stb ,x
|
|
|
159 L013A ldb ,s
|
|
|
160 ldx $01,s
|
|
|
161 lbsr L1210
|
|
|
162 bcs L015B
|
|
|
163 lbsr L0A99
|
|
|
164 stb <$34,y
|
|
|
165 stx <$35,y
|
|
|
166 lbsr L0A33
|
|
|
167 leas $05,s
|
|
|
168 ldx <$30,y
|
|
|
169 lda #$04
|
|
|
170 sta $07,x
|
|
|
171 lbra L01DB
|
|
|
172 L015B puls u,x,a
|
|
|
173 sta <$16,y
|
|
|
174 stx <$17,y
|
|
|
175 clr <$19,y
|
|
|
176 stu <$1A,y
|
|
|
177 pshs b
|
|
|
178 lbsr L0FD5
|
|
|
179 puls b
|
|
|
180 L0170 lbra L02B1
|
|
|
181 L0173 pshs u,x,b,a
|
|
|
182 leau <$20,u
|
|
|
183 bra L0180
|
|
|
184 L017A pshs u,x,b,a
|
|
|
185 leau >$0100,u
|
|
|
186 L0180 clra
|
|
|
187 clrb
|
|
|
188 tfr d,x
|
|
|
189 L0184 pshu x,b,a
|
|
|
190 cmpu $04,s
|
|
|
191 bhi L0184
|
|
|
192 puls pc,u,x,b,a
|
|
|
193 L018D pshs y
|
|
|
194 lbsr L07B5
|
|
|
195 bcs L0170
|
|
|
196 ldu $06,y
|
|
|
197 stx $04,u
|
|
|
198 ldd <$35,y
|
|
|
199 bne L01CA
|
|
|
200 lda <$34,y
|
|
|
201 bne L01CA
|
|
|
202 ldb $01,y
|
|
|
203 andb #$80
|
|
|
204 lbne L02AF
|
|
|
205 std <$16,y
|
|
|
206 sta <$18,y
|
|
|
207 std <$13,y
|
|
|
208 sta <$15,y
|
|
|
209 ldx <$1E,y
|
|
|
210 lda $02,x
|
|
|
211 std <$11,y
|
|
|
212 sta <$1B,y
|
|
|
213 ldd ,x
|
|
|
214 std $0F,y
|
|
|
215 std <$19,y
|
|
|
216 puls pc,y
|
|
|
217 L01CA lda $01,y
|
|
|
218 lbsr L09E6
|
|
|
219 bcs L0170
|
|
|
220 bita #$02
|
|
|
221 beq L01DB
|
|
|
222 lbsr L02D1
|
|
|
223 lbsr L1206
|
|
|
224 L01DB puls y
|
|
|
225 L01DD clra
|
|
|
226 clrb
|
|
|
227 std $0B,y
|
|
|
228 std $0D,y
|
|
|
229 std <$13,y
|
|
|
230 sta <$15,y
|
|
|
231 sta <$19,y
|
|
|
232 lda ,u
|
|
|
233 sta <$33,y
|
|
|
234 ldd <$10,u
|
|
|
235 std <$16,y
|
|
|
236 lda <$12,u
|
|
|
237 sta <$18,y
|
|
|
238 ldd <$13,u
|
|
|
239 std <$1A,y
|
|
|
240 ldd $09,u
|
|
|
241 ldx $0B,u
|
|
|
242 ldu <$30,y
|
|
|
243 cmpu $05,u
|
|
|
244 beq L0218
|
|
|
245 ldu $05,u
|
|
|
246 ldu $01,u
|
|
|
247 ldd $0F,u
|
|
|
248 ldx <$11,u
|
|
|
249 L0218 std $0F,y
|
|
|
250 stx <$11,y
|
|
|
251 clr $0A,y
|
|
|
252 rts
|
|
|
253 L0220 lbsr L0039
|
|
|
254 bcs L0273
|
|
|
255 lda <$33,y
|
|
|
256 ora #$40
|
|
|
257 lbsr L09E6
|
|
|
258 bcs L0273
|
|
|
259 ldd #$0040
|
|
|
260 std <$11,y
|
|
|
261 bsr L0285
|
|
|
262 bcs L0273
|
|
|
263 lbsr L0C78
|
|
|
264 bcs L0273
|
|
|
265 lbsr L112C
|
|
|
266 ldu $08,y
|
|
|
267 lda ,u
|
|
|
268 ora #$80
|
|
|
269 sta ,u
|
|
|
270 bsr L0278
|
|
|
271 bcs L0273
|
|
|
272 lbsr L017A
|
|
|
273 ldd #$2EAE
|
|
|
274 std ,u
|
|
|
275 stb <$20,u
|
|
|
276 lda <$37,y
|
|
|
277 sta <$1D,u
|
|
|
278 ldd <$38,y
|
|
|
279 std <$1E,u
|
|
|
280 lda <$34,y
|
|
|
281 sta <$3D,u
|
|
|
282 ldd <$35,y
|
|
|
283 std <$3E,u
|
|
|
284 lbsr L120E
|
|
|
285 L0273 bra L02B4
|
|
|
286 L0275 lbsr L112C
|
|
|
287 L0278 ldx $08,y
|
|
|
288 ldd $0F,y
|
|
|
289 std $09,x
|
|
|
290 ldd <$11,y
|
|
|
291 std $0B,x
|
|
|
292 clr $0A,y
|
|
|
293 L0285 lbra L1206
|
|
|
294 L0288 clra
|
|
|
295 tst $02,y
|
|
|
296 bne L02AE
|
|
|
297 lbsr L1240
|
|
|
298 bcs L02B4
|
|
|
299 ldb $01,y
|
|
|
300 bitb #$02
|
|
|
301 beq L02B4
|
|
|
302 ldd <$34,y
|
|
|
303 bne L02A2
|
|
|
304 lda <$36,y
|
|
|
305 beq L02B4
|
|
|
306 L02A2 bsr L0275
|
|
|
307 lbsr L05EE
|
|
|
308 bcc L02B4
|
|
|
309 lbsr L0F07
|
|
|
310 bra L02B4
|
|
|
311 L02AE rts
|
|
|
312 L02AF ldb #$D6
|
|
|
313 L02B1 coma
|
|
|
314 L02B2 puls y
|
|
|
315 L02B4 pshs b,cc
|
|
|
316 ldu $08,y
|
|
|
317 beq L02CF
|
|
|
318 ldd #$0100
|
|
|
319 os9 F$SRtMem
|
|
|
320 ldx <$30,y
|
|
|
321 beq L02CF
|
|
|
322 lbsr L0A99
|
|
|
323 lda ,x
|
|
|
324 ldx <$0088
|
|
|
325 os9 F$Ret64
|
|
|
326 L02CF puls pc,b,cc
|
|
|
327 L02D1 lbsr L112C
|
|
|
328 ldu $08,y
|
|
|
329 lda $08,u
|
|
|
330 ldx <$0050
|
|
|
331 pshs x,a
|
|
|
332 ldx <$004A
|
|
|
333 stx <$0050
|
|
|
334 leax $03,u
|
|
|
335 os9 F$Time
|
|
|
336 puls x,a
|
|
|
337 stx <$0050
|
|
|
338 sta $08,u
|
|
|
339 rts
|
|
|
340 L02EC pshs y
|
|
|
341 lda $01,y
|
|
|
342 ora #$80
|
|
|
343 sta $01,y
|
|
|
344 lbsr L018D
|
|
|
345 bcs L02B2
|
|
|
346 ldx <$0050
|
|
|
347 ldu <$35,y
|
|
|
348 ldb $01,y
|
|
|
349 bitb #$03
|
|
|
350 beq L030D
|
|
|
351 ldb <$34,y
|
|
|
352 stb <$23,x
|
|
|
353 stu <$24,x
|
|
|
354 L030D ldb $01,y
|
|
|
355 bitb #$04
|
|
|
356 beq L031C
|
|
|
357 ldb <$34,y
|
|
|
358 stb <$29,x
|
|
|
359 stu <$2A,x
|
|
|
360 L031C clrb
|
|
|
361 bra L02B2
|
|
|
362 L031F pshs y
|
|
|
363 lbsr L07B5
|
|
|
364 bcs L02B2
|
|
|
365 ldd <$35,y
|
|
|
366 bne L0332
|
|
|
367 tst <$34,y
|
|
|
368 lbeq L02AF
|
|
|
369 L0332 lda #$42
|
|
|
370 lbsr L09E6
|
|
|
371 lbcs L02B2
|
|
|
372 ldu $06,y
|
|
|
373 stx $04,u
|
|
|
374 lbsr L112C
|
|
|
375 lbcs L03D7
|
|
|
376 ldx $08,y
|
|
|
377 dec $08,x
|
|
|
378 beq L0358
|
|
|
379 lbsr L1206
|
|
|
380 nop
|
|
|
381 pshs u,x,b
|
|
|
382 clra
|
|
|
383 clrb
|
|
|
384 std $03,s
|
|
|
385 bra L03A2
|
|
|
386 L0358 ldb <$34,y
|
|
|
387 ldx <$35,y
|
|
|
388 pshs u,x,b
|
|
|
389 ldd #$0100
|
|
|
390 os9 F$SRqMem
|
|
|
391 bcc L036C
|
|
|
392 clra
|
|
|
393 clrb
|
|
|
394 bra L037A
|
|
|
395 L036C stu $03,s
|
|
|
396 ldx $08,y
|
|
|
397 clrb
|
|
|
398 L0371 lda ,x+
|
|
|
399 sta ,u+
|
|
|
400 decb
|
|
|
401 bne L0371
|
|
|
402 ldd $03,s
|
|
|
403 L037A std $03,s
|
|
|
404 clra
|
|
|
405 clrb
|
|
|
406 std $0F,y
|
|
|
407 std <$11,y
|
|
|
408 lbsr L0F07
|
|
|
409 bcs L03F7
|
|
|
410 ldb <$34,y
|
|
|
411 ldx <$35,y
|
|
|
412 stb <$16,y
|
|
|
413 stx <$17,y
|
|
|
414 ldx $08,y
|
|
|
415 ldd <$13,x
|
|
|
416 addd #$0001
|
|
|
417 std <$1A,y
|
|
|
418 lbsr L0FD5
|
|
|
419 L03A2 bcs L03F7
|
|
|
420 lbsr L1240
|
|
|
421 lbsr L0A99
|
|
|
422 lda <$37,y
|
|
|
423 sta <$34,y
|
|
|
424 ldd <$38,y
|
|
|
425 std <$35,y
|
|
|
426 lbsr L112C
|
|
|
427 bcs L03F7
|
|
|
428 lbsr L0A33
|
|
|
429 ldu $08,y
|
|
|
430 lbsr L01DD
|
|
|
431 ldd <$3A,y
|
|
|
432 std $0B,y
|
|
|
433 ldd <$3C,y
|
|
|
434 std $0D,y
|
|
|
435 lbsr L0960
|
|
|
436 bcs L03F7
|
|
|
437 clr ,x
|
|
|
438 lbsr L120E
|
|
|
439 L03D7 ldu $03,s
|
|
|
440 beq L0402
|
|
|
441 ldb ,s
|
|
|
442 ldx $01,s
|
|
|
443 stb <$34,y
|
|
|
444 stx <$35,y
|
|
|
445 ldx <$08,y
|
|
|
446 stx <$01,s
|
|
|
447 stu <$08,y
|
|
|
448 lbsr L1206
|
|
|
449 ldu <$01,s
|
|
|
450 stu <$08,y
|
|
|
451 L03F7 ldu <$03,s
|
|
|
452 beq L0402
|
|
|
453 ldd #$0100
|
|
|
454 os9 F$SRtMem
|
|
|
455 L0402 leas $05,s
|
|
|
456 lbra L02B2
|
|
|
457 L0407 ldb $0A,y
|
|
|
458 bitb #$02
|
|
|
459 beq L0420
|
|
|
460 lda $05,u
|
|
|
461 ldb $08,u
|
|
|
462 subd $0C,y
|
|
|
463 bne L041B
|
|
|
464 lda $04,u
|
|
|
465 sbca $0B,y
|
|
|
466 beq L0424
|
|
|
467 L041B lbsr L1240
|
|
|
468 bcs L0428
|
|
|
469 L0420 ldd $04,u
|
|
|
470 std $0B,y
|
|
|
471 L0424 ldd $08,u
|
|
|
472 std $0D,y
|
|
|
473 L0428 rts
|
|
|
474 L0429 bsr L046C
|
|
|
475 beq L044F
|
|
|
476 bsr L0450
|
|
|
477 pshs u,y,x,b,a
|
|
|
478 exg x,u
|
|
|
479 ldy #$0000
|
|
|
480 lda #$0D
|
|
|
481 L0439 leay $01,y
|
|
|
482 cmpa ,x+
|
|
|
483 beq L0442
|
|
|
484 decb
|
|
|
485 bne L0439
|
|
|
486 L0442 ldx $06,s
|
|
|
487 bsr L04A4
|
|
|
488 sty $0A,s
|
|
|
489 puls u,y,x,b,a
|
|
|
490 ldd $02,s
|
|
|
491 leax d,x
|
|
|
492 L044F rts
|
|
|
493 L0450 lbsr L04DC
|
|
|
494 leax -$01,x
|
|
|
495 lbsr L0988
|
|
|
496 cmpa #$0D
|
|
|
497 beq L0462
|
|
|
498 ldd $02,s
|
|
|
499 lbne L04E2
|
|
|
500 L0462 ldu $06,y
|
|
|
501 ldd $06,u
|
|
|
502 subd $02,s
|
|
|
503 std $06,u
|
|
|
504 bra L04C9
|
|
|
505 L046C ldd $06,u
|
|
|
506 lbsr L0B15
|
|
|
507 bcs L04A0
|
|
|
508 ldd $06,u
|
|
|
509 bsr L047C
|
|
|
510 bcs L04A0
|
|
|
511 std $06,u
|
|
|
512 rts
|
|
|
513 L047C pshs b,a
|
|
|
514 ldd <$11,y
|
|
|
515 subd $0D,y
|
|
|
516 tfr d,x
|
|
|
517 ldd $0F,y
|
|
|
518 sbcb $0C,y
|
|
|
519 sbca $0B,y
|
|
|
520 bcs L049D
|
|
|
521 bne L049A
|
|
|
522 tstb
|
|
|
523 bne L049A
|
|
|
524 cmpx ,s
|
|
|
525 bcc L049A
|
|
|
526 stx ,s
|
|
|
527 beq L049D
|
|
|
528 L049A clrb
|
|
|
529 puls pc,b,a
|
|
|
530 L049D comb
|
|
|
531 ldb #$D3
|
|
|
532 L04A0 leas $02,s
|
|
|
533 bra L04CE
|
|
|
534 L04A4 pshs x
|
|
|
535 ldx <$0050
|
|
|
536 lda <$00D0
|
|
|
537 ldb $06,x
|
|
|
538 puls x
|
|
|
539 os9 F$Move
|
|
|
540 rts
|
|
|
541 L04B2 bsr L046C
|
|
|
542 beq L04C4
|
|
|
543 bsr L04C5
|
|
|
544 L04B8 pshs u,y,x,b,a
|
|
|
545 exg x,u
|
|
|
546 tfr d,y
|
|
|
547 bsr L04A4
|
|
|
548 puls u,y,x,b,a
|
|
|
549 leax d,x
|
|
|
550 L04C4 rts
|
|
|
551 L04C5 bsr L04DC
|
|
|
552 bne L04E2
|
|
|
553 L04C9 clrb
|
|
|
554 L04CA leas -$02,s
|
|
|
555 L04CC leas $0A,s
|
|
|
556 L04CE pshs b,cc
|
|
|
557 lda $01,y
|
|
|
558 bita #$02
|
|
|
559 bne L04D9
|
|
|
560 lbsr L0B0B
|
|
|
561 L04D9 puls b,cc
|
|
|
562 rts
|
|
|
563 L04DC ldd $04,u
|
|
|
564 ldx $06,u
|
|
|
565 pshs x,b,a
|
|
|
566 L04E2 lda $0A,y
|
|
|
567 bita #$02
|
|
|
568 bne L0502
|
|
|
569 tst $0E,y
|
|
|
570 bne L04FD
|
|
|
571 tst $02,s
|
|
|
572 beq L04FD
|
|
|
573 leax >L057A,pcr
|
|
|
574 cmpx $06,s
|
|
|
575 bne L04FD
|
|
|
576 lbsr L10A1
|
|
|
577 bra L0500
|
|
|
578 L04FD lbsr L125F
|
|
|
579 L0500 bcs L04CA
|
|
|
580 L0502 ldu $08,y
|
|
|
581 clra
|
|
|
582 ldb $0E,y
|
|
|
583 leau d,u
|
|
|
584 negb
|
|
|
585 sbca #$FF
|
|
|
586 ldx ,s
|
|
|
587 cmpd $02,s
|
|
|
588 bls L0515
|
|
|
589 ldd $02,s
|
|
|
590 L0515 pshs b,a
|
|
|
591 jsr [<$08,s]
|
|
|
592 stx $02,s
|
|
|
593 lda $0A,y
|
|
|
594 anda #$BF
|
|
|
595 sta $0A,y
|
|
|
596 ldb $01,s
|
|
|
597 addb $0E,y
|
|
|
598 stb $0E,y
|
|
|
599 bne L0539
|
|
|
600 lbsr L1240
|
|
|
601 inc $0D,y
|
|
|
602 bne L0537
|
|
|
603 inc $0C,y
|
|
|
604 bne L0537
|
|
|
605 inc $0B,y
|
|
|
606 L0537 bcs L04CC
|
|
|
607 L0539 ldd $04,s
|
|
|
608 subd ,s++
|
|
|
609 std $02,s
|
|
|
610 jmp [<$04,s]
|
|
|
611 L0542 pshs y
|
|
|
612 clrb
|
|
|
613 ldy $06,u
|
|
|
614 beq L0567
|
|
|
615 ldx <$0050
|
|
|
616 ldb $06,x
|
|
|
617 ldx $04,u
|
|
|
618 L0550 leay -$01,y
|
|
|
619 beq L0567
|
|
|
620 os9 F$LDABX
|
|
|
621 leax $01,x
|
|
|
622 cmpa #$0D
|
|
|
623 bne L0550
|
|
|
624 tfr y,d
|
|
|
625 nega
|
|
|
626 negb
|
|
|
627 sbca #$00
|
|
|
628 addd $06,u
|
|
|
629 std $06,u
|
|
|
630 L0567 puls y
|
|
|
631 L0569 ldd $06,u
|
|
|
632 lbsr L0B15
|
|
|
633 bcs L05A1
|
|
|
634 ldd $06,u
|
|
|
635 beq L05A0
|
|
|
636 bsr L05A2
|
|
|
637 bcs L05A1
|
|
|
638 bsr L058B
|
|
|
639 L057A pshs y,b,a
|
|
|
640 tfr d,y
|
|
|
641 bsr L05D4
|
|
|
642 puls y,b,a
|
|
|
643 leax d,x
|
|
|
644 lda $0A,y
|
|
|
645 ora #$03
|
|
|
646 sta $0A,y
|
|
|
647 rts
|
|
|
648 L058B lbsr L04DC
|
|
|
649 lbne L04E2
|
|
|
650 leas $08,s
|
|
|
651 ldy <$30,y
|
|
|
652 lda #$01
|
|
|
653 lbsr L0ADA
|
|
|
654 ldy $01,y
|
|
|
655 L05A0 clrb
|
|
|
656 L05A1 rts
|
|
|
657 L05A2 addd $0D,y
|
|
|
658 tfr d,x
|
|
|
659 ldd $0B,y
|
|
|
660 adcb #$00
|
|
|
661 adca #$00
|
|
|
662 L05AC cmpd $0F,y
|
|
|
663 bcs L05A0
|
|
|
664 bhi L05B8
|
|
|
665 cmpx <$11,y
|
|
|
666 bls L05A0
|
|
|
667 L05B8 pshs u
|
|
|
668 ldu <$11,y
|
|
|
669 stx <$11,y
|
|
|
670 ldx $0F,y
|
|
|
671 std $0F,y
|
|
|
672 pshs u,x
|
|
|
673 lbsr L0C78
|
|
|
674 puls u,x
|
|
|
675 bcc L05D2
|
|
|
676 stx $0F,y
|
|
|
677 stu <$11,y
|
|
|
678 L05D2 puls pc,u
|
|
|
679 L05D4 pshs x
|
|
|
680 ldx <$0050
|
|
|
681 lda $06,x
|
|
|
682 ldb <$00D0
|
|
|
683 puls x
|
|
|
684 os9 F$Move
|
|
|
685 rts
|
|
|
686 L05E2 ldb $02,u
|
|
|
687 cmpb #$00
|
|
|
688 beq L0608
|
|
|
689 cmpb #$06
|
|
|
690 bne L05F4
|
|
|
691 clr $02,u
|
|
|
692 L05EE clra
|
|
|
693 ldb #$01
|
|
|
694 lbra L047C
|
|
|
695 L05F4 cmpb #$01
|
|
|
696 bne L05FB
|
|
|
697 clr $02,u
|
|
|
698 rts
|
|
|
699 L05FB cmpb #$02
|
|
|
700 bne L0609
|
|
|
701 ldd $0F,y
|
|
|
702 std $04,u
|
|
|
703 ldd <$11,y
|
|
|
704 std $08,u
|
|
|
705 L0608 rts
|
|
|
706 L0609 cmpb #$05
|
|
|
707 bne L0616
|
|
|
708 ldd $0B,y
|
|
|
709 std $04,u
|
|
|
710 ldd $0D,y
|
|
|
711 std $08,u
|
|
|
712 rts
|
|
|
713 L0616 cmpb #$0F
|
|
|
714 bne L0630
|
|
|
715 lbsr L112C
|
|
|
716 bcs L0608
|
|
|
717 ldu $06,y
|
|
|
718 ldd $06,u
|
|
|
719 tsta
|
|
|
720 beq L0629
|
|
|
721 ldd #$0100
|
|
|
722 L0629 ldx $04,u
|
|
|
723 ldu $08,y
|
|
|
724 lbra L04B8
|
|
|
725 L0630 cmpb #$20
|
|
|
726 bne L0649
|
|
|
727 lbsr L1240
|
|
|
728 bcs L0608
|
|
|
729 ldb $06,u
|
|
|
730 ldx $08,u
|
|
|
731 lbsr L1143
|
|
|
732 bcs L0608
|
|
|
733 ldu $06,y
|
|
|
734 ldd $06,u
|
|
|
735 clra
|
|
|
736 bra L0629
|
|
|
737 L0649 lda #$09
|
|
|
738 lbra L1145
|
|
|
739 L064E ldb $02,u
|
|
|
740 cmpb #$00
|
|
|
741 bne L0662
|
|
|
742 ldx $04,u
|
|
|
743 leax $02,x
|
|
|
744 leau <$22,y
|
|
|
745 ldy #$000D
|
|
|
746 lbra L05D4
|
|
|
747 L0662 cmpb #$02
|
|
|
748 bne L06A4
|
|
|
749 ldd <$35,y
|
|
|
750 bne L0672
|
|
|
751 tst <$34,y
|
|
|
752 lbeq L07B1
|
|
|
753 L0672 lda $01,y
|
|
|
754 bita #$02
|
|
|
755 beq L06A0
|
|
|
756 ldd $04,u
|
|
|
757 ldx $08,u
|
|
|
758 cmpd $0F,y
|
|
|
759 bcs L068B
|
|
|
760 bne L0688
|
|
|
761 cmpx <$11,y
|
|
|
762 bcs L068B
|
|
|
763 L0688 lbra L05AC
|
|
|
764 L068B std $0F,y
|
|
|
765 stx <$11,y
|
|
|
766 ldd $0B,y
|
|
|
767 ldx $0D,y
|
|
|
768 pshs x,b,a
|
|
|
769 lbsr L0F07
|
|
|
770 puls u,x
|
|
|
771 stx $0B,y
|
|
|
772 stu $0D,y
|
|
|
773 rts
|
|
|
774 L06A0 comb
|
|
|
775 ldb #$CB
|
|
|
776 L06A3 rts
|
|
|
777 L06A4 cmpb #$0F
|
|
|
778 bne L06E2
|
|
|
779 lda $01,y
|
|
|
780 bita #$02
|
|
|
781 beq L06A0
|
|
|
782 lbsr L112C
|
|
|
783 bcs L06A3
|
|
|
784 pshs y
|
|
|
785 ldx $04,u
|
|
|
786 ldu $08,y
|
|
|
787 ldy <$0050
|
|
|
788 ldd $08,y
|
|
|
789 bne L06C5
|
|
|
790 ldd #$0102
|
|
|
791 bsr L06D4
|
|
|
792 L06C5 ldd #$0305
|
|
|
793 bsr L06D4
|
|
|
794 ldd #$0D03
|
|
|
795 bsr L06D4
|
|
|
796 puls y
|
|
|
797 lbra L1206
|
|
|
798 L06D4 pshs u,x
|
|
|
799 leax a,x
|
|
|
800 leau a,u
|
|
|
801 clra
|
|
|
802 tfr d,y
|
|
|
803 lbsr L05D4
|
|
|
804 puls pc,u,x
|
|
|
805 L06E2 cmpb #$11
|
|
|
806 bne L0701
|
|
|
807 ldd $08,u
|
|
|
808 ldx $04,u
|
|
|
809 cmpx #$FFFF
|
|
|
810 bne L06FE
|
|
|
811 cmpx $08,u
|
|
|
812 bne L06FE
|
|
|
813 ldu <$30,y
|
|
|
814 lda $07,u
|
|
|
815 ora #$02
|
|
|
816 sta $07,u
|
|
|
817 lda #$FF
|
|
|
818 L06FE lbra L0B24
|
|
|
819 L0701 cmpb #$10
|
|
|
820 bne L070E
|
|
|
821 ldd $04,u
|
|
|
822 ldx <$30,y
|
|
|
823 std <$12,x
|
|
|
824 rts
|
|
|
825 L070E cmpb #$1E
|
|
|
826 bne L071E
|
|
|
827 ldx <$1E,y
|
|
|
828 lda $05,u
|
|
|
829 sta <$1E,x
|
|
|
830 clr <$1D,x
|
|
|
831 L071D rts
|
|
|
832 L071E cmpb #$1C
|
|
|
833 bne L078D
|
|
|
834 lbsr L112C
|
|
|
835 bcs L071D
|
|
|
836 ldx <$0050
|
|
|
837 lda $08,x
|
|
|
838 beq L0733
|
|
|
839 ldx $08,y
|
|
|
840 cmpa $01,x
|
|
|
841 bne L0789
|
|
|
842 L0733 lda $05,u
|
|
|
843 tfr a,b
|
|
|
844 ldu $08,y
|
|
|
845 eorb ,u
|
|
|
846 bpl L0784
|
|
|
847 tsta
|
|
|
848 bmi L076D
|
|
|
849 ldx <$1E,y
|
|
|
850 ldd $08,x
|
|
|
851 cmpd <$34,y
|
|
|
852 bne L0752
|
|
|
853 ldb $0A,x
|
|
|
854 cmpb <$36,y
|
|
|
855 beq L0789
|
|
|
856 L0752 ldb $0B,y
|
|
|
857 ldx $0C,y
|
|
|
858 pshs x,b
|
|
|
859 std $0B,y
|
|
|
860 ldb #$20
|
|
|
861 std $0D,y
|
|
|
862 L075E lbsr L094B
|
|
|
863 bcs L0771
|
|
|
864 tst ,x
|
|
|
865 beq L075E
|
|
|
866 puls x,b
|
|
|
867 stb $0B,y
|
|
|
868 stx $0C,y
|
|
|
869 L076D ldb #$EE
|
|
|
870 bra L078B
|
|
|
871 L0771 puls x,a
|
|
|
872 sta $0B,y
|
|
|
873 stx $0C,y
|
|
|
874 cmpb #$D3
|
|
|
875 bne L078B
|
|
|
876 lbsr L112C
|
|
|
877 ldu $08,y
|
|
|
878 ldx $06,y
|
|
|
879 lda $05,x
|
|
|
880 L0784 sta ,u
|
|
|
881 lbra L1206
|
|
|
882 L0789 ldb #$D6
|
|
|
883 L078B coma
|
|
|
884 rts
|
|
|
885 L078D cmpb #$2C
|
|
|
886 bne L07AC
|
|
|
887 lda <$33,y
|
|
|
888 bita #$40
|
|
|
889 lbne L0A94
|
|
|
890 ldx <$30,y
|
|
|
891 lda $05,u
|
|
|
892 sta <$18,x
|
|
|
893 ldu <$0050
|
|
|
894 lda <$0000,u
|
|
|
895 sta <$17,x
|
|
|
896 clrb
|
|
|
897 rts
|
|
|
898 L07AC lda #$0C
|
|
|
899 lbra L1145
|
|
|
900 L07B1 comb
|
|
|
901 ldb #$D0
|
|
|
902 L07B4 rts
|
|
|
903 L07B5 ldd #$0100
|
|
|
904 stb $0A,y
|
|
|
905 os9 F$SRqMem
|
|
|
906 bcs L07B4
|
|
|
907 stu $08,y
|
|
|
908 leau ,y
|
|
|
909 ldx <$0088
|
|
|
910 os9 F$All64
|
|
|
911 exg y,u
|
|
|
912 bcs L07B4
|
|
|
913 stu <$30,y
|
|
|
914 clr <$17,u
|
|
|
915 sty $01,u
|
|
|
916 stu <$10,u
|
|
|
917 ldx $06,y
|
|
|
918 ldx $04,x
|
|
|
919 pshs u,y,x
|
|
|
920 leas -$04,s
|
|
|
921 clra
|
|
|
922 clrb
|
|
|
923 sta <$34,y
|
|
|
924 std <$35,y
|
|
|
925 std <$1C,y
|
|
|
926 lbsr L0988
|
|
|
927 sta ,s
|
|
|
928 cmpa #$2F
|
|
|
929 bne L0804
|
|
|
930 lbsr L0993
|
|
|
931 sta ,s
|
|
|
932 lbcs L0916
|
|
|
933 leax ,y
|
|
|
934 ldy $06,s
|
|
|
935 bra L0827
|
|
|
936 L0804 anda #$7F
|
|
|
937 cmpa #$40
|
|
|
938 beq L0827
|
|
|
939 lda #$2F
|
|
|
940 sta ,s
|
|
|
941 leax -$01,x
|
|
|
942 lda $01,y
|
|
|
943 ldu <$0050
|
|
|
944 leau <$20,u
|
|
|
945 bita #$04
|
|
|
946 beq L081D
|
|
|
947 leau $06,u
|
|
|
948 L081D ldb $03,u
|
|
|
949 stb <$34,y
|
|
|
950 ldd $04,u
|
|
|
951 std <$35,y
|
|
|
952 L0827 ldu $03,y
|
|
|
953 stu <$3E,y
|
|
|
954 lda <$21,y
|
|
|
955 ldb >L0011,pcr
|
|
|
956 mul
|
|
|
957 addd $02,u
|
|
|
958 addd #$000F
|
|
|
959 std <$1E,y
|
|
|
960 lda ,s
|
|
|
961 anda #$7F
|
|
|
962 cmpa #$40
|
|
|
963 bne L0848
|
|
|
964 leax $01,x
|
|
|
965 bra L086A
|
|
|
966 L0848 lbsr L1119
|
|
|
967 lbcs L091E
|
|
|
968 ldu $08,y
|
|
|
969 ldd $0E,u
|
|
|
970 std <$1C,y
|
|
|
971 ldd <$35,y
|
|
|
972 bne L086A
|
|
|
973 lda <$34,y
|
|
|
974 bne L086A
|
|
|
975 lda $08,u
|
|
|
976 sta <$34,y
|
|
|
977 ldd $09,u
|
|
|
978 std <$35,y
|
|
|
979 L086A stx $04,s
|
|
|
980 stx $08,s
|
|
|
981 L086E lbsr L1240
|
|
|
982 lbcs L091E
|
|
|
983 lda ,s
|
|
|
984 anda #$7F
|
|
|
985 cmpa #$40
|
|
|
986 beq L0884
|
|
|
987 lbsr L112C
|
|
|
988 lbcs L091E
|
|
|
989 L0884 lbsr L0A33
|
|
|
990 lda ,s
|
|
|
991 cmpa #$2F
|
|
|
992 bne L08F8
|
|
|
993 clr $02,s
|
|
|
994 clr $03,s
|
|
|
995 lda $01,y
|
|
|
996 ora #$80
|
|
|
997 lbsr L09E6
|
|
|
998 bcs L0916
|
|
|
999 lbsr L01DD
|
|
|
1000 ldx $08,s
|
|
|
1001 leax $01,x
|
|
|
1002 lbsr L0993
|
|
|
1003 std ,s
|
|
|
1004 stx $04,s
|
|
|
1005 sty $08,s
|
|
|
1006 ldy $06,s
|
|
|
1007 bcs L0916
|
|
|
1008 pshs u,y
|
|
|
1009 ldu <$30,y
|
|
|
1010 leau <$20,u
|
|
|
1011 clra
|
|
|
1012 tfr d,y
|
|
|
1013 lbsr L05D4
|
|
|
1014 puls u,y
|
|
|
1015 lbsr L0960
|
|
|
1016 bra L08CA
|
|
|
1017 L08C5 bsr L0921
|
|
|
1018 L08C7 lbsr L094B
|
|
|
1019 L08CA bcs L0916
|
|
|
1020 tst ,x
|
|
|
1021 beq L08C5
|
|
|
1022 clra
|
|
|
1023 ldb $01,s
|
|
|
1024 exg x,y
|
|
|
1025 ldx <$30,x
|
|
|
1026 leax <$20,x
|
|
|
1027 lbsr L09C8
|
|
|
1028 ldx $06,s
|
|
|
1029 exg x,y
|
|
|
1030 bcs L08C7
|
|
|
1031 bsr L092F
|
|
|
1032 lda <$1D,x
|
|
|
1033 sta <$34,y
|
|
|
1034 ldd <$1E,x
|
|
|
1035 std <$35,y
|
|
|
1036 lbsr L0A99
|
|
|
1037 lbra L086E
|
|
|
1038 L08F8 ldx $08,s
|
|
|
1039 tsta
|
|
|
1040 bmi L0905
|
|
|
1041 os9 F$PrsNam
|
|
|
1042 leax ,y
|
|
|
1043 ldy $06,s
|
|
|
1044 L0905 stx $04,s
|
|
|
1045 clra
|
|
|
1046 L0908 lda ,s
|
|
|
1047 leas $04,s
|
|
|
1048 pshs b,a,cc
|
|
|
1049 lda $0A,y
|
|
|
1050 anda #$BF
|
|
|
1051 sta $0A,y
|
|
|
1052 puls pc,u,y,x,b,a,cc
|
|
|
1053 L0916 cmpb #$D3
|
|
|
1054 bne L091E
|
|
|
1055 bsr L0921
|
|
|
1056 ldb #$D8
|
|
|
1057 L091E coma
|
|
|
1058 bra L0908
|
|
|
1059 L0921 pshs b,a
|
|
|
1060 lda $04,s
|
|
|
1061 cmpa #$2F
|
|
|
1062 beq L0949
|
|
|
1063 ldd $06,s
|
|
|
1064 bne L0949
|
|
|
1065 puls b,a
|
|
|
1066 L092F pshs b,a
|
|
|
1067 stx $06,s
|
|
|
1068 lda <$34,y
|
|
|
1069 sta <$37,y
|
|
|
1070 ldd <$35,y
|
|
|
1071 std <$38,y
|
|
|
1072 ldd $0B,y
|
|
|
1073 std <$3A,y
|
|
|
1074 ldd $0D,y
|
|
|
1075 std <$3C,y
|
|
|
1076 L0949 puls pc,b,a
|
|
|
1077 L094B ldb $0E,y
|
|
|
1078 addb #$20
|
|
|
1079 stb $0E,y
|
|
|
1080 bcc L0960
|
|
|
1081 lbsr L1240
|
|
|
1082 inc $0D,y
|
|
|
1083 bne L0960
|
|
|
1084 inc $0C,y
|
|
|
1085 bne L0960
|
|
|
1086 inc $0B,y
|
|
|
1087 L0960 ldd #$0020
|
|
|
1088 lbsr L047C
|
|
|
1089 bcs L0987
|
|
|
1090 ldd #$0020
|
|
|
1091 lbsr L0B15
|
|
|
1092 bcs L0987
|
|
|
1093 lda $0A,y
|
|
|
1094 bita #$02
|
|
|
1095 bne L0980
|
|
|
1096 lbsr L10A1
|
|
|
1097 bcs L0987
|
|
|
1098 lbsr L125F
|
|
|
1099 bcs L0987
|
|
|
1100 L0980 ldb $0E,y
|
|
|
1101 lda $08,y
|
|
|
1102 tfr d,x
|
|
|
1103 clrb
|
|
|
1104 L0987 rts
|
|
|
1105 L0988 pshs u,x,b
|
|
|
1106 ldu <$0050
|
|
|
1107 ldb $06,u
|
|
|
1108 os9 F$LDABX
|
|
|
1109 puls pc,u,x,b
|
|
|
1110 L0993 os9 F$PrsNam
|
|
|
1111 pshs x
|
|
|
1112 bcc L09C0
|
|
|
1113 clrb
|
|
|
1114 L099B pshs a
|
|
|
1115 anda #$7F
|
|
|
1116 cmpa #$2E
|
|
|
1117 puls a
|
|
|
1118 bne L09B6
|
|
|
1119 incb
|
|
|
1120 leax $01,x
|
|
|
1121 tsta
|
|
|
1122 bmi L09B6
|
|
|
1123 bsr L0988
|
|
|
1124 cmpb #$03
|
|
|
1125 bcs L099B
|
|
|
1126 lda #$2F
|
|
|
1127 decb
|
|
|
1128 leax -$03,x
|
|
|
1129 L09B6 tstb
|
|
|
1130 bne L09BE
|
|
|
1131 L09B9 comb
|
|
|
1132 ldb #$D7
|
|
|
1133 puls pc,x
|
|
|
1134 L09BE leay ,x
|
|
|
1135 L09C0 cmpb #$20
|
|
|
1136 bhi L09B9
|
|
|
1137 andcc #$FE
|
|
|
1138 puls pc,x
|
|
|
1139 L09C8 pshs y,x,b,a
|
|
|
1140 L09CA lda ,y+
|
|
|
1141 bmi L09DA
|
|
|
1142 decb
|
|
|
1143 beq L09D7
|
|
|
1144 eora ,x+
|
|
|
1145 anda #$DF
|
|
|
1146 beq L09CA
|
|
|
1147 L09D7 comb
|
|
|
1148 puls pc,y,x,b,a
|
|
|
1149 L09DA decb
|
|
|
1150 bne L09D7
|
|
|
1151 eora ,x
|
|
|
1152 anda #$5F
|
|
|
1153 bne L09D7
|
|
|
1154 clrb
|
|
|
1155 puls pc,y,x,b,a
|
|
|
1156 L09E6 tfr a,b
|
|
|
1157 anda #$07
|
|
|
1158 andb #$C0
|
|
|
1159 pshs x,b,a
|
|
|
1160 lbsr L112C
|
|
|
1161 bcs L0A15
|
|
|
1162 ldu $08,y
|
|
|
1163 ldx <$0050
|
|
|
1164 ldd $08,x
|
|
|
1165 beq L09FE
|
|
|
1166 cmpd $01,u
|
|
|
1167 L09FE puls a
|
|
|
1168 beq L0A05
|
|
|
1169 lsla
|
|
|
1170 lsla
|
|
|
1171 lsla
|
|
|
1172 L0A05 ora ,s
|
|
|
1173 anda #$BF
|
|
|
1174 pshs a
|
|
|
1175 ora #$80
|
|
|
1176 anda ,u
|
|
|
1177 cmpa ,s
|
|
|
1178 beq L0A1E
|
|
|
1179 ldb #$D6
|
|
|
1180 L0A15 leas $02,s
|
|
|
1181 coma
|
|
|
1182 puls pc,x
|
|
|
1183 L0A1A ldb #$FD
|
|
|
1184 bra L0A15
|
|
|
1185 L0A1E ldb $01,s
|
|
|
1186 orb ,u
|
|
|
1187 bitb #$40
|
|
|
1188 beq L0A31
|
|
|
1189 ldx <$30,y
|
|
|
1190 cmpx $05,x
|
|
|
1191 bne L0A1A
|
|
|
1192 lda #$02
|
|
|
1193 sta $07,x
|
|
|
1194 L0A31 puls pc,x,b,a
|
|
|
1195 L0A33 pshs u,y,x
|
|
|
1196 clra
|
|
|
1197 clrb
|
|
|
1198 std $0B,y
|
|
|
1199 std $0D,y
|
|
|
1200 sta <$19,y
|
|
|
1201 std <$1A,y
|
|
|
1202 ldb <$34,y
|
|
|
1203 ldx <$35,y
|
|
|
1204 pshs x,b
|
|
|
1205 ldu <$1E,y
|
|
|
1206 ldy <$30,y
|
|
|
1207 sty $05,y
|
|
|
1208 leau <$15,u
|
|
|
1209 bra L0A5A
|
|
|
1210 L0A58 ldu $03,u
|
|
|
1211 L0A5A ldx $03,u
|
|
|
1212 beq L0A88
|
|
|
1213 ldx $01,x
|
|
|
1214 ldd <$34,x
|
|
|
1215 cmpd ,s
|
|
|
1216 bcs L0A58
|
|
|
1217 bhi L0A88
|
|
|
1218 ldb <$36,x
|
|
|
1219 cmpb $02,s
|
|
|
1220 bcs L0A58
|
|
|
1221 bhi L0A88
|
|
|
1222 ldx <$30,x
|
|
|
1223 lda $07,y
|
|
|
1224 bita #$02
|
|
|
1225 bne L0A94
|
|
|
1226 sty $03,y
|
|
|
1227 ldd $05,x
|
|
|
1228 std $05,y
|
|
|
1229 sty $05,x
|
|
|
1230 bra L0A8F
|
|
|
1231 L0A88 ldx $03,u
|
|
|
1232 stx $03,y
|
|
|
1233 sty $03,u
|
|
|
1234 L0A8F clrb
|
|
|
1235 L0A90 leas $03,s
|
|
|
1236 puls pc,u,y,x
|
|
|
1237 L0A94 comb
|
|
|
1238 ldb #$FD
|
|
|
1239 bra L0A90
|
|
|
1240 L0A99 pshs u,y,x,b,a
|
|
|
1241 ldu <$1E,y
|
|
|
1242 leau <$15,u
|
|
|
1243 ldx <$30,y
|
|
|
1244 leay ,x
|
|
|
1245 bsr L0AD8
|
|
|
1246 bra L0AAE
|
|
|
1247 L0AAA ldx $05,x
|
|
|
1248 beq L0AD3
|
|
|
1249 L0AAE cmpy $05,x
|
|
|
1250 bne L0AAA
|
|
|
1251 ldd $05,y
|
|
|
1252 std $05,x
|
|
|
1253 bra L0ABB
|
|
|
1254 L0AB9 ldu $03,u
|
|
|
1255 L0ABB ldd $03,u
|
|
|
1256 beq L0AD3
|
|
|
1257 cmpy $03,u
|
|
|
1258 bne L0AB9
|
|
|
1259 ldx $03,y
|
|
|
1260 cmpy $05,y
|
|
|
1261 beq L0AD1
|
|
|
1262 ldx $05,y
|
|
|
1263 ldd $03,y
|
|
|
1264 std $03,x
|
|
|
1265 L0AD1 stx $03,u
|
|
|
1266 L0AD3 sty $05,y
|
|
|
1267 puls pc,u,y,x,b,a
|
|
|
1268 L0AD8 lda #$07
|
|
|
1269 L0ADA pshs u,y,x,b,a
|
|
|
1270 bita $07,y
|
|
|
1271 beq L0AE9
|
|
|
1272 coma
|
|
|
1273 anda $07,y
|
|
|
1274 sta $07,y
|
|
|
1275 bita #$02
|
|
|
1276 bne L0B06
|
|
|
1277 L0AE9 leau ,y
|
|
|
1278 L0AEB ldx <$10,u
|
|
|
1279 cmpy <$10,u
|
|
|
1280 beq L0B03
|
|
|
1281 stu <$10,u
|
|
|
1282 leau ,x
|
|
|
1283 lda <$14,u
|
|
|
1284 ldb #$01
|
|
|
1285 os9 F$Send
|
|
|
1286 bra L0AEB
|
|
|
1287 L0B03 stu <$10,u
|
|
|
1288 L0B06 puls pc,u,y,x,b,a
|
|
|
1289 L0B08 comb
|
|
|
1290 ldb #$FD
|
|
|
1291 L0B0B pshs y,b,cc
|
|
|
1292 ldy <$30,y
|
|
|
1293 bsr L0AD8
|
|
|
1294 puls pc,y,b,cc
|
|
|
1295 L0B15 ldx #$0000
|
|
|
1296 bra L0B24
|
|
|
1297 L0B1A ldu <$30,y
|
|
|
1298 lda <$15,u
|
|
|
1299 sta $07,u
|
|
|
1300 puls u,y,x,b,a
|
|
|
1301 L0B24 pshs u,y,x,b,a
|
|
|
1302 ldu <$30,y
|
|
|
1303 lda $07,u
|
|
|
1304 sta <$15,u
|
|
|
1305 lda ,s
|
|
|
1306 bsr L0BA8
|
|
|
1307 bcc L0BA6
|
|
|
1308 ldu <$0050
|
|
|
1309 lda <$14,x
|
|
|
1310 L0B39 os9 F$GProcP
|
|
|
1311 bcs L0B4B
|
|
|
1312 lda <$1E,y
|
|
|
1313 beq L0B4B
|
|
|
1314 cmpa ,u
|
|
|
1315 bne L0B39
|
|
|
1316 ldb #$FE
|
|
|
1317 bra L0BA3
|
|
|
1318 L0B4B lda <$14,x
|
|
|
1319 sta <$1E,u
|
|
|
1320 ldy $04,s
|
|
|
1321 lda $0A,y
|
|
|
1322 anda #$BF
|
|
|
1323 sta $0A,y
|
|
|
1324 ldu <$30,y
|
|
|
1325 ldd <$10,x
|
|
|
1326 stu <$10,x
|
|
|
1327 std <$10,u
|
|
|
1328 lbsr L0C5F
|
|
|
1329 ldx <$12,u
|
|
|
1330 os9 F$Sleep
|
|
|
1331 pshs x
|
|
|
1332 leax ,u
|
|
|
1333 bra L0B78
|
|
|
1334 L0B75 ldx <$10,x
|
|
|
1335 L0B78 cmpu <$10,x
|
|
|
1336 bne L0B75
|
|
|
1337 ldd <$10,u
|
|
|
1338 std <$10,x
|
|
|
1339 stu <$10,u
|
|
|
1340 puls x
|
|
|
1341 ldu <$0050
|
|
|
1342 clr <$1E,u
|
|
|
1343 lbsr L105C
|
|
|
1344 bcs L0BA3
|
|
|
1345 leax ,x
|
|
|
1346 bne L0B1A
|
|
|
1347 ldu <$30,y
|
|
|
1348 ldx <$12,u
|
|
|
1349 lbeq L0B1A
|
|
|
1350 ldb #$FC
|
|
|
1351 L0BA3 coma
|
|
|
1352 stb $01,s
|
|
|
1353 L0BA6 puls pc,u,y,x,b,a
|
|
|
1354 L0BA8 std -$02,s
|
|
|
1355 bne L0BB3
|
|
|
1356 cmpx #$0000
|
|
|
1357 lbeq L0B0B
|
|
|
1358 L0BB3 bsr L0BCB
|
|
|
1359 lbcs L0B08
|
|
|
1360 pshs u,y,x
|
|
|
1361 ldy <$30,y
|
|
|
1362 lda #$01
|
|
|
1363 lbsr L0ADA
|
|
|
1364 ora $07,y
|
|
|
1365 sta $07,y
|
|
|
1366 clrb
|
|
|
1367 puls pc,u,y,x
|
|
|
1368 L0BCB pshs u,y,b,a
|
|
|
1369 leau ,y
|
|
|
1370 ldy <$30,y
|
|
|
1371 subd #$0001
|
|
|
1372 bcc L0BDA
|
|
|
1373 leax -$01,x
|
|
|
1374 L0BDA addd $0D,u
|
|
|
1375 exg d,x
|
|
|
1376 adcb $0C,u
|
|
|
1377 adca $0B,u
|
|
|
1378 bcc L0BE9
|
|
|
1379 ldx #$FFFF
|
|
|
1380 tfr x,d
|
|
|
1381 L0BE9 std $0C,y
|
|
|
1382 stx $0E,y
|
|
|
1383 cmpd $0F,u
|
|
|
1384 bcs L0C01
|
|
|
1385 bhi L0BF9
|
|
|
1386 cmpx <$11,u
|
|
|
1387 bcs L0C01
|
|
|
1388 L0BF9 lda $07,y
|
|
|
1389 ora #$04
|
|
|
1390 sta $07,y
|
|
|
1391 bra L0C0A
|
|
|
1392 L0C01 lda #$04
|
|
|
1393 bita $07,y
|
|
|
1394 beq L0C0A
|
|
|
1395 lbsr L0ADA
|
|
|
1396 L0C0A ldd $0B,u
|
|
|
1397 ldx $0D,u
|
|
|
1398 std $08,y
|
|
|
1399 stx $0A,y
|
|
|
1400 lda $05,u
|
|
|
1401 sta <$14,y
|
|
|
1402 leax ,y
|
|
|
1403 L0C19 cmpy $05,x
|
|
|
1404 beq L0C5D
|
|
|
1405 ldx $05,x
|
|
|
1406 ldb <$14,y
|
|
|
1407 cmpb <$14,x
|
|
|
1408 beq L0C19
|
|
|
1409 lda $07,x
|
|
|
1410 beq L0C19
|
|
|
1411 ora $07,y
|
|
|
1412 bita #$02
|
|
|
1413 bne L0C5C
|
|
|
1414 lda $07,x
|
|
|
1415 anda $07,y
|
|
|
1416 bita #$04
|
|
|
1417 bne L0C5C
|
|
|
1418 ldd $08,x
|
|
|
1419 cmpd $0C,y
|
|
|
1420 bhi L0C19
|
|
|
1421 bcs L0C4C
|
|
|
1422 ldd $0A,x
|
|
|
1423 cmpd $0E,y
|
|
|
1424 bhi L0C19
|
|
|
1425 beq L0C5C
|
|
|
1426 L0C4C ldd $0C,x
|
|
|
1427 cmpd $08,y
|
|
|
1428 bcs L0C19
|
|
|
1429 bhi L0C5C
|
|
|
1430 ldd $0E,x
|
|
|
1431 cmpd $0A,y
|
|
|
1432 bcs L0C19
|
|
|
1433 L0C5C comb
|
|
|
1434 L0C5D puls pc,u,y,b,a
|
|
|
1435 L0C5F pshs y,x,b,a
|
|
|
1436 ldx <$0050
|
|
|
1437 lda <$10,x
|
|
|
1438 beq L0C75
|
|
|
1439 clr <$10,x
|
|
|
1440 ldb #$01
|
|
|
1441 os9 F$Send
|
|
|
1442 os9 F$GProcP
|
|
|
1443 clr $0F,y
|
|
|
1444 L0C75 clrb
|
|
|
1445 puls pc,y,x,b,a
|
|
|
1446 L0C78 pshs u,x
|
|
|
1447 L0C7A bsr L0CDA
|
|
|
1448 bne L0C8A
|
|
|
1449 cmpx <$1A,y
|
|
|
1450 bcs L0CD1
|
|
|
1451 bne L0C8A
|
|
|
1452 lda <$12,y
|
|
|
1453 beq L0CD1
|
|
|
1454 L0C8A lbsr L112C
|
|
|
1455 bcs L0CCE
|
|
|
1456 ldx $0B,y
|
|
|
1457 ldu $0D,y
|
|
|
1458 pshs u,x
|
|
|
1459 ldd $0F,y
|
|
|
1460 std $0B,y
|
|
|
1461 ldd <$11,y
|
|
|
1462 std $0D,y
|
|
|
1463 lbsr L10BB
|
|
|
1464 puls u,x
|
|
|
1465 stx $0B,y
|
|
|
1466 stu $0D,y
|
|
|
1467 bcc L0CD1
|
|
|
1468 cmpb #$D5
|
|
|
1469 bne L0CCE
|
|
|
1470 bsr L0CDA
|
|
|
1471 bne L0CBA
|
|
|
1472 tst <$12,y
|
|
|
1473 beq L0CBD
|
|
|
1474 leax $01,x
|
|
|
1475 bne L0CBD
|
|
|
1476 L0CBA ldx #$FFFF
|
|
|
1477 L0CBD tfr x,d
|
|
|
1478 tsta
|
|
|
1479 bne L0CCA
|
|
|
1480 cmpb <$2E,y
|
|
|
1481 bcc L0CCA
|
|
|
1482 ldb <$2E,y
|
|
|
1483 L0CCA bsr L0D10
|
|
|
1484 bcc L0C7A
|
|
|
1485 L0CCE coma
|
|
|
1486 puls pc,u,x
|
|
|
1487 L0CD1 lbsr L10A1
|
|
|
1488 bcs L0CCE
|
|
|
1489 bsr L0CE8
|
|
|
1490 puls pc,u,x
|
|
|
1491 L0CDA ldd <$10,y
|
|
|
1492 subd <$14,y
|
|
|
1493 tfr d,x
|
|
|
1494 ldb $0F,y
|
|
|
1495 sbcb <$13,y
|
|
|
1496 rts
|
|
|
1497 L0CE8 clra
|
|
|
1498 ldb #$02
|
|
|
1499 pshs u,x
|
|
|
1500 ldu <$30,y
|
|
|
1501 bra L0D06
|
|
|
1502 L0CF2 ldu $01,u
|
|
|
1503 ldx $0F,y
|
|
|
1504 stx $0F,u
|
|
|
1505 ldx <$11,y
|
|
|
1506 stx <$11,u
|
|
|
1507 bitb $01,y
|
|
|
1508 beq L0D03
|
|
|
1509 inca
|
|
|
1510 L0D03 ldu <$30,u
|
|
|
1511 L0D06 ldu $05,u
|
|
|
1512 cmpy $01,u
|
|
|
1513 bne L0CF2
|
|
|
1514 tsta
|
|
|
1515 puls pc,u,x
|
|
|
1516 L0D10 pshs u,x
|
|
|
1517 lbsr L0DBE
|
|
|
1518 bcs L0D57
|
|
|
1519 lbsr L112C
|
|
|
1520 bcs L0D57
|
|
|
1521 ldu $08,y
|
|
|
1522 clra
|
|
|
1523 clrb
|
|
|
1524 std $09,u
|
|
|
1525 std $0B,u
|
|
|
1526 leax <$10,u
|
|
|
1527 ldd $03,x
|
|
|
1528 beq L0D9F
|
|
|
1529 ldd $08,y
|
|
|
1530 inca
|
|
|
1531 pshs b,a
|
|
|
1532 bra L0D3F
|
|
|
1533 L0D32 clrb
|
|
|
1534 ldd -$02,x
|
|
|
1535 beq L0D53
|
|
|
1536 addd $0A,u
|
|
|
1537 std $0A,u
|
|
|
1538 bcc L0D3F
|
|
|
1539 inc $09,u
|
|
|
1540 L0D3F leax $05,x
|
|
|
1541 cmpx ,s
|
|
|
1542 bcs L0D32
|
|
|
1543 lbsr L0FD5
|
|
|
1544 clra
|
|
|
1545 clrb
|
|
|
1546 sta <$19,y
|
|
|
1547 std <$1A,y
|
|
|
1548 comb
|
|
|
1549 ldb #$D9
|
|
|
1550 L0D53 leas $02,s
|
|
|
1551 leax -$05,x
|
|
|
1552 L0D57 bcs L0DBC
|
|
|
1553 ldd -$04,x
|
|
|
1554 addd -$02,x
|
|
|
1555 pshs b,a
|
|
|
1556 ldb -$05,x
|
|
|
1557 adcb #$00
|
|
|
1558 cmpb <$16,y
|
|
|
1559 puls b,a
|
|
|
1560 bne L0D9F
|
|
|
1561 cmpd <$17,y
|
|
|
1562 bne L0D9F
|
|
|
1563 ldu <$1E,y
|
|
|
1564 ldd $06,u
|
|
|
1565 ldu $08,y
|
|
|
1566 subd #$0001
|
|
|
1567 coma
|
|
|
1568 comb
|
|
|
1569 pshs b,a
|
|
|
1570 ldd -$05,x
|
|
|
1571 eora <$16,y
|
|
|
1572 eorb <$17,y
|
|
|
1573 lsra
|
|
|
1574 rorb
|
|
|
1575 lsra
|
|
|
1576 rorb
|
|
|
1577 lsra
|
|
|
1578 rorb
|
|
|
1579 anda ,s+
|
|
|
1580 andb ,s+
|
|
|
1581 std -$02,s
|
|
|
1582 bne L0D9F
|
|
|
1583 ldd -$02,x
|
|
|
1584 addd <$1A,y
|
|
|
1585 bcs L0D9F
|
|
|
1586 std -$02,x
|
|
|
1587 bra L0DAE
|
|
|
1588 L0D9F ldd <$16,y
|
|
|
1589 std ,x
|
|
|
1590 lda <$18,y
|
|
|
1591 sta $02,x
|
|
|
1592 ldd <$1A,y
|
|
|
1593 std $03,x
|
|
|
1594 L0DAE ldd $0A,u
|
|
|
1595 addd <$1A,y
|
|
|
1596 std $0A,u
|
|
|
1597 bcc L0DB9
|
|
|
1598 inc $09,u
|
|
|
1599 L0DB9 lbsr L1206
|
|
|
1600 L0DBC puls pc,u,x
|
|
|
1601 L0DBE pshs u,y,x,b,a
|
|
|
1602 ldb #$0C
|
|
|
1603 L0DC2 clr ,-s
|
|
|
1604 decb
|
|
|
1605 bne L0DC2
|
|
|
1606 ldx <$1E,y
|
|
|
1607 ldd $04,x
|
|
|
1608 std $04,s
|
|
|
1609 ldd $06,x
|
|
|
1610 std $02,s
|
|
|
1611 std $0A,s
|
|
|
1612 ldx $03,y
|
|
|
1613 ldx $04,x
|
|
|
1614 leax <$12,x
|
|
|
1615 subd #$0001
|
|
|
1616 addb $0E,x
|
|
|
1617 adca #$00
|
|
|
1618 bra L0DE6
|
|
|
1619 L0DE4 lsra
|
|
|
1620 rorb
|
|
|
1621 L0DE6 lsr $0A,s
|
|
|
1622 ror $0B,s
|
|
|
1623 bcc L0DE4
|
|
|
1624 std ,s
|
|
|
1625 ldd $02,s
|
|
|
1626 std $0A,s
|
|
|
1627 subd #$0001
|
|
|
1628 addd $0C,s
|
|
|
1629 bcc L0E00
|
|
|
1630 ldd #$FFFF
|
|
|
1631 bra L0E00
|
|
|
1632 L0DFE lsra
|
|
|
1633 rorb
|
|
|
1634 L0E00 lsr $0A,s
|
|
|
1635 ror $0B,s
|
|
|
1636 bcc L0DFE
|
|
|
1637 cmpa #$08
|
|
|
1638 bcs L0E0D
|
|
|
1639 ldd #$0800
|
|
|
1640 L0E0D std $0C,s
|
|
|
1641 lbsr L103F
|
|
|
1642 lbcs L0EFB
|
|
|
1643 ldx <$1E,y
|
|
|
1644 ldd <$1A,x
|
|
|
1645 cmpd $0E,x
|
|
|
1646 bne L0E2F
|
|
|
1647 lda <$1C,x
|
|
|
1648 cmpa $04,x
|
|
|
1649 bne L0E2F
|
|
|
1650 ldb <$1D,x
|
|
|
1651 cmpb $04,x
|
|
|
1652 bcs L0E3D
|
|
|
1653 L0E2F ldd $0E,x
|
|
|
1654 std <$1A,x
|
|
|
1655 lda $04,x
|
|
|
1656 sta <$1C,x
|
|
|
1657 clrb
|
|
|
1658 stb <$1D,x
|
|
|
1659 L0E3D incb
|
|
|
1660 stb $06,s
|
|
|
1661 ldx <$1E,y
|
|
|
1662 cmpb <$1E,x
|
|
|
1663 beq L0E79
|
|
|
1664 lbsr L109A
|
|
|
1665 lbcs L0EFB
|
|
|
1666 ldb $06,s
|
|
|
1667 cmpb $04,s
|
|
|
1668 bls L0E5A
|
|
|
1669 clra
|
|
|
1670 ldb $05,s
|
|
|
1671 bra L0E5D
|
|
|
1672 L0E5A ldd #$0100
|
|
|
1673 L0E5D ldx $08,y
|
|
|
1674 leau d,x
|
|
|
1675 ldy $0C,s
|
|
|
1676 clra
|
|
|
1677 clrb
|
|
|
1678 os9 F$SchBit
|
|
|
1679 bcc L0EA6
|
|
|
1680 cmpy $08,s
|
|
|
1681 bls L0E79
|
|
|
1682 sty $08,s
|
|
|
1683 std $0A,s
|
|
|
1684 lda $06,s
|
|
|
1685 sta $07,s
|
|
|
1686 L0E79 ldy <$10,s
|
|
|
1687 ldb $06,s
|
|
|
1688 cmpb $04,s
|
|
|
1689 bcs L0E8A
|
|
|
1690 bhi L0E89
|
|
|
1691 tst $05,s
|
|
|
1692 bne L0E8A
|
|
|
1693 L0E89 clrb
|
|
|
1694 L0E8A ldx <$1E,y
|
|
|
1695 cmpb <$1D,x
|
|
|
1696 bne L0E3D
|
|
|
1697 ldb $07,s
|
|
|
1698 beq L0EF9
|
|
|
1699 cmpb $06,s
|
|
|
1700 beq L0E9F
|
|
|
1701 stb $06,s
|
|
|
1702 lbsr L109A
|
|
|
1703 L0E9F ldx $08,y
|
|
|
1704 ldd $0A,s
|
|
|
1705 ldy $08,s
|
|
|
1706 L0EA6 std $0A,s
|
|
|
1707 sty $08,s
|
|
|
1708 os9 F$AllBit
|
|
|
1709 ldy <$10,s
|
|
|
1710 ldb $06,s
|
|
|
1711 lbsr L1072
|
|
|
1712 bcs L0EFB
|
|
|
1713 ldx <$1E,y
|
|
|
1714 lda $06,s
|
|
|
1715 deca
|
|
|
1716 sta <$1D,x
|
|
|
1717 clrb
|
|
|
1718 lsla
|
|
|
1719 rolb
|
|
|
1720 lsla
|
|
|
1721 rolb
|
|
|
1722 lsla
|
|
|
1723 rolb
|
|
|
1724 stb <$16,y
|
|
|
1725 ora $0A,s
|
|
|
1726 ldb $0B,s
|
|
|
1727 ldx $08,s
|
|
|
1728 ldy <$10,s
|
|
|
1729 std <$17,y
|
|
|
1730 stx <$1A,y
|
|
|
1731 ldd $02,s
|
|
|
1732 bra L0EEF
|
|
|
1733 L0EE0 lsl <$18,y
|
|
|
1734 rol <$17,y
|
|
|
1735 rol <$16,y
|
|
|
1736 lsl <$1B,y
|
|
|
1737 rol <$1A,y
|
|
|
1738 L0EEF lsra
|
|
|
1739 rorb
|
|
|
1740 bcc L0EE0
|
|
|
1741 clrb
|
|
|
1742 ldd <$1A,y
|
|
|
1743 bra L0F03
|
|
|
1744 L0EF9 ldb #$F8
|
|
|
1745 L0EFB ldy <$10,s
|
|
|
1746 lbsr L1079
|
|
|
1747 coma
|
|
|
1748 L0F03 leas $0E,s
|
|
|
1749 puls pc,u,y,x
|
|
|
1750 L0F07 clra
|
|
|
1751 lda $01,y
|
|
|
1752 bita #$80
|
|
|
1753 bne L0F78
|
|
|
1754 ldd $0F,y
|
|
|
1755 std $0B,y
|
|
|
1756 ldd <$11,y
|
|
|
1757 std $0D,y
|
|
|
1758 ldd #$FFFF
|
|
|
1759 tfr d,x
|
|
|
1760 lbsr L0B24
|
|
|
1761 bcs L0F77
|
|
|
1762 lbsr L0CE8
|
|
|
1763 bne L0F78
|
|
|
1764 lbsr L10BB
|
|
|
1765 bcc L0F2F
|
|
|
1766 cmpb #$D5
|
|
|
1767 bra L0F70
|
|
|
1768 L0F2F ldd <$14,y
|
|
|
1769 subd $0C,y
|
|
|
1770 addd <$1A,y
|
|
|
1771 tst $0E,y
|
|
|
1772 beq L0F3E
|
|
|
1773 subd #$0001
|
|
|
1774 L0F3E pshs b,a
|
|
|
1775 ldu <$1E,y
|
|
|
1776 ldd $06,u
|
|
|
1777 subd #$0001
|
|
|
1778 coma
|
|
|
1779 comb
|
|
|
1780 anda ,s+
|
|
|
1781 andb ,s+
|
|
|
1782 ldu <$1A,y
|
|
|
1783 std <$1A,y
|
|
|
1784 beq L0F72
|
|
|
1785 tfr u,d
|
|
|
1786 subd <$1A,y
|
|
|
1787 pshs x,b,a
|
|
|
1788 addd <$17,y
|
|
|
1789 std <$17,y
|
|
|
1790 bcc L0F68
|
|
|
1791 inc <$16,y
|
|
|
1792 L0F68 bsr L0FD5
|
|
|
1793 bcc L0F79
|
|
|
1794 leas $04,s
|
|
|
1795 cmpb #$DB
|
|
|
1796 L0F70 bne L0F77
|
|
|
1797 L0F72 lbsr L112C
|
|
|
1798 bcc L0F82
|
|
|
1799 L0F77 coma
|
|
|
1800 L0F78 rts
|
|
|
1801 L0F79 lbsr L112C
|
|
|
1802 bcs L0FD2
|
|
|
1803 puls x,b,a
|
|
|
1804 std $03,x
|
|
|
1805 L0F82 ldu $08,y
|
|
|
1806 ldd <$11,y
|
|
|
1807 std $0B,u
|
|
|
1808 ldd $0F,y
|
|
|
1809 std $09,u
|
|
|
1810 tfr x,d
|
|
|
1811 clrb
|
|
|
1812 inca
|
|
|
1813 leax $05,x
|
|
|
1814 pshs x,b,a
|
|
|
1815 bra L0FBD
|
|
|
1816 L0F97 ldd -$02,x
|
|
|
1817 beq L0FCA
|
|
|
1818 std <$1A,y
|
|
|
1819 ldd -$05,x
|
|
|
1820 std <$16,y
|
|
|
1821 lda -$03,x
|
|
|
1822 sta <$18,y
|
|
|
1823 bsr L0FD5
|
|
|
1824 bcs L0FD2
|
|
|
1825 stx $02,s
|
|
|
1826 lbsr L112C
|
|
|
1827 bcs L0FD2
|
|
|
1828 ldx $02,s
|
|
|
1829 clra
|
|
|
1830 clrb
|
|
|
1831 std -$05,x
|
|
|
1832 sta -$03,x
|
|
|
1833 std -$02,x
|
|
|
1834 L0FBD lbsr L1206
|
|
|
1835 bcs L0FD2
|
|
|
1836 ldx $02,s
|
|
|
1837 leax $05,x
|
|
|
1838 cmpx ,s
|
|
|
1839 bcs L0F97
|
|
|
1840 L0FCA clra
|
|
|
1841 clrb
|
|
|
1842 sta <$19,y
|
|
|
1843 std <$1A,y
|
|
|
1844 L0FD2 leas $04,s
|
|
|
1845 rts
|
|
|
1846 L0FD5 pshs u,y,x,a
|
|
|
1847 ldx <$1E,y
|
|
|
1848 ldd $06,x
|
|
|
1849 subd #$0001
|
|
|
1850 addd <$17,y
|
|
|
1851 std <$17,y
|
|
|
1852 ldd $06,x
|
|
|
1853 bcc L0FFD
|
|
|
1854 inc <$16,y
|
|
|
1855 bra L0FFD
|
|
|
1856 L0FEE lsr <$16,y
|
|
|
1857 ror <$17,y
|
|
|
1858 ror <$18,y
|
|
|
1859 lsr <$1A,y
|
|
|
1860 ror <$1B,y
|
|
|
1861 L0FFD lsra
|
|
|
1862 rorb
|
|
|
1863 bcc L0FEE
|
|
|
1864 clrb
|
|
|
1865 ldd <$1A,y
|
|
|
1866 beq L103D
|
|
|
1867 ldd <$16,y
|
|
|
1868 lsra
|
|
|
1869 rorb
|
|
|
1870 lsra
|
|
|
1871 rorb
|
|
|
1872 lsra
|
|
|
1873 rorb
|
|
|
1874 tfr b,a
|
|
|
1875 ldb #$DB
|
|
|
1876 cmpa $04,x
|
|
|
1877 bhi L103C
|
|
|
1878 inca
|
|
|
1879 sta ,s
|
|
|
1880 L101B bsr L103F
|
|
|
1881 bcs L101B
|
|
|
1882 ldb ,s
|
|
|
1883 bsr L109A
|
|
|
1884 bcs L103C
|
|
|
1885 ldx $08,y
|
|
|
1886 ldd <$17,y
|
|
|
1887 anda #$07
|
|
|
1888 ldy <$1A,y
|
|
|
1889 os9 F$DelBit
|
|
|
1890 ldy $03,s
|
|
|
1891 ldb ,s
|
|
|
1892 bsr L1072
|
|
|
1893 bcc L103D
|
|
|
1894 L103C coma
|
|
|
1895 L103D puls pc,u,y,x,a
|
|
|
1896 L103F lbsr L1240
|
|
|
1897 bra L104C
|
|
|
1898 L1044 lbsr L0C5F
|
|
|
1899 os9 F$IOQu
|
|
|
1900 bsr L105C
|
|
|
1901 L104C bcs L105B
|
|
|
1902 ldx <$1E,y
|
|
|
1903 lda <$17,x
|
|
|
1904 bne L1044
|
|
|
1905 lda $05,y
|
|
|
1906 sta <$17,x
|
|
|
1907 L105B rts
|
|
|
1908 L105C ldu <$0050
|
|
|
1909 ldb <$19,u
|
|
|
1910 cmpb #$01
|
|
|
1911 bls L1069
|
|
|
1912 cmpb #$03
|
|
|
1913 bls L1070
|
|
|
1914 L1069 clra
|
|
|
1915 lda $0C,u
|
|
|
1916 bita #$02
|
|
|
1917 beq L1071
|
|
|
1918 L1070 coma
|
|
|
1919 L1071 rts
|
|
|
1920 L1072 clra
|
|
|
1921 tfr d,x
|
|
|
1922 clrb
|
|
|
1923 lbsr L1210
|
|
|
1924 L1079 pshs cc
|
|
|
1925 ldx <$1E,y
|
|
|
1926 lda $05,y
|
|
|
1927 cmpa <$17,x
|
|
|
1928 bne L1098
|
|
|
1929 clr <$17,x
|
|
|
1930 ldx <$0050
|
|
|
1931 lda <$10,x
|
|
|
1932 beq L1098
|
|
|
1933 lbsr L0C5F
|
|
|
1934 ldx #$0001
|
|
|
1935 os9 F$Sleep
|
|
|
1936 L1098 puls pc,cc
|
|
|
1937 L109A clra
|
|
|
1938 tfr d,x
|
|
|
1939 clrb
|
|
|
1940 lbra L1143
|
|
|
1941 L10A1 ldd $0C,y
|
|
|
1942 subd <$14,y
|
|
|
1943 tfr d,x
|
|
|
1944 ldb $0B,y
|
|
|
1945 sbcb <$13,y
|
|
|
1946 cmpb <$19,y
|
|
|
1947 bcs L10B9
|
|
|
1948 bhi L10BB
|
|
|
1949 cmpx <$1A,y
|
|
|
1950 bcc L10BB
|
|
|
1951 L10B9 clrb
|
|
|
1952 L10BA rts
|
|
|
1953 L10BB pshs u
|
|
|
1954 bsr L112C
|
|
|
1955 bcs L1117
|
|
|
1956 clra
|
|
|
1957 clrb
|
|
|
1958 std <$13,y
|
|
|
1959 stb <$15,y
|
|
|
1960 ldu $08,y
|
|
|
1961 leax <$10,u
|
|
|
1962 lda $08,y
|
|
|
1963 ldb #$FC
|
|
|
1964 pshs b,a
|
|
|
1965 L10D4 ldd $03,x
|
|
|
1966 beq L10F9
|
|
|
1967 addd <$14,y
|
|
|
1968 tfr d,u
|
|
|
1969 ldb <$13,y
|
|
|
1970 adcb #$00
|
|
|
1971 cmpb $0B,y
|
|
|
1972 bhi L1106
|
|
|
1973 bne L10ED
|
|
|
1974 cmpu $0C,y
|
|
|
1975 bhi L1106
|
|
|
1976 L10ED stb <$13,y
|
|
|
1977 stu <$14,y
|
|
|
1978 leax $05,x
|
|
|
1979 cmpx ,s
|
|
|
1980 bcs L10D4
|
|
|
1981 L10F9 clra
|
|
|
1982 clrb
|
|
|
1983 sta <$19,y
|
|
|
1984 std <$1A,y
|
|
|
1985 comb
|
|
|
1986 ldb #$D5
|
|
|
1987 bra L1115
|
|
|
1988 L1106 ldd ,x
|
|
|
1989 std <$16,y
|
|
|
1990 lda $02,x
|
|
|
1991 sta <$18,y
|
|
|
1992 ldd $03,x
|
|
|
1993 std <$1A,y
|
|
|
1994 L1115 leas $02,s
|
|
|
1995 L1117 puls pc,u
|
|
|
1996 L1119 pshs x,b
|
|
|
1997 lbsr L1240
|
|
|
1998 bcs L1128
|
|
|
1999 clrb
|
|
|
2000 ldx #$0000
|
|
|
2001 bsr L1143
|
|
|
2002 bcc L112A
|
|
|
2003 L1128 stb ,s
|
|
|
2004 L112A puls pc,x,b
|
|
|
2005 L112C ldb $0A,y
|
|
|
2006 bitb #$04
|
|
|
2007 bne L10B9
|
|
|
2008 lbsr L1240
|
|
|
2009 bcs L10BA
|
|
|
2010 ldb $0A,y
|
|
|
2011 orb #$04
|
|
|
2012 stb $0A,y
|
|
|
2013 ldb <$34,y
|
|
|
2014 ldx <$35,y
|
|
|
2015 L1143 lda #$03
|
|
|
2016 L1145 pshs u,y,x,b,a
|
|
|
2017 lda $0A,y
|
|
|
2018 ora #$20
|
|
|
2019 sta $0A,y
|
|
|
2020 ldx <$0050
|
|
|
2021 lda $0A,x
|
|
|
2022 tfr a,b
|
|
|
2023 addb #$03
|
|
|
2024 bcc L1159
|
|
|
2025 ldb #$FF
|
|
|
2026 L1159 stb $0A,x
|
|
|
2027 stb $0B,x
|
|
|
2028 ldx <$30,y
|
|
|
2029 sta <$16,x
|
|
|
2030 ldu $03,y
|
|
|
2031 ldu $02,u
|
|
|
2032 bra L116F
|
|
|
2033 L1169 lbsr L0C5F
|
|
|
2034 os9 F$IOQu
|
|
|
2035 L116F lda $04,u
|
|
|
2036 bne L1169
|
|
|
2037 lda $05,y
|
|
|
2038 sta $04,u
|
|
|
2039 ldd ,s
|
|
|
2040 ldx $02,s
|
|
|
2041 pshs u
|
|
|
2042 bsr L11F4
|
|
|
2043 puls u
|
|
|
2044 ldy $04,s
|
|
|
2045 pshs cc
|
|
|
2046 bcc L118A
|
|
|
2047 stb $02,s
|
|
|
2048 L118A lda $0A,y
|
|
|
2049 anda #$DF
|
|
|
2050 sta $0A,y
|
|
|
2051 clr $04,u
|
|
|
2052 ldx <$30,y
|
|
|
2053 lda <$16,x
|
|
|
2054 ldx <$0050
|
|
|
2055 sta $0A,x
|
|
|
2056 lda ,s
|
|
|
2057 bita #$01
|
|
|
2058 bne L11D4
|
|
|
2059 lda $01,s
|
|
|
2060 cmpa #$06
|
|
|
2061 bne L11D4
|
|
|
2062 pshs u,y,x
|
|
|
2063 ldy <$30,y
|
|
|
2064 leau ,y
|
|
|
2065 L11B0 ldx <$05,u
|
|
|
2066 cmpy <$05,u
|
|
|
2067 beq L11D2
|
|
|
2068 leau ,x
|
|
|
2069 lda <$17,u
|
|
|
2070 beq L11B0
|
|
|
2071 ldx <$0050
|
|
|
2072 cmpa <$00,x
|
|
|
2073 beq L11B0
|
|
|
2074 clr <$17,u
|
|
|
2075 ldb <$18,u
|
|
|
2076 os9 F$Send
|
|
|
2077 bra L11B0
|
|
|
2078 L11D2 puls u,y,x
|
|
|
2079 L11D4 lda <$10,x
|
|
|
2080 beq L11F2
|
|
|
2081 lda $01,y
|
|
|
2082 bita #$04
|
|
|
2083 bne L11F2
|
|
|
2084 ldx <$1E,y
|
|
|
2085 lda $05,y
|
|
|
2086 cmpa <$17,x
|
|
|
2087 beq L11F2
|
|
|
2088 lbsr L0C5F
|
|
|
2089 ldx #$0001
|
|
|
2090 os9 F$Sleep
|
|
|
2091 L11F2 puls pc,u,y,x,b,a,cc
|
|
|
2092 L11F4 pshs pc,x,b,a
|
|
|
2093 ldx $03,y
|
|
|
2094 ldd ,x
|
|
|
2095 ldx ,x
|
|
|
2096 addd $09,x
|
|
|
2097 addb ,s
|
|
|
2098 adca #$00
|
|
|
2099 std $04,s
|
|
|
2100 puls pc,x,b,a
|
|
|
2101 L1206 ldb <$34,y
|
|
|
2102 ldx <$35,y
|
|
|
2103 bra L1210
|
|
|
2104 L120E bsr L1229
|
|
|
2105 L1210 lda #$06
|
|
|
2106 pshs x,b,a
|
|
|
2107 ldd <$1C,y
|
|
|
2108 beq L121F
|
|
|
2109 ldx <$1E,y
|
|
|
2110 cmpd $0E,x
|
|
|
2111 L121F puls x,b,a
|
|
|
2112 lbeq L1145
|
|
|
2113 comb
|
|
|
2114 ldb #$FB
|
|
|
2115 rts
|
|
|
2116 L1229 ldd $0C,y
|
|
|
2117 subd <$14,y
|
|
|
2118 tfr d,x
|
|
|
2119 ldb $0B,y
|
|
|
2120 sbcb <$13,y
|
|
|
2121 exg d,x
|
|
|
2122 addd <$17,y
|
|
|
2123 exg d,x
|
|
|
2124 adcb <$16,y
|
|
|
2125 rts
|
|
|
2126 L1240 clrb
|
|
|
2127 pshs u,x
|
|
|
2128 ldb $0A,y
|
|
|
2129 andb #$46
|
|
|
2130 beq L125D
|
|
|
2131 tfr b,a
|
|
|
2132 eorb $0A,y
|
|
|
2133 stb $0A,y
|
|
|
2134 andb #$01
|
|
|
2135 beq L125D
|
|
|
2136 eorb $0A,y
|
|
|
2137 stb $0A,y
|
|
|
2138 bita #$02
|
|
|
2139 beq L125D
|
|
|
2140 bsr L120E
|
|
|
2141 L125D puls pc,u,x
|
|
|
2142 L125F pshs u,x
|
|
|
2143 lbsr L10A1
|
|
|
2144 bcs L12CF
|
|
|
2145 bsr L1240
|
|
|
2146 bcs L12CF
|
|
|
2147 L126A ldb $0B,y
|
|
|
2148 ldu $0C,y
|
|
|
2149 leax ,y
|
|
|
2150 ldy <$30,y
|
|
|
2151 L1274 ldx <$30,x
|
|
|
2152 cmpy $05,x
|
|
|
2153 beq L12BE
|
|
|
2154 ldx $05,x
|
|
|
2155 ldx $01,x
|
|
|
2156 cmpu $0C,x
|
|
|
2157 bne L1274
|
|
|
2158 cmpb $0B,x
|
|
|
2159 bne L1274
|
|
|
2160 lda $0A,x
|
|
|
2161 bita #$02
|
|
|
2162 beq L1274
|
|
|
2163 bita #$20
|
|
|
2164 bne L1297
|
|
|
2165 bita #$40
|
|
|
2166 beq L12A9
|
|
|
2167 L1297 lda $05,x
|
|
|
2168 ldy $01,y
|
|
|
2169 lbsr L0C5F
|
|
|
2170 os9 F$IOQu
|
|
|
2171 lbsr L105C
|
|
|
2172 bcc L126A
|
|
|
2173 bra L12CF
|
|
|
2174 L12A9 ldy $01,y
|
|
|
2175 ldd $08,x
|
|
|
2176 ldu $08,y
|
|
|
2177 std $08,y
|
|
|
2178 stu $08,x
|
|
|
2179 lda $0A,x
|
|
|
2180 ora #$40
|
|
|
2181 sta $0A,y
|
|
|
2182 clr $0A,x
|
|
|
2183 puls pc,u,x
|
|
|
2184 L12BE ldy $01,y
|
|
|
2185 lbsr L1229
|
|
|
2186 lbsr L1143
|
|
|
2187 bcs L12CF
|
|
|
2188 lda $0A,y
|
|
|
2189 ora #$42
|
|
|
2190 sta $0A,y
|
|
|
2191 L12CF puls pc,u,x
|
|
|
2192
|
|
|
2193 emod
|
|
|
2194 eom equ *
|
|
|
2195 end
|
