Google
 

Trailing-Edge - PDP-10 Archives - BB-F493Z-DD_1986 - 10,7/actprm.unv
There are 22 other files named actprm.unv in the archive. Click here to see a list.
x
,Rk@P C$j6Q C$H2C+s `
 AE	VRS,-1,PD.NMD!PD.CND	 
 AE	PPN,-1,PD.N@MD!PD.CND	
 AE	N`AM,.AANLW,PD.CND	
 AE	PSW,-.APWLW ,PD.NSL!PD.UNP!PD@.CND!PD.NDI	
 AE`	PRV,-1			
 AE	PRX,-1			
 AE	LGT ,-1			
 AE	COR,-@1			
 AE	IPC,-1	`		
AE	ENQ,1			
 AE	CTX,-1			
  AE	WCH,-1,PD.UNP	@	
AE	ACC,-1			
 AE	REQ,-1			
 AE	SPL,-1			
 AE 	SCD,-1			
 AE	E@XP,1			
 AE	DEF,`-1,PD.CND		
 AE	MAP,.AMPLW,PD.NMD !PD.CND!PD.NSL	
@ AE	FLG,-1,PD.NMD`!PD.CND	
 AE	FAI,1,PD.NMD!PD.CND	 
 AE	PCT,1			
 @AE	LPC,1,PD.NMD!P`D.CND	
AE	PAP,-1,PD.NMD!PD.CND	
 AE	TIM,1,PD.NMD@!PD.CND	
 AE	PGR`,-.APGLW		
 AE	BOX,-.ADLLW,PD.UNP 	
 AE	PNM,-.APNL@W,PD.UNP	
 AE	MA`I,-.AMLLW,PD.UNP	
 AE	LOG,-.ALFLW 		
 AE	AUX,-.AUM@AX,,UGAUX%	
 AE	`ACS,-.AACLW,PD.NM D!PD.CND	
 AE	DE  C,2,PD.NMD		
 AE @	CUS,.ACWDS,PD.NM `D	
AE	MIN,0			

CAE	MIN,0			Z7P CCi9P CCzP Gx oGLOB A>Gt:P Gt;8P GtIVP GtkP Gty:P GuP GuP Gv	VP Gv
VP Gv
YP Gv
ZPGv)9PI$qP+P I$;yP I&
P 
[P 
\P 
{P)P I&lYP It<Q It+|Q It;yQ It=P"It=9P!ItI1P$ItI3P It[XP$It^P Ith4Q ItkQ IuQ IuIzQ  IuKsQ  IuLQ  IuX4Q @IuX8P IuZ7P  Iuh6Q Iv8Q IvzQ @Iv	yQ IvVQ Iv
Q  Iv
[Q Iv
\Q @Iv
{Q Iv)8P  Iv8rP Iv<P IvJ6Q IvlYQ @IvxtP!K;%m6P'M$ i >.ERR.	("?",A,<B>,C,D) Z @MAIN /ACM0umQ @M0wyQ  MRV>9P MS.[yQ O2|  &HB>IRP A,<
&h	IF2,<IFDEF A,<.'IFN A,EXTERN,<IN'(TERN A>>
	     'HIFNDEF A,<EXTERN'h A>
	Q SUPPRESQA>>)SUPPRO3F	i N8.ERR.	("[",A,<B>,C,D) \ J.+1>
	UVn	@4@UVn? Ez

	  LST?@OF. XCREF

	CDO?`	OTSINI			
	CDO	@    			
	CDO	.ZP@ AGA
	CDO	.ZPAGN
	CDO	.ZCHNK
	CD@`O	.SAVE1
	CDO	.SAAVE2
	CDO	.SAVE3A 
	CDO	.SAVE4
	CA@DO	.SAVET
	CDO	.A`SV13
	CDO	.SV14
	CDO	.SV15
	CDOB 	.SV16
	NT	.RETTB@
	NT	.RETF
	CDOB`	.RETE
	CDO	.AOSC		
	CDO	.SOS		
C 	CDO	.ZERO		
	NTC@	.POPJ		
	CDO	.SC`TOP		
	CDO	.SAVED8		
	CDO	.STKST	D 	
	CDO	.TRSET		
	NT	.POPJ1		
	CD`DO	.UD2SC		
	CDOE	.SC2UD		
	CDO	.E CPUTY		
	CDO
	CE@DO
	CDO

	CDO	E`		
	CDO	C%RPRM
F	CDO	C%INTR
	CDOF 	C%SEND
	CDO	C%RF@ECV
	CDO	C%BRCV
	CDO	C%REL
	CDOG	C%CPID
	CDO	C%KG PID
	CDO	C%SPID
	CDO	C%MAXP
	CDG`O	C%PIDJ
	CDO	C%HPIDH
	CDO	C%SIDXH 
	CDO
	CDO
	CDH@O

	CDO	      	H`		
	CDO	F%IOPN
