SYSGETPTI       - Get Page Table Information System Service      21-AUG-1978 20:32:39   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (2)     100  DECLARATIONS

   (3)     100  GETPTI - Get Page Table Information

   (4)     100  GETPTIPAG - Get Page Table Info for Single Page

SYSGETPTI       - Get Page Table Information System Service      21-AUG-1978 20:32:39   VAX-11 MACRO X0.3-11               Page   1

X0100                                                                                                                            (1)



                                     0000   100 	.TITLE	SYSGETPTI - Get Page Table Information System Service

                                     0000   200 	.IDENT	/X0100/

                                     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: 24-APR-78

                                     0000  3000 ;

                                     0000  3100 ; MODIFIED BY:

                                     0000  3200 ;

                                     0000  3300 ;	, : VERSION

                                     0000  3400 ; 01	- 

                                     0000  3500 ;--

SYSGETPTI       - Get Page Table Information System Service      21-AUG-1978 20:32:39   VAX-11 MACRO X0.3-11               Page   2

X0100           DECLARATIONS                                                                                                     (2)



                                     0000   100 	.SBTTL	DECLARATIONS

                                     0000   200 ;

                                     0000   300 ; INCLUDE FILES:

                                     0000   400 ;

                                     0000   500 	$PRDEF				;PROCESSOR REGISTER DEFINTIONS

                                     0000   600 	$PTEDEF				;PAGE TABLE ENTRY DEFINITIONS

                                     0000   700 	$SSDEF				;SYSTEM STATUS CODE DEFINTIONS

                                     0000  2200 ;

                                     0000  2300 ; EXTERNAL SYMBOLS:

                                     0000  2400 ;

                                     0000  2500 ;

                                     0000  2600 ; MACROS:

                                     0000  2700 ;

                                     0000  2800 ;

                                     0000  2900 ; EQUATED SYMBOLS:

                                     0000  3000 ;

                                     0000  3100 ; OFFSET FROM AP

                                     0000  3200 ;

                           00000004  0000  3300 	INADR		= 4		;Offset to input range

                           00000008  0000  3500 	RETADR		= 8		;Offset to return range

                           0000000C  0000  3600 	ACMODE		= 12		;Access mode

                           00000010  0000  3950 	MASK		= 16		;Mask of PTI attributes

                           00000014  0000  3960 	PAGCNT		= 20		;Minimum number of pages to return

                                     0000  3970 					;as having the specified attributes

                                     0000  5700 ;

                                     0000  5800 ; OWN STORAGE:

                                     0000  5900 ;

SYSGETPTI       - Get Page Table Information System Service      21-AUG-1978 20:32:39   VAX-11 MACRO X0.3-11               Page   3

