SYSADJWSL       - SYSTEM SERVICE ADJUST WORKING SET LIMIT        21-AUG-1978 20:18:07   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)    3900  DECLARATIONS

   (2)     100  ADD TO WORKING SET SERVICE

   (3)     100  WSPEAKCHK - ENABLE OR DISABLE WORKING SET PEAK 

   (4)     100  SHRINK WORKING SET

   (5)     100  EXTRADYNWS - CALCULATE EXTRA DYNAMIC WORKING SE

SYSADJWSL       - SYSTEM SERVICE ADJUST WORKING SET LIMIT        21-AUG-1978 20:18:07   VAX-11 MACRO X0.3-11               Page   1

X0117                                                                                                                            (1)



                                     0000   100 	.TITLE	SYSADJWSL - SYSTEM SERVICE ADJUST WORKING SET LIMIT

                                     0000   200 	.IDENT	/X0117/

                                     0000   300 

                                     0000   400 ;

                                     0000   500 ; COPYRIGHT (C) 1978

                                     0000   600 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754

                                     0000   700 ;

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

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

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

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

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

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

                                     0000  1400 ; REMAIN IN DEC.

                                     0000  1500 ;

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

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

                                     0000  1800 ; CORPORATION.

                                     0000  1900 ;

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

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

                                     0000  2200 

                                     0000  2300 ;++

                                     0000  2400 ; FACILITY:	EXECUTIVE, MEMORY MANAGEMENT SERVICE

                                     0000  2500 ;

                                     0000  2600 ; ABSTRACT:	SYSADJWSL IMPLEMENTS THE ADJUST WORKING SET LIMIT

                                     0000  2700 ;	SYSTEM SERVICE.

                                     0000  2800 ;

                                     0000  2900 ; ENVIRONMENT:

                                     0000  3000 ;

                                     0000  3100 ; AUTHOR: PETER H. LIPMAN	, CREATION DATE: 10-DEC-76

                                     0000  3200 ;

                                     0000  3300 ; MODIFIED BY:

                                     0000  3400 ;

                                     0000  3500 ;  , VERSION  ,

                                     0000  3600 ; 01	- 

                                     0000  3700 ;--

SYSADJWSL       - SYSTEM SERVICE ADJUST WORKING SET LIMIT        21-AUG-1978 20:18:07   VAX-11 MACRO X0.3-11               Page   2

X0117           DECLARATIONS                                                                                                     (1)



                                     0000  3900 	.SBTTL	DECLARATIONS

                                     0000  4000 ;

                                     0000  4100 ; INCLUDE FILES:

                                     0000  4200 ;

                                     0000  4300 	$IPLDEF				;PROCESSOR PRIORITY LEVELS

                                     0000  4400 	$PCBDEF				;PROCESS CONTROL BLOCK DEFINITIONS

                                     0000  4500 	$PHDDEF				;PROCESS HEADER DEFINTIONS

                                     0000  4600 	$PRDEF				;PROCESSOR REGISTER DEFINITIONS

                                     0000  4610 	$PTEDEF				;PAGE TABLE ENTRY DEFINITIONS

                                     0000  4620 	$SECDEF				;SECTION TABLE OFFSET DEFINTIONS

                                     0000  4630 	$SSDEF				;SYSTEM SERVICE DEFINITIONS

                                     0000  4700 ;

                                     0000  4800 ; MACROS:

                                     0000  4900 ;

                                     0000  5000 

                                     0000  5100 ;

                                     0000  5200 ; EQUATED SYMBOLS:

                                     0000  5300 ;

                                     0000  5400 ; OFFSETS FROM AP

                                     0000  5500 ;

                           00000004  0000  5600 	PAGCNT	=	4		;NUMBER OF PAGES TO ADD OR SUBTRACT

                           00000008  0000  5650 	WSETLM	=	8		;ADDRESS TO RETURN NEW WORKING SET LIMIT

                                     0000  5700 ;

                                     0000  5800 ; OWN STORAGE:

                                     0000  5900 ;

SYSADJWSL       - SYSTEM SERVICE ADJUST WORKING SET LIMIT        21-AUG-1978 20:18:07   VAX-11 MACRO X0.3-11               Page   3

X0117           ADD TO WORKING SET SERVICE                                                                                       (2)



                                     0000   100 	.SBTTL	ADD TO WORKING SET SERVICE

                                     0000   200 ;++

                                     0000   300 ; FUNCTIONAL DESCRIPTION:

                                     0000   400 ;

                                     0000   500 ;

                                     0000   600 ; CALLING SEQUENCE:

                                     0000   700 ;

                                     0000   800 ;	CALL	ARGLIST,SYS$ADJWSL

                                     0000   900 ;

                                     0000  1000 ; INPUT PARAMETERS:

                                     0000  1100 ;

                                     0000  1200 ;	PAGCNT(AP)	= NUMBER OF PAGES TO ADD IF POSITIVE

                                     0000  1220 ;			= NUMBER OF PAGES TO SUBTRACT IF NEGATIVE

                                     0000  1240 ;	WSETLM(AP)	= ADDRESS OF LONG WORD TO RETURN NEW WORKING SET LIMIT

                                     0000  1260 ;	R4		= PROCESS CONTROL BLOCK ADDRESS

                                     0000  1270 ;			  SET UP BY THE CHANGE MODE TO KERNEL DISPATCHER

                                     0000  1300 ;

                                     0000  1400 ; IMPLICIT INPUTS:

                                     0000  1500 ;

                                     0000  1600 ;	NONE

                                     0000  1700 ;

                                     0000  1800 ; OUTPUT PARAMETERS:

                                     0000  1900 ;

                                     0000  2000 ;	R0 = SYSTEM STATUS CODE

                                     0000  2100 ;

                                     0000  2200 ; IMPLICIT OUTPUTS:

                                     0000  2300 ;

                                     0000  2400 ;	NONE

                                     0000  2500 ;

                                     0000  2600 ; COMPLETION CODES:

                                     0000  2700 ;

                                     0000  2800 ;	NONE

                                     0000  2900 ;

                                     0000  3000 ; SIDE EFFECTS:

                                     0000  3100 ;

                                     0000  3200 ;	NONE

                                     0000  3300 ;

                                     0000  3400 ;--

                                     0000  3405 ;

                                     0000  3410 ; **********************************************************************

                                     0000  3415 ;

                                     0000  3420 ; **************** THE FOLLOWING CODE MAY BE PAGED *****************

                                     0000  3425 ;

                                 00000000  3430 	.PSECT	Y$EXEPAGED

                                     0000  3435 ;

                                     0000  3440 ; **********************************************************************

                                     0000  3445 ;

                                     0000  3500 

                                     0000  3600 EXE$ADJWSL::

                               003C  0000  3700 	.WORD	^M<R2,R3,R4,R5>

                                     0002  4200 	SETIPL	#IPL$_ASTDEL		;NO AST'S WHILE MODIFYING PHD

            55   00000000'GF     D0  0005  4500 	MOVL	G^CTL$GL_PHD,R5		;PROCESS HEADER ADDRESS (P1 SPACE)

            51         04 AC     D0  000C  4550 	MOVL	PAGCNT(AP),R1		;NO. OF PAGES TO ADD TO WORKING SET

                                     0010  4575 					;***** REFERENCE COULD PAGE FAULT

                          5A     19  0010  4600 	BLSS	SHRINK			;BRANCH IF SHRINKING WORKING SET

   00000000'EF            01     C3  0012  4610 	SUBL3	#1,L^SGN$GL_MAXWSCNT,R2	;MAXWSCNT-(WSLAST-WSLIST+1)

                          52         0019       

