Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99r-bb - 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 @|
 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	P`RX,-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	B
`OX,-.ADLLW,PD.UNP
 AE	PNM,-.APNL
@AE	MALLW,PD.UNP	
 AE	LOG,-.ALFLW		
 AE	AUX,-.AUM AX,,UGAUX%	
 AE	@ACS,-.AACLW,PD.NM`D!PD.CND	
 AE	DEC,2,PD.NMD		
 AE 	CUS,.ACWDS,PD.NM@D	
AE	MIN,0			

CAE	MIN,0			Z7P CCi9P CCzP Gx oPGLOB 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$ 9a#N=.ERR.	("?",A,<B>,C,D)#i#PMAIN /ACM0umQ @M0wyQ  MRV>9P MS.[yQ O2|  AcIRP A,<
8	IF2,<IFDEF A,<.XIFN A,EXTERN,<INxTERN A>>
	     IFNDEF A,<EXTERN8 A>
	Q SUPPRESQA>>ASUPPRO3F;a#^=0.ERR.	("[",A,<B>,C,D)#k#Z.+1>
	UVn	@4@UVn3xE!

	  LST4OF. XCREF

	CDO48	OTSINI			
	CDO	4X    			
	CDO	.ZP4xAGA
	CDO	.ZPAGN
	CDO	.ZCHNK
	CD58O	.SAVE1
	CDO	.S5XAVE2
	CDO	.SAVE35x
	CDO	.SAVE4
	C6DO	.SAVET
	CDO	.68SV13
	CDO	.SV14
	CDO	.SV15
	CDO6x	.SV16
	NT	.RETT7
	NT	.RETF
	CDO78	.RETE
	CDO	.AOS7X		
	CDO	.SOS		
7x	CDO	.ZERO		
	NT8	.POPJ		
	CDO	.S88TOP		
	CDO	.SAVE8X8		
	CDO	.STKST	8x	
	CDO	.TRSET		
	NT	.POPJ1		
	C98DO	.UD2SC		
	CDO9X	.SC2UD		
	CDO	.9xCPUTY		
	CDO	.DI:E		
	CDO
	CDO
:8
	CDO			
	CDO	C:X%RPRM
	CDO	C%INT:xR
	CDO	C%SEND
	;CDO	C%RECV
	CDO	;8C%BRCV
	CDO	C%RE;XL
	CDO	C%CPID
	;xCDO	C%KPID
	CDO	<C%SPID
	CDO	C%MA<8XP
	CDO	C%PIDJ
<X	CDO	C%PIDH
	CDO<x	C%SIDX
	CDO
	C=DO
	CDO

	CDO	=8      			
	CDO	F=X%IOPN
	CDO	F%AOP=xN
	CDO	F%OOPN
	>CDO	F%IBYT
	CDO	>8F%OBYT
	CDO	F%IB>XUF
	CDO	F%OBUF
>x	CDO	F%REL
	CDO	?F%DREL
	CDO	F%RR?8EL
	CDO	F%REW
	?XCDO	F%POS
	CDO	F?x%CHKP
	CDO	F%INF@O
	CDO	F%FD
	CD@8O	F%REN
	CDO	F%D@XEL
	CDO	F%FCHN
@x	CDO
	CDO
	CDO
	CDO
	CDO
	CDOA8
	CDO
	CDO
	CDAXO	FUNCT.			

	CAxDO	      			
	CDBO	M%ACQP
	CDO	M%B8RELP
	CDO	M%IPSNBX
	CDO	M%NXPG
	CBxDO	M%IPRC
	CDO	MC%IPRM
	CDO	M%AQNC8P
	CDO	M%RLNP
	CXCDO	M%CLNC
	CDO	CxM%FPGS
	CDO	M%GMDEM
	CDO	M%RMEM
D8	CDO
	CDO
	CDO
	CDO
	CDO
	CDODx
	CDO	M%GPAG
	CEDO	M%RPAG
	CDO
E8	CDO
	CDO
	CDO
	CDO
	CDO
	CDOEx
	CDO

	CDO	  F    			
	CDO	T%TF8EXT
	CDO	T%TTY
FX	CDO
	CDO
	CDO
	CDO
	CDO
	CDOG
	CDO
	CDO
	CDG8O
	CDO

	CDO	 GX     			
	CDO	L%GxCLST
	CDO	L%DLSTH
	CDO	L%CENT
	CH8DO	L%CBFR
	CDO	LHX%DENT
	CDO	L%NEXHxT
	CDO	L%FIRS
	ICDO	L%LAST
	CDO	I8L%PREV
	CDO	L%PRIXEM
	CDO	L%CURR
Ix	CDO	L%RENT
	CDOJ	L%SIZE
	CDO	L%AJ8POS
	CDO
	CDO
JX	CDO
	CDO
	CDO
	CDO
	CDO
	CDOK

	CDO			
	CDOK8	I%NOW
	CDO	I%EXKXIT
	CDO	I%ION
	KxCDO	I%IOFF
	CDO	LI%SLP
	CDO	I%INTL81
	CDO	I%INT2
	LXCDO	I%INT3
	CDO	LxI%TIMR
	CDO
	CDMO
	CDO	I%SOPR
	M8CDO	I%WTO
	CDO
MX	CDO	I%HOST
	CDOMx	I%JINF
	CDO	I%CNJOB
	CDO	I%KJOB

	CDO	S%U2DT		
	CDO	S%DT2U
	CDNxO	S%DATI
	CDO	S%OSIXB
	CDO	S%CMNDO8
	CDO	S%TBLK
	COXDO	S%SCMP
	CDO	SOx%ERR
	CDO	S%INTRP
	CDO	S%EXIT
	CP8DO	S%TBAD
	CDO	SPX%TBDL
	CDO	S%NUMPxI


	CDO	K%RCOQC			
	CDO	K%WCOCQ8
	CDO	K%SUET
	CQXDO	K%STYP
	CDO	KQx%TXTI
	CDO	K%SOURT
	CDO	K%BOUT
	R8CDO	K%BIN
	CDO	KRX%BACK
	CDO	K%TPORxS
	CDO	K%BUFF
	SCDO	K%FLSH
	CDO	S8K%OPEN
	CDO	K%ECSXHO
	CDO
	CDO
	SxCDO
	CDO
	CDO
T	CDO
	CDO
	CDO
	  LSTON.
YOGP YO%yG X8EM
	IFNDEF XXLSTIN.,LSTIN.==0	Xx	
IFE LSTIN.,<
Y	IFIDN <XCREF><AY8>,<.XCREF>	
		  YX XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G ZEW
	IFG LSTZ8IN.,LSTIN.==LSTINZX.-1	
	IFLE LSTINZx.,<.CREF		
		      LIST>
		   [>&[ |@v

	SALL	|`		
	.DIREC	FLBLS}T		

	SEARCH	AC} TSYM		
	SEARCH	G}@LXMAC		
