SYSPURGWS       - Purge Working Set System Service               21-AUG-1978 20:38:01   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)    3700  DECLARATIONS

   (2)     100  PURGWS - Purge Working Set

   (4)     100  PURGWSSCN - Scan Working Set to Purge Pages

SYSPURGWS       - Purge Working Set System Service               21-AUG-1978 20:38:01   VAX-11 MACRO X0.3-11               Page   1

X0103                                                                                                                            (1)



                                     0000   100 	.TITLE	SYSPURGWS - Purge Working Set System Service

                                     0000   200 	.IDENT	/X0103/

                                     0000   300 ;

                                     0000   400 ; COPYRIGHT (C) 1978

                                     0000   500 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754

                                     0000   600 ;

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

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

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

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

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

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

                                     0000  1300 ; REMAIN IN DEC.

                                     0000  1400 ;

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

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

                                     0000  1700 ; CORPORATION.

                                     0000  1800 ;

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

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

                                     0000  2100 

                                     0000  2200 ;++

                                     0000  2300 ; FACILITY:

                                     0000  2400 ;

                                     0000  2500 ; ABSTRACT:

                                     0000  2600 ;

                                     0000  2700 ; ENVIRONMENT:

                                     0000  2800 ;

                                     0000  2900 ; AUTHOR: PETER H. LIPMAN	, CREATION DATE: 22-MAY-78

                                     0000  3000 ;

                                     0000  3100 ; MODIFIED BY:

                                     0000  3200 ;

                                     0000  3300 ;	, : VERSION

                                     0000  3400 ; 01	- 

                                     0000  3500 ;--

SYSPURGWS       - Purge Working Set System Service               21-AUG-1978 20:38:01   VAX-11 MACRO X0.3-11               Page   2

X0103           DECLARATIONS                                                                                                     (1)



                                     0000  3700 	.SBTTL	DECLARATIONS

                                     0000  3800 ;

                                     0000  3900 ; INCLUDE FILES:

                                     0000  4000 ;

                                     0000  4400 	$IPLDEF				;Processor priority levels

                                     0000  4500 	$PCBDEF				;Process control block definitions

                                     0000  4600 	$PFNDEF				;Page frame number data base definitions

                                     0000  4700 	$PHDDEF				;Process header definitions

                                     0000  4800 	$PRDEF				;Processor register definitions

                                     0000  4900 	$PSLDEF				;Processor status long word definitions

                                     0000  5000 	$PTEDEF				;Page table entry definitions

                                     0000  5200 	$SSDEF				;System status code definitions

                                     0000  5300 	$WSLDEF				;Working set list definitions

                                     0000  5400 ;

                                     0000  5500 ; MACROS:

                                     0000  5600 ;

                                     0000  5700 

                                     0000  5800 ;

                                     0000  5900 ; EQUATED SYMBOLS:

                                     0000  6000 ;

                                     0000  6100 ; Offset from AP

                                     0000  6200 ;

                           00000004  0000  6300 	INADR		= 4		;Offset to input range

                                     0000 12500 ;

                                     0000 12600 ; OWN STORAGE:

                                     0000 12700 ;

                                     0000 12800 	.LIST	MEB

SYSPURGWS       - Purge Working Set System Service               21-AUG-1978 20:38:01   VAX-11 MACRO X0.3-11               Page   3

X0103           PURGWS - Purge Working Set                                                                                       (2)



                                     0000   100 	.SBTTL	PURGWS - Purge Working Set

                                     0000   200 ;++

                                     0000   300 ; FUNCTIONAL DESCRIPTION:

                                     0000   400 ;

                                     0000  1000 ;

                                     0000  1100 ; CALLING SEQUENCE:

                                     0000  1200 ;

                                     0000  1300 ;	CALLG	ARGLIST,G^SYS$PURGWS

                                     0000  1400 ;

                                     0000  1500 ;

                                     0000  1600 ; INPUT PARAMETERS:

                                     0000  1700 ;

                                     0000  1800 ;	INADR(AP) = Address of 2 long words the 1st of which specifies

                                     0000  1810 ;		the starting virtual address to purge, the 2nd specifies

                                     0000  1820 ;		the ending virtual address to purge (inclusive).

                                     0000  2100 ;

                                     0000  2200 ; IMPLICIT INPUTS:

                                     0000  2300 ;	NONE

                                     0000  2400 ;

                                     0000  2500 ; OUTPUT PARAMETERS:

                                     0000  2600 ;

                                     0000  2700 ;	R0 = System status code

                                     0000  2800 ;

                                     0000  2900 ; IMPLICIT OUTPUTS:

                                     0000  3000 ;

                                     0000  3100 ;	NONE

                                     0000  3200 ;

                                     0000  3300 ; COMPLETION CODES:

                                     0000  3400 ;

                                     0000  3500 ;	SS$_NORMAL			;Successful completion

                                     0000  3600 ;	SS$_ACCVIO			;Access violation

                                     0000  3900 ;

                                     0000  4000 ; SIDE EFFECTS:

                                     0000  4100 ;	NONE

                                     0000  4200 ;

                                     0000  4300 ;--

                                     0000  4400 ;

                                     0000  4401 ; **********************************************************************

                                     0000  4402 ;

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

                                     0000  4404 ;

                                 00000000  4405 	.PSECT	Y$EXEPAGED

                                     0000  4406 ;

                                     0000  4407 ; **********************************************************************

                                     0000  4408 ;

                               01FC' 0000  4500 	.ENTRY	EXE$PURGWS,^M<R2,R3,R4,R5,R6,R7,R8>

                                     0002  4600 

            56         31'AF     9E  0002  4700 	MOVAB	B^MMG$PURGWSPAG,R6	;Address of purge subroutine

            5E            00'    C2  0006  4800 	SUBL	S^#CDL$C_LENGTH,SP	;Reserve scratch area

            52         04 AC     D0  0009  4810 	MOVL	INADR(AP),R2		;Get address range parameter

                          1E     13  000D  4820 	BEQL	20$			;Branch if none specified

                                     000F  4830 	IFNORD	#8,(R2),20$		;Branch if not readable by caller

            08            00     0C  000F       		PROBER	#0,#8,(R2)

                          62         0012       

                          18     13  0013       		BEQL	20$

            52            62     7D  0015  4840 	MOVQ	(R2),R2			;R2 = STARTVA, R3 = ENDVA

                       00'AD     D4  0018  4870 	CLRL	B^CDL$L_SAVRETADR(FP)	;Init return range

