|
2400
|
1 nam Uloada
|
|
|
2 ttl program module
|
|
|
3
|
|
|
4 * Disassembled 2010/01/24 10:54:58 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 200
|
|
|
15 u00C9 rmb 600
|
|
|
16 size equ .
|
|
|
17 name equ *
|
|
|
18 fcs /Uloada/
|
|
|
19 L0013 fcb $45 E
|
|
|
20 fcb $6E n
|
|
|
21 fcb $74 t
|
|
|
22 fcb $65 e
|
|
|
23 fcb $72 r
|
|
|
24 fcb $20
|
|
|
25 fcb $66 f
|
|
|
26 fcb $69 i
|
|
|
27 fcb $6C l
|
|
|
28 fcb $65 e
|
|
|
29 fcb $6E n
|
|
|
30 fcb $61 a
|
|
|
31 fcb $6D m
|
|
|
32 fcb $65 e
|
|
|
33 fcb $20
|
|
|
34 fcb $74 t
|
|
|
35 fcb $6F o
|
|
|
36 fcb $20
|
|
|
37 fcb $75 u
|
|
|
38 fcb $70 p
|
|
|
39 fcb $6C l
|
|
|
40 fcb $6F o
|
|
|
41 fcb $61 a
|
|
|
42 fcb $64 d
|
|
|
43 L002B fcb $50 P
|
|
|
44 fcb $72 r
|
|
|
45 fcb $65 e
|
|
|
46 fcb $73 s
|
|
|
47 fcb $73 s
|
|
|
48 fcb $20
|
|
|
49 fcb $3C <
|
|
|
50 fcb $43 C
|
|
|
51 fcb $54 T
|
|
|
52 fcb $52 R
|
|
|
53 fcb $4C L
|
|
|
54 fcb $3E >
|
|
|
55 fcb $3C <
|
|
|
56 fcb $54 T
|
|
|
57 fcb $3E >
|
|
|
58 fcb $20
|
|
|
59 fcb $74 t
|
|
|
60 fcb $6F o
|
|
|
61 fcb $20
|
|
|
62 fcb $74 t
|
|
|
63 fcb $65 e
|
|
|
64 fcb $72 r
|
|
|
65 fcb $6D m
|
|
|
66 fcb $69 i
|
|
|
67 fcb $6E n
|
|
|
68 fcb $61 a
|
|
|
69 fcb $6C l
|
|
|
70 fcb $20
|
|
|
71 fcb $75 u
|
|
|
72 fcb $70 p
|
|
|
73 fcb $6C l
|
|
|
74 fcb $6F o
|
|
|
75 fcb $61 a
|
|
|
76 fcb $64 d
|
|
|
77 fcb $0A
|
|
|
78 fcb $0D
|
|
|
79 fcb $50 P
|
|
|
80 fcb $72 r
|
|
|
81 fcb $65 e
|
|
|
82 fcb $73 s
|
|
|
83 fcb $73 s
|
|
|
84 fcb $20
|
|
|
85 fcb $3C <
|
|
|
86 fcb $43 C
|
|
|
87 fcb $54 T
|
|
|
88 fcb $52 R
|
|
|
89 fcb $4C L
|
|
|
90 fcb $3E >
|
|
|
91 fcb $3C <
|
|
|
92 fcb $58 X
|
|
|
93 fcb $3E >
|
|
|
94 fcb $20
|
|
|
95 fcb $74 t
|
|
|
96 fcb $6F o
|
|
|
97 fcb $20
|
|
|
98 fcb $63 c
|
|
|
99 fcb $61 a
|
|
|
100 fcb $6E n
|
|
|
101 fcb $63 c
|
|
|
102 fcb $65 e
|
|
|
103 fcb $6C l
|
|
|
104 fcb $0A
|
|
|
105 fcb $0D
|
|
|
106 L006A fcb $0A
|
|
|
107 fcb $3A :
|
|
|
108 start equ *
|
|
|
109 lda ,x
|
|
|
110 cmpa #$0D
|
|
|
111 bne L008B
|
|
|
112 leax >L0013,pcr
|
|
|
113 ldy #$0018
|
|
|
114 lda #$01
|
|
|
115 os9 I$Write
|
|
|
116 leax u0001,u
|
|
|
117 ldy #$00C8
|
|
|
118 clra
|
|
|
119 os9 I$ReadLn
|
|
|
120 leax u0001,u
|
|
|
121 L008B lda #$03
|
|
|
122 ldb #$1B
|
|
|
123 os9 I$Create
|
|
|
124 lbcs L00F0
|
|
|
125 sta ,u
|
|
|
126 leax >L002B,pcr
|
|
|
127 ldy #$003F
|
|
|
128 lda #$01
|
|
|
129 os9 I$Write
|
|
|
130 leax >L006A,pcr
|
|
|
131 ldy #$0002
|
|
|
132 lda #$01
|
|
|
133 os9 I$Write
|
|
|
134 L00B2 clra
|
|
|
135 ldb #$01
|
|
|
136 os9 I$GetStt
|
|
|
137 bcs L00B2
|
|
|
138 ldy #$0001
|
|
|
139 leax >u00C9,u
|
|
|
140 os9 I$Read
|
|
|
141 lda ,x
|
|
|
142 cmpa #$14
|
|
|
143 beq L00EF
|
|
|
144 cmpa #$18
|
|
|
145 beq L00EB
|
|
|
146 lda ,u
|
|
|
147 os9 I$Write
|
|
|
148 lda ,x
|
|
|
149 cmpa #$0D
|
|
|
150 beq L00DC
|
|
|
151 bra L00B2
|
|
|
152 L00DC leax >L006A,pcr
|
|
|
153 ldy #$0002
|
|
|
154 lda #$01
|
|
|
155 os9 I$Write
|
|
|
156 bra L00B2
|
|
|
157 L00EB lda #$01
|
|
|
158 bra L00F0
|
|
|
159 L00EF clrb
|
|
|
160 L00F0 os9 F$Exit
|
|
|
161 emod
|
|
|
162 eom equ *
|
|
|
163 end
|
