 
ô > FREE/SRC "ô Z80 Source code for FREE.COM *ô v0.01 28-Nov-88 JGH: Initial version (: 2$Þ mcode% &800:start%=&100:BDOS=5 <: Fã P=0 ¸ 1 PO%=mcode%:P%=start% Z[OPT P*3+4 d4LD C,25:Ö BDOS:PUSH AF     :\ Read current drive n5LD A,(&5C):€ A:JR Z,NoDrive :\ No drive parameter x.DEC A:LD E,A:LD C,14:Ö BDOS:\ Select drive ‚.NoDrive Œ: –>LD C,27:Ö BDOS:PUSH HL     :\ Get allocation table address  BLD C,31:Ö BDOS             :\ Get disk parameter block address ª1INC HL:INC HL:LD A,(HL)       :\ A=BlockShift ´4INC HL:INC HL:INC HL          :\ HL=>DiskSizeMax ¾3LD E,(HL):INC HL:LD D,(HL)    :\ DE=DiskSizeMax È: Ò:POP IX:PUSH DE:PUSH AF:LD HL,0:\ Save size, zero total Ü9\ IX=> alloc, B=8 loop, C=byte, DE=DSM, HL=used count æ: ð
.Loop0 ú@LD B,8:LD C,(IX+0)            :\ Set up inner loop, get byte
.Loop19SLA C:JR NC,BitZero:INC HL    :\ Inc total if bit set.BitZero"'DEC DE:LD A,D:„ E:JR Z,TotalCounted,=DJNZ Loop1:INC IX:JR Loop0    :\ Fetch another Alloc byte6:@.TotalCountedJ2POP AF:POP DE                 :\ A=BSH, DE=DSMT3EX DE,HL:€ A:SBC HL,DE      :\ DE=used, HL=free^	DEC Ah
.Loop3r9SLA E:RL D:SLA L:RL H         :\ Shift DE and HL left|DEC A:JR NZ,Loop3†:PUSH DE:Ö PrNumbersšLD DE,StrFree:Ö PrString¤POP HL:Ö PrNumbers®LD DE,StrUsed:Ö PrString¸:Â2POP AF:LD E,A:LD C,14:JP BDOS :\ Restore driveÌ:Ö.PrNumbersàLLD (Total+1),HL:SLA L:RL H    :\ Store, convert to 128-byte sector countê7LD A,H:Ö PrHex:LD A,L:Ö PrHex:\  Print sector totalôLD DE,StrSectors:Ö PrStringþLD A,—" ":LD (Lead),ALD C,&F:LD DE,&4240:Ö PrDec:Ö PrComma&LD C,&1:LD DE,&86A0:Ö PrDec0LD DE,10000:Ö PrDec0:LD DE,1000:Ö PrDec0D:NÖ PrCommaXLD DE,100:Ö PrDec0bLD DE,10:Ö PrDec0lLD A,(Total):Ö PrNybblevLD DE,StrBytes€:Š.PrString”LD C,9:JP BDOSž:¨
.PrHex²PUSH AF:RRA:RRA:RRA:RRA¼Ö PrNybble:POP AFÆ:Ð.PrNybbleÚ€ 15:CP 10äJR C,P%+4:ADD A,7îADD A,—"0"ø.OUTCHRPUSH HLLD E,A:LD C,2:Ö BDOSPOP HL:RET :*.PrDec04
LD C,0>
.PrDecHLD B,&FFR LD A,(Total+2):LD HL,(Total)\.DecLoopfINC B:€ A:SBC HL,DE:SBC A,CpJR NC,DecLoopzADD HL,DE:ADC A,C„ LD (Total+2),A:LD (Total),HLŽLD A,B:€ A:JR Z,PrZero˜LD A,—"0":LD (Lead),A¢LD A,B:JP PrNybble¬.PrZero¶LD A,(Lead):JP OUTCHRÀ:Ê.PrCommaÔ#LD A,(Lead):CP —" ":JR Z,OUTCHRÞLD A,—",":JP OUTCHRè:òRETü:	.Lead
ÝM " ":$
.Total.ÝB 0:ÝW 08:B.StrSectorsLÝM " Sectors = $"V:`.StrBytesjÝM " Bytes $"t.StrFree~ ÝM "Free":ÝB 13:ÝB 10:ÝM "$"ˆ.StrUsed’ ÝM "Used":ÝB 13:ÝB 10:ÝM "$"œ:¦]í°*A$="*SAVE FREE.COM "+Ã~mcode%+" "+Ã~O%ºñ A$ÿ