x ,55@P C t+>+<^D3Th7*<<^L>/^D36>>>.(A)C2e"P C2eP C2eBP C2eBP C2ebP C2exg `8C:' AH TXZ A,-1-<B>TXZ A,-1-C,<..V22==Bd0> REPEAT ..V22-<dPa>+1,< %%W==.dp.V1/^D32 %%X==e..V1-%%W*^D32 e0IFE C,BRKC1 \"<%eP%W+"0"> IFN Cep,BRKC2 \"<%%W+"0"f> ..V1==..V1+1 > .V1+1 EJ\4  fP5 WA.==WA.!<1B<%%X>> AEJ\4@ g; WA.==WAg0.&<-1-1B<%%X>> &<-1-1B<%%X>> EJ\: b %%FOO==b0a BRK0 (%%FOO,B,0)  (%%FOO,EJn:g j8] BRINI. AjX,B,C,D IRPCjx E,< UNBRK. "E"k> IRPC F,< BRk8KCH. "F"> EXPkX W0.,W1.,W2.,W3. W1.,W2.,W3. ES| U(, REPEAT UH3,< TXCE A,1B<B>!1B<C> >BIpFE I,< TITLE A - J %BEG(0H) >> ;+.PARAP -8 ;XXX137 MACRpO TO SETUP LOCATION 137 WITH THE S0PECIFIED ;-VERSIPON NUMBER. NOTE: pTHE MACRO DOES ITS OWN "LOC" AND "0RELOC". DEFINE PK137, LOC 137 BYTE (3)K0WHO(9)KVER(6)KMPIN(18)KEDT ; A p%BEG(H)-I RELOC SALL > I0FE I,< IF2, LOC 137 BpYTE (3)KWHO(9)KVER(6)KMIN(18)K0EDT ; A %BEG(PH) RELOC SALpL >> ; MACRO  TO DEFINE VERSION 0 # AT CURRENT LOC PATION ;+.PARA -8 p ;XXXVRS MACRO T!O DEFINE THE VERS!0ION NUMBER AT AN !P ;-ARBITRARY USER!p LOCATION. DEFI"NE KVRS, "PBYTE (3)KWHO(9)"pKVER(6)KMIN(18)#KEDT ; A %BEG#0(H)-I SALL >#P IFE I,< IF2,<#pLALL> BYTE (3)$KWHO(9)KVER(6)K$0MIN(18)KEDT ; A$P %BEG(H) SA$pLL >> ; GENERA%TE A PASS2 PRINTX%0 STATEMENT ;+.PA%PRA -8 ;-XXXPTX G%pENERATES A PASS2 &PRINTX STATEMENT.&0 DEFINE KPTX,<&P IF2,< IFG I&p, I'0FE I,'p>> ;+.PARA -8 ( ;XXXSTL THE XXXS(0TL MACRO GENERATE(PS A NEW PAGE ;VI(pA THE MACRO PAGE )PSEUDO-OP AND OPT)0IONALLY ;DEFINES)P A NEW SUBTTL COM)pMAND. THE CALL IS* "XXXSTL (COMMENT*0)". ;IF THE XXXS*PTL MACRO IS CALLE*pD WITH A NULL ARG+UMENT A COMMENT +0; LINE IS GENERAT+PED AT THE BOTTOM +pOF THE CURRENT PA,GE ; AND AT THE ,0TOP OF THE NEXT P,PAGE INDICATING TH,pAT THE PAGE ;-HA-S BEEN CONTINUED.-0 DEFINE KSTL (-PTEXT),,< SUBTTL TEXT. PAGE > IFB ,< LALL P.PAGE ; CONTINUED .pTO NEXT PAGE SA/LL ; CONTINUED F/0ROM PREVIOUS PAGE/P >> ;+.PARA -8 /p ;XXXUNV MACRO TO0 GENERATE A UNIVE00RSAL STATEMENT. T0PHE MACRO IN ;EFF0pECT IS AN EXACT C1OPY OF THE XXXTTL10 MACRO EXCEPT THA1PT THE ;-WORD "UN1pIVERSAL" REPLACES2 THE WORD "TITLE"20. DEFINE KUNV,2PIFE I3P,< LALL UNIVE3pRSAL A - J %B4EG(H) SALL 40>> ;+.PARA -8 4P;XXXERR MACRO TO 4pTYPE A FATAL ERRO5R MESSAGE ON THE 50 ;USER'S TERMINAL5P. THE CALL IS OF 5pTHE FORM: ;.BREA6K ;XXXERR (ZZZ,E60RROR MESSAGE,)6p ;.BREAK ;ZZZ I7S THE 3-CHARACTER70 ERROR CODE, ERRO7PR MESSAGE IS THE 7pASCIZ ;STRING TO8 BE TYPED ON THE 80TERMINAL AND PDP-8P10 INSTRUCTION IS8p ;AN OPTIONAL AR9GUMENT INDICATING90 WHAT THE USER WA9PNTS TO DO ;ABOUT9p THE ERROR JUST T:YPED. IF THE ARGU:0MENT IS NULL AN :P;-EXIT IS EXECUTE:pD. DEFINE KERR; (COD,MSG,INSTR),;0< ...'COD: JRST ;P[ OUTSTR [ASCIZ;p \ ? K'COD MSG\<] IFNB ,<0 IFB , ]> 

