SETWRKSET       - SET WORKING SET PARAMETERS                     21-AUG-1978 19:17:10   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (2)      46  DECLARATIONS

   (3)     106  SET WORKING SET PARAMETERS

   (4)     220  SETLIM - SET LIMITS IN WORKING SET DATA BASE

   (5)     267  TRUE ACTION ROUTINES FOR QUALIFIERS

SETWRKSET       - SET WORKING SET PARAMETERS                     21-AUG-1978 19:17:10   VAX-11 MACRO X0.3-11               Page   1

X0102                                                                                                                            (1)



                                     0000     1 	.TITLE	SETWRKSET - SET WORKING SET PARAMETERS

                                     0000     2 	.IDENT	/X0102/

                                     0000     3 

                                     0000     4 ;

                                     0000     5 ; COPYRIGHT (C) 1977

                                     0000     6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754

                                     0000     7 ;

                                     0000     8 ; THIS SOFTWARE IS FURNISHED  UNDER A LICENSE FOR USE ONLY ON A SINGLE

                                     0000     9 ; COMPUTER  SYSTEM AND  MAY BE  COPIED ONLY WITH  THE INCLUSION OF THE

                                     0000    10 ; ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE, OR ANY OTHER COPIES THEREOF,

                                     0000    11 ; MAY NOT BE PROVIDED OR  OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON

                                     0000    12 ; EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE

                                     0000    13 ; TERMS.  TITLE TO AND  OWNERSHIP OF THE  SOFTWARE  SHALL AT ALL TIMES

                                     0000    14 ; REMAIN IN DEC.

                                     0000    15 ;

                                     0000    16 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE

                                     0000    17 ; AND SHOULD  NOT BE CONSTRUED  AS A COMMITMENT  BY DIGITAL  EQUIPMENT

                                     0000    18 ; CORPORATION.

                                     0000    19 ;

                                     0000    20 ; DEC ASSUMES  NO  RESPONSIBILITY  FOR  THE USE OR  RELIABILITY OF ITS

                                     0000    21 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

                                     0000    22 ;

                                     0000    23 

                                     0000    24 ;++

                                     0000    25 ; FACILITY:	PRIVILEGED IMAGE

                                     0000    26 ;

                                     0000    27 ; ABSTRACT:

                                     0000    28 ;

                                     0000    29 ;	THIS IMAGE IMPLEMENTS THE SET WORKING SET PARAMETERS

                                     0000    30 ; COMMAND

                                     0000    31 ;

                                     0000    32 ; ENVIRONMENT:

                                     0000    33 ;

                                     0000    34 ;	THIS IMAGE RUNS IN USER MODE BUT REQUIRES THE PRIVILEGE TO

                                     0000    35 ; CHANGE MODE TO KERNEL IN ORDER TO ALTER THE WORKING SET PARAMETERS.

                                     0000    36 ;

                                     0000    37 ; AUTHOR: PETER H. LIPMAN, CREATION DATE: 19-MAY-77

                                     0000    38 ;

                                     0000    39 ; MODIFIED BY:

                                     0000    40 ;	BEATRICE WALTHER 	17-dec-1977

                                     0000    41 ;

                                     0000    42 ;	, : VERSION

                                     0000    43 ; 01	- 

                                     0000    44 ;--

SETWRKSET       - SET WORKING SET PARAMETERS                     21-AUG-1978 19:17:10   VAX-11 MACRO X0.3-11               Page   2

