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

 REP 4/123	;08C1
	TOPRSQ:	ANDI	P1,777		;JUST THE ITEM NUMBER
 WIT
	TOPRSQ:	SETZ	P3,		;SETUP P3 FOR MYTTY1 ROUTINE (PRIV CHECKS)
		ANDI	P1,777		;JUST THE ITEM NUMBER
 DEL 16/123	;08C2
		SETZ	P3,		;SETUP P3 FOR MYTTY1 ROUTINE
 DEL 3/125	;08C3
		SETZ	P3,		;SETUP P3 FOR MYTTY1 ROUTINE
 INS 45/125	;08C4
		PUSHJ	P,SETCHP	;MAKE SURE THE FRONT END KNOWS ABOUT THE CHANGE
 REP 52/169	;08C5
		TDNE	T1,[XWD TTYATC,ASSCON+ASSPRG]	;YES, ANY REASON TO KEEP DDB?
		JRST	TPOPJ##		;YES.
		PUSHJ	P,TTYKIL	;NO. GO KILL THE DDB
 WIT
		TDNE	T1,[XWD TTYATC,ASSPRG]	;YES, ANY REASON TO KEEP DDB?
		JRST	TPOPJ##		;YES.
		PUSHJ	P,TTYRL3	;ANY OTHER REASON TO KEEP DDB?
		 PUSHJ	P,TTYKIL	;NO. GO KILL THE DDB
 REP 25/171	;08C6
	TTYRL2:	MOVE	T1,[XWD TTYATC,ASSCON]	;IS TTY ATTACHED OR ASSIGNED?
		TDNE	T1,DEVMOD(F)	; ..
		JRST	TTYRS1		;YES. KEEP DDB AROUND. RETURN.
	;	JRST	TTYKIL		;NO. GO DISCARD DDB.
 WIT
	TTYRL2:	PUSHJ	P,TTYRL3	;SEE IF SHOULD KEEP DDB AROUND
		 JRST	TTYKIL		;NO. GO DISCARD DDB.
		JRST	TTYRS1		;YES. KEEP DDB AROUND. RETURN.
	TTYRL3:	MOVE	T1,DEVMOD(F)	;GET MODE BITS
		TLNE	T1,TTYATC	;IS TTY ATTACHED?
		JRST	CPOPJ1##	;YES, KEEP DDB AROUND. RETURN+2.
		TRNN	T1,ASSCON	;IS IT ASSIGNED?
		POPJ	P,		;NO, DISCARD DDB.  RETURN+1.
		HLRZ	T1,DEVNAM(F)	;GET LH OF PHYSICAL NAME
		CAIE	T1,'TTY'	;STILL AN ACCESSIBLE NAME?
		SKIPE	DEVLOG(F)	;OR HAS A LOGICAL NAME?
		AOS	(P)		;YES TO EITHER.  KEEP DDB.
		POPJ	P,		;NOT REACHABLE. DISCARD.
 REP 16/173	;08C7
	TTYRSC:	MOVE	T1,[TTYATC,,ASSCON]
		TDNN	T1,DEVMOD(F)
		PUSHJ	P,TTYKIL
 WIT
	TTYRSC:	PUSHJ	P,TTYRL3	;SEE IF ANY REASON TO KEEP DDB.
		 PUSHJ	P,TTYKIL	;NO, DISCARD DDB.
 REP 11/193	;08C8
		SKIPG	LDBTOC(U)	;IF NO OUTPUT IN PROGRESS,
 WIT
		SKIPE	LDBTOC(U)	;IF OUTPUT IN PROGRESS,
		PUSHJ	P,TOWAT1	;WAIT FOR OUTPUT TO FINISH
 SUM 193376