SYSPURGWS       - Purge Working Set System Service               21-AUG-1978 20:38:01   VAX-11 MACRO X0.3-11               Page   4

X0103           PURGWS - Purge Working Set                                                                                       (2)



                       00'AD     D4  001B  4875 	CLRL	B^CDL$L_CALLEDIPL(FP)	;Init called IPL

                          50     DC  001E  4880 	MOVPSL	R0			;Get Processor Status

                          16     EF  0020  4890 	EXTZV	#PSL$V_PRVMOD,#PSL$S_PRVMOD,- ;Set access mode

            50            02         0022  4900 		R0,B^CDL$L_MAXACMODE(FP) ;from caller's mode

                       00'AD         0024       

                                     0026  4910 	SETIPL	#IPL$_ASTDEL		;Raise to ASTDEL

            12            02     DA  0026       		MTPR	#IPL$_ASTDEL,S^#PR$_IPL

                          FFD4'  30  0029  4990 	BSBW	MMG$CRECOM2		;Common code for range handling

                                 04  002C  5000 	RET				;Exit from service

                                     002D  5010 ;

                                     002D  5020 ; No input address range was specified, or the caller could not read it.

                                     002D  5030 ;

            50            0C     3C  002D  5100 20$:	MOVZWL	#SS$_ACCVIO,R0		;Return error if no input range

                                 04  0030  5200 	RET

SYSPURGWS       - Purge Working Set System Service               21-AUG-1978 20:38:01   VAX-11 MACRO X0.3-11               Page   5

X0103           PURGWS - Purge Working Set                                                                                       (3)



                                     0031   200 ;++

                                     0031   300 ; FUNCTIONAL DESCRIPTION:

                                     0031   400 ;

                                     0031   800 ;

                                     0031   900 ; CALLING SEQUENCE:

                                     0031  1000 ;

                                     0031  1100 ;	BSBW	MMG$PURGWSPAG

                                     0031  1200 ;

                                     0031  1300 ;

                                     0031  1400 ; INPUT PARAMETERS:

                                     0031  1500 ;

                                     0031  1600 ;	R0 = ACCESS MODE TO CHECK AGAINST PAGE OWNER

                                     0031  1700 ;	R2 = VIRTUAL ADDRESS (LOW 9 BITS = 0)

                                     0031  1800 ;	R4 = PCB ADDRESS

                                     0031  1900 ;	R5 = PROCESS HEADER ADDRESS - P1 OR SYSTEM SPACE

                                     0031  2000 ;	R6 = COUNT - 1 OF PAGES REMAINING TO  BE DELETED INCLUDING THIS ONE

                                     0031  2100 ;	R7 = +^X200 IF GOING FORWARD IN ADDRESS SPACE

                                     0031  2200 ;	   = -^X200 IF GOING BACKWARDS IN ADDRESS SPACE

                                     0031  2300 ;	IPL = ASTLVL

                                     0031  2400 ;

                                     0031  2500 ; IMPLICIT INPUTS:

                                     0031  2600 ;	NONE

                                     0031  2700 ;

                                     0031  2800 ; OUTPUT PARAMETERS:

                                     0031  2900 ;

                                     0031  3000 ;	R0 = STATUS CODE

                                     0031  3100 ;	R2 = Address of last page processed

                                     0031  3150 ;	R6 = Count of pages remaining ( - 1) to process

                                     0031  3200 ;

                                     0031  3300 ; IMPLICIT OUTPUTS:

                                     0031  3400 ;	NONE

                                     0031  3500 ;

                                     0031  3600 ; COMPLETION CODES:

                                     0031  3700 ;

                                     0031  3800 ;	SS$_NORMAL			;SUCCESSFUL RETURN

                                     0031  4000 ;

                                     0031  4100 ; SIDE EFFECTS:

                                     0031  4200 ;	NONE

                                     0031  4300 ;

                                     0031  4400 ;--

                                     0031  4401 ;

                                     0031  4402 ; **********************************************************************

                                     0031  4403 ;

                                     0031  4404 ; **************** THE FOLLOWING CODE MAY BE PAGED *****************

                                     0031  4405 ;

                                 00000031  4406 	.PSECT	Y$EXEPAGED

                                     0031  4407 ;

                                     0031  4408 ; **********************************************************************

                                     0031  4409 ;

                                     0031  4500 MMG$PURGWSPAG:

            58            01     D0  0031  4600 	MOVL	#1,R8			;Purging general pages

                 00000003'EF     16  0034  4700 	JSB	MMG$PURGWSSCN		;Scan working set to purge the pages

                          56     D4  003A  5000 	CLRL	R6			;End of range

            50            01     3C  003C  5100 	MOVZWL	#SS$_NORMAL,R0		;Successful completion

                                 05  003F  5200 	RSB

