Google
 

Trailing-Edge - PDP-10 Archives - BB-H506D-SM_1983 - cobol/source/tcssym.unv
There is 1 other file named tcssym.unv in the archive. Click here to see a list.
x
,.@P C
~- n8.sJRST L$ABORTJRST L$ABOC
~-A  C
~-C,9#HLSHPA,-9JLSH A,-9C@P CJ9i0Q \CJ9mQ .CJ9m7Q 6 CJ9nQ FCNP E@tX Q \E@vyQ <E@v:=Q 0E@w
G,;0P G,<VP G,J9P G,MP G,MP G,MP G,^P G,j6P G-QP 2G-WP G-,rP G-,vP 	G-Z7P G-kqP G-m6P G-xzP G.ZP G.:<P G.=P G.HrP G.h9P 	G/-WP *Ge@ ,G\` i(&_4	
  P$CASiXE==P$CASE+1			
 ix P$MAXC==0				
 j SKIPL A				
  j8CAILE A,B			
 jX ERRI	(CVO)				
jx  C @[				
  REkPEAT B+1,<			
 k8   L$CASE(P$MAXC)kX			
    P$MAXC==kxP$MAXC+1			
>
  ](A)				
3!&FJRST GP I
 @KluQ K8qdA  K8qdK8qd A  K8qd K8qd(A  K8qd(K8qd@A  K8qd@K8qd`A  K8qd`K8qeA  K8qeK8qe A  K8qe K8qe@A  K8qe@K8qe`A  K8qe`KJ nx.wERRI(A,<B>,ERCAL)(A,<KJP o8.{ERRU(A,<B>,ERCAL)(A,<KK0 p8/:		
  B EH.A				
 B E3P.CALLKK q(/:	
qIFB <qXB>,<C EH.A>		
  IFNB <B>,<			r	
    C [				
r8      $CALL TX.SIrXERR,<$$CPON(0)A#rx#,B> 
      JRSsT EH.A			
    ]					
  >
  ]3Q/CALLKKP sx/.: 	
  C [	t(				
  IFB <B>,tH<$CALL TX.SAV,<$$thCPON(0)A##>> ;PUuT OUT MSG
  IFNBu( <B>,<$CALL TX.SuHAV,<$$CPON(0)A##uh,B>> 
  JRST EH.A]			
RST EH3R/CALLK`qdA  K`qdK`qd A  K`qd K`qd(A  K`qd(K`qd@A  K`qd@K`qd`A  K`qd`K`qeA  K`qeK`qe A  K`qe K`qe@A  K`qe@K`qe`A  K`qe`M tZQ HM t[ZQ $HM uxsP M v):P M v[[P M2
{ A$	
  T$2==A8B				
  T$2==T$AX2 & U$EA			
  T$Ax1==$$MPOS($SETI(BB,C))	
  T$1==WB8HOLE-T$1			
  LDBXB A,[EXP <T$1>B5!1B11!T$2]	
B5O?%pX+Qd`P 	R $81B12!S;d P S;d@P S;h1Q .S;j7Q ,S;j<Q $S;k2Q HS;ksQ $S;kxQ 6$S;lQ $UVn	@ 5 UVn
+y306ABORT.Xr|u'(%ID(C,\P$CASE,L,\<A>)P$CX|3uH',%ID(L.C,\P$CASE)ID(L.C,\PX.,QRv(/2[ERRC(A)][ERRC(A)]X.,TRvh/6[ERRI(A,<B>)][ERRI(A,<X.,ZRw(/:[ERRU(A,<B>)][ERRU(A,<XLn	w'95 %ID(L.X,\<P$IF+A>)L.X,\<3*'50XV[8 5`3.5P%ID(L.T,\<P$IF+A>)nE@w
  $$8`RVAL(<A>)				
 9 $$RET(EX..)]				
AB,AC$,BITS$Xh3 :p3Y[			
  $$;RVAL(<A>)				
  $$RET(XF..)]
Xh: 9@)_[			
  $$xRVAL(<A>)				
  $$RET(XT..)]
X:85`3.5P%ID(L.T,\<P$IF+A>)nE@wTRAP.U##Y
 Y"luQ xY>
@ XX%Q		
  IFIDXxN <C><X>,<LOADX(YA,B)>	
  IFB <Y8C>,<				
    $$YXINST(MOVE,LDB,HRRYxZ,HLRZ)		
    $$ZCOPY(A,<B>)		
  >
,<B>)		
Y>
N ZX%
  DEFINEZx %IFNO<IFE .-T$AD[DR>		
  T$==B		[8		
  .IFN T$,ABS[XOLUTE,<MOVE A,[[xB]>	
  .IF T$,AB\SOLUTE,<			
    \8T$ADDR==.				
  \X  T$R==RHMASK&T$	\x		
    T$L==LHMA]SK&T$			
    IFE]8 T$R,<MOVSI A,(T]X$L)>		
    %IFNO]x,<IFE T$L,<MOVEI ^A,T$R>>	
    %I^8FNO,<IFE <T$L_-HA^XLF>-777777,<HRROI^x A,T$R>> 
    %_IFNO,<IFE T$R-777_8777,<HRLOI A,(T$_XL)>> 

    %IFN_xO,<MOVE A,[B]>		
  >
,[B]>	[+` t('$			
  PUStHHJ	P,[A				
	   POPJ	P,]			
 [2| bX&		
  $$M2bxBP(B,C)			
  LcOAD(A,P$BP)			
D(A,P$BP)			
[O%|@ cX&!		
  $$M2cxBP(B,C)			
  SdTOR(A,P$BP)			
R(A,P$BP)			
[`,SP`[`,,P`[`,8YP`]>`*A1B12+`P``
P 	`'P a &#LSH A,9cSP e  ,~e$` h1			
  IFB <A>,<$$RET(XF..()>		
  IFNB <A>H,<			
    JRST [h$$RVAL(<A>)			
    $$RET(XF..)]			
  >
F..)]	e&@ 
()IFB,<$$RET(XT..
h,IFNB <A>
    JRST [$$RVAL(<A>)			
(    $$RET(XT..)]			
  >
T..)]	e&\W (0d			
  IFBH <A>,<$$RET(EX..h)>		
  IFNB <A>
,<			
    JRST [
($$RVAL(<A>)			

H    $$RET(EX..)]			
  >
X..)]	e"luP'eM)cHA&+eM)cHg.N	@ 7 g.N
  $$INSTe(MOVEM,DPB,HRRM,He8RLM)		
  $$COPY(A,B)			
OPY(gYcJAPgYcJgh,SPgh,,Pgh,8Pgh,jPgh-YPhPhB~ `8.PUSHJ P,RS5..0PUSHJ P,RSiJ@A  iJ@iNi  x-PUSHJ P,SV0..5PUSHJ P,SVib )K	
      $8$TX(C,A,B)
    (C,A,B)
   ib 8)]	
      $X$TX(CA,A,B)
    CA,A,B)
  ibP x)Q	
      $$TX(CE,A,B)
    CE,A,B)
  ib` X)W	
      $x$TX(CN,A,B)
    CN,A,B)
  ibp )	
      $8$TX(N,A,B)
    (N,A,B)
   ibt 8)	
      $X$TX(NA,A,B)
    NA,A,B)
  ibtP x)		
      $$TX(NE,A,B)
    NE,A,B)
  ibu` X)	
      $x$TX(NN,A,B)
    NN,A,B)
  ibx )	
      $8$TX(O,A,B)
    (O,A,B)
   ib| 8)-	
      $X$TX(OA,A,B)
    OA,A,B)
  ib|P x)!	
      $$TX(OE,A,B)
    OE,A,B)
  ib}` X)'	
      $x$TX(ON,A,B)
    ON,A,B)
  icP )3	
      $8$TX(Z,A,B)
    (Z,A,B)
   icT 8)E	
      $X$TX(ZA,A,B)
    ZA,A,B)
  icTP x)9	
      $$TX(ZE,A,B)
    ZE,A,B)
  icU` X)?	
      $x$TX(ZN,A,B)
    ZN,A,B)
  j,A j\RP&j`P j&)3P k;=R x/@PUSHJ P,TRAP.U##USHJ P,TRl] 8@3H[			
  $$8`RVAL(<A>)				
 9 $$RET(EX..)]				
AB,AC$,BITS$l] :p3Y[			
  $$;RVAL(<A>)				
  $$RET(XF..)]
l] 9@)_[			
  $$xRVAL(<A>)				
  $$RET(XT..)]
o"}I P qqdA  qqdqqd A  qqd qqd(A  qqd(qqd@A  qqd@qqd`A  qqd`qqeA  qqeqqe A  qqe qqe@A  qqe@qqe`A  qqe`qPqdA  qPqdqPqd A  qPqd qPqd(A  qPqd(qPqd@A  qPqd@qPqd`A  qPqd`qPqeA  qPqeqPqe A  qPqe qPqe@A  qPqe@qPqe`A  qPqe`Y (!^		
  T$BIHTS==B				
  IFGh B-WHOLE,<PRINTX ?BYTE SIZE OF A( LARGER THAN A WOHRD>
  IFLE B,<PhRINTX ?BYTE SIZE OF A LE 0>
E  
X(e-^D<A+CA%IVCOL>^D<A+CA%| 9H#f		
  $$SE9hTUP(<B>)			
  %:IFI T$CASE,<$$IEX:(P(MOVEI A)>	
  :H%IFWM T$CASE,<$$I:hEXP($$WH A)>	
 ; %IFAC T$CASE,<IF;(N A-B,<$$WH A,;HB>>
					
  %I;hFOTH T$CASE,<$$AR<B A,[B]>	
  %I<(FRH T$CASE,<$$IEX<HP($$RH A)>
  %I<hFLH T$CASE,<$$IEXP($$LH A)>
EX$Xw A8,			
  IFGAX P$ARG,<PRINTX ?"AxENDARG" MACRO NOTB SPECIFIED FOR ABOVE PROC>
R AB%,IFNDEF H$BxBSA,<H$BSA==P$LREG>$BSA==P$5] *		
  IFNB8 <A>,<A::>		
 X IRP B,<				
  x  T$CTL==0				
    IFDEF $$FTX,<	8		
      [$$FTX]X				
      PURGEx $$FTX			
 >
    IRPC B,<
 8     IFIDN <$><BX>,<			
	IFL T$CTxL,<T$CTL==1>		
	IFE T$CTL,<T$CTL=8=-1>		
      >
X      IFDIF <$><xB>,<T$CTL==0>	
       IFIDN <-><B 8>,<T$CTL==1>	
   X    IFGE T$CTL,<S xTOPI>		
    >
 !   IFN T$CTL,<B>!8			
    IFE T$CT!XL,<DEFINE $$FTX<A!xSCIZ\B\>> 
>
Z\B\>> 
>p H1IFL H$A-Ph$A,<H$A==P$A>A,<H$A==P$A>L, +"g			
  REP+8EAT A,<			
    +XP$POS==P$POS-T$BI+xTS			
    IFL P$,POS,<				
      ,8P$POS==WHOLE-T$BI,XTS		
      P$OFF,xS==P$OFFS+1			
    >
  >
	
 L^ Gh$>30<A,>!<B>H<A,>!<B>3$:T$ADDRMlz W%A	
  DEFINW8E $$WH<A >
  DEWXFINE $$ARB<B >
Wx  DEFINE $$RH<C X>
  DEFINE $$LH<D >
INE $$LH<V[8 (			
  %ID8(P$B,\<P$IF+A>)=X=1		
  L$JUMP(A):				
JUMP(Ad@ sh'IFNDEF P$ABIFNDEF P$j(X `8&		
  P$OF`XFS==B				

aT`x$R=$$MPOS(A)			
  T$L==^L<A>			a8
  T$BITS==T$R-TaX$L			
  P$POS==WaxHOLE-T$R			
  $$bSETSYM(P$BP)			
