SATSSS70        SATS SYSTEM SERVICE TESTS  $EXPREG (SUCC S.C.)   22-AUG-1978 04:14:47   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      48  DECLARATIONS

   (1)      92  CONDITION TABLES

   (1)     129  TM_SETUP, TM_CLEANUP

   (1)     201  CONDITION SUBROUTINES - SETUP AND CLEANUP 

   (1)     271  FORM_CONDS

   (1)     364  VERIFY

   (1)     501  VFY_CLEANUP

SATSSS70        SATS SYSTEM SERVICE TESTS  $EXPREG (SUCC S.C.)   22-AUG-1978 04:14:47   VAX-11 MACRO X0.3-11               Page   1

1.0                                                                                                                              (1)



                                     0000     1 	.TITLE	SATSSS70 SATS SYSTEM SERVICE TESTS  $EXPREG (SUCC S.C.)

                                     0000     2 	.IDENT	/1.0/

                                     0000     3 

                                     0000     4 ;

                                     0000     5 ;			  COPYRIGHT (c) 1977,1978 BY

                                     0000     6 ;	      DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

                                     0000     7 ;

                                     0000     8 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND  COPIED

                                     0000     9 ; ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE AND WITH THE

                                     0000    10 ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR  ANY  OTHER

                                     0000    11 ; COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY

                                     0000    12 ; OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE  IS  HEREBY

                                     0000    13 ; TRANSFERRED.

                                     0000    14 ;

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

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

                                     0000    17 ; CORPORATION.

                                     0000    18 ;

                                     0000    19 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR  RELIABILITY  OF  ITS

                                     0000    20 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.

                                     0000    21 ;

                                     0000    22 

                                     0000    23 ;++

                                     0000    24 ; FACILITY:	SYSTST (SATS SYSTEM SERVICE TESTS)

                                     0000    25 ;

                                     0000    26 ; ABSTRACT:

                                     0000    27 ;

                                     0000    28 ;		THIS MODULE CONTAINS SUBROUTINES WHICH, WHEN LINKED

                                     0000    29 ; WITH SUCCOMMON.OBJ, FORM TEST MODULE SATSSS70 TO TEST SUCCESSFUL

                                     0000    30 ; OPERATION OF THE $EXPREG SYSTEM SERVICE. THE SERVICE IS INVOKED

                                     0000    31 ; UNDER VARIOUS INPUT CONDITIONS WITH VARYING INPUT PARAMETERS. ONLY

                                     0000    32 ; SUCCESSFUL STATUS CODES ARE EXPECTED IN THIS TEST MODULE.  CORRECT 

                                     0000    33 ; OPERATION OF THE SERVICE FOR EACH OF ITS ISSUANCES IS VERIFIED BY

                                     0000    34 ; CHECKING FOR AN SS$_NORMAL STATUS CODE, EXPECTED RETURN ARGUMENTS

                                     0000    35 ; AND EXPECTED FUNCTIONALITY PERFORMED.

                                     0000    36 ;

                                     0000    37 ; ENVIRONMENT:	USER MODE IMAGE; NEEDS CMKRNL PRIVILEGE,

                                     0000    38 ;		DYNAMICALLY ACQUIRES OTHER PRIVILEGES, AS NEEDED.

                                     0000    39 ;

                                     0000    40 ; AUTHOR: THOMAS L. CAFARELLA,		CREATION DATE: JUN, 1977

                                     0000    41 ;

                                     0000    42 ; MODIFIED BY:

                                     0000    43 ;

                                     0000    44 ;	, : VERSION

                                     0000    45 ; 01	- 

                                     0000    46 ;--

SATSSS70        SATS SYSTEM SERVICE TESTS  $EXPREG (SUCC S.C.)   22-AUG-1978 04:14:47   VAX-11 MACRO X0.3-11               Page   2

1.0             DECLARATIONS                                                                                                     (1)



                                     0000    48 	.SBTTL	DECLARATIONS

                                     0000    49 ;

                                     0000    50 ; INCLUDE FILES:

                                     0000    51 ;

                                     0000    52 	$PRVDEF				; PRIVILEGE BIT DEFINITIONS

                                     0000    53 	$PHDDEF				; PROCESS HEADER OFFSETS

                                     0000    54 	$JPIDEF				; $GETJPI ITEM-CODE SYMBOLS

                                     0000    55 	$PSLDEF				; PROCESSOR STATUS LONGWORD DEFINITIONS

                                     0000    56 ;

                                     0000    57 ; MACROS:

                                     0000    58 ;

                                     0000    59 ;

                                     0000    60 ; EQUATED SYMBOLS:

                                     0000    61 ;

                                     0000    62 ;

                                     0000    63 ; OWN STORAGE:

                                     0000    64 ;

SATSSS70        SATS SYSTEM SERVICE TESTS  $EXPREG (SUCC S.C.)   22-AUG-1978 04:14:47   VAX-11 MACRO X0.3-11               Page   3

1.0             DECLARATIONS                                                                                                     (1)



                                 00000000    66 	.PSECT	RODATA,RD,NOWRT,NOEXE,LONG

                                     0000    67 TEST_MOD_NAME::	STRING	C,<SATSSS70>	; TEST MODULE NAME

                                     0009    68 TEST_MOD_NAME_D: STRING	I,<SATSSS70>	; TEST MODULE NAME DESCRIPTOR

                                     0019    69 MSG1_INP_CTL:	STRING	I,<  SSERG!4ZW: CONDITIONS:>

                                     0039    70 					; FAO CTL STRING FOR MSG1 IN SUCCOMMON.MAR

                                     0039    71 MSG3_ERR_CTL::	STRING	I,< *SSERG!4ZW: !AS> 

                                     0051    72 					; FAO CTL STRING FOR MSG3 IN SUCCOMMON.MAR

                           00000200  0051    73 PAGESIZE:	.LONG	512		; PAGE SIZE IN BYTES

                                     0055    74 JPITEMS:				; $GETJPI ITEM LIST

                               0004  0055    75 		.WORD	4		; LEN OF RETURN BUFFER FOR 1ST ITEM

                               0404  0057    76 		.WORD	JPI$_FREP0VA	; REQUEST ITEM 1

                           00000009' 0059    77 		.ADDRESS INITIALADR	; BUFFER FOR ITEM 1

                           00000000  005D    78 		.LONG	0		; DON'T NEED LENGTH RETURN

                               0004  0061    79 		.WORD	4		; LEN OF RETURN BUFFER FOR 2ND ITEM

                               0405' 0063    80 		.WORD	JPI$_FREP1VA	; REQUEST ITEM 2

                           0000000D' 0065    81 		.ADDRESS INITIALADR+4	; BUFFER FOR ITEM 2

                           00000000  0069    82 		.LONG	0		; DON'T NEED LENGTH RETURN

                           00000000  006D    83 		.LONG	0		; END OF $GETJPI ITEM LIST

SATSSS70        SATS SYSTEM SERVICE TESTS  $EXPREG (SUCC S.C.)   22-AUG-1978 04:14:47   VAX-11 MACRO X0.3-11               Page   4

1.0             DECLARATIONS                                                                                                     (1)



                                 00000000    85 	.PSECT	RWDATA,RD,WRT,NOEXE,LONG

                           00000008  0000    86 PRIVMASK:	.BLKQ	1		; ADDR OF PRIVILEGE MASK (IN PHD)

                           00000009  0008    87 NZERR:		.BLKB	1		; INDICATOR FOR NON-ZERO ERROR

                           00000011  0009    88 INITIALADR:	.BLKQ	1		; HOLD AREA FOR FREE REGION BOUNDARIES

                           00000019  0011    89 RETADR:		.BLKQ	1		; LONGWORD PAIR FOR SUBJECT EXPREG

                           00000021  0019    90 INADR_DVA:	.BLKQ	1		; LONGWORD PAIR FOR DELTVA

