PDP-10 Archive: 10,7/galaxy/pulsar/plrmac.unv from BB-BT99U-BB

Trailing-Edge - PDP-10 Archives - BB-BT99U-BB_1990 - 10,7/galaxy/pulsar/plrmac.unv

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

x
,Ui@P B@ K@|V
	%A0A==KA&777
	%A0B==B&J`777
	A1	\%A0A,\%A0B
E%CHK	A,BD Z}T
	%A1A==EZ A%A&777
	%A1B==Z@B&777
	A2	\%A1A,\%A1B
	C*5 BH [}\
	%A2A==A[ S%A&777
	%A2B==[@B&777
	E	\%A2B,\%A2A
=C*EC*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,

hy/
		..X==0
		..Z==1
		..W0==0
		IRPC A,<
			IFE ..Z-1,<..pW==..W!<"A"B7>>
			IFE ..Z-2,<..0W==..W!<"A"B15>>P
			IFE ..Z-3,<.p.W==..W!<"A"B23>>
			IFE ..Z-4,<0..W==..W!<"A"B31P>>
			IFE ..Z-5,p<
				IFE ..X,<
				B:
				..X0==1
				>
				EPXP	..W
				   ..pZ==1
				   ..W=="A"B7
				>
	0		..Z==..Z+1
			P>
		IFE ..X,<B:p>
		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( 3 |
	%%T1==0=`
	IFIDN	<A> <S>,><%%T1==77>
	IFID> N	<A> <A>,<%%T1==>@177>
	IFIDN	<A> >`<E>,<%%T1==377>
?	IFE	%%T1,<
	PRI? NTX	?BAD CALL TO ?@MACRO "SET".
	PA?`SS2
	END
>
	%%@T2==0
	REPEAT	%%@ T1+1,<%CAE	\%%T2
	%%T2==%%T2+1>
C*@PC*HG <`}
	%%T1==0O`
	IFIDN	<A> <S>,P<%%T1==77>
	IFIDP N	<A> <A>,<%%T1==P@177>
	IFIDN	<A> P`<E>,<%%T1==377>
Q	IFE	%%T1,<
	PRIQ NTX	?BAD CALL TO Q@MACRO "SET".
	PAQ`SS2
	END
>
	%%RT2==0
	REPEAT	%%R T1+1,<%CAS	\%%T2
	%%T2==%%T2+1>
C*IPqC*JGx ~5GLOB A>G 4|$
	%%T1==0A`
	IFIDN	<E> <S>,B<%%T1==77>
	IFIDB N	<E> <A>,<%%T1==B@177>
	IFIDN	<E> B`<E>,<%%T1==377>
C	IFE	%%T1,<
	PRIC NTX	?BAD CALL TO C@MACRO "SET".
	PAC`SS2
	END
>
	%%DT2==0
	REPEAT	%%D T1+1,<%CEA	\%%T2
	%%T2==%%T2+1>
C*5@PC*5`G \~
	%%T1==0``
	IFIDN	<E> <S>,a<%%T1==77>
	IFIDa N	<E> <A>,<%%T1==a@177>
	IFIDN	<E> a`<E>,<%%T1==377>
b	IFE	%%T1,<
	PRIb NTX	?BAD CALL TO b@MACRO "SET".
	PAb`SS2
	END
>
	%%cT2==0
	REPEAT	%%c T1+1,<%CES	\%%T2
	%%T2==%%T2+1>
C*HPlC*IG"]K@ @yzIFL <A-B`>,<
	PRINTX#ALLOCATEDBLOCKGSIZEPA>ISvTO'SMALLCFORBB>MALLLFOG"uP G#
PAGE`; (A Continued on next page)
SAL L; (A Continued @from previous page) previous pagGC&  0ylPOINT 8,<<P<A>+CHP8WD-1>/CHpP8WD>-1+B,<<<MOD@(<A>+CHP8WD-1,CHP8WD)>+1>*8>-1HGC&*  ypCPTR (<A>-1,<B>)R (<A>GN = |t
	%%T1==0K`
	IFIDN	<S> <S>,L<%%T1==77>
	IFIDL N	<S> <A>,<%%T1==L@177>
	IFIDN	<S> L`<E>,<%%T1==377>
M	IFE	%%T1,<
	PRIM NTX	?BAD CALL TO M@MACRO "SET".
	PAM`SS2
	END