TSYM(P$BP)			
l *8*SMX%INS==AMX%BP==Any X!^L<<-1_-<^L<A>>^!<A>>>^p (X*E-^D<A+CA%IVNUM>^D<A+CA%u|u xX'S			
  %IDxx(P$N,\<P$IF+A>)=y=1		
  $$LAB(B,\y8<P$IF+A>),<
   yX JRST L$NOSK(A)	yx		
    JRST L$IFzX(A)			
  >
  z8L$NOSK(A):				
NOSK(A):				
] H1JRST L$$RET(A)JRST L$$REY H!.	
  IFL hA-B,<PRINTX ?REGISTER A IS OUT O(F RANGE>
  IFG HA-C,<PRINXT ?REGhISTER A IS OUT OF RANGE>
OUT Oh6 1			
  T$V(REG==0
  IRP A,H<				
    T$VREGh==T$VREG+1			
    LOAD T$VREG,A			
  >
EG,A	R U-U				
  IFU8NDEF P$CF,<				
UX    P$P==%ID(H$,0Ux,S,\P$SCOPE)		
 V   IFG %ID(H$,\P$V8LROWN,S,\P$SCOPE)VX-P$P, <P$P==%ID(HVx$,\P$LROWN,S,\P$SWCOPE)>
    P$P==W8P$P-U$TREG			
  WX  DEFINE L$$RET(LWxAB$)<%ID(LAB$,\P$XP)>	
XX JSP TF,X8%ID(EN..,\P$P)		
Xx IFE P$ARG,<
      P$ARG==1		Y		
      $ENDARGY8				
YX >					
  >
  IFDEF P$CYxF,<
    PURGE P$ZCF				
    DEFINZ8E L$$RET(LAB$)<LAZXB$'10>	
    $OKARG				
  >
KA] 1d			
    T($CASE==-5				
  H  IFE T$BITS-HALFh,<			
      IFE T$POS,<T$CASE==-4(>		
      IFE T$HPOS-HALF,<T$CASE==-3>	
    >
=] /"
  A==<P/8$POS>B5!<T$BITS>B/X11!P$OFFS	
  $$M/xAX(P$OFFS)				
X(P$OFFS)				
] (1<			
					H
  T$POS==A				h
  T$POS=T$POS_-^D30
  T$BITS==(A			
T$BITS==<HT$BITS-^D24>&77
T$ADDR==A			
  .IF T$BITS,GLO(BAL,<T$BITS==WHOLHE>	
  IFE T$BITSh-WHOLE,<			
    T$BITS==0				
  (  T$POS==0				
 H >
IFE T$BITS,h<$$SETW(<A>)>		
  IFN T$BITS,<$$(SETB>			
  T$ADDHR==T$ADDR & U$EA			
DDR & U$EA	] 1T			
    T($CASE==-1				
  H  T$==A				
   h IFN T$ & 1B12,<T$CASE==T$ADDR>	
(    IFL T$CASE,<	H		
   .IF T$AhDDR,ABSOLUTE,<		
	IFGE T$ADDR,<IF(LE T$ADDR-17,<T$CHASE==-2>>
      >
    >
     @ ;P3]SZ%INS==ASZ%BP==A0 ~x'}			
  %ID(P$B,\<P$IF+A>)=8=1		
  JRST L$NOXSK(A)			
  L$SKIP(A):				
SK' (Q		
  T$B=8=C				
  .IF T$XB,ABSOLUTE,<IFE Tx$B,<PRINTX ?ZERO MASK IN TX MACRO>8>
  T$L==RHMASK&XT$B			
  T$R==LHxMASK&T$B			
  IF	E T$L,<TLA B,(T	8$B)>		
	IFE T$R	X,<TRA B,T$B>		
  IFN T$L,<IFN T
$R,<TDA B,[T$B]>> 
A B,[T$B]'	r 
X(_		
  IRP 
xA,<IRP B,<		
    DEFINE TXAB(8AC$,BITS$)<	
   X   $$TX(AB,AC$,xBITS$)
    >
  >>					
 >
  .I7 jX.o		
  A:	jx			
  IFG P$RNEWk,<				
    T$==Pk8$LREG-P$RNEW+1			kX
    REPEAT P$RNkxEW,<			
      PUlSH P,T$				
    l8  T$==T$+1				
 lX   >
  >
  $$DElxCODE				
  T$ARGm==0				
  IFNB <m8B>,<IRP B,<
  mX  B==T$ARG			
 mx   T$ARG==T$ARG+1			
  >>
RG+1P )*I-^D<A+CA%ZVNUM>^D<A+CA%	ew 8!@0 		
  $WORhD(A,0)				
  P$ALIGN==B+A			
IGN==B+A			
3!71	(< rX&/  
  A==.s-B			
  T$ST==.s(				
  T$SIZ==CsH-B+1		

  XLISshT
  REPEAT T$SIZt,<			
    IRP Dt(,<				
      IFLtH .-T$ST-T$SIZ,<Dth>		
    >
  >
  LIST

  >
2z0	
exu H!w00		
  P$MXxOFF==0				
  P$TYPE==0				
  P$F8XOFF==0				
  P$XPOS==WHOLE				
 x P$IXOFF==B			
  P$OFFS==B			
8  DEFINE $$MAX(X$X)<MX%A==X$>	
  xDEFINE $$SIZ(X$)<SZ%A==X$>	
)<3!`0>
	y H \<A>_-^D30<A>_-^D30	NI  $"1		
					
					
					
  $XIFDIF <B><REST>,$x<T$BITS==B>	
%%IFIDN <B><REST>,%8<T$BITS==P$POS>	
  $$BINRANGE(A,%xT$BITS)		
  $$IB&P(1)				
  $$SETSYM(A)			
SET	NI9 &X"Q	
					
&x					
					
'I'FN P$POS-WHOLE,<P'8$OFFS=P$OFFS+1>	
  P$POS==WHOLE		'x		
  $$BINRANGE((A,B)		
  A==P(8$OFFS				
  IFLE(X C,<
    P$OFFS(x==P$OFFS+1			
  )  P$FXOFF==P$OFFS)8			
  >					
  )XIFG C,<
    $$I)xBP(C)			
    P$*POS==0				
  >
S==0				
  >
	 =x,		
  IF2,><					
    %IFDO>8T(A),<IFNDEF A,>X<EXTERN A>> 
  >x>
  IFNB <B>,<	?		
    T$ARG==0	?8			
    IRP B,<?XT$ARG==T$ARG+1>		?x
    T$AP==[-T$A@RG,,0			
    IRP@8 B,<B>]			
   @X MOVEI AP,T$AP+1	@x		
  >
  PUSHJ P,A

  PUSHJ 	9  l8&cL$CASE(A):L$CASE(A)	9@ lx&y				
  T$m==0					
nDEFINm8E L$$CAS(C$,CN$,LmX$,LN$)<IFNDEF C$'mxCN$'L$'LN$> ;BOO
  REPEAT P$MAXC,n8<			
    L$$CAS(nXC,\P$CASE,L,\T$),nx<L$CASE(T$)=.> 
o    T$==T$+1				
  >
T$+1				oX&}L$CASX(0):L$CASX(0):	~` =H#o1	
  LOAD	=x(C,<B>)			
  DC	C,A			
  D3	#hAP
	~ >X#z1@	
  LOADX?	(C,<B>)			
  ?(STOR	(C,A)			
OR	(C,A)			
3
#qAP
	~  @$1p	
  LOAD	@8(C,<B>)			
  S@XTOR	(C,A)			
OR	(C,A)			
3#|AP	H  uh6/0	
  A: v C				
  T$=.-A	v@			
  XLIST
  Rv`EPEAT B-T$,<0>			
  LIST
0>		2|(1*U0FFS	@ 04:@
  IFNB <HA>,<
    MOVEI hB,A			
    STOR B,FH.EH(CF)			(
  >
  IFB <A>H,<HLLOS FH.UNW(CF)>	
 FH.UNW(CF3T0%TAP	tH6 H!N				
  $WhORD(T$ALN,0)			
  IFG P$OFFS-P$AL(IGN,<PRINTX ?SUBSHTRUCTURE EXCEEDS hBOUNDS>
  P$OFFS=P$ALIGN			
FS	tH9 C8,%				
  IFCXNDEF P$CF,<IFG P$CxARG,<		
    MOVEDM P,CF				
    AD8DJSP P,H$LOC-1			DX
  >>
  $OKARG				
					
RG		tJ3 p8'4@			
  $$LphAB(N,\<P$IF+A>),q<L$NOSK(A):>	
 q( $$LAB(B,\<P$IF+qHA>),<L$JUMP(A):>qh	
  L$IFX(A):		r		
  P$NEST==A	r(			
  $$HW(NEST)rH				
  IFE P$NESrhT,<				
    P$IFs==P$IF+H$NEST+1		s(	
    H$NEST==0				
  >
T==0	3$&0	tJ7 ~~			
  T$E~(I==0				
  T$ADD~HR==.				
  REPEA~hT P$SIZE,<
    IFG P$SIZE-T$EI,<	(		
      %ID(V$$H,\T$EI)			
     h T$EI==.-T$ADDR			
    >
  >
	tK ."u				
  $E.8OB					
  P$LOC=.X=P$LOC+SZ%L			
P$LOC+SZ%L			
	tK0 Kx,_		
  $ENDPROC
	
  $END	tK9 'X*?				
  $E'xNDPROC				
  $ENDSCOPE				
$EN	tL TX-%		
  P$LROWN==0				
$LR	tLq ^-{
  P$LLEV^8==P$LLEV-1			
  ^X%RESTORE(L,LOC)		^x	
  %RESTORE(L,L_REG)			
  IFG P$_8SREG-P$LREG,<P$SREG==P$LREG>	
R	tM: iX.Q		
  P$RLixEV==P$RLEV-1			
j  %RESTOR(R,SREG)			
OR(R,SREG)	vL\ E,/		
  IFE E8P$RLEV,<$PROC(A,EX<B>)>	
  IFG P$ExRLEV,<$$UTEN(A,<B>)>	
EN(A,<	|  8"			
  IFNX P$FXOFF,<				
 x   IFN P$OFFS-P$F XOFF,<PRINTX ?NON 8-VARIABLE FIELD F XOLLOWS VARIABLE L xENGTH FIELDS>
  !  P$OFFS=P$FXOFF	!8		
  >
  T$BITS!X==WHOLE				
  $$!xIBP(1)				
  $$M"AX(P$OFFS-P$IXOFF"8-1)		
"$$SIZ(P$"XOFFS-P$IXOFF)			
  IFNB <A>,<
#   IFN P$MXOFF,<P#8$OFFS==P$MXOFF>	
    A==P$OFFS-P$IXOFF		
  >
	  
36		
  $CAL6@L TX.TOUT,<A>			6`
  IFNB <B>,<JRST B>		
 TXA	(` .}EC%A	) xh/Y:0			
  P$TyRAP==-1				
  U$y8ERR==A				
  DEyXFINE H$GO(ERR$,DUyxM$)<		
    EXTERzN EH.'ERR$			
  z8  U$ERR==U$ERR+1	zX		
    $ERRC(ERRzx$)==U$ERR			
  >{
  SYN H$GO,H$RET			
H$GO,H$RE3S/B0	- {X0				
  P${xTRAP==0				
  DE|FINE H$GO(ERR$,FM|8T$)<
    IFB <FM|XT$>,<XWD ''ERR$''|x,TCS'ERR$##> 
  }  IFNB <FMT$>,<XW}8D ''ERR$'',FMT$>	}X
  >
  SYN H$GO}x,H$RET			
  TXFI~RST: $TCSERR			
~8  TX.0:: 0				
	~X				
  DEFINE H$~xGO(ERR$,FMT$)<
    IFB <FMT$>,<XW8D ''ERR$'',$$CPONX(0)'ERR$##> 
8x IFNB <FMT$>,<XWD ''ERR$'',FMT$>	
  >
  SYN H$GO,XH$RET			
  $CPERR
			
  $CPER	-@ 0#				
  P$8TRAP==1				
  DEXFINE H$GO(ERR$,DUxM$)<
    EH.'ERR$::PUSHJ P,TRAP.-82		
  >
  DEFINXE H$RET(ERR$,DUM$x)<
    EH.'ERR$::PUSHJ P,TRAP.-1	8	
    EC%==$ERRCX(ERR$)			
  >
 x EHFIRST: $TCSERR			
  EH.0:: 0		8		
  EH.1:: $CPERR				
:: $CPE	dq C8$ 2 	
  LOADXCh C,$SETI(A,B)	D	
  XORM C,EAMASK&A		
C,EAMA3$TAP
	dw Dh$+2P	
  LOADXE C,$SETI(A,B)	E8	
  IORM C,EAMASK&A		
C,EAMA3$"TAP	d} F$63	
  LOADXFH C,^-<$SETI(A,FhB)>	
  ANDM C,EAMASK&A		
C,E3$-TAP	n@ 
  XLIST
  $$FMT(A,<B8>)			
  IFNDEF $X$FTX,<EXP -CA%EXIxT>		
  IFDEF $$FTX,<				
    $$F8TX					
    PURGXE $$FTX				
>
  LIST

	> w`E/H	
  A:: xC				
  T$=.-Ax8				
  XLIST
  xXREPEAT B-T$,<0>			
  LIST
0>	2}81
210TERN XT	Y` 
 j		
  IFND
(EF U$GREG,<U$GREG
H==B>		
  A==B
h				
E$$RINRANG	
(FIB-U$GREG,<U$GREG==B>	
<U$G	"*X"U
	$BYTE(A,^D18)		
TE(	&nO			
  P$Iy8MPURE==1				
yTyXWOSEG U$PURE				
  RELOC 0				
  RELOC 0				
	&t<@ H8%5		
					
  $$SETUP(A)			Hx
  T$FC==T$CASE	I			
  T$FAD==T$AI8DDR			
  IFNB <IXC>,<T$AC==C>		
Ix  IFB <C>,<
   J T$AC==AP				
  J8  %IFAC T$FC,<T$AJXC==T$ADDR>		
  >Jx
  $$SETUP(<B>)K
  T$IC==T$CASE	K8			
  T$IAD==T$AKXDDR			
  %IFI T$KxFC,<PRINTX ?DESTILNATION OF INCR ANL8 IMMEDIATE VALUE>LX
  %IFWM T$FC,<	Lx			
    %IFI T$IMC,<				
      IFM8E T$IAD-1,<$$IEXPMX(AOS T$AC,T$FAD)>Mx 
      IFN T$IAND-1,<
	$$IEXP(HRN8REI T$AC,T$IAD)	
	$$IEXP(ADDB T$ANxC,T$FAD)		
     O >
    >					
 O8   %IFNI T$IC,<		OX	
      LOAD(T$AOxC,B)			
      $P$IEXP(ADDB T$AC,TP8$FAD)		
    >
 PX >					
  %IFNW PxT$FC,<				
    LQOAD T$AC,A			
 Q8   %IFI T$IC,<			QX	
      IFE T$ICQx&1B18,<$$IEXP(ADDRI T$AC,T$IAD)> 
R8      IFN T$IC&1BRX18,<			
	IFN 17BRx17&T$IC,<PRINTX ?SCANT HANDLE NEGATS8IVE INDEXED IMMEDSXIATE OPD IN INCR>Sx
	$$IEXP(MOVEI TT$AC,T$IAD(T$AC))	T8
      >
TX >
    %IFWM T$IC,<Tx$$IEXP(ADD T$AC,TU$IAD)>	
    %IFAU8C T$IC,<ADD T$AC,UXB>		
    %IFBYTUx T$IC,<
      LOVAD TF,B			
    V8  ADD T$AC,TF
  VX  >
    STOR T$AC,A			
  >
A	&u zXl/`	
  DEFIN{E $$XOFF<C>			
{(  IFNB <B>,<B:>{H			
  DEFINE $$O{hCC(X$)<BX$>		
 | T$==0					
  P$|(SIZE==SZ%A			
 |H REPEAT SZ%A,<
|h    %PURGE(V$$,\T}$)			
    %ID(V$}($,\T$)==0			
   }H T$==T$+1				
  >
T$+1				
  2~Q0	+-\ ($$JUMP(0)$$JUMP(0)	+-\ X($$JUMP(1)$$JUMP(1)	+-\	 (!$$JUMP(2)#$$JUMP(2)	+-\	 X(%$$JUMP(3)'$$JUMP(3)	+-\
 ()$$JUMP(4)+$$JUMP(4)	+-\
 X(-$$JUMP(5)/$$JUMP(5)	+-\ (1$$JUMP(6)3$$JUMP(6)	+-\ X(5$$JUMP(7)7$$JUMP(7)	2-`  s/p		
  B==80				
  IRPC A,<B==B+1>		
,2 lP$LEN	2|86 -8"m				
$B-XLOCK(L,P$LOC)			
					
					
	3Y` x!			
P$LREG==P$LREG+1			
  IFGE P$LREG-U$XGREG,<PRINTX ?GRExGS OVERLAP LREGS>
  A==P$LREG				
A==P$LREG				6		
  XLISFXT
  $PRENT				
Fx  $PREXIT				
  GP$PROC==P$PROC+1	G8		
  P$LROWN==P$GXPROC			
  $$DHW(Gx\P$SCOPE,\P$LROWNH)		
  P$SREG==P$H8LREG			
  $$HW(LHXREG)				
  $$HW(HxLOC)				
  $ERRVI					
  $ERRT			I8		
  A:				
  IXMOVE P,[C]			
 Ix SETZM FH.OCF(P)	J		
  P$ARG==1			J8	
J$ENDARG				
  $EH(B)				
 Jx MOVSI TAP,PF%TCSK			
  MOVEM TAP,K8TCS.EH			
  LIST
EH			
  LIST	6r "8*			
  A="X=P$GC+CA%CCA			
"x  $CASE(P$GC)				#
  P$GC==P$GC+1				
C==P$GC+1		7;x #X*9			
  P$G#xC==0				
  $SCOP$E (COMPON-SPECIF $8CASES)		
  $LREG$X	(CAP)				
  IRP$x A,<$LREG(A)>		%
  $PROC	(C.CASE%8S,<IDXCAS,ARGCAS>%X)	
  MOVE T1,@ID%xXCAS(AP)			;MATER& THE INDEX
  MOV&8E CAP,@ARGCAS(AP)&X			;MATER THE CUR&xR ARG PTR
  $END'ARG
  CASES T1,MX%CCA-1			
1,M	7] ( 
		
  T$1=H=A				
  T$==%IhD(V$$,\T$1)			
  T$2==$MSETI(B,(C)		
  %ID(V$$,\HT$1)==T$!T$2			
1)==T$!T$2			
	7] 8!0 <<B>_<WHhOLE-<$$MPOS(A)>>> <$$MPOS(A)>>3!1A>>>	7p 
36		
  $CAL6@L TX.TOUT,<A>			6`
  IFNB <B>,<JRST B>		
 TXA	:  (!IFNDEF A,<A==B>DEF A,	:|9@ L8,m				
LT$LX==P$LOC-SZ%FH			
MIF2,<T$==T$-<HM$LREG-U$TREG>>		
  IFE T$+P$LREG-MXU$TREG,<P$CF==1>	
EG,<P$CF==1>		:~:h {8'[$$NOSK(1)]$$NOSK(1)	:~:i {x'_$$NOSK(2)a$$NOSK(2)	:~:i |8'c$$NOSK(3)e$$NOSK(3)	:~:j |x'g$$NOSK(4)i$$NOSK(4)	:~:j }8'k$$NOSK(5)m$$NOSK(5)	:~:k }x'o$$NOSK(6)q$$NOSK(6)	:~:k ~8's$$NOSK(7)u$$NOSK(7)	:~:t zx'W$$NOSK(0)Y$$NOSK(0)	>4l` h!RHMASK&ARHMASK&A	>\S ,oP$ARG==0	B~ f8&3
  IRP B,<POP A,B>
B	B~0 (!WHOLE-1-<<A>-^D30>-1-<<	C[Z *x+
  T$)X==TRAP.				
  T$+==U$SYS-1				
  +8REPEAT U$SYS-U$TR+XEG-1,<		
    %ID+x(EN..,\<T$-U$TREG,>)::		
    MOVEM,8 T$,T$-U$TREG-1+S,XZ%FH(P)	
    T$=,x=T$-1				
  >
 - EN..0::				
  M-8OVEM CF,FH.OCF(P)-X			
  HRLZM TF,F-xH.UNW(P)			
  JR.ST	@TF				
  SV0.8..5::				
  EXCH.X TF,0(P)
  PUSH .xP,T1
  PUSH P,T2/
  PUSH P,T3
  /8PUSH P,T4
  PUSH/X P,T5
  PUSH P,T/xF
  MOVE TF,-6(P0)
  POPJ P,
  R08S5..0::				
  PO0XP P,TF
  POP P,T0x5
  POP P,T4
  1POP P,T3
  POP P18,T2
  POP P,T1
1X  EXCH TF,0(P)
  POPJ P,
P)
 	C^ 2+C				
  T$28==0					
2XF..12X0::TDZA TF,TF			
  XT..10::SETOM 3TF			
  EX..10::38POPJ P,			
  REP3XEAT U$SYS-U$TREG,3x<		
    %ID(XF..4,\T$)::TDZA TF,TF48		
4x %ID(XT..,4X\T$)::SETOM TF		
    JRST %ID(EX.5.,\T$)			
    T$58==T$+1				
  >
5X  T$==U$SYS-1				5x
  REPEAT U$SYS-6U$TREG-1,<		
   68 %ID(EX..,\<T$-U$6XTREG>)::		
    M6xOVE T$,T$-U$TREG-71+SZ%FH(CF)	
   78 T$==T$-1				
  7X>
7EX..0::				
8MOVE P,CF				
  MOVE CF,FH.OCF88(P)			
  POPJ P,				
  POPJ P,	CH1 8x+Y			
  T$=9=0					
  REPEAT98 A+1,<			
    %9XID(EXTERN EN..,\T9x$)		
    %ID(EXT:ERN EX..,\T$)		
:8    %ID(EXTERN XT:X..,\T$)		
    %I:xD(EXTERN XF..,\T$;)		
    T$==T$+1				
  >
T$+1	Cx` N8-!		
  XLISNXT
  P$PROC==P$PRNxOC+1			
  P$LROWON==P$PROC			
  DO8EFINE $$DHW(SC$,LOXR$)<IFNDEF H$'LR$Ox'S'SC$,<H$'LR$'S'PSC$==P$LREG>>
  P8$$DHW(\P$SCOPE,\PPX$LROWN)		
  P$SRPxEG==P$LREG			
  Q$$HW(LREG)				
 Q8 $$DECODE				
  QXENTRY A				
  QxA::				

  DEFIRNE $SPROC(ALT$)<	R8		
  SYN A,ALT$RX
>

  $$HW(LOCRx)				
  P$ARG==0S				
  IFNB <B>S8,<IRP B,<
    SXB==P$ARG			
    SxP$ARG==P$ARG+1			T
  >>
  $$SAVE				
  LIST
E		C{ hH/			
  SALhxL					
  $ND(TOPiS10,0)				
  $NDi8(TOPS20,0)				
 iX IFN TOPS10,<SEARixCH UUOSYM>		
  IjFN TOPS20,<SEARCHj8 MONSYM>		
  SEAjXRCH TCSINT				
 jx IFDIF <TCS><A>,k<SEARCH ASYM>	
k8  LV%TCS==:LV%TCSkX			
  PF%TCS=='kxA'			
  DEFINE $l$CPON(DUM$)<A>		l8
  DEFINE $CPERRlX<$AERR>		
  IFNlxDEF $AERR,<DEFINmE $AERR<>> 
m$m8ND(U$GREG,CF)			
  $ND(H$LOC,SZ%FmxH)			
  $ND(H$LRnEG,U$TREG)			
nn8IF2,<H$LOC==H$LOCnX+H$LREG-U$TREG>	
oH$NEST==0				
oP$LLEV==0				
oP$RLEV==0				
  P$SCOPE==0				ox
  P$LOC==H$LREGp-U$TREG+SZ%FH		
p8  P$ARG==0				
 pX P$SREG==U$TREG		px	
  P$LREG==U$TRqEG			
					
  Pq8$UTIL==10				
		qX			
  P$CASE==0	qx			
  P$IF==0				
  P$IF==0			2y*OTCSS-P$I	C&0  <POINT 7,[ASCIZ\A\]> 7,[	C.)  H 				
  IFhNDEF P$IMPUR,<TWOSEG U$PURE>	
  R(ELOC U$PURE				
OC U$PURE				
	C.: ex&/
  IRP B,<PUSH A,B>
	J,p h! 		
  A==B
  $$RINRANGE(A,0,17)		
GE(	N| [-m			
					[8
  %SAVE(L,LREG)[X				
  %SAVE(L,L[xOC)				
					
 \ IFE P$LLEV,<				\8
    P$SCOPE==P$\XSCOPE+1			
    P\x$PROC==0				
   ] $$DHW(\P$SCOPE,0]8)			
  >
  P$LL]XEV==P$LLEV+1			
==P$LLEV+1			
	N.@ h 6			
  $$SETUP(A-<$$XOFF>)(		
  IFE T$BITS,H<			
    %PURGE(hV$$,\T$ADDR)			
    %MACRO(V$$,\T($ADDR)<B>		
  >H
  IFN T$BITS,<	h		
    T$==%ID(V$$,\T$ADDR)		
  (  %ID(V$$,\T$ADDRH)==T$!<B>B<^D35-hT$POS> 
  >					
S> 
  >						N.J  H!40 <B>B<$POS(A)> B>B<$PO3!01	N.K@ ( X		
  $SETH(A,B)			
  IFNhB <C>,<C==.+T$ADDR>		
  IFB <C(>,<				
    DEFIHNE $$SUF<>			
  h  T$==0				
    	IRPC A,<				
  	(    IFIDN <.><A>	H,<T$==1>		
     	h IFN T$,<				
	D
EFINE $$T<$$SUF>	
(	
	DEFINE $$SUF<
H$$TA>		
      >
h
    >					
    $$OCC($$SUF)==.+T$ADDR		
  >
	N] '$$SK(0)	N] ($$SK(1)	N]	 ($$SK(2)	N]	 ($$SK(3)	N]
 ($$SK(4)	N]
(	$$SK(5)	N]($$SK(6)	N] (
  IFG 0XP$TYPE,<
    $EO0xB				
    IFG P$1OFFS-P$MXOFF,<P$M18XOFF==P$OFFS> 
 1X   P$OFFS==P$TPOF1xF			
    P$POS==2P$TPPOS			
  >
28  IFE P$TYPE,<
 2X   P$TPOFF==P$OFF2xS			
    P$TPPOS3==P$POS			
  >
38  IFNB <B>,<			
4 DEFINE $$MAX3x(X$)<MX%B==X$>	
4X DEFINE $$SIZ48(X$)<SZ%B==X$>	
  >
  A==P$TYP4xE				
  MX%A==P5$TYPE			
  P$TYP58E==P$TYPE+1			
==P$TYPE+1			
	W% `x.I		
  P$UTaIL==P$UTIL+1			
a8  IFG P$LREG-%ID(aXH$,\P$LROWN,S,\P$axSCOPE), <%ID(H$,\bP$LROWN,S,\P$SCOPb8E)==P$LREG)>
			bX		
  $$HW(LREG)	bx			
  $$HW(LOC)	c			
  P$RNEW==P$c8LREG-P$SREG			
 cX IFE P$RNEW,<DEFIcxNE L$$RET(LAB$)<LdAB$'10>> 
  IFG d8P$RNEW,<				
   dX DEFINE L$$RET(LAdxB$)<%ID(LAB$,\P$UeTIL)> 
    %ID(Xe8F..,\P$UTIL):TDZAeX TF,TF	
    %ID(exXT..,\P$UTIL):SETfOM TF		
    %ID(f8EX..,\P$UTIL):			fX
    T$==P$LREG	fx			
    REPEAT Pg$RNEW,<				
    g8  POP P,T$				
 gX     T$==T$-1				gx
    >
  POPJ Ph,				
  >
  $$Uh8TEN(A,<B>)			
hX  %SAVE(R,SREG)		hx		
  P$RLEV==P$RiLEV+1			
  P$SREG==P$LREG			
E	Z.,` ;X+k				
  VR;x%CUS==0				
  VR<%VERS==1				
  V<8R%MAINT==0				
<X VR%EDIT==10				
  BYTE (3)VR%CUS=(9)VR%VERS(6)VR%M=8AINT(18)VR%EDIT
NT(18)VR%EDIT
	^+@ 
36		
  $CAL6@L TX.TOUT,<A>			6`
  IFNB <B>,<JRST B>		
 TXA	^~) 6#D0`		
  IFL 6HB,<PRINTX ?INVAL6hID SIZE FOR A>
7  IFN P$POS-WHOLE7(,<P$OFFS==P$OFFS+7H1>	
  P$POS==WHO7hLE				
  $$MAX(P8$OFFS)				
  A=8(=P$OFFS				
  P$8HOFFS==P$OFFS+B			
=P$OFFS+B		3#-1	j.+` g&D3`		
  $$SEgHTUP(A)			
  %IFghOTH T$CASE,<SETZMh B>		
  $$INST(h(SETZB,DPB,HLLZS,HhHRRZS)		
  $$COPY(B,A)			
OPY3&5AP>
&  1fABCD&4` 1zIFE A+2&4.:  H2IFLE A+3IFLE A+3&4Kz (1r			
  T$=H=0
  IRPC A,<IFhIDN <.><A>,<	
    T$==1				
   ( STOPI				
>>
  IFN T$
&>> 1tIFGEA&5j  1vIFL A&5m`  2IFLE A+2IFLE A+2&5} 2
IFE A+5&6* 2IFE A+4&6p 1|IFG A+2&6{  1xIFE A+16
<W !h2DEFINE ABDEFINE AC.)r "(2PURGE ABPURGE ABJ.= "h2		
  P$B#==%ID(P,\<P$ALEV>,$,B)	
ALEVNi  #H2		
  %ID(#hP,\<P$ALEV>,$,B)==P$B	
,$,BS@P >}{woP