PDP-10 Archive: 5,17/plrmac.unv from BB-FI82B-DD

Trailing-Edge - PDP-10 Archives - BB-FI82B-DD_1989 - 5,17/plrmac.unv

There are 10 other files named plrmac.unv in the archive. Click here to see a list.

x
,Sg@P B@ HP|?
	%A0A==HA&777
	%A0B==B&Gp777
	A1	\%A0A,\%A0B
E%CHK	A,BD W}=
	%A1A==EW0A%A&777
	%A1B==WPB&777
	A2	\%A1A,\%A1B
C*%BH X}E
	%A2A==AX0S%A&777
	%A2B==XPB&777
	E	\%A2B,\%A2A
`C*P C*P C*P C*P >C*P `C*	P aC*	P aC*
P bC*
P bC*P cC*P cC* P C*(P dC*(P dC*)P hC*)P iC**P iC**P jC*+P jC*+P kC*@P C*HP kC*HP lC*IP lC*IP qC*JP qC*JP rC*KP rC*KP sC*`P C*hP sC*hP tC*iP tC*iP pC*jP$6C*jP hC*kP$'C*kP 6C*P C*P$>C*P @C*	P AC*	P AC*
P BC*
P BC*P CC*P CC* P 
C*(P DC*(P DC*)P HC*)P IC**P IC**P JC*+P JC*+P KC*@P C*HP KC*HP LC*IP LC*IP QC*JP QC*JP RC*KP RC*KP SC*`P C*hP SC*hP TC*iP TC*iP `C*jP 'C*jP XC*kP$6C*kP C* P C*$P C*$ P 
C*$@P C*$`P C*%P C*% P C*%@P C*%`P C*0P C*4P C*4 P

C*4@P C*5P 	C*5 P C*5@P C*5`P C*@P C*DP  C*D P -C*D@P ?C*D`P =C*EP -C*E P 6C*E@P (C*E`P >C*PP C*TP &C*T P .C*T@P .C*T`P 'C*UP 5C*U P 0C*U@P %C*U`P 0C*`P C*dP xC*d P xC*d@P yC*d`P yC*eP zC*e P zC*e@P {C*e`P {C*pP C*tP |C*t P |C*t@P =C*t`P /C*uP &C*u P ?C*u@P 7C*u`P 7CL*P$CL*P$CL*P$CL*P CL*P CL*	P CL*	P CL*
P CL*
P CL*P CL*P CL* P$CL*(P CL*(P CL*)P CL*)P CL**P CL**P CL*+P CL*+P CL*@P$CL*HP CL*HP CL*IP CL*IP CL*JP CL*JP CL*KP CL*KP CL*`P$CL*hP CL*hP CL*iP CL*iP CL*jP CL*jP CL*kP CL*kP CL*P$CL*P$CL*P CL*	P CL*	P CL*
P CL*
P CL*P CL*P CL* P$CL*(P CL*(P CL*)P CL*)P CL**P CL**P CL*+P CL*+P CL*@P$CL*HP CL*HP CL*IP CL*IP CL*JP CL*JP CL*KP CL*KP CL*`P$CL*hP CL*hP CL*iP CL*iP$CL*jP$CL*jP$CL*kP$CL*kP$CL* P$CL*$P$CL*$ P$CL*$@P$CL*$`P$CL*%P$CL*% P$CL*%@P$CL*%`P$CL*0P$CL*4P$CL*4 P$CL*4@P$CL*4`P$CL*5P$CL*5 P$CL*5@P$CL*5`P$CL*@P$CL*DP CL*D P CL*D@P CL*D`P CL*EP CL*E P CL*E@P CL*E`P CL*PP$CL*TP CL*T P CL*T@P CL*T`P CL*UP CL*U P CL*U@P CL*U`P CL*`P$CL*dP CL*d P CL*d@P 	CL*d`P 	CL*eP 
CL*e P 
CL*e@P CL*e`P CL*pP$CL*tP

CL*t P

CL*t@P CL*u P CL*u@P CL*u`P CN, 	xy
		..X==0 
		..Z==1
		..W@==0
		IRPC A,<
			IFE ..Z-1,<..W==..W!<"A"B7>>
			IFE ..Z-2,<..@W==..W!<"A"B15>>`
			IFE ..Z-3,<..W==..W!<"A"B23> >
			IFE ..Z-4,<@..W==..W!<"A"B31`>>
			IFE ..Z-5,<
				IFE ..X,<
				B:
				..X@==1
				>
				E`XP	..W
				   ..Z==1
				   ..W= ="A"B7
				>
	@		..Z==..Z+1
			`>
		IFE ..X,<B:>
		EXP	..W
C:	POINT	8,B
		D@ E:=P 
E2]I7P @E2]h6P E2};P  EV0@ F({A  F({F
2A  F
2FMmA  FMmF^
2A  F^
2FlA  FlFA  FFA  FFX{A  FX{F[A  F[F

VA  F

VF[RA  F[RFA  FF
2A  F
2G( 00{m
	%%T1==0:p
	IFIDN	<A> <S>,;<%%T1==77>
	IFID;0N	<A> <A>,<%%T1==;P177>
	IFIDN	<A> ;p<E>,<%%T1==377>
<	IFE	%%T1,<
	PRI<0NTX	?BAD CALL TO <PMACRO "SET".
	PA<pSS2
	END
>
	%%=T2==0
	REPEAT	%%=0T1+1,<%CAE	\%%T2
	%%T2==%%T2+1>
C*@PC*HG 9p|}
	%%T1==0Lp
	IFIDN	<A> <S>,M<%%T1==77>
	IFIDM0N	<A> <A>,<%%T1==MP177>
	IFIDN	<A> Mp<E>,<%%T1==377>
N	IFE	%%T1,<
	PRIN0NTX	?BAD CALL TO NPMACRO "SET".
	PANpSS2
	END
>
	%%OT2==0
	REPEAT	%%O0T1+1,<%CAS	\%%T2
	%%T2==%%T2+1>
C*)PhC*)Gx ~GLOB A>G 1|
	%%T1==0>p
	IFIDN	<E> <S>,?<%%T1==77>
	IFID?0N	<E> <A>,<%%T1==?P177>
	IFIDN	<E> ?p<E>,<%%T1==377>
@	IFE	%%T1,<
	PRI@0NTX	?BAD CALL TO @PMACRO "SET".
	PA@pSS2
	END
>
	%%AT2==0
	REPEAT	%%A0T1+1,<%CEA	\%%T2
	%%T2==%%T2+1>
C*$`PC*%G Y~
	%%T1==0]p
	IFIDN	<E> <S>,^<%%T1==77>
	IFID^0N	<E> <A>,<%%T1==^P177>
	IFIDN	<E> ^p<E>,<%%T1==377>