SATSSS70        SATS SYSTEM SERVICE TESTS  $EXPREG (SUCC S.C.)   22-AUG-1978 04:14:47   VAX-11 MACRO X0.3-11               Page   5

1.0             CONDITION TABLES                                                                                                 (1)



                                     0021    92 	.SBTTL	CONDITION TABLES

                                     0021    93 ;

                                     0021    94 ;	***** CONDITION TABLES FOR EXPREG SYSTEM SERVICE *****

                                     0021    95 ;

                                     0021    96 	COND	1,LONG,<REGION>,-

                                     0021    97 		  <PROGRAM>,-

                                     0021    98 		  <CONTROL>,-

                                     0021    99  

                           00000000  0041   100 		    .LONG	0	; PROGRAM

                           00000001  0045   101 		    .LONG	1	; CONTROL

                                     0049   102 ;

                                     0049   103 	COND	2,LONG,<PAGCNT>,-

                                     0049   104 		  <SMALL COUNT>,-

                                     0049   105 		  <MEDIUM COUNT>,-

                                     0049   106 		  <LARGE COUNT>,-

                                     0049   107  

                           00000001  0082   108 		    .LONG 	1

                           00000005  0086   109 		    .LONG	5

                           000003E8  008A   110 		    .LONG	1000

                                     008E   111 ;

                                     008E   112 	COND	3,LONG,<ACMODE>,-

                                     008E   113 		  <KERNEL>,-

                                     008E   114 		  <EXEC>,-

                                     008E   115 		  <SUPER>,-

                                     008E   116 		  <USER>,-

                                     008E   117  

                           00000000  00BD   118 		    .LONG	PSL$C_KERNEL

                           00000001  00C1   119 		    .LONG	PSL$C_EXEC

                           00000002  00C5   120 		    .LONG	PSL$C_SUPER

                           00000003  00C9   121 		    .LONG	PSL$C_USER

                                     00CD   122 ;

                                     00CD   123 	COND	4,NULL

                                     00CE   124 

                                     00CE   125 	COND	5,NULL

                                     00CF   126 

                                 00000000   127 	.PSECT	SATSSS70,RD,WRT,EXE

SATSSS70        SATS SYSTEM SERVICE TESTS  $EXPREG (SUCC S.C.)   22-AUG-1978 04:14:47   VAX-11 MACRO X0.3-11               Page   6

1.0             TM_SETUP, TM_CLEANUP                                                                                             (1)



                                     0000   129 	.SBTTL	TM_SETUP, TM_CLEANUP

                                     0000   130 ;++

                                     0000   131 ; FUNCTIONAL DESCRIPTION:

                                     0000   132 ;

                                     0000   133 ;		TM_SETUP AND TM_CLEANUP ARE CALLED TO PERFORM

                                     0000   134 ; REQUIRED HOUSEKEEPING AT THE BEGINNING AND END, RESPECTIVELY, OF

                                     0000   135 ; TEST MODULE EXECUTION.

                                     0000   136 ;

                                     0000   137 ; CALLING SEQUENCE:

                                     0000   138 ;

                                     0000   139 ;	BSBW TM_SETUP   BSBW TM_CLEANUP

                                     0000   140 ;

                                     0000   141 ; INPUT PARAMETERS:

                                     0000   142 ;

                                     0000   143 ;	NONE

                                     0000   144 ;

                                     0000   145 ; IMPLICIT INPUTS:

                                     0000   146 ;

                                     0000   147 ;	NONE

                                     0000   148 ;

                                     0000   149 ; OUTPUT PARAMETERS:

                                     0000   150 ;

                                     0000   151 ;	NONE

                                     0000   152 ;

                                     0000   153 ; IMPLICIT OUTPUTS:

                                     0000   154 ;

                                     0000   155 ;	TM_SETUP:  COND TABLE INDEX REGISTERS (R2,3,4,5,6) CLEARED;

                                     0000   156 ;		   ALL PRIVILEGES ACQUIRED.

                                     0000   157 ;

                                     0000   158 ; COMPLETION CODES:

                                     0000   159 ;

                                     0000   160 ;	EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED.

                                     0000   161 ;

                                     0000   162 ; SIDE EFFECTS:

                                     0000   163 ;

                                     0000   164 ;	SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 

                                     0000   165 ;	(VIA RSB) IF ERROR ENCOUNTERED.

                                     0000   166 ;

                                     0000   167 ;--

                                     0000   168 

                                     0000   169 

                                     0000   170 

                                     0000   171 TM_SETUP::

                          52     D4  0000   172 	CLRL	R2			; INITIALIZE

                          53     D4  0002   173 	CLRL	R3			; .. CONDITION

                          54     D4  0004   174 	CLRL	R4			; .... TABLE

                          55     D4  0006   175 	CLRL	R5			; ...... INDEX

                          56     D4  0008   176 	CLRL	R6			; ........ REGISTERS

                          FFF3'  30  000A   177 	BSBW	MOD_MSG_PRINT		; PRINT TEST MODULE BEGIN MSG

   00000000'EF   00000000'EF     DE  000D   178 	MOVAL	TEST_MOD_SUCC,TMD_ADDR	; ASSUME END MSG WILL SHOW SUCCESS

            00   00000000'8F     F0  0018   179 	INSV	#SUCCESS,#0,#3,MOD_MSG_CODE ; ADJUST STATUS CODE FOR SUCCESS

   00000000'EF            03         001F       

                                     0025   180 	MODE	TO,5$,KRNL		; KERNEL MODE TO ACCESS PHD

            59   00000000'9F     D0  0048   181 	MOVL	@#CTL$GL_PHD,R9		; GET PROCESS HEADER ADDRESS

   00000000'EF            69     DE  004F   182 	MOVAL	PHD$Q_PRIVMSK(R9),PRIVMASK ; GET PRIV MASK ADDRESS

                                     0056   183 	MODE	FROM,5$	; BACK TO USER MODE

                                     0057   184 	PRIV	ADD,ALL			; GET ALL PRIVILEGES

SATSSS70        SATS SYSTEM SERVICE TESTS  $EXPREG (SUCC S.C.)   22-AUG-1978 04:14:47   VAX-11 MACRO X0.3-11               Page   7

1.0             TM_SETUP, TM_CLEANUP                                                                                             (1)



                                     0080   185 	$SETPRN_S TEST_MOD_NAME_D 	; SET PROCESS NAME

                                     008D   186 	SS_CHECK  NORMAL		; CHECK STATUS CODE RETURNED FROM SETPRN

                                     00BB   187 ;

                                     00BB   188 ; THE FOLLOWING $GETJPI ESTABLISHES INITIALADR AND INITIALADR+4

                                     00BB   189 ; AS THE ADDRESSES OF THE FIRST FREE PAGES IN THE PROGRAM AND

                                     00BB   190 ; CONTROL REGIONS.

                                     00BB   191 ;

                                     00BB   192 	$GETJPI_S ITMLST=JPITEMS 	; GET PROG AND CTL REGION BOUNDARIES

                                     00D2   193 	SS_CHECK NORMAL			; CHECK FOR NORMAL RETURN

   0000000D'EF   00000051'EF     C0  0100   194 	ADDL2	PAGESIZE,INITIALADR+4 	; ADJUST CONTROL REGION BOUNDARY ...

                 0000000D'EF     D7  010B   195 	DECL	INITIALADR+4		; ... TO FIRST FREE BYTE

                                 05  0111   196 	RSB				; RETURN TO MAIN ROUTINE

                                     0112   197 TM_CLEANUP::

                          FEEB'  30  0112   198 	BSBW	MOD_MSG_PRINT		; PRINT TEST MODULE END MSG

                                 05  0115   199 	RSB				; RETURN TO MAIN ROUTINE

