|
2400
|
1 nam Uloady
|
|
|
2 ttl program module
|
|
|
3
|
|
|
4 * Disassembled 2010/01/24 10:49:56 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 1
|
|
|
15 u0002 rmb 1
|
|
|
16 u0003 rmb 1
|
|
|
17 u0004 rmb 1
|
|
|
18 u0005 rmb 1
|
|
|
19 u0006 rmb 2
|
|
|
20 u0008 rmb 2
|
|
|
21 u000A rmb 2
|
|
|
22 u000C rmb 2
|
|
|
23 u000E rmb 1
|
|
|
24 u000F rmb 1
|
|
|
25 u0010 rmb 2
|
|
|
26 u0012 rmb 32
|
|
|
27 u0032 rmb 1
|
|
|
28 u0033 rmb 1
|
|
|
29 u0034 rmb 128
|
|
|
30 u00B4 rmb 896
|
|
|
31 u0434 rmb 2
|
|
|
32 u0436 rmb 32
|
|
|
33 u0456 rmb 432
|
|
|
34 size equ .
|
|
|
35 name equ *
|
|
|
36 fcs /Uloady/
|
|
|
37 fcb $43 C
|
|
|
38 fcb $6F o
|
|
|
39 fcb $70 p
|
|
|
40 fcb $79 y
|
|
|
41 fcb $72 r
|
|
|
42 fcb $69 i
|
|
|
43 fcb $67 g
|
|
|
44 fcb $68 h
|
|
|
45 fcb $74 t
|
|
|
46 fcb $20
|
|
|
47 fcb $28 (
|
|
|
48 fcb $43 C
|
|
|
49 fcb $29 )
|
|
|
50 fcb $20
|
|
|
51 fcb $31 1
|
|
|
52 fcb $39 9
|
|
|
53 fcb $38 8
|
|
|
54 fcb $38 8
|
|
|
55 fcb $42 B
|
|
|
56 fcb $79 y
|
|
|
57 fcb $20
|
|
|
58 fcb $4B K
|
|
|
59 fcb $65 e
|
|
|
60 fcb $69 i
|
|
|
61 fcb $74 t
|
|
|
62 fcb $68 h
|
|
|
63 fcb $20
|
|
|
64 fcb $41 A
|
|
|
65 fcb $6C l
|
|
|
66 fcb $70 p
|
|
|
67 fcb $68 h
|
|
|
68 fcb $6F o
|
|
|
69 fcb $6E n
|
|
|
70 fcb $73 s
|
|
|
71 fcb $6F o
|
|
|
72 fcb $4C L
|
|
|
73 fcb $69 i
|
|
|
74 fcb $63 c
|
|
|
75 fcb $65 e
|
|
|
76 fcb $6E n
|
|
|
77 fcb $63 c
|
|
|
78 fcb $65 e
|
|
|
79 fcb $64 d
|
|
|
80 fcb $20
|
|
|
81 fcb $74 t
|
|
|
82 fcb $6F o
|
|
|
83 fcb $20
|
|
|
84 fcb $41 A
|
|
|
85 fcb $6C l
|
|
|
86 fcb $70 p
|
|
|
87 fcb $68 h
|
|
|
88 fcb $61 a
|
|
|
89 fcb $20
|
|
|
90 fcb $53 S
|
|
|
91 fcb $6F o
|
|
|
92 fcb $66 f
|
|
|
93 fcb $74 t
|
|
|
94 fcb $77 w
|
|
|
95 fcb $61 a
|
|
|
96 fcb $72 r
|
|
|
97 fcb $65 e
|
|
|
98 fcb $20
|
|
|
99 fcb $54 T
|
|
|
100 fcb $65 e
|
|
|
101 fcb $63 c
|
|
|
102 fcb $68 h
|
|
|
103 fcb $6E n
|
|
|
104 fcb $6F o
|
|
|
105 fcb $6C l
|
|
|
106 fcb $6F o
|
|
|
107 fcb $67 g
|
|
|
108 fcb $69 i
|
|
|
109 fcb $65 e
|
|
|
110 fcb $73 s
|
|
|
111 fcb $41 A
|
|
|
112 fcb $6C l
|
|
|
113 fcb $6C l
|
|
|
114 fcb $20
|
|
|
115 fcb $72 r
|
|
|
116 fcb $69 i
|
|
|
117 fcb $67 g
|
|
|
118 fcb $68 h
|
|
|
119 fcb $74 t
|
|
|
120 fcb $73 s
|
|
|
121 fcb $20
|
|
|
122 fcb $72 r
|
|
|
123 fcb $65 e
|
|
|
124 fcb $73 s
|
|
|
125 fcb $65 e
|
|
|
126 fcb $72 r
|
|
|
127 fcb $76 v
|
|
|
128 fcb $65 e
|
|
|
129 fcb $64 d
|
|
|
130 fcb $EC l
|
|
|
131 fcb $E6 f
|
|
|
132 fcb $EA j
|
|
|
133 fcb $F5 u
|
|
|
134 fcb $E9 i
|
|
|
135 fcb $A0
|
|
|
136 fcb $E2 b
|
|
|
137 fcb $ED m
|
|
|
138 fcb $F1 q
|
|
|
139 fcb $E9 i
|
|
|
140 fcb $F0 p
|
|
|
141 fcb $EF o
|
|
|
142 fcb $F4 t
|
|
|
143 fcb $F0 p
|
|
|
144 L007E fcb $46 F
|
|
|
145 fcb $69 i
|
|
|
146 fcb $6C l
|
|
|
147 fcb $65 e
|
|
|
148 fcb $20
|
|
|
149 fcb $6F o
|
|
|
150 fcb $70 p
|
|
|
151 fcb $65 e
|
|
|
152 fcb $6E n
|
|
|
153 fcb $2C ,
|
|
|
154 fcb $20
|
|
|
155 fcb $72 r
|
|
|
156 fcb $65 e
|
|
|
157 fcb $61 a
|
|
|
158 fcb $64 d
|
|
|
159 fcb $79 y
|
|
|
160 fcb $20
|
|
|
161 fcb $74 t
|
|
|
162 fcb $6F o
|
|
|
163 fcb $20
|
|
|
164 fcb $72 r
|
|
|
165 fcb $65 e
|
|
|
166 fcb $63 c
|
|
|
167 fcb $69 i
|
|
|
168 fcb $65 e
|
|
|
169 fcb $76 v
|
|
|
170 fcb $65 e
|
|
|
171 fcb $2E .
|
|
|
172 fcb $2E .
|
|
|
173 fcb $2E .
|
|
|
174 fcb $0D
|
|
|
175 L009D fcb $45 E
|
|
|
176 fcb $6E n
|
|
|
177 fcb $74 t
|
|
|
178 fcb $65 e
|
|
|
179 fcb $72 r
|
|
|
180 fcb $20
|
|
|
181 fcb $66 f
|
|
|
182 fcb $69 i
|
|
|
183 fcb $6C l
|
|
|
184 fcb $65 e
|
|
|
185 fcb $6E n
|
|
|
186 fcb $61 a
|
|
|
187 fcb $6D m
|
|
|
188 fcb $65 e
|
|
|
189 fcb $20
|
|
|
190 fcb $74 t
|
|
|
191 fcb $6F o
|
|
|
192 fcb $20
|
|
|
193 fcb $75 u
|
|
|
194 fcb $70 p
|
|
|
195 fcb $6C l
|
|
|
196 fcb $6F o
|
|
|
197 fcb $61 a
|
|
|
198 fcb $64 d
|
|
|
199 fcb $3A :
|
|
|
200 fcb $20
|
|
|
201 L00B7 fcb $55 U
|
|
|
202 fcb $70 p
|
|
|
203 fcb $6C l
|
|
|
204 fcb $6F o
|
|
|
205 fcb $61 a
|
|
|
206 fcb $64 d
|
|
|
207 fcb $20
|
|
|
208 fcb $61 a
|
|
|
209 fcb $62 b
|
|
|
210 fcb $6F o
|
|
|
211 fcb $72 r
|
|
|
212 fcb $74 t
|
|
|
213 fcb $65 e
|
|
|
214 fcb $64 d
|
|
|
215 fcb $21 !
|
|
|
216 fcb $0D
|
|
|
217 L00C7 fcb $55 U
|
|
|
218 fcb $70 p
|
|
|
219 fcb $6C l
|
|
|
220 fcb $6F o
|
|
|
221 fcb $61 a
|
|
|
222 fcb $64 d
|
|
|
223 fcb $20
|
|
|
224 fcb $73 s
|
|
|
225 fcb $75 u
|
|
|
226 fcb $63 c
|
|
|
227 fcb $63 c
|
|
|
228 fcb $65 e
|
|
|
229 fcb $73 s
|
|
|
230 fcb $73 s
|
|
|
231 fcb $66 f
|
|
|
232 fcb $75 u
|
|
|
233 fcb $6C l
|
|
|
234 fcb $21 !
|
|
|
235 fcb $0D
|
|
|
236 start equ *
|
|
|
237 pshs x
|
|
|
238 os9 F$ID
|
|
|
239 ldb #$FF
|
|
|
240 os9 F$SPrior
|
|
|
241 lda ,x
|
|
|
242 cmpa #$0D
|
|
|
243 bne L0102
|
|
|
244 leax >L009D,pcr
|
|
|
245 ldy #$0019
|
|
|
246 lda #$01
|
|
|
247 os9 I$Write
|
|
|
248 leax <u0012,u
|
|
|
249 ldy #$0020
|
|
|
250 clra
|
|
|
251 os9 I$ReadLn
|
|
|
252 L0102 stx <u0010,u
|
|
|
253 lda #$02
|
|
|
254 ldb #$1B
|
|
|
255 os9 I$Create
|
|
|
256 lbcs L03ED
|
|
|
257 sta u0001,u
|
|
|
258 clr u0003,u
|
|
|
259 clr u0002,u
|
|
|
260 clr >u00B4,u
|
|
|
261 dec >u00B4,u
|
|
|
262 leax >L007E,pcr
|
|
|
263 ldy #$00C8
|
|
|
264 lda #$01
|
|
|
265 os9 I$WritLn
|
|
|
266 lda #$06
|
|
|
267 sta u0008,u
|
|
|
268 leax >u0436,u
|
|
|
269 clra
|
|
|
270 clrb
|
|
|
271 os9 I$GetStt
|
|
|
272 lbcs L03ED
|
|
|
273 leax >u0456,u
|
|
|
274 clra
|
|
|
275 clrb
|
|
|
276 os9 I$GetStt
|
|
|
277 lbcs L03ED
|
|
|
278 leax >u0456,u
|
|
|
279 leax <-$20,x
|
|
|
280 clr <$2B,x
|
|
|
281 clr <$2C,x
|
|
|
282 clr <$2E,x
|
|
|
283 clr <$2F,x
|
|
|
284 clr <$30,x
|
|
|
285 clr <$31,x
|
|
|
286 clr <$38,x
|
|
|
287 clr <$39,x
|
|
|
288 clr <$24,x
|
|
|
289 clr <$2D,x
|
|
|
290 clr <$27,x
|
|
|
291 clr <$28,x
|
|
|
292 clr <$29,x
|
|
|
293 clra
|
|
|
294 clrb
|
|
|
295 leax >u0456,u
|
|
|
296 os9 I$SetStt
|
|
|
297 L0180 tst u0008,u
|
|
|
298 beq L018C
|
|
|
299 dec u0008,u
|
|
|
300 lda #$43
|
|
|
301 sta ,u
|
|
|
302 bra L0190
|
|
|
303 L018C lda #$15
|
|
|
304 sta ,u
|
|
|
305 L0190 leax ,u
|
|
|
306 lda #$01
|
|
|
307 ldy #$0001
|
|
|
308 os9 I$Write
|
|
|
309 clr u0004,u
|
|
|
310 clr u0005,u
|
|
|
311 lda u0003,u
|
|
|
312 inca
|
|
|
313 sta u0003,u
|
|
|
314 cmpa #$0A
|
|
|
315 bcs L01AD
|
|
|
316 ldb #$01
|
|
|
317 lbra L03E6
|
|
|
318 L01AD clra
|
|
|
319 ldb #$01
|
|
|
320 os9 I$GetStt
|
|
|
321 bcc L01C5
|
|
|
322 ldy u0004,u
|
|
|
323 leay $01,y
|
|
|
324 sty u0004,u
|
|
|
325 cmpy #$1500
|
|
|
326 bcc L0180
|
|
|
327 bra L01AD
|
|
|
328 L01C5 leax ,u
|
|
|
329 ldy #$0001
|
|
|
330 clra
|
|
|
331 os9 I$Read
|
|
|
332 lda ,u
|
|
|
333 cmpa #$01
|
|
|
334 beq L020A
|
|
|
335 cmpa #$02
|
|
|
336 beq L01E7
|
|
|
337 cmpa #$04
|
|
|
338 lbeq L03C1
|
|
|
339 cmpa #$18
|
|
|
340 lbeq L03F0
|
|
|
341 bra L01AD
|
|
|
342 L01E7 leax <u0032,u
|
|
|
343 tst u0008,u
|
|
|
344 beq L01F4
|
|
|
345 ldy #$0404
|
|
|
346 bra L01F8
|
|
|
347 L01F4 ldy #$0403
|
|
|
348 L01F8 sty u0006,u
|
|
|
349 clr u0004,u
|
|
|
350 clr u0005,u
|
|
|
351 bsr L022D
|
|
|
352 lbcs L018C
|
|
|
353 inc u0002,u
|
|
|
354 lbra L0311
|
|
|
355 L020A leax <u0032,u
|
|
|
356 tst u0008,u
|
|
|
357 beq L0217
|
|
|
358 ldy #$0084
|
|
|
359 bra L021B
|
|
|
360 L0217 ldy #$0083
|
|
|
361 L021B sty u0006,u
|
|
|
362 clr u0004,u
|
|
|
363 clr u0005,u
|
|
|
364 bsr L022D
|
|
|
365 lbcs L018C
|
|
|
366 inc u0002,u
|
|
|
367 lbra L027F
|
|
|
368 L022D clra
|
|
|
369 ldb #$01
|
|
|
370 os9 I$GetStt
|
|
|
371 bcc L0245
|
|
|
372 ldy u0004,u
|
|
|
373 leay $01,y
|
|
|
374 sty u0004,u
|
|
|
375 cmpy #$1000
|
|
|
376 bhi L0261
|
|
|
377 bra L022D
|
|
|
378 L0245 clr u0004,u
|
|
|
379 clr u0005,u
|
|
|
380 clra
|
|
|
381 tfr d,y
|
|
|
382 os9 I$Read
|
|
|
383 bcs L0265
|
|
|
384 tfr y,d
|
|
|
385 leax d,x
|
|
|
386 ldd u0006,u
|
|
|
387 sty u0006,u
|
|
|
388 subd u0006,u
|
|
|
389 std u0006,u
|
|
|
390 bne L022D
|
|
|
391 rts
|
|
|
392 L0261 lda #$FF
|
|
|
393 rola
|
|
|
394 rts
|
|
|
395 L0265 pshs x
|
|
|
396 ldx #$003C
|
|
|
397 os9 F$Sleep
|
|
|
398 puls x
|
|
|
399 clra
|
|
|
400 ldb #$01
|
|
|
401 os9 I$GetStt
|
|
|
402 clra
|
|
|
403 tfr d,y
|
|
|
404 os9 I$Read
|
|
|
405 lda #$FF
|
|
|
406 rola
|
|
|
407 rts
|
|
|
408 L027F lda <u0032,u
|
|
|
409 inca
|
|
|
410 cmpa u0002,u
|
|
|
411 lbeq L03A5
|
|
|
412 deca
|
|
|
413 cmpa u0002,u
|
|
|
414 beq L0293
|
|
|
415 dec u0002,u
|
|
|
416 lbra L018C
|
|
|
417 L0293 coma
|
|
|
418 cmpa <u0033,u
|
|
|
419 beq L029E
|
|
|
420 dec u0002,u
|
|
|
421 lbra L018C
|
|
|
422 L029E leax <u0034,u
|
|
|
423 tst u0008,u
|
|
|
424 bne L02BA
|
|
|
425 ldb #$80
|
|
|
426 clra
|
|
|
427 L02A8 adda ,x+
|
|
|
428 decb
|
|
|
429 bne L02A8
|
|
|
430 cmpa >u00B4,u
|
|
|
431 lbeq L0302
|
|
|
432 dec u0002,u
|
|
|
433 lbra L018C
|
|
|
434 L02BA ldy #$0080
|
|
|
435 sty u000A,u
|
|
|
436 clra
|
|
|
437 clrb
|
|
|
438 std u000E,u
|
|
|
439 L02C5 lda ,x+
|
|
|
440 clrb
|
|
|
441 eora u000E,u
|
|
|
442 eorb u000F,u
|
|
|
443 std u000E,u
|
|
|
444 lda #$08
|
|
|
445 sta u000C,u
|
|
|
446 L02D2 ldd u000E,u
|
|
|
447 bita #$80
|
|
|
448 beq L02E2
|
|
|
449 lslb
|
|
|
450 rola
|
|
|
451 eora #$10
|
|
|
452 eorb #$21
|
|
|
453 std u000E,u
|
|
|
454 bra L02E6
|
|
|
455 L02E2 lslb
|
|
|
456 rola
|
|
|
457 std u000E,u
|
|
|
458 L02E6 dec u000C,u
|
|
|
459 bne L02D2
|
|
|
460 ldy u000A,u
|
|
|
461 leay -$01,y
|
|
|
462 sty u000A,u
|
|
|
463 bne L02C5
|
|
|
464 ldd u000E,u
|
|
|
465 cmpd >u00B4,u
|
|
|
466 beq L0302
|
|
|
467 dec u0002,u
|
|
|
468 lbra L018C
|
|
|
469 L0302 lda u0001,u
|
|
|
470 leax <u0034,u
|
|
|
471 ldy #$0080
|
|
|
472 os9 I$Write
|
|
|
473 lbra L03A7
|
|
|
474 L0311 lda <u0032,u
|
|
|
475 inca
|
|
|
476 cmpa u0002,u
|
|
|
477 lbeq L03A5
|
|
|
478 deca
|
|
|
479 cmpa u0002,u
|
|
|
480 beq L0325
|
|
|
481 dec u0002,u
|
|
|
482 lbra L018C
|
|
|
483 L0325 coma
|
|
|
484 cmpa <u0033,u
|
|
|
485 beq L0330
|
|
|
486 dec u0002,u
|
|
|
487 lbra L018C
|
|
|
488 L0330 leax <u0034,u
|
|
|
489 tst u0008,u
|
|
|
490 bne L034F
|
|
|
491 ldy #$0400
|
|
|
492 clra
|
|
|
493 L033C adda ,x+
|
|
|
494 leay -$01,y
|
|
|
495 bne L033C
|
|
|
496 cmpa >u0434,u
|
|
|
497 lbeq L0302
|
|
|
498 dec u0002,u
|
|
|
499 lbra L018C
|
|
|
500 L034F ldy #$0400
|
|
|
501 sty u000A,u
|
|
|
502 clra
|
|
|
503 clrb
|
|
|
504 std u000E,u
|
|
|
505 L035A lda ,x+
|
|
|
506 clrb
|
|
|
507 eora u000E,u
|
|
|
508 eorb u000F,u
|
|
|
509 std u000E,u
|
|
|
510 lda #$08
|
|
|
511 sta u000C,u
|
|
|
512 L0367 ldd u000E,u
|
|
|
513 bita #$80
|
|
|
514 beq L0377
|
|
|
515 lslb
|
|
|
516 rola
|
|
|
517 eora #$10
|
|
|
518 eorb #$21
|
|
|
519 std u000E,u
|
|
|
520 bra L037B
|
|
|
521 L0377 lslb
|
|
|
522 rola
|
|
|
523 std u000E,u
|
|
|
524 L037B dec u000C,u
|
|
|
525 bne L0367
|
|
|
526 ldy u000A,u
|
|
|
527 leay -$01,y
|
|
|
528 sty u000A,u
|
|
|
529 bne L035A
|
|
|
530 ldd u000E,u
|
|
|
531 cmpd >u0434,u
|
|
|
532 beq L0397
|
|
|
533 dec u0002,u
|
|
|
534 lbra L018C
|
|
|
535 L0397 lda u0001,u
|
|
|
536 leax <u0034,u
|
|
|
537 ldy #$0400
|
|
|
538 os9 I$Write
|
|
|
539 bra L03A7
|
|
|
540 L03A5 dec u0002,u
|
|
|
541 L03A7 ldx #$000A
|
|
|
542 os9 F$Sleep
|
|
|
543 lda #$06
|
|
|
544 sta ,u
|
|
|
545 lda #$01
|
|
|
546 leax ,u
|
|
|
547 ldy #$0001
|
|
|
548 os9 I$Write
|
|
|
549 clr u0003,u
|
|
|
550 lbra L01AD
|
|
|
551 L03C1 lda #$06
|
|
|
552 sta ,u
|
|
|
553 lda #$01
|
|
|
554 leax ,u
|
|
|
555 ldy #$0001
|
|
|
556 os9 I$Write
|
|
|
557 lda u0001,u
|
|
|
558 os9 I$Close
|
|
|
559 lbsr L0412
|
|
|
560 leax >L00C7,pcr
|
|
|
561 ldy #$00C8
|
|
|
562 lda #$01
|
|
|
563 os9 I$WritLn
|
|
|
564 clrb
|
|
|
565 L03E6 pshs b
|
|
|
566 lbsr L0412
|
|
|
567 puls b
|
|
|
568 L03ED os9 F$Exit
|
|
|
569 L03F0 bsr L0412
|
|
|
570 leax >L00B7,pcr
|
|
|
571 ldy #$00C8
|
|
|
572 lda #$01
|
|
|
573 os9 I$WritLn
|
|
|
574 lda u0001,u
|
|
|
575 os9 I$Close
|
|
|
576 ldx <u0010,u
|
|
|
577 os9 I$Delete
|
|
|
578 lbcs L03E6
|
|
|
579 ldb #$01
|
|
|
580 bra L03E6
|
|
|
581 L0412 leax >u0436,u
|
|
|
582 clra
|
|
|
583 clrb
|
|
|
584 os9 I$SetStt
|
|
|
585 rts
|
|
|
586 emod
|
|
|
587 eom equ *
|
|
|
588 end
|
