Google
 

Trailing-Edge - PDP-10 Archives - tops10_703a_sys_atpch16_bb-fr67f-bb - actprm.unv
There are 22 other files named actprm.unv in the archive. Click here to see a list.
x
,Sk@P C$j6Q C$H2C+s Ht
 AE	VRS,h-1,PD.NMD!PD.CND	
 AE	PPN,-1,PD.N(MD!PD.CND	
 AE	NHAM,.AANLW,PD.CND	h
 AE	PSW,-.APWLW,PD.NSL!PD.UNP!PD(.CND!PD.NDI	
 AEH	PRV,-1			
 AE	PhRX,-1			
 AE	LGT,-1			
 AE	COR,-(1			
 AE	IPC,-1	H		
AE	ENQ,1			
 AE	CTX,-1			
 AE	WCH,-1,PD.UNP	(	
AE	ACC,-1			
 AE	REQ,-1			
 hAE	SPL,-1			
 AE	SCD,-1			
 AE	E(XP,1			
 AE	DEF,H-1,PD.CND		
 AE	hMAP,.AMPLW,PD.NMD	!PD.CND!PD.NSL	
	( AE	FLG,-1,PD.NMD	H!PD.CND	
 AE	FAI	h,1,PD.NMD!PD.CND	

 AE	PCT,1			
 
(AE	LPC,1,PD.NMD!P
HD.CND	
 AE	PAP,-
h1,PD.NMD!PD.CND	
 AE	TIM,1,PD.NMD(!PD.CND	
 AE	PGRH,-.APGLW		
 AE	BhOX,-.ADLLW,PD.UNP
	
 AE	PNM,-.APNL
(W,PD.UNP	
 AE	MA
HI,-.AMLLW,PD.UNP	
h
AE	LOG,-.ALFLW
(AE	AUX,-.AUM
HAE	-.AACLW,PD.NM
 AE	DEC,2,PD.NMD		
 AE(	CUS,.ACWDS,PD.NMHD	
AE	MIN,0			

CAE	MIN,0			Z7P CCi9P CCzP Gx nJGLOB 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 x.ERR.	("?",A,<B>,C,D)   MAIN /ACM0umQ @M0wyQ  MRV>9P MS.[yQ O2|  `AXIRP A,<
	IF2,<IFDEF A,<. IFN A,EXTERN,<IN@TERN A>>
	     `IFNDEF A,<EXTERN A>
	Q SUPPRESQA>>.SUPPRO3FI .ERR.	("[",A,<B>,C,D) " .+1>
	UVn	@4@UVn28E

	  LST2XOF. XCREF

	CDO2x	OTSINI			
	CDO	3    			
	CDO	.ZP38AGA
	CDO	.ZPAGN
	CDO	.ZCHNK
	CD3xO	.SAVE1
	CDO	.S4AVE2
	CDO	.SAVE348
	CDO	.SAVE4
	C4XDO	.SAVET
	CDO	.4xSV13
	CDO	.SV14
	CDO	.SV15
	CDO58	.SV16
	NT	.RETT5X
	NT	.RETF
	CDO5x	.RETE
	CDO	.AOS6		
	CDO	.SOS		
68	CDO	.ZERO		
	NT6X	.POPJ		
	CDO	.S6xTOP		
	CDO	.SAVE78		
	CDO	.STKST	78	
	CDO	.TRSET		
	NT	.POPJ1		
	C7xDO	.UD2SC		
	CDO8	.SC2UD		
	CDO	.88CPUTY		
	CDO
	C8XDO
	CDO

	CDO	8x		
	CDO	C%RPRM
9	CDO	C%INTR
	CDO98	C%SEND
	CDO	C%R9XECV
	CDO	C%BRCV
	CDO	C%REL
	CDO:	C%CPID
	CDO	C%K:8PID
	CDO	C%SPID
	CDO	C%MAXP
	CD:xO	C%PIDJ
	CDO	C%;PIDH
	CDO	C%SIDX;8
	CDO
	CDO
	CD;XO

	CDO	      	;x		
	CDO	F%IOPN
<	CDO	F%AOPN
	CDO<8	F%OOPN
	CDO	F%I<XBYT
	CDO	F%OBYT
	CDO	F%IBUF
	CD=O	F%OBUF
	CDO	F%=8REL
	CDO	F%DREL
	CDO	F%RREL
	CD=xO	F%REW
	CDO	F%P>OS
	CDO	F%CHKP
>8	CDO	F%INFO
	CDO>X	F%FD
	CDO	F%REN>x
	CDO	F%DEL
	CD?O	F%FCHN
	CDO
	?8CDO
	CDO
	CDO
?X	CDO
	CDO
	CDO
	CDO
	CDO	FUNCT@.			

	CDO	    @8  			
	CDO	M%ACQ@XP
	CDO	M%RELP
	@xCDO	M%IPSN
	CDO	AM%NXPG
	CDO	M%IPA8RC
	CDO	M%IPRM
AX	CDO	M%AQNP
	CDOAx	M%RLNP
	CDO	M%CBLNC
	CDO	M%FPGS
	CDO	M%GMEM
	CDBXO	M%RMEM
	CDO
	BxCDO
	CDO
	CDO
C	CDO
	CDO
	CDO	C8M%GPAG
	CDO	M%RPCXAG
	CDO
	CDO
	CxCDO
	CDO
	CDO
D	CDO
	CDO
	CDO

	CDO	      			DX
	CDO	T%TEXT
	CDxDO	T%TTY
	CDO
	ECDO
	CDO
	CDO
E8	CDO
	CDO
	CDO
	CDO
	CDO
	CDOEx

	CDO	      		F	
	CDO	L%CLST
	F8CDO	L%DLST
	CDO	FXL%CENT
	CDO	L%CBFxFR
	CDO	L%DENT
G	CDO	L%NEXT
	CDOG8	L%FIRS
	CDO	L%LGXAST
	CDO	L%PREV
	CDO	L%PREM
	CDHO	L%CURR
	CDO	L%H8RENT
	CDO	L%SIZEHX
	CDO	L%APOS
	CHxDO
	CDO
	CDO
	ICDO
	CDO
	CDO
I8	CDO
	CDO

	CDIXO			
	CDO	I%NOW
	CDO	I%EXIT
	CDJO	I%ION
	CDO	I%IJ8OFF
	CDO	I%SLP
JX	CDO	I%INT1
	CDOJx	I%INT2
	CDO	I%IKNT3
	CDO	I%TIMR
	CDO
	CDO
	CDOKX	I%SOPR
	CDO	I%WKxTO
	CDO
	CDO	I%LHOST
	CDO	I%JINFL8
	CDO
	CDO

	LXCDO	S%U2DT		
	CDLxO	S%DT2U
	CDO	S%MDATI
	CDO	S%SIXBM8
	CDO	S%CMND
	CMXDO	S%TBLK
	CDO	SMx%SCMP
	CDO	S%ERRN
	CDO	S%INTR
	CN8DO	S%EXIT
	CDO	SNX%TBAD
	CDO	S%TBDNxL
	CDO	S%NUMI
O

	CDO	K%RCOC			O8
	CDO	K%WCOC
	COXDO	K%SUET
	CDO	KOx%STYP
	CDO	K%TXTPI
	CDO	K%SOUT
	P8CDO	K%BOUT
	CDO	PXK%BIN
	CDO	K%BACPxK
	CDO	K%TPOS
	QCDO	K%BUFF
	CDO	Q8K%FLSH
	CDO	K%OPQXEN
	CDO	K%ECHO
Qx	CDO
	CDO
	CDO
	CDO
	CDO
	CDOR8
	CDO
	CDO
	  LSTON.
  
	  YO%GP YO%yG VXE?
	IFNDEF VxLSTIN.,LSTIN.==0	W	
IFE LSTIN.,<
W8	IFIDN <XCREF><AWX>,<.XCREF>	
		  Wx XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G X8EI
	IFG LSTXXIN.,LSTIN.==LSTINXx.-1	
	IFLE LSTINY.,<.CREF		
		      LIST>
		   [>&[ {Hn

	SALL	{h		
	.DIREC	FLBLS|T		

	SEARCH	AC|(TSYM		
	SEARCH	G|HLXMAC		
;	SEARCH|h	ORNMAC		

	PRO}LOG	(A)		

	%%}(ACTP==:%%ACTP		
}H
	TWOSEG	400K		
	RELOC	400K		

] #IFDEF A,<0A=A> IFNDEF A,<A==<B>>F A,]P nLCDO A `P at;RQ at^Q au\uQ auiQ @auk2Q aulvQ  av-Q @av[XQ av|RQ xa+= 5aJ}Ks 	XJ

	SALL		x			
	LSTOF. XCRE	F			

	%%.GLX==	8%%.GLX			
	GLXVR	XS==GLXVRS			

		xIFNB <A>,<%%.MOD	==SIXBIT/A/> 
		8IFNB <B>,<%%.OTS	X==SIXBIT/B/> 
	x
	GLOB	I%INIT			

	TOPS10	<			
	8		SEARCH	UUOSYM			X
		%%UUOS==%%UUO	xS		
	>				

	T	OPS20	<			
		SEA	8RCH	MONSYM		
;			X%%MONS==%%MONS		
	>				

	IFB <	B>,<			
		IFN G	8LXPUR,<
			.TEXT	X	|,REL:GLXLIB/SEA	xRCH/REQUIRE:I%INI	T/SEGMENT:LOW|
		8	>			
		DEFINE	$	XDATA (NAM,SIZ<1>)	x,< 
			NAM:	BLOC	K	SIZ
		>			
			8DEFINE	CDO (X),<G	XLOB X> 
		DEFINE	x	NT(X),<CDO X>	
			LIBVEC			
	>			8		

	IFNB <B>,	X<CHKEDT (B)>	
	x
	IFNB <B>,<IFDI	F <B><INI>,< 
		8	IFN GLXPURE,<.PS	XECT .HIGH.> 
		I	xFE GLXPURE,<		
				TWOSEG	400000	
			RELOC	0	
				XRELOC	400000	
			x>			

		DEFINE 	$DATA(NAM,SIZ<1>)	8,< 
			IFN GLXPU	XRE,<.PSECT DATA> 	x
			IFE GLXPURE,	<RELOC> 
			IFND	8EF B%D,<B%D::! 	XB%DL==:0>
			NA	xM:	BLOCK	SIZ
				B%DL==:B%DL+SIZ	8 
			IFN GLXPURE	X,<.ENDPS DATA> 
	x			IFE GLXPURE,<R	ELOC> 
		>			
	8
		IFDIF <B><OTS	X>,<	
			DEFINE	C	xDO (X),<GLOB X> 
			DEFINE	NT(X),	8<CDO X> 
			LIBV	XEC		
		>			

		x>>				

	IFNB <	B>,<IFIDN <B><I	8NI>,< 
		DEFINE		X$DATA (NAM,SIZ<1>	x),< 
			NAM:	BLO	 CK	SIZ
		>			
		 8>>				

	LSTON.	 X				

	GLOB	<.P	 xOPJ, .RETT, .RETF	!>	
	OPDEF	$RET	[	!8POPJ	P,]	
	OPDEF	!X	$RETT	[PJRST	.RE	!xTT]	
	OPDEF	$RET	"F	[PJRST	.RETF]	
	OPDEF	$RETIT	[J	"XUMPT	.POPJ]	
	OP	"xDEF	$RETIF	[JUMPF	#	.POPJ]	
	.NODDT	#8	$RET,$RETT,$RETF	#X,$RETIT,$RETIF
$RETIT,$RETIF
i?4( p'IFN FTUUOS,IFN FTUUOSi?4H 0+IFN FTJSYS,IFN FTJSYSjP o` i .ERR.	("%",A,<B>,C,D) ! 
.+1 A,EpP 	H  
			A:	BLOCK	B
		A,ExnB1NIT		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
{P 6)8P 68rP 6<P 6J6P 6lYP 6xtP vL\ Q Y


	.XCREpF	e
	.ASSIGN	e,ENTNUM,1

A::0	EXP	D
	XLIST
P	EXP	<e&7777>+1
	IFIW	[ASCIZ \C\]
	IFIW	AGET
1	IFIW	ACMP
	IFIqW	ACHG
	IFIW	AQRES
	IFIW	APRT
Q
	IFIW	AHLP
	IF
pIW	APRS
	EXP	B
	IFIW	ADFL
	LIST
P Sj6#@ 	 ,

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