Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

-!LOGIN.MAC_LOGIN.MAC
-9,10



;COPYRIGHT (C) 1975,1977,1978 BY
;DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
;
;
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH LICENSE AND WITH THE
;INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY  OTHER
;COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
;OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF THE  SOFTWARE  IS  HEREBY
;TRANSFERRED.
;
;THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT  NOTICE
;AND  SHOULD  NOT  BE  CONSTRUED  AS A COMMITMENT BY DIGITAL EQUIPMENT
;CORPORATION.
;
;DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY  OF  ITS
;SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
-22,23
	VMINOR==1
	VEDIT==634
-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)
;634)	PUT IN SUPPORT FOR BACKGROUND BATCH FOR THE NEW CLASS SCCHEDULER

-1678,1678
	XWD	JUNK,SECBUF	;[422] THROW AWAY 4-WORD LOOKUP BLK SO
-2387
	TXNN	T1,ST%NCS	;[632] SKIP THIS IF 6.03 SCHEDULAR IN NEW CLASS MODE
-2388:	TXNN	T1,ST%SCD	;[425] DOES MONITOR HAVE SCHED. UUO?
-3504
	TXNN	T1,ST%NCS	;[632] SKIP ON IF NOT CLASS SCHEDULER
-3517,3527
	JUMPE	T1,PRST4B	;IF INTERVAL=0, CLASSES ARE DISABLED
	MOVX	T1,%SSSET	 ;CHECK NEW CLASS FLAG FOR CLASSES
	GETTAB	T1,		;SCHEDULING
	  SETO	T1,		;NOT NEW CLASS SCHEDULER
	JUMPE	T1,PRST4B	;SKIP CHECKS IF RUNNING ROUND ROBIN
	HRRZI	T1,.GTCQP	;NOW GETTAB CPU QUOTA FOR THIS CLASS
	HRL	T1,T4		;T4 HAS OUR CLASS
	GETTAB	T1,		;...
	  JRST	PRSET5		;MONITOR NOT BUILT FOR CLASS SCHEDULER
	TRNE	T1,-1		;IF PRIMARY PERCENTAGE NON-ZERO
	JRST	PRST4B		;WE'RE OK
	MOVX	T2,%SSBBQ	 ;CHECK FOR BACKGROUND BATCH
	GETTAB	T2,		;GET BB CLASS
	  SETO	T2,		;NO BACKGROUND BATCH
	CAMN	T2,T4		;IS THE USER IN BACKGROUND BATCH?
	JRST	PRST4B		;YES, HE IS OK
	JUMPL	T1,PRST4A	;GIVE ERROR IF FIXED SWAPIN BIT SET
	HRRZI	T1,.GTCQJ	;NOW GETTAB SECONDARY ALLOCATION
	HRL	T1,T4		;FOR THIS CLASS
	GETTAB	T1,		;...
	  JRST	PRST4B		;NOT NEW CLASS SCHEDULER
	JUMPN	T1,PRST4B	;[622] IF CLASS QUOTA NON-ZERO, WE'RE OK
PRST4A:	FATAL	CWR,<CPU class quota is zero: you would never run>
	  JFCL

PRST4B:	HRLI	T4,-1		;[425] -1 MEANS THIS JOB
-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