X0102           DECLARATIONS                                                                                                     (2)



                                     0000    46 	.SBTTL	DECLARATIONS

                                     0000    47 ;

                                     0000    48 ; INCLUDE FILES:

                                     0000    49 ;

                                     0000    50 	$CLIDEF				;CLI DEFINITIONS

                                     0000    51 	$PHDDEF				;PROCESS HEADER DEFINITIONS

                                     0000    52 ;

                                     0000    53 ; MACROS:

                                     0000    54 ;

                                     0000    55 ;

                                     0000    56 	.MACRO	CALLBAK A1,A2

                                     0000    57 	.IF NB	A2

                                     0000    58 	PUSHAB	A2

                                     0000    59 	.IFF

                                     0000    60 	PUSHAB	W^WORK_L_BITLIS		; address of bit list (in case needed)

                                     0000    61 	.ENDC

                                     0000    62 	PUSHAB	W^SET$A_CLIWORK		; CLI common work area

                                     0000    63 	PUSHAB	A1

                                     0000    64 	CALLS	#3,@CLI$A_UTILSERV(AP)	; request the service of the CLI

                                     0000    65 	.ENDM

                                     0000    66 ;

                                     0000    67 ; EQUATED SYMBOLS:

                                     0000    68 ;

                                     0000    69 ;

                                     0000    70 ; OWN STORAGE:

                                     0000    71 ;

                                 00000000    72 	.PSECT	SET$RWDATA	LONG,RD,WRT,NOEXE

                                     0000    73 

                                     0000    74 ARGLIST:

                           00000002  0000    75 	.LONG	2			;ARGUMENT LIST FOR SETLIM

                                     0004    76 LIMITVAL:

                           00000000  0004    77 	.LONG	0			; working set limit

                                     0008    78 QUOTAVAL:

                           00000000  0008    79 	.LONG	0			; working set quota

                                     000C    80 

                                     000C    81 ;

                                     000C    82 ; DEFINE THE CALL BACK DATA STRUCTURES

                                     000C    83 ;

                                     000C    84 NUMVAL:

                                     000C    85 	$CLIREQDESC	-		;

                                     000C    86 		RQTYPE=CLI$K_NUMERVAL	;CONVERT A NUMBER

                                     0028    87 INPDESC:

                                     0028    88 	$CLIREQDESC	-

                                     0028    89 		RQTYPE=CLI$K_GETQUAL,-	;GET QUALIFIERS

                                     0028    90 		QUALST=INPQUAL		;QUALIFIER LIST

                                     0044    91 INPQUAL:

                                     0044    92 LIMI_QUAL:

                                     0044    93 	$CLIQUALDEF	-

                                     0044    94 		QDCODE=CLI$K_STWR_LIMI,- ; /LIMIT

                                     0044    95 		TRUACT=LIMIT

                                     005B    96 QUOT_QUAL:

                                     005B    97 	$CLIQUALDEF	-

                                     005B    98 		QDCODE=CLI$K_STWR_QUOT,- ; /QUOTA

                                     005B    99 		TRUACT=QUOTA

                                     0072   100 	$CLIQUALDEF	END_LIST	;END OF QUALIFIER LIST

                                     0073   101 WORK_L_BITLIS:

                           00000077  0073   102 	.BLKL	1			; BIT LIST

SETWRKSET       - SET WORKING SET PARAMETERS                     21-AUG-1978 19:17:10   VAX-11 MACRO X0.3-11               Page   3

X0102           DECLARATIONS                                                                                                     (2)



                                     0077   103 ADJUST_FLAG:

                           00000000  0077   104 	.LONG	0			; ADJUST VALUE FLAG

SETWRKSET       - SET WORKING SET PARAMETERS                     21-AUG-1978 19:17:10   VAX-11 MACRO X0.3-11               Page   4

X0102           SET WORKING SET PARAMETERS                                                                                       (3)



                                     007B   106 	.SBTTL	SET WORKING SET PARAMETERS

                                     007B   107 ;++

                                     007B   108 ; FUNCTIONAL DESCRIPTION:

                                     007B   109 ;

                                     007B   110 ;

                                     007B   111 ; CALLING SEQUENCE:

                                     007B   112 ;

                                     007B   113 ;	NONE

                                     007B   114 ;

                                     007B   115 ; INPUT PARAMETERS:

                                     007B   116 ;

                                     007B   117 ;	CLI$A_UTILSERV(AP)	=	CALL BACK ADDRESS FOR RESULT PARSER

                                     007B   118 ;

                                     007B   119 ; IMPLICIT INPUTS:

                                     007B   120 ;

                                     007B   121 ;	NONE

                                     007B   122 ;

                                     007B   123 ; OUTPUT PARAMETERS:

                                     007B   124 ;

                                     007B   125 ;	NONE

                                     007B   126 ;

                                     007B   127 ; IMPLICIT OUTPUTS:

                                     007B   128 ;

                                     007B   129 ;	NONE

                                     007B   130 ;

                                     007B   131 ; COMPLETION CODES:

                                     007B   132 ;

                                     007B   133 ;	NONE

                                     007B   134 ;

                                     007B   135 ; SIDE EFFECTS:

                                     007B   136 ;

                                     007B   137 ;	NONE

                                     007B   138 ;

                                     007B   139 ;--

                                     007B   140 

                                 00000000   141 	.PSECT	SET$CODE BYTE,RD,NOWRT,EXE

                                     0000   142 

                                     0000   143 

                                     0000   144 SET$WORKING_S::

                                     0000   145 

                               000C  0000   146 	.WORD	^M<R2,R3>		; ENTRY MASK

                                     0002   147 

                                     0002   148 ;

                                     0002   149 ; Parse qualifiers and return associated values

                                     0002   150 ;

                                     0002   151 ; Action routines check values for minimum ( sysgen value) and

                                     0002   152 ; maximum (maximum authorized quota)

                                     0002   153 ;

                                     0002   154 

                                     0002   155 	CALLBAK	<W^INPDESC>

                                     0012   156 

                                     0012   157 ;

                                     0012   158 ; perform additional checking on returned values.

                                     0012   159 ;

                                     0012   160 

            50   00000000'8F     D0  0012   161 	MOVL	#SS$_NORMAL,R0		; assume success

            51   00000000'9F     D0  0019   162 	MOVL	@#CTL$GL_PHD,R1		; get mapped PHD address

