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