Т > ImgToDisk 0.10 Т (C) J.G.Harston $Т Some routines from HADFS Filer : Т Quick hack: ш:Я"Disk Image Copier" (Я" (2)00K, (4)00K or (6)40K disk? "; У A$=Ў:Щї"246",A$):Я A$ Г A$="2":size%=200 Г A$="4":size%=400 Г A$="6":size%=640 /Т size%=200:REM single-sided DFS style disk /Т size%=400:REM double-sided DFS style disk %Т size%=640:REM ADFS-L style disk Ю=░+size%*1024+32768 >Г size%=200:Я '"Copies 200K image to 256*10*80*1 FM disk"' >Г size%=400:Я '"Copies 400K image to 256*10*80*2 FM disk"' ?Г size%=640:Я '"Copies 640K image to 256*16*80*2 MFM disk"' =Т bytes/sectors/tracks/sides Н ┘ Ж:Я ·:Ю : -bufsz%=20*256:ч diskrec% 256,data% bufsz% : Х"Source file: "in$ &Х"Dest. drive: "drv$:drive%=╩ drv$ .in%=▌(in$):Г in%=0:Я"Can't open '"in$"'":Ю 9Г size%=200:spt%=10:РFDC_Init(diskrec%,8,spt%,1,1,80) 9Г size%=400:spt%=10:РFDC_Init(diskrec%,8,spt%,1,1,80) 9Г size%=640:spt%=16:РFDC_Init(diskrec%,8,spt%,1,2,80) : 'Т Temp body to quickly get working: ч image% size%*1024 !(х≥ "OS_GBPB",4,in%,image%,size%*1024 "3dummy%=єfdc_access(image%,0,(size%*1024)│256,2) #ы#in%:in%=0 $Ю %: &: 'Ц head% =0 ╦ 1 ( Ц track% =0 ╦ 79 ) Ц sector%=0 ╦ 9 * +< Я Ґ13;sector%;":";track%;":";head%;":";drive%;" "; , Ц byte% =0 ╦ 255 - data%?byte%= #in% . М byte% /N Г єFDC_Op(data%,sector%,track%,head%,drive%,2,1,diskrec%):Я"- error" 0 1 М sector% 2 М track% 3М head% 4ы#in%:in%=0:Я 5Ю 6: 7: 8Т FDC Routines 9Т ============ :: ;CТ FDC_Init - Initialise disk record block for passed disk shape <: =Pщ РFDC_Init(dskrec%,bps%,spt%,hds%,den%,trks%):Т Initialise FDC Record Block >Й i% ?.dskrec%?0=bps% :Т 2^bps bytes per sector @)dskrec%?1=spt% :Т sectors per track A&dskrec%?2=hds% :Т num of heads-1 B$dskrec%?3=den% :Т density 1=FM C6Ц i%=4 ╦ 59 ┬ 4:dskrec%!i%=0:М:Т Clear disk record D/dskrec%!16=(trks%*1)*spt%*(2^bps%)*(hds%+1) E#FDC_spt%=spt% :Т Extern: s/t F#FDC_bps%=2^bps% :Т Extern: b/s G&FDC_trks%=trks% :Т Extern: tracks HА I: J>Т FDC_Op - Passed absolute sector addressing information K: L4щ єFDC_Op(mem%,sec%,trk%,hd%,drv%,num%,op%,rec%) M3trk%=((hd%+1)*FDC_trks%*FDC_spt%+sec%)*FDC_bps% Nop%=op%+(rec%<<6) Orec%?34=drv% P?х≥ "XADFS_DiscOp",0,op%,trk%+(drv%<<29),mem%,256*num% ╦ op% Q=op% R: S!Т ------- do later --------- T: U%Т Passed absolute sector address: V: W:щ єFDC_Rd(addr%,absSec%,drv%,num%):=єFDC_Access(read%) X;щ єFDC_Wr(addr%,absSec%,drv%,num%):=єFDC_Access(write%) Y: Z$щ єFDC_Access(type%):Г num%=0:=╧ [:Т Convert absSec% to sec/trk/head, pass to lower level \: ]rщ єfdc_access(data%,sec%,length%,type%):Т IF(test%AND1) VDU4:PRINT"S:";~sec_start%,sec_start%,~length%,length% ^Г length%=0:=╧ _%Г sec%<1600 ─ sec%+length%>1600 ▄ `3 Г ╛єfdc_access(data%,sec%,1600-sec%,type%):=ё aH =єfdc_access(data%+256*(1600-sec%),1600,length%-(1600-sec%),type%) bм c"Т I don't know if I need this: d#Г sec%<800 ─ sec%+length%>800 ▄ e2 Г ╛єfdc_access(data%,sec%,800-sec%,type%):=ё fE =єfdc_access(data%+256*(800-sec%),800,length%-(800-sec%),type%) gм h&Й r%,hd%,dr%,reason%,disc_address% idr%=drive%:Т MOD 2 j3Г dr%>3 ▄ =єpartition(data%,sec%,length%,type%) k8Г sec%>1599 Рwarning("Can't do tracks 1599+ yet"):=ё l(hd%=0:Г sec%>799 hd%=1:sec%=sec%-800 mBГ sec%>799 sec%=sec%-800:hd%=(sec% │ 10)─ 1:sec%=800+sec% │ 20 n: o&track%=(hd%*FDC_trks%*10+sec%)*256 p: qТ hd%=(sec%>799) AND 1 rТ IFsec%>799 sec%=sec%-800 sIТ IFsec%>799 sec%=sec%-800:hd%=(sec% DIV 10)AND 1:sec%=800+sec%DIV 20 t(Т track%=(hd%*FDC_trks%*10+sec%)*256 ureason%=type%+(diskrec%<<6) v$Т disc_address%=track%+(dr%<<29) wSdiskrec%?34=dr%:Т IFtest%AND2 PRINT"Head:";hd%,"Trk:";~track%,"Sec:";sec_start% xFх≥"XADFS_DiscOp",0,reason%,track%+(dr%<<29),data%,256*length% ╦ r% y3Г r%<>0 err%=╧:Рwarning(єmemtostr(r%+4,100)):=ё z=╧ {: |0щ єpartition(data%,sec_start%,length%,type%) }#Т type%=1, read; type%=2, write ~!Т GBPB 1, write; GBPB 3, read ,Г DiskChn%=0 Рwarning(єmess("Err14")):=ё ─Dх≥ "OS_GBPB",5-type%*2,DiskChn%,data%,length%*256,sec_start%*256 │XГ sec_start%=70 ─ type%=1 ▄ type%=(╒#DiskChn%)│256:data%?28=type%:data%?29=type%│256 ┌=╧ ┐: └: ┘: ├Г sectors<=bufsec% ▄ ┤- dum=єfdc_access(data%,start%,sectors,1) ┬< Ъ "SAVE "+pathname$+" "+ц~(data%)+" "+ц~(data%+length) ┴л ┼< dum=єfdc_access(data%,start%,bufsec%,1):Т do first bit ▀A Ъ "SAVE "+pathname$+" "+ц~(data%)+" "+ц~(data%+bufsec%*256) ▄ out%=ґ pathname$ █ о#out%=╒#out% ▌M endsec%=sectors │ bufsec%:Г endsec%=sectors/bufsec% ▄ endsec%=endsec%-1 ▐' Ц saveloop%=1 ╦ endsec%:Т do rest ░N Г saveloop%=endsec% ▄ size=length ┐ (bufsec%*256) ▀ size = bufsec%*256 ▒Q dum=єfdc_access(data%,start%+bufsec%*saveloop%,(size+255) │ 256,1):Т 1=RD ▓& х≥ "OS_GBPB",2,out%,data%,size ⌠ М ■ ы#in% ∙м Ъ