X0100           GETPTI - Get Page Table Information                                                                              (3)



                                     0000   100 	.SBTTL	GETPTI - Get Page Table Information

                                     0000   200 ;++

                                     0000   300 ; FUNCTIONAL DESCRIPTION:

                                     0000   400 ;

                                     0000   500 ; CALLING SEQUENCE:

                                     0000   600 ;

                                     0000   700 ;	CALLG	ARGLIST,@#SYS$GETPTI

                                     0000   800 ;

                                     0000   900 ;

                                     0000  1000 ; INPUT PARAMETERS:

                                     0000  1100 ;

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

                                     0000  1300 ;		the starting virtual address, the 2nd specifies the ending

                                     0000  1400 ;		virtual address (inclusive) of the pages to operate on.

                                     0000  1500 ;	RETADR(AP) = Address of a 2 longword array into which is returned

                                     0000  1600 ;		the starting and ending virtual addresses (inclusive)

                                     0000  1700 ;		of the pages operated on.

                                     0000  1800 ;	ACMODE(AP) = The access mode (maximized with calling mode)

                                     0000  1900 ;		against which the page ownership is checked.

                                     0000  2010 ;	MASK(AP)   = Mask of Page Table Information control bits

                                     0000  2030 ;		     bit 0 - Pages which are demand zero

                                     0000  2040 ;	PAGCNT(AP) = Minimum page count.  If the next range of pages which

                                     0000  2050 ;		     satisfies one or more of the PTI criteria contains

                                     0000  2060 ;		     fewer pages than PAGCNT specifies, then the range

                                     0000  2070 ;		     does not satisfy the criteria and another range

                                     0000  2080 ;		     is sought.

                                     0000  2100 ;

                                     0000  2200 ; IMPLICIT INPUTS:

                                     0000  2300 ;

                                     0000  2400 ;	NONE

                                     0000  2500 ;

                                     0000  2600 ; OUTPUT PARAMETERS:

                                     0000  2700 ;

                                     0000  2800 ;	R0 = System Status Code

                                     0000  2900 ;

                                     0000  3000 ; IMPLICIT OUTPUTS:

                                     0000  3100 ;

                                     0000  3200 ;	NONE

                                     0000  3300 ;

                                     0000  3400 ; COMPLETION CODES:

                                     0000  3500 ;

                                     0000  3600 ;	SS$_NORMAL			;Successful Completion

                                     0000  3700 ;	SS$_ACCVIO			;Access Violation

                                     0000  3800 ;	SS$_PAGOWNVIO			;Page Owner Violation

                                     0000  3900 ;

                                     0000  4000 ; SIDE EFFECTS:

                                     0000  4100 ;

                                     0000  4200 ;	NONE

                                     0000  4300 ;

                                     0000  4400 ;--

                                     0000  4410 ;

                                     0000  4420 ; **********************************************************************

                                     0000  4430 ;

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

                                     0000  4450 ;

                                 00000000  4460 	.PSECT	Y$EXEPAGED

                                     0000  4470 ;

SYSGETPTI       - Get Page Table Information System Service      21-AUG-1978 20:32:39   VAX-11 MACRO X0.3-11               Page   4

X0100           GETPTI - Get Page Table Information                                                                              (3)



                                     0000  4480 ; **********************************************************************

                                     0000  4490 ;

                               07FC' 0000  4600 	.ENTRY	EXE$GETPTI,^M<R2,R3,R4,R5,R6,R7,R8,R9,R10>

                                     0002  4700 

            56   00000000'EF     DE  0002  4800 	MOVAL	L^MMG$GETPTIPAG,R6	;Per-page subroutine

            58         10 AC     D0  0009  4900 	MOVL	MASK(AP),R8		;Type of information desired

            59            01     CE  000D  5000 	MNEGL	#1,R9			;No pages found yet

         14 AC            01     C3  0010  5010 	SUBL3	#1,PAGCNT(AP),R10	;Minimum page count - 1

                          5A         0014       

                          02     18  0015  5020 	BGEQ	10$			;Branch if specified

                          5A     D4  0017  5030 	CLRL	R10			;Default to 1 page

            5E            00'    C2  0019  5100 10$:	SUBL	S^#CDL$C_LENGTH,SP	;Reserve scratch area

                          FFE1'  30  001C  5200 	BSBW	MMG$CRECOM1		;Common Create code

                                 04  001F  5300 	RET

SYSGETPTI       - Get Page Table Information System Service      21-AUG-1978 20:32:39   VAX-11 MACRO X0.3-11               Page   5

