 
Т > SMJoin 0Т Build Sideways Modules into a single image : (,ч ctrl% 31,mem% &4100:X%=ctrl%:Y%=X%│256 2&Н ┘ Ж:РClose_All:Я " at line ";·:Ю <ptr%=0:in%=0 F*Я "Enter input files, end with RETURN" P У:Х ├ ": "in$:Г in$<>"":Рadd ZЩ in$="" d%Х ├ "Enter output filename: "out$ n6Ъ "Save "+out$+" "+ц~mem%+"+"+ц~ptr%+" 0 FFFBBC00" x	Н ┘ Ю ┌Ъ "Stamp "+out$ ▄Ю √: ═	щРadd ╙Г юin$,1)="|":А ЄГ юin$,1)="*":Ъ аin$,2):А Ў2in%=▌(in$):Г in%=0:Я"File '"in$"' not found":А хGlen%=╒#in%:Г len%>&4100-ptr%:Я"File '"in$"' too long":ы#in%:in%=0:А рГ ptr%:ptr%=ptr%+2 э-Рgbpb(4,in%,mem%+ptr%,len%,0):ы#in%:in%=0 ФZreloc%=0:Г mem%?ptr%=0:Г (mem%?(ptr%+2) ─ &80)=&80:reloc%=ptr%+(mem%!(ptr%+1) ─ &3FFF) ПLГ reloc%=0:Г ptr%:Я"File '"in$"' not relocatable, must be first entry":А З?old%=ptr%:ptr%=єlink:Г old%=ptr%:Я"File '"in$"' too long":А(Ц A%=ptr% ╦ &3FFF ┬ 4:mem%!A%=0:М A%Г old%<>0 └ ptr%<&3FFF:А5У:ptr%=ptr%-1:Щ mem%?ptr%<>mem%?&3FFF:ptr%=ptr%+1"А,:6
щРbyte@9Г count%=0:byte%=mem%?reloc%:reloc%=reloc%+1:count%=8J`Г byte%─1:addr%=(mem%!(here%-1)─&3FFF)+code%:mem%?(here%-1)=addr%:mem%?here%=(addr%│256)+&80TzТ IF byte%AND1:PRINT" At ";~here%-code%+&8000;" (";~here%+&8000;") addr=";~addr%-code%+&8000;" reloc to ";~addr%+&8000^!byte%=byte%│2:count%=count%-1hАr:|
щєlink├BГ ptr%=0:Г reloc%=0:=len%   :Т First item, no relocation table░EГ ptr%=0:Г reloc%>0:=reloc% :Т First item, strip relocation table :єТ Relocate loaded moduleў9code% =ptr%                   :Т Start of loaded code╦7end%  =reloc%                 :Т End of loaded codeб5count%=0                      :Т No bits read yetл6byte% =0                      :Т Relocation bitmapжUГ end%>&4000:=ptr%           :Т Even after removing reloc table, will be too longЮЦ here%=code% ╦ end%-1Й$  Г (mem%?here% ─ &C0)=&80:РbyteТМ here%Ч:#Т Look for last unlinked moduleТ Look for:Т    JSR xxxx:JMP yyyy&"Т or JSR xxxx:LDX &F4:JMP yyyy0link%=-2:УD  found%=ёNR  Г mem%?link%=&20 ─ (mem%!(link%+3) ─ &FFFFFF)=&4CF4A6:found%=╧:next%=link%+6XA  Г (mem%!link% ─ &FF0000FF)=&4C000020:found%=╧:next%=link%+4b&  Г link%<0:found%=╧:next%=link%+6l3  Г found%:last%=link%:link%=mem%!next% ─ &3FFFvЩ found%=0─2Т last%=> JSR xxxx opcode field of last module┼5Т link%=> Start of service handler of last module■3Т next%=> JMP yyyy address field of last module·:╗1Т Link new module to previous service handler╡mem%?(ptr%-2)=&20╪mem%?(ptr%-1)=link%ф%mem%?(ptr%-0)=(link% │ 256) └ &80пmem%?(ptr%+1)=&A6зmem%?(ptr%+2)=&F4Д:Н(Т Link previous module to new moduleЬmem%?(next%+0)=ptr%-2)mem%?(next%+1)=((ptr%-2) │ 256) └ &80	=end%: щРClose_All*"in%=in%:Гin%:A%=in%:in%=0:ы#A%4А>:H#щРgbpb(A%,chn%,addr%,num%,ptr%)R>?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:Г░<&FFFFF:ж&FFD1:А\ГA%=1└A%=3:о#?X%=X%!9f5У:ГA%=1└A%=2:у#?X%,?X%!1 ▀ ГA%=3└A%=4:?X%!1= #?X%p2X%!1=X%!1+1:X%!5=X%!5-1:Щ(е#?X%─A%>2)└X%!5<1:АЪ