Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - qsrque.c09
There are 2 other files named qsrque.c09 in the archive. Click here to see a list.
 REP 34/20	;09C1
		STORE	T4,.EQROB+.ROBND(P1)	;[1201]LET'S SAVE A NAME/NUMBER
 WIT
	;**;[1216]CHANGE 1 LINE AT CRQNOD:+4L	11-JUL-84/CTK
		STOLIM	T4,.EQLIM(P1),ONOD	;[1216]LET'S SAVE A NAME/NUMBER
 REP 42/20	;09C2
	CQND.1:	STORE	S1,.EQROB+.ROBND(P1)	;OK,,SAVE THE NODE NAME/NUMBER
 WIT
	;**;[1216]CHANGE 1 LINE AT CQND.1:+0L	11-JUL-84/CTK
	CQND.1:	STOLIM	S1,.EQLIM(P1),ONOD	;[1216]YES, SAVE IT IN THE EQ
 REP 16/42	;09C3
		MOVE	P1,S2			;SAVE ADDRESS IN P1
	DLFL.1:	MOVE	S1,DLF.ST(P1)		;GET THE STRUCTURE
		JUMPN	S1,DLF.1A		;JUMP IF THERE IS ONE
		PUSHJ	P,DLFSTR		;EXTRACT THE STRUCTURE
 WIT
	;**;[1212]MOVE LABEL AT Q$DLFL:+4L	29-MAY-84/CTK
	DLFL.1:	MOVE	P1,S2			;[1212]SAVE ADDRESS IN P1
		MOVE	S1,DLF.ST(P1)		;[1212]GET THE STRUCTURE
		JUMPN	S1,DLF.1A		;JUMP IF THERE IS ONE
		MOVE	S1,DLF.AD(P1)		;[1222]GET THE ADDRESS OF THE PAGE (EQ)
		JUMPN	S1,DLF.1B		;[1222]JUMP IF IT IS IN CORE
		MOVE	S1,DLF.DP(P1)		;[1222]GET THE DPA
		PUSHJ	P,F$RDRQ##		;[1222]AND READ THE REQUEST
		MOVEM	S1,DLF.AD(P1)		;[1222]SAVE THE ADDRESS
		AOS	DELNUM			;[1222]INCREMENT THE IN-CORE COUNT
	DLF.1B:	PUSHJ	P,DLFSTR		;[1222]EXTRACT THE STRUCTURE
 REP 24/42	;09C4
		MOVE	S1,DELLST		;GET LIST NUMBER
 WIT
		MOVE	S1,DLF.AD(P1)		;[1222]GET THE ADDRESS OF THE PAGE (EQ)
		JUMPE	S1,DLF.1C		;[1222]JUMP IF IT IS NOT IN CORE
		SETZM	DLF.AD(P1)		;[1222]IT IS NO LONGER IN CORE
		PUSHJ	P,M%RPAG		;[1222]RETURN THE PAGE
		SOS	DELNUM			;[1222]DECREMENT THE IN-CORE COUNT
	DLF.1C:	MOVE	S1,DELLST		;[1222]GET LIST NUMBER
 REP 34/45	;09C5
		SETZM	DLF.ST			;CLEAR THE STR WORD
 WIT
		SETZM	DLF.ST(P1)		;[1222]CLEAR THE STR WORD
 SUM 31678