I	CDO	F%AOPN
	CDOI 	F%OOPN
	CDO	F%II@BYT
	CDO	F%OBYT
	CDO	F%IBUF
	CDJO	F%OBUF
	CDO	F%J REL
	CDO	F%DREL
	CDO	F%RREL
	CDJ`O	F%REW
	CDO	F%PKOS
	CDO	F%CHKP
K 	CDO	F%INFO
	CDOK@	F%FD
	CDO	F%RENK`
	CDO	F%DEL
	CDLO	F%FCHN
	CDO
	L CDO
	CDO
	CDO
L@	CDO
	CDO
	CDO
	CDO
	CDO	FUNCTM.			

	CDO	    M   			
	CDO	M%ACQM@P
	CDO	M%RELP
	M`CDO	M%IPSN
	CDO	NM%NXPG
	CDO	M%IPN RC
	CDO	M%IPRM
N@	CDO	M%AQNP
	CDON`	M%RLNP
	CDO	M%COLNC
	CDO	M%FPGS
	CDO	M%GMEM
	CDO@O	M%RMEM
	CDO
	O`CDO
	CDO
	CDO
P	CDO
	CDO
	CDO	P M%GPAG
	CDO	M%RPP@AG
	CDO
	CDO
	P`CDO
	CDO
	CDO
Q	CDO
	CDO
	CDO

	CDO	      			Q@
	CDO	T%TEXT
	CQ`DO	T%TTY
	CDO
	RCDO
	CDO
	CDO
R 	CDO
	CDO
	CDO
	CDO
	CDO
	CDOR`

	CDO	      		S	
	CDO	L%CLST
	S CDO	L%DLST
	CDO	S@L%CENT
	CDO	L%CBS`FR
	CDO	L%DENT
T	CDO	L%NEXT
	CDOT 	L%FIRS
	CDO	L%LT@AST
	CDO	L%PREV
	CDO	L%PREM
	CDUO	L%CURR
	CDO	L%U RENT
	CDO	L%SIZEU@
	CDO	L%APOS
	CU`DO
	CDO
	CDO
	VCDO
	CDO
	CDO
V 	CDO
	CDO

	CDV@O			
	CDO	I%NOW
	CDO	I%EXIT
	CDWO	I%ION
	CDO	I%IW OFF
	CDO	I%SLP