SYSPURGWS       - Purge Working Set System Service               21-AUG-1978 20:38:01   VAX-11 MACRO X0.3-11               Page   6

X0103           PURGWSSCN - Scan Working Set to Purge Pages                                                                      (4)



                                     0040   100 	.SBTTL	PURGWSSCN - Scan Working Set to Purge Pages

                                     0040   200 ;++

                                     0040   300 ; FUNCTIONAL DESCRIPTION:

                                     0040   400 ;

                                     0040   500 ;	This routine is called to do a scan of the working set list

                                     0040   600 ; for pages in the specified virtual address range and delete those

                                     0040   700 ; pages from the working set list.

                                     0040   800 ;

                                     0040   900 ; CALLING SEQUENCE:

                                     0040  1000 ;

                                     0040  1100 ;	BSBW	MMG$PURGWSSCN

                                     0040  1200 ;

                                     0040  1300 ; INPUT PARAMETERS:

                                     0040  1400 ;

                                     0040  1500 ;	R0 = Access mode in low byte, flags in rest

                                     0040  1600 ;	R2 = STARTVA

                                     0040  1700 ;	R4 = Process Control Block

                                     0040  1800 ;	R5 = Process Header Address (P1 space ok)

                                     0040  1900 ;	R6 = Number of pages - 1 remaining in range of pages

                                     0040  2000 ;	R7 = +^X200 if going forward in the address space

                                     0040  2010 ;	   = -^X200 if going backwards in the address space

                                     0040  2020 ;	R8 = 0 if scanning only for global pages in the specified range

                                     0040  2025 ;	     Used by MMG$DELPAG when a GLOBAL page is found in the range

                                     0040  2030 ;	   = 1 if scanning for any pages in the specified range

                                     0040  2065 ;	     Used by the $PURGWS System Service

                                     0040  2100 ;

                                     0040  2200 ; IMPLICIT INPUTS:

                                     0040  2300 ;

                                     0040  2400 ;	NONE

                                     0040  2500 ;

                                     0040  2600 ; OUTPUT PARAMETERS:

                                     0040  2700 ;

                                     0040  2800 ;	R0,R2 PRESERVED

                                     0040  2900 ;

                                     0040  3000 ; IMPLICIT OUTPUTS:

                                     0040  3100 ;

                                     0040  3200 ;	NONE

                                     0040  3300 ;

                                     0040  3400 ; COMPLETION CODES:

                                     0040  3500 ;

                                     0040  3600 ;	NONE

                                     0040  3700 ;

                                     0040  3800 ; SIDE EFFECTS:

                                     0040  3900 ;

                                     0040  4000 ;	NONE

                                     0040  4100 ;

                                     0040  4200 ;--

SYSPURGWS       - Purge Working Set System Service               21-AUG-1978 20:38:01   VAX-11 MACRO X0.3-11               Page   7

X0103           PURGWSSCN - Scan Working Set to Purge Pages                                                                      (5)



                                     0040   100 ;

                                     0040   200 ; **********************************************************************

                                     0040   300 ;

                                     0040   400 ; **************** THE FOLLOWING CODE MUST BE RESIDENT *****************

                                     0040   500 ;

                                 00000000   600 	.PSECT	$MMGCOD

                                     0000   700 ;

                                     0000   800 ; **********************************************************************

                                     0000   900 ;

                                     0000   910 	.ENABL	LSB

                                     0000   920 

                                     0000   930 PURGWS_EMPTY:

                          00B2   31  0000   940 	BRW	80$			;No pages to be purged

                                     0003   950 

                                     0003  1000 MMG$PURGWSSCN::

                                     0003  1100 	DSBINT	#IPL$_SYNCH		;Save called IPL, raise to SYNCH

            7E            12     DB  0003       		MFPR	S^#PR$_IPL,-(SP)

            12            07     DA  0006       		MTPR	#IPL$_SYNCH,S^#PR$_IPL

                                     0009  1200 					;no swapping while scanning the WSL

            51         0C A5     3C  0009  1250 	MOVZWL	PHD$W_WSLOCK(R5),R1	;Start scanning with locked pages

                                     000D  1260 					;if this is a GLOBAL scan

            7E         38 A4     3C  000D  1300 	MOVZWL	PCB$W_GPGCNT(R4),-(SP)	;Count of GLOBAL pages in WSL

            10            58     E9  0011  1310 	BLBC	R8,5$			;Branch if scanning for GLOBAL pages

            51         0E A5     3C  0014  1320 	MOVZWL	PHD$W_WSDYN(R5),R1	;Don't consider the locked pages

                                     0018  1330 					;when scanning for all page types

            6E         3A A4     A0  0018  1340 	ADDW	PCB$W_PPGCNT(R4),(SP)	;Calculate number of WSL entries

            51         08 A5     A3  001C  1350 	SUBW3	PHD$W_WSLIST(R5),R1,R3	;Number of entries in locked area

                          53         0020       

            6E            53     A2  0021  1360 	SUBW	R3,(SP)			;Entry count = GPGCNT + PPGCNT - locked

                          DA     13  0024  1390 5$:	BEQL	PURGWS_EMPTY		;Branch if no entries to scan

                          05     BB  0026  1500 	PUSHR	#^M<R0,R2>		;Save STARTVA, access mode

            57            1F     E0  0028  1600 	BBS	#31,R7,10$		;Branch if going backwards

                          0B         002B       

            52         F7 8F     78  002C  1700 	ASHL	#-9,R2,R3		;Low virtual page number

                          53         0030       

            53            56     C1  0031  1800 	ADDL3	R6,R3,R0		;High virtual page number

                          50         0034       

                          09     11  0035  1900 	BRB	20$

            52         F7 8F     78  0037  2000 10$:	ASHL	#-9,R2,R0		;High virtual page number

                          50         003B       

            50            56     C3  003C  2100 	SUBL3	R6,R0,R3		;Low virtual page number

                          53         003F       

                          09     BB  0040  2200 20$:	PUSHR	#^M<R0,R3>		;Push high VPN, low VPN

                                     0042  2300 ;

                                     0042  2400 ; 0(SP)  = High virtual page number

                                     0042  2500 ; 4(SP)  = Low virtual page number

                                     0042  2600 ; 8(SP)  = Access mode

                                     0042  2700 ; 12(SP) = Saved STARVA

                                     0042  2800 ; 16(SP) = Count of pages to scan for

                                     0042  2900 ; 20(SP) = Saved caller's IPL

                                     0042  3000 ;

            52            6541   D0  0042  3400 24$:	MOVL	(R5)[R1],R2		;Fetch next WSLE

            5C            52     E9  0046  3500 	BLBC	R2,60$			;Branch if not valid

            07            58     E9  0049  3510 	BLBC	R8,26$			;Branch if just scanning for GLOBALS

            52            30     93  004C  3520 	BITB	#<WSL$M_WSLOCK ! WSL$M_PFNLOCK>,R2 ;All page types,

                          09     13  004F  3525 	BEQL	28$			;but no locked ones

                          4D     11  0051  3530 	BRB	50$

