Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-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