Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
lptspl.c12
There are 2 other files named lptspl.c12 in the archive. Click here to see a list.
REP 43/1 ;12C1
LPTEDT==3014 ;EDIT LEVEL
WIT
LPTEDT==3015 ;EDIT LEVEL
INS 586/4 ;12C2
3015 Fix FORWARDSPACING and /BEGIN extra linefeed problems.
GCO 10207 13-MAY-85 /CTK
REP 27/31 ;12C3
TXO S,FORWRD ;STILL POSITIVE,,TURN ON FORWARD BIT.
WIT
;**;[3015]ADD 3 LINES AT FILE.1:+12L 13-MAY-85/CTK
JRST [TXO S,FORWRD ;[3015]POSITIVE,,TURN ON FORWARD BIT.
MOVE S1,J$FPIG(J) ;[3015]GET STARTING PAGE
JRST .+1] ;[3015]AND CONTINUE
REP 22/51 ;12C4
MOVEM S2,J$FPIG(J) ;SAVE THE VALUE.
MOVE S1,STREAM ;PICK UP THE STREAM NUMBER.
$ACK (<Forward spaced ^D/S2/ Pages>,,@JOBOBA(S1),.MSCOD(M))
;**;[2774] Change 1 line at FSPACE+7L. 25-Oct-83 /LWS
WIT
;**;[3015]INSERT 1 LINE AT FSPACE:+5L 13-MAY-85/CTK
ADDM S2,J$FPIG(J) ;[3015]ADD TO FORWARDSPACE PAGE CNT
MOVE S1,STREAM ;PICK UP THE STREAM NUMBER.
$ACK (<Forward spaced ^D/S2/ Pages>,,@JOBOBA(S1),.MSCOD(M))
;**;[2774] Change 1 line at FSPACE+7L. 25-Oct-83 /LWS
REP 23/113 ;12C5
TXZ S,FORWRD ;TURN OFF THE FORWARD SPACE BIT.
WIT
;**;[3015]ADD 6 LINES AT CNTDW1:+3L 13-MAY-85/CTK
JRST [TXZ S,FORWRD ;[3015]TURN OFF FORWARD SPACE BIT
SKIPE J$FPIG(J) ;[3015]JUST FINISH FORWARDSPACE
JRST .+1 ;[3015]NEVER DID
PUSHJ P,SENDFF ;[3015]YES, SEND A FORM FEED
SETZM C ;[3015]ZAP THE CHARACTER
JRST .+1] ;[3015]CONTINUE
REP 57/113 ;12C6
SETOM J$XTOP(J) ;NO, SET TOP OF FORM
WIT
;**;[3015]REVAMP CODE AT CNTDW3:+8L 13-MAY-85/CTK
JRST [SKIPG J$FPIG(J) ;[3015]ARE WE FORWARD SPACING
SETOM J$XTOP(J) ;[3015]NO, SET TOP OF FORM
JRST .+1] ;[3015]CONTINUE
INS 12/114 ;12C7
;**;[3015]ADD 2 LINES AT LIMCHK:+2L 13-MAY-85/CTK
SKIPGE J$FPIG(J) ;[3015]ZERO FORWRD SPACE PAGES?
SETZM J$FPIG(J) ;[3015]YES, SET IT
REP 6/122 ;12C8
PUSHJ P,SENDFF ;SEND A FORMFEED
LOAD P1,.FPINF(E),FP.NFH ;GET THE NO HEADER BIT
SKIPN P1 ;SKIP IF WE DON'T WANT HEADERS
WIT
;**;[3015]ADD AND REVAMP CODE AT HEAD:+3L 13-MAY-85/CTK
LOAD P1,.FPINF(E),FP.NFH ;[3015]GET THE NO HEADER BIT
SKIPE P1 ;[3015]SKIP IF WE WANT HEADERS
JRST [MOVE S1,J$FPIG(J) ;[3015]GET PAGE TO FORWARD SPACE
CAIG S1,1 ;[3015]FORWARD SPACING ???
PUSHJ P,SENDFF ;[3015]NO, SEND FORM FEED
PJRST OUTDMP] ;[3015]DUMP BUFFERS AND RETURN
PUSHJ P,SENDFF ;[3015]SEND A FORM FEED
REP 23/123 ;12C9
$TEXT(TBFCHR,<^M^JPrinting will start at page ^D/J$FPIG(J)/>)
WIT
;**;[3015]ADD 4 LINES AT HEAD.1:+58L 13-MAY-85/CTK
JRST [$TEXT(TBFCHR,<^M^JPrinting will start at page ^D/J$FPIG(J)/>)
CAIN P3,1 ;[3015]LAST HEADER ???
PJRST TBFDMP ;[3015]YES, DUMP THE BUFFER
JRST .+1] ;[3015]NO, CONTINUE
SUM 123340