SYSPURGWS       - Purge Working Set System Service               21-AUG-1978 20:38:01   VAX-11 MACRO X0.3-11               Page   8

X0103           PURGWSSCN - Scan Working Set to Purge Pages                                                                      (5)



            03            01     EC  0053  3600 26$:	CMPV	#WSL$V_PAGTYP,#WSL$S_PAGTYP,R2,#PFN$C_GLOBAL ;GLOBAL page?

            02            52         0056       

                          4B     19  0058  3700 	BLSS	60$			;Branch if not

            52         F7 8F     78  005A  3800 28$:	ASHL	#-9,R2,R0		;Get virtual page number

                          50         005E       

                          0B     19  005F  3850 	BLSS	32$			;If system address, then discard it.

                                     0061  3860 					;It is a page table page which is not

                                     0061  3870 					;locked in the working set.

         04 AE            50     D1  0061  3900 	CMPL	R0,4(SP)		;Above the low address?

                          39     19  0065  4000 	BLSS	50$			;Branch if no

            6E            50     D1  0067  4100 	CMPL	R0,(SP)			;Below the high address?

                          34     14  006A  4200 	BGTR	50$			;Branch if no

                          51     DD  006C  4300 32$:	PUSHL	R1			;Save the working set list index

                          FF8F'  30  006E  4400 	BSBW	MMG$SVAPTECHK		;Get the SVAPTE in R3

            51            6E     D0  0071  4420 	MOVL	(SP),R1			;Recover WSLX

            52            30     93  0074  4800 	BITB	#<WSL$M_WSLOCK ! WSL$M_PFNLOCK>,R2 ;Is this entry locked?

                          1F     13  0077  4820 	BEQL	35$			;Branch if not

            50         0C AE     9A  0079  4840 	MOVZBL	<8+4>(SP),R0		;Get access mode to check

            02            17     ED  007D  4860 	CMPZV	#PTE$V_OWN,#PTE$S_OWN,(R3),R0 ;Legal to unlock the page?

            50            63         0080       

                          1A     19  0082  4880 	BLSS	40$			;Branch if not, just skip it.

                          58     DD  0084  4920 	PUSHL	R8			;Save registsers

                          53     DD  0086  4930 	PUSHL	R3			;altered by unlock WSLE logic

                          FF75'  30  0088  4950 	BSBW	MMG$ULKGBLWSLE		;Unlock WSLE for GLOBAL page

            31            50     E9  008B  4960 	BLBC	R0,100$			;Error status should not be returned

                     0108 8F     BA  008E  4970 	POPR	#^M<R3,R8>		;Recover saved registers

            51         0E A5     3C  0092  4980 	MOVZWL	PHD$W_WSDYN(R5),R1	;New WSLX for this page

                          6E     D7  0096  4990 	DECL	(SP)			;Continue scanning from original wslx

                          FF65'  30  0098  5000 35$:	BSBW	MMG$FREWSLX		;Delete working set list entry

            1E            50     E9  009B  5100 	BLBC	R0,90$			;Branch if need to wait for page file

                          02     BA  009E  5200 40$:	POPR	#^M<R1>			;Recover WSLX to continue scan from

                       10 AE     D7  00A0  5300 50$:	DECL	16(SP)			;Count another page found

                          0B     15  00A3  5400 	BLEQ	70$			;Branch if no more to look for

            01         12 A5     3D  00A5  5500 60$:	ACBW	PHD$W_WSLAST(R5),#1,R1,24$ ;Next working set list index

            FF96          51         00A9       

                                     00AC  5600 ;

                                     00AC  5700 ; Did not find the calculated number of pages in the working set.

                                     00AC  5900 ;

                                     00AC  6000 	BUG_CHECK WSLPAGCNT,FATAL	;Working set list page count error

                               FEFF  00AC       		.WORD	^XFEFF

                               0004' 00AE       		.IIF IDN <FATAL>,<FATAL> , .WORD	BUG$_WSLPAGCNT!4

            5E            08     C0  00B0  6100 70$:	ADDL	#2*4,SP			;Clean off page numbers

                          05     BA  00B3  6200 	POPR	#^M<R0,R2>		;Restore R0 = access mode, R2 = STARTVA

            5E            04     C0  00B5  6300 80$:	ADDL	#1*4,SP			;Clean off page count

                                     00B8  6400 	ENBINT				;Restore caller's IPL

            12            8E     DA  00B8       		MTPR	(SP)+,S^#PR$_IPL

                                 05  00BB  6500 	RSB				;and exit to it

                                     00BC  6510 ;

                                     00BC  6520 ; FREWSLX needed to allocate page file and couldn't

                                     00BC  6530 ;

            DF            58     E8  00BC  6540 90$:	BLBS	R8,40$			;Leave it in working set if $PURGWS

                                     00BF  6600 ;

                                     00BF  6700 ; Error in unlocking a locked global page or

                                     00BF  6750 ; in freeing page from the working set list.

                                     00BF  6800 ;

                                     00BF  6900 100$:	BUG_CHECK PURGWSSCN,FATAL

                               FEFF  00BF       		.WORD	^XFEFF

