Google
 

Trailing-Edge - PDP-10 Archives - BB-Y390U-BM - t20sub/proks.unv
There are 17 other files named proks.unv in the archive. Click here to see a list.
x
,U}@P CC pEMp s EMx@ u ENMp sENMx@ uG	7Q G
PQ ~8GP GuP  G(uP @G8uP G0P G$ P G$\@P G%MP G&
`PxG.,HP!GD:`PnGL[@PGwtP G|kP G|@P GJ`P @GN P @GYP GZP G@P G%{P G3
	A==<-18B<C>+1B<C-D>> X
	IF1,<IFDEF %Ax,<PRINTX ?A ALRE ADY DEFINED>>
	D 8EFINE %A (OP,AC, XY,MSK)<
	$A==<Z x B>		
	OP (<AC>,B'Y,MSK)><AC>IJn9Q Ii
P pIi
PQ `Ii
:P 
Ii
lXP Ii	7P  Ii.P Ii=P Ii=P IiD*:P 
Ij*`P Ij@P IjL@P Ij<@P IjKP Ij&L@P Ijf
@P IjlP Ijmm@P Ijn8wP Ik-3P IkMVP!IklVP  Ik7P  IkJ7P Iki`P Ik}YP @Ik9P Ik)P @Ik7P IkP  Ik$-3P Ik$<@P Ik%7P @Ik&)P!Ik'P Ik,(2Q fIk,+@P M?)6P O?I3 18
	OPDEF 1XA [B]
   IFNDEF1x FOR,<
   IFDEF 2.PSECT,<
	INTERN A>><
	INTERNWh6P W2
=QW2LzP!W2L89PW2L:PxW2MW2M}VP W2M}rP W2|:P W6Q a0W6XWP W6i1P 0WB
=Q WB YA
pQ {YA
;P vYA
+P YA
+P YA
: P YA
JP YA
K2P YA
KwP @YA
LP YA
L@P YA
MWP  YA
MZP YA
\YP @YA
{`P YA
{rP YA	7P YA	9P YAYP YAYP  YA,P YA,rP YA>2P YAK P YAiP @YB=P YB82P YB-3P YB=P YB<vP YB<PP YB<QP YB/
P YC=P YC2P YC$H:P YC&XWP YC<+P YC<+P YC<: P  YC<JP YC<K2P YC<KwP @YC<LP YC<L@P YC<MWP  YC<MZP YC<\YP!YC<{`P YC<{rP YC=7P  YC=ZP YC=\P YC=yVP @YC={P YC=}SP YC>	7P YC>	9P YC>YP  YC>YP @YC>,P YC>,rP YC>>2P YC>K P YC>iP![&f97Q [cXtP [c,-wP  a[@Q @a$@ a&s@ a&w@ a_h6P e8@ pBe= pFeF8@ pLeMm pJeMp r@eMx@ t@e\@ pDe@ p@e%2 pHe!
pQ }`e!
;P Ve!
1P e!pQ ue!;P Je!1P e3=|RP 
i&nyP i&|P ri&|X@ ti&}` r i&}h@ t k	
^Q fk	$^Q 'fk
^Q fk
]6P k
	yP  k
Mj:P  k:5QP!k:vP k:+2P"k:,P!k:D,P"k:MP @k:[TP k:i2P @k:9@!k:,P$k:=P  k:=P'f k:K7P$k:hZP @oJ8@ pRoJ= pVoJF8@ p\oJMm pZoJMp r`oJMx@ t`oK\@ pToK@ pPoK%2 pX: a"
	$CASHEN==<Z RLWORD>		
	 A (<B>,RLWORDC,D)S):\ Q
	$CRMPARp==<Z RLWORD>		
	A (<B>,RLWORDC,D)'1 	iR
	$CTYICH
==<Z CTYIWD>		
	
(A (<B>,CTYIWDC,D)T,..ST0KN'; 
iZ
	$CTYIVL==<Z CTYIWD>		
	(A (<B>,CTYIWDC,D),.NAC,0.S'q ib
	$CTYOCH
==<Z CTYOWD>		
	
(A (<B>,CTYOWDC,D)'{ 
ij
	$CTYOVLOWD>		
	A (<B>,CTYOWDC,D)\ Y
	$DRMPARx==<Z RLWORD>		
	A (<B>,RLWORDC,D)~,R iB
	$FORREL==<Z RLWORD>		
	(A (<B>,RLWORDC,D) A>>
	$..	P iJ
	$KEPFAL	==<Z RLWORD>		
		(A (<B>,RLWORDC,D)..IFT,0...dz A
	$KLACT=`=<Z RLWORD>		
	A (<B>,RLWORDC,D))H !K.e1 iz
	$KLIACT==<Z KLIIWD>		
	(A(<B>,KLIIWDC,D).e1 
	$KLIICH==<Z KLIIWD>		
	(A (<B>,KLIIWDC,D).eq i	
	$KLIOCH==<Z KLIOWD>		
	(A (<B>,KLIOWDC,D).e{ i	

	$KLIOVL==<Z KLIOWD>		
	(A (<B>,KLIOWDC,D)/z ~9w
	$KPACT=~X=<Z RLWORD>		
	~xA(<B>,RLWORDC,D),.STKV1>
	$KPALIV==<Z RLWORD>		
	(A (<B>,RLWORDC,D)B>,<..NV/+ }1o
	$KSRLD=}P=<Z RLWORD>		
	}pA (<B>,RLWORDC,D),..TY,.AC6MLr i*
	$MILSEN==<Z RLWORD>		
	(A (<B>,RLWORDC,D)@ 1B)7 I
	$PAREN=h=<Z RLWORD>		
	A (<B>,RLWORDC,D)C>)P i:
	$PWRFAL==<Z RLWORD>		
	(A (<B>,RLWORDC,D),<PRINTX TRS@P >}{woP