Google
 

Trailing-Edge - PDP-10 Archives - BB-D867E-BM - new-subsys/phypar.unv
There are 46 other files named phypar.unv in the archive. Click here to see a list.
x
,5@P GP G8hP G8iP G8vP G;	P G;TP GyP GZQ }G7PG)7PGX[PGnPGyPuG{YPtG}YPG9P G,zPtvQ @GLtzQ 0GLt\QQ GLuX4Q GLu\XQ GLuyVQ @GLv=Q GO
0P GON8P GO
0P GON8P I6= "0"!
	A==<-1"PB<C>+1B<C-D>> "p
	IF1,<IFDEF %A#,<PRINTX ?A ALRE#0ADY DEFINED>>
	D#PEFINE %A (OP,AC,#pY,MSK)<
	$A==<Z$ B>		
	OP (<AC>,B'Y,MSK)><AC>S7[rP S7[rP S?s &z1w
	CHNOFF PHYCHN
CHNOFF S?w &:1{
	CHNON PHYCHN
	CHNON PSJP SJ;ZP SJK Q 8SJK@P SJ	P'SJPP SJI7P SJKUP SJ[rP SJ9P SJ
TP pSJ9P SJ=P SJKQ xSJ	VP SJ4,qP SJ4\SP SJ4lqP SJ6(yP SJ6)P SJ6)P SJ6)2P SJ6);P SJ6-7P SJ695P SJ6|ZP SJ6}P SJ6}P SJej`P'SJjhZP SJjxZP SJkZP SJm
2P SJmX<P SJn|RP SLtQ SLt+zQ SLtKwQ  SLtMQ SLtMRQ SLt[zQ SLt\YQ SLu6Q SLu9Q  SLulZQ SLv-Q SLv:Q @SLvLQ SLvyzQ SLv{Q @SN.,@Q SN4;@Q xSOhwP SOhwP SO& Q W=7P WIP WLxP W7P W=P WYP WLtzQ  WLuQ YBEP YBGP [F*P [N^= Q!
	A==C	p	
	IF1,<IFDEF %A,<PRINTX ?A ALR0EADY DEFINED>>
	PDEFINE %A (OP,ACp,Y,MSK)<
	$A==<Z B>		
	OP (<AC>,B'Y,MSK)><AC]VM|QP a#L:P ak:=P g'Qm:P idtN	P idv%sP idv%vP idv+)P 
idv,
P idv,
P idv,P 	idv,P idv,P idv,jP idvDTP idvDVP idvDtP idvDvP idvEkP idvElP  k
rHQ k
r$Q  k
rU+Q k
rdJQ k
rh@Q @k
r}Q @k
sQ k
t Q  k
t9Q k
u	Q k
u`QPkPkkpPkk9Pkk:P k:P kIP kLwP kLxP k\QP 
P k
RP 
k 
k9P kX[P kyP k{YP 
hP k
iP k
k(zP k)2P k95P k:=P k;P k<P k<RP 	k=P k=P k=rP 	kMxP 
kYP kj2P kxzP k|ZP kP k;[P k\YP k^P kSP kTP kZP kMP kyP k
XP k:7P k=P k&}I7P kLtzQ kLt(:Q kLt+Q kLt+zQ kLt:Q  kLuX4Q @kLuX6Q kLu\XQ  kLuyYQ @kLuz9Q kLu{9Q @kLv	vQ kLvyQ kLv
XQ  kLv
tQ kLv);Q kLvH8Q kLv{Q kN|kQ @kON8P kON8P kO'P qON8P qON8P ') &&R29
	$IRBDM=&&r=<Z IRBMOD>		
	&'A (<B>,IRBMODC,D)B>,IRBMODC,') &'R2A
	$IRBDN=&'r=<Z IRBMOD>		
	&(A (<B>,IRBMODC,D)B>,IRBMODC,'* &#:2
	$IRBHD=&#Z=<Z IRBXFL>		
	&#xA (<B>,IRBXFLC,D)B>,IRBXFLC,', &(R2I
	$IRBPAR&(r==<Z IRBMOD>		
	&)A (<B>,IRBMODC,D)B>,IRBMODC', &)R2Q
	$IRBPRI&)r==<Z IRBMOD>		
	&*A (<B>,IRBMODC,D)B>,IRBMODC'- &$B2(
	$IRBTL=&$b=<Z IRBXFL>		
	&%A (<B>,IRBXFLC,D)B>,IRBXFLC,'KU &":2
	$IRLNK=&"Z=<Z IRBLNK>		
	&"xA (<B>,IRBLNKC,D)B>,IRBLNKC,'\Y &"2_
	$ISERR=&+R=<Z IRBSTS>		
	&+pA (<B>,IRBSTSC,D)B>,IRBSTSC,'hw &%J20
	$ISFCN=&%j=<Z IRBSTS>		
	&&A (<B>,IRBSTSC,D)B>,IRBSTSC,'L &,:2g
	$ISTPM=&,Z=<Z IRBSTS>		
	&,xA (<B>,IRBSTSC,D)B>,IRBSTSC,WyV &Z2
	$USOFL=& b=<Z UDBSTS>		
	&!A (<B>,UDBSTSC,D)B>,UDBSTSC,WN8 &Z2
	$USTYP=&z=<Z UDBSTS>		
	& A (<B>,UDBSTSC,D)B>,UDBSTSC,$9P %9P &YP S@P &*P &*	P &*	P W$N	P W&+)P W&,
P W&,
P W&,P W&,P W&,
P W&,jP W&E
P W&EhP W&EhP W&EiP W&EiP 	W&EkP W&ElP W&K)P W&K)P W&K+P >}{woP