<0R   }kL Xe||| |E|kf|[q|y f%:da(@cTa~LpW)')o8")P)c)6L)7L)r" `)p) )MV)d!)r )u"! )\5 D)U<)<8)Ş)w)&)P{:;#fKaMvcM+bX9OY9O[9O_2;OK_;OS[;O__V {T""{T #&{T& {T,{T:;{TVN{TzQ{TE``{T\gx{T_q{Tx{Ty{U2WUX[IqLn[%!K[o8FH[XH[#;J[XI[L J[#K[[qJ[rL[ J[u"J[ #J[mM[ZLkfctCttFt=t; ?dt At9t2Atr:gtp;ts;tL^9tv>tK=tL@tSEt_=tvEt` @tgt#!Dt%!:xtc"Ct#gt{Zht Etc^Ct3aDjt}Atgt>t jt`:t`Dt`Dt`:t`: tBtC tUqBvt Bt"; tsEt|?t tX >t3<t3<dt4<t4;tgt`tF,t8@,tyZt;2wb\zgp;kMj;IqT<%!R#;hAETAXjDL hF#StH[qhH^qStHrTJwiK TK R^Ku"hK`V*KmV*MZTXRd5c5VNc5@yc62Z""'pZ]|wčynčpǍp&ǍWˍ(}ˍˍ< ˍXnˍnˍnˍnˍnˍ nˍHnˍpnˍnˍpnˍnˍnˍnˍnˍ8nˍ`nˍnˍnˍn̍"̍d̍(̍P̍x ͍̍X֍n֍n֍n֍@n֍n֍n֍n֍@n֍n֍n QS\~>S<\X>S|]>S]x>S^*>S<^?S^?S<_V?S|_2?S_?S`?S|`KS/T<>/T|>/T?/T?d/T<@,0T@0T*֍hD֍@hH֍hL֍hP T2Z6`.h:p>*T2Z 6 `.h:p>zDH..*z D H..*(2   HHJJK 2NYCRLFPREf fREFnnCLEARSO~%~CLEARECLEARL NLEND RET - @ ( ) I)! SYNTAX ERROR USING INPUT MODE   ? SETCURR\R*\R\RL(|h*|h| h|Eh |kfh|[qh |yh R4R<*4R<4R<L)&H)PH`*p@(0)'h)Ph)6Lh*) 7Lh)ph) h )U h{T""h{T:;h {TVNh{Tyh  R\S<*\S<\S<LT; z@{T@*{T:;@s@({T #h ׭s{T{T:;T; zR\S|*\S|\S| L:br@{T> @*{T #@{T:;@{TVN@(2{T,h  *e&& & Ν{T:;{T>  {TVN$:br&w {T:;{T #R\S*\S\SL{T@{TVN@"s@({Txh {TVNs{TR\S*\S\SL:@{T> @*{T #@{T:;@{TVN@(,{T\gh  * e&& & Ν{T:;{T> {TVN": &w{T #R\S<*\S<\S<L{T@{TVN@*{Ty@s@({TE`h MM{Ty{TVNs{TR\S|*\S|\S|L:Fy@{T> @*{T #@{T:;@{TVN@("{T&h  && & Νw  {T:;{T> {TVN:Fy${T #R\S *\S\SL:By@{T> @*{T #@{T:;@{TVN@(" && & Νw  {T:;{T> {TVN:By${T #R\S*\S\SL:t@{T> @*{T #@{T:;@{TVN@({T_qh  "& & Νw {T:;{T> {TVN:t {T #R\S<*\S<\S<L:!@{T> @*{T #@{T:;@{TVN@({TzQh  "& & Νw {T:;{T> {TVN:! {T # RNR%*NRNR%L)'@)6L@*)7L@) @W@Wz@WW@*Ww@Ww@Wx@Wy@WBz@*W@WZ@[8@[@[8@*[W@[@[Z@[<}@[X@*tv@t`@t|@t @tyZ@(2)Mh ( 3 3 3 3 : *t  )'[8[8[8[<}&$ 5 )SY3 U &t` )6L[[XW[<}&FU 3 3() W [<})7L[ [*he  `0000)7L [X"[8([8*005B[ =U"[8)6Lt` )7L&)  F E*Wz[<})7L[8[8[8$3EU"*[8[8)7LWw[<})7L  E&) )7L [8[8[8( 3EU. j *[8[8)7LWw[<} t`*. e 4 4 3 3  ()7L ) [W["[Z&t|&T  UEUE& t|WW[<})7LWx [<}*ve D n  ()7L [t|) )7L(t|$UEUE&W[<})7LWy[<})7L&@ : 3`U&)  )7L[Z[Z[Z "[Z*EUEw.w( &WZ[<} )7LWBz[<})7L* 5@E@%*5@ ) )7L)7L&)6L**55uu%,5f%)7L)7L")7L*P[5f%:5^V%.5 )7L)7L*vVN%;5NF%]5 F)7L)7L&)7L*>5 0> ;5e0 5 )7L)7L* & +5 A# Z )7Ltv)7L* E" @@a 52 ) &)7L(5e5e )7L)7L$tyZRNR|*NRNR|L)P@)p@*)p@}@(2)r"h * &f pp )P)p")p&}&!)pRNR*NR@NRL)P@`@()\5h & )P `RNR*NRNR L)P@)p@"}@()rh "&fp p  )P)p)p}RNR<*NRNR<L)P@hp!@()dh & )P hp!bRNRb*NRNRbL<&@' q@*'ą@'@)'@)P@)p@*)U<@)Ş@)'@)@)W@*)p@)@)t @)Bx@)@*t<@t @() u"h *&$~& )P)')')W$)P()p &5/5&)p )Şt ))Şt<B4e&))U< )Bx<&)t )*V 555&) )Ş' q)Ş '()Ş |'ąt,RNR*NRNRL)'@)P@*)@)[M@) @)P@),@*)nE@)sE@ )E@)_G@)G@*)2H@)4@)Z@)'@)Ty@*)%@)'@)^@)Ps@)@*)%@)W@)8@)p@) @*) @)w @)p@)Kq@)@*)@)t @)@)@)Bx@*)@)!@)d@)Vg@)[}@*)p@)@)@W@Wz@*WW@Ww@Ww@Wx@Wy@*WBz@W@WZ@[8@[@*[8@[W@[@[Z@[#@*[<}@[X@t; @t@tL^@* tv@Z@̍@̍P@̍x@()o8h * ENTER RETURN TO START FDB DUMP̍P*&&  HJFDB DUMP PROGRAMZ)P̍P LME R*R F.HIBK  &  &̍P̍x)8tL^"̍(̍x*x &   F.EFBK " )8tL^̍̍x̍P& &   & (̍x )%tL^̍̍x")%*   F.NRBD  & &tL^̍̍x̍P ̍x()p&   &  (tL^ ̍̍x)ptL^ ̍*   F.BKDS  & ̍x ̍x̍x̍P"̍x".   & ()sEtL^ ̍̍x)sEtL^*L  F.RCNM  & &̍ ̍x̍P̍x$)(tL^(r   &   (̍ ̍x)tL^̍"̍x*F.URBD  &   &̍P̍x) ptL^ ̍&̍x(&     ()p tL^̍̍x̍x"̍x*F.BKVB  &   &̍P̍x)2HtL^ ̍&̍x%&   F.VBN&)2H tL^̍̍x̍P(((  &   & (̍x)tL^̍̍x$)*L     F.RSIZ&tL^̍̍x̍x̍x ̍P*r  &   F.FF&̍x)BxtL^̍̍ x"̍P*BY  &   F.&̍x)%tL^̍̍x$̍P*BKST  &   & ̍x)GtL^̍ ̍x&̍P*F.BKDN  &   & ̍x)nEtL^̍"̍x(̍x*   F.OVBS  & ̍x̍P̍x")&tL^*0  F.NREC  & &̍ ̍x̍P̍x$)Kq(tL^*V   F.EOBB  & ̍ ̍x̍P̍x&)^*|   F.CNTG  &&tL^̍̍x̍P ̍x()Z*     F.ST&tL^ ̍̍x̍x̍x"̍P*BK  &   F.&̍x)[}tL^̍̍x$̍P*ALOC  &   & ̍x)[MtL^̍ ̍x&̍P F.BDBt*  &   F.SP&̍x)PtL^̍̍x"̍P*@DV  &    &̍x)dtL^̍̍x$̍x *f F.DSPT  & &̍x ̍P̍x)Ty"tL^&̍*  F.DFNB  & &̍x ̍P̍x )'$tL^(̍*  F.VBSZ  & ̍x̍P̍x")&tL^*  F.BBFS  & &̍ ̍x̍P̍x$) (tL^*     F.ACTL ̍ ̍x̍x̍x̍P*$ &   F.SEQN&̍x )tL^̍̍x ̍P(J  &    &̍x)!tL^̍̍x"̍x*n F.RTYP  &  (̍x ̍P̍x)"tL^&̍*   F.RATT  & ̍x ̍x̍P̍x&)t *    F.RACC  (tL^̍ ̍x̍x̍P&̍x*&     F.RC() tL^̍̍x̍x"̍P*TL  &     (̍x)tL^̍̍x$̍x,  F.LUN ̍x ̍x̍PB(B  &     (̍x)ptL^̍̍x"̍x*fF.FACC  &   (̍P̍x)tL^ ̍$̍x*  F.BKEF  &  (̍x ̍P̍x )E$tL^(̍    F.EFN̍x̍x̍P(  &     (̍x)'tL^̍̍x"̍x*  F.BKP1  & (̍x ̍x̍P̍x$)_G(tL^!     F.ERR ̍ ̍x̍x̍P4*4  &   F.ER&̍x)Pst̍̍x"̍PZR+1^(^  &     *̍x)PstL^̍̍x"̍x*F.MBCT  &   (̍P̍x) tL^ ̍$̍x*  F.MBC1  &  (̍x ̍P̍x ) $tL^(̍*      F.MBFG ̍x̍x̍x̍x ̍P(  &     (̍x)w tL^̍̍x"̍x*F.BGBC  &   (̍P̍x),tL^ ̍$̍x*>  F.SPUN  &  (̍x ̍P̍x )Vg$tL^(̍d    F.CHR̍x̍x̍P~(~  &     (̍x)4tL^̍̍x"̍x*   FILENAME SECTION e̍x ̍x̍P N.FID)W̍P(  &   & (̍x[8tL^̍̍x$[8$   &  (tL^̍̍x[8tL^̍  N.DID ̍x ̍P* (*  &   & (̍x[8tL^̍̍x$[8$N   &  (tL^̍̍x[8tL^̍*n    N.FNAM  & ̍x ̍x̍x̍P"̍x$    & ([Wtv ̍̍x̍x [W $    & (tv̍̍x̍x[W tv    N.DIDt̍ ̍x̍x̍P *  &    &&̍x[8t; ̍̍x"̍x$     & *[8t;  ̍̍x̍x [8&6      &t; ̍̍x̍x̍x ̍x*X N.FTYP  &   &̍P̍x[tL^ ̍&̍x*~ N.FTYP  &  &̍P̍x[tv"̍(̍x*   N.FVER  & ̍x̍P̍x"[Z&tL^*   N.STAT  & &̍ ̍x̍P̍x$[<}(tL^*     N.NEXT ̍ ̍x̍x̍x̍P*  &   N.DVNM&̍x [#tL^̍̍x ̍P(<  &    &̍x[t; ̍̍x"̍x*` N.UNIT  &   &̍P̍ x[XtL^ ̍&̍x*    NB.VER  &E ̍x ̍x[<}̍P"̍x* % 0 1  NB.T)WZ WZ̍x̍x̍x"̍P* YP  &E% 0 1 )̍xW W̍x"̍x(̍x*  NB.NAM  &E% 0#̍P̍xWW  WW&̍x*  1  NB.SVR  &E#̍x̍x̍P ̍x(WBz *D % 0 1  NB.STP WBz ̍x̍x ̍x ̍P*j  &E% 0 1  )̍xWy Wy̍x ̍x&̍x* NB.SNM  &E% 0#̍P̍xWx Wx$̍x* 1    NB.DIR ̍x ̍x̍x̍x̍P*  &E% 0 1  )̍x Wz Wz̍x̍x$̍x* NB.DEV  &E% 0 #̍P̍xW W"̍x*( 1  NB.SD1  &E%)̍x ̍x̍P̍x$Ww ( Ww*N  0 1  NB.SD2 ̍x̍x̍x̍P(̍x*t  &E% 0 1  ) Ww Ww̍x̍x"̍x(̍x*    DEFAULT FILENAME SECTI̍x̍P ON  N.FID )'̍P (  &   & (̍x[8tL^̍̍x$[8$   &  (tL^̍̍x[8tL^̍ N.DID ̍x ̍P(((  &   & (̍x[8tL^̍̍x$[8$L   &  (tL^̍̍x[8tL^̍*l   N.FNAM  & ̍x ̍x̍x̍P"̍x$    & ([Wtv ̍̍x̍x [W$    & (tv̍̍x̍x[W tv   N.DIDt̍ ̍x̍x̍P*  &    &&̍x[8t; ̍ ̍x"̍x$    & *[8t;  ̍̍x̍x [8&4      &t; ̍̍x̍x̍x ̍x*VN.FTYP  &   &̍P̍x[tL^ ̍&̍x*| N.FTYP  &  &̍P̍x[tv"̍(̍x*  N.FVER  & ̍x̍P̍x"[Z&tL^*  N.STAT  & &̍ ̍x̍P̍x$[<}(tL^*     N.NEXT ̍ ̍x̍x̍x̍P* &   N.DVNM&̍x [#tL^̍̍x ̍P(:  &    &̍x[t; ̍̍x"̍x*^N.UNIT  &   &̍P̍x[XtL^ ̍&̍x*   e NB.VER  &̍x ̍x[<}[<}̍P&̍x*&E% 0 1  )WZ  WZ̍x̍x ̍x&̍P*NB.TYP  &E % 0 1# ̍xW W̍x&̍x*  NB.NAM  &E% #̍x ̍P̍x WW $WW*0 1  NB.SVR  & ̍x ̍x̍x̍P$̍x*BE% 0 1  NB)WBz  WBz̍x̍x̍x$̍P *h.STP  &E% 0 1 # ̍xWy Wy̍x$̍x}* NB.SNM  &E% )̍x ̍P̍xWx "Wx(̍x*0 1    NB.D  ̍x̍x̍x̍x"̍P*IR  &E% 0 1 )̍xWz Wz̍x"̍x(̍x* NB.DEV  &E% 0#̍P̍xW  W&̍x*& 1  NB.SD1  &E#̍x̍x̍P ̍x(Ww *L% 0 1  NB.SD2 Ww ̍x̍x̍x ̍P*r  &E% 0 1  )̍xWw Ww̍x ̍x&̍x   ̍x ̍xR NR*NRNRL)P@)c@*)p@)P@() *%  ,   Ku"[Iq Km*&  *&fE[Iq",}*LH 77&f&  =r*rE(E ,},}"}s&~y*D w$ $q"   =r,}$t(}s*`eU ="="~y,}fRT*TTLyXs@Y @*Y@Z="@[Iq@[%!@[u"@*[m@,}@}s@~y@="@*AE@(K`hKmh * &f E 7 [u",}&[%!*&7 7 7  e &}s~y =",}[mY*L( 37 7$7&[Iq Y,}~y$}s(yXs*r77 5 $7   Z=" Y ,}"AE(Y *eE7`UY Y Y ,}@RQ<*Q<Q<Lt@t @*tyZ@̍@(Lph *   10tt *&C0%Օ1 F @Օ, 8 %*L0 B0Else e.r "̍ tyZRKS<*KS<KS<L (V{U2h  *f&  H" H,CeФ*&~B5 e`@LRKS|*KS|KS|L(&Uh  *f  Ab5  @R#S<*#S<#S<L|@|kf@*|y@tc"@t @tyZ@(?Oc"h    7 &t  |y|kftc"|tyZ R#S|*#S|#S|L|@|kf@*|y@tc^@t @tyZ@(EOc^h   &t  ||y|kftc^tyZR#S*#S#SL|@|y@*t@t @tyZ@(9Oh    t  ||yttyZR#S*#S#SL|@|kf@*|y@t{Z@t @tyZ@ (AO{Zh   &t  ||y|kft{ZtyZR#S<*#S<#S<L|kf@|y@*t#!@t @tyZ@(S*>S>SL|@|kf@*|y@t%!@t @tyZ@(S<*>S<>S<L| @|kf@*|y@t`@t`@t @tyZ@"(8HO`hHO`h   7 &t  |y| |kft`|kf  7 &tyZ t |y| t`|kf4tyZR>S|*>S|>S|L| @|kf@*|y@t @tyZ@t@(OOh   &t  | |y|kfttyZR>S*>S>SL|y@t"@*t @tyZ@(JO"h   t  |yt"tyZR>S*>S>SL|y@t @*t4@tyZ@(KO4h   t  |yt4tyZR>S<*>S<>S<L|y@t @*t3@tyZ@(KO3h   t  |yt3tyZR?S*?S?SL|@|y@*t @t4@tyZ@(KO4h     t  |y|t4tyZR?S<*?S<?S<L| @|[q@*|y@t_@t @tyZ@(;O_h    7 &t  |y| t_|[qtyZR?S|*?S|?S|L| @|y@*t@t @tyZ@(9Oh    t  |y| ttyZ R?S*?S?SL|y@tK@*t @tyZ@(;OKh   t  |ytKtyZR?S*?S?SL|@| @*|kf@|y@t @tX @tyZ@( KOX h   ` &t  |y|kf|| tX tyZR?S|*?S|?S|L|@|@*|y@t@t @t yZ@(HOh   &t  |y||ttyZRQ<*Q<Q<L((h  *f ” 0 Wp `@&RQ<*Q<Q<Lt@(Kh @  @ tRQ|*Q|Q|Lt@t_@(2%:dh  *f@ @  tt"t_&RQ*QQLt@(nwh *f7 d `@ $AAW t*&u/u-W-W-  w&L@ @mnB~l nlRQ *Q Q Lt@(M+h *f7 d `@ $AAW 7t*&u/ u-W-W-  w&L@ @mnB~l8 nlRQ*QQLt@t@(.(@h *f@ @   tt &tRQ<*Q<Q<Lt@t`@"(0Mvhkfh *f@ @ @ tt(t`& RQ*QQ Lt@]@*čp@Ǎp&@ǍW@(65h5VNh5@yh *@ AB  t]$čp&w čp Ǎp&ǍWRQ*QQL@t@*t`@t`@(h *f&@ w W t*&A  C`e) t`t`*L   $7l-h    *rVDCe”%)EN5K%*(UE%- 5U@<U9%+* 5E@0E-%.U@*#5%EU  @ [7* 0   5!5 *0&5BU5@*VBBU@5Wp `U*|5  B5@>D~U* 57  (  )RQ|*Q|Q|Lt@ t@(,Xh *f@ @   tt(t &RQ<*Q<Q<Lt@tK@( h @   ttKVR Q*QQL:p@ ~r@* ~@'@p@w@čp@*ǍW@ˍ@(:{:;#h  & & *ǍW :p ~ ~r  pˍ"& Ν (w 'čppwˍ6ˍ>R QT*QTQTL:p@ ~r@*'@p@w@čp@ǍW@"ˍ@(>zh  W- 7 $ǍWˍ:p ~r p&& & Ν*ˍ w'čpp"ˍ6R .T*.T.TL(tr:h*tht#h thth *"   f&*&  7 h&%.%-%+7L*L0W  D pC`(*r#~  RT*TTL(Bt{Zh  *  B"&&I, eC` &Ē B"R ~T<*~T<~T<L|E@|y@*yXs@aYy@Z="@,}@}s@*~ y@="@(>#;hDL h>H[qhnKu"h *   7 ,},} yXs"Z="&}s*&77  ="|E|y$,}*L777 &aYyZ=" ~y="|E|y(r 77 ="="|E"|y:R T<*T<T<Lt @tyZ@*}s@~y@="@(\Jwh  * (    ="t ~y="(="*&  E~ ~y}s }sL F~ tyZR ~T*~T~TLWD@yXs@*X @aYy@oYy@Y @Y@*Z="@Z@t@t @tyZ@*,}@}s@~y@="@K`@"(;kMhRAXh * %-!f R"t WDWD"WD& WD*&~7~   WDWD ,}&K`(L mme"77& t X ZoYyWD$yXsp7 7w7 7 7 &Z="Y  aYyX ZoYy"7 7 7 7   &Y}s ~y=",}tyZK`;;s<; MACROS FOR SYSTEM CONFIGURATION AND SERIAL IO DEFINITIONS.<; **********************************************************;; AUTHOR :- J.S.CLIFTON& ; DATE :- 21st SEPTEMBER 82.;; CONFIG MACRO.; ************* ;?; This macro sets the system configuration, namely the machineF; that the program will run on, the operating system it will use, theF; Macro group that will be defined and standard constants if required.;~?; It will be called at the beginning of the program, or in theF; 'prime' module. The parameters may be specified in any order, and if<; not specified then the default parameters will be assumed.;U; The call is of t he form:-:;1; .MCALL CONFIGR; CONFIG "machine","operating sys","macros","list flg","standard defs","trace flg";,4; PDP70 IAS BASMAC LIST DEFS TRACE7; LSI03 RT11 IOMACS NOLIST NODEFS NOTRACEt; LSI23 ALONE STGMAC ; TBLMACi; SUPMACi; DTBMACh; ALLMACe; NOMACSh;; RTMACS ; :; DEFAULT :- CONFIG PDP70,IAS,NOMACS,NOLIST,NODEFS,NOTRACE ; *******t;d8; Machine:- This defines the machine that the program is ; to run on.;M>; Operating Sys:- This gives the operating system that the ma-0; chine will be using, note that ALONE means1; in the STAND ALONE mode on an LSI machine 30; and the output routines will be built accord ; -ingly.N; 7; Macros:- Different levels of Macros can be easily defB0; -ined for different jobs. Note that Macro0; calls of a higher level will automatically); generate all lower level macro calls.;a6; BASMAC - A limited number of macros for si mple; macro programming.;n6; IOMACS - This includes all the macros designed for"; IO includeing those in BASMAC.;E6; STGMAC - The basic set of string handling macros -); including those in IOMACS and BASMAC.l;c6; TBLMAC - This includes all the 'NODE' and 'TABLE',; macros plus those in the previous three.;n6; SUPMAC - These are the SUPER-MAC macros and include; the previous four.;e6; DTBMAC - This includes all the previous macros plus$; all the 'DECISION TABLE' mac ros.; 6; ALLMAC - This includes macros included in the above ; groups.e;n5; RTMACS - This calls the RT11 macros for test buildA,; purposes only, it does not automatically; include any other macros. ; 0; NOTE - A few very special purpose macros ); are not defined by this macro, seen; the Docimentation.;S7; This table shows which Macro group is defined in theh; group selected.; 3; BASMAC IOMACS STGMAC TBLMAC SUPMAC DTBMAC RTMACS3; ****** ****** ****** ****** ****** ****** ****** ;s ; BASMAC X; IOMACS X X; STGMAC X Xe; TBLMAC X X Xc; SUPMAC X X X; DTBMAC X X X X ; ALLMAC X X X X X X; RTMACS X;r; ?.MACRO CONFIG PAR0,PAR1,PAR2,PAR3,PAR4,PAR5,PAR6,PAR7,PAR8,PAR9n; .LIST ;  .SBTTL CONTROL CONSTANTSD; *****************;i RT11 = 1 ;RT11 STATUS FLAG.  IAS = 2 ;IAS STATUS FLAG.s ALONE = 4 ;STAND ALONE SYSTEM.;  PDP70 = 70 ;MACHINE FLAGS. LSI03 = 3 LSI23 = 23*;* .NLIST;*' OPSYS = IAS ;OPERATING SYSTEM IS IAS.X+ MACHINE = PDP70 ;MACHINE TYPE IS AN 1170. ;$ BASFLG = 1 ;MACRO SELECTION FLAGS. IOFLG = 3 ;IOMACS/BASMAC  STGFLG = 5 ;STGMAC/BASMAC" TBLFLG = 15 ;TBLMAC/STGMAC/BASMAC" SUPFLG = 25 ;SUPMAC/STGMAC/BASMAC) DTBFLG = 65 ;DTBMAC/SUPMAC/STGMAC/BASMACO7 ALLFLG = 77 ;DTBMAC/SUPMAC/TBLMAC/STGMAC/IOMACS/BASMACS;U# MACFLG = 0 ;FLAGS FOR THIS MACRO.s DEFFLG = 1 RT11FG = 1S;E" LST$$ = 1 ;LISTING SWITCHED OFF.! $TRACE = 1 ;TRACE SWITCHED OFF.I;;= .IRP SYM,C .IF NB SYM ;0' .IIF IDN SYM,LSI03 MACHINE = LSI03G' .IIF IDN SYM,LSI23 MACHINE = LSI23 ;S# .IIF IDN SYM,RT11 OPSYS = RT11G% .IIF IDN SYM,ALONE OPSYS = ALONE/;M/ .IIF IDN SYM,BASMAC MACFLG = MACFLG!BASFLGA. .IIF IDN SYM,IOMACS MACFLG = MACFLG!IOFLG/ .IIF IDN SYM,STGMAC MACFLG = MACFLG!STGFLG/ .IIF IDN SYM,TBLMAC MACFLG = MACFLG!TBLFLGI/ .IIF IDN SYM,SUPMAC MACFLG = MACFLG!SUP FLGF/ .IIF IDN SYM,DTBMAC MACFLG = MACFLG!DTBFLGA0 .IIF IDN SYM,ALLMAC MACFLG = MACFLG!ALLFLG ;I .IF IDN SYM,RTMACS  .IF EQ OPSYS,RT11 RT11FG = 0 .IFF8 .ERROR ;RT11 SYSTEM MACROS INVALID IF NOT RT11 SYSTEM. .ENDC .ENDC;. .IIF IDN SYM,LIST LST$$ = 0! .IIF IDN SYM,DEFS DEFFLG = 0M" .IIF IDN SYM,TRACE $TRACE = 0;, .ENDC .ENDM;G;G .IIF EQ LST$$ .LIST;B' .SBTTL DEFAULT MACRO COMPILER SETTINGSD"; *************************** ****; .ENABL LC .ENABLE GBL; & VDUSIZE = 80. ;VDU INPUT BUFFER SIZE., $LDEF$ = 30000 ;BASE VALUE OF LOCAL LABELS.;R .IIF EQ LST$$ .NLISTP .IF EQ DEFFLG;= .IIF EQ LST$$ .LIST;R .SBTTL STANDARD DEFINITIONS; ******************** ;N NULL = 0N STX = 2 ;START OF TEXT. ETX = 3 ;END OF TEXT. EOT = 4 ;END OF TRANSFER. CNTC = 'C-100 CNTD = 'D-100 CNTZ = 'Z-100 TAB = 11 ;TAB CHARACTER.L HT = TAB LF = 12 ;VALUE FOR A LINE FEED. FF = 14 ;VALUE FOR A FORM FEED.& CR = 15 ;VALUE FOR A CARRIAGE RETURN.) ESC = 33 ;VALUE FOR AN ESCAPE CHARACTER.Z) SPACE = 40 ;VALUE FOR A SPACE CHARACTER.B+ ERASE = 177 ;VALUE FOR AN ERASE CHARACTER.F. PARITY = 200 ;PARITY BIT FOR BYTE OPERATIONS.;D SET = 1 CLEAR = 0 ON = SET* OFF = CLEAR;N .IIF EQ LST$$ .NLISTX; .ENDC .IF NE MACFLG&20T .IIF EQ LST$$ .LIST;C .SBTTL MACRO DEFINITIONS.; ******************=; & $SUPMC = 47 ;SUPERMAC VERSION NUMBER. $DIDDO = 0I $EF$ = 0F $L$ = 0 $T = 0  $L = 0. $R = -1 IIII = -1 $.$.$. = 0T .IIF EQ LST$$ .NLISTF .ENDC;E .IF GT MACFLG&40E .IIF EQ LST$$ .LIST$ $TABMC = 02 ;TABMAC VERSION NUMBER.) $DETL$ = -1 ;AUTO DETAB LABEL INCREMENT.T$ $DETM$ = -1 ;AUTO MACRO LABEL JUMP. .IIF EQ LST$$ .NLISTE .ENDC;C .IIF EQ LST$$ .LIST;. .SBTTL MACRO CALLS.; ***********;. .IIF EQ LST$$ .NLIST;B .IF NE MACFLG&1 .MCALL MACBAS* MACBAS .ENDC .IF NE MACFLG&2 .MCALL MACIO MACIOD .ENDC .IF NE MACFLG&4 .MCALL MACSTG  MACSTG .ENDC .IF NE MACFLG&10  .MCALL MACTBL$ MACTBL .ENDC .IF NE MACFLG&204 .MCALL MACSUP$ MACSUP .ENDC .IF NE MACFLG&40N .MCALL MACDTB  MACDTB .ENDC;I .IF EQ RT11FG .MCALL MACRT MACRTL .IFF .IF EQ MACFLGL .IIF EQ LST$$ .LIST; NOTE:- NO MACROS CALLED. .IIF EQ LST$$ .NLIST* .ENDC. .ENDC;$ .ENDM CONFIG;F; .MACRO MACBASA;M .IIF EQ LST$$ .LIST .MCALL BITDEF 2; ; ************************ BITDEFN; ************************;  .MCAL L EXITER,EXITSU  .MCALL FLODEF M;B; ************************ FLODEF2; ************************ .MCALL IFERRO,IFSUCC,INITIA  .MCALL LIST A .MCALL NOLIST .$ .MCALL SAVE,SETERR,SETREG,SETSUC  .MCALL TERMIN M .MCALL UNSAVE L .MCALL .EMIT,.EMITL,.EMITR  .MCALL ..TPRM L .IIF EQ LST$$ .NLIST;N .MACRO MACBAS .ENDM; .ENDM MACBAS;; .MACRO MACIO;I .IIF EQ LST$$ .LIST .MCALL INPUT,INPUTN * .MCALL NEWLIN  .MCALL PRINT *C .MCALL PRINTA ,PRINTB,PRINTC,PRINTD,PRINTH,PRINTO,PRINTR,PTEXT,P.D * .MCALL REPCHA F .MCALL SERIO,SPACES * .IIF EQ LST$$ .NLISTO;S .MACRO MACIO .ENDM;T .ENDM MACIOL;O;T .MACRO MACSTGA;S .IIF EQ LST$$ .LIST .MCALL ADDCHR,ADDSTR C .MCALL CLRSTR,CMPSTR  .MCALL DELCHR .MCALL INSCHR* .MCALL MESSAG,MFUNCT,MODCHR,MOVSTR,MOVTEX! .MCALL PAD,POPCHR,PRESET,PUSHCH S$ .MCALL REPORT,RESERV,ROLSTR,RORSTR 0 .MCALL SHLSTR,SHRSTR,SPPAD,STRING,SUBSTR,SWABST .MCALL TSTSTR,T..ALL .MCALL ZPAD& .MCALL ..LB10,..LB21,..LB22,..LB23  .IIF EQ LST$$ .NLISTL;E .MACRO MACSTG .ENDM;C .ENDM MACSTG;L;$ .MACRO MACTBL.;R .IIF EQ LST$$ .LIST .MCALL NODE,NODEBL .MCALL TABLE,TABLEBK .MCALL TCLOSE,TCREAT,TINSER,TKILL,TLOOKU,TPROTE,TREAD,TREMOV,TUNPRO,TWRITE  .IIF EQ LST$$ .NLIST;C .MACRO MACTBL .ENDM;V .ENDM MACTBL;L;A .MACRO MACSUP,;H .IIF EQ LST$$ .LIST .MCALL AND,ANDB .MCALL BEGIN,BRJS .MCALL CALLG,CASE,CASEB .MCALL DO,DOWNTOS .MCALL ELSE,END,ENTRYPD .MCALL FI,FOR,FOR.AB, .MCALL GOTO .MCALL IF,IFB .MCALL JUMPTO .MCALL LEAVE,LET CP .MCALL NCC,NCS,NEQ,NGE,NGT,NHI,NHIS,NLE,NLO,NLOS,NLT,NMI,NNE,NOTRAC,NPL,NVC,NVS .MCALL ON.ERR,ON.NOE,OR,ORB C/ .MCALL POP,POPB,PROBE,PROBEB,PROCED,PUSH,PUSHBDP .MCALL RCC,RCS,REPEAT,REQ,RGE,RGT,RHI,RHIS,RLE,RLO,RLOS,RLT,RMI,RNE,RPL,RVC,RVS .MCALL SOJL .MCALL THEN,THRU,TO,TRACE .MCALL UNTIL,UNTILB .MCALL WHILE,WHILEB! .MCALL $CALL,$RETUR,$SET$K,$$ENDSF .MCALL .ARITH,.GENBR,.GOTO,.IFOPR,.IS,.LEAVE,.O PADD,.OPSUB,.OR,.SIMPL' .MCALL ..BRAN,..GET,..POP,..PUSH,..TAGU .IIF EQ LST$$ .NLIST ;  .MACRO MACSUP .ENDM;, .ENDM MACSUP;N;N .MACRO MACDTB,;R .IIF EQ LST$$ .LIST .MCALL A. .MCALL C. .MCALL DETAB,DETEND .MCALL EXIT,EXITFA,EXITTR .MCALL IFFALS,IFTRUE  .MCALL SETFAL,SETTRU,0 .MCALL ..ACT,..ARLE,..COND,..CRLE,..ERLE,..TEST .IIF EQ LST$$ .NLISTE;. .MACRO MACDTB .ENDM; .ENDM MACDTB;C; .MACRO MACRT;$ .IIF EQ LST$$ .LIST/ .MCALL .CDFN,.CHAIN,.CHCOP,.CLOSE ,.CMKT,.CNTXSO/ .MCALL .CRAW,.CRRG,.CSIGE,.CSISP,.CSTAT,.CTIMIU0 .MCALL .DATE,.DELET,.DEVIC,.DRAST,.DRBEG,.DRBOT* .MCALL .DREND,.DRFIN,.DRSET,.DRVTB,.DSTAT .MCALL .ELAW,.ELRG,.ENTER,.EXIT .MCALL .FETCH,.FORK& .MCALL .GMCX,.GTIM,.GTJB,.GTLIN,.GVAL .MCALL .HERR,.HRESE .MCALL .INTEN .MCALL .LOCK,.LOOKU, .MCALL .MACS,.MAP,.MFPS,.MRKT,.MTATC,.MTDTC/ .MCALL .MTGET,.MTIN,.MTOUT,.MTPRN,.MTPS,.MTRCTM .MCALL .MTSET,.MTSTA,.MWAIT .MCALL .PRINT,.PROTE,.PURGE .MCALL .QELDF,.QSET0 .MCALL .RCTRL,.RC VD,.RCVDC,.RCVDW,.RDBBK,.RDBDF0 .MCALL .READ,.READC,.READW,.REGDE,.RELEA,.RENAM .MCALL .REOPE,.RSUM/ .MCALL .SAVES,.SCCA,.SDAT,.SDATC,.SDATW,.SDTTM,. .MCALL .SERR,.SETTO,.SFPA,.SPCPS,.SPFUN,.SPND .MCALL .SRESE,.SYNCH ? .MCALL .TIMIO,.TLOCK,.TRPSE,.TTINR,.TTOUT,.TTYIN,.TTYOU,.TWAITT .MCALL .UNLOC,.UNMAP,.UNPRO0 .MCALL .WAIT,.WDBBK,.WDBDF,.WRITC,.WRITE,.WRITW .MCALL ..V1..,..V2..P8 .MCALL ...CM0,...CM1,...CM2,...CM3,...CM4,...CM5,...CM6 .IIF EQ LST$$ .NLISTC; ;L .MACRO MACRTL .ENDM;C .ENDM MACRTV;..END.RDBDF0 .MCALL .READ,.READC,.READW,.REGDE,.RELEA,.RENAM .MCALL .REOPE,.RSUM/ .MCALL .SAVES,.SCCA,.SDAT,.SDATC,.SDATW,.SDTTM,. .MCALL .SERR,.SETTO,.SFPA,.SPCPS,.SPFUN,.SPND .MCALL .SRESE,.SYNCH ? .MCALL .TIMIO,.TLOCK,.TRPSE,.TTINR,.TTOUT,.TTYIN,.TTYOU,.TWAITT .MCALL .UNLOC,.UNMAP,.UNPRO0 .MCALL .WAIT,.WDBBK,.WDBDF,.WRITC,.WRITE,.WRITW .MCALL ..V1..,..V2..P8 .MCALL ...CM0,...CM1,...CM2,...CM3,...CM4,...CM5,...CM6 .IIF EQ LST$$ .NLISTC; ;L .MACRO MACRTL .ENDM;C