Т > ImgToDisk 0.10 Т (C) J.G.Harston $Т Some routines from HADFS Filer (: 2Hш:Я"Disk Image Copier"''"Copies 400k image of 256/10/80/2 FM disks"' Т FDC_Op - Passed absolute sector addressing information X: b3щєFDC_Op(mem%,sec%,trk%,hd%,drv%,num%,op%,rec%) l3trk%=((hd%+1)*FDC_trks%*FDC_spt%+sec%)*FDC_bps% vop%=op%+(rec%<<6) ─rec%?34=drv% ┼?х≥ "XADFS_DiscOp",0,op%,trk%+(drv%<<29),mem%,256*num% ╦ op% ■=op% ·: ╗!Т ------- do later --------- ╡: ╪%Т Passed absolute sector address: ф: п9щєFDC_Rd(addr%,absSec%,drv%,num%):=єFDC_Access(read%) з:щєFDC_Wr(addr%,absSec%,drv%,num%):=єFDC_Access(write%) Д: Н"щєFDC_Access(type%):Гnum%=0:=╧ Ь:Т Convert absSec% to sec/trk/head, pass to lower level : qщє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 ▄ *2 Г╛єfdc_access(data%,sec%,1600-sec%,type%):=ё 4H =єfdc_access(data%+256*(1600-sec%),1600,length%-(1600-sec%),type%) >м H"Т I don't know if I need this: R"Гsec%<800 ─ sec%+length%>800 ▄ \1 Г╛єfdc_access(data%,sec%,800-sec%,type%):=ё fE =єfdc_access(data%+256*(800-sec%),800,length%-(800-sec%),type%) pм z&Й r%,hd%,dr%,reason%,disc_address% └dr%=drive%:Т MOD 2 ▌2Гdr%>3 ▄ =єpartition(data%,sec%,length%,type%) ≤7Гsec%>1599 Рwarning("Can't do tracks 1599+ yet"):=ё ╒(hd%=0:Г sec%>799 hd%=1:sec%=sec%-800 ╛BГ sec%>799 sec%=sec%-800:hd%=(sec% │ 10)─ 1:sec%=800+sec% │ 20 І: ю&track%=(hd%*FDC_trks%*10+sec%)*256 й: тТ hd%=(sec%>799) AND 1 чТ IFsec%>799 sec%=sec%-800 ХIТ IFsec%>799 sec%=sec%-800:hd%=(sec% DIV 10)AND 1:sec%=800+sec%DIV 20 Р(Т track%=(hd%*FDC_trks%*10+sec%)*256 Эreason%=type%+(diskrec%<<6) $Т disc_address%=track%+(dr%<<29) Sdiskrec%?34=dr%:Т IFtest%AND2 PRINT"Head:";hd%,"Trk:";~track%,"Sec:";sec_start% Fх≥"XADFS_DiscOp",0,reason%,track%+(dr%<<29),data%,256*length% ╦ r% $3Г r%<>0 err%=╧:Рwarning(єmemtostr(r%+4,100)):=ё .=╧ 8: B/щєpartition(data%,sec_start%,length%,type%) L#Т type%=1, read; type%=2, write V!Т GBPB 1, write; GBPB 3, read `+ГDiskChn%=0 Рwarning(єmess("Err14")):=ё jDх≥ "OS_GBPB",5-type%*2,DiskChn%,data%,length%*256,sec_start%*256 tWГ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 ( М 2 ы#in% <м Ъ