_	IFE	%%T1,<
	PRI_0NTX	?BAD CALL TO _PMACRO "SET".
	PA_pSS2
	END
>
	%%`T2==0
	REPEAT	%%`0T1+1,<%CES	\%%T2
	%%T2==%%T2+1>
BH}?C*G"]K@ PycIFL <A-Bp>,<
	PRINTX#ALLOCATEDBLOCKGSIZEP0A>ISvTO'SMALLCFORBB>MALLLFOG"uP G#
PAGE@; (A Continued o`n next page)
SALL; (A Continued  from previous page) previous pagGC&  @yUPOINT 8,<<`<A>+CHP8WD-1>/CHP8WD>-1+B,<<<MODP(<A>+CHP8WD-1,CHP8WD)>+1>*8>-1HGC&*  yYCPTR (<A>-1,<B>)R (<A>GN :0|]
	%%T1==0Hp
	IFIDN	<S> <S>,I<%%T1==77>
	IFIDI0N	<S> <A>,<%%T1==IP177>
	IFIDN	<S> Ip<E>,<%%T1==377>
J	IFE	%%T1,<
	PRIJ0NTX	?BAD CALL TO JPMACRO "SET".
	PAJpSS2
	END
>
	%%KT2==0
	REPEAT	%%K0T1+1,<%CSA	\%%T2
	%%T2==%%T2+1>
K*)PK**GN( Y0}e
	%%T1==0Z
	IFIDN	<S> <S>,Yp<%%T1==77>
	IFIDZPN	<S> <A>,<%%T1==Z0177>
	IFIDN	<S> [<E>,<%%T1==377>
Zp	IFE	%%T1,<
	PRI[0NTX	?BAD CALL TO [PMACRO "SET".
	PA[pSS2
	END
>
	%%\T2==0
	REPEAT	%%\0T1+1,<%CSE	\%%T2
	%%T2==%%T2+1>
C*e`P{C*pI( 5{/
	%%T1==50A
	REPEAT	B-A+5P1,<%DAE	\%%T1,\0
	%%T1==%%T1+1>
iLuPiLuI C|
	%%T1==C0A
	REPEAT	B-A+CP1,<%DAS	\%%T1,\74Cp
	%%T1==%%T1+1>
*D`P=C*EI 7{?
	%%T1==70A
	REPEAT	B-A+7P1,<%DEA	\%%T1,\137p4
	%%T1==%%T1+1>
u}:QxciLvyI Q}
	%%T1==Q0A
	REPEAT	B-A+QP1,<%DES	\%%T1,\0
	%%T1==%%T1+1>
C*iPtC*iI?: xxK
IFNDEF G	$SCHD,<EXTERN G$S	8CHD>
	SETOM	G$SCHD
	SETOM	G$SCILtQ pILtvQ  ILt9Q @ILv<vQ IN E|/
	%%T1==E0A
	REPEAT	B-A+EP1,<%DSA	\%%T1,\0
	%%T1==%%T1+1>
C*d PxC*d@IN

P 9{I
	%DAE	\A,\B
xniXtI7IN0 G|9
	%DAS	\A,\B
=C*t`IN( S}
	%%T1==S0A
	REPEAT	B-A+SP1,<%DSE	\%%T1,\0
	%%T1==%%T1+1>
C*(PDC*(IN, 9P{M
	%DEA	\A,\B
iXui;IN.0 U})
	%DES	\A,\B
LC*IIO GP|=
	%DSA	\A,\B
7C*u`IOP UP}-
	%DSE	\A,\B
RC*KJ Bp{
	V1A==A10
	V2A==B
	%E1	\V1A,\V2A
%E1	K*P K*P K*P$.K*P K*P$.K*	P$.K*	P$.K*
P$.K*
P$.K*P$.K*P$.K* P$.K*(P$.K*(P$.K*)P$.K*)P K**P K**P K*+P K*+P >K*@P$.K*HP K*HP$.K*IP$.K*IP$.K*JP$.K*JP$.K*KP$.K*KP$.K*`P K*hP$.K*hP$.K*iP K*iP K*jP K*jP K*kP K*kP$.K*P K*P K*P K*	P$.K*	P$.K*
P$.K*
P$.K*P$.K*P$.K* P$.K*(P$.K*(P$.K*)P$.K*)P K**P K**P /K*+P K*+P K*@P$.K*HP$.K*HP$.K*IP$.K*IP$.K*JP$.K*JP$.K*KP$.K*KP$.K*`P$.K*hP$.K*hP$.K*iP K*iP K*jP  K*jP K*kP K*kP K* P K*$P$.K*$P$.K*$P 0K*$	P 1K*$	P 1K*$
P 2K*$
P 2K*$P 3K*$P 3K*$ P$.K*$(P 4K*$(P 4K*$)P$.K*$)P$.K*$*P$.K*$*P$.K*$+P$.K*$+P$.K*$@P$.K*$HP$.K*$HP 5K*$IP 5K*$IP 6K*$JP 6K*$JP 7K*$KP 7K*$KP 8K*$`P K*$hP 8K*$hP 9K*$iP$.K*$iP$.K*$jP$.K*$jP$.K*$kP$.K*$kP$.K*%P K*%P$.K*%P$.K*%	P 9K*%	P :K*%
P :K*%
P ;K*%P ;K*%P <K*% P K*%(P <K*%(P =K*%)P$.K*%)P$.K*%*P$.K*%*P$.K*%+P$.K*%+P$.K*%@P K*%HP >K*%HP$.K*%IP$.K*%IP$.K*%JP$.K*%JP$.K*%KP$.K*%KP$.K*%`P K*%hP$.K*%hP$.K*%iP$.K*%iP$.K*%jP$.K*%jP$.K*%kP$.K*%kP$.K*0P K*4P$.K*4P =K*4P  K*4	P !K*4	P !K*4
P "K*4
P "K*4P #K*4P #K*4 P

K*4(P $K*4(P $K*4)P$.K*4)P$.K*4*P$.K*4*P$.K*4+P$.K*4+P$.K*4@P$.K*4hP (K*4hP )K*4iP$.K*4iP$.K*4jP$.K*4jP$.K*4kP$.K*4kP$.K*5P$.K*5P -K*5P$.K*5	P )K*5	P *K*5
P *K*5
P +K*5P +K*5P ,K*5 P$.K*5(P ,K*5(P -K*5)P$.K*5)P$.K*5*P$.K*5*P$.K*5+P$.K*5+P$.K*5@P$.K*5HP K*5HP K*5IP K*5IP K*5JP K*5JP K*5KP K*5KP K*5`P$.K*5hP K*5hP K*5iP$.K*5iP$.K*5jP$.K*5jP$.K*5kP$.K*5kP$.K*@P 
K*DP K*DP$K*D@P$K*D`P$.K*EP K*E P K*E@P K*E`P

K*T`P$.K*UP$.K*U P K*U@P K*U`P K*`P K*dP$.K*d P$.K*d@P$.K*d`P$.K*eP 	K*e P 	K*e@P K*e`P K*pP ?K*tP$.K*t P$.K*t@P$.K*t`P$.K*uP$.K*u P 
K*u@P$.K*u`P$.K
ht V}1SYM79(\A)SYM79(\A)KL*P KL*P KL*P KL*P KL*P KL*	P KL*	P KL*
P KL*
P*KL*P*KL*P*KL*P*KL*(P*KL*(P*KL*)P*KL*)P KL**P KL**P KL*+P KL*+P KL*@P KL*HP KL*HP KL*IP KL*IP KL*JP KL*JP KL*KP KL*KP KL*`P KL*hP KL*hP KL*iP KL*iP KL*jP KL*jP KL*kP 
P KL*
P*KL*P*KL*P*KL*P*KL*(P*KL*(P*KL*)P*KL*)P*KL**P*KL**P*KL*+P*KL*+P*KL*@P KL*HP KL*HP KL*IP KL*IP KL*JP KL*JP KL*KP KL*KP KL*`P KL*hP KL*hP KL*iP 
P KL*$
P KL*$P KL*$P KL*$ P KL*$(P KL*$(P KL*$)P KL*$)P KL*$*P KL*$*P KL*$+P KL*$+P KL*$@P KL*$HP KL*$HP KL*$IP KL*$IP KL*$JP KL*$JP KL*$KP KL*$KP KL*$`P KL*$hP KL*$hP KL*$iP KL*$iP KL*$jP KL*$jP KL*$kP KL*$kP KL*%P KL*%P KL*%P KL*%	P KL*%	P KL*%
P KL*%
P KL*%P KL*%P KL*% P KL*%(P KL*%(P KL*%)P KL*%)P KL*%*P KL*%*P KL*%+P KL*%+P KL*%@P KL*%HP KL*%HP KL*%IP KL*%IP KL*%JP KL*%JP KL*%KP KL*%KP KL*%`P KL*%hP KL*%hP KL*%iP KL*%iP KL*%jP KL*%jP KL*%kP KL*%kP KL*0P KL*4P KL*4P KL*4P KL*4	P KL*4	P KL*4
P KL*4
P KL*4P KL*4P KL*4 P KL*4(P KL*4(P KL*4)P KL*4)P KL*4*P KL*4*P KL*4+P KL*4+P KL*4@P KL*4HP KL*4HP KL*4IP KL*4IP KL*4JP KL*4JP KL*4KP KL*4KP KL*4`P KL*4hP KL*4hP KL*4iP KL*4iP KL*4jP KL*4jP KL*4kP KL*4kP KL*5P KL*5P KL*5P KL*5	P KL*5	P KL*5
P KL*5
P KL*5P KL*5P KL*5 P KL*5(P KL*5(P KL*5)P KL*5)P KL*5*P KL*5*P KL*5+P KL*5+P KL*5@P KL*5HP KL*5HP KL*5IP 	KL*5IP 	KL*5JP 
KL*5JP 
KL*5KP KL*5KP KL*5`P KL*5hP

KL*5hP

KL*5iPKL*5iP KL*5jP KL*5jP KL*5kP KL*5kP KL*@P KL*DP KL*D P KL*D@P KL*D`P KL*EP KL*E P KL*E@P KL*E`P KL*PP KL*TP KL*T P KL*T@P KL*T`P KL*UP KL*U P KL*U@P KL*U`P KL*`P KL*dP KL*d P KL*d@P KL*d`P KL*eP KL*e P KL*e@P KL*e`P KL*pP KL*tP KL*t P KL*t@P KL*t`P KL*uP KL*u P KL*u@P KL*u`P L
xA  L
xL$[A  L$[L&)6A  L&)6L4:A  L4:L4@A  L4@LL-3A  LL-3LL.:A  LL.:LMiWA  LMiWLM|A  LM|L|-3A  L|-3L|.:A  L|.:L}|A  L}|L|`A  L|`L[A  L[L[@A  L[@L]`A  L]`L)6A  L)6M4P!M3I7P M<t:Q xMRxWP MRV>9P MS&(1Q MS.

WQ MS.[yQ MS6

WQ MVt=A  MVt=O2|  j[IRP A,<
j0	IF2,<IFDEF A,<.jPIFN A,EXTERN,<INjpTERN A>>
	     kIFNDEF A,<EXTERNk0 A>
	Q SUPPRESQA>>@SUPPRO3FQ>l,P Q>l,qP Q>l-P #Q>l9YP

Q>l:xP Q>l;P Q>l;XP Q>l;rP ?Q>l<YP Q>l=6P &Q>l=9P %Q>lXHP Q>lXIP Q>l[RP &Q>li0P  Q>li1P Q>li6P Q>li9P !Q>lx9P 
2P}Q>m9P Q>mvP Q>m5P "Q>m5P 	Q>m;P Q>m;P "Q>mI7P Q>mKsP Q>mM7P Q>mYRP Q>m[ZP Q>m\zP $Q>mh6P Q>mnP Q>mzqP <Q>m|P $Q>m}YP 
P Q>n

P Q>n

[P Q>n({P Q>n)3P 	Q>n*8P Q>n8:P Q>n8zP Q>n9P #Q>n9:P #Q>n:1P 
Q>n:2P 
Q>n;P Q>n;P ?Q>n;VP Q>n;XP Q>n<P

Q>n<QP Q>n=3P Q>n=7P Q>n=xP Q>nH1P Q>nHyP !Q>n[H@ Q>n]P Q>nj2P :Q>nl|P =Q>v9:P Q?9:P RP `R+qA  R+qR/
:A  R/
:RE|zA  RE|zRMj:A  RMj:RMmA  RMmRMm	A  RMm	RMm	A  RMm	RMySA  RMySRM{@A  RM{@RUSA  RUSR]+qA  R]+qRu}`A  Ru}`RLA  RLR|A  R|R%9A  R%9R>K`A  R>K`S>}P S>BP S>$\BP S>-yBP S>5iBP S>6	BP 
S>EI"P S>M|P S>NbP S>f("P 	S>fI"P S>u|P S?BP S?%I"P S?%]BP S?,YBP S?5I"P S?6	BP 
S?=I"P U7[V 8xC
	CAXE	AX,LT.BLP
	CAXN	Ax,LT.LTM
	JRST	B
	CAXE	A,LT.NL
	CAXN	A,LT.NLV
	JRST	B