SYSPURGWS       - Purge Working Set System Service               21-AUG-1978 20:38:01   VAX-11 MACRO X0.3-11               Page   9

X0103           PURGWSSCN - Scan Working Set to Purge Pages                                                                      (5)



                               0004' 00C1       		.IIF IDN <FATAL>,<FATAL> , .WORD	BUG$_PURGWSSCN!4

                                     00C3  7000 

                                     00C3  7100 	.DSABL	LSB

                                     00C3  7200 

                                     00C3  7300 

                                     00C3  7400 	.END

SYSPURGWS       - Purge Working Set System Service               21-AUG-1978 20:38:01   VAX-11 MACRO X0.3-11               Page  10

SYMBOL TABLE                                                                                                                     (5)



BIT...         = 00000000            PCB$V_INQUAN   = 00000003            PFN$M_LOC      = 00000007            

BUG$_PURGWSSCN   ********   X   04   PCB$V_LOGIN    = 00000014            PFN$M_MODIFY   = 00000080            

BUG$_WSLPAGCNT   ********   X   04   PCB$V_NETWRK   = 00000015            PFN$M_PAGTYP   = 00000007            

CDL$C_LENGTH     ********   X   03   PCB$V_NOACNT   = 0000000F            PFN$M_PGFLX    = FF000000            

CDL$L_CALLEDIPL  ********   X   03   PCB$V_NODELET  = 00000017            PFN$M_RPTEVT   = 00000040            

CDL$L_MAXACMODE  ********   X   03   PCB$V_PHDRES   = 00000012            PFN$S_BAK      = 00000017            

CDL$L_SAVRETADR  ********   X   03   PCB$V_PSWAPM   = 00000004            PFN$S_GBLBAK   = 00000001            

EXE$PURGWS       00000000 RG    03   PCB$V_PWRAST   = 00000016            PFN$S_LOC      = 00000003            

GBL...         = 00000000            PCB$V_RES      = 00000000            PFN$S_PAGTYP   = 00000003            

INADR          = 00000004            PCB$V_RESPEN   = 00000005            PFN$S_PGFLX    = 00000008            

IPL$_ASTDEL    = 00000002            PCB$V_SSFEXC   = 00000006            PFN$V_BADPAG   = 00000005            

IPL$_HWCLK     = 00000018            PCB$V_SSFEXCE  = 00000007            PFN$V_BAK      = 00000000            

IPL$_IOPOST    = 00000004            PCB$V_SSFEXCS  = 00000008            PFN$V_COLLISION= 00000004            

IPL$_MAILBOX   = 0000000B            PCB$V_SSFEXCU  = 00000009            PFN$V_DELCON   = 00000004            

IPL$_POWER     = 0000001F            PCB$V_SSRWAIT  = 0000000A            PFN$V_GBLBAK   = 00000017            

IPL$_QUEUEAST  = 00000006            PCB$V_SUSPEN   = 0000000B            PFN$V_LOC      = 00000000            

IPL$_SCHED     = 00000003            PCB$V_SWPVBN   = 00000010            PFN$V_MODIFY   = 00000007            

IPL$_SYNCH     = 00000007            PCB$V_WAKEPEN  = 0000000C            PFN$V_PAGTYP   = 00000000            

IPL$_TIMER     = 00000007            PCB$V_WALL     = 0000000D            PFN$V_PGFLX    = 00000018            

MMG$CRECOM2      ********   X   03   PCB$W_APTCNT     00000034            PFN$V_RPTEVT   = 00000006            

MMG$FREWSLX      ********   X   04   PCB$W_ASTCNT     0000003C            PHD$B_ASTLVL     000000CF            

MMG$PURGWSPAG    00000031 R     03   PCB$W_BIOCNT     0000003E            PHD$B_DFPFC      00000038            

MMG$PURGWSSCN    00000003 RG    04   PCB$W_BIOLM      00000040            PHD$B_PAGFIL     0000001F            

