PDP-10 Archive: scdset.exe from dec-10-omona-u-mc9

Trailing-Edge - PDP-10 Archives - dec-10-omona-u-mc9 - scdset.exe

There are 10 other files named scdset.exe in the archive. Click here to see a list.

?p@@@?xg&9:Kb)<Zs`INXQF:{A)?({BE@w)@Bv

     HELP                EXIT                UPDATE JOBS         EDIT                COPY                READ                SET                 MTS INTERVAL        MCU INTERVAL        CLASS QUOTAS        TIMESLICE           CHANNEL UTILIZATION JOB CLASS           PROT0               RUNTIME BY CLASS    EXPONENTIAL FACTOR  PROT                (/,X,'COMMANDS:',/,4X,4A5,'- TYPE HELP TEXT',/,4X,4A5,'- EXIT',/,4X,4A5,'- UPDATE ALL LOGGED IN JOBS TO THE RIGHT CLASS',/,4X,4A5,'- MANIPULATE A SCDMAP.SYS FILE',/,4X,4A5,'- MOVE A SCDMAP.SYS FILE TO THE SYS AREA',/,4X,4A5,'- READ SCHEDULING VARIABLE',/,4X,4A5,'- SET SCHEDULING VARIABLE',//,X,'READ/SET FUNCTIONS:'/,4X,'TYPE READ OR SET FOLLOWED BY A COMMA AND A',/,4X,'FUNCTION FROM THE FOLLOWING LIST',/,4X,4A5,'- MEDIUM TERM SCHEDULING INTERVAL',/,4X,4A5,'- MIN CORE USE FUNCTION EVALUATION',' INTERVAL',/,4X,4A5,'- SYSTEM USAGE QUOTA FOR A SCHEDULER CLASS',/,4X,4A5,'- TIME SLICE FOR EITHER RUN QUEUE',/,4X,4A5,'- SWAPPING CHANNEL UTILIZATION PERCENTAGE',/,4X,4A5,'- SCHEDULER CLASS FOR SPECIFIC JOBS',/,4X,4A5,'- PROT0 (CONSTANT ADDED TO THE MCU)',/,4X,4A5,'-  RUNTIME FOR EACH CLASS SINCE SYS STARTUP',/,4X,4A5,'- EXPONENTIAL AVERAGING FACTOR',/,4X,4A5,'- PROT (MCU MULTIPLIER)')(80A1)('  %INPUT ERROR - REENTER OR TYPE HELP')(80A1)(///,X,'(TOP LEVEL)',/,X,'WHICH FUNCTION DO YOU WANT ',$)(1X,'SYSTEM ADMINISTRATOR SCHEDULER SETTING PROGRAM',',  VERSION 1.',/,X,'SYSTEM CONFIGURATION IS FOR ',I4,' JOBS AND ',I2,' SCHEDULER CLASSES.',//,X,'SUGGESTION: RUN IN HPQ',/,X,'TYPE HELP FOR HELP')x| ~`0H`h+ -<{ p &( <v,	 o_FZF &
$&. <z,
:; +w,*dt p &( <{,	 o_FZF &
$&. <,
:; +,*d} q D0 <q,v $@ Dr6D0+ $A0/$ Dr n D0 <q,v $ Dr6D0+ 0 Dr r D"$.Dr <, <,
 <,, <, o_DZD  <,
:;+, oZDZ Y2F+*d+n  $Y Dm <t,G @- /&  D  Y3Ds+):8&%@du+2: /&  D  Y2D+/:8&++n  $Y Dm <r,G/  @u $.-6b0b+9+54n494L4N4O4Q4R4S <
:; +=:; +< p_DZD q_DZD (. <,
:; +F:; +D,+o <q,+o <q,9+o <q,	+o <q,u+o@dq+T $ Dq q(Gu D0 $.u6b0b+_+Y4n4_4`4b4c4e4f4h4i4k4l <q,+o <q,:+o <q,y+o <q,v+o <q,S+o <q,	:+o <q,
+o <q,
D+o <q,
|+o <q,!+o <,,+ <q,