SATSSS70        SATS SYSTEM SERVICE TESTS  $EXPREG (SUCC S.C.)   22-AUG-1978 04:14:47   VAX-11 MACRO X0.3-11               Page   8

1.0             CONDITION SUBROUTINES - SETUP AND CLEANUP                                                                        (1)



                                     0116   201 	.SBTTL	CONDITION SUBROUTINES - SETUP AND CLEANUP 

                                     0116   202 ;++

                                     0116   203 ; FUNCTIONAL DESCRIPTION:

                                     0116   204 ;

                                     0116   205 ;		CONDX AND CONDX_CLEANUP ARE SUBROUTINES WHICH ARE EXECUTED

                                     0116   206 ; BEFORE AND AFTER THE VERIFY SUBROUTINE, RESPECTIVELY, WHENEVER A NEW

                                     0116   207 ; CONDITION X VALUE IS SELECTED (SEE FUNCTIONAL DESCRIPTION OF SUCCOMMON

                                     0116   208 ; ROUTINE IN SUCCOMMON.MAR). ANY SETUP FUNCTION PARTICULAR TO THE 

                                     0116   209 ; CONDITION X TABLE IS INCLUDED IN THE CONDX SUBROUTINE AND CLEANED

                                     0116   210 ; UP, IF NECESSARY, IN THE CONDX_CLEANUP SUBROUTINE. THIS INCLUDES,

                                     0116   211 ; ESPECIALLY, CODE TO DETECT CONFLICTS AMONG CURRENT ENTRIES IN TWO

                                     0116   212 ; OR MORE CONDITION TABLES. IF A CONFLICT IS DETECTED, A NON-ZERO

                                     0116   213 ; VALUE IS STORED INTO CONFLICT, WHICH CAUSES THE CALLING ROUTINE

                                     0116   214 ; (SUCCOMMON) TO SKIP THE CURRENT ENTRY IN THE CONDITION X TABLE.

                                     0116   215 ;

                                     0116   216 ; CALLING SEQUENCE:

                                     0116   217 ;

                                     0116   218 ;	BSBW CONDX   BSBW CONDX_CLEANUP

                                     0116   219 ;	  WHERE X = 1,2,3,4,5

                                     0116   220 ;

                                     0116   221 ; INPUT PARAMETERS:

                                     0116   222 ;

                                     0116   223 ;	CONFLICT = 0

                                     0116   224 ;

                                     0116   225 ; IMPLICIT INPUTS:

                                     0116   226 ;

                                     0116   227 ;	R2,3,4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES

                                     0116   228 ;	  FOR COND TABLES 1,2,3,4,5, RESPECTIVELY.

                                     0116   229 ;

                                     0116   230 ; OUTPUT PARAMETERS:

                                     0116   231 ;

                                     0116   232 ;	CONFLICT SET TO NON-ZERO IF COND TABLE CONFLICT DETECTED.

                                     0116   233 ;

                                     0116   234 ; IMPLICIT OUTPUTS:

                                     0116   235 ;

                                     0116   236 ;	R2,3,4,5,6 PRESERVED

                                     0116   237 ;

                                     0116   238 ; COMPLETION CODES:

                                     0116   239 ;

                                     0116   240 ;	NONE

                                     0116   241 ;

                                     0116   242 ; SIDE EFFECTS:

                                     0116   243 ;

                                     0116   244 ;	NONE

                                     0116   245 ;

                                     0116   246 ;--

                                     0116   247 

                                     0116   248 

                                     0116   249 

                                     0116   250 COND1::

                                 05  0116   251 	RSB				; RETURN TO MAIN ROUTINE

                                     0117   252 COND1_CLEANUP::

                                 05  0117   253 	RSB				; RETURN TO MAIN ROUTINE

                                     0118   254 COND2::

                                 05  0118   255 	RSB				; RETURN TO MAIN ROUTINE

                                     0119   256 COND2_CLEANUP::

                                 05  0119   257 	RSB				; RETURN TO MAIN ROUTINE

SATSSS70        SATS SYSTEM SERVICE TESTS  $EXPREG (SUCC S.C.)   22-AUG-1978 04:14:47   VAX-11 MACRO X0.3-11               Page   9

1.0             CONDITION SUBROUTINES - SETUP AND CLEANUP                                                                        (1)



                                     011A   258 COND3::

                                 05  011A   259 	RSB				; RETURN TO MAIN ROUTINE

                                     011B   260 COND3_CLEANUP::

                                 05  011B   261 	RSB				; RETURN TO MAIN ROUTINE

                                     011C   262 COND4::

                                 05  011C   263 	RSB				; RETURN TO MAIN ROUTINE

                                     011D   264 COND4_CLEANUP::

                                 05  011D   265 	RSB				; RETURN TO MAIN ROUTINE

                                     011E   266 COND5::

                                 05  011E   267 	RSB				; RETURN TO MAIN ROUTINE

                                     011F   268 COND5_CLEANUP::

                                 05  011F   269 	RSB				; RETURN TO MAIN ROUTINE

SATSSS70        SATS SYSTEM SERVICE TESTS  $EXPREG (SUCC S.C.)   22-AUG-1978 04:14:47   VAX-11 MACRO X0.3-11               Page  10

1.0             FORM_CONDS                                                                                                       (1)



                                     0120   271 	.SBTTL	FORM_CONDS

                                     0120   272 ;++

                                     0120   273 ; FUNCTIONAL DESCRIPTION:

                                     0120   274 ;

                                     0120   275 ; 		FORM_CONDS FORMATS AND PRINTS INFORMATION ABOUT

                                     0120   276 ;  THE CURRENT ELEMENT IN EACH OF THE CONDITION TABLES.

                                     0120   277 ;

                                     0120   278 ; CALLING SEQUENCE:

                                     0120   279 ;

                                     0120   280 ;	BSBW FORM_CONDS

                                     0120   281 ;

                                     0120   282 ; INPUT PARAMETERS:

                                     0120   283 ;

                                     0120   284 ;	NONE

                                     0120   285 ;

                                     0120   286 ; IMPLICIT INPUTS:

                                     0120   287 ;

                                     0120   288 ;	R2,3,4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES

                                     0120   289 ;	  FOR COND TABLES 1,2,3,4,5, RESPECTIVELY.

                                     0120   290 ;	FOR X = 1,2,3,4,5 :

                                     0120   291 ;		CONDX_T - TITLE TEXT FOR CONDX TABLE

                                     0120   292 ;		CONDX_TAB - ELEMENT TEXT FOR CONDX TABLE

                                     0120   293 ;		CONDX_C - CONTEXT OF THE CONDX TABLE

                                     0120   294 ;		CONDX_E - DATA ELEMENTS OF THE CONDX TABLE

                                     0120   295 ;

                                     0120   296 ; OUTPUT PARAMETERS:

                                     0120   297 ;

                                     0120   298 ;	NONE

                                     0120   299 ;

                                     0120   300 ; IMPLICIT OUTPUTS:

                                     0120   301 ;

                                     0120   302 ;	NONE

                                     0120   303 ;

                                     0120   304 ; COMPLETION CODES:

                                     0120   305 ;

                                     0120   306 ;	NONE

                                     0120   307 ;

                                     0120   308 ; SIDE EFFECTS:

                                     0120   309 ;

                                     0120   310 ;	NONE

                                     0120   311 ;

                                     0120   312 ;--

                                     0120   313 

                                     0120   314 

                                     0120   315 

                                     0120   316 FORM_CONDS::

                                     0120   317 	$FAO_S	MSG1_INP_CTL,FAO_LEN,FAO_DESC,TESTNUM

                                     013F   318 					; FORMAT CONDITIONS HEADER MSG

                          FEBE'  30  013F   319 	BSBW	OUTPUT_MSG		; ... AND PRINT IT

            14            04     91  0142   320 	CMPB	#COND1_C,#NULL		; IS CONDITION 1 NULL ?

                          03     12  0145   321 	BNEQU	10$			; NO -- CONTINUE

                          00E3   31  0147   322 	BRW	FORM_CONDSX		; YES -- SUBROUTINE IS FINISHED

                                     014A   323 10$:

   00000000'EF   00000021'EF     DE  014A   324 	MOVAL	COND1_T,MSG_A		; SAVE ADDRESS OF CONDITION 1 TITLE FOR FAO

   00000000'EF   00000029'EF42   D0  0155   325 	MOVL	COND1_TAB[R2],MSG_B 	; SAVE ADDR OF COND 1 CURR TEXT ELT FOR FAO

   00000000'EF            04     90  0161   326 	MOVB	#COND1_C,MSG_CTXT 	; SAVE CONDITION 1 CONTEXT FOR FAO

                                     0168   327 	MOV_VAL	COND1_C,COND1_E[R2],MSG_DATA1 ; GIVE COND 1 DATA VALUE TO FAO