MMG$SVAPTECHK    ********   X   04   PCB$W_BYTCNT     00000042            PHD$B_PGTBPFC    00000039            

MMG$ULKGBLWSLE   ********   X   04   PCB$W_BYTLM      00000068            PHD$C_LENGTH     00000118            

PCB$B_ASTACT     0000000C            PCB$W_DIOCNT     00000044            PHD$C_PHDPAGCTX= 00000008            

PCB$B_ASTEN      0000000D            PCB$W_DIOLM      00000046            PHD$K_LENGTH     00000118            

PCB$B_PRI        0000000B            PCB$W_FILCNT     00000048            PHD$L_BIOCNT     00000054            

PCB$B_PRIB       00000033            PCB$W_GPGCNT     00000038            PHD$L_CPULIM     00000058            

PCB$B_TYPE       0000000A            PCB$W_GRP        00000022            PHD$L_CPUTIM     0000003C            

PCB$B_WEFC       00000032            PCB$W_MEM        00000020            PHD$L_DIOCNT     00000050            

PCB$C_LENGTH     0000007C            PCB$W_MTXCNT     0000000E            PHD$L_ESP        0000007C            

PCB$K_LENGTH     0000007C            PCB$W_PPGCNT     0000003A            PHD$L_FREP0VA    00000028            

PCB$L_ASTQBL     00000014            PCB$W_PRCCNT     0000006A            PHD$L_FREP1VA    00000030            

PCB$L_ASTQFL     00000010            PCB$W_SIZE       00000008            PHD$L_FREPTECNT  0000002C            

PCB$L_EFC2P      00000058            PCB$W_STATE      00000030            PHD$L_KSP        00000078            

PCB$L_EFC3P      0000005C            PCB$W_TMBU       00000036            PHD$L_P0BR       000000C8            

PCB$L_EFCS       00000050            PCB$W_TQCNT      0000004A            PHD$L_P0LRASTL   000000CC            

PCB$L_EFCU       00000054            PFN$C_ACTIVE   = 00000007            PHD$L_P1BR       000000D0            

PCB$L_EFWM       0000004C            PFN$C_BADPAGLST= 00000002            PHD$L_P1LR       000000D4            

PCB$L_OWNER      0000001C            PFN$C_FREPAGLST= 00000000            PHD$L_PAGEFLTS   0000004C            

PCB$L_PHD        00000064            PFN$C_GBLWRT   = 00000003            PHD$L_PAGFIL     0000001C            

PCB$L_PHYPCB     00000018            PFN$C_GLOBAL   = 00000002            PHD$L_PC         000000C0            

PCB$L_PID        00000060            PFN$C_GPGTBL   = 00000005            PHD$L_PCB        00000078            

PCB$L_PQB        0000004C            PFN$C_MFYPAGLST= 00000001            PHD$L_PGFLCNT    00000034            

PCB$L_SQBL       00000004            PFN$C_PPGTBL   = 00000004            PHD$L_PGFLQUOTA  0000005C            

PCB$L_SQFL       00000000            PFN$C_PROCESS  = 00000000            PHD$L_PSL        000000C4            

PCB$L_STS        00000028            PFN$C_RDERR    = 00000004            PHD$L_PSTBASOFF  00000020            

PCB$L_UIC        00000020            PFN$C_RDINPROG = 00000006            PHD$L_PTWSLELCK  00000064            

PCB$L_WSSWP      00000024            PFN$C_RELPEND  = 00000003            PHD$L_PTWSLEVAL  00000068            

PCB$L_WTIME      0000002C            PFN$C_SYSTEM   = 00000001            PHD$L_R0         00000088            

PCB$T_LNAME      0000006C            PFN$C_WRTINPROG= 00000005            PHD$L_R1         0000008C            

PCB$V_ASTPEN   = 00000011            PFN$M_BADPAG   = 00000020            PHD$L_R10        000000B0            

PCB$V_BATCH    = 0000000E            PFN$M_BAK      = 007FFFFF            PHD$L_R11        000000B4            

PCB$V_DELPEN   = 00000001            PFN$M_COLLISION= 00000010            PHD$L_R12        000000B8            

PCB$V_FORCPEN  = 00000002            PFN$M_DELCON   = 00000010            PHD$L_R13        000000BC            

PCB$V_HIBER    = 00000013            PFN$M_GBLBAK   = 00800000            PHD$L_R2         00000090            

SYSPURGWS       - Purge Working Set System Service               21-AUG-1978 20:38:01   VAX-11 MACRO X0.3-11               Page  11

SYMBOL TABLE                                                                                                                     (5)



PHD$L_R3         00000094            PR$_ISP        = 00000004            PSL$V_FU       = 00000006            

PHD$L_R4         00000098            PR$_KSP        = 00000000            PSL$V_IPL      = 00000010            

PHD$L_R5         0000009C            PR$_MAPEN      = 00000038            PSL$V_IS       = 0000001A            

PHD$L_R6         000000A0            PR$_NICR       = 00000019            PSL$V_IV       = 00000005            

PHD$L_R7         000000A4            PR$_P0BR       = 00000008            PSL$V_PRVMOD   = 00000016            

PHD$L_R8         000000A8            PR$_P0LR       = 00000009            PSL$V_TBIT     = 00000004            

PHD$L_R9         000000AC            PR$_P1BR       = 0000000A            PSL$V_TP       = 0000001E            

PHD$L_REFERFLT   00000014            PR$_P1LR       = 0000000B            PTE$C_EOWN     = 00800000            

