 
/ô > FileToDisk 0.43 04-Jun-2018 J.G.Harston &ô Copy image file to physical disk : (%ñ "Copy disk image to whole disk" 2?ñ "***WARNING*** THIS WILL COMPLETELY OVERWRITE YOUR DISK"' <3max%=(“-’-1024)256:oldfs%=¤fs:ç max%<2:ë &87:ù F2Þ ctrl% 31,data% 256*max%-1:X%=ctrl%:Y%=X%256 Pî … ö:òend:à Z: d è†"Source image file:   "in$ n"è†"Dest. filing system: "type$ x!è†"Dest. drive:         "drv% ‚ÿ type$:thisfs%=¤fs Œõ:ó fs$,fn$,A$,retry% –ý fs$="*" „ fs$=Ãthisfs%  4ç fs$="*":ñ "Unsupported filing system":òoldfs:à ªIÜ 4,disk,7F,3, 8,adfs,72,1, 10,adfs,62,1, 16,hadfs,5A,1, 29,disk,77,1 ´Eô     DISK         ADFS         LVFS          HADFS           RAM ¾Ü *,*,*,* È: Òô Should check image size Üosw%= ("&"+A$):dsize%=¤size æKñ"Total disk sectors (&";~dsize%;"): &";:è""A$:çA$<>"":dsize%= ("&"+A$) ðVçdsize%>&FFF:è"This is a hard drive - continue? "A$:A$=½(—A$€&DF):ç A$<>"Y":òend:à ú=òoldfs:in%=Ž(in$):çin%=0:ñ"File '"in$"' not found":òend:à:sect%=0:thisnum%=max%õ"3num%=max%:ç sect%+num%>dsize%:num%=dsize%-sect%,!ç thisnum%<num%:num%=thisnum%67ï13:ñ"Reading   ";¤h0(sect%,6);"+";¤h0(thisnum%,2);@!ògbpb(4,in%,data%,num%*256,0)J#thisnum%=¤write(sect%,thisnum%)Tsect%=sect%+thisnum%^Eç num%=thisnum%:thisnum%=thisnum%*2:ç thisnum%>max%:thisnum%=max%hýsect%>=dsize%r:|ï13:ñ"Closing";‰14;†òoldfs:Ù#in%ï13:ñ"Done";‰17š4ô Needs fixup to match image size with disk size¤à®:¸ÝòoldfsÂ)çoldfs%:ÿ"FX143,18,"+Ãoldfs%:oldfs%=0ÌáÖ:à	Ýòendêòoldfs:ñôáþ:Ý¤write(sect%,num%)õtry%=retry%&õ0Aï13:ñ"Writing ";¤h0(drv%,1);":";¤h0(sect%,6);"+";¤h0(num%,2);:#err%=¤attempt(num%):try%=try%-1Dý try%<1 „ err%=0Nç err%:num%=(num%+2)4Xý err%=0 „ num%<1b=num%-(num%<1)l:vÝ¤attempt(num%)€:çfn$="disk":err%=¤disk(data%,&4B,drv%,sect%,num%,osw%)Š9çfn$="adfs":err%=¤adfs(data%,10,drv%,sect%,num%,osw%)”<çfn$="hadfs":err%=¤hadfs(data%,&81,drv%,sect%,num%,osw%)ž*ï13:A%=¤disk_err(err%,drv%,sect%,num%)¨	=err%²:¼
Ý¤sizeÆê size%Ð[çfn$="disk":err%=¤disk(data%,&53,drv%,1,1,osw%):size%=data%?7+256*(data%?6 € 3):sect%=1ÚSçfn$="adfs":err%=¤adfs(data%,8,drv%,0,1,osw%):size%=data%!&FC € &FFFFFF:sect%=0äYçfn$="hadfs":err%=¤hadfs(data%,&80,drv%,&46,1,osw%):size%=data%!28 € &FFFFFF:sect=&46î'ï13:A%=¤disk_err(err%,drv%,sect%,1)ø
=size%:ô Disk access routinesô ====================  Ý¤fs:êA%,E%,Y%:=(º&FFDA)€&FF*:Ý¤disk(addr%,cmd%,drv%,trk%,sec%,num%,osw%):ên%:den%=14$õ:n%=num%:çsec%+n%>10:n%=10-sec%>Dõ:X%?0=drv%+den%*24+8+2*(trk%80):X%!1=addr%:X%?5=3-7*(cmd%>127)HAX%?6=cmd%:X%?7=trk%ƒ80:X%?8=sec%:X%!9=n%„&1E20:A%=osw%:Ö&FFF1RYA%=X%?(7+X%?5):ýA%<>&10:addr%=addr%+n%*256:num%=num%-n%:sec%=(sec%+n%)ƒ10:trk%=trk%+1\ýA%<>0„num%<1:=A%f+Ý¤adfs(addr%,cmd%,drv%,sect%,num%,osw%)p!ê fs%:fs%=¤fs:ç fs%<>8:*FADFSzDX%?0=1:X%!1=addr%:X%?5=cmd%:X%?6=drv%*32+((sect%€&1F0000)65536)„9X%?7=((sect%€&FF00)256):X%?8=sect%:X%!9=num%:X%!11=0ŽA%=osw%:Ö&FFF1˜*ç fs%<>8:ÿ"DISMOUNT":ÿ"FX143,18,"+Ãfs%¢=?X%¬,Ý¤hadfs(addr%,cmd%,drv%,sect%,num%,osw%)¶B!X%=&600:X%!2=addr%:X%!6=sect%:X%?9=drv%:X%?10=num%:X%?11=cmd%ÀA%=osw%:Ö&FFF1:=X%?12ÊÝ¤disk_err(A%,D%,S%,N%)ÔMçA%:ñ"Disk error ";¤h0(A%,2);" at ";¤h0(D%,1);":";¤h0(S%,6);"+";¤h0(N%,2)Þ=A%è:òô I/O routinesüô ============%Ý¤h0(A%,N%):=Â"00000000"+Ã~A%,N%)6Ý¤fx(A%,X%):ê Y%:Y%=X%256:=(º&FFF4 € &FFFF00)256#Ýògbpb(A%,chn%,addr%,num%,ptr%)$ô Test code.=ç¤fs<>17:?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:Ö&FFD1:á86õ?addr%=š#chn%:addr%=addr%+1:num%=num%-1:ýnum%<1:áÿ