X0100           GETPTIPAG - Get Page Table Info for Single Page                                                                  (4)



                                     0020   100 	.SBTTL	GETPTIPAG - Get Page Table Info for Single Page

                                     0020   200 

                                     0020   300 ;++

                                     0020   400 ; FUNCTIONAL DESCRIPTION:

                                     0020   500 ;

                                     0020   600 ;

                                     0020   700 ; CALLING SEQUENCE:

                                     0020   800 ;

                                     0020   900 ;	BSBW	MMG$GETPTIPAG

                                     0020  1000 ;

                                     0020  1100 ;

                                     0020  1200 ; INPUT PARAMETERS:

                                     0020  1300 ;

                                     0020  1400 ;	R0  = Access Mode for page ownership check

                                     0020  1500 ;	R2  = Virtual Address

                                     0020  1600 ;	R4  = Current PCB address

                                     0020  1700 ;	R5  = Process Header Address - P1 or System Space

                                     0020  1800 ;	R6  = Count - 1 of pages to be processed including this one

                                     0020  1900 ;	R7  = +^X200 if going forward in the address space

                                     0020  2000 ;	    = -^X200 if going backwards in the address space

                                     0020  2100 ;	R8  = Page table information mask, specifying the criteria

                                     0020  2150 ;	      against which the pages are tested.

                                     0020  2200 ;	R9  = count - 1 of pages found so far that satisfy the criteria

                                     0020  2400 ;	R10 = threshhold page count - 1.  Once a run of pages is found

                                     0020  2410 ;	      that meets the criteria, a further check is made to see if

                                     0020  2420 ;	      the range of pages is large enough.

                                     0020  2500 ;

                                     0020  2600 ;	IPL = ASTDEL

                                     0020  2700 ;

                                     0020  2800 ; IMPLICIT INPUTS:

                                     0020  2900 ;	NONE

                                     0020  3000 ;

                                     0020  3100 ; OUTPUT PARAMETERS:

                                     0020  3200 ;

                                     0020  3300 ;	R0 = Status Code

                                     0020  3400 ;	R2   Preserved

                                     0020  3500 ;

                                     0020  3600 ; IMPLICIT OUTPUTS:

                                     0020  3700 ;	NONE

                                     0020  3800 ;

                                     0020  3900 ; COMPLETION CODES:

                                     0020  4000 ;

                                     0020  4100 ;	SS$_NORMAL			;Successful Completion

                                     0020  4200 ;	SS$_PAGOWNVIO			;Page Owner Violation

                                     0020  4300 ;	SS$_LENVIO			;Length Violation

                                     0020  4400 ;	SS$_ACCVIO			;Access Violation

                                     0020  4500 ;

                                     0020  4600 ; SIDE EFFECTS:

                                     0020  4700 ;

                                     0020  4800 ;	NONE

                                     0020  4900 ;

                                     0020  5000 ;--

                                     0020  5100 ;

                                     0020  5200 ; **********************************************************************

                                     0020  5300 ;

                                     0020  5400 ; **************** THE FOLLOWING CODE MUST BE RESIDENT *****************

                                     0020  5500 ;

SYSGETPTI       - Get Page Table Information System Service      21-AUG-1978 20:32:39   VAX-11 MACRO X0.3-11               Page   6