SATSSS70        SATS SYSTEM SERVICE TESTS  $EXPREG (SUCC S.C.)   22-AUG-1978 04:14:47   VAX-11 MACRO X0.3-11               Page  11

1.0             FORM_CONDS                                                                                                       (1)



                          FE89'  30  0174   328 	BSBW	WRITE_MSG2		; FORMAT AND WRITE CONDITION 1 MSG

            14            04     91  0177   329 	CMPB	#COND2_C,#NULL		; IS CONDITION 2 NULL ?

                          03     12  017A   330 	BNEQU	20$			; NO -- CONTINUE

                          00AE   31  017C   331 	BRW	FORM_CONDSX		; YES -- SUBROUTINE IS FINISHED

                                     017F   332 20$:

   00000000'EF   00000049'EF     DE  017F   333 	MOVAL	COND2_T,MSG_A		; SAVE ADDRESS OF CONDITION 2 TITLE FOR FAO

   00000000'EF   00000051'EF43   D0  018A   334 	MOVL	COND2_TAB[R3],MSG_B 	; SAVE ADDR OF COND 2 CURR TEXT ELT FOR FAO

   00000000'EF            04     90  0196   335 	MOVB	#COND2_C,MSG_CTXT 	; SAVE CONDITION 2 CONTEXT FOR FAO

                                     019D   336 	MOV_VAL	COND2_C,COND2_E[R3],MSG_DATA1 ; GIVE COND 2 DATA VALUE TO FAO

                          FE54'  30  01A9   337 	BSBW	WRITE_MSG2		; FORMAT AND WRITE CONDITION 2 MSG

            14            04     91  01AC   338 	CMPB	#COND3_C,#NULL		; IS CONDITION 3 NULL ?

                          03     12  01AF   339 	BNEQU	30$			; NO -- CONTINUE

                          0079   31  01B1   340 	BRW	FORM_CONDSX		; YES -- SUBROUTINE IS FINISHED

                                     01B4   341 30$:

   00000000'EF   0000008E'EF     DE  01B4   342 	MOVAL	COND3_T,MSG_A		; SAVE ADDRESS OF CONDITION 3 TITLE FOR FAO

   00000000'EF   00000096'EF44   D0  01BF   343 	MOVL	COND3_TAB[R4],MSG_B 	; SAVE ADDR OF COND 3 CURR TEXT ELT FOR FAO

   00000000'EF            04     90  01CB   344 	MOVB	#COND3_C,MSG_CTXT 	; SAVE CONDITION 3 CONTEXT FOR FAO

                                     01D2   345 	MOV_VAL	COND3_C,COND3_E[R4],MSG_DATA1 ; GIVE COND 3 DATA VALUE TO FAO

                          FE1F'  30  01DE   346 	BSBW	WRITE_MSG2		; FORMAT AND WRITE CONDITION 3 MSG

            14            14     91  01E1   347 	CMPB	#COND4_C,#NULL		; IS CONDITION 4 NULL ?

                          47     13  01E4   348 	BEQLU	FORM_CONDSX		; YES -- SUBROUTINE IS FINISHED

   00000000'EF   000000CD'EF     DE  01E6   349 	MOVAL	COND4_T,MSG_A		; SAVE ADDRESS OF CONDITION 4 TITLE FOR FAO

   00000000'EF   000000CD'EF45   D0  01F1   350 	MOVL	COND4_TAB[R5],MSG_B 	; SAVE ADDR OF COND 4 CURR TEXT ELT FOR FAO

   00000000'EF            14     90  01FD   351 	MOVB	#COND4_C,MSG_CTXT 	; SAVE CONDITION 4 CONTEXT FOR FAO

                                     0204   352 	MOV_VAL	COND4_C,COND4_E[R5],MSG_DATA1 ; GIVE COND 4 DATA VALUE TO FAO

                          FDF9'  30  0204   353 	BSBW	WRITE_MSG2		; FORMAT AND WRITE CONDITION 4 MSG

            14            14     91  0207   354 	CMPB	#COND5_C,#NULL		; IS CONDITION 5 NULL ?

                          21     13  020A   355 	BEQLU	FORM_CONDSX		; YES -- SUBROUTINE IS FINISHED

   00000000'EF   000000CE'EF     DE  020C   356 	MOVAL	COND5_T,MSG_A		; SAVE ADDRESS OF CONDITION 5 TITLE FOR FAO

   00000000'EF   000000CE'EF46   D0  0217   357 	MOVL	COND5_TAB[R6],MSG_B 	; SAVE ADDR OF COND 5 CURR TEXT ELT FOR FAO

   00000000'EF            14     90  0223   358 	MOVB	#COND5_C,MSG_CTXT 	; SAVE CONDITION 5 CONTEXT FOR FAO

                                     022A   359 	MOV_VAL	COND5_C,COND5_E[R6],MSG_DATA1 ; GIVE COND 5 DATA VALUE TO FAO

                          FDD3'  30  022A   360 	BSBW	WRITE_MSG2		; FORMAT AND WRITE CONDITION 5 MSG

                                     022D   361 FORM_CONDSX:

                                 05  022D   362 	RSB				; RETURN TO CALLER

SATSSS70        SATS SYSTEM SERVICE TESTS  $EXPREG (SUCC S.C.)   22-AUG-1978 04:14:47   VAX-11 MACRO X0.3-11               Page  12

