PDP-10 Archive: cobol-build/chreqv.unv from BB-Z759A-SM

Trailing-Edge - PDP-10 Archives - BB-Z759A-SM - cobol-build/chreqv.unv

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

x
,5
@P B@

`H`
	%A0A==

 A&777
	%A0B==B&

777
	A1	\%A0A,\%A0B
E%CHK	A,BD 	 I^
	%A1A==E	@A%A&777
	%A1B==	`B&777
	A2	\%A1A,\%A1B
&C*u BH 	 If
	%A2A==A	@S%A&777
	%A2B==	`B&777
	E	\%A2B,\%A2A
GFIC*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 VC*jP pC*jP ^C*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 hC*kP PC*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 CT*P CT*P CT*P CT*P  CT*P  CT*	P !CT*	P !CT*
P "CT*
P "CT*P #CT*P #CT* P CT*(P $CT*(P $CT*)P %CT*)P %CT**P &CT**P &CT*+P 'CT*+P 'CT*@P CT*HP (CT*HP (CT*IP )CT*IP )CT*JP *CT*JP *CT*KP +CT*KP +CT*`P CT*hP ,CT*hP ,CT*iP -CT*iP -CT*jP .CT*jP .CT*kP /CT*kP /CT*P CT*P 0CT*P  CT*	P !CT*	P !CT*
P "CT*
P "CT*P #CT*P #CT* P CT*(P $CT*(P $CT*)P %CT*)P %CT**P &CT**P &CT*+P 'CT*+P 'CT*@P CT*HP (CT*HP (CT*IP )CT*IP )CT*JP *CT*JP *CT*KP +CT*KP +CT*`P CT*hP ,CT*hP ,CT*iP -CT*iP =CT*jP >CT*jP >CT*kP ?CT*kP ?CT* P CT*$P CT*$ P CT*$@P 	CT*$`P 	CT*%P 
CT*% P 
CT*%@P CT*%`P CT*0P CT*4P

CT*4 P

CT*4@P CT*5 P CT*5@P CT*5`P CT*@P CT*DP CT*D P CT*D@P CT*D`P CT*EP CT*E P CT*E@P CT*E`P CT*PP CT*TP CT*T P CT*T@P CT*T`P CT*UP CT*U P CT*U@P CT*U`P CT*`P CT*dP CT*d P CT*d@P CT*d`P CT*eP CT*e P CT*e@P CT*e`P CT*pP CT*tP CT*t P CT*t@P CT*t`P CT*uP CT*u P CT*u@P CT*u`P G( t@H
	%%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>
G ~I
	%%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,<%CAS	\%%T2
	%%T2==%%T2+1>
C*IPQC*JG( 	,J`
	%CHK	A,U
	CAU

C*4@G u H.
	%%T1==0	
	IFIDN	<E> <S>,	 <%%T1==77>
	IFID	@N	<E> <A>,<%%T1==	`177>
	IFIDN	<E> 	<E>,<%%T1==377>
	 	IFE	%%T1,<
	PRI	@NTX	?BAD CALL TO 	`MACRO "SET".
	PA	SS2
	END
>
	%%	 T2==0
	REPEAT	%%	@T1+1,<%CEA	\%%T2
	%%T2==%%T2+1>
G 	 J&
	%%T1==0	"
	IFIDN	<E> <S>,	" <%%T1==77>
	IFID	"@N	<E> <A>,<%%T1==	"`177>
	IFIDN	<E> 	#<E>,<%%T1==377>
	# 	IFE	%%T1,<
	PRI	#@NTX	?BAD CALL TO 	#`MACRO "SET".
	PA	$SS2
	END
>
	%%	$ T2==0
	REPEAT	%%	$@T1+1,<%CES	\%%T2
	%%T2==%%T2+1>
