Google
 
Trailing-Edge - PDP-10 Archives - ap-c800d-sb - lblprm.unv
There are 15 other files named lblprm.unv in the archive. Click here to see a list.
x
,\@P C

P CYXP"C[Q @C[VQ C\

P$C\sP C\}Q ?xCT, `CV<  C;fP C;uP D:5H3P EtkP Eds@P'EdsVP!EdsWP"EdsYP$E'P E'P E'P E' P E'0P E'@P E':P E'DP E'D P E'D@P G P G3XLQ  G3X[Q G3XsQ G3XyQ G3Y3Q G3Y;Q G3[Q G3[YQ G3]7Q G79  @G79` `G79r  G7;  G7; `G7;@ @G; P GC& P GO$P G[$) @G[$) `G[$+` G[$HZ  G[%k  '
			PICKU0P	DGT,A,B,C
	P		TRNN	%C,IBNCH.#p#
			TRZE	%C,SPCCH.##
			CAIE	%C0,3
			TRZA	%C,77P7600
			TRZ	%C,-p1
			IFE	A-6,<ADDI %C,20>
			IF0E	A-7,<ADDI %C,6P0>
			IFE	A-^D9p,<ADDI %C,360>
			PURGE	%C
			G[&;V 0C
		PICKUPP	SDG,A,B,C;
	p	TRNE	%C,IBNCH.##
		TLOA	%C,(1B0)0
		TRZE	%C,SPCCHP.##
		CAIE	%C,3
		TRZA	%C,777600
		TRZ	%C,-1
		0IFE	A-6,<ADDI %CP,20>
		IFE	A-7,p<ADDI %C,60>
		IFE	A-^D9,<ADDI %0C,360>
		PURGE	%C
>
		PURGE	%I$@ I
n0P I
n5P I
n5@P IN` `IY`P I'[Q @I'[VQ I6~i  I6~i6 I6~k@  I6~kV  I7-@ @IO$;ZP IO%
P IO%K`P IO&J@p@P J@q`P J@rP J@t P J@t+P J@t0P J@t;vP J@t@P J@tj6P J@tkP J@uYP J@uZ P J@uySP J@vP J@v P J@v;P J@vHVP K
\PKN@PKN@Kc$[RN`M0,[zQCM0.|QQ SC& P SLP @SN
	"0			;FOR FILE WITH"P FILTAB ADDR B
"p				;L.METR USES #AC1 AND AC2
  IF#0N LSTATS,<
	MOVE#PI	S2,A		;SET BUC#pKET OFFSET WITHIN$ A BLOCK
	MOVE	$0S1,B		;SET FILTA$PB ADDRESS
	PUSHJ$p	PP,LMETR.	;GO IN%CREMENT BUCKET 
%0  >;END LSTATS
 >;END LSTATS
Y&=bQ tY4P!YLP"YN0P YO$P [82P [P [?6; @[?6;` [?6<U `[?6=  [C<3YP [C<9<P [K%Y' p	;GET TIME SINCE MRTMS.,ADD0 TO TIME BUCKET
P			;ADDRESSED BY pMBTMB.
  IFN LSTATS,<
	IFE TOPS200,<
		SETZ	A,		P;OUR JOB
		RUNTIpME	A,		;GET FAST 10 TIME
		SUB	0A,MBTIM.	;GET TIMPE SINCE METER PT pSTART
		ADDM	A, @MRTMB.	;ADD TIME 0 PAST TO TIME BUC PKET
	>
	IFN TOP pS20,<
		PUSHJ	PP!,MRTM.E	;GET TIME!0 FOR 20
	>
  >;END LSTATS
 >;[K%\g pc	;START MRT PT TIMING, SAVE0 NOW IN MBTIM.
 P IFN LSTATS,<
	IpFE TOPS20,<
		SETZ	A,		;OUR JOB
		RUNTIME	A,		;PGET FAST 10 TIME
		MOVEM	A,MBTIM.	;SAVE START TIM0E
	>
	IFN TOPS2P0,<
		PUSHJ	PP,MpRTM.S	;GO SET 20 TIME FOR START
	0>
  >;END LSTATS
 >;END LSTATS]Vn=P _mP  _:.93P _BpY<Q _BpZ7Q _Bp[YQ _Bp[zQ _Bp\[Q @_C& P aPP a&+@P a&=8 

p
		.XCREF
		
		g==B
	IFB <B>,<g==6>
		h==C
		IFB,<h==CH>
		%C==D
		IFB <0D>,<%C==h>
		hP==h&17
		e==SpAL.##
		f==SAR.##
		IFE g-7,<0e==AAL.##
			Pf==AAR.##>
		IFpE g-^D9,<e==EAL.##
			f==EAR0.##>
		LDB	%C,	[PXWD	e+h,f]
		.CREF
		LIST
a@PUcP,^PcP,^P cP-<P cP->(P cP-kxP cP.:P cP.:P eC8P fDP fHP fLP g:P g&=` 
			PURPGE	%A,%B,%C
			E	%A,%B,%C
			gJ;ZP gJ
P gJK`P gJY8Q gRYzQ gR[VQ gSSP g\P g]Q 0th:

*9P h:

,ZP!h:l;P"h:n9:P#h;*:P$hDP hHPhLPhPP hTPiP@iLP i0P<i@PiPP iPi?4HP iJ o XSQ o XtQ x
d+P S@P >}{woP