SETWRKSET       - SET WORKING SET PARAMETERS                     21-AUG-1978 19:17:10   VAX-11 MACRO X0.3-11               Page   5

X0102           SET WORKING SET PARAMETERS                                                                                       (3)



                     0008'CF     B5  0020   163 	TSTW	W^QUOTAVAL		; was quota specified ?

                          29     12  0024   164 	BNEQU	20$			; branch if specified

                     0004'CF     B5  0026   165 	TSTW	W^LIMITVAL		; was limit specified ?

                          6F     13  002A   166 	BEQLU	90$			; no-op if both zero

                                     002C   167 

                                     002C   168 ;

                                     002C   169 ; if limit only has been specified : adjust quota

                                     002C   170 ;

                                     002C   171 

         18 A1         08 A1     A3  002C   172 	SUBW3	PHD$W_WSLIST(R1),PHD$W_WSQUOTA(R1),W^QUOTAVAL

                     0008'CF         0031       

                     0008'CF     B6  0034   173 	INCW	W^QUOTAVAL		; load current quota

       0004'CF       0008'CF     B1  0038   174 	CMPW	W^QUOTAVAL,W^LIMITVAL	; compare quota to limit

                          35     1E  003F   175 	BGEQU	50$			; branch if greater or equal

       0008'CF       0004'CF     B0  0041   176 	MOVW	W^LIMITVAL,W^QUOTAVAL	; raise quota to new limit

       0077'CF            01     D0  0048   177 	MOVL	#1,W^ADJUST_FLAG	; signal adjustment

                          27     11  004D   178 	BRB	50$			; go insert values

                                     004F   179 

                                     004F   180 ;

                                     004F   181 ; if quota only, or both values specified : adjust limit

                                     004F   182 ;

                                     004F   183 

                                     004F   184 20$:

                     0004'CF     B5  004F   185 	TSTW	W^LIMITVAL		; has limit been specified ?

                          0C     12  0053   186 	BNEQU	30$			; branch if specified

         1A A1         08 A1     A3  0055   187 	SUBW3	PHD$W_WSLIST(R1),PHD$W_DFWSCNT(R1),W^LIMITVAL

                     0004'CF         005A       

                     0004'CF     B6  005D   188 	INCW	W^LIMITVAL		; load current limit

                                     0061   189 30$:

       0008'CF       0004'CF     B1  0061   190 	CMPW	W^LIMITVAL,W^QUOTAVAL	; compare limit to quota

                          0C     1B  0068   191 	BLEQU	50$			; branch if less of equal

       0004'CF       0008'CF     B0  006A   192 	MOVW	W^QUOTAVAL,W^LIMITVAL	; lower limit to new quota

       0077'CF            01     D0  0071   193 	MOVL	#1,W^ADJUST_FLAG	; signal adjustment has beene made

                                     0076   194 

                                     0076   195 ;

                                     0076   196 ; store final values

                                     0076   197 ;

                                     0076   198 

                                     0076   199 50$:

                                     0076   200 	$CMKRNL_S B^SETLIM,W^ARGLIST

            14            50     E9  0084   201 	BLBC	R0,90$			; branch on error

                                     0087   202 

                                     0087   203 ;

                                     0087   204 ; issue message if any adjustment had to be made on the user specified values.

                                     0087   205 ;

                                     0087   206 

            0F       0077'CF     E9  0087   207 	BLBC	W^ADJUST_FLAG,90$	; branch if no adjustment

                 00000000'8F     DD  008C   208 	PUSHL	#SET$_WORKSET		;MESSAGE CODE

                     0004'CF     DF  0092   209 	PUSHAL	W^LIMITVAL		;POINT TO PARAMETER LIST

       0000'CF            02     FB  0096   210 	CALLS	#2,W^SHOW$PRINT_MSG	;ISSUE MESSAGE

                                     009B   211 

                                     009B   212 ;

                                     009B   213 ; exit

                                     009B   214 ;

                                     009B   215 

                                     009B   216 90$:

       0000'CF            50     D0  009B   217 	MOVL	R0,W^SET$L_STATUS	; save status