X0100           GETPTIPAG - Get Page Table Info for Single Page                                                                  (4)



                                 00000000  5600 	.PSECT	$MMGCOD

                                     0000  5700 ;

                                     0000  5800 ; **********************************************************************

                                     0000  5900 ;

                                     0000  6000 MMG$GETPTIPAG::

                                     0000  6100 	SAVIPL				;Save caller's IPL

                          50     DD  0003  6200 	PUSHL	R0			;Save access mode

                          FFF8'  30  0005  6300 	BSBW	MMG$PTEREF		;Reference PTE, return SVAPTE

                                     0008  6400 					;return at IPL=SYNCH

            69            50     E9  0008  6500 	BLBC	R0,90$			;Branch if Length Violation

            50            0C     3C  000B  6600 	MOVZWL	#SS$_ACCVIO,R0		;In case this page is not accessable

            51            63     D0  000E  6700 	MOVL	(R3),R1			;Fetch the page table entry

                          61     13  0011  6800 	BEQL	90$			;Branch if deleted, access violation

            50            6E     D0  0013  6900 	MOVL	(SP),R0			;Access Mode

                          FFE7'  30  0016  7000 	BSBW	MMG$PAGETYPE		;Check access, return page type

            58            50     E9  0019  7100 	BLBC	R0,90$			;Branch if Page Owner Violation

            16            00     EF  001C  7200 	EXTZV	#PTE$V_PGFLVB,#PTE$S_PGFLVB,(R3),R0 ;PFN, PGFLVB, GPTX

            50            63         001F       

            7E            57     7D  0021  7300 	MOVQ	R7,-(SP)		;Push R8, reserve a scratch location

            20            00     EA  0024  7400 20$:	FFS	#0,#32,R8,(SP)		;Convert next bit to its bit number

            6E            58         0027       

                          09     13  0029  7500 	BEQL	40$			;Branch if no more bits

            58            6E     E5  002B  7600 	BBCC	(SP),R8,30$		;Shut off the bit

                          00         002E       

                          49     10  002F  7700 30$:	BSBB	100$			;See if this page has desired attribute

            F0            50     E9  0031  7800 	BLBC	R0,20$			;Branch if not, check next attribute

                     0102 8F     BA  0034  7900 40$:	POPR	#^M<R1,R8>		;Clean off scratch loc, restore R8

            59            50     C0  0038  7950 	ADDL	R0,R9			;If match found, count it

                          0F     19  003B  8000 	BLSS	60$			;Branch if haven't found first page

            08            50     E9  003D  8050 	BLBC	R0,50$			;Branch if end of "run"

                          0A     12  0040  8100 	BNEQ	60$			;Branch if not first page of "run"

         00'AD            52     D0  0042  8150 	MOVL	R2,B^CDL$L_SVSTARTVA(FP) ;Save address of first page

                          04     11  0046  8200 	BRB	60$

            56            1F     E2  0048  8250 50$:	BBSS	#31,R6,60$		;Indicate end of run

                          00         004B       

            50            01     3C  004C  8300 60$:	MOVZWL	#SS$_NORMAL,R0		;Set success indication

                          56     D5  004F  8350 	TSTL	R6			;Check for end of range or end of "run"

                          21     14  0051  8400 	BGTR	90$			;Branch if not

                          59     D5  0053  8450 	TSTL	R9			;At end range or end "run"

                          1A     19  0055  8500 	BLSS	80$			;Branch if no "run" found

            5A            59     D1  0057  8550 	CMPL	R9,R10			;Is the "run" large enough?

                          0B     19  005A  8600 	BLSS	70$			;Branch if not, start over

                                     005C  8610 ;

                                     005C  8620 ; Found a large enough range, return it

                                     005C  8630 ;

                          56     D5  005C  8650 	TSTL	R6			;At end of range?

                          14     13  005E  8700 	BEQL	90$			;Branch if yes, this VA is in the range

                          56     D4  0060  8750 	CLRL	R6			;Force end of range

            52            57     C2  0062  8800 	SUBL	R7,R2			;and back off 1 page

                          0D     11  0065  8850 	BRB	90$

                                     0067  8860 ;

                                     0067  8870 ; This "run" was too small, start looking for another

                                     0067  8880 ;

            59            01     CE  0067  8900 70$:	MNEGL	#1,R9			;No pages in the "run"

            1E            00     EF  006A  8950 	EXTZV	#0,#30,R6,R6		;Restore count - 1 of pages left in range

            56            56         006D       

                          03     12  006F  9000 	BNEQ	90$			;Branch if still some to do

SYSGETPTI       - Get Page Table Information System Service      21-AUG-1978 20:32:39   VAX-11 MACRO X0.3-11               Page   7

