Mercurial > hg > Members > kono > nitros9-code

comparison level1/modules/rbf.asm @ 0:6641a883d6b0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial revision
author boisy
date Thu, 04 Apr 2002 16:34:12 +0000
parents
children 668388823050
comparison
equal deleted inserted replaced
-1:000000000000 0:6641a883d6b0
1 ********************************************************************
2 * RBF - Disk file manager
3 *
4 * $Id$
5 *
6 * Ed. Comments Who YY/MM/DD
7 * ------------------------------------------------------------------
8 * 24 Tandy/Microware original version
9
10 nam RBF
11 ttl Disk file manager
12
13 * Disassembled 98/08/23 18:26:52 by Disasm v1.6 (C) 1988 by RML
14
15 ifp1
16 use defsfile
17 use rbfdefs
18 endc
19
20 tylg set FlMgr+Objct
21 atrv set ReEnt+rev
22 rev set $01
23 edition set $18
24
25 mod eom,name,tylg,atrv,start,size
26
27 u0000 rmb 0
28 size equ .
29
30 name fcs /RBF/
31 fcb edition
32 L0011 fcb $26
33
34 * All routines are entered with
35 * (Y) = Path descriptor pointer
36 * (U) = Caller's register stack pointer
37 start lbra Create
38 lbra Open
39 lbra MakDir
40 lbra ChgDir
41 lbra Delete
42 lbra Seek
43 lbra Read
44 lbra Write
45 lbra ReadLn
46 lbra WriteLn
47 lbra GetStat
48 lbra SetStat
49 lbra Close
50
51 Create pshs y
52 leas -$05,s make room on the stack
53 lda R$B,u get perms
54 anda #^DIR. mask off dir bit
55 sta R$B,u save perms back
56 lbsr L061D
57 bcs L004A
58 ldb #$DA
59 L004A cmpb #$D8
60 bne L0072
61 cmpa #PDELIM
62 beq L0072
63 pshs x
64 ldx PD.RGS,y
65 stu R$X,x
66 ldb <PD.SBP,y
67 ldx <PD.SBP+1,y
68 lda <PD.SSZ,y
69 ldu <PD.SSZ+1,y
70 pshs u,x,b,a
71 clra
72 ldb #$01
73 lbsr L0966
74 bcc L0077
75 leas $06,s
76 L0070 leas $02,s
77 L0072 leas $05,s
78 lbra L027F
79 L0077 std $0B,s
80 ldb <PD.SBP,y
81 ldx <PD.SBP+1,y
82 stb $08,s
83 stx $09,s
84 puls u,x,b,a
85 stb <PD.SBP,y
86 stx <PD.SBP+1,y
87 sta <PD.SSZ,y
88 stu <PD.SSZ+1,y
89 ldd <PD.DCP,y
90 std $0B,y
91 ldd <PD.DCP+2,y
92 std $0D,y
93 lbsr L079C
94 bcs L00A9
95 L00A0 tst ,x
96 beq L00BB
97 lbsr L0787
98 bcc L00A0
99 L00A9 cmpb #$D3
100 bne L0070
101 ldd #$0020
102 lbsr L04C0
103 bcs L0070
104 lbsr L0243
105 lbsr L079C
106 L00BB leau ,x
107 lbsr L015C
108 puls x
109 os9 F$PrsNam
110 bcs L0072
111 cmpb #$1D
112 bls L00CD
113 ldb #$1D
114 L00CD clra
115 tfr d,y
116 lbsr L04F2
117 tfr y,d
118 ldy $05,s
119 decb
120 lda b,u
121 ora #$80
122 sta b,u
123 ldb ,s
124 ldx $01,s
125 stb <$1D,u
126 stx <$1E,u
127 lbsr L0D40
128 bcs L0144
129 ldu $08,y
130 bsr L0163
131 lda #$04
132 sta $0A,y
133 ldx $06,y
134 lda $02,x
135 sta ,u
136 ldx <$004B
137 ldd $09,x
138 std $01,u
139 lbsr L0290
140 ldd $03,u
141 std $0D,u
142 ldb $05,u
143 stb $0F,u
144 ldb #$01
145 stb $08,u
146 ldd $03,s
147 subd #$0001
148 beq L012A
149 leax <$10,u
150 std $03,x
151 ldd $01,s
152 addd #$0001
153 std $01,x
154 ldb ,s
155 adcb #$00
156 stb ,x
157 L012A ldb ,s
158 ldx $01,s
159 lbsr L0D42
160 bcs L0144
161 lbsr L0837
162 stb <$34,y
163 stx <$35,y
164 lbsr L082B
165 leas $05,s
166 lbra L01C4
167 L0144 puls u,x,a
168 sta <$16,y
169 stx <$17,y
170 clr <$19,y
171 stu <$1A,y
172 pshs b
173 lbsr L0B6E
174 puls b
175 L0159 lbra L027F
176 L015C pshs u,x,b,a
177 leau <$20,u
178 bra L0169
179 L0163 pshs u,x,b,a
180 leau >$0100,u
181 L0169 clra
182 clrb
183 tfr d,x
184 L016D pshu x,b,a
185 cmpu $04,s
186 bhi L016D
187 puls pc,u,x,b,a
188
189 Open pshs y
190 lbsr L061D
191 bcs L0159
192 ldu PD.RGS,y
193 stx R$X,u
194 ldd <PD.FD+1,y
195 bne L01B3
196 lda <PD.FD,y
197 bne L01B3
198 ldb PD.MOD,y
199 andb #DIR.
200 lbne L027D
201 std <PD.SBP,y
202 sta <PD.SBP+2,y
203 std <PD.SBL,y
204 sta <PD.SBL+2,y
205 ldx <PD.DTB,y
206 lda V$STAT,x
207 std <PD.SIZ+2,y
208 sta <PD.SSZ+2,y
209 ldd V$DRIV,x
210 std PD.SIZ,y
211 std <PD.SSZ,y
212 puls pc,y
213
214 L01B3 lda PD.MOD,y
215 lbsr L07F1
216 bcs L0159
217 bita #$02
218 beq L01C4
219 lbsr L0290
220 lbsr L0D38
221 L01C4 puls y
222 L01C6 clra
223 clrb
224 std $0B,y
225 std $0D,y
226 std <$13,y
227 sta <$15,y
228 sta <$19,y
229 lda ,u
230 sta <$33,y
231 ldd <$10,u
232 std <$16,y
233 lda <$12,u
234 sta <$18,y
235 ldd <$13,u
236 std <$1A,y
237 ldd $09,u
238 ldx $0B,u
239 std $0F,y
240 stx <$11,y
241 clr $0A,y
242 rts
243
244 MakDir lbsr Create
245 bcs L0241
246 ldd #$0040
247 std <$11,y
248 bsr L0253
249 bcs L0241
250 lbsr L0854
251 bcs L0241
252 lbsr L0CD4
253 ldu $08,y
254 lda ,u
255 ora #$80
256 sta ,u
257 bsr L0246
258 bcs L0241
259 lbsr L0163
260 ldd #$2EAE
261 std ,u
262 stb <$20,u
263 lda <$37,y
264 sta <$1D,u
265 ldd <$38,y
266 std <$1E,u
267 lda <$34,y
268 sta <$3D,u
269 ldd <$35,y
270 std <$3E,u
271 lbsr L0D40
272 L0241 bra L0282
273 L0243 lbsr L0CD4
274 L0246 ldx $08,y
275 ldd $0F,y
276 std $09,x
277 ldd <$11,y
278 std $0B,x
279 clr $0A,y
280 L0253 lbra L0D38
281
282 Close clra
283 tst $02,y
284 bne L027C
285 lbsr L0D72
286 bcs L0282
287 ldb $01,y
288 bitb #$02
289 beq L0282
290 ldd <$34,y
291 bne L0270
292 lda <$36,y
293 beq L0282
294 L0270 bsr L0243
295 lbsr L0529
296 bcc L0282
297 lbsr L0AAF
298 bra L0282
299 L027C rts
300 L027D ldb #$D6
301 L027F coma
302 L0280 puls y
303 L0282 pshs b,cc
304 ldu $08,y
305 beq L028E
306 ldd #$0100
307 os9 F$SRtMem
308 L028E puls pc,b,cc
309 L0290 lbsr L0CD4
310 ldu $08,y
311 lda $08,u
312 pshs a
313 leax $03,u
314 os9 F$Time
315 puls a
316 sta $08,u
317 rts
318
319 ChgDir pshs y
320 lda $01,y
321 ora #$80
322 sta $01,y
323 lbsr Open
324 bcs L0280
325 ldx <$004B
326 ldu <$35,y
327 ldb $01,y
328 bitb #$03
329 beq L02C4
330 ldb <$34,y
331 stb <$1D,x
332 stu <$1E,x
333 L02C4 ldb $01,y
334 bitb #$04
335 beq L02D3
336 ldb <$34,y
337 stb <$23,x
338 stu <$24,x
339 L02D3 clrb
340 bra L0280
341
342 Delete pshs y
343 lbsr L061D
344 bcs L0280
345 ldd <$35,y
346 bne L02E9
347 tst <$34,y
348 lbeq L027D
349 L02E9 lda #$42
350 lbsr L07F1
351 bcs L035F
352 ldu $06,y
353 stx $04,u
354 lbsr L0CD4
355 bcs L035F
356 ldx $08,y
357 dec $08,x
358 beq L0304
359 lbsr L0D38
360 bra L032A
361 L0304 clra
362 clrb
363 std $0F,y
364 std <$11,y
365 lbsr L0AAF
366 bcs L035F
367 ldb <$34,y
368 ldx <$35,y
369 stb <$16,y
370 stx <$17,y
371 ldx $08,y
372 ldd <$13,x
373 addd #$0001
374 std <$1A,y
375 lbsr L0B6E
376 L032A bcs L035F
377 lbsr L0D72
378 lbsr L0837
379 lda <$37,y
380 sta <$34,y
381 ldd <$38,y
382 std <$35,y
383 lbsr L0CD4
384 bcs L035F
385 lbsr L082B
386 ldu $08,y
387 lbsr L01C6
388 ldd <$3A,y
389 std $0B,y
390 ldd <$3C,y
391 std $0D,y
392 lbsr L079C
393 bcs L035F
394 clr ,x
395 lbsr L0D40
396 L035F lbra L0280
397
398 Seek ldb $0A,y
399 bitb #$02
400 beq L037B
401 lda $05,u
402 ldb $08,u
403 subd $0C,y
404 bne L0376
405 lda $04,u
406 sbca $0B,y
407 beq L037F
408 L0376 lbsr L0D72
409 bcs L0383
410 L037B ldd $04,u
411 std $0B,y
412 L037F ldd $08,u
413 std $0D,y
414 L0383 rts
415
416 ReadLn bsr L03C4
417 beq L03AA
418 bsr L03AB
419 pshs u,y,x,b,a
420 exg x,u
421 ldy #$0000
422 lda #$0D
423 L0394 leay $01,y
424 cmpa ,x+
425 beq L039D
426 decb
427 bne L0394
428 L039D ldx $06,s
429 bsr L03F4
430 sty $0A,s
431 puls u,y,x,b,a
432 ldd $02,s
433 leax d,x
434 L03AA rts
435 L03AB lbsr L0414
436 lda ,-x
437 cmpa #$0D
438 beq L03BA
439 ldd $02,s
440 lbne L041A
441 L03BA ldu $06,y
442 ldd $06,u
443 subd $02,s
444 std $06,u
445 bra L040E
446 L03C4 ldd $06,u
447 bsr L03CD
448 bcs L03F1
449 std $06,u
450 rts
451 L03CD pshs b,a
452 ldd <$11,y
453 subd $0D,y
454 tfr d,x
455 ldd $0F,y
456 sbcb $0C,y
457 sbca $0B,y
458 bcs L03EE
459 bne L03EB
460 tstb
461 bne L03EB
462 cmpx ,s
463 bcc L03EB
464 stx ,s
465 beq L03EE
466 L03EB clrb
467 puls pc,b,a
468 L03EE comb
469 ldb #E$EOF
470 L03F1 leas $02,s
471 rts
472 L03F4 lbra L04F2
473
474 Read bsr L03C4
475 beq L0409
476 bsr L040A
477 L03FD pshs u,y,x,b,a
478 exg x,u
479 tfr d,y
480 bsr L03F4
481 puls u,y,x,b,a
482 leax d,x
483 L0409 rts
484 L040A bsr L0414
485 bne L041A
486 L040E clrb
487 L040F leas -$02,s
488 L0411 leas $0A,s
489 rts
490 L0414 ldd $04,u
491 ldx $06,u
492 pshs x,b,a
493 L041A lda $0A,y
494 bita #$02
495 bne L043A
496 tst $0E,y
497 bne L0435
498 tst $02,s
499 beq L0435
500 leax >L04A4,pcr
501 cmpx $06,s
502 bne L0435
503 lbsr L0C49
504 bra L0438
505 L0435 lbsr L0D91
506 L0438 bcs L040F
507 L043A ldu $08,y
508 clra
509 ldb $0E,y
510 leau d,u
511 negb
512 sbca #$FF
513 ldx ,s
514 cmpd $02,s
515 bls L044D
516 ldd $02,s
517 L044D pshs b,a
518 jsr [<$08,s]
519 stx $02,s
520 lda $0A,y
521 anda #$BF
522 sta $0A,y
523 ldb $01,s
524 addb $0E,y
525 stb $0E,y
526 bne L0471
527 lbsr L0D72
528 inc $0D,y
529 bne L046F
530 inc $0C,y
531 bne L046F
532 inc $0B,y
533 L046F bcs L0411
534 L0471 ldd $04,s
535 subd ,s++
536 std $02,s
537 jmp [<$04,s]
538
539 WriteLn pshs y
540 clrb
541 ldy $06,u
542 beq L0498
543 ldx $04,u
544 L0484 leay -$01,y
545 beq L0498
546 lda ,x+
547 cmpa #$0D
548 bne L0484
549 tfr y,d
550 nega
551 negb
552 sbca #$00
553 addd $06,u
554 std $06,u
555 L0498 puls y
556
557 Write ldd $06,u
558 beq L04BE
559 bsr L04C0
560 bcs L04BF
561 bsr L04B5
562 L04A4 pshs y,b,a
563 tfr d,y
564 bsr L04F2
565 puls y,b,a
566 leax d,x
567 lda $0A,y
568 ora #$03
569 sta $0A,y
570 rts
571 L04B5 lbsr L0414
572 lbne L041A
573 leas $08,s
574 L04BE clrb
575 L04BF rts
576 L04C0 addd $0D,y
577 tfr d,x
578 ldd $0B,y
579 adcb #$00
580 adca #$00
581 L04CA cmpd $0F,y
582 bcs L04BE
583 bhi L04D6
584 cmpx <$11,y
585 bls L04BE
586 L04D6 pshs u
587 ldu <$11,y
588 stx <$11,y
589 ldx $0F,y
590 std $0F,y
591 pshs u,x
592 lbsr L0854
593 puls u,x
594 bcc L04F0
595 stx $0F,y
596 stu <$11,y
597 L04F0 puls pc,u
598 L04F2 pshs u,y,x
599 ldd $02,s
600 beq L051B
601 leay d,u
602 lsrb
603 bcc L0501
604 lda ,x+
605 sta ,u+
606 L0501 lsrb
607 bcc L0508
608 ldd ,x++
609 std ,u++
610 L0508 pshs y
611 exg x,u
612 bra L0515
613 L050E pulu y,b,a
614 std ,x++
615 sty ,x++
616 L0515 cmpx ,s
617 bcs L050E
618 leas $02,s
619 L051B puls pc,u,y,x
620
621 GetSTat ldb $02,u
622 cmpb #$00
623 beq L0543
624 cmpb #$06
625 bne L052F
626 clr $02,u
627 L0529 clra
628 ldb #$01
629 lbra L03CD
630 L052F cmpb #$01
631 bne L0536
632 clr $02,u
633 rts
634 L0536 cmpb #$02
635 bne L0544
636 ldd $0F,y
637 std $04,u
638 ldd <$11,y
639 std $08,u
640 L0543 rts
641 L0544 cmpb #$05
642 bne L0551
643 ldd $0B,y
644 std $04,u
645 ldd $0D,y
646 std $08,u
647 rts
648 L0551 cmpb #$0F
649 bne L056B
650 lbsr L0CD4
651 bcs L0543
652 ldu $06,y
653 ldd $06,u
654 tsta
655 beq L0564
656 ldd #$0100
657 L0564 ldx $04,u
658 ldu $08,y
659 lbra L03FD
660 L056B lda #$09
661 lbra L0CED
662
663 SetStat ldb R$B,u
664 cmpb #SS.OPT
665 bne L0584
666 ldx R$X,u
667 leax $02,x
668 leau <PD.STP,y
669 ldy #$000D
670 lbra L04F2
671 L0584 cmpb #SS.Size
672 bne L05C6
673 ldd <PD.FD+1,y
674 bne L0594
675 tst <PD.FD,y
676 lbeq L0619
677 L0594 lda PD.MOD,y
678 bita #WRITE.
679 beq L05C2
680 ldd R$X,u
681 ldx R$U,u
682 cmpd $0F,y
683 bcs L05AD
684 bne L05AA
685 cmpx <PD.SIZ+2,y
686 bcs L05AD
687 L05AA lbra L04CA
688 L05AD std PD.SIZ,y
689 stx <PD.SIZ+2,y
690 ldd PD.CP,y
691 ldx PD.CP+2,y
692 pshs x,b,a
693 lbsr L0AAF
694 puls u,x
695 stx PD.CP,y
696 stu PD.CP+2,y
697 rts
698 L05C2 comb
699 ldb #E$BMode
700 rts
701 L05C6 cmpb #$0F
702 bne L0604
703 lda $01,y
704 bita #$02
705 beq L05C2
706 lbsr L0CD4
707 bcs L061C
708 pshs y
709 ldx $04,u
710 ldu $08,y
711 ldy <$004B
712 ldd $09,y
713 bne L05E7
714 ldd #$0102
715 bsr L05F6
716 L05E7 ldd #$0305
717 bsr L05F6
718 ldd #$0D03
719 bsr L05F6
720 puls y
721 lbra L0D38
722 L05F6 pshs u,x
723 leax a,x
724 leau a,u
725 clra
726 tfr d,y
727 lbsr L04F2
728 puls pc,u,x
729 L0604 cmpb #$1E
730 bne L0614
731 ldx <$1E,y
732 lda $05,u
733 sta <$1E,x
734 clr <$1D,x
735 rts
736 L0614 lda #$0C
737 lbra L0CED
738 L0619 comb
739 ldb #E$UnkSvc
740 L061C rts
741
742 L061D ldd #256
743 stb PD.BUF+2,y
744 os9 F$SRqMem
745 bcs L061C
746 stu PD.BUF,y
747 ldx PD.RGS,y
748 ldx R$X,x
749 pshs u,y,x
750 leas -$04,s
751 clra
752 clrb
753 sta <PD.FD,y
754 std <PD.FD+1,y
755 std <PD.DSK,y
756 lda ,x
757 sta ,s
758 cmpa #PDELIM
759 bne L0654
760 lbsr L07BC
761 sta ,s
762 lbcs L0752
763 leax ,y
764 ldy $06,s
765 bra L0677
766 L0654 anda #$7F strip hi bit
767 cmpa #PENTIR raw?
768 beq L0677 branch if so
769 lda #PDELIM
770 sta ,s
771 leax -$01,x
772 lda $01,y
773 ldu <$004B
774 leau <$1A,u
775 bita #$24
776 beq L066D
777 leau $06,u
778 L066D ldb $03,u
779 stb <PD.FD,y
780 ldd $04,u
781 std <PD.FD+1,y
782 L0677 ldu $03,y
783 stu <PD.DVT,y
784 lda <PD.DRV,y
785 ldb >L0011,pcr
786 mul
787 addd $02,u
788 addd #$000F
789 std <PD.DTB,y
790 lda ,s
791 anda #$7F
792 cmpa #PENTIR
793 bne L0698
794 leax $01,x
795 bra L06BA
796 L0698 lbsr L0CC1
797 lbcs L075A
798 ldu PD.BUF,y
799 ldd $0E,u
800 std <PD.DSK,y
801 ldd <PD.FD+1,y
802 bne L06BA
803 lda <PD.FD,y
804 bne L06BA
805 lda $08,u
806 sta <PD.FD,y
807 ldd $09,u
808 std <PD.FD+1,y
809 L06BA stx $04,s
810 stx $08,s
811 L06BE lbsr L0D72
812 lbcs L075A
813 lda ,s
814 anda #$7F
815 cmpa #PENTIR
816 beq L06D4
817 lbsr L0CD4
818 lbcs L075A
819 L06D4 lbsr L082B
820 lda ,s
821 cmpa #PDELIM
822 bne L0734
823 clr $02,s
824 clr $03,s
825 lda $01,y
826 ora #$80
827 lbsr L07F1
828 bcs L0752
829 lbsr L01C6
830 ldx $08,s
831 leax $01,x
832 lbsr L07BC
833 std ,s
834 stx $04,s
835 sty $08,s
836 ldy $06,s
837 bcs L0752
838 lbsr L079C
839 bra L070A
840 L0705 bsr L075D
841 L0707 lbsr L0787
842 L070A bcs L0752
843 tst ,x
844 beq L0705
845 clra
846 ldb $01,s
847 leay ,x
848 ldx $04,s
849 os9 F$CmpNam
850 ldx $06,s
851 exg x,y
852 bcs L0707
853 bsr L076B
854 lda <$1D,x
855 sta <PD.FD,y
856 ldd <$1E,x
857 std <PD.FD+1,y
858 lbsr L0837
859 lbra L06BE
860 L0734 ldx $08,s
861 tsta
862 bmi L0741
863 os9 F$PrsNam
864 leax ,y
865 ldy $06,s
866 L0741 stx $04,s
867 clra
868 L0744 lda ,s
869 leas $04,s
870 pshs b,a,cc
871 lda $0A,y
872 anda #$BF
873 sta $0A,y
874 puls pc,u,y,x,b,a,cc
875 L0752 cmpb #$D3
876 bne L075A
877 bsr L075D
878 ldb #$D8
879 L075A coma
880 bra L0744
881 L075D pshs b,a
882 lda $04,s
883 cmpa #$2F
884 beq L0785
885 ldd $06,s
886 bne L0785
887 puls b,a
888 L076B pshs b,a
889 stx $06,s
890 lda <PD.FD,y
891 sta <PD.DFD,y
892 ldd <PD.FD+1,y
893 std <PD.DFD+1,y
894 ldd $0B,y
895 std <PD.DCP,y
896 ldd $0D,y
897 std <PD.DCP+2,y
898 L0785 puls pc,b,a
899
900 L0787 ldb $0E,y
901 addb #$20
902 stb $0E,y
903 bcc L079C
904 lbsr L0D72
905 inc $0D,y
906 bne L079C
907 inc $0C,y
908 bne L079C
909 inc $0B,y
910 L079C ldd #$0020
911 lbsr L03CD
912 bcs L07BB
913 lda $0A,y
914 bita #$02
915 bne L07B4
916 lbsr L0C49
917 bcs L07BB
918 lbsr L0D91
919 bcs L07BB
920 L07B4 ldb $0E,y
921 lda $08,y
922 tfr d,x
923 clrb
924 L07BB rts
925
926 L07BC os9 F$PrsNam
927 pshs x
928 bcc L07E9
929 clrb
930 L07C4 pshs a
931 anda #$7F
932 cmpa #PDIR
933 puls a
934 bne L07DF
935 incb
936 leax $01,x
937 tsta
938 bmi L07DF
939 lda ,x
940 cmpb #$03
941 bcs L07C4
942 lda #PDELIM
943 decb
944 leax -$03,x
945 L07DF tstb
946 bne L07E7
947 L07E2 comb
948 ldb #E$BPNam
949 puls pc,x
950 L07E7 leay ,x
951 L07E9 cmpb #$20
952 bhi L07E2
953 andcc #^Carry
954 puls pc,x
955
956 * A = PD.MOD (mode byte)
957 L07F1 tfr a,b
958 anda #$07
959 andb #$C0
960 pshs x,b,a
961 lbsr L0CD4
962 bcs L0820
963 ldu $08,y
964 ldx <$004B
965 ldd $09,x
966 beq L0809
967 cmpd $01,u
968 L0809 puls a
969 beq L0810
970 lsla
971 lsla
972 lsla
973 L0810 ora ,s
974 anda #$BF
975 pshs a
976 ora #$80
977 anda ,u
978 cmpa ,s
979 beq L0829
980 ldb #$D6
981 L0820 leas $02,s
982 coma
983 puls pc,x
984 ldb #$FD
985 bra L0820
986 L0829 puls pc,x,b,a
987 L082B clra
988 clrb
989 std $0B,y
990 std $0D,y
991 sta <$19,y
992 std <$1A,y
993 L0837 rts
994 L0838 pshs y,x,b,a
995 ldx <D.Proc
996 lda <P$IOQN,x
997 beq L0851
998 clr <P$IOQN,x
999 ldb #S$Wake
1000 os9 F$Send
1001 ldx <D.PrcDBT
1002 os9 F$Find64
1003 clr <P$IOQP,y
1004 L0851 clrb
1005 puls pc,y,x,b,a
1006 L0854 pshs u,x
1007 L0856 bsr L08B2
1008 bne L0866
1009 cmpx <$1A,y
1010 bcs L08AD
1011 bne L0866
1012 lda <$12,y
1013 beq L08AD
1014 L0866 lbsr L0CD4
1015 bcs L08AA
1016 ldx $0B,y
1017 ldu $0D,y
1018 pshs u,x
1019 ldd $0F,y
1020 std $0B,y
1021 ldd <$11,y
1022 std $0D,y
1023 lbsr L0C63
1024 puls u,x
1025 stx $0B,y
1026 stu $0D,y
1027 bcc L08AD
1028 cmpb #$D5
1029 bne L08AA
1030 bsr L08B2
1031 bne L0896
1032 tst <$12,y
1033 beq L0899
1034 leax $01,x
1035 bne L0899
1036 L0896 ldx #$FFFF
1037 L0899 tfr x,d
1038 tsta
1039 bne L08A6
1040 cmpb <$2E,y
1041 bcc L08A6
1042 ldb <$2E,y
1043 L08A6 bsr L08C0
1044 bcc L0856
1045 L08AA coma
1046 puls pc,u,x
1047 L08AD lbsr L0C49
1048 puls pc,u,x
1049 L08B2 ldd <$10,y
1050 subd <$14,y
1051 tfr d,x
1052 ldb $0F,y
1053 sbcb <$13,y
1054 rts
1055 L08C0 pshs u,x
1056 lbsr L0966
1057 bcs L08FF
1058 lbsr L0CD4
1059 bcs L08FF
1060 ldu $08,y
1061 clra
1062 clrb
1063 std $09,u
1064 std $0B,u
1065 leax <$10,u
1066 ldd $03,x
1067 beq L0947
1068 ldd $08,y
1069 inca
1070 pshs b,a
1071 bra L08EF
1072 L08E2 clrb
1073 ldd -$02,x
1074 beq L08FB
1075 addd $0A,u
1076 std $0A,u
1077 bcc L08EF
1078 inc $09,u
1079 L08EF leax $05,x
1080 cmpx ,s
1081 bcs L08E2
1082 lbsr L0B6E
1083 comb
1084 ldb #E$SLF
1085 L08FB leas $02,s
1086 leax -$05,x
1087 L08FF bcs L0964
1088 ldd -$04,x
1089 addd -$02,x
1090 pshs b,a
1091 ldb -$05,x
1092 adcb #$00
1093 cmpb <$16,y
1094 puls b,a
1095 bne L0947
1096 cmpd <$17,y
1097 bne L0947
1098 ldu <$1E,y
1099 ldd $06,u
1100 ldu $08,y
1101 subd #$0001
1102 coma
1103 comb
1104 pshs b,a
1105 ldd -$05,x
1106 eora <$16,y
1107 eorb <$17,y
1108 lsra
1109 rorb
1110 lsra
1111 rorb
1112 lsra
1113 rorb
1114 anda ,s+
1115 andb ,s+
1116 std -$02,s
1117 bne L0947
1118 ldd -$02,x
1119 addd <$1A,y
1120 bcs L0947
1121 std -$02,x
1122 bra L0956
1123 L0947 ldd <$16,y
1124 std ,x
1125 lda <$18,y
1126 sta $02,x
1127 ldd <$1A,y
1128 std $03,x
1129 L0956 ldd $0A,u
1130 addd <$1A,y
1131 std $0A,u
1132 bcc L0961
1133 inc $09,u
1134 L0961 lbsr L0D38
1135 L0964 puls pc,u,x
1136 L0966 pshs u,y,x,b,a
1137 ldb #$0C
1138 L096A clr ,-s
1139 decb
1140 bne L096A
1141 ldx <$1E,y
1142 ldd $04,x
1143 std $04,s
1144 ldd $06,x
1145 std $02,s
1146 std $0A,s
1147 ldx $03,y
1148 ldx $04,x
1149 leax <$12,x
1150 subd #$0001
1151 addb $0E,x
1152 adca #$00
1153 bra L098E
1154 L098C lsra
1155 rorb
1156 L098E lsr $0A,s
1157 ror $0B,s
1158 bcc L098C
1159 std ,s
1160 ldd $02,s
1161 std $0A,s
1162 subd #$0001
1163 addd $0C,s
1164 bcc L09A8
1165 ldd #$FFFF
1166 bra L09A8
1167 L09A6 lsra
1168 rorb
1169 L09A8 lsr $0A,s
1170 ror $0B,s
1171 bcc L09A6
1172 cmpa #$08
1173 bcs L09B5
1174 ldd #$0800
1175 L09B5 std $0C,s
1176 lbsr L0BD8
1177 lbcs L0AA3
1178 ldx <$1E,y
1179 ldd <$1A,x
1180 cmpd $0E,x
1181 bne L09D7
1182 lda <$1C,x
1183 cmpa $04,x
1184 bne L09D7
1185 ldb <$1D,x
1186 cmpb $04,x
1187 bcs L09E5
1188 L09D7 ldd $0E,x
1189 std <$1A,x
1190 lda $04,x
1191 sta <$1C,x
1192 clrb
1193 stb <$1D,x
1194 L09E5 incb
1195 stb $06,s
1196 ldx <$1E,y
1197 cmpb <$1E,x
1198 beq L0A21
1199 lbsr L0C33
1200 lbcs L0AA3
1201 ldb $06,s
1202 cmpb $04,s
1203 bls L0A02
1204 clra
1205 ldb $05,s
1206 bra L0A05
1207 L0A02 ldd #$0100
1208 L0A05 ldx $08,y
1209 leau d,x
1210 ldy $0C,s
1211 clra
1212 clrb
1213 os9 F$SchBit
1214 bcc L0A4E
1215 cmpy $08,s
1216 bls L0A21
1217 sty $08,s
1218 std $0A,s
1219 lda $06,s
1220 sta $07,s
1221 L0A21 ldy <$10,s
1222 ldb $06,s
1223 cmpb $04,s
1224 bcs L0A32
1225 bhi L0A31
1226 tst $05,s
1227 bne L0A32
1228 L0A31 clrb
1229 L0A32 ldx <$1E,y
1230 cmpb <$1D,x
1231 bne L09E5
1232 ldb $07,s
1233 beq L0AA1
1234 cmpb $06,s
1235 beq L0A47
1236 stb $06,s
1237 lbsr L0C33
1238 L0A47 ldx $08,y
1239 ldd $0A,s
1240 ldy $08,s
1241 L0A4E std $0A,s
1242 sty $08,s
1243 os9 F$AllBit
1244 ldy <$10,s
1245 ldb $06,s
1246 lbsr L0C0B
1247 bcs L0AA3
1248 ldx <$1E,y
1249 lda $06,s
1250 deca
1251 sta <$1D,x
1252 clrb
1253 lsla
1254 rolb
1255 lsla
1256 rolb
1257 lsla
1258 rolb
1259 stb <$16,y
1260 ora $0A,s
1261 ldb $0B,s
1262 ldx $08,s
1263 ldy <$10,s
1264 std <$17,y
1265 stx <$1A,y
1266 ldd $02,s
1267 bra L0A97
1268 L0A88 lsl <$18,y
1269 rol <$17,y
1270 rol <$16,y
1271 lsl <$1B,y
1272 rol <$1A,y
1273 L0A97 lsra
1274 rorb
1275 bcc L0A88
1276 clrb
1277 ldd <$1A,y
1278 bra L0AAB
1279 L0AA1 ldb #$F8
1280 L0AA3 ldy <$10,s
1281 lbsr L0C12
1282 coma
1283 L0AAB leas $0E,s
1284 puls pc,u,y,x
1285 L0AAF clra
1286 lda $01,y
1287 bita #$80
1288 bne L0B11
1289 ldd $0F,y
1290 std $0B,y
1291 ldd <$11,y
1292 std $0D,y
1293 lbsr L0C63
1294 bcc L0AC8
1295 cmpb #$D5
1296 bra L0B09
1297 L0AC8 ldd <$14,y
1298 subd $0C,y
1299 addd <$1A,y
1300 tst $0E,y
1301 beq L0AD7
1302 subd #$0001
1303 L0AD7 pshs b,a
1304 ldu <$1E,y
1305 ldd $06,u
1306 subd #$0001
1307 coma
1308 comb
1309 anda ,s+
1310 andb ,s+
1311 ldu <$1A,y
1312 std <$1A,y
1313 beq L0B0B
1314 tfr u,d
1315 subd <$1A,y
1316 pshs x,b,a
1317 addd <$17,y
1318 std <$17,y
1319 bcc L0B01
1320 inc <$16,y
1321 L0B01 bsr L0B6E
1322 bcc L0B12
1323 leas $04,s
1324 cmpb #$DB
1325 L0B09 bne L0B10
1326 L0B0B lbsr L0CD4
1327 bcc L0B1B
1328 L0B10 coma
1329 L0B11 rts
1330 L0B12 lbsr L0CD4
1331 bcs L0B6B
1332 puls x,b,a
1333 std $03,x
1334 L0B1B ldu $08,y
1335 ldd <$11,y
1336 std $0B,u
1337 ldd $0F,y
1338 std $09,u
1339 tfr x,d
1340 clrb
1341 inca
1342 leax $05,x
1343 pshs x,b,a
1344 bra L0B56
1345 L0B30 ldd -$02,x
1346 beq L0B63
1347 std <$1A,y
1348 ldd -$05,x
1349 std <$16,y
1350 lda -$03,x
1351 sta <$18,y
1352 bsr L0B6E
1353 bcs L0B6B
1354 stx $02,s
1355 lbsr L0CD4
1356 bcs L0B6B
1357 ldx $02,s
1358 clra
1359 clrb
1360 std -$05,x
1361 sta -$03,x
1362 std -$02,x
1363 L0B56 lbsr L0D38
1364 bcs L0B6B
1365 ldx $02,s
1366 leax $05,x
1367 cmpx ,s
1368 bcs L0B30
1369 L0B63 clra
1370 clrb
1371 sta <$19,y
1372 std <$1A,y
1373 L0B6B leas $04,s
1374 rts
1375 L0B6E pshs u,y,x,a
1376 ldx <$1E,y
1377 ldd $06,x
1378 subd #$0001
1379 addd <$17,y
1380 std <$17,y
1381 ldd $06,x
1382 bcc L0B96
1383 inc <$16,y
1384 bra L0B96
1385 L0B87 lsr <$16,y
1386 ror <$17,y
1387 ror <$18,y
1388 lsr <$1A,y
1389 ror <$1B,y
1390 L0B96 lsra
1391 rorb
1392 bcc L0B87
1393 clrb
1394 ldd <$1A,y
1395 beq L0BD6
1396 ldd <$16,y
1397 lsra
1398 rorb
1399 lsra
1400 rorb
1401 lsra
1402 rorb
1403 tfr b,a
1404 ldb #$DB
1405 cmpa $04,x
1406 bhi L0BD5
1407 inca
1408 sta ,s
1409 L0BB4 bsr L0BD8
1410 bcs L0BB4
1411 ldb ,s
1412 bsr L0C33
1413 bcs L0BD5
1414 ldx $08,y
1415 ldd <$17,y
1416 anda #$07
1417 ldy <$1A,y
1418 os9 F$DelBit
1419 ldy $03,s
1420 ldb ,s
1421 bsr L0C0B
1422 bcc L0BD6
1423 L0BD5 coma
1424 L0BD6 puls pc,u,y,x,a
1425 L0BD8 lbsr L0D72
1426 bra L0BE5
1427 L0BDD lbsr L0838
1428 os9 F$IOQu
1429 bsr L0BF5
1430 L0BE5 bcs L0BF4
1431 ldx <$1E,y
1432 lda <$17,x
1433 bne L0BDD
1434 lda $05,y
1435 sta <$17,x
1436 L0BF4 rts
1437 L0BF5 ldu <$004B
1438 ldb <$36,u
1439 cmpb #$01
1440 bls L0C02
1441 cmpb #$03
1442 bls L0C09
1443 L0C02 clra
1444 lda $0D,u
1445 bita #$02
1446 beq L0C0A
1447 L0C09 coma
1448 L0C0A rts
1449 L0C0B clra
1450 tfr d,x
1451 clrb
1452 lbsr L0D42
1453 L0C12 pshs cc
1454 ldx <$1E,y
1455 lda $05,y
1456 cmpa <$17,x
1457 bne L0C31
1458 clr <$17,x
1459 ldx <$004B
1460 lda <$11,x
1461 beq L0C31
1462 lbsr L0838
1463 ldx #$0001
1464 os9 F$Sleep
1465 L0C31 puls pc,cc
1466 L0C33 clra
1467 tfr d,x
1468 clrb
1469 lbra L0CEB
1470 pshs u,x
1471 lbsr L0D40
1472 bcs L0C47
1473 lda $0A,y
1474 anda #$FE
1475 sta $0A,y
1476 L0C47 puls pc,u,x
1477 L0C49 ldd $0C,y
1478 subd <$14,y
1479 tfr d,x
1480 ldb $0B,y
1481 sbcb <$13,y
1482 cmpb <$19,y
1483 bcs L0C61
1484 bhi L0C63
1485 cmpx <$1A,y
1486 bcc L0C63
1487 L0C61 clrb
1488 L0C62 rts
1489 L0C63 pshs u
1490 bsr L0CD4
1491 bcs L0CBF
1492 clra
1493 clrb
1494 std <$13,y
1495 stb <$15,y
1496 ldu $08,y
1497 leax <$10,u
1498 lda $08,y
1499 ldb #$FC
1500 pshs b,a
1501 L0C7C ldd $03,x
1502 beq L0CA1
1503 addd <$14,y
1504 tfr d,u
1505 ldb <$13,y
1506 adcb #$00
1507 cmpb $0B,y
1508 bhi L0CAE
1509 bne L0C95
1510 cmpu $0C,y
1511 bhi L0CAE
1512 L0C95 stb <$13,y
1513 stu <$14,y
1514 leax $05,x
1515 cmpx ,s
1516 bcs L0C7C
1517 L0CA1 clra
1518 clrb
1519 sta <$19,y
1520 std <$1A,y
1521 comb
1522 ldb #E$NES
1523 bra L0CBD
1524 L0CAE ldd ,x
1525 std <$16,y
1526 lda $02,x
1527 sta <$18,y
1528 ldd $03,x
1529 std <$1A,y
1530 L0CBD leas $02,s
1531 L0CBF puls pc,u
1532 L0CC1 pshs x,b
1533 lbsr L0D72
1534 bcs L0CD0
1535 clrb
1536 ldx #$0000
1537 bsr L0CEB
1538 bcc L0CD2
1539 L0CD0 stb ,s
1540 L0CD2 puls pc,x,b
1541 L0CD4 ldb $0A,y
1542 bitb #$04
1543 bne L0C61
1544 lbsr L0D72
1545 bcs L0C62
1546 ldb $0A,y
1547 orb #$04
1548 stb $0A,y
1549 ldb <$34,y
1550 ldx <$35,y
1551 L0CEB lda #$03
1552 L0CED pshs u,y,x,b,a
1553 lda $0A,y
1554 ora #$20
1555 sta $0A,y
1556 ldu $03,y
1557 ldu $02,u
1558 bra L0D01
1559 L0CFB lbsr L0838
1560 os9 F$IOQu
1561 L0D01 lda $04,u
1562 bne L0CFB
1563 lda $05,y
1564 sta $04,u
1565 ldd ,s
1566 ldx $02,s
1567 pshs u
1568 bsr L0D26
1569 puls u
1570 ldy $04,s
1571 pshs cc
1572 bcc L0D1C
1573 stb $02,s
1574 L0D1C lda $0A,y
1575 anda #$DF
1576 sta $0A,y
1577 clr $04,u
1578 puls pc,u,y,x,b,a,cc
1579 L0D26 pshs pc,x,b,a
1580 ldx $03,y
1581 ldd ,x
1582 ldx ,x
1583 addd $09,x
1584 addb ,s
1585 adca #$00
1586 std $04,s
1587 puls pc,x,b,a
1588 L0D38 ldb <$34,y
1589 ldx <$35,y
1590 bra L0D42
1591 L0D40 bsr L0D5B
1592 L0D42 lda #$06
1593 pshs x,b,a
1594 ldd <$1C,y
1595 beq L0D51
1596 ldx <$1E,y
1597 cmpd $0E,x
1598 L0D51 puls x,b,a
1599 lbeq L0CED
1600 comb
1601 ldb #E$DIDC
1602 rts
1603 L0D5B ldd $0C,y
1604 subd <$14,y
1605 tfr d,x
1606 ldb $0B,y
1607 sbcb <$13,y
1608 exg d,x
1609 addd <$17,y
1610 exg d,x
1611 adcb <$16,y
1612 rts
1613 L0D72 clrb
1614 pshs u,x
1615 ldb $0A,y
1616 andb #$46
1617 beq L0D8F
1618 tfr b,a
1619 eorb $0A,y
1620 stb $0A,y
1621 andb #$01
1622 beq L0D8F
1623 eorb $0A,y
1624 stb $0A,y
1625 bita #$02
1626 beq L0D8F
1627 bsr L0D40
1628 L0D8F puls pc,u,x
1629 L0D91 pshs u,x
1630 lbsr L0C49
1631 bcs L0DAA
1632 bsr L0D72
1633 bcs L0DAA
1634 lbsr L0D5B
1635 lbsr L0CEB
1636 bcs L0DAA
1637 lda $0A,y
1638 ora #$42
1639 sta $0A,y
1640 L0DAA puls pc,u,x
1641
1642 emod
1643 eom equ *
1644 end
1645