SETWRKSET       - SET WORKING SET PARAMETERS                     21-AUG-1978 19:17:10   VAX-11 MACRO X0.3-11               Page   6

X0102           SET WORKING SET PARAMETERS                                                                                       (3)



                                 04  00A0   218 	RET				;AND EXIT WHEN SETLIM RETURNS

SETWRKSET       - SET WORKING SET PARAMETERS                     21-AUG-1978 19:17:10   VAX-11 MACRO X0.3-11               Page   7

X0102           SETLIM - SET LIMITS IN WORKING SET DATA BASE                                                                     (4)



                                     00A1   220 	.SBTTL	SETLIM - SET LIMITS IN WORKING SET DATA BASE

                                     00A1   221 ;++

                                     00A1   222 ; FUNCTIONAL DESCRIPTION:

                                     00A1   223 ;

                                     00A1   224 ;	THIS ROUTINE STORES THE VALUES FROM THE ARGUMENT LIST

                                     00A1   225 ; INTO THE WORKING SET DATA BASE.  IT RUNS IN KERNEL MODE.

                                     00A1   226 ;

                                     00A1   227 ; CALLING SEQUENCE:

                                     00A1   228 ;

                                     00A1   229 ;	CALLG	ARGLIST,SETLIM

                                     00A1   230 ;

                                     00A1   231 ; INPUT PARAMETERS:

                                     00A1   232 ;

                                     00A1   233 ;	4(AP) = NEW DEFAULT WORKING SET COUNT

                                     00A1   234 ;	8(AP) = NEW WORKING SET QUOTA

                                     00A1   235 ;	IT IS ASSUMED THAT THE ABOVE VALUES HAVE BEEN VALIDATED

                                     00A1   236 ;

                                     00A1   237 ; IMPLICIT INPUTS:

                                     00A1   238 ;

                                     00A1   239 ;	NONE

                                     00A1   240 ;

                                     00A1   241 ; OUTPUT PARAMETERS:

                                     00A1   242 ;

                                     00A1   243 ;	R0 = SS$_NORMAL

                                     00A1   244 ;

                                     00A1   245 ; IMPLICIT OUTPUTS:

                                     00A1   246 ;

                                     00A1   247 ;	NONE

                                     00A1   248 ;

                                     00A1   249 ; COMPLETION CODES:

                                     00A1   250 ;

                                     00A1   251 ;	SS$_NORMAL

                                     00A1   252 ;

                                     00A1   253 ; SIDE EFFECTS:

                                     00A1   254 ;

                                     00A1   255 ;	NONE

                                     00A1   256 ;

                                     00A1   257 ;--

                               0000  00A1   258 SETLIM:	.WORD	0

            51   00000000'9F     D0  00A3   259 	MOVL	@#CTL$GL_PHD,R1		;PROCESS HEADER ADDRESS

         08 A1            01     A3  00AA   260 	SUBW3	#1,PHD$W_WSLIST(R1),R0	;BIAS TO FORM WORKING SET INDEX

                          50         00AE       

                                     00AF   261 					;FROM THE SPECIFIED VALUES

            50         04 AC     A1  00AF   262 	ADDW3	4(AP),R0,PHD$W_DFWSCNT(R1) ;SET DEFAULT WORKING SET COUNT

                       1A A1         00B3       

            50         08 AC     A1  00B5   263 	ADDW3	8(AP),R0,PHD$W_WSQUOTA(R1) ;SET WORKING SET QUOTA

                       18 A1         00B9       

            50       0000'8F     3C  00BB   264 	MOVZWL	#SS$_NORMAL,R0		;SUCCESS INDICATION

                                 04  00C0   265 	RET

SETWRKSET       - SET WORKING SET PARAMETERS                     21-AUG-1978 19:17:10   VAX-11 MACRO X0.3-11               Page   8

