Mercurial > hg > Members > kono > nitros9-code
view level1/cmds/free.asm @ 2848:94197db917c9 lwtools-port
Makefiles: Call OS9ATTR with multiple files (part 1)
Instead of spawning a os9 process for each file, call
it once with the whole bunch of files.
This can speed up the build process significantly when applied
globally. For now, do the special cases having "notdir".
| author | Tormod Volden <debian.tormod@gmail.com> |
|---|---|
| date | Fri, 12 Jul 2013 00:01:00 +0200 |
| parents | e4046f240257 |
| children |
line wrap: on
line source
******************************************************************** * Free - Print disk free space * * $Id$ * * Edt/Rev YYYY/MM/DD Modified by * Comment * ------------------------------------------------------------------ * 6 ????/??/?? * From Tandy OS-9 Level One VR 02.00.00. * * 7 ????/??/?? * Y2K fixed. nam Free ttl Print disk free space * Disassembled 98/09/11 16:58:25 by Disasm v1.6 (C) 1988 by RML ifp1 use defsfile endc tylg set Prgrm+Objct atrv set ReEnt+rev rev set $00 edition set 7 mod eom,name,tylg,atrv,start,size org 0 u0000 rmb 1 u0001 rmb 1 u0002 rmb 1 devpath rmb 1 u0004 rmb 1 u0005 rmb 2 u0007 rmb 1 u0008 rmb 1 u0009 rmb 1 u000A rmb 1 u000B rmb 1 u000C rmb 1 u000D rmb 26 u0027 rmb 54 u005D rmb 4 u0061 rmb 2 u0063 rmb 1 u0064 rmb 19 u0077 rmb 5 u007C rmb 26 u0096 rmb 6 u009C rmb 2 u009E rmb 2 u00A0 rmb 4544 size equ . name fcs /Free/ fcb edition IFNE DOHELP HelpMsg fcb C$LF fcc "Use: free [/diskname]" fcb C$LF fcc " tells how many disk sectors are unused" fcb C$CR ENDC L0052 fcs /" created on:/ L005F fcs "Capacity:" L0068 fcs " sectors (" L0072 fcs "-sector clusters)" L0083 fcs " free sectors, largest block" L009F fcs " sectors" start leay $0D,u sty <u0001 cmpd #$0000 beq L00E0 lda ,x+ cmpa #C$CR beq L00E0 cmpa #PDELIM beq L00CC L00BC equ * IFNE DOHELP leax >HelpMsg,pcr point to help message ldy #64 max bytes lda #$02 stderr os9 I$WritLn write it ENDC lbra ExitOk and branch L00CC leax -$01,x pshs x os9 F$PrsNam parse the device name on cmd line puls x bcs L00BC branch if error L00D7 lda ,x+ lbsr L0218 * try decb here subb #$01 bcc L00D7 L00E0 lda #PENTIR we want the entire device lbsr L0218 lbsr L0216 leax u000D,u stx <u0001 lda #READ. read mode os9 I$Open open the device sta <devpath save the path bcs L00FF branch if error leax <u005D,u ldy #$003F os9 I$Read L00FF lbcs Exit lbsr L0222 lda #$22 lbsr L0218 leay <u007C,u lbsr L020C dec <u0002 leay >L0052,pcr lbsr L020C lbsr L0293 lbsr L0222 leay >L005F,pcr lbsr L020C leax <u005D,u lbsr Dec24 leay >L0068,pcr lbsr L020C dec <u0002 ldd <u0063 pshs b,a clr ,-s leax ,s lbsr Dec24 leas $03,s leay >L0072,pcr lbsr L020C lbsr L0222 clra clrb sta <u0004 std <u0005 sta <u000A std <u000B sta <u0007 std <u0008 lda <devpath ldx #$0000 pshs u ldu #256 os9 I$Seek seek to bitmap sector puls u L016A leax >u009E,u ldd #$1000 cmpd <u0061 bls L0178 ldd <u0061 L0178 leay d,x sty <u009C tfr d,y lda <devpath os9 I$Read bcs Exit L0186 lda ,x+ bsr L01D0 stb ,-s beq L019C L018E ldd <u0005 addd <u0063 std <u0005 bcc L0198 inc <u0004 L0198 dec ,s bne L018E L019C leas $01,s cmpx <u009C bcs L0186 ldd <u0061 subd #$1000 std <u0061 bhi L016A bsr L01ED leax u0004,u lbsr Dec24 leay >L0083,pcr bsr L020C leax u0007,u lbsr Dec24 leay >L009F,pcr bsr L020C bsr L0222 lda <devpath os9 I$Close bcs Exit ExitOk clrb Exit os9 F$Exit L01D0 clrb cmpa #$FF beq L01ED bsr L01D7 L01D7 bsr L01D9 L01D9 bsr L01DB L01DB lsla bcs L01ED incb pshs b,a ldd <u000B addd <u0063 std <u000B bcc L01EB inc <u000A L01EB puls pc,b,a L01ED pshs b,a ldd <u000A cmpd <u0007 bhi L01FE bne L0204 ldb <u000C cmpb <u0009 bls L0204 L01FE sta <u0007 ldd <u000B std <u0008 L0204 clr <u000A clr <u000B clr <u000C puls pc,b,a L020C lda ,y anda #$7F bsr L0218 lda ,y+ bpl L020C L0216 lda #C$SPAC L0218 pshs x ldx <u0001 sta ,x+ stx <u0001 puls pc,x L0222 pshs y,x,a lda #C$CR bsr L0218 leax u000D,u stx <u0001 ldy #80 lda #$01 standard output os9 I$WritLn write the line puls pc,y,x,a Base fcb $98,$96,$80 10,000,000 fcb $0f,$42,$40 1,000,000 fcb $01,$86,$a0 100,000 fcb $00,$27,$10 10,000 fcb $00,$03,$e8 1,000 fcb $00,$00,$64 100 fcb $00,$00,$0a 10 fcb $00,$00,$01 1 * Show a 24 bit number as a decimal value with commas Dec24 lda #10 pshs y,x,b,a leay <Base,pcr clr <u0000 ldb ,x get first byte ldx $01,x get 2nd and 3rd bytes L025C lda #$FF L025E inca exg d,x subd $01,y exg d,x sbcb ,y bcc L025E bsr L02B9 exg d,x addd $01,y exg d,x adcb ,y leay $03,y dec ,s beq L0291 lda ,s cmpa #$01 bne L0281 sta <u0000 L0281 bita #$03 bne L025C dec ,s tst <u0000 beq L025C lda #', bsr L0218 bra L025C L0291 puls pc,y,x,b,a L0293 leax <u0077,u bsr L02C3 bsr L029A L029A lda #$2F lbsr L0218 clr <u0000 ldb ,x+ lda #$FF L02A5 inca subb #$64 bcc L02A5 bsr L02B9 L02AC lda #10 sta <u0000 L02B0 deca addb #10 bcc L02B0 bsr L02B9 tfr b,a L02B9 tsta beq L02BE sta <u0000 L02BE tst <u0000 bne L02D6 rts L02C3 ldb ,x+ lda #$AE L02C7 inca subb #$64 bcc L02C7 pshs b tfr a,b bsr L02AC puls b bra L02AC L02D6 adda #$30 lbra L0218 emod eom equ * end