Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

 REP 42/1	;06C1
		LPTEDT==3103			;EDIT LEVEL
 WIT
		LPTEDT==3104			;EDIT LEVEL
 INS 492/4	;06C2
	3104	3/3/83 If needed, make sure we send a form feed after FORWARDSPACING,
		/BEGIN:xx and RELEASing a REQUEUEd print job.  Forward space the total
		number of pages in numerous FORWARDSPACE commands.  Send a form feed if
		we have forward space beyond the number of pages in a file so that the 
		trailer will begin on a new page.	GCO 4.2.1543

 REP 25/31	;06C3
		TXO	S,FORWRD		;STILL POSITIVE,,TURN ON FORWARD BIT.
 WIT
		JRST	[TXO	S,FORWRD	;[3104] STILL POS,,TURN ON FORWARD BIT.
			 MOVE	S1,J$FPIG(J)	;[3104] SAVE FORWARD SPACE PAGES
			 JRST	.+1]		;[3104] AND CONTINUE
 REP 22/51	;06C4
		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))
		$TEXT (LOGCHR,<^I/LPMSG/File ^F/@J$DFDA(J)/ Forward spaced ^D/J$FPIG(J)/ Pages>)
 WIT
		ADDM	S2,J$FPIG(J)		;[3104] SAVE THE VALUE.
		MOVE	S1,STREAM		;PICK UP THE STREAM NUMBER.
		$ACK  (<Forward spaced ^D/S2/ Pages>,,@JOBOBA(S1),.MSCOD(M))
		$TEXT (LOGCHR,<^I/LPMSG/File ^F/@J$DFDA(J)/ Forward spaced ^D/S2/ Pages>)					;[3104] PRINT THE CORRECT # OF PAGES
 REP 23/113	;06C5
		TXZ	S,FORWRD		;TURN OFF THE FORWARD SPACE BIT.
 WIT
		JRST	[TXZ	S,FORWRD	;[3104] TURN OFF THE FORWARD SPACE BIT.
			 SKIPE	J$FPIG(J)	;[3104] DID WE JUST FINISH FORWRD SPACE
			 JRST	.+1		;[3104] NO, CONTINUE
			 PUSHJ	P,SENDFF	;[3104] JUST FINISH, SEND A FF
			 SETZM	C		;[3104] ZAP THE CHARACTER
			 JRST	.+1]		;[3104] AND CONTINUE
 REP 57/113	;06C6
		SETOM	J$XTOP(J)		;NO, SET TOP OF FORM
 WIT
		JRST	[SKIPG	J$FPIG(J)	;[3104] FORWARD SPACE?
			 SETOM	J$XTOP(J)	;[3104] NO, SET TOP OF FORM
			 JRST	.+1]		;[3104] CONTINUE
 INS 12/114	;06C7
		SKIPGE	J$FPIG(J)		;[3104] FORWARD SPACE?
		SETZM	J$FPIG(J)		;[3104] NO, ALWAYS ZERO!!
 REP 6/122	;06C8
		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
		LOAD	P1,.FPINF(E),FP.NFH	;GET THE NO HEADER BIT
		SKIPE	P1			;[3104] SKIP IF WE WANT HEADERS
		JRST	[MOVE	S1,J$FPIG(J)	;[3104] GET THE /BEGIN:X PAGES
			CAIG	S1,1		;[3014] NO PAGES
			PUSHJ	P,SENDFF	;[3104] SEND FORM FEED
			PJRST	OUTDMP]		;[3104] DUMP BUFFERS AND RETURN
		PUSHJ	P,SENDFF		;[3104] NOW SEND A FORM FEED
 REP 23/123	;06C9
		$TEXT(TBFCHR,<^M^JPrinting will start at page ^D/J$FPIG(J)/>)
 WIT
		JRST	[$TEXT(TBFCHR,<^M^JPrinting will start at page ^D/J$FPIG(J)/>)
			 CAIN	P3,1		;[3104] LAST HEADER?
			 PJRST	TBFDMP		;[3104] YES, DUMP BUFFERS AND RETURN
			 JRST	.+1]		;[3104] MORE HEADER LETS CONTINUE
 SUM 254780