Trailing-Edge
-
PDP-10 Archives
-
dec-10-omona-u-mc9
-
login.cor
There are 2 other files named login.cor in the archive. Click here to see a list.
-!LOGIN.MAC_LOGIN.MAC
-9,9
;Copyright (C) 1969, 1970, 1971, 1972, 1973, 1974, 1975, 1976, 1977 Digital
-23,23
VEDIT==633
-74
ST%NCS==1B16 ;[632] ON IF NOT CLASS SYSTEM SCHEDULER
.NDRCI==5 ;[633] REQUEST NODE CONFIGURATION INFORMATION
-588
;632) DON'T TRY TO SET SCHEDULAR CLASS QUOTAS IF 6.03 SCHEDULAR
; RUNNING IN WMU MODE
;633) LOCATE USER AT CENTRAL SITE IF LOGGING IN ON A NODE WITHOUT
; AN LPT (DN87)
-2387
TXNN T1,ST%NCS ;[632] SKIP THIS IF 6.03 SCHEDULAR IN WMU MODE
-2388: TXNN T1,ST%SCD ;[425] DOES MONITOR HAVE SCHED. UUO?
-3504
TXNN T1,ST%NCS ;[632] SKIP ON IF NOT CLASS SCHEDULER
-3726,3727
USRS T5: SKIPL T1,U.STA ;[633] GET STATION
JRST LGNLUF ;[633] ONE WAS SPECIFIED, USE IT
MOVEI T1,.GTLOC ;[633] GETTAB FOR NODE NUMBER OF CENTRAL SITE
GETTAB T1, ;[633] GET CENTRAL SITE NODE NUMBER
JRST USRS5A ;[633] MONITOR MUST NOT SUPPORT NETWORKS
HRROI T2,.GTLOC ;[633] THIS JOB'S LOCATION
GETTAB T2, ;[633] GET THAT
JRST USRS5A ;[633] NO NETWORK SOFTWARE
CAMN T1,T2 ;[633] ALREADY LOCATED AT THE CENTRAL SITE?
JRST USRS5A ;[633] YES, NO POTENTIAL PROBLEMS THEN
MOVEM T2,NODLOC ;[633] STORE THIS JOB'S LOCATION IN NODE BLOCK
MOVEI T2,4 ;[633] LENGTH OF THE ARGUMENT BLOCK
MOVEM T2,NODLEN ;[633] STORE IN NODE UUO ARGUMENT BLOCK
MOVEI T2,.TYLPT ;[633] DEVICE TYPE
MOVEM T2,NODDEV ;[633] STORE THAT IN THE ARGUMENT BLOCK
MOVE T2,[.NDRCI,,NODBLK];[633] NODE UUO ARGUMENT
NODE. T2, ;[633] GET NODE CONFIGURATION INFORMATION
JRST USRS5A ;[633] NOT IMPLEMENTED?
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, LOCATE JOB AT CENTRAL SITE
-3951
NODBLK:
NODLEN: BLOCK 1 ;[633] LENGTH OF NODE UUO ARGUMENT BLOCK
NODLOC: BLOCK 1 ;[633] NODE NUMBER
BLOCK 1 ;[633] RESERVED ARGUMENT
NODDEV: BLOCK 1 ;[633] NUMBER OF DEVICES,, DEVICE TYPE