X0102           TRUE ACTION ROUTINES FOR QUALIFIERS                                                                              (5)



                                     00C1   267 	.SBTTL	TRUE ACTION ROUTINES FOR QUALIFIERS

                                     00C1   268 ;++

                                     00C1   269 ; FUNCTIONAL DESCRIPTION:

                                     00C1   270 ;

                                     00C1   271 ;	THESE ROUTINES ARE CALLED BY THE RESULT PARSER WHEN

                                     00C1   272 ; THE APPROPRIATE QUALIFIERS ARE FOUND.

                                     00C1   273 ;

                                     00C1   274 ; CALLING SEQUENCE:

                                     00C1   275 ;

                                     00C1   276 ;	CALLG	ARGLIST,LIMIT

                                     00C1   277 ;	CALLG	ARGLIST,QUOTA

                                     00C1   278 ;

                                     00C1   279 ; INPUT PARAMETERS:

                                     00C1   280 ;

                                     00C1   281 ;	NONE

                                     00C1   282 ;

                                     00C1   283 ; IMPLICIT INPUTS:

                                     00C1   284 ;

                                     00C1   285 ;	NONE

                                     00C1   286 ;

                                     00C1   287 ; OUTPUT PARAMETERS:

                                     00C1   288 ;

                                     00C1   289 ;	VALUE RETURNED IN LIMITVAL OR QUOTAVAL AS APPROPRIATE

                                     00C1   290 ;

                                     00C1   291 ; IMPLICIT OUTPUTS:

                                     00C1   292 ;

                                     00C1   293 ;	NONE

                                     00C1   294 ;

                                     00C1   295 ; COMPLETION CODES:

                                     00C1   296 ;

                                     00C1   297 ;	NONE

                                     00C1   298 ;

                                     00C1   299 ; SIDE EFFECTS:

                                     00C1   300 ;

                                     00C1   301 ;	NONE

                                     00C1   302 ;

                                     00C1   303 ;--

                                     00C1   304 

                                     00C1   305 	.ENABL	LSB

                                     00C1   306 

                               000C  00C1   307 LIMIT:	.WORD	^M<R2,R3>

            53       0004'CF     DE  00C3   308 	MOVAL	W^LIMITVAL,R3		;ADDRESS TO STORE VALUE

                          07     11  00C8   309 	BRB	10$

                                     00CA   310 

                               000C  00CA   311 QUOTA:	.WORD	^M<R2,R3>

            53       0008'CF     DE  00CC   312 	MOVAL	W^QUOTAVAL,R3		;ADDRESS TO STORE VALUE

            52         04 AC     D0  00D1   313 10$:	MOVL	4(AP),R2		;GET QUALIFER DESCRIPTOR

                       04 A2     B5  00D5   314 	TSTW	CLI$W_QDVALSIZ(R2)	;ANY VALUE STRING PRESENT?

                          5E     13  00D8   315 	BEQL	90$			;BRANCH IF NONE GIVEN

                                     00DA   316 	CALLBAK	<W^NUMVAL>,(R2)		;CONVERT VALUE TO BINARY

            4D            50     E9  00E8   317 	BLBC	R0,90$			;BRANCH IF NOT NUMERIC

            52   00000018'EF     D0  00EB   318 	MOVL	CLI$L_RQVALU+NUMVAL,R2	; get value returned

                                     00F2   319 

                                     00F2   320 ;

                                     00F2   321 ; validate value for minimum

                                     00F2   322 ;

                                     00F2   323 

SETWRKSET       - SET WORKING SET PARAMETERS                     21-AUG-1978 19:17:10   VAX-11 MACRO X0.3-11               Page   9