hvmh.tmP
M$kP
M$#XY$r$XSXR$YXtY$$XN(//,X,'DONE',/)(X,'ERROR NUMBER:',I8,/)(X,'ERROR: ',$)(X,'ADDRESS CHECK ERROR',/)(X,'BAD FUNCTION NUMBER',/)(X,'BAD JOB NUMBER',/)(X,'NO PRIVILEGES',/)(X,'BAD CLASS NUMBER',/)(X,'BAD QUEUE NUMBER',/)(X,'BAD CHANNEL NUMBER',/)(X,'BAD EXPONENTIAL FACTOR (RANGE: 0-10000.)',/)(X,'ATTEMPT TO MANUALLY SET PROT (MCU MULTIPLIER)',/)KK;w \9 $3D0+[ <_,, 03d0f+X6b00b+F+A4F4H4J4L4N4P4R4T4V <b,,+\ <e,,+\ <h,,+\ <k,,+\ <n,,+\ <q,,+\ <t,,+\ <w,,+\ <z,,+\ <}, <,
+\ <,, 9,~XXXX!X$X&X)X+X.X3X$0X(X,'NEW VALUE FOR THE MED. TERM SCHED. INTERVAL:',' (IN JIFFIES) ',$)(X,'MED TERM SCHED INTERVAL NOW =',I8,' JIFFIES')MVr \@d13Dq+ <!,, <$, <',
2d1+ 10f'+ < ,m < ,:6D0+ <), <,,
 ,~XX$1X$1(X,'NEW VALUE FOR THE MIN CORE USE INTERVAL',' (IN SECONDS) ',$)(X,'MIN CORE USEAGE INTERVAL IS:',I8,' SECONDS')MVr \9@d13Dq+B <J,, <M, <P,
2d1+G 10f'+G <I,m <I,:6D0+G <Q, <T,
 9,~X-X$1X4$1(X,'HIGHEST CLASS (0-',I2,') ',$)(X,'CLASS:',I2,'  PERCENTAGE OF SYSTEM:',I3,A1)(X,'GIVE CLASS NUMBER (0-',I2,') AND THEN THE PERCENTAGE OF RESOURCES (0-100) ',/,5X,'(-1 TO EXIT)')(/,X,'CLASS: ',$)(X,'PERCENTAGE OF SYSTEM (0-100): ',$)(X,'FIXED QUOTA? (1=YES) ',$)F    ?     MVr  \u $.q6b0b+}+|4}4 <5, <8,
 <:, <=,
