Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11c-bm_tops20_v6_1_atpch1_16 - autopatch/glxmem.c14
There is 1 other file named glxmem.c14 in the archive. Click here to see a list.
 REP 29/1	;14C1
		MEMMAN==:27			;Maintenance edit number
 WIT
		MEMMAN==:47			;Maintenance edit number
 INS 21/4	;14C2
	*****	Release 5.0 -- begin maintenance edits	*****

	45	Increment maintenance edit level for version 5 of GALAXY.

	46	5.1233		31-Mar-86
		Change VALPAG to check that the returned page number is greater
	than or equal to PAGSTA.

	47	5.1234		1-Apr-86
		Use P3 rather than S2 when finding the largest number of contiguous
	pages in routine M%FPGS. S2 is trashed by routine FNDPAG
 DEL 6/5	;14C3

 REP 56/14	;14C4
	M%FPGS:	PUSHJ	P,.SAVE2		;Save a couple of regs
		MOVE	S1,PAGSTA		;First page to start the search
		MOVEI	P2,0			;Initialize current contiguous counter
		MOVEI	S2,0			;Initialize largest found contiguous 
 WIT
	;**;[47]At M%FPGS:+0L  replace 4 lines with 3 lines  JCR  4/1/86

	M%FPGS:	PUSHJ	P,.SAVE3		;[47]Save a couple of regs
		MOVE	S1,PAGSTA		;[47]First page to start the search
		SETZB	P2,P3			;[47]Initialize counters
 REP 70/14	;14C5
		CAMLE	P2,S2			;No, current contiguous count largest?
		MOVE	S2,P2			;Yes, so make it overall largest
		MOVEI	P2,MEMSIZ		;Get the number of pages 
		SUB	P2,S1			;not yet searched for
		CAMLE	S2,P2			;Continue the search for largest block?
 WIT
	;**;[47]At TRY:+6L replace 5 lines with 5 lines  JCR  4/1/86
		CAMLE	P2,P3			;[47]No, current contig. count largest?
		MOVE	P3,P2			;[47]Yes, so make it overall largest
		MOVEI	P2,MEMSIZ		;[47]Get the number of pages 
		SUB	P2,S1			;[47]not yet searched for
		CAMLE	P3,P2			;[47]Continue the search for largest block?
 REP 79/14	;14C6
	FINISH:	CAMLE	P2,S2			;Current contiguous count the largest?
		MOVE	S2,P2			;Yes, so make it the overall largest
	FINIT:  MOVE	S1,FREPGS		;PICK UP THE NUMBER
		$RETT				;AND RETURN
 WIT
	;**;[47]At FINISH:+0L replace 4 lines with 5 lines  JCR  4/1/86
	FINISH:	CAMLE	P2,P3			;[47]Current contig. count the largest?
		MOVE	P3,P2			;[47]Yes, make it the overall largest
	FINIT:  MOVE	S1,FREPGS		;[47]Pick up the number
		MOVE	S2,P3			;[47]Pick up the contig. block size
		$RETT				;[47]And return
 REP 33/20	;14C7
	VALPAG:	CAIL	S1,MEMSIZ		;RANGE CHECK THE PAGE NUMBER
 WIT
	;**;[46]At VALPAG:+0L Replace 1 line with 2 lines  JCR  3/31/86

	VALPAG:	CAIGE	S1,MEMSIZ		;[46]Page number must be within
		CAMGE	S1,PAGSTA		;[46]bounds
 SUM 106528