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

 INS 1/1	;17C1
	; *** Edit 33 to PTYCON.MAC by GSCOTT on 13-Aug-87, for SPR #21652
	; After installing edit 32, PTYCON doesn't go back into terminal input wait
	; properly if a command is being typed in at the same time that output from a
	; subjob is being displayed. This edit also makes PTYCON check for subjob
	; output to be displayed after each "subjob-text" command. 
 REP 87/1	;17C2
	VEDIT==VI%DEC+^D32	;EDIT NUMBER
 WIT
	VEDIT==VI%DEC+^D33	;EDIT NUMBER
 REP 7/4	;17C3
		SETOM LMFLAG		;USE RFPOS IN CHKLM
 WIT
	;**;[33] Delete one line at COMLVL+3			GAS	9-Aug-87
 REP 33/4	;17C4
		SETZM NOINT		;DISALLOW PTY INTERRUPTS CONDITIONALLY
 WIT
	;**;[33] Delete 1 line at COMSTR-2			GAS 	9-Aug-87
 INS 37/4	;17C5
	;**;[33] Add 1 line at COMSTR+1 			GAS	9-Aug-87
		SETZM NOINT		;[33] Allow PTY interrupts
 INS 4/11	;17C6
	;**;[33] At SINGL1+2 add 1 line				GAS	9-Aug-87
		SETOM TOFLAG		;[33] Make sure that we get to COMLVL
 REP 13/11	;17C7
		JRST COMLVL		;  AND RETURN TO COMMAND LEVEL
 WIT
	;**;[33] At SINGL1+11. replace 1 line 			GAS	9-Aug-87
		JRST CHKPTY		;[33] Finish up by dumping PTY output now
 REP 37/11	;17C8
		JRST COMLVL		;AND RETURN

 WIT
	;**;[33] At SNGALL+5 replace 1 line			GAS	9-Aug-87 
		JRST CHKPTY		;[33] Check PTY output now please
 REP 20/48	;17C9
	CHKPTO:	SETOB I,LSTHDR		;CLEAR LAST HEADER
		SETZM TOFLAG		;INITIALIZE TYPEOUT FLAG
		PUSHJ P,PTOCHK		;PRINT OUT ANY PTY OUTPUT
		SKIPE TOFLAG		;WAS ANYTHING TYPED?
		JRST [	PUSHJ P,CRLF	;YES, PLACE ON LEFT MARGIN
			MOVE A,PMTPR	;PRINT PROMPT
			PUSHJ P,TTSOUT	
			SETZM TOFLAG	;SAY TYPE OVER
			JRST .+1]	
		MOVE A,CMDSBK+.CMBFP	;CHECK FIRST CHARACTER IN COMMAND
		ILDB B,A		;
		SKIPE B			;WAS THERE A CHARACTER?
		JRST [	SETOM NOINT	;YES, DISALLOW UNCONDITIONALLY
			JRST COMSTR]
		SETZM NOINT		;NO, SET TO DISALLOW CONDITIONALLY
		JRST COMSTR		;CONTINUE AT COMMAND LEVEL
 WIT
	;**;[33] Replace routine CHKPTO (16 lines) with 8 lines	GAS	9-Aug-87
	CHKPTO:	SETZM TOFLAG		;[33] Initialize typeout flag
	CHKPTY:	SETOM NOINT		;[33] Throw away PTY timer interrupts
		SETOB I,LSTHDR		;[33] Make sure a header is printed
		CALL PTOCHK		;[33] (I/) Print out any PTY output
		SKIPE TOFLAG		;[33] Anything typed to terminal?
		JRST COMLVL		;[33] Yes, go home and get a new command
		SETZM NOINT		;[33] It's ok to type output from PTYs now
		JRST COMSTR		;[33] Restart command the quick way
 SUM 16326