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
,8@P C

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

P$C\sP C\}Q ?xC;fP C;uP E'P G P G3XLQ  G3X[Q G3XsQ G3XyQ G3Y3Q G3Y;Q G3[Q G3[YQ G3]7Q G; P GC& P GO$P G[%k  @
			PICKU`P	DGT,A,B,C
			TRNN	%C,IBNCH.# #
			TRZE	%C,SPC@CH.##
			CAIE	%C`,3
			TRZA	%C,777600
			TRZ	%C,- 1
			IFE	A-6,<A@DDI %C,20>
			IF`E	A-7,<ADDI %C,60>
			IFE	A-^D9 ,<ADDI %C,360>
			PURGE	%C
			G[&;V `6
		PICKUP	SDG,A,B,C;
	 	TRNE	%C,IBNCH.##@
		TLOA	%C,(1B0)`
		TRZE	%C,SPCCH.##
		CAIE	%C,3
		TRZA	%C,777600@
		TRZ	%C,-1
		`IFE	A-6,<ADDI %C,20>
		IFE	A-7, <ADDI %C,60>
		I@FE	A-^D9,<ADDI %`C,360>
		PURGE	%C
>
		PURGE	%I
n0P I
n5P I
n5@P IY`P I'[Q @I'[VQ K
\PKN@PM0,[zQM0.|QQNSC&RPCSLP @SN
	 `			;FOR FILE WITH! FILTAB ADDR B
! 				;L.METR USES !@AC1 AND AC2
  IF!`N LSTATS,<
	MOVE"I	S2,A		;SET BUC" KET OFFSET WITHIN"@ A BLOCK
	MOVE	"`S1,B		;SET FILTA#B ADDRESS
	PUSHJ# 	PP,LMETR.	;GO IN#@CREMENT BUCKET 
#`  >;END LSTATS
 >;END LSTATS
Y&=bQ tY4P!YLP"YN0P YO$P [P [C<3YP [C<9<P [K%Y'  ~	;GET TIME@ SINCE MRTMS.,ADD` TO TIME BUCKET
			;ADDRESSED BY  MBTMB.
  IFN LST@ATS,<
	IFE TOPS2`0,<
		SETZ	A,		;OUR JOB
		RUNTI ME	A,		;GET FAST@ 10 TIME
		SUB	`A,MBTIM.	;GET TIME SINCE METER PT  START
		ADDM	A,@@MRTMB.	;ADD TIME` PAST TO TIME BUCKET
	>
	IFN TOP S20,<
		PUSHJ	PP@,MRTM.E	;GET TIME` FOR 20
	>
  >;END LSTATS
 >;[K%\g  V	;START MR@T PT TIMING, SAVE` NOW IN MBTIM.
  IFN LSTATS,<
	I FE TOPS20,<
		SE@TZ	A,		;OUR JOB
		RUNTIME	A,		;GET FAST 10 TIME
		MOVEM	A,MBTIM@.	;SAVE START TIM`E
	>
	IFN TOPS20,<
		PUSHJ	PP,M RTM.S	;GO SET 20 @TIME FOR START
	`>
  >;END LSTATS
 >;END LSTATS]Vn=P _mP  _:.93P _BpY<Q _BpZ7Q _Bp[YQ _Bp[zQ _Bp\[Q @_C& P aPP a&=8  x
		.XCREF@
		
		g==B
	`	IFB <B>,<g==6>


		h==C
		IFB

  <C>,<h==CH>
	

@	%C==D
		IFB <

`D>,<%C==h>
		h&17
		e==S
		f==SAR
		IFEAg-7,<
			f==AAR.##>
		IF E g-^D9,<e==EA@L.##
			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 eC8P fDP fHP fLP g:P g&=` @PICKUP	SGN`,A,B,C
			PURGE	%A,%B,%C
			E	%A,%B,%C
			gN0PygRY8QgRYzQgR[VQgSSPg\Pg]QZ thDPZhHPhLPhPP:hTPiP@iQPi0PSi@PiPPiP i?4HP iJ
d+P S@P >}{woP