SATSSS26        SATS SYST SERV TESTS  AST SERVS (SUCC S.C.)      22-AUG-1978 04:01:19   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      48  DECLARATIONS

   (1)      75  CONDITION TABLES

   (1)      91  TM_SETUP, TM_CLEANUP

   (1)     154  CONDITION SUBROUTINES - SETUP AND CLEANUP 

   (1)     224  FORM_CONDS

   (1)     317  VERIFY

   (1)     388  VFY_CLEANUP

SATSSS26        SATS SYST SERV TESTS  AST SERVS (SUCC S.C.)      22-AUG-1978 04:01:19   VAX-11 MACRO X0.3-11               Page   1

1.0                                                                                                                              (1)



                                     0000     1 	.TITLE	SATSSS26 SATS SYST SERV TESTS  AST SERVS (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 SATSSS26 TO TEST SUCCESSFUL

                                     0000    30 ; OPERATION OF THE AST SYSTEM SERVICES. EACH 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: MMM, 1978

                                     0000    41 ;

                                     0000    42 ; MODIFIED BY:

                                     0000    43 ;

                                     0000    44 ;	, : VERSION

                                     0000    45 ; 01	- 

                                     0000    46 ;--

SATSSS26        SATS SYST SERV TESTS  AST SERVS (SUCC S.C.)      22-AUG-1978 04:01:19   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 ;

                                     0000    55 ; MACROS:

                                     0000    56 ;

                                     0000    57 ;

                                     0000    58 ; EQUATED SYMBOLS:

                                     0000    59 ;

                                     0000    60 ;

                                     0000    61 ; OWN STORAGE:

                                     0000    62 ;

SATSSS26        SATS SYST SERV TESTS  AST SERVS (SUCC S.C.)      22-AUG-1978 04:01:19   VAX-11 MACRO X0.3-11               Page   3

1.0             DECLARATIONS                                                                                                     (1)



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

                                     0000    65 TEST_MOD_NAME::	STRING	C,<SATSSS26>	; TEST MODULE NAME

                                     0009    66 TEST_MOD_NAME_D: STRING	I,<SATSSS26>	; TEST MODULE NAME DESCRIPTOR

                                     0019    67 MSG1_INP_CTL:	STRING	I,<  SSAST!4ZW: CONDITIONS:>

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

                                     0039    69 MSG3_ERR_CTL::	STRING	I,< *SSAST!4ZW: !AS> 

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

SATSSS26        SATS SYST SERV TESTS  AST SERVS (SUCC S.C.)      22-AUG-1978 04:01:19   VAX-11 MACRO X0.3-11               Page   4

1.0             DECLARATIONS                                                                                                     (1)



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

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

SATSSS26        SATS SYST SERV TESTS  AST SERVS (SUCC S.C.)      22-AUG-1978 04:01:19   VAX-11 MACRO X0.3-11               Page   5

1.0             CONDITION TABLES                                                                                                 (1)



                                     0008    75 	.SBTTL	CONDITION TABLES

                                     0008    76 ;

                                     0008    77 ;	***** CONDITION TABLES FOR AST SYSTEM SERVICES *****

                                     0008    78 ;

                                     0008    79 	COND	1,NULL

                                     0009    80  

                                     0009    81 	COND	2,NULL

                                     000A    82  

                                     000A    83 	COND	3,NULL

                                     000B    84  

                                     000B    85 	COND	4,NULL

                                     000C    86  

                                     000C    87 	COND	5,NULL

                                     000D    88  

                                 00000000    89 	.PSECT	SATSSS26,RD,WRT,EXE

SATSSS26        SATS SYST SERV TESTS  AST SERVS (SUCC S.C.)      22-AUG-1978 04:01:19   VAX-11 MACRO X0.3-11               Page   6

1.0             TM_SETUP, TM_CLEANUP                                                                                             (1)



                                     0000    91 	.SBTTL	TM_SETUP, TM_CLEANUP

                                     0000    92 ;++

                                     0000    93 ; FUNCTIONAL DESCRIPTION:

                                     0000    94 ;

                                     0000    95 ;		TM_SETUP AND TM_CLEANUP ARE CALLED TO PERFORM

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

                                     0000    97 ; TEST MODULE EXECUTION.

                                     0000    98 ;

                                     0000    99 ; CALLING SEQUENCE:

                                     0000   100 ;

                                     0000   101 ;	BSBW TM_SETUP   BSBW TM_CLEANUP

                                     0000   102 ;

                                     0000   103 ; INPUT PARAMETERS:

                                     0000   104 ;

                                     0000   105 ;	NONE

                                     0000   106 ;

                                     0000   107 ; IMPLICIT INPUTS:

                                     0000   108 ;

                                     0000   109 ;	NONE

                                     0000   110 ;

                                     0000   111 ; OUTPUT PARAMETERS:

                                     0000   112 ;

                                     0000   113 ;	NONE

                                     0000   114 ;

                                     0000   115 ; IMPLICIT OUTPUTS:

                                     0000   116 ;

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

                                     0000   118 ;		   ALL PRIVILEGES ACQUIRED.

                                     0000   119 ;

                                     0000   120 ; COMPLETION CODES:

                                     0000   121 ;

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

                                     0000   123 ;

                                     0000   124 ; SIDE EFFECTS:

                                     0000   125 ;

                                     0000   126 ;	SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 

                                     0000   127 ;	(VIA RSB) IF ERROR ENCOUNTERED.

                                     0000   128 ;

                                     0000   129 ;--

                                     0000   130 

                                     0000   131 

                                     0000   132 

                                     0000   133 TM_SETUP::

                          52     D4  0000   134 	CLRL	R2			; INITIALIZE

                          53     D4  0002   135 	CLRL	R3			; .. CONDITION

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

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

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

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

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

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

   00000000'EF            03         001F       

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

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

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

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

                                     0057   146 	PRIV	ADD,ALL			; GET ALL PRIVILEGES

SATSSS26        SATS SYST SERV TESTS  AST SERVS (SUCC S.C.)      22-AUG-1978 04:01:19   VAX-11 MACRO X0.3-11               Page   7

1.0             TM_SETUP, TM_CLEANUP                                                                                             (1)



                                     0080   147 	$SETPRN_S TEST_MOD_NAME_D 	; SET PROCESS NAME

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

                                 05  00BB   149 	RSB				; RETURN TO MAIN ROUTINE

                                     00BC   150 TM_CLEANUP::

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

                                 05  00BF   152 	RSB				; RETURN TO MAIN ROUTINE

SATSSS26        SATS SYST SERV TESTS  AST SERVS (SUCC S.C.)      22-AUG-1978 04:01:19   VAX-11 MACRO X0.3-11               Page   8

1.0             CONDITION SUBROUTINES - SETUP AND CLEANUP                                                                        (1)



                                     00C0   154 	.SBTTL	CONDITION SUBROUTINES - SETUP AND CLEANUP 

                                     00C0   155 ;++

                                     00C0   156 ; FUNCTIONAL DESCRIPTION:

                                     00C0   157 ;

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

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

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

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

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

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

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

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

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

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

                                     00C0   168 ;

                                     00C0   169 ; CALLING SEQUENCE:

                                     00C0   170 ;

                                     00C0   171 ;	BSBW CONDX   BSBW CONDX_CLEANUP

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

                                     00C0   173 ;

                                     00C0   174 ; INPUT PARAMETERS:

                                     00C0   175 ;

                                     00C0   176 ;	CONFLICT = 0

                                     00C0   177 ;

                                     00C0   178 ; IMPLICIT INPUTS:

                                     00C0   179 ;

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

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

                                     00C0   182 ;

                                     00C0   183 ; OUTPUT PARAMETERS:

                                     00C0   184 ;

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

                                     00C0   186 ;

                                     00C0   187 ; IMPLICIT OUTPUTS:

                                     00C0   188 ;

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

                                     00C0   190 ;

                                     00C0   191 ; COMPLETION CODES:

                                     00C0   192 ;

                                     00C0   193 ;	NONE

                                     00C0   194 ;

                                     00C0   195 ; SIDE EFFECTS:

                                     00C0   196 ;

                                     00C0   197 ;	NONE

                                     00C0   198 ;

                                     00C0   199 ;--

                                     00C0   200 

                                     00C0   201 

                                     00C0   202 

                                     00C0   203 COND1::

                                 05  00C0   204 	RSB				; RETURN TO MAIN ROUTINE

                                     00C1   205 COND1_CLEANUP::

                                 05  00C1   206 	RSB				; RETURN TO MAIN ROUTINE

                                     00C2   207 COND2::

                                 05  00C2   208 	RSB				; RETURN TO MAIN ROUTINE

                                     00C3   209 COND2_CLEANUP::

                                 05  00C3   210 	RSB				; RETURN TO MAIN ROUTINE

SATSSS26        SATS SYST SERV TESTS  AST SERVS (SUCC S.C.)      22-AUG-1978 04:01:19   VAX-11 MACRO X0.3-11               Page   9

1.0             CONDITION SUBROUTINES - SETUP AND CLEANUP                                                                        (1)



                                     00C4   211 COND3::

                                 05  00C4   212 	RSB				; RETURN TO MAIN ROUTINE

                                     00C5   213 COND3_CLEANUP::

                                 05  00C5   214 	RSB				; RETURN TO MAIN ROUTINE

                                     00C6   215 COND4::

                                 05  00C6   216 	RSB				; RETURN TO MAIN ROUTINE

                                     00C7   217 COND4_CLEANUP::

                                 05  00C7   218 	RSB				; RETURN TO MAIN ROUTINE

                                     00C8   219 COND5::

                                 05  00C8   220 	RSB				; RETURN TO MAIN ROUTINE

                                     00C9   221 COND5_CLEANUP::

                                 05  00C9   222 	RSB				; RETURN TO MAIN ROUTINE

SATSSS26        SATS SYST SERV TESTS  AST SERVS (SUCC S.C.)      22-AUG-1978 04:01:19   VAX-11 MACRO X0.3-11               Page  10

1.0             FORM_CONDS                                                                                                       (1)



                                     00CA   224 	.SBTTL	FORM_CONDS

                                     00CA   225 ;++

                                     00CA   226 ; FUNCTIONAL DESCRIPTION:

                                     00CA   227 ;

                                     00CA   228 ; 		FORM_CONDS FORMATS AND PRINTS INFORMATION ABOUT

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

                                     00CA   230 ;

                                     00CA   231 ; CALLING SEQUENCE:

                                     00CA   232 ;

                                     00CA   233 ;	BSBW FORM_CONDS

                                     00CA   234 ;

                                     00CA   235 ; INPUT PARAMETERS:

                                     00CA   236 ;

                                     00CA   237 ;	NONE

                                     00CA   238 ;

                                     00CA   239 ; IMPLICIT INPUTS:

                                     00CA   240 ;

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

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

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

                                     00CA   244 ;		CONDX_T - TITLE TEXT FOR CONDX TABLE

                                     00CA   245 ;		CONDX_TAB - ELEMENT TEXT FOR CONDX TABLE

                                     00CA   246 ;		CONDX_C - CONTEXT OF THE CONDX TABLE

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

                                     00CA   248 ;

                                     00CA   249 ; OUTPUT PARAMETERS:

                                     00CA   250 ;

                                     00CA   251 ;	NONE

                                     00CA   252 ;

                                     00CA   253 ; IMPLICIT OUTPUTS:

                                     00CA   254 ;

                                     00CA   255 ;	NONE

                                     00CA   256 ;

                                     00CA   257 ; COMPLETION CODES:

                                     00CA   258 ;

                                     00CA   259 ;	NONE

                                     00CA   260 ;

                                     00CA   261 ; SIDE EFFECTS:

                                     00CA   262 ;

                                     00CA   263 ;	NONE

                                     00CA   264 ;

                                     00CA   265 ;--

                                     00CA   266 

                                     00CA   267 

                                     00CA   268 

                                     00CA   269 FORM_CONDS::

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

                                     00E9   271 					; FORMAT CONDITIONS HEADER MSG

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

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

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

                          00BF   31  00F1   275 	BRW	FORM_CONDSX		; YES -- SUBROUTINE IS FINISHED

                                     00F4   276 10$:

   00000000'EF   00000008'EF     DE  00F4   277 	MOVAL	COND1_T,MSG_A		; SAVE ADDRESS OF CONDITION 1 TITLE FOR FAO

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

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

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

SATSSS26        SATS SYST SERV TESTS  AST SERVS (SUCC S.C.)      22-AUG-1978 04:01:19   VAX-11 MACRO X0.3-11               Page  11

1.0             FORM_CONDS                                                                                                       (1)



                          FEEB'  30  0112   281 	BSBW	WRITE_MSG2		; FORMAT AND WRITE CONDITION 1 MSG

            14            14     91  0115   282 	CMPB	#COND2_C,#NULL		; IS CONDITION 2 NULL ?

                          03     12  0118   283 	BNEQU	20$			; NO -- CONTINUE

                          0096   31  011A   284 	BRW	FORM_CONDSX		; YES -- SUBROUTINE IS FINISHED

                                     011D   285 20$:

   00000000'EF   00000009'EF     DE  011D   286 	MOVAL	COND2_T,MSG_A		; SAVE ADDRESS OF CONDITION 2 TITLE FOR FAO

   00000000'EF   00000009'EF43   D0  0128   287 	MOVL	COND2_TAB[R3],MSG_B 	; SAVE ADDR OF COND 2 CURR TEXT ELT FOR FAO

   00000000'EF            14     90  0134   288 	MOVB	#COND2_C,MSG_CTXT 	; SAVE CONDITION 2 CONTEXT FOR FAO

                                     013B   289 	MOV_VAL	COND2_C,COND2_E[R3],MSG_DATA1 ; GIVE COND 2 DATA VALUE TO FAO

                          FEC2'  30  013B   290 	BSBW	WRITE_MSG2		; FORMAT AND WRITE CONDITION 2 MSG

            14            14     91  013E   291 	CMPB	#COND3_C,#NULL		; IS CONDITION 3 NULL ?

                          03     12  0141   292 	BNEQU	30$			; NO -- CONTINUE

                          006D   31  0143   293 	BRW	FORM_CONDSX		; YES -- SUBROUTINE IS FINISHED

                                     0146   294 30$:

   00000000'EF   0000000A'EF     DE  0146   295 	MOVAL	COND3_T,MSG_A		; SAVE ADDRESS OF CONDITION 3 TITLE FOR FAO

   00000000'EF   0000000A'EF44   D0  0151   296 	MOVL	COND3_TAB[R4],MSG_B 	; SAVE ADDR OF COND 3 CURR TEXT ELT FOR FAO

   00000000'EF            14     90  015D   297 	MOVB	#COND3_C,MSG_CTXT 	; SAVE CONDITION 3 CONTEXT FOR FAO

                                     0164   298 	MOV_VAL	COND3_C,COND3_E[R4],MSG_DATA1 ; GIVE COND 3 DATA VALUE TO FAO

                          FE99'  30  0164   299 	BSBW	WRITE_MSG2		; FORMAT AND WRITE CONDITION 3 MSG

            14            14     91  0167   300 	CMPB	#COND4_C,#NULL		; IS CONDITION 4 NULL ?

                          47     13  016A   301 	BEQLU	FORM_CONDSX		; YES -- SUBROUTINE IS FINISHED

   00000000'EF   0000000B'EF     DE  016C   302 	MOVAL	COND4_T,MSG_A		; SAVE ADDRESS OF CONDITION 4 TITLE FOR FAO

   00000000'EF   0000000B'EF45   D0  0177   303 	MOVL	COND4_TAB[R5],MSG_B 	; SAVE ADDR OF COND 4 CURR TEXT ELT FOR FAO

   00000000'EF            14     90  0183   304 	MOVB	#COND4_C,MSG_CTXT 	; SAVE CONDITION 4 CONTEXT FOR FAO

                                     018A   305 	MOV_VAL	COND4_C,COND4_E[R5],MSG_DATA1 ; GIVE COND 4 DATA VALUE TO FAO

                          FE73'  30  018A   306 	BSBW	WRITE_MSG2		; FORMAT AND WRITE CONDITION 4 MSG

            14            14     91  018D   307 	CMPB	#COND5_C,#NULL		; IS CONDITION 5 NULL ?

                          21     13  0190   308 	BEQLU	FORM_CONDSX		; YES -- SUBROUTINE IS FINISHED

   00000000'EF   0000000C'EF     DE  0192   309 	MOVAL	COND5_T,MSG_A		; SAVE ADDRESS OF CONDITION 5 TITLE FOR FAO

   00000000'EF   0000000C'EF46   D0  019D   310 	MOVL	COND5_TAB[R6],MSG_B 	; SAVE ADDR OF COND 5 CURR TEXT ELT FOR FAO

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

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

                          FE4D'  30  01B0   313 	BSBW	WRITE_MSG2		; FORMAT AND WRITE CONDITION 5 MSG

                                     01B3   314 FORM_CONDSX:

                                 05  01B3   315 	RSB				; RETURN TO CALLER

SATSSS26        SATS SYST SERV TESTS  AST SERVS (SUCC S.C.)      22-AUG-1978 04:01:19   VAX-11 MACRO X0.3-11               Page  12

1.0             VERIFY                                                                                                           (1)



                                     01B4   317 	.SBTTL	VERIFY

                                     01B4   318 ;++

                                     01B4   319 ; FUNCTIONAL DESCRIPTION:

                                     01B4   320 ;

                                     01B4   321 ;		VERIFY IS CALLED ONCE FOR EACH COMBINATION OF CONDITION

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

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

                                     01B4   324 ; SPECIFIED BY THE COND TABLES AND ISSUES THE SUBJECT SYSTEM SERVICE.

                                     01B4   325 ; THEN, THE SUCCESSFUL OPERATION OF THE SERVICE IS VERIFIED

                                     01B4   326 ; BY EXAMINING THE STATUS CODE RETURNED, THE VALUES FOR RETURN ARGUMENTS

                                     01B4   327 ; AND THE FUNCTIONALITY PERFORMED. THE EXAMINATIONS TAKE THE FORM OF 

                                     01B4   328 ; COMPARISONS AGAINST EXPECTED VALUES. ANY FAILING COMPARISON CAUSES AN

                                     01B4   329 ; ERR_EXIT MACRO TO BE EXECUTED (EITHER DIRECTLY, OR INDIRECTLY,

                                     01B4   330 ; THROUGH THE SS_CHECK MACRO); ERR_EXIT SETS EFLAG TO NON-ZERO,

                                     01B4   331 ; PRINTS ERROR MESSAGES AND CAUSES AN IMMEDIATE RSB TO CALLER.

                                     01B4   332 ; WHEN ERR_EXIT IS EXECUTED, FURTHER CALLS TO VERIFY ARE SUPPRESSED,

                                     01B4   333 ; AND, AFTER EXECUTING CLEANUP SUBROUTINES, THE IMAGE EXITS.

                                     01B4   334 ;

                                     01B4   335 ; CALLING SEQUENCE:

                                     01B4   336 ;

                                     01B4   337 ;	BSBW VERIFY

                                     01B4   338 ;

                                     01B4   339 ; INPUT PARAMETERS:

                                     01B4   340 ;

                                     01B4   341 ;	NONE

                                     01B4   342 ;

                                     01B4   343 ; IMPLICIT INPUTS:

                                     01B4   344 ;

                                     01B4   345 ;	R2,3,4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES

                                     01B4   346 ;	  FOR COND TABLES 1,2,3,4,5, RESPECTIVELY.

                                     01B4   347 ;	FOR X = 1,2,3,4,5 :

                                     01B4   348 ;		CONDX_E - ADDRESS OF TABLE OF DATA VALUES FOR CONDX

                                     01B4   349 ;		  TABLE. IF THE CONTEXT OF TABLE X IS A SYSTEM SERVICE

                                     01B4   350 ;		  ARGUMENT, THE ARGUMENT NAME MAY BE USED AS A SYNONYM

                                     01B4   351 ;		  FOR CONDX_E.

                                     01B4   352 ;

                                     01B4   353 ; OUTPUT PARAMETERS:

                                     01B4   354 ;

                                     01B4   355 ;	NONE

                                     01B4   356 ;

                                     01B4   357 ; IMPLICIT OUTPUTS:

                                     01B4   358 ;

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

                                     01B4   360 ;	IT MERELY RETURNS TO CALLER NORMALLY AFTER THE TESTS, PROVIDING

                                     01B4   361 ;	ALL WERE SUCCESSFUL; IF AN ERROR IS DISCOVERED, RETURN IS VIA

                                     01B4   362 ;	AN ERR_EXIT OR SS_CHECK MACRO, BOTH OF WHICH DOCUMENT DETECTED

                                     01B4   363 ;	ERRORS.

                                     01B4   364 ;

                                     01B4   365 ; COMPLETION CODES:

                                     01B4   366 ;

                                     01B4   367 ;	EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED.

                                     01B4   368 ;

                                     01B4   369 ; SIDE EFFECTS:

                                     01B4   370 ;

                                     01B4   371 ;	SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 

                                     01B4   372 ;	(VIA RSB) IF ERROR ENCOUNTERED.

                                     01B4   373 ;

SATSSS26        SATS SYST SERV TESTS  AST SERVS (SUCC S.C.)      22-AUG-1978 04:01:19   VAX-11 MACRO X0.3-11               Page  13

1.0             VERIFY                                                                                                           (1)



                                     01B4   374 ;--

                                     01B4   375 

                                     01B4   376 

                                     01B4   377 

                                     01B4   378 VERIFY::

                 00000000'EF     95  01B4   379 	TSTB	CFLAG			; SHOULD CONDITIONS BE PRINTED ?

                          03     13  01BA   380 	BEQL	5$			; NO -- CONTINUE

                          FF0B   30  01BC   381 	BSBW	FORM_CONDS		; YES -- FMT & PRINT ALL CONDS FOR THIS T.C.

                                     01BF   382 5$:

                                     01BF   383 ;

                                     01BF   384 ; ****** VERIFY SUBROUTINE BEING DEBUGGED OFFLINE *********

                                     01BF   385 ;

                                 05  01BF   386 	RSB				; RETURN TO CALLER

SATSSS26        SATS SYST SERV TESTS  AST SERVS (SUCC S.C.)      22-AUG-1978 04:01:19   VAX-11 MACRO X0.3-11               Page  14

1.0             VFY_CLEANUP                                                                                                      (1)



                                     01C0   388 	.SBTTL	VFY_CLEANUP

                                     01C0   389 ;++

                                     01C0   390 ; FUNCTIONAL DESCRIPTION:

                                     01C0   391 ;

                                     01C0   392 ;		VFY_CLEANUP EXECUTES SYSTEM SERVICES TO UNDO THE

                                     01C0   393 ; EFFECT OF THOSE ISSUED IN THE VERIFY SUBROUTINE. VFY_CLEANUP MUST

                                     01C0   394 ; ASSUME THAT VERIFY MAY NOT HAVE EXECUTED IN ITS ENTIRETY (IF AN

                                     01C0   395 ; ERROR IS FOUND). ALSO, VFY_CLEANUP MAY ISSUE SS_CHECK OR ERR_EXIT

                                     01C0   396 ; ONLY AFTER PERFORMING ALL OF ITS CLEANUP OPERATIONS; THIS IS REQUIRED

                                     01C0   397 ; IN THE EVENT THAT VFY_CLEANUP IS CALLED DURING ERROR PROCESSING,

                                     01C0   398 ; WHEN PERFORMING THE REQUIRED CLEANUP IS MORE IMPORTANT THAN

                                     01C0   399 ; POSSIBLY DISCOVERING A SECOND ERROR.

                                     01C0   400 ;

                                     01C0   401 ; CALLING SEQUENCE:

                                     01C0   402 ;

                                     01C0   403 ;	BSBW VFY_CLEANUP

                                     01C0   404 ;

                                     01C0   405 ; INPUT PARAMETERS:

                                     01C0   406 ;

                                     01C0   407 ;	NONE

                                     01C0   408 ;

                                     01C0   409 ; IMPLICIT INPUTS:

                                     01C0   410 ;

                                     01C0   411 ;	R2,3,4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES

                                     01C0   412 ;	  FOR COND TABLES 1,2,3,4,5, RESPECTIVELY.

                                     01C0   413 ;	FOR X = 1,2,3,4,5 :

                                     01C0   414 ;		CONDX_E - ADDRESS OF TABLE OF DATA VALUES FOR CONDX

                                     01C0   415 ;		  TABLE. IF THE CONTEXT OF TABLE X IS A SYSTEM SERVICE

                                     01C0   416 ;		  ARGUMENT, THE ARGUMENT NAME MAY BE USED AS A SYNONYM

                                     01C0   417 ;		  FOR CONDX_E.

                                     01C0   418 ;

                                     01C0   419 ; OUTPUT PARAMETERS:

                                     01C0   420 ;

                                     01C0   421 ;	NONE

                                     01C0   422 ;

                                     01C0   423 ; IMPLICIT OUTPUTS:

                                     01C0   424 ;

                                     01C0   425 ;	NONE

                                     01C0   426 ;

                                     01C0   427 ; COMPLETION CODES:

                                     01C0   428 ;

                                     01C0   429 ;	EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED.

                                     01C0   430 ;

                                     01C0   431 ; SIDE EFFECTS:

                                     01C0   432 ;

                                     01C0   433 ;	SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 

                                     01C0   434 ;	(VIA RSB) IF ERROR ENCOUNTERED.

                                     01C0   435 ;

                                     01C0   436 ;--

                                     01C0   437 

                                     01C0   438 

                                     01C0   439 

                                     01C0   440 VFY_CLEANUP::

                                 05  01C0   441 	RSB				; RETURN TO CALLER

                                     01C1   442 	.END

SATSSS26        SATS SYST SERV TESTS  AST SERVS (SUCC S.C.)      22-AUG-1978 04:01:19   VAX-11 MACRO X0.3-11               Page  15

SYMBOL TABLE                                                                                                                     (1)



$$$CHARS       = 00000010            NULL           = 00000014  G         PHD$S_P0LR     = 00000018            

$$$STRINGS     = 00000000            ONES             ********   X   05   PHD$V_ASTLVL   = 00000018            

$$T2           = 00000004            OUTPUT_MSG       ********   X   05   PHD$V_DALCSTX  = 00000001            

BIT...         = 00000020            PCV              ********   X   05   PHD$V_P0LR     = 00000000            

BYTE           = 00000001  G         PHD$B_ASTLVL     000000CF            PHD$V_PFMFLG   = 00000000            

CFLAG            ********   X   05   PHD$B_DFPFC      00000038            PHD$V_WSPEAKCHK= 00000002            

CHMRTN           ********   X   05   PHD$B_PAGFIL     0000001F            PHD$W_ASTLM      00000044            

CHM_CONT         ********   X   05   PHD$B_PGTBPFC    00000039            PHD$W_BAK        00000048            

COMP_SC          ********   X   05   PHD$C_LENGTH     00000118            PHD$W_DFWSCNT    0000001A            

COND1            000000C0 RG    05   PHD$C_PHDPAGCTX= 00000008            PHD$W_EMPTPG     000000D8            

COND1_C        = 00000014            PHD$K_LENGTH     00000118            PHD$W_EXTDYNWS   00000076            

COND1_CLEANUP    000000C1 RG    05   PHD$L_BIOCNT     00000054            PHD$W_FILLM      00000060            

COND1_H          00000008 RG    04   PHD$L_CPULIM     00000058            PHD$W_FLAGS      0000003A            

COND1_T          00000008 R     04   PHD$L_CPUTIM     0000003C            PHD$W_PHVINDEX   00000046            

COND1_TAB        00000008 R     04   PHD$L_DIOCNT     00000050            PHD$W_PRCLM      00000042            

COND2            000000C2 RG    05   PHD$L_ESP        0000007C            PHD$W_PST        00000020            

COND2_C        = 00000014            PHD$L_FREP0VA    00000028            PHD$W_PSTBASMAX  0000004A            

COND2_CLEANUP    000000C3 RG    05   PHD$L_FREP1VA    00000030            PHD$W_PSTFREE    00000026            

COND2_H          00000009 RG    04   PHD$L_FREPTECNT  0000002C            PHD$W_PSTLAST    00000024            

COND2_T          00000009 R     04   PHD$L_KSP        00000078            PHD$W_PTCNTACT   00000070            

COND2_TAB        00000009 R     04   PHD$L_P0BR       000000C8            PHD$W_PTCNTLCK   0000006C            

COND3            000000C4 RG    05   PHD$L_P0LRASTL   000000CC            PHD$W_PTCNTMAX   00000072            

COND3_C        = 00000014            PHD$L_P1BR       000000D0            PHD$W_PTCNTVAL   0000006E            

COND3_CLEANUP    000000C5 RG    05   PHD$L_P1LR       000000D4            PHD$W_QUANT      00000040            

COND3_H          0000000A RG    04   PHD$L_PAGEFLTS   0000004C            PHD$W_TQLM       00000062            

COND3_T          0000000A R     04   PHD$L_PAGFIL     0000001C            PHD$W_WSAUTH     0000000A            

COND3_TAB        0000000A R     04   PHD$L_PC         000000C0            PHD$W_WSDYN      0000000E            

COND4            000000C6 RG    05   PHD$L_PCB        00000078            PHD$W_WSFLUID    00000074            

COND4_C        = 00000014            PHD$L_PGFLCNT    00000034            PHD$W_WSLAST     00000012            

COND4_CLEANUP    000000C7 RG    05   PHD$L_PGFLQUOTA  0000005C            PHD$W_WSLIST     00000008            

COND4_H          0000000B RG    04   PHD$L_PSL        000000C4            PHD$W_WSLOCK     0000000C            

COND4_T          0000000B R     04   PHD$L_PSTBASOFF  00000020            PHD$W_WSLX       0000004A            

COND4_TAB        0000000B R     04   PHD$L_PTWSLELCK  00000064            PHD$W_WSNEXT     00000010            

COND5            000000C8 RG    05   PHD$L_PTWSLEVAL  00000068            PHD$W_WSQUOTA    00000018            

COND5_C        = 00000014            PHD$L_R0         00000088            PRIVMASK         00000000 R     04   

COND5_CLEANUP    000000C9 RG    05   PHD$L_R1         0000008C            PRV$V_ALLSPOOL = 00000004            

COND5_H          0000000C RG    04   PHD$L_R10        000000B0            PRV$V_BUGCHK   = 00000017            

COND5_T          0000000C R     04   PHD$L_R11        000000B4            PRV$V_CMEXEC   = 00000001            

COND5_TAB        0000000C R     04   PHD$L_R12        000000B8            PRV$V_CMKRNL   = 00000000            

CTL$GL_PHD       ********   X   05   PHD$L_R13        000000BC            PRV$V_DETACH   = 00000005            

DESC           = 00000010  G         PHD$L_R2         00000090            PRV$V_DIAGNOSE = 00000006            

EFLAG            ********   X   05   PHD$L_R3         00000094            PRV$V_EXQUOTA  = 00000013            

EXPV             ********   X   05   PHD$L_R4         00000098            PRV$V_GROUP    = 00000008            

FAO_DESC         ********   X   05   PHD$L_R5         0000009C            PRV$V_GRPNAM   = 00000003            

FAO_LEN          ********   X   05   PHD$L_R6         000000A0            PRV$V_LOG_IO   = 00000007            

FORM_CONDS       000000CA RG    05   PHD$L_R7         000000A4            PRV$V_MOUNT    = 00000011            

FORM_CONDSX      000001B3 R     05   PHD$L_R8         000000A8            PRV$V_NETMBX   = 00000014            

GBL...         = 00000000            PHD$L_R9         000000AC            PRV$V_NOACNT   = 00000009            

LONG           = 00000004  G         PHD$L_REFERFLT   00000014            PRV$V_OPER     = 00000012            

MOD_MSG_CODE     ********   X   05   PHD$L_SSP        00000080            PRV$V_PHY_IO   = 00000016            

MOD_MSG_PRINT    ********   X   05   PHD$L_USP        00000084            PRV$V_PRMCEB   = 0000000A            

MSG1_INP_CTL     00000019 R     03   PHD$L_WSL        00000118            PRV$V_PRMGBL   = 00000018            

MSG3_ERR_CTL     00000039 RG    03   PHD$M_DALCSTX  = 00000002            PRV$V_PRMMBX   = 0000000B            

MSG_A            ********   X   05   PHD$M_PFMFLG   = 00000001            PRV$V_PSWAPM   = 0000000C            

MSG_B            ********   X   05   PHD$M_WSPEAKCHK= 00000004            PRV$V_SETPRI   = 0000000D            

MSG_CTXT         ********   X   05   PHD$Q_PRIVMSK    00000000            PRV$V_SETPRV   = 0000000E            

NOTARG         = 00000000  G         PHD$S_ASTLVL   = 00000008            PRV$V_SYSGBL   = 00000019            

SATSSS26        SATS SYST SERV TESTS  AST SERVS (SUCC S.C.)      22-AUG-1978 04:01:19   VAX-11 MACRO X0.3-11               Page  16

SYMBOL TABLE                                                                                                                     (1)



PRV$V_SYSNAM   = 00000002            

PRV$V_TMPMBX   = 0000000F            

PRV$V_VOLPRO   = 00000015            

PRV$V_WORLD    = 00000010            

QUAD           = 00000008  G         

RECV             ********   X   05   

REST_REGS        ********   X   05   

SAVE_REGS        ********   X   05   

SS$_NORMAL       ********   X   05   

SUCCESS          ********   X   05   

SYS$CMKRNL       ********   X   05   

SYS$FAO          ********   X   05   

SYS$SETPRN       ********   X   05   

TESTNUM          ********   X   05   

TEST_MOD_NAME    00000000 RG    03   

TEST_MOD_NAME_D  00000009 R     03   

TEST_MOD_SUCC    ********   X   05   

TMD_ADDR         ********   X   05   

TM_CLEANUP       000000BC RG    05   

TM_SETUP         00000000 RG    05   

VERIFY           000001B4 RG    05   

VFY_CLEANUP      000001C0 RG    05   

WORD           = 00000002  G         

WRITE_MSG2       ********   X   05   





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           0000000D      04     NOPIC   USR   CON   REL   LCL NOSHR NOEXE   RD    WRT LONG  

SATSSS26         000001C1      05     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

18214. BYTES LEFT IN FREE MEMORY POOL.

1286. BYTES OF RECLAIMED MEMORY.

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

29 MLB DIR RDS - 469 GETS TO DEFINE 19 MACROS. 21 INTER. FILE WRITES. 