SYSADJWSL       - SYSTEM SERVICE ADJUST WORKING SET LIMIT        21-AUG-1978 20:18:07   VAX-11 MACRO X0.3-11               Page   4

X0117           ADD TO WORKING SET SERVICE                                                                                       (2)



         12 A5         08 A5     A3  001A  4620 	SUBW3	PHD$W_WSLIST(R5),PHD$W_WSLAST(R5),R0 ;IS THE MAXIMUM

                          50         001F       

            50            50     3C  0020  4630 	MOVZWL	R0,R0			;NUMBER OF PAGES

            52            50     C2  0023  4640 	SUBL	R0,R2			;THAT CAN BE ADDED TO THE 

                          39     19  0026  4650 	BLSS	80$			;WORKING SET LIST

                          39     10  0028  4660 	BSBB	MINIMIZE		;USE SMALLER OF REQUEST AND MAX

                 00000000'EF     16  002A  4700 	JSB	MMG$ALCPHD		;GET ENOUGH SPACE FOR SPECIFIED # OF WSLE'S

                                     0030  4710 ;

                                     0030  4720 ; R1 IS RETURNED AS THE MINIMUM OF WHAT WAS REQUESTED AND WHAT WAS AVAILABLE

                                     0030  4730 ;

            50         12 A5     3C  0030  4800 	MOVZWL	PHD$W_WSLAST(R5),R0	;CURRENT LAST ENTRY

            51            50     C0  0034  4900 	ADDL	R0,R1			;NEW WSLAST (PROPOSED)

                                     0037  6000 ;

                                     0037  6100 ; NOTE THAT THE FOLLOWING CODE MUST WORK CORRECTLY IF NO NEW ENTRIES ARE ADDED

                                     0037  6200 ;

            52         18 A5     3C  0037  6340 	MOVZWL	PHD$W_WSQUOTA(R5),R2	;GET WORKING SET QUOTA

                          26     10  003B  6360 	BSBB	MINIMIZE		;USE THE SMALLER

                                 C3  003D  6400 	SUBL3	SCH$GL_FREELIM,-	;MAX PHYSICAL NUMBER OF PAGES

   00000000'EF   00000000'EF         003E  6410 		PFN$GL_PHYPGCNT,R2	;IS UPPER BOUND ON WORKING SET SIZE

                          52         0048       

            53         08 A5     3C  0049  6420 	MOVZWL	PHD$W_WSLIST(R5),R3	;INDEX TO FIRST WORKING SET LIST ENTRY

            52            7342   9E  004D  6430 	MOVAB	-(R3)[R2],R2		;MAXIMUM POSSIBLE WSLAST

                          10     10  0051  6440 	BSBB	MINIMIZE		;USE THE SMALLER

                          03     11  0053  6500 	BRB	60$			;LOOP 0 OR MORE TIMES

                          6540   D4  0055  6600 40$:	CLRL	(R5)[R0]		;MARK THEN ENTRY FREE

            50            51     F3  0058  6900 60$:	AOBLEQ	R1,R0,40$		;ONCE FOR EACH NEW WORKING SET ENTRY

                          F9         005B       

            50            01     A3  005C  7000 	SUBW3	#1,R0,PHD$W_WSLAST(R5)	;SET NEW LAST POINTER

                       12 A5         005F       

                                     0061  7100 					;USING R0-1 IN CASE R1 WAS SMALLER

                          36     11  0061  7200 80$:	BRB	ADJWSLEXIT		;RETURN THE NEW WORKING SET SIZE

                                     0063  7210 ;

                                     0063  7220 ; MINIMUM OF R1 AND R2 TO R1

                                     0063  7230 ;

                                     0063  7240 MINIMIZE:

            52            51     D1  0063  7250 	CMPL	R1,R2			;USE THE SMALLER

                          03     15  0066  7260 	BLEQ	10$			;BRANCH IF R1 IS THE SMALLER

            51            52     D0  0068  7270 	MOVL	R2,R1			;USE R2 INSTEAD

                                 05  006B  7280 10$:	RSB

                                     006C  7400 ;

                                     006C  7500 ; REDUCE THE SIZE OF THE WORKING SET

                                     006C  7600 ;

                                     006C  7700 SHRINK:

            53            51     CE  006C  7800 	MNEGL	R1,R3			;MAKE THE DESIRED PAGE COUNT POSITIVE

                                     006F  7900 ;

                                     006F  8000 ; CALCULATE THE MAXIMUM AMOUNT THE WORKING SET CAN BE REDUCED

                                     006F  8100 ;

         12 A5         0C A5     A3  006F  8200 	SUBW3	PHD$W_WSLOCK(R5),PHD$W_WSLAST(R5),R0 ;SIZE - 1  OF WS LIST

                          50         0074       

                                     0075  8300 					;OVER AND ABOVE PERMANENT PAGES

            50       FFFF'8F     A2  0075  8400 	SUBW	#SGN$C_MINWSCNT-1,R0	;EXCESS ABOVE MINIMUM

                                     007A  8500 ;

                                     007A  8600 ; R0 = NUMBER OF PAGES WHICH COULD BE TAKEN AWAY WITHOUT REDUCING

                                     007A  8700 ; THE WORKING SET SIZE BELOW THE MINIMUM.

                                     007A  8800 ;

            51         76 A5     32  007A  8900 	CVTWL	PHD$W_EXTDYNWS(R5),R1	;EXCESS DYNAMIC WORKING SET LIST ENTRIES

                          19     15  007E  9000 	BLEQ	ADJWSLEXIT		;BRANCH IF NONE LEFT TO TAKE AWAY

SYSADJWSL       - SYSTEM SERVICE ADJUST WORKING SET LIMIT        21-AUG-1978 20:18:07   VAX-11 MACRO X0.3-11               Page   5