1.0             VERIFY                                                                                                           (1)



                                     022E   364 	.SBTTL	VERIFY

                                     022E   365 ;++

                                     022E   366 ; FUNCTIONAL DESCRIPTION:

                                     022E   367 ;

                                     022E   368 ;		VERIFY IS CALLED ONCE FOR EACH COMBINATION OF CONDITION

                                     022E   369 ; TABLE VALUES (AS DETERMINED BY THE INDEX REGISTERS R2,3,4,5,6 FOR

                                     022E   370 ; COND TABLES 1,2,3,4,5, RESPECTIVELY). VERIFY ESTABLISHES THE CONDITIONS

                                     022E   371 ; SPECIFIED BY THE COND TABLES AND ISSUES THE SUBJECT SYSTEM SERVICE

                                     022E   372 ; ($EXPREG). THEN, THE SUCCESSFUL OPERATION OF THE SERVICE IS VERIFIED

                                     022E   373 ; BY EXAMINING THE STATUS CODE RETURNED, THE VALUES FOR RETURN ARGUMENTS

                                     022E   374 ; AND THE FUNCTIONALITY PERFORMED. THE EXAMINATIONS TAKE THE FORM OF 

                                     022E   375 ; COMPARISONS AGAINST EXPECTED VALUES. ANY FAILING COMPARISON CAUSES AN

                                     022E   376 ; ERR_EXIT MACRO TO BE EXECUTED (EITHER DIRECTLY, OR INDIRECTLY,

                                     022E   377 ; THROUGH THE SS_CHECK MACRO); ERR_EXIT SETS EFLAG TO NON-ZERO,

                                     022E   378 ; PRINTS ERROR MESSAGES AND CAUSES AN IMMEDIATE RSB TO CALLER.

                                     022E   379 ; WHEN ERR_EXIT IS EXECUTED, FURTHER CALLS TO VERIFY ARE SUPPRESSED,

                                     022E   380 ; AND, AFTER EXECUTING CLEANUP SUBROUTINES, THE IMAGE EXITS.

                                     022E   381 ;

                                     022E   382 ; CALLING SEQUENCE:

                                     022E   383 ;

                                     022E   384 ;	BSBW VERIFY

                                     022E   385 ;

                                     022E   386 ; INPUT PARAMETERS:

                                     022E   387 ;

                                     022E   388 ;	NONE

                                     022E   389 ;

                                     022E   390 ; IMPLICIT INPUTS:

                                     022E   391 ;

                                     022E   392 ;	R2,3,4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES

                                     022E   393 ;	  FOR COND TABLES 1,2,3,4,5, RESPECTIVELY.

                                     022E   394 ;	FOR X = 1,2,3,4,5 :

                                     022E   395 ;		CONDX_E - ADDRESS OF TABLE OF DATA VALUES FOR CONDX

                                     022E   396 ;		  TABLE. IF THE CONTEXT OF TABLE X IS A SYSTEM SERVICE

                                     022E   397 ;		  ARGUMENT, THE ARGUMENT NAME MAY BE USED AS A SYNONYM

                                     022E   398 ;		  FOR CONDX_E.

                                     022E   399 ;

                                     022E   400 ; OUTPUT PARAMETERS:

                                     022E   401 ;

                                     022E   402 ;	NONE

                                     022E   403 ;

                                     022E   404 ; IMPLICIT OUTPUTS:

                                     022E   405 ;

                                     022E   406 ;	VERIFY HAS NO OUTPUT. SINCE ITS PURPOSE IS TO TEST FOR ERRORS,

                                     022E   407 ;	IT MERELY RETURNS TO CALLER NORMALLY AFTER THE TESTS, PROVIDING

                                     022E   408 ;	ALL WERE SUCCESSFUL; IF AN ERROR IS DISCOVERED, RETURN IS VIA

                                     022E   409 ;	AN ERR_EXIT OR SS_CHECK MACRO, BOTH OF WHICH DOCUMENT DETECTED

                                     022E   410 ;	ERRORS.

                                     022E   411 ;

                                     022E   412 ; COMPLETION CODES:

                                     022E   413 ;

                                     022E   414 ;	EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED.

                                     022E   415 ;

                                     022E   416 ; SIDE EFFECTS:

                                     022E   417 ;

                                     022E   418 ;	SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 

                                     022E   419 ;	(VIA RSB) IF ERROR ENCOUNTERED.

                                     022E   420 ;

SATSSS70        SATS SYSTEM SERVICE TESTS  $EXPREG (SUCC S.C.)   22-AUG-1978 04:14:47   VAX-11 MACRO X0.3-11               Page  13

1.0             VERIFY                                                                                                           (1)



                                     022E   421 ;--

                                     022E   422 

                                     022E   423 

                                     022E   424 

                                     022E   425 VERIFY::

                 00000000'EF     95  022E   426 	TSTB	CFLAG			; SHOULD CONDITIONS BE PRINTED ?

                          03     13  0234   427 	BEQL	5$			; NO -- CONTINUE

                          FEE7   30  0236   428 	BSBW	FORM_CONDS		; YES -- FMT & PRINT ALL CONDS FOR THIS T.C.

                                     0239   429 5$:

            5A   00000051'EF     D0  0239   430 	MOVL	PAGESIZE,R10		; GET PAGE SIZE INTO R10 FOR LATER USE

            58         FF 8F     98  0240   431 	CVTBL	#-1,R8			; ... AND A -1 INTO R8

                 00000041'EF42   D5  0244   432 	TSTL	REGION[R2]		; IS IT PROGRAM REGION ?

                          06     13  024B   433 	BEQL	7$			; YES -- LEAVE REGS ALONE

            5A            5A     CE  024D   434 	MNEGL	R10,R10			; GET NEGATIVE PAGE SIZE

            58            58     CE  0250   435 	MNEGL	R8,R8			; ... AND MAKE R8 = +1

                                     0253   436 7$:

                                     0253   437 	MODE	TO,20$,KRNL		; TO KERNEL FOR EXPREG

                                     0276   438 ;

                                     0276   439 ; ****** SYSTEM SERVICE CALL WHICH IS THE SUBJECT OF THIS TEST CASE ******

                                     0276   440 ;

                                     0276   441 	$EXPREG_S PAGCNT[R3],RETADR,ACMODE[R4],REGION[R2]

                                     0298   442 	MODE	FROM,20$		; BACK TO USER

   00000000'8F            50     D1  0299   443 	CMPL	R0,#SS$_NORMAL		; CODE RECEIVED = CODE EXPECTED ?

                          03     12  02A0   444 	BNEQU	30$			; NO -- GO PROCESS ERROR

                          0061   31  02A2   445 	BRW	55$			; YES -- MORE VERIFYING

                                     02A5   446 30$:

   00000000'EF   00000000'8F     D0  02A5   447 	MOVL	#SS$_NORMAL,EXPV 	; LOAD UP EXPECTED AND

   00000000'EF            50     D0  02B0   448 	MOVL	R0,RECV			; ... RECEIVED VALUES, THEN EXIT

                                     02B7   449 	ERR_EXIT LONG,<INCORRECT STATUS CODE RETURNED FROM EXPREG>

                                     0306   450 55$:

            59   00000009'EF42   D0  0306   451 	MOVL	INITIALADR[R2],R9 	; GET START OF FREE AREA

   00000011'EF            59     D1  030E   452 	CMPL	R9,RETADR		; DID EXPREG RETURN EXPECTED START ADDR ?

                          56     13  0315   453 	BEQLU	60$			; YES -- GO ON

   00000000'EF            59     D0  0317   454 	MOVL	R9,EXPV			; NO -- LOAD UP EXPECTED AND

   00000000'EF   00000011'EF     D0  031E   455 	MOVL	RETADR,RECV		; ... RECEIVED VALUES, THEN EXIT

                                     0329   456 	ERR_EXIT LONG,<INCORRECT STARTING PAGE ADDRESS>

                                     036D   457 60$:					; NOW CHECK ENDING ADDRESS

            5B   00000082'EF43   D0  036D   458 	MOVL	PAGCNT[R3],R11		; GET PAGE COUNT

            5B            5A     C4  0375   459 	MULL2	R10,R11			; MULT COUNT BY PAGE SIZE

            5B            59     C0  0378   460 	ADDL2	R9,R11			; ... ADD STARTING ADDRESS

            5B            58     C0  037B   461 	ADDL2	R8,R11			; ... AND INCREMENT OR DECREMENT

   00000015'EF            5B     D1  037E   462 	CMPL	R11,RETADR+4		; DID EXPREG GIVE US THE RIGHT END ADDR ?

                          54     13  0385   463 	BEQLU	62$			; YES -- VERIFY SOMETHING ELSE

   00000000'EF            5B     D0  0387   464 	MOVL	R11,EXPV		; NO -- LOAD UP EXPECTED AND

   00000000'EF   00000015'EF     D0  038E   465 	MOVL	RETADR+4,RECV		; ... RECEIVED VALUES, THEN EXIT

                                     0399   466 	ERR_EXIT LONG,<INCORRECT ENDING PAGE ADDRESS>

                                     03DB   467 62$:					; CHANGE MODE TO ACCESS NEW REGION SPACE

            03   000000BD'EF44   D1  03DB   468 	CMPL	ACMODE[R4],#PSL$C_USER 	; USER MODE PAGES REQUESTED ?

                          52     13  03E3   469 	BEQLU	70$			; YES -- NO NEED TO CHANGE MODE

            00   000000BD'EF44   D1  03E5   470 	CMPL	ACMODE[R4],#PSL$C_KERNEL ; KERNEL MODE PAGES REQUESTED ?

                          25     13  03ED   471 	BEQLU	65$			; YES -- GO CHANGE TO KERNEL MODE

                                     03EF   472 	MODE	TO,63$,EXEC		; NO -- USE EXEC FOR EXEC & SUPER PAGES

                          23     11  0412   473 	BRB	70$			; ... AND GO ACCESS NEW PAGES

                                     0414   474 65$:

                                     0414   475 	MODE	TO,63$,KRNL		; TO KERNEL MODE

                                     0437   476 70$:

                 00000008'EF     94  0437   477 	CLRB	NZERR			; INDICATE NO NON-ZERO ERROR

