SATSSS91        SATS SYSTEM SERVICE TESTS  $ADJSTK (SUCC S.C.)   22-AUG-1978 04:20:54   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      48  DECLARATIONS

   (1)      91  CONDITION TABLES

   (1)     119  TM_SETUP, TM_CLEANUP

   (1)     182  CONDITION SUBROUTINES - SETUP AND CLEANUP 

   (1)     252  FORM_CONDS

   (1)     345  VERIFY

   (1)     507  VFY_CLEANUP

SATSSS91        SATS SYSTEM SERVICE TESTS  $ADJSTK (SUCC S.C.)   22-AUG-1978 04:20:54   VAX-11 MACRO X0.3-11               Page   1

1.0                                                                                                                              (1)



                                     0000     1 	.TITLE	SATSSS91 SATS SYSTEM SERVICE TESTS  $ADJSTK (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 SATSSS91 TO TEST SUCCESSFUL

                                     0000    30 ; OPERATION OF THE $ADJSTK 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: MAY, 1978

                                     0000    41 ;

                                     0000    42 ; MODIFIED BY:

                                     0000    43 ;

                                     0000    44 ;	, : VERSION

                                     0000    45 ; 01	- 

                                     0000    46 ;--

SATSSS91        SATS SYSTEM SERVICE TESTS  $ADJSTK (SUCC S.C.)   22-AUG-1978 04:20:54   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 	$PSLDEF				; ACCESS MODE DEFINITIONS

                                     0000    55 ;

                                     0000    56 ; MACROS:

                                     0000    57 ;

                                     0000    58 ;

                                     0000    59 ; EQUATED SYMBOLS:

                                     0000    60 ;

                                     0000    61 ;

                                     0000    62 ;	THE FOLLOWING ERROR CODES MUST AGREE WITH THE CASE STATEMENT

                                     0000    63 ;	AT THE END OF THE VERIFY SUBROUTINE.

                                     0000    64 ;

                           00000001  0000    65 SCODE_ERR	= 1			; $ADJSTK STATUS CODE ERROR

                           00000002  0000    66 NEWADR_ERR	= 2			; NEWADR ARGUMENT ERROR

                           00000003  0000    67 ADJUSP_ERR	= 3			; ADJUSTED USER SP ERROR

                           00000004  0000    68 SCODE2_ERR	= 4			; 2ND $ADJSTK STATUS CODE ERROR

                           00000005  0000    69 RESTORE_ERR	= 5			; ERROR IN RESTORING ORIGINAL USP VALUE

                                     0000    70 ;

                                     0000    71 ; OWN STORAGE:

                                     0000    72 ;

SATSSS91        SATS SYSTEM SERVICE TESTS  $ADJSTK (SUCC S.C.)   22-AUG-1978 04:20:54   VAX-11 MACRO X0.3-11               Page   3

1.0             DECLARATIONS                                                                                                     (1)



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

                                     0000    75 TEST_MOD_NAME::	STRING	C,<SATSSS91>	; TEST MODULE NAME

                                     0009    76 TEST_MOD_NAME_D: STRING	I,<SATSSS91>	; TEST MODULE NAME DESCRIPTOR

                                     0019    77 MSG1_INP_CTL:	STRING	I,<  SSADS!4ZW: CONDITIONS:>

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

                                     0039    79 MSG3_ERR_CTL::	STRING	I,< *SSADS!4ZW: !AS> 

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

SATSSS91        SATS SYSTEM SERVICE TESTS  $ADJSTK (SUCC S.C.)   22-AUG-1978 04:20:54   VAX-11 MACRO X0.3-11               Page   4

1.0             DECLARATIONS                                                                                                     (1)



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

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

                           0000000C  0008    84 NEWADROUT:	.BLKL	1		; OUTPUT FIELD FOR $ADJSTK NEWADR ARGUMENT

                           00000010  000C    85 ORIGUSP:	.BLKL	1		; ORIGINAL VALUE OF USP (USER STACK POINTER)

                           00000014  0010    86 FINALUSP:	.BLKL	1		; FINAL VALUE OF USP (USER STACK POINTER)

                           00000018  0014    87 SUM:		.BLKL	1		; AREA FOR SUM OF ORIG NEWADR + ADJUST ARG

                           0000001C  0018    88 ADJUSP:		.BLKL	1		; SAVE AREA FOR ADJUSTED USP VALUE

                           0000001D  001C    89 FAIL_CODE:	.BLKB	1		; FAILURE CODE (SEE EQUATED SYMBOLS ABOVE)

SATSSS91        SATS SYSTEM SERVICE TESTS  $ADJSTK (SUCC S.C.)   22-AUG-1978 04:20:54   VAX-11 MACRO X0.3-11               Page   5

1.0             CONDITION TABLES                                                                                                 (1)



                                     001D    91 	.SBTTL	CONDITION TABLES

                                     001D    92 ;

                                     001D    93 ;	***** CONDITION TABLES FOR ADJSTK SYSTEM SERVICE *****

                                     001D    94 ;

                                     001D    95 	COND	1,WORD,<ADJUST>,-

                                     001D    96 		  <ZERO VALUE>,-

                                     001D    97 		  <POSITIVE VALUE>,-

                                     001D    98 		  <NEGATIVE VALUE>,-

                                     001D    99  

                               0000  005A   100 		    .WORD	0	

                               0001  005C   101 		    .WORD	1

                               FFFC  005E   102 		    .WORD	-4

                                     0060   103 ;

                                     0060   104 	COND	2,LONG,<NEWADR>,-

                                     0060   105 		  <ZERO VALUE>,-

                                     0060   106 		  <NON-ZERO VALUE>,-

                                     0060   107  

                           00000000  008A   108 		    .LONG	0

                           0000008E' 008E   109 		    .ADDRESS	.

                                     0092   110 ;

                                     0092   111 	COND	3,NULL

                                     0093   112  

                                     0093   113 	COND	4,NULL

                                     0094   114  

                                     0094   115 	COND	5,NULL

                                     0095   116  

                                 00000000   117 	.PSECT	SATSSS91,RD,WRT,EXE

SATSSS91        SATS SYSTEM SERVICE TESTS  $ADJSTK (SUCC S.C.)   22-AUG-1978 04:20:54   VAX-11 MACRO X0.3-11               Page   6

1.0             TM_SETUP, TM_CLEANUP                                                                                             (1)



                                     0000   119 	.SBTTL	TM_SETUP, TM_CLEANUP

                                     0000   120 ;++

                                     0000   121 ; FUNCTIONAL DESCRIPTION:

                                     0000   122 ;

                                     0000   123 ;		TM_SETUP AND TM_CLEANUP ARE CALLED TO PERFORM

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

                                     0000   125 ; TEST MODULE EXECUTION.

                                     0000   126 ;

                                     0000   127 ; CALLING SEQUENCE:

                                     0000   128 ;

                                     0000   129 ;	BSBW TM_SETUP   BSBW TM_CLEANUP

                                     0000   130 ;

                                     0000   131 ; INPUT PARAMETERS:

                                     0000   132 ;

                                     0000   133 ;	NONE

                                     0000   134 ;

                                     0000   135 ; IMPLICIT INPUTS:

                                     0000   136 ;

                                     0000   137 ;	NONE

                                     0000   138 ;

                                     0000   139 ; OUTPUT PARAMETERS:

                                     0000   140 ;

                                     0000   141 ;	NONE

                                     0000   142 ;

                                     0000   143 ; IMPLICIT OUTPUTS:

                                     0000   144 ;

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

                                     0000   146 ;		   ALL PRIVILEGES ACQUIRED.

                                     0000   147 ;

                                     0000   148 ; COMPLETION CODES:

                                     0000   149 ;

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

                                     0000   151 ;

                                     0000   152 ; SIDE EFFECTS:

                                     0000   153 ;

                                     0000   154 ;	SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 

                                     0000   155 ;	(VIA RSB) IF ERROR ENCOUNTERED.

                                     0000   156 ;

                                     0000   157 ;--

                                     0000   158 

                                     0000   159 

                                     0000   160 

                                     0000   161 TM_SETUP::

                          52     D4  0000   162 	CLRL	R2			; INITIALIZE

                          53     D4  0002   163 	CLRL	R3			; .. CONDITION

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

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

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

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

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

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

   00000000'EF            03         001F       

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

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

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

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

                                     0057   174 	PRIV	ADD,ALL			; GET ALL PRIVILEGES

SATSSS91        SATS SYSTEM SERVICE TESTS  $ADJSTK (SUCC S.C.)   22-AUG-1978 04:20:54   VAX-11 MACRO X0.3-11               Page   7

1.0             TM_SETUP, TM_CLEANUP                                                                                             (1)



                                     0080   175 	$SETPRN_S TEST_MOD_NAME_D 	; SET PROCESS NAME

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

                                 05  00BB   177 	RSB				; RETURN TO MAIN ROUTINE

                                     00BC   178 TM_CLEANUP::

                          FF41'  30  00BC   179 	BSBW	MOD_MSG_PRINT		; PRINT TEST MODULE END MSG

                                 05  00BF   180 	RSB				; RETURN TO MAIN ROUTINE

SATSSS91        SATS SYSTEM SERVICE TESTS  $ADJSTK (SUCC S.C.)   22-AUG-1978 04:20:54   VAX-11 MACRO X0.3-11               Page   8

1.0             CONDITION SUBROUTINES - SETUP AND CLEANUP                                                                        (1)



                                     00C0   182 	.SBTTL	CONDITION SUBROUTINES - SETUP AND CLEANUP 

                                     00C0   183 ;++

                                     00C0   184 ; FUNCTIONAL DESCRIPTION:

                                     00C0   185 ;

                                     00C0   186 ;		CONDX AND CONDX_CLEANUP ARE SUBROUTINES WHICH ARE EXECUTED

                                     00C0   187 ; BEFORE AND AFTER THE VERIFY SUBROUTINE, RESPECTIVELY, WHENEVER A NEW

                                     00C0   188 ; CONDITION X VALUE IS SELECTED (SEE FUNCTIONAL DESCRIPTION OF SUCCOMMON

                                     00C0   189 ; ROUTINE IN SUCCOMMON.MAR). ANY SETUP FUNCTION PARTICULAR TO THE 

                                     00C0   190 ; CONDITION X TABLE IS INCLUDED IN THE CONDX SUBROUTINE AND CLEANED

                                     00C0   191 ; UP, IF NECESSARY, IN THE CONDX_CLEANUP SUBROUTINE. THIS INCLUDES,

                                     00C0   192 ; ESPECIALLY, CODE TO DETECT CONFLICTS AMONG CURRENT ENTRIES IN TWO

                                     00C0   193 ; OR MORE CONDITION TABLES. IF A CONFLICT IS DETECTED, A NON-ZERO

                                     00C0   194 ; VALUE IS STORED INTO CONFLICT, WHICH CAUSES THE CALLING ROUTINE

                                     00C0   195 ; (SUCCOMMON) TO SKIP THE CURRENT ENTRY IN THE CONDITION X TABLE.

                                     00C0   196 ;

                                     00C0   197 ; CALLING SEQUENCE:

                                     00C0   198 ;

                                     00C0   199 ;	BSBW CONDX   BSBW CONDX_CLEANUP

                                     00C0   200 ;	  WHERE X = 1,2,3,4,5

                                     00C0   201 ;

                                     00C0   202 ; INPUT PARAMETERS:

                                     00C0   203 ;

                                     00C0   204 ;	CONFLICT = 0

                                     00C0   205 ;

                                     00C0   206 ; IMPLICIT INPUTS:

                                     00C0   207 ;

                                     00C0   208 ;	R2,3,4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES

                                     00C0   209 ;	  FOR COND TABLES 1,2,3,4,5, RESPECTIVELY.

                                     00C0   210 ;

                                     00C0   211 ; OUTPUT PARAMETERS:

                                     00C0   212 ;

                                     00C0   213 ;	CONFLICT SET TO NON-ZERO IF COND TABLE CONFLICT DETECTED.

                                     00C0   214 ;

                                     00C0   215 ; IMPLICIT OUTPUTS:

                                     00C0   216 ;

                                     00C0   217 ;	R2,3,4,5,6 PRESERVED

                                     00C0   218 ;

                                     00C0   219 ; COMPLETION CODES:

                                     00C0   220 ;

                                     00C0   221 ;	NONE

                                     00C0   222 ;

                                     00C0   223 ; SIDE EFFECTS:

                                     00C0   224 ;

                                     00C0   225 ;	NONE

                                     00C0   226 ;

                                     00C0   227 ;--

                                     00C0   228 

                                     00C0   229 

                                     00C0   230 

                                     00C0   231 COND1::

                                 05  00C0   232 	RSB				; RETURN TO MAIN ROUTINE

                                     00C1   233 COND1_CLEANUP::

                                 05  00C1   234 	RSB				; RETURN TO MAIN ROUTINE

                                     00C2   235 COND2::

                                 05  00C2   236 	RSB				; RETURN TO MAIN ROUTINE

                                     00C3   237 COND2_CLEANUP::

                                 05  00C3   238 	RSB				; RETURN TO MAIN ROUTINE

SATSSS91        SATS SYSTEM SERVICE TESTS  $ADJSTK (SUCC S.C.)   22-AUG-1978 04:20:54   VAX-11 MACRO X0.3-11               Page   9

1.0             CONDITION SUBROUTINES - SETUP AND CLEANUP                                                                        (1)



                                     00C4   239 COND3::

                                 05  00C4   240 	RSB				; RETURN TO MAIN ROUTINE

                                     00C5   241 COND3_CLEANUP::

                                 05  00C5   242 	RSB				; RETURN TO MAIN ROUTINE

                                     00C6   243 COND4::

                                 05  00C6   244 	RSB				; RETURN TO MAIN ROUTINE

                                     00C7   245 COND4_CLEANUP::

                                 05  00C7   246 	RSB				; RETURN TO MAIN ROUTINE

                                     00C8   247 COND5::

                                 05  00C8   248 	RSB				; RETURN TO MAIN ROUTINE

                                     00C9   249 COND5_CLEANUP::

                                 05  00C9   250 	RSB				; RETURN TO MAIN ROUTINE

SATSSS91        SATS SYSTEM SERVICE TESTS  $ADJSTK (SUCC S.C.)   22-AUG-1978 04:20:54   VAX-11 MACRO X0.3-11               Page  10

1.0             FORM_CONDS                                                                                                       (1)



                                     00CA   252 	.SBTTL	FORM_CONDS

                                     00CA   253 ;++

                                     00CA   254 ; FUNCTIONAL DESCRIPTION:

                                     00CA   255 ;

                                     00CA   256 ; 		FORM_CONDS FORMATS AND PRINTS INFORMATION ABOUT

                                     00CA   257 ;  THE CURRENT ELEMENT IN EACH OF THE CONDITION TABLES.

                                     00CA   258 ;

                                     00CA   259 ; CALLING SEQUENCE:

                                     00CA   260 ;

                                     00CA   261 ;	BSBW FORM_CONDS

                                     00CA   262 ;

                                     00CA   263 ; INPUT PARAMETERS:

                                     00CA   264 ;

                                     00CA   265 ;	NONE

                                     00CA   266 ;

                                     00CA   267 ; IMPLICIT INPUTS:

                                     00CA   268 ;

                                     00CA   269 ;	R2,3,4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES

                                     00CA   270 ;	  FOR COND TABLES 1,2,3,4,5, RESPECTIVELY.

                                     00CA   271 ;	FOR X = 1,2,3,4,5 :

                                     00CA   272 ;		CONDX_T - TITLE TEXT FOR CONDX TABLE

                                     00CA   273 ;		CONDX_TAB - ELEMENT TEXT FOR CONDX TABLE

                                     00CA   274 ;		CONDX_C - CONTEXT OF THE CONDX TABLE

                                     00CA   275 ;		CONDX_E - DATA ELEMENTS OF THE CONDX TABLE

                                     00CA   276 ;

                                     00CA   277 ; OUTPUT PARAMETERS:

                                     00CA   278 ;

                                     00CA   279 ;	NONE

                                     00CA   280 ;

                                     00CA   281 ; IMPLICIT OUTPUTS:

                                     00CA   282 ;

                                     00CA   283 ;	NONE

                                     00CA   284 ;

                                     00CA   285 ; COMPLETION CODES:

                                     00CA   286 ;

                                     00CA   287 ;	NONE

                                     00CA   288 ;

                                     00CA   289 ; SIDE EFFECTS:

                                     00CA   290 ;

                                     00CA   291 ;	NONE

                                     00CA   292 ;

                                     00CA   293 ;--

                                     00CA   294 

                                     00CA   295 

                                     00CA   296 

                                     00CA   297 FORM_CONDS::

                                     00CA   298 	$FAO_S	MSG1_INP_CTL,FAO_LEN,FAO_DESC,TESTNUM

                                     00E9   299 					; FORMAT CONDITIONS HEADER MSG

                          FF14'  30  00E9   300 	BSBW	OUTPUT_MSG		; ... AND PRINT IT

            14            02     91  00EC   301 	CMPB	#COND1_C,#NULL		; IS CONDITION 1 NULL ?

                          03     12  00EF   302 	BNEQU	10$			; NO -- CONTINUE

                          00D7   31  00F1   303 	BRW	FORM_CONDSX		; YES -- SUBROUTINE IS FINISHED

                                     00F4   304 10$:

   00000000'EF   0000001D'EF     DE  00F4   305 	MOVAL	COND1_T,MSG_A		; SAVE ADDRESS OF CONDITION 1 TITLE FOR FAO

   00000000'EF   00000025'EF42   D0  00FF   306 	MOVL	COND1_TAB[R2],MSG_B 	; SAVE ADDR OF COND 1 CURR TEXT ELT FOR FAO

   00000000'EF            02     90  010B   307 	MOVB	#COND1_C,MSG_CTXT 	; SAVE CONDITION 1 CONTEXT FOR FAO

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

SATSSS91        SATS SYSTEM SERVICE TESTS  $ADJSTK (SUCC S.C.)   22-AUG-1978 04:20:54   VAX-11 MACRO X0.3-11               Page  11

1.0             FORM_CONDS                                                                                                       (1)



                          FEDF'  30  011E   309 	BSBW	WRITE_MSG2		; FORMAT AND WRITE CONDITION 1 MSG

            14            04     91  0121   310 	CMPB	#COND2_C,#NULL		; IS CONDITION 2 NULL ?

                          03     12  0124   311 	BNEQU	20$			; NO -- CONTINUE

                          00A2   31  0126   312 	BRW	FORM_CONDSX		; YES -- SUBROUTINE IS FINISHED

                                     0129   313 20$:

   00000000'EF   00000060'EF     DE  0129   314 	MOVAL	COND2_T,MSG_A		; SAVE ADDRESS OF CONDITION 2 TITLE FOR FAO

   00000000'EF   00000068'EF43   D0  0134   315 	MOVL	COND2_TAB[R3],MSG_B 	; SAVE ADDR OF COND 2 CURR TEXT ELT FOR FAO

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

                                     0147   317 	MOV_VAL	COND2_C,COND2_E[R3],MSG_DATA1 ; GIVE COND 2 DATA VALUE TO FAO

                          FEAA'  30  0153   318 	BSBW	WRITE_MSG2		; FORMAT AND WRITE CONDITION 2 MSG

            14            14     91  0156   319 	CMPB	#COND3_C,#NULL		; IS CONDITION 3 NULL ?

                          03     12  0159   320 	BNEQU	30$			; NO -- CONTINUE

                          006D   31  015B   321 	BRW	FORM_CONDSX		; YES -- SUBROUTINE IS FINISHED

                                     015E   322 30$:

   00000000'EF   00000092'EF     DE  015E   323 	MOVAL	COND3_T,MSG_A		; SAVE ADDRESS OF CONDITION 3 TITLE FOR FAO

   00000000'EF   00000092'EF44   D0  0169   324 	MOVL	COND3_TAB[R4],MSG_B 	; SAVE ADDR OF COND 3 CURR TEXT ELT FOR FAO

   00000000'EF            14     90  0175   325 	MOVB	#COND3_C,MSG_CTXT 	; SAVE CONDITION 3 CONTEXT FOR FAO

                                     017C   326 	MOV_VAL	COND3_C,COND3_E[R4],MSG_DATA1 ; GIVE COND 3 DATA VALUE TO FAO

                          FE81'  30  017C   327 	BSBW	WRITE_MSG2		; FORMAT AND WRITE CONDITION 3 MSG

            14            14     91  017F   328 	CMPB	#COND4_C,#NULL		; IS CONDITION 4 NULL ?

                          47     13  0182   329 	BEQLU	FORM_CONDSX		; YES -- SUBROUTINE IS FINISHED

   00000000'EF   00000093'EF     DE  0184   330 	MOVAL	COND4_T,MSG_A		; SAVE ADDRESS OF CONDITION 4 TITLE FOR FAO

   00000000'EF   00000093'EF45   D0  018F   331 	MOVL	COND4_TAB[R5],MSG_B 	; SAVE ADDR OF COND 4 CURR TEXT ELT FOR FAO

   00000000'EF            14     90  019B   332 	MOVB	#COND4_C,MSG_CTXT 	; SAVE CONDITION 4 CONTEXT FOR FAO

                                     01A2   333 	MOV_VAL	COND4_C,COND4_E[R5],MSG_DATA1 ; GIVE COND 4 DATA VALUE TO FAO

                          FE5B'  30  01A2   334 	BSBW	WRITE_MSG2		; FORMAT AND WRITE CONDITION 4 MSG

            14            14     91  01A5   335 	CMPB	#COND5_C,#NULL		; IS CONDITION 5 NULL ?

                          21     13  01A8   336 	BEQLU	FORM_CONDSX		; YES -- SUBROUTINE IS FINISHED

   00000000'EF   00000094'EF     DE  01AA   337 	MOVAL	COND5_T,MSG_A		; SAVE ADDRESS OF CONDITION 5 TITLE FOR FAO

   00000000'EF   00000094'EF46   D0  01B5   338 	MOVL	COND5_TAB[R6],MSG_B 	; SAVE ADDR OF COND 5 CURR TEXT ELT FOR FAO

   00000000'EF            14     90  01C1   339 	MOVB	#COND5_C,MSG_CTXT 	; SAVE CONDITION 5 CONTEXT FOR FAO

                                     01C8   340 	MOV_VAL	COND5_C,COND5_E[R6],MSG_DATA1 ; GIVE COND 5 DATA VALUE TO FAO

                          FE35'  30  01C8   341 	BSBW	WRITE_MSG2		; FORMAT AND WRITE CONDITION 5 MSG

                                     01CB   342 FORM_CONDSX:

                                 05  01CB   343 	RSB				; RETURN TO CALLER

SATSSS91        SATS SYSTEM SERVICE TESTS  $ADJSTK (SUCC S.C.)   22-AUG-1978 04:20:54   VAX-11 MACRO X0.3-11               Page  12

1.0             VERIFY                                                                                                           (1)



                                     01CC   345 	.SBTTL	VERIFY

                                     01CC   346 ;++

                                     01CC   347 ; FUNCTIONAL DESCRIPTION:

                                     01CC   348 ;

                                     01CC   349 ;		VERIFY IS CALLED ONCE FOR EACH COMBINATION OF CONDITION

                                     01CC   350 ; TABLE VALUES (AS DETERMINED BY THE INDEX REGISTERS R2,3,4,5,6 FOR

                                     01CC   351 ; COND TABLES 1,2,3,4,5, RESPECTIVELY). VERIFY ESTABLISHES THE CONDITIONS

                                     01CC   352 ; SPECIFIED BY THE COND TABLES AND ISSUES THE SUBJECT SYSTEM SERVICE

                                     01CC   353 ; ($ADJSTK). THEN, THE SUCCESSFUL OPERATION OF THE SERVICE IS VERIFIED

                                     01CC   354 ; BY EXAMINING THE STATUS CODE RETURNED, THE VALUES FOR RETURN ARGUMENTS

                                     01CC   355 ; AND THE FUNCTIONALITY PERFORMED. THE EXAMINATIONS TAKE THE FORM OF 

                                     01CC   356 ; COMPARISONS AGAINST EXPECTED VALUES. ANY FAILING COMPARISON CAUSES AN

                                     01CC   357 ; ERR_EXIT MACRO TO BE EXECUTED (EITHER DIRECTLY, OR INDIRECTLY,

                                     01CC   358 ; THROUGH THE SS_CHECK MACRO); ERR_EXIT SETS EFLAG TO NON-ZERO,

                                     01CC   359 ; PRINTS ERROR MESSAGES AND CAUSES AN IMMEDIATE RSB TO CALLER.

                                     01CC   360 ; WHEN ERR_EXIT IS EXECUTED, FURTHER CALLS TO VERIFY ARE SUPPRESSED,

                                     01CC   361 ; AND, AFTER EXECUTING CLEANUP SUBROUTINES, THE IMAGE EXITS.

                                     01CC   362 ;

                                     01CC   363 ; CALLING SEQUENCE:

                                     01CC   364 ;

                                     01CC   365 ;	BSBW VERIFY

                                     01CC   366 ;

                                     01CC   367 ; INPUT PARAMETERS:

                                     01CC   368 ;

                                     01CC   369 ;	NONE

                                     01CC   370 ;

                                     01CC   371 ; IMPLICIT INPUTS:

                                     01CC   372 ;

                                     01CC   373 ;	R2,3,4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES

                                     01CC   374 ;	  FOR COND TABLES 1,2,3,4,5, RESPECTIVELY.

                                     01CC   375 ;	FOR X = 1,2,3,4,5 :

                                     01CC   376 ;		CONDX_E - ADDRESS OF TABLE OF DATA VALUES FOR CONDX

                                     01CC   377 ;		  TABLE. IF THE CONTEXT OF TABLE X IS A SYSTEM SERVICE

                                     01CC   378 ;		  ARGUMENT, THE ARGUMENT NAME MAY BE USED AS A SYNONYM

                                     01CC   379 ;		  FOR CONDX_E.

                                     01CC   380 ;

                                     01CC   381 ; OUTPUT PARAMETERS:

                                     01CC   382 ;

                                     01CC   383 ;	NONE

                                     01CC   384 ;

                                     01CC   385 ; IMPLICIT OUTPUTS:

                                     01CC   386 ;

                                     01CC   387 ;	VERIFY HAS NO OUTPUT. SINCE ITS PURPOSE IS TO TEST FOR ERRORS,

                                     01CC   388 ;	IT MERELY RETURNS TO CALLER NORMALLY AFTER THE TESTS, PROVIDING

                                     01CC   389 ;	ALL WERE SUCCESSFUL; IF AN ERROR IS DISCOVERED, RETURN IS VIA

                                     01CC   390 ;	AN ERR_EXIT OR SS_CHECK MACRO, BOTH OF WHICH DOCUMENT DETECTED

                                     01CC   391 ;	ERRORS.

                                     01CC   392 ;

                                     01CC   393 ; COMPLETION CODES:

                                     01CC   394 ;

                                     01CC   395 ;	EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED.

                                     01CC   396 ;

                                     01CC   397 ; SIDE EFFECTS:

                                     01CC   398 ;

                                     01CC   399 ;	SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 

                                     01CC   400 ;	(VIA RSB) IF ERROR ENCOUNTERED.

                                     01CC   401 ;

SATSSS91        SATS SYSTEM SERVICE TESTS  $ADJSTK (SUCC S.C.)   22-AUG-1978 04:20:54   VAX-11 MACRO X0.3-11               Page  13

1.0             VERIFY                                                                                                           (1)



                                     01CC   402 ;--

                                     01CC   403 

                                     01CC   404 

                                     01CC   405 

                                     01CC   406 VERIFY::

                 00000000'EF     95  01CC   407 	TSTB	CFLAG			; SHOULD CONDITIONS BE PRINTED ?

                          03     13  01D2   408 	BEQL	5$			; NO -- CONTINUE

                          FEF3   30  01D4   409 	BSBW	FORM_CONDS		; YES -- FMT & PRINT ALL CONDS FOR THIS T.C.

                                     01D7   410 5$:

                 0000001C'EF     94  01D7   411 	CLRB	FAIL_CODE		; INDICATE NO FAILURE YET FOR THIS TEST CASE

            57   0000005A'EF42   32  01DD   412 	CVTWL	ADJUST[R2],R7		; SIGN-EXTEND ADJUST VALUE TO LONGWORD

   0000008A'EF43          57     C1  01E5   413 	ADDL3	R7,NEWADR[R3],SUM 	; GET VALUE FOR USP (USER STACK PTR)

                 00000014'EF         01ED       

                                     01F2   414 	MODE	TO,10$,KRNL		; INTO KERNEL MODE TO AVOID USER SP

   0000000C'EF   00000000'8F     DB  0215   415 	MFPR	#PR$_USP,ORIGUSP	; REMEMBER USER SP VALUE BEFORE TEST

   00000008'EF   0000008A'EF43   D0  0220   416 	MOVL	NEWADR[R3],NEWADROUT	; SEPARATE LONGWORD FOR $ADJSTK OUTPUT

                                     022C   417 ;

                                     022C   418 ; ****** SYSTEM SERVICE CALL WHICH IS THE SUBJECT OF THIS TEST CASE ******

                                     022C   419 ;

                                     022C   420 	$ADJSTK_S ACMODE=#PSL$C_USER, -

                                     022C   421 		  ADJUST=ADJUST[R2],  -

                                     022C   422 		  NEWADR=NEWADROUT

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

                          19     13  024A   424 	BEQLU	20$			; YES -- GO DO SOME VERIFYING

   00000000'EF   00000000'8F     D0  024C   425 	MOVL	#SS$_NORMAL,EXPV 	; NO -- LOAD UP EXPECTED AND

   00000000'EF            50     D0  0257   426 	MOVL	R0,RECV			; ... RECEIVED VALUES

   0000001C'EF            01     90  025E   427 	MOVB	#SCODE_ERR,FAIL_CODE	; ... AND INDICATE ERROR FOR LATER

                                     0265   428 20$:

   00000018'EF   00000000'8F     DB  0265   429 	MFPR	#PR$_USP,ADJUSP		; SAVE "ADJUSTED" USP VALUE

                 0000001C'EF     95  0270   430 	TSTB	FAIL_CODE		; ANY ERRORS ENCOUNTERED YET ?

                          2A     12  0276   431 	BNEQ	30$			; YES -- SKIP THIS VERIFICATION

   00000018'EF   00000008'EF     D1  0278   432 	CMPL	NEWADROUT,ADJUSP	; DID NEWADR GET "ADJUSTED" VALUE ?

                          1D     13  0283   433 	BEQLU	30$			; YES -- THAT'S OK

   00000000'EF   00000018'EF     D0  0285   434 	MOVL	ADJUSP,EXPV		; NO -- LOAD UP EXPECTED AND

   00000000'EF   00000008'EF     D0  0290   435 	MOVL	NEWADROUT,RECV		; ... RECEIVED VALUES

   0000001C'EF            02     90  029B   436 	MOVB	#NEWADR_ERR,FAIL_CODE	; ... AND INDICATE ERROR FOR LATER

                                     02A2   437 30$:

                 0000001C'EF     95  02A2   438 	TSTB	FAIL_CODE		; ANY ERRORS ENCOUNTERED YET ?

                          39     12  02A8   439 	BNEQ	50$			; YES -- SKIP THIS VERIFICATION

            57   00000014'EF     D0  02AA   440 	MOVL	SUM,R7			; SUM OF ORIGINAL NEWADR + ADJUST VALUE

                 0000008A'EF43   D5  02B1   441 	TSTL	NEWADR[R3]		; WAS NEWADR ORIGINALLY ZERO ?

                          07     12  02B8   442 	BNEQ	40$			; NO -- LEAVE R7 AS IS

            57   0000000C'EF     C0  02BA   443 	ADDL2	ORIGUSP,R7		; YES -- ADD ORIGUSP TO ADJUST VALUE

                                     02C1   444 40$:

   00000018'EF            57     D1  02C1   445 	CMPL	R7,ADJUSP		; IS ADJUSP WHAT WE EXPECTED ?

                          19     13  02C8   446 	BEQLU	50$			; YES -- GO ON TO NEXT VERIFICATION

   00000000'EF            57     D0  02CA   447 	MOVL	R7,EXPV			; NO -- LOAD UP EXPECTED AND

   00000000'EF   00000018'EF     D0  02D1   448 	MOVL	ADJUSP,RECV		; ... RECEIVED VALUES

   0000001C'EF            03     90  02DC   449 	MOVB	#ADJUSP_ERR,FAIL_CODE	; ... AND INDICATE ERROR FOR LATER

                                     02E3   450 50$:

   00000010'EF   0000000C'EF     D0  02E3   451 	MOVL	ORIGUSP,FINALUSP	; SET ORIGINAL USP VALUE UP FOR FINAL

                                     02EE   452 	$ADJSTK_S ACMODE=#PSL$C_USER, -	; RE-ADJUST USER STACK BACK TO ORIGINAL

                                     02EE   453 		  NEWADR=FINALUSP

                 0000001C'EF     95  0300   454 	TSTB	FAIL_CODE		; ANY ERRORS ENCOUNTERED YET ?

                          22     12  0306   455 	BNEQ	60$			; YES -- SKIP THIS VERIFICATION

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

                          19     13  030F   457 	BEQLU	60$			; YES -- ON TO MORE VERIFICATION

SATSSS91        SATS SYSTEM SERVICE TESTS  $ADJSTK (SUCC S.C.)   22-AUG-1978 04:20:54   VAX-11 MACRO X0.3-11               Page  14

1.0             VERIFY                                                                                                           (1)



   00000000'EF   00000000'8F     D0  0311   458 	MOVL	#SS$_NORMAL,EXPV 	; NO -- LOAD UP EXPECTED AND

   00000000'EF            50     D0  031C   459 	MOVL	R0,RECV			; ... RECEIVED VALUES

   0000001C'EF            04     90  0323   460 	MOVB	#SCODE2_ERR,FAIL_CODE	; ... AND INDICATE ERROR FOR LATER

                                     032A   461 60$:

            57   00000000'8F     DB  032A   462 	MFPR	#PR$_USP,R7		; GET CURRENT USP VALUE ...

   0000000C'EF            57     D1  0331   463 	CMPL	R7,ORIGUSP		; ... WAS IT RESTORED TO ORIGINAL ?

                          2C     13  0338   464 	BEQLU	70$			; YES -- ALL FINISHED WITH VERIFICATION

   0000000C'EF   00000000'EF     DA  033A   465 	MTPR	PR$_USP,ORIGUSP		; NO -- RESTORE ORIGINAL USP VALUE

                 0000001C'EF     95  0345   466 	TSTB	FAIL_CODE		; ANY ERRORS ENCOUNTERED YET ?

                          19     12  034B   467 	BNEQ	70$			; YES -- DON'T REPORT THIS ONE

   00000000'EF   0000000C'EF     D0  034D   468 	MOVL	ORIGUSP,EXPV		; NO -- LOAD UP EXPECTED AND

   00000000'EF            57     D0  0358   469 	MOVL	R7,RECV			; ... RECEIVED VALUES

   0000001C'EF            05     90  035F   470 	MOVB	#RESTORE_ERR,FAIL_CODE	; ... AND INDICATE ERROR FOR LATER

                                     0366   471 70$:

                                     0366   472 	MODE	FROM,10$		; GET BACK TO USER MODE

                                     0367   473 ;

                                     0367   474 ; THE FOLLOWING CASE STATEMENT CHOOSES AN APPROPRIATE ERROR MESSAGE

                                     0367   475 ; BASED ON A VALUE IN FAIL_CODE. A VALUE OF ZERO IMPLIES NO ERRORS.

                                     0367   476 ; EACH ERR_EXIT MACRO TERMINATES THE VERIFY SUBROUTINE. THE ERR_EXIT

                                     0367   477 ; MACROS APPEAR HERE BECAUSE THEY MAY NOT BE ISSUED IN A KERNEL MODE

                                     0367   478 ; ROUTINE.

                                     0367   479 ;

            00   0000001C'EF     8F  0367   480 	CASEB	FAIL_CODE,#0,#5		; BRANCH TO CORRECT ERR_EXIT MACRO

                          05         036E       

                                     036F   481 80$:					; START OF CASE WORD DISPLACEMENTS

                               01BD' 036F   482 	.WORD	VERIFYX-80$		; FAIL_CODE = 0, NO ERRORS

                               000F' 0371   483 	.WORD	90$-80$			; FAIL_CODE = SCODE_ERR

                               005E' 0373   484 	.WORD	100$-80$		; FAIL_CODE = NEWADR_ERR

                               00BF' 0375   485 	.WORD	110$-80$		; FAIL_CODE = ADJUSP_ERR

                               010C' 0377   486 	.WORD	120$-80$		; FAIL_CODE = SCODE2_ERR

                               0160' 0379   487 	.WORD	130$-80$		; FAIL_CODE = RESTORE_ERR

                          01AE   31  037B   488 	BRW	VERIFYX			; BRANCH PAST CASE ROUTINES

                                     037E   489 90$:

                                     037E   490 	ERR_EXIT LONG,<INCORRECT STATUS CODE RETURNED FROM ADJSTK>

                                     03CD   491 100$:

                                     03CD   492 	ERR_EXIT LONG,<ADJUSTED STACK POINTER VALUE NOT>, -

                                     03CD   493 		      < RETURNED IN NEWADR ARGUMENT>

                                     042E   494 110$:

                                     042E   495 	ERR_EXIT LONG,<UNEXPECTED RESULTANT STACK POINTER VALUE>

                                     047B   496 120$:

                                     047B   497 	ERR_EXIT LONG,<UNEXPECTED STATUS CODE FROM NON-SUBJECT $ADJSTK>

                                     04CF   498 130$:

                                     04CF   499 	ERR_EXIT LONG,<2ND $ADJSTK DID NOT RE-ADJUST USP BACK TO>, -

                                     04CF   500 		      < ORIGINAL VALUE>

                                     052C   501 ;

                                     052C   502 ; END OF CASE ROUTINES

                                     052C   503 ;

                                     052C   504 VERIFYX:

                                 05  052C   505 	RSB				; RETURN TO CALLER

SATSSS91        SATS SYSTEM SERVICE TESTS  $ADJSTK (SUCC S.C.)   22-AUG-1978 04:20:54   VAX-11 MACRO X0.3-11               Page  15

1.0             VFY_CLEANUP                                                                                                      (1)



                                     052D   507 	.SBTTL	VFY_CLEANUP

                                     052D   508 ;++

                                     052D   509 ; FUNCTIONAL DESCRIPTION:

                                     052D   510 ;

                                     052D   511 ;		VFY_CLEANUP EXECUTES SYSTEM SERVICES TO UNDO THE

                                     052D   512 ; EFFECT OF THOSE ISSUED IN THE VERIFY SUBROUTINE. VFY_CLEANUP MUST

                                     052D   513 ; ASSUME THAT VERIFY MAY NOT HAVE EXECUTED IN ITS ENTIRETY (IF AN

                                     052D   514 ; ERROR IS FOUND). ALSO, VFY_CLEANUP MAY ISSUE SS_CHECK OR ERR_EXIT

                                     052D   515 ; ONLY AFTER PERFORMING ALL OF ITS CLEANUP OPERATIONS; THIS IS REQUIRED

                                     052D   516 ; IN THE EVENT THAT VFY_CLEANUP IS CALLED DURING ERROR PROCESSING,

                                     052D   517 ; WHEN PERFORMING THE REQUIRED CLEANUP IS MORE IMPORTANT THAN

                                     052D   518 ; POSSIBLY DISCOVERING A SECOND ERROR.

                                     052D   519 ;

                                     052D   520 ; CALLING SEQUENCE:

                                     052D   521 ;

                                     052D   522 ;	BSBW VFY_CLEANUP

                                     052D   523 ;

                                     052D   524 ; INPUT PARAMETERS:

                                     052D   525 ;

                                     052D   526 ;	NONE

                                     052D   527 ;

                                     052D   528 ; IMPLICIT INPUTS:

                                     052D   529 ;

                                     052D   530 ;	R2,3,4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES

                                     052D   531 ;	  FOR COND TABLES 1,2,3,4,5, RESPECTIVELY.

                                     052D   532 ;	FOR X = 1,2,3,4,5 :

                                     052D   533 ;		CONDX_E - ADDRESS OF TABLE OF DATA VALUES FOR CONDX

                                     052D   534 ;		  TABLE. IF THE CONTEXT OF TABLE X IS A SYSTEM SERVICE

                                     052D   535 ;		  ARGUMENT, THE ARGUMENT NAME MAY BE USED AS A SYNONYM

                                     052D   536 ;		  FOR CONDX_E.

                                     052D   537 ;

                                     052D   538 ; OUTPUT PARAMETERS:

                                     052D   539 ;

                                     052D   540 ;	NONE

                                     052D   541 ;

                                     052D   542 ; IMPLICIT OUTPUTS:

                                     052D   543 ;

                                     052D   544 ;	NONE

                                     052D   545 ;

                                     052D   546 ; COMPLETION CODES:

                                     052D   547 ;

                                     052D   548 ;	EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED.

                                     052D   549 ;

                                     052D   550 ; SIDE EFFECTS:

                                     052D   551 ;

                                     052D   552 ;	SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 

                                     052D   553 ;	(VIA RSB) IF ERROR ENCOUNTERED.

                                     052D   554 ;

                                     052D   555 ;--

                                     052D   556 

                                     052D   557 

                                     052D   558 

                                     052D   559 VFY_CLEANUP::

                                 05  052D   560 	RSB				; RETURN TO CALLER

                                     052E   561 	.END

SATSSS91        SATS SYSTEM SERVICE TESTS  $ADJSTK (SUCC S.C.)   22-AUG-1978 04:20:54   VAX-11 MACRO X0.3-11               Page  16

SYMBOL TABLE                                                                                                                     (1)



$$$$           = 000004D9 R     05   FAO_DESC         ********   X   05   PHD$L_R11        000000B4            

$$$CHARS       = 00000038            FAO_LEN          ********   X   05   PHD$L_R12        000000B8            

$$$CHARS1      = 0000000A            FINALUSP         00000010 R     04   PHD$L_R13        000000BC            

$$$CHARS2      = 0000000E            FORM_CONDS       000000CA RG    05   PHD$L_R2         00000090            

$$$CHARS3      = 00000000            FORM_CONDSX      000001CB R     05   PHD$L_R3         00000094            

$$$CHARS4      = 00000000            GBL...         = 00000000            PHD$L_R4         00000098            

$$$CHARS5      = 00000000            LONG           = 00000004  G         PHD$L_R5         0000009C            

$$$COND_A      = 00000001            MOD_MSG_CODE     ********   X   05   PHD$L_R6         000000A0            

$$$STRINGS     = 00000001            MOD_MSG_PRINT    ********   X   05   PHD$L_R7         000000A4            

$$$STRINGS2    = 00000005            MSG1_INP_CTL     00000019 R     03   PHD$L_R8         000000A8            

$$T2           = 00000004            MSG3_ERR_CTL     00000039 RG    03   PHD$L_R9         000000AC            

ADJUSP           00000018 R     04   MSG_A            ********   X   05   PHD$L_REFERFLT   00000014            

ADJUSP_ERR     = 00000003            MSG_B            ********   X   05   PHD$L_SSP        00000080            

ADJUST           0000005A R     04   MSG_CTXT         ********   X   05   PHD$L_USP        00000084            

BIT...         = 00000000            MSG_DATA1        ********   X   05   PHD$L_WSL        00000118            

BYTE           = 00000001  G         NEWADR           0000008A R     04   PHD$M_DALCSTX  = 00000002            

CFLAG            ********   X   05   NEWADROUT        00000008 R     04   PHD$M_PFMFLG   = 00000001            

CHMRTN           ********   X   05   NEWADR_ERR     = 00000002            PHD$M_WSPEAKCHK= 00000004            

CHM_CONT         ********   X   05   NOTARG         = 00000000  G         PHD$Q_PRIVMSK    00000000            

COMP_SC          ********   X   05   NULL           = 00000014  G         PHD$S_ASTLVL   = 00000008            

COND1            000000C0 RG    05   ONES             ********   X   05   PHD$S_P0LR     = 00000018            

COND1_C        = 00000002            ORIGUSP          0000000C R     04   PHD$V_ASTLVL   = 00000018            

COND1_CLEANUP    000000C1 RG    05   OUTPUT_MSG       ********   X   05   PHD$V_DALCSTX  = 00000001            

COND1_E          0000005A R     04   PCV              ********   X   05   PHD$V_P0LR     = 00000000            

COND1_H          00000024 RG    04   PHD$B_ASTLVL     000000CF            PHD$V_PFMFLG   = 00000000            

COND1_T          0000001D R     04   PHD$B_DFPFC      00000038            PHD$V_WSPEAKCHK= 00000002            

COND1_TAB        00000025 R     04   PHD$B_PAGFIL     0000001F            PHD$W_ASTLM      00000044            

COND2            000000C2 RG    05   PHD$B_PGTBPFC    00000039            PHD$W_BAK        00000048            

COND2_C        = 00000004            PHD$C_LENGTH     00000118            PHD$W_DFWSCNT    0000001A            

COND2_CLEANUP    000000C3 RG    05   PHD$C_PHDPAGCTX= 00000008            PHD$W_EMPTPG     000000D8            

COND2_E          0000008A R     04   PHD$K_LENGTH     00000118            PHD$W_EXTDYNWS   00000076            

COND2_H          00000067 RG    04   PHD$L_BIOCNT     00000054            PHD$W_FILLM      00000060            

COND2_T          00000060 R     04   PHD$L_CPULIM     00000058            PHD$W_FLAGS      0000003A            

COND2_TAB        00000068 R     04   PHD$L_CPUTIM     0000003C            PHD$W_PHVINDEX   00000046            

COND3            000000C4 RG    05   PHD$L_DIOCNT     00000050            PHD$W_PRCLM      00000042            

COND3_C        = 00000014            PHD$L_ESP        0000007C            PHD$W_PST        00000020            

COND3_CLEANUP    000000C5 RG    05   PHD$L_FREP0VA    00000028            PHD$W_PSTBASMAX  0000004A            

COND3_H          00000092 RG    04   PHD$L_FREP1VA    00000030            PHD$W_PSTFREE    00000026            

COND3_T          00000092 R     04   PHD$L_FREPTECNT  0000002C            PHD$W_PSTLAST    00000024            

COND3_TAB        00000092 R     04   PHD$L_KSP        00000078            PHD$W_PTCNTACT   00000070            

COND4            000000C6 RG    05   PHD$L_P0BR       000000C8            PHD$W_PTCNTLCK   0000006C            

COND4_C        = 00000014            PHD$L_P0LRASTL   000000CC            PHD$W_PTCNTMAX   00000072            

COND4_CLEANUP    000000C7 RG    05   PHD$L_P1BR       000000D0            PHD$W_PTCNTVAL   0000006E            

COND4_H          00000093 RG    04   PHD$L_P1LR       000000D4            PHD$W_QUANT      00000040            

COND4_T          00000093 R     04   PHD$L_PAGEFLTS   0000004C            PHD$W_TQLM       00000062            

COND4_TAB        00000093 R     04   PHD$L_PAGFIL     0000001C            PHD$W_WSAUTH     0000000A            

COND5            000000C8 RG    05   PHD$L_PC         000000C0            PHD$W_WSDYN      0000000E            

COND5_C        = 00000014            PHD$L_PCB        00000078            PHD$W_WSFLUID    00000074            

COND5_CLEANUP    000000C9 RG    05   PHD$L_PGFLCNT    00000034            PHD$W_WSLAST     00000012            

COND5_H          00000094 RG    04   PHD$L_PGFLQUOTA  0000005C            PHD$W_WSLIST     00000008            

COND5_T          00000094 R     04   PHD$L_PSL        000000C4            PHD$W_WSLOCK     0000000C            

COND5_TAB        00000094 R     04   PHD$L_PSTBASOFF  00000020            PHD$W_WSLX       0000004A            

CTL$GL_PHD       ********   X   05   PHD$L_PTWSLELCK  00000064            PHD$W_WSNEXT     00000010            

DESC           = 00000010  G         PHD$L_PTWSLEVAL  00000068            PHD$W_WSQUOTA    00000018            

EFLAG            ********   X   05   PHD$L_R0         00000088            PR$_USP          ********   X   05   

EXPV             ********   X   05   PHD$L_R1         0000008C            PRIVMASK         00000000 R     04   

FAIL_CODE        0000001C R     04   PHD$L_R10        000000B0            PROCESS_ERR      ********   X   05   

SATSSS91        SATS SYSTEM SERVICE TESTS  $ADJSTK (SUCC S.C.)   22-AUG-1978 04:20:54   VAX-11 MACRO X0.3-11               Page  17

SYMBOL TABLE                                                                                                                     (1)



PRV$V_ALLSPOOL = 00000004            RECV             ********   X   05   

PRV$V_BUGCHK   = 00000017            RESTORE_ERR    = 00000005            

PRV$V_CMEXEC   = 00000001            REST_REGS        ********   X   05   

PRV$V_CMKRNL   = 00000000            SAVE_REGS        ********   X   05   

PRV$V_DETACH   = 00000005            SCODE2_ERR     = 00000004            

PRV$V_DIAGNOSE = 00000006            SCODE_ERR      = 00000001            

PRV$V_EXQUOTA  = 00000013            SS$_NORMAL       ********   X   05   

PRV$V_GROUP    = 00000008            SUCCESS          ********   X   05   

PRV$V_GRPNAM   = 00000003            SUM              00000014 R     04   

PRV$V_LOG_IO   = 00000007            SYS$ADJSTK       ********   X   05   

PRV$V_MOUNT    = 00000011            SYS$CMKRNL       ********   X   05   

PRV$V_NETMBX   = 00000014            SYS$FAO          ********   X   05   

PRV$V_NOACNT   = 00000009            SYS$SETPRN       ********   X   05   

PRV$V_OPER     = 00000012            TESTNUM          ********   X   05   

PRV$V_PHY_IO   = 00000016            TEST_MOD_NAME    00000000 RG    03   

PRV$V_PRMCEB   = 0000000A            TEST_MOD_NAME_D  00000009 R     03   

PRV$V_PRMGBL   = 00000018            TEST_MOD_SUCC    ********   X   05   

PRV$V_PRMMBX   = 0000000B            TMD_ADDR         ********   X   05   

PRV$V_PSWAPM   = 0000000C            TM_CLEANUP       000000BC RG    05   

PRV$V_SETPRI   = 0000000D            TM_SETUP         00000000 RG    05   

PRV$V_SETPRV   = 0000000E            VERIFY           000001CC RG    05   

PRV$V_SYSGBL   = 00000019            VERIFYX          0000052C R     05   

PRV$V_SYSNAM   = 00000002            VFY_CLEANUP      0000052D RG    05   

PRV$V_TMPMBX   = 0000000F            WORD           = 00000002  G         

PRV$V_VOLPRO   = 00000015            WRITE_MSG2       ********   X   05   

PRV$V_WORLD    = 00000010            

PSL$C_EXEC     = 00000001            

PSL$C_KERNEL   = 00000000            

PSL$C_SUPER    = 00000002            

PSL$C_USER     = 00000003            

PSL$M_CM       = 80000000            

PSL$M_CURMOD   = 03000000            

PSL$M_DV       = 00000080            

PSL$M_FPD      = 08000000            

PSL$M_FU       = 00000040            

PSL$M_IPL      = 001F0000            

PSL$M_IS       = 04000000            

PSL$M_IV       = 00000020            

PSL$M_PRVMOD   = 00C00000            

PSL$M_SAFBITS  = 000037FF            

PSL$M_TBIT     = 00000010            

PSL$M_TP       = 40000000            

PSL$S_CURMOD   = 00000002            

PSL$S_IPL      = 00000005            

PSL$S_PRVMOD   = 00000002            

PSL$V_CM       = 0000001F            

PSL$V_CURMOD   = 00000018            

PSL$V_DV       = 00000007            

PSL$V_FPD      = 0000001B            

PSL$V_FU       = 00000006            

PSL$V_IPL      = 00000010            

PSL$V_IS       = 0000001A            

PSL$V_IV       = 00000005            

PSL$V_PRVMOD   = 00000016            

PSL$V_TBIT     = 00000004            

PSL$V_TP       = 0000001E            

QUAD           = 00000008  G         

SATSSS91        SATS SYSTEM SERVICE TESTS  $ADJSTK (SUCC S.C.)   22-AUG-1978 04:20:54   VAX-11 MACRO X0.3-11               Page  18

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           00000051      03     NOPIC   USR   CON   REL   LCL NOSHR NOEXE   RD  NOWRT LONG  

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

SATSSS91         0000052E      05     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

14938. BYTES LEFT IN FREE MEMORY POOL.

298. BYTES OF RECLAIMED MEMORY.

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

37 MLB DIR RDS - 651 GETS TO DEFINE 26 MACROS. 34 INTER. FILE WRITES. 

