diff --git a/850816/algol.bo b/850816/algol.bo new file mode 100644 index 0000000..05a9634 --- /dev/null +++ b/850816/algol.bo @@ -0,0 +1 @@ +=T=dQTppppp @)&#&Tppp @u@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]|1@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@%=@@@@E@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@>@@@p@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@@@@@@aT@@@Q @@@CE@@@@F@@E@@@@F@@E@@E@@F@@E@@C8TpTE@@s@CC,@@E@@@@@@p@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@%@@WCh[4@@XaaE[@@@@ChTTE@@8yXEhyE@@Ch4@@ChTpC,@@pTE@@ChTE,@@@&CpThyX@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@/@u@4CpThyX@@F@@hTE@@F@@@@@E@@E@@F@@E@@@@@@C8@@C8[@yWp@@F8@RChR@R@y[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@myh@@p@ChRJ@X@@yF@F@R@JF@@E[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@4@@@@@@p@Fp@p@Wh@p@yF8@Lp@yF8@Fp@L y]y^pyy pyaybpy#Ch@yEEXL@^|F@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@,=@@np@X%1@uX%Xs@CChCh@XEXCa@Cy#@C@@>@C@y#F@@=@@yF2@EpydI)O@CJ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&;@@CFOp@bJCaJ,b@kpy%F8@Fh*%XCh)|y&ChLp)Oh)*XnE@yg@Cbp)|E@yh@]@JE@y)@kpyXChCa@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@p@@C^J)OJ) @LkE@yh@C7p)OE yh)*XnE@yg@p)|yh@^JF@)OF@) py*F@yCh)=X&p)=Ch@yX&@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Rz@@Cv@kE@yk@C=p)|E@y,@k@JE@ym@p)|y,@Jyh@JE@y&@k@Jp)|yn@kh)|@[RF8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]@@F8@p@L@@@@Cp*Ry/Xy@WE y&,*Rp@RX  yp)WE@@@@Ch*Rp)zFp@p@p*RCp*Rhy1EX*R@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@za@@&F8@LCp*R|); *R|);C,);)WE]@@@@Cp*RFp@p@4*RCp*REX*RFp@L yp)WEn@@@@)WWp) Eh*FCh*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@nk@@>Wh)*XnCh*p)=Ehy2p@Lp*EXE@*EyF*EF*p*F@*I@>FyEy@@@@E yCh)>E )sEh)4Chk EX)>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@h@@E@EpyXFX@8@E*pk E@y%@Enp)4Ch)zWp)*Ch);p)7h)uXX]F)7F*@F)zF@)>@Eapk h)Oh)OEEO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@,@@Enp)s)2@E]EhyCh*@Ehk Ch)zp)2E *@Ch*Wh)*Cp);h);p*@XnX]F*@F)zF@*@Ez@E]p)= y1Ch)=@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@%@@FFys,)=p@F8@h*EFpyCh*Ep*CXy%@Fs@CE *CCh*FEhyp@Ch*IXy@p*E *Cy%@F#E y@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CF@@F^Ch*IpyCh*FXy@)WWp)OCh)2Wp) Eh*E *CCh)sE *Ch)4p*EhyCh)7p)=Eh)1Ch)uWp)JCh)vp*XEO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@n@@FvWp) E *Ch) 4)=Fp@ y4h),Ch)=s@CpyX@L)=p*Eh*F)=F)=E y&Xy@FF@E1WE1WE1WE;EJ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@mC@@kpXF XF XFb14LLF XF XF X,4 aEykXF XF XF Ok4,@@)WWp)JCh)LWp) Ch@8Wh)*Xn@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OQ@@&E y&E )WXyX@@)n@@p@4)L@ICh@8Wh)*Xnp@F8@LCh)=y%hyu4)L@)=@;@IF)LXyX@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@p@@>@7)W) Wp) WX)O@ E@ky%C8)W@ Ch)=Fp@ y&Eh)pChO)W@@@@W@]@FCWp)OWX) @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@v;@@@FCp)= y1Ch)Lp@8E y@/Wp)OCh)2Wp) Ch)sp@8Ch)4p)= y1Ch)=Ch)uWp)JCh)v,)upy2FX)upyCh)7@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@@npy%F8@FXEOp@8h) @FypyCh)h@py&@upy@upyvC,kJ@J)EX))F)pyChk@s@CCh)]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@7W@@IFCh))Ch)pyChk@py7@I=py8@I=4*hFp@I yyp@Wp;hyzpy%@I y;Ehy|Ch*2@EXdCFQ@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#@@I^J)g@s@CCh))@u4kJE@m@I)pmmC,kJ@I ,bF@kJ@Eh)h)kXnp@yCp)#@Cp)^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@4@@Iv@@@@p,Ch)Rp,@Ch)EIvpyCh)&@Ch)]p)hCh)dCp)pyCh)&X,p)&XQ @F)@JCpy&@I=Cp)h@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@v;@@JJ)[py=@J@@@@Cp*Fhy>Cp@XhyXQmpz@Ch@p*F y;EhzEJQpydXQ 4*uWh;XJQEhy2Ch@X&L@J*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@J&p)Ch)[pydXQ pyXCh)^Ch)bCh)s@Cpy&E )hF8@EhzCh*s@CXdC@Rbs@CCh)EhzCCh*XEhy2C,*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@d>@@J>p)Eh)Ch)[pyCh)gCh)hF)hXQ F)a@p)Ehy@J8XQyz@ WpzEh;h; y;E )p@py2X*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@@ @Op@@pyCh)&XQyz@ Ws@Cp)&F8@Eh)hF8@Ch*QWp; zFEh*Qh;hy]py#F)a y;E )p@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Ov@@ ns@Cpy&E )hF8@Eh)&F8@OX*@Cp)hpyd@I=Cp)h@pyCh)hpy@I=Ch))@Ch))pyCh)h@py@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Rg@@LFCh)hF)@Ch))@Oppy8@O)pz@O)pmQC,kJpz@O)hmv4*z;%@LJpnOhm/C4kJh) I LCpL FL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@J@@L^@@@@@p*zE *2Ch)T@Op@T@L*Op@@L*Op@dF@)p)Ch)h)kXnIzI@L*p*2EhzJCh*zp*1ChkJ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@s1@@LvJ,b@J)X@Ch)@^=I ,bF@*z@XW2JpnL4*zhy^py2@ @z F@*zp@>E@m]@&z4*zE@;%JpnhL @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@>s@@ pyXFXLI LCp) FXkJ4*zhyzpy%@ Xh@&zF@*z@&zXW2Jpn @ FF))p,h*p@>m,@&zWp*T@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@T|@@ &*Op@Wp*T *E yp@s@CEhk mChkp@>E@m]@&zs@Cp)dE@y@ =FkE zLXy%@Fk@ 8E@y@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@I@@@ >@pkF8@Chkp*&E )E yp@Wp; z Eh)h;s@Cpy&E )dF8@EEh)F8@ z EX))@ Eh)EhyCh*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Lm@@p)hzXdCXdppkFX)F@)@F@kJ@&zEh)aEhzCh*XCh*pkFX)ap)hy2XdC@@@@@@@@pyX@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]2@@nXQyE@yXOp@WE,s@CXQyz@4Ch) Wp;hy^pz @O@@y @OCp) Ehy@8 z EhzOEh) I ,bF*zC,*z@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@h@@OFzEXaF4*zy2@OT) s@CWh;F8@p@Whn)Wp)@[Lp)h)kXnz@O XaFp)Oh)*XnzQ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Q%@@O^@O JpnOJpn4*zyz@OgI ,bF@*z@O Xh@O ) Wh;Ch)=F8@ yEh)=@OOp)Ch)[X,pyXQ s@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OvEX))@E)hOy@@ChybCp*p@XdC@hz@O=Ehy@O=pzJE )hF8@Eh)aCh*F)ahzRpzF)a@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@& @@Xhy2Ch*py@O@@@@p,*E y=ChWp@@ y;EX]uEX)b@ap)Ch)bhyXXdCpyXXQyXyX@/Wp;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@2O@@& y^E@y Op@Wp)Ehz;XdbhzT@[p)Ch)[py7XQ @mJ)[pzJXQ p*&EhzI ,bF*zC,*z@p)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@R@@>Ch)%J)[J)pzC,kJpyXCh)^p*&Ch)dX,py&XQ @@@@@p@F8@Eh)gF8@Eh)hF8@I ))EhyF8@OEh)[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@>@@Q*&h;p@zF8@OEh*7Eh*gC,*uF*&EhyCh* h*  z EhzWXQmp@zFp@EhyFX*gp*&X*vEQ Op@X@s@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@=@@QnCh* Cp*Fp@QCh*OF* 4* C,*F*F@*O@Q2EQm@@@@p@yX,*hF8@O yyCh)|p*&E yp@EhyX)|@R@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Qp@@RFs@C,*uF8@IE@@z@RFp@Ch)=4*u y;EhyCh*p*pChRT4*E@@;@RF*FRTF@)=@Rp@EQyp@E y@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Q@@R^@RpyXEQyJpns@CCh*Ch*Ch*WpyXdCF*hs@CEh*&F8@IEh*gC,*hF,*p)EhzE ydhyzXC,,*Ehy@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@, @@Rvp@LFX,*p@LC,,*RuF,*F,#FmJp)aC,mJJT,#J)a@pzEh)aC,,*4mJCh)ap,*E yCh*Rp)EhzC,*R@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@7 @@4,#F8@ zEhnIXaaF@,#Xdpp,* y;Ehz[hzCp@hyXQmX&Lpz]FX,*p*&Eh*4Ch* Eh*vCh*L4*hFp@I@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a@@& yyF*&E *&p@p@4*h yyCh*gF@*hF@mJhy^4* py @TC@z @>hy;py%@>4*L,* XJQCh@X&L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@vR@@>ppTChQ@EhnI4*Lhz^XQm4*LFp@OCh@zC8*pyXXQyz@TWp;hy^@z@T y;Ch*OXdp*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@;@@T,* Cp*hzCpdbp*O@d&pzChQ *s@C4* @Q*@>F)p)Ehyp@p)%h*XEp@>E@m@T@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@2W@@Tnp)Ehz Ch*pyCh*p)Ch*W)dp)X;p)EhyhzaXdCF@kJJ)^@&zp)Ch)%@&zXEF@kJ@&p@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Fs@Cp)Cp)yXEE4*z y^z@Ty @TXFX*zEEJpnEpyX@R4*z*z@E y^yb@z@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@& @@^@@y @@p*zE yChdp@@ y^y*@2p)Xy%JpmzpyXX#=,*zF@*zC4*zXh@>XpyXEhkJChv@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@yJ@@vp@@mW@;E@mX@=pyCh)F@*zF@kJ@&pJpnE@ss@CX#=@=F*z@s@@@@XW2JpnJpm;pyXFX*zE@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*p@@4*z y^yb@uz@WCy @WCp*zE yChp@@ y^y*@XWkz@bJ)X@#Jpmzs@CX#7JpnE@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ay@@&pyXX#=p*zE yCh*4*zC,*p@>E@m@|pmC,kJpyXFX*z@&zp@>E@m@zF*z@#s@CX#=F@kJF@*z@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@84@@>@&pXX#=F@*z@mJpnEpyX@W@p)Xy%Jpmzs@CCh)XX#7JpnpmC,kJ@&zp)Xy%JpmzF@*z4*zhy^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@W@y2@W^ y;EhzbCh*2@EXdC@WJpm|F@kJ4kJE@mR@Wgp*zE *2Ch)X@&pE@mpF@*zs@C@W%@@@@p*zE )X@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@24@@Wn*zs@CE *2EWk@@@@p)XIy%Jpm7EW2@@@@p*zEhyXCh*4*FT*zC,*EW7p@>E@m2@XEpyCh)@&zE@ms@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@y|@@XF@XIXW2@&zE@m4@XOp)Chnpy@XCp)E@y@XXW2Jpm=@X[E@y@EXW2JpnQF@*zJpm8EXk=@X F@*z@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Rg@@X^XW7@XdpyXChk=py%X#7p)y%@X/JpnRpnEhz#Ch*s@ChyXXdC@X1JpnJpnTJ)p@>E@mu@X>pyX@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@p@@XvX#7Jpnpy%X#=F@*zpm1C,kJ@&zJpnXW7p)ChnFkJpmR@X|F*z@X[EX,b@&ppyXX#=JpnWpy%X#=@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@>@@pzXFX*zF@kJ@&pEX)]@Xs@CE ,Ch,@ XWkz@^Xy%@bJpm7Jpm>XhF@kJ@&pJpm@ 4kJE@mk@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^*@@&@1XW2pzdF*zC,*zJpnOJpnJpn JpnF@*z@=XWkz@Xy@8Jpm7@Xy%@|Jpn@@=JpnF@*z@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@X@@>XhF@kJ@&pJpmy@zp*dCh*IJ@=p@,*IF8@Ch* Fp@EhyCh*Jp* E@@z@p*Jp@4*I@@z@p@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E yy%@%@QI@z@[bF@=pz%X@=@[p*JEhyFX*Is@C@Fp@,*IF8@ zJEhkCh1p@F8@Ep@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@mz@@nF8@L y1p@L@@@@[C@[@[R@[T@[@[ I ,bF*zs@CChk=X#7JpnXp)Chny&hz&@[TWp17Ch@>Cp*I@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QL@@[FX&mh*IyC8)W)OWp)OCh)zWp)*Ch);p@LX]@y%@[IWp17I ,bFkJC,kJ@[pyCp*ICh)[pyCh)h@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@uv@@[^X |@[py%@[Op@a@C@@@@C8*Fp@zzJE[dEhyCh@zFp@p@p@F8@EhzgCh*Qp@yp@*Qh@;h@;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[v)WE[d@[uF2@FF2@LF2@RpyXCh@zX[d@kpyCh,@s@Ch@yF8@FCh,@khzh@[hz@[pmhy,@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@pmhym@[pm[hz)@[pmhzQ@[pm]hz*@[hm^p@yE@y2hmp@Lhzk@[pm,hz,@[hzm@[E@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@sL@@&hm p@yzn@mhmaE@z/hmbp@Lhzp@[pmhz1@[X]upzF)h)Cp)zh)kCp);X]pmRhz@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@h@@>pm#hz2@[pmdCh@>@pm%@]pm&@]pmg@]pmh@]pm*hzs@[pm)@]pmkhz4@[X[d@k@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ m@@]X&@kp@yhyE@y2CpIu@F,@s@Ch@yF8@FCh@yp,F8@Eh,F8@Eh@yCh,@kF)p)Ch)zp)kCh);@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@=@@]npymX]pmhy&@[X]u@@@@@p@zFp@Ch)|p@F8@p@Wp^@)|X@;E]u@ppp@@pp@@@p@@@@p)Ch^[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@d@@^FJpnFpyCh@y@[|J) J)OpyaCh@yX[dpzuCh&@&[pzvEh^[I ,bF*zC,*zp^[Xdbhz7@[@@@@p,Ch)Q@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@^^@XIv@XIv@^kpyCh)Qp,F@Iup@p@F8@LFX)X;s@CCh)QCh)RCh)py@^yI )]@p,Iy;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@su@@^vOp@#Ch)[py&Ch)hX |@Op@Qpym*&@p@Wp;z#@p@Ehy@^>4*uCh)|Fp@QCh)=@yF)|@a@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E^@@T)|@Q @@@F@)=@L@X hz8p*uE z8Ch*LWp;%hy;py%@#p@L4*LXJQCh@X&LpzEh)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@p@@&Ch@WpzyCh@XpzCh@pzzEX)Ehz;Ch@X&L@az|@Q @@@@@@hz=@^pzCh@@@C@@@@@EX,bE;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Q@@>C8*Cp,Eh*8X*8@ QCh*ysWp)TE*@  Ep* y;Ch)[*CE;p*E yd@ p,IzL@ ^EhydCh,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Q,@@ Eh*8Ch*ysWp)TC,* JT*@ Ip)Ehz>F*zC,*zJpnEX hpyXCh,FX*z@ @@@@@XdpI ,E hs@Cp,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@1 @@ nF8@OCh@EhzF@F8@Eh;@hyXQmX&Lp,EhyFp@FX)E h@@@@s@Cp;Eh)hF8@Eh)[I ,bF*zC,*zE |@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@aF@@@@EX,bEaFXW2p*zE *2E yCh*X)TEaFp@hy^Wp*z@z#@ap*Ch)Xp@Eh*zE *2p@F8@JEhmzXaa@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a^Jpm7p*@aL@@@@EX,bEaaCh)8EX)b@amp)hyXXdCp)8Ch)bCh)^ ;yX@a24kJ@avE@;@av4kJFp@L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@@avF8@O ;CCh*EX)^Id*h@bp,*E ydCh*Fp)EhzC,*FpzF*hp)8Fp@F z)C8*Fp@bJ@b @bk@b^s@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@bh)8F8@IFX*@bFX*4bs ;y%@bpzp*Ch*p@XdC*FEaa)Xp)#Eh;Eh*zF)#p)#IL,#C,,#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@s@@b&E yEh;Fp@Cp)X@bp)8Fp@J z)p@Eh*zX*2@#uChbsp@@Ch*hy^@y[@# hyz@;@#kpy2FX*p*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a@@b> y;Ch*4* y;FX*p@yXhz4* z Eh)C,*@bpyb@#2py @b>pz @b>pz@#bpy*@#bp;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@#@#p@;E@#]p;FFX*p@@#h@z#@#& zyE@y%@#dpz@#%py2FX*h)8F8@Ip* y;@bR@z;@#hpz@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@vy@@#nFX*@#hp;E@#%hbsCp*@#J,b@b@@@@Eh*zCh*pybC,*E#7@@@@Eh*zCh*4*XdbE#=@@@@EX,bEdC@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@@dFXyXEdCCp*Oh*sCpdC8* Ch*,ap*h@p@ @@@F)FdI *OX&bh*OF8@Cp*Od]C8,aXdp;IF@*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^O@@d^@dC8,a* EdC@@@@Ch*Xdpp)EhzCh@Xp* y;EhzCh@Wp;JCh@X&LEdb@@@@s@CpzLEh,aXy%Edp@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@%L@@dvCh)>C8*@Ehy&p@F8@OEh; Ch@p;LEh)E )>Ch@Wp@ph@X&L*@Edp@@@@p*yCh%Op@Fp@O ; p@p@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@%py18@F%O%OCh)>Fp@L8)> y1FX@E%F@@@@p%k;h@%[@@%]@;@@%a@@%h@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EQ/@@%&@@@E%XOp@R@@@@@%JJJJ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ h@@%1@@O@@@@p;O &@%4@@%v@^&;Q@>%z@Q @EhyXyX@%vCh@p@@&s@C;Qh@u&EE%2@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^d@@&L@@@@EX,bE&LC8)|X%FX%2p;ICh,a)|E&L@@@@X[dp@zE@y&E&p@;Ch*pyXCh@zs@CXdCE&@@@@C8*C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@y@@&dp@p@p@s@Chz8@@FX@p*CE&b@@@@EX,bE&m4kJ ;RCh* p@> ;RX* @&;FkJp@>C,kJE&m4kJ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@L|@@&|Fp@F ;p@g@@d@R@W@g@Td@WF@@W@@h@h @W@L@@ ^@ [XW24*z y^E@y[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@>Q@@gT@g8p@>E@m]@&zpyXEh*zCh)=4)= y^E@z@g>s@Cp*zE )=Ch)=F8@JCh)pm8@ghpm;Eh)Xaap;FX)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@@g,EX)@ggs@CE )=FX*zp;Eh)E )=E yC,*zF@kJ@&z;E@gJpmzXhJpm7@gp)=E y@gp@>E@m@&z@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@hF@kJpmCh@>4kJE@m1@&z@p@>E@m]@&zF@kJ@&z@@@@p*zE *2Ch)XEhs@C;Th)*hWCh@ppyXChCa@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*#@@hChLChLCh,Ch,bpyChkCh) Ch)p*2Ch*zp*1ChkJpymCh*&pz1Ch*gp)ECh*hp)FChmJp)Ch,*p)Ch,#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@>@@h4pzCh*)p;ICh,apyChk=p)IChkaChkdp2Chk z8Wp;% z h;%)@@1p*)pmJp,*p,#@C@@Wpn)Wp2E@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&@@)L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E]*@@)d@@@@@@@@@@@@@@@@@@@@@@@@@ka@kd@@@@@@@X@@@Wp@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@End@@*d@pn@I@@@@@@Tp*) @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ud@@*/h@@E@@;pk p*zp*Wp;Wp|)@@@@=;Wp,E8@p*z@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@%1T@@kJpk @I@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@%Ty@@k @@@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]TE@@kd@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 7@@k>Ch;@2@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@m87@@,ahp,#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]8R@@,*p,*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]8R@@mJpmJ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@mQ@@C@@@@F@@@F@@@@@@@@@@@@>@@@I@@=@@J@@@JIF@FII@JL@ J@ JJ@JC@@@X@X[@[@W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@J@@m)W@T@ @O@@|@I@@@@@@@L@@ @@@ @@L@@@@@@ @@@O@@@O@@@%@Q@@h@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@R@@n@Q@^@@@@Q@@@@,@@@#@@@a@@@d@@@b@*@m@Qm@am@@k@O@ @/@@@@Q @aE@@@p@E@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ d@@n@@I@@@)@@@@@@@@@*@@@*@@@*@@@#@@@#@@@>@@@8@@@@@@@@g@@%@C/R@/XEp@F/IX/zXp@XIpXJpLX p@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XW@@n2@L/J@ /C@/X@O/@/Q@Q/XRp@/@T/O@/@/ W/X/X/nX/7X[p*hC/[hC/C/]/^b,/hC/hC/ hC/a@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@%@@/JIy/,JE/mhC/bhC/#hC/dC/%h/&h/g /@ /Wh/hhC/)hC/*h/khC/[nnXn4Cn|C/C/Q/C/hC/4C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@v[@@/bp@CphCppC1XC/T/v*4s,C4|C@&d@syyszEk]d@@@QshXF@@QshWF@@QkFp@@ud Q4LWF @@kE@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]=@@/z%k]dp|@%2C@L@pC@p@@%2C@L@Q2JE @@Q2hIE @@2pQ28JE @@Q2hE @@s@%sC L@Q28IE @@Q2E @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@X4@@pRsT%sCpL@kQkX@@@kFQ8I=Wp@@&8^Xy8]C @@&8=^Xy8]=C @@R8IyaWd@)8nE^8@8%yC @@y @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/2@@p*%1dC@L@@@C@p@@E npp@,T&ppa&)pp C&)pI@@%Tp T&v%pEQ%TpF]%&spL@4sX% @@T#2@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]y@@1L @^)Q#LIL2sg *7W&s&@@s)4Qk@bRW%ppp @hQ))Q8pppL4%s#ppp QvX#pppR @Q#2ppp &@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FQ@@1uQ#4ppp F#QR#pppT k&)dQsppT 2vsXppT @2s)%WppX @%sW)p@,&dd%spX @ R&&#Q%p @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@J@@127s)%Q#h@gg)&T4)@@E@@@O@EQ@Q@@ @@@@FR@R@@@@F@@@@@@@ @@@@I@@@@@@L@@s[@Es@FsJ477p@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@X@@2JXI7sXJ7s 7|Lu 8v^@Os@4Q8v@Rss@s^Ty8@sTW8EX84kX7k@[s#X7v@]sa^4W4X 4@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F;@@2bauXbuXX#7yXd7%uWX&vgu)hup)u;X*v@ksb,vv@ms]@ns%@/s/Xp7h@1s1@24suR4yR@u4@v4@74OX8v@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a@@2zyvXzv;X;vaX|v&X=vmX>7 7Q@7Q7T7C7^7#E8 Fss sRhF47uII|uEuCFuEuJFuJ*uL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@I@@sR*;uO*;u*;uQm4]4b nsXI4% Osh[4gb;s)J4^)I4[)a4b;s )J4 )p7/hk4# Osdh[4=Jvuk4dI4)Ib414R@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 4@@s*Ip48>sm Osnhn4p)&vX Osph/4/ Os2h14p&sy@1s|@vs>@2s@n4@ ]4abszIg4n)%4mas=)a4,h4kh7 hv])vF@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#R@@4Ip48Q4TI4)Im7ghu4dhu4sI747Ip48I4)I47;Iu44 O4)v4vh74z74; F4 n4aL4Thn4=u@hE4>EuEbuE*u@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@mn@@4@I@@mE1a @@|@@@|@@@p@@k@@C@Fp|@@@[Cp@@@@@@@#E|/@@8@@>@@/@@1@b@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@42I @@@@u@u] @@@v@@@p@@@@7@@ @@@@@[@@X@@F@@@@b@@@@@Eb@@@@@Fb@@@@|b@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@uE@@uJ@Fb@@@@b@@@R/J1/F1/Fy/)47*sh@@@]@ @@@@zR,^8@R,|@R, @@R,JTI@R,g@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@J1@@ubR,h @R,I @R,J@@@EQ^;[p@@)Qb;m|@@udp@@Q*Q2;[p@@)RTm@)Qz;m|@Rbud@@RJTd@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@yJ@@uzRQ)aFC8@)R*TmX@aFua@@@Rp8Q@@RR1uT@@@y@@FaT@@@EQT@@@@aT@@|T@@@7 1T@@F@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@8)@@vRaaT@@bT@R8y@Xa@&%TJ]L@QTIuJp@@@@@Wp@@@@;Q@%p@@@XO@@@@@|Q@=&@@@@O@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a@@v*@/O@@@@=Q@@L&@@Q@|g@@@%@E8@@Op@@@@n)@F7p@@@nF2p@T2%4FX@@|Ep@@@F @@R@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@X|@@7a@@zJn1EE@@&@TTQQ4Q @@Ta2QTIu @@@@@]@@@@@@^@@@Q@g @@@  @@@Q@a@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Ju@@7h@@@@bp@@@CQ@#h @@@dQ@@@@Q@%)@@@%@EF4@@@2Q@&Xp@@@;%y p@@R@@%@@@]n7@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Q@@72nI%pC@z @@@ R@@@@]%@E@@@v@I@@@dzQ@@Ta @@@@z@@7p@@@@ @@7@@@@a@@7 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@@8J@@J%,C @=h*O*;m=1IvumRd@k@C8OJ@@JQX@@kJL/C2|OX@@)J)aCv@J1Rh@)J>ua84@Jz#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@;@@8b)J> C84@* 8Cdp JL^R @@k aJ4h @@%I @@1#Xuh@)1Cuh@O1/[7@)O11C7@]L#)I@@F@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@%@@8zFT/@@J@@@=@@ Qp)@#k,@)@/[,@@ @)I@@>@C]Wh@@@@71@@@F @@@@@ @@T)2@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E;d@@yR)@nLd@T2@@71@T2@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QE@@;T @@T @@T @@T @@T @@T @@T @@T @@T @@T @@T @@T @@T@@@T@@@T@@@T@;%@@@@pyC)E@|y|FWp|yEh|C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@d @@;n) ;,p|Eh)1Ch*up|Ch*vp|Ch*7|EWp>)z;8p|@Ep@@|yChdQ@|yp@@J>@%@@*@@Oh,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]Ck@@|Fp@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@7@@|)@=;@X=|@==@=>@=@h>@@X>@>C@>@X>E@>F@>@ >@ >J@h>L@>@@||@=@=Wp>*h%2|=@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]p@@=@k=Wph&L=C@k&&@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@;@@=|QR2p2W%d&Tpd%pdQ7pQ)sQ%pp7g#%pp7gp2h)s&2p2%p%T&ppp%g4sppp&4sg4spp&pp@@@@@@yX%,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@>TF@%@F;@@@%d@%)% @@%)X%,E%XOp@R@@@@@%[@@@@@@@@@%nE%,@@@@@@p;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@I8@@>,Ch&Jp@Fp@O ; E yCh& @@%y@dT&JF&JF@& @%=@@@@@@Q @@@&@@@s@CCh@pE%2@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@vO@@yX@@@*@@@,@@@@@@@@@|@@@]@@@@@@m@@@p@@@J@@@@@@@@@@@@@C@@4@@@n@@@L@@@@@,@@@Q@@@@@1@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@L@@yp@@C@@@@@=@@O@@@@@@@@@@@I@@@p@@@p@@@@@Epppp@@@W%@@@@@@@@* @@@@@@CO@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@np@@z@@@ @@@F@@@T@@@@@@X8@@@@@@@;@@u@@@F@@@@@@@@@7@;@@@@@@z> @@p@@7z =@@z@@@;@@Ta@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)&@@z @@gp @@@@@T ;@@@]@@@@[8@@@@@@O@@@R@@@L@@>@@|1@@@>@@@@@=@@@T@@%@@#@@@@^Qd@@@@@@s@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)@@z81@@@X@@@@@*R&%y @@Op@@@@,@@p@@@8@@C@@@h@@@X@@@@ @@4@@@h ]@@@E@@@@@@@,4@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E @@;Xa@@@p@%@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@gb@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ \ No newline at end of file diff --git a/850816/algol.lo b/850816/algol.lo new file mode 100644 index 0000000..62f8309 --- /dev/null +++ b/850816/algol.lo @@ -0,0 +1,4040 @@ + + 1 + 2 ****************************** + 3 * ALGOL * + 4 * 910/920 60-4 * + 5 * 012016 * + 6 ****************************** + 00001 7 AORG 1 + 00001 0 32 00002 8 WIM 2 + 00016000 9 OBJTY EQU 016000 ALGOL OBJECT CODE TYPER + 00000176 10 NLIT EQU 0176 NUMBER OF LITERALS + 00000103 11 STL EQU 67 + 00000020 12 NIMF EQU 16 NUMBER OF IMPLICIT FUNCTIONS + 00000024 13 LIMF EQU 20 LENGTH OF IMPLICIT DECS + 14000000 14 ZZA EQU 014000000 APOSTROPHE + 61000000 15 ZZD EQU 061000000 DIVIDE + 76000000 16 ZZI EQU 076000000 INVERSE DIVIDE + 20000000 17 ZZP EQU 020000000 PLUS + 35000000 18 ZZL EQU 035000000 LEFT BRACKET + 55000000 19 ZZR EQU 055000000 RIGHT BRACKET + 56000000 20 ZZSC EQU 056000000 SEMICOLON + 00002 21 IMAGE RES 20 + 00026 00050000 22 BUF DATA 050000 CONTROL WORD + 00027 02100000 23 DATA 02100000 LOAD ADDR WORD + 00030 24 RES 24 + 00060 00000000 25 DATA 0,0,0,0,0,0,0,0 + 00061 00000000 + 00062 00000000 + 00063 00000000 + 00064 00000000 + 00065 00000000 + 00066 00000000 + 00067 00000000 + 00070 26 RAST RES 1 + 00071 27 CHAR RES 1 + 00072 28 LEN RES 1 + 00073 29 NAME RES 2 + 00075 30 CNT RES 1 + 00076 31 OP RES 1 + 00077 00000120 32 CC DATA 80 + 00100 33 AORG 0100 + 10000000 34 TYY OPD 010000000 + 00100 0 02 02041 35 TYPW 1,1 + 00101 0 12 40000 36 MIW *0 + 00102 0 02 14000 37 TOPW + 00103 0 40 21000 38 BRTW + 00104 0 01 00103 39 BRU $-1 + 00105 0 51 00000 40 BRR 0 + 10600000 41 SKMA OPD 010600000 + 00106 0 70 40000 42 SKMA SKM *0 + 00107 0 61 00000 43 MIN 0 + 00110 0 51 00000 44 BRR 0 + 11100000 45 SKGA OPD 011100000 + 00111 0 73 40000 46 SKGA SKG *0 + 00112 0 61 00000 47 MIN 0 + 00113 0 51 00000 48 BRR 0 + 11400000 49 SKNA OPD 011400000 + 00114 0 53 40000 50 SKNA SKN *0 + 00115 0 61 00000 51 MIN 0 + 00116 0 51 00000 52 BRR 0 +D 11700000 53 CXA OPD 011700000 + 00117 0 37 00224 54 STX TT + 00120 0 76 00224 55 LDA TT + 00121 0 51 00000 56 BRR 0 + 12200000 57 STZ OPD 012200000 + 00122 0 46 30003 58 STZ CLR + 00123 0 35 40000 59 STA *0 + 00124 0 51 00000 60 BRR 0 + 00125 00000000 61 SS DATA 0 + 12600000 62 COP OPD 012600000 + 00126 0 76 00000 63 COP LDA 0 + 00127 0 35 00133 64 STA RECUR + 00130 0 76 40000 65 LDA *0 + 00131 0 43 04141 66 BRM COA + 00132 0 51 00133 67 BRR RECUR + 00133 00000000 68 RECUR DATA 0 +D 13400000 69 CAX OPD 013400000 + 00134 0 35 00224 70 STA TT + 00135 0 71 00224 71 LDX TT + 00136 0 51 00000 72 BRR 0 +D 13700000 73 CNA OPD 013700000 + 00137 0 17 07130 74 EOR =-1 + 00140 0 55 07131 75 ADD =1 + 00141 0 51 00000 76 BRR 0 +D 14200000 77 XMA OPD 014200000 + 00142 0 35 00225 78 STA TT+1 + 00143 0 76 40000 79 LDA *0 + 00144 0 35 00224 80 STA TT + 00145 0 76 00225 81 LDA TT+1 + 00146 0 35 40000 82 XMA1 STA *0 + 00147 0 76 00224 83 LDA TT + 00150 0 51 00000 84 BRR 0 +D 15100000 85 ADM OPD 015100000 + 00151 0 35 00224 86 STA TT + 00152 0 55 40000 87 ADD *0 + 00153 0 01 00146 88 BRU XMA1 +D 15400000 89 SKE OPD 015400000 + 00154 0 36 00224 90 STB TT + 00155 0 75 07130 91 LDB =-1 + 00156 0 70 40000 92 SKM *0 + 00157 0 01 00165 93 BRU SKEA2 + 00160 0 01 00164 94 BRU SKEA1 + 16100000 95 SKEA OPD 016100000 + 00161 0 36 00224 96 STB TT + 00162 0 75 07130 97 LDB =-1 + 00163 0 70 40000 98 SKM *0 + 00164 0 61 00000 99 SKEA1 MIN 0 + 00165 0 75 00224 100 SKEA2 LDB TT + 00166 0 51 00000 101 BRR 0 +D 16700000 102 SKR OPD 016700000 + 06000000 103 MDE OPD 06000000 + 00167 0 60 40000 104 MDE *0 + 00170 0 20 00000 105 NOP FOR 920 TESTING + 00171 0 53 40000 106 SKN *0 + 00172 0 51 00000 107 BRR 0 + 00173 0 61 00000 108 MIN 0 + 00174 0 51 00000 109 BRR 0 +D 07600175 110 CLA OPD 07600175 +D 07500175 111 CLB OPD 07500175 + 00175 00000000 112 DATA 0 + 17600000 113 ERR OPD 017600000 + 00176 0 37 00223 114 STX ERRX + 00177 0 71 00000 115 LDX 0 + 00200 0 37 00133 116 STX RECUR + 00201 1 00 07132 117 TYY =052000000 + 00202 2 76 00000 118 LDA 0,IX2 + 00203 0 67 00022 119 LSH 18 + 00204 0 35 00222 120 STA ERRT + 00205 1 00 00222 121 TYY ERRT + 00206 1 00 07133 122 TYY =054000000 + 00207 0 76 00077 123 LDA CC + 00210 0 35 00222 124 STA ERRT + 00211 1 22 00077 125 STZ CC + 00212 0 43 00226 126 BRM GETC + 00213 1 00 00071 127 TYY CHAR + 00214 0 61 00077 128 MIN CC + 00215 0 60 00222 129 SKR ERRT + 00216 0 01 00212 130 BRU $-4 + 00217 0 60 00077 131 SKR CC + 00220 0 71 00223 132 LDX ERRX + 00221 0 51 00133 133 BRR RECUR + 00222 134 ERRT RES 1 + 00223 135 ERRX RES 1 + 00224 136 TT RES 2 + 00226 0 00 00000 137 GETC PZE + 00227 0 76 00077 138 LDA CC + 00230 0 66 00002 139 RSH 2 + 00231 0 46 00400 140 CAX + 00232 2 75 00002 141 LDB IMAGE,IX2 + 00233 0 76 00077 142 LDA CC + 00234 0 72 07134 143 SKA =2 + 00235 0 67 00014 144 LSH 12 + 00236 0 76 00077 145 LDA CC + 00237 0 72 07131 146 SKA =1 + 00240 0 67 00006 147 LSH 6 + 00241 0 46 00014 148 XAB + 00242 0 14 07135 149 ETR =077000000 + 00243 1 61 07136 150 SKEA =074000000 + 00244 0 76 07137 151 LDA =035000000 + 00245 1 61 07140 152 SKEA =034000000 + 00246 0 76 07141 153 LDA =055000000 + 00247 1 61 07142 154 SKEA =060000000 + 00250 0 76 07143 155 LDA =012000000 + 00251 0 35 00071 156 STA CHAR + 00252 0 51 00226 157 BRR GETC + 158 * GETS NEXT CHAR FROM INPUT SOURCE + 00253 0 53 00414 159 FETCH SKN STOPSW + 00254 0 01 03674 160 BRU ENDPO + 00255 0 61 00077 161 MIN CC + 00256 0 76 00077 162 LDA CC + 00257 0 73 04561 163 SKG HICOL MAXIMUM SIGNIFICANT CHARACTERS + 00260 0 01 00265 164 BRU FETCH1 + 00261 0 43 04530 165 FETCHR BRM CARD + 00262 0 46 30003 166 CLR + 00263 0 35 00125 167 STA SS + 00264 0 35 00077 168 STA CC + 00265 0 43 00226 169 FETCH1 BRM GETC + 00266 0 53 00341 170 SKN KSW + 00267 0 01 00332 171 BRU FETCH5 + 00270 1 61 07143 172 SKEA =012000000 + 00271 0 01 00301 173 BRU FETCH2 + 00272 0 40 20100 174 BPT 3 + 00273 0 01 00276 175 BRU $+3 + 00274 0 01 00302 176 BRU FETCH3 + 00275 1 00 07143 177 TYY =012000000 + 00276 0 60 00125 178 SKR SS + 00277 0 01 00275 179 BRU $-2 + 00300 1 00 00071 180 TYY CHAR + 00301 0 61 00125 181 FETCH2 MIN SS + 00302 0 46 20005 182 FETCH3 ABC + 00303 0 76 07144 183 LDA =4 + 00304 1 11 05117 184 SKGA TMIN + 00305 0 01 00312 185 BRU FETCH4 + 00306 1 76 00042 186 ERR 'K' MINOR SYNTAX OVERFLOW + 00307 1 22 00341 187 FETCH6 STZ KSW + 00310 1 22 05442 188 STZ NOCOD + 00311 0 01 00253 189 BRU FETCH + 00312 0 76 07145 190 FETCH4 LDA =0 + 00313 0 67 00006 191 LSH 6 LD INDEX + 00314 0 75 05245 192 LDB A8 LD BASE PZE CVERT,IX2 + 00315 0 43 00420 193 BRM LDCON + 00316 0 35 05174 194 STA T + 00317 1 61 07146 195 SKEA =BOUND + 00320 0 35 00414 196 STA STOPSW + 00321 0 76 05117 197 LDA TMIN + 00322 0 75 05152 198 LDB A4 + 00323 0 43 00456 199 BRM LDSNG + 00324 0 50 07147 200 SKE =APOST2 + 00325 0 01 00342 201 BRU PREC2 + 00326 0 76 05174 202 LDA T + 00327 0 50 07150 203 SKE =APOST + 00330 0 01 03526 204 BRU SN25 + 00331 0 01 00412 205 BRU PREC1 + 00332 0 50 07151 206 FETCH5 SKE =ZZSC + 00333 0 01 00253 207 BRU FETCH + 00334 0 76 07130 208 LDA =-1 + 00335 0 35 00341 209 STA KSW + 00336 1 22 05117 210 STZ TMIN + 00337 1 22 05115 211 STZ RMIN + 00340 0 01 01453 212 BRU SYN2 + 00341 77777777 213 KSW DATA -1 + 00342 0 50 07150 214 PREC2 SKE =APOST + 00343 0 01 00367 215 BRU PREC3 + 00344 0 76 05117 216 LDA TMIN + 00345 0 54 07131 217 SUB =1 + 00346 0 75 05152 218 LDB A4 + 00347 0 43 00456 219 BRM LDSNG + 00350 0 50 07147 220 SKE =APOST2 + 00351 0 01 00407 221 BRU PREC5 + 00352 0 76 05174 222 LDA T + 00353 1 61 07150 223 SKEA =APOST + 00354 0 01 03612 224 BRU SN21 + 00355 0 60 05117 225 SKR TMIN + 00356 0 60 05115 226 SKR RMIN + 00357 0 76 07152 227 LDA =ZZA + 00360 0 62 00071 228 XMA CHAR + 00361 0 35 05175 229 STA T+1 + 00362 0 43 04626 230 BRM STRWD + 00363 0 76 05175 231 LDA T+1 + 00364 0 35 00071 232 STA CHAR + 00365 0 43 04626 233 BRM STRWD + 00366 0 01 00253 234 BRU FETCH + 00367 0 50 07153 235 PREC3 SKE =COMENT + 00370 0 01 00375 236 BRU PREC4 + 00371 0 76 05174 237 LDA T + 00372 0 50 07154 238 SKE =SEMCOL + 00373 0 01 00253 239 BRU FETCH + 00374 0 01 00412 240 BRU PREC1 + 00375 0 50 07155 241 PREC4 SKE =END + 00376 0 01 00407 242 BRU PREC5 + 00377 0 76 05174 243 LDA T + 00400 1 61 07154 244 SKEA =SEMCOL + 00401 0 01 00412 245 BRU PREC1 + 00402 1 61 07150 246 SKEA =APOST + 00403 0 01 00412 247 BRU PREC1 + 00404 0 50 07146 248 SKE =BOUND + 00405 0 01 00253 249 BRU FETCH + 00406 0 01 00412 250 BRU PREC1 + 00407 0 76 05174 251 PREC5 LDA T + 00410 1 61 07156 252 SKEA =BLANK + 00411 0 01 00253 253 BRU FETCH + 00412 0 75 05174 254 PREC1 LDB T + 00413 0 01 03322 255 BRU LW10 + 00414 77777777 256 STOPSW DATA -1 + 257 * + 258 * LD CONSTRUCT FROM BASE AND INDEX TO ACC,RJE + 00415 0 67 00010 259 ZRSH LSH 8 + 00416 0 67 00020 260 LSH 16 + 00417 0 46 00014 261 XAB + 00420 0 00 00000 262 LDCON PZE + 00421 0 36 05222 263 STB T+22 + 00422 0 71 07157 264 LDX =040000 + 00423 0 73 07134 265 SKG =2 + 00424 0 01 00427 266 BRU $+3 + 00425 0 54 07146 267 SUB =3 + 00426 0 41 00423 268 BRX $-3 + 00427 0 75 45222 269 LDB *T+22 + 00430 0 46 00400 270 CAX +D 02300000 271 EXU OPD 02300000 + 00431 2 23 00415 272 EXU ZRSH,IX2 + 00432 0 14 07160 273 ETR =0377 + 00433 0 71 05127 274 LDX MODE + 00434 0 51 00420 275 BRR LDCON + 276 * ST CONSTRUCT INTO BASE AND INDEX FROM ACC,RJE + 00435 0 00 00000 277 STCON PZE + 00436 0 35 05222 278 STA T+22 + 00437 0 76 05172 279 LDA P+8 + 00440 0 66 00001 280 RSH 1 + 00441 0 46 00400 281 CAX + 00442 0 76 05222 282 LDA T+22 + 00443 0 36 05222 283 STB T+22 + 00444 0 75 07161 284 LDB =07777 + 00445 0 53 05222 285 SKN T+22 + 00446 0 67 00014 286 LSH 12 + 00447 0 36 05222 287 STB T+22 + 00450 0 17 45173 288 EOR *P+9 + 00451 0 14 05222 289 ETR T+22 + 00452 0 17 45173 290 EOR *P+9 + 00453 0 35 45173 291 STA *P+9 + 00454 0 71 05127 292 LDX MODE + 00455 0 51 00435 293 BRR STCON + 00456 0 00 00000 294 LDSNG PZE + 00457 0 36 05222 295 STB T+22 + 00460 0 66 00001 296 RSH 1 + 00461 0 46 00400 297 CAX + 00462 0 76 45222 298 LDA *T+22 + 00463 0 36 05222 299 STB T+22 + 00464 0 53 05222 300 SKN T+22 + 00465 0 66 00014 301 RSH 12 + 00466 0 14 07160 302 ETR =0377 + 00467 0 71 05127 303 LDX MODE + 00470 0 51 00456 304 BRR LDSNG + 305 * COMPARES RULE IMPLIERS WITH CONSTRUCT STRING + 00471 0 00 00000 306 CPARE PZE + 00472 0 71 05127 307 LDX MODE + 00473 2 76 05115 308 LDA RMIN,IX2 + 00474 0 55 05206 309 ADD T+10 R+Q LD INDEX + 00475 0 35 05210 310 STA T+12 + 00476 2 75 05152 311 CP2 LDB A4,IX2 + 00477 0 43 00456 312 BRM LDSNG + 00500 0 35 05207 313 STA T+11 + 00501 0 76 05175 314 LDA T+1 + 00502 0 55 07162 315 ADD =020000000 + 00503 0 46 00014 316 XAB + 00504 0 76 05205 317 LDA T+9 X LD INDEX + 00505 0 43 00420 318 BRM LDCON + 00506 0 50 05207 319 SKE T+11 + 00507 0 51 00471 320 BRR CPARE + 00510 0 61 05205 321 MIN T+9 EQ + 00511 0 61 05210 322 MIN T+12 + 00512 0 76 05210 323 LDA T+12 + 00513 0 60 05211 324 SKR T+13 + 00514 0 01 00476 325 BRU CP2 + 00515 0 61 00471 326 CP1 MIN CPARE + 00516 0 51 00471 327 BRR CPARE + 328 * INSERTS IMPLICAND STRING INTO CONSTRUCT STRING + 00517 0 00 00000 329 MASAGE PZE + 00520 0 54 07131 330 SUB =1 + 00521 0 35 05176 331 STA T+2 NO. IMPLAND CONSTR -1 IS CNTR + 00522 0 54 05163 332 SUB P+1 + 00523 0 55 05164 333 ADD P+2 + 00524 0 35 05340 334 STA DELTA P5-P2+P3-1 + 00525 0 53 05176 335 SKN T+2 + 00526 0 01 00532 336 BRU MS6 + 00527 0 76 07130 337 LDA =-1 + 00530 0 63 00070 338 ADM RAST + 00531 0 01 00552 339 BRU MS5 + 00532 0 76 05340 340 MS6 LDA DELTA + 00533 0 50 07145 341 SKE =0 + 00534 0 01 00556 342 BRU MS2 + 00535 0 76 05164 343 MS3 LDA P+2 + 00536 0 35 05172 344 STA P+8 ST INDEX + 00537 2 76 05152 345 LDA A4,IX2 + 00540 0 35 05173 346 STA P+9 ST BASE + 00541 0 76 05167 347 MS1 LDA P+5 + 00542 0 75 05165 348 LDB P+3 LD BASE + 00543 0 43 00420 349 BRM LDCON + 00544 0 43 00435 350 BRM STCON + 00545 0 61 05167 351 MIN P+5 + 00546 0 61 05200 352 MIN T+4 + 00547 0 61 05172 353 MIN P+8 + 00550 0 60 05176 354 SKR T+2 + 00551 0 01 00541 355 BRU MS1 + 00552 0 76 05340 356 MS5 LDA DELTA + 00553 2 55 05117 357 ADD TMIN,IX2 + 00554 2 35 05117 358 STA TMIN,IX2 + 00555 0 51 00517 359 BRR MASAGE + 00556 0 76 05163 360 MS2 LDA P+1 + 00557 1 61 05162 361 SKEA P + 00560 0 01 00535 362 BRU MS3 P1 EQ P2 + 00561 0 55 07131 363 ADD =1 + 00562 0 35 05200 364 STA T+4 LD INDEX + 00563 0 55 05340 365 ADD DELTA + 00564 0 35 05172 366 STA P+8 ST INDEX + 00565 0 76 05162 367 LDA P + 00566 0 54 05200 368 SUB T+4 + 00567 0 35 05201 369 STA T+5 CNTR P1-(P2+1) + 00570 2 75 05152 370 LDB A4,IX2 + 00571 0 36 05173 371 STB P+9 + 00572 0 75 05173 372 MS4 LDB P+9 + 00573 0 76 05200 373 LDA T+4 + 00574 0 43 00456 374 BRM LDSNG + 00575 0 43 00435 375 BRM STCON + 00576 0 61 05200 376 MIN T+4 + 00577 0 61 05172 377 MIN P+8 + 00600 0 60 05201 378 SKR T+5 + 00601 0 01 00572 379 BRU MS4 + 00602 0 01 00535 380 BRU MS3 + 381 * FINDS MATE DEF WITHIN A RULE + 00603 0 76 05175 382 RULER LDA T+1 IMPLY DICT WD + 00604 0 14 07161 383 ETR =07777 + 00605 0 35 05175 384 STA T+1 + 00606 0 71 07163 385 LDX =-3 + 00607 0 75 45175 386 LDB *T+1 + 00610 0 46 00001 387 RL1 CLA + 00611 0 67 00002 388 LSH 2 + 00612 2 35 05205 389 STA T+9,IX2 F,G,H ARE T+6,7,8 RESPECT + 00613 0 41 00610 390 BRX RL1 + 00614 0 76 07134 391 LDA =2 + 00615 0 35 05205 392 STA T+9 + 00616 0 76 05203 393 LDA T+7 + 00617 0 73 07145 394 SKG =0 + 00620 0 01 00631 395 BRU RL2 G EQ 0 + 00621 0 46 30003 396 CLR G GT 0 + 00622 0 54 05203 397 SUB T+7 + 00623 0 35 05206 398 STA T+10 Q + 00624 0 55 07131 399 ADD =1 + 00625 0 46 01000 400 CNA + 00626 0 35 05211 401 STA T+13 + 00627 0 43 00471 402 BRM CPARE + 00630 0 01 00701 403 BRU RL3 + 00631 0 76 05202 404 RL2 LDA T+6 + 00632 0 54 05203 405 SUB T+7 + 00633 1 61 07145 406 SKEA =0 + 00634 0 01 00643 407 BRU RL4 F EQ G + 00635 0 54 07131 408 SUB =1 + 00636 0 35 05211 409 STA T+13 + 00637 0 76 07131 410 LDA =1 + 00640 0 35 05206 411 STA T+10 Q + 00641 0 43 00471 412 BRM CPARE + 00642 0 01 00701 413 BRU RL3 NO GOOD + 00643 0 71 05127 414 RL4 LDX MODE + 00644 2 76 05117 415 LDA TMIN,IX2 T + 00645 0 35 05162 416 STA P + 00646 2 76 05115 417 LDA RMIN,IX2 + 00647 0 55 05202 418 ADD T+6 + 00650 0 54 05203 419 SUB T+7 + 00651 0 35 05163 420 STA P+1 R+F-G + 00652 0 54 05202 421 SUB T+6 + 00653 0 35 05164 422 STA P+2 R-G + 00654 0 76 05202 423 LDA T+6 + 00655 0 55 07134 424 ADD =2 + 00656 0 35 05167 425 STA P+5 + 00657 0 76 05175 426 LDA T+1 + 00660 0 55 05161 427 ADD A3 + 00661 0 35 05165 428 STA P+3 + 00662 2 76 05112 429 LDA A1,IX2 + 00663 0 35 05166 430 STA P+4 + 00664 0 76 05204 431 LDA T+8 + 00665 0 43 00517 432 BRM MASAGE + 00666 2 76 05115 433 LDA RMIN,IX2 + 00667 0 54 05203 434 SUB T+7 + 00670 2 35 05115 435 STA RMIN,IX2 R=R-G + 00671 0 76 45175 436 RL5 LDA *T+1 + 00672 0 66 00010 437 RSH 8 + 00673 0 14 07164 438 ETR =01777 + 00674 2 55 05154 439 ADD SEM,IX2 + 00675 0 35 05175 440 STA T+1 + 00676 0 46 30003 441 CLR + 00677 0 76 07130 442 LDA =-1 + 00700 0 01 45175 443 BRU *T+1 RCVRY PT + 00701 0 76 05202 444 RL3 LDA T+6 + 00702 0 55 05204 445 ADD T+8 + 00703 0 61 05175 446 MIN T+1 + 00704 0 61 05175 447 RL6 MIN T+1 + 00705 0 54 07146 448 SUB =3 + 00706 0 73 07131 449 SKG =1 + 00707 0 01 00606 450 BRU RULER+3 + 00710 0 01 00704 451 BRU RL6 + 452 * CORRESPONDENCE BETWEEN PRIMITIVES AND CONSTRUCTS + 453 CON FORM 8,8,8 + 00711 027 027 027 454 CVERT CON DGT,DGT,DGT + 00712 027 027 027 455 CON DGT,DGT,DGT + 00713 027 027 027 456 CON DGT,DGT,DGT + 00714 027 261 010 457 CON DGT,BLANK,EQUAL + 00715 025 007 012 458 CON APOST,COLON,RPT + 00716 255 014 030 459 CON ILLEG,AOP,LTR + 00717 030 030 030 460 CON LTR,LTR,LTR + 00720 030 030 030 461 CON LTR,LTR,LTR + 00721 030 030 261 462 CON LTR,LTR,BLANK + 00722 175 255 023 463 CON PT,ILLEG,LPAREN + 00723 011 003 014 464 CON LPT,BOUND,AOP + 00724 030 030 030 465 CON LTR,LTR,LTR + 00725 030 030 030 466 CON LTR,LTR,LTR + 00726 030 030 030 467 CON LTR,LTR,LTR + 00727 261 255 013 468 CON BLANK,ILLEG,AST + 00730 022 021 171 469 CON RPAREN,SEMCOL,TEN + 00731 255 004 030 470 CON ILLEG,MOP,LTR + 00732 030 030 030 471 CON LTR,LTR,LTR + 00733 030 030 030 472 CON LTR,LTR,LTR + 00734 030 261 017 473 CON LTR,BLANK,COMMA + 00735 255 255 004 474 CON ILLEG,ILLEG,MOP + 00736 261 000 000 475 CON BLANK,0,0 + 00000737 476 M EQU $ + 00737 0 71 05127 477 SM LDX MODE + 00000737 478 LW102 EQU SM + 00740 2 76 05112 479 DEF LDA A1,IX2 + 00741 0 35 05114 480 STA D + 00742 2 76 05115 481 LDA RMIN,IX2 + 00743 0 35 00070 482 STA RAST + 00744 2 75 05152 483 LDB A4,IX2 + 00745 0 43 00456 484 BRM LDSNG + 00746 0 54 07146 485 SUB =3 + 00747 0 54 05127 486 SUB MODE + 00750 0 73 07130 487 SKG =-1 + 00751 0 01 01000 488 BRU DF8 + 00752 3 11 05156 489 SKGA SIZE,IX2 + 00753 0 01 01000 490 BRU DF8 + 00754 0 46 00400 491 CAX + 00755 0 76 45114 492 LDA *D + 00756 0 01 01011 493 BRU DF2 + 00757 0 35 00070 494 DF4 STA RAST + 00760 2 75 05152 495 LDB A4,IX2 + 00761 0 43 00456 496 BRM LDSNG + 00762 0 46 00002 497 CLB + 00763 0 67 00014 498 LSH 12 + 00764 0 35 05175 499 STA T+1 CONSTR IN B2-9 + 00765 0 71 07145 500 LDX =0 + 00766 0 75 07165 501 LDB =07770000 + 00767 0 76 45114 502 DF1 LDA *D + 00770 0 70 05175 503 SKM T+1 + 00771 0 01 00773 504 BRU $+2 + 00772 0 01 01011 505 BRU DF2 + 00773 0 61 05114 506 MIN D + 00774 0 73 07130 507 SKG =-1 + 00775 0 01 00777 508 BRU $+2 + 00776 0 01 00767 509 BRU DF1 + 00777 0 71 05127 510 LDX MODE + 01000 2 61 05115 511 DF8 MIN RMIN,IX2 + 01001 2 76 05115 512 LDA RMIN,IX2 + 01002 2 73 05117 513 SKG TMIN,IX2 + 01003 0 01 00740 514 BRU DEF R LE T + 01004 2 01 01005 515 DF7 BRU $+1,IX2 + 01005 0 01 00253 516 BRU FETCH + 01006 0 71 07145 517 LDX =0 + 01007 0 37 05127 518 STX MODE + 01010 0 01 00740 519 BRU DEF + 01011 0 35 05175 520 DF2 STA T+1 IMPLY DICT WD + 01012 0 66 00025 521 RSH 21 + 01013 0 14 07146 522 ETR =3 + 01014 0 55 05160 523 ADD A2 + 01015 0 35 01017 524 STA $+2 + 01016 0 71 05127 525 LDX MODE + 01017 0 01 00000 526 BRU + 01020 0 01 01027 527 DF6 BRU DF3 + 01021 0 01 01035 528 BRU DF5 1 - IMPLAND ADDR + 01022 0 01 00603 529 BRU RULER 2 - RULE + 01023 2 76 05117 530 LDA TMIN,IX2 3 - RULEF + 01024 2 73 05115 531 SKG RMIN,IX2 + 01025 0 01 01004 532 BRU DF7 + 01026 0 01 00603 533 BRU RULER + 01027 0 76 05175 534 DF3 LDA T+1 + 01030 0 14 07161 535 ETR =07777 + 01031 0 35 05114 536 STA D + 01032 0 76 00070 537 LDA RAST + 01033 0 54 07131 538 SUB =1 + 01034 0 01 00757 539 BRU DF4 + 01035 2 76 05117 540 DF5 LDA TMIN,IX2 + 01036 0 35 05162 541 STA P + 01037 2 76 05115 542 LDA RMIN,IX2 + 01040 0 35 05163 543 STA P+1 + 01041 0 76 00070 544 LDA RAST + 01042 0 35 05164 545 STA P+2 + 01043 0 76 05175 546 LDA T+1 + 01044 0 14 07161 547 ETR =07777 + 01045 0 35 05175 548 STA T+1 + 01046 0 35 05165 549 STA P+3 + 01047 2 76 05112 550 LDA A1,IX2 + 01050 0 35 05166 551 STA P+4 + 01051 0 75 45165 552 LDB *P+3 + 01052 0 76 07162 553 LDA =020000000 + 01053 0 63 05165 554 ADM P+3 + 01054 0 76 07134 555 LDA =2 + 01055 0 35 05167 556 STA P+5 + 01056 0 76 07145 557 LDA =0 + 01057 0 67 00006 558 LSH 6 + 01060 0 43 00517 559 BRM MASAGE + 01061 0 76 00070 560 LDA RAST + 01062 2 35 05115 561 STA RMIN,IX2 + 01063 0 01 00671 562 BRU RL5 + 01064 0 76 07134 563 SM1 LDA =2 + 01065 0 35 05150 564 STA TYPES + 01066 0 01 00737 565 BRU SM + 01067 0 76 07146 566 SM2 LDA =3 + 01070 0 01 01065 567 BRU SM1+1 + 01071 0 76 07131 568 SM3 LDA =1 + 01072 0 01 01065 569 BRU SM1+1 + 01073 0 76 07166 570 SM17 LDA =01600 OPARY + 01074 0 35 45312 571 STA *SK + 01075 0 01 00737 572 BRU SM + 01076 1 22 05126 573 SM64 STZ NDIM + 01077 0 53 05151 574 SKN STYPE + 01100 0 61 05126 575 MIN NDIM + 01101 0 76 07131 576 LDA =1 + 01102 0 35 01653 577 STA TOT + 01103 0 01 00737 578 BRU SM + 01104 0 46 30003 579 SM68 CLR + 01105 0 35 05135 580 STA DECST + 01106 0 35 05151 581 STA STYPE + 01107 0 35 05126 582 STA NDIM + 01110 0 76 07131 583 LDA =1 + 01111 0 35 01653 584 STA TOT + 01112 0 01 00737 585 BRU SM + 01113 0 76 07167 586 SM133 LDA =8 + 01114 0 01 01175 587 BRU R2D2+1 + 01115 0 76 07170 588 SM134 LDA =9 + 01116 0 01 01175 589 BRU R2D2+1 + 01117 0 76 45250 590 SM135 LDA *BCTAB + 01120 0 66 00011 591 RSH 9 + 01121 0 14 07171 592 ETR =0777 + 01122 0 46 00400 593 CAX + 01123 2 76 07325 594 LDA BASEA-1,IX2 + 01124 0 75 07172 595 LDB =00600000 + 01125 1 06 07145 596 SKMA =0 + 01126 0 01 01134 597 BRU SM135A + 01127 0 14 07173 598 ETR =077777 + 01130 0 55 07174 599 ADD =060100000 + 01131 0 35 05225 600 STA WORDS + 01132 0 46 20005 601 ABC + 01133 0 43 04403 602 BRM MOVE + 01134 0 61 02321 603 SM135A MIN NDB6 + 01135 0 01 02303 604 BRU ENDBLK + 01136 1 22 05147 605 SM22 STZ PARA + 01137 0 01 00737 606 BRU SM + 01140 0 46 30003 607 SM117 CLR + 01141 0 35 05151 608 STA STYPE + 01142 0 01 01065 609 BRU SM1+1 + 01143 0 76 45312 610 SM137 LDA *SK + 01144 0 50 05537 611 SKE CW+14 - CW + 01145 0 01 01151 612 BRU $+4 + 01146 0 76 05555 613 LDA CW+28 + 01147 0 35 45312 614 STA *SK + 01150 0 01 00737 615 BRU SM + 01151 1 14 05442 616 SKNA NOCOD + 01152 0 60 05312 617 SKR SK + 01153 0 01 00737 618 BRU SM + 01154 0 55 05116 619 R1D1 ADD RMIN+1 + 01155 0 75 05153 620 LDB A4+1 + 01156 0 43 00456 621 BRM LDSNG + 01157 0 46 00002 622 CLB + 01160 1 61 07134 623 SKEA =BLKHD + 01161 0 36 05143 624 STB TEMPT + 01162 0 01 00737 625 BRU SM + 01163 0 36 05136 626 R1D2 STB DECSW + 01164 0 01 00737 627 BRU SM + 01165 00000000 628 SIGN DATA 0 + 01166 0 00 00000 629 FRACP PZE + 01167 0 76 05401 630 LDA NUMB + 01170 0 35 05122 631 STA FRAC + 01171 0 76 05400 632 LDA ND + 01172 0 35 05123 633 STA EXP + 01173 0 51 01166 634 BRR FRACP + 01174 0 76 07131 635 R2D2 LDA =1 + 01175 0 35 05146 636 STA KIND + 01176 0 01 00737 637 BRU SM + 01177 0 35 05135 638 R2D4 STA DECST + 01200 0 76 05150 639 LDA TYPES + 01201 0 35 05144 640 STA SWIND + 01202 0 36 05132 641 R2D5 STB NENT + 01203 0 76 07134 642 LDA =2 + 01204 0 35 05146 643 R2D5A STA KIND + 01205 0 43 01654 644 BRM DUP + 01206 0 76 05146 645 LDA KIND + 01207 0 43 02113 646 BRM ADST + 01210 0 01 00737 647 BRU SM + 01211 0 61 05132 648 R2D6A MIN NENT + 01212 0 01 01203 649 BRU R2D5+1 + 01213 0 76 07146 650 R2D6 LDA =3 + 01214 0 01 01175 651 BRU R2D2+1 + 01215 0 36 05150 652 R2D8 STB TYPES + 01216 1 22 05133 653 R2D7 STZ LA + 01217 0 76 07175 654 LDA =5 + 01220 0 01 01204 655 BRU R2D5A + 01221 0 00 00000 656 XNAM PZE + 01222 0 36 05206 657 STB T+10 + 01223 0 75 07176 658 LDB =060606060 + 01224 0 36 00030 659 STB BUF+2 + 01225 0 75 07177 660 LDB =BUF+1 + 01226 0 43 02155 661 BRM MOVNAM + 01227 0 76 07200 662 LDA =010450000 + 01230 0 35 00026 663 STA BUF + 01231 0 76 05206 664 LDA T+10 + 01232 0 14 07173 665 ETR =077777 + 01233 0 55 07201 666 ADD =020100000 + 01234 0 51 01221 667 BRR XNAM + 01235 0 76 07144 668 R2D9A LDA =4 + 01236 0 43 02113 669 BRM ADST + 01237 0 76 45265 670 LDA *A15B + 01240 2 75 07326 671 LDB BASEA,IX2 + 01241 0 43 01221 672 BRM XNAM + 01242 0 55 07162 673 ADD =020000000 + 01243 0 35 00031 674 STA BUF+3 + 01244 0 43 04614 675 BRM SEND + 01245 0 01 01252 676 BRU R2D9B + 01246 0 76 05134 677 R2D9 LDA MAD + 01247 0 35 05133 678 STA LA + 01250 0 76 07144 679 LDA =4 + 01251 0 43 02113 680 BRM ADST + 01252 0 76 07130 681 R2D9B LDA =-1 + 01253 0 35 05136 682 STA DECSW + 01254 0 35 05142 683 STA PROCSW + 01255 0 35 05132 684 STA NENT + 01256 0 46 30003 685 CLR + 01257 0 76 07146 686 LDA =3 + 01260 0 54 05150 687 SUB TYPES + 01261 0 67 00025 688 LSH 21 + 01262 0 55 07202 689 ADD =04100000 + 01263 0 35 05225 690 STA WORDS + 01264 0 46 30003 691 CLR + 01265 0 43 04403 692 BRM MOVE + 01266 0 01 02242 693 BRU BEGBLK+1 + 01267 0 46 30003 694 R2D10 CLR + 01270 0 35 05132 695 STA NENT + 01271 0 55 07203 696 ADD =WORDS + 01272 0 35 05220 697 STA T+20 + 01273 0 43 02023 698 BRM BLKAD + 01274 0 55 07162 699 ADD =020000000 + 01275 0 35 45220 700 STA *T+20 + 01276 0 76 05134 701 LDA MAD + 01277 0 55 05132 702 ADD NENT + 01300 0 35 05133 703 STA LA + 01301 0 76 07131 704 LDA =1 + 01302 0 35 05147 705 STA PARA + 01303 0 35 05150 706 STA TYPES + 01304 0 61 05150 707 MIN TYPES + 01305 0 43 02113 708 BRM ADST + 01306 0 61 05141 709 MIN NDAD + 01307 0 01 00737 710 BRU SM + 01310 0 76 05132 711 R2D11 LDA NENT + 01311 0 55 07131 712 ADD =1 + 01312 0 01 01270 713 BRU R2D10+1 + 01313 0 43 02171 714 R2D12 BRM STSCH + 01314 0 72 07204 715 SKA =040000000 + 01315 0 01 01327 716 BRU R2D12A + 01316 0 76 07205 717 LDA =01000000 + 01317 2 55 07326 718 ADD BASEA,IX2 + 01320 2 35 07326 719 STA BASEA,IX2 + 01321 0 14 07173 720 ETR =077777 + 01322 0 54 05134 721 SUB MAD + 01323 0 46 00400 722 CAX + 01324 0 76 07162 723 LDA =020000000 + 01325 2 63 05225 724 ADM WORDS,IX2 + 01326 0 01 00737 725 BRU SM + 01327 1 76 00023 726 R2D12A ERR 'C' VALUE BUT NO PARAMETER + 01330 0 01 00737 727 BRU SM + 01331 0 76 07131 728 R2D1 LDA =1 + 01332 0 35 05146 729 STA KIND + 01333 0 43 02171 730 R2D14 BRM STSCH + 01334 0 72 07204 731 SKA =040000000 + 01335 0 01 01327 732 BRU R2D12A + 01336 0 46 30003 733 CLR + 01337 0 76 05146 734 LDA KIND + 01340 0 67 00004 735 LSH 4 + 01341 0 55 05150 736 ADD TYPES + 01342 0 67 00020 737 LSH 16 + 01343 0 35 05221 738 STA T+21 + 01344 2 76 07326 739 LDA BASEA,IX2 + 01345 0 14 07206 740 ETR =03177777 + 01346 0 55 05221 741 ADD T+21 + 01347 2 35 07326 742 STA BASEA,IX2 + 01350 0 75 07135 743 LDB =077000000 + 01351 1 06 07143 744 SKMA =012000000 KIND=ARIDT,PARA=CBV + 01352 0 61 05141 745 MIN NDAD + 01353 0 14 07173 746 ETR =077777 + 01354 0 54 05134 747 SUB MAD + 01355 0 46 00400 748 CAX + 01356 0 46 30003 749 CLR + 01357 0 76 07146 750 LDA =3 + 01360 0 54 05150 751 SUB TYPES + 01361 0 67 00004 752 LSH 4 + 01362 0 55 05146 753 ADD KIND + 01363 0 67 00017 754 LSH 15 + 01364 2 63 05225 755 ADM WORDS,IX2 + 01365 0 01 00737 756 BRU SM + 01366 0 36 05150 757 R4D1 STB TYPES + 01367 0 76 07144 758 R4D2 LDA =4 + 01370 0 01 01175 759 BRU R2D2+1 + 01371 0 36 05150 760 R4D4 STB TYPES + 01372 0 01 00737 761 BRU SM + 01373 0 76 07134 762 R5D1 LDA =2 + 01374 0 35 05150 763 STA TYPES + 01375 0 76 07134 764 R5D3 LDA =2 + 01376 0 01 01175 765 BRU R2D2+1 + 01377 0 35 05151 766 R5D2 STA STYPE + 01400 0 01 00737 767 BRU SM + 01401 0 35 05151 768 R5D5 STA STYPE + 01402 0 76 07134 769 LDA =2 + 01403 0 35 05150 770 STA TYPES + 01404 0 01 00737 771 BRU SM + 01405 0 76 07134 772 R5D6 LDA =2 + 01406 0 35 05150 773 STA TYPES + 01407 0 61 05126 774 R5D4 MIN NDIM + 01410 0 01 00737 775 BRU SM + 01411 0 35 05151 776 R7D2 STA STYPE + 01412 0 01 01760 777 BRU VAR + 01413 0 76 07170 778 R7D4 LDA =9 + 01414 0 01 01751 779 BRU MODB + 01415 0 76 07207 780 R11D14 LDA =11 + 01416 0 01 01751 781 BRU MODB + 01417 0 76 05521 782 R26D4 LDA CW LBRACK + 01420 0 35 45312 783 STA *SK + 01421 0 76 07210 784 LDA =13 + 01422 0 01 01751 785 BRU MODB + 01423 0 75 05566 786 R8D2 LDB CW+37 + 01424 0 76 45272 787 LDA *SJ + 01425 1 61 07345 788 SKEA IO + 01426 0 01 01431 789 BRU R8D2A + 01427 1 26 05617 790 COP BCJM0 + 01430 0 75 05557 791 LDB CW+30 PROC OP + 01431 0 36 45312 792 R8D2A STB *SK + 01432 0 75 05140 793 LDB RAND + 01433 1 14 01437 794 SKNA NEST + 01434 0 36 01440 795 STB INDEX + 01435 0 61 01437 796 MIN NEST + 01436 0 01 00737 797 BRU SM + 01437 77777777 798 NEST DATA -1 + 01440 00000000 799 INDEX DATA 0 + 01441 0 76 05272 800 R10D2 LDA SJ + 01442 0 54 05262 801 SUB A12 + 01443 0 35 05124 802 STA PTR + 01444 0 01 00737 803 BRU SM + 01445 1 76 00024 804 SYND ERR 'D' 'DO' SYNTAX ERROR + 01446 0 01 01452 805 BRU SYN1 + 01447 1 76 00025 806 SYNS ERR 'E' STATEMENT SYNTAX ERROR + 01450 0 01 01452 807 BRU SYN1 + 01451 1 76 00044 808 SYN ERR 'M' SEMICOLON SYNTAX ERROR + 01452 0 60 05116 809 SYN1 SKR RMIN+1 + 01453 0 76 05116 810 SYN2 LDA RMIN+1 + 01454 0 35 05120 811 STA TMIN+1 + 01455 0 75 05153 812 LDB A4+1 + 01456 0 43 00456 813 BRM LDSNG + 01457 1 11 07211 814 SKGA =SPECAL + 01460 0 01 01452 815 BRU SYN1 + 01461 0 76 05262 816 LDA A12 + 01462 0 55 07212 817 ADD =7 + 01463 0 35 05272 818 STA SJ + 01464 0 76 05261 819 LDA A11 + 01465 0 35 05312 820 STA SK + 01466 1 22 05442 821 STZ NOCOD + 01467 0 01 00737 822 BRU SM + 01470 1 22 05130 823 R29D1 STZ RSULT + 01471 0 01 00737 824 BRU SM + 01472 0 35 05125 825 R39D1 STA SCSW + 01473 0 01 03675 826 R39D2 BRU ENDPRG + 01474 1 14 05442 827 R40D1 SKNA NOCOD + 01475 0 60 05272 828 SKR SJ + 01476 0 01 00737 829 BRU SM + 830 * PROC CALL CODE GENERATOR + 01477 0 43 02762 831 OPPROC BRM SAVE + 01500 1 26 05614 832 COP PJM0 + 01501 0 76 45272 833 LDA *SJ + 01502 0 75 07136 834 LDB =074000000 + 01503 1 06 07162 835 SKMA =020000000 + 01504 0 01 01507 836 BRU OPPR3 + 01505 0 70 07213 837 SKM =024000000 + 01506 0 60 05272 838 OPPR2 SKR SJ + 01507 0 76 00076 839 OPPR3 LDA OP + 01510 0 50 05535 840 SKE CW+12 RPAREN OP + 01511 0 01 04672 841 BRU TSEX + 01512 0 76 45272 842 LDA *SJ + 01513 0 50 07345 843 SKE IO + 01514 1 26 05620 844 COP ECJM0 + 01515 0 75 01440 845 LDB INDEX + 01516 0 76 07130 846 LDA =-1 + 01517 0 63 01437 847 ADM NEST + 01520 1 14 01437 848 SKNA NEST + 01521 0 36 05140 849 STB RAND + 01522 0 63 05312 850 ADM SK + 01523 0 76 45272 851 LDA *SJ + 01524 0 75 07172 852 LDB =00600000 + 01525 1 06 07145 853 SKMA =0 + 01526 0 01 01531 854 BRU OPPR1 + 01527 0 43 05020 855 BRM RST + 01530 0 01 04672 856 BRU TSEX + 01531 0 60 05272 857 OPPR1 SKR SJ + 01532 0 01 04672 858 BRU TSEX + 01533 0 43 02762 859 OPIO BRM SAVE + 01534 1 26 05613 860 COP IOJM0 + 01535 0 01 01506 861 BRU OPPR2 + 862 * STATIC ARRAY DECLARATION OPERATOR + 01536 0 61 05126 863 OPARY MIN NDIM + 01537 0 71 05126 864 LDX NDIM + 01540 0 76 05401 865 LDA NUMB + 01541 2 35 05225 866 STA WORDS,IX2 + 01542 0 76 00076 867 LDA OP + 01543 1 61 05554 868 SKEA CW+27 + 01544 0 01 04672 869 BRU TSEX + 01545 2 76 05224 870 LDA WORDS-1,IX2 + 01546 3 11 05225 871 SKGA WORDS,IX2 + 01547 1 76 00026 872 ERR 'F' ILLEGAL ARRAY BOUND + 01550 2 76 05224 873 LDA WORDS-1,IX2 + 01551 2 54 05225 874 SUB WORDS,IX2 + 01552 0 54 07131 875 SUB =1 + 01553 0 46 00400 876 CAX + 01554 0 46 30003 877 CLR + 01555 0 55 01653 878 ADD TOT + 01556 0 41 01555 879 BRX $-1 + 01557 0 35 01653 880 STA TOT + 01560 0 76 00076 881 LDA OP + 01561 0 50 05535 882 SKE CW+12 + 01562 0 01 04672 883 BRU TSEX + 01563 0 46 30003 884 CLR + 01564 0 76 05144 885 LDA SWIND HAS TYPES + 01565 0 50 07131 886 SKE =1 + 01566 0 01 01575 887 BRU OPAR6 + 01567 0 62 01653 888 XMA TOT BOOLEAN + 01570 0 54 07214 889 OPAR7 SUB =24 + 01571 0 73 07145 890 SKG =0 + 01572 0 01 01602 891 BRU OPAR2 + 01573 0 61 01653 892 MIN TOT + 01574 0 01 01570 893 BRU OPAR7 + 01575 0 50 07134 894 OPAR6 SKE =2 + 01576 0 01 01602 895 BRU OPAR2 + 01577 0 76 01653 896 OPAR1 LDA TOT + 01600 0 67 00001 897 LSH 1 + 01601 0 35 01653 898 OPAR3 STA TOT + 01602 0 76 05246 899 OPAR2 LDA NABADD + 01603 0 54 05132 900 SUB NENT + 01604 0 54 07131 901 SUB =1 + 01605 0 46 00400 902 CAX + 01606 2 76 07326 903 LDA BASEA,IX2 + 01607 0 14 07215 904 ETR =077700000 + 01610 0 55 05134 905 ADD MAD + 01611 2 35 07326 906 STA BASEA,IX2 + 01612 0 46 30003 907 CLR + 01613 0 76 07146 908 LDA =3 + 01614 0 54 05144 909 SUB SWIND + 01615 0 67 00005 910 LSH 5 + 01616 0 55 05126 911 ADD NDIM + 01617 0 67 00016 912 LSH 14 + 01620 0 14 07215 913 ETR =077700000 + 01621 0 53 05151 914 SKN STYPE + 01622 0 01 01640 915 BRU OPAR4 + 01623 0 55 05134 916 ADD MAD + 01624 0 55 07131 917 ADD =1 + 01625 0 35 05225 918 STA WORDS + 01626 0 76 05126 919 LDA NDIM + 01627 0 75 07204 920 LDB =040000000 + 01630 0 43 04403 921 BRM MOVE + 01631 0 43 04460 922 BRM CODOUT + 01632 0 76 01653 923 LDA TOT + 01633 0 63 05134 924 ADM MAD + 01634 0 60 05132 925 OPAR5 SKR NENT + 01635 0 01 01602 926 BRU OPAR2 + 01636 0 60 05312 927 SKR SK + 01637 0 01 04672 928 BRU TSEX + 01640 0 55 05141 929 OPAR4 ADD NDAD + 01641 0 55 07216 930 ADD =010000000 + 01642 0 35 05225 931 STA WORDS + 01643 0 43 02023 932 BRM BLKAD + 01644 0 35 05226 933 STA WORDS+1 + 01645 0 76 01653 934 LDA TOT + 01646 0 63 05141 935 ADM NDAD + 01647 0 76 05126 936 LDA NDIM + 01650 0 75 07162 937 LDB =020000000 + 01651 0 43 04403 938 BRM MOVE + 01652 0 01 01634 939 BRU OPAR5 + 01653 00000001 940 TOT DATA 1 + 01654 0 00 00000 941 DUP PZE + 01655 0 76 07130 942 LDA =-1 + 01656 0 43 02171 943 BRM STSCH + 01657 0 50 07130 944 SKE =-1 + 01660 1 76 00027 945 ERR 'G' DUPLICATE USE OF IDENTIFIER + 01661 0 51 01654 946 BRR DUP + 947 * CHANGES CONSTRUCT FROM KIND -LAST DEF OF IDT RULE + 01662 0 46 30003 948 MODA CLR + 01663 0 43 02171 949 BRM STSCH + 01664 0 72 07204 950 SKA =040000000 + 01665 0 01 02064 951 BRU LABREF + 01666 0 35 05140 952 STA RAND + 01667 2 76 07326 953 LDA BASEA,IX2 + 01670 0 75 07136 954 LDB =074000000 + 01671 1 06 07213 955 SKMA =024000000 XPRIDT + 01672 0 01 01700 956 BRU MODA2 + 01673 0 70 07140 957 SKM =034000000 + 01674 0 01 01703 958 BRU MODA1 + 01675 0 76 05140 959 LDA RAND + 01676 0 55 07131 960 ADD =1 + 01677 0 01 02070 961 BRU LBRF1 + 01700 0 14 07215 962 MODA2 ETR =077700000 + 01701 0 55 07217 963 ADD =BASEA + 01702 0 55 05140 964 ADD RAND + 01703 1 14 05442 965 MODA1 SKNA NOCOD + 01704 0 61 05272 966 MIN SJ + 01705 0 35 45272 967 STA *SJ + 01706 0 72 07205 968 SKA =01000000 + 01707 0 43 04106 969 BRM FFDZ + 01710 0 76 45272 970 LDA *SJ + 01711 0 72 07162 971 SKA =020000000 PRIDT + 01712 0 01 01724 972 BRU MODA4 + 01713 0 71 05140 973 MODA5 LDX RAND + 01714 0 46 30003 974 CLR + 01715 2 75 07326 975 LDB BASEA,IX2 + 01716 0 67 00004 976 LSH 4 + 01717 0 46 00400 977 MODA3 CAX + 01720 2 75 05632 978 LDB TAB1,IX2 + 01721 0 71 05127 979 LDX MODE + 01722 0 76 05116 980 LDA RMIN+1 + 01723 0 01 03314 981 BRU LW14+1 + 01724 0 76 05120 982 MODA4 LDA TMIN+1 + 01725 0 75 05153 983 LDB A4+1 + 01726 0 43 00456 984 BRM LDSNG + 01727 1 61 07220 985 SKEA =ASSIGN + 01730 0 01 01713 986 BRU MODA5 + 01731 0 43 04106 987 BRM FFDZ + 01732 0 76 05117 988 LDA TMIN + 01733 0 75 05152 989 LDB A4 + 01734 0 43 00456 990 BRM LDSNG + 01735 1 61 07221 991 SKEA =LPAREN + 01736 0 01 01713 992 BRU MODA5 + 01737 1 26 05617 993 COP BCJM0 + 01740 1 26 05620 994 COP ECJM0 + 01741 0 76 45272 995 LDA *SJ + 01742 0 72 07172 996 SKA =00600000 + 01743 0 01 01747 997 BRU MODA6 + 01744 1 14 05442 998 SKNA NOCOD + 01745 0 60 05272 999 SKR SJ + 01746 0 01 01713 1000 BRU MODA5 + 01747 0 43 05020 1001 MODA6 BRM RST + 01750 0 01 01713 1002 BRU MODA5 + 1003 * CHANGES CONSTRUCT FROM TYPE + 01751 0 71 05140 1004 MODB LDX RAND + 01752 2 75 07326 1005 LDB BASEA,IX2 + 01753 0 35 05175 1006 STA T+1 + 01754 0 67 00007 1007 LSH 7 GET MSB OF TYPE + 01755 0 14 07131 1008 ETR =1 + 01756 0 55 05175 1009 ADD T+1 + 01757 0 01 01717 1010 BRU MODA3 + 1011 * ENTERS VARIABLES INTO S-T,BUILDS DESCRIPTORS + 01760 0 76 05134 1012 VAR LDA MAD + 01761 0 35 05133 1013 STA LA + 01762 0 43 01654 1014 BRM DUP + 01763 0 76 07131 1015 LDA =1 SIMP VAR IDT + 01764 0 43 02113 1016 BRM ADST + 01765 0 46 30003 1017 CLR + 01766 0 53 05151 1018 SKN STYPE + 01767 0 01 02005 1019 BRU VAR4 NON-OWN + 01770 0 71 05150 1020 LDX TYPES + 01771 2 01 01771 1021 BRU $,IX2 + 01772 0 01 02001 1022 BRU VAR1 BOOLEAN + 01773 0 01 02003 1023 BRU VAR2 REAL + 01774 0 75 07142 1024 LDB =060000000 INTEGER + 01775 0 36 05225 1025 VAR3 STB WORDS + 01776 0 46 00002 1026 CLB + 01777 0 43 04403 1027 BRM MOVE + 02000 0 01 00737 1028 BRU SM + 02001 0 75 07216 1029 VAR1 LDB =010000000 + 02002 0 01 01775 1030 BRU VAR3 + 02003 0 55 07131 1031 VAR2 ADD =1 + 02004 0 01 01775 1032 BRU VAR3 + 02005 0 76 07212 1033 VAR4 LDA =7 + 02006 0 54 05150 1034 SUB TYPES + 02007 0 67 00023 1035 LSH 19 + 02010 0 55 05141 1036 ADD NDAD + 02011 0 35 05225 1037 STA WORDS + 02012 0 61 05141 1038 MIN NDAD + 02013 0 75 07222 1039 LDB =06000000 + 02014 1 06 07223 1040 SKMA =02000000 + 02015 0 61 05141 1041 MIN NDAD + 02016 0 43 02023 1042 BRM BLKAD + 02017 0 75 07162 1043 LDB =020000000 + 02020 0 35 05226 1044 STA WORDS+1 + 02021 0 76 07131 1045 LDA =1 + 02022 0 01 01777 1046 BRU VAR3+2 + 1047 * GETS ADDRESS OF BB COMMAND FOR DESCRIPTORS + 02023 0 00 00000 1048 BLKAD PZE + 02024 0 76 05452 1049 LDA BLKPAR + 02025 0 54 07175 1050 SUB =5 + 02026 0 35 02027 1051 STA $+1 + 02027 0 76 00000 1052 LDA + 02030 0 14 07173 1053 ETR =077777 + 02031 0 51 02023 1054 BRR BLKAD + 00002032 1055 N EQU $ + 1056 * LABEL DEFINITION POINTS + 02032 0 43 03565 1057 LABDEF BRM ADBLNK + 02033 0 53 05142 1058 SKN PROCSW + 02034 0 01 02041 1059 BRU LBDF3 + 02035 0 76 05132 1060 LDA NENT + 02036 0 35 05142 1061 STA PROCSW + 02037 0 75 07130 1062 LDB =-1 + 02040 0 43 04403 1063 BRM MOVE + 02041 0 76 07130 1064 LBDF3 LDA =-1 + 02042 0 43 02171 1065 BRM STSCH SRCH THIS BLOCK ONLY + 02043 0 73 07130 1066 SKG =-1 + 02044 0 01 02057 1067 BRU LBDF1 + 02045 2 76 07326 1068 LDA BASEA,IX2 + 02046 0 14 07136 1069 ETR =074000000 + 02047 0 50 07140 1070 SKE =034000000 UNCLAB + 02050 1 76 00027 1071 ERR 'G' DUPLICATE USE OF IDENTIFIER + 02051 0 76 05134 1072 LDA MAD LA=MAD + 02052 0 55 07204 1073 ADD =040000000 KIND=LABEL + 02053 2 62 07326 1074 XMA BASEA,IX2 + 02054 0 43 04442 1075 BRM INTOUT + 02055 0 75 07224 1076 LBDF2 LDB =LBLSL + 02056 0 01 03310 1077 BRU LW9 + 02057 0 76 05134 1078 LBDF1 LDA MAD + 02060 0 35 05133 1079 STA LA + 02061 0 76 07167 1080 LDA =8 + 02062 0 43 02113 1081 BRM ADST + 02063 0 01 02055 1082 BRU LBDF2 + 02064 1 22 05133 1083 LABREF STZ LA + 02065 0 76 07212 1084 LDA =7 + 02066 0 43 02113 1085 BRM ADST + 02067 0 76 05246 1086 LDA NABADD + 02070 0 55 07225 1087 LBRF1 ADD =BASEA-1+034000000 + 02071 1 14 05442 1088 SKNA NOCOD + 02072 0 61 05272 1089 MIN SJ + 02073 0 35 45272 1090 STA *SJ + 02074 0 01 00737 1091 BRU SM + 02075 0 76 05134 1092 SWIT LDA MAD + 02076 0 35 05145 1093 STA POSADD + 02077 1 22 05133 1094 STZ LA + 02100 1 22 05132 1095 STZ NENT + 02101 0 76 07226 1096 LDA =0400 + 02102 0 35 45312 1097 STA *SK + 02103 0 76 07130 1098 LDA =-1 + 02104 0 35 05136 1099 STA DECSW + 02105 0 76 05246 1100 LDA NABADD + 02106 0 35 05144 1101 STA SWIND + 02107 0 43 01654 1102 BRM DUP + 02110 0 76 07146 1103 LDA =3 + 02111 0 43 02113 1104 BRM ADST + 02112 0 01 00737 1105 BRU SM + 1106 * PUTS NEW ENTRY INTO SYMBOL TABLE + 02113 0 00 00000 1107 ADST PZE + 02114 0 46 00002 1108 CLB + 02115 0 67 00002 1109 LSH 2 + 02116 0 55 05147 1110 ADD PARA + 02117 0 67 00002 1111 LSH 2 + 02120 0 55 05150 1112 ADD TYPES + 02121 0 67 00001 1113 LSH 1 + 02122 1 14 05151 1114 SKNA STYPE + 02123 0 55 07131 1115 ADD =1 + 02124 0 67 00017 1116 LSH 15 + 02125 0 55 05133 1117 ADD LA + 02126 0 71 05246 1118 ADS1 LDX NABADD + 02127 2 35 07326 1119 STA BASEA,IX2 A PART + 02130 0 76 00072 1120 LDA LEN + 02131 0 67 00017 1121 LSH 15 + 02132 0 55 05267 1122 ADD A16 BASEC-1 + 02133 0 55 05247 1123 ADD NCADD + 02134 0 35 45265 1124 STA *A15B B PART + 02135 0 61 05246 1125 MIN NABADD + 02136 0 55 07131 1126 ADD =1 + 02137 0 35 05215 1127 STA T+17 + 02140 0 75 05215 1128 LDB T+17 + 02141 0 14 07215 1129 ETR =077700000 + 02142 0 55 07227 1130 ADD =NAME-1 + 02143 0 43 02155 1131 BRM MOVNAM + 02144 0 76 00072 1132 LDA LEN + 02145 0 66 00002 1133 RSH 2 + 02146 0 55 07131 1134 ADD =1 + 02147 0 63 05247 1135 ADM NCADD + 02150 0 76 05246 1136 LDA NABADD + 02151 0 73 05266 1137 SKG A15L + 02152 0 51 02113 1138 BRR ADST + 02153 1 76 00030 1139 ERR 'H' SYMBOL TABLE OVERFLOW + 02154 0 01 03763 1140 BRU WAIT + 1141 * NAME MOVER: A=LEN,'FROM' ADDR.-1; B='TO' ADDR. + 02155 0 00 00000 1142 MOVNAM PZE + 02156 0 35 05215 1143 STA T+17 + 02157 0 36 05216 1144 STB T+18 + 02160 0 66 00021 1145 RSH 17 + 02161 0 35 05217 1146 STA T+19 + 02162 0 61 05215 1147 MVN1 MIN T+17 + 02163 0 76 45215 1148 LDA *T+17 + 02164 0 35 45216 1149 STA *T+18 + 02165 0 61 05216 1150 MIN T+18 + 02166 0 60 05217 1151 SKR T+19 + 02167 0 01 02162 1152 BRU MVN1 + 02170 0 51 02155 1153 BRR MOVNAM + 1154 * S-T SEARCH A=0 IS ALL ON INPUT + 02171 0 00 00000 1155 STSCH PZE + 02172 0 46 00002 1156 CLB + 02173 0 72 07130 1157 SKA =-1 + 02174 0 75 45250 1158 LDB *BCTAB THIS BLOCK ONLY + 02175 0 67 00017 1159 LSH 15 + 02176 0 14 07171 1160 ETR =00000777 + 02177 0 35 05174 1161 STA T END ENTRY + 02200 0 76 05246 1162 LDA NABADD + 02201 0 54 07131 1163 SUB =1 + 02202 0 46 00400 1164 STS1 CAX + 02203 0 55 07131 1165 ADD =1 + 02204 0 73 05174 1166 SKG T + 02205 0 01 02237 1167 BRU STS4 DONE - NON-EXIST + 02206 0 46 30003 1168 CLR + 02207 0 75 45265 1169 LDB *A15B + 02210 0 67 00011 1170 LSH 9 + 02211 0 50 00072 1171 SKE LEN + 02212 0 01 02234 1172 BRU STS3 + 02213 0 66 00002 1173 RSH 2 + 02214 0 35 05175 1174 STA T+1 + 02215 0 76 45265 1175 LDA *A15B + 02216 0 14 07173 1176 ETR =077777 + 02217 0 55 07131 1177 ADD =1 + 02220 0 35 05223 1178 STA T+23 + 02221 0 76 05260 1179 LDA A10 SKE NAME + 02222 0 35 02224 1180 STA STS2+1 + 02223 0 76 45223 1181 STS2 LDA *T+23 + 02224 0 50 00073 1182 SKE NAME + 02225 0 01 02234 1183 BRU STS3 + 02226 0 61 05223 1184 MIN T+23 + 02227 0 61 02224 1185 MIN STS2+1 + 02230 0 60 05175 1186 SKR T+1 + 02231 0 01 02223 1187 BRU STS2 + 02232 0 46 00200 1188 CXA + 02233 0 51 02171 1189 BRR STSCH EXIT WITH ENTRY NO. + 02234 0 46 00200 1190 STS3 CXA + 02235 0 54 07131 1191 SUB =1 + 02236 0 01 02202 1192 BRU STS1 + 02237 0 76 07130 1193 STS4 LDA =-1 EXIT WITH NON-EXIST FLAG + 02240 0 51 02171 1194 BRR STSCH + 1195 * BLOCK PUSH-DOWN MAINTENANCE + 02241 1 26 05607 1196 BEGBLK COP BBNA + 02242 0 46 30003 1197 CLR + 02243 0 35 05225 1198 STA WORDS + 02244 0 35 05226 1199 STA WORDS+1 + 02245 0 35 05227 1200 STA WORDS+2 + 02246 0 76 07134 1201 LDA =2 + 02247 0 43 04403 1202 BRM MOVE + 02250 0 61 05250 1203 MIN BCTAB + 02251 0 46 30003 1204 CLR + 02252 0 55 05246 1205 ADD NABADD NEXT AVAIL ABADD + 02253 0 67 00011 1206 LSH 9 + 02254 0 55 05247 1207 ADD NCADD NEXT AVAIL CADD + 02255 0 35 45250 1208 STA *BCTAB + 02256 0 61 05452 1209 MIN BLKPAR + 02257 0 76 05134 1210 LDA MAD + 02260 0 55 07201 1211 ADD =020100000 + 02261 0 54 07144 1212 SUB =4 + 02262 0 75 07134 1213 LDB =2 + 02263 0 71 07230 1214 LDX =-2 + 02264 0 35 45452 1215 STA *BLKPAR + 02265 0 55 07131 1216 BEGB1 ADD =1 + 02266 0 46 00014 1217 XAB + 02267 0 63 05452 1218 ADM BLKPAR + 02270 0 46 00014 1219 XAB + 02271 0 35 45452 1220 STA *BLKPAR + 02272 0 41 02265 1221 BRX BEGB1 + 02273 0 61 05452 1222 MIN BLKPAR + 02274 0 61 05443 1223 MIN MTEMP + 02275 0 61 05512 1224 MIN DNSP + 02276 0 76 05141 1225 LDA NDAD + 02277 0 35 45512 1226 STA *DNSP + 02300 1 22 45443 1227 STZ *MTEMP CLEAR MAX TEMP USAGE, THIS BLOCK + 02301 1 22 05141 1228 STZ NDAD + 02302 0 01 00737 1229 BRU SM + 1230 * PERFORM END-OF-BLOCK OPERATIONS + 02303 0 76 07204 1231 ENDBLK LDA =040000000 + 02304 0 55 05141 1232 ADD NDAD + 02305 0 35 45452 1233 STA *BLKPAR + 02306 0 76 45512 1234 LDA *DNSP + 02307 0 35 05141 1235 STA NDAD + 02310 0 76 05452 1236 LDA BLKPAR + 02311 0 54 07134 1237 SUB =2 + 02312 0 35 05222 1238 STA T+22 + 02313 0 76 05134 1239 LDA MAD + 02314 0 55 07231 1240 ADD =040100000 + 02315 0 35 45222 1241 STA *T+22 + 02316 0 76 45443 1242 LDA *MTEMP + 02317 0 67 00020 1243 LSH 16 + 02320 0 14 07232 1244 ETR =077600000 + 02321 0 55 05611 1245 NDB6 ADD EBNA + 02322 0 43 04141 1246 BRM COA + 02323 0 60 05443 1247 SKR MTEMP + 02324 0 43 04460 1248 BRM CODOUT + 02325 0 76 05452 1249 LDA BLKPAR + 02326 0 14 07173 1250 ETR =077777 + 02327 0 55 07233 1251 ADD =02677772 + 02330 0 75 07234 1252 LDB =040750000 + 02331 0 36 00026 1253 STB BUF + 02332 0 75 07177 1254 LDB =BUF+1 + 02333 0 43 02155 1255 BRM MOVNAM + 02334 0 43 04614 1256 BRM SEND + 02335 0 76 07235 1257 LDA =-6 + 02336 0 63 05452 1258 ADM BLKPAR + 02337 0 76 05246 1259 LDA NABADD + 02340 0 55 05264 1260 ADD A15 LDA BASEA,IX2 + 02341 0 35 05213 1261 STA T+15 + 02342 0 55 05266 1262 ADD A15L + 02343 0 35 05214 1263 STA T+16 + 02344 0 76 45250 1264 LDA *BCTAB + 02345 0 66 00011 1265 RSH 9 + 02346 0 14 07171 1266 ETR =0777 + 02347 0 62 05246 1267 XMA NABADD + 02350 0 54 05246 1268 SUB NABADD + 02351 0 46 01000 1269 CNA + 02352 0 46 00400 1270 CAX + 02353 0 76 45250 1271 LDA *BCTAB + 02354 0 14 07171 1272 ETR =0777 + 02355 0 35 05247 1273 STA NCADD + 02356 0 60 05250 1274 SKR BCTAB + 02357 0 60 05512 1275 SKR DNSP + 02360 0 75 07136 1276 NDB2 LDB =074000000 + 02361 0 76 45213 1277 LDA *T+15 + 02362 1 06 07140 1278 SKMA =034000000 UNENCLAB + 02363 0 01 02403 1279 BRU NDB3 + 02364 0 70 07213 1280 SKM =024000000 XPRIDT + 02365 0 01 02376 1281 BRU NDB5 + 02366 0 75 07173 1282 LDB =077777 + 02367 1 06 07145 1283 SKMA =0 + 02370 0 01 02376 1284 BRU NDB5 + 02371 0 76 45214 1285 LDA *T+16 + 02372 0 75 45213 1286 LDB *T+15 + 02373 0 43 01221 1287 BRM XNAM + 02374 0 35 00031 1288 STA BUF+3 + 02375 0 43 04614 1289 BRM SEND + 02376 0 41 02360 1290 NDB5 BRX NDB2 + 02377 0 76 02402 1291 LDA NDB7 + 02400 0 35 02321 1292 STA NDB6 + 02401 0 01 00737 1293 BRU SM + 02402 0 55 05611 1294 NDB7 ADD EBNA + 02403 0 76 45214 1295 NDB3 LDA *T+16 + 02404 0 75 07236 1296 LDB =NAME + 02405 0 43 02155 1297 BRM MOVNAM + 02406 0 76 45214 1298 LDA *T+16 + 02407 0 66 00017 1299 RSH 15 + 02410 0 35 00072 1300 STA LEN + 02411 0 37 05220 1301 STX T+20 + 02412 0 76 07130 1302 LDA =-1 + 02413 0 43 02171 1303 BRM STSCH + 02414 0 72 07204 1304 SKA =040000000 + 02415 0 01 02434 1305 BRU NDB4 NONE FOUND + 02416 2 76 07326 1306 LDA BASEA,IX2 + 02417 0 75 07136 1307 LDB =074000000 + 02420 0 70 07204 1308 SKM =040000000 LABEL + 02421 0 01 02434 1309 BRU NDB4 + 02422 0 14 07173 1310 ETR =077777 + 02423 0 35 05217 1311 STA T+19 + 02424 0 43 04460 1312 BRM CODOUT + 02425 0 71 05220 1313 LDX T+20 + 02426 0 75 45213 1314 LDB *T+15 + 02427 0 36 05216 1315 STB T+18 + 02430 0 75 07237 1316 LDB =NDB8-1 + 02431 0 36 04442 1317 STB INTOUT + 02432 0 76 05217 1318 LDA T+19 + 02433 0 01 04446 1319 BRU INT1 + 02434 0 76 07237 1320 NDB4 LDA =NDB8-1 + 02435 0 35 02113 1321 STA ADST + 02436 0 71 05220 1322 LDX T+20 + 02437 0 46 30003 1323 CLR + 02440 0 76 45213 1324 LDA *T+15 + 02441 0 01 02126 1325 BRU ADS1 + 02442 0 71 05220 1326 NDB8 LDX T+20 + 02443 0 01 02376 1327 BRU NDB5 + 1328 * SWITCH DECLARATION OPERATOR + 02444 0 61 05132 1329 OPSW MIN NENT + 02445 0 76 05132 1330 LDA NENT + 02446 0 55 07134 1331 ADD =2 + 02447 0 46 00400 1332 CAX + 02450 0 76 05145 1333 LDA POSADD + 02451 2 35 05225 1334 STA WORDS,IX2 + 02452 0 43 02505 1335 BRM GOSW + 02453 0 76 00076 1336 LDA OP + 02454 0 50 05531 1337 SKE CW+8 SEMCOL + 02455 0 01 02477 1338 BRU OPSW1 + 02456 0 76 05134 1339 LDA MAD + 02457 0 55 07240 1340 ADD =0100001 DESCR 0, T=0,N=1,ADDR=MAD + 02460 0 35 05225 1341 STA WORDS + 02461 0 76 07131 1342 LDA =1 LOB + 02462 0 35 05226 1343 STA WORDS+1 + 02463 0 76 05132 1344 LDA NENT UPB + 02464 0 35 05227 1345 STA WORDS+2 + 02465 0 71 05144 1346 LDX SWIND + 02466 0 76 05134 1347 LDA MAD + 02467 2 63 07326 1348 ADM BASEA,IX2 + 02470 0 76 05132 1349 LDA NENT + 02471 0 55 07134 1350 ADD =2 + 02472 0 75 07241 1351 LDB =047777777 RELOC INFO + 02473 0 43 04403 1352 BRM MOVE + 02474 0 60 05312 1353 SKR SK + 02475 1 22 05136 1354 STZ DECSW + 02476 0 01 04672 1355 BRU TSEX + 02477 0 76 05134 1356 OPSW1 LDA MAD + 02500 0 35 05145 1357 STA POSADD + 02501 0 01 04672 1358 BRU TSEX + 02502 0 43 02505 1359 OPGO BRM GOSW + 02503 0 60 05312 1360 SKR SK + 02504 0 01 04660 1361 BRU TS2 + 1362 * GOTO,SWITCH COMMON GENERATION + 02505 0 00 00000 1363 GOSW PZE + 02506 0 46 30003 1364 CLR + 02507 0 76 05131 1365 LDA ITESW + 02510 0 36 05131 1366 STB ITESW + 02511 0 72 07130 1367 SKA =-1 + 02512 0 51 02505 1368 BRR GOSW + 02513 0 76 45272 1369 LDA *SJ + 02514 0 14 07136 1370 ETR =074000000 + 02515 1 61 07204 1371 SKEA =040000000 LABEL + 02516 0 01 02524 1372 BRU GOSW1 + 02517 1 61 07140 1373 SKEA =034000000 UNCLAB + 02520 0 01 02524 1374 BRU GOSW1 + 02521 0 43 02607 1375 BRM GOSS + 02522 0 63 05272 1376 GOSW2 ADM SJ + 02523 0 51 02505 1377 BRR GOSW + 02524 1 26 05605 1378 GOSW1 COP UJJM0 + 02525 0 76 07130 1379 LDA =-1 + 02526 0 01 02522 1380 BRU GOSW2 + 1381 * ELSE OPERATOR + 02527 0 76 45272 1382 OPELS LDA *SJ + 02530 1 61 05272 1383 SKEA SJ + 02531 0 01 02605 1384 BRU OPELS7 + 02532 0 14 07136 1385 ETR =074000000 + 02533 1 61 07142 1386 SKEA =060000000 FR + 02534 0 01 02602 1387 BRU OPELS5 + 02535 1 61 07204 1388 SKEA =040000000 + 02536 0 01 02600 1389 BRU OPELS3 LABEL + 02537 1 61 07140 1390 SKEA =034000000 + 02540 0 01 02600 1391 BRU OPELS3 UNENCLAB + 02541 0 76 05272 1392 LDA SJ + 02542 0 54 07131 1393 SUB =1 + 02543 0 35 02544 1394 STA $+1 + 02544 0 76 00000 1395 LDA + 02545 0 14 07136 1396 ETR =074000000 + 02546 1 61 07152 1397 SKEA =014000000 + 02547 0 01 02562 1398 BRU OPELS1 SWIDT + 02550 0 76 05130 1399 LDA RSULT + 02551 1 61 07145 1400 SKEA =0 + 02552 1 26 05572 1401 COP LDJM0 + 02553 0 76 07130 1402 LDA =-1 + 02554 0 43 04375 1403 BRM RECFR + 02555 0 75 45272 1404 LDB *SJ + 02556 0 60 05272 1405 SKR SJ + 02557 0 36 45272 1406 STB *SJ + 02560 0 43 05020 1407 BRM RST + 02561 0 01 02576 1408 BRU OPELS2 + 02562 0 43 02607 1409 OPELS1 BRM GOSS SJ-1 = SWIDT + 02563 0 76 07130 1410 OPELS4 LDA =-1 + 02564 0 55 05312 1411 ADD SK + 02565 0 35 02566 1412 STA $+1 + 02566 0 76 00000 1413 LDA + 02567 1 61 05527 1414 SKEA CW+6 SW OPERATOR + 02570 0 01 02573 1415 BRU $+3 + 02571 0 50 05530 1416 SKE CW+7 GOTO OPERATOR + 02572 0 01 02575 1417 BRU $+3 + 02573 0 76 07131 1418 LDA =1 + 02574 0 35 05131 1419 STA ITESW + 02575 0 60 05272 1420 OPELS6 SKR SJ + 02576 0 60 05312 1421 OPELS2 SKR SK + 02577 0 01 04660 1422 BRU TS2 + 02600 1 26 05605 1423 OPELS3 COP UJJM0 + 02601 0 01 02563 1424 BRU OPELS4 + 02602 0 46 30003 1425 OPELS5 CLR + 02603 0 43 04375 1426 BRM RECFR + 02604 0 01 02575 1427 BRU OPELS6 + 02605 0 61 05272 1428 OPELS7 MIN SJ + 02606 0 01 02563 1429 BRU OPELS4 + 1430 * OUTPUTS GO SJ-1,SSSJ-0 + 02607 0 00 00000 1431 GOSS PZE + 02610 0 43 02762 1432 BRM SAVE + 02611 1 26 05604 1433 COP UJJM1 + 02612 1 26 05573 1434 COP SSJM0 + 02613 0 76 07130 1435 LDA =-1 + 02614 0 63 05272 1436 ADM SJ + 02615 0 51 02607 1437 BRR GOSS + 1438 * THEN OPERATOR + 02616 0 76 45272 1439 OPTH LDA *SJ + 02617 0 14 07136 1440 ETR =074000000 + 02620 1 61 07142 1441 SKEA =060000000 + 02621 0 01 02665 1442 BRU OPTH3 FR + 02622 1 61 07204 1443 SKEA =040000000 + 02623 0 01 02703 1444 BRU OPTH8 LABEL + 02624 1 61 07140 1445 SKEA =034000000 + 02625 0 01 02703 1446 BRU OPTH8 UNENCLAB + 02626 0 76 05272 1447 LDA SJ + 02627 0 54 07131 1448 SUB =1 + 02630 0 35 02631 1449 STA $+1 + 02631 0 76 00000 1450 LDA + 02632 0 14 07136 1451 ETR =074000000 + 02633 1 61 07152 1452 SKEA =014000000 + 02634 0 01 02677 1453 BRU OPTH6 SWIDT + 02635 0 43 02753 1454 BRM FINDR + 02636 0 72 07204 1455 SKA =040000000 + 02637 0 01 02642 1456 BRU OPTH1 NO RESULT + 02640 1 22 05130 1457 STZ RSULT + 02641 0 01 02643 1458 BRU OPTH2 + 02642 1 26 05572 1459 OPTH1 COP LDJM0 + 02643 0 46 30003 1460 OPTH2 CLR + 02644 0 43 04367 1461 BRM SETFR SJ-0 + 02645 1 26 05605 1462 COP UJJM0 + 02646 0 76 07130 1463 LDA =-1 + 02647 0 43 04375 1464 BRM RECFR SJ-1 + 02650 0 76 05272 1465 LDA SJ + 02651 0 54 07131 1466 SUB =1 + 02652 0 35 05216 1467 STA T+18 + 02653 0 76 45272 1468 LDA *SJ + 02654 0 35 45216 1469 STA *T+18 + 02655 0 76 00076 1470 OPTH7 LDA OP + 02656 0 50 05526 1471 SKE CW+5 ELSE (OP) OPERATOR + 02657 0 01 02674 1472 BRU OPTH5 + 02660 0 76 05525 1473 LDA CW+4 ELSE (STACK) OPERATOR + 02661 0 35 45312 1474 STA *SK + 02662 0 76 07130 1475 LDA =-1 + 02663 0 63 05272 1476 OPTH4 ADM SJ + 02664 0 01 04672 1477 BRU TSEX + 02665 0 76 00076 1478 OPTH3 LDA OP + 02666 0 50 05526 1479 SKE CW+5 ELSE + 02667 0 01 02672 1480 BRU $+3 + 02670 0 61 05272 1481 MIN SJ + 02671 0 01 02643 1482 BRU OPTH2 + 02672 0 46 30003 1483 CLR + 02673 0 43 04375 1484 BRM RECFR + 02674 0 60 05312 1485 OPTH5 SKR SK + 02675 0 60 05272 1486 SKR SJ + 02676 0 01 04660 1487 BRU TS2 + 02677 0 43 02607 1488 OPTH6 BRM GOSS SJ-1 = SWIDT + 02700 0 43 04375 1489 OPTH9 BRM RECFR SJ-1 + 02701 0 60 05272 1490 SKR SJ + 02702 0 01 02655 1491 BRU OPTH7 + 02703 1 26 05605 1492 OPTH8 COP UJJM0 + 02704 0 76 07130 1493 LDA =-1 + 02705 0 01 02700 1494 BRU OPTH9 + 1495 * IF OPERATOR + 02706 0 76 05130 1496 OPIF LDA RSULT + 02707 1 61 07145 1497 SKEA =0 + 02710 1 26 05572 1498 COP LDJM0 + 02711 0 46 30003 1499 CLR + 02712 0 35 05130 1500 STA RSULT + 02713 0 43 04367 1501 BRM SETFR + 02714 1 26 05602 1502 COP JFJM0 + 02715 0 76 05523 1503 LDA CW+2 THEN + 02716 0 35 45312 1504 STA *SK + 02717 0 01 04672 1505 BRU TSEX + 1506 * ASSIGNMENT OPERATOR CODE GENERATOR + 02720 0 76 05130 1507 OPASS LDA RSULT + 02721 1 61 07145 1508 SKEA =0 + 02722 1 26 05572 1509 COP LDJM0 + 02723 0 60 05272 1510 SKR SJ + 02724 0 76 45272 1511 LDA *SJ + 02725 0 75 07136 1512 LDB =074000000 + 02726 0 70 07162 1513 SKM =020000000 INT PRIDT + 02727 0 01 02736 1514 BRU OPAS3 + 02730 0 14 07173 1515 ETR =077777 + 02731 0 55 07242 1516 ADD =060400000 + 02732 0 35 05225 1517 STA WORDS + 02733 0 46 20005 1518 ABC + 02734 0 43 04403 1519 BRM MOVE + 02735 0 01 02737 1520 BRU $+2 + 02736 1 26 05574 1521 OPAS3 COP STJM0 + 02737 0 60 05312 1522 SKR SK + 02740 0 76 45312 1523 LDA *SK + 02741 0 50 05522 1524 SKE CW+1 ASSIGN + 02742 0 01 02747 1525 BRU OPAS1 + 02743 0 76 05272 1526 LDA SJ + 02744 0 54 05262 1527 SUB A12 LDA SJ + 02745 0 35 05130 1528 OPAS2 STA RSULT + 02746 0 01 04660 1529 BRU TS2 + 02747 0 50 05560 1530 OPAS1 SKE CW+31 PHI OP + 02750 0 60 05272 1531 SKR SJ + 02751 0 46 30003 1532 CLR + 02752 0 01 02745 1533 BRU OPAS2 + 1534 * GETS INCREMENT OF RESULT,IF ANY,RELATIVE TO NORMAL SJ + 02753 0 00 00000 1535 FINDR PZE + 02754 0 76 05272 1536 LDA SJ + 02755 0 54 05130 1537 SUB RSULT + 02756 1 61 05272 1538 SKEA SJ + 02757 0 46 30003 1539 CLR + 02760 0 54 05262 1540 SUB A12 LDA SJ + 02761 0 51 02753 1541 BRR FINDR + 02762 0 00 00000 1542 SAVE PZE + 02763 0 76 05130 1543 LDA RSULT + 02764 1 11 07145 1544 SKGA =0 + 02765 1 26 05567 1545 COP STT + 02766 0 51 02762 1546 BRR SAVE + 02767 0 00 00000 1547 XCH PZE + 02770 0 76 05272 1548 LDA SJ + 02771 0 55 07130 1549 ADD =-1 + 02772 0 35 05216 1550 STA T+18 + 02773 0 76 45216 1551 LDA *T+18 + 02774 0 62 45272 1552 XMA *SJ + 02775 0 35 45216 1553 STA *T+18 + 02776 0 51 02767 1554 BRR XCH + 1555 * FOR STMT CODE GENERATOR + 02777 0 76 00076 1556 OPFOR LDA OP + 03000 0 50 05562 1557 SKE CW+33 WHILE OP + 03001 0 01 03005 1558 BRU OPF1 + 03002 0 76 07131 1559 LDA =1 + 03003 0 35 05137 1560 OPF3 STA TELE + 03004 0 01 04672 1561 BRU TSEX + 03005 0 50 05563 1562 OPF1 SKE CW+34 UNTIL OP + 03006 0 01 03011 1563 BRU OPF2 + 03007 0 43 02762 1564 BRM SAVE + 03010 0 01 04672 1565 BRU TSEX + 03011 0 50 05564 1566 OPF2 SKE CW+35 STEP OP + 03012 0 01 03017 1567 BRU OPF4 + 03013 0 76 05134 1568 LDA MAD + 03014 0 35 05631 1569 STA BR + 03015 0 76 07134 1570 LDA =2 + 03016 0 01 03003 1571 BRU OPF3 + 03017 0 76 05137 1572 OPF4 LDA TELE + 03020 0 50 07131 1573 SKE =1 WH + 03021 0 01 03025 1574 BRU OPF5 + 03022 0 43 02762 1575 BRM SAVE + 03023 1 26 05575 1576 COP WHJM0 + 03024 0 01 03033 1577 BRU OPF6 + 03025 0 50 07134 1578 OPF5 SKE =2 STEP-UNTIL + 03026 0 01 03105 1579 BRU OPF13 + 03027 0 43 02762 1580 BRM SAVE + 03030 1 26 05621 1581 COP SUJM0 + 03031 0 60 05272 1582 SKR SJ + 03032 1 26 05570 1583 COP PZJMO + 03033 0 53 05375 1584 OPF6 SKN FEFSW + 03034 0 01 03040 1585 BRU OPF7 + 03035 0 60 05272 1586 SKR SJ + 03036 0 43 02767 1587 BRM XCH + 03037 0 01 03044 1588 BRU OPF8 + 03040 0 76 07130 1589 OPF7 LDA =-1 + 03041 0 35 05375 1590 STA FEFSW + 03042 0 76 07145 1591 LDA =0 + 03043 0 43 04367 1592 BRM SETFR + 03044 0 76 05137 1593 OPF8 LDA TELE + 03045 1 61 07145 1594 SKEA =0 + 03046 0 01 03057 1595 BRU OPF9 + 03047 1 26 05622 1596 COP JPJM0 + 03050 0 76 05631 1597 LDA BR + 03051 0 55 07243 1598 ADD =04000000 + 03052 0 35 05225 1599 STA WORDS + 03053 0 46 30003 1600 CLR + 03054 0 75 07130 1601 LDB =-1 + 03055 0 43 04403 1602 BRM MOVE + 03056 0 01 03061 1603 BRU OPF11 + 03057 1 26 05623 1604 OPF9 COP SPLJM0 + 03060 1 26 05624 1605 COP DEALNA + 03061 1 22 05137 1606 OPF11 STZ TELE + 03062 0 76 00076 1607 LDA OP + 03063 0 50 05565 1608 SKE CW+36 DO + 03064 0 01 03076 1609 BRU OPF12 + 03065 0 76 07130 1610 LDA =-1 + 03066 0 43 04367 1611 BRM SETFR + 03067 1 26 05625 1612 COP JPJM1 + 03070 0 76 07145 1613 LDA =0 + 03071 0 43 04375 1614 BRM RECFR + 03072 0 60 05272 1615 SKR SJ + 03073 0 76 05561 1616 LDA CW+32 PHI R OP + 03074 0 35 45312 1617 OPF14 STA *SK + 03075 0 01 04672 1618 BRU TSEX + 03076 1 26 05626 1619 OPF12 COP ALJM2 + 03077 0 43 02767 1620 BRM XCH + 03100 0 76 05134 1621 LDA MAD + 03101 0 35 05631 1622 STA BR + 03102 0 61 05312 1623 MIN SK + 03103 0 76 05522 1624 LDA CW+1 ASSIGN + 03104 0 01 03074 1625 BRU OPF14 + 03105 0 61 05272 1626 OPF13 MIN SJ + 03106 0 01 03033 1627 BRU OPF6 + 03107 0 53 05442 1628 OPFRR SKN NOCOD + 03110 0 01 04660 1629 BRU TS2 + 03111 0 76 07130 1630 LDA =-1 + 03112 0 43 04375 1631 BRM RECFR + 03113 1 26 05627 1632 COP EFBNA + 03114 0 76 07145 1633 LDA =0 + 03115 0 43 04375 1634 BRM RECFR + 03116 0 76 07230 1635 LDA =-2 + 03117 0 63 05272 1636 ADM SJ + 03120 0 60 05312 1637 SKR SK + 03121 0 01 04660 1638 BRU TS2 + 1639 * UNARY OPERATOR CODE GENERATOR + 03122 0 53 05135 1640 OPUN SKN DECST + 03123 0 01 03130 1641 BRU OPU4 + 03124 0 46 30003 1642 CLR NEG ARRAY BOUND + 03125 0 54 05401 1643 SUB NUMB + 03126 0 35 05401 1644 STA NUMB + 03127 0 01 03140 1645 BRU OPU3 + 03130 0 43 02753 1646 OPU4 BRM FINDR + 03131 0 72 07204 1647 SKA =040000000 + 03132 0 01 03136 1648 BRU OPU1 NO RESULT LEFT + 03133 0 73 07145 1649 SKG =0 + 03134 0 01 03142 1650 BRU OPU2 + 03135 1 26 05567 1651 COP STT + 03136 1 26 05576 1652 OPU1 COP LDNJM0 + 03137 0 43 05020 1653 BRM RST + 03140 0 60 05312 1654 OPU3 SKR SK + 03141 0 01 04660 1655 BRU TS2 + 03142 1 26 05577 1656 OPU2 COP NEG + 03143 0 01 03140 1657 BRU OPU3 + 1658 * BINARY OPERATOR CODE GENERATOR + 03144 0 76 45312 1659 OPBIN LDA *SK + 03145 0 50 05553 1660 SKE CW+26 ** + 03146 0 01 03161 1661 BRU OPB6 + 03147 0 43 02762 1662 BRM SAVE + 03150 0 76 07244 1663 LDA =XPON+024400000 + 03151 0 61 05272 1664 MIN SJ + 03152 0 35 45272 1665 STA *SJ + 03153 1 26 05617 1666 COP BCJM0 + 03154 1 26 05616 1667 COP PJM2 + 03155 1 26 05615 1668 COP PJM1 + 03156 1 26 05620 1669 COP ECJM0 + 03157 0 60 05272 1670 SKR SJ + 03160 0 01 03175 1671 BRU OPB3 + 03161 0 43 02753 1672 OPB6 BRM FINDR + 03162 0 72 07204 1673 SKA =040000000 + 03163 0 01 03201 1674 BRU OPB4 NO RESULT LEFT + 03164 0 73 07131 1675 SKG =1 + 03165 0 01 03170 1676 BRU OPB1 + 03166 1 26 05567 1677 COP STT + 03167 0 01 03201 1678 BRU OPB4 + 03170 0 73 07145 1679 OPB1 SKG =0 + 03171 0 01 03174 1680 BRU OPB2 + 03172 1 26 05600 1681 OPB5 COP OPJM0 + 03173 0 01 03175 1682 BRU OPB3 + 03174 1 26 05601 1683 OPB2 COP OPIJM1 + 03175 0 60 05272 1684 OPB3 SKR SJ + 03176 0 43 05020 1685 BRM RST + 03177 0 60 05312 1686 SKR SK + 03200 0 01 04660 1687 BRU TS2 + 03201 1 26 05571 1688 OPB4 COP LDJM1 + 03202 0 01 03172 1689 BRU OPB5 + 1690 * CHECK NAME WITH LEXICON - INT FCNS + 03203 0 76 05244 1691 LWCHK LDA A7 + 03204 0 35 05211 1692 STA T+13 + 03205 1 22 00075 1693 STZ CNT + 03206 0 46 00400 1694 LW3 CAX + 03207 0 75 45211 1695 LDB *T+13 + 03210 0 67 00004 1696 LSH 4 + 03211 0 35 05213 1697 STA T+15 + 03212 0 66 00002 1698 RSH 2 + 03213 0 55 07131 1699 ADD =1 + 03214 0 35 05212 1700 STA T+14 NO. NAME WDS + 03215 0 76 05213 1701 LDA T+15 LEX WD LEN + 03216 0 50 00072 1702 SKE LEN + 03217 0 01 03232 1703 BRU LW2 + 03220 0 76 05212 1704 LDA T+14 + 03221 0 46 00400 1705 LW1 CAX + 03222 0 76 45211 1706 LDA *T+13 + 03223 2 50 00072 1707 SKE NAME-1,IX2 + 03224 0 01 03234 1708 BRU LW4 + 03225 0 46 00200 1709 CXA + 03226 0 54 07131 1710 SUB =1 + 03227 1 61 07145 1711 SKEA =0 + 03230 0 01 03245 1712 BRU LW5 + 03231 0 01 03221 1713 BRU LW1 + 03232 1 11 00072 1714 LW2 SKGA LEN + 03233 0 01 03342 1715 LW6 BRU LW16 NON-LEXICON IN QUOTES + 03234 0 61 00075 1716 LW4 MIN CNT + 03235 0 76 07245 1717 LDA =29 + 03236 0 73 00075 1718 SKG CNT + 03237 0 01 03233 1719 BRU LW6 + 03240 0 76 05212 1720 LDA T+14 + 03241 0 55 07131 1721 ADD =1 + 03242 0 63 05211 1722 ADM T+13 + 03243 0 46 30003 1723 CLR + 03244 0 01 03206 1724 BRU LW3 + 03245 0 46 00400 1725 LW5 CAX + 03246 0 75 45211 1726 LDB *T+13 + 03247 0 67 00007 1727 LSH 7 + 03250 0 14 07212 1728 ETR =7 + 03251 0 55 05377 1729 ADD A24 BRU LW7 + 03252 0 35 03261 1730 STA LW7-1 + 03253 0 46 00001 1731 CLA + 03254 0 67 00005 1732 LSH 5 + 03255 0 46 00400 1733 CAX + 03256 0 67 00014 1734 LSH 12 + 03257 0 14 07161 1735 ETR =07777 + 03260 0 46 00014 1736 XAB + 03261 0 01 00000 1737 BRU + 03262 0 01 03303 1738 LW7 BRU LW8 + 03263 0 01 03310 1739 BRU LW9 + 03264 0 01 03322 1740 BRU LW10 + 03265 0 01 03324 1741 BRU LW11 + 03266 0 01 03331 1742 BRU LW12 TRUE + 03267 0 01 03340 1743 BRU LW13 FALSE + 03270 1 14 05442 1744 SKNA NOCOD + 03271 0 61 05272 1745 MIN SJ + 03272 0 46 30003 1746 CLR + 03273 0 35 05375 1747 STA FEFSW + 03274 0 43 04367 1748 BRM SETFR + 03275 1 26 05630 1749 COP ALJM0 + 03276 0 76 05134 1750 LDA MAD + 03277 0 35 05631 1751 STA BR + 03300 0 71 07146 1752 LDX =3 + 03301 0 75 07246 1753 LDB =FOR + 03302 0 01 03324 1754 BRU LW11 + 03303 2 76 06167 1755 LW8 LDA OPTAB,IX2 + 03304 0 35 00076 1756 STA OP + 03305 0 36 05211 1757 STB T+13 + 03306 0 43 04655 1758 BRM TS + 03307 0 75 05211 1759 LW15 LDB T+13 + 03310 0 71 07131 1760 LW9 LDX =1 + 03311 0 37 05127 1761 STX MODE + 03312 2 61 05117 1762 MIN TMIN,IX2 + 03313 2 76 05117 1763 LW14 LDA TMIN,IX2 + 03314 0 35 05172 1764 STA P+8 + 03315 2 76 05152 1765 LDA A4,IX2 + 03316 0 35 05173 1766 STA P+9 + 03317 0 46 00014 1767 XAB + 03320 0 43 00435 1768 BRM STCON + 03321 0 01 00737 1769 SN BRU LW102 + 03322 0 71 07145 1770 LW10 LDX =0 + 03323 0 01 03311 1771 BRU LW9+1 + 03324 2 76 06167 1772 LW11 LDA OPTAB,IX2 + 03325 1 14 05442 1773 SKNA NOCOD + 03326 0 61 05312 1774 MIN SK + 03327 0 35 45312 1775 STA *SK + 03330 0 01 03310 1776 BRU LW9 + 03331 0 76 07131 1777 LW12 LDA =1 + 03332 0 36 05211 1778 STB T+13 + 03333 0 35 05133 1779 STA LA + 03334 0 76 07131 1780 LDA =1 + 03335 0 35 05150 1781 STA TYPES + 03336 0 43 04074 1782 BRM SETK + 03337 0 01 03307 1783 BRU LW9-1 + 03340 0 76 07145 1784 LW13 LDA =0 + 03341 0 01 03332 1785 BRU LW12+1 + 03342 1 76 00041 1786 LW16 ERR 'J' NON-LEXICON IN QUOTES + 03343 0 01 00307 1787 BRU FETCH6 + 03344 0 00 00000 1788 ADNM PZE + 03345 0 37 05206 1789 STX T+10 + 03346 0 76 00072 1790 LDA LEN + 03347 1 61 07212 1791 SKEA =7 + 03350 0 51 03344 1792 BRR ADNM + 03351 0 55 07131 1793 ADD =1 + 03352 0 35 00072 1794 STA LEN + 03353 0 66 00002 1795 RSH 2 + 03354 0 46 00400 1796 CAX + 03355 0 46 00001 1797 CLA + 03356 0 67 00002 1798 LSH 2 + 03357 0 55 07247 1799 ADD =ADNMT + 03360 0 35 05221 1800 STA T+21 + 03361 0 76 00071 1801 LDA CHAR + 03362 0 46 00002 1802 CLB + 03363 0 23 45221 1803 EXU *T+21 + 03364 2 55 00073 1804 ADD NAME,IX2 + 03365 2 35 00073 1805 ADN1 STA NAME,IX2 + 03366 0 71 05127 1806 LDX MODE + 03367 0 51 03344 1807 BRR ADNM + 03370 0 01 03365 1808 ADNMT BRU ADN1 + 03371 0 66 20006 1809 RCY 6 + 03372 0 66 20014 1810 RCY 12 + 03373 0 66 20022 1811 RCY 18 + 03374 0 76 07130 1812 SN1 LDA =-1 + 03375 0 35 00072 1813 STA LEN + 03376 0 43 03344 1814 BRM ADNM + 03377 0 01 00253 1815 BRU FETCH + 03400 0 76 07131 1816 SN2 LDA =1 + 03401 0 35 05400 1817 STA ND + 03402 0 46 30003 1818 CLR + 03403 0 75 00071 1819 LDB CHAR + 03404 0 67 00006 1820 LSH 6 + 03405 0 35 05401 1821 STA NUMB + 03406 0 01 00253 1822 BRU FETCH + 03407 0 75 07250 1823 SN3 LDB =APRI + 03410 0 01 03310 1824 BRU LW9 + 03411 0 75 07210 1825 SN4 LDB =IDT + 03412 0 01 03310 1826 BRU LW9 + 03413 0 76 05531 1827 SN5 LDA CW+8 + 03414 0 75 07154 1828 LDB =SEMCOL + 03415 0 01 03304 1829 BRU LW8+1 + 03416 0 76 05532 1830 SN6 LDA CW+9 + 03417 0 75 07155 1831 LDB =END + 03420 0 01 03304 1832 BRU LW8+1 + 03421 0 76 05533 1833 SN7 LDA CW+10 + 03422 0 75 07251 1834 LDB =COMMA + 03423 0 01 03304 1835 BRU LW8+1 + 03424 0 76 05534 1836 SN8 LDA CW+11 + 03425 0 75 07221 1837 LDB =LPAREN + 03426 0 01 03325 1838 BRU LW11+1 + 03427 0 76 05535 1839 SN9 LDA CW+12 + 03430 0 75 07252 1840 LDB =RPAREN + 03431 0 01 03304 1841 BRU LW8+1 + 03432 0 75 05536 1842 SN12 LDB CW+13 + 03433 0 76 00071 1843 LDA CHAR + 03434 0 50 07162 1844 SKE =ZZP + 03435 0 75 05537 1845 LDB CW+14 - CW + 03436 0 46 00014 1846 XAB + 03437 0 75 07253 1847 LDB =AOP + 03440 0 01 03304 1848 BRU LW8+1 + 03441 0 76 05554 1849 SN13 LDA CW+27 + 03442 0 75 07254 1850 LDB =COLONE + 03443 0 01 03304 1851 BRU LW8+1 + 03444 0 75 07255 1852 SN14 LDB =ROPE + 03445 0 01 03305 1853 BRU LW8+2 + 03446 0 75 05540 1854 SN15 LDB CW+15 + 03447 0 76 00071 1855 LDA CHAR + 03450 1 61 07256 1856 SKEA =ZZD + 03451 0 01 03455 1857 BRU SN15A + 03452 0 75 05541 1858 LDB CW+16 \ CW + 03453 0 50 07257 1859 SKE =ZZI + 03454 0 75 05542 1860 LDB CW+17 * CW + 03455 0 46 00014 1861 SN15A XAB + 03456 0 75 07260 1862 LDB =MOPE + 03457 0 01 03304 1863 BRU LW8+1 + 03460 0 76 05526 1864 SN16 LDA CW+5 + 03461 0 75 07261 1865 LDB =ELSE + 03462 0 01 03304 1866 BRU LW8+1 + 03463 0 43 03565 1867 SN27 BRM ADBLNK + 03464 0 76 07210 1868 LDA =IDT + 03465 0 61 05120 1869 MIN TMIN+1 + 03466 0 75 05120 1870 LDB TMIN+1 + 03467 0 36 05172 1871 STB P+8 + 03470 0 75 05153 1872 LDB A4+1 + 03471 0 36 05173 1873 STB P+9 + 03472 0 43 00435 1874 BRM STCON + 03473 0 76 05522 1875 SN27A LDA CW+1 + 03474 0 75 07220 1876 LDB =ASSIGN + 03475 0 01 03325 1877 BRU LW11+1 + 03476 0 76 05543 1878 SN28 LDA CW+18 + 03477 0 75 07262 1879 LDB =EQUIV + 03500 0 01 03304 1880 BRU LW8+1 + 03501 0 76 05544 1881 SN29 LDA CW+19 + 03502 0 35 00076 1882 STA OP + 03503 0 01 00737 1883 BRU LW102 + 03504 0 76 05545 1884 SN30 LDA CW+20 + 03505 0 01 03502 1885 BRU SN29+1 + 03506 0 76 05546 1886 SN31 LDA CW+21 + 03507 0 01 03502 1887 BRU SN29+1 + 03510 0 76 05547 1888 SN32 LDA CW+22 + 03511 0 01 03502 1889 BRU SN29+1 + 03512 0 76 05550 1890 SN34 LDA CW+23 + 03513 0 01 03502 1891 BRU SN29+1 + 03514 0 76 05552 1892 SN35 LDA CW+25 + 03515 0 75 07263 1893 LDB =IMPLIC + 03516 0 01 03304 1894 BRU LW8+1 + 03517 0 76 05551 1895 SN38 LDA CW+24 + 03520 0 01 03502 1896 BRU SN29+1 + 03521 0 76 05553 1897 SN39 LDA CW+26 + 03522 0 75 07264 1898 LDB =EOP + 03523 0 01 03304 1899 BRU LW8+1 + 03524 0 43 03344 1900 SN24 BRM ADNM + 03525 0 01 00253 1901 SN24B BRU FETCH + 03526 0 43 04626 1902 SN25 BRM STRWD + 03527 0 01 00253 1903 BRU FETCH + 03530 0 76 00071 1904 SN24A LDA CHAR + 03531 0 75 07131 1905 LDB =1 + 03532 0 50 07162 1906 SKE =020000000 + 03533 0 36 01165 1907 STB SIGN + 03534 0 01 00737 1908 BRU LW102 + 03535 0 61 05400 1909 SN26 MIN ND + 03536 0 46 30003 1910 CLR + 03537 0 75 00071 1911 LDB CHAR + 03540 0 67 00006 1912 LSH 6 + 03541 0 35 00071 1913 STA CHAR + 03542 0 76 05401 1914 LDA NUMB + 03543 0 67 00002 1915 LSH 2 + 03544 0 55 05401 1916 ADD NUMB + 03545 0 67 00001 1917 LSH 1 + 03546 0 55 00071 1918 ADD CHAR + 03547 0 35 05401 1919 STA NUMB + 03550 0 01 00253 1920 BRU FETCH + 03551 0 61 05120 1921 SN22 MIN TMIN+1 + 03552 0 76 05120 1922 LDA TMIN+1 + 03553 0 35 05172 1923 STA P+8 + 03554 0 76 05153 1924 LDA A4+1 + 03555 0 35 05173 1925 STA P+9 + 03556 0 76 07155 1926 LDA =END + 03557 0 43 00435 1927 BRM STCON + 03560 0 76 05532 1928 LDA CW+9 END CW + 03561 0 75 07146 1929 LDB =BOUND + 03562 0 01 03304 1930 BRU LW8+1 + 03563 0 43 03565 1931 SN40 BRM ADBLNK + 03564 0 01 00737 1932 BRU SM + 03565 0 00 00000 1933 ADBLNK PZE + 03566 0 76 00072 1934 LDA LEN + 03567 0 66 00002 1935 RSH 2 + 03570 0 35 05174 1936 STA T + 03571 0 46 00001 1937 CLA + 03572 0 67 00002 1938 LSH 2 + 03573 0 46 00400 1939 CAX + 03574 2 76 03600 1940 LDA BLKTAB,IX2 + 03575 0 71 05174 1941 LDX T + 03576 2 63 00073 1942 ADM NAME,IX2 + 03577 0 51 03565 1943 BRR ADBLNK + 03600 00606060 1944 BLKTAB DATA 0606060 + 03601 00006060 1945 DATA 06060 + 03602 00000060 1946 DATA 060 + 03603 00000000 1947 DATA 0 + 03604 0 76 05134 1948 SN19 LDA MAD + 03605 0 35 03633 1949 STA SAD + 03606 1 26 05606 1950 COP BSNA + 03607 0 76 07137 1951 LDA =ZZL LPAREN + 03610 0 35 00071 1952 STA CHAR + 03611 0 01 03374 1953 BRU SN1 + 03612 1 22 05115 1954 SN21 STZ RMIN + 03613 1 22 05117 1955 STZ TMIN + 03614 0 76 07141 1956 LDA =ZZR RPAREN + 03615 0 35 00071 1957 STA CHAR + 03616 0 43 03344 1958 BRM ADNM + 03617 0 76 07265 1959 LDA =SN21A + 03620 0 35 04626 1960 STA STRWD + 03621 0 01 04633 1961 SN21A BRU STRW1 + 03622 0 76 07266 1962 LDA =044000000 + 03623 0 55 03633 1963 ADD SAD + 03624 1 14 05442 1964 SKNA NOCOD + 03625 0 61 05272 1965 MIN SJ + 03626 0 35 45272 1966 STA *SJ + 03627 0 76 03633 1967 LDA SAD + 03630 0 43 04442 1968 BRM INTOUT + 03631 0 75 07267 1969 LDB =STRX + 03632 0 01 03310 1970 BRU LW9 + 03633 00000000 1971 SAD DATA 0 + 03634 0 76 05401 1972 R9D1 LDA NUMB + 03635 0 35 05121 1973 STA INT + 03636 0 01 00737 1974 BRU SM + 03637 0 43 01166 1975 R9D2 BRM FRACP + 03640 0 01 00737 1976 BRU SM + 03641 0 43 01166 1977 R9D3 BRM FRACP + 03642 0 01 03653 1978 BRU R9D41 + 03643 0 76 07131 1979 R9D6 LDA =1 + 03644 0 35 05121 1980 STA INT + 03645 0 76 05401 1981 R9D4 LDA NUMB + 03646 0 60 01165 1982 SKR SIGN + 03647 0 46 01000 1983 CNA + 03650 0 46 00002 1984 CLB + 03651 0 67 00014 1985 LSH 12 + 03652 0 63 05123 1986 ADM EXP + 03653 0 43 03773 1987 R9D41 BRM NTSCH + 03654 0 46 30003 1988 CLR + 03655 0 35 05121 1989 STA INT + 03656 0 35 05122 1990 STA FRAC + 03657 0 35 05123 1991 STA EXP + 03660 0 76 07134 1992 LDA =2 + 03661 0 01 03671 1993 BRU R9D5A + 03662 1 14 05135 1994 R9D5 SKNA DECST + 03663 0 01 00737 1995 BRU SM + 03664 0 76 05401 1996 LDA NUMB + 03665 1 11 07173 1997 SKGA =077777 + 03666 1 76 00043 1998 ERR 'L' INTEGER LITERAL GT 15 BITS + 03667 0 35 05133 1999 STA LA + 03670 0 76 07146 2000 LDA =3 + 03671 0 35 05150 2001 R9D5A STA TYPES + 03672 0 43 04074 2002 BRM SETK + 03673 0 01 00737 2003 BRU SM + 2004 * OUTPUTS CONSTANTS AND REF-DEFS + 03674 1 76 00021 2005 ENDPO ERR 'A' + 03675 0 76 07155 2006 ENDPRG LDA =NIMF + 03676 1 61 05246 2007 NDPR1 SKEA NABADD + 03677 0 01 03725 2008 BRU NDPR2 + 03700 0 46 00400 2009 CAX + 03701 2 76 07326 2010 LDA BASEA,IX2 + 03702 0 72 07243 2011 SKA =04000000 + 03703 0 01 03707 2012 BRU NDPR3 + 03704 0 46 00200 2013 NDPR5 CXA + 03705 0 55 07131 2014 ADD =1 + 03706 0 01 03676 2015 BRU NDPR1 + 03707 0 76 45265 2016 NDPR3 LDA *A15B + 03710 0 35 05174 2017 STA T + 03711 0 66 00021 2018 RSH 17 + 03712 0 35 05175 2019 STA T+1 + 03713 1 00 07132 2020 TYY =052000000 + 03714 0 61 05174 2021 NDPR4 MIN T + 03715 0 02 02641 2022 TYPW 1,4 + 03716 0 12 45174 2023 MIW *T + 03717 0 02 14000 2024 TOPW + 03720 0 40 21000 2025 BRTW + 03721 0 01 03720 2026 BRU $-1 + 03722 0 60 05175 2027 SKR T+1 + 03723 0 01 03714 2028 BRU NDPR4 + 03724 0 01 03704 2029 BRU NDPR5 + 03725 0 43 04050 2030 NDPR2 BRM RELOUT + 03726 0 71 07270 2031 LDX =-NIMF+1 + 03727 0 76 05265 2032 LDA A15B + 03730 0 54 07270 2033 SUB =-NIMF+1 + 03731 0 35 05214 2034 STA T+16 + 03732 2 76 07345 2035 NDPR6 LDA BASEA+NIMF-1,IX2 + 03733 0 75 07173 2036 LDB =077777 + 03734 1 06 07145 2037 SKMA =0 + 03735 0 01 03743 2038 BRU NDPR7 + 03736 0 46 00014 2039 XAB + 03737 0 76 45214 2040 LDA *T+16 + 03740 0 43 01221 2041 BRM XNAM + 03741 0 35 00031 2042 STA BUF+3 + 03742 0 43 04614 2043 BRM SEND + 03743 0 41 03732 2044 NDPR7 BRX NDPR6 + 03744 0 76 07223 2045 LDA =02000000 + 03745 0 55 05134 2046 ADD MAD + 03746 0 35 00027 2047 STA BUF+1 + 03747 0 76 07271 2048 LDA =00100000 + 03750 0 35 00030 2049 STA BUF+2 + 03751 0 76 07204 2050 LDA =040000000 + 03752 0 35 00031 2051 STA BUF+3 + 03753 0 76 07272 2052 LDA =030250000 + 03754 0 53 05125 2053 SKN SCSW + 03755 0 55 07273 2054 ADD =00200000 + 03756 0 35 00026 2055 STA BUF + 03757 0 43 04614 2056 BRM SEND + 03760 0 02 02641 2057 TYPW 1,4 + 03761 0 12 07274 2058 MIW =052224645 + 03762 0 02 14000 2059 TOPW + 03763 0 00 00000 2060 WAIT HLT + 03764 0 01 05025 2061 BRU RESTRT + 03765 0 71 07275 2062 $OLODE LDX =-7 + 03766 0 02 03604 2063 EOM 03604 + 03767 0 76 03772 2064 LDA NDPR9 + 03770 0 35 00001 2065 STA 1 + 03771 0 01 00001 2066 BRU 1 + 03772 0 32 00002 2067 NDPR9 WIM 2 + 2068 * SEARCHES NUMBER TABLE -ADD TO TABLE IF FIRST TIME + 03773 0 00 00000 2069 NTSCH PZE + 03774 0 53 05442 2070 SKN NOCOD + 03775 0 51 03773 2071 BRR NTSCH + 03776 0 37 05203 2072 STX T+7 + 03777 0 76 05404 2073 LDA NN + 04000 0 55 05270 2074 NTS6 ADD A19 + 04001 0 73 05270 2075 NTS4 SKG A19 + 04002 0 01 04021 2076 BRU NTS1 + 04003 0 35 05202 2077 STA T+6 + 04004 0 71 07163 2078 LDX =-3 + 04005 2 76 05124 2079 NTS2 LDA EXP+1,IX2 + 04006 0 50 45202 2080 SKE *T+6 + 04007 0 01 04016 2081 BRU NTS3 + 04010 0 41 04005 2082 BRX NTS2 + 04011 0 76 05202 2083 NTS8 LDA T+6 + 04012 0 14 07173 2084 ETR =077777 + 04013 0 35 05133 2085 STA LA + 04014 0 71 05203 2086 LDX T+7 + 04015 0 51 03773 2087 BRR NTSCH + 04016 0 76 05202 2088 NTS3 LDA T+6 + 04017 0 54 07144 2089 SUB =4 + 04020 0 01 04001 2090 BRU NTS4 + 04021 0 76 05404 2091 NTS1 LDA NN + 04022 1 11 07214 2092 SKGA =24 + 04023 0 01 04036 2093 BRU NTS5 + 04024 0 55 07144 2094 ADD =4 + 04025 0 35 05404 2095 STA NN + 04026 0 55 05270 2096 ADD A19 + 04027 0 35 05202 2097 STA T+6 + 04030 0 71 07163 2098 LDX =-3 + 04031 2 76 05124 2099 NTS7 LDA EXP+1,IX2 + 04032 0 35 45202 2100 STA *T+6 + 04033 0 41 04031 2101 BRX NTS7 + 04034 1 22 45202 2102 STZ *T+6 + 04035 0 01 04011 2103 BRU NTS8 + 04036 0 76 05134 2104 NTS5 LDA MAD + 04037 0 55 07276 2105 ADD =040000017 + 04040 0 61 05272 2106 MIN SJ + 04041 0 35 45272 2107 STA *SJ + 04042 1 26 05605 2108 COP UJJM0 + 04043 0 43 04050 2109 BRM RELOUT + 04044 0 76 07130 2110 LDA =-1 + 04045 0 35 05404 2111 STA NN + 04046 0 63 05272 2112 ADM SJ + 04047 0 01 04000 2113 BRU NTS6 + 04050 0 00 00000 2114 RELOUT PZE + 04051 0 43 04460 2115 BRM CODOUT + 04052 1 14 05404 2116 SKNA NN + 04053 0 51 04050 2117 BRR RELOUT + 04054 0 46 30003 2118 CLR + 04055 0 76 05404 2119 LDA NN + 04056 0 67 00017 2120 LSH 15 + 04057 0 35 00026 2121 STA BUF + 04060 0 55 07277 2122 ADD =060250000 + 04061 0 62 00026 2123 XMA BUF + 04062 0 67 00002 2124 LSH 2 + 04063 0 55 07300 2125 ADD =NUMTAB-1 + 04064 0 75 07177 2126 LDB =BUF+1 + 04065 0 43 02155 2127 BRM MOVNAM + 04066 0 43 04614 2128 BRM SEND + 04067 0 76 05404 2129 LDA NN + 04070 0 55 07131 2130 ADD =1 + 04071 0 66 00001 2131 RSH 1 + 04072 0 63 05134 2132 ADM MAD + 04073 0 51 04050 2133 BRR RELOUT + 2134 * BUILDS STACK WORD FOR A CONSTANT + 04074 0 00 00000 2135 SETK PZE + 04075 0 46 30003 2136 CLR + 04076 0 76 07301 2137 LDA =0260 + 04077 0 55 05150 2138 ADD TYPES + 04100 0 67 00020 2139 LSH 16 + 04101 0 55 05133 2140 ADD LA + 04102 1 14 05442 2141 SKNA NOCOD + 04103 0 61 05272 2142 MIN SJ + 04104 0 35 45272 2143 STA *SJ + 04105 0 51 04074 2144 BRR SETK + 2145 * SAVE SIMP VAR,IF ANY -FDZ FOUND + 04106 0 00 00000 2146 FFDZ PZE + 04107 0 53 05442 2147 SKN NOCOD + 04110 0 51 04106 2148 BRR FFDZ + 04111 0 43 02762 2149 BRM SAVE + 04112 0 76 05272 2150 LDA SJ + 04113 0 54 05262 2151 SUB A12 LDA SJ + 04114 0 54 07131 2152 FF1 SUB =1 + 04115 0 35 05202 2153 STA T+6 + 04116 0 73 05124 2154 SKG PTR + 04117 0 51 04106 2155 BRR FFDZ + 04120 0 46 00400 2156 CAX + 04121 0 75 07136 2157 LDB =074000000 + 04122 2 76 05272 2158 LDA SJ,IX2 + 04123 0 70 07243 2159 SKM =04000000 + 04124 0 01 04137 2160 BRU FF2 + 04125 0 76 05202 2161 LDA T+6 + 04126 0 35 05130 2162 STA RSULT + 04127 0 46 01000 2163 CNA + 04130 0 55 05272 2164 ADD SJ + 04131 0 54 05262 2165 SUB A12 + 04132 0 46 00002 2166 CLB + 04133 0 67 00012 2167 LSH 10 + 04134 0 55 05572 2168 ADD LDJM0 + 04135 0 43 04141 2169 BRM COA + 04136 1 26 05567 2170 COP STT + 04137 0 76 05202 2171 FF2 LDA T+6 + 04140 0 01 04114 2172 BRU FF1 + 2173 * BUILD EXECUTION LANGUAGE WORD + 04141 0 00 00000 2174 COA PZE + 04142 0 53 05442 2175 SKN NOCOD + 04143 0 51 04141 2176 BRR COA + 04144 0 35 05170 2177 STA P+6 + 04145 0 53 05142 2178 SKN PROCSW + 04146 0 01 04155 2179 BRU CO15 + 04147 0 76 05132 2180 LDA NENT + 04150 0 75 07130 2181 LDB =-1 + 04151 0 43 04403 2182 BRM MOVE + 04152 0 76 05170 2183 LDA P+6 + 04153 0 35 05142 2184 STA PROCSW + 04154 0 35 05136 2185 STA DECSW + 04155 0 14 07302 2186 CO15 ETR =077 + 04156 0 72 07130 2187 SKA =-1 + 04157 0 01 04162 2188 BRU CO1 + 04160 0 76 45312 2189 LDA *SK OP-BIN + 04161 0 01 04166 2190 BRU CO2 + 04162 0 50 07302 2191 CO1 SKE =077 + 04163 0 01 04166 2192 BRU CO2 + 04164 0 76 45312 2193 LDA *SK OP-BIN INVERSE + 04165 0 66 00014 2194 RSH 12 + 04166 0 67 00017 2195 CO2 LSH 15 + 04167 0 14 07303 2196 ETR =07700000 + 04170 0 35 05225 2197 STA WORDS OP PART SET + 04171 0 53 05136 2198 SKN DECSW + 04172 1 14 45250 2199 SKNA *BCTAB + 04173 0 01 04204 2200 BRU CO16 + 04174 0 76 05452 2201 LDA BLKPAR + 04175 0 54 07144 2202 SUB =4 + 04176 0 35 05206 2203 STA T+10 + 04177 0 76 05134 2204 LDA MAD + 04200 0 55 07231 2205 ADD =040100000 + 04201 0 35 45206 2206 STA *T+10 + 04202 0 76 07204 2207 LDA =040000000 + 04203 0 63 45250 2208 ADM *BCTAB + 04204 0 76 05170 2209 CO16 LDA P+6 + 04205 0 66 00006 2210 RSH 6 + 04206 0 14 07251 2211 ETR =017 + 04207 0 37 05206 2212 STX T+10 + 04210 0 46 00400 2213 CAX + 04211 2 01 04212 2214 BRU $+1,IX2 + 04212 0 01 04215 2215 BRU CO3 LIT ADDR + 04213 0 01 04253 2216 BRU CO4 STACK REF + 04214 0 01 04236 2217 BRU CO5 TEMP + 04215 0 46 30003 2218 CO3 CLR + 04216 0 75 05170 2219 LDB P+6 + 04217 0 67 00011 2220 LSH 9 + 04220 0 63 05225 2221 CO6 ADM WORDS + 04221 0 01 04232 2222 BRU CO21 + 04222 0 63 05225 2223 CO22 ADM WORDS + 04223 0 76 44263 2224 CO23 LDA *CO19 + 04224 0 14 07304 2225 ETR =03000000 + 04225 1 61 07145 2226 SKEA =0 + 04226 0 01 04232 2227 BRU CO21 + 04227 0 76 07204 2228 LDA =040000000 + 04230 0 16 05225 2229 MRG WORDS + 04231 0 35 05225 2230 STA WORDS + 04232 0 46 00001 2231 CO21 CLA + 04233 0 43 04403 2232 BRM MOVE + 04234 0 71 05206 2233 LDX T+10 + 04235 0 51 04141 2234 BRR COA + 04236 0 71 05130 2235 CO5 LDX RSULT + 04237 0 76 05143 2236 LDA TEMPT + 04240 0 55 07305 2237 ADD =050000000 KIND=TEMP + 04241 2 35 05272 2238 STA SJ,IX2 + 04242 0 61 05143 2239 MIN TEMPT + 04243 0 76 05143 2240 LDA TEMPT + 04244 1 11 45443 2241 SKGA *MTEMP MAX TEMP USAGE IN BLOCK + 04245 0 35 45443 2242 STA *MTEMP + 04246 0 54 07131 2243 SUB =1 + 04247 0 55 07306 2244 ADD =030000000 + 04250 0 46 00002 2245 CLB + 04251 0 36 05130 2246 STB RSULT + 04252 0 01 04220 2247 BRU CO6 + 04253 0 76 05170 2248 CO4 LDA P+6 + 04254 0 66 00012 2249 RSH 10 + 04255 0 14 07251 2250 ETR =017 + 04256 0 46 01000 2251 CNA + 04257 0 55 05272 2252 ADD SJ + 04260 0 73 05262 2253 SKG A12 + 04261 0 01 04365 2254 BRU CO77 + 04262 0 35 04263 2255 STA $+1 + 04263 0 76 00000 2256 CO19 LDA STACK WORD + 04264 0 35 05207 2257 STA T+11 + 04265 0 75 07136 2258 LDB =074000000 + 04266 0 70 07133 2259 SKM =054000000 CONSTANT + 04267 0 01 04313 2260 BRU CO7 + 04270 0 75 07172 2261 LDB =00600000 + 04271 0 70 07307 2262 SKM =00400000 + 04272 0 01 04353 2263 BRU CO9 + 04273 0 76 07162 2264 LDA =020000000 FLAG BIT=CONSTANT REF + 04274 0 63 05225 2265 ADM WORDS + 04275 0 76 05207 2266 LDA T+11 + 04276 0 14 07173 2267 CO8 ETR =077777 + 04277 0 35 05207 2268 STA T+11 + 04300 0 76 45207 2269 LDA *T+11 + 04301 0 14 07173 2270 CO18 ETR =077777 + 04302 0 63 05225 2271 ADM WORDS + 04303 0 46 00002 2272 CLB + 04304 0 72 07130 2273 SKA =-1 + 04305 0 75 07204 2274 LDB =040000000 + 04306 0 76 45207 2275 LDA *T+11 + 04307 0 14 07215 2276 ETR =077700000 + 04310 0 55 05134 2277 ADD MAD + 04311 0 35 45207 2278 STA *T+11 + 04312 0 01 04223 2279 BRU CO23 + 04313 1 06 07142 2280 CO7 SKMA =060000000 FR + 04314 0 01 04362 2281 BRU CO17 + 04315 1 06 07140 2282 SKMA =034000000 UNCLAB + 04316 0 01 04276 2283 BRU CO8 + 04317 1 06 07213 2284 SKMA =024000000 EXT PROC + 04320 0 01 04276 2285 BRU CO8 + 04321 1 06 07216 2286 SKMA =010000000 ARIDT + 04322 0 01 04342 2287 BRU CO12 + 04323 1 06 07152 2288 SKMA =014000000 SWIDT + 04324 0 01 04342 2289 BRU CO12 + 04325 1 06 07310 2290 SKMA =064000000 ADDRESS + 04326 0 01 04360 2291 BRU CO14 + 04327 0 70 07305 2292 SKM =050000000 + 04330 0 01 04335 2293 BRU CO13 + 04331 0 76 07306 2294 LDA =030000000 + 04332 0 63 05225 2295 ADM WORDS + 04333 0 46 00002 2296 CLB + 04334 0 01 04350 2297 BRU CO11+3 + 04335 0 70 07243 2298 CO13 SKM =04000000 + 04336 0 01 04346 2299 BRU CO11+1 + 04337 0 14 07271 2300 ETR =00100000 + 04340 0 50 07145 2301 SKE =0 + 04341 0 01 04344 2302 BRU $+3 + 04342 0 76 07204 2303 CO12 LDA =040000000 NON-OWN + 04343 0 01 04345 2304 BRU $+2 + 04344 0 76 07162 2305 LDA =020000000 + 04345 0 63 05225 2306 CO11 ADM WORDS + 04346 0 75 05170 2307 LDB P+6 + 04347 0 67 00011 2308 LSH 9 + 04350 0 76 05207 2309 LDA T+11 + 04351 0 14 07173 2310 ETR =077777 + 04352 0 01 04222 2311 BRU CO22 + 04353 0 70 07273 2312 CO9 SKM =00200000 + 04354 0 01 04350 2313 BRU CO11+3 + 04355 0 76 07216 2314 LDA =010000000 + 04356 0 63 05225 2315 ADM WORDS + 04357 0 01 04350 2316 BRU CO11+3 + 04360 0 76 07305 2317 CO14 LDA =050000000 + 04361 0 01 04345 2318 BRU CO11 + 04362 0 75 04263 2319 CO17 LDB CO19 + 04363 0 36 05207 2320 STB T+11 + 04364 0 01 04301 2321 BRU CO18 + 04365 1 22 05442 2322 CO77 STZ NOCOD + 04366 0 01 04234 2323 BRU CO21+2 + 2324 * SETS REFERENCE TO FORWARD REF + 04367 0 00 00000 2325 SETFR PZE + 04370 0 55 05272 2326 ADD SJ + 04371 0 35 05216 2327 STA T+18 + 04372 0 76 07142 2328 LDA =060000000 + 04373 0 35 45216 2329 STA *T+18 + 04374 0 51 04367 2330 BRR SETFR + 2331 * SATISFIES DEFINITION OF FRWRD REF + 04375 0 00 00000 2332 RECFR PZE + 04376 0 55 05272 2333 ADD SJ + 04377 0 35 05216 2334 STA T+18 + 04400 0 76 45216 2335 LDA *T+18 + 04401 0 43 04442 2336 BRM INTOUT + 04402 0 51 04375 2337 BRR RECFR + 2338 * MOVES CODE INTO OUTPUT BUFFER + 04403 0 00 00000 2339 MOVE PZE + 04404 0 53 05442 2340 SKN NOCOD + 04405 0 51 04403 2341 BRR MOVE + 04406 0 73 07130 2342 SKG =-1 + 04407 0 51 04403 2343 BRR MOVE + 04410 0 36 05217 2344 STB T+19 + 04411 0 75 05263 2345 LDB A13 LDA WORDS + 04412 0 36 04416 2346 STB MV1 + 04413 0 37 05215 2347 STX T+17 + 04414 0 35 05216 2348 STA T+18 NO. WDS TO GO -1 + 04415 0 71 05441 2349 LDX NWDS + 04416 0 76 05225 2350 MV1 LDA WORDS + 04417 2 35 00060 2351 STA BUF+26,IX2 + 04420 0 40 20040 2352 BPT 4 + 04421 0 20 00000 2353 OBJT NOP BRM OBJTY OVERLAYS THIS + 04422 0 61 05134 2354 MIN MAD + 04423 0 61 04416 2355 MIN MV1 + 04424 1 14 05217 2356 SKNA T+19 + 04425 0 43 04642 2357 BRM RELO + 04426 0 75 05217 2358 LDB T+19 + 04427 0 67 00001 2359 LSH 1 + 04430 0 36 05217 2360 STB T+19 + 04431 0 41 04435 2361 BRX MV2 + 04432 0 37 05441 2362 STX NWDS + 04433 0 43 04460 2363 BRM CODOUT BUFFER FULL + 04434 0 71 07311 2364 LDX =-24 + 04435 0 60 05216 2365 MV2 SKR T+18 + 04436 0 01 04416 2366 BRU MV1 + 04437 0 37 05441 2367 STX NWDS ALL WDS OUT + 04440 0 71 05215 2368 LDX T+17 + 04441 0 51 04403 2369 BRR MOVE + 2370 * OUTPUTS A REF-DEF + 04442 0 00 00000 2371 INTOUT PZE + 04443 0 35 05216 2372 STA T+18 + 04444 0 43 04460 2373 BRM CODOUT + 04445 0 76 05134 2374 LDA MAD + 04446 0 55 07231 2375 INT1 ADD =040100000 + 04447 0 35 00030 2376 STA BUF+2 + 04450 0 76 05216 2377 LDA T+18 + 04451 0 14 07173 2378 ETR =077777 + 04452 0 55 07201 2379 ADD =020100000 + 04453 0 35 00027 2380 STA BUF+1 + 04454 0 76 07312 2381 LDA =040350000 + 04455 0 35 00026 2382 STA BUF + 04456 0 43 04614 2383 BRM SEND + 04457 0 51 04442 2384 BRR INTOUT + 2385 * BUILDS CW,LAW,FCHSM,MOVES LRW,BIN CARDS OUT + 04460 0 00 00000 2386 CODOUT PZE + 04461 0 46 30003 2387 CLR + 04462 0 76 07214 2388 LDA =24 + 04463 0 55 05441 2389 ADD NWDS + 04464 0 73 07145 2390 SKG =0 + 04465 0 51 04460 2391 BRR CODOUT + 04466 0 35 05176 2392 STA T+2 NO. DATA WDS + 04467 0 37 05200 2393 STX T+4 + 04470 0 55 07146 2394 ADD =3 + 04471 0 46 00400 2395 CAX TOT. WDS IN REC + 04472 0 67 00017 2396 LSH 15 + 04473 0 55 07313 2397 ADD =050000 + 04474 0 35 00026 2398 STA BUF CW + 04475 0 76 07314 2399 LDA =02100000 + 04476 0 55 05134 2400 ADD MAD + 04477 0 54 05176 2401 SUB T+2 + 04500 0 35 00027 2402 STA BUF+1 LAW + 04501 0 76 00060 2403 LDA BUF+26 + 04502 2 35 00025 2404 STA BUF-1,IX2 POSITION LRW + 04503 0 43 04614 2405 BRM SEND + 04504 0 71 05200 2406 LDX T+4 + 04505 0 51 04460 2407 BRR CODOUT + 2408 * FORM FOLDED CHECKSUM,STORE IN RH OF BUF + 04506 0 00 00000 2409 FCHK PZE + 04507 0 76 05271 2410 LDA A22 EOR BUF + 04510 0 35 04517 2411 STA FCHK1 + 04511 0 76 00026 2412 LDA BUF + 04512 0 66 00017 2413 RSH 15 + 04513 0 14 07315 2414 ETR =037 + 04514 0 46 01000 2415 CNA + 04515 0 46 00400 2416 CAX + 04516 0 76 07161 2417 LDA =07777 + 04517 0 17 00026 2418 FCHK1 EOR BUF + 04520 0 61 04517 2419 MIN FCHK1 + 04521 0 41 04517 2420 BRX FCHK1 + 04522 0 35 05176 2421 STA T+2 + 04523 0 66 00014 2422 RSH 12 + 04524 0 17 05176 2423 EOR T+2 + 04525 0 14 07161 2424 ETR =07777 + 04526 0 63 00026 2425 ADM BUF + 04527 0 51 04506 2426 BRR FCHK + 2427 * PAPER TAPE READ + 04530 0 00 00000 2428 CARD PZE + 04531 0 76 04553 2429 LDA SPACES + 04532 0 71 07316 2430 LDX =-20 + 04533 2 35 00026 2431 STA IMAGE+20,IX2 + 04534 0 41 04533 2432 BRX $-1 + 04535 0 40 21000 2433 BRTW + 04536 0 01 04535 2434 BRU $-1 + 04537 0 02 02604 2435 RPTW 1,4 + 04540 0 71 07316 2436 LDX =-20 + 04541 2 32 00026 2437 WIM IMAGE+20,IX2 + 04542 0 40 21000 2438 BRTW + 04543 0 41 04541 2439 BRX $-2 + 04544 0 40 20010 2440 BETW + 04545 0 01 04550 2441 BRU ERRB + 04546 0 02 00000 2442 DISW + 04547 0 51 04530 2443 BRR CARD **EXIT** + 04550 1 76 00022 2444 ERRB ERR 'B' + 04551 0 00 00000 2445 HLT + 04552 0 01 04531 2446 BRU CARD+1 + 04553 12121212 2447 SPACES DATA 012121212 + 04554 2448 RES 5 + 04561 00000117 2449 HICOL DATA 79 + 04562 2450 READ RES 0 + 2451 * PUNCH A BINARY CARD -40 WORDS ONLY + 04562 0 00 00000 2452 PUNCH PZE + 04563 0 76 07317 2453 LDA =-12 + 04564 0 40 14046 2454 SKS 014046 SKIP IF PUNCH 1,CHANNEL 0 IS READY + 04565 0 01 04564 2455 BRU $-1 + 04566 0 40 21000 2456 PUNCH1 SKS 021000 SKIP IF CHANNEL 0 IS READY + 04567 0 01 04566 2457 BRU $-1 + 04570 0 02 03646 2458 EOM 003646 START PUNCH + 04571 0 71 07320 2459 LDX =-40 + 04572 2 12 00076 2460 MIW BUF+40,IX2 + 04573 0 41 04572 2461 BRX $-1 + 04574 0 02 14000 2462 EOM 014000 TERMINATE OUTPUT + 04575 0 55 07131 2463 ADD =1 ROW COUNTER + 04576 0 73 07130 2464 SKG =-1 SKIP IF 12TH ROW PUNCHED + 04577 0 01 04566 2465 BRU PUNCH1 NEXT ROW + 04600 0 35 00060 2466 STA BUF+26 CLR LD RELOC WD + 04601 0 40 21000 2467 SKS 021000 + 04602 0 01 04601 2468 BRU $-1 + 04603 0 46 30003 2469 CLR + 04604 0 71 07321 2470 LDX =-31 + 04605 2 35 00065 2471 STA BUF+31,IX2 + 04606 0 41 04605 2472 BRX $-1 + 04607 0 51 04562 2473 BRR PUNCH + 04610 2474 RES 4 + 04614 2475 WRITE RES 0 + 04614 0 00 00000 2476 SEND PZE + 04615 0 53 05442 2477 SKN NOCOD + 04616 0 51 04614 2478 BRR SEND + 04617 0 37 05174 2479 STX T + 04620 0 43 04506 2480 BRM FCHK + 04621 0 43 04562 2481 BRM PUNCH + 04622 0 76 07311 2482 LDA =-24 + 04623 0 35 05441 2483 STA NWDS + 04624 0 71 05174 2484 LDX T + 04625 0 51 04614 2485 BRR SEND + 04626 0 00 00000 2486 STRWD PZE + 04627 0 43 03344 2487 BRM ADNM + 04630 0 76 00072 2488 LDA LEN + 04631 0 50 07146 2489 SKE =3 + 04632 0 51 04626 2490 BRR STRWD + 04633 0 76 00073 2491 STRW1 LDA NAME + 04634 0 35 05225 2492 STA WORDS + 04635 0 76 07130 2493 LDA =-1 + 04636 0 35 00072 2494 STA LEN + 04637 0 46 30003 2495 CLR + 04640 0 43 04403 2496 BRM MOVE + 04641 0 51 04626 2497 BRR STRWD + 2498 * SET RELOC BIT =1 + 04642 0 00 00000 2499 RELO PZE + 04643 0 37 05203 2500 STX T+7 + 04644 0 46 00200 2501 CXA + 04645 0 46 01000 2502 CNA + 04646 0 46 00400 2503 CAX + 04647 0 46 30003 2504 CLR + 04650 0 75 07204 2505 LDB =040000000 + 04651 2 67 00000 2506 LSH 0,IX2 + 04652 0 63 00060 2507 ADM BUF+26 LOAD RELOC WD. + 04653 0 71 05203 2508 LDX T+7 + 04654 0 51 04642 2509 BRR RELO + 2510 * STACK CONTROL BASED ON PRECEDENCE + 04655 0 00 00000 2511 TS PZE + 04656 0 53 05442 2512 SKN NOCOD + 04657 0 51 04655 2513 BRR TS + 04660 0 76 45312 2514 TS2 LDA *SK + 04661 0 14 07322 2515 ETR =037000000 + 04662 0 35 05213 2516 STA T+15 + 04663 0 76 00076 2517 LDA OP + 04664 0 14 07322 2518 ETR =037000000 + 04665 0 73 05213 2519 SKG T+15 + 04666 0 01 04673 2520 BRU TS1 + 04667 0 61 05312 2521 MIN SK + 04670 0 76 00076 2522 LDA OP + 04671 0 35 45312 2523 STA *SK + 04672 0 51 04655 2524 TSEX BRR TS + 04673 0 76 45312 2525 TS1 LDA *SK + 04674 0 66 00006 2526 RSH 6 + 04675 0 14 07302 2527 ETR =077 + 04676 0 46 00400 2528 CAX + 04677 2 01 04700 2529 BRU $+1,IX2 + 04700 0 01 03144 2530 BRU OPBIN + 04701 0 01 03122 2531 BRU OPUN + 04702 0 01 02720 2532 BRU OPASS + 04703 0 01 04720 2533 BRU OPBRK + 04704 0 01 02444 2534 BRU OPSW + 04705 0 01 02706 2535 BRU OPIF + 04706 0 01 02616 2536 BRU OPTH + 04707 0 01 02527 2537 BRU OPELS + 04710 0 01 02502 2538 BRU OPGO + 04711 0 01 05001 2539 BRU OPBEG + 04712 0 01 05013 2540 BRU OPLPAR + 04713 0 01 02777 2541 BRU OPFOR + 04714 0 01 01477 2542 BRU OPPROC + 04715 0 01 03107 2543 BRU OPFRR + 04716 0 01 01536 2544 BRU OPARY + 04717 0 01 01533 2545 BRU OPIO + 2546 * SUBSCRIPT OPERATOR CODE GENERATOR + 04720 0 43 02762 2547 OPBRK BRM SAVE + 04721 0 76 45272 2548 LDA *SJ + 04722 0 14 07136 2549 ETR =074000000 + 04723 0 50 07133 2550 SKE =054000000 CONSTANT + 04724 0 01 04770 2551 BRU OPBR5 + 04725 0 76 00076 2552 OPBR6 LDA OP + 04726 0 50 05535 2553 SKE CW+12 RPAREN + 04727 0 01 04672 2554 BRU TSEX + 04730 0 76 07130 2555 LDA =-1 + 04731 0 55 05272 2556 ADD SJ + 04732 0 35 05175 2557 OPBR2 STA T+1 + 04733 0 76 45175 2558 LDA *T+1 + 04734 0 14 07136 2559 ETR =074000000 + 04735 0 50 07216 2560 SKE =010000000 + 04736 0 01 04776 2561 BRU OPBR1 + 04737 0 46 30003 2562 CLR + 04740 0 76 05272 2563 LDA SJ + 04741 0 54 05175 2564 SUB T+1 + 04742 0 35 05175 2565 STA T+1 + 04743 0 67 00012 2566 LSH 10 + 04744 0 35 05177 2567 STA T+3 + 04745 0 76 05570 2568 LDA PZJMO + 04746 0 01 04750 2569 BRU $+2 + 04747 0 76 05573 2570 OPBR4 LDA SSJM0 + 04750 0 55 05177 2571 ADD T+3 + 04751 0 43 04141 2572 BRM COA + 04752 0 76 07323 2573 LDA =077776000 + 04753 0 63 05177 2574 ADM T+3 + 04754 0 53 05177 2575 SKN T+3 + 04755 0 01 04747 2576 BRU OPBR4 + 04756 0 46 30003 2577 CLR + 04757 0 54 05175 2578 SUB T+1 + 04760 0 63 05272 2579 ADM SJ + 04761 0 76 07310 2580 LDA =064000000 ADDRESS + 04762 0 55 05134 2581 ADD MAD + 04763 0 54 05175 2582 SUB T+1 + 04764 0 54 07131 2583 SUB =1 + 04765 0 35 45272 2584 STA *SJ + 04766 0 60 05312 2585 SKR SK + 04767 0 01 04672 2586 BRU TSEX + 04770 1 61 07305 2587 OPBR5 SKEA =050000000 TEMP + 04771 0 01 04725 2588 BRU OPBR6 + 04772 1 26 05572 2589 COP LDJM0 + 04773 0 43 05020 2590 BRM RST + 04774 1 26 05567 2591 COP STT + 04775 0 01 04725 2592 BRU OPBR6 + 04776 0 76 05175 2593 OPBR1 LDA T+1 + 04777 0 54 07131 2594 SUB =1 + 05000 0 01 04732 2595 BRU OPBR2 + 2596 * BEGIN BLOCK AND COMP ST MARKER + 05001 0 76 00076 2597 OPBEG LDA OP + 05002 0 50 05532 2598 SKE CW+9 END OP + 05003 0 01 04672 2599 BRU TSEX + 05004 0 60 05312 2600 SKR SK + 05005 0 76 05531 2601 LDA CW+8 SEMCOL + 05006 0 35 00076 2602 STA OP + 05007 0 76 45312 2603 LDA *SK + 05010 0 50 05561 2604 SKE CW+32 PHI R + 05011 0 01 04672 2605 BRU TSEX + 05012 0 01 03107 2606 BRU OPFRR + 2607 * LPAREN OPERATOR + 05013 0 76 00076 2608 OPLPAR LDA OP + 05014 0 50 05535 2609 SKE CW+12 RPAREN OP + 05015 0 01 04672 2610 BRU TSEX + 05016 0 60 05312 2611 SKR SK + 05017 0 01 04672 2612 BRU TSEX + 05020 0 00 00000 2613 RST PZE + 05021 0 76 05272 2614 LDA SJ + 05022 0 54 05262 2615 SUB A12 + 05023 0 35 05130 2616 STA RSULT + 05024 0 51 05020 2617 BRR RST + 05025 0 46 30003 2618 RESTRT CLR + 05026 0 71 07324 2619 LDX =-NZER + 05027 2 35 05152 2620 STA ZERS+NZER,IX2 + 05030 0 41 05027 2621 BRX $-1 + 05031 0 35 00060 2622 STA BUF+26 + 05032 0 76 07130 2623 LDA =-1 + 05033 0 35 00341 2624 STA KSW + 05034 0 35 00414 2625 STA STOPSW + 05035 0 35 01437 2626 STA NEST + 05036 0 35 05404 2627 STA NN + 05037 0 35 05442 2628 STA NOCOD + 05040 0 76 07131 2629 LDA =1 + 05041 0 35 01653 2630 STA TOT + 05042 0 35 05115 2631 STA RMIN + 05043 0 35 05116 2632 STA RMIN+1 + 05044 0 76 05262 2633 LDA A12 + 05045 0 35 05272 2634 STA SJ + 05046 0 76 05261 2635 LDA A11 + 05047 0 35 05312 2636 STA SK + 05050 0 76 07155 2637 LDA =NIMF + 05051 0 35 05246 2638 STA NABADD + 05052 0 76 07261 2639 LDA =LIMF + 05053 0 35 05247 2640 STA NCADD + 05054 0 76 05105 2641 LDA I1 + 05055 0 35 05250 2642 STA BCTAB + 05056 0 76 05106 2643 LDA I3 + 05057 0 35 05512 2644 STA DNSP + 05060 0 76 05107 2645 LDA I4 + 05061 0 35 05452 2646 STA BLKPAR + 05062 0 76 05110 2647 LDA I5 + 05063 0 35 05443 2648 STA MTEMP + 05064 0 76 07204 2649 LDA =040000000 + 05065 0 35 05251 2650 STA BCTAB+1 + 05066 0 76 07311 2651 LDA =-24 + 05067 0 35 05441 2652 STA NWDS + 05070 0 76 07134 2653 LDA =2 + 05071 0 35 05375 2654 STA FEFSW + 05072 0 76 05111 2655 LDA I6 + 05073 0 35 05341 2656 STA STRMIN + 05074 0 35 05344 2657 STA STRMAJ + 05075 0 76 06202 2658 LDA OPTAB+11 + 05076 0 35 05313 2659 STA SK+1 + 05077 0 71 07270 2660 LDX =-NIMF+1 + 05100 2 76 07345 2661 REST1 LDA BASEA+NIMF-1,IX2 + 05101 0 14 07215 2662 ETR =077700000 + 05102 2 35 07345 2663 STA BASEA+NIMF-1,IX2 + 05103 0 41 05100 2664 BRX REST1 + 05104 0 01 00261 2665 BRU FETCHR + 05105 0 76 05251 2666 I1 LDA BCTAB+1 + 05106 0 76 05512 2667 I3 LDA DNSP + 05107 0 76 05452 2668 I4 LDA BLKPAR + 05110 0 76 05443 2669 I5 LDA MTEMP + 2670 SNG FORM 12,12 + 05111 0003 0000 2671 I6 SNG BOUND,0 + 05112 2 76 05651 2672 A1 LDA MMIN,IX2 MAIN DICT BASE (MINOR) + 05113 2 76 06205 2673 LDA MMAJ,IX2 (MAJOR) + 05114 00000000 2674 D DATA 0 ACCESS DICT BASE + 05115 00000001 2675 RMIN DATA 1 + 05116 00000001 2676 DATA 1 + 00005117 2677 ZERS EQU $ + 05117 00000000 2678 TMIN DATA 0 + 05120 00000000 2679 DATA 0 + 05121 00000000 2680 INT DATA 0 + 05122 00000000 2681 FRAC DATA 0 + 05123 00000000 2682 EXP DATA 0 + 05124 00000000 2683 PTR DATA 0 + 05125 00000000 2684 SCSW DATA 0 + 05126 00000000 2685 NDIM DATA 0 + 05127 00000000 2686 MODE DATA 0 + 05130 00000000 2687 RSULT DATA 0 + 05131 00000000 2688 ITESW DATA 0 + 05132 00000000 2689 NENT DATA 0 + 05133 00000000 2690 LA DATA 0 + 05134 00000000 2691 $MAD DATA 0 + 05135 00000000 2692 DECST DATA 0 + 05136 00000000 2693 DECSW DATA 0 + 05137 00000000 2694 TELE DATA 0 + 05140 00000000 2695 RAND DATA 0 + 05141 00000000 2696 NDAD DATA 0 + 05142 00000000 2697 PROCSW DATA 0 + 05143 00000000 2698 TEMPT DATA 0 + 05144 00000000 2699 SWIND DATA 0 + 05145 00000000 2700 POSADD DATA 0 + 05146 00000000 2701 KIND DATA 0 + 05147 00000000 2702 PARA DATA 0 + 05150 00000000 2703 TYPES DATA 0 + 05151 00000000 2704 STYPE DATA 0 + 00000033 2705 NZER EQU $-ZERS + 05152 2 00 05341 2706 A4 PZE STRMIN,IX2 + 05153 2 00 05344 2707 PZE STRMAJ,IX2 + 05154 0 00 02032 2708 SEM PZE N + 05155 0 00 00737 2709 PZE M + 05156 00000030 2710 SIZE DATA LDICTN-1 + 05157 00000104 2711 DATA LDICTJ-1 + 05160 0 01 01020 2712 A2 BRU DF6 + 05161 2 76 00000 2713 A3 LDA 0,IX2 + 05162 2714 P RES 10 MASAGE PARA STORE + 05174 2715 T RES 25 + 05225 2716 WORDS RES 15 + 05244 2 00 06056 2717 A7 PZE LWTAB,IX2 + 05245 2 00 00711 2718 A8 PZE CVERT,IX2 + 05246 00000020 2719 NABADD DATA NIMF + 05247 00000024 2720 NCADD DATA LIMF + 05250 0 76 05251 2721 BCTAB LDA $+1 + 05251 40000000 2722 DATA 040000000 + 05252 2723 RES 5 + 05257 2 35 00000 2724 A9 STA 0,IX2 + 05260 0 50 00073 2725 A10 SKE NAME + 05261 0 76 05313 2726 A11 LDA SK+1 + 05262 0 76 05272 2727 A12 LDA SJ + 05263 0 76 05225 2728 A13 LDA WORDS + 05264 2 76 07326 2729 A15 LDA BASEA,IX2 + 05265 2 76 07451 2730 A15B LDA BASEB,IX2 + 05266 0 00 00123 2731 A15L PZE BASEB-BASEA + 05267 0 00 07573 2732 A16 PZE BASEC-1 + 05270 2 76 05405 2733 A19 LDA NUMTAB,IX2 + 05271 0 17 00026 2734 A22 EOR BUF + 05272 0 76 05272 2735 SJ LDA $ + 05273 2736 RES 15 + 05312 0 76 05313 2737 SK LDA $+1 + 05313 00771100 2738 DATA 0771100 BEGIN + 05314 2739 RES 20 + 05340 00000000 2740 DELTA DATA 0 + 05341 0003 0000 2741 STRMIN SNG BOUND,0 + 05342 2742 RES 2 + 05344 0003 0000 2743 STRMAJ SNG BOUND,0 + 05345 2744 RES 24 + 05375 2745 FEFSW RES 1 + 05376 0 35 07326 2746 A23 STA BASEA + 05377 0 01 03262 2747 A24 BRU LW7 + 05400 00000000 2748 ND DATA 0 + 05401 00000000 2749 NUMB DATA 0 + 05402 00000000 2750 NUM1 DATA 0 + 05403 00000000 2751 NUM2 DATA 0 + 05404 77777777 2752 NN DATA -1 + 05405 2753 NUMTAB RES 28 + 05441 77777750 2754 NWDS DATA -24 + 05442 77777777 2755 NOCOD DATA -1 + 05443 0 76 05443 2756 MTEMP LDA $ + 05444 2757 RES 6 + 05452 0 76 05452 2758 BLKPAR LDA $ + 05453 2759 RES 31 + 05512 0 76 05512 2760 DNSP LDA $ + 05513 2761 RES 6 + 05521 00000300 2762 CW DATA 0300 LBRACK + 05522 02000200 2763 DATA 002000200 ASSIGN + 05523 01000600 2764 DATA 001000600 THEN (STACK) + 05524 00000600 2765 DATA 000000600 THEN (OP) + 05525 02000700 2766 DATA 002000700 ELSE (STACK) + 05526 01000700 2767 DATA 001000700 ELSE (OP) + 05527 00000400 2768 DATA 0400 SWITCH + 05530 01001000 2769 DATA 001001000 GOTO + 05531 00007600 2770 DATA 07600 SEMCOL + 05532 00001177 2771 DATA 01177 END + 05533 00007500 2772 DATA 07500 COMMA + 05534 00771200 2773 DATA 0771200 LPAREN + 05535 00001277 2774 DATA 01277 RPAREN + 05536 11060006 2775 DATA 011060006 + + 05537 11110010 2776 DATA 011110010 - + 05540 12140013 2777 DATA 012140013 / + 05541 12160015 2778 DATA 012160015 \ + 05542 12120012 2779 DATA 012120012 * + 05543 03250025 2780 DATA 03250025 EQUIV + 05544 10320031 2781 DATA 010320031 GE + 05545 10310032 2782 DATA 010310032 LE + 05546 10300030 2783 DATA 010300030 EQ + 05547 10330033 2784 DATA 010330033 NE + 05550 10260027 2785 DATA 010260027 LS + 05551 10270026 2786 DATA 010270026 GT + 05552 04240023 2787 DATA 04240023 IMPLIC + 05553 13200017 2788 DATA 013200017 EOP + 05554 00007400 2789 DATA 07400 COLON + 05555 11000100 2790 DATA 011000100 UOP + 05556 00007700 2791 DATA 07700 BOUND + 05557 00001401 2792 DATA 01401 PROC + 05560 00001300 2793 DATA 01300 PHI + 05561 00001501 2794 DATA 01501 PHI R + 05562 00001400 2795 DATA 01400 WHILE + 05563 00001600 2796 DATA 01600 UNTIL + 05564 00001500 2797 DATA 01500 STEP + 05565 00001700 2798 DATA 01700 DO + 05566 00001701 2799 DATA 01701 + 05567 00000204 2800 STT DATA 000204 + 05570 00040145 2801 PZJMO DATA 040145 + 05571 00042101 2802 LDJM1 DATA 042101 + 05572 00040101 2803 LDJM0 DATA 040101 + 05573 00040150 2804 SSJM0 DATA 040150 + 05574 00040104 2805 STJM0 DATA 040104 + 05575 00040120 2806 WHJM0 DATA 040120 + 05576 00040102 2807 LDNJM0 DATA 040102 + 05577 00000003 2808 NEG DATA 000003 + 05600 00040100 2809 OPJM0 DATA 040100 + 05601 00042177 2810 OPIJM1 DATA 042177 + 05602 00040136 2811 JFJM0 DATA 040136 + 05603 00000034 2812 UJNA DATA 000034 + 05604 00042134 2813 UJJM1 DATA 042134 + 05605 00040134 2814 UJJM0 DATA 040134 + 05606 00000054 2815 BSNA DATA 054 + 05607 00000043 2816 BBNA DATA 043 + 05610 00000041 2817 BPNA DATA 041 + 05611 00000044 2818 EBNA DATA 044 + 05612 00000042 2819 EPNA DATA 042 + 05613 00040152 2820 IOJM0 DATA 040152 + 05614 00040155 2821 PJM0 DATA 040155 + 05615 00042155 2822 PJM1 DATA 042155 + 05616 00044155 2823 PJM2 DATA 044155 + 05617 00040137 2824 BCJM0 DATA 040137 + 05620 00040153 2825 ECJM0 DATA 040153 + 05621 00040117 2826 SUJM0 DATA 040117 + 05622 00040140 2827 JPJM0 DATA 040140 + 05623 00040157 2828 SPLJM0 DATA 040157 + 05624 00000007 2829 DEALNA DATA 7 + 05625 00042140 2830 JPJM1 DATA 042140 + 05626 00044105 2831 ALJM2 DATA 044105 + 05627 00000060 2832 EFBNA DATA 060 + 05630 00040105 2833 ALJM0 DATA 040105 + 2834 STFA FORM 4,5,15 + 05631 2835 BR RES 1 + 05632 00000211 2836 TAB1 DATA UNKIDT + 05633 00000051 2837 DATA VRIDT + 05634 00000034 2838 DATA ARIDT + 05635 00000032 2839 DATA SWIDT + 05636 00000052 2840 DATA PRIDT + 05637 00000052 2841 DATA PRIDT + 05640 00000052 2842 DATA PRIDT + 05641 00000043 2843 DATA SDX + 05642 00000043 2844 DATA SDX + 05643 00000076 2845 DATA BVAR + 05644 00000070 2846 DATA AVAR + 05645 00000077 2847 DATA BPRI + 05646 00000016 2848 DATA APRI + 05647 00000147 2849 DATA BVARP + 05650 00000145 2850 DATA AVARP + 00000002 2851 IX2 EQU 2 + 00000006 2852 SPECAL EQU 6 + 00000000 2853 EMP EQU 0 + 00000001 2854 PRHED EQU SPECAL-5 + 00000002 2855 BLKHD EQU SPECAL-4 + 00000003 2856 BOUND EQU SPECAL-3 + 00000004 2857 MOP EQU 4 + 00000004 2858 BEGINB EQU SPECAL-2 + 00000005 2859 USI EQU 5 + 00000005 2860 BEGINC EQU SPECAL-1 + 00000006 2861 RPAR EQU 6 + 00000006 2862 STMTSQ EQU SPECAL + 00000007 2863 ASN EQU 7 + 00000007 2864 COLON EQU 7 + 00000010 2865 EQUAL EQU 8 + 00000010 2866 ULBLK EQU 8 + 00000011 2867 LPT EQU 9 + 00000011 2868 BLOCK EQU 9 + 00000012 2869 RPT EQU 10 + 00000012 2870 CMPD EQU 10 + 00000013 2871 AST EQU 11 + 00000013 2872 UCS EQU 11 + 00000014 2873 AOP EQU 12 + 00000015 2874 IDT EQU 13 + 00000016 2875 APRI EQU 14 + 00000017 2876 COMMA EQU 15 + 00000020 2877 END EQU 16 + 00000021 2878 SEMCOL EQU 17 + 00000022 2879 RPAREN EQU 18 + 00000023 2880 LPAREN EQU 19 + 00000024 2881 ELSE EQU 20 + 00000025 2882 APOST EQU 21 + 00000025 2883 UBS EQU 21 + 00000026 2884 ROP EQU 22 + 00000026 2885 STRING EQU 22 + 00000027 2886 DGT EQU 23 + 00000027 2887 UFORS EQU 23 + 00000030 2888 LTR EQU 24 + 00000030 2889 ULCOMP EQU 24 + 00000031 2890 IDTP EQU 25 + 00000031 2891 SWDES EQU 25 + 00000032 2892 USIP EQU 26 + 00000032 2893 SWIDT EQU 26 + 00000033 2894 IDTPA EQU 27 + 00000033 2895 FL EQU 27 + 00000034 2896 ARIDT EQU 28 + 00000035 2897 APL EQU 29 + 00000036 2898 REAL EQU 30 + 00000037 2899 INTGER EQU 31 + 00000040 2900 BOOL EQU 32 + 00000041 2901 FORS EQU 33 + 00000042 2902 BEGIN EQU 34 + 00000043 2903 SDX EQU 35 + 00000044 2904 IFS EQU 36 + 00000045 2905 CS EQU 37 + 00000046 2906 SUBX EQU 38 + 00000047 2907 PROCED EQU 39 + 00000050 2908 ARRAY EQU 40 + 00000051 2909 VRIDT EQU 41 + 00000052 2910 PRIDT EQU 42 + 00000053 2911 ALPL EQU 43 + 00000054 2912 DO EQU 44 + 00000055 2913 FPL EQU 45 + 00000056 2914 AX EQU 46 + 00000057 2915 ARLIS EQU 47 + 00000060 2916 PRHDB EQU 48 + 00000061 2917 BPL EQU 49 + 00000062 2918 BOX EQU 50 + 00000063 2919 STRX EQU 51 + 00000064 2920 THEN EQU 52 + 00000065 2921 BLPL EQU 53 + 00000066 2922 DEX EQU 54 + 00000067 2923 LBLSL EQU 55 + 00000070 2924 AVAR EQU 56 + 00000071 2925 FDZ EQU 57 + 00000072 2926 STMT EQU 58 + 00000073 2927 AFCT EQU 59 + 00000074 2928 ATRM EQU 60 + 00000075 2929 SAX EQU 61 + 00000076 2930 BVAR EQU 62 + 00000077 2931 BPRI EQU 63 + 00000100 2932 BSEC EQU 64 + 00000101 2933 BFCT EQU 65 + 00000102 2934 BTRM EQU 66 + 00000103 2935 IMP EQU 67 + 00000104 2936 SBX EQU 68 + 00000105 2937 PRODEC EQU 69 + 00000106 2938 LABEL EQU 70 + 00000107 2939 IFC EQU 71 + 00000110 2940 SWITCH EQU 72 + 00000111 2941 FPLPD EQU 73 + 00000112 2942 PRHDA EQU 74 + 00000114 2943 STEP EQU 76 + 00000115 2944 ELA EQU 77 + 00000116 2945 UNTIL EQU 78 + 00000117 2946 ELB EQU 79 + 00000120 2947 ELC EQU 80 + 00000121 2948 WHILE EQU 81 + 00000122 2949 ELD EQU 82 + 00000123 2950 FCP EQU 83 + 00000126 2951 LBROCK EQU 86 + 00000131 2952 FDZP EQU 89 + 00000132 2953 VUL EQU 90 + 00000137 2954 USNA EQU 95 + 00000141 2955 ARSEG EQU 97 + 00000142 2956 LBRACK EQU 98 + 00000143 2957 PRHDCP EQU 99 + 00000144 2958 LPD EQU 100 + 00000145 2959 AVARP EQU 101 + 00000146 2960 SUBL EQU 102 + 00000147 2961 BVARP EQU 103 + 00000150 2962 DECLAR EQU 104 + 00000151 2963 LOB EQU 105 + 00000152 2964 XPRIDT EQU 106 + 00000155 2965 BXP EQU 109 + 00000156 2966 IF EQU 110 + 00000157 2967 PRHDEP EQU 111 + 00000160 2968 APLPD EQU 112 + 00000161 2969 SPECLS EQU 113 + 00000162 2970 ERROR EQU 114 + 00000164 2971 DXP EQU 116 + 00000165 2972 ASSIGN EQU 117 + 00000166 2973 SWL EQU 118 + 00000167 2974 GOTO EQU 119 + 00000171 2975 TEN EQU 121 + 00000174 2976 FORC EQU 124 + 00000175 2977 PT EQU 125 + 00000177 2978 USN EQU 127 + 00000203 2979 SWDP EQU 131 + 00000204 2980 VRLIS EQU 132 + 00000205 2981 USNB EQU 133 + 00000206 2982 IFSP EQU 134 + 00000207 2983 XTRNAL EQU 135 + 00000210 2984 PIFS EQU 136 + 00000211 2985 UNKIDT EQU 137 + 00000213 2986 LBL EQU 139 + 00000215 2987 XPRLIS EQU 141 + 00000216 2988 AXP EQU 142 + 00000221 2989 ARY EQU 145 + 00000222 2990 EXT EQU 146 + 00000223 2991 PROC EQU 147 + 00000224 2992 OWN EQU 148 + 00000225 2993 SWDESP EQU 149 + 00000226 2994 FOR EQU 150 + 00000227 2995 AFCTP EQU 151 + 00000230 2996 ATRMP EQU 152 + 00000231 2997 SAXP EQU 153 + 00000232 2998 EOP EQU 154 + 00000234 2999 RELP EQU 156 + 00000235 3000 NOT EQU 157 + 00000236 3001 BFCTP EQU 158 + 00000237 3002 AND EQU 159 + 00000240 3003 BTRMP EQU 160 + 00000241 3004 OR EQU 161 + 00000242 3005 IMPP EQU 162 + 00000243 3006 IMPLIC EQU 163 + 00000244 3007 SBXP EQU 164 + 00000245 3008 EQUIV EQU 165 + 00000246 3009 VALUE EQU 166 + 00000247 3010 UNDEF EQU 167 + 00000250 3011 PRGRAM EQU 168 + 00000251 3012 TRUE EQU 169 + 00000252 3013 FALSE EQU 170 + 00000253 3014 FORMAT EQU 171 + 00000254 3015 COMENT EQU 172 + 00000255 3016 ILLEG EQU 173 + 00000256 3017 IGNOR EQU 174 + 00000257 3018 UOP EQU 175 + 00000260 3019 DOTDOT EQU 176 + 00000261 3020 BLANK EQU 177 + 00000264 3021 APOST2 EQU 180 + 00000265 3022 TYPE EQU 181 + 00000266 3023 COMST EQU 182 + 00000270 3024 USNC EQU 184 + 00000271 3025 USND EQU 185 + 00000273 3026 PRHDC EQU 187 + 00000274 3027 ROPE EQU 188 + 00000275 3028 MOPE EQU 189 + 00000276 3029 COLONE EQU 190 + 00000000 3030 SUBD EQU 0 + 00000001 3031 IMPA EQU 1 + 00000002 3032 RULE EQU 2 + 00000003 3033 RULEF EQU 3 + 3034 ICON FORM 6,10,8 + 3035 CON FORM 8,8,8 + 3036 RL FORM 2,2,2,10,8 + 3037 DICT FORM 3,9,12 + 05651 3038 MMIN RES 0 + 05651 0 003 5722 3039 DICT SUBD,BOUND,BND1 + 05652 0 004 5716 3040 DICT SUBD,MOP,MOP1 + 05653 3 005 6031 3041 DICT RULEF,USI,RR9 + 05654 0 006 5711 3042 DICT SUBD,RPAR,RPAR1 + 05655 3 007 5772 3043 DICT RULEF,COLON,RR3 + 05656 3 010 6000 3044 DICT RULEF,EQUAL,RR4 + 05657 3 011 6007 3045 DICT RULEF,LPT,RR5 + 05660 3 012 6014 3046 DICT RULEF,RPT,RR6 + 05661 3 013 6023 3047 DICT RULEF,AST,RR7 + 05662 0 014 5712 3048 DICT SUBD,AOP,AOP1 + 05663 0 015 5703 3049 DICT SUBD,IDT,IDT1 + 05664 0 016 5730 3050 DICT SUBD,APRI,APR1 + 05665 0 017 5707 3051 DICT SUBD,COMMA,COM1 + 05666 0 020 5721 3052 DICT SUBD,END,END1 + 05667 0 021 5704 3053 DICT SUBD,SEMCOL,SEM1 + 05670 3 022 6026 3054 DICT RULEF,RPAREN,RR8 + 05671 0 023 5710 3055 DICT SUBD,LPAREN,LPAR1 + 05672 0 024 5717 3056 DICT SUBD,ELSE,ELS1 + 05673 0 025 5723 3057 DICT SUBD,APOST,APST1 + 05674 0 026 5715 3058 DICT SUBD,ROP,ROP1 + 05675 1 027 5732 3059 DICT IMPA,DGT,X2 + 05676 1 030 5731 3060 DICT IMPA,LTR,X1 + 05677 3 031 5756 3061 DICT RULEF,IDTP,RR1 + 05700 3 032 5767 3062 DICT RULEF,USIP,RR2 + 05701 3 033 6052 3063 DICT RULEF,IDTPA,RR10 + 00000031 3064 LDICTN EQU $-MMIN + 05702 3065 USI1 RES 0 + 05702 5 003 5733 3066 DICT 4+IMPA,BOUND,X3 + 05703 3067 IDT1 RES 0 + 05703 5 003 5734 3068 DICT 4+IMPA,BOUND,X4 + 05704 3069 SEM1 RES 0 + 05704 1 003 5735 3070 DICT IMPA,BOUND,X5 + 05705 1 020 5736 3071 DICT IMPA,END,X6 + 05706 4 254 5725 3072 DICT 4+SUBD,COMENT,SEM11 + 05707 3073 COM1 RES 0 + 05707 5 003 5737 3074 DICT 4+IMPA,BOUND,X7 + 05710 3075 LPAR1 RES 0 + 05710 5 003 5740 3076 DICT 4+IMPA,BOUND,X8 + 05711 3077 RPAR1 RES 0 + 05711 5 003 5741 3078 DICT 4+IMPA,BOUND,X9 + 05712 3079 AOP1 RES 0 + 05712 1 171 5754 3080 DICT IMPA,TEN,X24 + 05713 1 205 5755 3081 DICT IMPA,USNB,X26 + 05714 5 003 5742 3082 DICT 4+IMPA,BOUND,X12 + 05715 3083 ROP1 RES 0 + 05715 5 003 5743 3084 DICT 4+IMPA,BOUND,X14 + 05716 3085 MOP1 RES 0 + 05716 5 003 5744 3086 DICT 4+IMPA,BOUND,X15 + 05717 3087 ELS1 RES 0 + 05717 1 003 5745 3088 DICT IMPA,BOUND,X16 + 05720 5 020 5746 3089 DICT 4+IMPA,END,X17 + 05721 5 020 5747 3090 END1 DICT 4+IMPA,END,X18 + 05722 4 020 5726 3091 BND1 DICT 4+SUBD,END,BND11 + 05723 0 015 5727 3092 APST1 DICT SUBD,IDT,APST12 + 05724 5 025 5750 3093 DICT 4+IMPA,APOST,X19 + 05725 5 003 5751 3094 SEM11 DICT 4+IMPA,BOUND,X20 + 05726 5 003 5752 3095 BND11 DICT 4+IMPA,BOUND,X22 + 05727 5 025 5753 3096 APST12 DICT 4+IMPA,APOST,X23 + 05730 5 003 5733 3097 APR1 DICT 4+IMPA,BOUND,X3 + 05731 01 1342 031 3098 X1 ICON 1,SN1-N,IDTP + 05732 01 1346 032 3099 X2 ICON 1,SN2-N,USIP + 05733 01 1355 003 3100 X3 ICON 1,SN3-N,BOUND + 05734 01 1357 003 3101 X4 ICON 1,SN4-N,BOUND + 05735 01 1361 003 3102 X5 ICON 1,SN5-N,BOUND + 05736 01 1364 021 3103 X6 ICON 1,SN6-N,SEMCOL + 05737 01 1367 003 3104 X7 ICON 1,SN7-N,BOUND + 05740 01 1372 003 3105 X8 ICON 1,SN8-N,BOUND + 05741 01 1375 003 3106 X9 ICON 1,SN9-N,BOUND + 05742 01 1400 003 3107 X12 ICON 1,SN12-N,BOUND + 05743 01 1412 003 3108 X14 ICON 1,SN14-N,BOUND + 05744 01 1414 003 3109 X15 ICON 1,SN15-N,BOUND + 05745 01 1426 003 3110 X16 ICON 1,SN16-N,BOUND + 05746 01 1364 024 3111 X17 ICON 1,SN6-N,ELSE + 05747 01 1364 020 3112 X18 ICON 1,SN6-N,END + 05750 01 1552 264 3113 X19 ICON 1,SN19-N,APOST2 + 05751 01 1473 003 3114 X20 ICON 1,SN24B-N,BOUND + 05752 01 1517 003 3115 X22 ICON 1,SN22-N,BOUND + 05753 00 1151 000 3116 X23 ICON 0,LWCHK-N,0 + 05754 01 1476 171 3117 X24 ICON 1,SN24A-N,TEN + 05755 01 1476 205 3118 X26 ICON 1,SN24A-N,USNB + 05756 25533544 3119 RR1 RL 1,1,1,SN-N,LPD + 05757 144 000 000 3120 CON LPD,0,0 + 05760 21635030 3121 RL 1,0,1,SN24-N,LTR + 05761 031 000 000 3122 CON IDTP,0,0 + 05762 21635027 3123 RL 1,0,1,SN24-N,DGT + 05763 031 000 000 3124 CON IDTP,0,0 + 05764 21533407 3125 RL 1,0,1,SN-N,COLON + 05765 033 000 000 3126 CON IDTPA,0,0 + 05766 01654415 3127 RL 0,0,1,SN40-N,IDT + 05767 21641427 3128 RR2 RL 1,0,1,SN26-N,DGT + 05770 032 000 000 3129 CON USIP,0,0 + 05771 01533405 3130 RL 0,0,1,SN-N,USI + 05772 45533544 3131 RR3 RL 2,1,1,SN-N,LPD + 05773 023 017 000 3132 CON LPAREN,COMMA,0 + 05774 45620403 3133 RL 2,1,1,SN27A-N,BOUND + 05775 010 003 000 3134 CON EQUAL,BOUND,0 + 05776 25603403 3135 RL 1,1,1,SN13-N,BOUND + 05777 003 000 000 3136 CON BOUND,0,0 + 06000 45622003 3137 RR4 RL 2,1,1,SN28-N,BOUND + 06001 010 003 000 3138 CON EQUAL,BOUND,0 + 06002 21623412 3139 RL 1,0,1,SN29-N,RPT + 06003 026 000 000 3140 CON ROP,0,0 + 06004 21625011 3141 RL 1,0,1,SN30-N,LPT + 06005 026 000 000 3142 CON ROP,0,0 + 06006 01626026 3143 RL 0,0,1,SN31-N,ROP + 06007 21627012 3144 RR5 RL 1,0,1,SN32-N,RPT + 06010 026 000 000 3145 CON ROP,0,0 + 06011 21625010 3146 RL 1,0,1,SN30-N,EQUAL + 06012 026 000 000 3147 CON ROP,0,0 + 06013 01630026 3148 RL 0,0,1,SN34-N,ROP + 06014 45631003 3149 RR6 RL 2,1,1,SN35-N,BOUND + 06015 012 003 000 3150 CON RPT,BOUND,0 + 06016 21627011 3151 RL 1,0,1,SN32-N,LPT + 06017 026 000 000 3152 CON ROP,0,0 + 06020 21623410 3153 RL 1,0,1,SN29-N,EQUAL + 06021 026 000 000 3154 CON ROP,0,0 + 06022 01632426 3155 RL 0,0,1,SN38-N,ROP + 06023 45633403 3156 RR7 RL 2,1,1,SN39-N,BOUND + 06024 013 003 000 3157 CON AST,BOUND,0 + 06025 01533404 3158 RL 0,0,1,SN-N,MOP + 06026 21533430 3159 RR8 RL 1,0,1,SN-N,LTR + 06027 144 000 000 3160 CON LPD,0,0 + 06030 01533406 3161 RL 0,0,1,SN-N,RPAR + 06031 21701175 3162 RR9 RL 1,0,1,R9D1-N,PT + 06032 137 000 000 3163 CON USNA,0,0 + 06033 46702537 3164 RL 2,1,2,R9D2-N,USNA + 06034 171 205 171 3165 CON TEN,USNB,TEN + 06035 25703537 3166 RL 1,1,1,R9D3-N,USNA + 06036 016 000 000 3167 CON APRI,0,0 + 06037 46702575 3168 RL 2,1,2,R9D2-N,PT + 06040 171 205 171 3169 CON TEN,USNB,TEN + 06041 25703575 3170 RL 1,1,1,R9D3-N,PT + 06042 016 000 000 3171 CON APRI,0,0 + 06043 22701171 3172 RL 1,0,2,R9D1-N,TEN + 06044 205 171 000 3173 CON USNB,TEN,0 + 06045 51705605 3174 RL 2,2,1,R9D4-N,USNB + 06046 171 016 000 3175 CON TEN,APRI,0 + 06047 25704571 3176 RL 1,1,1,R9D6-N,TEN + 06050 016 000 000 3177 CON APRI,0,0 + 06051 01714016 3178 RL 0,0,1,R9D5-N,APRI + 06052 45614403 3179 RR10 RL 2,1,1,SN27-N,BOUND + 06053 010 003 000 3180 CON EQUAL,BOUND,0 + 06054 25000003 3181 RL 1,1,1,LABDEF-N,BOUND + 06055 003 000 000 3182 CON BOUND,0,0 + 3183 LEX FORM 4,3,5,12 + 06056 01 3 00 0156 3184 LWTAB LEX 1,3,0,IF + 06057 31266060 3185 TEXT 4,IF + 06060 01 0 01 0054 3186 LEX 1,0,1,DO + 06061 24466060 3187 TEXT 4,DO + 06062 01 0 02 0241 3188 LEX 1,0,2,OR + 06063 46516060 3189 TEXT 4,OR + 06064 02 6 03 0226 3190 LEX 2,6,3,FOR + 06065 26465160 3191 TEXT 4,FOR + 06066 02 2 00 0020 3192 LEX 2,2,0,END + 06067 25452460 3193 TEXT 4,END + 06070 02 1 00 0224 3194 LEX 2,1,0,OWN + 06071 46664560 3195 TEXT 4,OWN + 06072 02 0 05 0237 3196 LEX 2,0,5,AND + 06073 21452460 3197 TEXT 4,AND + 06074 02 0 06 0235 3198 LEX 2,0,6,NOT + 06075 45466360 3199 TEXT 4,NOT + 06076 03 0 07 0064 3200 LEX 3,0,7,THEN + 06077 63302545 3201 TEXT 4,THEN + 06100 03 2 00 0024 3202 LEX 3,2,0,ELSE + 06101 25436225 3203 TEXT 4,ELSE + 06102 03 1 00 0036 3204 LEX 3,1,0,REAL + 06103 51252143 3205 TEXT 4,REAL + 06104 03 0 11 0114 3206 LEX 3,0,9,STEP + 06105 62632547 3207 TEXT 4,STEP + 06106 03 3 12 0167 3208 LEX 3,3,10,GOTO + 06107 27466346 3209 TEXT 4,GOTO + 06110 03 4 00 0077 3210 LEX 3,4,0,BPRI + 06111 63516425 3211 TEXT 4,TRUE + 06112 04 3 13 0042 3212 LEX 4,3,11,BEGIN + 06113 22252731 3213 TEXT 8,BEGIN + 06114 45606060 + 06115 04 1 00 0050 3214 LEX 4,1,0,ARRAY + 06116 21515121 3215 TEXT 8,ARRAY + 06117 70606060 + 06120 04 0 14 0116 3216 LEX 4,0,12,UNTIL + 06121 64456331 3217 TEXT 8,UNTIL + 06122 43606060 + 06123 04 0 15 0121 3218 LEX 4,0,13,WHILE + 06124 66303143 3219 TEXT 8,WHILE + 06125 25606060 + 06126 04 5 00 0077 3220 LEX 4,5,0,BPRI + 06127 26214362 3221 TEXT 8,FALSE + 06130 25606060 + 06131 04 1 00 0246 3222 LEX 4,1,0,VALUE + 06132 65214364 3223 TEXT 8,VALUE + 06133 25606060 + 06134 04 1 00 0106 3224 LEX 4,1,0,LABEL + 06135 43212225 3225 TEXT 8,LABEL + 06136 43606060 + 06137 05 1 00 0253 3226 LEX 5,1,0,FORMAT + 06140 26465144 3227 TEXT 8,FORMAT + 06141 21636060 + 06142 05 1 00 0110 3228 LEX 5,1,0,SWITCH + 06143 62663163 3229 TEXT 8,SWITCH + 06144 23306060 + 06145 05 1 00 0026 3230 LEX 5,1,0,STRING + 06146 62635131 3231 TEXT 8,STRING + 06147 45276060 + 06150 06 1 00 0037 3232 LEX 6,1,0,INTGER + 06151 31456325 3233 TEXT 8,INTEGER + 06152 27255160 + 06153 06 2 00 0254 3234 LEX 6,2,0,COMENT + 06154 23464444 3235 TEXT 8,COMMENT + 06155 25456360 + 06156 06 1 00 0040 3236 LEX 6,1,0,BOOL + 06157 22464643 3237 TEXT 8,BOOLEAN + 06160 25214560 + 06161 07 1 00 0207 3238 LEX 7,1,0,XTRNAL + 06162 25676325 3239 TEXT 8,EXTERNAL + 06163 51452143 + 06164 07 1 10 0047 3240 LEX 7,1,8,PROCED + 06165 47514623 3241 TEXT 8,PROCEDUR + 06166 25246451 + 06167 00000500 3242 OPTAB DATA 0500 IF + 06170 00001700 3243 DATA 01700 DO + 06171 05210021 3244 DATA 05210021 OR + 06172 00001300 3245 DATA 01300 FOR + 06173 00000400 3246 DATA 0400 SWITCH + 06174 06220022 3247 DATA 06220022 AND + 06175 07000100 3248 DATA 07000100 NOT + 06176 00000600 3249 DATA 0600 THEN(OP) + 06177 00000000 3250 DATA 0 PROCEDURE + 06200 00001500 3251 DATA 01500 STEP + 06201 01001000 3252 DATA 01001000 GO TO + 06202 00771100 3253 DATA 0771100 BEGIN + 06203 00001600 3254 DATA 01600 UNTIL + 06204 00001400 3255 DATA 01400 WHILE + 06205 3256 MMAJ RES 0 + 06205 0 004 6333 3257 DICT SUBD,BEGINB,BGB1 + 06206 0 005 6337 3258 DICT SUBD,BEGINC,BGC1 + 06207 0 006 6312 3259 DICT SUBD,STMTSQ,DEC1 + 06210 1 007 6467 3260 DICT IMPA,ASN,Y93 + 06211 2 010 6760 3261 DICT RULE,ULBLK,R34 + 06212 3 011 6763 3262 DICT RULEF,BLOCK,R38 + 06213 3 012 6763 3263 DICT RULEF,CMPD,R38 + 06214 2 013 6774 3264 DICT RULE,UCS,R29 + 06215 1 014 6516 3265 DICT IMPA,AOP,Y137 + 06216 2 015 7016 3266 DICT RULE,IDT,R2 + 06217 2 016 6636 3267 DICT RULE,APRI,R12 + 06220 0 017 6325 3268 DICT SUBD,COMMA,CM1 + 06221 0 020 6420 3269 DICT SUBD,END,END2 + 06222 2 021 7066 3270 DICT RULE,SEMCOL,R1 + 06223 0 022 6363 3271 DICT SUBD,RPAREN,RPR1 + 06224 0 023 6336 3272 DICT SUBD,LPAREN,LPR1 + 06225 2 024 7125 3273 DICT RULE,ELSE,R44 + 06226 2 025 7002 3274 DICT RULE,UBS,R31 + 06227 0 026 6324 3275 DICT SUBD,STRING,STRG1 + 06230 2 027 7005 3276 DICT RULE,UFORS,R32 + 06231 2 030 7010 3277 DICT RULE,ULCOMP,R33 + 06232 1 031 6453 3278 DICT IMPA,SWDES,Y62 + 06233 3 032 6753 3279 DICT RULEF,SWIDT,R36 + 06234 0 033 6343 3280 DICT SUBD,FL,FL1 + 06235 3 034 6766 3281 DICT RULEF,ARIDT,R26 + 06236 0 035 6341 3282 DICT SUBD,APL,APL1 + 06237 1 036 6427 3283 DICT IMPA,REAL,Y1 + 06240 1 037 6430 3284 DICT IMPA,INTGER,Y2 + 06241 1 040 6431 3285 DICT IMPA,BOOL,Y3 + 06242 2 041 6525 3286 DICT RULE,FORS,R35 + 06243 3 042 6530 3287 DICT RULEF,BEGIN,R6 + 06244 3 043 6771 3288 DICT RULEF,SDX,R27 + 06245 3 044 6777 3289 DICT RULEF,IFS,R30 + 06246 1 045 6527 3290 DICT IMPA,CS,R35Z + 06247 3 046 6626 3291 DICT RULEF,SUBX,R3 + 06250 2 047 6551 3292 DICT RULE,PROCED,R4 + 06251 2 050 6560 3293 DICT RULE,ARRAY,R5 + 06252 2 051 6573 3294 DICT RULE,VRIDT,R7 + 06253 3 052 6602 3295 DICT RULEF,PRIDT,R8 + 06254 0 053 6342 3296 DICT SUBD,ALPL,ALPL1 + 06255 2 054 6666 3297 DICT RULE,DO,R16 + 06256 0 055 6335 3298 DICT SUBD,FPL,FPL1 + 06257 0 056 6345 3299 DICT SUBD,AX,AX1 + 06260 0 057 6357 3300 DICT SUBD,ARLIS,ARL1 + 06261 3 060 6750 3301 DICT RULEF,PRHDB,R37 + 06262 0 061 6361 3302 DICT SUBD,BPL,BPL1 + 06263 0 062 6402 3303 DICT SUBD,BOX,BX1 + 06264 2 063 6522 3304 DICT RULE,STRX,R40 + 06265 2 064 7122 3305 DICT RULE,THEN,R42 + 06266 0 065 6407 3306 DICT SUBD,BLPL,BLPL1 + 06267 0 066 6410 3307 DICT SUBD,DEX,DEX1 + 06270 0 067 6417 3308 DICT SUBD,LBLSL,LBLS1 + 06271 3 070 6631 3309 DICT RULEF,AVAR,R10 + 06272 2 071 6607 3310 DICT RULE,FDZ,R11 + 06273 3 072 6673 3311 DICT RULEF,STMT,R18 + 06274 3 073 6641 3312 DICT RULEF,AFCT,R13 + 06275 3 074 6646 3313 DICT RULEF,ATRM,R14 + 06276 3 075 6655 3314 DICT RULEF,SAX,R15 + 06277 3 076 6713 3315 DICT RULEF,BVAR,R17 + 06300 2 077 6716 3316 DICT RULE,BPRI,R19 + 06301 2 100 6721 3317 DICT RULE,BSEC,R20 + 06302 3 101 6724 3318 DICT RULEF,BFCT,R21 + 06303 3 102 6731 3319 DICT RULEF,BTRM,R22 + 06304 3 103 6736 3320 DICT RULEF,IMP,R23 + 06305 3 104 6743 3321 DICT RULEF,SBX,R24 + 06306 3 105 7013 3322 DICT RULEF,PRODEC,R39 + 06307 0 106 6323 3323 DICT SUBD,LABEL,LAB1 + 06310 0 107 6313 3324 DICT SUBD,IFC,IFC1 + 06311 0 110 6322 3325 DICT SUBD,SWITCH,SWCH1 + 00000105 3326 LDICTJ EQU $-MMAJ + 06312 5 006 6477 3327 DEC1 DICT 4+IMPA,STMTSQ,Y112 + 06313 3328 IFC1 RES 0 + 06313 1 067 6511 3329 DICT IMPA,LBLSL,Y124 + 06314 1 174 6507 3330 DICT IMPA,FORC,Y123 + 06315 1 005 6503 3331 DICT IMPA,BEGINC,Y121 + 06316 1 006 6505 3332 DICT IMPA,STMTSQ,Y122 + 06317 1 002 6501 3333 DICT IMPA,BLKHD,Y120 + 06320 1 206 6512 3334 DICT IMPA,IFSP,Y125 + 06321 5 210 6514 3335 DICT 4+IMPA,PIFS,Y126 + 06322 5 273 6517 3336 SWCH1 DICT 4+IMPA,PRHDC,Y132 + 06323 5 273 6520 3337 LAB1 DICT 4+IMPA,PRHDC,Y133 + 06324 5 273 6521 3338 STRG1 DICT 4+IMPA,PRHDC,Y134 + 06325 1 055 6432 3339 CM1 DICT IMPA,FPL,Y15 + 06326 1 035 6442 3340 DICT IMPA,APL,Y39 + 06327 4 056 6330 3341 DICT 4+SUBD,AX,CM12 + 06330 1 123 6445 3342 CM12 DICT IMPA,FCP,Y48 + 06331 4 017 6332 3343 DICT 4+SUBD,COMMA,CM121 + 06332 5 033 6447 3344 CM121 DICT 4+IMPA,FL,Y50 + 06333 4 273 6334 3345 BGB1 DICT 4+SUBD,PRHDC,BGB11 + 06334 5 112 6436 3346 BGB11 DICT 4+IMPA,PRHDA,Y22 + 06335 5 111 6433 3347 FPL1 DICT 4+IMPA,FPLPD,Y16 + 06336 5 141 6434 3348 LPR1 DICT 4+IMPA,ARSEG,Y17 + 06337 4 273 6340 3349 BGC1 DICT 4+SUBD,PRHDC,BGC11 + 06340 5 112 6440 3350 BGC11 DICT 4+IMPA,PRHDA,Y23 + 06341 5 160 6757 3351 APL1 DICT 4+IMPA,APLPD,R36Z + 06342 5 053 6443 3352 ALPL1 DICT 4+IMPA,ALPL,Y42 + 06343 4 017 6344 3353 FL1 DICT 4+SUBD,COMMA,FL11 + 06344 5 033 6475 3354 FL11 DICT 4+IMPA,FL,Y103 + 06345 1 216 6665 3355 AX1 DICT IMPA,AXP,R15Z + 06346 1 053 6444 3356 DICT IMPA,ALPL,Y43 + 06347 1 131 6451 3357 DICT IMPA,FDZP,Y52 + 06350 1 142 6461 3358 DICT IMPA,LBRACK,Y74 + 06351 0 116 6422 3359 DICT SUBD,UNTIL,ELC1 + 06352 1 160 6470 3360 DICT IMPA,APLPD,Y95 + 06353 0 276 6355 3361 DICT SUBD,COLONE,AX11 + 06354 4 017 6356 3362 DICT 4+SUBD,COMMA,AX12 + 06355 5 056 6460 3363 AX11 DICT 4+IMPA,AX,Y71 + 06356 5 146 6630 3364 AX12 DICT 4+IMPA,SUBL,R3Z + 06357 4 017 6360 3365 ARL1 DICT 4+SUBD,COMMA,ARL11 + 06360 5 057 6457 3366 ARL11 DICT 4+IMPA,ARLIS,Y67 + 06361 4 017 6362 3367 BPL1 DICT 4+SUBD,COMMA,BPL11 + 06362 5 061 6460 3368 BPL11 DICT 4+IMPA,BPL,Y71 + 06363 0 146 6371 3369 RPR1 DICT SUBD,SUBL,RPR11 + 06364 0 061 6374 3370 DICT SUBD,BPL,RPR12 + 06365 0 066 6376 3371 DICT SUBD,DEX,RPR13 + 06366 0 062 6377 3372 DICT SUBD,BOX,RPR14 + 06367 0 056 6400 3373 DICT SUBD,AX,RPR15 + 06370 4 035 6401 3374 DICT 4+SUBD,APL,RPR161 + 06371 4 142 6372 3375 RPR11 DICT 4+SUBD,LBRACK,RPR111 + 06372 1 147 6456 3376 RPR111 DICT IMPA,BVARP,Y66 + 06373 5 145 6455 3377 DICT 4+IMPA,AVARP,Y65 + 06374 4 126 6375 3378 RPR12 DICT 4+SUBD,LBROCK,RPR121 + 06375 5 141 6454 3379 RPR121 DICT 4+IMPA,ARSEG,Y64 + 06376 5 023 6453 3380 RPR13 DICT 4+IMPA,LPAREN,Y62 + 06377 5 023 6715 3381 RPR14 DICT 4+IMPA,LPAREN,R17Z + 06400 5 023 6635 3382 RPR15 DICT 4+IMPA,LPAREN,R10Z + 06401 5 131 6606 3383 RPR161 DICT 4+IMPA,FDZP,R8Z + 06402 1 160 6470 3384 BX1 DICT IMPA,APLPD,Y95 + 06403 0 121 6424 3385 DICT SUBD,WHILE,ELC3 + 06404 1 131 6451 3386 DICT IMPA,FDZP,Y52 + 06405 1 155 6747 3387 DICT IMPA,BXP,R24Z + 06406 5 065 6444 3388 DICT 4+IMPA,BLPL,Y43 + 06407 5 065 6463 3389 BLPL1 DICT 4+IMPA,BLPL,Y83 + 06410 1 167 6467 3390 DEX1 DICT IMPA,GOTO,Y93 + 06411 1 160 6470 3391 DICT IMPA,APLPD,Y95 + 06412 1 131 6451 3392 DICT IMPA,FDZP,Y52 + 06413 1 164 6773 3393 DICT IMPA,DXP,R27Z + 06414 1 165 6464 3394 DICT IMPA,ASSIGN,Y91 + 06415 4 017 6416 3395 DICT 4+SUBD,COMMA,DEX11 + 06416 5 166 6466 3396 DEX11 DICT 4+IMPA,SWL,Y92 + 06417 5 067 6472 3397 LBLS1 DICT 4+IMPA,LBLSL,Y97 + 06420 1 067 6473 3398 END2 DICT IMPA,LBLSL,Y98 + 06421 4 006 6425 3399 DICT 4+SUBD,STMTSQ,SQ1 + 06422 4 056 6423 3400 ELC1 DICT 4+SUBD,AX,ELC2 + 06423 4 114 6424 3401 ELC2 DICT 4+SUBD,STEP,ELC3 + 06424 5 056 6475 3402 ELC3 DICT 4+IMPA,AX,Y103 + 06425 1 002 6500 3403 SQ1 DICT IMPA,BLKHD,Y114 + 06426 5 005 6476 3404 DICT 4+IMPA,BEGINC,Y110 + 06427 01 0125 265 3405 Y1 ICON 1,SM1-M,TYPE + 06430 01 0130 265 3406 Y2 ICON 1,SM2-M,TYPE + 06431 01 0132 265 3407 Y3 ICON 1,SM3-M,TYPE + 06432 01 0000 111 3408 Y15 ICON 1,SM-M,FPLPD + 06433 01 0000 055 3409 Y16 ICON 1,SM-M,FPL + 06434 02 0134 141 3410 Y17 ICON 2,SM17-M,ARSEG + 06435 126 000 000 3411 CON LBROCK,0,0 + 06436 02 0177 001 3412 Y22 ICON 2,SM22-M,PRHED + 06437 004 000 000 3413 CON BEGINB,0,0 + 06440 02 0177 001 3414 Y23 ICON 2,SM22-M,PRHED + 06441 005 000 000 3415 CON BEGINC,0,0 + 06442 01 0000 160 3416 Y39 ICON 1,SM-M,APLPD + 06443 01 0000 053 3417 Y42 ICON 1,SM-M,ALPL + 06444 01 0000 007 3418 Y43 ICON 1,SM-M,ASN + 06445 03 0000 123 3419 Y48 ICON 3,SM-M,FCP + 06446 033 017 000 3420 CON FL,COMMA,0 + 06447 02 0000 033 3421 Y50 ICON 2,SM-M,FL + 06450 017 000 000 3422 CON COMMA,0,0 + 06451 02 0000 131 3423 Y52 ICON 2,SM-M,FDZP + 06452 035 000 000 3424 CON APL,0,0 + 06453 01 0000 043 3425 Y62 ICON 1,SM-M,SDX + 06454 01 0137 057 3426 Y64 ICON 1,SM64-M,ARLIS + 06455 01 0000 070 3427 Y65 ICON 1,SM-M,AVAR + 06456 01 0000 076 3428 Y66 ICON 1,SM-M,BVAR + 06457 01 0000 057 3429 Y67 ICON 1,SM-M,ARLIS + 06460 01 0000 061 3430 Y71 ICON 1,SM-M,BPL + 06461 02 0000 142 3431 Y74 ICON 2,SM-M,LBRACK + 06462 046 000 000 3432 CON SUBX,0,0 + 06463 01 0000 065 3433 Y83 ICON 1,SM-M,BLPL + 06464 02 0000 165 3434 Y91 ICON 2,SM-M,ASSIGN + 06465 166 000 000 3435 CON SWL,0,0 + 06466 01 0000 166 3436 Y92 ICON 1,SM-M,SWL + 06467 01 0000 025 3437 Y93 ICON 1,SM-M,UBS + 06470 02 0000 160 3438 Y95 ICON 2,SM-M,APLPD + 06471 035 000 000 3439 CON APL,0,0 + 06472 01 0000 067 3440 Y97 ICON 1,SM-M,LBLSL + 06473 02 0000 013 3441 Y98 ICON 2,SM-M,UCS + 06474 020 000 000 3442 CON END,0,0 + 06475 01 0000 033 3443 Y103 ICON 1,SM-M,FL + 06476 01 0000 030 3444 Y110 ICON 1,SM-M,ULCOMP + 06477 01 0000 006 3445 Y112 ICON 1,SM-M,STMTSQ + 06500 01 0000 010 3446 Y114 ICON 1,SM-M,ULBLK + 06501 02 0000 002 3447 Y120 ICON 2,SM-M,BLKHD + 06502 210 000 000 3448 CON PIFS,0,0 + 06503 02 0000 005 3449 Y121 ICON 2,SM-M,BEGINC + 06504 210 000 000 3450 CON PIFS,0,0 + 06505 02 0000 006 3451 Y122 ICON 2,SM-M,STMTSQ + 06506 210 000 000 3452 CON PIFS,0,0 + 06507 02 0000 174 3453 Y123 ICON 2,SM-M,FORC + 06510 210 000 000 3454 CON PIFS,0,0 + 06511 01 0000 210 3455 Y124 ICON 1,SM-M,PIFS + 06512 02 0000 206 3456 Y125 ICON 2,SM-M,IFSP + 06513 210 000 000 3457 CON PIFS,0,0 + 06514 02 0000 210 3458 Y126 ICON 2,SM-M,PIFS + 06515 210 000 000 3459 CON PIFS,0,0 + 06516 01 0204 257 3460 Y137 ICON 1,SM137-M,UOP + 06517 01 0254 157 3461 Y132 ICON 1,R2D6-M,PRHDEP + 06520 01 0154 157 3462 Y133 ICON 1,SM133-M,PRHDEP + 06521 01 0156 157 3463 Y134 ICON 1,SM134-M,PRHDEP + 06522 51256467 3464 R40 RL 2,2,1,R40D1-M,LBLSL + 06523 253 072 000 3465 CON FORMAT,STMT,0 + 06524 01000035 3466 RL 0,0,1,SM-M,APL + 06525 25000210 3467 R35 RL 1,1,1,SM-M,PIFS + 06526 072 000 000 3468 CON STMT,0,0 + 06527 01000072 3469 R35Z RL 0,0,1,SM-M,STMT + 06530 22541036 3470 R6 RL 1,0,2,BEGBLK-M,REAL + 06531 004 036 000 3471 CON BEGINB,REAL,0 + 06532 22541037 3472 RL 1,0,2,BEGBLK-M,INTGER + 06533 004 037 000 3473 CON BEGINB,INTGER,0 + 06534 22541040 3474 RL 1,0,2,BEGBLK-M,BOOL + 06535 004 040 000 3475 CON BEGINB,BOOL,0 + 06536 22541224 3476 RL 1,0,2,BEGBLK-M,OWN + 06537 004 224 000 3477 CON BEGINB,OWN,0 + 06540 22541047 3478 RL 1,0,2,BEGBLK-M,PROCED + 06541 004 047 000 3479 CON BEGINB,PROCED,0 + 06542 22541050 3480 RL 1,0,2,BEGBLK-M,ARRAY + 06543 004 050 000 3481 CON BEGINB,ARRAY,0 + 06544 22541110 3482 RL 1,0,2,BEGBLK-M,SWITCH + 06545 004 110 000 3483 CON BEGINB,SWITCH,0 + 06546 22541207 3484 RL 1,0,2,BEGBLK-M,XTRNAL + 06547 004 207 000 3485 CON BEGINB,XTRNAL,0 + 06550 01000005 3486 RL 0,0,1,SM-M,BEGINC + 06551 25213673 3487 R4 RL 1,1,1,R4D1-M,PRHDC + 06552 157 000 000 3488 CON PRHDEP,0,0 + 06553 51214273 3489 RL 2,2,1,R4D2-M,PRHDC + 06554 265 157 000 3490 CON TYPE,PRHDEP,0 + 06555 25000265 3491 RL 1,1,1,SM-M,TYPE + 06556 223 000 000 3492 CON PROC,0,0 + 06557 01215223 3493 RL 0,0,1,R4D4-M,PROC + 06560 25216273 3494 R5 RL 1,1,1,R5D1-M,PRHDC + 06561 157 000 000 3495 CON PRHDEP,0,0 + 06562 51220224 3496 RL 2,2,1,R5D2-M,OWN + 06563 265 221 000 3497 CON TYPE,ARY,0 + 06564 51217273 3498 RL 2,2,1,R5D3-M,PRHDC + 06565 265 157 000 3499 CON TYPE,PRHDEP,0 + 06566 25224265 3500 RL 1,1,1,R5D4-M,TYPE + 06567 221 000 000 3501 CON ARY,0,0 + 06570 25221224 3502 RL 1,1,1,R5D5-M,OWN + 06571 221 000 000 3503 CON ARY,0,0 + 06572 01223221 3504 RL 0,0,1,R5D6-M,ARY + 06573 51410604 3505 R7 RL 2,2,1,VAR-M,VRLIS + 06574 017 204 000 3506 CON COMMA,VRLIS,0 + 06575 51225224 3507 RL 2,2,1,R7D2-M,OWN + 06576 265 204 000 3508 CON TYPE,VRLIS,0 + 06577 25410665 3509 RL 1,1,1,VAR-M,TYPE + 06600 204 000 000 3510 CON VRLIS,0,0 + 06601 01226070 3511 RL 0,0,1,R7D4-M,AVAR + 06602 21232023 3512 R8 RL 1,0,1,R8D2-M,LPAREN + 06603 131 000 000 3513 CON FDZP,0,0 + 06604 22226165 3514 RL 1,0,2,R7D4-M,ASSIGN + 06605 070 165 000 3515 CON AVAR,ASSIGN,0 + 06606 01000071 3516 R8Z RL 0,0,1,SM-M,FDZ + 06607 26000006 3517 R11 RL 1,1,2,SM-M,STMTSQ + 06610 006 025 000 3518 CON STMTSQ,UBS,0 + 06611 26000005 3519 RL 1,1,2,SM-M,BEGINC + 06612 005 025 000 3520 CON BEGINC,UBS,0 + 06613 26000002 3521 RL 1,1,2,SM-M,BLKHD + 06614 002 025 000 3522 CON BLKHD,UBS,0 + 06615 26000174 3523 RL 1,1,2,SM-M,FORC + 06616 174 025 000 3524 CON FORC,UBS,0 + 06617 26000067 3525 RL 1,1,2,SM-M,LBLSL + 06620 067 025 000 3526 CON LBLSL,UBS,0 + 06621 26000206 3527 RL 1,1,2,SM-M,IFSP + 06622 206 025 000 3528 CON IFSP,UBS,0 + 06623 26000210 3529 RL 1,1,2,SM-M,PIFS + 06624 210 025 000 3530 CON PIFS,UBS,0 + 06625 01227016 3531 RL 0,0,1,R11D14-M,APRI + 06626 71000225 3532 R3 RL 3,2,1,SM-M,SWDESP + 06627 142 022 031 3533 CON LBRACK,RPAREN,SWDES + 06630 01000146 3534 R3Z RL 0,0,1,SM-M,SUBL + 06631 45241226 3535 R10 RL 2,1,1,R10D2-M,FOR + 06632 165 123 000 3536 CON ASSIGN,FCP,0 + 06633 21241165 3537 RL 1,0,1,R10D2-M,ASSIGN + 06634 053 000 000 3538 CON ALPL,0,0 + 06635 01000016 3539 R10Z RL 0,0,1,SM-M,APRI + 06636 25000227 3540 R12 RL 1,1,1,SM-M,AFCTP + 06637 073 000 000 3541 CON AFCT,0,0 + 06640 01000073 3542 RL 0,0,1,SM-M,AFCT + 06641 21000232 3543 R13 RL 1,0,1,SM-M,EOP + 06642 227 000 000 3544 CON AFCTP,0,0 + 06643 25000230 3545 RL 1,1,1,SM-M,ATRMP + 06644 074 000 000 3546 CON ATRM,0,0 + 06645 01000074 3547 RL 0,0,1,SM-M,ATRM + 06646 21000275 3548 R14 RL 1,0,1,SM-M,MOPE + 06647 230 000 000 3549 CON ATRMP,0,0 + 06650 25000231 3550 RL 1,1,1,SM-M,SAXP + 06651 075 000 000 3551 CON SAX,0,0 + 06652 25000257 3552 RL 1,1,1,SM-M,UOP + 06653 075 000 000 3553 CON SAX,0,0 + 06654 01000075 3554 RL 0,0,1,SM-M,SAX + 06655 21000014 3555 R15 RL 1,0,1,SM-M,AOP + 06656 231 000 000 3556 CON SAXP,0,0 + 06657 21000274 3557 RL 1,0,1,SM-M,ROPE + 06660 234 000 000 3558 CON RELP,0,0 + 06661 45000107 3559 RL 2,1,1,SM-M,IFC + 06662 024 216 000 3560 CON ELSE,AXP,0 + 06663 25000234 3561 RL 1,1,1,SM-M,RELP + 06664 077 000 000 3562 CON BPRI,0,0 + 06665 01000056 3563 R15Z RL 0,0,1,SM-M,AX + 06666 51000123 3564 R16 RL 2,2,1,SM-M,FCP + 06667 033 174 000 3565 CON FL,FORC,0 + 06670 26000056 3566 RL 1,1,2,SM-M,AX + 06671 033 054 000 3567 CON FL,DO,0 + 06672 01243162 3568 RL 0,0,1,SYND-M,ERROR + 06673 45106406 3569 R18 RL 2,1,1,R1D1-M,STMTSQ + 06674 021 006 000 3570 CON SEMCOL,STMTSQ,0 + 06675 25000174 3571 RL 1,1,1,SM-M,FORC + 06676 027 000 000 3572 CON UFORS,0,0 + 06677 25000206 3573 RL 1,1,1,SM-M,IFSP + 06700 072 000 000 3574 CON STMT,0,0 + 06701 22000020 3575 RL 1,0,2,SM-M,END + 06702 006 020 000 3576 CON STMTSQ,END,0 + 06703 72070112 3577 RL 3,2,2,SM135-M,PRHDA + 06704 273 021 105 3578 CON PRHDC,SEMCOL,PRODEC + 06705 021 000 000 3579 CON SEMCOL,0,0 + 06706 46070001 3580 RL 2,1,2,SM135-M,PRHED + 06707 021 105 021 3581 CON SEMCOL,PRODEC,SEMCOL + 06710 21106421 3582 RL 1,0,1,R1D1-M,SEMCOL + 06711 006 000 000 3583 CON STMTSQ,0,0 + 06712 01244162 3584 RL 0,0,1,SYNS-M,ERROR + 06713 21241165 3585 R17 RL 1,0,1,R10D2-M,ASSIGN + 06714 065 000 000 3586 CON BLPL,0,0 + 06715 01000077 3587 R17Z RL 0,0,1,SM-M,BPRI + 06716 25000235 3588 R19 RL 1,1,1,SM-M,NOT + 06717 100 000 000 3589 CON BSEC,0,0 + 06720 01000100 3590 RL 0,0,1,SM-M,BSEC + 06721 25000236 3591 R20 RL 1,1,1,SM-M,BFCTP + 06722 101 000 000 3592 CON BFCT,0,0 + 06723 01000101 3593 RL 0,0,1,SM-M,BFCT + 06724 21000237 3594 R21 RL 1,0,1,SM-M,AND + 06725 236 000 000 3595 CON BFCTP,0,0 + 06726 25000240 3596 RL 1,1,1,SM-M,BTRMP + 06727 102 000 000 3597 CON BTRM,0,0 + 06730 01000102 3598 RL 0,0,1,SM-M,BTRM + 06731 21000241 3599 R22 RL 1,0,1,SM-M,OR + 06732 240 000 000 3600 CON BTRMP,0,0 + 06733 25000242 3601 RL 1,1,1,SM-M,IMPP + 06734 103 000 000 3602 CON IMP,0,0 + 06735 01000103 3603 RL 0,0,1,SM-M,IMP + 06736 21000243 3604 R23 RL 1,0,1,SM-M,IMPLIC + 06737 242 000 000 3605 CON IMPP,0,0 + 06740 25000244 3606 RL 1,1,1,SM-M,SBXP + 06741 104 000 000 3607 CON SBX,0,0 + 06742 01000104 3608 RL 0,0,1,SM-M,SBX + 06743 21000245 3609 R24 RL 1,0,1,SM-M,EQUIV + 06744 244 000 000 3610 CON SBXP,0,0 + 06745 45000107 3611 RL 2,1,1,SM-M,IFC + 06746 024 155 000 3612 CON ELSE,BXP,0 + 06747 01000062 3613 R24Z RL 0,0,1,SM-M,BOX + 06750 21000246 3614 R37 RL 1,0,1,SM-M,VALUE + 06751 143 000 000 3615 CON PRHDCP,0,0 + 06752 01000273 3616 RL 0,0,1,SM-M,PRHDC + 06753 25457110 3617 R36 RL 1,1,1,SWIT-M,SWITCH + 06754 203 000 000 3618 CON SWDP,0,0 + 06755 22000023 3619 RL 1,0,2,SM-M,LPAREN + 06756 225 142 000 3620 CON SWDESP,LBRACK,0 + 06757 01000035 3621 R36Z RL 0,0,1,SM-M,APL + 06760 25562067 3622 R34 RL 1,1,1,ENDBLK-M,LBLSL + 06761 011 000 000 3623 CON BLOCK,0,0 + 06762 01562011 3624 RL 0,0,1,ENDBLK-M,BLOCK + 06763 45256003 3625 R38 RL 2,1,1,R39D2-M,BOUND + 06764 003 250 000 3626 CON BOUND,PRGRAM,0 + 06765 01000013 3627 RL 0,0,1,SM-M,UCS + 06766 22230023 3628 R26 RL 1,0,2,R26D4-M,LPAREN + 06767 145 142 000 3629 CON AVARP,LBRACK,0 + 06770 01000035 3630 RL 0,0,1,SM-M,APL + 06771 45000107 3631 R27 RL 2,1,1,SM-M,IFC + 06772 024 164 000 3632 CON ELSE,DXP,0 + 06773 01000066 3633 R27Z RL 0,0,1,SM-M,DEX + 06774 25000210 3634 R29 RL 1,1,1,SM-M,PIFS + 06775 044 000 000 3635 CON IFS,0,0 + 06776 01254472 3636 RL 0,0,1,R29D1-M,STMT + 06777 21000024 3637 R30 RL 1,0,1,SM-M,ELSE + 07000 206 000 000 3638 CON IFSP,0,0 + 07001 01000072 3639 RL 0,0,1,SM-M,STMT + 07002 25000067 3640 R31 RL 1,1,1,SM-M,LBLSL + 07003 013 000 000 3641 CON UCS,0,0 + 07004 01000013 3642 RL 0,0,1,SM-M,UCS + 07005 25000067 3643 R32 RL 1,1,1,SM-M,LBLSL + 07006 041 000 000 3644 CON FORS,0,0 + 07007 01000041 3645 RL 0,0,1,SM-M,FORS + 07010 25000067 3646 R33 RL 1,1,1,SM-M,LBLSL + 07011 012 000 000 3647 CON CMPD,0,0 + 07012 01000012 3648 RL 0,0,1,SM-M,CMPD + 07013 45255403 3649 R39 RL 2,1,1,R39D1-M,BOUND + 07014 021 250 000 3650 CON SEMCOL,PRGRAM,0 + 07015 01077550 3651 RL 0,0,1,SM22-M,DECLAR + 07016 52175273 3652 R2 RL 2,2,2,R2D1-M,PRHDC + 07017 265 157 161 3653 CON TYPE,PRHDEP,SPECLS + 07020 26116665 3654 RL 1,1,2,R2D2-M,TYPE + 07021 265 051 000 3655 CON TYPE,VRIDT,0 + 07022 53000204 3656 RL 2,2,3,SM-M,VRLIS + 07023 017 204 017 3657 CON COMMA,VRLIS,COMMA + 07024 051 000 000 3658 CON VRIDT,0,0 + 07025 25120221 3659 RL 1,1,1,R2D4-M,ARY + 07026 141 000 000 3660 CON ARSEG,0,0 + 07027 53121457 3661 RL 2,2,3,R2D5-M,ARLIS + 07030 017 057 017 3662 CON COMMA,ARLIS,COMMA + 07031 141 000 000 3663 CON ARSEG,0,0 + 07032 51125141 3664 RL 2,2,1,R2D6A-M,ARSEG + 07033 017 141 000 3665 CON COMMA,ARSEG,0 + 07034 26126110 3666 RL 1,1,2,R2D6-M,SWITCH + 07035 110 032 000 3667 CON SWITCH,SWIDT,0 + 07036 51127665 3668 RL 2,2,1,R2D7-M,TYPE + 07037 207 215 000 3669 CON XTRNAL,XPRLIS,0 + 07040 25127207 3670 RL 1,1,1,R2D8-M,XTRNAL + 07041 215 000 000 3671 CON XPRLIS,0,0 + 07042 51127615 3672 RL 2,2,1,R2D7-M,XPRLIS + 07043 017 215 000 3673 CON COMMA,XPRLIS,0 + 07044 52137003 3674 RL 2,2,2,R2D9A-M,BOUND + 07045 223 003 112 3675 CON PROC,BOUND,PRHDA + 07046 25143623 3676 RL 1,1,1,R2D9-M,PROC + 07047 112 000 000 3677 CON PRHDA,0,0 + 07050 53154112 3678 RL 2,2,3,R2D10-M,PRHDA + 07051 023 112 023 3679 CON LPAREN,PRHDA,LPAREN + 07052 055 000 000 3680 CON FPL,0,0 + 07053 25164511 3681 RL 1,1,1,R2D11-M,FPLPD + 07054 055 000 000 3682 CON FPL,0,0 + 07055 26166143 3683 RL 1,1,2,R2D12-M,PRHDCP + 07056 143 132 000 3684 CON PRHDCP,VUL,0 + 07057 51166132 3685 RL 2,2,1,R2D12-M,VUL + 07060 017 132 000 3686 CON COMMA,VUL,0 + 07061 26176157 3687 RL 1,1,2,R2D14-M,PRHDEP + 07062 157 161 000 3688 CON PRHDEP,SPECLS,0 + 07063 51176161 3689 RL 2,2,1,R2D14-M,SPECLS + 07064 017 161 000 3690 CON COMMA,SPECLS,0 + 07065 01351443 3691 RL 0,0,1,MODA-M,SDX + 07066 51112002 3692 R1 RL 2,2,1,R1D2-M,BLKHD + 07067 150 002 000 3693 CON DECLAR,BLKHD,0 + 07070 26100604 3694 RL 1,1,2,SM117-M,VRLIS + 07071 150 021 000 3695 CON DECLAR,SEMCOL,0 + 07072 26062457 3696 RL 1,1,2,SM68-M,ARLIS + 07073 150 021 000 3697 CON DECLAR,SEMCOL,0 + 07074 25000112 3698 RL 1,1,1,SM-M,PRHDA + 07075 001 000 000 3699 CON PRHED,0,0 + 07076 75000023 3700 RL 3,3,1,SM-M,LPAREN + 07077 055 022 060 3701 CON FPL,RPAREN,PRHDB + 07100 51000143 3702 RL 2,2,1,SM-M,PRHDCP + 07101 132 273 000 3703 CON VUL,PRHDC,0 + 07102 51000157 3704 RL 2,2,1,SM-M,PRHDEP + 07103 161 273 000 3705 CON SPECLS,PRHDC,0 + 07104 26000215 3706 RL 1,1,2,SM-M,XPRLIS + 07105 150 021 000 3707 CON DECLAR,SEMCOL,0 + 07106 51112004 3708 RL 2,2,1,R1D2-M,BEGINB + 07107 150 002 000 3709 CON DECLAR,BLKHD,0 + 07110 76000203 3710 RL 3,3,2,SM-M,SWDP + 07111 165 166 150 3711 CON ASSIGN,SWL,DECLAR + 07112 021 000 000 3712 CON SEMCOL,0,0 + 07113 26000067 3713 RL 1,1,2,SM-M,LBLSL + 07114 013 021 000 3714 CON UCS,SEMCOL,0 + 07115 25000006 3715 RL 1,1,1,SM-M,STMTSQ + 07116 006 000 000 3716 CON STMTSQ,0,0 + 07117 25000002 3717 RL 1,1,1,SM-M,BLKHD + 07120 002 000 000 3718 CON BLKHD,0,0 + 07121 01245162 3719 RL 0,0,1,SYN-M,ERROR + 07122 51000156 3720 R42 RL 2,2,1,SM-M,IF + 07123 062 107 000 3721 CON BOX,IFC,0 + 07124 01243162 3722 RL 0,0,1,SYND-M,ERROR + 07125 26000067 3723 R44 RL 1,1,2,SM-M,LBLSL + 07126 013 024 000 3724 CON UCS,ELSE,0 + 07127 01243162 3725 RL 0,0,1,SYND-M,ERROR + 07130 3726 LITERA RES NLIT + 3727 STFA FORM 4,5,15 + 3728 STFB FORM 9,15 + 07326 05 04 00000 3729 BASEA STFA 5,4,0 + 07327 05 04 00000 3730 STFA 5,4,0 + 07330 05 04 00000 3731 STFA 5,4,0 + 07331 05 04 00000 3732 STFA 5,4,0 + 07332 05 04 00000 3733 STFA 5,4,0 + 07333 05 04 00000 3734 STFA 5,4,0 + 07334 05 04 00000 3735 XPON STFA 5,4,0 + 07335 05 04 00000 3736 STFA 5,4,0 + 07336 05 04 00000 3737 STFA 5,4,0 + 07337 05 04 00000 3738 STFA 5,4,0 + 07340 05 04 00000 3739 STFA 5,4,0 + 07341 05 04 00000 3740 STFA 5,4,0 + 07342 05 00 00000 3741 STFA 5,0,0 + 07343 05 00 00000 3742 STFA 5,0,0 + 07344 05 00 00000 3743 STFA 5,0,0 + 07345 24007345 3744 IO DATA $+024000000 + 07346 0 00 00000 3745 START HLT + 07347 0 76 07131 3746 LDA =1 + 07350 0 35 17777 3747 STA 017777 + 07351 0 50 17777 3748 SKE 017777 + 07352 0 01 07471 3749 BRU STRT0 + 07353 0 71 07406 3750 LDX STRTN + 07354 2 76 07471 3751 LDA BASEB+NIMF,IX2 + 07355 0 55 07403 3752 ADD STRTK + 07356 2 35 11316 3753 STA BASSB+NIMF,IX2 + 07357 0 41 07354 3754 BRX $-3 + 07360 0 76 07401 3755 LDA STRTB + 07361 0 55 05161 3756 ADD A3 + 07362 0 35 05265 3757 STA A15B + 07363 0 76 07404 3758 LDA STRTL + 07364 0 35 05266 3759 STA A15L + 07365 0 76 07402 3760 LDA STRTC + 07366 0 35 05267 3761 STA A16 + 07367 0 71 07405 3762 LDX STRTM + 07370 2 76 07620 3763 LDA BASEC+LIMF,IX2 + 07371 2 35 13272 3764 STA BASSC+LIMF,IX2 + 07372 0 41 07370 3765 BRX $-2 + 07373 0 76 07400 3766 LDA OBJ4 + 07374 0 50 16000 3767 SKE OBJTY BRM OBJTY + 07375 0 01 07471 3768 BRU STRT0 + 07376 0 35 04421 3769 STA OBJT + 07377 0 01 07471 3770 BRU STRT0 + 07400 0 43 16000 3771 OBJ4 BRM OBJTY + 00011276 3772 BASSB EQU BASEA+1000 + 00013246 3773 BASSC EQU BASSB+1000 + 07401 0 00 11276 3774 STRTB PZE BASSB + 07402 0 00 13245 3775 STRTC PZE BASSC-1 + 07403 00003452 3776 STRTK DATA BASSC-BASEC + 07404 0 00 01750 3777 STRTL PZE BASSB-BASEA + 07405 77777754 3778 STRTM DATA -LIMF + 07406 77777760 3779 STRTN DATA -NIMF + 07451 3780 AORG BASEA+NIMF+STL + 07451 002 07573 3781 BASEB STFB 2,BASEC-1 + 07452 003 07574 3782 STFB 3,BASEC + 07453 002 07575 3783 STFB 2,BASEC+1 + 07454 002 07576 3784 STFB 2,BASEC+2 + 07455 002 07577 3785 STFB 2,BASEC+3 + 07456 005 07600 3786 STFB 5,BASEC+4 + 07457 003 07602 3787 STFB 3,BASEC+6 + 07460 001 07603 3788 STFB 1,BASEC+7 + 07461 002 07604 3789 STFB 2,BASEC+8 + 07462 003 07605 3790 STFB 3,BASEC+9 + 07463 002 07606 3791 STFB 2,BASEC+10 + 07464 002 07607 3792 STFB 2,BASEC+11 + 07465 004 07610 3793 STFB 4,BASEC+12 + 07466 004 07612 3794 STFB 4,BASEC+14 + 07467 005 07614 3795 STFB 5,BASEC+16 + 07470 001 07616 3796 STFB 1,BASEC+18 + 07471 0 40 20400 3797 STRT0 BPT 1 + 07472 0 01 07474 3798 BRU $+2 + 07473 0 01 07500 3799 BRU STRT1 + 07474 0 71 07507 3800 LDX STRT5 + 07475 2 76 07652 3801 LDA STRT3,IX2 + 07476 2 35 04562 3802 STA READ,IX2 + 07477 0 41 07475 3803 BRX $-2 + 07500 0 40 20200 3804 STRT1 BPT 2 + 07501 0 01 00253 3805 BRU FETCH + 07502 0 71 07510 3806 LDX STRT6 + 07503 2 76 07704 3807 LDA STRT4,IX2 + 07504 2 35 04614 3808 STA WRITE,IX2 + 07505 0 41 07503 3809 BRX $-2 + 07506 0 01 00253 3810 BRU FETCH + 07507 77777746 3811 STRT5 DATA STRT2-STRT3 + 07510 77777746 3812 STRT6 DATA STRT3-STRT4 + 07574 3813 AORG BASEB+NIMF+STL + 07574 21226260 3814 BASEC TEXT 4,ABS + 07575 62312745 3815 TEXT 4,SIGN + 07576 44462460 3816 TEXT 4,MOD + 07577 44314560 3817 TEXT 4,MIN + 07600 44216760 3818 TEXT 4,MAX + 07601 21512363 3819 TEXT 8,ARCTAN + 07602 21456060 + 07603 01256747 3820 TEXT 4,1EXP + 07604 43456060 3821 TEXT 4,LN + 07605 25674760 3822 TEXT 4,EXP + 07606 62505163 3823 TEXT 4,SQRT + 07607 23466260 3824 TEXT 4,COS + 07610 62314560 3825 TEXT 4,SIN + 07611 25452431 3826 TEXT 8,ENDIO + 07612 46606060 + 07613 31454764 3827 TEXT 8,INPUT + 07614 63606060 + 07615 46646347 3828 TEXT 8,OUTPUT + 07616 64636060 + 07617 31466060 3829 TEXT 4,IO + 3830 * READ ONE HOLLERITH CODED CARD,UNIT 1,W BUFFER + 07620 0 00 00000 3831 STRT2 PZE READ CARD + 07621 0 40 20100 3832 BPT 3 + 07622 1 00 07132 3833 TYY =052000000 CARRIAGE RETURN + 07623 0 43 04554 3834 CARD1 BRM CARD+20 CLEAR W AND DISCONNECT + 07624 0 40 12006 3835 SKS 012006 SKIP IF READER IS READY + 07625 0 01 04534 3836 BRU CARD+4 + 07626 0 02 02606 3837 EOM 02606 START CARD READER + 07627 0 71 07316 3838 LDX =-20 + 07630 2 32 00026 3839 WIM IMAGE+20,IX2 READ 4 CHARACTERS + 07631 0 40 21000 3840 SKS 021000 SKIP IF BUFFER READY BEFORE LAST WORD + 07632 0 01 04544 3841 BRU CARD+12 + 07633 0 01 04551 3842 BRU CARD+17 READ ERROR-CARD FEED + 07634 0 41 04540 3843 BRX CARD+8 + 07635 0 40 20010 3844 SKS 020010 SKIP IF NO BUFFER ERROR + 07636 0 01 04551 3845 BRU CARD+17 READ ERROR-DATA TRANSMISSION + 07637 0 43 04554 3846 BRM CARD+20 CLEAR W AND DISCONNECT + 07640 0 51 04530 3847 BRR CARD **EXIT** + 07641 1 76 00022 3848 ERR 'B' INPUT ERROR. RE-READ LAST CARD + 07642 0 00 00000 3849 HLT + 07643 0 01 04533 3850 BRU CARD+3 + 07644 0 00 00000 3851 PZE *ENTRY* + 07645 0 02 00000 3852 EOM DISCONNECT + 07646 0 40 21000 3853 SKS 021000 SKIP IF BUFFER IS READY + 07647 0 01 04556 3854 BRU CARD+22 + 07650 0 51 04554 3855 BRR CARD+20 *EXIT* + 07651 00000107 3856 DATA 71 HICOL. HIGHEST CARD COLUMN + 3857 * PUNCH TAPE + 07652 0 00 00000 3858 STRT3 PZE + 07653 0 76 07325 3859 PNCHT LDA =BUF + 07654 0 35 04612 3860 STA PUNCH+24 + 07655 0 76 00026 3861 LDA BUF + 07656 0 66 00017 3862 RSH 15 + 07657 0 14 07315 3863 ETR =037 + 07660 0 54 07131 3864 SUB =1 + 07661 0 35 04613 3865 STA PUNCH+25 + 07662 0 40 21000 3866 BRTW + 07663 0 01 04571 3867 BRU PUNCH+7 + 07664 0 02 01644 3868 EOM 01644 PUNCH TAPE WITH LEADER + 07665 0 12 44612 3869 PNCHT1 MIW *PUNCH+24 + 07666 0 61 04612 3870 MIN PUNCH+24 + 07667 0 60 04613 3871 SKR PUNCH+25 + 07670 0 01 04575 3872 BRU PUNCH+11 + 07671 0 40 20010 3873 SKS 020010 + 07672 0 00 00000 3874 HLT BAD PAPER PUNCH + 07673 0 02 14000 3875 EOM 014000 + 07674 0 40 21000 3876 SKS 021000 + 07675 0 01 04604 3877 BRU PUNCH+18 + 07676 0 02 00000 3878 EOM 0 + 07677 0 46 30003 3879 CLR + 07700 0 35 00060 3880 STA BUF+26 + 07701 0 51 04562 3881 BRR PUNCH + 07702 0 00 00000 3882 PNCHTA PZE 0 + 07703 0 00 00000 3883 PNCHTB PZE 0 + 07704 3884 STRT4 RES 0 + 10026 3885 AORG BASEC+LIMF+2*STL + 07130 3886 AORG LITERA + 3887 END + 07130 77777777 + 07131 00000001 + 07132 52000000 + 07133 54000000 + 07134 00000002 + 07135 77000000 + 07136 74000000 + 07137 35000000 + 07140 34000000 + 07141 55000000 + 07142 60000000 + 07143 12000000 + 07144 00000004 + 07145 00000000 + 07146 00000003 + 07147 00000264 + 07150 00000025 + 07151 56000000 + 07152 14000000 + 07153 00000254 + 07154 00000021 + 07155 00000020 + 07156 00000261 + 07157 00040000 + 07160 00000377 + 07161 00007777 + 07162 20000000 + 07163 77777775 + 07164 00001777 + 07165 07770000 + 07166 00001600 + 07167 00000010 + 07170 00000011 + 07171 00000777 + 07172 00600000 + 07173 00077777 + 07174 60100000 + 07175 00000005 + 07176 60606060 + 07177 00000027 + 07200 10450000 + 07201 20100000 + 07202 04100000 + 07203 00005225 + 07204 40000000 + 07205 01000000 + 07206 03177777 + 07207 00000013 + 07210 00000015 + 07211 00000006 + 07212 00000007 + 07213 24000000 + 07214 00000030 + 07215 77700000 + 07216 10000000 + 07217 00007326 + 07220 00000165 + 07221 00000023 + 07222 06000000 + 07223 02000000 + 07224 00000067 + 07225 34007325 + 07226 00000400 + 07227 00000072 + 07230 77777776 + 07231 40100000 + 07232 77600000 + 07233 02677772 + 07234 40750000 + 07235 77777772 + 07236 00000073 + 07237 00002441 + 07240 00100001 + 07241 47777777 + 07242 60400000 + 07243 04000000 + 07244 24407334 + 07245 00000035 + 07246 00000226 + 07247 00003370 + 07250 00000016 + 07251 00000017 + 07252 00000022 + 07253 00000014 + 07254 00000276 + 07255 00000274 + 07256 61000000 + 07257 76000000 + 07260 00000275 + 07261 00000024 + 07262 00000245 + 07263 00000243 + 07264 00000232 + 07265 00003621 + 07266 44000000 + 07267 00000063 + 07270 77777761 + 07271 00100000 + 07272 30250000 + 07273 00200000 + 07274 52224645 + 07275 77777771 + 07276 40000017 + 07277 60250000 + 07300 00005404 + 07301 00000260 + 07302 00000077 + 07303 07700000 + 07304 03000000 + 07305 50000000 + 07306 30000000 + 07307 00400000 + 07310 64000000 + 07311 77777750 + 07312 40350000 + 07313 00050000 + 07314 02100000 + 07315 00000037 + 07316 77777754 + 07317 77777764 + 07320 77777730 + 07321 77777741 + 07322 37000000 + 07323 77776000 + 07324 77777745 + 07325 00000026 \ No newline at end of file