Mercurial > hg > Members > kono > nitros9-code
annotate level1/cmds/free.asm @ 2758:e4a0f58a5f9b
Found that people who do not have the envirornment variable NITROS9DIR set before building the project get a error missing file "/rules.mak". Found this is caused do to the fact that the code to set this envirornment variable is in the rules.mak which can't get loaded.
To fix this the code needed to set the envirornment variable that is in the rules.mak is now in the makefile(s) right before the include for the rules.mak file. This should fix the problem for those who do not have the NITROS9DIR envirornment variable preset.
| author | drencor-xeen |
|---|---|
| date | Mon, 14 Jan 2013 14:37:46 -0600 |
| parents | e4046f240257 |
| children |
| rev | line source |
|---|---|
| 0 | 1 ******************************************************************** |
| 2 * Free - Print disk free space | |
| 3 * | |
| 4 * $Id$ | |
| 5 * | |
|
1325
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
1166
diff
changeset
|
6 * Edt/Rev YYYY/MM/DD Modified by |
|
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
1166
diff
changeset
|
7 * Comment |
| 0 | 8 * ------------------------------------------------------------------ |
|
1325
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
1166
diff
changeset
|
9 * 6 ????/??/?? |
|
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
1166
diff
changeset
|
10 * From Tandy OS-9 Level One VR 02.00.00. |
|
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
1166
diff
changeset
|
11 * |
|
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
1166
diff
changeset
|
12 * 7 ????/??/?? |
|
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
1166
diff
changeset
|
13 * Y2K fixed. |
| 0 | 14 |
| 15 nam Free | |
| 16 ttl Print disk free space | |
| 17 | |
| 18 * Disassembled 98/09/11 16:58:25 by Disasm v1.6 (C) 1988 by RML | |
| 19 | |
| 20 ifp1 | |
| 21 use defsfile | |
| 22 endc | |
| 23 | |
| 24 tylg set Prgrm+Objct | |
| 25 atrv set ReEnt+rev | |
| 26 rev set $00 | |
| 27 edition set 7 | |
| 28 | |
| 29 mod eom,name,tylg,atrv,start,size | |
| 30 | |
| 924 | 31 org 0 |
| 0 | 32 u0000 rmb 1 |
| 33 u0001 rmb 1 | |
| 34 u0002 rmb 1 | |
| 919 | 35 devpath rmb 1 |
| 0 | 36 u0004 rmb 1 |
| 37 u0005 rmb 2 | |
| 38 u0007 rmb 1 | |
| 39 u0008 rmb 1 | |
| 40 u0009 rmb 1 | |
| 41 u000A rmb 1 | |
| 42 u000B rmb 1 | |
| 43 u000C rmb 1 | |
| 44 u000D rmb 26 | |
| 45 u0027 rmb 54 | |
| 46 u005D rmb 4 | |
| 47 u0061 rmb 2 | |
| 48 u0063 rmb 1 | |
| 49 u0064 rmb 19 | |
| 50 u0077 rmb 5 | |
| 51 u007C rmb 26 | |
| 52 u0096 rmb 6 | |
| 53 u009C rmb 2 | |
| 54 u009E rmb 2 | |
| 55 u00A0 rmb 4544 | |
| 56 size equ . | |
| 57 | |
| 58 name fcs /Free/ | |
| 59 fcb edition | |
|
921
617c1b90e623
Added DOHELP conditionals, set all to zero to eliminate help from commands
boisy
parents:
919
diff
changeset
|
60 IFNE DOHELP |
| 919 | 61 HelpMsg fcb C$LF |
| 0 | 62 fcc "Use: free [/diskname]" |
| 63 fcb C$LF | |
| 64 fcc " tells how many disk sectors are unused" | |
| 65 fcb C$CR | |
|
921
617c1b90e623
Added DOHELP conditionals, set all to zero to eliminate help from commands
boisy
parents:
919
diff
changeset
|
66 ENDC |
| 0 | 67 L0052 fcs /" created on:/ |
| 68 L005F fcs "Capacity:" | |
| 69 L0068 fcs " sectors (" | |
| 70 L0072 fcs "-sector clusters)" | |
| 71 L0083 fcs " free sectors, largest block" | |
| 72 L009F fcs " sectors" | |
| 73 | |
| 1166 | 74 start leay $0D,u |
| 0 | 75 sty <u0001 |
| 76 cmpd #$0000 | |
| 77 beq L00E0 | |
| 78 lda ,x+ | |
| 79 cmpa #C$CR | |
| 80 beq L00E0 | |
| 81 cmpa #PDELIM | |
| 82 beq L00CC | |
|
921
617c1b90e623
Added DOHELP conditionals, set all to zero to eliminate help from commands
boisy
parents:
919
diff
changeset
|
83 L00BC equ * |
|
617c1b90e623
Added DOHELP conditionals, set all to zero to eliminate help from commands
boisy
parents:
919
diff
changeset
|
84 IFNE DOHELP |
|
617c1b90e623
Added DOHELP conditionals, set all to zero to eliminate help from commands
boisy
parents:
919
diff
changeset
|
85 leax >HelpMsg,pcr point to help message |
| 919 | 86 ldy #64 max bytes |
| 87 lda #$02 stderr | |
| 88 os9 I$WritLn write it | |
|
921
617c1b90e623
Added DOHELP conditionals, set all to zero to eliminate help from commands
boisy
parents:
919
diff
changeset
|
89 ENDC |
| 919 | 90 lbra ExitOk and branch |
| 0 | 91 L00CC leax -$01,x |
| 92 pshs x | |
| 1166 | 93 os9 F$PrsNam parse the device name on cmd line |
| 0 | 94 puls x |
| 1166 | 95 bcs L00BC branch if error |
| 0 | 96 L00D7 lda ,x+ |
| 97 lbsr L0218 | |
| 1166 | 98 * try decb here |
| 0 | 99 subb #$01 |
| 100 bcc L00D7 | |
| 1166 | 101 L00E0 lda #PENTIR we want the entire device |
| 0 | 102 lbsr L0218 |
| 103 lbsr L0216 | |
| 104 leax u000D,u | |
| 105 stx <u0001 | |
| 1166 | 106 lda #READ. read mode |
| 107 os9 I$Open open the device | |
| 108 sta <devpath save the path | |
| 109 bcs L00FF branch if error | |
| 0 | 110 leax <u005D,u |
| 111 ldy #$003F | |
| 112 os9 I$Read | |
| 919 | 113 L00FF lbcs Exit |
| 0 | 114 lbsr L0222 |
| 115 lda #$22 | |
| 116 lbsr L0218 | |
| 117 leay <u007C,u | |
| 118 lbsr L020C | |
| 119 dec <u0002 | |
| 120 leay >L0052,pcr | |
| 121 lbsr L020C | |
| 122 lbsr L0293 | |
| 123 lbsr L0222 | |
| 124 leay >L005F,pcr | |
| 125 lbsr L020C | |
| 126 leax <u005D,u | |
| 1665 | 127 lbsr Dec24 |
| 0 | 128 leay >L0068,pcr |
| 129 lbsr L020C | |
| 130 dec <u0002 | |
| 131 ldd <u0063 | |
| 132 pshs b,a | |
| 133 clr ,-s | |
| 134 leax ,s | |
| 1665 | 135 lbsr Dec24 |
| 0 | 136 leas $03,s |
| 137 leay >L0072,pcr | |
| 138 lbsr L020C | |
| 139 lbsr L0222 | |
| 140 clra | |
| 141 clrb | |
| 142 sta <u0004 | |
| 143 std <u0005 | |
| 144 sta <u000A | |
| 145 std <u000B | |
| 146 sta <u0007 | |
| 147 std <u0008 | |
| 919 | 148 lda <devpath |
| 0 | 149 ldx #$0000 |
| 150 pshs u | |
| 1166 | 151 ldu #256 |
| 152 os9 I$Seek seek to bitmap sector | |
| 0 | 153 puls u |
| 154 L016A leax >u009E,u | |
| 155 ldd #$1000 | |
| 156 cmpd <u0061 | |
| 157 bls L0178 | |
| 158 ldd <u0061 | |
| 159 L0178 leay d,x | |
| 160 sty <u009C | |
| 161 tfr d,y | |
| 919 | 162 lda <devpath |
| 0 | 163 os9 I$Read |
| 919 | 164 bcs Exit |
| 0 | 165 L0186 lda ,x+ |
| 166 bsr L01D0 | |
| 167 stb ,-s | |
| 168 beq L019C | |
| 169 L018E ldd <u0005 | |
| 170 addd <u0063 | |
| 171 std <u0005 | |
| 172 bcc L0198 | |
| 173 inc <u0004 | |
| 174 L0198 dec ,s | |
| 175 bne L018E | |
| 176 L019C leas $01,s | |
| 177 cmpx <u009C | |
| 178 bcs L0186 | |
| 179 ldd <u0061 | |
| 180 subd #$1000 | |
| 181 std <u0061 | |
| 182 bhi L016A | |
| 183 bsr L01ED | |
| 184 leax u0004,u | |
| 1665 | 185 lbsr Dec24 |
| 0 | 186 leay >L0083,pcr |
| 187 bsr L020C | |
| 188 leax u0007,u | |
| 1665 | 189 lbsr Dec24 |
| 0 | 190 leay >L009F,pcr |
| 191 bsr L020C | |
| 192 bsr L0222 | |
| 919 | 193 lda <devpath |
| 0 | 194 os9 I$Close |
| 919 | 195 bcs Exit |
| 196 ExitOk clrb | |
| 197 Exit os9 F$Exit | |
| 0 | 198 L01D0 clrb |
| 199 cmpa #$FF | |
| 200 beq L01ED | |
| 201 bsr L01D7 | |
| 202 L01D7 bsr L01D9 | |
| 203 L01D9 bsr L01DB | |
| 204 L01DB lsla | |
| 205 bcs L01ED | |
| 206 incb | |
| 207 pshs b,a | |
| 208 ldd <u000B | |
| 209 addd <u0063 | |
| 210 std <u000B | |
| 211 bcc L01EB | |
| 212 inc <u000A | |
| 213 L01EB puls pc,b,a | |
| 214 L01ED pshs b,a | |
| 215 ldd <u000A | |
| 216 cmpd <u0007 | |
| 217 bhi L01FE | |
| 218 bne L0204 | |
| 219 ldb <u000C | |
| 220 cmpb <u0009 | |
| 221 bls L0204 | |
| 222 L01FE sta <u0007 | |
| 223 ldd <u000B | |
| 224 std <u0008 | |
| 225 L0204 clr <u000A | |
| 226 clr <u000B | |
| 227 clr <u000C | |
| 228 puls pc,b,a | |
| 229 L020C lda ,y | |
| 230 anda #$7F | |
| 231 bsr L0218 | |
| 232 lda ,y+ | |
| 233 bpl L020C | |
| 1166 | 234 L0216 lda #C$SPAC |
| 0 | 235 L0218 pshs x |
| 236 ldx <u0001 | |
| 237 sta ,x+ | |
| 238 stx <u0001 | |
| 239 puls pc,x | |
| 240 L0222 pshs y,x,a | |
| 1166 | 241 lda #C$CR |
| 0 | 242 bsr L0218 |
| 243 leax u000D,u | |
| 244 stx <u0001 | |
| 1166 | 245 ldy #80 |
| 246 lda #$01 standard output | |
| 247 os9 I$WritLn write the line | |
| 0 | 248 puls pc,y,x,a |
| 1166 | 249 |
| 1665 | 250 Base fcb $98,$96,$80 10,000,000 |
| 251 fcb $0f,$42,$40 1,000,000 | |
| 252 fcb $01,$86,$a0 100,000 | |
| 253 fcb $00,$27,$10 10,000 | |
| 254 fcb $00,$03,$e8 1,000 | |
| 255 fcb $00,$00,$64 100 | |
| 256 fcb $00,$00,$0a 10 | |
| 257 fcb $00,$00,$01 1 | |
| 1166 | 258 |
| 1665 | 259 * Show a 24 bit number as a decimal value with commas |
| 260 Dec24 lda #10 | |
| 0 | 261 pshs y,x,b,a |
| 1665 | 262 leay <Base,pcr |
| 0 | 263 clr <u0000 |
| 1665 | 264 ldb ,x get first byte |
| 265 ldx $01,x get 2nd and 3rd bytes | |
| 0 | 266 L025C lda #$FF |
| 267 L025E inca | |
| 268 exg d,x | |
| 269 subd $01,y | |
| 270 exg d,x | |
| 271 sbcb ,y | |
| 272 bcc L025E | |
| 273 bsr L02B9 | |
| 274 exg d,x | |
| 275 addd $01,y | |
| 276 exg d,x | |
| 277 adcb ,y | |
| 278 leay $03,y | |
| 279 dec ,s | |
| 280 beq L0291 | |
| 281 lda ,s | |
| 282 cmpa #$01 | |
| 283 bne L0281 | |
| 284 sta <u0000 | |
| 285 L0281 bita #$03 | |
| 286 bne L025C | |
| 287 dec ,s | |
| 288 tst <u0000 | |
| 289 beq L025C | |
| 1665 | 290 lda #', |
| 0 | 291 bsr L0218 |
| 292 bra L025C | |
| 293 L0291 puls pc,y,x,b,a | |
| 919 | 294 |
| 0 | 295 L0293 leax <u0077,u |
| 296 bsr L02C3 | |
| 297 bsr L029A | |
| 298 L029A lda #$2F | |
| 299 lbsr L0218 | |
| 300 clr <u0000 | |
| 301 ldb ,x+ | |
| 302 lda #$FF | |
| 303 L02A5 inca | |
| 304 subb #$64 | |
| 305 bcc L02A5 | |
| 306 bsr L02B9 | |
| 1665 | 307 L02AC lda #10 |
| 0 | 308 sta <u0000 |
| 309 L02B0 deca | |
| 1665 | 310 addb #10 |
| 0 | 311 bcc L02B0 |
| 312 bsr L02B9 | |
| 313 tfr b,a | |
| 314 L02B9 tsta | |
| 315 beq L02BE | |
| 316 sta <u0000 | |
| 317 L02BE tst <u0000 | |
| 318 bne L02D6 | |
| 319 rts | |
| 320 L02C3 ldb ,x+ | |
| 321 lda #$AE | |
| 322 L02C7 inca | |
| 323 subb #$64 | |
| 324 bcc L02C7 | |
| 325 pshs b | |
| 326 tfr a,b | |
| 327 bsr L02AC | |
| 328 puls b | |
| 329 bra L02AC | |
| 330 L02D6 adda #$30 | |
| 331 lbra L0218 | |
| 332 | |
| 333 emod | |
| 334 eom equ * | |
| 335 end |