X0102           TRUE ACTION ROUTINES FOR QUALIFIERS                                                                              (5)



            51   00000000'9F     D0  00F2   324 	MOVL	@#CTL$GL_PHD,R1		; get mapped PHD address

         0C A1         08 A1     A3  00F9   325 	SUBW3	PHD$W_WSLIST(R1),PHD$W_WSLOCK(R1),R1

                          51         00FE       

                                     00FF   326 					; account for locked pages

            51            51     3C  00FF   327 	MOVZWL	R1,R1			; zero extend

            51       0000'8F     A0  0102   328 	ADDW2	#SGN$C_MINWSCNT,R1	; add minimum for non locked portion

            51            52     D1  0107   329 	CMPL	R2,R1			; is value above the minimum ?

                          0A     1E  010A   330 	BGEQU	20$			; branch if greater or equal

            52            51     3C  010C   331 	MOVZWL	R1,R2			; else store minimum

       0077'CF            01     D0  010F   332 	MOVL	#1,W^ADJUST_FLAG	; signal adjustment

                          1F     11  0114   333 	BRB	30$			; go insert value

                                     0116   334 

                                     0116   335 ;

                                     0116   336 ; check for maximum

                                     0116   337 ;

                                     0116   338 

                                     0116   339 20$:

            51   00000000'9F     D0  0116   340 	MOVL	@#CTL$GL_PHD,R1		; get mapped PHD address

         0A A1         08 A1     A3  011D   341 	SUBW3	PHD$W_WSLIST(R1),PHD$W_WSAUTH(R1),R1

                          51         0122       

                          51     B6  0123   342 	INCW	R1			; get maximum authorize quota

            51            51     3C  0125   343 	MOVZWL	R1,R1			; zero extend

            51            52     D1  0128   344 	CMPL	R2,R1			; compare value to authorized quota

                          08     1B  012B   345 	BLEQU	30$			; branch on less or equal

            52            51     D0  012D   346 	MOVL	R1,R2			; set to maximum

       0077'CF            01     D0  0130   347 	MOVL	#1,W^ADJUST_FLAG	; signal adjustment

                                     0135   348 

                                     0135   349 ;

                                     0135   350 ; insert value

                                     0135   351 ;

                                     0135   352 

                                     0135   353 30$:

            63            52     D0  0135   354 	MOVL	R2,(R3)

                                     0138   355 ;

                                     0138   356 ; exit

                                     0138   357 ;

                                     0138   358 

                                 04  0138   359 90$:	RET				;BACK TO RESULT PARSER

                                     0139   360 

                                     0139   361 

                                     0139   362 

                                     0139   363 	.END

SETWRKSET       - SET WORKING SET PARAMETERS                     21-AUG-1978 19:17:10   VAX-11 MACRO X0.3-11               Page  10

SYMBOL TABLE                                                                                                                     (5)



$CLI.          = 0000005B R     03   CLI$K_REQDESC    0000001C            CLI$V_PARMREQ  = 00000000            

$CLI..         = 00000072 R     03   CLI$K_STWR_LIMI  ********   X   03   CLI$V_PRITYP   = 00000004            

ADJUST_FLAG      00000077 R     03   CLI$K_STWR_QUOT  ********   X   03   CLI$V_QDEXPA   = 00000002            

ARGLIST          00000000 R     03   CLI$K_UTILOPR  = 00000000            CLI$V_QDUSRV   = 00000001            

BIT...         = 00000020            CLI$K_VALCONV  = 00000004            CLI$V_QUALEXP  = 00000001            

CLI$A_ABSACT     00000014            CLI$K_WORKAREA   00000080            CLI$V_QUALTRU  = 00000000            

CLI$A_ERRACT     00000004            CLI$L_CLIFLAG    00000018            CLI$V_SUBTYP   = 00000000            

CLI$A_FLSACT     00000010            CLI$L_INIARGCNT  00000000            CLI$V_TRMVRBLV = 00000008            

CLI$A_IMGFILED   00000010            CLI$L_LINKFLAG   00000014            CLI$V_VERIFY   = 00000002            

CLI$A_IMGHDADR   0000000C            CLI$L_RQVALU     0000000C            CLI$V_VFYINP   = 00000005            

CLI$A_PROGXFER   00000004            CLI$L_USRVAL     00000014            CLI$W_QDVALSIZ   00000004            

CLI$A_PRSACT     00000010            CLI$L_WORKAREA   00000000            CLI$W_RQSIZE     00000008            

CLI$A_QDVALADR   00000008            CLI$M_ABSADR   = 00000002            CLI$W_SERVCOD    00000001            

CLI$A_QUALST     00000018            CLI$M_ALLOCCUR = 00000001            CTL$GL_PHD       ********   X   04   

CLI$A_RQADDR     0000000C            CLI$M_BATCH    = 00000008            GBL...         = 00000000            

CLI$A_TRUACT     0000000C            CLI$M_CONCATINP= 00000002            INPDESC          00000028 R     03   

CLI$A_UTILSERV   00000008            CLI$M_DBGEXCP  = 00010000            INPQUAL          00000044 R     03   

CLI$B_BITNUM     00000001            CLI$M_DBGTRU   = 00000002            LIMIT            000000C1 R     04   

CLI$B_QDBLKSIZ   00000000            CLI$M_DEBUG    = 00000001            LIMITVAL         00000004 R     03   

CLI$B_QDCODE     00000001            CLI$M_DUMMY    = 00000002            LIMI_QUAL        00000044 R     03   

CLI$B_QDFLGS     00000002            CLI$M_EXPNAM   = 00000004            NUMVAL           0000000C R     03   

CLI$B_QDSTAT     00000003            CLI$M_INDIRECT = 00000010            PHD$B_ASTLVL     000000CF            

