Т > DiskToImg 0.10 Т (C) J.G.Harston $Т Some routines from HADFS Filer : Т Quick hack: ш:Я"Disk Image Creater" (Я" (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:Я '"Creates 200k image of 256*10*80*1 FM disk"' ?Г size%=400:Я '"Creates 400k image of 256*10*80*2 FM disk"' @Г size%=640:Я '"Creates 640k image of 256*16*80*2 MFM disk"' ?Т bytes/sectors/tracks/sides Н ┘ Ж:Я ·:Ю : -bufsz%=20*256:ч diskrec% 256,data% bufsz% : 'Х"Source drive: "drv$:drive%=╩ drv$ Х"Dest. file: "out$ 2out%=ў(out$):Г out%=0:Я"Can't open '"out$"'":Ю 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 !3dummy%=єfdc_access(image%,0,(size%*1024)│256,1) ")х≥ "OS_GBPB",2,out%,image%,size%*1024 #ы#out%:out%=0 $*Ъ"SetType "+out$+" B22":Ъ"Stamp "+out$ %Ю &: ': (Ц head% =0 ╦ 1 ) Ц track% =0 ╦ 79 * Ц sector%=0 ╦ 9 + ,< Я Ґ13;sector%;":";track%;":";head%;":";drive%;" "; -N Г єFDC_Op(data%,sector%,track%,head%,drive%,1,1,diskrec%):Я"- error" . Ц byte% =0 ╦ 255 / у#out%,data%?byte% 0 М byte% 1 2 М sector% 3 М track% 4М head% 5ы#out%:out%=0:Я 60Т OS."SetType "+out$+" 123":OS."Stamp "+out$ 7Ю 8: 9: :Т FDC Routines ;Т ============ <: =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% A.dskrec%?0=bps% :Т 2^bps bytes per sector B)dskrec%?1=spt% :Т sectors per track C&dskrec%?2=hds% :Т num of heads-1 D$dskrec%?3=den% :Т density 1=FM E6Ц i%=4 ╦ 59 ┬ 4:dskrec%!i%=0:М:Т Clear disk record F/dskrec%!16=(trks%*1)*spt%*(2^bps%)*(hds%+1) G#FDC_spt%=spt% :Т Extern: s/t H#FDC_bps%=2^bps% :Т Extern: b/s I&FDC_trks%=trks% :Т Extern: tracks JА K: L>Т FDC_Op - Passed absolute sector addressing information M: N4щ єFDC_Op(mem%,sec%,trk%,hd%,drv%,num%,op%,rec%) O3trk%=((hd%+1)*FDC_trks%*FDC_spt%+sec%)*FDC_bps% Pop%=op%+(rec%<<6) Qrec%?34=drv% R?х≥ "XADFS_DiscOp",0,op%,trk%+(drv%<<29),mem%,256*num% ╦ op% S=op% T: U!Т ------- do later --------- V: W%Т Passed absolute sector address: X: Y:щ єFDC_Rd(addr%,absSec%,drv%,num%):=єFDC_Access(read%) Z;щ єFDC_Wr(addr%,absSec%,drv%,num%):=єFDC_Access(write%) [: \$щ є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:=╧ a-Т IF sec%<1600 AND sec%+length%>1600 THEN b=Т IF NOTFNfdc_access(data%,sec%,1600-sec%,type%):=FALSE cKТ =FNfdc_access(data%+256*(1600-sec%),1600,length%-(1600-sec%),type%) dТ ENDIF e"Т I don't know if I need this: f+Г sec%<80*spt% ─ sec%+length%>80*spt% ▄ g6 Г ╛єfdc_access(data%,sec%,80*spt%-sec%,type%):=ё hQ =єfdc_access(data%+256*(80*spt%-sec%),80*spt%,length%-(80*spt%-sec%),type%) iм j&Й r%,hd%,dr%,reason%,disc_address% kdr%=drive%:Т MOD 2 l3Г dr%>3 ▄ =єpartition(data%,sec%,length%,type%) mBТ IF sec%>1599 PROCwarning("Can't do tracks 1599+ yet"):=FALSE n4hd%=0:Г sec%>(80*spt%)-1:hd%=1:sec%=sec%-80*spt% oZГ sec%>(80*spt%)-1:sec%=sec%-80*spt%:hd%=(sec% │ spt%)─ 1:sec%=80*spt%+sec% │ (2*spt%) p: q(track%=(hd%*FDC_trks%*spt%+sec%)*256 r: sТ hd%=(sec%>799) AND 1 tТ IFsec%>799 sec%=sec%-800 uIТ IFsec%>799 sec%=sec%-800:hd%=(sec% DIV 10)AND 1:sec%=800+sec%DIV 20 v(Т track%=(hd%*FDC_trks%*10+sec%)*256 wreason%=type%+(diskrec%<<6) x$Т disc_address%=track%+(dr%<<29) ySdiskrec%?34=dr%:Т IFtest%AND2 PRINT"Head:";hd%,"Trk:";~track%,"Sec:";sec_start% zFх≥"XADFS_DiscOp",0,reason%,track%+(dr%<<29),data%,256*length% ╦ r% {3Г r%<>0 err%=╧:Рwarning(єmemtostr(r%+4,100)):=ё |=╧ }: ~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 └=╧ ┘: ├ ┤ ┬Т Now transfer data: ┴Г length%<>0 ▄ ┼ length%=(length%+255)│256 ▀ Г length% <= bufsec% ▄ ▄6 х≥ "OS_File",&FF,pathname$,data%,0:Т Load data █9 dum=єfdc_access(data%,startsec%,length%,2):Т 2=WR ▌ л ▐ in%=▌ pathname$ ░( Ц saveloop%=0 ╦ length%│ bufsec% ▒X Г saveloop%=length%│ bufsec% ▄ size=(length% ┐ bufsec%)*256 ▀ size = bufsec%*256 ▓0 х≥ "OS_GBPB",4,in%,data%,size ╦ ,,,not ⌠M dum=єfdc_access(data%,startsec%+saveloop%*bufsec%,(size+255)│256,2) ■ М ∙ ы#in% √ м ≈м ≤Qfiles_actioned%=files_actioned%+1:РsetOpt(fileraction%,3,ц files_actioned%,╧) ≥Рfree:РForceActionRedraw А ⌡: °: ²: ·Г 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 ╚ М ╛ ы#out% ґм Ъ