source: vital-to8-sdk/mc09/src/test.asm @ 1

Last change on this file since 1 was 1, checked in by svn, 5 years ago

Import initial

File size: 24.7 KB
Line 
1_fcbtbl EQU     0
2_ch     EQU     32
3_fch    EQU     33
4_1
5        LDD     #0
6        STD     33,Y
7        LBRA    _2
8_main
9        PSHS    U
10        LEAU    ,S
11        LEAS    -2,S
12        LBSR    initheap
13        LDD     #65535
14        LDD     #65534
15        LDD     #65533
16        LDD     #3
17_4
18        LDD     -2,U
19        SUBD    #16
20        LBGE    _3
21        LDD     -2,U
22        ASLB
23        ROLA
24        LEAX    0,Y
25        LEAX    D,X
26        CLRA
27        CLRB
28        STD     0,X
29_5
30        LDD     -2,U
31        ADDD    #1
32        STD     -2,U
33        LBRA    _4
34_3
35        LDD     6,U
36        PSHS    D
37        LDD     4,U
38        PSHS    D
39        LBSR    main
40        LEAS    4,S
41        PULS    D,U,PC
42ungetc
43        PSHS    U
44        LEAU    ,S
45        LDD     6,U
46        SUBD    #65535
47        LBNE    _6
48        LDD     #1
49        LDB     5,U
50        SEX
51        PULS    U,PC
52_6
53        LDD     #1
54        LDX     6,U
55        STB     62,X
56        LDB     5,U
57        SEX
58        LDX     6,U
59        STB     61,X
60        PULS    U,PC
61getc
62        PSHS    U
63        LEAU    ,S
64        LDD     4,U
65        CMPD    #65535
66        LBNE    _9
67_8
68        LDD     33,Y
69        LBEQ    _10
70        CLRA
71        CLRB
72        LDB     32,Y
73        SEX
74        PULS    U,PC
75_10
76        LBSR    GETCH
77        PULS    U,PC
78_9
79        CMPD    #65533
80        BEQ     _11
81        CMPD    #65534
82        LBNE    _12
83_11
84        LDD     #-1
85        PULS    U,PC
86_13
87        LDX     4,U
88        LDB     2,X
89        SEX
90        SUBD    #1
91        LBEQ    _14
92        LDD     #-1
93        PULS    U,PC
94_14
95        LDX     4,U
96        LDB     62,X
97        SEX
98        LBEQ    _15
99        CLRA
100        CLRB
101        LDX     4,U
102        STB     62,X
103        LDX     4,U
104        LDB     61,X
105        SEX
106        PULS    U,PC
107_15
108        CLRA
109        CLRB
110        PSHS    D
111        LDD     4,U
112        PSHS    D
113        LBSR    FMS
114        LEAS    4,S
115        PULS    U,PC
116_12     EQU     _13
117_7
118        PULS    U,PC
119putc
120        PSHS    U
121        LEAU    ,S
122        LDD     6,U
123        CMPD    #65535
124        LBNE    _18
125_17
126        LDD     #-1
127        PULS    U,PC
128_18
129        CMPD    #65534
130        LBNE    _20
131_19
132        LDB     5,U
133        SEX
134        PSHS    D
135        LBSR    PUTCH
136        LEAS    2,S
137        PULS    U,PC
138_20
139        CMPD    #65533
140        LBNE    _22
141_21
142        LDB     5,U
143        SEX
144        PSHS    D
145        LBSR    PUTCH2
146        LEAS    2,S
147        PULS    U,PC
148_23
149        LDX     6,U
150        LDB     2,X
151        SEX
152        SUBD    #2
153        LBEQ    _24
154        LDD     #-1
155        PULS    U,PC
156_24
157        LDB     5,U
158        SEX
159        PSHS    D
160        CLRA
161        CLRB
162        PSHS    D
163        LDD     6,U
164        PSHS    D
165        LBSR    FMS
166        LEAS    6,S
167        SUBD    #0
168        LBGE    _25
169        LDD     #-1
170        PULS    U,PC
171_25
172        LDB     5,U
173        SEX
174        PULS    U,PC
175_22     EQU     _23
176_16
177        PULS    U,PC
178ugetch
179        PSHS    U
180        LEAU    ,S
181        LDD     0,Y
182        PSHS    D
183        LDB     5,U
184        SEX
185        PSHS    D
186        LBSR    ungetc
187        LEAS    4,S
188        PULS    U,PC
189getchar
190        PSHS    U
191        LEAU    ,S
192        LDD     0,Y
193        PSHS    D
194        LBSR    getc
195        LEAS    2,S
196        PULS    U,PC
197putchar
198        PSHS    U
199        LEAU    ,S
200        LDD     2,Y
201        PSHS    D
202        LDB     5,U
203        SEX
204        PSHS    D
205        LBSR    putc
206        LEAS    4,S
207        PULS    U,PC
208printf
209        PSHS    U
210        LEAU    ,S
211        LEAX    6,U
212        PSHS    X
213        LDD     4,U
214        PSHS    D
215        LDD     2,Y
216        PSHS    D
217        LBSR    _fprintf
218        LEAS    6,S
219        PULS    U,PC
220fprintf
221        PSHS    U
222        LEAU    ,S
223        LEAX    8,U
224        PSHS    X
225        LDD     6,U
226        PSHS    D
227        LDD     4,U
228        PSHS    D
229        LBSR    _fprintf
230        LEAS    6,S
231        PULS    U,PC
232_fprintf
233        PSHS    U
234        LEAU    ,S
235        LEAS    -15,S
236_27
237        LDX     6,U
238        LDB     ,X+
239        STX     6,U
240        SEX
241        SUBD    #0
242        LBEQ    _26
243        LDB     -7,U
244        SEX
245        SUBD    #37
246        LBEQ    _28
247        LDD     4,U
248        PSHS    D
249        LDB     -7,U
250        SEX
251        PSHS    D
252        LBSR    putc
253        LEAS    4,S
254        LBRA    _29
255_28
256        LDB     [6,U]
257        SEX
258        SUBD    #45
259        LBEQ    _31
260        CLRA
261        CLRB
262        BRA     *+5
263_31
264        LDD     #1
265        SUBD    #0
266        LBEQ    _30
267        LDD     6,U
268        ADDD    #1
269        STD     6,U
270_30
271        LDB     [6,U]
272        SEX
273        PSHS    D
274        LBSR    isdigit
275        LEAS    2,S
276        SUBD    #0
277        LBEQ    _32
278        LDD     6,U
279        PSHS    D
280        LEAX    -4,U
281        PSHS    X
282        LBSR    _getint
283        LEAS    4,S
284        PSHS    D
285        ADDD    ,S++
286        LBRA    _33
287_32
288        CLRA
289        CLRB
290_33
291        LDB     [6,U]
292        SEX
293        SUBD    #46
294        LBNE    _34
295        LDD     6,U
296        ADDD    #1
297        STD     6,U
298_34
299        LDB     [6,U]
300        SEX
301        PSHS    D
302        LBSR    isdigit
303        LEAS    2,S
304        SUBD    #0
305        LBEQ    _35
306        LDD     6,U
307        PSHS    D
308        LEAX    -6,U
309        PSHS    X
310        LBSR    _getint
311        LEAS    4,S
312        PSHS    D
313        ADDD    ,S++
314        LBRA    _36
315_35
316        LDD     #32767
317_36
318        LDX     6,U
319        LDB     ,X+
320        STX     6,U
321        SEX
322        CMPD    #100
323        LBNE    _39
324_38
325        LEAX    -15,U
326        PSHS    X
327        LDX     8,U
328        LDD     ,X++
329        STX     8,U
330        PSHS    D
331        LBSR    itoa
332        LEAS    4,S
333        LBRA    _37
334_39
335        CMPD    #111
336        LBNE    _41
337_40
338        LEAX    -15,U
339        PSHS    X
340        LDX     8,U
341        LDD     ,X++
342        STX     8,U
343        PSHS    D
344        LBSR    itooa
345        LEAS    4,S
346        LBRA    _37
347_41
348        CMPD    #120
349        LBNE    _43
350_42
351        LEAX    -15,U
352        PSHS    X
353        LDX     8,U
354        LDD     ,X++
355        STX     8,U
356        PSHS    D
357        LBSR    itoxa
358        LEAS    4,S
359        LBRA    _37
360_43
361        CMPD    #117
362        LBNE    _45
363_44
364        LEAX    -15,U
365        PSHS    X
366        LDX     8,U
367        LDD     ,X++
368        STX     8,U
369        PSHS    D
370        LBSR    itoua
371        LEAS    4,S
372        LBRA    _37
373_45
374        CMPD    #99
375        LBNE    _47
376_46
377        LEAX    -15,U
378        PSHS    X
379        LDX     8,U
380        LDD     ,X++
381        STX     8,U
382        PSHS    D
383        LBSR    ctos
384        LEAS    4,S
385        LBRA    _37
386_47
387        CMPD    #115
388        LBNE    _49
389_48
390        LDD     -6,U
391        PSHS    D
392        LDD     -4,U
393        PSHS    D
394        LDD     -2,U
395        PSHS    D
396        LDX     8,U
397        LDD     ,X++
398        STX     8,U
399        PSHS    D
400        LDD     4,U
401        PSHS    D
402        LBSR    _putstr
403        LEAS    10,S
404        LBRA    _27
405_49
406        CMPD    #0
407        LBNE    _51
408_50
409        LEAS    ,U
410        PULS    U,PC
411_52
412        LEAX    -15,U
413        PSHS    X
414        LDB     -7,U
415        SEX
416        PSHS    D
417        LBSR    ctos
418        LEAS    4,S
419        LBRA    _37
420_51     EQU     _52
421_37
422        LDD     -6,U
423        PSHS    D
424        LDD     -4,U
425        PSHS    D
426        LDD     -2,U
427        PSHS    D
428        LEAX    -15,U
429        PSHS    X
430        LDD     4,U
431        PSHS    D
432        LBSR    _putstr
433        LEAS    10,S
434_29
435        LBRA    _27
436_26
437        LEAS    ,U
438        PULS    U,PC
439_getint
440        PSHS    U
441        LEAU    ,S
442        LEAS    -2,S
443        CLRA
444        CLRB
445        STD     [4,U]
446_54
447        LDB     [6,U]
448        SEX
449        PSHS    D
450        LBSR    isdigit
451        LEAS    2,S
452        SUBD    #0
453        LBEQ    _53
454        LDX     6,U
455        LDB     ,X+
456        STX     6,U
457        SEX
458        PSHS    D
459        LDD     [4,U]
460        ASLB
461        ROLA
462        PSHS    D
463        ASLB
464        ROLA
465        ASLB
466        ROLA
467        ADDD    ,S++
468        ADDD    ,S++
469        SUBD    #48
470        STD     [4,U]
471_55
472        LDD     -2,U
473        ADDD    #1
474        STD     -2,U
475        LBRA    _54
476_53
477        LDD     -2,U
478        PULS    X,U,PC
479_putstr
480        PSHS    U
481        LEAU    ,S
482        LEAS    -2,S
483        LDD     6,U
484        PSHS    D
485        LBSR    strlen
486        LEAS    2,S
487        SUBD    12,U
488        LBGE    _56
489        LDD     6,U
490        PSHS    D
491        LBSR    strlen
492        LEAS    2,S
493        LBRA    _57
494_56
495        LDD     12,U
496_57
497        LDD     -2,U
498        SUBD    10,U
499        LBGE    _58
500        LDD     10,U
501        SUBD    -2,U
502        LBRA    _59
503_58
504        CLRA
505        CLRB
506_59
507        LDD     8,U
508        LBEQ    _60
509        LDD     12,U
510        PSHS    D
511        LDD     6,U
512        PSHS    D
513        LDB     5,U
514        SEX
515        PSHS    D
516        LBSR    _putsn
517        LEAS    6,S
518        LDD     10,U
519        PSHS    D
520        LDB     5,U
521        SEX
522        PSHS    D
523        LBSR    _putspc
524        LEAS    4,S
525        LBRA    _61
526_60
527        LDD     10,U
528        PSHS    D
529        LDB     5,U
530        SEX
531        PSHS    D
532        LBSR    _putspc
533        LEAS    4,S
534        LDD     12,U
535        PSHS    D
536        LDD     6,U
537        PSHS    D
538        LDB     5,U
539        SEX
540        PSHS    D
541        LBSR    _putsn
542        LEAS    6,S
543_61
544        PULS    D,U,PC
545_putsn
546        PSHS    U
547        LEAU    ,S
548_63
549        LDB     [6,U]
550        SEX
551        LBEQ    _62
552        LDD     8,U
553        ADDD    #-1
554        STD     8,U
555        SUBD    #0
556        LBLT    _64
557        LDB     5,U
558        SEX
559        PSHS    D
560        LDX     6,U
561        LDB     ,X+
562        STX     6,U
563        SEX
564        PSHS    D
565        LBSR    putc
566        LEAS    4,S
567        LBRA    _65
568_64
569        LBRA    _62
570_65
571        LBRA    _63
572_62
573        PULS    U,PC
574_putspc
575        PSHS    U
576        LEAU    ,S
577_67
578        LDD     6,U
579        ADDD    #-1
580        STD     6,U
581        SUBD    #0
582        LBLT    _66
583        LDD     4,U
584        PSHS    D
585        LDD     #32
586        PSHS    D
587        LBSR    putc
588        LEAS    4,S
589        LBRA    _67
590_66
591        PULS    U,PC
592itoa
593        PSHS    U
594        LEAU    ,S
595        LDD     4,U
596        SUBD    #0
597        LBGE    _68
598        LDD     #45
599        LDX     6,U
600        STB     ,X+
601        STX     6,U
602        LDD     6,U
603        PSHS    D
604        LDD     4,U
605        NEGA
606        NEGB
607        SBCA    #0
608        PSHS    D
609        LBSR    itoua
610        LEAS    4,S
611        ADDD    #1
612        PULS    U,PC
613_68
614        LDD     6,U
615        PSHS    D
616        LDD     4,U
617        PSHS    D
618        LBSR    itoua
619        LEAS    4,S
620        PULS    U,PC
621itoua
622        PSHS    U
623        LEAU    ,S
624        LDD     #10
625        PSHS    D
626        LDD     6,U
627        PSHS    D
628        LDD     4,U
629        PSHS    D
630        LBSR    _itoda
631        LEAS    6,S
632        PULS    U,PC
633ctos
634        PSHS    U
635        LEAU    ,S
636        LDB     5,U
637        SEX
638        LDX     6,U
639        STB     0,X
640        CLRA
641        CLRB
642        LDX     6,U
643        STB     1,X
644        LDD     6,U
645        PULS    U,PC
646itooa
647        PSHS    U
648        LEAU    ,S
649        LDD     #8
650        PSHS    D
651        LDD     6,U
652        PSHS    D
653        LDD     4,U
654        PSHS    D
655        LBSR    _itoda
656        LEAS    6,S
657        PULS    U,PC
658itoxa
659        PSHS    U
660        LEAU    ,S
661        LDD     #16
662        PSHS    D
663        LDD     6,U
664        PSHS    D
665        LDD     4,U
666        PSHS    D
667        LBSR    _itoda
668        LEAS    6,S
669        PULS    U,PC
670_itoac
671        PSHS    U
672        LEAU    ,S
673        LDD     4,U
674        SUBD    #10
675        LBGE    _69
676        LDD     #48
677        LBRA    _70
678_69
679        LDD     #55
680_70
681        ADDD    4,U
682        PULS    U,PC
683_itoda
684        PSHS    U
685        LEAU    ,S
686        LEAS    -12,S
687        LEAX    -10,U
688        TFR     X,D
689        CLRA
690        CLRB
691        LDX     -12,U
692        STB     ,X+
693        STX     -12,U
694_73
695        LDD     8,U
696        PSHS    D
697        LDD     4,U
698        PULS    X
699        LBSR    _00005
700        PSHS    D
701        LBSR    _itoac
702        LEAS    2,S
703        LDX     -12,U
704        STB     ,X+
705        STX     -12,U
706_72
707        LDD     8,U
708        PSHS    D
709        PULS    X
710        LBSR    _00003
711        SUBD    #0
712        LBNE    _73
713_71
714        CLRA
715        CLRB
716_75
717        LDX     -12,U
718        LDB     ,-X
719        STX     -12,U
720        SEX
721        LDX     6,U
722        STB     ,X+
723        STX     6,U
724        SUBD    #0
725        LBEQ    _74
726_76
727        LDD     -2,U
728        ADDD    #1
729        STD     -2,U
730        LBRA    _75
731_74
732        LDD     -2,U
733        LEAS    ,U
734        PULS    U,PC
735isdigit
736        PSHS    U
737        LEAU    ,S
738        LDB     5,U
739        SEX
740        PSHS    D
741        LDD     #48
742        SUBD    ,S++
743        LBGT    _78
744        LDB     5,U
745        SEX
746        SUBD    #57
747        LBLE    _77
748_78
749        CLRA
750        CLRB
751        BRA     *+5
752_77
753        LDD     #1
754        PULS    U,PC
755isspace
756        PSHS    U
757        LEAU    ,S
758        LDB     5,U
759        SEX
760        SUBD    #32
761        LBEQ    _79
762        LDB     5,U
763        SEX
764        SUBD    #9
765        LBEQ    _79
766        LDB     5,U
767        SEX
768        SUBD    #10
769        LBEQ    _79
770        CLRA
771        CLRB
772        BRA     *+5
773_79
774        LDD     #1
775        PULS    U,PC
776isalpha
777        PSHS    U
778        LEAU    ,S
779        LDB     5,U
780        SEX
781        PSHS    D
782        LBSR    isupper
783        LEAS    2,S
784        SUBD    #0
785        LBNE    _80
786        LDB     5,U
787        SEX
788        PSHS    D
789        LBSR    islower
790        LEAS    2,S
791        SUBD    #0
792        LBNE    _80
793        LDB     5,U
794        SEX
795        SUBD    #95
796        LBEQ    _80
797        CLRA
798        CLRB
799        BRA     *+5
800_80
801        LDD     #1
802        PULS    U,PC
803isupper
804        PSHS    U
805        LEAU    ,S
806        LDB     5,U
807        SEX
808        PSHS    D
809        LDD     #65
810        SUBD    ,S++
811        LBGT    _82
812        LDB     5,U
813        SEX
814        SUBD    #90
815        LBLE    _81
816_82
817        CLRA
818        CLRB
819        BRA     *+5
820_81
821        LDD     #1
822        PULS    U,PC
823islower
824        PSHS    U
825        LEAU    ,S
826        LDB     5,U
827        SEX
828        PSHS    D
829        LDD     #97
830        SUBD    ,S++
831        LBGT    _84
832        LDB     5,U
833        SEX
834        SUBD    #122
835        LBLE    _83
836_84
837        CLRA
838        CLRB
839        BRA     *+5
840_83
841        LDD     #1
842        PULS    U,PC
843toupper
844        PSHS    U
845        LEAU    ,S
846        LDB     5,U
847        SEX
848        PSHS    D
849        LBSR    islower
850        LEAS    2,S
851        SUBD    #0
852        LBEQ    _85
853        LDB     5,U
854        SEX
855        ADDD    #-32
856        LBRA    _86
857_85
858        LDB     5,U
859        SEX
860_86
861        PULS    U,PC
862tolower
863        PSHS    U
864        LEAU    ,S
865        LDB     5,U
866        SEX
867        PSHS    D
868        LBSR    isupper
869        LEAS    2,S
870        SUBD    #0
871        LBEQ    _87
872        LDB     5,U
873        SEX
874        ADDD    #32
875        LBRA    _88
876_87
877        LDB     5,U
878        SEX
879_88
880        PULS    U,PC
881atoi
882        PSHS    U
883        LEAU    ,S
884        LEAS    -4,S
885_90
886        LDB     [4,U]
887        SEX
888        PSHS    D
889        LBSR    isspace
890        LEAS    2,S
891        SUBD    #0
892        LBEQ    _89
893        LDD     4,U
894        ADDD    #1
895        STD     4,U
896        LBRA    _90
897_89
898        LDB     [4,U]
899        SEX
900        SUBD    #45
901        LBEQ    _92
902        CLRA
903        CLRB
904        BRA     *+5
905_92
906        LDD     #1
907        SUBD    #0
908        LBEQ    _91
909        LDD     4,U
910        ADDD    #1
911        STD     4,U
912_91
913        CLRA
914        CLRB
915_94
916        LDB     [4,U]
917        SEX
918        PSHS    D
919        LBSR    isdigit
920        LEAS    2,S
921        SUBD    #0
922        LBEQ    _93
923        LDX     4,U
924        LDB     ,X+
925        STX     4,U
926        SEX
927        PSHS    D
928        LDD     -2,U
929        ASLB
930        ROLA
931        PSHS    D
932        ASLB
933        ROLA
934        ASLB
935        ROLA
936        ADDD    ,S++
937        ADDD    ,S++
938        SUBD    #48
939        LBRA    _94
940_93
941        LDD     -4,U
942        LBEQ    _95
943        LDD     -2,U
944        NEGA
945        NEGB
946        SBCA    #0
947        LBRA    _96
948_95
949        LDD     -2,U
950_96
951        LEAS    ,U
952        PULS    U,PC
953strlen
954        PSHS    U
955        LEAU    ,S
956        LEAS    -2,S
957        CLRA
958        CLRB
959_98
960        LDX     4,U
961        LDB     ,X+
962        STX     4,U
963        SEX
964        LBEQ    _97
965_99
966        LDD     -2,U
967        ADDD    #1
968        STD     -2,U
969        LBRA    _98
970_97
971        LDD     -2,U
972        PULS    X,U,PC
973strcat
974        PSHS    U
975        LEAU    ,S
976_101
977        LDB     [4,U]
978        SEX
979        LBEQ    _100
980        LDD     4,U
981        ADDD    #1
982        STD     4,U
983        LBRA    _101
984_100
985        LDD     6,U
986        PSHS    D
987        LDD     4,U
988        PSHS    D
989        LBSR    strcpy
990        LEAS    4,S
991        PULS    U,PC
992strcmp
993        PSHS    U
994        LEAU    ,S
995_103
996        LDB     [6,U]
997        SEX
998        PSHS    D
999        LDB     [4,U]
1000        SEX
1001        SUBD    ,S++
1002        LBNE    _102
1003        LDB     [4,U]
1004        SEX
1005        LBNE    _105
1006        LBRA    _102
1007_105
1008_104
1009        LDD     4,U
1010        ADDD    #1
1011        STD     4,U
1012        LDD     6,U
1013        ADDD    #1
1014        STD     6,U
1015        LBRA    _103
1016_102
1017        LDB     [6,U]
1018        SEX
1019        PSHS    D
1020        LDB     [4,U]
1021        SEX
1022        SUBD    ,S++
1023        PULS    U,PC
1024strcpy
1025        PSHS    U
1026        LEAU    ,S
1027_107
1028        LDX     6,U
1029        LDB     ,X+
1030        STX     6,U
1031        SEX
1032        LDX     4,U
1033        STB     ,X+
1034        STX     4,U
1035        SUBD    #0
1036        LBNE    _107
1037_106
1038        PULS    U,PC
1039gets
1040        PSHS    U
1041        LEAU    ,S
1042        LDD     0,Y
1043        PSHS    D
1044        LDD     6,U
1045        PSHS    D
1046        LDD     4,U
1047        PSHS    D
1048        LBSR    fgets
1049        LEAS    6,S
1050        PULS    U,PC
1051puts
1052        PSHS    U
1053        LEAU    ,S
1054        LDD     2,Y
1055        PSHS    D
1056        LDD     4,U
1057        PSHS    D
1058        LBSR    fputs
1059        LEAS    4,S
1060        PULS    U,PC
1061fgets
1062        PSHS    U
1063        LEAU    ,S
1064        LEAS    -3,S
1065        LDD     4,U
1066_109
1067        LDD     6,U
1068        ADDD    #-1
1069        STD     6,U
1070        SUBD    #0
1071        LBLE    _108
1072        LDD     8,U
1073        PSHS    D
1074        LBSR    getc
1075        LEAS    2,S
1076        SUBD    #-1
1077        LBNE    _110
1078        LBRA    _108
1079_110
1080        LDB     -1,U
1081        SEX
1082        LDX     4,U
1083        STB     ,X+
1084        STX     4,U
1085        SUBD    #10
1086        LBNE    _111
1087        LBRA    _108
1088_111
1089        LBRA    _109
1090_108
1091        CLRA
1092        CLRB
1093        STB     [4,U]
1094        LDB     -1,U
1095        SEX
1096        SUBD    #-1
1097        LBNE    _112
1098        LDD     4,U
1099        SUBD    -3,U
1100        LBNE    _112
1101        CLRA
1102        CLRB
1103        LBRA    _113
1104_112
1105        LDD     4,U
1106_113
1107        LEAS    ,U
1108        PULS    U,PC
1109fputs
1110        PSHS    U
1111        LEAU    ,S
1112_115
1113        LDB     [4,U]
1114        SEX
1115        LBEQ    _114
1116        LDD     6,U
1117        PSHS    D
1118        LDX     4,U
1119        LDB     ,X+
1120        STX     4,U
1121        SEX
1122        PSHS    D
1123        LBSR    putc
1124        LEAS    4,S
1125        LBRA    _115
1126_114
1127        PULS    U,PC
1128match
1129        PSHS    U
1130        LEAU    ,S
1131        LDB     [4,U]
1132        SEX
1133        CMPD    #42
1134        LBNE    _118
1135_117
1136        LDX     4,U
1137        LDB     1,X
1138        SEX
1139        LBNE    _119
1140        LDD     #1
1141        PULS    U,PC
1142_119
1143_121
1144        LDD     6,U
1145        PSHS    D
1146        LDD     4,U
1147        ADDD    #1
1148        PSHS    D
1149        LBSR    match
1150        LEAS    4,S
1151        SUBD    #0
1152        LBNE    _120
1153        LDX     6,U
1154        LDB     ,X+
1155        STX     6,U
1156        SEX
1157        LBNE    _122
1158        CLRA
1159        CLRB
1160        PULS    U,PC
1161_122
1162        LBRA    _121
1163_120
1164        LDD     #1
1165        PULS    U,PC
1166_118
1167        CMPD    #63
1168        LBNE    _124
1169_123
1170        LDB     [6,U]
1171        SEX
1172        LBEQ    _125
1173        LDD     6,U
1174        ADDD    #1
1175        PSHS    D
1176        LDD     4,U
1177        ADDD    #1
1178        PSHS    D
1179        LBSR    match
1180        LEAS    4,S
1181        LBRA    _126
1182_125
1183        CLRA
1184        CLRB
1185_126
1186        PULS    U,PC
1187_124
1188        CMPD    #0
1189        LBNE    _128
1190_127
1191        LDB     [6,U]
1192        SEX
1193        LBEQ    _129
1194        CLRA
1195        CLRB
1196        BRA     *+5
1197_129
1198        LDD     #1
1199        PULS    U,PC
1200_130
1201        LDB     [6,U]
1202        SEX
1203        PSHS    D
1204        LDB     [4,U]
1205        SEX
1206        SUBD    ,S++
1207        LBNE    _131
1208        LDD     6,U
1209        ADDD    #1
1210        PSHS    D
1211        LDD     4,U
1212        ADDD    #1
1213        PSHS    D
1214        LBSR    match
1215        LEAS    4,S
1216        PULS    U,PC
1217_131
1218        CLRA
1219        CLRB
1220        PULS    U,PC
1221_128    EQU     _130
1222_116
1223        PULS    U,PC
1224fopen
1225        PSHS    U
1226        LEAU    ,S
1227        LEAS    -10,S
1228        CLRA
1229        CLRB
1230        LDD     6,U
1231_133
1232        LDB     [-4,U]
1233        SEX
1234        LBEQ    _132
1235        LDB     [-4,U]
1236        SEX
1237        CMPD    #114
1238        LBNE    _137
1239_136
1240        LDD     #1
1241        LBRA    _135
1242_137
1243        CMPD    #119
1244        LBNE    _139
1245_138
1246        LDD     #1
1247        LBRA    _135
1248_139
1249        CMPD    #99
1250        LBNE    _141
1251_140
1252        LDD     #1
1253        LBRA    _135
1254_142
1255        CLRA
1256        CLRB
1257        LEAS    ,U
1258        PULS    U,PC
1259_141    EQU     _142
1260_135
1261_134
1262        LDD     -4,U
1263        ADDD    #1
1264        STD     -4,U
1265        SUBD    #1
1266        LBRA    _133
1267_132
1268        LDD     -8,U
1269        EORA    -6,U
1270        EORB    -6+1,U
1271        SUBD    #0
1272        LBNE    _143
1273        CLRA
1274        CLRB
1275        LEAS    ,U
1276        PULS    U,PC
1277_143
1278        LDD     -6,U
1279        LBEQ    _144
1280        LDD     -10,U
1281        PSHS    D
1282        LDD     4,U
1283        PSHS    D
1284        LBSR    _open
1285        LEAS    4,S
1286        LEAS    ,U
1287        PULS    U,PC
1288_144
1289        LDD     -10,U
1290        PSHS    D
1291        LDD     4,U
1292        PSHS    D
1293        LBSR    _create
1294        LEAS    4,S
1295        LEAS    ,U
1296        PULS    U,PC
1297_open
1298        PSHS    U
1299        LEAU    ,S
1300        LEAS    -4,S
1301        CLRA
1302        CLRB
1303_146
1304        LDD     -4,U
1305        SUBD    #16
1306        LBGE    _145
1307        LDD     -4,U
1308        ASLB
1309        ROLA
1310        LEAX    0,Y
1311        LDD     D,X
1312        SUBD    #0
1313        LBNE    _148
1314        LBRA    _145
1315_148
1316_147
1317        LDD     -4,U
1318        ADDD    #1
1319        STD     -4,U
1320        SUBD    #1
1321        LBRA    _146
1322_145
1323        LDD     -4,U
1324        SUBD    #16
1325        LBLT    _149
1326        CLRA
1327        CLRB
1328        LEAS    ,U
1329        PULS    U,PC
1330_149
1331        LDD     #320
1332        PSHS    D
1333        LBSR    malloc
1334        LEAS    2,S
1335        SUBD    #0
1336        LBNE    _150
1337        CLRA
1338        CLRB
1339        LEAS    ,U
1340        PULS    U,PC
1341_150
1342        LDD     -2,U
1343        PSHS    D
1344        LDD     4,U
1345        PSHS    D
1346        LBSR    _setname
1347        LEAS    4,S
1348        SUBD    #0
1349        LBNE    _151
1350        CLRA
1351        CLRB
1352        LEAS    ,U
1353        PULS    U,PC
1354_151
1355        LDD     #1
1356        PSHS    D
1357        LDD     -2,U
1358        PSHS    D
1359        LBSR    FMS
1360        LEAS    4,S
1361        SUBD    #0
1362        LBGE    _152
1363        CLRA
1364        CLRB
1365        LEAS    ,U
1366        PULS    U,PC
1367_152
1368        LDD     6,U
1369        LBEQ    _153
1370        CLRA
1371        CLRB
1372        LBRA    _154
1373_153
1374        LDD     #255
1375_154
1376        LDX     -2,U
1377        STB     59,X
1378        CLRA
1379        CLRB
1380        LDX     -2,U
1381        STB     60,X
1382        LDD     -4,U
1383        ASLB
1384        ROLA
1385        LEAX    0,Y
1386        LEAX    D,X
1387        LDD     -2,U
1388        STD     0,X
1389        LEAS    ,U
1390        PULS    U,PC
1391_create
1392        PSHS    U
1393        LEAU    ,S
1394        LEAS    -4,S
1395        CLRA
1396        CLRB
1397_156
1398        LDD     -4,U
1399        SUBD    #16
1400        LBGE    _155
1401        LDD     -4,U
1402        ASLB
1403        ROLA
1404        LEAX    0,Y
1405        LDD     D,X
1406        SUBD    #0
1407        LBNE    _158
1408        LBRA    _155
1409_158
1410_157
1411        LDD     -4,U
1412        ADDD    #1
1413        STD     -4,U
1414        SUBD    #1
1415        LBRA    _156
1416_155
1417        LDD     -4,U
1418        SUBD    #16
1419        LBLT    _159
1420        CLRA
1421        CLRB
1422        LEAS    ,U
1423        PULS    U,PC
1424_159
1425        LDD     #320
1426        PSHS    D
1427        LBSR    malloc
1428        LEAS    2,S
1429        SUBD    #0
1430        LBNE    _160
1431        CLRA
1432        CLRB
1433        LEAS    ,U
1434        PULS    U,PC
1435_160
1436        LDD     -2,U
1437        PSHS    D
1438        LDD     4,U
1439        PSHS    D
1440        LBSR    _setname
1441        LEAS    4,S
1442        SUBD    #0
1443        LBNE    _161
1444        CLRA
1445        CLRB
1446        LEAS    ,U
1447        PULS    U,PC
1448_161
1449        LDD     #2
1450        PSHS    D
1451        LDD     -2,U
1452        PSHS    D
1453        LBSR    FMS
1454        LEAS    4,S
1455        SUBD    #0
1456        LBGE    _162
1457        LDX     -2,U
1458        LDB     1,X
1459        SEX
1460        SUBD    #3
1461        LBNE    _164
1462        LDD     #12
1463        PSHS    D
1464        LDD     -2,U
1465        PSHS    D
1466        LBSR    FMS
1467        LEAS    4,S
1468        SUBD    #0
1469        LBGE    _163
1470_164
1471        CLRA
1472        CLRB
1473        LEAS    ,U
1474        PULS    U,PC
1475_163
1476        LDD     -2,U
1477        PSHS    D
1478        LDD     4,U
1479        PSHS    D
1480        LBSR    _setname
1481        LEAS    4,S
1482        LDD     #2
1483        PSHS    D
1484        LDD     -2,U
1485        PSHS    D
1486        LBSR    FMS
1487        LEAS    4,S
1488        SUBD    #0
1489        LBGE    _165
1490        CLRA
1491        CLRB
1492        LEAS    ,U
1493        PULS    U,PC
1494_165
1495_162
1496        CLRA
1497        CLRB
1498        LDX     -2,U
1499        STB     15,X
1500        LDD     6,U
1501        LBEQ    _166
1502        CLRA
1503        CLRB
1504        LBRA    _167
1505_166
1506        LDD     #255
1507_167
1508        LDX     -2,U
1509        STB     59,X
1510        CLRA
1511        CLRB
1512        LDX     -2,U
1513        STB     60,X
1514        LDD     -4,U
1515        ASLB
1516        ROLA
1517        LEAX    0,Y
1518        LEAX    D,X
1519        LDD     -2,U
1520        STD     0,X
1521        LEAS    ,U
1522        PULS    U,PC
1523fclose
1524        PSHS    U
1525        LEAU    ,S
1526        LEAS    -2,S
1527        CLRA
1528        CLRB
1529_169
1530        LDD     -2,U
1531        SUBD    #16
1532        LBGE    _168
1533        LDD     -2,U
1534        ASLB
1535        ROLA
1536        LEAX    0,Y
1537        LDD     D,X
1538        PSHS    D
1539        LDD     4,U
1540        SUBD    ,S++
1541        LBNE    _171
1542        LBRA    _168
1543_171
1544_170
1545        LDD     -2,U
1546        ADDD    #1
1547        STD     -2,U
1548        SUBD    #1
1549        LBRA    _169
1550_168
1551        LDD     -2,U
1552        SUBD    #16
1553        LBLT    _172
1554        LDD     #-1
1555        PULS    X,U,PC
1556_172
1557        LDD     -2,U
1558        ASLB
1559        ROLA
1560        LEAX    0,Y
1561        LEAX    D,X
1562        CLRA
1563        CLRB
1564        STD     0,X
1565        LDD     4,U
1566        SUBD    #65535
1567        LBEQ    _174
1568        LDD     4,U
1569        SUBD    #65534
1570        LBEQ    _174
1571        LDD     4,U
1572        SUBD    #65533
1573        LBNE    _173
1574_174
1575        CLRA
1576        CLRB
1577        PULS    X,U,PC
1578_173
1579        LDD     #4
1580        PSHS    D
1581        LDD     4,U
1582        PSHS    D
1583        LBSR    FMS
1584        LEAS    4,S
1585        SUBD    #0
1586        LBGE    _175
1587        LDD     #-1
1588        PULS    X,U,PC
1589_175
1590        LDD     4,U
1591        PSHS    D
1592        LBSR    mfree
1593        LEAS    2,S
1594        CLRA
1595        CLRB
1596        PULS    X,U,PC
1597_setname
1598        PSHS    U
1599        LEAU    ,S
1600        LEAS    -2,S
1601_177
1602        LDB     [4,U]
1603        SEX
1604        PSHS    D
1605        LBSR    isspace
1606        LEAS    2,S
1607        SUBD    #0
1608        LBEQ    _176
1609        LDD     4,U
1610        ADDD    #1
1611        STD     4,U
1612        LBRA    _177
1613_176
1614        LDB     [4,U]
1615        SEX
1616        PSHS    D
1617        LBSR    isdigit
1618        LEAS    2,S
1619        SUBD    #0
1620        LBEQ    _178
1621        LDX     4,U
1622        LDB     ,X+
1623        STX     4,U
1624        SEX
1625        SUBD    #48
1626        LDX     6,U
1627        STB     3,X
1628        LDX     4,U
1629        LDB     ,X+
1630        STX     4,U
1631        SEX
1632        SUBD    #46
1633        LBEQ    _179
1634        CLRA
1635        CLRB
1636        PULS    X,U,PC
1637_179
1638        LBRA    _180
1639_178
1640        LDD     #255
1641        LDX     6,U
1642        STB     3,X
1643_180
1644        LDD     #4
1645_182
1646        LDD     -2,U
1647        SUBD    #15
1648        LBGE    _181
1649        LDD     -2,U
1650        LDX     6,U
1651        LEAX    D,X
1652        CLRA
1653        CLRB
1654        STB     0,X
1655_183
1656        LDD     -2,U
1657        ADDD    #1
1658        STD     -2,U
1659        LBRA    _182
1660_181
1661        LDB     [4,U]
1662        SEX
1663        PSHS    D
1664        LBSR    isalpha
1665        LEAS    2,S
1666        SUBD    #0
1667        LBNE    _184
1668        LDD     #-1
1669        PULS    X,U,PC
1670_184
1671        LDD     #4
1672_186
1673        LDD     -2,U
1674        SUBD    #12
1675        LBGE    _185
1676        LDB     [4,U]
1677        SEX
1678        LBEQ    _189
1679        LDB     [4,U]
1680        SEX
1681        SUBD    #46
1682        LBNE    _188
1683_189
1684        LBRA    _185
1685_188
1686        LDX     4,U
1687        LDB     ,X+
1688        STX     4,U
1689        SEX
1690        PSHS    D
1691        LDD     -2,U
1692        LDX     6,U
1693        LEAX    D,X
1694        PULS    D
1695        STB     0,X
1696_187
1697        LDD     -2,U
1698        ADDD    #1
1699        STD     -2,U
1700        LBRA    _186
1701_185
1702_191
1703        LDB     [4,U]
1704        SEX
1705        LBEQ    _190
1706        LDB     [4,U]
1707        SEX
1708        SUBD    #46
1709        LBEQ    _190
1710        LDD     4,U
1711        ADDD    #1
1712        STD     4,U
1713        LBRA    _191
1714_190
1715        LDB     [4,U]
1716        SEX
1717        SUBD    #46
1718        LBNE    _192
1719        LDD     4,U
1720        ADDD    #1
1721        STD     4,U
1722        LDD     #12
1723_194
1724        LDD     -2,U
1725        SUBD    #15
1726        LBGE    _193
1727        LDB     [4,U]
1728        SEX
1729        LBNE    _196
1730        LBRA    _193
1731_196
1732        LDX     4,U
1733        LDB     ,X+
1734        STX     4,U
1735        SEX
1736        PSHS    D
1737        LDD     -2,U
1738        LDX     6,U
1739        LEAX    D,X
1740        PULS    D
1741        STB     0,X
1742_195
1743        LDD     -2,U
1744        ADDD    #1
1745        STD     -2,U
1746        LBRA    _194
1747_193
1748_192
1749        LDD     #1
1750        PULS    X,U,PC
1751fflush
1752        PSHS    U
1753        LEAU    ,S
1754        CLRA
1755        CLRB
1756        PULS    U,PC
1757unlink
1758        PSHS    U
1759        LEAU    ,S
1760        LEAS    -320,S
1761        LEAX    -320,U
1762        PSHS    X
1763        LDD     4,U
1764        PSHS    D
1765        LBSR    _setname
1766        LEAS    4,S
1767        SUBD    #0
1768        LBNE    _198
1769        LDD     #12
1770        PSHS    D
1771        LEAX    -320,U
1772        PSHS    X
1773        LBSR    FMS
1774        LEAS    4,S
1775        SUBD    #0
1776        LBGE    _197
1777_198
1778        LDD     #-1
1779        LBRA    _199
1780_197
1781        CLRA
1782        CLRB
1783_199
1784        LEAS    ,U
1785        PULS    U,PC
1786rename
1787        PSHS    U
1788        LEAU    ,S
1789        LEAS    -320,S
1790        LEAX    -320,U
1791        PSHS    X
1792        LDD     4,U
1793        PSHS    D
1794        LBSR    _setname
1795        LEAS    4,S
1796        SUBD    #0
1797        LBNE    _201
1798        LEAX    -271,U
1799        PSHS    X
1800        LDD     6,U
1801        PSHS    D
1802        LBSR    _setname
1803        LEAS    4,S
1804        SUBD    #0
1805        LBNE    _201
1806        LDD     #13
1807        PSHS    D
1808        LEAX    -320,U
1809        PSHS    X
1810        LBSR    FMS
1811        LEAS    4,S
1812        SUBD    #0
1813        LBGE    _200
1814_201
1815        LDD     #-1
1816        LBRA    _202
1817_200
1818        CLRA
1819        CLRB
1820_202
1821        LEAS    ,U
1822        PULS    U,PC
1823base    EQU     35
1824allocp  EQU     39
1825heap    EQU     41
1826malloc
1827        PSHS    U
1828        LEAU    ,S
1829        LEAS    -6,S
1830        LDD     #4
1831        PSHS    D
1832        LDD     4,U
1833        ADDD    #4
1834        SUBD    #1
1835        PULS    X
1836        LBSR    _00003
1837        ADDD    #1
1838        LDD     39,Y
1839        SUBD    #0
1840        LBNE    _203
1841        LEAX    35,Y
1842        TFR     X,D
1843        CLRA
1844        CLRB
1845_203
1846        LDD     [-4,U]
1847_205
1848        LDX     -2,U
1849        LDD     2,X
1850        SUBD    -6,U
1851        LBLO    _207
1852        LDX     -2,U
1853        LDD     2,X
1854        SUBD    -6,U
1855        LBNE    _208
1856        LDD     [-2,U]
1857        STD     [-4,U]
1858        LBRA    _209
1859_208
1860        LDD     -2,U
1861        ADDD    #2
1862        TFR     D,X
1863        LDD     0,X
1864        SUBD    -6,U
1865        STD     0,X
1866        LDX     -2,U
1867        LDD     2,X
1868        ASLB
1869        ROLA
1870        ASLB
1871        ROLA
1872        PSHS    D
1873        ADDD    ,S++
1874        LDD     -6,U
1875        LDX     -2,U
1876        STD     2,X
1877_209
1878        LDD     -4,U
1879        LDD     -2,U
1880        PSHS    D
1881        LBSR    clearblo
1882        LEAS    2,S
1883        LDD     -2,U
1884        ADDD    #4
1885        LEAS    ,U
1886        PULS    U,PC
1887_207
1888        LDD     -2,U
1889        SUBD    39,Y
1890        LBNE    _210
1891        LDD     -6,U
1892        PSHS    D
1893        LBSR    morecore
1894        LEAS    2,S
1895        SUBD    #0
1896        LBNE    _211
1897        CLRA
1898        CLRB
1899        LEAS    ,U
1900        PULS    U,PC
1901_211
1902_210
1903_206
1904        LDD     -2,U
1905        LDD     [-2,U]
1906        LBRA    _205
1907_204
1908        LEAS    ,U
1909        PULS    U,PC
1910clearblo
1911        PSHS    U
1912        LEAU    ,S
1913        LEAS    -4,S
1914        LDD     4,U
1915        ADDD    #4
1916        LDX     4,U
1917        LDD     2,X
1918        ASLB
1919        ROLA
1920        ASLB
1921        ROLA
1922        ADDD    4,U
1923_213
1924        LDD     -2,U
1925        SUBD    -4,U
1926        LBHS    _212
1927        CLRA
1928        CLRB
1929        LDX     -2,U
1930        STB     ,X+
1931        STX     -2,U
1932        LBRA    _213
1933_212
1934        PULS    D,X,U,PC
1935morecore
1936        PSHS    U
1937        LEAU    ,S
1938        LEAS    -6,S
1939        LDD     #128
1940        PSHS    D
1941        LDD     #128
1942        PSHS    D
1943        LDD     4,U
1944        ADDD    #128
1945        SUBD    #1
1946        PULS    X
1947        LBSR    _00003
1948        PULS    X
1949        LBSR    _00001
1950        LDD     -6,U
1951        ASLB
1952        ROLA
1953        ASLB
1954        ROLA
1955        PSHS    D
1956        LBSR    sbrk
1957        LEAS    2,S
1958        LDD     -2,U
1959        SUBD    #-1
1960        LBNE    _214
1961        CLRA
1962        CLRB
1963        LEAS    ,U
1964        PULS    U,PC
1965_214
1966        LDD     -2,U
1967        LDD     -6,U
1968        LDX     -4,U
1969        STD     2,X
1970        LDD     -4,U
1971        ADDD    #4
1972        PSHS    D
1973        LBSR    mfree
1974        LEAS    2,S
1975        LDD     39,Y
1976        LEAS    ,U
1977        PULS    U,PC
1978sbrk    PSHS    U
1979        LEAU    ,S
1980       
1981        LDD     heap,Y
1982        BNE     _mc0
1983        BSR     initheap
1984_mc0    PSHS    D
1985        TFR     S,D
1986        SUBD    ,S++
1987        CMPD    4,U
1988        BCC     _mc1
1989        LDD     #-1
1990        LEAS    ,U
1991        PULS    U,PC
1992       
1993_mc1    LDD     4,U
1994        LDX     heap,Y
1995        LEAX    D,X
1996        LDD     heap,Y
1997        STX     heap,Y
1998        LEAS    ,U
1999        PULS    U,PC
2000
2001initheap
2002        PSHS    U
2003        LEAU    ,S
2004        TFR     Y,D
2005        ADDD    #_GLOBALS
2006        STD     heap,Y
2007        LEAS    ,U
2008        PULS    U,PC
2009mfree
2010        PSHS    U
2011        LEAU    ,S
2012        LEAS    -4,S
2013        LDD     4,U
2014        SUBD    #4
2015        LDD     39,Y
2016_216
2017        LDD     -2,U
2018        SUBD    -4,U
2019        LBLS    _217
2020        LDD     [-4,U]
2021        PSHS    D
2022        LDD     -2,U
2023        SUBD    ,S++
2024        LBLO    _215
2025_217
2026        LDD     [-4,U]
2027        PSHS    D
2028        LDD     -4,U
2029        SUBD    ,S++
2030        LBLO    _219
2031        LDD     -2,U
2032        SUBD    -4,U
2033        LBHI    _220
2034        LDD     [-4,U]
2035        PSHS    D
2036        LDD     -2,U
2037        SUBD    ,S++
2038        LBHS    _219
2039_220
2040        LBRA    _215
2041_219
2042_218
2043        LDD     [-4,U]
2044        LBRA    _216
2045_215
2046        LDD     [-4,U]
2047        PSHS    D
2048        LDX     -2,U
2049        LDD     2,X
2050        ASLB
2051        ROLA
2052        ASLB
2053        ROLA
2054        ADDD    -2,U
2055        SUBD    ,S++
2056        LBNE    _221
2057        LDD     [-4,U]
2058        PSHS    D
2059        LDD     #2
2060        PULS    X
2061        LDD     D,X
2062        PSHS    D
2063        LDD     -2,U
2064        ADDD    #2
2065        TFR     D,X
2066        LDD     0,X
2067        ADDD    ,S++
2068        STD     0,X
2069        LDD     [-4,U]
2070        TFR     D,X
2071        LDD     0,X
2072        STD     [-2,U]
2073        LBRA    _222
2074_221
2075        LDD     [-4,U]
2076        STD     [-2,U]
2077_222
2078        LDX     -4,U
2079        LDD     2,X
2080        ASLB
2081        ROLA
2082        ASLB
2083        ROLA
2084        ADDD    -4,U
2085        SUBD    -2,U
2086        LBNE    _223
2087        LDX     -2,U
2088        LDD     2,X
2089        PSHS    D
2090        LDD     -4,U
2091        ADDD    #2
2092        TFR     D,X
2093        LDD     0,X
2094        ADDD    ,S++
2095        STD     0,X
2096        LDD     [-2,U]
2097        STD     [-4,U]
2098        LBRA    _224
2099_223
2100        LDD     -2,U
2101        STD     [-4,U]
2102_224
2103        LDD     -4,U
2104        PULS    D,X,U,PC
2105freesize
2106        PSHS    U
2107        LEAU    ,S
2108        LEAS    -2,S
2109        LDD     41,Y
2110        LBNE    _225
2111        LBSR    initheap
2112_225
2113        LEAX    -2,U
2114        TFR     X,D
2115        SUBD    41,Y
2116        PULS    X,U,PC
2117main
2118        PSHS    U
2119        LEAU    ,S
2120        LEAX    2,PC
2121        BRA     _226
2122        FCB     84,101,114,109,105,110,97,108
2123        FCB     32,101,109,117,108,97,116,111
2124        FCB     114,10,0
2125_226
2126        PSHS    X
2127        LBSR    printf
2128        LEAS    2,S
2129        LBSR    reminit
2130_228
2131        LEAX    2,PC
2132        BRA     _229
2133        FCB     10,84,40,101,114,109,32,44
2134        FCB     32,70,40,105,108,101,32,44
2135        FCB     32,69,40,120,105,116,32,58
2136        FCB     32,0
2137_229
2138        PSHS    X
2139        LBSR    printf
2140        LEAS    2,S
2141        LBSR    getchar
2142        PSHS    D
2143        LBSR    toupper
2144        LEAS    2,S
2145        CMPD    #84
2146        LBNE    _232
2147_231
2148        LBSR    term
2149        LBRA    _230
2150_232
2151        CMPD    #70
2152        LBNE    _234
2153_233
2154        LBSR    filer
2155        LBRA    _230
2156_234
2157        CMPD    #69
2158        LBNE    _236
2159_235
2160        LBSR    exit
2161_236
2162_230
2163        LBRA    _228
2164_227
2165        PULS    U,PC
2166term
2167        PSHS    U
2168        LEAU    ,S
2169        LEAS    -1,S
2170        LEAX    2,PC
2171        BRA     _237
2172        FCB     10,62,62,62,32,101,110,116
2173        FCB     101,114,32,116,101,114,109,105
2174        FCB     110,97,108,32,109,111,100,101
2175        FCB     32,60,99,116,108,45,64,32
2176        FCB     116,111,32,101,120,105,116,62
2177        FCB     10,0
2178_237
2179        PSHS    X
2180        LBSR    printf
2181        LEAS    2,S
2182        ORCC    #$50    disable interrupt
2183_239
2184        LBSR    remstat
2185        SUBD    #0
2186        LBEQ    _240
2187        LBSR    remread
2188        PSHS    D
2189        LBSR    conwrite
2190        LEAS    2,S
2191_240
2192        LBSR    constat
2193        SUBD    #0
2194        LBEQ    _241
2195        LBSR    conread
2196        SUBD    #0
2197        LBNE    _242
2198        LBRA    _238
2199_242
2200        LDB     -1,U
2201        SEX
2202        PSHS    D
2203        LBSR    remwrite
2204        LEAS    2,S
2205_241
2206        LBRA    _239
2207_238
2208        ANDCC   #$AF    restore interrupt mask
2209        PULS    A,U,PC
2210filer
2211        PSHS    U
2212        LEAU    ,S
2213        LEAX    2,PC
2214        BRA     _243
2215        FCB     10,62,62,62,32,101,110,116
2216        FCB     101,114,32,102,105,108,101,32
2217        FCB     116,114,97,110,115,102,101,114
2218        FCB     32,109,111,100,101,10,0
2219_243
2220        PSHS    X
2221        LBSR    printf
2222        LEAS    2,S
2223_245
2224        LEAX    2,PC
2225        BRA     _246
2226        FCB     10,68,105,114,101,99,116,105
2227        FCB     111,110,32,70,40,108,101,120
2228        FCB     45,62,117,110,105,120,32,44
2229        FCB     32,85,40,110,105,120,45,62
2230        FCB     102,108,101,120,32,44,32,69
2231        FCB     40,120,105,116,32,58,32,0
2232_246
2233        PSHS    X
2234        LBSR    printf
2235        LEAS    2,S
2236        LBSR    getchar
2237        PSHS    D
2238        LBSR    toupper
2239        LEAS    2,S
2240        CMPD    #70
2241        LBNE    _249
2242_248
2243        LBSR    flex_uni
2244        LBRA    _247
2245_249
2246        CMPD    #85
2247        LBNE    _251
2248_250
2249        LBSR    unix_fle
2250        LBRA    _247
2251_251
2252        CMPD    #69
2253        LBNE    _253
2254_252
2255        PULS    U,PC
2256_253
2257_247
2258        LBRA    _245
2259_244
2260        PULS    U,PC
2261flex_uni
2262        PSHS    U
2263        LEAU    ,S
2264        LEAS    -163,S
2265        LEAX    2,PC
2266        BRA     _254
2267        FCB     10,70,76,69,88,32,116,111
2268        FCB     32,85,78,73,88,32,102,105
2269        FCB     108,101,32,116,114,97,110,115
2270        FCB     102,101,114,10,0
2271_254
2272        PSHS    X
2273        LBSR    printf
2274        LEAS    2,S
2275        LEAX    2,PC
2276        BRA     _255
2277        FCB     70,76,69,88,32,102,105,108
2278        FCB     101,32,110,97,109,101,32,58
2279        FCB     32,0
2280_255
2281        PSHS    X
2282        LBSR    printf
2283        LEAS    2,S
2284        LDD     #80
2285        PSHS    D
2286        LEAX    -80,U
2287        PSHS    X
2288        LBSR    gets
2289        LEAS    4,S
2290        LEAX    2,PC
2291        BRA     _256
2292        FCB     10,0
2293_256
2294        PSHS    X
2295        LBSR    printf
2296        LEAS    2,S
2297        LEAX    -80,U
2298        PSHS    X
2299        LBSR    toupstr
2300        LEAS    2,S
2301        LEAX    2,PC
2302        BRA     _258
2303        FCB     114,99,0
2304_258
2305        PSHS    X
2306        LEAX    -80,U
2307        PSHS    X
2308        LBSR    fopen
2309        LEAS    4,S
2310        SUBD    #0
2311        LBHS    _257
2312        LEAX    -80,U
2313        PSHS    X
2314        LEAX    2,PC
2315        BRA     _259
2316        FCB     67,97,110,39,116,32,111,112
2317        FCB     101,110,32,37,115,10,0
2318_259
2319        PSHS    X
2320        LBSR    printf
2321        LEAS    4,S
2322        LEAS    ,U
2323        PULS    U,PC
2324_257
2325        LEAX    2,PC
2326        BRA     _260
2327        FCB     85,78,73,88,32,102,105,108
2328        FCB     101,32,110,97,109,101,32,58
2329        FCB     32,0
2330_260
2331        PSHS    X
2332        LBSR    printf
2333        LEAS    2,S
2334        LDD     #80
2335        PSHS    D
2336        LEAX    -160,U
2337        PSHS    X
2338        LBSR    gets
2339        LEAS    4,S
2340        LEAX    2,PC
2341        BRA     _261
2342        FCB     10,0
2343_261
2344        PSHS    X
2345        LBSR    printf
2346        LEAS    2,S
2347        LEAX    2,PC
2348        BRA     _262
2349        FCB     99,97,116,32,47,100,101,118
2350        FCB     47,116,116,121,32,62,0
2351_262
2352        PSHS    X
2353        LBSR    tx_str
2354        LEAS    2,S
2355        LEAX    -160,U
2356        PSHS    X
2357        LBSR    tx_str
2358        LEAS    2,S
2359        LDD     #10
2360        PSHS    D
2361        LBSR    tx_char
2362        LEAS    2,S
2363_264
2364        LDD     -163,U
2365        PSHS    D
2366        LBSR    getc
2367        LEAS    2,S
2368        SUBD    #-1
2369        LBEQ    _263
2370        LDB     -161,U
2371        SEX
2372        PSHS    D
2373        LBSR    tx_char
2374        LEAS    2,S
2375        LBRA    _264
2376_263
2377        LDD     #4
2378        PSHS    D
2379        LBSR    remwrite
2380        LEAS    2,S
2381        LDD     -163,U
2382        PSHS    D
2383        LBSR    fclose
2384        LEAS    2,S
2385        LEAS    ,U
2386        PULS    U,PC
2387unix_fle
2388        PSHS    U
2389        LEAU    ,S
2390        LEAS    -421,S
2391        LEAX    2,PC
2392        BRA     _265
2393        FCB     10,85,78,73,88,32,116,111
2394        FCB     32,70,76,69,88,32,102,105
2395        FCB     108,101,32,116,114,97,110,115
2396        FCB     102,101,114,10,0
2397_265
2398        PSHS    X
2399        LBSR    printf
2400        LEAS    2,S
2401        LEAX    2,PC
2402        BRA     _266
2403        FCB     85,78,73,88,32,102,105,108
2404        FCB     101,32,110,97,109,101,32,58
2405        FCB     32,0
2406_266
2407        PSHS    X
2408        LBSR    printf
2409        LEAS    2,S
2410        LDD     #80
2411        PSHS    D
2412        LEAX    -80,U
2413        PSHS    X
2414        LBSR    gets
2415        LEAS    4,S
2416        LEAX    2,PC
2417        BRA     _267
2418        FCB     10,70,76,69,88,32,102,105
2419        FCB     108,101,32,110,97,109,101,32
2420        FCB     58,32,0
2421_267
2422        PSHS    X
2423        LBSR    printf
2424        LEAS    2,S
2425        LDD     #80
2426        PSHS    D
2427        LEAX    -160,U
2428        PSHS    X
2429        LBSR    gets
2430        LEAS    4,S
2431        LEAX    2,PC
2432        BRA     _268
2433        FCB     10,0
2434_268
2435        PSHS    X
2436        LBSR    printf
2437        LEAS    2,S
2438        LEAX    -160,U
2439        PSHS    X
2440        LBSR    toupstr
2441        LEAS    2,S
2442        LEAX    2,PC
2443        BRA     _270
2444        FCB     119,99,0
2445_270
2446        PSHS    X
2447        LEAX    -160,U
2448        PSHS    X
2449        LBSR    fopen
2450        LEAS    4,S
2451        SUBD    #0
2452        LBHS    _269
2453        LEAX    -160,U
2454        PSHS    X
2455        LEAX    2,PC
2456        BRA     _271
2457        FCB     67,97,110,39,116,32,99,114
2458        FCB     101,97,116,101,32,37,115,10
2459        FCB     0
2460_271
2461        PSHS    X
2462        LBSR    printf
2463        LEAS    4,S
2464        LEAS    ,U
2465        PULS    U,PC
2466_269
2467        LEAX    2,PC
2468        BRA     _272
2469        FCB     47,109,110,116,47,115,121,115
2470        FCB     47,116,101,122,117,107,97,47
2471        FCB     117,110,105,120,95,102,108,101
2472        FCB     120,47,117,110,105,120,95,102
2473        FCB     108,101,120,32,0
2474_272
2475        PSHS    X
2476        LBSR    tx_str
2477        LEAS    2,S
2478        LEAX    -80,U
2479        PSHS    X
2480        LBSR    tx_str
2481        LEAS    2,S
2482        LDD     #10
2483        PSHS    D
2484        LBSR    tx_char
2485        LEAS    2,S
2486_274
2487        CLRA
2488        CLRB
2489_276
2490        LBSR    remread
2491        SUBD    #10
2492        LBEQ    _275
2493        LDB     -161,U
2494        SEX
2495        SUBD    #27
2496        LBNE    _277
2497        LDD     -163,U
2498        PSHS    D
2499        LBSR    fclose
2500        LEAS    2,S
2501        LEAS    ,U
2502        PULS    U,PC
2503_277
2504        LDD     -165,U
2505        ADDD    #1
2506        STD     -165,U
2507        SUBD    #1
2508        LEAX    -421,U
2509        LEAX    D,X
2510        LDB     -161,U
2511        SEX
2512        STB     0,X
2513        LBRA    _276
2514_275
2515        LDD     -165,U
2516        ADDD    #1
2517        STD     -165,U
2518        SUBD    #1
2519        LEAX    -421,U
2520        LEAX    D,X
2521        LDD     #10
2522        STB     0,X
2523        LDD     -165,U
2524        LEAX    -421,U
2525        LEAX    D,X
2526        CLRA
2527        CLRB
2528        STB     0,X
2529        CLRA
2530        CLRB
2531_279
2532        LDD     -165,U
2533        LEAX    -421,U
2534        LDB     D,X
2535        SEX
2536        LBEQ    _278
2537        LDD     -163,U
2538        PSHS    D
2539        LDD     -165,U
2540        LEAX    -421,U
2541        LDB     D,X
2542        SEX
2543        PSHS    D
2544        LBSR    putc
2545        LEAS    4,S
2546_280
2547        LDD     -165,U
2548        ADDD    #1
2549        STD     -165,U
2550        SUBD    #1
2551        LBRA    _279
2552_278
2553        LDD     #27
2554        PSHS    D
2555        LBSR    remwrite
2556        LEAS    2,S
2557        LDD     #46
2558        PSHS    D
2559        LBSR    putchar
2560        LEAS    2,S
2561        LBRA    _274
2562_273
2563        LEAS    ,U
2564        PULS    U,PC
2565toupstr
2566        PSHS    U
2567        LEAU    ,S
2568_282
2569        LDB     [4,U]
2570        SEX
2571        LBEQ    _281
2572        LDB     [4,U]
2573        SEX
2574        PSHS    D
2575        LBSR    toupper
2576        LEAS    2,S
2577        STB     [4,U]
2578        LDD     4,U
2579        ADDD    #1
2580        STD     4,U
2581        LBRA    _282
2582_281
2583        PULS    U,PC
2584tx_str
2585        PSHS    U
2586        LEAU    ,S
2587_284
2588        LDB     [4,U]
2589        SEX
2590        LBEQ    _283
2591        LDX     4,U
2592        LDB     ,X+
2593        STX     4,U
2594        SEX
2595        PSHS    D
2596        LBSR    tx_char
2597        LEAS    2,S
2598        LBRA    _284
2599_283
2600        PULS    U,PC
2601tx_char
2602        PSHS    U
2603        LEAU    ,S
2604        LDB     5,U
2605        SEX
2606        PSHS    D
2607        LBSR    remwrite
2608        LEAS    2,S
2609_286
2610        LBSR    remread
2611        PSHS    D
2612        LDB     5,U
2613        SEX
2614        SUBD    ,S++
2615        LBNE    _286
2616_285
2617        LDB     5,U
2618        SEX
2619        PSHS    D
2620        LBSR    putchar
2621        LEAS    2,S
2622        PULS    U,PC
2623constat
2624        PSHS    U
2625        LEAU    ,S
2626        LDD     #65408
2627        TFR     D,X
2628        LDB     0,X
2629        SEX
2630        ANDA    #0
2631        ANDB    #1
2632        PULS    U,PC
2633conread
2634        PSHS    U
2635        LEAU    ,S
2636_288
2637        LBSR    constat
2638        SUBD    #0
2639        LBEQ    _288
2640_287
2641        LDD     #65409
2642        TFR     D,X
2643        LDB     0,X
2644        SEX
2645        ANDA    #0
2646        ANDB    #127
2647        PULS    U,PC
2648conwrite
2649        PSHS    U
2650        LEAU    ,S
2651_290
2652        LDD     #65408
2653        TFR     D,X
2654        LDB     0,X
2655        SEX
2656        ANDA    #0
2657        ANDB    #2
2658        SUBD    #0
2659        LBEQ    _290
2660_289
2661        LDD     #65409
2662        TFR     D,X
2663        LDB     5,U
2664        SEX
2665        STB     0,X
2666        PULS    U,PC
2667reminit
2668        PSHS    U
2669        LEAU    ,S
2670        LDD     #65424
2671        TFR     D,X
2672        LDD     #67
2673        STB     0,X
2674        LDD     #65424
2675        TFR     D,X
2676        LDD     #21
2677        STB     0,X
2678        PULS    U,PC
2679remstat
2680        PSHS    U
2681        LEAU    ,S
2682        LDD     #65424
2683        TFR     D,X
2684        LDB     0,X
2685        SEX
2686        ANDA    #0
2687        ANDB    #1
2688        PULS    U,PC
2689remread
2690        PSHS    U
2691        LEAU    ,S
2692_292
2693        LBSR    remstat
2694        SUBD    #0
2695        LBEQ    _292
2696_291
2697        LDD     #65425
2698        TFR     D,X
2699        LDB     0,X
2700        SEX
2701        ANDA    #0
2702        ANDB    #127
2703        PULS    U,PC
2704remwrite
2705        PSHS    U
2706        LEAU    ,S
2707_294
2708        LDD     #65424
2709        TFR     D,X
2710        LDB     0,X
2711        SEX
2712        ANDA    #0
2713        ANDB    #2
2714        SUBD    #0
2715        LBEQ    _294
2716_293
2717        LDD     #65425
2718        TFR     D,X
2719        LDB     5,U
2720        SEX
2721        STB     0,X
2722        PULS    U,PC
2723_2      RTS
2724_INITIALIZE     EQU     _1
2725_GLOBALS        EQU     43
2726        END
Note: See TracBrowser for help on using the repository browser.