Google
 
Trailing-Edge - PDP-10 Archives - ap-c800d-sb - numeqv.unv
There are 10 other files named numeqv.unv in the archive. Click here to see a list.
x
,@P B@ ]p5oSN%A==AN%BSN%A==AN%BD ^05sA0	\A,\SA%AA0	\A,\SAC5` ]04YAVA==A&1]7
					IFGE AVAK-^D10,<AVA==AVA-10>
					AVAC-` K05
		%%T1==KP0
		IFIDN	<A> <AKp>,<
			%%T1==177L
			DEFINE	ADVN L0(N)<AV'N==N&17
	LP				IFGE AV'N-^D1Lp0,<AV'N==AV'N-10>M
					>
			>
	M0	IFIDN	<A> <E>,<
			%%T1==377
		Mp	DEFINE	EDVN (N)<NEV'N==N&17
					N0 IFGE EV'N-^D10,<NPEV'N==EV'N-10>
	Np				>
			>
		IFOE	%%T1,<
			PRINO0TX	?BAD CALL TO MOPACRO "SET".
			POpASS2
			END>
		P%%T2==0
		REPEATP0	%%T1+1,<
			ASYPPM	\%%T2
			%%T2==%%T2+1>		%%T2=C2 U05-
		%%T1==UPA
		ALC1	\%%T1A
		ALC1	\%%T1C2 5/ALA==1C8*P C8*P C8*P C8*P C8*P C8*	P C8*	P C8*