SATSSS70        SATS SYSTEM SERVICE TESTS  $EXPREG (SUCC S.C.)   22-AUG-1978 04:14:47   VAX-11 MACRO X0.3-11               Page  14

1.0             VERIFY                                                                                                           (1)



                                     043D   478 75$:

                          69     95  043D   479 	TSTB	(R9)			; FIRST BYTE OF PAGE = ZERO, AS PROMISED ?

                          09     12  043F   480 	BNEQ	80$			; NO -- GO INDICATE NON-ZERO ERROR

            69   00000000'EF     90  0441   481 	MOVB	ONES,(R9)		; DO A STORE -- NO ACCVIO EXPECTED

                          1A     11  0448   482 	BRB	90$			; GO LOOK AT NEXT PAGE

                                     044A   483 80$:

   00000008'EF   00000000'EF     90  044A   484 	MOVB	ONES,NZERR		; INDICATE NON-ZERO ERROR FOUND

                 00000000'EF     94  0455   485 	CLRB	EXPV			; LOAD UP EXPECTED AND

   00000000'EF            69     90  045B   486 	MOVB	(R9),RECV		; ... RECEIVED VALUES, THEN EXIT

                          0A     11  0462   487 	BRB	100$			; GO PROCESS ERROR

                                     0464   488 90$:

            5A   00000015'EF     F1  0464   489 	ACBL	RETADR+4,R10,R9,75$ 	; INCR (OR DECR) TO NEXT PAGE & LOOP

            FFCF          59         046B       

                                     046E   490 100$:

            03   000000BD'EF44   D1  046E   491 	CMPL	ACMODE[R4],#PSL$C_USER 	; USER MODE ?

                          01     13  0476   492 	BEQLU	110$			; YES -- DON'T CHANGE MODE

                                     0478   493 	MODE	FROM,63$		; CHANGE MODE BACK TO USER

                                     0479   494 110$:

                 00000008'EF     95  0479   495 	TSTB	NZERR			; WAS A NON-ZERO ERROR ENCOUNTERED ?

                          4D     13  047F   496 	BEQL	VERIFYX			; NO -- ALL FINISHED

                                     0481   497 	ERR_EXIT BYTE,<A PAGE IN THE EXPANSION AREA IS NON-ZERO>

                                     04CE   498 VERIFYX:

                                 05  04CE   499 	RSB				; RETURN TO CALLER

SATSSS70        SATS SYSTEM SERVICE TESTS  $EXPREG (SUCC S.C.)   22-AUG-1978 04:14:47   VAX-11 MACRO X0.3-11               Page  15

1.0             VFY_CLEANUP                                                                                                      (1)



                                     04CF   501 	.SBTTL	VFY_CLEANUP

                                     04CF   502 ;++

                                     04CF   503 ; FUNCTIONAL DESCRIPTION:

                                     04CF   504 ;

                                     04CF   505 ;		VFY_CLEANUP EXECUTES SYSTEM SERVICES TO UNDO THE

                                     04CF   506 ; EFFECT OF THOSE ISSUED IN THE VERIFY SUBROUTINE. VFY_CLEANUP MUST

                                     04CF   507 ; ASSUME THAT VERIFY MAY NOT HAVE EXECUTED IN ITS ENTIRETY (IF AN

                                     04CF   508 ; ERROR IS FOUND). ALSO, VFY_CLEANUP MAY ISSUE SS_CHECK OR ERR_EXIT

                                     04CF   509 ; ONLY AFTER PERFORMING ALL OF ITS CLEANUP OPERATIONS; THIS IS REQUIRED

                                     04CF   510 ; IN THE EVENT THAT VFY_CLEANUP IS CALLED DURING ERROR PROCESSING,

                                     04CF   511 ; WHEN PERFORMING THE REQUIRED CLEANUP IS MORE IMPORTANT THAN

                                     04CF   512 ; POSSIBLY DISCOVERING A SECOND ERROR.

                                     04CF   513 ;

                                     04CF   514 ; CALLING SEQUENCE:

                                     04CF   515 ;

                                     04CF   516 ;	BSBW VFY_CLEANUP

                                     04CF   517 ;

                                     04CF   518 ; INPUT PARAMETERS:

                                     04CF   519 ;

                                     04CF   520 ;	NONE

                                     04CF   521 ;

                                     04CF   522 ; IMPLICIT INPUTS:

                                     04CF   523 ;

                                     04CF   524 ;	R2,3,4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES

                                     04CF   525 ;	  FOR COND TABLES 1,2,3,4,5, RESPECTIVELY.

                                     04CF   526 ;	FOR X = 1,2,3,4,5 :

                                     04CF   527 ;		CONDX_E - ADDRESS OF TABLE OF DATA VALUES FOR CONDX

                                     04CF   528 ;		  TABLE. IF THE CONTEXT OF TABLE X IS A SYSTEM SERVICE

                                     04CF   529 ;		  ARGUMENT, THE ARGUMENT NAME MAY BE USED AS A SYNONYM

                                     04CF   530 ;		  FOR CONDX_E.

                                     04CF   531 ;

                                     04CF   532 ; OUTPUT PARAMETERS:

                                     04CF   533 ;

                                     04CF   534 ;	NONE

                                     04CF   535 ;

                                     04CF   536 ; IMPLICIT OUTPUTS:

                                     04CF   537 ;

                                     04CF   538 ;	NONE

                                     04CF   539 ;

                                     04CF   540 ; COMPLETION CODES:

                                     04CF   541 ;

                                     04CF   542 ;	EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED.

                                     04CF   543 ;

                                     04CF   544 ; SIDE EFFECTS:

                                     04CF   545 ;

                                     04CF   546 ;	SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 

                                     04CF   547 ;	(VIA RSB) IF ERROR ENCOUNTERED.

                                     04CF   548 ;

                                     04CF   549 ;--

                                     04CF   550 

                                     04CF   551 

                                     04CF   552 

                                     04CF   553 VFY_CLEANUP::

   00000019'EF   00000011'EF     7D  04CF   554 	MOVQ	RETADR,INADR_DVA 	; PAGE RANGE TO DELETE

                                     04DA   555 	MODE	TO,10$,KRNL		; INTO KERNEL FOR DELTVA

                                     04FD   556 	$DELTVA_S INADR=INADR_DVA, -

                                     04FD   557 		  ACMODE=ACMODE[R4]	; GET RID OF ACQUIRED SPACE

