$ô > AsmPDP PDP11 Assembler v1.22 RA$=¤OS_GetEnv:Ver$="1.22":òWin_TextIO:ftype%=&FFD:load%=-1:exec%=-1:òAssemInit Wfmax%=10:Þword% 7,cache% 259,file$(fmax%),ptr%(fmax%):eol$=½10:ços%>31:eol$=½13+½10 ( [ []]]":òexit(0):à ZA$=" "+A$:A%=§A$," -D"):õ dLçA%:B%=§A$," ",A%+2):C%=§A$,"-",A%+2):çB%=0„C%=0„C%>B%:òPreLabel:A%=A%-1 n&A%=§A$," -D",A%+1):ýA%=0:A$=ÁA$,2) x5in$=¤cl("",0):out$=¤cl("",0):lst$=¤cl("",0):if%=£ ‚=çin$=""„vb%:ñcpu$" Assembler v"Ver$;À"/"+ver$,Ver$<>ver$) Œ6çin$="":è†"Input file: "in$:è†"Output file: "out$ –çin$="":òexit(0):à ;çdebug%:ñ" in$='"in$"'"'"out$='"out$"'"'"lst$='"lst$"'" ªEin%=¤openin("",in$):çin%=0:ñ"File '"in$"' not found":òexit(214):à ´4çout$<>"":out$=¤f_name(out$):out%=¤openout(out$) ¾4çlst$<>"":lst$=¤f_name(lst$):lst%=¤openout(lst$) ÈUî…ö:ñ" ";error$;Àpart$,error$<>"");À" ",error$<>"");"in "in$:òCloseAll:òexit(Ÿ):à Ò>ãpass%=1¸2:Ï#in%=0:Line$="":P%=0:O%=0:L%=0:errs%=0:fnum%=0 Ü(õ:if%=£:õ:òAssemLine:çpass%=2:òPass2 æ P%=P%+num%:O%=O%+num%:ýÅ#in% ð0çif%:çpass%=2:òerr("Missing #ENDIF in "+in$) úXfnum%=fnum%-1:çfnum%>-1:in$=file$(fnum%):Ù#in%:in%=¤openin("",in$):Ï#in%=ptr%(fnum%) 4ýfnum%<0:ípass%:òlst("Errors: "+Ãerrs%):òlst("") òCloseAll:î…òexit(errs%) 4çout$<>"":òf_settype(out$,ftype%):òf_stamp(out$) "5çout$<>"":çload%<>-1:òf_setaddr(out$,load%,exec%) ,2çlst$<>"":òf_settype(lst$,&FFF):òf_stamp(lst$) 6òexit(errs%) @à J+ÝòPass2:çnum%>0:çnum%<256:cache%?num%=0 T)çop%<>-1:cache%?1=op%256:?cache%=op% ^;çnum%:çout%:çL%=0„P%"":òerr(error$+part$) |á †CÝòerr(A$):òlst("****** "+A$):òlst(""):errs%=errs%-(errs%<127):á "ÝòWin_TextIO:ços%<32„<&FFFF:á š,È™"GetStdHandle",-10¸@hfile%(1):*INPUT 1 ¤-È™"GetStdHandle",-11¸@hfile%(2):*OUTPUT 2 ®á ¸ÝòCloseAll Â#in% =in%:çin%:A%=in%:in%=0:Ù#A% Ì'in0%=in0%:çin0%:A%=in0%:in0%=0:Ù#A% Ö'out%=out%:çout%:A%=out%:out%=0:Ù#A% à'lst%=lst%:çlst%:A%=lst%:lst%=0:Ù#A% êá ô Ýòlst(A$):çvb%:ñA$;:çA$="":ñ þ(çlst%:Õ#lst%,A$;:çA$="":Õ#lst%,eol$; á Ý¤value(V$):êA%,B%,V% ;ê…:î…ê:çŸ=26:error$="Undefined label":=P%‹error$=ö$:=P% &#A%=§V$,"$+"):çA%=0:A%=§V$,"$-") 0"çA%=0:A%=§V$,"+$"):çA%:A%=A%+1 :"çA%=0:A%=§V$,"-$"):çA%:A%=A%+1 D#çA%:V$=ÀV$,A%-1)+"P%"+ÁV$,A%+1) Nõ X[A%=§V$,"'"):çA%:çÁV$,A%+2,1)="'":ç§V$,"""")=0:V$=ÀV$,A%-1)+Ã—ÁV$,A%+1,1)+ÁV$,A%+3)‹A%=0 b ýA%=0 lõ vAA%=0:ç§V$,"""")=0:A%=§V$,"@"):çA%:V$=ÀV$,A%-1)+"&o"+ÁV$,A%+1) € ýA%=0 Š.A%=§V$,"&o"):çA%=0:A%=§V$,"&O"):çA%=0:= V$ ”õ:V%=0:B%=A%+2 ž#õ:V%=(V%<<3)+»ÁV$,B%,1):B%=B%+1 ¨ ýÁV$,B%,1)<"0"„ÁV$,B%,1)>"7" ²V$=ÀV$,A%)+Ã~V%+ÁV$,B%) ¼#A%=§V$,"&o"):çA%=0:A%=§V$,"&O") Æ ýA%=0 Ð= V$ ÚÝòSetLabel äCê…:î…ê:çŸ=31:error$="Invalid label name":á‹error$=ö$:Word$="":á î:çWord$=".BYTE"„Word$=".WORD":Word$="EQU"+ÁWord$,2,1):á ø!çWord$=".BLKB":Word$="EQUM":á gçWord$=".ASCII"„Word$=".ASCIIZ":Item$=""""+ÁItem$,2,©Item$-2)+""""+À",0",ÂA$,1)="Z"):Word$="EQUB":á %çWord$=".ALIGN":òALIGN:Word$="":á /çWord$=".EVEN":op%=0:num%=(P%€1):Word$="":á OçÀLabel$,1)=".":Label$=ÁLabel$,2)‹çÂLabel$,1)=":":Label$=ÀLabel$,©Label$-1) *7part$=" setting '"+Label$+"'":çLabel$="_BSS%":L%=P% 4;ç¤uc(ÀItem$,4))<>"EQU ":òVar_Assign(Label$,ÃP%):òword:á >jçÂLabel$,1)="$":òVar_Assign(Label$,""""+¤value(ÁItem$,5))+"""")‹òVar_Assign(Label$,Ã¤value(ÁItem$,5))) HWord$="":á R$ÝòPreLabel:êL$,V$:çB%=0:B%=©A$+1 \-L$=ÁA$,A%+3,B%-A%-3):A$=ÀA$,A%-1)+ÁA$,B%) f5A%=§L$,"="):çA%:V$=ÁL$,A%+1):L$=ÀL$,A%-1)‹V$="-1" pòVar_Assign(L$,V$):á z4Ý¤o0(A%,N%):êA$,B%,L%:çA%<0:B%=2:A%=A%€&7FFFFFFF „;õA$=Ã(A%€7)+A$:A%=A%8:L%=L%+3:ýL%>27:=ÂÃ(A%+B%)+A$,N%) ŽÝ¤uc(A$):êB$:çA$="":="" ˜5õB$=B$+½(—A$€((A$<"@")„&DF)):A$=ÁA$,2):ýA$="":=B$ ¢\Ýòword:A%=§Item$+" "," "):Label$=ÀItem$,A%-1):Word$=¤uc(Label$):Item$=¤s(ÁItem$,A%+1)):á ¬CÝòEQU:byte%=1:çWord$="EQUM":num%=¤value(Item$):òFill:Word$="":á ¶Ynum%=0:size%=§"SBW D",ÂWord$,1))-1:size%=size%-(size%=0):byte%=size%:çbyte%>2:byte%=2 À2õ:òEQUItem:Item$=¤s(ÁItem$,§Item$+",",",")+1)) Ê>ýItem$=""„num%>252:çnum%>252:error$="Equate item too long" ÔWord$="":á ÞÝòEQUItem:type%=¹ è'ê…:î…êtype%=type%+1:çtype%:÷…:…Ÿ,ö$ ò6çtype%:cache%!num%=¤value(Item$):num%=num%+size%:á üqçÀItem$,1)="""":A%=§Item$,"""",2):çA%:çÁA$,A%+1,1)<>"+":A$=ÁItem$,2,A%-2):Item$=ÁItem$,A%+1)‹A$=¤value(Item$) +$(cache%+num%)=A$:num%=num%+©A$:byte%=1 á YÝòALIGN:num%=(P%€1):byte%=1:çItem$<>"":num%=¤value(Item$):num%=((P%+num%)€(-num%))-P% $òFill:á .=ÝòFill:çnum%>0:çnum%<257:ãA%=0¸num%-1:cache%?A%=0:í:op%=0 8!çnum%<0:error$="Code overrun" Bá LJÝòAssemLine:Item$="":Word$="":num%=0:op%=-1:error$="":part$="":byte%=1 VJLine$=¾#in%:çLine$="":ç#in%>1:Ï#in%=#in%-2:çš#in%<>š#in%:Line$=¾#in% `GõA%=§Line$,½9):çA%:Line$=ÀLine$,A%-1)+Ä8-(A%-1)ƒ8," ")+ÁLine$,A%+1) jýA%=0:çdebug%:ñLine$ t:A%=§Line$+";",";"):Text$=ÀLine$,A%-1):Line$=ÁLine$,A%) ~Item$=¤s(Text$):çItem$="":á ˆ#òword:çÀWord$,1)="#":òControl:á ’ çif%:á œ6çÀWord$,1)="."„ÂWord$,1)=":":òSetLabel:çWord$="":á ¦çÀWord$,3)="EQU":òEQU:á °#çWord$="ORG":P%=¤value(Item$):á ºçWord$="ALIGN":òALIGN:á ÄòAssem:á Î ÝòControl ØçWord$="#ENDIF":if%=if%2:á âçWord$="#ELSE":if%=if%‚1:á ì'çWord$="#IF":òIf(¤value(Item$)=0):á öçWord$="#IFDEF":òIfDef:á 'çWord$="#IFNDEF":òIfDef:if%=if%‚1:á çif%:á çWord$="#INCLUDE":òInclude:á "çWord$="#ERROR":error$=Item$:á (IçWord$="#DEFINE":òword:Item$="EQU "+Item$+À"-1",Item$=""):òSetLabel:á 2á <ÝòIf(A%):if%=if%*2+(A%€1):á FGÝòIfDef:çÂItem$,1)="$":V%=¤value("LEN("+Item$+")")‹V%=¤value(Item$) P0òIf(error$<>""€Ÿ=26):error$=Àerror$,Ÿ<>26):á Z ÝòInclude d-ê…:î…ê:error$="#include "+Item$+": "+ö$:á n>çÀItem$,1)="<":P$=¤fn_path(run$)+"lib"+d$‹P$=¤fn_path(in$) x,F$=Item$:ç§"<""",ÀF$,1)):F$=ÁF$,2,©F$-2) ‚in0%=¤openin(P$,F$) Œ?çin0%=0:çÀItem$,1)="<":P$=¤fn_path(in$):in0%=¤openin(P$,F$) –%çin0%=0:P$="":in0%=¤openin(P$,F$) 3çin0%=0:error$="#include "+Item$+" not found":á ª4file$(fnum%)=in$:ptr%(fnum%)=#in%:fnum%=fnum%+1 ´%Ù#in%:in%=in0%:in0%=0:in$=P$+F$:á ¾Ý¤openin(P$,A$):êin0% ÈEê…:î…ê:ç(Ÿ€255)=&CC:A%=©¤fn_path(A$):A$=ÀA$,A%)+ÀÁA$,A%+1),10)‹=0 Ò&in0%=Ž(P$+¤f_name(A$)):çin0%:=in0% Ü+A$=A$+s$+ext$:in0%=Ž(P$+A$):çin0%:=in0% æA$=ÀA$,©A$-©ext$-1) ð*ãA%=1¸©A$:çÁA$,A%,1)="\":ÁA$,A%,1)="/" ú2ç(—ÁA$,A%,1)€&FE)=46:ÁA$,A%,1)=½(—ÁA$,A%,1)‚1) íA%:=Ž(P$+¤f_name(A$)) Ý¤openout(A$):çA$="":=0 A%=®(A$):çA%:=A% "/ñ"Can't open '"A$"'":òCloseAll:òexit(192):à ,=0 6&Ý¤fn_path(A$):êA%,B%:A%=§A$,":",2) @)õB%=A%:A%=§A$,d$,A%+1):ýA%=0:=ÀA$,B%) JVÝ¤f_name(A$):ços%>31:êA%,B%:õB%=A%:A%=§A$,"\",A%+1):ýA%=0:ç§A$,".",B%)=0:A$=A$+"." T=A$ ^Ýòf_settype(A$,A%):ços%>8:á hÿ"SetType "+A$+" "+Ã~A%:á rÝòf_stamp(A$):ços%>8:á |ÿ"Stamp "+A$:á †Ýòf_setaddr(A$,L%,E%):á OÝòAssemInit:cpu$="PDP11":asm$="AsmPDP":ftype%=&1C5:ext$="mac":ver$="1.20":á š1ÝòAssemList:òlst(¤o0(P%,6)):çnum%:òAssemList1 ¤:çbyte%=2:òlst(Ä1+7*(3-((num%-1)€6)/2-4*(num%=0))," ")) ®Fçbyte%<>2:çnum%:ç((num%-1)€7)>6:òlst(""):ç(num%€7)=0:òlst(Ä6," ")) ¸*çbyte%<>2:òlst(Ä1+4*(7-(num%€7))," ")) ÂçText$<>"":òlst(Text$) ÌAA%=(24-©ÀText$,24))€(Text$<>""):çA%:çLine$<>"":òlst(ÄA%," ")) ÖçLine$<>"":òlst(Line$) àòlst(""):á êNÝòAssemList1:ãA%=0¸num%-1ˆ1-(byte%=2):çA%:ç(A%€7)=0:òlst(""):òlst(Ä6," ")) ôHçbyte%=2:òlst(" "+¤o0(cache%!A%€&FFFF,6))‹òlst(" "+¤o0(cache%?A%,3)) þí:á ÝòAssem 7byte%=2:num%=2:çWord$="BSS":L%=P%:_BSS%=P%:num%=0:á 9A%=§"CLRCOMINCDECNEGADCSBCTSTRORROLASRASL",ÀWord$,3)) &=çA%:ç(A%-1)ƒ3=0:op%=5*8*8*8+(A%3)*8*8+¤byte+¤dd(Item$):á 0$A%=§"MOVCMPBITBICBIS",ÀWord$,3)) :=çA%:ç(A%-1)ƒ3=0:op%=((A%+2)3)*8*8*8*8+¤byte+¤sd(Item$):á D)A%=§"BPLBMIBHIBLSBVCBVSBCCBCS",Word$) NLçA%=0:A%=§"BLO BHISBLOS",Word$):ç(A%-1)ƒ4=0:A%=(7-A%4)*3+1:çA%=16:A%=10 X=çA%:ç(A%-1)ƒ3=0:op%=(A%3)*256+1*8*8*8*8*8+¤disp(Item$):á b/A%=§½0+½0+½0+"BR BNEBEQBGEBLTBGTBLE",Word$) l1çA%:ç(A%-1)ƒ3=0:op%=(A%3)*256+¤disp(Item$):á v+çWord$="ADD":op%=6*8*8*8*8+¤sd(Item$):á €,çWord$="SUB":op%=14*8*8*8*8+¤sd(Item$):á Š$A%=§"MUL DIV ASH ASHCXOR",Word$) ”AçA%:ç(A%-1)ƒ4=0:op%=7*8*8*8*8+(A%4)*8*8*8+¤rd(Item$,A%<16):á ž+çWord$="JSR":op%=4*8*8*8+¤rd(Item$,0):á ¨'çWord$="JMP":op%=1*8*8+¤dd(Item$):á ²(çWord$="SWAB":op%=3*8*8+¤dd(Item$):á ¼/çWord$="SXT":op%=6*8*8*8+7*8*8+¤dd(Item$):á ÆMçWord$="RTS":A%=¤r(Item$):op%=2*8*8+A%:error$=À"Missing register",A%<0):á Ð)çWord$="CSM":op%=7*8*8*8+¤dd(Item$):á Ú-çWord$="EMT":op%=68*8*8*8+¤value(Item$):á ä4çWord$="TRAP":op%=68*8*8*8+4*8*8+¤value(Item$):á î3çWord$="MARK":op%=6*8*8*8+4*8*8+¤value(Item$):á ø.çWord$="SPL":op%=2*8*8+3*8+¤value(Item$):á %A%=§"MTPSMFPDMTPDMFPS",ÀWord$,4)) EçA%:ç(A%-1)ƒ4=0:op%=1*8*8*8*8*8+6*8*8*8+(A%4+4)*8*8+¤dd(Item$):á A%=§"MFPIMTPI",ÀWord$,4)) 9çA%:ç(A%-1)ƒ4=0:op%=6*8*8*8+(A%4+5)*8*8+¤dd(Item$):á *XçWord$="SOB":A%=§Item$,","):op%=63*8*8*8+¤r(ÀItem$,A%-1))*8*8+¤disp6(ÁItem$,A%+1)):á 46çÀWord$,2)="CL":op%=160+§"CV N N",ÁWord$,3,1)):á >6çÀWord$,2)="SE":op%=176+§"CV N N",ÁWord$,3,1)):á H9A%=§"HALT WAIT RTI BPT IOT RESETRTT MFPT ",Word$) RçA%:ç(A%-1)ƒ5=0:op%=A%5:á \çWord$="CCC":op%=175:á fçWord$="SCC":op%=191:á pçWord$="NOP":op%=160:á z$çWord$="ADR"„Word$="ADDR":òADR:á „$num%=0:error$="Unknown opcode":á Ž2Ý¤byte:ç©Word$=4:ç(ÁWord$,4,1)="B"):=8*8*8*8*8 ˜)ç©Word$<>3:error$="Bad opcode suffix" ¢=0 ¬3ÝòADR:çab%:Word$="MOV":Item$="#"+Item$:òAssem:á ¶*Line0$=Line$:Text0$=Text$:Item0$=Item$ ÀFA%=§Item0$,","):Word$="MOV":Item$="PC"+ÁItem0$,A%):òAssem:op0%=op% ÊQA%=§Item0$,","):Word$="ADD":Item$="#"+ÀItem0$,A%-1)+"-$-2"+ÁItem0$,A%):òAssem ÔHnum%=num%+2:cache%!4=cache%!2:cache%?3=op%256:cache%?2=op%:op%=op0% Þ,Line$=Line0$:Text$=Text0$:Item$=Item0$:á è#Ý¤mr(A$):êA%,m%,r%,v%:A$=¤s(A$) ò çÀA$,1)="(":çÂA$,1)=")":m%=1 üçÀA$,1)="@":m%=1:A$=ÁA$,2) $ç©A$=2:r%=¤r(A$):çr%>-1:=m%*8+r% FçÀA$,1)="#":v%=¤value(ÁA$,2))€&FFFF:num%=num%+2:=(m%+2)*8+7+256*v% %çÂA$,1)="+":m%=m%+2:A$=ÀA$,©A$-1) $"çÀA$,2)="-(":m%=m%+4:A$=ÁA$,2) .9A%=§A$,"("):çA%:çÂA$,1)<>")":error$="Missing ')'":=-1 8,çA%:r%=¤r(ÁA$,A%+1,2)):A$=ÀA$,A%-1)‹r%=7 B3çA$<>"":v%=¤value(A$)€&FFFF:m%=m%+6:num%=num%+2 L%çr%=7:çm%>5:v%=(v%-P%-num%)€&FFFF V#çr%<0:error$="Missing register" `=m%*8+r%+256*v% j&Ý¤r(A$):êA%:A$=¤uc(A$):ç©A$<>2:=-1 tçA$="PC":=7 ~çA$="SP":=6 ˆçÀA$,1)<>"R":=-1 ’çÂA$,1)<"0"„ÂA$,1)>"7":=-1 œ=»ÂA$,1) ¦EÝ¤sd(A$):êA%,src%,dst%,n%:A%=§A$,","):çA%=0:error$="Missing ,":=0 °=part$=" in source":n%=num%:src%=¤mr(ÀA$,A%-1)):çsrc%<0:=0 º-çn%<>num%:cache%!n%=src%256:src%=src%€63 Ä&çerror$="":part$=" in destination" Î*n%=num%:dst%=¤mr(ÁA$,A%+1)):çdst%<0:=0 Ø-çn%<>num%:cache%!n%=dst%256:dst%=dst%€63 â=64*src%+dst% ìNÝ¤rd(A$,f%):êA%,r%,dst%,n%:n%=num%:A%=§A$,","):çA%=0:error$="Missing ,":=0 ö1çf%:r%=¤r(¤s(ÁA$,A%+1)))‹r%=¤r(¤s(ÀA$,A%-1))) &çr%<0:error$="Missing register":=0 /çf%:dst%=¤mr(ÀA$,A%-1))‹dst%=¤mr(ÁA$,A%+1)) -çn%<>num%:cache%!n%=dst%256:dst%=dst%€63 =64*r%+dst% (WÝ¤dd(A$):êA%,dst%,n%:n%=num%:dst%=¤mr(A$):çn%<>num%:cache%!n%=dst%256:dst%=dst%€63 2(ç§A$,","):error$="Too many operands" < =dst% F]Ý¤disp(A$):A%=(¤value(A$)-P%-2)/2:çA%<-128„A%>127:çerror$="":error$="Branch out of range" P=A%€&FF Z\Ý¤disp6(A$):A%=(¤value(A$)-P%-2)/2:çA%<-32„A%>31:çerror$="":error$="Branch out of range" d=A%€&3F n:Ý¤OS_GetEnv:êA$,A%,X%,Y%:X%=1:os%=((º&FFF4)€&FF00)256 xDç!=&D7C1C7C5:run$=ARGV$(0):ãA%=1¸ARGC:A$=A$+ARGV$(A%)+" ":í:=A$ ‚Mços%>31:ç>&FFFFF:ÞX%ê256:È™"GetModuleFileName",0,X%,255:run$=$$X%:=@cmd$ ŒCA%=&600-&7B00*(>&8000)-&3F00*(>&C000):ç!(-&100)=@%:A%=-&300 –;ç?(¸P-3)=0:A%=&100:ç“<&FFFF:A%=-&300:ç!(“+512)=@%:A%=“ cA$=$A%:ç=&8F00:run$=A$:È™16¸A$,,A%:È™72,"",A%:A$=ÁA$,1+§A$+" "," ",1+§A$," "))):ç©A$=0:A$=run$ ªSãY%=-1¸0:A$=" "+A$:õA$=ÁA$,2):ý—A$<>32:ç—A$=34:A%=§A$,"""",2)+1‹A%=§A$+" "," ") ´9çY%:run$=ÁA$,1-(—A$=34),A%-1+2*(—A$=34)):A$=ÁA$,A%+1) ¾ í:=A$ È!Ýòos(A$):ç—A$=42:ÿA$‹ç©A$:×A$ Òá ÜFÝòexit(A%):ÿ"FX1,"+Ã(A%€255):quit$=quit$:A$=quit$:quit$="":òos(A$) æç>&FFFFF:È˜A%‹à ðá úcÝ¤cl(l$,n%):çl$="":A$=¤s(A$):ç—A$=34:A%=§A$+" "" ",""" ",2):l$=ÁA$,2,A%-2):A$=¤s(ÁA$,A%+1)):=l$ <çl$="":A%=§A$+" "," "):l$=ÀA$,A%-1):A$=¤s(ÁA$,A%+1)):=l$ Kçn%=0:çl$<>"":A%=§A$,l$):çA%:A$=¤s(ÀA$,A%-1)+ÁA$,§A$," ",A%)+1))+" ":=¹ çn%=0:çl$<>"":=£ "%A%=§À" ",—l$=32)+A$,l$):çA%=0:="" ,'A$=ÀA$,A%-1)+¤s(ÁA$,§A$," ",A%)+1)) 6Cç—l$=32:l$=ÁA$,A%):A$=ÀA$,A%-1):=Ál$,1-(—l$=34),©l$+2*(—l$=34)) @Pç—ÁA$,A%,1)<>34:l$=ÁA$,A%,§A$+" "," ",A%)-A%):A$=ÀA$,A%-1)+ÁA$,A%+©l$+1):=l$ JHl$=ÁA$,A%+1,§A$+" ",""" ",A%+1)-A%-1):A$=ÀA$,A%-1)+ÁA$,A%+©l$+3):=l$ T/Ý¤s(A$):çÀA$,1)=" ":õA$=ÁA$,2):ýÀA$,1)<>" " ^+çÂA$,1)=" ":õA$=ÀA$,©A$-1):ýÂA$,1)<>" " h=A$ r6ÝòVar_Assign(N$,V$):Var_%=Var_%:A%=2*(?(¸P-3)>0)-1 |DçVar_%=0:êB%:B%=¸P-4:õ:B%=B%-1:ýB%?A%=13€B%?(?B%+A%)=13:Var_%=B% †1ç©N$>?Var_%-12:error$="Expression too long":á -$(Var_%+4+A%)=N$+"="+½&A0+"(V$):"+½&E1:ç1 šPá:!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ÿ