P C8*
P C8*P C8*P C8* P C8*(P C8*(P C8*)P @C8*)P AC8**P AC8**P BC8*+P BC8*+P CC8*@P C8*HP CC8*HP DC8*IP DC8*IP C8*JP C8*JP C8*KP C8*KP C8*`P C8*hP C8*hP C8*iP C8*iP C8*jP C8*jP @C8*kP C8*kP C8*P C8*P C8*P C8*	P C8*	P C8*
P C8*
P C8*P C8*P C8* P C8*(P C8*(P C8*)P @C8*)P AC8**P AC8**P BC8*+P BC8*+P CC8*@P C8*HP CC8*HP DC8*IP DC8*IP C8*JP C8*JP C8*KP C8*KP C8*`P C8*hP C8*hP C8*iP C8*iP C8*jP C8*jP @C8*kP C8*kP C8* P C8*$P C8*$ P C8*$@P C8*$`P C8*%P C8*% P C8*%@P C8*%`P C8*0P C8*4P C8*4 P C8*4@P C8*4`P C8*5P C8*5 P C8*5@P C8*5`P C8*@P C8*DP C8*D P @C8*D@P C8*D`P C8*EP C8*E P C8*E@P C8*E`P C8*PP C8*TP C8*T P C8*T@P C8*T`P C8*UP C8*U P C8*U@P C8*U`P C8*`P C8*dP C8*d P C8*d@P C8*d`P C8*eP C8*e P C8*e@P C8*e`P C8*pP C8*tP C8*t P C8*t@P @C8*t`P C8*uP C8*u P C8*u@P C8*u`P C> \5c
		%%T1==\0A
		AOC1	\%%T1A
		AOC1	\%%T1C> 5eAOA==1C? Zp5]
		%%T1==[B
		REPEAT	A,<[0
			AOC1	\%%T1
[P			%%T1==%%T1+1>		%%T1==%%T1+1>CN V057
		%%T1==VPA
		%%T2==B
	Vp	ASC1	\%%T1,\%%T2SC1	\%%T1,\%%T2CN W05;
		ASA==1
		AVA==B==COMP Q5'
		IFNDEFQ0	ALA,<ALA==0>
QP		ALA==ALA&1
	Qp	IFNDEF	AOA,<AORA==0>
		AOA==AOR0A&1
		IFN	AOA,RP<ASA==1>	
					Rp	
						
		IFNDSEF	ASA,<ASA==0>S0
		ASA==ASA&1
		IFNDEF	AVA,<ASpDVN	\A>
		AVA=T=AVA&177
		AN%T0A==BYTE	(26)0(1)ATPLA,ASA,AOA(7)ATpVA
		PURGE	ALA,ASA,AOA,AVACZ YP5Q
		%%T1==YpA
		%%T2==B
	Z	AVC1	\%%T1,\%%T2VC1	\%%T1,\%%T2CZ 5SAVA==BC[ Wp5I
		%%T1==XB
		%%T2==C
	X0	REPEAT	A,<
			XPAVC1	\%%T1,\%%T2
			%%T1==%%T1+1
			%%T2==%%T2+1>		%%T2==%%T2+1>K5` pp7EVA==A&1^p7
					 IFGE EVq0A-^D10,<EVA==EVA-10>
					EVK-` _6#
		%%T1==_00
		IFIDN	<E> <A_P>,<
			%%T1==177_p
			DEFINE	ADVN `(N)<AV'N==N&17
	`0				IFGE AV'N-^D1`P0,<AV'N==AV'N-10>`p
					>
			>
	a	IFIDN	<E> <E>,<
			%%T1==377
		aP	DEFINE	EDVN (N)<apEV'N==N&17
					b IFGE EV'N-^D10,<b0EV'N==EV'N-10>
	bP				>
			>
		IFbpE	%%T1,<
			PRINcTX	?BAD CALL TO Mc0ACRO "SET".
			PcPASS2
			END>
		cp%%T2==0
		REPEATd	%%T1+1,<
			ESYd0M	\%%T2
			%%T2==%%T2+1>		%%T2=K2 i6K
		%%T1==i0A
		ELC1	\%%T1A
		ELC1	\%%T1K2 6MELA==1hK8*P K8*P K8*P K8*P K8*P K8*	P K8*	P K8*
P K8*
P K8*P K8*P K8* P K8*(P K8*(P K8*)P K8*)P K8**P K8**P K8*+P K8*+P K8*@P K8*HP K8*HP K8*IP K8*IP K8*JP K8*JP K8*KP K8*KP K8*`P K8*hP K8*hP K8*iP K8*iP K8*jP K8*jP K8*kP K8*kP K8*P K8*P K8*P K8*	P K8*	P K8*
P K8*
P K8*P K8*P K8* P K8*(P K8*(P K8*)P K8*)P K8**P K8**P K8*+P K8*+P K8*@P K8*HP K8*HP K8*IP K8*IP K8*JP K8*JP K8*KP K8*KP K8*`P K8*hP K8*hP K8*iP K8*iP K8*jP K8*jP K8*kP K8*kP K8* P K8*$P K8*$P K8*$P K8*$	P K8*$	P K8*$
P K8*$
P K8*$P K8*$P K8*$ P K8*$(P K8*$(P K8*$)P K8*$)P K8*$*P K8*$*P K8*$+P K8*$+P K8*$@P K8*$HP K8*$HP K8*$IP K8*$IP K8*$JP K8*$JP K8*$KP K8*$KP K8*$`P K8*$hP K8*$hP K8*$iP K8*$iP K8*$jP K8*$jP K8*$kP K8*$kP K8*%P K8*%P K8*%P K8*%	P K8*%	P K8*%
P K8*%
P K8*%P K8*%P K8*% P K8*%(P K8*%(P K8*%)P K8*%)P K8*%*P K8*%*P K8*%+P K8*%+P K8*%@P K8*%HP @K8*%HP @K8*%IP AK8*%IP AK8*%JP BK8*%JP BK8*%KP CK8*%KP CK8*%`P K8*%hP DK8*%hP DK8*%iP K8*%iP K8*%jP K8*%jP K8*%kP K8*%kP K8*0P K8*4P K8*4P K8*4P K8*4	P K8*4	P K8*4
P K8*4
P K8*4P K8*4P K8*4 P K8*4(P K8*4(P K8*4)P K8*4)P K8*4*P K8*4*P K8*4+P K8*4+P K8*4@P K8*4HP @K8*4HP @K8*4IP AK8*4IP AK8*4JP BK8*4JP BK8*4KP CK8*4KP CK8*4`P K8*4hP DK8*4hP DK8*4iP K8*4iP K8*4jP K8*4jP K8*4kP K8*4kP K8*5P K8*5P K8*5P K8*5	P K8*5	P K8*5
P K8*5
P K8*5P K8*5P K8*5 P K8*5(P K8*5(P K8*5)P K8*5)P K8*5*P K8*5*P K8*5+P K8*5+P K8*5@P K8*5HP K8*5HP K8*5IP K8*5IP K8*5JP K8*5JP K8*5KP K8*5KP K8*5`P K8*5hP K8*5hP K8*5iP K8*5iP K8*5jP K8*5jP K8*5kP K8*5kP K8*@P K8*DP K8*D P K8*D@P K8*D`P K8*EP K8*E P K8*E@P K8*E`P K8*PP K8*TP K8*T P K8*T@P K8*T`P K8*UP K8*U P K8*U@P K8*U`P K8*`P K8*dP K8*d P K8*d@P K8*d`P K8*eP K8*e P K8*e@P K8*e`P K8*pP K8*tP K8*t P K8*t@P K8*t`P K8*uP K8*u P K8*u@P K8*u`P K> op7
		%%T1==pA
		EOC1	\%%T1A
		EOC1	\%%T1K> 7EOA==1 K? nP6{
		%%T1==npB
		REPEAT	A,<o
			EOC1	\%%T1
o0			%%T1==%%T1+1>		%%T1==%%T1+1>KN j6U
		%%T1==j0A
		%%T2==B
	jP	ESC1	\%%T1,\%%T2SC1	\%%T1,\%%T2KN k6Y
		ESA==1
		EVA==B==KOMP dp6E
		IFNDEFe	ELA,<ELA==0>
e0		ELA==ELA&1
	eP	IFNDEF	EOA,<EOepA==0>
		EOA==EOfA&1
		IFN	EOA,f0<ESA==1>	
					fP	
						
		IFNDfpEF	ESA,<ESA==0>g
		ESA==ESA&1
		IFNDEF	EVA,<EgPDVN	\A>
		EVA=gp=EVA&177
		EN%hA==BYTE	(26)0(1)Eh0LA,ESA,EOA(7)EhPVA
		PURGE	ELA,ESA,EOA,EVAKZ m06o
		%%T1==mPA
		%%T2==B
	mp	EVC1	\%%T1,\%%T2VC1	\%%T1,\%%T2KZ 6qEVA==BK[ kP6g
		%%T1==kpB
		%%T2==C
	l	REPEAT	A,<
			l0EVC1	\%%T1,\%%T2
			%%T1==%%T1+1
			%%T2==%%T2+1>		%%T2==%%T2+1>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  6P4U

	DEFINE6p	AGEN 
		<
		%7%T1==0
		IFIDN	<70A> <A>,<
			%%T7P1==177
			DEFINE7p	ADVN (N)<AV'N==N8&17
					IFGE AV80'N-^D10,<AV'N==AV8P'N-10>
					>
	8p		>
		IFIDN	<A>9 <E>,<
			%%T1==90377
			DEFINE	ED9PVN (N)<EV'N==N&179p
					 IFGE EV'N:-^D10,<EV'N==EV'N:0-10>
					>
			:P>
		IFE	%%T1,<
:p			PRINTX	?BAD CA;LL TO MACRO "SET";0.
			PASS2
			E;PND>
		%%T2==0
	;p	REPEAT	%%T1+1,<
			ASYM	\%%T2
<0			%%T2==%%T2+1>><P

	DEFINE	ASYM <p(N)<
		IFNDEF	A=L'N,<AL'N==0>
	=0	AL'N==AL'N&1
=P		IFNDEF	AO'N,<=pAO'N==0>
		AO'N>==AO'N&1
		IFN	>0AO'N,<AS'N==1>	>P
						
						
		IFNDEF	AS'N,<?AS'N==0>
		AS'?0N==AS'N&1
		IFN?PDEF	AV'N,<ADVN	?p\N>
		AV'N==AV@'N&177
		AN%'N=@0=BYTE	(26)0(1)AL@P'N,AS'N,AO'N(7)@pAV'N
		PURGE	AAL'N,AS'N,AO'N,A0AV'N>
	DEFINE	AAPLC (CHR)<
		%%T1Ap==CHR
		ALC1	\%B%T1>

	DEFINE	AB0LC1	(CHR)<AL'CHRBP==1>

	DEFINE	ABpSC (CHR, IDX)<
	C	%%T1==CHR
		%%TC02==IDX
		ASC1	\CP%%T1,\%%T2>

	DECpFINE	ASC1 (CHR, DIDX)<
		AS'CHR=D0=1
		AV'CHR==IDDPX>

	DEFINE	AVRDp (CNT, STC, STV)<E
		%%T1==STC
		E0%%T2==STV
		REPEEPAT	CNT,<
			AVCEp1	\%%T1,\%%T2
		F	%%T1==%%T1+1
		F0	%%T2==%%T2+1>>
FP
	DEFINE	AVC (CHFpR, VAL)<
		%%T1=G=CHR
		%%T2==VALG0
		AVC1	\%%T1,\GP%%T2>

	DEFINE	GpAVC1 (CHR,VAL)<AHV'CHR==VAL>

	DEH0FINE	AOR (CNT,STHPC)<
		%%T1==STC
		REPEAT	CNT,<
I			AOC1	\%%T1
	I0		%%T1==%%T1+1>>

	DEFINE	AOC (CIpHR)<
		%%T1==CHRJ
		AOC1	\%%T1>

	DEFINE	AOC1 (JPCHR)<AO'CHR==1>

<AO'CHR==1>P @g8*P g8* P g8*@P g8*`P g8*P g8* P g8*@P g8*`P g8* P g8*$P g8*$ P g8*$@P g8*$`P g8*%P g8*% P g8*%@P g8*%`P g8*0P g8*4P g8*4 P g8*4@P @g8*4`P g8*5P g8*5 P g8*5@P g8*5`P g8*@P g8*DP g8*D P g8*D@P g8*D`P g8*EP g8*E P g8*E@P g8*E`P g8*PP g8*TP g8*T P g8*T@P @g8*T`P Ag8*UP Ag8*U P Bg8*U@P Bg8*U`P Cg8*`P g8*dP Cg8*d P Dg8*d@P Dg8*d`P g8*eP g8*e P g8*e@P g8*e`P g8*pP g8*tP g8*t P g8*t@P g8*t`P g8*uP g8*u P @g8*u@P g8*u`P iJ
d+P 
"P 
" P S@P >}{woP