 
,ô > MkMap 1.04 - 20-Aug-2015 J.G.Harston @ô Create a free space map from examining directory structure : (mapsz%=1024 2;ë7:ñ"Build a free space map from directory"'"structure" <IÞ ctrl% 31,name% 31,map% mapsz%-1,fsm% 511:X%=ctrl%:Y%=X%256:fs%=¤fs Fÿ"DIR $":*INFO $ PCçfs%=8 :drive%=»¤gbpb(6):name%?(1+?name%)=13:drive%=»$(name%+1) Z=çfs%=8 :òerr(¤scsi(fsm%,8,drive%,0,2),0):secmax%=fsm%!&FC d!çfs%=16:drive%=¤args(&FE,0,0) nfçfs%=16:òerr(¤hadfs(fsm%,&80,drive%,&46,1),&46):secmax%=fsm%!28:çfsm%?31<128:secmax%=secmax%€&FFFF xsecmax%=(secmax%€&FFFFFF)-1 ‚Qñ"Total disk sectors (&";~secmax%+1;"): &";:è""A$:çA$<>"":secmax%= ("&"+A$)-1 Œ;ã A%=0 ¸ mapsz%-1 ˆ 4:map%!A%=0:í:disp%=¹:ï23,1;0;0;0;0 –>sec%=2:num%=secmax%-sec%+1:òmapadd:ô Add whole disk to FSM  =çfs%=8 :sec%=2 :num%=5:òmaprem   :ô Remove root directory ªEçfs%=16:sec%=70:num%=4:òmaprem   :ô Remove FSM and root directory ´2Û:òscan:ñŠ0,2)‰20:òmaplist:ï23,1,1;0;0;0;:ç±:ñ ¾Tñ"(W)rite new free space map to disk"'"(S)ave free space map as a file"'"(Q)uit" È&õï58:õA$=½(¥€&DF):ý§"WSQ",A$):ï127 ÒçA$="W":çfs%=8 :òmapwriteA ÜçA$="W":çfs%=16:òmapwriteH æçA$="S":òmapsave ðýA$="Q":à ú:
Ýòscan>êidx%,ret%:õf$=¤gbpb8(idx%):idx%=X%!9:ret%=©f$:çret%:òfileýret%=0:á":,
Ýòfile6ç–(-1):ç¥=32:disp%=¬disp%@:çfs%=8 „ disp%:ï30:ÿ"INFO @."+f$:vpos%=¼:çvpos%<2:ñ‰39J,ô HADFS has 'read sector start' command:TOçfs%=16:dir%=¤file("@."+f$,&FD)=2:sec%=X%!14 € &FFFFFF:num%=X%!11 € &7FFFFF^5ô With ADFS need to peek output of *INFO command:h*çfs%=8:ñŠ11,0);:dir%=¤byte(135,0,0)=68r`çfs%=8:ñŠ10-10*(vpos%=1),vpos%-1);:A$="":ãnum%=1¸6:A$=A$+½¤byte(135,0,0):ï9:í:sec%= ("&"+A$)|nçfs%=8:num%=5:ç¬dir%:ñŠ0,1);:A$="":ãnum%=1¸8:A$=A$+½¤byte(135,0,0):ï9:í:num%= ("&"+A$):num%=(num%+255)256†"ñŠ0,3);:òmaprem:çdisp%òmaplistçdir%:çfs%=16:òlinksš%çdir%:ÿ"Dir @."+f$:òscan:ÿ"Dir ^"¤á®:¸ÝòlinksÂlink%=sec%:õÌ/òerr(¤hadfs(fsm%,&80,drive%,link%,1),link%)Ö>link%=fsm%!14 € &FFFF:çfsm%?12>127:link%=fsm%!24 € &FFFFFFà$çlink%:sec%=link%:num%=3:òmapremêýlink%=0ôáþ:Ýòmaprem:çnum%=0:áptr%=-8:õptr%=ptr%+8"ýmap%!ptr%=0 „ map%!ptr%>=sec%&*çptr%>mapsz%-9:ñŠ0,2);"FSM too full":à0Xçmap%!ptr%=sec%:map%!ptr%=map%!ptr%+num%:map%!(ptr%+4)=map%!(ptr%+4)-num%:òmaprem2:á:Rçmap%!ptr%+map%!(ptr%+4)=sec%+num%:map%!(ptr%+4)=map%!(ptr%+4)-num%:òmaprem2:áD3ã A%=mapsz%-4 ¸ ptr% ˆ -4:map%!A%=map%!(A%-8):íN$map%!(ptr%-4)=sec%-map%!(ptr%-8)X5map%!(ptr%+4)=map%!ptr%+map%!(ptr%+4)-(sec%+num%)bmap%!(ptr%+0)=sec%+num%lòmaprem2vá€:ŠÝòmaprem2”Cçmap%!(ptr%+4)=0:ã A%=ptr% ¸ mapsz%-1 ˆ 4:map%!A%=map%!(A%+8):ížá¨:²Ýòmapadd:çnum%=0:á¼ptr%=-8:õptr%=ptr%+8ÆAýmap%!ptr%=0 „ map%!ptr%>=sec% „ map%!ptr%+map%!(ptr%+4)=sec%Ð*çptr%>mapsz%-9:ñŠ0,2);"FSM too full":àÚ=çmap%!ptr%=0:map%!ptr%=sec%:map%!(ptr%+4)=num%:òmapadd2:áä<çsec%+num%=map%!ptr%:map%!ptr%=map%!ptr%-num%:òmapadd2:áîMçmap%!ptr%+map%!(ptr%+4)=sec%:map%!(ptr%+4)=map%!(ptr%+4)+num%:òmapadd2:áø3ã A%=mapsz%-4 ¸ ptr% ˆ -4:map%!A%=map%!(A%-8):í%map%!ptr%=sec%:map%!(ptr%+4)=num%á: Ýòmapadd2*6çmap%!ptr%+map%!(ptr%+4)=map%!(ptr%+8):ptr%=ptr%+84Žçptr%<>0:çmap%!(ptr%-8)+map%!(ptr%-4)=map%!ptr%:map%!(ptr%-4)=map%!(ptr%-4)+map%!(ptr%+4):ã A%=ptr% ¸ mapsz%-1 ˆ 4:map%!A%=map%!(A%+8):í:á>áH:RÝòmaplist\ptr%=-8:õptr%=ptr%+8f;ñ¤h0(map%!ptr%,6);"+";¤h0(map%!(ptr%+4),5);‰(1-(±>35));p*çmap%!ptr%>secmax%:ñ"Sector too big":àzýmap%!ptr%=0 „ ¼=24:ñ‰12;„á:=ptr%Ž:˜Ýòmapsave¢Hè†"File to save: "A$:çA$<>"":ÿ"SAVE "+A$+" "+Ã~map%+"+200 0 FFFFFD0"¬A$="":á¶:À#Ý¤adfs_sum(mem%):êsum%:sum%=255Êã A%=254 ¸ 0 ˆ -1Ôçsum%>255:sum%=(sum%+1)€255Þ!sum%=sum%+mem%?A%:í:=sum%€255è:òÝòmapwriteAüçptr%8>82:ñ"FSM too big":á$òerr(¤scsi(fsm%,8,drive%,0,2),0)src%=0:dst%=0:õfsm%!dst%=map%!src%$!fsm%!(dst%+256)=map%!(src%+4).src%=src%+8:dst%=dst%+38ýmap%!(src%-8)=0Bfsm%?&1FE=dst%-3L8õfsm%!dst%=0:fsm%!(dst%+256)=0:dst%=dst%+3:ýdst%>&FBVfsm%!&0FC=secmax%+1`fsm%?&0FF=¤adfs_sum(fsm%)j"fsm%?&1FF=¤adfs_sum(fsm%+&100)t%òerr(¤scsi(fsm%,10,drive%,0,2),0)~ÿ"MOUNT "+Ãdrive%ˆá’:œÝòmapwriteH¦çptr%8>35:ñ"FSM too big":á°+òerr(¤hadfs(fsm%,&80,drive%,&47,1),&47)ºdskid%=fsm%!16 € &FFFFÄ+òerr(¤hadfs(fsm%,&80,drive%,&46,1),&46)Î%fsm%?24=dskid%:fsm%?25=dskid%256ØEçsecmax%<&10000:fsm%!28=(secmax%+1)„(fsm%!28 € &7FFF0000):size%=2âOçsecmax%>&FFFF :fsm%!28=(secmax%+1)„(fsm%!28 € &7F000000)„&80000000:size%=3ìsrc%=0:dst%=&20:õöfsm%!dst%=map%!src% #fsm%!(dst%+size%)=map%!(src%+4)
!src%=src%+8:dst%=dst%+size%*2ýmap%!(src%-8)=0+òerr(¤hadfs(fsm%,&81,drive%,&46,1),&46)('ÿ"MOUNT "+½(48+drive%-7*(drive%>9))2á<:F+Ý¤scsi(addr%,cmd%,drv%,sect%,num%):êfs%Pfs%=¤fs:çfs%<>8:*FADFSZDX%?0=0:X%!1=addr%:X%?5=cmd%:X%?6=drv%*32+((sect%€&1F0000)65536)d9X%?7=((sect%€&FF00)256):X%?8=sect%:X%!9=num%:X%!11=0n2A%=&72:Ö&FFF1:A%=?X%:çfs%<>8:ÿ"FX143,18,"+Ãfs%x=A%‚:ŒBÝ¤hadfs(addr%,cmd%,drv%,sect%,num%):êfs%:ô &80=read, &81=write–WX%!0=&600:X%!2=addr%:X%!6=sect%:X%?9=drv%:X%?10=num%:X%?11=cmd%:A%=90:Ö&FFF1:=X%?11 :ªÝòerr(A%,S%):çA%=0:á´-ñ"Disk error &"¤h0(A%,2)" at "¤h0(S%,8):à¾áÈ:Ò)Ý¤byte(A%,X%,Y%)=((º&FFF4)€&FF00)256Ü Ý¤fs:êA%,Y%,E%:=(º&FFDA)€&FFæBÝ¤file(A$,A%):$name%=A$:?X%=name%:X%?1=name%256:=(º&FFDD)€&FFðYÝ¤gbpb(A%):X%!1=name%:Ö&FFD1:A%=name%+((1+?name%)€((A%€-2)=6)):A%?(1+?A%)=13:=$(A%+1)úEÝ¤gbpb8(ptr%):X%!1=name%:X%!5=1:X%!9=ptr%:A%=8:Ö&FFD1:çX%!5=1:=""7A%=name%+1:A%!(A%?-1)=&D20:A%?(§$A%," ")-1)=13:=$A%#Ý¤h0(A%,N%)=Â"0000000"+Ã~A%,N%)3Ý¤args(A%,Y%,ptr%):êX%,E%:ç?(¸P-3)=0:E%=Y%:Y%=0".ç“<&FFFF:ê!&70:X%=&70:!X%=ptr%:Ö&FFDA:=!X%,'È™"OS_Args",A%,Y%,ptr%¸,,ptr%:=ptr%ÿ