Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
login.c13
There are no other files named login.c13 in the archive.
REP 1/1 ;13C1
UNIVERSAL LGNUNV - Parameter file for LOGIN version 63(1115) - 12-Jan-84
WIT
UNIVERSAL LGNUNV - Parameter file for LOGIN version 63(1117) - 29-Aug-85
REP 8/1 ;13C2
;COPYRIGHT (C) 1969, 1974, 1979, 1980, 1981, 1982, 1983, 1984 BY
WIT
;COPYRIGHT (C) 1969, 1974, 1979, 1980, 1981, 1982, 1983, 1984, 1985 BY
REP 40/1 ;13C3
LGNEDT==1115
WIT
LGNEDT==1117
INS 58/18 ;13C4
;
;1116 18-FEB-84 DPM SPR:10-33897
; If a logging in job is located at a station with an MCR, the locate
; it at the central station to allow spooled LPT output to get printed.
;
;1117 29-AUG-85 AQH SPR:10-35152
; When LOGIN processes the SESSION command it type irrelevant
; message.
;
INS 16/62 ;13C5
;[1117] AQH add 2 lines at TTYGO:+7
TRNE F,R.SESSION ;[1117] SESSION COMMAND
JRST SYSAVL ;[1117] YES - PROCEED
INS 27/62 ;13C6
;[1117] AQH add 2 lines at NT2MNY:+4
TRNE F,R.SESSION ;[1117] SESSION COMMAND
JRST PPNGO ;[1117] YES -- PROCEED
INS 13/64 ;13C7
;[1117] AQH add 2Lines at PPNGO1+5 28-AUG-85
TRNE F,R.SESSION ;[1117] SESSION COMMAND?
JRST LOGIN3 ;[1117] YES -- PROCEED
REP 26/126 ;13C8
MOVEI T2,.TYLPT ;[633] DEVICE TYPE
MOVEM T2,NODDEV ;[633] STORE THAT IN THE ARGUMENT BLOCK
WIT
;***[1116] SPR 10-33897 change 2 lines at USRST5:+20
DMOVE T2,[EXP .TYLPT,.TYMCR] ;[1116] DEVICE TYPES
DMOVEM T2,NODDEV ;[1116] STORE THAT IN THE ARGUMENT BLOCK
REP 31/126 ;13C9
HLRZ T2,NODDEV ;[633] NUMBER OF LPT'S AT THIS NODE
JUMPN T2,USRS5A ;[633] JUMP IF THERE ARE SOME
;[633] IF NO LPT'S AT THIS NODE, LOCATE JOB AT CENTRAL SITE
WIT
;***[1116] SPR 10-33897 change 2 lines and add 2 lines @ USRST5:+26
HLRZ T2,NODDEV+1 ;[1116] SEE IF LOCATED NODE HAS AN MCR
JUMPN T2,USRS5A ;[1116] YES, LOCATE AT CENTRAL STATION
HLRZ T2,NODDEV+0 ;[1116] NOW SEE IF STATION HAS A LPT
JUMPN T2,USRS5A ;[1116] YES, USER CAN RECEIVE LISTINGS
REP 18/133 ;13C10
NODDEV: BLOCK 1 ;[633] NUMBER OF DEVICES,,DEVICE TYPE
WIT
;**[1116] ;change 1L in lowseg SPR 10-33897
NODDEV: BLOCK 2 ;[1116] NUMBER OF DEVICES,,DEVICE TYPE
SUM 150134