|
2537
|
1 nam Uloada
|
|
|
2 ttl program module
|
|
|
3
|
|
|
4 ifp1
|
|
|
5 use defsfile
|
|
|
6 endc
|
|
2400
|
7
|
|
2537
|
8 tylg set Prgrm+Objct
|
|
|
9 atrv set ReEnt+rev
|
|
|
10 rev set $01
|
|
|
11
|
|
|
12 mod eom,name,tylg,atrv,start,size
|
|
|
13
|
|
|
14 U0000 rmb 1
|
|
|
15 U0001 rmb 200
|
|
|
16 U00C9 rmb 1
|
|
|
17 U00CA rmb 599
|
|
|
18 size equ .
|
|
2400
|
19
|
|
2537
|
20 name fcs /Uloada/ * 000D 55 6C 6F 61 64 E1 Uloada
|
|
|
21 L0013 fcb $45 * 0013 45 E
|
|
|
22 fcb $6E * 0014 6E n
|
|
|
23 fcb $74 * 0015 74 t
|
|
|
24 fcb $65 * 0016 65 e
|
|
|
25 fcb $72 * 0017 72 r
|
|
|
26 fcb $20 * 0018 20
|
|
|
27 fcb $66 * 0019 66 f
|
|
|
28 fcb $69 * 001A 69 i
|
|
|
29 fcb $6C * 001B 6C l
|
|
|
30 fcb $65 * 001C 65 e
|
|
|
31 fcb $6E * 001D 6E n
|
|
|
32 fcb $61 * 001E 61 a
|
|
|
33 fcb $6D * 001F 6D m
|
|
|
34 fcb $65 * 0020 65 e
|
|
|
35 fcb $20 * 0021 20
|
|
|
36 fcb $74 * 0022 74 t
|
|
|
37 fcb $6F * 0023 6F o
|
|
|
38 fcb $20 * 0024 20
|
|
|
39 fcb $75 * 0025 75 u
|
|
|
40 fcb $70 * 0026 70 p
|
|
|
41 fcb $6C * 0027 6C l
|
|
|
42 fcb $6F * 0028 6F o
|
|
|
43 fcb $61 * 0029 61 a
|
|
|
44 fcb $64 * 002A 64 d
|
|
|
45 L002B fcb $50 * 002B 50 P
|
|
|
46 fcb $72 * 002C 72 r
|
|
|
47 fcb $65 * 002D 65 e
|
|
|
48 fcb $73 * 002E 73 s
|
|
|
49 fcb $73 * 002F 73 s
|
|
|
50 fcb $20 * 0030 20
|
|
|
51 fcb $3C * 0031 3C <
|
|
|
52 fcb $43 * 0032 43 C
|
|
|
53 fcb $54 * 0033 54 T
|
|
|
54 fcb $52 * 0034 52 R
|
|
|
55 fcb $4C * 0035 4C L
|
|
|
56 fcb $3E * 0036 3E >
|
|
|
57 fcb $3C * 0037 3C <
|
|
|
58 fcb $54 * 0038 54 T
|
|
|
59 fcb $3E * 0039 3E >
|
|
|
60 fcb $20 * 003A 20
|
|
|
61 fcb $74 * 003B 74 t
|
|
|
62 fcb $6F * 003C 6F o
|
|
|
63 fcb $20 * 003D 20
|
|
|
64 fcb $74 * 003E 74 t
|
|
|
65 fcb $65 * 003F 65 e
|
|
|
66 fcb $72 * 0040 72 r
|
|
|
67 fcb $6D * 0041 6D m
|
|
|
68 fcb $69 * 0042 69 i
|
|
|
69 fcb $6E * 0043 6E n
|
|
|
70 fcb $61 * 0044 61 a
|
|
|
71 fcb $6C * 0045 6C l
|
|
|
72 fcb $20 * 0046 20
|
|
|
73 fcb $75 * 0047 75 u
|
|
|
74 fcb $70 * 0048 70 p
|
|
|
75 fcb $6C * 0049 6C l
|
|
|
76 fcb $6F * 004A 6F o
|
|
|
77 fcb $61 * 004B 61 a
|
|
|
78 fcb $64 * 004C 64 d
|
|
|
79 fcb $0A * 004D 0A .
|
|
|
80 fcb $0D * 004E 0D .
|
|
|
81 fcb $50 * 004F 50 P
|
|
|
82 fcb $72 * 0050 72 r
|
|
|
83 fcb $65 * 0051 65 e
|
|
|
84 fcb $73 * 0052 73 s
|
|
|
85 fcb $73 * 0053 73 s
|
|
|
86 fcb $20 * 0054 20
|
|
|
87 fcb $3C * 0055 3C <
|
|
|
88 fcb $43 * 0056 43 C
|
|
|
89 fcb $54 * 0057 54 T
|
|
|
90 fcb $52 * 0058 52 R
|
|
|
91 fcb $4C * 0059 4C L
|
|
|
92 fcb $3E * 005A 3E >
|
|
|
93 fcb $3C * 005B 3C <
|
|
|
94 fcb $58 * 005C 58 X
|
|
|
95 fcb $3E * 005D 3E >
|
|
|
96 fcb $20 * 005E 20
|
|
|
97 fcb $74 * 005F 74 t
|
|
|
98 fcb $6F * 0060 6F o
|
|
|
99 fcb $20 * 0061 20
|
|
|
100 fcb $63 * 0062 63 c
|
|
|
101 fcb $61 * 0063 61 a
|
|
|
102 fcb $6E * 0064 6E n
|
|
|
103 fcb $63 * 0065 63 c
|
|
|
104 fcb $65 * 0066 65 e
|
|
|
105 fcb $6C * 0067 6C l
|
|
|
106 fcb $0A * 0068 0A .
|
|
|
107 fcb $0D * 0069 0D .
|
|
|
108 L006A fcb $0A * 006A 0A .
|
|
|
109 fcb $3A * 006B 3A :
|
|
|
110 start lda 0,X * 006C A6 84 &.
|
|
|
111 cmpa #13 * 006E 81 0D ..
|
|
|
112 bne L008B * 0070 26 19 &.
|
|
|
113 leax L0013,PC * 0072 30 8D FF 9D 0...
|
|
|
114 ldy #24 * 0076 10 8E 00 18 ....
|
|
|
115 lda #1 * 007A 86 01 ..
|
|
|
116 os9 I$Write * 007C 10 3F 8A .?.
|
|
|
117 leax U0001,U * 007F 30 41 0A
|
|
|
118 ldy #200 * 0081 10 8E 00 C8 ...H
|
|
|
119 clra * 0085 4F O
|
|
|
120 os9 I$ReadLn * 0086 10 3F 8B .?.
|
|
|
121 leax U0001,U * 0089 30 41 0A
|
|
|
122 L008B lda #3 * 008B 86 03 ..
|
|
|
123 ldb #27 * 008D C6 1B F.
|
|
|
124 os9 I$Create * 008F 10 3F 83 .?.
|
|
|
125 lbcs L00F0 * 0092 10 25 00 5A .%.Z
|
|
|
126 sta U0000,U * 0096 A7 C4 'D
|
|
|
127 leax L002B,PC * 0098 30 8D FF 8F 0...
|
|
|
128 ldy #63 * 009C 10 8E 00 3F ...?
|
|
|
129 lda #1 * 00A0 86 01 ..
|
|
|
130 os9 I$Write * 00A2 10 3F 8A .?.
|
|
|
131 leax L006A,PC * 00A5 30 8D FF C1 0..A
|
|
|
132 ldy #2 * 00A9 10 8E 00 02 ....
|
|
|
133 lda #1 * 00AD 86 01 ..
|
|
|
134 os9 I$Write * 00AF 10 3F 8A .?.
|
|
|
135 L00B2 clra * 00B2 4F O
|
|
|
136 ldb #1 * 00B3 C6 01 F.
|
|
|
137 os9 I$GetStt * 00B5 10 3F 8D .?.
|
|
|
138 bcs L00B2 * 00B8 25 F8 %x
|
|
|
139 ldy #1 * 00BA 10 8E 00 01 ....
|
|
|
140 leax >U00C9,U * 00BE 30 C9 00 C9 0I.I
|
|
|
141 os9 I$Read * 00C2 10 3F 89 .?.
|
|
|
142 lda 0,X * 00C5 A6 84 &.
|
|
|
143 cmpa #20 * 00C7 81 14 ..
|
|
|
144 beq L00EF * 00C9 27 24 '$
|
|
|
145 cmpa #24 * 00CB 81 18 ..
|
|
|
146 beq L00EB * 00CD 27 1C '.
|
|
|
147 lda U0000,U * 00CF A6 C4 &D
|
|
|
148 os9 I$Write * 00D1 10 3F 8A .?.
|
|
|
149 lda 0,X * 00D4 A6 84 &.
|
|
|
150 cmpa #13 * 00D6 81 0D ..
|
|
|
151 beq L00DC * 00D8 27 02 '.
|
|
|
152 bra L00B2 * 00DA 20 D6 V
|
|
|
153 L00DC leax L006A,PC * 00DC 30 8D FF 8A 0...
|
|
|
154 ldy #2 * 00E0 10 8E 00 02 ....
|
|
|
155 lda #1 * 00E4 86 01 ..
|
|
|
156 os9 I$Write * 00E6 10 3F 8A .?.
|
|
|
157 bra L00B2 * 00E9 20 C7 G
|
|
|
158 L00EB lda #1 * 00EB 86 01 ..
|
|
|
159 bra L00F0 * 00ED 20 01 .
|
|
|
160 L00EF clrb * 00EF 5F _
|
|
|
161 L00F0 os9 F$Exit * 00F0 10 3F 06 .?.
|
|
|
162
|
|
|
163 emod
|
|
|
164 eom equ *
|
|
|
165 end
|