PHD$L_SSP        00000080            PR$_PCBB       = 00000010            PTE$C_ER       = 38000000            

PHD$L_USP        00000084            PR$_PME        = 0000003D            PTE$C_ERKW     = 30000000            

PHD$L_WSL        00000118            PR$_RXCS       = 00000020            PTE$C_EW       = 28000000            

PHD$M_DALCSTX  = 00000002            PR$_RXDB       = 00000021            PTE$C_KOWN     = 00000000            

PHD$M_PFMFLG   = 00000001            PR$_SBIER      = 00000034            PTE$C_KR       = 18000000            

PHD$M_WSPEAKCHK= 00000004            PR$_SBIFS      = 00000030            PTE$C_KW       = 10000000            

PHD$Q_PRIVMSK    00000000            PR$_SBIMT      = 00000033            PTE$C_NA       = 00000000            

PHD$S_ASTLVL   = 00000008            PR$_SBIQC      = 00000036            PTE$C_SOWN     = 01000000            

PHD$S_P0LR     = 00000018            PR$_SBIS       = 00000031            PTE$C_SR       = 58000000            

PHD$V_ASTLVL   = 00000018            PR$_SBISC      = 00000032            PTE$C_SREW     = 48000000            

PHD$V_DALCSTX  = 00000001            PR$_SBITA      = 00000035            PTE$C_SRKW     = 50000000            

PHD$V_P0LR     = 00000000            PR$_SBR        = 0000000C            PTE$C_SW       = 40000000            

PHD$V_PFMFLG   = 00000000            PR$_SCBB       = 00000011            PTE$C_UOWN     = 01800000            

PHD$V_WSPEAKCHK= 00000002            PR$_SID        = 0000003E            PTE$C_UR       = 78000000            

PHD$W_ASTLM      00000044            PR$_SIRR       = 00000014            PTE$C_UREW     = 68000000            

PHD$W_BAK        00000048            PR$_SISR       = 00000015            PTE$C_URKW     = 70000000            

PHD$W_DFWSCNT    0000001A            PR$_SLR        = 0000000D            PTE$C_URSW     = 60000000            

PHD$W_EMPTPG     000000D8            PR$_SSP        = 00000002            PTE$C_UW       = 20000000            

PHD$W_EXTDYNWS   00000076            PR$_TBIA       = 00000039            PTE$M_CRF      = 00010000            

PHD$W_FILLM      00000060            PR$_TBIS       = 0000003A            PTE$M_DZRO     = 00020000            

PHD$W_FLAGS      0000003A            PR$_TODR       = 0000001B            PTE$M_GPTX     = 003FFFFF            

PHD$W_PHVINDEX   00000046            PR$_TXCS       = 00000022            PTE$M_MODIFY   = 04000000            

PHD$W_PRCLM      00000042            PR$_TXDB       = 00000023            PTE$M_OWN      = 01800000            

PHD$W_PST        00000020            PR$_USP        = 00000003            PTE$M_PFN      = 001FFFFF            

PHD$W_PSTBASMAX  0000004A            PR$_WCSA       = 0000002C            PTE$M_PGFLVB   = 003FFFFF            

PHD$W_PSTFREE    00000026            PR$_WCSD       = 0000002D            PTE$M_PROT     = 78000000            

PHD$W_PSTLAST    00000024            PSL$C_EXEC     = 00000001            PTE$M_TYP0     = 00400000            

PHD$W_PTCNTACT   00000070            PSL$C_KERNEL   = 00000000            PTE$M_TYP1     = 04000000            

PHD$W_PTCNTLCK   0000006C            PSL$C_SUPER    = 00000002            PTE$M_VALID    = 80000000            

PHD$W_PTCNTMAX   00000072            PSL$C_USER     = 00000003            PTE$M_WRT      = 00040000            

PHD$W_PTCNTVAL   0000006E            PSL$M_CM       = 80000000            PTE$S_GPTX     = 00000016            

PHD$W_QUANT      00000040            PSL$M_CURMOD   = 03000000            PTE$S_OWN      = 00000002            

PHD$W_TQLM       00000062            PSL$M_DV       = 00000080            PTE$S_PFN      = 00000015            

PHD$W_WSAUTH     0000000A            PSL$M_FPD      = 08000000            PTE$S_PGFLVB   = 00000016            

PHD$W_WSDYN      0000000E            PSL$M_FU       = 00000040            PTE$S_PROT     = 00000004            

PHD$W_WSFLUID    00000074            PSL$M_IPL      = 001F0000            PTE$S_STX      = 00000010            

PHD$W_WSLAST     00000012            PSL$M_IS       = 04000000            PTE$V_CRF      = 00000010            

PHD$W_WSLIST     00000008            PSL$M_IV       = 00000020            PTE$V_DZRO     = 00000011            

PHD$W_WSLOCK     0000000C            PSL$M_PRVMOD   = 00C00000            PTE$V_GPTX     = 00000000            

PHD$W_WSLX       0000004A            PSL$M_SAFBITS  = 000037FF            PTE$V_MODIFY   = 0000001A            

PHD$W_WSNEXT     00000010            PSL$M_TBIT     = 00000010            PTE$V_OWN      = 00000017            

PHD$W_WSQUOTA    00000018            PSL$M_TP       = 40000000            PTE$V_PFN      = 00000000            

PR$_ACCR       = 00000029            PSL$S_CURMOD   = 00000002            PTE$V_PGFLVB   = 00000000            

PR$_ACCS       = 00000028            PSL$S_IPL      = 00000005            PTE$V_PROT     = 0000001B            

