Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - srtuuo.c08
There is 1 other file named srtuuo.c08 in the archive. Click here to see a list.
 REP 2/1	;08C1
	SUBTTL	D.M.NIXON/DMN/DZN/BRF/GCS		20-Aug-82
 WIT
	SUBTTL	D.M.NIXON/DMN/DZN/BRF/GCS		22-Jun-83
 REP 32/5	;08C2
		SETZB	P1,P2			;[503] CLEAR COUNTERS.
		MOVEI	T2,777			;[503]
 WIT
	;**;[516] @DEFCOR) + 27L  Correct edit 503.	     DMN  22-Jun-83
		SETZ	P2,			;[516] CLEAR NON-CONTIGUOUS PAGES COUNTER.
		AOS	P1,.JBREL##		;[516] GET HIGHEST CONTIGUOUS LOWSEG ADDRESS +1
		LSH	P1,-<POW2(PGSIZ)>	;[516] CONVERT TO PAGE NUMBER
		HRLZI	T2,-1000(P1)		;[516] FORM AOBJN COUNTER FOR REST OF PAGES
		HRR	T2,P1			;[516] START SCAN AT FIRST PAGE ABOVE .JBREL
 REP 37/5	;08C3
		  AOJA	P1,DEFCR2		;[503]  ASSUME IT EXISTS.
		TLNE	T1,PA.GNE/1000000	;[503] DOES THIS PAGE EXIST?
		SOJGE	T2,DEFCR1		;[503]  NO.
		TLNN	T1,PA.GHI/1000000	;[503] PAGE IN HIGH SEGMENT?
		AOJA	P1,DEFCR2		;[503]  NO - COUNT AS NON-H.S.
		AOJ	P2,			;[503]  YES - COUNT IT AS H.S.
	DEFCR2:	SOJGE	T2,DEFCR1		;[503] ARE WE FINISHED?
		IMULI	P1,PGSIZ		;[503] CONVERT PAGES TO WORDS.
		IMULI	P2,PGSIZ		;[503] DITTO.
	IFN FTKI10!FTKL10!FTDEBUG!FTCOBOL!FTFORTRAN,<	;[C29]
		ADD	P1,P2			;[C20] [C13] INCLUDE HI-SEGEMENT SIZE
	>
 WIT
		  TRNA				;[516] [503]  ASSUME IT EXISTS.
		TXNN	T1,PA.GNE		;[516] [503] DOES THIS PAGE EXIST?
		ADDI	P2,1			;[516] YES, COUNT IN HISEG OR NON-CONTIGUOUS LOWSEG
		AOBJN	T2,DEFCR1		;[516] [503] ARE WE FINISHED?
		IMULI	P1,PGSIZ		;[503] CONVERT PAGES TO WORDS.
		IMULI	P2,PGSIZ		;[503] DITTO.
		ADD	P1,P2			;[516] TOTAL PAGES IN USE
 REP 148/5	;08C4
	IFN LOWORG,<
		SUBI	P1,<<LOWEND/PGSIZ>-<LOWORG/PGSIZ>+1>*PGSIZ	;[C29]
	>
	IFN FTVM,<
		SKIPE	FORRET			;CALLED BY FORTRAN?
		SUBI	P1,FSORTSZ		;YES, SUBTRACT SIZE OF FSORT
	>
	IFN FTKI10!FTKL10!FTDEBUG!FTCOBOL!FTFORTRAN,<	;[C29]
		SUB	P1,P2			;[C20] [C13] DISCOUNT HI-SEGMENT SIZE
	>
 WIT
	;**;[516] @DEFCOR) + 142L  Replace 9 lines with 1.  DMN  22-Jun-83
		SUB	P1,P2			;[516] REMOVE HISEG AND NON-CONTIGUOUS LOWSEG
 SUM 221417