;	SEARCH}`	ORNMAC		

	PRO~LOG	(A)		

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

P CCY] *IFDEF A,<(A=A> IFNDEF A,<A==<B>>F A,]P oRCDO A `P at;RQ at^Q au\uQ auiQ @auk2Q aulvQ  av-Q @av[XQ av|RQ xa+= 5aJ}Ks 	8J-

	SALL		X			
	LSTOF. XCRE	xF			

	%%.GLX==	%%.GLX			
	GLXVR	8S==GLXVRS			

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

	TOPS10	<			
			SEARCH	UUOSYM			8
		%%UUOS==%%UUO	XS		
	>				

	T	xOPS20	<			
		SEA	RCH	MONSYM		
;			8%%MONS==%%MONS		
	>				

	IFB <	xB>,<			
		IFN G	LXPUR,<
			.TEXT	8	|,REL:GLXLIB/SEA	XRCH/REQUIRE:I%INI	xT/SEGMENT:LOW|
			>			
		DEFINE	$	8DATA (NAM,SIZ<1>)	X,< 
			NAM:	BLOC	xK	SIZ
		>			
			DEFINE	CDO (X),<G	8LOB X> 
		DEFINE	X	NT(X),<CDO X>	
	x		LIBVEC			
	>					

	IFNB <B>,	8<			
		IFDEF .MC	XRV.,<.VERSION <GL	xXVRS>>
		CHKEDT 	(B)		

	IFDIF 	8<B><INI>,<		
			XIFN GLXPURE,<.PSE	xCT .HIGH.> 
		IF	E GLXPURE,<		
			8	TWOSEG	400000	
	X			RELOC	0	
			R	xELOC	400000	
		>				

		DEFINE $	8DATA(NAM,SIZ<1>),	X< 
			IFN GLXPUR	xE,<.PSECT DATA> 
			IFE GLXPURE,<	8RELOC> 
			IFNDE	XF B%D,<B%D::! 	xB%DL==:0>
			NAM	:	BLOCK	SIZ
				8B%DL==:B%DL+SIZ 	X
			IFN GLXPURE,	x<.ENDPS DATA> 
				IFE GLXPURE,<RE	8LOC> 
		>			

	X	IFDIF <B><OTS>,	x<		
		DEFINE	CDO	  (X),<GLOB X> 
		 8	DEFINE	NT(X),<CD	 XO X> 
		LIBVEC			 x
	>			

	>			
	

	IFIDN <B>	!8<INI>,< 
		DEFIN	!XE	$DATA (NAM,SIZ<	!x1>),< 
			NAM:	B	"LOCK	SIZ
		>			
	>				
	>

	L	"XSTON.				

	GLO	"xB	<.POPJ, .RETT, 	#.RETF>	
	OPDEF	$	#8RET	[POPJ	P,]	
		#XOPDEF	$RETT	[PJRS	#xT	.RETT]	
	OPDEF	$	$RETF	[PJRST	.RE	$8TF]	
	OPDEF	$RET	$XIT	[JUMPT	.POPJ]		$x
	OPDEF	$RETIF	[	%JUMPF	.POPJ]	
	.	%8NODDT	$RET,$RETT,	%X$RETF,$RETIT,$RETIF
$RETIT,$RETi?4( h.IFN FTUUOS,IFN FTUUOSi?4H (2IFN FTJSYS,IFN FTJSYSjP o` ;#X= .ERR.	("%",A,<B>,C,D)#j#T.+1 A,EpP 	H  
			A:	BLOCK	B
		A,E#AoH1NIT	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\ ?i$"


	.XCRE@F	e
	.ASSIGN	e@(,ENTNUM,1

A::@H	EXP	D
	XLIST
@h	EXP	<e&7777>+1
	IFIW	[ASCIZ \CA)\]
	IFIW	AGET
AI	IFIW	ACMP
	IFIA	W	ACHG
	IFIW	AAiRES
	IFIW	APRT
	IFIW	AHLP
	IFDIW	APRS
	EXP	BD(
	IFIW	ADFL
	LIST
WFLVP"#@ <!#v

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