 
,ô > MkMap 1.05 - 21-Nov-2016 J.G.Harston @ô Create a free space map from examining directory structure : (mapsz%=2048*(1-(“>&FFFF)) 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 ´Û:òscan:Û:*INFO $ ¾"ñ:òmaplist:ï23,1,1;0;0;0;:ç±:ñ ÈUñ'"(W)rite new free space map to disk"'"(S)ave free space map as a file"'"(Q)uit" Ò3õ:ñ½13;‰8;½13;":";:õA$=½(¥€&DF):ý§"WSQ",A$):ï13 ÜçA$="W":ñ"Writing"; æçA$="W":çfs%=8 :òmapwriteA ðçA$="W":çfs%=16:òmapwriteH úçA$="S":ñ"Saving";:òmapsaveýA$="Q":ñ"Quit":à:
Ýòscan">êidx%,ret%:õf$=¤gbpb8(idx%):idx%=X%!9:ret%=©f$:çret%:òfile,ýret%=0:á6:@
ÝòfileJç–(-1):ç¥=32:disp%=¬disp%T:çfs%=8 „ disp%:ï30:ÿ"INFO @."+f$:vpos%=¼:çvpos%<2:ñ‰39^,ô HADFS has 'read sector start' command:hOçfs%=16:dir%=¤file("@."+f$,&FD)=2:sec%=X%!14 € &FFFFFF:num%=X%!11 € &7FFFFFr5ô With ADFS need to peek output of *INFO command:|*çfs%=8:ñŠ11,0);:dir%=¤byte(135,0,0)=68†`ç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0"ýmap%!ptr%=0 „ map%!ptr%>=sec%:*çptr%>mapsz%-9:ñŠ0,2);"FSM too full":àDXçmap%!ptr%=sec%:map%!ptr%=map%!ptr%+num%:map%!(ptr%+4)=map%!(ptr%+4)-num%:òmaprem2:áNRçmap%!ptr%+map%!(ptr%+4)=sec%+num%:map%!(ptr%+4)=map%!(ptr%+4)-num%:òmaprem2:áX'A%=ptr%:õA%=A%+8:ýmap%!A%=0:A%=A%+8b-ã A%=A% ¸ ptr% ˆ -4:map%!A%=map%!(A%-8):íl$map%!(ptr%-4)=sec%-map%!(ptr%-8)v5map%!(ptr%+4)=map%!ptr%+map%!(ptr%+4)-(sec%+num%)€map%!(ptr%+0)=sec%+num%Šòmaprem2”áž:¨Ýòmaprem2²]çmap%!(ptr%+4)=0:A%=ptr%:õmap%!A%=map%!(A%+8):map%!(A%+4)=map%!(A%+12):A%=A%+8:ýmap%!A%=0¼áÆ:ÐÝò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%*á4:>Ýòmapadd2H6çmap%!ptr%+map%!(ptr%+4)=map%!(ptr%+8):ptr%=ptr%+8RŽç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):í:á\áf:pÝòmaplistzptr%=-8:õptr%=ptr%+8„;ñ¤h0(map%!ptr%,6);"+";¤h0(map%!(ptr%+4),5);‰(1-(±>35));Žý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%8!fsm%!(dst%+256)=map%!(src%+4)Bsrc%=src%+8:dst%=dst%+3Lýmap%!(src%-8)=0Vfsm%?&1FE=dst%-3`8õfsm%!dst%=0:fsm%!(dst%+256)=0:dst%=dst%+3:ýdst%>&FBjfsm%!&0FC=secmax%+1tfsm%?&0FF=¤adfs_sum(fsm%)~"fsm%?&1FF=¤adfs_sum(fsm%+&100)ˆ%ò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2+òerr(¤hadfs(fsm%,&81,drive%,&46,1),&46)<'ÿ"MOUNT "+½(48+drive%-7*(drive%>9))FáP:Z+Ý¤scsi(addr%,cmd%,drv%,sect%,num%):êfs%dfs%=¤fs:çfs%<>8:*FADFSnDX%?0=0:X%!1=addr%:X%?5=cmd%:X%?6=drv%*32+((sect%€&1F0000)65536)x9X%?7=((sect%€&FF00)256):X%?8=sect%:X%!9=num%:X%!11=0‚2A%=&72:Ö&FFF1:A%=?X%:çfs%<>8:ÿ"FX143,18,"+Ãfs%Œ=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6.ç“<&FFFF:ê!&70:X%=&70:!X%=ptr%:Ö&FFDA:=!X%@'È™"OS_Args",A%,Y%,ptr%¸,,ptr%:=ptr%ÿ