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