Google
 

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