X0117           ADD TO WORKING SET SERVICE                                                                                       (2)



                                     0080  9300 ;

                                     0080  9400 ; R1 = NUMBER OF EXTRA DYNAMIC WORKING SET LIST ENTRIES ABOVE

                                     0080  9500 ; THE MINIMUM REQUIRED BY WSFLUID.

                                     0080  9600 ;

                                     0080  9700 ;

                                     0080  9800 ; USE THE SMALLER OF R0 AND R1 AS THE MOST PAGES THAT CAN BE TAKEN

                                     0080  9900 ; AWAY FROM THE WORKING SET LEAVING THE RESULT IN R0

                                     0080 10000 ;

            51            50     B1  0080 10100 	CMPW	R0,R1

                          03     15  0083 10200 	BLEQ	20$

            50            51     B0  0085 10300 	MOVW	R1,R0

                                     0088 10400 20$:

                                     0088 10500 ;

                                     0088 10600 ; R0 IS THE MAXIMUM NUMBER OF PAGES THAT CAN BE TAKEN OUT OF THE WORKING SET

                                     0088 10700 ; REDUCE THE WORKING SET SIZE BY THE SMALLER OF R0 AND R3.

                                     0088 10800 ;

            50            50     3C  0088 10900 	MOVZWL	R0,R0			;ZERO BITS 16:31

            50            53     D1  008B 11000 	CMPL	R3,R0			;REDUCE BY THE DESIRED AMOUNT?

                          03     15  008E 11100 	BLEQ	40$			;BRANCH IF YES

            53            50     D0  0090 11200 	MOVL	R0,R3			;MUST REDUCE BY LESS

                 00000000'EF     17  0093 11300 40$:	JMP	ADJWSL_SHRINK

                                     0099 18315 ADJWSLEXIT:

                 00000074'EF     16  0099 18320 	JSB	MMG$EXTRADYNWS		;RECOMPUTE EXTRA DYNAMIC WSLE COUNT

                          19     10  009F 18340 	BSBB	MMG$WSPEAKCHK		;ENABLE WORKING SET PEAK CHECK

                                     00A1 18350 					;RETURN WORKING SET SIZE IN R1

            52         08 AC     D0  00A1 18400 	MOVL	WSETLM(AP),R2		;ADDRESS TO RETURN NEW WORKING SET LIMIT

                                     00A5 18405 					;***** COULD FAULT THIS REFERENCE

                          0C     13  00A5 18410 	BEQL	20$			;BRANCH IF NONE SPECIFIED

            50            0C     3C  00A7 18420 	MOVZWL	#SS$_ACCVIO,R0		;RETURN CODE FOR ACCESS  VIOLATION

                                     00AA 18430 	IFNOWRT	#4,(R2),40$		;IF NOT WRITABLE

            62            51     3C  00B0 18440 	MOVZWL	R1,(R2)			;OTHERWISE RETURN THE NEW LIMIT

                                     00B3 18445 					;***** COULD FAULT THIS REFERENCE

            50            01     3C  00B3 18450 20$:	MOVZWL	#SS$_NORMAL,R0		;INDICATE SUCCESSFUL COMPLETION

                                     00B6 18470 40$:	SETIPL	#0			;BACK TO IPL 0

                                 04  00B9 18480 	RET				;AND RETURN

SYSADJWSL       - SYSTEM SERVICE ADJUST WORKING SET LIMIT        21-AUG-1978 20:18:07   VAX-11 MACRO X0.3-11               Page   6

X0117           WSPEAKCHK - ENABLE OR DISABLE WORKING SET PEAK                                                                   (3)



                                     00BA   100 	.SBTTL	WSPEAKCHK - ENABLE OR DISABLE WORKING SET PEAK CHECKING

                                     00BA   200 

                                     00BA   300 ;

                                     00BA   400 ; CALLING SEQUENCE:

                                     00BA   500 ;

                                     00BA   600 ;	BSBW	MMG$WSPEAKCHK

                                     00BA   700 ;

                                     00BA   800 ; INPUTS:

                                     00BA   900 ;

                                     00BA  1000 ;	R5 = PROCESS HEADER ADDRESS (P1 SPACE OK)

                                     00BA  1100 ;

                                     00BA  1200 ; OUTPUTS:

                                     00BA  1300 ;

                                     00BA  1400 ;	R1 = WORKING SET SIZE

                                     00BA  1500 ;		IF THE CURRENT PEAK IS LESS THAN THE CURRENT WORKING SET 

                                     00BA  1600 ;	SIZE, THE WORKING SET PEAK CHECK IS ENABLED.

                                     00BA  1700 ;		IF THE CURRENT PEAK IS GREATER THAN OR EQUAL TO THE

                                     00BA  1800 ;	CURRENT WORKING SET SIZE, THE WORKING SET PEAK CHECK IS DISABLED.

                                     00BA  1900 ;

                                     00BA  2000 ; **********************************************************************

                                     00BA  2100 ;

                                     00BA  2200 ; **************** THE FOLLOWING CODE MAY BE PAGED *****************

                                     00BA  2300 ;

                                 000000BA  2400 	.PSECT	Y$EXEPAGED

                                     00BA  2500 ;

                                     00BA  2600 ; **********************************************************************

                                     00BA  2700 ;

                                     00BA  2800 MMG$WSPEAKCHK::

         12 A5         08 A5     A3  00BA  2900 	SUBW3	PHD$W_WSLIST(R5),PHD$W_WSLAST(R5),R1 ;COUNT - 1

                          51         00BF       

                                     00C0  3000 					;OF WORKING SET LIST ENTRIES

                          51     B6  00C0  3100 	INCW	R1			;COUNT OF WORKING SET LIST ENTRIES

         3A A5            04     AA  00C2  3200 	BICW	#PHD$M_WSPEAKCHK,PHD$W_FLAGS(R5) ;DISABLE WORKING SET PEAK CHECK

   00000000'GF            51     B1  00C6  3300 	CMPW	R1,G^CTL$GL_WSPEAK	;POSSIBLE TO EXCEED CURRENT PEAK?

                          04     1F  00CD  3400 	BLSSU	10$			;BRANCH IF NOT

         3A A5            04     A8  00CF  3500 	BISW	#PHD$M_WSPEAKCHK,PHD$W_FLAGS(R5) ;YES, ENABLE THE CHECK

                                 05  00D3  3600 10$:	RSB

SYSADJWSL       - SYSTEM SERVICE ADJUST WORKING SET LIMIT        21-AUG-1978 20:18:07   VAX-11 MACRO X0.3-11               Page   7