W@	CDO	I%INT1
	CDOW`	I%INT2
	CDO	I%IXNT3
	CDO	I%TIMR
	CDO
	CDO
	CDOX@	I%SOPR
	CDO	I%WX`TO
	CDO
	CDO	I%YHOST
	CDO	I%JINFY 
	CDO
	CDO

	Y@CDO	S%U2DT		
	CDY`O	S%DT2U
	CDO	S%ZDATI
	CDO	S%SIXBZ 
	CDO	S%CMND
	CZ@DO	S%TBLK
	CDO	SZ`%SCMP
	CDO	S%ERR[
	CDO	S%INTR
	C[ DO	S%EXIT
	CDO	S[@%TBAD
	CDO	S%TBD[`L
	CDO	S%NUMI
\

	CDO	K%RCOC			\ 
	CDO	K%WCOC
	C\@DO	K%SUET
	CDO	K\`%STYP
	CDO	K%TXT]I
	CDO	K%SOUT
	] CDO	K%BOUT
	CDO	]@K%BIN
	CDO	K%BAC]`K
	CDO	K%TPOS
	^CDO	K%BUFF
	CDO	^ K%FLSH
	CDO	K%OP^@EN
	CDO	K%ECHO
^`	CDO
	CDO
	CDO
	CDO
	CDO
	CDO_ 
	CDO
	CDO
	  LSTON.
  
	  YO%GP YO%yG c@F&
	IFNDEF c`LSTIN.,LSTIN.==0	d	
IFE LSTIN.,<
d 	IFIDN <XCREF><Ad@>,<.XCREF>	
		  d` XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G e F0
	IFG LSTe@IN.,LSTIN.==LSTINe`.-1	
	IFLE LSTINf.,<.CREF		
		      LIST>
		[>&[ 

	SALL			
	.DIREC	FLBLS T		

	SEARCH	AC@TSYM		
	SEARCH	G`LXMAC		
;	SEARCH	ORNMAC		

	PRO LOG	(A)		

	%%@ACTP==:%%ACTP		
`
	TWOSEG	400K		
	RELOC	400K		

] &(4IFDEF A,<&HA=A> IFNDEF A,<A==<B>>F A,]P oCDO A `P at;RQ at^Q au\uQ auiQ @auk2Q aulvQ  av-Q @av[XQ av|RQ xa+= 5aJ}Ks 	K

	SALL		 			
	LSTOF. XCRE	@F			

	%%.GLX==	`%%.GLX			
	GLXVR	S==GLXVRS			

		 IFNB <A>,<%%.MOD	@==SIXBIT/A/> 
		`IFNB <B>,<%%.OTS	==SIXBIT/B/> 
	 
	GLOB	I%INIT			

	TOPS10	<			
	`		SEARCH	UUOSYM			
		%%UUOS==%%UUO	 S		
	>				

	T	@OPS20	<			
		SEA	`RCH	MONSYM		
;			 %%MONS==%%MONS		
	>				

	IFB <	 @B>,<			
		IFN G	 `LXPUR,<
			.TEXT	!	|,REL:GLXLIB/SEA	! RCH/REQUIRE:I%INI	!@T/SEGMENT:LOW|
		!`	>			
		DEFINE	$	"DATA (NAM,SIZ<1>)	" ,< 
			NAM:	BLOC	"@K	SIZ
		>			
			"`DEFINE	CDO (X),<G	#LOB X> 
		DEFINE	# 	NT(X),<CDO X>	
	#@		LIBVEC			
	>			#`		

	IFNB <B>,	$<CHKEDT (B)>	
	$ 
	IFNB <B>,<IFDI	$@F <B><INI>,< 
		$`	IFN GLXPURE,<.PS	%ECT .HIGH.> 
		I	% FE GLXPURE,<		
		%@		TWOSEG	400000	
			RELOC	0	
				&RELOC	400000	
			& >			

		DEFINE 	&@$DATA(NAM,SIZ<1>)	&`,< 
			IFN GLXPU	'RE,<.PSECT DATA> 	' 
			IFE GLXPURE,	'@<RELOC> 
			IFND	'`EF B%D,<B%D::! 	(B%DL==:0>
			NA	( M:	BLOCK	SIZ
				(@B%DL==:B%DL+SIZ	(` 
			IFN GLXPURE	),<.ENDPS DATA> 
	) 			IFE GLXPURE,<R	)@ELOC> 
		>			
	)`
		IFDIF <B><OTS	*>,<	
			DEFINE	C	* DO (X),<GLOB X> 
			DEFINE	NT(X),	*`<CDO X> 
			LIBV	+EC		
		>			

		+ >>				

	IFNB <	+@B>,<IFIDN <B><I	+`NI>,< 
		DEFINE		,$DATA (NAM,SIZ<1>	, ),< 
			NAM:	BLO	,@CK	SIZ
		>			
		,`>>				

	LSTON.	-				

	GLOB	<.P	- OPJ, .RETT, .RETF	-@>	
	OPDEF	$RET	[	-`POPJ	P,]	
	OPDEF	.	$RETT	[PJRST	.RE	. TT]	
	OPDEF	$RET	.@F	[PJRST	.RETF]	
	OPDEF	$RETIT	[J	/UMPT	.POPJ]	
	OP	/ DEF	$RETIF	[JUMPF	/@	.POPJ]	
	.NODDT	/`	$RET,$RETT,$RETF	0,$RETIT,$RETIF
$RETIT,$RETIF
i?4('8IFN FTUUOS,IFN FTUUOSi?4H 'H<IFN FTJSYS,IFN FTJSYSjP o` 		 H(.ERR.	("%",A,<B>,C,D) [ D.+1 A,EpP 	H  
			A:	BLOCK	B
		A,E 2o1NITE 	J.@ ,~	J.I@ 5	J.J3 4@	J.J: 5@	J.M 5
t{P 
u[rQ C&
V

=Q 
.[yQ <
0P 
@P ,qp 
,yp ,<p ,+|p ,;yp ,=p 	,=9p ,I1p ,I3p 
,h4p ,kp -p -Izp -Ksp -Lp -X4p -X8p 
p .
[p .
\p .
{p .)8p .8rp 
.<p .J6p .lYp .xtp 
S@P 4qP 4yP 4<P 4+|P 4;yP 4=P 4=9P 4I1P 4I3P 4[XP 4^P 4h4P 4kP 5P 5IzP 5KsP 5LP 5X4P 5X8P 5Z7P 5h6P 68P 6zP 6	yP 6VP 6
P 6
[P 6
\P 6
{P6)8P 68rP 6<P 6J6P 6lYP 6xtP vL\ 


	.XCREF	e
	.ASSIGN	e0,ENTNUM,1

A::P	EXP	D
	XLIST
p	EXP	<e&7777>+1
	IFIW	[ASCIZ \C1\]
	IFIW	AGET
Q	IFIW	ACMP
	IFIW	ACHG
	IFIW	AqRES
	IFIW	APRT
	IFIW	AHLP
	IFIW	APRS
	EXP	B0
	IFIW	ADFL
	LIST
P9#@ 
) f

	PUSHJ	PI,[PUSHJ P,A$ERRM#h#
		   XWD	A,'
B'
		   XWD	E,[
(ITEXT (<C>)]
	I
HFB  <D>,< EXP 0>
h
	IFNB <D>,< EXP D>
		  ]
B~
@A` B~
@J.I@A` J.I@J.MA` J.M>}{woP