Google
 

Trailing-Edge - PDP-10 Archives - BB-H580C-SB_1981 - lblprm.unv
There are 15 other files named lblprm.unv in the archive. Click here to see a list.
x
,5L@P C
P C
@ C
@ C
 @ C
0@ C
@@ C
P@ C
`@CCYXP"C[Q @C[VQ C\
P$C\sP C\}Q ?xC;fP C;uP E'P G P G3X[Q G3XsQ G3XyQ G3Y3Q G3Y;Q G3[Q G3[YQ G3\WQ  G3]7Q G; P GC& P GO$P G[%k  	,hJ|
			PICKU	-P	DGT,A,B,C
		-(		TRNN	%C,IBNCH.#	-H#
			TRZE	%C,SPC	-hCH.##
			CAIE	%C	.,3
			TRZA	%C,77	.(7600
			TRZ	%C,-	.H1
			IFE	A-6,<A	.hDDI %C,20>
			IF	/E	A-7,<ADDI %C,6	/(0>
			IFE	A-^D9	/H,<ADDI %C,360>
			PURGE	%C
			G[&;V 	0K
		PICKUP	0(	SDG,A,B,C;
		0H	TRNE	%C,IBNCH.##	0h
		TLOA	%C,(1B0)	1
		TRZE	%C,SPCCH	1(.##
		CAIE	%C,3
		TRZA	%C,777600	1h
		TRZ	%C,-1
			2IFE	A-6,<ADDI %C	2(,20>
		IFE	A-7,	2H<ADDI %C,60>
		I	2hFE	A-^D9,<ADDI %	3C,360>
		PURGE	%C
>
		PURGE	%I
n0P I
n5P I
n5@P IY`P I4P 	ExL/
	E.A==A

	E.A==I'[Q @I'[VQ J9P J9
P J9
P 2J9
 P 2J9
@P 3J9
`P 3J9
P 4J9
 P 4J9
@P 5J9
`P 5J9
P 6J9
 P 6J9
P J9
P 7J9
 P 7J9
@P 8J9
`P 8J9
P 9J9
 P 9J9
@P :J9
`P :J9
P ;J9
 P ;J9
 P J9
$P <J9
$ P <J9
$@P =J9
$`P =J9
%P >J9
% P >J9
%@P ?J9
%`P ?J9
&P @J9
& P @J9
0P J9
4P AJ9
4 P AJ9
4@P BJ9
4`P BJ9
5P CJ9
5 P CJ9
5@P DJ9
5`P DJ9
6P EJ9
6 P EJ9
@P J9
DP FJ9
D P FJ9
D@P GJ9
D`P GJ9
EP HJ9
E P HJ9
E@P IJ9
E`P IJ9
FP JJ9
F P JJ9
PP J9
TP KJ9
T P KJ9
T@P LJ9
T`P LJ9
UP MJ9
U P MJ9
U@P NJ9
U`P NJ9
VP OJ9
V P OJ9
`P J9
dP PJ9
d P PJ9
d@P QJ9
d`P QJ9
eP RJ9
e P RJ9
e@P SJ9
e`P SJ9
fP TJ9
f P TJ9
pP J9
tP UJ9
t P UJ9
t@P VJ9
t`P VJ9
uP WJ9
u P WJ9
u@P XJ9
u`P XJ9
vP YJ9
v P YJ9P 	J9P ZJ9 P ZJ9@P [J9`P [J9P \J9 P \J9@P ]J9`P ]J9P ^J9 P ^J9P 	J9P _J9 P _J9@P `J9`P `J9P aJ9 P aJ9@P bJ9`P bJ9P cJ9 P cJ9P J9P 
J9P dJ9 P dJ9@P eJ9`P eJ9P fJ9 P fJ9@P gJ9`P gJ9P hJ9 P hJ9P 
J9P iJ9 P iJ9@P jJ9`P jJ9P kJ9 P kJ9@P lJ9`P lJ9P mJ9 P mJ9 P J9$P nJ9$ P nJ9$@P oJ9$`P oJ9%P pJ9% P pJ9%@P qJ9%`P qJ9&P rJ9& P rJ90P J94P sJ94 P sJ94@P tJ94`P tJ95P uJ95 P uJ95@P vJ95`P vJ96P wJ96 P wJ9@P 
J9DP xJ9D P xJ9D@P yJ9D`P yJ9EP zJ9E P zJ9E@P {J9E`P {J9FP |J9F P |J9PP 
J9TP }J9T P }J9T@P ~J9T`P ~J9UP J9U P J9U@P J9U`P J9VP J9V P J9`P 
J9u`P 
J9vP J9v P J9P J9P 
J9 P 
J9@P J9 P J9@P J9`P J9P J9 P J9P J9P J9 P J9@P J9`P J9P J9 P J9@P J9`P J9P J9 P J9P J9P J9P J9 P J9@P J9`P J9P J9 P J9@P J9`P J9P J9 P J9P J9P J9 P J9@P J9`P J9P J9 P J9@P J9`P J9P J9 P J9 P J9$P  J9$ P  J9$@P !J9$`P !J9%P "J9% P "J9%@P #J9%`P #J9&P $J9& P $J90P J94P %J94 P %J94@P &J94`P &J95P 'J95 P 'J95@P (J95`P (J96P )J96 P )J9@P J9DP *J9D P *J9D@P +J9D`P +J9EP ,J9E P ,J9E@P -J9E`P -J9FP .J9F P .J9PP J9TP /J9T P /J9T@P 0J9T`P 0J9UP 1J9U P 1J9U@P 2J9U`P 2J9VP 3J9V P 3J9`P J9dP 4J9d P 4J9d@P 5J9d`P 5J9eP 6J9e P 6J9e@P 7J9e`P 7J9fP 8J9f P 8J9pP J9tP 9J9t P 9J9t@P :J9t`P :J9uP ;J9u P ;J9u@P <J9u`P <J9vP =J9v P =J9P J9P >J9 P >J9@P ?J9`P ?J9P @J9 P @J9@P AJ9`P AJ9P BJ9 P BJ9P J9P CJ9 P CJ9@P DJ9`P DJ9P EJ9 P EJ9@P FJ9`P FJ9P GJ9 P GJ9 P J9"P J9"P HJ9" P HJ9"@P IJ9"`P IJ9"P JJ9" P JJ9"@P KJ9"`P KJ9"P LJ9" P LJ9"P J9"P MJ9" P MJ9"@P NJ9"`P NJ9"P OJ9" P OJ9"@P PJ9"`P PJ9"P QJ9" P QJ9" P J9"$P RJ9"$ P RJ9"$@P SJ9"$`P SJ9"%P TJ9"% P TJ9"%@P UJ9"%`P UJ9"&P VJ9"& P VJ9"0P J9"4P WJ9"4 P WJ9"4@P XJ9"4`P XJ9"5P YJ9"5 P YJ9"5@P ZJ9"5`P ZJ9"6P [J9"6 P [J9"@P J9"DP \J9"D P \J9"D@P ]J9"D`P ]J9"EP ^J9"E P ^J9"E@P J9"E`P J9"FP `J9"F P `J9"PP J9"TP aJ9"T P aJ9"T@P bJ9"T`P bJ9"UP cJ9"U P cJ9"U@P dJ9"U`P dJ9"VP eJ9"V P eJ9"`P J9"dP fJ9"d P fJ9"d@P gJ9"d`P gJ9"eP hJ9"e P hJ9"e@P iJ9"e`P iJ9"fP jJ9"f P jJ9"pP J9"tP kJ9"t P kJ9"t@P lJ9"t`P lJ9"uP mJ9"u P mJ9"u@P nJ9"u`P nJ9"vP oJ9"v P oJ9#P J9#P pJ9# P pJ9#@P qJ9#`P qJ9#P rJ9# P rJ9#@P sJ9#`P sJ9#P tJ9# P tJ9#P J9#P uJ9# P uJ9#@P vJ9#`P vJ9#P wJ9# P wJ9#@P xJ9#`P xJ9#P yJ9# P yJ9(P J9*P J9*P zJ9* P zJ9*@P {J9*`P {J9*P |J9* P |J9*@P }J9*`P }J9*P ~J9* P ~J9*P J9*P J9* P J9*@P J9*`P J9*P J9* P J9*@P J9*`P J9*P J9* P J9* P J9*$P J9*$ P J9*$@P J9*$`P J9*%P J9*% P J9*%@P J9*%`P J9*&P J9*& P J9*0P J9*4P 	J9*4 P 	J9*4@P 
J9*4`P 
J9*5P J9*5 P J9*5@P 
J9*5`P 
J9*6P J9*DP J9*D P J9*D@P J9*D`P J9*EP J9*E P J9*E@P J9*E`P J9*FP J9*F P J9*PP J9*TP J9*T P J9*T@P J9*T`P J9*UP J9*U P J9*U@P J9*U`P J9*VP J9*V P J9*`P J9*dP J9*d P J9*d@P J9*d`P J9*eP J9*e P J9*e@P J9*e`P J9*fP J9*f P J9*pP J9*tP J9*t P J9*t@P J9*t`P J9*uP J9*u P J9*u@P  J9*u`P  J9*vP !J9*v P !J9+P J9+P "J9+ P "J9+@P #J9+`P #J9+P $J9+ P $J9+@P %J9+`P %J9+P &J9+ P &J9+P J9+P 'J9+ P 'J9+@P (J9+`P (J9+P )J9+ P )J9+@P *J9+`P *J9+P +J9+ P +J90P J92P J92P ,J92 P ,J92@P -J92`P -J92P .J92 P .J92@P /J92`P /J92P 0J92 P 0J92P J92P 1J92 P 1J92@P 2J92`P 2J92P 3J92 P 3J92@P 4J92`P 4J92P 5J92 P 5J92 P J92$P 6J92$ P 6J92$@P 7J92$`P 7J92%P 8J92% P 8J92%@P 9J92%`P 9J92&P :J92& P :J920P J924P ;J924 P ;J924@P <J924`P <J925P =J925 P =J925@P >J925`P >J926P ?J926 P ?J92@P  J92DP @J92D P @J92D@P AJ92D`P AJ92EP BJ92E P BJ92E@P CJ92E`P CJ92FP DJ92F P DJ92PP  J92TP EJ92T P EJ92T@P FJ92T`P FJ92UP GJ92U P GJ92U@P HJ92U`P HJ92VP IJ92V P IJ92`P !J92dP JJ92d P JJ92d@P KJ92d`P KJ92eP LJ92e P LJ92e@P MJ92e`P MJ92fP NJ92f P NJ92pP !J92tP OJ92t P OJ92t@P PJ92t`P PJ92uP QJ92u P QJ92u@P RJ92u`P RJ92vP SJ92v P SJ93P "J93P TJ93 P TJ93@P UJ93`P UJ93P VJ93 P VJ93@P WJ93`P WJ93P XJ93 P XJ93P "J93P YJ93 P YJ93@P ZJ93`P ZJ93P [J93 P [J93@P \J93`P \J93P ]J93 P ]J98P J9:P #J9:P ^J9: P ^J9:@P J9:`P J9:P `J9: P `J9:@P aJ9:`P aJ9:P bJ9: P bJ9:P #J9:P cJ9: P cJ9:@P dJ9:`P dJ9:P eJ9: P eJ9:@P fJ9:`P fJ9:P gJ9: P gJ9: P $J9:$P hJ9:$ P hJ9:$@P iJ9:$`P iJ9:%P jJ9:% P jJ9:%@P kJ9:%`P kJ9:&P lJ9:& P lJ9:0P $J9:4P mJ9:4 P mJ9:4@P nJ9:4`P nJ9:5P oJ9:5 P oJ9:5@P pJ9:5`P pJ9:6P qJ9:6 P qJ9:@P %J9:DP rJ9:D P rJ9:D@P sJ9:D`P sJ9:EP tJ9:E P tJ9:E@P uJ9:E`P uJ9:FP vJ9:F P vJ9:PP %J9:TP wJ9:T P wJ9:T@P xJ9:T`P xJ9:UP yJ9:U P yJ9:U@P zJ9:U`P zJ9:VP {J9:V P {J9:`P &J9:dP |J9:d P |J9:d@P }J9:d`P }J9:eP ~J9:e P ~J9:e@P J9:e`P J9:fP J9:f P J9:pP &J9:tP J9:t P J9:t@P J9:t`P J9:uP J9:u P J9:u@P J9:u`P J9:vP J9:v P J9;P 'J9;P J9; P J9;@P J9;`P J9;P J9; P J9;@P 	J9;`P 	J9;P 
J9; P 
J9;P 'J9;P J9; P J9;@P 
J9;`P 
J9;P J9;`P J9;P J9; P J9@P J9BP (J9BP J9B P J9B@P J9B`P J9BP J9B P J9B@P J9B`P J9BP J9B P J9BP (J9BP J9B P J9B@P J9B`P J9BP J9B P J9B@P J9B`P J9BP J9B P J9B P )J9B$P J9B$ P J9B$@P J9B$`P J9B%P J9B% P J9B%@P J9B%`P J9B&P J9B& P J9B0P )J9B4P J9B4 P J9B4@P  J9B4`P  J9B5P !J9B5 P !J9B5@P "J9B5`P "J9B6P #J9B6 P #J9B@P *J9BDP $J9BD P $J9BD@P %J9BD`P %J9BEP &J9BE P &J9BE@P 'J9BE`P 'J9BFP (J9BF P (J9BPP *J9BTP )J9BT P )J9BT@P *J9BT`P *J9BUP +J9BU P +J9BU@P ,J9BU`P ,J9BVP -J9BV P -J9B`P +J9BdP .J9Bd P .J9Bd@P /J9Bd`P /J9BeP 0J9Be P 0J9Be@P 1J9Be`P 1J9BfP 2J9Bf P 2J9BpP +J9BtP 3J9Bt P 3J9Bt@P 4J9Bt`P 4J9BuP 5J9Bu P 5J9Bu@P 6J9Bu`P 6J9BvP 7J9Bv P 7J9CP ,J9CP 8J9C P 8J9C@P 9J9C`P 9J9CP :J9C P :J9C@P ;J9C`P ;J9CP <J9C P <J9CP ,J9CP =J9C P =J9C@P >J9C`P >J9CP ?J9C P ?J9C@P @J9C`P @J9CP AJ9C P AJ9HP J9JP -J9JP BJ9J P BJ9J@P CJ9J`P CJ9JP DJ9J P DJ9J@P EJ9J`P EJ9JP FJ9J P FJ9JP -J9JP GJ9J P GJ9J@P HJ9J`P HJ9JP IJ9J P IJ9J@P JJ9J`P JJ9JP KJ9J P KJ9J P .J9J$P LJ9J$ P LJ9J$@P MJ9J$`P MJ9J%P NJ9J% P NJ9J%@P OJ9J%`P OJ9J&P PJ9J& P PJ9J0P .J9J4P QJ9J4 P QJ9J4@P RJ9J4`P RJ9J5P SJ9J5 P SJ9J5@P TJ9J5`P TJ9J6P UJ9J6 P UJ9J@P /J9JDP VJ9JD P VJ9JD@P WJ9JD`P WJ9JEP XJ9JE P XJ9JE@P YJ9JE`P YJ9JFP ZJ9JF P ZJ9JPP /J9JTP [J9JT P [J9JT@P \J9JT`P \J9JUP ]J9JU P ]J9JU@P ^J9JU`P ^J9JVP J9JV P J9J`P 0J9JdP `J9Jd P `J9Jd@P aJ9Jd`P aJ9JeP bJ9Je P bJ9Je@P cJ9Je`P cJ9JfP dJ9Jf P dJ9JpP 0J9JtP eJ9Jt P eJ9Jt@P fJ9Jt`P fJ9JuP gJ9Ju P gJ9Ju@P hJ9Ju`P hJ9JvP iJ9Jv P iJ9KP 1J9KP jJ9K P jJ9K@P kJ9K`P kJ9KP lJ9K P lJ9K@P mJ9K`P mJ9KP nJ9K P nJ9KP 1J9KP oJ9K P oJ9K@P pJ9K`P pJ9KP qJ9K P qJ9K@P rJ9K`P rJ9KP sJ9K P sK
\P KN@P M0,[zQ M0.|QQ M:d[@P 
SC&PUSLPX@SN 	<HL	;INCRE. M	<hTR BUCKET (A)
		=			;FOR FILE WITH	=( FILTAB ADDR B
	=H				;L.METR USES 	=hAC1 AND AC2
  IF	>N LSTATS,<
	MOVE	>(I	S2,A		;SET BUC	>HKET OFFSET WITHIN	>h A BLOCK
	MOVE		?S1,B		;SET FILTA	?(B ADDRESS
	PUSHJ	?H	PP,LMETR.	;GO IN	?hCREMENT BUCKET 
	@  >;END LSTATS
 >;END LSTATS
Y&=bQ tY4P!YLP"YN0P YO$P [
t[ZP [
tkP [
uTP [
uXP [
uJxP [
ukwP [
u}:P [
v)7P [P [C<3YP [C<9<P [K%Y' 	7HK`	;GET TIME	7h SINCE MRTMS.,ADD	8 TO TIME BUCKET
	8(			;ADDRESSED BY 	8HMBTMB.
  IFN LST	8hATS,<
	IFE TOPS2	90,<
		SETZ	A,			9(;OUR JOB
		RUNTI	9HME	A,		;GET FAST	9h 10 TIME
		SUB		:A,MBTIM.	;GET TIM	:(E SINCE METER PT 	:HSTART
		ADDM	A,	:h@MRTMB.	;ADD TIME	; PAST TO TIME BUC	;(KET
	>
	IFN TOP	;HS20,<
		PUSHJ	PP	;h,MRTM.E	;GET TIME	< FOR 20
	>
  >;END LSTATS
 >;[K%\g 	3HK8	;START MR	3hT PT TIMING, SAVE	4 NOW IN MBTIM.
 	4( IFN LSTATS,<
	I	4HFE TOPS20,<
		SE	4hTZ	A,		;OUR JOB
		RUNTIME	A,		;	5(GET FAST 10 TIME
		MOVEM	A,MBTIM	5h.	;SAVE START TIM	6E
	>
	IFN TOPS2	6(0,<
		PUSHJ	PP,M	6HRTM.S	;GO SET 20 	6hTIME FOR START
		7>
  >;END LSTATS
 >;END LSTATS[Pt+P [PtT(P [Ptj6P [PuQP [Pu,rP [Puy9P ]Vn=P _mP  _:.93P _BpY<Q _BpZ7Q _Bp[YQ _Bp[zQ _Bp\[Q @_C& P aPP a&=8 	'HJZ
		.XCREF	'h
		
		g==B
		(	IFB <B>,<g==6>	((
		h==C
		IFB	(H <C>,<h==CH>
		(h	%C==D
		IFB <	)D>,<%C==h>
		h	)(==h&17
		e==S	)HAL.##
		f==SAR	)h.##
		IFE g-7,<	*e==AAL.##
				*(f==AAR.##>
		IF	*HE g-^D9,<e==EA	*hL.##
			f==EAR	+.##>
		LDB	%C,	[	+(XWD	e+h,f]
		.CREF
		LIST
a@P cP,^P cP,^P cP-<P cP->(P cP-kxP cP.:P cP.:P e
tP e
v=9P e
v[SP eC8P fDP fHP fLP g&=` 	+hJbPICKUP	SGN	,,A,B,C
			PUR	,(GE	%A,%B,%C
			E	%A,%B,%C
			gN0PygRX8QMgRY8QgRYzQgR[VQgXth:PgXuSPgXu:6PZgXv|WPg\Pg]Q: thDP7hHP2hLPhPPhTPtiPiPP i0P i@P iPP iP i?4HP iJ
	dPP 	+y 	@hL+	J0


MMT==	AC
IFN <C>&MT.FI	A8L,< MMT==C!MT.IV	AXB> ;IF FILE ERROR	Ax, SET "I-O VERB"

	MOVE	2,[<B>B	B82+<MMT>B17+<A>B3	BX5]
	MOVEI	3,E
	Bx	JSP	1,LBLERR
IF	CE <B-SV.KIL>,<	;	C8DON'T LET HIM GET	CX AWAY WITH CONFUS	CxION
	IFNB <D>,<	D	PRINTX ?$ERROR m	D8ay not specify D	DX
		PRINTX when S	DxEVERITY = SV.KIL
		PASS2
		END >	E8>

IFNB <D>,< JRST	D>

,< LSL0	0P 	# P 	20P 	[ P 
d+P 
PP tS@P J,P J:qP J<QP J<YP Jh1P JkVP J:7P J<SP JI7P JY6P JnP J(1P J=P J1P >}{woP