Google
 

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
USRST5:	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