Google
 

Trailing-Edge - PDP-10 Archives - bb-y390o-bm_tops20_v41_atpch_20 - autopatch/lptspl.c12
There are 2 other files named lptspl.c12 in the archive. Click here to see a list.
 REP 42/1	;12C1
		LPTEDT==3116			;EDIT LEVEL
 WIT
		LPTEDT==3132			;EDIT LEVEL
 INS 547/4	;12C2

	3117	5/21/85
		If a print job is canceled due to unprintable lines being detected, 
	indicate in the trailer page that the job was canceled by the operator.
		GCO 4.2.1617

	3130	Increase version 4.2 maintenance edit number to correspond with version
	5 maintenance edit number.

	3131	10/16/85
		Reset the EOL counter (J$PRNT) for each file in a print job
		GCO 5.1226

	3132	GCO 5.1227	17-Oct-85
		Reset the forms characteristics when a request is aborted
 INS 7/30	;12C3
	;**;[3131]Add two lines at NXTFIL:+2L  JCR  10/16/85
		MOVE	S1,J$WITH(J)		;[3131]Get the EOL counter value
		MOVEM	S1,J$PRNT(J)		;[3131]Reset the EOL counter
 REP 5/37	;12C4
		$TEXT(LOGCHR,<^I/LPMSG/Job canceled by user ^U/ABO.ID(M)/>)
		MOVE	S1,STREAM		;GET THE STREAM NUMBER.
 WIT
	;**;[3117]Replace 1 line with 4 lines at KILL:+2L  JCR  5/21/85
		SKIPL	J$OPRA(J)		;[3117]Canceled because of no eol
		$TEXT(LOGCHR,<^I/LPMSG/Job canceled by user ^U/ABO.ID(M)/>) ;[3117]
		SKIPGE	J$OPRA(J)		;[3117]Canceled by CANCEL request
		$TEXT(LOGCHR,<^I/LPMSG/Job canceled by user OPERATOR>)	;[3117]
		MOVE	S1,STREAM		;GET THE STREAM NUMBER
 INS 58/70	;12C5
	;**;[3132]At FORM.7:+2L insert 1 line	JYCW	10/17/85
		PUSHJ	P,FRMINI		;[3132]Reset the forms characteristics
 REP 10/71	;12C6
	FRMI1B:	GETLIM	T2,.EQLIM(J),FORM	;GET FORMS
		CAMN	T1,T2			;MATCH??
 WIT
	;**;[3132]At FRMI1B: replace 2 lines with 1	JYCW	10/17/85
	FRMI1B:	CAMN	T1,J$FORM(J)		;[3132]Match against currect forms type
 SUM 52524