Google
 

Trailing-Edge - PDP-10 Archives - bb-y390o-bm_tops20_v41_atpch_20 - autopatch/qsrque.c11
There are no other files named qsrque.c11 in the archive.
 INS 8/8	;11C1
	;**;[1240]Add 1 line at Q$REQUEUE:+1L  JCR  2/28/85
		PUSHJ	P,.SAVE1		;[1240]Save P1
 REP 52/8	;11C2
		JUMPE	S1,REQU.2		;NONE THERE,,SKIP THIS
		PUSHJ	P,A$AFT##		;CREATE UDT WITH THAT TIME
 WIT
	;**;[1240]Replace 2 lines with 9 lines at REQ.1A:+3L  JCR  2/28/85
		LOAD	P1,.QEROB+.ROBTY(AP)	;[1240]Get the object type
		CAIE	P1,.OTNOT		;[1240]Is it NOTIFY?
		JUMPE	S1,REQU.2		;[1240]No, and none there, skip this
		JUMPE	S1,[ MOVE S1,G$NOW##	  ;[1240]Yes, and none there
			     AOS  S1		  ;[1240]Make it the future
			     JRST REQ.1B ]	  ;[1240]And rejoin
		PUSHJ	P,A$AFT##		;[1240]Create UDT with that time
 REP 3/9	;11C3
		MOVEM	S1,.QECRE(AP)		;SAVE A NEW /AFTER TIME.
 WIT
	REQ.1B:	MOVEM	S1,.QECRE(AP)		;[1240]Save a new /AFTER time.
		MOVE	S2,P1			;[1240]Get the object type for S$AFTR
 INS 39/10	;11C4
	;**;[1237] At CREA.0:+16L add two lines  JD  15-Feb-85
		TXNE	P3,.QIMOD		;[1237] IS THIS FROM A MODIFY?
		 JRST	CRE.0A	 		;[1237] YES, DON'T INCREMENT REQUEST ID
 REP 45/10	;11C5
		LOAD	S1,.QHPAG(H),QH.SCH	;BASE OF SCHEDULING ENTRIES
 WIT
	;**;[1237]  At CREA.0:+22L add new label   JD  15-Feb-85
	CRE.0A:	LOAD	S1,.QHPAG(H),QH.SCH	;[1237] BASE OF SCHEDULING ENTRIES
 INS 19/12	;11C6
	;**;[1240]Add 1 line at CREA.4:-2L  JCR  2/28/85
		LOAD	S2,.EQROB+.ROBTY(M)	;[1240]Pick up the object type
 REP 44/17	;11C7
		STORE	T4,.EQOID(P1)		;SAVE THE USER NUMBER
		$RETT				;AND RETURN
 WIT
	;**;[1241]Replace 2 lines with 11 lines at CRQOID:+2L  JCR  3/8/85
		CAMN	T4,G$SID##		;[1241]Don't check privs if same user
		JRST	CRQOI1			;[1241]Same user, don't check privs
		PUSHJ	P,A$WHEEL##		;[1241]Check for privs
		JUMPF	.RETF			;[1241]Not a WHEEL, lose
		MOVEM	T4,G$SID##		;[1241]Update default USER ID
	CRQOI1:	STORE	T4,.EQOID(P1)		;[1241]Save the USER NUMBER
		MOVE	S2,T4			;[1241]Prepare for the DIRST
		HRROI	S1,.EQOWN(P1)		;[1241]Point to owner string placement
		DIRST				;[1241]Update the owner string
		ERJMP	.RETF			;[1241]Error
		$RETT				;[1241]And return
 REP 33/21	;11C8
		MOVX	T1,.QIFNC		;THIS IS AN INTERNAL CALL
 WIT
	;**;[1237] At MODI.5:+1L add one line  JD  15-Feb-85
		MOVX	T1,.QIFNC+.QIMOD	;[1237] INTERNAL CALL AND MODIFY
 SUM 171993