GE IS ISSUED RATH>0ER THAN A FATAL A>PND ;-THE DEFAULT>p PDP-10 INSTRUCTI?ON TO BE EXECUTED?0 IS "JRST .+1". ?P DEFINE KWRN (CO?pD,MSG,INSTR),< .@..'COD: JRST [ @0OUTSTR [ASCIZ \ @P% K'COD MSG\] @pIFNB , IFB A0, ]> AP STOPI>>STOPI>Ap> PURGE l,m,n URGE l,m,FDrwQ @FDrQP'FDrSQ @FDrWQ 8FDrWQ xFDrZQ @FDrQ 8FDrQ FDrQ ?`FE KP FE K"P FE MP FE "P FE bP FE "P FE P FE P FE "P FE P FE "P FE 9P FE h"P FE hbP FE iP FE i"P FE lP FE,P FELbP FEYBP Gb' `*Gbv `7G@ qOP%%CA (A,B,)OP%%CA (AGD tH$OP%%CA (A,B,A)P%%CA (AGDP rHOP%%CA (A,B,E)P%%CA (AGDp sOP%%CA (A,B,G)P%%CA (AGDy  sHOP%%CA (A,B,GE)%%CA (AGE@ qH OP%%CA (A,B,L)P%%CA (AGEI  rOP%%CA (A,B,LE)%%CA (AGE` t OP%%CA (A,B,N)P%%CA (AG ,+Q `G ,,PP'G ,;Q `G ,  `G"\q ` G&tkg VH8 DEFINE VhINFO.(OPCODE,NEWAWRG)< OPCODE NEWARG> OPCODE NEWG0tyP G0tH:P G0tKP G0u@P G0uk1P G0u}:P G0v,zP G2~9  G3)T 2G3)W 4G3P G3kbP G3= `.G4t;ZP'G4v[HQ @G4v[IQ G4v[IQ G4v[JQ G4v[XQ xG6 HbP G6 i `DG6%iBP G6LP G6t\BP G6v;BP G8-[QP G8-[YP `G8-[ZP'pG8-[\Q @G:;"P G:M"P G:"P G:hbP G:iBP G:k"P G:kbP G:9P G:YP G:YBP G:,= `,G>n  `3G>vC@ KhfLALL L PAGE ;(CONTINL(UED ON NEXT PAGE)LH SALL ;(COLhNTINUED FROM PREVIOUS PAGE) REVG?T P=ASCIZ .COPYRIGHT CIZ .COPG?P `GHv88P GHv<Q GHv<{Q GRe+q `GX.-7Q @I,j7 `"I-[w `!I$P `I tQ @I tvQ I t;WP `I t;ZP ~I t<Q I tHwP'I u xQ I u\qQ I ukPQ I ulQ @I uyVQ I v [Q I v*Q @I v83Q I v=Q `I v=xQ I vN8Q 8I vXqQ `I vXzQ xI vX|P'I v[WP I v[ZP I w+:Q I$} `I%@ `I%}: `I&+ `I = `I*g `/I6= \h~ ..OLD==]10 ..TYP==3 IF](E <C>+1,..TYP==0]H IFE <C>-^O7777]h77,..TYP==1 IFE ^<C>-^O777777B17,^(..TYP==2 ..POS==^HPOS(<C>) ..WID=^h=WID(<C>) RADI_X 10 DF%%ST (\._(.TYP,A,<B>,\..P_HOS,\..WID) PURG_hE ..OLD,..TYP,..POS,..WIDTYP,..PI ` `5I4: `I4y7 `I5KV `#I5h6 `I5| `,Cb'E IFE 3-..C,b( OPS ,[POINT bHE,C'E,D] > bh ..C==..C+1> PURGE ..C>  PIt;Q It;Q @It P ILhbP ILiP ItMBP Iu"P IuLBP IvbP IvhbP Iw P I-BP I& "P I& BP I& "P I& ("P I& <P I& K"P I& hbP I& s@ `9I& "P I& bP I& BP I& "P I& hbP I& lP I& lBP I&hbP I'3@ `(I'7 y0KOP%%IN (A,B,DIV)%IN (AI6 :bP I6yBP I64hBP I6MIBP I6v BP I7JP I7jP I7=h"P I8tSP'I8t:P'I8t>>A,Q @ L$]Q 8@L% 0Q 2L% SQ 8L%6Q @ L%uQ 8L%\QQ 8 L%|Q 8L& TQ 0L&Q 0L&)Q 0L&95Q 0@L&:6Q 1L&;1Q 8L&=Q 8L&=8Q 0 L&X6Q XL&YQQ 8L'(Q PL-@Q L-\ZQ  L.P L/6Q L/ Q L/ wQ L4H2Q L4lRQ 8L5TQ L<P L<]P L> iQ @L>!<->>- MJ Y' XH^ OLD%%%=Xh=10 RADIX 8 YN%%%==0 IRP AY(,< FR%%AM (A,\YH) N%%%Yh==N%%%+1 > AZDD P,[N%%%,,N%%%]Z( PUSHJ P,b ZH SKIPA AOS -ZhN%%%(P) SUB P,[[N%%%,,N%%%] P[(OPJ P, b: R[HADIX OLD%%% PUR[hGE N%%%,OLD%%% E N%%%,OLD%%% MJ]7 `#MJ,: `MLu[QQ MLu]vQ @MLv,pQ MLv-vQ @MLv\pQ MLv]vQ @MN;P MN. pOP%%FP (A,B,FSBR)FP (AMN68"P MNMI"P MNMIBP MNMKP MNN;BP MNl;BP MNt> .IF A,NEEEDED, JH .IF A,OPDEF ,<Jh.IFN A,LOCAL,> .IF K(A,LOCAL , >> TERNO>= `ORn9g  pY .XCREF 1P HRROI A,.GT1pWCH .CREF GE2TTAB A, .XCR20EF MOVEI A,02P TXNN A,JW.W*MS TXO A,.JWW*0PO_ TXNE A,J*pW.WCN TXO A,J+W.WFL .CREF .WFL .CREF ORvKG `:OSFKG `;Qf@ +QuQ Qv*7Q Qv,Q Qv-Q @Qv-Q Qv-uQ Qv-xQ Qv-zQ Qv91Q Qv=xQ @Q&\@ `QC `SuXB)>>&<B>>S7P S}P S>BP S>$\BP S>-yBP S>5iBP S>6 BP S>EI"P S>M|P S>N bP S>f("P S>fI"P S>tN `+S>t[z :S>uiP S>u|P S?BP S?I"P S? "P S? ATXO A,<B>TXO A,<BS?%I"P S?%]BP S?,YBP S?-hbP S?4i"P S?5I"P S?6 BP S?=I"P S@t9PP @S@t9QQ @S@t9QP S@t9RP `S@t9VQ S@t9VP S@t9WQ S@t9XP$S@t9YQ S@t9YQ S@t9ZQ S@t9[P"S@t9]P!S@t<1P'S@t<2Q xS@t<7P S@t<8P'~S@t<8Q S@t<9P S@t<9P'~S@t<Q SBbP SB*"P SB*BP SB+BP SB,P SB9BP SBIP SBKBP SBM"P SBiBP SBl' `2SBlG `1SBlg `1SBm"P SB"P SBbP SB"P SBkP SBkBP SBlP SB BP SB "P SB BP SBP SB,BP SB,bP SB-"P SB."P SBKP SBYBP SBZ"P SB\P UuHZQ UuHyQ ?pUuL|Q UuMQ @UuMQ UvXUQ UvXqQ UvYQ UvYQQ @UvZPQ @UvZQQ UvZWP Uv[Q Uv[6Q Uv[RQ Uv[ZQ @Uv[pQ Uv\WQ Uv]Q U ] `%U +,U +(U  +$Ut-3P UtH2Q Uu\uQ ~Uv ZQ `Uv9Q Up +U~` +"U,t7Q U,t]PQ U,u+qQ xU,v\Q U,vxzP'U,v|ZQ @U. .BP U.%h"P U.LP U.M+BP U.My"P U.v BP U/hbP U/|P U> 5 `!U>= `U>= `U?0 +0U@t8qQ U@tLQ 0U@t[XQ U@u Q pU@uQ @U@uHuQ @U@uY:Q U@ulxQ U@v uQ U@v-Q U@v<Q U@v<Q U@vLXQ UKI@ +ULtIYP ULv6P ULvxP ULvyP ULv P ULv P ULv P ULv TP ULw `P UVn  Sh:IFE <<B>_T1>,< IFE <B>,< T( JUMP A,D > THIFN <B>,< IFE <Th<C>&<B>>,< JUUMPL A,D > IFNU( <<C>&<B>>,< UHJUMPGE A,D >>>Uh IFN <<B>_1>,< V TXCA A,<<C>&<V(B>> JRST .+5 VH TXCE A,<<C>&<VhB>> JRST D TWXNE A,<<-<C>-1>W(&<B>> JRST D >>> JRST D UVn ' Oh IFE <<BP>_1>,< IFE <B>,P(< JUMPA A,D PH> IFN <B>,< IFPhE <<C>&<B>>,< Q JUMPGE A,D > Q( IFN <<C>&<B>>,QH< JUMPL A,D Qh>>> IFN <<B>_1>R,< TXCA A,<<CR(>&<B>> JRST .+RH5 TXCE A,<<C>Rh&<B>> JRST .+3S TXNN A,<<-<CS(>-1>&<B>> JRST D >>> JRSTUVn  Wh IFDIF <XB><C>,< JFCL 1X(,.+1 JRST .+1XH IFNB <B>,< JXhFCL 1,B IFNB Y<C>,<Y(D>,<YHE>,< JRST C>>>> Yh IFB <B>,< JFCL Z1,i IFIDN <CZ(><D>,ZH<E>,< JRST C>>>Zh > IFDIF <C>[<D>,< HRLOI A[(,-2 IFNB <C>,[H< AOBJP A,C [hIFNB <D>,<E>,>> IFB <C>,<E>, I]FIDN <D><E>,> > ]H IFDIF <D><E>,<]h IF2,> MOVEI A,^h0 BLT A,0 _ IFNB <D>,< JUMP_(E A,D IFNB <_HE>,< JRST E>> _hIFB <D>,< JUMPN `A,E> > i:A,E> > i:U\vx6Q ?`U\vxwQ U\vyQ U\vyQ U\vyQ U\vyTQ U\vyVQ U\v{9Q U\v{:Q @U\v|Q U\v|WQ U\v}YQ U\v}zQ W LbP WL8"P WMIBP WMJbP WMKP WN|BP W]lBP WdbP WelbP W` `@W-lP Yt;2P'Yv vQ xY$- S<1B<^L<A>>><1B<^L<A>Y tQ xY&=  `Y,u Q @Y,u Q Y,u RQ Y,u XQ Y,uKP Y,uKP Y,uKRP Y,uKXP Y.tP Y.t8"P Y.t;"P Y.t["P Y.u"P Y.ubP Y.uLP Y.v "P Y> C@ c( B (,<A>,<C>)LDB>, `Y>0 `Y>=@ `Y>=}: `Y>}=8 @YO%yG M(r IFNDEF MHLSTIN., LSTIN.==0Mh IFE LSTIN.,< NIFB <A>, .XCREF N( XLIST> LSTIN.==LSTIN.+1 INYO%{G Nh| IFG LSTION., LSTIN.==LSTINO(.-1 IFLE LSTIN.,OH< .CREF LIST> CREF LIST> [lY 'MIFG 0,< '0IF2, BYTE'P (3)MACWHO(9)MACV'pER(6)MACMIN(18)MA(CEDT ; MACTEN %4((045)-0 SALL > I(PFE 0,< IF2, BYTE (3)MACW)HO(9)MACVER(6)MAC)0MIN(18)MACEDT ; M)PACTEN %4(45) SALL >4(45) SA[3@ R<<<1_<A>>-1>B<B>>_<A>>[ v=Q ~[ v\pQ [ vx5Q @[LP [LBP [L=P [MIBP [MX"P [N P [thbP [v BP [wbP [w P [KP [h"P [y' `=[$\G `$[>&: B0 LALL BP%%A==BYTE (3)AWBpHO(9)AVER(6)AMICN(18)AEDT SALL )AEDT SALL[>v- b[?7 fp .XCREF f( TEST%%=B .IFNfH ,ABSOLUTfhE,< .CREF MOVgE A,[B] .XCREg(F > .IF ,ABSOLUTE,< TEghST%%=0 IFE <<B>h_-^D18>,< TEST%h(%=1 .CREF MOVhHEI A,<B> .XCRhhEF > IFE TEST%%i,_^D18>i(,< TEST%%=1 .iHCREF MOVSI A,(ihB) .XCREF >> j IFE TEST%%,_-^D18>-^O7jH77777>,< TEST%%jh=1 .CREF HRROkI A,<B> .XCREk(F >> IFE TEST%%kH,_^D18kh>-^O777777B17>,< l TEST%%=1 .CREl(F HRLOI A,(<BlH>-^O777777) .XClhREF >> IFE TESTm%%,< .CREF MOm(VE A,[B] .XCRmHEF > > ;[35][32mh] END OF .IF <B>n,ABSOLUTE PURGE TEST%% .CREF[@t[QQ @[@v=Q ~[@v\pQ [O%2 ` [Pr}P [PtqQ x[Pt> IFNJ(DEF A,<A==<B>>F A,<A==<B>>]t;SP ]t=P ]tH:P ]uH8P ]uH9P ]uH9P ]uK0P ]uK8P ]uK9P ]uK9P ]u[vP ]ukVP ]u|P ]v:2P ]v;VP ]vKxP ]LBP ]LP ]MkBP ]My"P ]N9BP ]thbP ]uHbP ]uMP ]uX"P ]uh"P ]uiP ]vYbP ]-BP ],bP ]nBP ]` I`HND (A,<BI@>) PRINTX %PLEASH`E USE ND MACRO, NIDS. MACRO IS NOW OBSOLETE  NOW ]%h"P ]%y"P ] HbQ h]|bQ z]5lbQ s]MYBQ ]Mj"Q {]N bQ r]N BQ x]d9"Q {]n "Q }]v+"Q v]~ BQ s]"Q q]h"Q u]-BQ ~]kQ t]\bQ x]XbP ],kbQ ]. Q }].(bQ |]>$S@ `7]LttP']LtVQ `]LtWQ x]LtP']LtqQ x]LtvP']LtzQ x]LtL:Q p]Lt[vQ ]Lt{vQ |]LuQ @]LuQ ]LuP ]LuiQ ]LuiQ ]Lv=Q x]Lvx4Q @]N )"P ]N +"P ]N +bP ]N ,bP ]RlG `C]RtP ]Rv9P ]S%hbP _t,wQ x_t,yQ _u|Q _v}Q `_@(Xp u7 .XCREF u( IFE <<B>_-^D18>uH,< .CREF CAIuhC A,<B> .XCREvF > IFN <<B>_-v0^D18>,< .CREF vP CAMC A,[B] vp.XCREF > .CREFCREF > .CREF_@(YX 0 .XCREF P IFE <<B>_^D18>,p< .CREF CI A,(B) .XCREF 0> IFN <<B>_^D18P>,< .CREF C pA,[B] .XCREF > .CREFCREF _@(Z0 z0g .XCREF zP TEST%%=0 IFE <zp<<B>_-^D18>-^O77{7777>,< IFN <<B{0>&^O777777>,< T{PEST%%=1 .CREF {p DI A,-<B> .|XCREF >> IFE TE|0ST%%,< OP%%IN |PA,<B>,C > PU|pRGE TEST%% .CREF TEST%% .CRE_@(Z7 }0w .XCREF }P IFE <<B>_-^D18>}p,< .CREF CI ~A,<B> .XCREF ~0 > IFN <<B>_-^D~P18>,< .CREF ~pC A,[B] .XCREF > .CREFCRE_@(] &^O7777=77777760>, PRINTX=( ? A IS NOT AN A=HCCUMULATOR TE=hMP%%=0 IFE <<B>>_^D18>,< IFN <B>(>,< TEMP%%=1 >H.CREF C A,(B>h) .XCREF >> I?FE <<B>_-^D18>,<?( TEMP%%=1 .CR?HEF D A,<B> ?h .XCREF > IFE T@EMP%%,< .CREF @( E A,[B] > @HPURGE TEMP%% .CREF TEMP%% .C_B-` _RF\y `_W  `_W$-3 _W$: "_W& : `_W&= &atx0Q atx3Q @atx=Q atxrQ atxxQ atzQ @at{Q at{QQ at{RQ @at|Q at|RQ at|pQ at|tQ at|vQ at|xQ at}yQ a<9"P a<:"P a:P a>YBP a%@ `$a tTQ a tTP a tQ a t*9Q a t>(Q a t>(Q a tk{Q a tm3Q a uJ8Q @a uiQ a u}SQ @a v P a vM P a vZ7Q a v\yQ a-0 ` ac@ `9auYQ auqQ @au QP'au Q xa&Jg `Ea&Mj' `.a&T*' `>a'= `0a'G `0a'g `/a'%\G `Aa*n r 5 a*n  4`a*|  ` a+= 5a+= +a+ - a+-\ 4@a+-\ 5`a+-\ 4 a+-\ 5@a.P a.%BP a.v BP a4t8sQ a4t8yQ @a4t;P"a4t<Q xa4tXhQ @a4tXhQ a4tXiQ a4tXiQ a4tXjQ a4tXjQ a4tXkQ a4tXkQ @a4t]qQ a4u8 Q a4u: Q a4u;Q a4u<`Q a4u[rP$a4u\Q @a4ulQ a4vQ a4vQ @a4v Q @a4v (Q @a4v (Q a4v )Q a4v )Q a4v *Q a4v *Q a4v +Q a4v +Q @a4v=qQ a4v>7Q a4v\Q @a4w Q a>Mm Q( B),A,POS(B)>a>\S@ `&a?H6 +a? PH<^L<A>+^LPh<-<<A>_<^L<A>>>-1>-1><^L<A>>>aJ "P aJ6[BP aJUxBP aJmyP aJu"P aJv+BP aJwbP aK-BP aK[BP aK]P aK.9"P aLth1Q aLthxQ aLthyQ aLtksQ aLtkwQ aLtlQQ aLv)P aLv)P aLv)P aLv)3P @aLv*2P"aLv*2P aLv+rP!aLv+rP aLv+vP @aLv,2P aLv,QP aLv-zP aLv;wQ @aLvK9Q @aLvh4Q aLviQ aLvj8Q aLvlQ aLvlQ aLvmQ aN)BP aN>BP aNLbP aN%kbP aNNkbP aNUi"P aNU|P aNtlbP aNuBP aNuP aNuY"P aNv,bP aNv-bP aN}yBP aOiP aO-BP aOKP aO%X"P aO%i"P aO,hBP aO-8bP aO-9BP aO-9P aPvYQ aR i"P aRt"P aRtIP aRt[BP aRtlbP aRv:BP aRv;BP aRv> <AedX9  el `et2 e87 0eMG `'e] `eD- RH<<A>&-<A>><<A>&-<Ae tP'e4v9Q e4v=8Q xe8vwQ @e@tQP e@tZP e@t)P e@t)PP e@t8YP e@t:Q e@t;8P e@t .ORG .-1 .CREFG .g/Q 6g/V 8g0tP'g0uX1Q xg0uX HbP g>LP g>L*"P g>MkP g>l.P g>tlbP g>v BP g?bP g?=\bP g@t1Q gP,DkQ gP,HSQ @gP,LuQ @gP,M6Q gP,Y9P gP,[7Q gP,[XP gP,\ZP!gP,^P @gP,mQ gP,x6P gP- Q @gP-3Q gP-RQ gP-P gP-Q gP-;Q gP-KsQ gP-LqQ gP-XRP gP-XSQ gP-YQ gP-Y9P gP-\QQ gP-\sP gP-h9Q gP-hyQ gP-iP gP-iP$gP-i9Q gP-jWP gP-kP gP-kxP gP-lVP gP-lZP gP-lrP gP-lxP @gP. [Q gP. tP gP.)Q gP.*RQ gP.-Q gP.:P @gP.,<A>,<C>)DPB>,gR~)  nH IFE <D>nh,< SETZM B> IFoE <D>+1,< SETOM o(B> IFN <D>*<<oHD>+1>, MOVEM pA,B> IFNB <Cp(>,< MOVE A,pH[B,,B+1] BLT A,C > BLT gS]7 `gTv8VQ gTv8tQ ~gTv;7Q gTv;zQ gV wp?OP%%IA (A,B,SUB,ADD)(AgW] `3gWlQ gX,;wQ gX,lP gX- 9Q @gX. P gX.)8Q `gX.:Q gX.>6Q gX.|ZQ g^NHt `gg  `gg= `i| `6it+zP"itKHP itKIP itKIP itKJP itKJP iuyVP iv);P @iv96P iv=P iv[YP$iv{P!i&l\@ ` i'%I'  - .XCREF  0 Z==0 IFNDEF  PAVER, IF pNDEF AMIN, IFNDEF AEDT, 0 IFNDEF  PAWHO, I pFL Z, .CREF IF2,<LALL> ASIX==SI0XBIT /A/ ; B ABPBREVIATION IN SIXpBIT AASC==ASCIZ /A/ ; B ABBRE0VIATION IN ASCII P SALL .XCREF p%FIRST=AMIN/^D26 IFE %FIRST,<%SE0CON==AMIN %FIRPST==0> IFG %FIRSpT,<%SECON=AMIN-<^D26*%FIRST>> IF0E AMIN-^D26,<%SEPCON==AMIN %FIRpST=0> IFE AMIN-^D52,<%SECON==^D206 %FIRST=1> ; PDEFINE ALL THE MApCROS BUILD$ (B,\AVER,\AMIN,\%F0IRST,<,A,B,C,D,E,PF,G,H,I,J,K,L,M,Np,O,P,Q,R,S,T,U,V,W,X,Y,Z>,\%SECON,0<,A,B,C,D,E,F,G,HP,I,J,K,L,M,N,O,P,pQ,R,S,T,U,V,W,X,Y,Z>,\AEDT,\AWHO0,C,A) IF2,<PPURGE %SECON,%FIRST,Z> .CREFFIRi.LbP i.MHbP i.MIBP i.MKBP i.MLbP i.thbP i.tkP i.vLbP i.w BP i/%kP i/,MbP i/-lP i7;y `i HBP i>%P i>MIBP i>M\P i>t+"P i>uBP i?(bP i?xBP i?%h"P i@tXyQ xi@tY{P iHthzQ xiHv)VP'iJmkg `&iJm| `'iK)7 ` iK9: ` iNY` `?ib  p` .XCREF 8H IFB <B>, TXC (<8h^O37777777&A>,1B9<A_-^D30>) IFNB9( <B>,< IFN <<A9H>&^O777777777760>9h, PRINTX ? A IS :NOT AN ACCUMULATO:(R IFE <<<B>_-^D:H18>-^O777777>,< :h .CREF EQVI A,;<,,-1-<B>> .XC;(REF> IFN <<<B>_;H-^D18>-^O777777>,;h< OP%%TX A,<B<>,TLC,TRC,TDC >> .CREFC,TDC >>ib 6H@ .XCREF 6h IFB <B>, OP%%T7X <^O37777777&A>7(,1B<A_-^D30>,TLC7HA,TRCA,TDCA IFNB7h <B>, OP%%TX A,8<B>,TLCA,TRCA,TDCA .CREF ,TDibP  .XCREF 0 IFB <B>, OP%%TPX <^O37777777&A>p,1B<A_-^D30>,TLC E,TRCE,TDCE IFNB 0 <B>, OP%%TX A, P<B>,TLCE,TRCE,TDCE .CREF ,TDib` !0 .XCREF 4h IFB <B>, OP%%T5X <^O37777777&A>5(,1B<A_-^D30>,TLC5HN,TRCN,TDCN IFNB5h <B>, OP%%TX A,6<B>,TLCN,TRCN,TDCN .CREF ,TDibp 0 IFB <B>P, JFCL 0 IFNB <pB>, TRN A,<,,<B>> N A,<,,<Bibt  .XCREF 0 IFB <B>, OP%%TPX <^O37777777&A>p,1B<A_-^D30>,TLNA,TRNA,TDNA IFNB0 <B>, OP%%TX A,P<B>,TLNA,TRNA,TDNA .CREF ,TDibtC@ L(z IFE <<BLH>_<1+^L<B>>>,< LhIFE <<B>&<C>>,<M TXNN A,<B> M(> IFN <<B>&<C>MH>,< TXNE A,<BMh> >> IFN <<B>_N<1+^L<B>>>,< TN(XCA A,<<C>&<B>NH> JRST .+4 TXNhCE A,<<C>&<B>>O JRST .+3 TXNO(N A,<<-<C>-1>&<B>> >C>-1>&, OP%%T PX <^O37777777&A> p,1B<A_-^D30>,TLNE,TRNE,TDNE IFNB0 <B>, OP%%TX A,P<B>,TLNE,TRNE,TDNE .CREF ,TDibu@ Hh^ IFE <<BI>_<1+^L<B>>>,< I(IFE <<B>&<C>>,<IH TXNE A,<B> Ih> IFN <<B>&<C>J>,< TXNN A,<BJ(> >> IFN <<B>_JH<1+^L<B>>>,< TJhXCA A,<<C>&<B>K> JRST .+4 TXK(CE A,<<C>&<B>>KH JRST .+2 TXNKhE A,<<-<C>-1>&<B>> >C>-1>&, OP%%TPX <^O37777777&A>p,1B<A_-^D30>,TLNN,TRNN,TDNN IFNB0 <B>, OP%%TX A,P<B>,TLNN,TRNN,TDNN .CREF ,TDibx Pc .XCREF p IFB <B>, TXO (< ^O37777777&A>,1B 0<A_-^D30>) IFNB P <B>,< IFN <<A p>&^O777777777760> , PRINTX ? A IS  0NOT AN ACCUMULATO PR IFE <<<B>_-^D p18>-^O777777>,<   .CREF ORCMI A 0,<,,-1-<B>> .X PCREF> IFN <<<B> p_-^D18>-^O777777> ,< OP%%TX A,< 0B>,TLO,TRO,TDO >> .CREFO,TDO >ib| u .XCREF 0 IFB <B>, OP%%TPX <^O37777777&A>p,1B<A_-^D30>,TLOA,TROA,TDOA IFNB0 <B>, OP%%TX A,P<B>,TLOA,TROA,TDOA .CREF ,TDib|P U .XCREF 0 IFB <B>, OP%%TPX <^O37777777&A>p,1B<A_-^D30>,TLOE,TROE,TDOE IFNB0 <B>, OP%%TX A,P<B>,TLOE,TROE,TDOE .CREF ,TDib}` e .XCREF 0 IFB <B>, OP%%TPX <^O37777777&A>p,1B<A_-^D30>,TLON,TRON,TDON IFNB0 <B>, OP%%TX A,P<B>,TLON,TRON,TDON .CREF ,TDicP 0A .XCREF P IFB <B>, TXZ (<p^O37777777&A>,1B<A_-^D30>) IFNB0 <B>,< IFN <<AP>&^O777777777760>p, PRINTX ? A IS NOT AN ACCUMULATOPR IFE <<<B>_-^D018>-^O777777>,< p .CREF ANDI A,<,,-1-<B>> .XC0REF> IFN <<<B>_P-^D18>-^O777777>,p< OP%%TX A,<B>,TLZ,TRZ,TDZ >> .CREFZ,TDZ >>icT E .XCREF 0 IFB <B>, OP%%TPX <^O37777777&A>p,1B<A_-^D30>,TLZA,TRZA,TDZA IFNB0 <B>, OP%%TX A,P<B>,TLZA,TRZA,TDZA .CREF ,TDicTP % .XCREF 0 IFB <B>, OP%%TPX <^O37777777&A>p,1B<A_-^D30>,TLZE,TRZE,TDZE IFNB0 <B>, OP%%TX A,P<B>,TLZE,TRZE,TDZE .CREF ,TDicU` 5 .XCREF 0 IFB <B>, OP%%TPX <^O37777777&A>p,1B<A_-^D30>,TLZN,TRZN,TDZN IFNB0 <B>, OP%%TX A,P<B>,TLZN,TRZN,TDZN .CREF ,TDidtVQ idtI;P idtZQ idty7Q idu@Q iduZQ @idu+qP'~iduX7Q @iduYQ idu\Q idu}:Q idv(9P idv<Q idvh9Q if` GHB MOVX AGh,1B<B_-^D30> .HXCREF !<37777777&B> .CREF 7&B> iftS@ BH MOVX ABh,1B<B_-^D30> .CXCREF !<37777777&B> .CREF 7&B> ifuc@ Ch$ MOVX AD,1B<B_-^D30> .D(XCREF !<37777777&B> .CREF 7&B> ify` E. MOVX AE(,1B<B_-^D30> .EHXCREF !<37777777&B> .CREF 7&B> igQ` F(8 MOVX AFH,1B<B_-^D30> .FhXCREF !<37777777&B> .CREF 7&B>k.I@ `k*-` k:*g bp %%FOO==ca BRK0 (%%FOO,B,1)  (%%FOO,k:ezg `(kN.J  kN.K`  kRLP kRNKBP kRN]P kS; `kS@ `>kS-9BP kTt7Q kTt*XQ kTt=9Q 8kTtI1Q ?@kTtI6Q kTtI9Q kTtK9Q kTtlxQ kTuQQ kTuHSQ @kTv Q @kTv P"kTv,QQ kTv;rQ k`vN8P ~k`v[ZP mHtYP'mHuZ7Q xmHvi9Q |mHvzQ pmKc@ D#BYTE (3)AD0WHO (9)AVER (6)AMIN (18)AEDToN@ `o\P `o uQQ |o vMQ o".)  `o&  P<^L<-<<A>_<^L<A>>>-1>>>q"eJ  P q*-` + q+= +q+= + q6~i4 C q? BTXC A,<B>TXC A,<Bq@ G@>IFB <C>,<G`A==:<B>> IFNB <C>,<A=:<B>>>,<A>,<C>)TE>>,<A>,<C>) Q 8} .[yQ 8} ,Q  8Q  2&>9Q  2&I2Q  2&KzQ ` 2&LQ 0 2&LzQ x 2&YXQ X 2&[2Q 8 2&[TQ 8 2&[[Q p 2&\Q x 2&]Q P 2&|QQ  2&|TQ   :$=Q H8 :$I;Q  8 :%H8Q X8 :%H9Q P8 :%H9Q p8 :%I7P 8 :%K0Q h8 :%K8Q 8 :%K9Q x8 :%K9Q `8 :%[vQ 8 :%itQ (8 :%ivQ 08 :%iwQ 88 :%kVQ 8 :%nQ 8 :%|Q @8 :&9Q 8 :&:2Q 8 :&;VQ 8 :&J6Q 8 ;PQ  ;QQ x ;yQ  ;;Q H ;;Q  ;;7Q p ;;%5Q  >& 7Q  >& & PQ  >& ZQ  >&=xP  Nh2P  Nh6Q  Nh6Q  Nh9Q  Ni4Q  Nk1Q  NlQ ( NlPQ 0 NlTP  NmQ @ NnQ 8 NnQ  N(xQ X N,3Q ` NIXQ P NIZQ H NLzQ 8+ NLKvQ P+ NLiQ (+ NLyYQ h+ NMSQ + NMP + NMYQ + NMYQ 0+ NMk6Q `+ NM|Q @+ NNyQ + NN96Q H+ NNItQ X+ NNKQ + NNKvQ 0+ OIyP 1 O]yQ 1 OQ p1 O Q x1 OQ 1 O 7Q 0 O>lZQ  OL8wQ  OLI6Q  OL\YP  OMhxQ 0 OMiQ  OMjYQ ( ON:WQ 8 ON<Q  ON<Q H ON<Q ` ON=Q @ ON=8Q X ON=:Q P Zl;D)6P D8YP D8sP D;PP D;QP D;QP D;RP D;RP D;SP D;TP D;WP D;WP D;XP D;XP D;YP D;YP D;ZP D;ZP D;[P D;[P D;\P D;\P D;]P DP P ,qP -1P -6P 9P 9TP 9YP 6P hzP 5P LP MP X   PURGE .....X .ORG LIST  .$;ZP $6P &\|P v0P vVP vXP vqP vrP vsP vsP vtP vyP vzP vVP vP v0P v9P vP vTP vtP vP vP  IUP  IVP  ItP  LP  LzP  MP  ivP' jQP' lP'~8vP ;P lP |P  P  P  P  P (;P 9SP :7P <P $4P $4P $41P $4;P $4QP $4[P $4qP $4{P $5P $5P $51P $5;P $88P 5$;)P $;8P %$;:P $;;P $;SP $;WP $;vP $;yP $<5P )$<8P ($9P &IP &J6P &K8P &KVP 7&LXP &MP &\P &]1P 2&jyP 1&k P %&lZP &&xtP &xzP &zP &|wP &tj7Q ?&|qP &|vP &|*7P &|.:P &|K8P &|LP &}WP &}P &}3P &~ 6P '81P '8:P '8qP '8sP '8sP '8xP '8yP '9P '9P '9QP '9VP '9WP '9XP '9YP '9YP '9ZP ':(P ':(P ':)P ':2P ':3P ':4P ':5P ':6P ':9P ':9P ':;P ';P ';2P ';:P ';VP ';wP '<P '<P '<P '<P '<P '<P '<P '<P '<P '<P '<P '<P '<:P 'P *D A *D *A **+A *+*,A *,*:A *:*;TA *;T*;yA *;y*6A *>6*LA *L*\|A *\|*]7A *]7*i9A *i9+>{P +>{vP +>|P +>|P +>|P .%JP !.%LYP .%LZP ".%LzP !.%LzP ".& P .& P .& wP .& 1P .& RP .& yP .& zP .& yP 2^ P 6)VP 6-3P 6:2P 6;ZP 6kP 6m7P 6|P 6+qP 6 P 6=P 6HwP 6N2P 6N7P 6N8P 6N:P 6,htP 6,hyP 6,hyP 6,lP 6,lP 6,lP 6MiTQ @7P 7P 7:2P 7\YP 7m7P 7+qP 7h6P 7m6P 79P 7 2P 7 XP 7 ZP 7+@P 7-P 7-P 7-@P 7-TP 7=P 7$8yP 7$:P 7$QP ;',WP >%0P >%9P >P >P >)6P >86P >=P >=P >IP >ZP >[:P >]YP >h6P >kP >mP >y7P > xP > P >QP >qP >yP >HVP >XhP >XiP >[P >\yP d>j1P >kvP >kxP >lVP >myP >|tP > :P > zP =>*RP >+xP >-P >-P >-P >;PP >;xP >KP >LP >LYP >\RP >]P >k:P >LP ?-3P ?I;P ?[rP B x0P B xpP B xqP B xrP B xtP B y6P B ypP B z7P B |xP B }yP BUQ vBuQ |BQ zBTQ |BH:Q wBLqQ xBMQ sBMZQ uB9Q }BQ vB:Q }B(TQ tB<|Q xBi:Q tBlxQ {BnQ zB Q {B2Q uB=Q ~BKQ BK9Q BY5Q yB]7Q ~Bx5Q wB 5Q yB5 QP B5 YP B5 PP B5 TP B5 xP B5 P B5 P B5 zP B5 P B5 :P B5 YP B5 ZP B5TP B5ZP Bl,P Bl:P Bl<P Bl<P Bl ;E N=K{ 4w PRINTX %.P .SGLOW will be o.pbsolete. DEFINE .SGLOW<17> ;E N=h6 +P PRINTX %+p .SGNAM will be o,bsolete; please u,0se GETTAB .GTRFN !0instead. DEFINE .SGNAM<0> ;NE N>  !p PRINTX %" .SGPPN will be o"0bsolete; please u"Pse GETTAB .GTRDI "pinstead. DEFINE .SGPPN <7> ;E NeP NeP NeP NeP NeP Nej1P Nv9P Nv9P Nv}{woP