NLV@4@UVn<VuV@AV@V}:AV}:VYSAVYSV,:AV,:V5LtAV5LtV~	7A$V~	7V;qA%V;qV}:A5V}:VN8AdVN8VY:AtVY:V&yAV&yV'X);X[ZA  X[ZXRA  XRYt+zP Yt87P Yt;wP YtI9P YtMP Yt[sP YtkSP YtlP 
Yu	P YuxP YuLPP 	YuMP Yv

rP YvK;P YvLRP YvY3P YvkP YvlP 
Yv{P Y2Q  Y2 Q Y20Q Y2@Q Y2PQ Y2`Q Y"luQ xY&i1 p

	  LSTOF. XCREF

	CDO0	OTSINI			
	CDO	P    			
	CDO	.ZPpAGA
	CDO	.ZPAGN
	CDO	.ZCHNK
	CD0O	.SAVE1
	CDO	.SPAVE2
	CDO	.SAVE3p
	CDO	.SAVE4
	CDO	.SAVET
	CDO	.0SV13
	CDO	.SV14
	CDO	.SV15
	CDOp	.SV16
	NT	.RETT
	NT	.RETF
	CDO0	.RETE
	CDO	.AOSP		
	CDO	.SOS		
p	CDO	.ZERO		
	NT	.POPJ		
	CDO	.S0TOP		
	CDO	.SAVEP8		
	CDO	.STKST	p	
	CDO	.TRSET		
	NT	.POPJ1		
	C0DO	.UD2SC		
	CDOP	.SC2UD		
	CDO	.pCPUTY		
	CDO	.DI	E		
	CDO
	CDO
	0
	CDO			
	CDO	C	P%RPRM
	CDO	C%INT	pR
	CDO	C%SEND
	
CDO	C%RECV
	CDO	
0C%BRCV
	CDO	C%RE
PL
	CDO	C%CPID
	
pCDO	C%KPID
	CDO	C%SPID
	CDO	C%MA0XP
	CDO	C%PIDJ
P	CDO	C%PIDH
	CDOp	C%SIDX
	CDO
	C

DO
	CDO

	CDO

0      			
	CDO	F

P%IOPN
	CDO	F%AOP

pN
	CDO	F%OOPN
	DO	F%IBYT
	CDO	T
	CDO	F%IB
	CDO	F%OBUF
	CDO	F%REL
	CDO	F%DREL
	CDO	F%RR0EL
	CDO	F%REW
	PCDO	F%POS
	CDO	Fp%CHKP
	CDO	F%INFO
	CDO	F%FD
	CD0O	F%REN
	CDO	F%DPEL
	CDO	F%FCHN
p	CDO
	CDO
	CDO
	CDO
	CDO
	CDO0
	CDO
	CDO
	CDPO	FUNCT.			

	CpDO	      			
	CDO	M%ACQP
	CDO	M%0RELP
	CDO	M%IPSNP
	CDO	M%NXPG
	CpDO	M%IPRC
	CDO	M%IPRM
	CDO	M%AQN0P
	CDO	M%RLNP
	PCDO	M%CLNC
	CDO	pM%FPGS
	CDO	M%GMEM
	CDO	M%RMEM
0	CDO
	CDO
	CDO
	CDO
	CDO
	CDOp
	CDO	M%GPAG
	CDO	M%RPAG
	CDO
0	CDO
	CDO
	CDO
	CDO
	CDO
	CDOp
	CDO

	CDO	      			
	CDO	T%T0EXT
	CDO	T%TTY
P	CDO
	CDO
	CDO
	CDO
	CDO
	CDO
	CDO
	CDO
	CD0O
	CDO

	CDO	 P     			
	CDO	L%pCLST
	CDO	L%DLST
	CDO	L%CENT
	C0DO	L%CBFR
	CDO	LP%DENT
	CDO	L%NEXpT
	CDO	L%FIRS
	CDO	L%LAST
	CDO	0L%PREV
	CDO	L%PRPEM
	CDO	L%CURR
p	CDO	L%RENT
	CDO	L%SIZE
	CDO	L%A0POS
	CDO
	CDO
P	CDO
	CDO
	CDO
	CDO
	CDO
	CDO

	CDO			
	CDO0	I%NOW
	CDO	I%EXPIT
	CDO	I%ION
	pCDO	I%IOFF
	CDO	I%SLP
	CDO	I%INT01
	CDO	I%INT2
	PCDO	I%INT3
	CDO	pI%TIMR
	CDO
	CDO
	CDO	I%SOPR
	0CDO	I%WTO
	CDO
P	CDO	I%HOST
	CDOp	I%JINF
	CDO	I%CJOB
	CDO	I%KJOB

	CDO	S%U2DT		
	CDO	S%DT2U
	CDpO	S%DATI
	CDO	S%SIXB
	CDO	S%CMND0
	CDO	S%TBLK
	CPDO	S%SCMP
	CDO	Sp%ERR
	CDO	S%INTR
	CDO	S%EXIT
	C0DO	S%TBAD
	CDO	SP%TBDL
	CDO	S%NUMpI


	CDO	K%RCO C			
	CDO	K%WCOC 0
	CDO	K%SUET
	C PDO	K%STYP
	CDO	K p%TXTI
	CDO	K%SOU!T
	CDO	K%BOUT
	!0CDO	K%BIN
	CDO	K!P%BACK
	CDO	K%TPO!pS
	CDO	K%BUFF
	"CDO	K%FLSH
	CDO	"0K%OPEN
	CDO	K%EC"PHO
	CDO
	CDO
	"pCDO
	CDO
	CDO
#	CDO
	CDO
	CDO
	  LSTON.
YHWP YHt;P YHt;P YHt[zP YHt[{P YHtj7P YHtkzP YHuX<P YHu[zP YHvyP YHvK P YHv\XP YO%GP YO%yG '0E
	IFNDEF 'PLSTIN.,LSTIN.==0	'p	
IFE LSTIN.,<
(	IFIDN <XCREF><A(0>,<.XCREF>	
		  (P XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G )O
	IFG LST)0IN.,LSTIN.==LSTIN)P.-1	
	IFLE LSTIN)p.,<.CREF		
		      LIST>
		   YP@ YPt+P YPuP YPu6P YPuMP YPuX<P YPukP YPukP YPulvP YPv;P YPv=6P Z@ Z

<8A  Z

<8ZXA  ZXZKQA  ZKQZ6	yA  Z6	yZ=Y6A  Z=Y6Z>3A  Z>3ZN

QA  ZN

QZN

VA  ZN

VZN

wA  ZN

wZw

A  Zw

Z[A  Z[ZKXA  ZKXZY6A  ZY6Z3A  Z3[I; @yDLEVA==1BALEVA==1B[FkvP [>  yH<A>-<<<A>/<B>>*<B>>A] F 4IF2,<IFDEFF@ A,<A==A>> IFNDEF A,<A==B>]P ~ CDO A _
Ql}p _
Qm7p _STA  _ST`P a+= 5a3X1P a3XwP a3Y9P a3\P a3\ZP a3]P a3]P a3YP 1a3Z7P a3i9P a3zP aJ}Ks `0%

	SALL	`P			
	LSTOF. XCRE`pF			

	%%.GLX==a%%.GLX			
	GLXVRa0S==GLXVRS			

	aPIFNB <A>,<%%.MODap==SIXBIT/A/> 
	bIFNB <B>,<%%.OTSb0==SIXBIT/B/> 
bP
	GLOB	I%INIT			

	TOPS10	<			
c		SEARCH	UUOSYM		c0
		%%UUOS==%%UUOcPS		
	>				

	TcpOPS20	<			
		SEAdRCH	MONSYM		
;		d0%%MONS==%%MONS		
	>				

	IFB <dpB>,<			
		IFN GeLXPUR,<
			.TEXTe0	|,REL:GLXLIB/SEAePRCH/REQUIRE:I%INIepT/SEGMENT:LOW|
	f	>			
		DEFINE	$f0DATA (NAM,SIZ<1>)fP,< 
			NAM:	BLOCfpK	SIZ
		>			
		gDEFINE	CDO (X),<Gg0LOB X> 
		DEFINEgP	NT(X),<CDO X>	
gp		LIBVEC			
	>		h		

	IFNB <B>,h0<			
		IFDEF .MChPRV.,<.VERSION <GLhpXVRS>>
		CHKEDT i(B)		

	IFDIF i0<B><INI>,<		
		iPIFN GLXPURE,<.PSEipCT .HIGH.> 
		IFjE GLXPURE,<		
		j0	TWOSEG	400000	
jP			RELOC	0	
			RjpELOC	400000	
		>k			

		DEFINE $k0DATA(NAM,SIZ<1>),kP< 
			IFN GLXPURkpE,<.PSECT DATA> 
			IFE GLXPURE,<l0RELOC> 
			IFNDElPF B%D,<B%D::! lpB%DL==:0>
			NAMm:	BLOCK	SIZ
			m0B%DL==:B%DL+SIZ mP
			IFN GLXPURE,mp<.ENDPS DATA> 
	n		IFE GLXPURE,<REn0LOC> 
		>			

nP	IFDIF <B><OTS>,np<		
		DEFINE	CDOo (X),<GLOB X> 
	o0	DEFINE	NT(X),<CDoPO X> 
		LIBVEC		op
	>			

	>			
	

	IFIDN <B>p0<INI>,< 
		DEFINpPE	$DATA (NAM,SIZ<pp1>),< 
			NAM:	BqLOCK	SIZ
		>			
	>				
	>

	LqPSTON.				

	GLOqpB	<.POPJ, .RETT, r.RETF>	
	OPDEF	$r0RET	[POPJ	P,]	
	rPOPDEF	$RETT	[PJRSrpT	.RETT]	
	OPDEFs	$RETF	[PJRST	.REs0TF]	
	OPDEF	$RETsPIT	[JUMPT	.POPJ]	sp
	OPDEF	$RETIF	[tJUMPF	.POPJ]	
	.t0NODDT	$RET,$RETT,tP$RETF,$RETIT,$RETIF
$RETIT,$RETe"luP'f[RA  f[Rf$A  f$f&DZA  f&DZf.,@A  f.,@f/
:A  f/
:fMmA  fMmfv[4A  fv[4f;8A  f;8fA  ff$(2A  f$(2f$)A  f$)f$+A  f$+f*)A  f*)g*P g*P g*P g* P g*@P g*`P g*P g* P g*@P g*`P g* P g*$P g*$ P g*$@P g*$`P g*%P g*% P g*%@P g*%`P g*0P g*4P g*4 P g*4@P g*4`P g*5P g*5 P g*5@P g*5`P g*@P g*DP  g*D P  g*D@P !g*D`P !g*EP "g*E P "g*E@P #g*E`P #g*PP g*TP $g*T P $g*T@P %g*T`P %g*UP &g*U P &g*U@P 'g*U`P 'g*`P g*dP (g*d P (g*d@P )g*d`P )g*eP *g*e P *g*e@P +g*e`P +g*pP g*tP ,g*t P ,g*t@P -g*t`P -g*uP .g*u P .g*u@P /g*u`P /g*P  g*P -g*P &g* P .g*@P .g*`P 'g*P 5g* P 0g*@P %g*`P 0g* P ?g*$P xg*$ P xg*$@P yg*$`P yg*%P zg*% P zg*%@P {g*%`P {g*0P =g*4P |g*4 P |g*4@P =g*4`P /g*5P &g*5 P ?g*5@P 7g*5`P 7g*@P -g*DP >g*D P `g*D@P ag*D`P ag*EP bg*E P bg*E@P cg*E`P cg*PP 6g*TP dg*T P dg*T@P hg*T`P ig*UP ig*U P jg*U@P jg*U`P kg*`P (g*dP kg*d P lg*d@P lg*d`P qg*eP qg*e P rg*e@P rg*e`P sg*pP >g*tP sg*t P tg*t@P tg*t`P pg*uP$6g*u P hg*u@P$?g*u`P 6g  zK




