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

 REP 28/1	;07C1
			KBDEDT==56		;VERSION OF MODULE
 WIT
			KBDEDT==57		;VERSION OF MODULE
 INS 92/3	;07C2
	0057            Change K%OPEN to open the controlling terminal only as TTY:
 REP 17/8	;07C3
	K%OPEN:	$SAVE	<T1,T2,T3,T4,P1>
 WIT
	;;[57] At K%OPEN:+0L replace 1 line with 3 lines. JCR NOV-8-83
	K%OPEN:	TXNE	S1,1B1+1B2		;[57] Ensure these bits are off
		$RETF
		$SAVE	<T1,T2,T3,T4,P1>	
 REP 92/8	;07C4
		MOVE	S2,TRMUDX		;OUR FIRST OPEN, LET'S DO IT
		HRROI	S1,T3			;PUT STRING IN T3 AND T4
		DEVST				;GET THE STRING
		 JRST	[MOVE	T3,[ASCIZ/TTY:/] ;[44] Use simple default
			 JRST	.+3]		;[44] Don't store terminator
		MOVEI	S2,":"			;[44] Store device terminator
		IDPB	S2,S1			;[44]
		HRROI	S2,T3			;MAKE S2 POINT TO THE STRING
 WIT
	;;[57] At OPEN.1+25L (TOPS-20 conditional) replace 7 with 1 line JCR NOV-8-83
		HRROI	S2,[ASCIZ/TTY:/]	;[57] Establish pointer to device name
 SUM 255864