X0117           SHRINK WORKING SET                                                                                               (4)



                                     00D4   100 	.SBTTL	SHRINK WORKING SET

                                     00D4   200 ;

                                     00D4   300 ; **********************************************************************

                                     00D4   400 ;

                                     00D4   500 ; **************** THE FOLLOWING CODE MUST BE RESIDENT *****************

                                     00D4   600 ;

                                 00000000   700 	.PSECT	$MMGCOD

                                     0000   800 ;

                                     0000   900 ; **********************************************************************

                                     0000  1000 ;

                                     0000  1100 ; ADJUST THE WORKING SET POINTERS TO REFLECT THE NEW SIZE OF THE WORKING SET

                                     0000  1200 ;

                                     0000  1300 ; CALLING SEQUENCE:

                                     0000  1400 ;

                                     0000  1500 ;	JMP	ADJWSL_SHRINK

                                     0000  1510 ;

                                     0000  1520 ; INPUTS:

                                     0000  1530 ;

                                     0000  1600 ;	R3  = NUMBER OF PAGES TO DELETE FROM WORKING SET

                                     0000  1700 ;	IPL = ASTDEL

                                     0000  1800 ;

                                     0000  1900 ADJWSL_SHRINK:

                                     0000  2000 	SETIPL	#IPL$_SYNCH		;NO SWAP WHILE FIXING WORKING SET LIST

            7E         12 A5     3C  0003  2100 	MOVZWL	PHD$W_WSLAST(R5),-(SP)	;SAVE INDEX TO CURRENT LAST ENTRY

         12 A5            53     A2  0007  2200 	SUBW	R3,PHD$W_WSLAST(R5)	;ADJUST INDEX TO LAST ENTRY

                                     000B  2300 ;

                                     000B  2400 ; ADJUST WSNEXT IF IT IS NOW BEYOND WSLAST

                                     000B  2500 ;

         12 A5         10 A5     B1  000B  2600 	CMPW	PHD$W_WSNEXT(R5),PHD$W_WSLAST(R5) ;NOW BEYOND NEW LAST INDEX?

                          05     1B  0010  2700 	BLEQU	60$			;BRANCH IF NOT

         10 A5         12 A5     B0  0012  2800 	MOVW	PHD$W_WSLAST(R5),PHD$W_WSNEXT(R5) ;YES, SET IT TO THE END

                                     0017  2900 60$:

                                     0017  3000 ;

                                     0017  3100 ; MOVE ANY ACTIVE ENTRIES OUT OF THE WORKING SET LIST ENTRIES BEING RELEASED

                                     0017  3200 ; 0(SP) = INDEX TO OLD LAST ENTRY IN WORKING SET LIST

                                     0017  3400 ;

                                     0017  3500 MOVEACTIVE:

            7E         12 A5     3C  0017  3600 	MOVZWL	PHD$W_WSLAST(R5),-(SP)	;INDEX OF LAST SLOT IN WSL

                          29     11  001B  3700 	BRB	100$			;START WITH THE NEXT ENTRY

                                     001D  3800 ;

                                     001D  3900 ; 0(SP) = CURRENT WORKING SET LIST INDEX TO BE RELEASED

                                     001D  4000 ; 4(SP) = INDEX TO OLD LAST ENTRY IN WORKING SET LIST

                                     001D  4200 ; IPL = SYNCH

                                     001D  4300 ;

                                     001D  4400 20$:

            51            6E     D0  001D  4500 	MOVL	(SP),R1			;INDEX TO NEXT ENTRY TO MOVE

                          6541   D5  0020  4600 	TSTL	(R5)[R1]		;ANYTHING THERE?

                          21     13  0023  4700 	BEQL	100$			;BRANCH IF NO

                                     0025  4800 ;

                                     0025  4900 ; MUST FREE A WORKING SET LIST SLOT

                                     0025  5000 ;

                          FFD8'  30  0025  5100 	BSBW	MMG$FREWSLE		;GET A FREE WORKING SET LIST ENTRY

            2B            50     E9  0028  5200 	BLBC	R0,RESOURCEWAIT		;BRANCH IF HAVE TO WAIT

            51            6E     D0  002B  5300 	MOVL	(SP),R1			;RECOVER INDEX TO ENTRY TO BE MOVED

            52            6541   D0  002E  5400 	MOVL	(R5)[R1],R2		;VIRTUAL ADDRESS OF THE PAGE

                          FFCB'  30  0032  5500 	BSBW	MMG$SVAPTECHK		;GET R3 = SYS VIRT ADR OF PAGE TBL ENTRY

                          FFC8'  30  0035  5600 	BSBW	MMG$WSLEPFN		;GET PFN FROM SVAPTE FOR THIS WSLE

SYSADJWSL       - SYSTEM SERVICE ADJUST WORKING SET LIMIT        21-AUG-1978 20:18:07   VAX-11 MACRO X0.3-11               Page   8

X0117           SHRINK WORKING SET                                                                                               (4)



            51            6E     D0  0038  5700 	MOVL	(SP),R1			;INDEX TO WRK SET LIST ENTRY TO BE MOVED

            52         10 A5     3C  003B  5800 	MOVZWL	PHD$W_WSNEXT(R5),R2	;INDEX TO FREE WSLE FROM FREWSLE

            2D            6542   E8  003F  5900 	BLBS	(R5)[R2],ADJWSLBUG	;BRANCH IF NOT A FREE ENTRY, ERROR

                          FFBA'  30  0043  6000 	BSBW	MMG$SWAPWSLE		;SWAP THE WORKING SET LIST ENTRY

                                     0046  6100 100$:

            6E         04 AE     F3  0046  6200 	AOBLEQ	4(SP),(SP),20$		;REPEAT FOR EACH SLOT TO BE DELETED

                          D2         004A       

                          03     BA  004B  6300 	POPR	#^M<R0,R1>		;CLEAN OFF WORKING SET LIST INDICES

                                     004D  6400 	SETIPL	#IPL$_ASTDEL		;SWAPPABLE AGAIN

                 00000099'EF     17  0050  6450 	JMP	ADJWSLEXIT

                                     0056  6500 ;

                                     0056  6600 ; MUST WAIT FOR A RESOURCE

                                     0056  6700 ; IPL = SYNCH, R1 = RESOURCE TO WAIT FOR

                                     0056  6800 ; R4 = PROCESS CONTROL BLOCK ADDRESS

                                     0056  6900 ;

                                     0056  7000 RESOURCEWAIT:

         12 A5         04 AE     B0  0056  7100 	MOVW	4(SP),PHD$W_WSLAST(R5)	;RESET OLD END OF WSL

                                     005B  7200 					;SOME 0 ENTRIES, OTHERWISE FINE

         4C A4            51     D0  005B  7300 	MOVL	R1,PCB$L_EFWM(R4)	;SET RESOURCE TO WAIT FOR

       0000'CF            51     E6  005F  7400 	BBSSI	R1,W^SCH$GL_RESMASK,10$ ;NOTE SOMEONE WAITING

                          00         0064       

            52       0000'CF     7E  0065  7500 10$:	MOVAQ	W^SCH$GQ_MWAIT,R2	;WAIT ON MUTEXT WAIT QUEUE

            5E            5D     D0  006A  7600 	MOVL	FP,SP			;RESET FP, AP UNTOUCHED

                          FF90'  31  006D  7700 	BRW	SCH$WAIT

                                     0070  7800 

                                     0070  7900 ADJWSLBUG:

                                     0070  8000 	BUG_CHECK SYSADJWSL,FATAL

SYSADJWSL       - SYSTEM SERVICE ADJUST WORKING SET LIMIT        21-AUG-1978 20:18:07   VAX-11 MACRO X0.3-11               Page   9