X0100           GETPTIPAG - Get Page Table Info for Single Page                                                                  (4)



                       00'AD     D4  0071  9700 80$:	CLRL	B^CDL$L_SAVRETADR(FP)	;Force null return range

                          02     BA  0074  9800 90$:	POPR	#^M<R1>			;Clean off saved access mode

                                     0076  9900 	ENBINT				;Restore called IPL

                                 05  0079 10000 	RSB				;and return

                                     007A 10100 ;

                                     007A 10200 ; Subroutine to determine whether the specified page is of the type

                                     007A 10300 ; described by the specified type code.

                                     007A 10400 ;

                                     007A 10500 ; INPUTS:

                                     007A 10600 ;

                                     007A 10700 ;	R0 = PFN, PGFLVB, GPTX, OR SECX WITH SECTION BITS

                                     007A 10800 ;	R1 = Page type

                                     007A 10900 ;	   = 0 - transition or demand zero

                                     007A 11000 ;	   = 1 - page file

                                     007A 11100 ;	   = 2 - global

                                     007A 11200 ;	   = 3 - section

                                     007A 11300 ;	   = 4 - valid

                                     007A 11400 ;	R2 = Virtual address

                                     007A 11500 ;	R3 = System Virtual Address of page table entry

                                     007A 11600 ;	R4 = Current PCB address

                                     007A 11700 ;	R5 = Process Header address

                                     007A 11800 ;	4(SP) = Page Table Information Code to CASE on

                                     007A 11900 ;

                                     007A 12000 ; OUTPUTS:

                                     007A 12100 ;

                                     007A 12200 ;	R0 = 0 if page is not of the specified type

                                     007A 12300 ;	   = 1 if page is of the specified type

                                     007A 12400 ;	R2 preserved

                                     007A 12500 ;

                                     007A 12600 100$:	CASE	4(SP),<-

                                     007A 12700 		INF_DZRO -		;0 = page is demand zero

                                     007A 12800 		>

                                     0081 12900 ;

                                     0081 13000 ; Page is not of the specified type

                                     0081 13100 ;

                          50     D4  0081 13200 INF_NO:	CLRL	R0

                                 05  0083 13300 	RSB

                                     0084 13400 ;

                                     0084 13500 ; See if page is demand zero

                                     0084 13600 ;

                                     0084 13700 INF_DZRO:

                                     0084 13800 	CASE	R1,<-

                                     0084 13900 		20$,-			;Transition or Demand Zero

                                     0084 14000 		INF_NO,-		;Page file

                                     0084 14100 		40$,-			;Global

                                     0084 14200 		60$ -			;Section

                                     0084 14300 		>,TYPE=B

                          EF     11  0090 14400 	BRB	INF_NO			;Valid

                                     0092 14500 ;

                                     0092 14600 ; Transition or demand zero page

                                     0092 14700 ;

                          50     D5  0092 14800 20$:	TSTL	R0			;Zero PFN means demand zero

                          EB     12  0094 14900 	BNEQ	INF_NO			;Branch if not dzro

                          50     D6  0096 15000 	INCL	R0			;Return 1 for dzro page

                                 05  0098 15100 	RSB

                                     0099 15200 ;

                                     0099 15300 ; Global page, see if it is a demand zero section

SYSGETPTI       - Get Page Table Information System Service      21-AUG-1978 20:32:39   VAX-11 MACRO X0.3-11               Page   8

X0100           GETPTIPAG - Get Page Table Info for Single Page                                                                  (4)



                                     0099 15400 ;

                                 CB  0099 15500 40$:	BICL3	#^C<PTE$M_VALID !-	;Get valid,

                                     009A 15600 		PTE$M_TYP1 ! PTE$M_TYP0 !- ;type bits,

                                     009A 15700 		PTE$M_PGFLVB>,-		;and section bits

       0000'DF40 7B800000 8F         009A 15800 		@W^MMG$GL_GPTBASE[R0],R0 ;from global PTE

                          50         00A3       

                          DB     19  00A4 15900 	BLSS	INF_NO			;Branch if valid

            50         EA 8F     78  00A6 16000 	ASHL	#-PTE$V_TYP0,R0,R1	;Transition?

                          51         00AA       

                          D4     13  00AB 16100 	BEQL	INF_NO			;Branch if yes

                                     00AD 16200 

                                     00AD 16300 	ASSUME	<PTE$V_TYP1-PTE$V_TYP0> LE 7

            51            11     8C  00AD 16400 	XORB	#<PTE$M_TYP1 ! PTE$M_TYP0>@-PTE$V_TYP0,R1 ;Section address?

                          CF     12  00B0 16500 	BNEQ	INF_NO			;Branch if not

                                     00B2 16600 ;

                                     00B2 16700 ; Section page, section bits in R0

                                     00B2 16800 ;

            50            11     E1  00B2 16900 60$:	BBC	#PTE$V_DZRO,R0,INF_NO	;Branch if not demand zero section

                          CB         00B5       

            50            01     D0  00B6 17000 	MOVL	#1,R0			;It is a demand zero section

                                 05  00B9 17100 	RSB

                                     00BA 17200 

                                     00BA 17300 

                                     00BA 17400 

                                     00BA 17500 	.END

