0ô > USBtoDsk45 v0.45 28-Dec-2018 J.G.Harston :ô v0.20 - Manually sends data 256*max% bytes at a time Kô v0.30 - Uses machine code USB transfer, dynamically skips disk errors (@ô v0.40 - Copies DFS/ADFS/LVFS, allows size to be overridden 2Jô v0.41 - Selects source FS by command, keeps FS selected for transfer usbfile" ‚?ñ "***WARNING*** THIS WILL COMPLETELY OVERWRITE YOUR DISK"' Œ3max%=(“-’-2048)256:oldfs%=¤fs:ç max%<2:ë &87:ù –2Þ ctrl% 31,data% 256*max%-1:X%=ctrl%:Y%=X%256 òusb_Init:î … ö:òend:à ª: ´"è†"Source USB image file: "in$ ¾$è†"Dest. filing system: "type$ È#è†"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 Ü *,*,*,* : "osw%= ("&"+A$):dsize%=¤size ,Kñ"Total disk sectors (&";~dsize%;"): &";:è""A$:çA$<>"":dsize%= ("&"+A$) 6Vçdsize%>&FFF:è"This is a hard drive - continue? "A$:A$=½(—A$€&DF):ç A$<>"Y":òend:à @!î … ö:ç ¦-1:òend:à ‹ òabort:à Jòusb_Sync:òusb_Flush T%A%=¤usb_Cmd("IPA"):òusb_Flush:ï13 ^ç ¤usb_Cmd("IPA"):òabort:à h#ç ¤usb_Cmd("OPR "+in$):òabort:à r òusb_Sync |: †sect%=0:thisnum%=max% õ š3num%=max%:ç sect%+num%>dsize%:num%=dsize%-sect% ¤!ç thisnum%max%:thisnum%=max% ôýsect%>=dsize% þ: ï13:ñ"Closing";‰14; òusb_Sync:òusb_Flush !ç ¤usb_Cmd("CLF "+in$):òabort &òusb_Cmd("SUD") 0 òusb_Sync : òoldfs Dï13:ñ"Done";‰17 Nà X: bÝòoldfs l)çoldfs%:ÿ"FX143,18,"+Ãoldfs%:oldfs%=0 vá €: ŠÝòabort ”#òusb_Flush:òusb_Cmd("CLF "+in$) žòusb_Cmd("SUD"):òusb_Flush ¨ òend:á ²: ¼ Ýòend Æòoldfs:ñ Ðá Ú: äÝ¤write(sect%,num%) îõ øtry%=retry% õ Aï13:ñ"Writing ";¤h0(drv%,1);":";¤h0(sect%,6);"+";¤h0(num%,2); #err%=¤attempt(num%):try%=try%-1 ý try%<1 „ err%=0 *ç err%:num%=(num%+2)4 4ý err%=0 „ num%<1 >=num%-(num%<1) H: RÝ¤attempt(num%) \Hçfn$="disk":err%=¤disk(data%,&4B,drv%,sect%10,sect%ƒ10,num%,osw%,1) f9çfn$="adfs":err%=¤adfs(data%,10,drv%,sect%,num%,osw%) p<çfn$="hadfs":err%=¤hadfs(data%,&81,drv%,sect%,num%,osw%) z*ï13:A%=¤disk_err(err%,drv%,sect%,num%) „ =err% Ž: ˜ Ý¤size ¢ê size% ¬_çfn$="disk":sect%=1:err%=¤disk(data%,&53,drv%,0,1,1,osw%,1):size%=data%?7+256*(data%?6 € 3) ¶Sçfn$="adfs":sect%=0:err%=¤adfs(data%,8,drv%,0,1,osw%):size%=data%!&FC € &FFFFFF ÀZçfn$="hadfs":sect%=&46:err%=¤hadfs(data%,&80,drv%,&46,1,osw%):size%=data%!28 € &FFFFFF Ê'ï13:A%=¤disk_err(err%,drv%,sect%,1) Ô =size% Þ: èô Disk access routines òô ==================== ü Ý¤fs:êA%,E%,Y%:=(º&FFDA)€&FF 8Ý¤disk(addr%,cmd%,drv%,trk%,sec%,num%,osw%,den%):ên% $õ: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) $AX%?6=cmd%:X%?7=trk%ƒ80:X%?8=sec%:X%!9=n%„&1E20:A%=osw%:Ö&FFF1 .YA%=X%?(7+X%?5):ýA%<>&10:addr%=addr%+n%*256:num%=num%-n%:sec%=(sec%+n%)ƒ10:trk%=trk%+1 8ýA%<>0„num%<1:=A% B+Ý¤adfs(addr%,cmd%,drv%,sect%,num%,osw%) LDX%?0=1:X%!1=addr%:X%?5=cmd%:X%?6=drv%*32+((sect%€&1F0000)65536) V9X%?7=((sect%€&FF00)256):X%?8=sect%:X%!9=num%:X%!11=0 `A%=osw%:Ö&FFF1:=?X% j,Ý¤hadfs(addr%,cmd%,drv%,sect%,num%,osw%) tB!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 Ø: âô USB access routines ìô =================== ö+Ýòusb_Sync:õA%=?usb_D:ý(?usb_S € 128):á !Ýòusb_Flush:ç(?usb_S € 128):á 2ñ'"Flushing USB";:õ:õA%=?usb_D:ý(?usb_S € 128) $A%=‘+20:õý‘>A%:ý(?usb_S € 128):á VÝ¤usb_Err:ç?usb_result%=13 „ usb_result%?1=—":":=0 ‹ ñ"USB Error: "$usb_result%:=¹ (;Ýòusb_Cmd(A$):òusb_Sync:òusb_WrStr(A$+½13):òusb_RdStr:á 2(Ý¤usb_Cmd(A$):òusb_Cmd(A$):=¤usb_Err <3Ýòusb_WrStr(A$):ã A%=1 ¸ © A$:õý(?usb_S € 64)=0 F?usb_D=—ÁA$,A%,1):í:á P?Ýòusb_RdStr:A%=usb_result%-1:õA%=A%+1:?A%=¤usb_Rd:ý?A%=13:á Z.Ýòusb_Wr(A%):õý(?usb_S € 64)=0:?usb_D=A%:á d'Ý¤usb_Rd:õý(?usb_S € 128)=0:=?usb_D nÝòusb_Init xusb_D=&FCF8:usb_S=&FCF9 ‚+usb_result%=usb_result%:ç usb_result%:á ŒÞ usb_result% 63,mc% 99 –ã P=0 ¸ 1:P%=mc%:[OPT P*2 .usb_RdData ª'TAY:LDA #data% € 255:STA usb_RdLp+4 ´*LDA #data% 256:STA usb_RdLp+5:LDX #0 ¾5.usb_RdLp:JSR usb_Rd:STA data%,X:INX:BNE usb_RdLp È'INC usb_RdLp+5:DEY:BNE usb_RdLp:RTS Ò4.usb_Rd:BIT usb_S:BPL usb_Rd2:BIT &FF:BPL usb_Rd Ü.usb_Rd2:LDA usb_D:RTS æ.usb_WrData ð'TAY:LDA #data% € 255:STA usb_WrLp+1 ú*LDA #data% 256:STA usb_WrLp+2:LDX #0 $.usb_WrLp:LDA data%,X:JSR usb_Wr 0.usb_WrLp2:LDA usb_D:BIT usb_S:BPL usb_WrLp2 INX:BNE usb_WrLp "'INC usb_WrLp+2:DEY:BNE usb_WrLp:RTS ,4.usb_Wr:BIT usb_S:BVC usb_Wr2:BIT &FF:BPL usb_Wr 6.usb_Wr2:STA usb_D:RTS @]í:á J: ÿ