Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - vmser.c08
There is 1 other file named vmser.c08 in the archive. Click here to see a list.
 INS 16/54	;08C1
		IOR	P3,.CPKPM##	;ALSO LITE "KEEP ME" IF THERE IS AN MCA25
 DEL 46/85	;08C2
		TRNE	T2,400000
 DEL 35/96	;08C3
		TLNN	T1,(1B8)	;PAGED REFERENCE?
		JRST	CPOPJ1##	;NO, WILL NOT FAULT
 INS 9/110	;08C4
		SETZM	.UPMP+.UPTMC	;TRAP COUNTERS
		SETZM	.UPMP+.UPTMI	;CLEAR VIRTUAL TIME
 REP 25/140	;08C5
	SPYPG1:	PUSHJ	P,NXTPAG	;GET THE NEXT ARGUMENT
 WIT
	SPYPG1:	PUSHJ	P,NXTSPG	;GET THE NEXT ARGUMENT
 REP 1/141	;08C6
	SPYPG2:	PUSHJ	P,NXTPAG	;GET THE NEXT ARGUMENT
 WIT
	SPYPG2:	PUSHJ	P,NXTSPG	;GET THE NEXT ARGUMENT
 INS 25/145	;08C7
	NXTSPG:	MOVE	T1,.USNXP	;A RANGE OF PAGES SPECIFIED?
		CAMN	T1,[-1]
		PJRST	GETWD1##	;NO, GET ARGUMENT FROM LIST
		AOBJN	T1,.+1		;INCREMENT BOTH HALVES
		JRST	PREPA2		;STORE FOR NEXT CALL, AND RETURN
 SUM 220833