SYSGETPTI       - Get Page Table Information System Service      21-AUG-1978 20:32:39   VAX-11 MACRO X0.3-11               Page   9

SYMBOL TABLE                                                                                                                     (4)



ACMODE         = 0000000C            PR$_WCSD       = 0000002D            SS$_ASTFLT     = 0000040C            

BIT...         = 00000000            PTE$C_EOWN     = 00800000            SS$_BADATTRIB  = 00000034            

CDL$C_LENGTH     ********   X   03   PTE$C_ER       = 38000000            SS$_BADCHKSUM  = 00000808            

CDL$L_SAVRETADR  ********   X   04   PTE$C_ERKW     = 30000000            SS$_BADESCAPE  = 0000003C            

CDL$L_SVSTARTVA  ********   X   04   PTE$C_EW       = 28000000            SS$_BADFILEHDR = 00000810            

EXE$GETPTI       00000000 RG    03   PTE$C_KOWN     = 00000000            SS$_BADFILENAME= 00000818            

GBL...         = 00000000            PTE$C_KR       = 18000000            SS$_BADFILEVER = 00000820            

INADR          = 00000004            PTE$C_KW       = 10000000            SS$_BADIMGHDR  = 00000044            

INF_DZRO         00000084 R     04   PTE$C_NA       = 00000000            SS$_BADIRECTORY= 00000828            

INF_NO           00000081 R     04   PTE$C_SOWN     = 01000000            SS$_BADPARAM   = 00000014            

MASK           = 00000010            PTE$C_SR       = 58000000            SS$_BADSTACK   = 000002B4            

MMG$CRECOM1      ********   X   03   PTE$C_SREW     = 48000000            SS$_BEGOFFILE  = 00000938            

MMG$GETPTIPAG    00000000 RG    04   PTE$C_SRKW     = 50000000            SS$_BLOCKCNTERR= 00000940            

MMG$GL_GPTBASE   ********   X   04   PTE$C_SW       = 40000000            SS$_BREAK      = 00000414            

MMG$PAGETYPE     ********   X   04   PTE$C_UOWN     = 01800000            SS$_BUFBYTALI  = 0000030C            

MMG$PTEREF       ********   X   04   PTE$C_UR       = 78000000            SS$_BUFFEROVF  = 00000601            

PAGCNT         = 00000014            PTE$C_UREW     = 68000000            SS$_BUGCHECK   = 000002A4            

PR$_ACCR       = 00000029            PTE$C_URKW     = 70000000            SS$_CANCEL     = 00000830            

PR$_ACCS       = 00000028            PTE$C_URSW     = 60000000            SS$_CHANINTLK  = 0000004C            

PR$_ASTLVL     = 00000013            PTE$C_UW       = 20000000            SS$_CLIFRCEXT  = 00000980            

PR$_ESP        = 00000001            PTE$M_CRF      = 00010000            SS$_CMODSUPR   = 0000041C            

PR$_ICCS       = 00000018            PTE$M_DZRO     = 00020000            SS$_CMODUSER   = 00000424            

PR$_ICR        = 0000001A            PTE$M_GPTX     = 003FFFFF            SS$_COMPAT     = 0000042C            

PR$_IPL        = 00000012            PTE$M_MODIFY   = 04000000            SS$_CONTINUE   = 00000001            

PR$_ISP        = 00000004            PTE$M_OWN      = 01800000            SS$_CONTROLC   = 00000651            

PR$_KSP        = 00000000            PTE$M_PFN      = 001FFFFF            SS$_CONTROLO   = 00000609            

PR$_MAPEN      = 00000038            PTE$M_PGFLVB   = 003FFFFF            SS$_CONTROLY   = 00000611            

PR$_NICR       = 00000019            PTE$M_PROT     = 78000000            SS$_CREATED    = 00000619            