X0117           EXTRADYNWS - CALCULATE EXTRA DYNAMIC WORKING SE                                                                  (5)



                                     0074   100 	.SBTTL	EXTRADYNWS - CALCULATE EXTRA DYNAMIC WORKING SET COUNT

                                     0074   200 

                                     0074   300 ;

                                     0074   400 ; FUNCTIONAL DESCRIPTION:

                                     0074   500 ;

                                     0074   600 ;	THIS ROUTINE CALCULATES THE EXTRA NUMBER OF DYNAMIC WORKING SET

                                     0074   700 ; ENTRIES AVAILABLE BEYOND THE NUMBER GUARANTEED BY WSFLUID

                                     0074   800 ;

                                     0074   900 ; CALLING SEQUENCE:

                                     0074  1000 ;

                                     0074  1100 ;	BSBW	MMG$EXTRADYNWS

                                     0074  1200 ;

                                     0074  1300 ; INPUTS:

                                     0074  1400 ;

                                     0074  1500 ;	R5 = PROCESS HEADER ADDRESS

                                     0074  1600 ;	IPL = AT LEAST ASTDEL

                                     0074  1700 ;

                                     0074  1800 ; OUTPUTS:

                                     0074  1900 ;

                                     0074  2000 ;	R1 = EXTRA DYNAMIC WORKING SET COUNT

                                     0074  2050 ;	R0,R2,R3 PRESERVED

                                     0074  2100 ;	PHD$W_EXTDYNWS = EXTRA DYNAMIC WORKING SET COUNT

                                     0074  2200 ;

                                     0074  2210 ;

                                     0074  2220 ; **********************************************************************

                                     0074  2230 ;

                                     0074  2240 ; **************** THE FOLLOWING CODE MUST BE RESIDENT *****************

                                     0074  2250 ;

                                 00000074  2260 	.PSECT	$MMGCOD

                                     0074  2270 ;

                                     0074  2280 ; **********************************************************************

                                     0074  2290 ;

                                     0074  2300 

                                     0074  2400 MMG$EXTRADYNWS::

         72 A5         6C A5     A3  0074  2500 	SUBW3	PHD$W_PTCNTLCK(R5),PHD$W_PTCNTMAX(R5),R1 ;COUNT OF PAGE TABLES

                          51         0079       

                                     007A  2600 					;WHICH ARE NOT LOCKED DOWN

         74 A5            51     B1  007A  2700 	CMPW	R1,PHD$W_WSFLUID(R5)	;MINIMIZE WITH FLUID COUNT

                          04     1B  007E  2800 	BLEQU	10$			;BRANCH IF SMALLER

            51         74 A5     3C  0080  2900 	MOVZWL	PHD$W_WSFLUID(R5),R1	;USE FLUID, IT IS SMALLER

            51         74 A5     A0  0084  3000 10$:	ADDW	PHD$W_WSFLUID(R5),R1	;ADD IN FLUID FOR DATA & I STREAM PAGES

            7E            51     3C  0088  3100 	MOVZWL	R1,-(SP)		;SAVE IT

         12 A5         0E A5     A3  008B  3200 	SUBW3	PHD$W_WSDYN(R5),PHD$W_WSLAST(R5),R1 ;COUNT-1 OF DYNAMIC WORKING SET LIST

                          51         0090       

                          51     B6  0091  3300 	INCW	R1			;COUNT OF DYNAMIC WORKING SET LIST

            51         6C A5     A2  0093  3400 	SUBW	PHD$W_PTCNTLCK(R5),R1	;TAKE AWAY THE PAGE TABLES

                                     0097  3500 					;WHICH HAVE LOCKED PAGES

            51            51     3C  0097  3600 	MOVZWL	R1,R1

            51            8E     C2  009A  3700 	SUBL	(SP)+,R1		;DIFFERENCE IN EXTRA DYN WS COUNT

         76 A5            51     B0  009D  3800 	MOVW	R1,PHD$W_EXTDYNWS(R5)	;SAVE IT IN PROCESS HEADER

                                 05  00A1  3900 	RSB

                                     00A2 20500 

                                     00A2 20600 

                                     00A2 20700 	.END

SYSADJWSL       - SYSTEM SERVICE ADJUST WORKING SET LIMIT        21-AUG-1978 20:18:07   VAX-11 MACRO X0.3-11               Page  10

SYMBOL TABLE                                                                                                                     (5)



ADJWSLBUG        00000070 R     04   PCB$V_DELPEN   = 00000001            PHD$L_KSP        00000078            

ADJWSLEXIT       00000099 R     03   PCB$V_FORCPEN  = 00000002            PHD$L_P0BR       000000C8            

ADJWSL_SHRINK    00000000 R     04   PCB$V_HIBER    = 00000013            PHD$L_P0LRASTL   000000CC            

BIT...         = 00000000            PCB$V_INQUAN   = 00000003            PHD$L_P1BR       000000D0            

BUG$_SYSADJWSL   ********   X   04   PCB$V_LOGIN    = 00000014            PHD$L_P1LR       000000D4            

CTL$GL_PHD       ********   X   03   PCB$V_NETWRK   = 00000015            PHD$L_PAGEFLTS   0000004C            

CTL$GL_WSPEAK    ********   X   03   PCB$V_NOACNT   = 0000000F            PHD$L_PAGFIL     0000001C            

EXE$ADJWSL       00000000 RG    03   PCB$V_NODELET  = 00000017            PHD$L_PC         000000C0            

GBL...         = 00000000            PCB$V_PHDRES   = 00000012            PHD$L_PCB        00000078            

IPL$_ASTDEL    = 00000002            PCB$V_PSWAPM   = 00000004            PHD$L_PGFLCNT    00000034            

IPL$_HWCLK     = 00000018            PCB$V_PWRAST   = 00000016            PHD$L_PGFLQUOTA  0000005C            

IPL$_IOPOST    = 00000004            PCB$V_RES      = 00000000            PHD$L_PSL        000000C4            

IPL$_MAILBOX   = 0000000B            PCB$V_RESPEN   = 00000005            PHD$L_PSTBASOFF  00000020            

IPL$_POWER     = 0000001F            PCB$V_SSFEXC   = 00000006            PHD$L_PTWSLELCK  00000064            

IPL$_QUEUEAST  = 00000006            PCB$V_SSFEXCE  = 00000007            PHD$L_PTWSLEVAL  00000068            

IPL$_SCHED     = 00000003            PCB$V_SSFEXCS  = 00000008            PHD$L_R0         00000088            

IPL$_SYNCH     = 00000007            PCB$V_SSFEXCU  = 00000009            PHD$L_R1         0000008C            

IPL$_TIMER     = 00000007            PCB$V_SSRWAIT  = 0000000A            PHD$L_R10        000000B0            

MINIMIZE         00000063 R     03   PCB$V_SUSPEN   = 0000000B            PHD$L_R11        000000B4            

MMG$ALCPHD       ********   X   03   PCB$V_SWPVBN   = 00000010            PHD$L_R12        000000B8            

MMG$EXTRADYNWS   00000074 RG    04   PCB$V_WAKEPEN  = 0000000C            PHD$L_R13        000000BC            

MMG$FREWSLE      ********   X   04   PCB$V_WALL     = 0000000D            PHD$L_R2         00000090            