"11D+37$1+} 12dr+}:1"1 $@h1.$8& <4,m <4,:6D0+3"1 $"(. HX x HY6(1+ w HY wAH1 <>, <A,
.$8&

+3 $ D1 <D, <G,
 <H,, <K, <N,
"X1D+3 X0$2dr+ <P,, <S, <V,
"V1D+3 V0$0d2+ <W,, <Z, <],
"W1F+3 W0F@fW X(	"W(GGV F1 <4,m <4,:+ u,~XZ$rX$1X]$X$1$YXb
$rXlX$XXnX$VXrX$W(X,'CHANGE TIME SLICE OF WHICH PQ (1-2) ',$)(X,'TIME SLICE FOR PQ',I1,' (IN MILLISECONDS) ',$)(X,'NOW ATTEMPTING TO READ IN TIME SLICES')(/,X,'TIME SLICE FOR PQ',I1,' IS NOW ',I8,' MILLISECONDS.')MVr0 \u7Dq+ <,, <, <,
"_1D+ _0$0d+x <!, <$,
 <%, <(,
"_1D+ _0$0d'+ _(	G_ F1 & F1 <,m <,:6D0+ <*,, $AD0 $ D1@d1 D2 <,m <,: $ D` $ D` <-, <0,
 u,~XaX$_Xe$_X$_XjXo$`$1$`$2(X,'GIVE CHANNEL NUMBER AND THEN THE DESIRED',' PERCENTAGE (0-100)',/,5X,'(-1 TO EXIT)')(//,X,'WHICH CHANNEL ',$)(X,'WHAT PERCENTAGE FOR CHANNEL',I4,'  (0-100) ',$)(X,'HIGHEST CHANNEL NUMBER (0- WHAT) ',$)(X,'CHANNEL NUMBER',I4,' HAS ',I3,' PERCENT.')PMVr@ \Q@d13Dq+h <	,, <	,, <	, <	,
 $2d5+ <

, <	,
 <	, <	,
 33d0f2++c+ & F1 5(	G3 F1 <	,m <	,:+W 0 D4 R D0 <	,v 0 D1 $3D0+t <	,, <	, <	,
2$1+ 10f2+:1 4 D0"1 $@h1.$8&v <	,m <	,:"1 $"(. H5 <	, <	 ,
.$8&{ Q,~X6	X?X$5XB$5X$3XGX$1XL$5$1(X,'HIGHEST JOB (1-',I4,') ',$)(X,'JOB NUMBER',I3,' IS IN CLASS',I3)(//,X,'(-1 MEANS QUIT, 0 MEANS YOURSELF) ',$)(//,X,'WHICH JOB ',$)(X,'WHICH CLASS (0-',I2,') ',$)xMVrP \	7 q1D+	T <	m, <	p,
 <	q, <	t,
"11D+	j7d1+	< 12dr+	<"1 $@h1.$8&	E <	l,m <	l,:"1 $ F	# D	$ 0 F	$(	 D0 <	l,v 	8A04D	Q <	v, 	$ <	y,
:	$; 	#+	J 	$ D0+	j <	{,, <	~,, <
, <
,
7$	"+	j4D	]2dr+	V(	 D	"+	^ 	9 D	" <
, <
,
 <

, <
,
"	"1D+	j 	"0$2dr+	^ & F1G	" D1 <	l,m <	l,:+	V 	7,~X	%$rX$1X	($	$$1X	,X	1X$	"X	3$rX$	"(X,'NEW VALUE FOR PROT0 (IN MICROSECONDS) ',$)(X,'NEW VALUE OF PROT0 IS',I8,' MICROSECONDS')MVr` \
@d13Dq+
 <
',, <
*, <
-,
 <
&,m <
&,:6D0+
$ <
., <
1,
 
,~X
X$1X
$1(X,'HIGHEST CLASS (0- ',I2,') ',$)(X,'RUNTIME SINCE STARTUP BY CLASS',I3,' IS ',I8,' JIFFIES  (',I3,' PERCENT)')X&MVrp \
B 0 D
5 
C D0 <
b,v $ D
3 $2D0+
M $3D0+
M 0 D
3 
5 D0 <
c, <
f,
 <
h, <
k,
7$1+
a 12dr+
a:1"1 $@h1.$8&
V <
b,m <
b,:"1 $"(. H
5 1$(2&
3 H
3 <
l, <
o,
.$8&
Z 
B,~X
6$rX$1X
:$
5$1$
3(X,'NEW EXPONENTIAL DECAY VALUE (0-10000) ',$)(X,'NEW EXPONENTIAL FACTOR IS ',I8)MVs \
z@d13Dq+ <,, <, <,
2d1+	 10f'+	 <
,m <
,:6D0+	 <, <,
 
z,~X
rX$1X
w$1(X,'NEW VALUE OF PROT (IN MICROSECONDS) ',$)(X,'NEW PROT IS ',I8,' MICROSECONDS')MVs \ @d13Dq+' <.,, <1, <4,
 <-,m <-,:6D0+, <6, <9,
  ,~XX$1X$1,         HELP      EXIT      READ      WRITE     RANGE     ONE CLASS TYPE      (80A1)(//,X,'MAKMAP SUBFUCTION: MANIPULATE A SCDMAP.SYS FILE',/,5X,'TYPE HELP FOR HELP')(/,X,'(MAKMAP LEVEL)',/,X,'WHAT FUNCTION ',$)(80A1)(X,'WHICH MAP (0=TIMESHARE, 1=BATCH) ',$)(X,'FUNCTION:',/,4X,2A5,'- TYPE THIS TEXT',/,4X,2A5,'- EXIT',/,4X,2A5,'- READ IN A SCDMAP.SYS FILE FOR MODIFICATION',/,4X,2A5,'- WRITE OUT CURRENT DATA AS A SCDMAP.SYS FILE',/,4X,2A5,'- CHANGE A RANGE OF SCHED TYPES TO A CLASS',/,4X,2A5,'- CHANGE ONE SCHED TYPE TO A CLASS',/,4X,2A5,'- TYPE OUT A RANGE OF TYPES AND THEIR CLASSES',//)(' %INPUT ERROR, REENTER OR TYPE HELP')(/,X,'INPUT COMPLETE, FILE CLOSED',/)(X,'ERROR ON INPUT FILE')(/,X,'OUTPUT COMPLETE, FILE CLOSED',/)(X,'ERROR ON OUTPUT FILE')(X,'WHAT RANGE (SEPARATE BY COMMAS) (0,511) ',$)(X,'SAME CLASS FOR ',I3,' THRU ',I3,' (1=YES) ',$)(X,'TYPE: ',I3,'  CLASS: ',$)(X,'GIVE TYPE AND CLASS SEPARATED BY COMMAS ',$)(X,'WHAT RANGE (SEPARATE BY COMMAS) (0,511) ',$)(X,'SCD TYPE ',I4,2X,A5,' MAPS TO CLASS ',I2)p | SEQINSEQOUBATCHTMSHR0H{pDUMP DSK  SCDMAP.SYS1,2  []X8 \|  &( </,	 _FZF	 &$&.	 <2,
:	;d+
Z<4,,,<7,, <:, D
:;ZD^^2F-,G @1 +* <>,, <A, <D,
";1D+ ;0$0d+# $.6b0b+1+-4<414*4>4U4j4	4 <F, _DZD	 _DZD 	(. <I,
:; +5:	; +4,++* <J,,+  D+V <M, <O,
 <R, } &(

	&~A( H

	&A( H
 &(7(

	.(({A( H
 &(

	A( HT,,+ <W,, <Z,+  D <\, 3D+@ } &( 

A*(
	(

A*(
G
G H

	*dY <a, <c,
 <e, <g,,+ <j,, <m,+ <o,, <r, <u,
 $2d+ $2d

+ 0d+

0d+ 3$

+w D

F D

 <w, <z,
 <|, <,
 ;0D@d;"&./

 3d+ ;1H+ <, <,
 <, <,
 ;(. 
J8&~+ <
,,,<
 0$0d+

0$0d+;(.D,
 $2d+ $2d

+ 0d+

0d+ 3d

+  D

F D

  D7D;+#  D"&./

  ;(. H

 <, <,
.$8&%+ |,~h<

|P$6XX#X($^X)X$;X-!$XOh
R@

	h
XSXWh
8
D^~^ h
g@

	h
XYX]h
X`X$$

Xe$$

X$;Xj$X$XmX$$

XrX$$

Xw$$$(X,'DO YOU WISH TO MOVE A SCDMAP.SYS FILE TO SYS:',' (1=YES) ',$)(/,X,'SCHED. UUO FAILED FOR JOB ',I4)(//,X,'ALL OTHER JOBS DONE.')p SYS  SCDMAP.SYSSEQINDUMP M'E+q \0 <x,, <{, <~,
  0D+@ <w,u <, <, <,
 2 &(  &3A( H  &(  &4A( H! &(7( .(({A( H! &(  A( H"*dC <, <w,t 0 D""r $ F  D"3D"+q(	.$ D0 <w,v $3D03D0+q 03F1+q F! "(	.& F0 <w,v $2D0+d D 3A04Dd $ D ! D0 <w,&6D0+q $ D1 (.0 "(	.  F1 $ D0 <w,m7D0+q <
, <
 <w,::";  +U <,,+v <w, 0,~X#X$ H
~4^5^7^8h
@ h
X)$"X-(X,'USER ',O12,' NOT IN ACCT.SYS')(X,'WRONG VERSION OF ACCT.SYS') 
SYS\ACCT.SYS<SEQINIMAGEg
 02D +7@d0 <C, <E,
 2D0+, &$~A$ D0 <H,+9 <J, <M,
 $ D0@d0+1 <N,, <;,  ,~H
~!^"^$^%h
$0h
3@h
X$0X(X,'WHAT FILE DO YOU WISH TO MOVE TO SYS')(X,'FILE SUCCESSFULLY READ IN.')(X,'FILE SUCCESSFULLY WRITTEN OUT.')(X,'REACHED END OF FILE TOO SOON.')(X,'ERROR IN READING FILE.')(X,'COULD NOT WRITE FILE TO SYS:')
SEQINDUMPDSKSCDMAP.SYS1,2  SEQOUT    DUMP SYS  SCDMAP.SYS     [?68r \g <
 <, <,, <, <$, <&,
 <(, <*,,+ <-,, <0,+ <2,, <5,+ <7,, <:, g,~XQ8
^i^j~k^lm h
@Qh
XV8
^n^p~q^rs h
@Qh
XYX]h
Xah
Xdh
,         gSXt HF FE DE !p @B !p @= !p @@ =  F>  FD@h? H> H@  H="D $ HC DD/$$> DC"> $ DA:C A.@.B 2D'+[:A8&V > DA>A.@ 3FA+_ 2F<@dA A3$=@dA A3$@+f D F?@f>2D@+f & F> D@:D; C+S $2D> D? ? E E F,~1,>z@@0,>0Q0X 1 @0Q X 0	`4 @0,^0,~-|p1,>z	`

 @0,~1,>z@@0 0	`O@0 @0,~s	`Z(X^. >X.~(3~+	~+Z. \x <x*<x .ez+!"	b+  "	b+Z. h+ggM?}
&+{,
?NO CORE AVAILABLE - CAN NOT PROCEED
a.3@1,>eO@O+gR~@1,>e@@O,>,>@6 w+""P0B+!"A`X#p5@/#p!"X#p+"\p+"a.9'1,>e,>,>O@O+",>
6+ _4`+"`Q@,> <Q,,^,> <T,
,^*b(+5,> <U,,^7@O+0,> <X,
,^+2,> <Z,
,^Z5"5,> <[,
,^,7@O,

,> <],,^,,> <`,,^,> <c,
,^(@qd1@,,

1@#+D0@*+6,> <d,,^+6,^,^,^,~(' Type G to Continue, X to Exit, T To trace.'/2H *,$)(A1)(1H 14A5/)(1H A5,1X,O6)PAUSESTOP .pXLp XMp Np Op XFX~Kp xeY\gQ<X\g*+