Mercurial > hg > Members > kono > nitros9-code

comparison 3rdparty/packages/os9l2bbs/cmds/suser.asm @ 2400:75ba2a80a4e3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
OS-9 L2 BBS Commands disassembled
author boisy
date Sun, 24 Jan 2010 17:20:05 +0000
parents
children 04755ee002ba
comparison
equal deleted inserted replaced
2399:44e4eb3df544 2400:75ba2a80a4e3
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