>
	%%NT2==0
	REPEAT	%%N T1+1,<%CSA	\%%T2
	%%T2==%%T2+1>
K*PK*GN( \ }|
	%%T1==0]
	IFIDN	<S> <S>,\`<%%T1==77>
	IFID]@N	<S> <A>,<%%T1==] 177>
	IFIDN	<S> ^<E>,<%%T1==377>
]`	IFE	%%T1,<
	PRI^ NTX	?BAD CALL TO ^@MACRO "SET".
	PA^`SS2
	END
>
	%%_T2==0
	REPEAT	%% T1+1,<%CSE	\%%T2
	%%T2==%%T2+1>
CL*PCL*I( 8{F
	%%T1==8 A
	REPEAT	B-A+8@1,<%DAE	\%%T1,\0
	%%T1==%%T1+1>
iLvLVPxiLvkI F|6
	%%T1==F A
	REPEAT	B-A+F@1,<%DAS	\%%T1,\74F`
	%%T1==%%T1+1>
*U@P%C*U`I :{V
	%%T1==: A
	REPEAT	B-A+:@1,<%DEA	\%%T1,\13:`4
	%%T1==%%T1+1>
uX<Pi\u[ZI T}&
	%%T1==T A
	REPEAT	B-A+T@1,<%DES	\%%T1,\0
	%%T1==%%T1+1>
C*	PAC*
I?: hxb
IFNDEF G

$SCHD,<EXTERN G$S

