Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
qsrsch.c12
There is 1 other file named qsrsch.c12 in the archive. Click here to see a list.
REP 7/30 ;12C1
;**;[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
WIT
;**;[1232]DELETE 6 LINES AT LPTDEF:+4L 24-APR-85/CTK
INS 18/30 ;12C2
SETZM T1 ;ZERO TOTAL MINIMUM PAGE COUNTER
INS 24/30 ;12C3
;**;[1232]ADD 2 LINES AT LPTD.1:+5L 24-APR-85/CTK
LOAD P1,.FPINF(S2),FP.FCY ;[1232]GET NUM COPIES PER FB
ADD T1,P1 ;[1232]TOTAL NUM COPIES PER REQUEST
INS 30/30 ;12C4
;**;[1232]ADD 3 LINES AT LPTD.1:+10L 24-APR-85/CTK
GETLIM S1,.EQLIM(M),OLIM ;[1232]GET OUTDEF LIMIT
CAMGE S1,T1 ;[1232]OUTDEF LIMIT < # OF COPIES
STOLIM T1,.EQLIM(M),OLIM ;[1232]YES, SAVE NUMBER OF COPIES
SUM 244650