CLI$B_RQFLGS     00000002            CLI$M_KEYVALU  = 00000002            PHD$B_DFPFC      00000038            

CLI$B_RQINDX     00000001            CLI$M_LASTVAL  = 00000001            PHD$B_PAGFIL     0000001F            

CLI$B_RQSTAT     00000003            CLI$M_MOREINP  = 00000004            PHD$B_PGTBPFC    00000039            

CLI$B_RQTYPE     00000000            CLI$M_MOREVALS = 00000001            PHD$C_LENGTH     00000118            

CLI$C_QDBITS     00000014            CLI$M_PARMDEF  = 00000008            PHD$C_PHDPAGCTX= 00000008            

CLI$C_QUALDEF    00000014            CLI$M_PARMPRS  = 00000001            PHD$K_LENGTH     00000118            

CLI$C_REQDESC    0000001C            CLI$M_PARMREQ  = 00000001            PHD$L_BIOCNT     00000054            

CLI$C_WORKAREA   00000080            CLI$M_QDEXPA   = 00000004            PHD$L_CPULIM     00000058            

CLI$K_ASCIIVAL = 00000041            CLI$M_QDUSRV   = 00000002            PHD$L_CPUTIM     0000003C            

CLI$K_CLISERV  = 00000005            CLI$M_QUALEXP  = 00000002            PHD$L_DIOCNT     00000050            

CLI$K_ENDPRM1  = 00000030            CLI$M_QUALTRU  = 00000001            PHD$L_ESP        0000007C            

CLI$K_ENDPRM2  = 00000031            CLI$M_TRMVRBLV = 00000300            PHD$L_FREP0VA    00000028            

CLI$K_ENDPRM3  = 00000032            CLI$M_VERIFY   = 00000004            PHD$L_FREP1VA    00000030            

CLI$K_ENDPRM4  = 00000033            CLI$M_VFYINP   = 00000020            PHD$L_FREPTECNT  0000002C            

CLI$K_FILSPEC  = 00000044            CLI$Q_QDVALDESC  00000004            PHD$L_KSP        00000078            

CLI$K_GETCMD   = 00000001            CLI$Q_RQDESC     00000008            PHD$L_P0BR       000000C8            

CLI$K_GETOPT   = 00000003            CLI$S_PRITYP   = 00000004            PHD$L_P0LRASTL   000000CC            

CLI$K_GETQUAL  = 00000002            CLI$S_SUBTYP   = 00000004            PHD$L_P1BR       000000D0            

CLI$K_INITPRS  = 00000000            CLI$S_TRMVRBLV = 00000002            PHD$L_P1LR       000000D4            

CLI$K_INPSPEC  = 00000001            CLI$V_ABSADR   = 00000001            PHD$L_PAGEFLTS   0000004C            

CLI$K_INPUT1   = 00000010            CLI$V_ALLOCCUR = 00000000            PHD$L_PAGFIL     0000001C            

CLI$K_INPUT2   = 00000011            CLI$V_BATCH    = 00000003            PHD$L_PC         000000C0            

CLI$K_INPUT3   = 00000012            CLI$V_CONCATINP= 00000001            PHD$L_PCB        00000078            

CLI$K_INPUT4   = 00000013            CLI$V_DBGEXCP  = 00000010            PHD$L_PGFLCNT    00000034            

CLI$K_KEYVAL   = 00000043            CLI$V_DBGTRU   = 00000001            PHD$L_PGFLQUOTA  0000005C            

CLI$K_KEYWORD  = 00000042            CLI$V_DEBUG    = 00000000            PHD$L_PSL        000000C4            

CLI$K_NUMERVAL = 00000040            CLI$V_DUMMY    = 00000001            PHD$L_PSTBASOFF  00000020            

CLI$K_OUTPUT1  = 00000020            CLI$V_EXPNAM   = 00000002            PHD$L_PTWSLELCK  00000064            

CLI$K_OUTPUT2  = 00000021            CLI$V_INDIRECT = 00000004            PHD$L_PTWSLEVAL  00000068            

CLI$K_OUTPUT3  = 00000022            CLI$V_KEYVALU  = 00000001            PHD$L_R0         00000088            

CLI$K_OUTPUT4  = 00000023            CLI$V_LASTVAL  = 00000000            PHD$L_R1         0000008C            

CLI$K_OUTSPEC  = 00000002            CLI$V_MOREINP  = 00000002            PHD$L_R10        000000B0            

