
 *NAME RomCombiner ╙=&B500 ▐ bank% 16383( ▐ fname 2552 ▐ inbuffer 255< maxcards=16:maxapps=64,P ▐ CardName$(maxcards),CardSize(maxcards))Z ▐ CardBase(maxcards),CardID(maxcards):d ▐ AppCard(maxapps),AppBank(maxapps),AppOffset(maxapps):n ▐ AppKey$(maxapps),AppName$(maxapps),AppOrder(maxapps)+x ▐ OrderOrder(maxapps),OrderApp(maxapps)В ▐ AppPatch$(maxapps)М WaitLS%=г:ShowApps%=╣Ц bufchange%=г:$inbuffer=""!а r1$=╜(1)+"2+R":r0$=╜(1)+"2-R"!к b1$=╜(1)+"2+B":b0$=╜(1)+"2-B"╛ ї╚ ЄDispTitle/╥ ё b1$;"R";b0$;"ead ROM card to image files"/▄ ё b1$;"C";b0$;"ombine image files of cards"5ц ё b1$;"V";b0$;"erify EPROM banks properly erased"2Ё ё b1$;"B";b0$;"low image files to blank EPROM"*· ё b1$;"F";b0$;"lash EPROM block erase"+ё b1$;"E";b0$;"mulator file conversion"4ё b1$;"W";b0$;"ait mode";К47);b1$;"Q";b0$;"uit";K$=╛ "ч K$="R" Д K$="r" М ЄReadROM!,ч K$="C" Д K$="c" М ЄCombiner6ч K$="V" Д K$="v" М ЄVerify @ч K$="B" Д K$="b" М ЄBlowROM#Jч K$="F" Д K$="f" М ЄFlashErase#Tч K$="E" Д K$="e" М ЄEprConvert)^ч K$="W" Д K$="w" М WaitLS%=м WaitLS%h¤ K$="Q" Д K$="q"r█|рЖ▌ ЄCombinerРnumcards=0:numapps=0LЪLastAdd%=0:LastBank%=0:NewCardID%=0:ForcedSize%=-1:TopBank%=63:EPFS$="N"дїоЄDispInfo╕ч ShowApps% М ЄDispApps>┬ё b1$;"A";b0$;"dd,";b1$;"K";b0$;"ey,";b1$;"O";b0$;"rder,";B╠ё b1$;"R";b0$;"ename,";b1$;"P";b0$;"atch,";b1$;"I";b0$;"nfo,";@╓ё b1$;"D";b0$;"isp,";b1$;"W";b0$;"ait,";b1$;"T";b0$;"echy,";Aрё b1$;"C";b0$;"reate,";b1$;"L";b0$;"oad,";b1$;"S";b0$;"ave,";ъё b1$;"Q";b0$;"uit";ЇK$=╛■ё:ё ч K$="A" Д K$="a" М ЄAddCard"ч K$="K" Д K$="k" М ЄChangeKey$ч K$="O" Д K$="o" М ЄChangeOrder&ч K$="R" Д K$="r" М ЄRename0ч K$="P" Д K$="p" М ЄPatch :ч K$="I" Д K$="i" М ЄAppInfo"Dч K$="T" Д K$="t" М ЄTechyOpts)Nч K$="W" Д K$="w" М WaitLS%=м WaitLS%-Xч K$="D" Д K$="d" М ShowApps%=м ShowApps% bч K$="L" Д K$="l" М ЄLoadCfg lч K$="S" Д K$="s" М ЄSaveCfg'v¤ K$="C" Д K$="c" Д K$="Q" Д K$="q"Ач K$="C" Д K$="c" М х НtJB*Бё "Really quit now without combining?"ВK$=╛Гч K$="Y" Д K$="y" М с
