Google
 

Trailing-Edge - PDP-10 Archives - BB-BT99U-BB_1990 - 10,7/acct/actprm.unv
There are 22 other files named actprm.unv in the archive. Click here to see a list.
x
,Uk@P C$j6Q C$H2C+s 8
 AE	VRS,X-1,PD.NMD!PD.CND	x
 AE	PPN,-1,PD.NMD!PD.CND	
 AE	N8AM,.AANLW,PD.CND	X
 AE	PSW,-.APWLWx,PD.NSL!PD.UNP!PD.CND!PD.NDI	
 AE8	PRV,-1			
 AE	PXRX,-1			
 AE	LGTx,-1			
 AE	COR,-1			
 AE	IPC,-1	8		
AE	ENQ,1			
 AE	CTX,-1			
 xAE	WCH,-1,PD.UNP		
AE	ACC,-1			
 AE	REQ,-1			
 XAE	SPL,-1			
 AEx	SCD,-1			
 AE	EXP,1			
 AE	DEF,8-1,PD.CND		
 AE	XMAP,.AMPLW,PD.NMDx!PD.CND!PD.NSL	
 AE	FLG,-1,PD.NMD8!PD.CND	
 AE	FAIX,1,PD.NMD!PD.CND	x
 AE	PCT,1			
 AE	LPC,1,PD.NMD!P8D.CND	
AE	PAP,-X1,PD.NMD!PD.CND	
 AE	TIM,1,PD.NMD!PD.CND	
 AE	PGR8,-.APGLW		
 AE	BXOX,-.ADLLW,PD.UNPx	
 AE	PNM,-.APNLW,PD.UNP	
 AE	MA8I,-.AMLLW,PD.UNP	X
 AE	LOG,-.ALFLWx		
 AE	AUX,-.AUMAX,,UGAUX%	
 AE	8ACS,-.AACLW,PD.NMXD!PD.CND	
 AE	DExC,2,PD.NMD		
 AE 	CUS,.ACWDS,PD.NM 8D	
AE	MIN,0			

