0ô > DskToUSB45 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"' ‚3max%=(“-’-2048)256:oldfs%=¤fs:ç max%<2:ë &87:ù Œ2Þ ctrl% 31,data% 256*max%-1:X%=ctrl%:Y%=X%256 –òusb_Init:î … ö:òend:à : ª#è†"Source filing system: "type$ ´"è†"Source drive: "drv% ¾"è†"Dest. USB image file: "out$ Èÿ 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 Ü *,*,*,* : =ô fn$="disk" should examine IDs to check density for DDFS "osw%= ("&"+A$):dsize%=¤size ,Nñ"Total sectors to save (&";~dsize%;"): &";:è""A$:çA$<>"":dsize%= ("&"+A$) 6!î … ö:ç ¦-1:òend:à ‹ òabort:à @òusb_Sync:òusb_Flush J%A%=¤usb_Cmd("IPA"):òusb_Flush:ï13 Tç ¤usb_Cmd("IPA"):òabort:à ^$ç ¤usb_Cmd("OPW "+out$):òabort:à h òusb_Sync r: |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 "+out$):òabort òusb_Cmd("SUD") & òusb_Sync 0 òoldfs :ï13:ñ"Done";‰17 Dà N: XÝòoldfs b)çoldfs%:ÿ"FX143,18,"+Ãoldfs%:oldfs%=0 lá v: €Ýòabort Š$òusb_Flush:òusb_Cmd("CLF "+out$) ”òusb_Cmd("SUD"):òusb_Flush ž òend:á ¨: ² Ýòend ¼òoldfs:ñ Æá Ð: ÚÝ¤read(sect%,num%) äõ îtry%=retry% øõ Aï13:ñ"Reading ";¤h0(drv%,1);":";¤h0(sect%,6);"+";¤h0(num%,2); #err%=¤attempt(num%):try%=try%-1 ý try%<1 „ err%=0 ç err%:num%=(num%+2)4 *ý err%=0 „ num%<1 4=num%-(num%<1) >: HÝ¤attempt(num%) RJçfn$="disk" :err%=¤disk( data%,&53,drv%,sect%10,sect%ƒ10,num%,osw%,1) \<çfn$="adfs" :err%=¤adfs( data%, 8,drv%,sect%,num%,osw%) f<çfn$="hadfs":err%=¤hadfs(data%,&80,drv%,sect%,num%,osw%) p*ï13:A%=¤disk_err(err%,drv%,sect%,num%) z =err% „: Ž Ý¤size ˜ê size% ¢cçfn$="disk":sect%=1:err%=¤disk(data%,&53,drv%,0,sect%,1,osw%,1):size%=data%?7+256*(data%?6 € 3) ¬Wçfn$="adfs":sect%=0:err%=¤adfs(data%,8,drv%,sect%,1,osw%):size%=data%!&FC € &FFFFFF ¶\çfn$="hadfs":sect%=&46:err%=¤hadfs(data%,&80,drv%,sect%,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 .ýA%<>0„num%<1:=A% 8+Ý¤adfs(addr%,cmd%,drv%,sect%,num%,osw%) BDX%?0=1:X%!1=addr%:X%?5=cmd%:X%?6=drv%*32+((sect%€&1F0000)65536) L9X%?7=((sect%€&FF00)256):X%?8=sect%:X%!9=num%:X%!11=0 VA%=osw%:Ö&FFF1:=?X% `,Ý¤hadfs(addr%,cmd%,drv%,sect%,num%,osw%) jB!X%=&600:X%!2=addr%:X%!6=sect%:X%?9=drv%:X%?10=num%:X%?11=cmd% tA%=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:á ((Ý¤usb_Cmd(A$):òusb_Cmd(A$):=¤usb_Err 23Ýòusb_WrStr(A$):ã A%=1 ¸ © A$:õý(?usb_S € 64)=0 <?usb_D=—ÁA$,A%,1):í:á F?Ýòusb_RdStr:A%=usb_result%-1:õA%=A%+1:?A%=¤usb_Rd:ý?A%=13:á P.Ýòusb_Wr(A%):õý(?usb_S € 64)=0:?usb_D=A%:á Z'Ý¤usb_Rd:õý(?usb_S € 128)=0:=?usb_D dÝòusb_Init nusb_D=&FCF8:usb_S=&FCF9 x+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 ,.usb_Wr2:STA usb_D:RTS 6]í:á @: ÿ