Дх НtdA4Кч numcards=0 М ЄErrMsg("No cards to combine!"):с4Фч дNextApp(1)=-1 М ЄErrMsg("No applications!"):сЮLB%=TopBank%+1иу I%=0 ╕ numcards-1▓LB%=LB%-CardSize(I%)╝CardBase(I%)=LB%╞э I%1╨ч LB%<0 М ЄErrMsg("Combined card too big!"):с ┌ш "Destination card name";C$%фш "Delete source images (Y/N)";Q$ю█"°ё "Creating initial images..."у I%=0 ╕ numcards-1у J%=0 ╕ CardSize(I%)-13S$=дbankfile$(CardName$(I%),64-CardSize(I%)+J%) Єload(S$,bank%)3*ч Ч(Q$)=Ч("Y") Д Ч(Q$)=Ч("y") М  ("*ERASE "+S$)%4S$=дbankfile$(C$,CardBase(I%)+J%)>ё S$Hbufchange%=╣RЄsave(S$)\э J%fэ I%pё:ё "Modifying images..."zO%=1ДI%=дNextApp(O%)(ОЄload(дbankfile$(C$,TopBank%),bank%),Уч дGetb(&3FFB)=&81 М OZROM%=1 Л OZROM%=0SХч OZROM%=1 ё "Techy options (if previously selected) are ignored for OZ ROM..."(Шч OZROM%=0 М ЄSetw(&3FF8,NewCardID%)-дч ForcedSize%=-1 М ЄSetb(&3FFC,дtotsize) ;зч OZROM%=0 А ForcedSize%<>-1 М ЄSetb(&3FFC,ForcedSize%)мЄSetw(&3FC6,AppOffset(I%))2╢ЄSetb(&3FC8,дnewbank(AppCard(I%),AppBank(I%)))2└ч OZROM%=0 М ЄSetb(&3FF6,&FF):ЄSetb(&3FF7,&FF)R╩ч OZROM%=0 А (EPFS$="Y" Д EPFS$="y") М ЄSetb(&3FF6,Ч("o")):ЄSetb(&3FF7,Ч("z"))╘ї▐O%=O%+1шJ%=дNextApp(O%)bЄч J%=-1 М LA%=LastAdd%:LB%=LastBank% Л LA%=AppOffset(J%):LB%=дnewbank(AppCard(J%),AppBank(J%))"№ё "Application: ";AppName$(I%)ЄModifyApp(I%,LA%,LB%)	I%=J%¤ I%=-1$Єsave($inbuffer)%)ч OZROM%=1 М $У=C$: ЄRomUpdateCfg,.ё "Finished! - any key to continue"+╜(7)8K=еBсL▌ ЄDispTitleV█E`ё r1$;"  RomCombiner v2.10 (c) Garry Lancaster, 2000-2012  ";r0$;jё "  Pause mode ";#tч WaitLS% М ё "ON "; Л ё "OFF";~ё "  Display mode ";"Ич ShowApps% М ё "ON" Л ё "OFF"ТсЬ▌ ЄDispInfoжЄDispTitleQ░ё "Cards=";numcards;К20);"Applications=";numapps;К40);"Size=";дtotsize*16;"K"║с─▌ дtotsize╬ъ I%,SZ%╪ч numcards=0 М =0	тSZ%=0ьу I%=0 ╕ numcards-1ЎSZ%=SZ%+CardSize(I%) э I%
=SZ%▌ ЄDispAppsъ I%,K%,L%,C$(ч numapps=0 М с2L%=1<у I%=0 ╕ numapps-1FT%=(I% Г 4)*23Pч T%=0 А I%>0 М ё:L%=L%+1'ZC$=")":ч AppPatch$(I%)<>"" М C$="*"Mdё КT%);I%+1;C$;К4+T%);AppKey$(I%);"=";AppName$(I%);" (";AppOrder(I%);")";nч L%=8 М L%=0:K%=еxэ I%ВёМсЦ▌ ЄAppInfoаъ A%,K,X$кш "Application number";A%┤A%=A%-1<╛ч A%<0 Д A%>=numapps М ЄErrMsg("Invalid application!"):с╚ё╥ё "Name:";К16);AppName$(A%)▄ё "Key:";К16);AppKey$(A%) цё "Order:";К16);AppOrder(A%)"Ёё "DOR Bank:";К16);AppBank(A%)'·ё "DOR Address:";К16);AppOffset(A%)6ё "Card size:";К16);CardSize(AppCard(A%));" banks")ё "Card ID:";К16);CardID(AppCard(A%))"ё "Press any key to continue";"K=е,с6▌ ЄAddCard"@ъ I%,X%,AAdd,ABank,byte,N$,OZ$6Jч numcards=maxcards М ЄErrMsg("Too many cards!"):сTш "Card name to add";N$^CardName$(numcards)=N$Ghч дmissing(дbankfile$(N$,63)) М ЄErrMsg("Card images not found!"):с"rЄload(дbankfile$(N$,63),bank%)#|CardSize(numcards)=дGetb(&3FFC)!ЖCardID(numcards)=дGetw(&3FF8)#РOZ$=дGetc$(&3FFE)+дGetc$(&3FFF)7Ъч OZ$<>"OZ" М ЄErrMsg("Not an application card!"):сду I%=&3FC0 ╕ &3FC57оч дGetb(I%) М ЄErrMsg("Invalid Front DOR"):I%=&4000╕э I%╜ч I%>=&4000 М с
┬ў НdjF╠у I%=&3FC9 ╕ &3FD1D╓є byte:ч дGetb(I%)<>byte М ЄErrMsg("Invalid Front DOR"):I%=&4000рэ I%хч I%>=&4000 М съ▄ 19,8,78,5,65,80,80,76,0(ЇAAdd=дGetw(&3FC6):ABank=дGetb(&3FC8)>■ч AAdd=0 А ABank=0 М ЄErrMsg("No applications on card!"):сnumcards=numcards+1'ч numcards=1 М NewCardID%=CardID(0)?ч numcards=1 А дGetc$(&3FF6)+дGetc$(&3FF7)="oz" М EPFS$="Y"&ї;0ч numapps=maxapps М ЄErrMsg("Too many applications!"):рD:Ї ABank=(ABank MOD CardSize(numcards-1))+64-CardSize(numcards-1)%DЄload(дbankfile$(N$,ABank),bank%)@Nч дGetb(AAdd+9)<>&83 М ЄErrMsg("Invalid Application DOR!"):рXAppCard(numapps)=numcards-1bAppBank(numapps)=ABanklAppOffset(numapps)=AAddvAppOrder(numapps)=numapps+1$АAppKey$(numapps)=дGetc$(AAdd+15)EКч дGetc$(AAdd+45)<>"N" М ЄErrMsg("Application name not found!"):рФAppName$(numapps)=""+Юу I%=AAdd+47 ╕ AAdd+46+дGetb(AAdd+46)-12иAppName$(numapps)=AppName$(numapps)+дGetc$(I%)▓э I%╝numapps=numapps+1*╞ABank=дGetb(AAdd+5):AAdd=дGetw(AAdd+3)╨¤ ABank=0 А AAdd=0┌сф▌ ЄModifyApp(A%,LA%,LB%)0юъ CD%,I%,B%,PF%,PN$,NP%,PBK%,POFF%,PORG,PNEW°CD%=AppCard(A%)9Єload(дbankfile$(C$,дnewbank(CD%,AppBank(A%))),bank%)9ЄSetw(AppOffset(A%)+3,LA%):ЄSetb(AppOffset(A%)+5,LB%)*ЄSetb(AppOffset(A%)+15,Ч(AppKey$(A%))), у I%=AppOffset(A%)+25 ╕ AppOffset(A%)+28*B%=дGetb(I%)%4ч B% М ЄSetb(I%,дnewbank(CD%,B%))>э I%0Hу I%=AppOffset(A%)+35 ╕ AppOffset(A%)+44 И 3RB%=дGetb(I%)%\ч B% М ЄSetb(I%,дnewbank(CD%,B%))fэ I%&pу I%=1 ╕ дGetb(AppOffset(A%)+46)-15zЄSetb(AppOffset(A%)+46+I%,Ч(┴AppName$(A%),I%,1)))Дэ I%Оч AppPatch$(A%)="" М сШPF%=О(AppPatch$(A%))0вч PF%=0 М ЄErrMsg("Patch file not found!"):смш#PF%,PN$╢ш#PF%,NP%└ё "Applying patch: ";PN$╩у I%=1 ╕ NP%╘ш#PF%,PBK%,POFF%,PORG,PNEW>▐Єload(дbankfile$(C$,дnewbank(CD%,AppBank(A%)+PBK%)),bank%)$шPORG=дPatchVal(PORG,AppBank(A%))2ЄPNEW=дPatchVal(PNEW,дnewbank(CD%,AppBank(A%)))P№ч дGetb(POFF%)<>PORG М ЄErrMsg("Warning: unexpected value on patch #"+├(I%))	ЄSetb(POFF%,PNEW)	э I%		┘#PF%$	с.	▌ дNextApp(O%)8	ъ I%,NA%
B	NA%=-1L	у I%=0 ╕ numapps-1V	ч AppOrder(I%)=O% М NA%=I%`	э I%j	=NA%t	▌ ЄChangeKey~	ъ A%,X$И	ш "Application number";A%Т	A%=A%-1<Ь	ч A%<0 Д A%>=numapps М ЄErrMsg("Invalid application!"):сж	ш "New key (A-Y or 0)";X$(░	ч X$>="a" А X$<="z" М X$=╜(Ч(X$)-32)=║	ч (X$<"A" Д X$>"Y") А X$<>"0" М ЄErrMsg("Invalid key!"):с─	AppKey$(A%)=X$╬	с╪	▌ ЄChangeOrderт	ъ A%,I%,J%,P,S%,X4ь	ш "Application number (0=specify full order)";A%Ў	A%=A%-1 
ч A%<0 М х НTDK5

ч A%>=numapps М ЄErrMsg("Invalid application!"):с$
ш "New position (0=leave out)";P*
ч P<0 М ЄErrMsg("Invalid position!"):с(
ч P>AppOrder(A%) М P=P+0.22
ч P<>0 М P=P-0.1<
AppOrder(A%)=PF
у I%=0 ╕ numapps-1/P
OrderOrder(I%)=AppOrder(I%):OrderApp(I%)=I%Z
э I%d
їn
S%=0x
ч numapps<2 М х НdRJВ
у I%=0 ╕ numapps-2М
у J%=I%+1 ╕ numapps-1+Ц
ч OrderOrder(J%)>=OrderOrder(I%) х Нt~JCа
X=OrderOrder(I%):OrderOrder(I%)=OrderOrder(J%):OrderOrder(J%)=X;к
X=OrderApp(I%):OrderApp(I%)=OrderApp(J%):OrderApp(J%)=X┤
S%=1╛
э J%╚
э I%
╥
¤ S%=0▄
у I%=0 ╕ numapps-1 ц
ч OrderOrder(I%)>0 М S%=S%+1Ё
AppOrder(OrderApp(I%))=S%
·
э I%:с*у I%=0 ╕ numapps-1:AppOrder(I%)=0:э I%S%=1ї1"ш "Next application number (ENTER to end)";I%,I%=I%-16ч I%<0 М х НD^K;@ч I%>numapps-1 М ЄErrMsg("Invalid application!"):х НD^KGJч AppOrder(I%)<>0 М ЄErrMsg("Application already selected!"):х НD^KTAppOrder(I%)=S%:S%=S%+1
^¤ I%<0hсr▌ ЄTechyOpts|ъ X%,E$<Жё "Card ID=";NewCardID%;"  Change to (ENTER=no change)";Рш X%:ч X% М NewCardID%=X%8Ъё "Final link is to ";LastAdd%;" in bank ";LastBank%#дё "New bank (ENTER=no change)";5ош X%:ч X% М LastBank%=X%:ш "DOR address";LastAdd%6╕ё "Force size to ";ForcedSize%;" (-1=don't force)",┬ё "New size to force (ENTER=no change)";3╠ш X%:ч (X%>0 А X%<257) Д X%=-1 М ForcedSize%=X%;╓ё "Top bank=";TopBank%;"  Change to (ENTER=no change)";%рш X%:ч X%>0 А X%<64 М TopBank%=X%Cъё "EPROM filing system=";EPFS$;"  Change to (ENTER=no change)";7Їш E$:ч E$="Y" Д E$="y" Д E$="N" Д E$="n" М EPFS$=E$■с▌ ЄRenameъ A%,N$ш "Application number";A%&A%=A%-1<0ч A%<0 Д A%>=numapps М ЄErrMsg("Invalid application!"):с:ш "New name";N$.Dч й(N$)<й(AppName$(A%)) М N$=N$+" ":х НDDL5Nч й(N$)>й(AppName$(A%)) М N$=└N$,й(AppName$(A%)))XAppName$(A%)=N$bсl▌ ЄPatchvъ A%Аш "Application number";A%КA%=A%-1<Фч A%<0 Д A%>=numapps М ЄErrMsg("Invalid application!"):с Юш "Patch file";AppPatch$(A%)ис▓▌ ЄErrMsg(err$)╝ъ I%
╞ё err$╨я 7┌I%=ж(300)фсю▌ Єsave($fname)°ъ H%,L%,D%,E%,B%,C%,Kч м bufchange% М сL%=fnameE%=bank%:C%=16384' H%=L% Б 256:D%=E% Б 256:B%=C% Б 256*╓(&FEA6)@4ч WaitLS% М ё "  Image ";$fname;" saved - press any key":K=е!>$inbuffer=$fname:bufchange%=гHсR▌ Єload($fname,E%)\ъ H%,L%,D%,B%,C%,Kfч $inbuffer=$fname М с#pч bufchange% М Єsave($inbuffer)=zч WaitLS% М ё "  Press any key to load image ";$fname:K=еДL%=fname)ОH%=L% Б 256:D%=E% Б 256:B%=255:C%=255Ш╓(&FEA3)!в$inbuffer=$fname:bufchange%=гмс╢▌ ЄSetb(add%,b%)└bufchange%=╣╩bank%?(add% А &3FFF)=b%╘с▐▌ ЄSetw(add%,w%)шbufchange%=╣Єadd%=add% А &3FFF№bank%?add%=w% Г 256bank%?(add%+1)=w% Б 256с▌ дGetb(add%)$=bank%?(add% А &3FFF).▌ дGetc$(add%)8=╜(bank%?(add% А &3FFF))B▌ дGetw(add%)Ladd%=add% А &3FFF$V=bank%?add%+256*(bank%?(add%+1))`▌ дbankfile$(N$,B%)j=N$+"."+├(B%)t▌ дnewbank(C%,B%)~ъ E%ИE%=B% А 634Тч E%<64-CardSize(C%) М E%=E%+CardSize(C%):х НtRN&Ь=E%-(64-CardSize(C%))+CardBase(C%)Ў▌ ЄReadROM# ч bufchange% М Єsave($inbuffer)
F%=4∙ ":*//romutil.bas"сh▌ ЄBlowROM#rч bufchange% М Єsave($inbuffer)|W%=WaitLS%:S%=ShowApps%ЖF%=1Р∙ ":*//romutil.bas"Ъс╨▌ дmissing(N$)┌ъ X%фX%=О(N$)юч X% М ┘#X%:X%=г Л X%=╣°=X%▌ ЄFlashEraseF%=2∙ ":*//romutil.bas" сp▌ ЄVerifyzF%=5Д∙ ":*//romutil.bas"Осш▌ ЄEprConvert№F%=3∙ ":*//romutil.bas"с$▌ ЄRomUpdateCfg.F%=68∙ ":*//romutil.bas"Bс2▌ ЄSaveCfg<ъ I%,X%,N$FЄDispTitlePё,Zш "Filename to save configuration in";N$dX%=о(N$).nч X%=0 М ЄErrMsg("Error creating file!"):сxё#X%,EPFS$^Вё#X%,numcards,numapps,LastAdd%,LastBank%,NewCardID%,ForcedSize%,TopBank%,WaitLS%,ShowApps%Му I%=0 ╕ numcards-1Цё#X%,CardName$(I%) аё#X%,CardSize(I%),CardID(I%)кэ I%┤у I%=0 ╕ numapps-1╛ё#X%,AppName$(I%);╚ё#X%,AppCard(I%),AppBank(I%),AppOffset(I%),AppOrder(I%)╥ё#X%,AppKey$(I%)▄ё#X%,AppPatch$(I%)цэ I%Ё┘#X%#·ЄErrMsg("Configuration saved!")с▌ ЄLoadCfgъ I%,X%,N$"ЄDispTitle,ё.6ш "Filename to load configuration from";N$@X%=О(N$))Jч X%=0 М ЄErrMsg("File not found!"):сTш#X%,EPFS$^^ш#X%,numcards,numapps,LastAdd%,LastBank%,NewCardID%,ForcedSize%,TopBank%,WaitLS%,ShowApps%hу I%=0 ╕ numcards-1rш#X%,CardName$(I%) |ш#X%,CardSize(I%),CardID(I%)Жэ I%Ру I%=0 ╕ numapps-1Ъш#X%,AppName$(I%);дш#X%,AppCard(I%),AppBank(I%),AppOffset(I%),AppOrder(I%)ош#X%,AppKey$(I%)╕ш#X%,AppPatch$(I%)┬э I%╠┘#X%$╓ЄErrMsg("Configuration loaded!")рсъ▌ дPatchVal(V,BK%)Їъ V1,V2■V1=V:V2=0-ч V1<-1000 М V2=Ф(V1 Г 1000):V1=V1 Б 1000ч V1<0 М V1=BK%+V1+64=((V1+V2) Г 256) 