PR$_P0BR       = 00000008            PTE$M_TYP0     = 00400000            SS$_CTRLERR    = 00000054            

PR$_P0LR       = 00000009            PTE$M_TYP1     = 04000000            SS$_DATACHECK  = 0000005C            

PR$_P1BR       = 0000000A            PTE$M_VALID    = 80000000            SS$_DATAOVERUN = 00000838            

PR$_P1LR       = 0000000B            PTE$M_WRT      = 00040000            SS$_DEBUG      = 0000046C            

PR$_PCBB       = 00000010            PTE$S_GPTX     = 00000016            SS$_DECOVF     = 000004A4            

PR$_PME        = 0000003D            PTE$S_OWN      = 00000002            SS$_DEVACTIVE  = 000002C4            

PR$_RXCS       = 00000020            PTE$S_PFN      = 00000015            SS$_DEVALLOC   = 00000840            

PR$_RXDB       = 00000021            PTE$S_PGFLVB   = 00000016            SS$_DEVALRALLOC= 00000641            

PR$_SBIER      = 00000034            PTE$S_PROT     = 00000004            SS$_DEVASSIGN  = 00000848            

PR$_SBIFS      = 00000030            PTE$S_STX      = 00000010            SS$_DEVFOREIGN = 00000064            

PR$_SBIMT      = 00000033            PTE$V_CRF      = 00000010            SS$_DEVICEFULL = 00000850            

PR$_SBIQC      = 00000036            PTE$V_DZRO     = 00000011            SS$_DEVMOUNT   = 0000006C            

PR$_SBIS       = 00000031            PTE$V_GPTX     = 00000000            SS$_DEVNOTALLOC= 00000858            

PR$_SBISC      = 00000032            PTE$V_MODIFY   = 0000001A            SS$_DEVNOTMBX  = 00000074            

PR$_SBITA      = 00000035            PTE$V_OWN      = 00000017            SS$_DEVNOTMOUNT= 0000007C            

PR$_SBR        = 0000000C            PTE$V_PFN      = 00000000            SS$_DEVOFFLINE = 00000084            

PR$_SCBB       = 00000011            PTE$V_PGFLVB   = 00000000            SS$_DIRFULL    = 00000860            

PR$_SID        = 0000003E            PTE$V_PROT     = 0000001B            SS$_DRVERR     = 0000008C            

PR$_SIRR       = 00000014            PTE$V_STX      = 00000000            SS$_DUPFILENAME= 00000868            

PR$_SISR       = 00000015            PTE$V_TYP0     = 00000016            SS$_DUPLNAM    = 00000094            

PR$_SLR        = 0000000D            PTE$V_TYP1     = 0000001A            SS$_ENDOFFILE  = 00000870            

PR$_SSP        = 00000002            PTE$V_VALID    = 0000001F            SS$_ENDOFTAPE  = 00000878            

PR$_TBIA       = 00000039            PTE$V_WRT      = 00000012            SS$_ENDOFUSRLBL= 00000970            

PR$_TBIS       = 0000003A            RETADR         = 00000008            SS$_EXQUOTA    = 0000001C            

PR$_TODR       = 0000001B            SS$_ABORT      = 0000002C            SS$_EXTIDXFILE = 00000880            

PR$_TXCS       = 00000022            SS$_ACCONFLICT = 00000800            SS$_FCPREADERR = 00000888            

PR$_TXDB       = 00000023            SS$_ACCVIO     = 0000000C            SS$_FCPREPSTN  = 00000988            

PR$_USP        = 00000003            SS$_ACPVAFUL   = 000002FC            SS$_FCPREWNDERR= 00000890            

PR$_WCSA       = 0000002C            SS$_ARTRES     = 00000474            SS$_FCPSPACERR = 00000898            

SYSGETPTI       - Get Page Table Information System Service      21-AUG-1978 20:32:39   VAX-11 MACRO X0.3-11               Page  10

SYMBOL TABLE                                                                                                                     (4)



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            

SS$_FLTDIV     = 00000494            SS$_NOMBX      = 00000274            SS$_WRITLCK    = 0000025C            

