Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - qsrsch.c09
There are 2 other files named qsrsch.c09 in the archive. Click here to see a list.
 REP 36/5	;09C1
			 JUMPT SCH.A2		;[NXT] FOUND IT,,SCHEDULE IT
			 SETZM OBJRID(P1)	;[NXT] NOT THERE,,ZAP OLD REQUEST ID
			 JRST  .+1 ]		;[NXT] AND GO FIND ANY OLD JOB !!!
 WIT
	;**;[1207] Swap 2 lines of code at SCHD.2+11L. /LWS
			 SETZM OBJRID(P1)	;[1207] [NXT] ZAP OLD REQUEST ID
			 JUMPT SCH.A2		;[1207] [NXT] FOUND IT,,SCHEDULE IT
			 JRST  .+1 ]		;[NXT] OR GO FIND ANY OLD JOB !!!
 REP 29/24	;09C2
		PUSHJ	P,MODBEG		;11 = /BEGIN
 WIT
	;**;[1214]ADD 1 ENTRY TO INPMTP TABLE	14-MAY-84/CTK
	;THIS REFLECTS CHANGES TO QMANGR AND QUENCH, THE /BEGIN
	;WORD IN THE MODIFY MESSAGE IS NOW THE 12TH ENTRY.
	;THIS EDIT REQUIRES QMANGR EDIT 2255.
		STOLIM	P3,.EQLIM(AP),OINT	;[1214]11 = /ASSIST
		PUSHJ	P,MODBEG		;[1214]12 = /BEGIN
 INS 7/30	;09C3
	;**;[1213]ADD 6 LINES AT LPTDEF:+4L	6-MAY-84/CTK
		LOAD	S2,.EQLEN(M),EQ.LOH	;[1213]GET LENGTH OF HEADER
		ADDI	S2,(M)			;[1213]POINT TO FIRST FP
		LOAD	S2,.FPINF(S2),FP.FCY	;[1213]GET NUMBER OF COPIES
		GETLIM	S1,.EQLIM(M),OLIM	;[1213]GET OUTDEF LIMIT
		CAMGE	S1,S2			;[1213]OUTDEF LIMIT < # OF COPIES
		STOLIM	S2,.EQLIM(M),OLIM	;[1213]YES,SAVE THE NUMBER OF COPIES
 SUM 187206