MMG$SVAPTECHK    ********   X   04   PCB$W_APTCNT     00000034            PHD$L_R3         00000094            

MMG$SWAPWSLE     ********   X   04   PCB$W_ASTCNT     0000003C            PHD$L_R4         00000098            

MMG$WSLEPFN      ********   X   04   PCB$W_BIOCNT     0000003E            PHD$L_R5         0000009C            

MMG$WSPEAKCHK    000000BA RG    03   PCB$W_BIOLM      00000040            PHD$L_R6         000000A0            

MOVEACTIVE       00000017 R     04   PCB$W_BYTCNT     00000042            PHD$L_R7         000000A4            

PAGCNT         = 00000004            PCB$W_BYTLM      00000068            PHD$L_R8         000000A8            

PCB$B_ASTACT     0000000C            PCB$W_DIOCNT     00000044            PHD$L_R9         000000AC            

PCB$B_ASTEN      0000000D            PCB$W_DIOLM      00000046            PHD$L_REFERFLT   00000014            

PCB$B_PRI        0000000B            PCB$W_FILCNT     00000048            PHD$L_SSP        00000080            

PCB$B_PRIB       00000033            PCB$W_GPGCNT     00000038            PHD$L_USP        00000084            

PCB$B_TYPE       0000000A            PCB$W_GRP        00000022            PHD$L_WSL        00000118            

PCB$B_WEFC       00000032            PCB$W_MEM        00000020            PHD$M_DALCSTX  = 00000002            

PCB$C_LENGTH     0000007C            PCB$W_MTXCNT     0000000E            PHD$M_PFMFLG   = 00000001            

PCB$K_LENGTH     0000007C            PCB$W_PPGCNT     0000003A            PHD$M_WSPEAKCHK= 00000004            

PCB$L_ASTQBL     00000014            PCB$W_PRCCNT     0000006A            PHD$Q_PRIVMSK    00000000            

PCB$L_ASTQFL     00000010            PCB$W_SIZE       00000008            PHD$S_ASTLVL   = 00000008            

PCB$L_EFC2P      00000058            PCB$W_STATE      00000030            PHD$S_P0LR     = 00000018            

PCB$L_EFC3P      0000005C            PCB$W_TMBU       00000036            PHD$V_ASTLVL   = 00000018            

PCB$L_EFCS       00000050            PCB$W_TQCNT      0000004A            PHD$V_DALCSTX  = 00000001            

PCB$L_EFCU       00000054            PFN$GL_PHYPGCNT  ********   X   03   PHD$V_P0LR     = 00000000            

PCB$L_EFWM       0000004C            PHD$B_ASTLVL     000000CF            PHD$V_PFMFLG   = 00000000            

PCB$L_OWNER      0000001C            PHD$B_DFPFC      00000038            PHD$V_WSPEAKCHK= 00000002            

PCB$L_PHD        00000064            PHD$B_PAGFIL     0000001F            PHD$W_ASTLM      00000044            

PCB$L_PHYPCB     00000018            PHD$B_PGTBPFC    00000039            PHD$W_BAK        00000048            

PCB$L_PID        00000060            PHD$C_LENGTH     00000118            PHD$W_DFWSCNT    0000001A            

PCB$L_PQB        0000004C            PHD$C_PHDPAGCTX= 00000008            PHD$W_EMPTPG     000000D8            

PCB$L_SQBL       00000004            PHD$K_LENGTH     00000118            PHD$W_EXTDYNWS   00000076            

PCB$L_SQFL       00000000            PHD$L_BIOCNT     00000054            PHD$W_FILLM      00000060            

PCB$L_STS        00000028            PHD$L_CPULIM     00000058            PHD$W_FLAGS      0000003A            

PCB$L_UIC        00000020            PHD$L_CPUTIM     0000003C            PHD$W_PHVINDEX   00000046            

PCB$L_WSSWP      00000024            PHD$L_DIOCNT     00000050            PHD$W_PRCLM      00000042            

PCB$L_WTIME      0000002C            PHD$L_ESP        0000007C            PHD$W_PST        00000020            

PCB$T_LNAME      0000006C            PHD$L_FREP0VA    00000028            PHD$W_PSTBASMAX  0000004A            

PCB$V_ASTPEN   = 00000011            PHD$L_FREP1VA    00000030            PHD$W_PSTFREE    00000026            

PCB$V_BATCH    = 0000000E            PHD$L_FREPTECNT  0000002C            PHD$W_PSTLAST    00000024            

SYSADJWSL       - SYSTEM SERVICE ADJUST WORKING SET LIMIT        21-AUG-1978 20:18:07   VAX-11 MACRO X0.3-11               Page  11

SYMBOL TABLE                                                                                                                     (5)



PHD$W_PTCNTACT   00000070            PTE$C_ER       = 38000000            SEC$K_LENGTH     00000020            

PHD$W_PTCNTLCK   0000006C            PTE$C_ERKW     = 30000000            SEC$K_MATALL   = 00000000            

PHD$W_PTCNTMAX   00000072            PTE$C_EW       = 28000000            SEC$K_MATEQU   = 00000001            

PHD$W_PTCNTVAL   0000006E            PTE$C_KOWN     = 00000000            SEC$K_MATLEQ   = 00000002            

PHD$W_QUANT      00000040            PTE$C_KR       = 18000000            SEC$L_CCB        00000000            

PHD$W_TQLM       00000062            PTE$C_KW       = 10000000            SEC$L_GSD        00000000            

PHD$W_WSAUTH     0000000A            PTE$C_NA       = 00000000            SEC$L_PAGCNT     0000001C            

PHD$W_WSDYN      0000000E            PTE$C_SOWN     = 01000000            SEC$L_REFCNT     00000018            

PHD$W_WSFLUID    00000074            PTE$C_SR       = 58000000            SEC$L_VBN        00000010            

PHD$W_WSLAST     00000012            PTE$C_SREW     = 48000000            SEC$L_VPXPFC     00000008            

PHD$W_WSLIST     00000008            PTE$C_SRKW     = 50000000            SEC$L_WINDOW     0000000C            

PHD$W_WSLOCK     0000000C            PTE$C_SW       = 40000000            SEC$M_AMOD     = 00000300            

PHD$W_WSLX       0000004A            PTE$C_UOWN     = 01800000            SEC$M_CRF      = 00000002            

PHD$W_WSNEXT     00000010            PTE$C_UR       = 78000000            SEC$M_DZRO     = 00000004            

PHD$W_WSQUOTA    00000018            PTE$C_UREW     = 68000000            SEC$M_GBL      = 00000001            

PR$_ACCR       = 00000029            PTE$C_URKW     = 70000000            SEC$M_PERM     = 00004000            

PR$_ACCS       = 00000028            PTE$C_URSW     = 60000000            SEC$M_SYSGBL   = 00008000            

PR$_ASTLVL     = 00000013            PTE$C_UW       = 20000000            SEC$M_WRT      = 00000008            