0
	DEFINE	E	(V1, PV2)<
	V1A==V1
	pV2A==V2
	%E1	\V1A,\V2A
>

	DEF0INE	%E1	(V1, V2)<P
	IFDEF	AB%'V1p,<
		IFN	AB%'V1-V2,<
		%RDF	A0B%'V1',\AB%'V1P',\V2>>
	IFNDEF	pAB%'V1,<AB%'V 1==V2>
	IFDEF	B 0A%'V2,<
		IFN	 PBA%'V2-V1,<
		% pRDF	BA%'V2',\B!A%'V2',\V1>>
	I!0FNDEF	BA%'V2,<!PBA%'V2==V1>
>
!p




	DEFINE	"DAB	(F, L)<
	%"0%T1==F
	REPEAT	L"P-F+1,<%DAB	\%%T"p1,\C
	%%T1==%%T#1+1>
>

	DEFIN#0E	%DAB	(T1,T2)<#P
	IFNDEF AB%'T#p1,<AB%'T1==T2!1$B18>
>




$0
	DEFINE	DBA	($PF, L)<
	%%T1==F
	REPEAT	L-F+1,<%%DBA	\%%T1,\D
%0	%%T1==%%T1+1>
>%P

	DEFINE	%DB%pA	(T1,T2)<
	IFND&EF BA%'T1,<BA&0%'T1==T2!1B18>