SATSSS70        SATS SYSTEM SERVICE TESTS  $EXPREG (SUCC S.C.)   22-AUG-1978 04:14:47   VAX-11 MACRO X0.3-11               Page  16

1.0             VFY_CLEANUP                                                                                                      (1)



                                     0513   558 	MODE	FROM,10$		; BACK TO USER MODE

                                     0514   559 	SS_CHECK NORMAL			; CHECK FOR NORMAL RETURN FROM DELTVA

                                 05  0542   560 	RSB				; RETURN TO CALLER

                                     0543   561 	.END

SATSSS70        SATS SYSTEM SERVICE TESTS  $EXPREG (SUCC S.C.)   22-AUG-1978 04:14:47   VAX-11 MACRO X0.3-11               Page  17

SYMBOL TABLE                                                                                                                     (1)



$$$$           = 0000048B R     05   FAO_LEN          ********   X   05   JPI$_PROCPRIV  = 00000204            

$$$CHARS       = 00000028            FORM_CONDS       00000120 RG    05   JPI$_STATE     = 00000306            

$$$CHARS1      = 00000006            FORM_CONDSX      0000022D R     05   JPI$_STS       = 00000305            

$$$CHARS2      = 00000004            GBL...         = 00000000            JPI$_TMBU      = 0000030B            

$$$CHARS3      = 00000005            INADR_DVA        00000019 R     04   JPI$_TQCNT     = 00000315            

$$$CHARS4      = 00000004            INITIALADR       00000009 R     04   JPI$_TQLM      = 00000410            

$$$CHARS5      = 00000000            JPI$C_ADRTYPE  = 00000001            JPI$_UIC       = 00000304            

$$$COND_A      = 00000003            JPI$C_CTLTYPE  = 00000002            JPI$_USERNAME  = 00000202            

$$$STRINGS     = 00000001            JPI$C_LISTEND  = 00000000            JPI$_VIRTPEAK  = 00000200            

$$$STRINGS2    = 00000005            JPI$C_PCBTYPE  = 00000003            JPI$_VOLUMES   = 00000205            

$$T1           = 00000001            JPI$C_PHDTYPE  = 00000004            JPI$_WSAUTH    = 00000401            

$$T2           = 00000004            JPI$_ACCOUNT   = 00000203            JPI$_WSPEAK    = 00000201            

ACMODE           000000BD R     04   JPI$_APTCNT    = 0000030A            JPI$_WSQUOTA   = 00000402            

BIT...         = 00000000            JPI$_ASTACT    = 00000300            JPI$_WSSIZE    = 00000411            

BYTE           = 00000001  G         JPI$_ASTCNT    = 0000030E            JPITEMS          00000055 R     03   

CFLAG            ********   X   05   JPI$_ASTEN     = 00000301            LONG           = 00000004  G         

CHMRTN           ********   X   05   JPI$_ASTLM     = 00000409            MOD_MSG_CODE     ********   X   05   

CHM_CONT         ********   X   05   JPI$_BIOCNT    = 0000030F            MOD_MSG_PRINT    ********   X   05   

COMP_SC          ********   X   05   JPI$_BIOLM     = 00000310            MSG1_INP_CTL     00000019 R     03   

COND1            00000116 RG    05   JPI$_BUFIO     = 0000040C            MSG3_ERR_CTL     00000039 RG    03   

COND1_C        = 00000004            JPI$_BYTCNT    = 00000311            MSG_A            ********   X   05   

COND1_CLEANUP    00000117 RG    05   JPI$_BYTLM     = 0000031A            MSG_B            ********   X   05   

COND1_E          00000041 R     04   JPI$_CPULIM    = 0000040D            MSG_CTXT         ********   X   05   

COND1_H          00000028 RG    04   JPI$_CPUTIM    = 00000407            MSG_DATA1        ********   X   05   

COND1_T          00000021 R     04   JPI$_CURPRIV   = 00000400            NOTARG         = 00000000  G         

COND1_TAB        00000029 R     04   JPI$_DFPFC     = 00000406            NULL           = 00000014  G         

COND2            00000118 RG    05   JPI$_DFWSCNT   = 00000403            NZERR            00000008 R     04   

COND2_C        = 00000004            JPI$_DIOCNT    = 00000312            ONES             ********   X   05   

COND2_CLEANUP    00000119 RG    05   JPI$_DIOLM     = 00000313            OUTPUT_MSG       ********   X   05   

COND2_E          00000082 R     04   JPI$_DIRIO     = 0000040B            PAGCNT           00000082 R     04   

COND2_H          00000050 RG    04   JPI$_EFCS      = 00000317            PAGESIZE         00000051 R     03   

COND2_T          00000049 R     04   JPI$_EFCU      = 00000318            PCV              ********   X   05   

COND2_TAB        00000051 R     04   JPI$_EFWM      = 00000316            PHD$B_ASTLVL     000000CF            

COND3            0000011A RG    05   JPI$_EXCVEC    = 00000100            PHD$B_DFPFC      00000038            

COND3_C        = 00000004            JPI$_FILCNT    = 00000314            PHD$B_PAGFIL     0000001F            

COND3_CLEANUP    0000011B RG    05   JPI$_FILLM     = 0000040F            PHD$B_PGTBPFC    00000039            

COND3_E          000000BD R     04   JPI$_FINALEXC  = 00000101            PHD$C_LENGTH     00000118            

COND3_H          00000095 RG    04   JPI$_FREP0VA   = 00000404            PHD$C_PHDPAGCTX= 00000008            

COND3_T          0000008E R     04   JPI$_FREP1VA   = 00000405            PHD$K_LENGTH     00000118            

COND3_TAB        00000096 R     04   JPI$_GPGCNT    = 0000030C            PHD$L_BIOCNT     00000054            

COND4            0000011C RG    05   JPI$_GRP       = 00000308            PHD$L_CPULIM     00000058            

COND4_C        = 00000014            JPI$_LASTADR   = 00000102            PHD$L_CPUTIM     0000003C            

COND4_CLEANUP    0000011D RG    05   JPI$_LASTCTL   = 00000207            PHD$L_DIOCNT     00000050            

COND4_H          000000CD RG    04   JPI$_LASTPCB   = 0000031D            PHD$L_ESP        0000007C            

COND4_T          000000CD R     04   JPI$_LASTPHD   = 00000412            PHD$L_FREP0VA    00000028            

COND4_TAB        000000CD R     04   JPI$_LOGINTIM  = 00000206            PHD$L_FREP1VA    00000030            

COND5            0000011E RG    05   JPI$_MEM       = 00000307            PHD$L_FREPTECNT  0000002C            

COND5_C        = 00000014            JPI$_OWNER     = 00000303            PHD$L_KSP        00000078            

COND5_CLEANUP    0000011F RG    05   JPI$_PAGEFLTS  = 0000040A            PHD$L_P0BR       000000C8            

COND5_H          000000CE RG    04   JPI$_PGFLQUOTA = 0000040E            PHD$L_P0LRASTL   000000CC            

COND5_T          000000CE R     04   JPI$_PID       = 00000319            PHD$L_P1BR       000000D0            

COND5_TAB        000000CE R     04   JPI$_PPGCNT    = 0000030D            PHD$L_P1LR       000000D4            

CTL$GL_PHD       ********   X   05   JPI$_PRCCNT    = 0000031B            PHD$L_PAGEFLTS   0000004C            

DESC           = 00000010  G         JPI$_PRCLM     = 00000408            PHD$L_PAGFIL     0000001C            

EFLAG            ********   X   05   JPI$_PRCNAM    = 0000031C            PHD$L_PC         000000C0            

EXPV             ********   X   05   JPI$_PRI       = 00000302            PHD$L_PCB        00000078            

