Google
 

Trailing-Edge - PDP-10 Archives - bb-y390o-bm_tops20_v41_atpch_20 - autopatch/batcon.c12
There is 1 other file named batcon.c12 in the archive. Click here to see a list.
 REP 28/1	;12C1
		BTNEDT==4217		;EDIT NUMBER
 WIT
		BTNEDT==4301		;EDIT NUMBER
 INS 442/9	;12C2
	EDIT 4220	In routine STOPJB: check JL.UML to determine whether control Cs
	should be sent to the job.
			GCO 4.2.1618		SPR# 20-20752

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

	EDIT 4301	Allow user data line feeds and carriage returns to be passed 
			down the PTY: when the first character of the control file
			is an "=". Suppress only the final CR-LF pair.
			gco 5.1225

 INS 11/43	;12C3
	;**;[4301]Insert 10 lines at CPYL.1:+1L  JCR  10/15/85
		TLNE	F,FL.XCC	;[4301]Generated control character?
		TLNE	J,JL.UML	;[4301]Yes, at monitor level?
		JRST	CPYSND		;[4301]Yes, send character as is
		CAIE	CH,CHR.LF	;[4301]User level, don't treat ^J or ^L
		CAIN	CH,CHR.FF	;[4301]as generated control characters
		JRST	ZEROCC		;[4301]Go turn off FL.XCC
		CAIE	CH,CHR.CR	;[4301]Turn off FL.XCC for ^M also
		JRST	CPYSND		;[4301]Send it off
	ZEROCC:	TLZ	F,FL.XCC	;[4301]Turn off FL.XCC
		TLO	F,FL.ZXC	;[4301]Indicate FL.XCC was once on

 INS 15/43	;12C4
	;**;[4301] Insert 2 lines at CPYSND:+2L  JCR  10/15/85
		TLNE	F,FL.ZXC	;[4301]Was this once a generated ctl char?
		JRST	CPYLIN		;[4301]Yes, get the next character
 REP 27/43	;12C5
	;**;[4152] REPLACE 8 LINES AT CPYL.2:+0L WITH 6 LINES	DSW	8/27/81
	CPYL.2:	CAIN	CH,CHR.CR	;[4152] IS THIS THE CARRIAGE RETURN?
		  JRST	CPYLIN		;[4152] YES, IGNORE THE CARRIAGE RETURN
		CAIE	CH,CHR.LF	;[4152] IS THIS A LINE FEED?
		  JRST	CPYSND		;[4152] NO, SEND THIS CHARACTER
		TLZ	F,FL.SUP	;[4152] CLEAR THE SUPPRESSION FLAG
		JRST	CPYOUT		;[4152] OUTPUT THE CURRENT BUFFERS
 WIT
	;**;[4301]Replace 6 lines at CPYL.2:+0L with 17 lines  JCR  10/15/85
	CPYL.2:	CAIN	CH,CHR.CR	;[4301]Is this a carriage return?
		  JRST	CHKCR		;[4301]Yes, determine if generated or not
		CAIE	CH,CHR.LF	;[4301]Is this a line feed?
		  JRST	CHKFF		;[4301]No, check for form feed
		TLZE	F,FL.XCC	;[4301]Yes, is this a generated line feed?
		  JRST	CHKLF		;[4301]Yes, this is user data, so send it
		TLZ	F,FL.SUP	;[4301]Clear the suppression flag
		JRST	CPYOUT		;[4301]Output the current buffers
	CHKCR:	TLZN	F,FL.XCC	;[4301]Was this a generated carriage return?
		JRST	CPYLIN		;[4301]No, so ignore; get the next character
		TLO	F,FL.ZXC	;[4301]Yes, indicate it was once generated
		JRST	CPYSND		;[4301]Send it down the PTY:
	CHKFF:	CAIE	CH,CHR.FF	;[4301]Is this a form feed?
		JRST	CPYSND		;[4301]No, so send it down the PTY
		TLZ	F,FL.XCC	;[4301]Yes, user data so turn off generated
	CHKLF:	TLO	F,FL.ZXC	;[4301]Indicate it was once generated
		JRST	CPYSND		;[4301]Send it down the PTY:
 INS 39/44	;12C6
	;**;[4301]Insert 1 line at UPZC.1:+1L  JCR  10/15/85
		TLO	F,FL.ZXC		;[4301]Indicate FL.XCC was once on
 REP 8/58	;12C7
		TLNE	J,JL.UDI!JL.UJC!JL.UML  ;INPUT OR JACCT OR AT EXEC SET
 WIT
	;**;[4220] change one line at STOPJB+4.L	JYCW	5-JUN-85
		TLNE	J,JL.UML	  	;[4220] At user level
 INS 9/75	;12C8
	;**;[4301] Insert 1 line at GETCTL:+6L  JCR  10/15/85
		TLZ	F,FL.ZXC	;[4301]Clear zeroed FL.XCC bit
 SUM 195198