CAE	MIN,0			Z7P CCi9P CCzP Gx pGLOB 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$ Sy%W(.ERR.	("?",A,<B>,C,D)%;%!MAIN /ACM0umQ @M0wyQ  MRV>9P MS.[yQ O2|  .hCIRP A,<
/	IF2,<IFDEF A,<./(IFN A,EXTERN,<IN/HTERN A>>
	     /hIFNDEF A,<EXTERN0 A>
	Q SUPPRESQA>>FSUPPRO3FUy%/WH.ERR.	("[",A,<B>,C,D)%=%+.+1>
	UVn	@4@UVnGHF>

	  LSTGhOF. XCREF

	CDOH	OTSINI			
	CDO	H(    			
	CDO	.ZPHHAGA
	CDO	.ZPAGN
	CDO	.ZCHNK
	CDIO	.SAVE1
	CDO	.SI(AVE2
	CDO	.SAVE3IH
	CDO	.SAVE4
	CIhDO	.SAVET
	CDO	.JSV13
	CDO	.SV14
	CDO	.SV15
	CDOJH	.SV16
	NT	.RETTJh
	NT	.RETF
	CDOK	.RETE
	CDO	.AOSK(		
	CDO	.SOS		
KH	CDO	.ZERO		
	NTKh	.POPJ		
	CDO	.SLTOP		
	CDO	.SAVEL(8		
	CDO	.STKST	LH	
	CDO	.TRSET		
	NT	.POPJ1		
	CMDO	.UD2SC		
	CDOM(	.SC2UD		
	CDO	.MHCPUTY		
	CDO	.DIMhE		
	CDO
	CDO
N
	CDO			
	CDO	CN(%RPRM
	CDO	C%INTNHR
	CDO	C%SEND
	NhCDO	C%RECV
	CDO	OC%BRCV
	CDO	C%REO(L
	CDO	C%CPID
	OHCDO	C%KPID
	CDO	OhC%SPID
	CDO	C%MAPXP
	CDO	C%PIDJ
P(	CDO	C%PIDH
	CDOPH	C%SIDX
	CDO
	CPhDO
	CDO

	CDO	Q      			
	CDO	FQ(%IOPN
	CDO	F%AOPQHN
	CDO	F%OOPN
	QhCDO	F%IBYT
	CDO	RF%OBYT
	CDO	F%IBR(UF
	CDO	F%OBUF
RH	CDO	F%REL
	CDO	RhF%DREL
	CDO	F%RRSEL
	CDO	F%REW
	S(CDO	F%POS
	CDO	FSH%CHKP
	CDO	F%INFShO
	CDO	F%FD
	CDTO	F%REN
	CDO	F%DT(EL
	CDO	F%FCHN
TH	CDO
	CDO
	CDO
	CDO
	CDO
	CDOU
	CDO
	CDO
	CDU(O	FUNCT.			

	CUHDO	      			
	CDUhO	M%ACQP
	CDO	M%VRELP
	CDO	M%IPSNV(
	CDO	M%NXPG
	CVHDO	M%IPRC
	CDO	MVh%IPRM
	CDO	M%AQNWP
	CDO	M%RLNP
	W(CDO	M%CLNC
	CDO	WHM%FPGS
	CDO	M%GMWhEM
	CDO	M%RMEM
X	CDO
	CDO
	CDO
	CDO
	CDO
	CDOXH
	CDO	M%GPAG
	CXhDO	M%RPAG
	CDO
Y	CDO
	CDO
	CDO
	CDO
	CDO
	CDOYH
	CDO

	CDO	  Yh    			
	CDO	T%TZEXT
	CDO	T%TTY
Z(	CDO
	CDO
	CDO
	CDO
	CDO
	CDOZh
	CDO
	CDO
	CD[O
	CDO

	CDO	 [(     			
	CDO	L%[HCLST
	CDO	L%DLST[h
	CDO	L%CENT
	C\DO	L%CBFR
	CDO	L\(%DENT
	CDO	L%NEX\HT
	CDO	L%FIRS
	\hCDO	L%LAST
	CDO	]L%PREV
	CDO	L%PR](EM
	CDO	L%CURR
]H	CDO	L%RENT
	CDO]h	L%SIZE
	CDO	L%A^POS
	CDO
	CDO
^(	CDO
	CDO
	CDO
	CDO
	CDO
	CDO^h

	CDO			
	CDO_	I%NOW
	CDO	I%EX_(IT
	CDO	I%ION
	_HCDO	I%IOFF
	CDO	_hI%SLP
	CDO	I%INT`1
	CDO	I%INT2
	`(CDO	I%INT3
	CDO	`HI%TIMR
	CDO
	CD`hO
	CDO	I%SOPR
	aCDO	I%WTO
	CDO
a(	CDO	I%HOST
	CDOaH	I%JINF
	CDO	I%CahJOB
	CDO	I%KJOB

	CDO	S%U2DT		
	CDO	S%DT2U
	CDbHO	S%DATI
	CDO	S%bhSIXB
	CDO	S%CMNDc
	CDO	S%TBLK
	Cc(DO	S%SCMP
	CDO	ScH%ERR
	CDO	S%INTRch
	CDO	S%EXIT
	CdDO	S%TBAD
	CDO	Sd(%TBDL
	CDO	S%NUMdHI


	CDO	K%RCOdhC			
	CDO	K%WCOCe
	CDO	K%SUET
	Ce(DO	K%STYP
	CDO	KeH%TXTI
	CDO	K%SOUehT
	CDO	K%BOUT
	fCDO	K%BIN
	CDO	Kf(%BACK
	CDO	K%TPOfHS
	CDO	K%BUFF
	fhCDO	K%FLSH
	CDO	gK%OPEN
	CDO	K%ECg(HO
	CDO
	CDO
	gHCDO
	CDO
	CDO
gh	CDO
	CDO
	CDO
	  LSTON.
YOGP YO%yG lFj
	IFNDEF l(LSTIN.,LSTIN.==0	lH	
IFE LSTIN.,<
lh	IFIDN <XCREF><Am>,<.XCREF>	
		  m( XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G mhFt
	IFG LSTnIN.,LSTIN.==LSTINn(.-1	
	IFLE LSTINnH.,<.CREF		
		      LIST>
		}[>&[ 

	SALL	
	.DIREC	FLBLS

	SEARCH	ACTSYM		
	SEARCH	G8LXMAC		
;	SEARCHX	ORNMAC		

	PROxLOG	(A)		

	%%ACTP==:%%ACTP		
8
	TWOSEG	400K		
	RELOC	400K		

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

	SALL		%(			
	LSTOF. XCRE	%HF			

	%%.GLX==	%h%%.GLX			
	GLXVR	&S==GLXVRS			

		&(IFNB <A>,<%%.MOD	&H==SIXBIT/A/> 
		&hIFNB <B>,<%%.OTS	'==SIXBIT/B/> 
	'(
	GLOB	I%INIT			

	TOPS10	<			
	'h		SEARCH	UUOSYM			(
		%%UUOS==%%UUO	((S		
	>				

	T	(HOPS20	<			
		SEA	(hRCH	MONSYM		
;			)%%MONS==%%MONS		
	>				

	IFB <	)HB>,<			
		IFN G	)hLXPUR,<
			.TEXT	*	|,REL:GLXLIB/SEA	*(RCH/REQUIRE:I%INI	*HT/SEGMENT:LOW|
		*h	>			
		DEFINE	$	+DATA (NAM,SIZ<1>)	+(,< 
			NAM:	BLOC	+HK	SIZ
		>			
			+hDEFINE	CDO (X),<G	,LOB X> 
		DEFINE	,(	NT(X),<CDO X>	
	,H		LIBVEC			
	>			,h		

	IFNB <B>,	-<			
		CHKEDT (	-(B)		

	IFDIF <	-HB><INI>,<		
		IF	-hN GLXPURE,<.PSECT	. .HIGH.> 
		IFE 	.(GLXPURE,<		
			T	.HWOSEG	400000	
			.h	RELOC	0	
			REL	/OC	400000	
		>			/(	

		DEFINE $DA	/HTA(NAM,SIZ<1>),< 	/h
			IFN GLXPURE,	0<.PSECT DATA> 
		0(		IFE GLXPURE,<RE	0HLOC> 
			IFNDEF 	0hB%D,<B%D::! B%	1DL==:0>
			NAM:		1(BLOCK	SIZ
			B%	1HDL==:B%DL+SIZ 
	1h			IFN GLXPURE,<.	2ENDPS DATA> 
				2(IFE GLXPURE,<RELO	2HC> 
		>			

	I	2hFDIF <B><OTS>,<		3	
		DEFINE	CDO (	3(X),<GLOB X> 
		D	3HEFINE	NT(X),<CDO 	3hX> 
		LIBVEC		
	4	>			

	>			
		4(

	IFIDN <B><I	4HNI>,< 
		DEFINE		4h$DATA (NAM,SIZ<1>	5),< 
			NAM:	BLO	5(CK	SIZ
		>			
		5H>				
	>

	LST	5hON.				

	GLOB		6<.POPJ, .RETT, .R	6(ETF>	
	OPDEF	$RE	6HT	[POPJ	P,]	
	OP	6hDEF	$RETT	[PJRST		7.RETT]	
	OPDEF	$	7(RETF	[PJRST	.RETF	7H]	
	OPDEF	$RETIT	7h	[JUMPT	.POPJ]	
	8	OPDEF	$RETIF	[JU	8(MPF	.POPJ]	
	.NO	8HDDT	$RET,$RETT,$R	8hETF,$RETIT,$RETIF
$RETIT,$RETIFi?4( &`6IFN FTUUOS,IFN FTUUOSi?4H ' :IFN FTJSYS,IFN FTJSYSjP o` U%)W8.ERR.	("%",A,<B>,C,D)%<%%.+1 A,EpP 	H  Pp}R( 
			A:	BLOCK	B
		A,E%pw1NIT	J.@ ,~	J.I@ 5	J.J3 4@	J.J: 5@	J.M 5
t{P 
u[rQ C&
V

=Q 
.[yQ <3
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
{P 6)8P 68rP 6<P 6J6P 6lYP 6xtP vL\ Z%t


	.XCREZ F	e
	.ASSIGN	eZ@,ENTNUM,1

A::Z`	EXP	D
	XLIST
[	EXP	<e&7777>+1
	IFIW	[ASCIZ \C[A\]
	IFIW	AGET
[a	IFIW	ACMP
	IFI[!W	ACHG
	IFIW	A\RES
	IFIW	APRT
	IFIW	AHLP
	IF^ IW	APRS
	EXP	B^@
	IFIW	ADFL
	LIST
P SMXy#@ V9%G

	PUSHJ	PWY,[PUSHJ P,A$ERRM#Wx#
		   XWD	A,'XB'
		   XWD	E,[X8ITEXT (<C>)]
	IXXFB  <D>,< EXP 0>Xx
	IFNB <D>,< EXP D>
		  ]
B~
@A` B~
@J.I@A` J.I@J.MA` J.M>}{woP