CLI$K_PARDONE  = 00000003            CLI$V_MOREVALS = 00000000            PHD$L_R11        000000B4            

CLI$K_QDBITS     00000014            CLI$V_PARMDEF  = 00000003            PHD$L_R12        000000B8            

CLI$K_QUALDEF    00000014            CLI$V_PARMPRS  = 00000000            PHD$L_R13        000000BC            

SETWRKSET       - SET WORKING SET PARAMETERS                     21-AUG-1978 19:17:10   VAX-11 MACRO X0.3-11               Page  11

SYMBOL TABLE                                                                                                                     (5)



PHD$L_R2         00000090            SET$_WORKSET     ********   X   04   

PHD$L_R3         00000094            SETLIM           000000A1 R     04   

PHD$L_R4         00000098            SGN$C_MINWSCNT   ********   X   04   

PHD$L_R5         0000009C            SHOW$PRINT_MSG   ********   X   04   

PHD$L_R6         000000A0            SS$_NORMAL       ********   X   04   

PHD$L_R7         000000A4            SYS$CMKRNL       ********   X   04   

PHD$L_R8         000000A8            WORK_L_BITLIS    00000073 R     03   

PHD$L_R9         000000AC            

PHD$L_REFERFLT   00000014            

PHD$L_SSP        00000080            

PHD$L_USP        00000084            

PHD$L_WSL        00000118            

PHD$M_DALCSTX  = 00000002            

PHD$M_PFMFLG   = 00000001            

PHD$M_WSPEAKCHK= 00000004            

PHD$Q_PRIVMSK    00000000            

PHD$S_ASTLVL   = 00000008            

PHD$S_P0LR     = 00000018            

PHD$V_ASTLVL   = 00000018            

PHD$V_DALCSTX  = 00000001            

PHD$V_P0LR     = 00000000            

PHD$V_PFMFLG   = 00000000            

PHD$V_WSPEAKCHK= 00000002            

PHD$W_ASTLM      00000044            

PHD$W_BAK        00000048            

PHD$W_DFWSCNT    0000001A            

PHD$W_EMPTPG     000000D8            

PHD$W_EXTDYNWS   00000076            

PHD$W_FILLM      00000060            

PHD$W_FLAGS      0000003A            

PHD$W_PHVINDEX   00000046            

PHD$W_PRCLM      00000042            

PHD$W_PST        00000020            

PHD$W_PSTBASMAX  0000004A            

PHD$W_PSTFREE    00000026            

PHD$W_PSTLAST    00000024            

PHD$W_PTCNTACT   00000070            

PHD$W_PTCNTLCK   0000006C            

PHD$W_PTCNTMAX   00000072            

PHD$W_PTCNTVAL   0000006E            

PHD$W_QUANT      00000040            

PHD$W_TQLM       00000062            

PHD$W_WSAUTH     0000000A            

PHD$W_WSDYN      0000000E            

PHD$W_WSFLUID    00000074            

PHD$W_WSLAST     00000012            

PHD$W_WSLIST     00000008            

PHD$W_WSLOCK     0000000C            

PHD$W_WSLX       0000004A            

PHD$W_WSNEXT     00000010            

PHD$W_WSQUOTA    00000018            

QUOTA            000000CA R     04   

QUOTAVAL         00000008 R     03   

QUOT_QUAL        0000005B R     03   

SET$A_CLIWORK    ********   X   04   

SET$L_STATUS     ********   X   04   

SET$WORKING_S    00000000 RG    04   

SETWRKSET       - SET WORKING SET PARAMETERS                     21-AUG-1978 19:17:10   VAX-11 MACRO X0.3-11               Page  12

PROGRAM SECTION SYNOPSIS                                                                                                         (5)







PROGRAM SECTION SYNOPSIS



.  ABS  .        00000000      00     NOPIC   USR   CON   ABS   LCL NOSHR NOEXE NORD  NOWRT BYTE  

. BLANK .        00000000      01     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  

$ABS$            0000011C      02     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  

SET$RWDATA       0000007B      03     NOPIC   USR   CON   REL   LCL NOSHR NOEXE   RD    WRT LONG  

SET$CODE         00000139      04     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

15930. BYTES LEFT IN FREE MEMORY POOL.

3084. BYTES OF RECLAIMED MEMORY.

OBJ$:SETWRKSET,LIS$:SETWRKSET/-SP=EXECML$/ML,LIB$:CLIUTL/ML,SRC$:SETWRKSET

28 MLB DIR RDS - 524 GETS TO DEFINE 20 MACROS. 31 INTER. FILE WRITES. 

