Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - qmangr.c08
There is 1 other file named qmangr.c08 in the archive. Click here to see a list.
 REP 40/1	;08C1
	QMAEDT==:2252	;EDIT NUMBER
 WIT
	QMAEDT==:2254	;EDIT NUMBER
 INS 191/3	;08C2
	;**; Begin Galaxy 4.1 code maintence
	;
	;	2253	QMANGR is trashing location 42 in job data area
	;		because all references to SPCFCT are not indexed by AC E
	;		SPR 10-33033	27-SEP-83/CTK
	;
	;	2254	QMANGR is not passing QUASAR the correct values
	;		for the /OUTPUT: switch.
	;		SPRS 10-33512,10-33492	5-MAR-84/CTK
	;
 REP 37/17	;08C3
		MOVEM	TF,SPCFCT		; Save the spacing factor
 WIT
	;**;[2253]CHANGE 1 LINE AT CREA.1:+10L	27-SEP-83/CTK
		MOVEM	TF,SPCFCT(E)		;[2253] Save the spacing factor
 REP 72/20	;08C4
		SKIPLE	FORVER(E)		;SKIP IF QFV= 0 OR 1
		JRST	CREINC			;SKIP THE OUTPUT QUEUE STUFF
		LOAD	T1,Q.IDEP(S1),QI.OUT	;GET /OUTPUT
		MOVEI	T2,%EQOLG		;ASSUME /OUT:LOG
		SKIPN	T1			;WAS IT /OUT:0?
		MOVEI	T2,%EQONL		;YES, MAKE IT /OUT:NOLOG
		STOLIM	T2,.EQLIM(M),OUTP	;AND STORE THE VALUE
 WIT
	;**;[2254]REVAMP CODE AT CRE.7B:+15L	5-MAR-84/CTK
		SKIPG	FORVER(E)		;[2254]SKIP IF QFV= 0 OR 1
		JRST	CREINC			;SKIP THE OUTPUT QUEUE STUFF
		LOAD	T1,Q.IDEP(S1),QI.OUT	;GET /OUTPUT
		STOLIM	T1,.EQLIM(M),OUTP	;[2254]AND STORE THE VALUE
 REP 82/20	;08C5
		SKIPLE	SPCFCT			; Do we have abnormal spacing?
		 IMUL	T1,SPCFCT		; Yes, Multiply the limit by it
 WIT
	;**;[2253]CHANGE 2 LINE AT CREA.6:+1L	27-SEP-83/CTK
		SKIPLE	SPCFCT(E)		;[2253] Do we have abnormal spacing?
		 IMUL	T1,SPCFCT(E)		;[2253] Yes, Multiply the limit by it
 SUM 86098