PR$_ESP        = 00000001            PTE$M_CRF      = 00010000            SEC$S_AMOD     = 00000002            

PR$_ICCS       = 00000018            PTE$M_DZRO     = 00020000            SEC$S_CRF      = 00000001            

PR$_ICR        = 0000001A            PTE$M_GPTX     = 003FFFFF            SEC$S_DZRO     = 00000001            

PR$_IPL        = 00000012            PTE$M_MODIFY   = 04000000            SEC$S_GBL      = 00000001            

PR$_ISP        = 00000004            PTE$M_OWN      = 01800000            SEC$S_PERM     = 00000001            

PR$_KSP        = 00000000            PTE$M_PFN      = 001FFFFF            SEC$S_PFC      = 00000008            

PR$_MAPEN      = 00000038            PTE$M_PGFLVB   = 003FFFFF            SEC$S_SYSGBL   = 00000001            

PR$_NICR       = 00000019            PTE$M_PROT     = 78000000            SEC$S_VPX      = 00000016            

PR$_P0BR       = 00000008            PTE$M_TYP0     = 00400000            SEC$S_WRT      = 00000001            

PR$_P0LR       = 00000009            PTE$M_TYP1     = 04000000            SEC$V_AMOD     = 00000008            

PR$_P1BR       = 0000000A            PTE$M_VALID    = 80000000            SEC$V_CRF      = 00000001            

PR$_P1LR       = 0000000B            PTE$M_WRT      = 00040000            SEC$V_DZRO     = 00000002            

PR$_PCBB       = 00000010            PTE$S_GPTX     = 00000016            SEC$V_GBL      = 00000000            

PR$_PME        = 0000003D            PTE$S_OWN      = 00000002            SEC$V_PERM     = 0000000E            

PR$_RXCS       = 00000020            PTE$S_PFN      = 00000015            SEC$V_PFC      = 00000018            

PR$_RXDB       = 00000021            PTE$S_PGFLVB   = 00000016            SEC$V_SYSGBL   = 0000000F            

PR$_SBIER      = 00000034            PTE$S_PROT     = 00000004            SEC$V_VPX      = 00000000            

PR$_SBIFS      = 00000030            PTE$S_STX      = 00000010            SEC$V_WRT      = 00000003            

PR$_SBIMT      = 00000033            PTE$V_CRF      = 00000010            SEC$W_FLAGS      00000014            

PR$_SBIQC      = 00000036            PTE$V_DZRO     = 00000011            SEC$W_SECXBL     00000006            

PR$_SBIS       = 00000031            PTE$V_GPTX     = 00000000            SEC$W_SECXFL     00000004            

PR$_SBISC      = 00000032            PTE$V_MODIFY   = 0000001A            SGN$C_MINWSCNT   ********   X   03   

PR$_SBITA      = 00000035            PTE$V_OWN      = 00000017            SGN$GL_MAXWSCNT  ********   X   03   

PR$_SBR        = 0000000C            PTE$V_PFN      = 00000000            SHRINK           0000006C R     03   

PR$_SCBB       = 00000011            PTE$V_PGFLVB   = 00000000            SS$_ABORT      = 0000002C            

PR$_SID        = 0000003E            PTE$V_PROT     = 0000001B            SS$_ACCONFLICT = 00000800            

PR$_SIRR       = 00000014            PTE$V_STX      = 00000000            SS$_ACCVIO     = 0000000C            

PR$_SISR       = 00000015            PTE$V_TYP0     = 00000016            SS$_ACPVAFUL   = 000002FC            

PR$_SLR        = 0000000D            PTE$V_TYP1     = 0000001A            SS$_ARTRES     = 00000474            

PR$_SSP        = 00000002            PTE$V_VALID    = 0000001F            SS$_ASTFLT     = 0000040C            

PR$_TBIA       = 00000039            PTE$V_WRT      = 00000012            SS$_BADATTRIB  = 00000034            

PR$_TBIS       = 0000003A            RESOURCEWAIT     00000056 R     04   SS$_BADCHKSUM  = 00000808            

PR$_TODR       = 0000001B            SCH$GL_FREELIM   ********   X   03   SS$_BADESCAPE  = 0000003C            

PR$_TXCS       = 00000022            SCH$GL_RESMASK   ********   X   04   SS$_BADFILEHDR = 00000810            

PR$_TXDB       = 00000023            SCH$GQ_MWAIT     ********   X   04   SS$_BADFILENAME= 00000818            

PR$_USP        = 00000003            SCH$WAIT         ********   X   04   SS$_BADFILEVER = 00000820            

PR$_WCSA       = 0000002C            SEC$B_AMOD       00000015            SS$_BADIMGHDR  = 00000044            

PR$_WCSD       = 0000002D            SEC$B_PFC        0000000B            SS$_BADIRECTORY= 00000828            

PTE$C_EOWN     = 00800000            SEC$C_LENGTH     00000020            SS$_BADPARAM   = 00000014            

SYSADJWSL       - SYSTEM SERVICE ADJUST WORKING SET LIMIT        21-AUG-1978 20:18:07   VAX-11 MACRO X0.3-11               Page  12

SYMBOL TABLE                                                                                                                     (5)



SS$_BADSTACK   = 000002B4            SS$_FLTDIV     = 00000494            SS$_NOMBX      = 00000274            

SS$_BEGOFFILE  = 00000938            SS$_FLTOVF     = 0000048C            SS$_NOMOREFILES= 00000930            

SS$_BLOCKCNTERR= 00000940            SS$_FLTUND     = 0000049C            SS$_NONEXDRV   = 000001C4            

SS$_BREAK      = 00000414            SS$_FORMAT     = 000000BC            SS$_NONEXPR    = 000008E8            

SS$_BUFBYTALI  = 0000030C            SS$_GPTFULL    = 000000C4            SS$_NONLOCAL   = 000008F0            

SS$_BUFFEROVF  = 00000601            SS$_GSDFULL    = 000000CC            SS$_NOPRIV     = 00000024            

SS$_BUGCHECK   = 000002A4            SS$_HANGUP     = 000002CC            SS$_NORMAL     = 00000001            

SS$_CANCEL     = 00000830            SS$_HEADERFULL = 000008C8            SS$_NOSIGNAL   = 00000900            

SS$_CHANINTLK  = 0000004C            SS$_IDXFILEFULL= 000008D0            SS$_NOSOLICIT  = 00000284            

SS$_CLIFRCEXT  = 00000980            SS$_ILLBLKNUM  = 000000DC            SS$_NOSUCHDEV  = 00000908            

SS$_CMODSUPR   = 0000041C            SS$_ILLCNTRFUNC= 000000E4            SS$_NOSUCHFILE = 00000910            

SS$_CMODUSER   = 00000424            SS$_ILLEFC     = 000000EC            SS$_NOSUCHNODE = 0000028C            

SS$_COMPAT     = 0000042C            SS$_ILLIOFUNC  = 000000F4            SS$_NOSUCHSEC  = 00000978            

