2400
|
1 nam T1mon
|
|
2 ttl program module
|
|
3
|
|
4 * Disassembled 2010/01/24 10:49:30 by Disasm v1.5 (C) 1988 by RML
|
|
5
|
|
6 ifp1
|
2402
|
7 use defsfile
|
2400
|
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 2
|
|
15 u0003 rmb 1
|
|
16 u0004 rmb 1
|
|
17 u0005 rmb 1
|
|
18 u0006 rmb 2
|
|
19 u0008 rmb 32
|
|
20 u0028 rmb 600
|
|
21 size equ .
|
|
22 name equ *
|
|
23 fcs /T1mon/
|
|
24 fcb $43 C
|
|
25 fcb $6F o
|
|
26 fcb $70 p
|
|
27 fcb $79 y
|
|
28 fcb $72 r
|
|
29 fcb $69 i
|
|
30 fcb $67 g
|
|
31 fcb $68 h
|
|
32 fcb $74 t
|
|
33 fcb $20
|
|
34 fcb $28 (
|
|
35 fcb $43 C
|
|
36 fcb $29 )
|
|
37 fcb $20
|
|
38 fcb $31 1
|
|
39 fcb $39 9
|
|
40 fcb $38 8
|
|
41 fcb $38 8
|
|
42 fcb $42 B
|
|
43 fcb $79 y
|
|
44 fcb $20
|
|
45 fcb $4B K
|
|
46 fcb $65 e
|
|
47 fcb $69 i
|
|
48 fcb $74 t
|
|
49 fcb $68 h
|
|
50 fcb $20
|
|
51 fcb $41 A
|
|
52 fcb $6C l
|
|
53 fcb $70 p
|
|
54 fcb $68 h
|
|
55 fcb $6F o
|
|
56 fcb $6E n
|
|
57 fcb $73 s
|
|
58 fcb $6F o
|
|
59 fcb $4C L
|
|
60 fcb $69 i
|
|
61 fcb $63 c
|
|
62 fcb $65 e
|
|
63 fcb $6E n
|
|
64 fcb $63 c
|
|
65 fcb $65 e
|
|
66 fcb $64 d
|
|
67 fcb $20
|
|
68 fcb $74 t
|
|
69 fcb $6F o
|
|
70 fcb $20
|
|
71 fcb $41 A
|
|
72 fcb $6C l
|
|
73 fcb $70 p
|
|
74 fcb $68 h
|
|
75 fcb $61 a
|
|
76 fcb $20
|
|
77 fcb $53 S
|
|
78 fcb $6F o
|
|
79 fcb $66 f
|
|
80 fcb $74 t
|
|
81 fcb $77 w
|
|
82 fcb $61 a
|
|
83 fcb $72 r
|
|
84 fcb $65 e
|
|
85 fcb $20
|
|
86 fcb $54 T
|
|
87 fcb $65 e
|
|
88 fcb $63 c
|
|
89 fcb $68 h
|
|
90 fcb $6E n
|
|
91 fcb $6F o
|
|
92 fcb $6C l
|
|
93 fcb $6F o
|
|
94 fcb $67 g
|
|
95 fcb $69 i
|
|
96 fcb $65 e
|
|
97 fcb $73 s
|
|
98 fcb $41 A
|
|
99 fcb $6C l
|
|
100 fcb $6C l
|
|
101 fcb $20
|
|
102 fcb $72 r
|
|
103 fcb $69 i
|
|
104 fcb $67 g
|
|
105 fcb $68 h
|
|
106 fcb $74 t
|
|
107 fcb $73 s
|
|
108 fcb $20
|
|
109 fcb $72 r
|
|
110 fcb $65 e
|
|
111 fcb $73 s
|
|
112 fcb $65 e
|
|
113 fcb $72 r
|
|
114 fcb $76 v
|
|
115 fcb $65 e
|
|
116 fcb $64 d
|
|
117 fcb $EC l
|
|
118 fcb $E6 f
|
|
119 fcb $EA j
|
|
120 fcb $F5 u
|
|
121 fcb $E9 i
|
|
122 fcb $A0
|
|
123 fcb $E2 b
|
|
124 fcb $ED m
|
|
125 fcb $F1 q
|
|
126 fcb $E9 i
|
|
127 fcb $F0 p
|
|
128 fcb $EF o
|
|
129 fcb $F4 t
|
|
130 fcb $F0 p
|
|
131 L007D fcb $4C L
|
|
132 fcb $6F o
|
|
133 fcb $67 g
|
|
134 fcb $69 i
|
|
135 fcb $6E n
|
|
136 fcb $0D
|
|
137 fcb $4D M
|
|
138 fcb $6F o
|
|
139 fcb $6E n
|
|
140 fcb $69 i
|
|
141 fcb $74 t
|
|
142 fcb $6F o
|
|
143 fcb $72 r
|
|
144 fcb $0D
|
|
145 L008B fcb $0D
|
|
146 fcb $0A
|
|
147 fcb $4D M
|
|
148 fcb $6F o
|
|
149 fcb $6E n
|
|
150 fcb $69 i
|
|
151 fcb $74 t
|
|
152 fcb $6F o
|
|
153 fcb $72 r
|
|
154 fcb $69 i
|
|
155 fcb $6E n
|
|
156 fcb $67 g
|
|
157 fcb $20
|
|
158 L0098 fcb $31 1
|
|
159 fcb $31 1
|
|
160 fcb $30 0
|
|
161 fcb $20
|
|
162 fcb $20
|
|
163 fcb $42 B
|
|
164 fcb $61 a
|
|
165 fcb $75 u
|
|
166 fcb $64 d
|
|
167 fcb $20
|
|
168 fcb $33 3
|
|
169 fcb $30 0
|
|
170 fcb $30 0
|
|
171 fcb $20
|
|
172 fcb $20
|
|
173 fcb $42 B
|
|
174 fcb $61 a
|
|
175 fcb $75 u
|
|
176 fcb $64 d
|
|
177 fcb $20
|
|
178 fcb $36 6
|
|
179 fcb $30 0
|
|
180 fcb $30 0
|
|
181 fcb $20
|
|
182 fcb $20
|
|
183 fcb $42 B
|
|
184 fcb $61 a
|
|
185 fcb $75 u
|
|
186 fcb $64 d
|
|
187 fcb $20
|
|
188 fcb $31 1
|
|
189 fcb $32 2
|
|
190 fcb $30 0
|
|
191 fcb $30 0
|
|
192 fcb $20
|
|
193 fcb $42 B
|
|
194 fcb $61 a
|
|
195 fcb $75 u
|
|
196 fcb $64 d
|
|
197 fcb $20
|
|
198 fcb $32 2
|
|
199 fcb $34 4
|
|
200 fcb $30 0
|
|
201 fcb $30 0
|
|
202 fcb $20
|
|
203 fcb $42 B
|
|
204 fcb $61 a
|
|
205 fcb $75 u
|
|
206 fcb $64 d
|
|
207 fcb $20
|
|
208 L00CA fcb $38 8
|
|
209 fcb $20
|
|
210 fcb $62 b
|
|
211 fcb $69 i
|
|
212 fcb $74 t
|
|
213 fcb $73 s
|
|
214 fcb $2C ,
|
|
215 fcb $20
|
|
216 fcb $6E n
|
|
217 fcb $6F o
|
|
218 fcb $20
|
|
219 fcb $70 p
|
|
220 fcb $61 a
|
|
221 fcb $72 r
|
|
222 fcb $69 i
|
|
223 fcb $74 t
|
|
224 fcb $79 y
|
|
225 fcb $0D
|
|
226 L00DC fcb $55 U
|
|
227 fcb $73 s
|
|
228 fcb $65 e
|
|
229 fcb $72 r
|
|
230 fcb $20
|
|
231 fcb $6E n
|
|
232 fcb $61 a
|
|
233 fcb $6D m
|
|
234 fcb $65 e
|
|
235 fcb $20
|
|
236 fcb $20
|
|
237 fcb $20
|
|
238 fcb $20
|
|
239 fcb $20
|
|
240 fcb $20
|
|
241 fcb $20
|
|
242 fcb $20
|
|
243 fcb $20
|
|
244 fcb $20
|
|
245 fcb $20
|
|
246 fcb $20
|
|
247 fcb $44 D
|
|
248 fcb $61 a
|
|
249 fcb $74 t
|
|
250 fcb $65 e
|
|
251 fcb $20
|
|
252 fcb $20
|
|
253 fcb $20
|
|
254 fcb $20
|
|
255 fcb $20
|
|
256 fcb $20
|
|
257 fcb $20
|
|
258 fcb $20
|
|
259 fcb $20
|
|
260 fcb $20
|
|
261 fcb $20
|
|
262 fcb $20
|
|
263 fcb $20
|
|
264 fcb $20
|
|
265 fcb $20
|
|
266 fcb $20
|
|
267 fcb $74 t
|
|
268 fcb $69 i
|
|
269 fcb $6D m
|
|
270 fcb $65 e
|
|
271 fcb $0D
|
|
272 L010A fcb $2D -
|
|
273 fcb $2D -
|
|
274 fcb $2D -
|
|
275 fcb $2D -
|
|
276 fcb $2D -
|
|
277 fcb $2D -
|
|
278 fcb $2D -
|
|
279 fcb $2D -
|
|
280 fcb $2D -
|
|
281 fcb $2D -
|
|
282 fcb $2D -
|
|
283 fcb $2D -
|
|
284 fcb $2D -
|
|
285 fcb $2D -
|
|
286 fcb $2D -
|
|
287 fcb $2D -
|
|
288 fcb $2D -
|
|
289 fcb $2D -
|
|
290 fcb $2D -
|
|
291 fcb $2D -
|
|
292 fcb $2D -
|
|
293 fcb $2D -
|
|
294 fcb $2D -
|
|
295 fcb $2D -
|
|
296 fcb $2D -
|
|
297 fcb $2D -
|
|
298 fcb $2D -
|
|
299 fcb $2D -
|
|
300 fcb $2D -
|
|
301 fcb $2D -
|
|
302 fcb $2D -
|
|
303 fcb $2D -
|
|
304 fcb $2D -
|
|
305 fcb $2D -
|
|
306 fcb $2D -
|
|
307 fcb $2D -
|
|
308 fcb $2D -
|
|
309 fcb $2D -
|
|
310 fcb $2D -
|
|
311 fcb $2D -
|
|
312 fcb $2D -
|
|
313 fcb $2D -
|
|
314 fcb $2D -
|
|
315 fcb $2D -
|
|
316 fcb $2D -
|
|
317 fcb $2D -
|
|
318 fcb $2D -
|
|
319 fcb $2D -
|
|
320 fcb $2D -
|
|
321 fcb $2D -
|
|
322 fcb $2D -
|
|
323 fcb $2D -
|
|
324 fcb $2D -
|
|
325 fcb $2D -
|
|
326 fcb $2D -
|
|
327 fcb $2D -
|
|
328 fcb $2D -
|
|
329 fcb $2D -
|
|
330 fcb $2D -
|
|
331 fcb $2D -
|
|
332 fcb $2D -
|
|
333 fcb $2D -
|
|
334 fcb $2D -
|
|
335 fcb $2D -
|
|
336 fcb $2D -
|
|
337 fcb $2D -
|
|
338 fcb $2D -
|
|
339 fcb $2D -
|
|
340 fcb $2D -
|
|
341 fcb $2D -
|
|
342 fcb $2D -
|
|
343 fcb $2D -
|
|
344 fcb $0D
|
|
345 L0153 fcb $2F /
|
|
346 fcb $70 p
|
|
347 fcb $0D
|
|
348 L0156 fcb $4D M
|
|
349 fcb $6F o
|
|
350 fcb $64 d
|
|
351 fcb $65 e
|
|
352 fcb $6D m
|
|
353 fcb $2E .
|
|
354 fcb $73 s
|
|
355 fcb $65 e
|
|
356 fcb $74 t
|
|
357 fcb $0D
|
|
358 start equ *
|
|
359 clr u0003,u
|
|
360 stx u0006,u
|
|
361 lda #$FF
|
|
362 sta u0003,u
|
|
363 leax >L0284,pcr
|
|
364 os9 F$Icpt
|
|
365 clra
|
|
366 os9 I$Close
|
|
367 inca
|
|
368 os9 I$Close
|
|
369 inca
|
|
370 os9 I$Close
|
|
371 leax >L0153,pcr
|
|
372 lda #$02
|
|
373 os9 I$Open
|
|
374 leax >L00DC,pcr
|
|
375 ldy #$00C8
|
|
376 os9 I$WritLn
|
|
377 leax >L010A,pcr
|
|
378 ldy #$0050
|
|
379 os9 I$WritLn
|
|
380 os9 I$Close
|
|
381 L019D ldx u0006,u
|
|
382 lda #$03
|
|
383 os9 I$Open
|
|
384 lbcs L027E
|
|
385 os9 I$Dup
|
|
386 os9 I$Dup
|
|
387 leax >L0156,pcr
|
|
388 lda #$01
|
|
389 os9 I$Open
|
|
390 bcs L01D7
|
|
391 L01B9 leax <u0028,u
|
|
392 ldy #$00C8
|
|
393 os9 I$ReadLn
|
|
394 bcs L01D4
|
|
395 pshs a
|
|
396 lda #$01
|
|
397 ldy #$00C8
|
|
398 os9 I$WritLn
|
|
399 puls a
|
|
400 bra L01B9
|
|
401 L01D4 os9 I$Close
|
|
402 L01D7 leax u0008,u
|
|
403 clra
|
|
404 clrb
|
|
405 os9 I$GetStt
|
|
406 leax <-$20,x
|
|
407 lda #$01
|
|
408 sta u0005,u
|
|
409 sta <$35,x
|
|
410 clr <$24,x
|
|
411 leax u0008,u
|
|
412 clra
|
|
413 clrb
|
|
414 os9 I$SetStt
|
|
415 clr u0004,u
|
|
416 L01F4 leax ,u
|
|
417 clr ,x
|
|
418 ldy #$0001
|
|
419 clra
|
|
420 os9 I$Read
|
|
421 bcc L020A
|
|
422 ldx #$000A
|
|
423 os9 F$Sleep
|
|
424 bra L01F4
|
|
425 L020A lda ,u
|
|
426 cmpa #$0D
|
|
427 beq L0212
|
|
428 bra L01F4
|
|
429 L0212 leax u0008,u
|
|
430 leax <-$20,x
|
|
431 lda #$01
|
|
432 sta <$24,x
|
|
433 leax u0008,u
|
|
434 clra
|
|
435 clrb
|
|
436 os9 I$SetStt
|
|
437 leax <-$20,x
|
|
438 ldb <$35,x
|
|
439 lda #$0A
|
|
440 mul
|
|
441 leax >L0098,pcr
|
|
442 leax d,x
|
|
443 ldy #$000A
|
|
444 lda #$01
|
|
445 os9 I$Write
|
|
446 leax >L00CA,pcr
|
|
447 ldy #$00C8
|
|
448 os9 I$WritLn
|
|
449 leax >L007D,pcr
|
|
450 ldy #$0001
|
|
451 pshs u
|
|
452 leau >L008B,pcr
|
|
453 lda #$11
|
|
454 ldb #$03
|
|
455 os9 F$Fork
|
|
456 lbcs L027E
|
|
457 ldu ,s
|
|
458 sta u0001,u
|
|
459 puls u
|
|
460 os9 F$Wait
|
|
461 lbcs L027E
|
|
462 clra
|
|
463 os9 I$Close
|
|
464 inca
|
|
465 os9 I$Close
|
|
466 inca
|
|
467 os9 I$Close
|
|
468 os9 F$Wait
|
|
469 lbra L019D
|
|
470 L027E os9 F$PErr
|
|
471 lbra L019D
|
|
472 L0284 rti
|
|
473 emod
|
|
474 eom equ *
|
|
475 end
|