Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99m-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 `~
 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	BADLLW,PD.UNP
@AE	PNM,-.APNL
`AE	MALLW,PD.UNP	
 AE	LOG,-.ALFLW 		
 AE	AUX,-.AUM@AX,,UGAUX%	
 AE	`ACS,-.AACLW,PD.NMD!PD.CND	
 AE	DE C,2,PD.NMD		
 AE@	CUS,.ACWDS,PD.NM`D	
AE	MIN,0			

CAE	MIN,0			Z7P CCi9P CCzP Gx o-GLOB 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$ 2I#5x.ERR.	("?",A,<B>,C,D)#0#MAIN /ACM0umQ @M0wyQ  MRV>9P MS.[yQ O2|  (AdIRP A,<
H	IF2,<IFDEF A,<.hIFN A,EXTERN,<INTERN A>>
	     (IFNDEF A,<EXTERNH A>
	Q SUPPRESQA>>:SUPPRO3F4I#$6.ERR.	("[",A,<B>,C,D)#2# .+1>
	UVn	@4@UVn4E"

	  LST4 OF. XCREF

	CDO4@	OTSINI			
	CDO	4`    			
	CDO	.ZP5AGA
	CDO	.ZPAGN
	CDO	.ZCHNK
	CD5@O	.SAVE1
	CDO	.S5`AVE2
	CDO	.SAVE36
	CDO	.SAVE4
	C6 DO	.SAVET
	CDO	.6@SV13
	CDO	.SV14
	CDO	.SV15
	CDO7	.SV16
	NT	.RETT7 
	NT	.RETF
	CDO7@	.RETE
	CDO	.AOS7`		
	CDO	.SOS		
8	CDO	.ZERO		
	NT8 	.POPJ		
	CDO	.S8@TOP		
	CDO	.SAVE8`8		
	CDO	.STKST	9	
	CDO	.TRSET		
	NT	.POPJ1		
	C9@DO	.UD2SC		
	CDO9`	.SC2UD		
	CDO	.:CPUTY		
	CDO	.DI: E		
	CDO
	CDO
:@
	CDO			
	CDO	C:`%RPRM
	CDO	C%INT;R
	CDO	C%SEND
	; CDO	C%RECV
	CDO	;@C%BRCV
	CDO	C%RE;`L
	CDO	C%CPID
	<CDO	C%KPID
	CDO	< C%SPID
	CDO	C%MA<@XP
	CDO	C%PIDJ
<`	CDO	C%PIDH
	CDO=	C%SIDX
	CDO
	C= DO
	CDO

	CDO	=@      			
	CDO	F=`%IOPN
	CDO	F%AOP>N
	CDO	F%OOPN
	> CDO	F%IBYT
	CDO	>@F%OBYT
	CDO	F%IB>`UF
	CDO	F%OBUF
?	CDO	F%REL
	CDO	? F%DREL
	CDO	F%RR?@EL
	CDO	F%REW
	?`CDO	F%POS
	CDO	F@%CHKP
	CDO	F%INF@ O
	CDO	F%FD
	CD@@O	F%REN
	CDO	F%D@`EL
	CDO	F%FCHN
A	CDO
	CDO
	CDO
	CDO
	CDO
	CDOA@
	CDO
	CDO
	CDA`O	FUNCT.			

	CBDO	      			
	CDB O	M%ACQP
	CDO	M%B@RELP
	CDO	M%IPSNB`
	CDO	M%NXPG
	CCDO	M%IPRC
	CDO	MC %IPRM
	CDO	M%AQNC@P
	CDO	M%RLNP
	C`CDO	M%CLNC
	CDO	DM%FPGS
	CDO	M%GMD EM
	CDO	M%RMEM
D@	CDO
	CDO
	CDO
	CDO
	CDO
	CDOE
	CDO	M%GPAG
	CE DO	M%RPAG
	CDO
E@	CDO
	CDO
	CDO
	CDO
	CDO
	CDOF
	CDO

	CDO	  F     			
	CDO	T%TF@EXT
	CDO	T%TTY
F`	CDO
	CDO
	CDO
	CDO
	CDO
	CDOG 
	CDO
	CDO
	CDG@O
	CDO

	CDO	 G`     			
	CDO	L%HCLST
	CDO	L%DLSTH 
	CDO	L%CENT
	CH@DO	L%CBFR
	CDO	LH`%DENT
	CDO	L%NEXIT
	CDO	L%FIRS
	I CDO	L%LAST
	CDO	I@L%PREV
	CDO	L%PRI`EM
	CDO	L%CURR
J	CDO	L%RENT
	CDOJ 	L%SIZE
	CDO	L%AJ@POS
	CDO
	CDO
J`	CDO
	CDO
	CDO
	CDO
	CDO
	CDOK 

	CDO			
	CDOK@	I%NOW
	CDO	I%EXK`IT
	CDO	I%ION
	LCDO	I%IOFF
	CDO	L I%SLP
	CDO	I%INTL@1
	CDO	I%INT2
	L`CDO	I%INT3
	CDO	MI%TIMR
	CDO
	CDM O
	CDO	I%SOPR
	M@CDO	I%WTO
	CDO
M`	CDO	I%HOST
	CDON	I%JINF
	CDO	I%CN JOB
	CDO	I%KJOB

	CDO	S%U2DT		
	CDO	S%DT2U
	CDOO	S%DATI
	CDO	S%O SIXB
	CDO	S%CMNDO@
	CDO	S%TBLK
	CO`DO	S%SCMP
	CDO	SP%ERR
	CDO	S%INTRP 
	CDO	S%EXIT
	CP@DO	S%TBAD
	CDO	SP`%TBDL
	CDO	S%NUMQI


	CDO	K%RCOQ C			
	CDO	K%WCOCQ@
	CDO	K%SUET
	CQ`DO	K%STYP
	CDO	KR%TXTI
	CDO	K%SOUR T
	CDO	K%BOUT
	R@CDO	K%BIN
	CDO	KR`%BACK
	CDO	K%TPOSS
	CDO	K%BUFF
	S CDO	K%FLSH
	CDO	S@K%OPEN
	CDO	K%ECS`HO
	CDO
	CDO
	TCDO
	CDO
	CDO
T 	CDO
	CDO
	CDO
	  LSTON.
YOGP YO%yG X@EN
	IFNDEF X`LSTIN.,LSTIN.==0	Y	
IFE LSTIN.,<
Y 	IFIDN <XCREF><AY@>,<.XCREF>	
		  Y` XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G Z EX
	IFG LSTZ@IN.,LSTIN.==LSTINZ`.-1	
	IFLE LSTIN[.,<.CREF		
		      LIST>
		   [>&[ |`x

	SALL	}		
	.DIREC	FLBLS} T		

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

	PRO~ LOG	(A)		

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

