x ,S3@P C tP C u9@Q E2u0Q E>69:P EC8P ENO P >EV4P ]EV4=Q EV5k P Eg%`P Eg& Q G Q G tI;P G tkyP G uLzP G ukwP G vLWP G" `P ?G"n:=P @G4,YP G4,m`Q @G4- G;D P G;D@P GJ,0P HP HL@Q 8H-iQ HM`Q Hf9Q HmyQ Hu[Q H~ 7Q @H~]Q HKvQ Hz Q H[vQ HHyQ H>-Q @IP I[TQ |I4.: mPO! IFG mp<$P+^D<B>-^D35>, n< $P==-1 $LOC n0==$LOC+1 > $ nPP==$P+^D<B> ;Fi npnd end position i on word DFN ( o0A,$LOC) ;Plain A oP is offset %A= op=$P ;RH (%NAME) = p rightmost bit p0 %%DONE==0 I pPFE <B - ^D18>,< pp;Halfword IFE < q$P - ^D35>,< ;Rig q0ht halfword qPA==A+1B0 %%D qpONE==1 > IFE r<$P - ^D17>,< ;Le r0ft halfword rPA==A+1B1 %%D rpONE==1 > > s IFE %%DONE,< s0;Not a halfword sP A==A+1B2 sp %A==%A+ <<B>_ t^D30> ;Byte size in LH > ze I6;W tPO- DFN  tpA,B ;Check for n uame conflict u0 ; and define it uPthe same %A==%B  %A==%I6= i`NN $LOC==0 $P==-1 ==0I6y k`Ni )  IFGE $ lP,< $P==-1 $L l0OC==$LOC+1 ;Jump lPto next word > lp DFN (A,$LOC) m %A==^D35 $LOC==$LOC+B RJNZ1B IpQ I0P IMD@Q IMKQ Ip j NX IF1,< j@ IFDEF A, PRIN j`TX ?A ALREADY DE kFINED >;END IF1 A==B I$tLuP I$u]P I$u}P I$v+9P I$v,sP I$vMP I'h6P $I'Q I2-`P `I8rHP I8r$P I8rU+P I8rdJP I8sP I8tI3P I8v>9P ILtI6P ILt^P ILuJ9P ILukzP ILv P ILv QP ILv WP ILv8;P ILv=1P IN.NV U M* SETZM A SETZM 1+AIPtLuP IPtMP IPuLP IPu]P IPum6P IPv P IPv P IPvMP IX-@Q IX-}:Q IXu@Q IXu}:Q IZL`P IZL9 P IZMpQ I[&pP I['Q KF:=P K7p V`MR ENTRY W E.B E.B: ; W DEFINE THE ERROR W@IF NOT NULL " W`A" ;ERROR CHARA XCTER SIXBIT / X B/ ;ERROR PREFIX X@ EXP C,D ;E X`RROR NUMBERS P YOINT 7,[ASCIZ \E Y \] ;POINTER TO ME Y@SSAGE EXP G Y`;ATTRIBUTE G IR ZP F, <F> ;ARG Z UMENTS, IF ANY NTS, IF ANY K:[TQ {K:&P ~K>5`P KJ$BP KJthbP KR:=P Kc P 4LP L&LQ L.LQ @L>LQ M e0P ?M0P MvL\ OM ENTRY A. O SIXBIT /A./ O@A.: IFNB <B> O`, < ENTRY B.  PB.: > ;END IFNB B END IFNB M&eD@Q ^M&eD`Q _M&eh6P ,M&f YP M&f<P M2 |`P M2 @P M2  V M2<A>B<A>BnP M3RP M4tkyP M4v[SP M7%`P M<$P M<$:P M<$;P M<$I3P M<$J;P M<$K6P M<$\YP M<$hvP M<$l{P M<$xPP M<$xtP M<$yP M<$yQP M<$yZP M<${P M<% xP M<%P M<%Y6P M<%kyP M<%lsP M<&:P M<&:P M<&` ;FOROTS INITIAL ?IZATION X FORER ? ;ERROR PROCESSOR ?@ X OPEN ;DEVICE ?` OPEN X CLOSE ; @DEVICE CLOSE X E @ XIT1 ;CLOSE ALL @@FILES X IN ;FOR @`MATTED INPUT X O AUT ;FORMATTED OU A TPUT X RTB ;UNF A@ORMATTED BINARY I A`NPUT X WTB ;UNF BORMATTED BINARY O B UTPUT X ENC ;EN B@CODE X DEC ;DEC B`ODE X NLI ;NAME CLIST INPUT X NLO C ;NAMELIST OUTPU C@T X IOLST ;INPU C`T/OUTPUT LIST ITE DM PROCESSING X F D IN ;INPUT/OUTPUT D@ LIST TERMINATION D` X MTOP ;DEVICE E POSITIONING/UTIL E ITY FUNCTIONS X E@FIND ;RANDOM ACC E`ESS RECORD FIND FX EXIT ;PROGRAM F TERMINATION X AL F@COR ;DYNAMIC COR F`E ALLOCATION X D GECOR ;DYNAMIC CO G RE DEALLOCATION G@X ALCHN ;ALLOCAT G`E AN I/O CHANNEL H X DECHN ;DEALLO H CATE AN I/O CHANN H@EL X TRACE ;TRA H`CEBACK OF ROUTINE I CALLS X FUNCT I ;GENERAL OTS INTE I@RFACE X INQU ;I I`NQUIRE BY UNIT X J FOROP ;MISCELLA J NEOUS LIBRARY UTI J@LITIES X IFI ;I J`NTERNAL FILE INPU KT X IFO ;INTERN K AL FILE OUTPUT X K@ MTHER ;MATH LIB K`RARY ERROR X ABO LRT ;ABORT WITH T L RACE X INQF ;IN L@QUIRE BY FILE IF L`20,< X DELTR ;D MELETE [5000] X R M EWRF ;REWRITE (F M@ORMATTED) [5000] M` X REWRU ;REWRIT NE (UNFORMATTED) [ N 5000] X UNLOC ; N@UNLOCK [5014] > ;End IF20 > MJ,X1P MKQP MK[P MO$P MQ Q MQP MR=Q MR&:`P MRlQ MRuHhP MS4P MVo P OpP =Qb` PP IFNB p<C>,< PRINTX ?HX L used with more 0than 2 args - A, P B > %%BTS== p<B> & 7B2 %%ID X==<<B>_-^D18> & 0 77 ;Get index fi Peld if any %%LF pT==<B> & ^O77777 7 IFE <%%IDX>,< 0PRINTX %Index is Pzero for HXL A, pB > IFE <%%B TS & 3B1>,< PRI 0NTX ?HXL ERROR - PB > IFN <% p%BTS & 1B0>,< H RL A,%%LFT(%%IDX 0) > IFN <%% PBTS & 1B1>,< HL pL A,%%LFT(%%IDX) > T(%%IDX)Qbg  0Q- IFNB P<C>,< PRINTX ?HX pLZ used with more  than 2 args - A 0, B > %%BTS= P=<B> & 7B2 %%I pDX==<<B>_-^D18> & 77 ;Get index f 0ield if any %%L PFT==<B> & ^O7777 p77 IFE <%%IDX>,  IFE <% p%BTS & 3B1>,< P RINTX ?HXLZ ERROR 0 - B > IFN P <%%BTS & 1B0>,< p HRLZ A,%%LFT(% %IDX) > IFN 0 <%%BTS & 1B1>,< P HLLZ A,%%LFT(%%IDX) > T(%Qc Q[ IFNB 0<C>,< PRINTX ?HX PR used with more pthan 2 args - A,  B > %%BTS== 0<B> & 7B2 %%ID PX==<<B>_-^D18> & p 77 ;Get index fi eld if any %%LF 0T==<B> & ^O77777 P7 IFE <%%IDX>,< pPRINTX %Index is zero for HXR A, 0B > IFE <%%B PTS & 3B1>,< PRI pNTX ?HXR ERROR - B > IFN <% 0%BTS & 1B0>,< H PRR A,%%LFT(%%IDX p) > IFN <%% BTS & 1B1>,< HL 0R A,%%LFT(%%IDX) > T(%%IDX)QcP pPQ IFNB <C>,< PRINTX ?HX 0RE used with more P than 2 args - A p, B > %%BTS= =<B> & 7B2 %%I 0DX==<<B>_-^D18> P& 77 ;Get index f pield if any %%L FT==<B> & ^O7777 077 IFE <%%IDX>, P IFE <% 0%BTS & 3B1>,< P PRINTX ?HXRE ERROR p - B > IFN  <%%BTS & 1B0>,< 0 HRRE A,%%LFT(% P%IDX) > IFN p <%%BTS & 1B1>,<  HLRE A,%%LFT(%%IDX) > T(%R5]Q RT\YQ RX`Q @RXhQ R-y@Q S  P ]S pP S @Q ^S  P SF,}P Sv@P ^S  JIFN FT10S LIFN FT20SQ HSN[TQ zSnL}P @S~[TQ {S~y`Q bS*5`P ?S,t[RP S,t\YP S,tk9P S,tk:P S,u pP S,u vP S,uwP S,uyP S,u]P S,uk6P S,v)1P S,v[TP S65@P S>^yQ `S?X`P S?X@P SC& P ^SJY`P SJK@P SJY@P SJmP SJd[@P SKL@P SK@P YH`P YM`P Y%{1P PY%{;P Y.h`P (Y.m`P YN(`P (YN-`P YFH`P (YFM`P YMH`P (YMM`P Y-h`P Y-m`P YePQ Y&mQ @Y/ P DY:|H`P Y:|M`P Y> @ vOi IFNB < v0C>,< PRINTX ?LOAD vP used with more t vphan 2 args - A, wB > %%BTS==< w0B> & 7B2 %%IDX wP==<<B>_-^D18> & wp^O77 ;Get index f xield if any %%L x0FT==<B> & ^O7777 xP77 IFE <%%IDX>, xp IFE %% yPBTS,< MOVE A, ypB > IFN <%%B zTS & 1B0>,< HRR z0Z A,%%LFT(%%IDX) zP > IFN <%%B zpTS & 1B1>,< HLR {Z A,%%LFT(%%IDX) {0 > IFN <%%B {PTS & 1B2>,< %%% {pS==<%B>_-^D30 ;S |ize of field %% |0%P==<%B> & ^O77 |P;"P" LDB A,[PO |pINT %%%S,%%LFT(%% }IDX),%%%P] > X),%%%P] > YB%@P YC}P YC}P YC$PQ [?,}P [KRP ]2%SP F]>%h6P _ukzP _v P _v TP _v 7P _v=1P _N<Q _*5`P ?_,tqP _,t{P _,t)QP _,t+P _,t+P _,t.:P _,t8`P _,tI7P _,tI8P _,tI;P _,tIZP _,tJ0P _,tJ9P _,tJ9P _,t\YP _,tj6P _,tkP _,tkyP _,tlVP _,uwP _,uyP _,u92P _,uJ6P _,u[rP _,u\WP _,uh6P _,uhYP _,uk2P _,ulQP _,u|P _,u|SP _,v2P _,v9P _,v WP _,v)1P _,v+`P _,v-P _,v98P _,v:P _,v<P _,v=P _,vH8P _,v[SP _,v[TP _,v[xP _,vi9P _,w zP _JY`P _JK@P _JY@P _JmP _Jd[@P _K|`P _KL@P _K@P _LtI6P _Lt^P _Lv8;P _Lv[UP _O$Q a$:Q a&<Q aQ a$@P at{9Q at|sQ @a2-`P a>Mm U`M.POINT WID(B),A,POS(B)(aHt]RP aHuyP aJ~@P 69:P eK-j:Q }eNO) P ePtI6P ePtjINE A gR^h9 P@M" .L==0 P` IRP A,<.L==.L+1 Q> ;COUNT ARGS Q .N==0 IRP A, Q@< IFNB <A>,< Q` STKDEF (A,\< R.L-.N-1>) ;DEFINE R NAMED ARG > ; R@END IFNB .N==. R`N+1 > ;END IRP S ADJSP P,.L ; S ALLOCATE STACK SP S@ACE DEFINE UNST S`K < ADJSP P,-.L > T ;DEFINE DEALLOCA T TOR PURGE .N OR PURGE .N gR~)  }PP# IFNB < }pC>, ~P %%BTS==<B> & ~p 7B2 %%IDX==<< B>_-^D18> & 77 ;G 0et index field if P any %%LFT==<B p> & ^O777777 IF E <%%IDX>, p IFE %%BTS,<  MOVEM A,B 0> IFN <%%BTS & P1B0>,< HRRM A, p%%LFT(%%IDX) >  IFN <%%BTS & 01B1>,< HRLM A, P%%LFT(%%IDX) > p IFN <%%BTS & 1B2>,< %%%S==<% 0B>_-^D30 ;Size o Pf field %%%P==< p%B> & ^O77 ;"P"  DPB A,[POINT % 0%%S,%%LFT(%%IDX),%%%P] > X),iPQ i  P _i @Q _iv@P `i4tYP i4tK8P i4uRP i4v: P i4v>9P iC& P _iSNpQ jP k @Q k ,hzQ k2-`P k;-PQ kKQP kK[P kNmP mEP m`P Gm~+zP o& P oC& P oJt;ZP oNO P oR P d,  7@KN ;[5011]Ne 7`w for sixbit stri 8ngs TLNE A,-1 8 ;Skip if local a 8@ddress TXOA  8`A,B1WBP6 ;Global 9address, make BP 9 and skip HRLI 9@A,(POINT 6,) ;Lo 9`cal address, make BP ess, make dHX 5 K8 TLNE  5@A,-1 ;Skip if loc 5`al address TX 6OA A,B1WBP7 ;Glo 6 bal address, make 6@ BP and skip H 6`RLI A,(POINT 7,) 7 ;Local address, make BP ess,  c N$ IFNB <B c@>, EXTERN d@D.A JRST D.A A JRST D.A T86 eN2 IFNB <B e >, EXTERN f D.A ERJMP D.A  ERJMP D.A  f`N> EXTERN gF.A IFB <B>,< g PUSHJ P,F.A > I g@FNB <B>,  J .,@ _@N ENTRY _` F.B F.B: P `USHJ P,FORER.## ` "A" ;ERROR C `@HARACTER SIXBI ``T /B/ ;ERROR PR aEFIX EXP C,D a ;ERROR NUMBERS a@ POINT 7,[ASCIZ a` \E\] ;POINTER T bO MESSAGE EXP b G ;ATTRIBUTE G b@ IRP F, <F> b`;ARGUMENTS, IF ANY NTS, IF AN T86 h NJ EXTERN h@F.A IFB <B>,< h`ERCAL F.A > IFN iB <B>,  JR &|\Y [ Mx INTER [@N E.B E.B: [` IF2,> PUSHJ P,%IO \@ERR "A" ;ER \`ROR CHARACTER ]SIXBIT /B/ ;ERR ] OR PREFIX EXP ]@C,D ;ERROR NUM ]`BERS POINT 7,[ ^ASCIZ \E\] ;POIN ^ TER TO MESSAGE ^@ EXP G ;ATTRIBU ^`TE G IRP F, < _F> ;ARGUMENTS, IF ANY NTS, Nu Z`MV $ECALL SNH  $ECALL 0Q  4@P  iVP  e;@P  e<}P  ej`Q  |lrP  pP  @P  ,h2P  ,hzQ  NK@P  NLP  Q  D@P  v;P  v; P  X`P  $(2P  -`Q  .`P  5 Q 0 5Q  N+PP  N<Q  d[@P  4-P  5rP  5`Q  6M`P  6N8Q  |i@P |k@P  F@P  J`P  MK Q  MK Q  MKPP  MLP  MLxP  dyP  ~+ Q  :=P  -^P  -`P  &8@P  &:=Q  &mP  &Tk@P  &lyVP  &tNQ  &|j7P  &~)1P  &~=1P  'L@P  ')3P  '+P  '-3P  ';ZP  'I7P  ' P  ':=P  2=K Q  2MZ:P  2^@P  3m6P  3'Q  6|I Q  7:=P  :|KPP  >%xQ  >Tk@P  ?)3P  ?+P  ?-3P  ?;ZP  ?I7P  ? yP  ? P  ?:=P  ?H:Q  B HtQ  B LxQ  B Q  B6H1P  C}P  C%@P  F=zP  FmQ  Fv=zQ  J,=P  J-h6Q  JxQ  J|lrP  KRP  N Q  O=rP  O$Q  R Q  R8@P  R:=Q  RmP  SL@P  S'`Q  V:=Q  VYQQ Vd[@P  Vv[ P  W:=P  W;ZP  ^ L@P  _L@P  _@P  _$@P EH1P F(1P S@P %X}{woP