PR$_ASTLVL     = 00000013            PSL$S_PRVMOD   = 00000002            PTE$V_STX      = 00000000            

PR$_ESP        = 00000001            PSL$V_CM       = 0000001F            PTE$V_TYP0     = 00000016            

PR$_ICCS       = 00000018            PSL$V_CURMOD   = 00000018            PTE$V_TYP1     = 0000001A            

PR$_ICR        = 0000001A            PSL$V_DV       = 00000007            PTE$V_VALID    = 0000001F            

PR$_IPL        = 00000012            PSL$V_FPD      = 0000001B            PTE$V_WRT      = 00000012            

SYSPURGWS       - Purge Working Set System Service               21-AUG-1978 20:38:01   VAX-11 MACRO X0.3-11               Page  12

SYMBOL TABLE                                                                                                                     (5)



PURGWS_EMPTY     00000000 R     04   SS$_EXQUOTA    = 0000001C            SS$_LENVIO     = 0000018C            

SS$_ABORT      = 0000002C            SS$_EXTIDXFILE = 00000880            SS$_LKWSETFUL  = 00000194            

SS$_ACCONFLICT = 00000800            SS$_FCPREADERR = 00000888            SS$_MBFULL     = 000008D8            

SS$_ACCVIO     = 0000000C            SS$_FCPREPSTN  = 00000988            SS$_MBTOOSML   = 0000019C            

SS$_ACPVAFUL   = 000002FC            SS$_FCPREWNDERR= 00000890            SS$_MCHECK     = 000002BC            

SS$_ARTRES     = 00000474            SS$_FCPSPACERR = 00000898            SS$_MEDOFL     = 000001A4            

SS$_ASTFLT     = 0000040C            SS$_FCPWRITERR = 000008A0            SS$_MSGNOTFND  = 00000621            

SS$_BADATTRIB  = 00000034            SS$_FILACCERR  = 0000009C            SS$_MTLBLLONG  = 00000304            

SS$_BADCHKSUM  = 00000808            SS$_FILALRACC  = 000000A4            SS$_MUSTCLOSEFL= 00000948            

SS$_BADESCAPE  = 0000003C            SS$_FILELOCKED = 000008A8            SS$_NOAQB      = 00000314            

SS$_BADFILEHDR = 00000810            SS$_FILENUMCHK = 000008B0            SS$_NODATA     = 000001AC            

SS$_BADFILENAME= 00000818            SS$_FILESEQCHK = 000008B8            SS$_NOHANDLER  = 000008F8            

SS$_BADFILEVER = 00000820            SS$_FILESTRUCT = 000008C0            SS$_NOHOMEBLK  = 000008E0            

SS$_BADIMGHDR  = 00000044            SS$_FILNOTACC  = 000000AC            SS$_NOIOCHAN   = 000001B4            

SS$_BADIRECTORY= 00000828            SS$_FILNOTCNTG = 000002AC            SS$_NOLINKS    = 0000027C            

SS$_BADPARAM   = 00000014            SS$_FILNOTEXP  = 000000B4            SS$_NOLOGNAM   = 000001BC            

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            

SYSPURGWS       - Purge Working Set System Service               21-AUG-1978 20:38:01   VAX-11 MACRO X0.3-11               Page  13

SYMBOL TABLE                                                                                                                     (5)



SS$_TAPEPOSLOST= 00000224            

SS$_TBIT       = 00000464            

SS$_TIMEOUT    = 0000022C            

SS$_TOOMANYVER = 00000990            

SS$_TOOMUCHDATA= 0000029C            

SS$_UNASEFC    = 00000234            

SS$_UNSAFE     = 0000023C            

SS$_UNWIND     = 00000920            

SS$_UNWINDING  = 00000928            

SS$_VASFULL    = 00000244            

SS$_VECINUSE   = 0000024C            

SS$_VOLINV     = 00000254            

SS$_WAITUSRLBL = 00000950            

SS$_WASCLR     = 00000001            

SS$_WASECC     = 00000639            

SS$_WASSET     = 00000009            

SS$_WRITLCK    = 0000025C            

SS$_WRONGACP   = 0000031C            

WSL$C_GBLWRT   = 00000006            

WSL$C_GLOBAL   = 00000004            

WSL$C_GPGTBL   = 0000000A            

WSL$C_LENGTH   = 00000004            

WSL$C_PPGTBL   = 00000008            

WSL$C_PROCESS  = 00000000            

WSL$C_SYSTEM   = 00000002            

WSL$M_GOODPAGE = 00000040            

WSL$M_MODIFY   = 00000100            

WSL$M_PAGTYP   = 0000000E            

WSL$M_PFNLOCK  = 00000010            

WSL$M_VALID    = 00000001            

WSL$M_WSLOCK   = 00000020            

WSL$S_PAGTYP   = 00000003            

WSL$V_GOODPAGE = 00000006            

WSL$V_MODIFY   = 00000008            

WSL$V_PAGTYP   = 00000001            

WSL$V_PFNLOCK  = 00000004            

WSL$V_VALID    = 00000000            

WSL$V_WSLOCK   = 00000005            





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       00000040      03     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  

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





THERE WERE NO ERRORS OR WARNINGS.

10354. BYTES LEFT IN FREE MEMORY POOL.

3350. BYTES OF RECLAIMED MEMORY.

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

10 MLB DIR RDS - 889 GETS TO DEFINE 23 MACROS. 66 INTER. FILE WRITES. 

