|
0
|
1 ********************************************************************
|
|
|
2 * Free - Print disk free space
|
|
|
3 *
|
|
|
4 * $Id$
|
|
|
5 *
|
|
|
6 * Ed. Comments Who YY/MM/DD
|
|
|
7 * ------------------------------------------------------------------
|
|
|
8 * 6 Original Tandy/Microware version
|
|
|
9 * 7 Incorporated Glenside Y2K fixes BGP 99/05/11
|
|
|
10
|
|
|
11 nam Free
|
|
|
12 ttl Print disk free space
|
|
|
13
|
|
|
14 * Disassembled 98/09/11 16:58:25 by Disasm v1.6 (C) 1988 by RML
|
|
|
15
|
|
|
16 ifp1
|
|
|
17 use defsfile
|
|
|
18 endc
|
|
|
19
|
|
|
20 tylg set Prgrm+Objct
|
|
|
21 atrv set ReEnt+rev
|
|
|
22 rev set $00
|
|
|
23 edition set 7
|
|
|
24
|
|
|
25 mod eom,name,tylg,atrv,start,size
|
|
|
26
|
|
|
27 u0000 rmb 1
|
|
|
28 u0001 rmb 1
|
|
|
29 u0002 rmb 1
|
|
|
30 u0003 rmb 1
|
|
|
31 u0004 rmb 1
|
|
|
32 u0005 rmb 2
|
|
|
33 u0007 rmb 1
|
|
|
34 u0008 rmb 1
|
|
|
35 u0009 rmb 1
|
|
|
36 u000A rmb 1
|
|
|
37 u000B rmb 1
|
|
|
38 u000C rmb 1
|
|
|
39 u000D rmb 26
|
|
|
40 u0027 rmb 54
|
|
|
41 u005D rmb 4
|
|
|
42 u0061 rmb 2
|
|
|
43 u0063 rmb 1
|
|
|
44 u0064 rmb 19
|
|
|
45 u0077 rmb 5
|
|
|
46 u007C rmb 26
|
|
|
47 u0096 rmb 6
|
|
|
48 u009C rmb 2
|
|
|
49 u009E rmb 2
|
|
|
50 u00A0 rmb 4544
|
|
|
51 size equ .
|
|
|
52
|
|
|
53 name fcs /Free/
|
|
|
54 fcb edition
|
|
|
55 L0012 fcb C$LF
|
|
|
56 fcc "Use: free [/diskname]"
|
|
|
57 fcb C$LF
|
|
|
58 fcc " tells how many disk sectors are unused"
|
|
|
59 fcb C$CR
|
|
|
60 L0052 fcs /" created on:/
|
|
|
61 L005F fcs "Capacity:"
|
|
|
62 L0068 fcs " sectors ("
|
|
|
63 L0072 fcs "-sector clusters)"
|
|
|
64 L0083 fcs " free sectors, largest block"
|
|
|
65 L009F fcs " sectors"
|
|
|
66
|
|
|
67 start leay u000D,u
|
|
|
68 sty <u0001
|
|
|
69 cmpd #$0000
|
|
|
70 beq L00E0
|
|
|
71 lda ,x+
|
|
|
72 cmpa #C$CR
|
|
|
73 beq L00E0
|
|
|
74 cmpa #PDELIM
|
|
|
75 beq L00CC
|
|
|
76 L00BC leax >L0012,pcr
|
|
|
77 ldy #$0040
|
|
|
78 lda #$02
|
|
|
79 os9 I$WritLn
|
|
|
80 lbra L01CC
|
|
|
81 L00CC leax -$01,x
|
|
|
82 pshs x
|
|
|
83 os9 F$PrsNam
|
|
|
84 puls x
|
|
|
85 bcs L00BC
|
|
|
86 L00D7 lda ,x+
|
|
|
87 lbsr L0218
|
|
|
88 subb #$01
|
|
|
89 bcc L00D7
|
|
|
90 L00E0 lda #$40
|
|
|
91 lbsr L0218
|
|
|
92 lbsr L0216
|
|
|
93 leax u000D,u
|
|
|
94 stx <u0001
|
|
|
95 lda #READ.
|
|
|
96 os9 I$Open
|
|
|
97 sta <u0003
|
|
|
98 bcs L00FF
|
|
|
99 leax <u005D,u
|
|
|
100 ldy #$003F
|
|
|
101 os9 I$Read
|
|
|
102 L00FF lbcs L01CD
|
|
|
103 lbsr L0222
|
|
|
104 lda #$22
|
|
|
105 lbsr L0218
|
|
|
106 leay <u007C,u
|
|
|
107 lbsr L020C
|
|
|
108 dec <u0002
|
|
|
109 leay >L0052,pcr
|
|
|
110 lbsr L020C
|
|
|
111 lbsr L0293
|
|
|
112 lbsr L0222
|
|
|
113 leay >L005F,pcr
|
|
|
114 lbsr L020C
|
|
|
115 leax <u005D,u
|
|
|
116 lbsr L024F
|
|
|
117 leay >L0068,pcr
|
|
|
118 lbsr L020C
|
|
|
119 dec <u0002
|
|
|
120 ldd <u0063
|
|
|
121 pshs b,a
|
|
|
122 clr ,-s
|
|
|
123 leax ,s
|
|
|
124 lbsr L024F
|
|
|
125 leas $03,s
|
|
|
126 leay >L0072,pcr
|
|
|
127 lbsr L020C
|
|
|
128 lbsr L0222
|
|
|
129 clra
|
|
|
130 clrb
|
|
|
131 sta <u0004
|
|
|
132 std <u0005
|
|
|
133 sta <u000A
|
|
|
134 std <u000B
|
|
|
135 sta <u0007
|
|
|
136 std <u0008
|
|
|
137 lda <u0003
|
|
|
138 ldx #$0000
|
|
|
139 pshs u
|
|
|
140 ldu #$0100
|
|
|
141 os9 I$Seek
|
|
|
142 puls u
|
|
|
143 L016A leax >u009E,u
|
|
|
144 ldd #$1000
|
|
|
145 cmpd <u0061
|
|
|
146 bls L0178
|
|
|
147 ldd <u0061
|
|
|
148 L0178 leay d,x
|
|
|
149 sty <u009C
|
|
|
150 tfr d,y
|
|
|
151 lda <u0003
|
|
|
152 os9 I$Read
|
|
|
153 bcs L01CD
|
|
|
154 L0186 lda ,x+
|
|
|
155 bsr L01D0
|
|
|
156 stb ,-s
|
|
|
157 beq L019C
|
|
|
158 L018E ldd <u0005
|
|
|
159 addd <u0063
|
|
|
160 std <u0005
|
|
|
161 bcc L0198
|
|
|
162 inc <u0004
|
|
|
163 L0198 dec ,s
|
|
|
164 bne L018E
|
|
|
165 L019C leas $01,s
|
|
|
166 cmpx <u009C
|
|
|
167 bcs L0186
|
|
|
168 ldd <u0061
|
|
|
169 subd #$1000
|
|
|
170 std <u0061
|
|
|
171 bhi L016A
|
|
|
172 bsr L01ED
|
|
|
173 leax u0004,u
|
|
|
174 lbsr L024F
|
|
|
175 leay >L0083,pcr
|
|
|
176 bsr L020C
|
|
|
177 leax u0007,u
|
|
|
178 lbsr L024F
|
|
|
179 leay >L009F,pcr
|
|
|
180 bsr L020C
|
|
|
181 bsr L0222
|
|
|
182 lda <u0003
|
|
|
183 os9 I$Close
|
|
|
184 bcs L01CD
|
|
|
185 L01CC clrb
|
|
|
186 L01CD os9 F$Exit
|
|
|
187 L01D0 clrb
|
|
|
188 cmpa #$FF
|
|
|
189 beq L01ED
|
|
|
190 bsr L01D7
|
|
|
191 L01D7 bsr L01D9
|
|
|
192 L01D9 bsr L01DB
|
|
|
193 L01DB lsla
|
|
|
194 bcs L01ED
|
|
|
195 incb
|
|
|
196 pshs b,a
|
|
|
197 ldd <u000B
|
|
|
198 addd <u0063
|
|
|
199 std <u000B
|
|
|
200 bcc L01EB
|
|
|
201 inc <u000A
|
|
|
202 L01EB puls pc,b,a
|
|
|
203 L01ED pshs b,a
|
|
|
204 ldd <u000A
|
|
|
205 cmpd <u0007
|
|
|
206 bhi L01FE
|
|
|
207 bne L0204
|
|
|
208 ldb <u000C
|
|
|
209 cmpb <u0009
|
|
|
210 bls L0204
|
|
|
211 L01FE sta <u0007
|
|
|
212 ldd <u000B
|
|
|
213 std <u0008
|
|
|
214 L0204 clr <u000A
|
|
|
215 clr <u000B
|
|
|
216 clr <u000C
|
|
|
217 puls pc,b,a
|
|
|
218 L020C lda ,y
|
|
|
219 anda #$7F
|
|
|
220 bsr L0218
|
|
|
221 lda ,y+
|
|
|
222 bpl L020C
|
|
|
223 L0216 lda #$20
|
|
|
224 L0218 pshs x
|
|
|
225 ldx <u0001
|
|
|
226 sta ,x+
|
|
|
227 stx <u0001
|
|
|
228 puls pc,x
|
|
|
229 L0222 pshs y,x,a
|
|
|
230 lda #$0D
|
|
|
231 bsr L0218
|
|
|
232 leax u000D,u
|
|
|
233 stx <u0001
|
|
|
234 ldy #$0050
|
|
|
235 lda #$01
|
|
|
236 os9 I$WritLn
|
|
|
237 puls pc,y,x,a
|
|
|
238 L0237 fcb $98
|
|
|
239 fdb $9680,$0f42,$4001,$86a0,$0027,$1000,$03e8,$0000
|
|
|
240 fdb $6400,$000a,$0000
|
|
|
241 fcb $01
|
|
|
242 L024F lda #$0A
|
|
|
243 pshs y,x,b,a
|
|
|
244 leay <L0237,pcr
|
|
|
245 clr <u0000
|
|
|
246 ldb ,x
|
|
|
247 ldx $01,x
|
|
|
248 L025C lda #$FF
|
|
|
249 L025E inca
|
|
|
250 exg d,x
|
|
|
251 subd $01,y
|
|
|
252 exg d,x
|
|
|
253 sbcb ,y
|
|
|
254 bcc L025E
|
|
|
255 bsr L02B9
|
|
|
256 exg d,x
|
|
|
257 addd $01,y
|
|
|
258 exg d,x
|
|
|
259 adcb ,y
|
|
|
260 leay $03,y
|
|
|
261 dec ,s
|
|
|
262 beq L0291
|
|
|
263 lda ,s
|
|
|
264 cmpa #$01
|
|
|
265 bne L0281
|
|
|
266 sta <u0000
|
|
|
267 L0281 bita #$03
|
|
|
268 bne L025C
|
|
|
269 dec ,s
|
|
|
270 tst <u0000
|
|
|
271 beq L025C
|
|
|
272 lda #$2C
|
|
|
273 bsr L0218
|
|
|
274 bra L025C
|
|
|
275 L0291 puls pc,y,x,b,a
|
|
|
276 L0293 leax <u0077,u
|
|
|
277 bsr L02C3
|
|
|
278 bsr L029A
|
|
|
279 L029A lda #$2F
|
|
|
280 lbsr L0218
|
|
|
281 clr <u0000
|
|
|
282 ldb ,x+
|
|
|
283 lda #$FF
|
|
|
284 L02A5 inca
|
|
|
285 subb #$64
|
|
|
286 bcc L02A5
|
|
|
287 bsr L02B9
|
|
|
288 L02AC lda #$0A
|
|
|
289 sta <u0000
|
|
|
290 L02B0 deca
|
|
|
291 addb #$0A
|
|
|
292 bcc L02B0
|
|
|
293 bsr L02B9
|
|
|
294 tfr b,a
|
|
|
295 L02B9 tsta
|
|
|
296 beq L02BE
|
|
|
297 sta <u0000
|
|
|
298 L02BE tst <u0000
|
|
|
299 bne L02D6
|
|
|
300 rts
|
|
|
301 L02C3 ldb ,x+
|
|
|
302 lda #$AE
|
|
|
303 L02C7 inca
|
|
|
304 subb #$64
|
|
|
305 bcc L02C7
|
|
|
306 pshs b
|
|
|
307 tfr a,b
|
|
|
308 bsr L02AC
|
|
|
309 puls b
|
|
|
310 bra L02AC
|
|
|
311 L02D6 adda #$30
|
|
|
312 lbra L0218
|
|
|
313
|
|
|
314 emod
|
|
|
315 eom equ *
|
|
|
316 end
|