C*KPrC*KG( 	&@K,
	%%T1==0	2`
	IFIDN	<E> <S>,	3<%%T1==77>
	IFID	3 N	<E> <A>,<%%T1==	3@177>
	IFIDN	<E> 	3`<E>,<%%T1==377>
	4	IFE	%%T1,<
	PRI	4 NTX	?BAD CALL TO 	4@MACRO "SET".
	PA	4`SS2
	END
>
	%%	5T2==0
	REPEAT	%%	5 T1+1,<%CEU	\%%T2
	%%T2==%%T2+1>
C*+PKC*@G/IGP GN ~@H~
	%%T1==0	
	IFIDN	<S>><S>,	
	IFID	 <A>,<%%T1==	
	IFIDN	<S> 	<E>,<%%T1==377>
	 	IFE	%%T1,<
	PRI	@NTX	?BAD CALL TO 	`MACRO "SET".
	PA	SS2
	END
>
	%%	 T2==0
	REPEAT	%%	@T1+1,<%CSA	\%%T2
	%%T2==%%T2+1>
C*KPsC*`GN( 	@J
	%%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>
K*I|@GV 	,@Jd
	%CHK	U,A
	CUA
C*5@GV( 	2K
	%CHK	U,E
	CUE
rC*KI( y GP
	%%T1==y@A
	REPEAT	B-A+y`1,<%DAE	\%%T1,\0
	%%T1==%%T1+1>
J;4I6Q :wJ;4^I 	 H@
	%%T1==	@A
	REPEAT	B-A+	`1,<%DAS	\%%T1,\74	
	%%T1==%%T1+1>
I( 	'J>
	%%T1==	' A
	REPEAT	B-A+	'@1,<%DAU	\%%T1,\0
	%%T1==%%T1+1>
C*)PIC**I { G`
	%%T1=={@A
	REPEAT	B-A+{`1,<%DEA	\%%T1,\13|4
	%%T1==%%T1+1>
tj6P J@tkI 	 I0
	%%T1==	@A
	REPEAT	B-A+	`1,<%DES	\%%T1,\0
	%%T1==%%T1+1>
C*$`PC*%I( 	/J~
	%%T1==	/ A
	REPEAT	B-A+	/@1,<%DEU	\%%T1,\13	/`4
	%%T1==%%T1+1>
*PcC*IN 		 HP
	%%T1==		@A
	REPEAT	B-A+		`1,<%DSA	\%%T1,\0

	%%T1==%%T1+1>
IN

P } Gj
	%DAE	\A,\B
 9KT*IN0 	 HZ
	%DAS	\A,\B
INP 	+JX
	%DAU	\A,\B
C*$`IN( 	 I@
	%%T1==	@A
	REPEAT	B-A+	`1,<%DSE	\%%T1,\0
	%%T1==%%T1+1>
C*D P-C*D@IN, }`Gn
	%DEA	\A,\B
@IN.0 	 IJ
	%DES	\A,\B
.C*T`IN.P 	1@K


	%DEU	\A,\B
lC*IIO 	`H^
	%DSA	\A,\B
IOP 	`IN
	%DSE	\A,\B
%C*U`IO, 	+@J\
	%DUA	\A,\B
C*%`IO,P 	1K
	%DUE	\A,\B
kC*@IV 	)JN
	%%T1==	) A
	REPEAT	B-A+	)@1,<%DUA	\%%T1,\0
	%%T1==%%T1+1>
C*hPTC*iIV( 	-Jn
	%%T1==	- A
	REPEAT	B-A+	-@1,<%DUE	\%%T1,\0
	%%T1==%%T1+1>
UA%132E`J 	&`I(
	V1A==A	
	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 0K*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 	 IRSYM79(\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*5iP KL*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 KT*P KT*P KT*P$.KT*P KT*P$.KT*	P$.KT*	P$.KT*
P$.KT*
P$.KT*P$.KT*P$.KT* P$.KT*(P$.KT*(P$.KT*)P$.KT*)P KT**P KT**P KT*+P KT*+P >KT*@P$.KT*HP KT*HP$.KT*IP$.KT*IP$.KT*JP$.KT*JP$.KT*KP$.KT*KP$.KT*`P KT*hP$.KT*hP$.KT*iP KT*iP KT*jP KT*jP KT*kP KT*kP /KT*P KT*P KT*P KT*	P$.KT*	P$.KT*
P$.KT*
P$.KT*P$.KT*P$.KT* P$.KT*(P$.KT*(P$.KT*)P$.KT*)P KT**P KT**P /KT*+P KT*+P KT*@P$.KT*HP$.KT*HP$.KT*IP$.KT*IP$.KT*JP$.KT*JP$.KT*KP$.KT*KP$.KT*`P$.KT*hP$.KT*hP 0KT*iP KT*iP KT*jP  KT*jP KT*kP KT*kP KT* P KT*$P 
KT*$P$.KT*$P  KT*$	P !KT*$	P !KT*$
P "KT*$
P "KT*$P #KT*$P #KT*$ P 
KT*$(P $KT*$(P $KT*$)P$.KT*$)P$.KT*$*P$.KT*$*P$.KT*$+P$.KT*$+P$.KT*$@P KT*$HP$.KT*$HP %KT*$IP %KT*$IP &KT*$JP &KT*$JP 'KT*$KP 'KT*$KP (KT*$`P KT*$hP (KT*$hP )KT*$iP$.KT*$iP$.KT*$jP$.KT*$jP$.KT*$kP$.KT*$kP$.KT*%P KT*%P$.KT*%P ?KT*%	P )KT*%	P *KT*%
P *KT*%
P +KT*%P +KT*%P ,KT*% P KT*%(P ,KT*%(P -KT*%)P$.KT*%)P$.KT*%*P$.KT*%*P -KT*%+P$.KT*%+P$.KT*%@P KT*%HP$.KT*%HP$.KT*%IP$.KT*%IP$.KT*%JP$.KT*%JP$.KT*%KP$.KT*%KP$.KT*%`P KT*%hP$.KT*%hP$.KT*%iP$.KT*%iP$.KT*%jP$.KT*%jP .KT*%kP$.KT*%kP$.KT*0P KT*4P$.KT*4P =KT*4P  KT*4	P !KT*4	P !KT*4
P "KT*4
P "KT*4P #KT*4P #KT*4 P

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

KT*T`P$.KT*UP$.KT*U P KT*U@P KT*U`P KT*`P KT*dP$.KT*d P$.KT*d@P$.KT*d`P$.KT*eP 	KT*e P 	KT*e@P KT*e`P KT*pP ?KT*tP$.KT*t P$.KT*t@P$.KT*t`P$.KT*uP$.KT*u P 
KT*u@P$.KT*u`P$.RP @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 Vg*uP eg*u P hg*u@P /g*u`P 6g  a`Fn





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

	DEFINEc	%E1	(V1, V2)<
	c IFDEF	AB%'V1,<
		IFN	AB%'V1-Vc`2,<
		%RDF	AB%d'V1',\AB%'V1',\d V2>>
	IFNDEF	Ad@B%'V1,<AB%'V1==d`V2>
	IFDEF	BA%e'V2,<
		IFN	BAe %'V2-V1,<
		%RDFe@	BA%'V2',\BA%e`'V2',\V1>>
	IFNDfEF	BA%'V2,<BAf %'V2==V1>
>

f@


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

	DEFINE	%DhAB	(T1,T2)<
	IFh NDEF AB%'T1,<Ah@B%'T1==T2!1B18>
>





	DEFIiNE	DBA	(F, L)<
	%%T1==F
	REPEAi@T	L-F+1,<%DBA	\i`%%T1,\D
	%%T1==j%%T1+1>
>

	DEFj INE	%DBA	(T1,T2j@)<
	IFNDEF BA%j`'T1,<BA%'T1==T2k!1B18>
>


k 

	DEFINE	DSAB	k@(V, C)<
	%DAB	k`\V,\C
>




l
	DEFINE	DSBA	(l V, C)<
	%DBA	\l@V,\C
>





l`	DEFINE	CAB	<
m	%CHK	A,B
	CAm B
>





	Dm@EFINE	CBA	<
	%m`CHK	B,A
	CBA
>

A
	CBAgfjv  G"AE%A
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 0k* P k*@P k*`P 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*0P k*4P

k*4 P

k*4@P k*5 P k*5@P k*5`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*`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*P k*P k*P k*P >k*P `k*	P ak*	P ak*
P bk*
P bk*P ck*P ck* P k*(P dk*(P dk*)P hk*)P ik**P ik**P jk*+P jk*+P kk*@P k*HP kk*HP lk*IP lk*IP qk*JP qk*JP rk*KP rk*KP sk*`P k*hP sk*hP tk*iP tk*iP Vk*jP pk*jP ^k*kP /k*kP 6k*P k*P <k* P 
k*@P k*`P k*iP `k*jP 'k*jP hk*kP Pk*kP k* P k*$P k*$ P 
k*$@P k*$`P k*%P k*% P k*%@P k*%`P k*0P k*4P k*4 P

k*4@P k*5P 	k*5 P k*5@P k*5`P k*@P k*DP  k*D P -k*D@P ?k*D`P =k*EP -k*E P 6k*E@P (k*E`P >k*PP k*TP &k*T P .k*T@P .k*T`P 'k*UP 5k*U P 0k*U@P %k*U`P 0k*`P k*dP xk*d P xk*d@P yk*d`P yk*eP zk*e P zk*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 7k*u`P 7lFP ?lJP 
d+P 
"P 
" P P ` P `

P =

 P `P  P `

P 	 H
	IFNDEF		@AE%A,<
	PRINTX		`%	AE%A IS NOT DEFINED.
>0 	 I&
	IFNDEF		@AS%A,<
	PRINTX		`%	AS%A IS NOT DEFINED.
>TC*i, 	 H6
	IFNDEF		@EA%A,<
	PRINTX		`%	EA%A IS NOT DEFINED.
>.0 	% J.
	IFNDEF		%@ES%A,<
	PRINTX		%`%	ES%A IS NOT DEFINED.
>^C*k.P 	6K4
	IFNDEF		6 EU%A,<
	PRINTX		6@%	EU%A IS NOT DEFINED.
>RC*KE0 o@G 
	DEFINE	o`CAB	<
	%%T1==0p
	IFIDN	<A> <S>p ,<%%T1==77>
	IFIp@DN	<A> <A>,<%%T1p`==177>
	IFIDN	<qA> <E>,<%%T1==377q >
	IFE	%%T1,<
	q@PRINTX	?BAD CALL q`TO MACRO "SET".
r	PASS2
	END
>
r 	%%T2==0
	REPEATr@	%%T1+1,<%CAB	\r`%%T2
	%%T2==%%T2s+1>
>

	DEFINE	s %CAB	(VALUE)<
s@	IFNDEF	AB%'VALs`UE,<
	PRINTX	%	tAB%'VALUE IS NOT DEFINED.
>>
 	 I
	IFNDEF		@SA%A,<
	PRINTX		`%	SA%A IS NOT DEFINED.
>/C*kP 	! J
	IFNDEF		!@SE%A,<
	PRINTX		!`%	SE%A IS NOT DEFINED.
>>C*

P z@GV
	IFNDEF z`AE%A,<AE%A==B!1B18>
 :yJ;6|T0 	@HF
	IFNDEF 	`AS%A,<AS%A==B!1B18>
P 	( JD
	IFNDEF 	(@AU%A,<AU%A==B!1B18>
KC*H, |@Gf
	IFNDEF |`EA%A,<EA%A==B!1B18>
 J@v;.0 	@I6
	IFNDEF 	`ES%A,<ES%A==B!1B18>
C*4 .P 	0 K
	IFNDEF 	0@EU%A,<EU%A==B!1B18>
iC** 	
@HV
	IFNDEF 	
`SA%A,<SA%A==B!1B18>
P 	@IF
	IFNDEF 	`SE%A,<SE%A==B!1B18>
>C*P, 	* JT
	IFNDEF 	*@UA%A,<UA%A==B!1B18>
C* ,P 	. Jt
	IFNDEF 	.@UE%A,<UE%A==B!1B18>
I`C* u@G>
	IFDEF	Uu`E%A,<
		IFN	UE%vA-B,<
		%RDF	Uv E%A,\UE%A,\B>>v@
	IFNDEF	UE%A,<v`UE%A==B>
	IFDEwF	EU%B,<
		IFN	w EU%B-A,<
		%RDw@F	EU%B,\EU%B,\w`A>>
	IFNDEF	EU%B,<EU%B==A>
J$` n Fx
	IFN	CKRn@DF.,<
	PRINTX	%An`TTEMPT TO REDEFINoE A FROM B TO C.
>OM B TO S@P >}{woP 
COPYRIGHT (C) 1983 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.