Т > FileToMDR 1.03 Т (C) J.G.Harston CТ Make an MDR file from spectrum files with load/exec addresses (Т 2$Т v1.00 Based on FileToTAP v1.05 <*Т FUSE complains about checksums F#Т v1.01 Only uses sectors 254-1 P7Т v1.02 Writes data lengths of &200 instead of &209 Z/Т v1.03 Checksums correct 512 bytes of data d: n$Н ┘ Ж:РCloseAll:Я" at line ";·:Ю x=ч ctrl% 31,name% 80,mem% 547:X%=ctrl%:Y%=X%│256:sect%=255 ┌'Х "Enter output MDR filename: "out$ ▄@in%=0:out%=ў(out$):Г out%=0:Я"Can't open '"out$"'":Ъ"Exec":Ю √2Ъ"SetType "+out$+" FFD":Т Need an MDR filetype ═&Х "Enter cartridge name: "SpTitle$ ╙5Я "Enter input filenames, terminated with RETURN" Є$Н ┘ Ж:РCloseAll:Я" at line ";·:Ю Ў: хУ р Х "File: "in$ э Г in$<>"":РStore ФЩ in$="" ПРFillToEnd З"у#out%,0:Т Not write protected ы#out%:out%=0 Ю : "щРStore ,Г юin$,1)="*":Ъ in$:А 6(type%=єfile(in$,5):Г type%=1:РFile:А @Ъ"Dir "+in$ J0i%=0:У:Рgbpb(8,0,name%,1,i%):i%=X%!9:r%=X%!5 TRГ r%=0:name%?(1+?name%)=13:in$=$(name%+1):type%=єfile(in$,5):in$=in$+",":РFile ^ Щ r%<>0:А h: r щРFile |0load%=X%!2:exec%=X%!6:len%=X%!10:attr%=X%!14 ├QТ IF(load%AND&FFFF0000)=&FFF20000:load%=&FFFF0000+(load%AND&FF00):exec%=load% ░QA%=їin$,","):Г A%:Я:SpName$=аin$,A%+1):in$=юin$,A%-1) ▀ Х "Store as: "SpName$ Г SpName$="":SpName$=in$ є#SpType%=(load% ─ &30000)│&10000 ўSpStart%=(load% ─ &FFFF) ╦SpExtra%=(exec% ─ &FFFF) бSpLen%=len% л!SpName$=юSpName$+д10," "),10) ж*Г type%<>1:Я"File '"in$"' not found":А Ю8Г len%>&10000 ─ SpType%<4:Я"File '"in$"' too long":А Й(Г len%=0:Я"File '"in$"' too short":А Т.in%=▌(in$):Г in%=0:Я"Can't open '"in$"'":А ЧjЯ Ґ11;┴(10+╘ SpName$);Ґ13;Ґ11;~SpType%;" "SpName$" "єh0(SpStart%,4)" "єh0(SpExtra%,4)" "єh0(SpLen%,4); : Т Do first block: ;sect%=sect%-1:block%=0:num%=512-9:Г len%mem%?29=єchk(15,28) :Т Checksum next 14 bytes Nmem%?30=SpType% Xmem%!31=SpLen% b=mem%!33=SpStart%:Г SpType%=1 └ SpType%=2:mem%!33=SpExtra% lNmem%!35=SpExtra%:Г SpType%=1 └ SpType%=2:mem%!33=SpStart%:mem%!35=SpExtra% vmem%!37=SpStart% ─6Рgbpb(4,in%,mem%+30+9,num%,0) :Т Read first block ┼8mem%?542=єchk(30,541) :Т Checksum of data ■7Рgbpb(2,out%,mem%,543,0) :Т Write first block ·len%=len%-num% ╗-Г len%<1:ы#in%:in%=0:Я:А:Т Only one block ╡: ╪У ф@sect%=sect%-1:block%=block%+1:num%=512:Г len%щРSecClear HЦ A%=0 ╦ 542:mem%?A%=0:М:А R: \щРSecHeader f РSecClear p/mem%?0=1 :Т Header block z0mem%?1=sect% :Т Sector number └0$(mem%+4)=єpad(SpTitle$,10):Т Cartridge name ▌9mem%?14=єchk(0,13) :Т Checksum first 14 bytes ≤-mem%?15=4 :Т Data block ╒+Г num%=len%:mem%?15=6 :Т EOF block ╛mem%?16=block% ІА ю: йщРFillToEnd тblock%=0:Г sect%<0:А чУ:sect%=sect%-1 Х*РSecHeader:mem%?15=0 :Т Free block РРgbpb(2,out%,mem%,543,0) ЭЩ sect%<2:А : щєchk(st%,en%):Й chk% IЦ A%=st% ╦ en%:chk%=chk%+mem%?A%:Г chk%<256:chk%=chk%+1 ▀ chk%=chk%+2 $&chk%=chk%─&FF:Гchk%<>0:chk%=chk%-1 .М:=chk% 8: B-щєpad(A$,L%):A$=юA$,L%):=A$+дL%-╘ A$," ") L: VщРCloseAll:*Exec `#in%=in%:Г in%:A%=in%:in%=0:ы#A% j(out%=out%:Г out%:A%=out%:out%=0:ы#A% tА ~: ┬#щєh0(A%,N%)=б"0000000"+ц~A%,N%) ▓Cщєfile(A$,A%):$name%=A$:X%?0=name%:X%?1=name%│256:=(╨&FFDD)─&FF °#щРgbpb(A%,chn%,addr%,num%,ptr%) і5!X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:ж &FFD1:А ╟щєuc(A$):Г A$="":="" ╨HЦ A%=1╦╘ A$:Г аA$,A%,1)>"_":A$=юA$,A%-1)+Ґ(≈ аA$,A%,1)-32)+аA$,A%+1) д М:=A$ Ъ