2400
|
1 nam Suser
|
|
2 ttl program module
|
|
3
|
|
4 * Disassembled 2010/01/24 10:51:32 by Disasm v1.5 (C) 1988 by RML
|
|
5
|
|
6 ifp1
|
|
7 use /dd/defs/defsfile
|
|
8 endc
|
|
9 tylg set Prgrm+Objct
|
|
10 atrv set ReEnt+rev
|
|
11 rev set $01
|
|
12 mod eom,name,tylg,atrv,start,size
|
|
13 u0000 rmb 1
|
|
14 u0001 rmb 1
|
|
15 u0002 rmb 2
|
|
16 u0004 rmb 2
|
|
17 u0006 rmb 2
|
|
18 u0008 rmb 1
|
|
19 u0009 rmb 1
|
|
20 u000A rmb 1
|
|
21 u000B rmb 2
|
|
22 u000D rmb 4
|
|
23 u0011 rmb 15
|
|
24 u0020 rmb 20
|
|
25 u0034 rmb 31
|
|
26 u0053 rmb 17
|
|
27 u0064 rmb 132
|
|
28 u00E8 rmb 119
|
|
29 u015F rmb 2
|
|
30 u0161 rmb 58
|
|
31 u019B rmb 1
|
|
32 u019C rmb 3
|
|
33 u019F rmb 940
|
|
34 size equ .
|
|
35 name equ *
|
|
36 fcs /Suser/
|
|
37 fcb $01
|
|
38 L0013 fcb $A6 &
|
|
39 fcb $A0
|
|
40 fcb $A7 '
|
|
41 fcb $C0 @
|
|
42 fcb $30 0
|
|
43 fcb $1F
|
|
44 fcb $26 &
|
|
45 fcb $F8 x
|
|
46 fcb $39 9
|
|
47 start equ *
|
|
48 pshs y
|
|
49 pshs u
|
|
50 clra
|
|
51 clrb
|
|
52 L0022 sta ,u+
|
|
53 decb
|
|
54 bne L0022
|
|
55 ldx ,s
|
|
56 leau ,x
|
|
57 leax >$01CB,x
|
|
58 pshs x
|
|
59 leay >L0F36,pcr
|
|
60 ldx ,y++
|
|
61 beq L003D
|
|
62 bsr L0013
|
|
63 ldu $02,s
|
|
64 L003D leau >u0001,u
|
|
65 ldx ,y++
|
|
66 beq L0048
|
|
67 bsr L0013
|
|
68 clra
|
|
69 L0048 cmpu ,s
|
|
70 beq L0051
|
|
71 sta ,u+
|
|
72 bra L0048
|
|
73 L0051 ldu $02,s
|
|
74 ldd ,y++
|
|
75 beq L005E
|
|
76 leax >L0000,pcr
|
|
77 lbsr L0161
|
|
78 L005E ldd ,y++
|
|
79 beq L0067
|
|
80 leax ,u
|
|
81 lbsr L0161
|
|
82 L0067 leas $04,s
|
|
83 puls x
|
|
84 stx >u019F,u
|
|
85 sty >u015F,u
|
|
86 ldd #$0001
|
|
87 std >u019B,u
|
|
88 leay >u0161,u
|
|
89 leax ,s
|
|
90 lda ,x+
|
|
91 L0083 ldb >u019C,u
|
|
92 cmpb #$1D
|
|
93 beq L00DF
|
|
94 L008B cmpa #$0D
|
|
95 beq L00DF
|
|
96 cmpa #$20
|
|
97 beq L0097
|
|
98 cmpa #$2C
|
|
99 bne L009B
|
|
100 L0097 lda ,x+
|
|
101 bra L008B
|
|
102 L009B cmpa #$22
|
|
103 beq L00A3
|
|
104 cmpa #$27
|
|
105 bne L00C1
|
|
106 L00A3 stx ,y++
|
|
107 inc >u019C,u
|
|
108 pshs a
|
|
109 L00AB lda ,x+
|
|
110 cmpa #$0D
|
|
111 beq L00B5
|
|
112 cmpa ,s
|
|
113 bne L00AB
|
|
114 L00B5 puls b
|
|
115 clr -$01,x
|
|
116 cmpa #$0D
|
|
117 beq L00DF
|
|
118 lda ,x+
|
|
119 bra L0083
|
|
120 L00C1 leax -$01,x
|
|
121 stx ,y++
|
|
122 leax $01,x
|
|
123 inc >u019C,u
|
|
124 L00CB cmpa #$0D
|
|
125 beq L00DB
|
|
126 cmpa #$20
|
|
127 beq L00DB
|
|
128 cmpa #$2C
|
|
129 beq L00DB
|
|
130 lda ,x+
|
|
131 bra L00CB
|
|
132 L00DB clr -$01,x
|
|
133 bra L0083
|
|
134 L00DF leax >u015F,u
|
|
135 pshs x
|
|
136 ldd >u019B,u
|
|
137 pshs b,a
|
|
138 leay ,u
|
|
139 bsr L00F9
|
|
140 lbsr L017B
|
|
141 clr ,-s
|
|
142 clr ,-s
|
|
143 lbsr L0F2A
|
|
144 L00F9 leax >$01CB,y
|
|
145 stx >$01A9,y
|
|
146 sts >$019D,y
|
|
147 sts >$01AB,y
|
|
148 ldd #$FF82
|
|
149 L010E leax d,s
|
|
150 cmpx >$01AB,y
|
|
151 bcc L0120
|
|
152 cmpx >$01A9,y
|
|
153 bcs L013A
|
|
154 stx >$01AB,y
|
|
155 L0120 rts
|
|
156 L0121 bpl L014D
|
|
157 bpl L014F
|
|
158 bra L017A
|
|
159 lsrb
|
|
160 fcb $41 A
|
|
161 coma
|
|
162 fcb $4B K
|
|
163 bra L017C
|
|
164 rorb
|
|
165 fcb $45 E
|
|
166 fcb $52 R
|
|
167 rora
|
|
168 inca
|
|
169 clra
|
|
170 asrb
|
|
171 bra L0160
|
|
172 bpl L0162
|
|
173 bpl L0147
|
|
174 L013A leax <L0121,pcr
|
|
175 ldb #$CF
|
|
176 pshs b
|
|
177 lda #$02
|
|
178 ldy #$0064
|
|
179 L0147 os9 I$WritLn
|
|
180 clr ,-s
|
|
181 lbsr L0F30
|
|
182 L014F ldd >$019D,y
|
|
183 subd >$01AB,y
|
|
184 rts
|
|
185 ldd >$01AB,y
|
|
186 subd >$01A9,y
|
|
187 L0160 rts
|
|
188 L0161 pshs x
|
|
189 leax d,y
|
|
190 leax d,x
|
|
191 pshs x
|
|
192 L0169 ldd ,y++
|
|
193 leax d,u
|
|
194 ldd ,x
|
|
195 addd $02,s
|
|
196 std ,x
|
|
197 cmpy ,s
|
|
198 bne L0169
|
|
199 leas $04,s
|
|
200 L017A rts
|
|
201 L017B pshs u
|
|
202 ldd #$FEE4
|
|
203 lbsr L010E
|
|
204 leas >-$00CC,s
|
|
205 clra
|
|
206 clrb
|
|
207 stb ,s
|
|
208 ldd >$00D0,s
|
|
209 cmpd #$0001
|
|
210 bne L01A4
|
|
211 clra
|
|
212 clrb
|
|
213 pshs b,a
|
|
214 leax >L0274,pcr
|
|
215 pshs x
|
|
216 lbsr L0252
|
|
217 leas $04,s
|
|
218 L01A4 ldx >$00D2,s
|
|
219 ldd $02,x
|
|
220 pshs b,a
|
|
221 lbsr L0B4F
|
|
222 leas $02,s
|
|
223 std >$00CA,s
|
|
224 pshs b,a
|
|
225 lbsr L0EF8
|
|
226 leas $02,s
|
|
227 cmpd #$FFFF
|
|
228 bne L01D3
|
|
229 ldd >$01AD,y
|
|
230 pshs b,a
|
|
231 leax >L0298,pcr
|
|
232 pshs x
|
|
233 lbsr L0252
|
|
234 leas $04,s
|
|
235 L01D3 ldd #$0002
|
|
236 bra L0207
|
|
237 L01D8 ldd >$00C8,s
|
|
238 lslb
|
|
239 rola
|
|
240 ldx >$00D2,s
|
|
241 leax d,x
|
|
242 ldd ,x
|
|
243 pshs b,a
|
|
244 leax $02,s
|
|
245 pshs x
|
|
246 lbsr L0AF1
|
|
247 leas $04,s
|
|
248 leax >L02C1,pcr
|
|
249 pshs x
|
|
250 leax $02,s
|
|
251 pshs x
|
|
252 lbsr L0AF1
|
|
253 leas $04,s
|
|
254 ldd >$00C8,s
|
|
255 addd #$0001
|
|
256 L0207 std >$00C8,s
|
|
257 ldd >$00C8,s
|
|
258 cmpd >$00D0,s
|
|
259 blt L01D8
|
|
260 leax >L02C3,pcr
|
|
261 pshs x
|
|
262 leax $02,s
|
|
263 pshs x
|
|
264 lbsr L0AF1
|
|
265 leas $04,s
|
|
266 ldd #$0003
|
|
267 pshs b,a
|
|
268 ldd #$0001
|
|
269 pshs b,a
|
|
270 ldd #$0010
|
|
271 pshs b,a
|
|
272 leax $06,s
|
|
273 pshs x
|
|
274 leax $08,s
|
|
275 pshs x
|
|
276 lbsr L0AC8
|
|
277 std ,s
|
|
278 leax >L02C5,pcr
|
|
279 pshs x
|
|
280 lbsr L0E9D
|
|
281 leas $0C,s
|
|
282 leas >$00CC,s
|
|
283 puls pc,u
|
|
284 L0252 pshs u
|
|
285 ldd #$FFB8
|
|
286 lbsr L010E
|
|
287 ldd $04,s
|
|
288 pshs b,a
|
|
289 leax >L02CC,pcr
|
|
290 pshs x
|
|
291 lbsr L02D0
|
|
292 leas $04,s
|
|
293 ldd $06,s
|
|
294 pshs b,a
|
|
295 lbsr L0F2A
|
|
296 leas $02,s
|
|
297 puls pc,u
|
|
298 L0274 fcb $55 U
|
|
299 com >$6167
|
|
300 eim #$20,$09,s
|
|
301 com >$3A20
|
|
302 comb
|
|
303 eim #$73,>$6572
|
|
304 bra L02C1
|
|
305 jmp -$0B,s
|
|
306 tst $02,s
|
|
307 eim #$72,-$02,y
|
|
308 bra L02E9
|
|
309 neg >$726F
|
|
310 asr $0E,s
|
|
311 oim #$6D,$05,s
|
|
312 tstb
|
|
313 neg <u0053
|
|
314 clr -$0E,s
|
|
315 aim #$79,>$2C20
|
|
316 rol >$6F75
|
|
317 bra L0307
|
|
318 oim #$6E,$0E,s
|
|
319 clr -$0C,s
|
|
320 bra L030E
|
|
321 lsl $01,s
|
|
322 jmp $07,s
|
|
323 eim #$20,-$0C,s
|
|
324 lsl $05,s
|
|
325 bra L032B
|
|
326 com >$6572
|
|
327 bra L0329
|
|
328 eim #$6D,>$6265
|
|
329 aim #$00,>$2000
|
|
330 L02C3 tst <u0000
|
|
331 L02C5 comb
|
|
332 lsl $05,s
|
|
333 inc $0C,s
|
|
334 tst <u0000
|
|
335 L02CC bcs L0341
|
|
336 tst <u0000
|
|
337 L02D0 pshs u
|
|
338 leax >$001B,y
|
|
339 stx >$01AF,y
|
|
340 leax $06,s
|
|
341 pshs x
|
|
342 ldd $06,s
|
|
343 bra L02F0
|
|
344 pshs u
|
|
345 ldd $04,s
|
|
346 std >$01AF,y
|
|
347 leax $08,s
|
|
348 pshs x
|
|
349 ldd $08,s
|
|
350 L02F0 pshs b,a
|
|
351 leax >L07A8,pcr
|
|
352 pshs x
|
|
353 bsr L0322
|
|
354 leas $06,s
|
|
355 puls pc,u
|
|
356 pshs u
|
|
357 ldd $04,s
|
|
358 std >$01AF,y
|
|
359 leax $08,s
|
|
360 pshs x
|
|
361 ldd $08,s
|
|
362 pshs b,a
|
|
363 L030E leax >L07BB,pcr
|
|
364 pshs x
|
|
365 bsr L0322
|
|
366 leas $06,s
|
|
367 clra
|
|
368 clrb
|
|
369 stb [>$01AF,y]
|
|
370 ldd $04,s
|
|
371 puls pc,u
|
|
372 L0322 pshs u
|
|
373 ldu $06,s
|
|
374 leas -$0B,s
|
|
375 bra L033A
|
|
376 L032A ldb $08,s
|
|
377 lbeq L056B
|
|
378 ldb $08,s
|
|
379 sex
|
|
380 pshs b,a
|
|
381 jsr [<$11,s]
|
|
382 leas $02,s
|
|
383 L033A ldb ,u+
|
|
384 stb $08,s
|
|
385 cmpb #$25
|
|
386 bne L032A
|
|
387 ldb ,u+
|
|
388 stb $08,s
|
|
389 clra
|
|
390 clrb
|
|
391 std $02,s
|
|
392 std $06,s
|
|
393 ldb $08,s
|
|
394 cmpb #$2D
|
|
395 bne L035F
|
|
396 ldd #$0001
|
|
397 std >$01C5,y
|
|
398 ldb ,u+
|
|
399 stb $08,s
|
|
400 bra L0365
|
|
401 L035F clra
|
|
402 clrb
|
|
403 std >$01C5,y
|
|
404 L0365 ldb $08,s
|
|
405 cmpb #$30
|
|
406 bne L0370
|
|
407 ldd #$0030
|
|
408 bra L0373
|
|
409 L0370 ldd #$0020
|
|
410 L0373 std >$01C7,y
|
|
411 bra L0393
|
|
412 L0379 ldd $06,s
|
|
413 pshs b,a
|
|
414 ldd #$000A
|
|
415 lbsr L0BC2
|
|
416 pshs b,a
|
|
417 ldb $0A,s
|
|
418 sex
|
|
419 addd #$FFD0
|
|
420 addd ,s++
|
|
421 std $06,s
|
|
422 ldb ,u+
|
|
423 stb $08,s
|
|
424 L0393 ldb $08,s
|
|
425 sex
|
|
426 leax >$00DF,y
|
|
427 leax d,x
|
|
428 ldb ,x
|
|
429 clra
|
|
430 andb #$08
|
|
431 bne L0379
|
|
432 ldb $08,s
|
|
433 cmpb #$2E
|
|
434 bne L03DC
|
|
435 ldd #$0001
|
|
436 std $04,s
|
|
437 bra L03C6
|
|
438 L03B0 ldd $02,s
|
|
439 pshs b,a
|
|
440 ldd #$000A
|
|
441 lbsr L0BC2
|
|
442 pshs b,a
|
|
443 ldb $0A,s
|
|
444 sex
|
|
445 addd #$FFD0
|
|
446 addd ,s++
|
|
447 std $02,s
|
|
448 L03C6 ldb ,u+
|
|
449 stb $08,s
|
|
450 ldb $08,s
|
|
451 sex
|
|
452 leax >$00DF,y
|
|
453 leax d,x
|
|
454 ldb ,x
|
|
455 clra
|
|
456 andb #$08
|
|
457 bne L03B0
|
|
458 bra L03E0
|
|
459 L03DC clra
|
|
460 clrb
|
|
461 std $04,s
|
|
462 L03E0 ldb $08,s
|
|
463 sex
|
|
464 tfr d,x
|
|
465 lbra L050E
|
|
466 L03E8 ldd $06,s
|
|
467 pshs b,a
|
|
468 ldx <$15,s
|
|
469 leax $02,x
|
|
470 stx <$15,s
|
|
471 ldd -$02,x
|
|
472 pshs b,a
|
|
473 lbsr L056F
|
|
474 bra L0410
|
|
475 L03FD ldd $06,s
|
|
476 pshs b,a
|
|
477 ldx <$15,s
|
|
478 leax $02,x
|
|
479 stx <$15,s
|
|
480 ldd -$02,x
|
|
481 pshs b,a
|
|
482 lbsr L062C
|
|
483 L0410 std ,s
|
|
484 lbra L04F4
|
|
485 L0415 ldd $06,s
|
|
486 pshs b,a
|
|
487 ldb $0A,s
|
|
488 sex
|
|
489 leax >$00DF,y
|
|
490 leax d,x
|
|
491 ldb ,x
|
|
492 clra
|
|
493 andb #$02
|
|
494 pshs b,a
|
|
495 ldx <$17,s
|
|
496 leax $02,x
|
|
497 stx <$17,s
|
|
498 ldd -$02,x
|
|
499 pshs b,a
|
|
500 lbsr L0674
|
|
501 lbra L04F0
|
|
502 L043B ldd $06,s
|
|
503 pshs b,a
|
|
504 ldx <$15,s
|
|
505 leax $02,x
|
|
506 stx <$15,s
|
|
507 ldd -$02,x
|
|
508 pshs b,a
|
|
509 leax >$01B1,y
|
|
510 pshs x
|
|
511 lbsr L05B3
|
|
512 lbra L04F0
|
|
513 L0457 ldd $04,s
|
|
514 bne L0460
|
|
515 ldd #$0006
|
|
516 std $02,s
|
|
517 L0460 ldd $06,s
|
|
518 pshs b,a
|
|
519 leax <$15,s
|
|
520 pshs x
|
|
521 ldd $06,s
|
|
522 pshs b,a
|
|
523 ldb $0E,s
|
|
524 sex
|
|
525 pshs b,a
|
|
526 lbsr L0ABD
|
|
527 leas $06,s
|
|
528 lbra L04F2
|
|
529 L047A ldx <$13,s
|
|
530 leax $02,x
|
|
531 stx <$13,s
|
|
532 ldd -$02,x
|
|
533 lbra L0504
|
|
534 L0487 ldx <$13,s
|
|
535 leax $02,x
|
|
536 stx <$13,s
|
|
537 ldd -$02,x
|
|
538 std $09,s
|
|
539 ldd $04,s
|
|
540 beq L04CF
|
|
541 ldd $09,s
|
|
542 std $04,s
|
|
543 bra L04A9
|
|
544 L049D ldb [<$09,s]
|
|
545 beq L04B5
|
|
546 ldd $09,s
|
|
547 addd #$0001
|
|
548 std $09,s
|
|
549 L04A9 ldd $02,s
|
|
550 addd #$FFFF
|
|
551 std $02,s
|
|
552 subd #$FFFF
|
|
553 bne L049D
|
|
554 L04B5 ldd $06,s
|
|
555 pshs b,a
|
|
556 ldd $0B,s
|
|
557 subd $06,s
|
|
558 pshs b,a
|
|
559 ldd $08,s
|
|
560 pshs b,a
|
|
561 ldd <$15,s
|
|
562 pshs b,a
|
|
563 lbsr L06DF
|
|
564 leas $08,s
|
|
565 bra L04FE
|
|
566 L04CF ldd $06,s
|
|
567 pshs b,a
|
|
568 ldd $0B,s
|
|
569 bra L04F2
|
|
570 L04D7 ldb ,u+
|
|
571 stb $08,s
|
|
572 bra L04DF
|
|
573 leas -$0B,x
|
|
574 L04DF ldd $06,s
|
|
575 pshs b,a
|
|
576 leax <$15,s
|
|
577 pshs x
|
|
578 ldb $0C,s
|
|
579 sex
|
|
580 pshs b,a
|
|
581 lbsr L0A7F
|
|
582 L04F0 leas $04,s
|
|
583 L04F2 pshs b,a
|
|
584 L04F4 ldd <$13,s
|
|
585 pshs b,a
|
|
586 lbsr L0741
|
|
587 leas $06,s
|
|
588 L04FE lbra L033A
|
|
589 L0501 ldb $08,s
|
|
590 sex
|
|
591 L0504 pshs b,a
|
|
592 jsr [<$11,s]
|
|
593 leas $02,s
|
|
594 lbra L033A
|
|
595 L050E cmpx #$0064
|
|
596 lbeq L03E8
|
|
597 cmpx #$006F
|
|
598 lbeq L03FD
|
|
599 cmpx #$0078
|
|
600 lbeq L0415
|
|
601 cmpx #$0058
|
|
602 lbeq L0415
|
|
603 cmpx #$0075
|
|
604 lbeq L043B
|
|
605 cmpx #$0066
|
|
606 lbeq L0457
|
|
607 cmpx #$0065
|
|
608 lbeq L0457
|
|
609 cmpx #$0067
|
|
610 lbeq L0457
|
|
611 cmpx #$0045
|
|
612 lbeq L0457
|
|
613 cmpx #$0047
|
|
614 lbeq L0457
|
|
615 cmpx #$0063
|
|
616 lbeq L047A
|
|
617 cmpx #$0073
|
|
618 lbeq L0487
|
|
619 cmpx #$006C
|
|
620 lbeq L04D7
|
|
621 bra L0501
|
|
622 L056B leas $0B,s
|
|
623 puls pc,u
|
|
624 L056F pshs u,b,a
|
|
625 leax >$01B1,y
|
|
626 stx ,s
|
|
627 ldd $06,s
|
|
628 bge L05A4
|
|
629 ldd $06,s
|
|
630 nega
|
|
631 negb
|
|
632 sbca #$00
|
|
633 std $06,s
|
|
634 bge L0599
|
|
635 leax >L07CD,pcr
|
|
636 pshs x
|
|
637 leax >$01B1,y
|
|
638 pshs x
|
|
639 lbsr L0AD9
|
|
640 leas $04,s
|
|
641 lbra L0670
|
|
642 L0599 ldd #$002D
|
|
643 ldx ,s
|
|
644 leax $01,x
|
|
645 stx ,s
|
|
646 stb -$01,x
|
|
647 L05A4 ldd $06,s
|
|
648 pshs b,a
|
|
649 ldd $02,s
|
|
650 pshs b,a
|
|
651 bsr L05B3
|
|
652 leas $04,s
|
|
653 lbra L066A
|
|
654 L05B3 pshs u,y,x,b,a
|
|
655 ldu $0A,s
|
|
656 clra
|
|
657 clrb
|
|
658 std $02,s
|
|
659 clra
|
|
660 clrb
|
|
661 std ,s
|
|
662 bra L05D0
|
|
663 L05C1 ldd ,s
|
|
664 addd #$0001
|
|
665 std ,s
|
|
666 ldd $0C,s
|
|
667 subd >$0001,y
|
|
668 std $0C,s
|
|
669 L05D0 ldd $0C,s
|
|
670 blt L05C1
|
|
671 leax >$0001,y
|
|
672 stx $04,s
|
|
673 bra L0612
|
|
674 L05DC ldd ,s
|
|
675 addd #$0001
|
|
676 std ,s
|
|
677 L05E3 ldd $0C,s
|
|
678 subd [<$04,s]
|
|
679 std $0C,s
|
|
680 bge L05DC
|
|
681 ldd $0C,s
|
|
682 addd [<$04,s]
|
|
683 std $0C,s
|
|
684 ldd ,s
|
|
685 beq L05FC
|
|
686 ldd #$0001
|
|
687 std $02,s
|
|
688 L05FC ldd $02,s
|
|
689 beq L0607
|
|
690 ldd ,s
|
|
691 addd #$0030
|
|
692 stb ,u+
|
|
693 L0607 clra
|
|
694 clrb
|
|
695 std ,s
|
|
696 ldd $04,s
|
|
697 addd #$0002
|
|
698 std $04,s
|
|
699 L0612 ldd $04,s
|
|
700 cmpd >$0009,y
|
|
701 bne L05E3
|
|
702 ldd $0C,s
|
|
703 addd #$0030
|
|
704 stb ,u+
|
|
705 clra
|
|
706 clrb
|
|
707 stb ,u
|
|
708 ldd $0A,s
|
|
709 leas $06,s
|
|
710 puls pc,u
|
|
711 L062C pshs u,b,a
|
|
712 leax >$01B1,y
|
|
713 stx ,s
|
|
714 leau >$01BB,y
|
|
715 L0638 ldd $06,s
|
|
716 clra
|
|
717 andb #$07
|
|
718 addd #$0030
|
|
719 stb ,u+
|
|
720 ldd $06,s
|
|
721 lsra
|
|
722 rorb
|
|
723 lsra
|
|
724 rorb
|
|
725 lsra
|
|
726 rorb
|
|
727 std $06,s
|
|
728 bne L0638
|
|
729 bra L065A
|
|
730 L0650 ldb ,u
|
|
731 ldx ,s
|
|
732 leax $01,x
|
|
733 stx ,s
|
|
734 stb -$01,x
|
|
735 L065A leau -u0001,u
|
|
736 pshs u
|
|
737 leax >$01BB,y
|
|
738 cmpx ,s++
|
|
739 bls L0650
|
|
740 clra
|
|
741 clrb
|
|
742 stb [,s]
|
|
743 L066A leax >$01B1,y
|
|
744 tfr x,d
|
|
745 L0670 leas $02,s
|
|
746 puls pc,u
|
|
747 L0674 pshs u,x,b,a
|
|
748 leax >$01B1,y
|
|
749 stx $02,s
|
|
750 leau >$01BB,y
|
|
751 L0680 ldd $08,s
|
|
752 clra
|
|
753 andb #$0F
|
|
754 std ,s
|
|
755 pshs b,a
|
|
756 ldd $02,s
|
|
757 cmpd #$0009
|
|
758 ble L06A2
|
|
759 ldd $0C,s
|
|
760 beq L069A
|
|
761 ldd #$0041
|
|
762 bra L069D
|
|
763 L069A ldd #$0061
|
|
764 L069D addd #$FFF6
|
|
765 bra L06A5
|
|
766 L06A2 ldd #$0030
|
|
767 L06A5 addd ,s++
|
|
768 stb ,u+
|
|
769 ldd $08,s
|
|
770 lsra
|
|
771 rorb
|
|
772 lsra
|
|
773 rorb
|
|
774 lsra
|
|
775 rorb
|
|
776 lsra
|
|
777 rorb
|
|
778 anda #$0F
|
|
779 std $08,s
|
|
780 bne L0680
|
|
781 bra L06C5
|
|
782 L06BB ldb ,u
|
|
783 ldx $02,s
|
|
784 leax $01,x
|
|
785 stx $02,s
|
|
786 stb -$01,x
|
|
787 L06C5 leau -u0001,u
|
|
788 pshs u
|
|
789 leax >$01BB,y
|
|
790 cmpx ,s++
|
|
791 bls L06BB
|
|
792 clra
|
|
793 clrb
|
|
794 stb [<$02,s]
|
|
795 leax >$01B1,y
|
|
796 tfr x,d
|
|
797 lbra L07B7
|
|
798 L06DF pshs u
|
|
799 ldu $06,s
|
|
800 ldd $0A,s
|
|
801 subd $08,s
|
|
802 std $0A,s
|
|
803 ldd >$01C5,y
|
|
804 bne L0714
|
|
805 bra L06FC
|
|
806 L06F1 ldd >$01C7,y
|
|
807 pshs b,a
|
|
808 jsr [<$06,s]
|
|
809 leas $02,s
|
|
810 L06FC ldd $0A,s
|
|
811 addd #$FFFF
|
|
812 std $0A,s
|
|
813 subd #$FFFF
|
|
814 bgt L06F1
|
|
815 bra L0714
|
|
816 L070A ldb ,u+
|
|
817 sex
|
|
818 pshs b,a
|
|
819 jsr [<$06,s]
|
|
820 leas $02,s
|
|
821 L0714 ldd $08,s
|
|
822 addd #$FFFF
|
|
823 std $08,s
|
|
824 subd #$FFFF
|
|
825 bne L070A
|
|
826 ldd >$01C5,y
|
|
827 beq L073F
|
|
828 bra L0733
|
|
829 L0728 ldd >$01C7,y
|
|
830 pshs b,a
|
|
831 jsr [<$06,s]
|
|
832 leas $02,s
|
|
833 L0733 ldd $0A,s
|
|
834 addd #$FFFF
|
|
835 std $0A,s
|
|
836 subd #$FFFF
|
|
837 bgt L0728
|
|
838 L073F puls pc,u
|
|
839 L0741 pshs u
|
|
840 ldu $06,s
|
|
841 ldd $08,s
|
|
842 pshs b,a
|
|
843 pshs u
|
|
844 lbsr L0AC8
|
|
845 leas $02,s
|
|
846 nega
|
|
847 negb
|
|
848 sbca #$00
|
|
849 addd ,s++
|
|
850 std $08,s
|
|
851 ldd >$01C5,y
|
|
852 bne L0783
|
|
853 bra L076B
|
|
854 L0760 ldd >$01C7,y
|
|
855 pshs b,a
|
|
856 jsr [<$06,s]
|
|
857 leas $02,s
|
|
858 L076B ldd $08,s
|
|
859 addd #$FFFF
|
|
860 std $08,s
|
|
861 subd #$FFFF
|
|
862 bgt L0760
|
|
863 bra L0783
|
|
864 L0779 ldb ,u+
|
|
865 sex
|
|
866 pshs b,a
|
|
867 jsr [<$06,s]
|
|
868 leas $02,s
|
|
869 L0783 ldb ,u
|
|
870 bne L0779
|
|
871 ldd >$01C5,y
|
|
872 beq L07A6
|
|
873 bra L079A
|
|
874 L078F ldd >$01C7,y
|
|
875 pshs b,a
|
|
876 jsr [<$06,s]
|
|
877 leas $02,s
|
|
878 L079A ldd $08,s
|
|
879 addd #$FFFF
|
|
880 std $08,s
|
|
881 subd #$FFFF
|
|
882 bgt L078F
|
|
883 L07A6 puls pc,u
|
|
884 L07A8 pshs u
|
|
885 ldd >$01AF,y
|
|
886 pshs b,a
|
|
887 ldd $06,s
|
|
888 pshs b,a
|
|
889 lbsr L07D4
|
|
890 L07B7 leas $04,s
|
|
891 puls pc,u
|
|
892 L07BB pshs u
|
|
893 ldd $04,s
|
|
894 ldx >$01AF,y
|
|
895 leax $01,x
|
|
896 stx >$01AF,y
|
|
897 stb -$01,x
|
|
898 puls pc,u
|
|
899 L07CD blt L0802
|
|
900 leas -$09,y
|
|
901 pshu y,x,dp
|
|
902 neg <u0034
|
|
903 nega
|
|
904 ldu $06,s
|
|
905 ldd u0006,u
|
|
906 anda #$80
|
|
907 andb #$22
|
|
908 cmpd #$8002
|
|
909 beq L07F8
|
|
910 ldd u0006,u
|
|
911 clra
|
|
912 andb #$22
|
|
913 cmpd #$0002
|
|
914 lbne L0910
|
|
915 pshs u
|
|
916 lbsr L09EF
|
|
917 leas $02,s
|
|
918 L07F8 ldd u0006,u
|
|
919 clra
|
|
920 andb #$04
|
|
921 beq L0834
|
|
922 ldd #$0001
|
|
923 L0802 pshs b,a
|
|
924 leax $07,s
|
|
925 pshs x
|
|
926 ldd u0008,u
|
|
927 pshs b,a
|
|
928 ldd u0006,u
|
|
929 clra
|
|
930 andb #$40
|
|
931 beq L0819
|
|
932 leax >L0D79,pcr
|
|
933 bra L081D
|
|
934 L0819 leax >L0D60,pcr
|
|
935 L081D tfr x,d
|
|
936 tfr d,x
|
|
937 jsr ,x
|
|
938 leas $06,s
|
|
939 cmpd #$FFFF
|
|
940 bne L0875
|
|
941 ldd u0006,u
|
|
942 orb #$20
|
|
943 std u0006,u
|
|
944 lbra L0910
|
|
945 L0834 ldd u0006,u
|
|
946 anda #$01
|
|
947 clrb
|
|
948 std -$02,s
|
|
949 bne L0844
|
|
950 pshs u
|
|
951 lbsr L092D
|
|
952 leas $02,s
|
|
953 L0844 ldd ,u
|
|
954 addd #$0001
|
|
955 std ,u
|
|
956 subd #$0001
|
|
957 tfr d,x
|
|
958 ldd $04,s
|
|
959 stb ,x
|
|
960 ldd ,u
|
|
961 cmpd u0004,u
|
|
962 bcc L086A
|
|
963 ldd u0006,u
|
|
964 clra
|
|
965 andb #$40
|
|
966 beq L0875
|
|
967 ldd $04,s
|
|
968 cmpd #$000D
|
|
969 bne L0875
|
|
970 L086A pshs u
|
|
971 lbsr L092D
|
|
972 std ,s++
|
|
973 lbne L0910
|
|
974 L0875 ldd $04,s
|
|
975 puls pc,u
|
|
976 pshs u
|
|
977 ldu $04,s
|
|
978 ldd $06,s
|
|
979 pshs b,a
|
|
980 pshs u
|
|
981 ldd #$0008
|
|
982 lbsr L0C21
|
|
983 pshs b,a
|
|
984 lbsr L07D4
|
|
985 leas $04,s
|
|
986 ldd $06,s
|
|
987 pshs b,a
|
|
988 pshs u
|
|
989 lbsr L07D4
|
|
990 lbra L09E7
|
|
991 L089C pshs u,b,a
|
|
992 leau >$000E,y
|
|
993 clra
|
|
994 clrb
|
|
995 std ,s
|
|
996 bra L08B2
|
|
997 L08A8 tfr u,d
|
|
998 leau u000D,u
|
|
999 pshs b,a
|
|
1000 bsr L08C5
|
|
1001 leas $02,s
|
|
1002 L08B2 ldd ,s
|
|
1003 addd #$0001
|
|
1004 std ,s
|
|
1005 subd #$0001
|
|
1006 cmpd #$0010
|
|
1007 blt L08A8
|
|
1008 lbra L0929
|
|
1009 L08C5 pshs u
|
|
1010 ldu $04,s
|
|
1011 leas -$02,s
|
|
1012 cmpu #$0000
|
|
1013 beq L08D5
|
|
1014 ldd u0006,u
|
|
1015 bne L08DB
|
|
1016 L08D5 ldd #$FFFF
|
|
1017 lbra L0929
|
|
1018 L08DB ldd u0006,u
|
|
1019 clra
|
|
1020 andb #$02
|
|
1021 beq L08EA
|
|
1022 pshs u
|
|
1023 bsr L08FF
|
|
1024 leas $02,s
|
|
1025 bra L08EC
|
|
1026 L08EA clra
|
|
1027 clrb
|
|
1028 L08EC std ,s
|
|
1029 ldd u0008,u
|
|
1030 pshs b,a
|
|
1031 lbsr L0CC2
|
|
1032 leas $02,s
|
|
1033 clra
|
|
1034 clrb
|
|
1035 std u0006,u
|
|
1036 ldd ,s
|
|
1037 bra L0929
|
|
1038 L08FF pshs u
|
|
1039 ldu $04,s
|
|
1040 beq L0910
|
|
1041 ldd u0006,u
|
|
1042 clra
|
|
1043 andb #$22
|
|
1044 cmpd #$0002
|
|
1045 beq L0915
|
|
1046 L0910 ldd #$FFFF
|
|
1047 puls pc,u
|
|
1048 L0915 ldd u0006,u
|
|
1049 anda #$80
|
|
1050 clrb
|
|
1051 std -$02,s
|
|
1052 bne L0925
|
|
1053 pshs u
|
|
1054 lbsr L09EF
|
|
1055 leas $02,s
|
|
1056 L0925 pshs u
|
|
1057 bsr L092D
|
|
1058 L0929 leas $02,s
|
|
1059 puls pc,u
|
|
1060 L092D pshs u
|
|
1061 ldu $04,s
|
|
1062 leas -$04,s
|
|
1063 ldd u0006,u
|
|
1064 anda #$01
|
|
1065 clrb
|
|
1066 std -$02,s
|
|
1067 bne L095F
|
|
1068 ldd ,u
|
|
1069 cmpd u0004,u
|
|
1070 beq L095F
|
|
1071 clra
|
|
1072 clrb
|
|
1073 pshs b,a
|
|
1074 pshs u
|
|
1075 lbsr L09EB
|
|
1076 leas $02,s
|
|
1077 ldd $02,x
|
|
1078 pshs b,a
|
|
1079 ldd ,x
|
|
1080 pshs b,a
|
|
1081 ldd u0008,u
|
|
1082 pshs b,a
|
|
1083 lbsr L0D89
|
|
1084 leas $08,s
|
|
1085 L095F ldd ,u
|
|
1086 subd u0002,u
|
|
1087 std $02,s
|
|
1088 lbeq L09D7
|
|
1089 ldd u0006,u
|
|
1090 anda #$01
|
|
1091 clrb
|
|
1092 std -$02,s
|
|
1093 lbeq L09D7
|
|
1094 ldd u0006,u
|
|
1095 clra
|
|
1096 andb #$40
|
|
1097 beq L09AE
|
|
1098 ldd u0002,u
|
|
1099 bra L09A6
|
|
1100 L097F ldd $02,s
|
|
1101 pshs b,a
|
|
1102 ldd ,u
|
|
1103 pshs b,a
|
|
1104 ldd u0008,u
|
|
1105 pshs b,a
|
|
1106 lbsr L0D79
|
|
1107 leas $06,s
|
|
1108 std ,s
|
|
1109 cmpd #$FFFF
|
|
1110 bne L099C
|
|
1111 leax $04,s
|
|
1112 bra L09C6
|
|
1113 L099C ldd $02,s
|
|
1114 subd ,s
|
|
1115 std $02,s
|
|
1116 ldd ,u
|
|
1117 addd ,s
|
|
1118 L09A6 std ,u
|
|
1119 ldd $02,s
|
|
1120 bne L097F
|
|
1121 bra L09D7
|
|
1122 L09AE ldd $02,s
|
|
1123 pshs b,a
|
|
1124 ldd u0002,u
|
|
1125 pshs b,a
|
|
1126 ldd u0008,u
|
|
1127 pshs b,a
|
|
1128 lbsr L0D60
|
|
1129 leas $06,s
|
|
1130 cmpd $02,s
|
|
1131 beq L09D7
|
|
1132 bra L09C8
|
|
1133 L09C6 leas -$04,x
|
|
1134 L09C8 ldd u0006,u
|
|
1135 orb #$20
|
|
1136 std u0006,u
|
|
1137 ldd u0004,u
|
|
1138 std ,u
|
|
1139 ldd #$FFFF
|
|
1140 bra L09E7
|
|
1141 L09D7 ldd u0006,u
|
|
1142 ora #$01
|
|
1143 std u0006,u
|
|
1144 ldd u0002,u
|
|
1145 std ,u
|
|
1146 addd u000B,u
|
|
1147 std u0004,u
|
|
1148 clra
|
|
1149 clrb
|
|
1150 L09E7 leas $04,s
|
|
1151 puls pc,u
|
|
1152 L09EB pshs u
|
|
1153 puls pc,u
|
|
1154 L09EF pshs u
|
|
1155 ldu $04,s
|
|
1156 ldd u0006,u
|
|
1157 clra
|
|
1158 andb #$C0
|
|
1159 bne L0A27
|
|
1160 leas <-$20,s
|
|
1161 leax ,s
|
|
1162 pshs x
|
|
1163 ldd u0008,u
|
|
1164 pshs b,a
|
|
1165 clra
|
|
1166 clrb
|
|
1167 pshs b,a
|
|
1168 lbsr L0C44
|
|
1169 leas $06,s
|
|
1170 ldd u0006,u
|
|
1171 pshs b,a
|
|
1172 ldb $02,s
|
|
1173 bne L0A1B
|
|
1174 ldd #$0040
|
|
1175 bra L0A1E
|
|
1176 L0A1B ldd #$0080
|
|
1177 L0A1E ora ,s+
|
|
1178 orb ,s+
|
|
1179 std u0006,u
|
|
1180 leas <$20,s
|
|
1181 L0A27 ldd u0006,u
|
|
1182 ora #$80
|
|
1183 std u0006,u
|
|
1184 clra
|
|
1185 andb #$0C
|
|
1186 beq L0A34
|
|
1187 puls pc,u
|
|
1188 L0A34 ldd u000B,u
|
|
1189 bne L0A49
|
|
1190 ldd u0006,u
|
|
1191 clra
|
|
1192 andb #$40
|
|
1193 beq L0A44
|
|
1194 ldd #$0080
|
|
1195 bra L0A47
|
|
1196 L0A44 ldd #$0100
|
|
1197 L0A47 std u000B,u
|
|
1198 L0A49 ldd u0002,u
|
|
1199 bne L0A5E
|
|
1200 ldd u000B,u
|
|
1201 pshs b,a
|
|
1202 lbsr L0E47
|
|
1203 leas $02,s
|
|
1204 std u0002,u
|
|
1205 cmpd #$FFFF
|
|
1206 beq L0A66
|
|
1207 L0A5E ldd u0006,u
|
|
1208 orb #$08
|
|
1209 std u0006,u
|
|
1210 bra L0A75
|
|
1211 L0A66 ldd u0006,u
|
|
1212 orb #$04
|
|
1213 std u0006,u
|
|
1214 leax u000A,u
|
|
1215 stx u0002,u
|
|
1216 ldd #$0001
|
|
1217 std u000B,u
|
|
1218 L0A75 ldd u0002,u
|
|
1219 addd u000B,u
|
|
1220 std u0004,u
|
|
1221 std ,u
|
|
1222 puls pc,u
|
|
1223 L0A7F pshs u
|
|
1224 ldb $05,s
|
|
1225 sex
|
|
1226 tfr d,x
|
|
1227 bra L0AA5
|
|
1228 L0A88 ldd [<$06,s]
|
|
1229 addd #$0004
|
|
1230 std [<$06,s]
|
|
1231 leax >L0ABC,pcr
|
|
1232 bra L0AA1
|
|
1233 L0A97 ldb $05,s
|
|
1234 stb >$000C,y
|
|
1235 leax >$000B,y
|
|
1236 L0AA1 tfr x,d
|
|
1237 puls pc,u
|
|
1238 L0AA5 cmpx #$0064
|
|
1239 beq L0A88
|
|
1240 cmpx #$006F
|
|
1241 lbeq L0A88
|
|
1242 cmpx #$0078
|
|
1243 lbeq L0A88
|
|
1244 bra L0A97
|
|
1245 puls pc,u
|
|
1246 L0ABC neg <u0034
|
|
1247 nega
|
|
1248 leax >L0AC7,pcr
|
|
1249 tfr x,d
|
|
1250 puls pc,u
|
|
1251 L0AC7 neg <u0034
|
|
1252 nega
|
|
1253 ldu $04,s
|
|
1254 L0ACC ldb ,u+
|
|
1255 bne L0ACC
|
|
1256 tfr u,d
|
|
1257 subd $04,s
|
|
1258 addd #$FFFF
|
|
1259 puls pc,u
|
|
1260 L0AD9 pshs u
|
|
1261 ldu $06,s
|
|
1262 leas -$02,s
|
|
1263 ldd $06,s
|
|
1264 std ,s
|
|
1265 L0AE3 ldb ,u+
|
|
1266 ldx ,s
|
|
1267 leax $01,x
|
|
1268 stx ,s
|
|
1269 stb -$01,x
|
|
1270 bne L0AE3
|
|
1271 bra L0B18
|
|
1272 L0AF1 pshs u
|
|
1273 ldu $06,s
|
|
1274 leas -$02,s
|
|
1275 ldd $06,s
|
|
1276 std ,s
|
|
1277 L0AFB ldx ,s
|
|
1278 leax $01,x
|
|
1279 stx ,s
|
|
1280 ldb -$01,x
|
|
1281 bne L0AFB
|
|
1282 ldd ,s
|
|
1283 addd #$FFFF
|
|
1284 std ,s
|
|
1285 L0B0C ldb ,u+
|
|
1286 ldx ,s
|
|
1287 leax $01,x
|
|
1288 stx ,s
|
|
1289 stb -$01,x
|
|
1290 bne L0B0C
|
|
1291 L0B18 ldd $06,s
|
|
1292 leas $02,s
|
|
1293 puls pc,u
|
|
1294 pshs u
|
|
1295 ldu $04,s
|
|
1296 bra L0B34
|
|
1297 L0B24 ldx $06,s
|
|
1298 leax $01,x
|
|
1299 stx $06,s
|
|
1300 ldb -$01,x
|
|
1301 bne L0B32
|
|
1302 clra
|
|
1303 clrb
|
|
1304 puls pc,u
|
|
1305 L0B32 leau u0001,u
|
|
1306 L0B34 ldb ,u
|
|
1307 sex
|
|
1308 pshs b,a
|
|
1309 ldb [<$08,s]
|
|
1310 sex
|
|
1311 cmpd ,s++
|
|
1312 beq L0B24
|
|
1313 ldb [<$06,s]
|
|
1314 sex
|
|
1315 pshs b,a
|
|
1316 ldb ,u
|
|
1317 sex
|
|
1318 subd ,s++
|
|
1319 puls pc,u
|
|
1320 L0B4F pshs u
|
|
1321 ldu $04,s
|
|
1322 leas -$05,s
|
|
1323 clra
|
|
1324 clrb
|
|
1325 std $01,s
|
|
1326 L0B59 ldb ,u+
|
|
1327 stb ,s
|
|
1328 cmpb #$20
|
|
1329 beq L0B59
|
|
1330 ldb ,s
|
|
1331 cmpb #$09
|
|
1332 lbeq L0B59
|
|
1333 ldb ,s
|
|
1334 cmpb #$2D
|
|
1335 bne L0B74
|
|
1336 ldd #$0001
|
|
1337 bra L0B76
|
|
1338 L0B74 clra
|
|
1339 clrb
|
|
1340 L0B76 std $03,s
|
|
1341 ldb ,s
|
|
1342 cmpb #$2D
|
|
1343 beq L0B9C
|
|
1344 ldb ,s
|
|
1345 cmpb #$2B
|
|
1346 bne L0BA0
|
|
1347 bra L0B9C
|
|
1348 L0B86 ldd $01,s
|
|
1349 pshs b,a
|
|
1350 ldd #$000A
|
|
1351 lbsr L0BC2
|
|
1352 pshs b,a
|
|
1353 ldb $02,s
|
|
1354 sex
|
|
1355 addd ,s++
|
|
1356 addd #$FFD0
|
|
1357 std $01,s
|
|
1358 L0B9C ldb ,u+
|
|
1359 stb ,s
|
|
1360 L0BA0 ldb ,s
|
|
1361 sex
|
|
1362 leax >$00DF,y
|
|
1363 leax d,x
|
|
1364 ldb ,x
|
|
1365 clra
|
|
1366 andb #$08
|
|
1367 bne L0B86
|
|
1368 ldd $03,s
|
|
1369 beq L0BBC
|
|
1370 ldd $01,s
|
|
1371 nega
|
|
1372 negb
|
|
1373 sbca #$00
|
|
1374 bra L0BBE
|
|
1375 L0BBC ldd $01,s
|
|
1376 L0BBE leas $05,s
|
|
1377 puls pc,u
|
|
1378 L0BC2 tsta
|
|
1379 bne L0BD7
|
|
1380 tst $02,s
|
|
1381 bne L0BD7
|
|
1382 lda $03,s
|
|
1383 mul
|
|
1384 ldx ,s
|
|
1385 stx $02,s
|
|
1386 ldx #$0000
|
|
1387 std ,s
|
|
1388 puls pc,b,a
|
|
1389 L0BD7 pshs b,a
|
|
1390 ldd #$0000
|
|
1391 pshs b,a
|
|
1392 pshs b,a
|
|
1393 lda $05,s
|
|
1394 ldb $09,s
|
|
1395 mul
|
|
1396 std $02,s
|
|
1397 lda $05,s
|
|
1398 ldb $08,s
|
|
1399 mul
|
|
1400 addd $01,s
|
|
1401 std $01,s
|
|
1402 bcc L0BF4
|
|
1403 inc ,s
|
|
1404 L0BF4 lda $04,s
|
|
1405 ldb $09,s
|
|
1406 mul
|
|
1407 addd $01,s
|
|
1408 std $01,s
|
|
1409 bcc L0C01
|
|
1410 inc ,s
|
|
1411 L0C01 lda $04,s
|
|
1412 ldb $08,s
|
|
1413 mul
|
|
1414 addd ,s
|
|
1415 std ,s
|
|
1416 ldx $06,s
|
|
1417 stx $08,s
|
|
1418 ldx ,s
|
|
1419 ldd $02,s
|
|
1420 leas $08,s
|
|
1421 rts
|
|
1422 tstb
|
|
1423 beq L0C2B
|
|
1424 L0C18 asr $02,s
|
|
1425 ror $03,s
|
|
1426 decb
|
|
1427 bne L0C18
|
|
1428 bra L0C2B
|
|
1429 L0C21 tstb
|
|
1430 beq L0C2B
|
|
1431 L0C24 lsr $02,s
|
|
1432 ror $03,s
|
|
1433 decb
|
|
1434 bne L0C24
|
|
1435 L0C2B ldd $02,s
|
|
1436 pshs b,a
|
|
1437 ldd $02,s
|
|
1438 std $04,s
|
|
1439 ldd ,s
|
|
1440 leas $04,s
|
|
1441 rts
|
|
1442 tstb
|
|
1443 beq L0C2B
|
|
1444 L0C3B lsl $03,s
|
|
1445 rol $02,s
|
|
1446 decb
|
|
1447 bne L0C3B
|
|
1448 bra L0C2B
|
|
1449 L0C44 lda $05,s
|
|
1450 ldb $03,s
|
|
1451 beq L0C77
|
|
1452 cmpb #$01
|
|
1453 beq L0C79
|
|
1454 cmpb #$06
|
|
1455 beq L0C79
|
|
1456 cmpb #$02
|
|
1457 beq L0C5F
|
|
1458 cmpb #$05
|
|
1459 beq L0C5F
|
|
1460 ldb #$D0
|
|
1461 lbra L0F1C
|
|
1462 L0C5F pshs u
|
|
1463 os9 I$GetStt
|
|
1464 bcc L0C6B
|
|
1465 puls u
|
|
1466 lbra L0F1C
|
|
1467 L0C6B stx [<$08,s]
|
|
1468 ldx $08,s
|
|
1469 stu $02,x
|
|
1470 puls u
|
|
1471 clra
|
|
1472 clrb
|
|
1473 rts
|
|
1474 L0C77 ldx $06,s
|
|
1475 L0C79 os9 I$GetStt
|
|
1476 lbra L0F25
|
|
1477 lda $05,s
|
|
1478 ldb $03,s
|
|
1479 beq L0C8E
|
|
1480 cmpb #$02
|
|
1481 beq L0C96
|
|
1482 ldb #$D0
|
|
1483 lbra L0F1C
|
|
1484 L0C8E ldx $06,s
|
|
1485 os9 I$SetStt
|
|
1486 lbra L0F25
|
|
1487 L0C96 pshs u
|
|
1488 ldx $08,s
|
|
1489 ldu $0A,s
|
|
1490 os9 I$SetStt
|
|
1491 puls u
|
|
1492 lbra L0F25
|
|
1493 ldx $02,s
|
|
1494 lda $05,s
|
|
1495 os9 I$Open
|
|
1496 bcs L0CB0
|
|
1497 os9 I$Close
|
|
1498 L0CB0 lbra L0F25
|
|
1499 ldx $02,s
|
|
1500 lda $05,s
|
|
1501 os9 I$Open
|
|
1502 lbcs L0F1C
|
|
1503 tfr a,b
|
|
1504 clra
|
|
1505 rts
|
|
1506 L0CC2 lda $03,s
|
|
1507 os9 I$Close
|
|
1508 lbra L0F25
|
|
1509 ldx $02,s
|
|
1510 ldb $05,s
|
|
1511 os9 I$MakDir
|
|
1512 lbra L0F25
|
|
1513 ldx $02,s
|
|
1514 lda $05,s
|
|
1515 tfr a,b
|
|
1516 andb #$24
|
|
1517 orb #$0B
|
|
1518 os9 I$Create
|
|
1519 bcs L0CE7
|
|
1520 L0CE3 tfr a,b
|
|
1521 clra
|
|
1522 rts
|
|
1523 L0CE7 cmpb #$DA
|
|
1524 lbne L0F1C
|
|
1525 lda $05,s
|
|
1526 bita #$80
|
|
1527 lbne L0F1C
|
|
1528 anda #$07
|
|
1529 ldx $02,s
|
|
1530 os9 I$Open
|
|
1531 lbcs L0F1C
|
|
1532 pshs u,a
|
|
1533 ldx #$0000
|
|
1534 leau ,x
|
|
1535 ldb #$02
|
|
1536 os9 I$SetStt
|
|
1537 puls u,a
|
|
1538 bcc L0CE3
|
|
1539 pshs b
|
|
1540 os9 I$Close
|
|
1541 puls b
|
|
1542 lbra L0F1C
|
|
1543 ldx $02,s
|
|
1544 os9 I$Delete
|
|
1545 lbra L0F25
|
|
1546 lda $03,s
|
|
1547 os9 I$Dup
|
|
1548 lbcs L0F1C
|
|
1549 tfr a,b
|
|
1550 clra
|
|
1551 rts
|
|
1552 pshs y
|
|
1553 ldx $06,s
|
|
1554 lda $05,s
|
|
1555 ldy $08,s
|
|
1556 pshs y
|
|
1557 os9 I$Read
|
|
1558 L0D3D bcc L0D4C
|
|
1559 cmpb #$D3
|
|
1560 bne L0D47
|
|
1561 clra
|
|
1562 clrb
|
|
1563 puls pc,y,x
|
|
1564 L0D47 puls y,x
|
|
1565 lbra L0F1C
|
|
1566 L0D4C tfr y,d
|
|
1567 puls pc,y,x
|
|
1568 pshs y
|
|
1569 lda $05,s
|
|
1570 ldx $06,s
|
|
1571 ldy $08,s
|
|
1572 pshs y
|
|
1573 os9 I$ReadLn
|
|
1574 bra L0D3D
|
|
1575 L0D60 pshs y
|
|
1576 ldy $08,s
|
|
1577 beq L0D75
|
|
1578 lda $05,s
|
|
1579 ldx $06,s
|
|
1580 os9 I$Write
|
|
1581 L0D6E bcc L0D75
|
|
1582 puls y
|
|
1583 lbra L0F1C
|
|
1584 L0D75 tfr y,d
|
|
1585 puls pc,y
|
|
1586 L0D79 pshs y
|
|
1587 ldy $08,s
|
|
1588 beq L0D75
|
|
1589 lda $05,s
|
|
1590 ldx $06,s
|
|
1591 os9 I$WritLn
|
|
1592 bra L0D6E
|
|
1593 L0D89 pshs u
|
|
1594 ldd $0A,s
|
|
1595 bne L0D97
|
|
1596 ldu #$0000
|
|
1597 ldx #$0000
|
|
1598 bra L0DCB
|
|
1599 L0D97 cmpd #$0001
|
|
1600 beq L0DC2
|
|
1601 cmpd #$0002
|
|
1602 beq L0DB7
|
|
1603 ldb #$F7
|
|
1604 L0DA5 clra
|
|
1605 std >$01AD,y
|
|
1606 ldd #$FFFF
|
|
1607 leax >$01A1,y
|
|
1608 std ,x
|
|
1609 std $02,x
|
|
1610 puls pc,u
|
|
1611 L0DB7 lda $05,s
|
|
1612 ldb #$02
|
|
1613 os9 I$GetStt
|
|
1614 bcs L0DA5
|
|
1615 bra L0DCB
|
|
1616 L0DC2 lda $05,s
|
|
1617 ldb #$05
|
|
1618 os9 I$GetStt
|
|
1619 bcs L0DA5
|
|
1620 L0DCB tfr u,d
|
|
1621 addd $08,s
|
|
1622 std >$01A3,y
|
|
1623 tfr d,u
|
|
1624 tfr x,d
|
|
1625 adcb $07,s
|
|
1626 adca $06,s
|
|
1627 bmi L0DA5
|
|
1628 tfr d,x
|
|
1629 std >$01A1,y
|
|
1630 lda $05,s
|
|
1631 os9 I$Seek
|
|
1632 bcs L0DA5
|
|
1633 leax >$01A1,y
|
|
1634 puls pc,u
|
|
1635 ldd >$019F,y
|
|
1636 pshs b,a
|
|
1637 ldd $04,s
|
|
1638 cmpd >$01C9,y
|
|
1639 bcs L0E24
|
|
1640 addd >$019F,y
|
|
1641 pshs y
|
|
1642 subd ,s
|
|
1643 os9 F$Mem
|
|
1644 tfr y,d
|
|
1645 puls y
|
|
1646 bcc L0E16
|
|
1647 ldd #$FFFF
|
|
1648 leas $02,s
|
|
1649 rts
|
|
1650 L0E16 std >$019F,y
|
|
1651 addd >$01C9,y
|
|
1652 subd ,s
|
|
1653 std >$01C9,y
|
|
1654 L0E24 leas $02,s
|
|
1655 ldd >$01C9,y
|
|
1656 pshs b,a
|
|
1657 subd $04,s
|
|
1658 std >$01C9,y
|
|
1659 ldd >$019F,y
|
|
1660 subd ,s++
|
|
1661 pshs b,a
|
|
1662 clra
|
|
1663 ldx ,s
|
|
1664 L0E3D sta ,x+
|
|
1665 cmpx >$019F,y
|
|
1666 bcs L0E3D
|
|
1667 puls pc,b,a
|
|
1668 L0E47 ldd $02,s
|
|
1669 addd >$01A9,y
|
|
1670 bcs L0E70
|
|
1671 cmpd >$01AB,y
|
|
1672 bcc L0E70
|
|
1673 pshs b,a
|
|
1674 ldx >$01A9,y
|
|
1675 clra
|
|
1676 L0E5D cmpx ,s
|
|
1677 bcc L0E65
|
|
1678 sta ,x+
|
|
1679 bra L0E5D
|
|
1680 L0E65 ldd >$01A9,y
|
|
1681 puls x
|
|
1682 stx >$01A9,y
|
|
1683 rts
|
|
1684 L0E70 ldd #$FFFF
|
|
1685 rts
|
|
1686 lda $03,s
|
|
1687 ldb $05,s
|
|
1688 os9 F$Send
|
|
1689 lbra L0F25
|
|
1690 clra
|
|
1691 clrb
|
|
1692 os9 F$Wait
|
|
1693 lbcs L0F1C
|
|
1694 ldx $02,s
|
|
1695 beq L0E8F
|
|
1696 stb $01,x
|
|
1697 clr ,x
|
|
1698 L0E8F tfr a,b
|
|
1699 clra
|
|
1700 rts
|
|
1701 lda $03,s
|
|
1702 ldb $05,s
|
|
1703 os9 F$SPrior
|
|
1704 lbra L0F25
|
|
1705 L0E9D leau ,s
|
|
1706 leas >$00FF,y
|
|
1707 ldx u0002,u
|
|
1708 ldy u0004,u
|
|
1709 lda u0009,u
|
|
1710 lsla
|
|
1711 lsla
|
|
1712 lsla
|
|
1713 lsla
|
|
1714 ora u000B,u
|
|
1715 ldb u000D,u
|
|
1716 ldu u0006,u
|
|
1717 os9 F$Chain
|
|
1718 os9 F$Exit
|
|
1719 pshs u,y
|
|
1720 ldx $06,s
|
|
1721 ldy $08,s
|
|
1722 ldu $0A,s
|
|
1723 lda $0D,s
|
|
1724 ora $0F,s
|
|
1725 ldb <$11,s
|
|
1726 os9 F$Fork
|
|
1727 puls u,y
|
|
1728 lbcs L0F1C
|
|
1729 tfr a,b
|
|
1730 clra
|
|
1731 rts
|
|
1732 pshs y
|
|
1733 os9 F$ID
|
|
1734 puls y
|
|
1735 bcc L0EE4
|
|
1736 lbcs L0F1C
|
|
1737 L0EE4 tfr a,b
|
|
1738 clra
|
|
1739 rts
|
|
1740 L0EE8 pshs y
|
|
1741 os9 F$ID
|
|
1742 bcc L0EF4
|
|
1743 L0EEF puls y
|
|
1744 lbra L0F1C
|
|
1745 L0EF4 tfr y,d
|
|
1746 puls pc,y
|
|
1747 L0EF8 pshs y
|
|
1748 bsr L0EE8
|
|
1749 std -$02,s
|
|
1750 beq L0F04
|
|
1751 ldb #$D6
|
|
1752 bra L0EEF
|
|
1753 L0F04 ldy $04,s
|
|
1754 os9 F$SUser
|
|
1755 bcc L0F18
|
|
1756 cmpb #$D0
|
|
1757 bne L0EEF
|
|
1758 tfr y,d
|
|
1759 ldy >$004B
|
|
1760 std $09,y
|
|
1761 L0F18 clra
|
|
1762 clrb
|
|
1763 puls pc,y
|
|
1764 L0F1C clra
|
|
1765 std >$01AD,y
|
|
1766 ldd #$FFFF
|
|
1767 rts
|
|
1768 L0F25 bcs L0F1C
|
|
1769 clra
|
|
1770 clrb
|
|
1771 rts
|
|
1772 L0F2A lbsr L0F35
|
|
1773 lbsr L089C
|
|
1774 L0F30 ldd $02,s
|
|
1775 os9 F$Exit
|
|
1776 L0F35 rts
|
|
1777 L0F36 neg <u0001
|
|
1778 neg <u0001
|
|
1779 fcb $5E ^
|
|
1780 beq L0F4D
|
|
1781 com <u00E8
|
|
1782 neg <u0064
|
|
1783 neg <u000A
|
|
1784 neg <u0009
|
|
1785 inc -$08,s
|
|
1786 neg <u0000
|
|
1787 neg <u0000
|
|
1788 neg <u0000
|
|
1789 L0F4D neg <u0000
|
|
1790 oim #$00,<u0000
|
|
1791 neg <u0000
|
|
1792 neg <u0000
|
|
1793 neg <u0000
|
|
1794 neg <u0000
|
|
1795 neg <u0000
|
|
1796 aim #$00,<u0001
|
|
1797 neg <u0000
|
|
1798 neg <u0000
|
|
1799 neg <u0000
|
|
1800 neg <u0000
|
|
1801 neg <u0000
|
|
1802 fcb $42 B
|
|
1803 neg <u0002
|
|
1804 neg <u0000
|
|
1805 neg <u0000
|
|
1806 neg <u0000
|
|
1807 neg <u0000
|
|
1808 neg <u0000
|
|
1809 neg <u0000
|
|
1810 neg <u0000
|
|
1811 neg <u0000
|
|
1812 neg <u0000
|
|
1813 neg <u0000
|
|
1814 neg <u0000
|
|
1815 neg <u0000
|
|
1816 neg <u0000
|
|
1817 neg <u0000
|
|
1818 neg <u0000
|
|
1819 neg <u0000
|
|
1820 neg <u0000
|
|
1821 neg <u0000
|
|
1822 neg <u0000
|
|
1823 neg <u0000
|
|
1824 neg <u0000
|
|
1825 neg <u0000
|
|
1826 neg <u0000
|
|
1827 neg <u0000
|
|
1828 neg <u0000
|
|
1829 neg <u0000
|
|
1830 neg <u0000
|
|
1831 neg <u0000
|
|
1832 neg <u0000
|
|
1833 neg <u0000
|
|
1834 neg <u0000
|
|
1835 neg <u0000
|
|
1836 neg <u0000
|
|
1837 neg <u0000
|
|
1838 neg <u0000
|
|
1839 neg <u0000
|
|
1840 neg <u0000
|
|
1841 neg <u0000
|
|
1842 neg <u0000
|
|
1843 neg <u0000
|
|
1844 neg <u0000
|
|
1845 neg <u0000
|
|
1846 neg <u0000
|
|
1847 neg <u0000
|
|
1848 neg <u0000
|
|
1849 neg <u0000
|
|
1850 neg <u0000
|
|
1851 neg <u0000
|
|
1852 neg <u0000
|
|
1853 neg <u0000
|
|
1854 neg <u0000
|
|
1855 neg <u0000
|
|
1856 neg <u0000
|
|
1857 neg <u0000
|
|
1858 neg <u0000
|
|
1859 neg <u0000
|
|
1860 neg <u0000
|
|
1861 neg <u0000
|
|
1862 neg <u0000
|
|
1863 neg <u0000
|
|
1864 neg <u0000
|
|
1865 neg <u0000
|
|
1866 neg <u0000
|
|
1867 neg <u0000
|
|
1868 neg <u0000
|
|
1869 neg <u0000
|
|
1870 neg <u0000
|
|
1871 neg <u0000
|
|
1872 neg <u0000
|
|
1873 neg <u0000
|
|
1874 neg <u0000
|
|
1875 neg <u0000
|
|
1876 neg <u0000
|
|
1877 neg <u0000
|
|
1878 neg <u0000
|
|
1879 neg <u0000
|
|
1880 neg <u0000
|
|
1881 neg <u0000
|
|
1882 neg <u0000
|
|
1883 neg <u0000
|
|
1884 neg <u0000
|
|
1885 neg <u0000
|
|
1886 neg <u0000
|
|
1887 neg <u0000
|
|
1888 neg <u0000
|
|
1889 neg <u0000
|
|
1890 neg <u0001
|
|
1891 oim #$01,<u0001
|
|
1892 oim #$01,<u0001
|
|
1893 oim #$01,<u0011
|
|
1894 fcb $11
|
|
1895 oim #$11,<u0011
|
|
1896 oim #$01,<u0001
|
|
1897 oim #$01,<u0001
|
|
1898 oim #$01,<u0001
|
|
1899 oim #$01,<u0001
|
|
1900 oim #$01,<u0001
|
|
1901 oim #$01,<u0001
|
|
1902 leax $00,y
|
|
1903 bra L105D
|
|
1904 bra L105F
|
|
1905 bra L1061
|
|
1906 bra L1063
|
|
1907 bra L1065
|
|
1908 bra L1067
|
|
1909 bra L1069
|
|
1910 lsla
|
|
1911 lsla
|
|
1912 lsla
|
|
1913 lsla
|
|
1914 lsla
|
|
1915 lsla
|
|
1916 lsla
|
|
1917 lsla
|
|
1918 lsla
|
|
1919 lsla
|
|
1920 bra L1075
|
|
1921 bra L1077
|
|
1922 bra L1079
|
|
1923 bra L109D
|
|
1924 fcb $42 B
|
|
1925 fcb $42 B
|
|
1926 L105D fcb $42 B
|
|
1927 fcb $42 B
|
|
1928 L105F fcb $42 B
|
|
1929 aim #$02,<u0002
|
|
1930 L1063 aim #$02,<u0002
|
|
1931 aim #$02,<u0002
|
|
1932 L1069 aim #$02,<u0002
|
|
1933 aim #$02,<u0002
|
|
1934 aim #$02,<u0002
|
|
1935 aim #$02,<u0020
|
|
1936 L1075 bra L1097
|
|
1937 L1077 bra L1099
|
|
1938 L1079 bra L10BF
|
|
1939 lsra
|
|
1940 lsra
|
|
1941 lsra
|
|
1942 lsra
|
|
1943 lsra
|
|
1944 lsr <u0004
|
|
1945 lsr <u0004
|
|
1946 lsr <u0004
|
|
1947 lsr <u0004
|
|
1948 lsr <u0004
|
|
1949 lsr <u0004
|
|
1950 lsr <u0004
|
|
1951 lsr <u0004
|
|
1952 lsr <u0004
|
|
1953 lsr <u0004
|
|
1954 bra L10B6
|
|
1955 bra L10B8
|
|
1956 oim #$00,<u0000
|
|
1957 neg <u0001
|
|
1958 L109D neg <u0009
|
|
1959 comb
|
|
1960 eim #$73,>$6572
|
|
1961 fcb $00
|
|
1962 emod
|
|
1963 eom equ *
|
|
1964 end
|