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

 REP 46/1	;12C1
		BTNMAN==:4220		;MAINTENACE EDIT NUMBER
 WIT
		BTNMAN==:4301		;MAINTENACE EDIT NUMBER
 INS 77/4	;12C2
	*****	Release 5.0 -- begin maintenance edits	*****

	4300	Increment maintenance edit level for version 5 of GALAXY.

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

 INS 10/37	;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 13/37	;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 24/37	;12C5
	CPYL.2:	CAIN	CH,CHR.CR	;IS THIS THE CARRIAGE RETURN?
		  JRST	CPYLIN		;YES, IGNORE THE CARRIAGE RETURN
		CAIE	CH,CHR.LF	;IS THIS A LINE FEED?
		  JRST	CPYSND		;NO, SEND THIS CHARACTER
		TLZ	F,FL.SUP	;CLEAR THE SUPPRESSION FLAG
		JRST	CPYOUT		;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 38/38	;12C6
	;**;[4301]Insert line at UPZC.1:+1L  JCR  10/15/85
		TLO	F,FL.ZXC	;[4301]Indicate FL.XCC was once on
 INS 8/69	;12C7
	;**;[4301]Insert 1 line at GETCTL:+6L  JCR  10/15/85
		TLZ	F,FL.ZXC	;[4301]CLEAR ZEROED FL.XCC BIT
 SUM 126456