Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - initia.c10
There is 1 other file named initia.c10 in the archive. Click here to see a list.
 REP 7/1	;10C1
	;COPYRIGHT (C) 1970,1971,1972,1973,1974,1975,1976,1977,1978,1980,1982,1984 BY
 WIT
	;COPYRIGHT (C) 1970,1971,1972,1973,1974,1975,1976,1977,1978,1980,1982,1984,1985 BY
 REP 29/1	;10C2
	INTEDT==220		; EDIT LEVEL
 WIT
	INTEDT==224		; EDIT LEVEL
 REP 215/3	;10C3
	;
 WIT
	;CLOSE HERE FOR 7.02 SHIP.
	;221	QAR 125818	SMW 22-Feb-84
	;	FRCLIN SHOULD NOT SET CUSTOMER PRIV BITS.
	;
	;222	SPR 34526	TARL 22-Feb-84
	;	DON'T THINK TTY0 OF AN MCR IS A REMOTE OPR. HE ISN'T.
	;
	;223	SPR 35019	DRB 05-Dec-84
	;	ALLOW LEADING SPACES ON DECIMAL ARGUMENTS IN TTY.INI.
	;
	;224	SPR 34181	DRB 14-Dec-84
	;	GUARD AGAINST SPURIOUS WAKES WHILE WAITING FOR TERMINAL OUTPUT
	;	TO COMPLETE AT TTYP.1.
 REP 26/10	;10C4
		TXO	F,F.REMO	; YES, FLAG AS A REMOTE OPERATOR
 WIT
		MOVEI	T1,4		;YES, MAKE SURE IT'S A REMOTE STATION
		MOVE	T2,MYNNAM	;OUR NODE NAME
		SETZ	T3,		;BLANK (RESERVED)
		MOVEI	T4,.TYMCR	;COMMAND PROCESSOR
		MOVE	T5,[.NDRCI,,T1]	;FUNCTION CODE FOR NODE.
		NODE.	T5,		;ASK
		  TLO	T4,1		;FAILED, CAN'T BE REMOTE OPR
		TLNN	T4,-1		;DOES THIS NODE HAVE ANY COMMAND DECODERS?
		TXO	F,F.REMO	;NO, MUST BE REMOTE OPERATOR
 REP 15/16	;10C5
		SETO	T3,		;FULL PRIV WORD (WE WANT LOTSA PRIVS)
 WIT
		MOVSI	T3,-1		;DEC PRIVS ONLY,
 REP 23/55	;10C6
		PUSHJ	P,GETCHA	;GET LEAD CHARACTER
 WIT
	GTDC.0:	PUSHJ	P,GETCHA	;GET LEAD CHARACTER
		CAIE	CH," "		;IS IT A SPACE
		CAIN	CH,"	"	; OR A TAB?
		JRST	GTDC.0		;YES, IGNORE IT.
 REP 27/79	;10C7
	TTYP.1:	MOVE	T1,[HB.RIO+^D6000]
 WIT
	TTYP.1:	MOVE	T1,[HB.RIO!HB.RWJ+^D6000]
 SUM 219458