SS$_FLTOVF     = 0000048C            SS$_NOMOREFILES= 00000930            SS$_WRONGACP   = 0000031C            

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

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

SS$_GPTFULL    = 000000C4            SS$_NONLOCAL   = 000008F0            

SS$_GSDFULL    = 000000CC            SS$_NOPRIV     = 00000024            

SS$_HANGUP     = 000002CC            SS$_NORMAL     = 00000001            

SS$_HEADERFULL = 000008C8            SS$_NOSIGNAL   = 00000900            

SS$_IDXFILEFULL= 000008D0            SS$_NOSOLICIT  = 00000284            

SS$_ILLBLKNUM  = 000000DC            SS$_NOSUCHDEV  = 00000908            

SS$_ILLCNTRFUNC= 000000E4            SS$_NOSUCHFILE = 00000910            

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

SS$_ILLIOFUNC  = 000000F4            SS$_NOSUCHSEC  = 00000978            

SS$_ILLLBLAST  = 00000968            SS$_NOTAPEOP   = 00000264            

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

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

SS$_ILLSER     = 00000104            SS$_NOTLABELMT = 000001DC            

SS$_ILLUSRLBLRD= 00000958            SS$_NOTMODIFIED= 00000659            

SS$_ILLUSRLBLWT= 00000960            SS$_NOTNETDEV  = 000002EC            

SS$_INCVOLLABEL= 0000010C            SS$_NOTRAN     = 00000629            

SS$_INSFARG    = 00000114            SS$_NOTSQDEV   = 000001E4            

SS$_INSFMEM    = 00000124            SS$_OPCCUS     = 00000434            

SS$_INSFRAME   = 0000012C            SS$_OPCDEC     = 0000043C            

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

SS$_INTDIV     = 00000484            SS$_PAGOWNVIO  = 000001EC            

SS$_INTOVF     = 0000047C            SS$_PAGRDERR   = 00000444            

SS$_IVADDR     = 00000134            SS$_PARITY     = 000001F4            

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

SS$_IVCHNLSEC  = 0000026C            SS$_PFMBSY     = 00000204            

SS$_IVDEVNAM   = 00000144            SS$_PLHLDR     = 00000404            

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

SS$_IVLOGNAM   = 00000154            SS$_RADRMOD    = 0000044C            

SS$_IVLOGTAB   = 0000015C            SS$_REJECT     = 00000294            

SS$_IVPROTECT  = 000002F4            SS$_REMOTE     = 00000649            

SS$_IVQUOTAL   = 00000164            SS$_RESIGNAL   = 00000918            

SS$_IVSECFLG   = 0000016C            SS$_RESULTOVF  = 00000214            

SS$_IVSECIDCTL = 000002E4            SS$_ROPRAND    = 00000454            

SS$_IVSSRQ     = 00000174            SS$_SECTBLFUL  = 0000021C            

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

SS$_IVTIME     = 00000184            SS$_SUBRNG     = 000004AC            

SS$_LCKPAGFUL  = 000000D4            SS$_SUPERSEDE  = 00000631            

SS$_LENVIO     = 0000018C            SS$_TAPEPOSLOST= 00000224            

SS$_LKWSETFUL  = 00000194            SS$_TBIT       = 00000464            

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

SS$_MBTOOSML   = 0000019C            SS$_TOOMANYVER = 00000990            

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

SS$_MEDOFL     = 000001A4            SS$_UNASEFC    = 00000234            

SYSGETPTI       - Get Page Table Information System Service      21-AUG-1978 20:32:39   VAX-11 MACRO X0.3-11               Page  11

PROGRAM SECTION SYNOPSIS                                                                                                         (4)







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$            00000000      02     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  

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

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





THERE WERE NO ERRORS OR WARNINGS.

16488. BYTES LEFT IN FREE MEMORY POOL.

3320. BYTES OF RECLAIMED MEMORY.

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

3 MLB DIR RDS - 456 GETS TO DEFINE 15 MACROS. 36 INTER. FILE WRITES. 