FAO_DESC         ********   X   05   JPI$_PRIB      = 00000309            PHD$L_PGFLCNT    00000034            

SATSSS70        SATS SYSTEM SERVICE TESTS  $EXPREG (SUCC S.C.)   22-AUG-1978 04:14:47   VAX-11 MACRO X0.3-11               Page  18

SYMBOL TABLE                                                                                                                     (1)



PHD$L_PGFLQUOTA  0000005C            PHD$W_WSLIST     00000008            PSL$V_IPL      = 00000010            

PHD$L_PSL        000000C4            PHD$W_WSLOCK     0000000C            PSL$V_IS       = 0000001A            

PHD$L_PSTBASOFF  00000020            PHD$W_WSLX       0000004A            PSL$V_IV       = 00000005            

PHD$L_PTWSLELCK  00000064            PHD$W_WSNEXT     00000010            PSL$V_PRVMOD   = 00000016            

PHD$L_PTWSLEVAL  00000068            PHD$W_WSQUOTA    00000018            PSL$V_TBIT     = 00000004            

PHD$L_R0         00000088            PRIVMASK         00000000 R     04   PSL$V_TP       = 0000001E            

PHD$L_R1         0000008C            PROCESS_ERR      ********   X   05   QUAD           = 00000008  G         

PHD$L_R10        000000B0            PRV$V_ALLSPOOL = 00000004            RECV             ********   X   05   

PHD$L_R11        000000B4            PRV$V_BUGCHK   = 00000017            REGION           00000041 R     04   

PHD$L_R12        000000B8            PRV$V_CMEXEC   = 00000001            REST_REGS        ********   X   05   

PHD$L_R13        000000BC            PRV$V_CMKRNL   = 00000000            RETADR           00000011 R     04   

PHD$L_R2         00000090            PRV$V_DETACH   = 00000005            SAVE_REGS        ********   X   05   

PHD$L_R3         00000094            PRV$V_DIAGNOSE = 00000006            SS$_NORMAL       ********   X   05   

PHD$L_R4         00000098            PRV$V_EXQUOTA  = 00000013            SUCCESS          ********   X   05   

PHD$L_R5         0000009C            PRV$V_GROUP    = 00000008            SYS$CMEXEC       ********   X   05   

PHD$L_R6         000000A0            PRV$V_GRPNAM   = 00000003            SYS$CMKRNL       ********   X   05   

PHD$L_R7         000000A4            PRV$V_LOG_IO   = 00000007            SYS$DELTVA       ********   X   05   

PHD$L_R8         000000A8            PRV$V_MOUNT    = 00000011            SYS$EXPREG       ********   X   05   

PHD$L_R9         000000AC            PRV$V_NETMBX   = 00000014            SYS$FAO          ********   X   05   

PHD$L_REFERFLT   00000014            PRV$V_NOACNT   = 00000009            SYS$GETJPI       ********   X   05   

PHD$L_SSP        00000080            PRV$V_OPER     = 00000012            SYS$SETPRN       ********   X   05   

PHD$L_USP        00000084            PRV$V_PHY_IO   = 00000016            TESTNUM          ********   X   05   

PHD$L_WSL        00000118            PRV$V_PRMCEB   = 0000000A            TEST_MOD_NAME    00000000 RG    03   

PHD$M_DALCSTX  = 00000002            PRV$V_PRMGBL   = 00000018            TEST_MOD_NAME_D  00000009 R     03   

PHD$M_PFMFLG   = 00000001            PRV$V_PRMMBX   = 0000000B            TEST_MOD_SUCC    ********   X   05   

PHD$M_WSPEAKCHK= 00000004            PRV$V_PSWAPM   = 0000000C            TMD_ADDR         ********   X   05   

PHD$Q_PRIVMSK    00000000            PRV$V_SETPRI   = 0000000D            TM_CLEANUP       00000112 RG    05   

PHD$S_ASTLVL   = 00000008            PRV$V_SETPRV   = 0000000E            TM_SETUP         00000000 RG    05   

PHD$S_P0LR     = 00000018            PRV$V_SYSGBL   = 00000019            VERIFY           0000022E RG    05   

PHD$V_ASTLVL   = 00000018            PRV$V_SYSNAM   = 00000002            VERIFYX          000004CE R     05   

PHD$V_DALCSTX  = 00000001            PRV$V_TMPMBX   = 0000000F            VFY_CLEANUP      000004CF RG    05   

PHD$V_P0LR     = 00000000            PRV$V_VOLPRO   = 00000015            WORD           = 00000002  G         

PHD$V_PFMFLG   = 00000000            PRV$V_WORLD    = 00000010            WRITE_MSG2       ********   X   05   

PHD$V_WSPEAKCHK= 00000002            PSL$C_EXEC     = 00000001            

PHD$W_ASTLM      00000044            PSL$C_KERNEL   = 00000000            

PHD$W_BAK        00000048            PSL$C_SUPER    = 00000002            

PHD$W_DFWSCNT    0000001A            PSL$C_USER     = 00000003            

PHD$W_EMPTPG     000000D8            PSL$M_CM       = 80000000            

PHD$W_EXTDYNWS   00000076            PSL$M_CURMOD   = 03000000            

PHD$W_FILLM      00000060            PSL$M_DV       = 00000080            

PHD$W_FLAGS      0000003A            PSL$M_FPD      = 08000000            

PHD$W_PHVINDEX   00000046            PSL$M_FU       = 00000040            

PHD$W_PRCLM      00000042            PSL$M_IPL      = 001F0000            

PHD$W_PST        00000020            PSL$M_IS       = 04000000            

PHD$W_PSTBASMAX  0000004A            PSL$M_IV       = 00000020            

PHD$W_PSTFREE    00000026            PSL$M_PRVMOD   = 00C00000            

PHD$W_PSTLAST    00000024            PSL$M_SAFBITS  = 000037FF            

PHD$W_PTCNTACT   00000070            PSL$M_TBIT     = 00000010            

PHD$W_PTCNTLCK   0000006C            PSL$M_TP       = 40000000            

PHD$W_PTCNTMAX   00000072            PSL$S_CURMOD   = 00000002            

PHD$W_PTCNTVAL   0000006E            PSL$S_IPL      = 00000005            

PHD$W_QUANT      00000040            PSL$S_PRVMOD   = 00000002            

PHD$W_TQLM       00000062            PSL$V_CM       = 0000001F            

PHD$W_WSAUTH     0000000A            PSL$V_CURMOD   = 00000018            

PHD$W_WSDYN      0000000E            PSL$V_DV       = 00000007            

PHD$W_WSFLUID    00000074            PSL$V_FPD      = 0000001B            

PHD$W_WSLAST     00000012            PSL$V_FU       = 00000006            

SATSSS70        SATS SYSTEM SERVICE TESTS  $EXPREG (SUCC S.C.)   22-AUG-1978 04:14:47   VAX-11 MACRO X0.3-11               Page  19

PROGRAM SECTION SYNOPSIS                                                                                                         (1)







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  

RODATA           00000071      03     NOPIC   USR   CON   REL   LCL NOSHR NOEXE   RD  NOWRT LONG  

RWDATA           000000CF      04     NOPIC   USR   CON   REL   LCL NOSHR NOEXE   RD    WRT LONG  

SATSSS70         00000543      05     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

12686. BYTES LEFT IN FREE MEMORY POOL.

96. BYTES OF RECLAIMED MEMORY.

OBJ$:SATSSS70,LIS$:SATSSS70/-SP=EXECML$/ML,LIB$:SYSTST.MLB/ML,SRC$:SATSSS70

46 MLB DIR RDS - 779 GETS TO DEFINE 31 MACROS. 44 INTER. FILE WRITES. 