(CHD>
	SETOM	G$SCHD
	SETOM	G$SCILtQ pILtvQ  ILt9Q @ILv<vQ IN H|F
	%%T1==H A
	REPEAT	B-A+H@1,<%DSA	\%%T1,\0
	%%T1==%%T1+1>
C*uP&C*u IN

P <{`
	%DAE	\A,\B
xl	J.J:IN0 J|P
	%DAS	\A,\B
DdGIN( V}6
	%%T1==V A
	REPEAT	B-A+V@1,<%DSE	\%%T1,\0
	%%T1==%%T1+1>
C*HPLC*IIN, <@{d
	%DEA	\A,\B

u[rIN.0 X}@
	%DES	\A,\B
TC*iIO J@|T
	%DSA	\A,\B
G#rIOP X@}D
	%DSE	\A,\B
6C*kJ E`{"
	V1A==A4 
	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 Y}HSYM79(\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|  k8eIRP A,<
kX	IF2,<IFDEF A,<.kxIFN A,EXTERN,<INlTERN A>>
	     l8IFNDEF A,<EXTERNlX A>
	Q SUPPRESQA>>FSUPPRO3FQ>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>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=7PQ>n=xPQ>nH1PQ>nHyP !Q>n[H@ Q>n]P Q>nj2P :Q>nl|P =Q>u
: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 
(xZ
	CAXE	A
H,LT.BLP
	CAXN	A
h,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 #

	  LST8OF. XCREF

	CDOX	OTSINI			
	CDO	x    			
	CDO	.ZPAGA
	CDO	.ZPAGN
	CDO	.ZCHNK
	CDXO	.SAVE1
	CDO	.SxAVE2
	CDO	.SAVE3
	CDO	.SAVE4
	C8DO	.SAVET
	CDO	.XSV13
	CDO	.SV14
	CDO	.SV15
	CDO	.SV16
	NT	.RETT8
	NT	.RETF
	CDOX	.RETE
	CDO	.AOSx		
	CDO	.SOS		
	CDO	.ZERO		
	NT8	.POPJ		
	CDO	.SXTOP		
	CDO	.SAVEx8		
	CDO	.STKST			
	CDO	.TRSET		
	NT	.POPJ1		
	C	XDO	.UD2SC		
	CDO	x	.SC2UD		
	CDO	.
CPUTY		
	CDO	.DI
8E		
	CDO
	CDO

X
	CDO			
	CDO	C
x%RPRM
	CDO	C%INTR
	CDO	C%SEND
	8CDO	C%RECV
	CDO	XC%BRCV
	CDO	C%RExL
	CDO	C%CPID

CDO	C%KPID
	CDO

8C%SPID
	CDO	C%MA

XXP
	CDO	C%PIDJ

x	CDO	C%PIDH
	CDOIDX
	CDO
	C
	CDO

	CDO	 			
	CDO	F
	CDO	F%AOPN
	CDO	F%OOPN
	8CDO	F%IBYT
	CDO	XF%OBYT
	CDO	F%IBxUF
	CDO	F%OBUF
	CDO	F%REL
	CDO	8F%DREL
	CDO	F%RRXEL
	CDO	F%REW
	xCDO	F%POS
	CDO	F%CHKP
	CDO	F%INF8O
	CDO	F%FD
	CDXO	F%REN
	CDO	F%DxEL
	CDO	F%FCHN
	CDO
	CDO
	CDO
	CDO
	CDO
	CDOX
	CDO
	CDO
	CDxO	FUNCT.			

	CDO	      			
	CD8O	M%ACQP
	CDO	M%XRELP
	CDO	M%IPSNx
	CDO	M%NXPG
	CDO	M%IPRC
	CDO	M8%IPRM
	CDO	M%AQNXP
	CDO	M%RLNP
	xCDO	M%CLNC
	CDO	M%FPGS
	CDO	M%GM8EM
	CDO	M%RMEM
X	CDO
	CDO
	CDO
	CDO
	CDO
	CDO
	CDO	M%GPAG
	C8DO	M%RPAG
	CDO
X	CDO
	CDO
	CDO
	CDO
	CDO
	CDO
	CDO

	CDO	  8    			
	CDO	T%TXEXT
	CDO	T%TTY
x	CDO
	CDO
	CDO
	CDO
	CDO
	CDO8
	CDO
	CDO
	CDXO
	CDO

	CDO	 x     			
	CDO	L%CLST
	CDO	L%DLST8
	CDO	L%CENT
	CXDO	L%CBFR
	CDO	Lx%DENT
	CDO	L%NEXT
	CDO	L%FIRS
	8CDO	L%LAST
	CDO	XL%PREV
	CDO	L%PRxEM
	CDO	L%CURR
	CDO	L%RENT
	CDO8	L%SIZE
	CDO	L%AXPOS
	CDO
	CDO
x	CDO
	CDO
	CDO
	CDO
	CDO
	CDO8

	CDO			
	CDOX	I%NOW
	CDO	I%EXxIT
	CDO	I%ION
	CDO	I%IOFF
	CDO	8I%SLP
	CDO	I%INTX1
	CDO	I%INT2
	xCDO	I%INT3
	CDO	I%TIMR
	CDO
	CD8O
	CDO	I%SOPR
	XCDO	I%WTO
	CDO
x	CDO	I%HOST
	CDO	I%JINF
	CDO	I%C8JOB
	CDO	I%KJOB

	CDO	S%U2DT		
	CDO	S%DT2U
	CDO	S%DATI
	CDO	S%8SIXB
	CDO	S%CMNDX
	CDO	S%TBLK
	CxDO	S%SCMP
	CDO	S %ERR
	CDO	S%INTR 8
	CDO	S%EXIT
	C XDO	S%TBAD
	CDO	S x%TBDL
	CDO	S%NUM!I


	CDO	K%RCO!8C			
	CDO	K%WCOC!X
	CDO	K%SUET
	C!xDO	K%STYP
	CDO	K"%TXTI
	CDO	K%SOU"8T
	CDO	K%BOUT
	"XCDO	K%BIN
	CDO	K"x%BACK
	CDO	K%TPO#S
	CDO	K%BUFF
	#8CDO	K%FLSH
	CDO	#XK%OPEN
	CDO	K%EC#xHO
	CDO
	CDO
	$CDO
	CDO
	CDO
$8	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 (XO
	IFNDEF (xLSTIN.,LSTIN.==0	)	
IFE LSTIN.,<
)8	IFIDN <XCREF><A)X>,<.XCREF>	
		  )x XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G *8Y
	IFG LST*XIN.,LSTIN.==LSTIN*x.-1	
	IFLE LSTIN+.,<.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; 0y[LEVA==1BALEVA==1B[FkvP [>  py_<A>-<<<A>/<B>>*<B>>A] GH>IF2,<IFDEFGh A,<A==A>> IFNDEF A,<A==B>]P ~7CDO A _
Ql}p _
Qm7p _STA  _ST`P a+= 5a3X1P a3XwP a3Y9P a3\P a3\ZP a3]P a3]P a3YP 2a3Z7P a3i9P a3zP aJ}Ks aX+

	SALL	ax			
	LSTOF. XCREbF			

	%%.GLX==b8%%.GLX			
	GLXVRbXS==GLXVRS			

	bxIFNB <A>,<%%.MODc==SIXBIT/A/> 
	c8IFNB <B>,<%%.OTScX==SIXBIT/B/> 
cx
	GLOB	I%INIT			

	TOPS10	<			
d8		SEARCH	UUOSYM		dX
		%%UUOS==%%UUOdxS		
	>				

	TeOPS20	<			
		SEAe8RCH	MONSYM		
;		eX%%MONS==%%MONS		
	>				

	IFB <fB>,<			
		IFN Gf8LXPUR,<
			.TEXTfX	|,REL:GLXLIB/SEAfxRCH/REQUIRE:I%INIgT/SEGMENT:LOW|
	g8	>			
		DEFINE	$gXDATA (NAM,SIZ<1>)gx,< 
			NAM:	BLOChK	SIZ
		>			
		h8DEFINE	CDO (X),<GhXLOB X> 
		DEFINEhx	NT(X),<CDO X>	
i		LIBVEC			
	>		i8		

	IFNB <B>,iX<			
		CHKEDT (ixB)		

	IFDIF <jB><INI>,<		
		IFj8N GLXPURE,<.PSECTjX .HIGH.> 
		IFE jxGLXPURE,<		
			TkWOSEG	400000	
		k8	RELOC	0	
			RELkXOC	400000	
		>		kx	

		DEFINE $DAlTA(NAM,SIZ<1>),< l8
			IFN GLXPURE,lX<.PSECT DATA> 
	lx		IFE GLXPURE,<REmLOC> 
			IFNDEF m8B%D,<B%D::! B%mXDL==:0>
			NAM:	mxBLOCK	SIZ
			B%nDL==:B%DL+SIZ 
n8			IFN GLXPURE,<.nXENDPS DATA> 
			nxIFE GLXPURE,<RELOoC> 
		>			

	Io8FDIF <B><OTS>,<	oX	
		DEFINE	CDO (oxX),<GLOB X> 
		DpEFINE	NT(X),<CDO p8X> 
		LIBVEC		
pX	>			

	>			
	px

	IFIDN <B><IqNI>,< 
		DEFINE	q8$DATA (NAM,SIZ<1>qX),< 
			NAM:	BLOqxCK	SIZ
		>			
	r>				
	>

	LSTr8ON.				

	GLOB	rX<.POPJ, .RETT, .RrxETF>	
	OPDEF	$REsT	[POPJ	P,]	
	OPs8DEF	$RETT	[PJRST	sX.RETT]	
	OPDEF	$sxRETF	[PJRST	.RETFt]	
	OPDEF	$RETITt8	[JUMPT	.POPJ]	
tX	OPDEF	$RETIF	[JUtxMPF	.POPJ]	
	.NOuDDT	$RET,$RETT,$Ru8ETF,$RETIT,$RETIF
$RETIT,$RETIFe"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   zb




  
	DEFINE	E	(V1,  @V2)<
	V1A==V1
	 `V2A==V2
	%E1	\V1!A,\V2A
>

	DEF! INE	%E1	(V1, V2)<!@
	IFDEF	AB%'V1!`,<
		IFN	AB%'V"1-V2,<
		%RDF	A" B%'V1',\AB%'V1"@',\V2>>
	IFNDEF	"`AB%'V1,<AB%'V#1==V2>
	IFDEF	B# A%'V2,<
		IFN	#@BA%'V2-V1,<
		%#`RDF	BA%'V2',\B$A%'V2',\V1>>
	I$ FNDEF	BA%'V2,<$@BA%'V2==V1>
>
$`




	DEFINE	%DAB	(F, L)<
	%% %T1==F
	REPEAT	L%@-F+1,<%DAB	\%%T%`1,\C
	%%T1==%%T&1+1>
>

	DEFIN& E	%DAB	(T1,T2)<&@
	IFNDEF AB%'T&`1,<AB%'T1==T2!1'B18>
>




' 
	DEFINE	DBA	('@F, L)<
	%%T1==F
	REPEAT	L-F+1,<%(DBA	\%%T1,\D
( 	%%T1==%%T1+1>
>(@

	DEFINE	%DB(`A	(T1,T2)<
	IFND)EF BA%'T1,<BA) %'T1==T2!1B18>
>)@




	DEFIN)`E	DSAB	(V, C)<
	%DAB	\V,\C
>* 





	DEFI*@NE	DSBA	(V, C)<*`
	%DBA	\V,\C
+>





	DEF+ INE	CAB	<
	%CH+@K	A,B
	CAB
+`>





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


	CBA
gfjv  {AE%Av;xh$^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 P!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  f0~3h( 
			A:	BLOCK	B
		A,E~C~&1NITi	J.@ ,~	J.I@P`5~_J.I@	J.J3P`4@~dB~
@	J.J:P`5@~dB~
@	J.MP`5~^J.M	Sr 0yW

	XLIST
P	IF2,<IFNDEF G$DEpBUG,<EXTERN G$DEBUG>
		IFNDEF STS0D.L,<EXTERNAL STSPD.L>>
	SKIPN	G$DpEBUG			
	JRST	e			
	MOVX	TF,LEV0B		
	TDNN	TF,G$PDEBUG		
	JRST	ep			
	$TEXT	(,<A Device: ^W/TCB.D0V(B)/ ^A>)
	PUSHPJ	P,STSD.L		
IFNpB <C>,<
	$TEXT	(,<^W/C/^A>)
>0
	$TEXT	(,<>)			
IFNB <D>,<D>		p	
e:!
	LIST

e:!
	LIST

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

P =

 P `P  P `

P A|


	IFNDEF	A AE%A,<
	PRINTX	A@%	AE%A IS NOT DEFINED.
>sC*`0 S}
	IFNDEF	S AS%A,<
	PRINTX	S@%	AS%A IS NOT DEFINED.
>tC*i, E|,
	IFNDEF	E EA%A,<
	PRINTX	E@%	EA%A IS NOT DEFINED.
>6C*E@.0 d~$
	IFNDEF	d ES%A,<
	PRINTX	d@%	ES%A IS NOT DEFINED.
>sC*hE0 .{
	DEFINE	. CAB	<
	%%T1==0.@
	IFIDN	<A> <S>.`,<%%T1==77>
	IFI/DN	<A> <A>,<%%T1/ ==177>
	IFIDN	</@A> <E>,<%%T1==377/`>
	IFE	%%T1,<
	0PRINTX	?BAD CALL 0 TO MACRO "SET".
0@	PASS2
	END
>
0`	%%T2==0
	REPEAT1	%%T1+1,<%CAB	\1 %%T2
	%%T2==%%T21@+1>
>

	DEFINE1`	%CAB	(VALUE)<
	IFNDEF	AB%'VA2 LUE,<
	PRINTX	%	2@AB%'VALUE IS NO2`T DEFINED.
>>
 DEFINED.
>>
 O||
	IFNDEF	O SA%A,<
	PRINTX	O@%	SA%A IS NOT DEFINED.
>C*P `~
	IFNDEF	` SE%A,<
	PRINTX	`@%	SE%A IS NOT DEFINED.
>NBH

P 9 {L
	IFNDEF 9@AE%A,<AE%A==B!1B18>
yiXu0 G |<
	IFNDEF G@AS%A,<AS%A==B!1B18>
yC*e, ; {\
	IFNDEF ;@EA%A,<EA%A==B!1B18>
	H .0 U },
	IFNDEF U@ES%A,<ES%A==B!1B18>
DC*(N:`P  I |L
	IFNDEF I@SA%A,<SA%A==B!1B18>

E2};P W }<
	IFNDEF W@SE%A,<SE%A==B!1B18>
SC*`$P  4`{8
	IFDEF	E5S%A,<
		IFN	ES%5 A-B,<
		%RDF	E5@S%A,\ES%A,\B>>5`
	IFNDEF	ES%A,<6ES%A==B>
	IFDE6 F	SE%B,<
		IFN	6@SE%B-A,<
		%RD6`F	SE%B,\SE%B,\7A>>
	IFNDEF	SE%B,<SE%B==A>
J$` ,`zl
	IFN	CKR-DF.,<
	PRINTX	%A- TTEMPT TO REDEFIN-@E 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