SS$_CONTINUE   = 00000001            SS$_ILLLBLAST  = 00000968            SS$_NOTAPEOP   = 00000264            

SS$_CONTROLC   = 00000651            SS$_ILLPAGCNT  = 000000FC            SS$_NOTFILEDEV = 000001CC            

SS$_CONTROLO   = 00000609            SS$_ILLSEQOP   = 000002DC            SS$_NOTINTBLSZ = 000001D4            

SS$_CONTROLY   = 00000611            SS$_ILLSER     = 00000104            SS$_NOTLABELMT = 000001DC            

SS$_CREATED    = 00000619            SS$_ILLUSRLBLRD= 00000958            SS$_NOTMODIFIED= 00000659            

SS$_CTRLERR    = 00000054            SS$_ILLUSRLBLWT= 00000960            SS$_NOTNETDEV  = 000002EC            

SS$_DATACHECK  = 0000005C            SS$_INCVOLLABEL= 0000010C            SS$_NOTRAN     = 00000629            

SS$_DATAOVERUN = 00000838            SS$_INSFARG    = 00000114            SS$_NOTSQDEV   = 000001E4            

SS$_DEBUG      = 0000046C            SS$_INSFMEM    = 00000124            SS$_OPCCUS     = 00000434            

SS$_DECOVF     = 000004A4            SS$_INSFRAME   = 0000012C            SS$_OPCDEC     = 0000043C            

SS$_DEVACTIVE  = 000002C4            SS$_INSFWSL    = 0000011C            SS$_OPINCOMPL  = 000002D4            

SS$_DEVALLOC   = 00000840            SS$_INTDIV     = 00000484            SS$_PAGOWNVIO  = 000001EC            

SS$_DEVALRALLOC= 00000641            SS$_INTOVF     = 0000047C            SS$_PAGRDERR   = 00000444            

SS$_DEVASSIGN  = 00000848            SS$_IVADDR     = 00000134            SS$_PARITY     = 000001F4            

SS$_DEVFOREIGN = 00000064            SS$_IVCHAN     = 0000013C            SS$_PARTESCAPE = 000001FC            

SS$_DEVICEFULL = 00000850            SS$_IVCHNLSEC  = 0000026C            SS$_PFMBSY     = 00000204            

SS$_DEVMOUNT   = 0000006C            SS$_IVDEVNAM   = 00000144            SS$_PLHLDR     = 00000404            

SS$_DEVNOTALLOC= 00000858            SS$_IVGSDNAM   = 0000014C            SS$_PSTFULL    = 0000020C            

SS$_DEVNOTMBX  = 00000074            SS$_IVLOGNAM   = 00000154            SS$_RADRMOD    = 0000044C            

SS$_DEVNOTMOUNT= 0000007C            SS$_IVLOGTAB   = 0000015C            SS$_REJECT     = 00000294            

SS$_DEVOFFLINE = 00000084            SS$_IVPROTECT  = 000002F4            SS$_REMOTE     = 00000649            

SS$_DIRFULL    = 00000860            SS$_IVQUOTAL   = 00000164            SS$_RESIGNAL   = 00000918            

SS$_DRVERR     = 0000008C            SS$_IVSECFLG   = 0000016C            SS$_RESULTOVF  = 00000214            

SS$_DUPFILENAME= 00000868            SS$_IVSECIDCTL = 000002E4            SS$_ROPRAND    = 00000454            

SS$_DUPLNAM    = 00000094            SS$_IVSSRQ     = 00000174            SS$_SECTBLFUL  = 0000021C            

SS$_ENDOFFILE  = 00000870            SS$_IVSTSFLG   = 0000017C            SS$_SSFAIL     = 0000045C            

SS$_ENDOFTAPE  = 00000878            SS$_IVTIME     = 00000184            SS$_SUBRNG     = 000004AC            

SS$_ENDOFUSRLBL= 00000970            SS$_LCKPAGFUL  = 000000D4            SS$_SUPERSEDE  = 00000631            

SS$_EXQUOTA    = 0000001C            SS$_LENVIO     = 0000018C            SS$_TAPEPOSLOST= 00000224            

SS$_EXTIDXFILE = 00000880            SS$_LKWSETFUL  = 00000194            SS$_TBIT       = 00000464            

SS$_FCPREADERR = 00000888            SS$_MBFULL     = 000008D8            SS$_TIMEOUT    = 0000022C            

SS$_FCPREPSTN  = 00000988            SS$_MBTOOSML   = 0000019C            SS$_TOOMANYVER = 00000990            

SS$_FCPREWNDERR= 00000890            SS$_MCHECK     = 000002BC            SS$_TOOMUCHDATA= 0000029C            

SS$_FCPSPACERR = 00000898            SS$_MEDOFL     = 000001A4            SS$_UNASEFC    = 00000234            

SS$_FCPWRITERR = 000008A0            SS$_MSGNOTFND  = 00000621            SS$_UNSAFE     = 0000023C            

SS$_FILACCERR  = 0000009C            SS$_MTLBLLONG  = 00000304            SS$_UNWIND     = 00000920            

SS$_FILALRACC  = 000000A4            SS$_MUSTCLOSEFL= 00000948            SS$_UNWINDING  = 00000928            

SS$_FILELOCKED = 000008A8            SS$_NOAQB      = 00000314            SS$_VASFULL    = 00000244            

SS$_FILENUMCHK = 000008B0            SS$_NODATA     = 000001AC            SS$_VECINUSE   = 0000024C            

SS$_FILESEQCHK = 000008B8            SS$_NOHANDLER  = 000008F8            SS$_VOLINV     = 00000254            

SS$_FILESTRUCT = 000008C0            SS$_NOHOMEBLK  = 000008E0            SS$_WAITUSRLBL = 00000950            

SS$_FILNOTACC  = 000000AC            SS$_NOIOCHAN   = 000001B4            SS$_WASCLR     = 00000001            

SS$_FILNOTCNTG = 000002AC            SS$_NOLINKS    = 0000027C            SS$_WASECC     = 00000639            

SS$_FILNOTEXP  = 000000B4            SS$_NOLOGNAM   = 000001BC            SS$_WASSET     = 00000009            

SYSADJWSL       - SYSTEM SERVICE ADJUST WORKING SET LIMIT        21-AUG-1978 20:18:07   VAX-11 MACRO X0.3-11               Page  13

SYMBOL TABLE                                                                                                                     (5)



SS$_WRITLCK    = 0000025C            

SS$_WRONGACP   = 0000031C            

WSETLM         = 00000008            





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  

Y$EXEPAGED       000000D4      03     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  

$MMGCOD          000000A2      04     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

11824. BYTES LEFT IN FREE MEMORY POOL.

3120. BYTES OF RECLAIMED MEMORY.

OBJ$:SYSADJWSL,LIS$:SYSADJWSL/-SP=EXECML$/ML,SRC$:SYSADJWSL

7 MLB DIR RDS - 821 GETS TO DEFINE 19 MACROS. 59 INTER. FILE WRITES. 