>&P




	DEFIN&pE	DSAB	(V, C)<
	%DAB	\V,\C
>'0





	DEFI'PNE	DSBA	(V, C)<'p
	%DBA	\V,\C
(>





	DEF(0INE	CAB	<
	%CH(PK	A,B
	CAB
(p>





	DEF)INE	CBA	<
	%CH)0K	B,A
	CBA
>


	CBA
gfjv  {AE%AtKHh$^A  h$^h&N A  h&N i

tKHP i

tKIP i

tKIP i

tKJP i

tKJP i

v	P i

vN8Q ~ih1p ih5p LihQp DihZp Yihtp MiiP 'iip ?iip Aiip SiiP ii1p Kii<p CiiQp &iiTP &iiWp GiiYp ZiiZP &ii[p Nii]p ii{p Cijp Xij1p *ij1p (ij4p ]ij6p \ij7p Lij7p %ij8p ^ij9p `ij;p ^ijQp Eikp Fikp Dikp BikP `ik[p Zikqp ikqp )iktp ]ik{p Filp Kilp ilp Eilp @ilp Ailp JilP ilSp BilTp YilXp @ilip Iilpp Xilsp Jilvp \ilwp ?ilxp [ilzp Iil}p `im6p [im7p WimQp _imVp OimWp MimXp _imqp 4imyp it<RQ xit^P'ivLVP iP it;P itKHP itKIP itKIP itKJP itKJP itMTQ xithzQ xiv)VP'ity7P'ivi9Q xi tm7P'i uI7Q xi$tWQ  i$t+zQ i$tI1Q @i$t[sQ  i$t[zQ i$uI:Q i$uKRQ i$uMQ i$ux;Q @i$u|Q i$v;xQ i0t+P'i0v)1Q xi2Al}p i2iip i2ijp i2ilzp i?4( (!IFN FTUUOS,B			;DEFINE UNi?4H h!IFN FTJSYS,	INTERN AEDT	i@tI7Q xi@vyP'i@v

ZP'i@v,8P'i@v-vQu@iLtP'iLt+xQ @iLtD0Q iLt\YQ iLt^QxLiLtiSQiLtlrQuQiLuiLuiTQ iLuiWQ @iLuk{Q iLulXP iLumQ iLu|wQ iLu}:Q iLvyP'iLv

sQ  iLv

wQ  iLv,:P iLv;Q iLvLVP xiLvkQ @iLvlQ 0iLv{Q @iXt;ZQ piXtI7P `iXt\PQ iXuQ iXuHZP iXui;Q @iXukrQ iXu}YQ  i\t+P i\uwP i\uVP i\uHVP i\uX<P i\u[ZP i\uyVP i\v-7Q ic&:=P 2lFP `lJP oAFkP oBkP pP 	H  c@~e8 
			A:	BLOCK	B
		A,E~,~1NIT	J.@ ,~	J.I@P`5~HJ.I@	J.J3P`4@~MB~
@	J.J:P`5@~MB~
@	J.MP`5~GJ.M	Sr @y@

	XLIST
`	IF2,<IFNDEF G$DEBUG,<EXTERN G$DEB UG>
		IFNDEF STS@D.L,<EXTERNAL STS`D.L>>
	SKIPN	G$DEBUG			
	JRST	e 			
	MOVX	TF,LEV@B		
	TDNN	TF,G$`DEBUG		
	JRST	e			
	$TEXT	(,<A  Device: ^W/TCB.D@V(B)/ ^A>)
	PUSH`J	P,STSD.L		
IFNB <C>,<
	$TEXT	 (,<^W/C/^A>)
>@
	$TEXT	(,<>)			
IFNB <D>,<D>			
e:!
	LIST

e:!
	LIST

t{P 
u[rQ a3X1
vP 
"P 
" P 
.[yQ </P ` P `

P =

 P `P  P `

P >{u
	IFNDEF	>0AE%A,<
	PRINTX	>P%	AE%A IS NOT DEFINED.
>sC*`0 P}
	IFNDEF	P0AS%A,<
	PRINTX	PP%	AS%A IS NOT DEFINED.
>lC*I, B|
	IFNDEF	B0EA%A,<
	PRINTX	BP%	EA%A IS NOT DEFINED.
>4`.0 a~
	IFNDEF	a0ES%A,<
	PRINTX	aP%	ES%A IS NOT DEFINED.
>bC*
E0 +z
	DEFINE	+0CAB	<
	%%T1==0+P
	IFIDN	<A> <S>+p,<%%T1==77>
	IFI,DN	<A> <A>,<%%T1,0==177>
	IFIDN	<,PA> <E>,<%%T1==377,p>
	IFE	%%T1,<
	-PRINTX	?BAD CALL -0TO MACRO "SET".
-P	PASS2
	END
>
-p	%%T2==0
	REPEAT.	%%T1+1,<%CAB	\.0%%T2
	%%T2==%%T2.P+1>
>

	DEFINE.p	%CAB	(VALUE)<
	IFNDEF	AB%'VA/0LUE,<
	PRINTX	%	/PAB%'VALUE IS NO/pT DEFINED.
>>
 DEFINED.
>>
 L|e
	IFNDEF	L0SA%A,<
	PRINTX	LP%	SA%A IS NOT DEFINED.
>K*jP ]}m
	IFNDEF	]0SE%A,<
	PRINTX	]P%	SE%A IS NOT DEFINED.
>7C*u`

P 60{5
	IFNDEF 6PAE%A,<AE%A==B!1B18>
xqiLu:60 D0|%
	IFNDEF DPAS%A,<AS%A==B!1B18>
&C*T , 80{E
	IFNDEF 8PEA%A,<EA%A==B!1B18>
xiLvk.0 R0}
	IFNDEF RPES%A,<ES%A==B!1B18>
C*N:`P  F0|5
	IFNDEF FPSA%A,<SA%A==B!1B18>
{C*pP T0}%
	IFNDEF TPSE%A,<SE%A==B!1B18>
JC*+$P  1p{!
	IFDEF	E2S%A,<
		IFN	ES%20A-B,<
		%RDF	E2PS%A,\ES%A,\B>>2p
	IFNDEF	ES%A,<3ES%A==B>
	IFDE30F	SE%B,<
		IFN	3PSE%B-A,<
		%RD3pF	SE%B,\SE%B,\4A>>
	IFNDEF	SE%B,<SE%B==A>
J$` )pzU
	IFN	CKR*DF.,<
	PRINTX	%A*0TTEMPT TO REDEFIN*PE A FROM B TO C.
>OM B TO JdWP R	 P ~0A  ~0S@P ]A  ]LPA  LP|,TP |I;P |kQP }yP B~
@A  B~
@B~
HA  B~
HJ.I A  J.I J.I@A  J.I@J.MA  J.MJ4I3P N

0P Ni(A  Ni(Ni)A  Ni)Ni)A  Ni)Ni*A  Ni*Ni,A  Ni,Ni:A  Ni:N-2A  N-2N~0A  N~0O%<zA  O%<zO%|A  O%|O2`A  O2`O2A  O2O2 A  O2 O2@A  O2@R486P R4;<P SiP Sk<P Sm7P S9:A  S9:SWP SuP S

WP V",qA  V",qjUA  jUj.+`A  j.+`kpA  kpkwA  kw>}{woP