CZ7PCCi9] (,IFDEF A,<HA=A> IFNDEF A,<A==<B>>F A,]P o/CDO A `P at;RQ at^Q au\uQ auiQ @auk2Q aulvQ  av-Q @av[XQ av|RQ xa+= 5aJ}Ks 	@J.

	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>,	@<			
		IFDEF .MC	`RV.,<.VERSION <GL	XVRS>>
		CHKEDT 	 (B)		

	IFDIF 	@<B><INI>,<		
			`IFN GLXPURE,<.PSE	CT .HIGH.> 
		IF	 E GLXPURE,<		
			@	TWOSEG	400000	
	`			RELOC	0	
			R	ELOC	400000	
		>	 			

		DEFINE $	@DATA(NAM,SIZ<1>),	`< 
			IFN GLXPUR	E,<.PSECT DATA> 
			IFE GLXPURE,<	@RELOC> 
			IFNDE	`F B%D,<B%D::! 	B%DL==:0>
			NAM	 :	BLOCK	SIZ
				@B%DL==:B%DL+SIZ 	`
			IFN GLXPURE,	<.ENDPS DATA> 
		 		IFE GLXPURE,<RE	@LOC> 
		>			

	`	IFDIF <B><OTS>,	 <		
		DEFINE	CDO	   (X),<GLOB X> 
		 @	DEFINE	NT(X),<CD	 `O X> 
		LIBVEC			!
	>			

	>			
	

	IFIDN <B>	!@<INI>,< 
		DEFIN	!`E	$DATA (NAM,SIZ<	"1>),< 
			NAM:	B	" LOCK	SIZ
		>			
	>				
	>

	L	"`STON.				

	GLO	#B	<.POPJ, .RETT, 	# .RETF>	
	OPDEF	$	#@RET	[POPJ	P,]	
		#`OPDEF	$RETT	[PJRS	$T	.RETT]	
	OPDEF	$ 	$RETF	[PJRST	.RE	$@TF]	
	OPDEF	$RET	$`IT	[JUMPT	.POPJ]		%
	OPDEF	$RETIF	[	% JUMPF	.POPJ]	
	.	%@NODDT	$RET,$RETT,	%`$RETF,$RETIT,$RETIF
$RETIT,$RETi?4( 0IFN FTUUOS,IFN FTUUOSi?4H H4IFN FTJSYS,IFN FTJSYSjP o` 3i#6.ERR.	("%",A,<B>,C,D)#1#.+1 A,EpP 	H  
			A:	BLOCK	B
		A,E#o&1NIT^O	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\ 8Q#i


	.XCRE8pF	e
	.ASSIGN	e9,ENTNUM,1

A::90	EXP	D
	XLIST
9P	EXP	<e&7777>+1
	IFIW	[ASCIZ \C:\]
	IFIW	AGET
:1	IFIW	ACMP
	IFI9qW	ACHG
	IFIW	A:QRES
	IFIW	APRT
	IFIW	AHLP
	IF<pIW	APRS
	EXP	B=
	IFIW	ADFL
	LIST
#@ 5	#<

	PUSHJ	P6),[PUSHJ P,A$ERRM#6H#
		   XWD	A,'6hB'
		   XWD	E,[7ITEXT (<C>)]
	I7(FB  <D>,< EXP 0>7H
	IFNB <D>,< EXP D>
		  ]

B~
@A` B~
@J.I@A` J.I@J.MA` J.M>}{woP