x ,5.@P C tP C um6P C v*7P C v*7P C v:7P C v:7P C v;zP CQ CmP !C;P CZ P DG<, Q bDM4kP E0um6P E0w)9P E2]`P E2^>@Q E2u0Q E>69:P EC8P ENO P LEV4P iEV4=Q EV5k P Eg%`P Eg& Q G Q G tI;P G tkyP G uLzP G ukwP G vLWP G" `P LG"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 H[vQ HHyQ H>-Q @IP I[TQ |I4.: RxEK IFG S<$P+^D<B>-^D35>,S8< $P==-1 $LOCSX==$LOC+1 > $SxP==$P+^D<B> ;FiTnd end position iT8n word DFN (TXA,$LOC) ;Plain ATx is offset %A=U=$P ;RH (%NAME) =U8 rightmost bit UX %%DONE==0 IUxFE <B - ^D18>,< V;Halfword IFE <V8$P - ^D35>,< ;RigVXht halfword VxA==A+1B0 %%DWONE==1 > IFE W8<$P - ^D17>,< ;LeWXft halfword WxA==A+1B1 %%DXONE==1 > > X8 IFE %%DONE,< XX;Not a halfword Xx A==A+1B2 Y %A==%A+ <<B>_Y8^D30> ;Byte size in LH > ze I6;W YxEW DFN ZA,B ;Check for nZ8ame conflict ZX ; and define it Zxthe same %A==%B  %A==%I6= ODx $LOC==0 $P==-1 ==0I6y QE 0 IFGE $Q8P,< $P==-1 $LQXOC==$LOC+1 ;Jump Qxto next word > R DFN (A,$LOC)R8 %A==^D35 $LOC==$LOC+B HsE1B IpQ I0P *IMD@Q IMKQ Ip OHE IF1,<Oh IFDEF A, PRINPTX ?A ALREADY DEP(FINED >;END IF1 A==B I$tLuP I$u]P I$u}P I$v+9P I$vMP I'h6P 2I'Q I2-`P mI8rHP 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 :HCT 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 <C| ENTRY<( E.B E.B: ;RROR NUMBERS P>(OINT 7,[ASCIZ \E>H\] ;POINTER TO ME>hSSAGE EXP G ?;ATTRIBUTE G IR?(P F, <F> ;ARG?HUMENTS, IF ANY NTS, IF ANY K:[TQ {K:&P ~K>5`P KJ$BP KJthbP KR:=P Kc P BLP L&LQ L.LQ @L>LQ MP M e0P LM0P MvL\ 4(C* ENTRY A.4H SIXBIT /A./ 4hA.: IFNB <B>5, < ENTRY B. 5(B.: > ;END IFNB B END IFNB M&eD@Q jM&eD`Q lM&eh6P :M&f YP M&f<P M2 |`P M2 @P M2  ;HC\<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<&,< PRINTX ?HXp8L used with more pXthan 2 args - A,px B > %%BTS==q<B> & 7B2 %%IDq8X==<<B>_-^D18> &qX 77 ;Get index fiqxeld if any %%LFrT==<B> & ^O77777r87 IFE <%%IDX>,<rXPRINTX %Index is rxzero for HXL A,sB > IFE <%%Bs8TS & 3B1>,< PRIsXNTX ?HXL ERROR - sxB > IFN <%t%BTS & 1B0>,< Ht8RL A,%%LFT(%%IDXtX) > IFN <%%txBTS & 1B1>,< HLuL A,%%LFT(%%IDX) > T(%%IDX)Qbg  uXGW IFNB ux<C>,< PRINTX ?HXvLZ used with morev8 than 2 args - AvX, B > %%BTS=vx=<B> & 7B2 %%IwDX==<<B>_-^D18> w8& 77 ;Get index fwXield if any %%LwxFT==<B> & ^O7777x77 IFE <%%IDX>,x8 IFE <%y%BTS & 3B1>,< Py8RINTX ?HXLZ ERRORyX - B > IFNyx <%%BTS & 1B0>,< z HRLZ A,%%LFT(%z8%IDX) > IFNzX <%%BTS & 1B1>,< zx HLLZ A,%%LFT(%%IDX) > T(%Qc {8H IFNB {X<C>,< PRINTX ?HX{xR used with more |than 2 args - A,|8 B > %%BTS==|X<B> & 7B2 %%ID|xX==<<B>_-^D18> &} 77 ;Get index fi}8eld if any %%LF}XT==<B> & ^O77777}x7 IFE <%%IDX>,<~PRINTX %Index is ~8zero for HXR A,~XB > IFE <%%B~xTS & 3B1>,< PRINTX ?HXR ERROR - 8B > IFN <%X%BTS & 1B0>,< HxRR A,%%LFT(%%IDX ) > IFN <%% 8BTS & 1B1>,< HL XR A,%%LFT(%%IDX) > T(%%IDX)QcP jF{ IFNB j8<C>,< PRINTX ?HXjXRE used with morejx than 2 args - Ak, B > %%BTS=k8=<B> & 7B2 %%IkXDX==<<B>_-^D18> kx& 77 ;Get index flield if any %%Ll8FT==<B> & ^O7777lX77 IFE <%%IDX>,lx IFE <%mX%BTS & 3B1>,< PmxRINTX ?HXRE ERRORn - B > IFNn8 <%%BTS & 1B0>,< nX HRRE A,%%LFT(%nx%IDX) > IFNo <%%BTS & 1B1>,< o8 HLRE A,%%LFT(%%IDX) > T(%R5]Q RT\YQ RX`Q @RXhQ S  P jS pP S @Q jS  P SF,}P Sv@P kS  'IFN FT10S )IFN FT20SQ HSN[TQ zSnL}P @S~[TQ {S~y`Q bS*5`P LS,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 jSJY`P SJK@P SJY@P SJmP SJd[@P SKL@P SK@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 QY:|H`P Y:|M`P Y> @ [8F IFNB <[XC>,< PRINTX ?LOAD[x used with more t\han 2 args - A, \8B > %%BTS==<\XB> & 7B2 %%IDX\x==<<B>_-^D18> & ]^O77 ;Get index f]8ield if any %%L]XFT==<B> & ^O7777]x77 IFE <%%IDX>,^ IFE %%^xBTS,< MOVE A,_B > IFN <%%B_8TS & 1B0>,< HRR_XZ A,%%LFT(%%IDX)_x > IFN <%%B`TS & 1B1>,< HLR`8Z A,%%LFT(%%IDX)`X > IFN <%%B`xTS & 1B2>,< %%%aS==<%B>_-^D30 ;Sa8ize of field %%aX%P==<%B> & ^O77 ax;"P" LDB A,[PObINT %%%S,%%LFT(%%b8IDX),%%%P] > X),%%%P] > YB%@P YC}P YC}P YJ,8SP (YNv[ P YPv[VP YR/ P  YR/ P YSNQ [DSP @[F P [F[TP 1[tlP [tqP [tvP [t*7P [tK8P [u3P [&v[TQ |[>$PQ [?,}P [KRP ]2%SP F]>%h6P )_ukzP _v P _v TP _v 7P _v=1P _N<Q _*5`P L_,tqP _,t{P _,t)QP _,t+P _,t+P _,t.:P _,t8`P _,tI7P _,tI;P _,tJ0P _,tJ9P _,tJ9P _,t\YP _,tj6P _,tkP _,tkyP _,tlVP _,uwP _,uyP _,u9Mm ;CXPOINT WID(B),A,POS(B)(aHt]RP aHuyP aJ~@P JaK$J3P aRD P ec}Q @cv@Q c;}Q eP etHqP etI1Q @eLP et Q e<Q e>69:P eK-j:Q }eNO) P ePtI6P ePtjINE A gR^h9 5hCL .L==0 6 IRP A,<.L==.L+16(> ;COUNT ARGS 6H.N==0 IRP A,6h< IFNB <A>,< 7 STKDEF (A,\<7(.L-.N-1>) ;DEFINE7H NAMED ARG > ;7hEND IFNB .N==.8N+1 > ;END IRP 8( ADJSP P,.L ;8HALLOCATE STACK SP8hACE DEFINE UNST9K < ADJSP P,-.L >9( ;DEFINE DEALLOCA9HTOR PURGE .N OR PURGE .N gR~)  bxFM IFNB <cC>, cx %%BTS==<B> &d 7B2 %%IDX==<<d8B>_-^D18> & 77 ;GdXet index field ifdx any %%LFT==<Be> & ^O777777 IFe8E <%%IDX>, f IFE %%BTS,< f8 MOVEM A,B fX> IFN <%%BTS & fx1B0>,< HRRM A,g%%LFT(%%IDX) >g8 IFN <%%BTS & gX1B1>,< HRLM A,gx%%LFT(%%IDX) >h IFN <%%BTS & h81B2>,< %%%S==<%hXB>_-^D30 ;Size ohxf field %%%P==<i%B> & ^O77 ;"P" i8 DPB A,[POINT %iX%%S,%%LFT(%%IDX),%%%P] > X),iPQ i  P ki @Q liv@P li4tYP i4tK8P i4uRP i4v: P i4v>9P iC& P liSNpQ jP k @Q k2-`P k;-PQ kKQP kK[P kNmP kN.*2P %mEP m`P Tm~+zP o& P oC& P oJt;ZP oNO P oR P qP dHX PB  TLNE pA,-1 ;Skip if loc al address TX 0OA A,B1WBP7 ;Glo Pbal address, make p BP and skip H!RLI A,(POINT 7,)!0 ;Local address, make BP ess,  HHDN IFNB <BHh>, EXTERN IhD.A JRST D.A A JRST D.A T86 J(D\ IFNB <BJH>, EXTERN KHD.A ERJMP D.A  ERJMP D.A  LDh EXTERN L(F.A IFB <B>,< LHPUSHJ P,F.A > ILhFNB <B>,  J .,@ DhD@ ENTRYE F.B F.B: PE(USHJ P,FORER.## EH "A" ;ERROR CEhHARACTER SIXBIFT /B/ ;ERROR PRF(EFIX EXP C,DFH ;ERROR NUMBERS Fh POINT 7,[ASCIZG \E\] ;POINTER TG(O MESSAGE EXP GHG ;ATTRIBUTE GGh IRP F, <F> H;ARGUMENTS, IF ANY NTS, IF AN T86 MHDt EXTERN MhF.A IFB <B>,< NERCAL F.A > IFNN(B <B>,  JR &|\Y @HD" INTER@hN E.B E.B: A IF2,> PUSHJ P,%IOAhERR "A" ;ERBROR CHARACTER B(SIXBIT /B/ ;ERRBHOR PREFIX EXP BhC,D ;ERROR NUMCBERS POINT 7,[C(ASCIZ \E\] ;POINCHTER TO MESSAGE Ch EXP G ;ATTRIBUDTE G IRP F, <D(F> ;ARGUMENTS, IF ANY NTS, Nu @D $ECALL SNH  $ECALL 0Q  ;ZP  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   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  ?x7Q  ?I7P  ? yP  ? P  ?:=P  ?H:Q  B HtQ  B LxQ  B Q  B=yP  B6H1P  C}P  C%@P  F=zP  FmQ  Fv=zQ  J P  J,=P  J-h6Q  JxQ  J|lrP  KRP  N Q  NDRQ  O=rP  O$Q  R Q  R8@P  R:=Q  RmP  SL@P  S'`Q  V:=Q Vd[@P  Vv[ P  W:=P  W;ZP  W\TP  ^ L@P  _L@P  _@P  _$@P  b P EH1P F(1P S@P %X}{woP