SATSSS52        SATS SYSTEM SERVICE TESTS  $DLCEFC (SUCC S.C.)   22-AUG-1978 04:10:30   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      48  DECLARATIONS

   (1)      94  CONDITION TABLES

   (1)     119  TM_SETUP, TM_CLEANUP

   (1)     190  CONDITION SUBROUTINES - SETUP AND CLEANUP 

   (1)     260  FORM_CONDS

   (1)     353  VERIFY

   (1)     601  VFY_CLEANUP

   (1)     658  BUILD_CLUST SUBROUTINE

   (1)     712  READ_DACEFC SUBROUTINE

SATSSS52        SATS SYSTEM SERVICE TESTS  $DLCEFC (SUCC S.C.)   22-AUG-1978 04:10:30   VAX-11 MACRO X0.3-11               Page   1

1.0                                                                                                                              (1)



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

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

                                     0000    41 ;

                                     0000    42 ; MODIFIED BY:

                                     0000    43 ;

                                     0000    44 ;	, : VERSION

                                     0000    45 ; 01	- 

                                     0000    46 ;--

SATSSS52        SATS SYSTEM SERVICE TESTS  $DLCEFC (SUCC S.C.)   22-AUG-1978 04:10:30   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 	$PQLDEF				; PROCESS QUOTA CODES

                                     0000    55 	$DIBDEF				; DEVICE INFO BLOCK OFFSETS

                                     0000    56 ;

                                     0000    57 ; MACROS:

                                     0000    58 ;

                                     0000    59 ;

                                     0000    60 ; EQUATED SYMBOLS:

                                     0000    61 ;

                                     0000    62 ;

                                     0000    63 ; OWN STORAGE:

                                     0000    64 ;

SATSSS52        SATS SYSTEM SERVICE TESTS  $DLCEFC (SUCC S.C.)   22-AUG-1978 04:10:30   VAX-11 MACRO X0.3-11               Page   3

1.0             DECLARATIONS                                                                                                     (1)



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

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

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

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

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

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

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

                                     0051    73 CREPRN:		STRING	I,<SATSSS52_CRE> ; CREATED PROCESS NAME

                                     0065    74 CLUS_NAME:	STRING	I,<SATSSS52_CLUS> ; SUBJECT CLUSTER NAME

                                     007A    75 IMAGNAM:	STRING	I,<SYSTST$RES:SATSUT10.EXE> ; IMAGE NAME FOR CREATED PROC

                                     0099    76 QUOTALIST:	$QUOTA	CPULM,0		; INFINITE CPU

                                     009E    77 		$QUOTA	BYTLM,512	; BYTE LIMIT FOR BUFFERED I/O

                                     00A3    78 		$QUOTA	FILLM,2		; OPEN FILE COUNT LIMIT

                                     00A8    79 		$QUOTA	PGFLQUOTA,10	; PAGING FILE QUOTA

                                     00AD    80 		$QUOTA	PRCLM,2		; SUBPROCESS QUOTA

                                     00B2    81 		$QUOTA	TQELM,3		; TIMER QUEUE ENTRY QUOTA

                                     00B7    82 		$QUOTA	LISTEND		; DEFINES END OF LIST

SATSSS52        SATS SYSTEM SERVICE TESTS  $DLCEFC (SUCC S.C.)   22-AUG-1978 04:10:30   VAX-11 MACRO X0.3-11               Page   4

1.0             DECLARATIONS                                                                                                     (1)



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

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

                           0000000C  0008    86 MBXCHAN:	.BLKL	1		; CHAN NO. FOR MAILBOX FOR CREATED PROCESS

                                     000C    87 MBXCHANINFO:	STRING	O,75		; CHANNEL INFO RETURNED BY GETCHN

                           00000063  005F    88 MBXUNIT:	.BLKL	1		; SAVE AREA FOR MAILBOX UNIT NUMBER

                                     0063    89 MBXBUFF:	STRING	O,120		; MAILBOX BUFFER FOR CREATED PROCESS

                           000000E7  00E3    90 CLUS_MASK:	.BLKL	1		; CLUSTER MASK; USED TO SET SUBJECT CLUSTER

                           000000EB  00E7    91 CLUS_STATE:	.BLKL	1		; STATE OF SUBJECT CLUSTER

                           000000EF  00EB    92 EFN_REFCT1:	.BLKL	1		; SAVE AREA FOR EFN WHEN REF CT = 1

SATSSS52        SATS SYSTEM SERVICE TESTS  $DLCEFC (SUCC S.C.)   22-AUG-1978 04:10:30   VAX-11 MACRO X0.3-11               Page   5

1.0             CONDITION TABLES                                                                                                 (1)



                                     00EF    94 	.SBTTL	CONDITION TABLES

                                     00EF    95 ;

                                     00EF    96 ;	***** CONDITION TABLES FOR DLCEFC SYSTEM SERVICE *****

                                     00EF    97 ;

                                     00EF    98 	COND	1,NOTARG,<CLUSTER'S PERM/TEMP SETTING AT TIME OF DLCEFC>,-

                                     00EF    99 		  <TEMPORARY>,-

                                     00EF   100 		  <PERMANENT>,-

                                     00EF   101  

                  00000001 00000000  013A   102 		    .LONG	0,1	; TEMPORARY/PERMANENT

                                     0142   103 ;

                                     0142   104 	COND	2,NOTARG,<CLUSTER'S REFERENCE COUNT AT TIME OF DLCEFC>,-

                                     0142   105 		  <ZERO>,-

                                     0142   106 		  <ONE (E.F. GROUP 2)>,-

                                     0142   107 		  <ONE (E.F. GROUP 3)>,-

                                     0142   108 		  <TWO (BOTH E.F. GROUPS)>,-

                                     0142   109 		  <FOUR (BOTH E.F. GROUPS IN TWO PROCESSES)>,-

                                     0142   110  

                                     01EE   111 	COND	3,NULL

                                     01EF   112  

                                     01EF   113 	COND	4,NULL

                                     01F0   114  

                                     01F0   115 	COND	5,NULL

                                     01F1   116  

                                 00000000   117 	.PSECT	SATSSS52,RD,WRT,EXE

SATSSS52        SATS SYSTEM SERVICE TESTS  $DLCEFC (SUCC S.C.)   22-AUG-1978 04:10:30   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

SATSSS52        SATS SYSTEM SERVICE TESTS  $DLCEFC (SUCC S.C.)   22-AUG-1978 04:10:30   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

                                     00BB   177 	$CREMBX_S CHAN=MBXCHAN, LOGNAM=CREPRN, - ; GET MAILBOX FOR PROCESS

                                     00BB   178 		  MAXMSG=#120, PROMSK=#0, BUFQUO=#240

                                     00DE   179 	SS_CHECK NORMAL			; CHECK NORMAL COMPLETION

                                     010C   180 	$GETCHN_S CHAN=MBXCHAN, - 	; GET CHAN INFO (UNIT NUMBER)

                                     010C   181 		  PRIBUF=MBXCHANINFO

                                     0126   182 	SS_CHECK NORMAL			; CHECK NORMAL COMPLETION

   0000005F'EF   00000020'EF     3C  0154   183 	MOVZWL	MBXCHANINFO+8+DIB$W_UNIT,MBXUNIT ; SAVE MAILBOX UNIT NUMBER

                                 05  015F   184 	RSB				; RETURN TO MAIN ROUTINE

                                     0160   185 TM_CLEANUP::

                                     0160   186 	$DELMBX_S  MBXCHAN		; DELETE TERMINATION MAILBOX

                          FE8F'  30  016E   187 	BSBW	MOD_MSG_PRINT		; PRINT TEST MODULE END MSG

                                 05  0171   188 	RSB				; RETURN TO MAIN ROUTINE

SATSSS52        SATS SYSTEM SERVICE TESTS  $DLCEFC (SUCC S.C.)   22-AUG-1978 04:10:30   VAX-11 MACRO X0.3-11               Page   8

1.0             CONDITION SUBROUTINES - SETUP AND CLEANUP                                                                        (1)



                                     0172   190 	.SBTTL	CONDITION SUBROUTINES - SETUP AND CLEANUP 

                                     0172   191 ;++

                                     0172   192 ; FUNCTIONAL DESCRIPTION:

                                     0172   193 ;

                                     0172   194 ;		CONDX AND CONDX_CLEANUP ARE SUBROUTINES WHICH ARE EXECUTED

                                     0172   195 ; BEFORE AND AFTER THE VERIFY SUBROUTINE, RESPECTIVELY, WHENEVER A NEW

                                     0172   196 ; CONDITION X VALUE IS SELECTED (SEE FUNCTIONAL DESCRIPTION OF SUCCOMMON

                                     0172   197 ; ROUTINE IN SUCCOMMON.MAR). ANY SETUP FUNCTION PARTICULAR TO THE 

                                     0172   198 ; CONDITION X TABLE IS INCLUDED IN THE CONDX SUBROUTINE AND CLEANED

                                     0172   199 ; UP, IF NECESSARY, IN THE CONDX_CLEANUP SUBROUTINE. THIS INCLUDES,

                                     0172   200 ; ESPECIALLY, CODE TO DETECT CONFLICTS AMONG CURRENT ENTRIES IN TWO

                                     0172   201 ; OR MORE CONDITION TABLES. IF A CONFLICT IS DETECTED, A NON-ZERO

                                     0172   202 ; VALUE IS STORED INTO CONFLICT, WHICH CAUSES THE CALLING ROUTINE

                                     0172   203 ; (SUCCOMMON) TO SKIP THE CURRENT ENTRY IN THE CONDITION X TABLE.

                                     0172   204 ;

                                     0172   205 ; CALLING SEQUENCE:

                                     0172   206 ;

                                     0172   207 ;	BSBW CONDX   BSBW CONDX_CLEANUP

                                     0172   208 ;	  WHERE X = 1,2,3,4,5

                                     0172   209 ;

                                     0172   210 ; INPUT PARAMETERS:

                                     0172   211 ;

                                     0172   212 ;	CONFLICT = 0

                                     0172   213 ;

                                     0172   214 ; IMPLICIT INPUTS:

                                     0172   215 ;

                                     0172   216 ;	R2,3,4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES

                                     0172   217 ;	  FOR COND TABLES 1,2,3,4,5, RESPECTIVELY.

                                     0172   218 ;

                                     0172   219 ; OUTPUT PARAMETERS:

                                     0172   220 ;

                                     0172   221 ;	CONFLICT SET TO NON-ZERO IF COND TABLE CONFLICT DETECTED.

                                     0172   222 ;

                                     0172   223 ; IMPLICIT OUTPUTS:

                                     0172   224 ;

                                     0172   225 ;	R2,3,4,5,6 PRESERVED

                                     0172   226 ;

                                     0172   227 ; COMPLETION CODES:

                                     0172   228 ;

                                     0172   229 ;	NONE

                                     0172   230 ;

                                     0172   231 ; SIDE EFFECTS:

                                     0172   232 ;

                                     0172   233 ;	NONE

                                     0172   234 ;

                                     0172   235 ;--

                                     0172   236 

                                     0172   237 

                                     0172   238 

                                     0172   239 COND1::

                                 05  0172   240 	RSB				; RETURN TO MAIN ROUTINE

                                     0173   241 COND1_CLEANUP::

                                 05  0173   242 	RSB				; RETURN TO MAIN ROUTINE

                                     0174   243 COND2::

                                 05  0174   244 	RSB				; RETURN TO MAIN ROUTINE

                                     0175   245 COND2_CLEANUP::

                                 05  0175   246 	RSB				; RETURN TO MAIN ROUTINE

SATSSS52        SATS SYSTEM SERVICE TESTS  $DLCEFC (SUCC S.C.)   22-AUG-1978 04:10:30   VAX-11 MACRO X0.3-11               Page   9

1.0             CONDITION SUBROUTINES - SETUP AND CLEANUP                                                                        (1)



                                     0176   247 COND3::

                                 05  0176   248 	RSB				; RETURN TO MAIN ROUTINE

                                     0177   249 COND3_CLEANUP::

                                 05  0177   250 	RSB				; RETURN TO MAIN ROUTINE

                                     0178   251 COND4::

                                 05  0178   252 	RSB				; RETURN TO MAIN ROUTINE

                                     0179   253 COND4_CLEANUP::

                                 05  0179   254 	RSB				; RETURN TO MAIN ROUTINE

                                     017A   255 COND5::

                                 05  017A   256 	RSB				; RETURN TO MAIN ROUTINE

                                     017B   257 COND5_CLEANUP::

                                 05  017B   258 	RSB				; RETURN TO MAIN ROUTINE

SATSSS52        SATS SYSTEM SERVICE TESTS  $DLCEFC (SUCC S.C.)   22-AUG-1978 04:10:30   VAX-11 MACRO X0.3-11               Page  10

1.0             FORM_CONDS                                                                                                       (1)



                                     017C   260 	.SBTTL	FORM_CONDS

                                     017C   261 ;++

                                     017C   262 ; FUNCTIONAL DESCRIPTION:

                                     017C   263 ;

                                     017C   264 ; 		FORM_CONDS FORMATS AND PRINTS INFORMATION ABOUT

                                     017C   265 ;  THE CURRENT ELEMENT IN EACH OF THE CONDITION TABLES.

                                     017C   266 ;

                                     017C   267 ; CALLING SEQUENCE:

                                     017C   268 ;

                                     017C   269 ;	BSBW FORM_CONDS

                                     017C   270 ;

                                     017C   271 ; INPUT PARAMETERS:

                                     017C   272 ;

                                     017C   273 ;	NONE

                                     017C   274 ;

                                     017C   275 ; IMPLICIT INPUTS:

                                     017C   276 ;

                                     017C   277 ;	R2,3,4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES

                                     017C   278 ;	  FOR COND TABLES 1,2,3,4,5, RESPECTIVELY.

                                     017C   279 ;	FOR X = 1,2,3,4,5 :

                                     017C   280 ;		CONDX_T - TITLE TEXT FOR CONDX TABLE

                                     017C   281 ;		CONDX_TAB - ELEMENT TEXT FOR CONDX TABLE

                                     017C   282 ;		CONDX_C - CONTEXT OF THE CONDX TABLE

                                     017C   283 ;		CONDX_E - DATA ELEMENTS OF THE CONDX TABLE

                                     017C   284 ;

                                     017C   285 ; OUTPUT PARAMETERS:

                                     017C   286 ;

                                     017C   287 ;	NONE

                                     017C   288 ;

                                     017C   289 ; IMPLICIT OUTPUTS:

                                     017C   290 ;

                                     017C   291 ;	NONE

                                     017C   292 ;

                                     017C   293 ; COMPLETION CODES:

                                     017C   294 ;

                                     017C   295 ;	NONE

                                     017C   296 ;

                                     017C   297 ; SIDE EFFECTS:

                                     017C   298 ;

                                     017C   299 ;	NONE

                                     017C   300 ;

                                     017C   301 ;--

                                     017C   302 

                                     017C   303 

                                     017C   304 

                                     017C   305 FORM_CONDS::

                                     017C   306 	$FAO_S	MSG1_INP_CTL,FAO_LEN,FAO_DESC,TESTNUM

                                     019B   307 					; FORMAT CONDITIONS HEADER MSG

                          FE62'  30  019B   308 	BSBW	OUTPUT_MSG		; ... AND PRINT IT

            14            00     91  019E   309 	CMPB	#COND1_C,#NULL		; IS CONDITION 1 NULL ?

                          03     12  01A1   310 	BNEQU	10$			; NO -- CONTINUE

                          00BF   31  01A3   311 	BRW	FORM_CONDSX		; YES -- SUBROUTINE IS FINISHED

                                     01A6   312 10$:

   00000000'EF   000000EF'EF     DE  01A6   313 	MOVAL	COND1_T,MSG_A		; SAVE ADDRESS OF CONDITION 1 TITLE FOR FAO

   00000000'EF   0000011E'EF42   D0  01B1   314 	MOVL	COND1_TAB[R2],MSG_B 	; SAVE ADDR OF COND 1 CURR TEXT ELT FOR FAO

   00000000'EF            00     90  01BD   315 	MOVB	#COND1_C,MSG_CTXT 	; SAVE CONDITION 1 CONTEXT FOR FAO

                                     01C4   316 	MOV_VAL	COND1_C,COND1_E[R2],MSG_DATA1 ; GIVE COND 1 DATA VALUE TO FAO

SATSSS52        SATS SYSTEM SERVICE TESTS  $DLCEFC (SUCC S.C.)   22-AUG-1978 04:10:30   VAX-11 MACRO X0.3-11               Page  11

1.0             FORM_CONDS                                                                                                       (1)



                          FE39'  30  01C4   317 	BSBW	WRITE_MSG2		; FORMAT AND WRITE CONDITION 1 MSG

            14            00     91  01C7   318 	CMPB	#COND2_C,#NULL		; IS CONDITION 2 NULL ?

                          03     12  01CA   319 	BNEQU	20$			; NO -- CONTINUE

                          0096   31  01CC   320 	BRW	FORM_CONDSX		; YES -- SUBROUTINE IS FINISHED

                                     01CF   321 20$:

   00000000'EF   00000142'EF     DE  01CF   322 	MOVAL	COND2_T,MSG_A		; SAVE ADDRESS OF CONDITION 2 TITLE FOR FAO

   00000000'EF   0000016F'EF43   D0  01DA   323 	MOVL	COND2_TAB[R3],MSG_B 	; SAVE ADDR OF COND 2 CURR TEXT ELT FOR FAO

   00000000'EF            00     90  01E6   324 	MOVB	#COND2_C,MSG_CTXT 	; SAVE CONDITION 2 CONTEXT FOR FAO

                                     01ED   325 	MOV_VAL	COND2_C,COND2_E[R3],MSG_DATA1 ; GIVE COND 2 DATA VALUE TO FAO

                          FE10'  30  01ED   326 	BSBW	WRITE_MSG2		; FORMAT AND WRITE CONDITION 2 MSG

            14            14     91  01F0   327 	CMPB	#COND3_C,#NULL		; IS CONDITION 3 NULL ?

                          03     12  01F3   328 	BNEQU	30$			; NO -- CONTINUE

                          006D   31  01F5   329 	BRW	FORM_CONDSX		; YES -- SUBROUTINE IS FINISHED

                                     01F8   330 30$:

   00000000'EF   000001EE'EF     DE  01F8   331 	MOVAL	COND3_T,MSG_A		; SAVE ADDRESS OF CONDITION 3 TITLE FOR FAO

   00000000'EF   000001EE'EF44   D0  0203   332 	MOVL	COND3_TAB[R4],MSG_B 	; SAVE ADDR OF COND 3 CURR TEXT ELT FOR FAO

   00000000'EF            14     90  020F   333 	MOVB	#COND3_C,MSG_CTXT 	; SAVE CONDITION 3 CONTEXT FOR FAO

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

                          FDE7'  30  0216   335 	BSBW	WRITE_MSG2		; FORMAT AND WRITE CONDITION 3 MSG

            14            14     91  0219   336 	CMPB	#COND4_C,#NULL		; IS CONDITION 4 NULL ?

                          47     13  021C   337 	BEQLU	FORM_CONDSX		; YES -- SUBROUTINE IS FINISHED

   00000000'EF   000001EF'EF     DE  021E   338 	MOVAL	COND4_T,MSG_A		; SAVE ADDRESS OF CONDITION 4 TITLE FOR FAO

   00000000'EF   000001EF'EF45   D0  0229   339 	MOVL	COND4_TAB[R5],MSG_B 	; SAVE ADDR OF COND 4 CURR TEXT ELT FOR FAO

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

                                     023C   341 	MOV_VAL	COND4_C,COND4_E[R5],MSG_DATA1 ; GIVE COND 4 DATA VALUE TO FAO

                          FDC1'  30  023C   342 	BSBW	WRITE_MSG2		; FORMAT AND WRITE CONDITION 4 MSG

            14            14     91  023F   343 	CMPB	#COND5_C,#NULL		; IS CONDITION 5 NULL ?

                          21     13  0242   344 	BEQLU	FORM_CONDSX		; YES -- SUBROUTINE IS FINISHED

   00000000'EF   000001F0'EF     DE  0244   345 	MOVAL	COND5_T,MSG_A		; SAVE ADDRESS OF CONDITION 5 TITLE FOR FAO

   00000000'EF   000001F0'EF46   D0  024F   346 	MOVL	COND5_TAB[R6],MSG_B 	; SAVE ADDR OF COND 5 CURR TEXT ELT FOR FAO

   00000000'EF            14     90  025B   347 	MOVB	#COND5_C,MSG_CTXT 	; SAVE CONDITION 5 CONTEXT FOR FAO

                                     0262   348 	MOV_VAL	COND5_C,COND5_E[R6],MSG_DATA1 ; GIVE COND 5 DATA VALUE TO FAO

                          FD9B'  30  0262   349 	BSBW	WRITE_MSG2		; FORMAT AND WRITE CONDITION 5 MSG

                                     0265   350 FORM_CONDSX:

                                 05  0265   351 	RSB				; RETURN TO CALLER

SATSSS52        SATS SYSTEM SERVICE TESTS  $DLCEFC (SUCC S.C.)   22-AUG-1978 04:10:30   VAX-11 MACRO X0.3-11               Page  12

1.0             VERIFY                                                                                                           (1)



                                     0266   353 	.SBTTL	VERIFY

                                     0266   354 ;++

                                     0266   355 ; FUNCTIONAL DESCRIPTION:

                                     0266   356 ;

                                     0266   357 ;		VERIFY IS CALLED ONCE FOR EACH COMBINATION OF CONDITION

                                     0266   358 ; TABLE VALUES (AS DETERMINED BY THE INDEX REGISTERS R2,3,4,5,6 FOR

                                     0266   359 ; COND TABLES 1,2,3,4,5, RESPECTIVELY). VERIFY ESTABLISHES THE CONDITIONS

                                     0266   360 ; SPECIFIED BY THE COND TABLES AND ISSUES THE SUBJECT SYSTEM SERVICE

                                     0266   361 ; ($DLCEFC). THEN, THE SUCCESSFUL OPERATION OF THE SERVICE IS VERIFIED

                                     0266   362 ; BY EXAMINING THE STATUS CODE RETURNED, THE VALUES FOR RETURN ARGUMENTS

                                     0266   363 ; AND THE FUNCTIONALITY PERFORMED. THE EXAMINATIONS TAKE THE FORM OF 

                                     0266   364 ; COMPARISONS AGAINST EXPECTED VALUES. ANY FAILING COMPARISON CAUSES AN

                                     0266   365 ; ERR_EXIT MACRO TO BE EXECUTED (EITHER DIRECTLY, OR INDIRECTLY,

                                     0266   366 ; THROUGH THE SS_CHECK MACRO); ERR_EXIT SETS EFLAG TO NON-ZERO,

                                     0266   367 ; PRINTS ERROR MESSAGES AND CAUSES AN IMMEDIATE RSB TO CALLER.

                                     0266   368 ; WHEN ERR_EXIT IS EXECUTED, FURTHER CALLS TO VERIFY ARE SUPPRESSED,

                                     0266   369 ; AND, AFTER EXECUTING CLEANUP SUBROUTINES, THE IMAGE EXITS.

                                     0266   370 ;

                                     0266   371 ; CALLING SEQUENCE:

                                     0266   372 ;

                                     0266   373 ;	BSBW VERIFY

                                     0266   374 ;

                                     0266   375 ; INPUT PARAMETERS:

                                     0266   376 ;

                                     0266   377 ;	NONE

                                     0266   378 ;

                                     0266   379 ; IMPLICIT INPUTS:

                                     0266   380 ;

                                     0266   381 ;	R2,3,4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES

                                     0266   382 ;	  FOR COND TABLES 1,2,3,4,5, RESPECTIVELY.

                                     0266   383 ;	FOR X = 1,2,3,4,5 :

                                     0266   384 ;		CONDX_E - ADDRESS OF TABLE OF DATA VALUES FOR CONDX

                                     0266   385 ;		  TABLE. IF THE CONTEXT OF TABLE X IS A SYSTEM SERVICE

                                     0266   386 ;		  ARGUMENT, THE ARGUMENT NAME MAY BE USED AS A SYNONYM

                                     0266   387 ;		  FOR CONDX_E.

                                     0266   388 ;

                                     0266   389 ; OUTPUT PARAMETERS:

                                     0266   390 ;

                                     0266   391 ;	NONE

                                     0266   392 ;

                                     0266   393 ; IMPLICIT OUTPUTS:

                                     0266   394 ;

                                     0266   395 ;	VERIFY HAS NO OUTPUT. SINCE ITS PURPOSE IS TO TEST FOR ERRORS,

                                     0266   396 ;	IT MERELY RETURNS TO CALLER NORMALLY AFTER THE TESTS, PROVIDING

                                     0266   397 ;	ALL WERE SUCCESSFUL; IF AN ERROR IS DISCOVERED, RETURN IS VIA

                                     0266   398 ;	AN ERR_EXIT OR SS_CHECK MACRO, BOTH OF WHICH DOCUMENT DETECTED

                                     0266   399 ;	ERRORS.

                                     0266   400 ;

                                     0266   401 ; COMPLETION CODES:

                                     0266   402 ;

                                     0266   403 ;	EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED.

                                     0266   404 ;

                                     0266   405 ; SIDE EFFECTS:

                                     0266   406 ;

                                     0266   407 ;	SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 

                                     0266   408 ;	(VIA RSB) IF ERROR ENCOUNTERED.

                                     0266   409 ;

SATSSS52        SATS SYSTEM SERVICE TESTS  $DLCEFC (SUCC S.C.)   22-AUG-1978 04:10:30   VAX-11 MACRO X0.3-11               Page  13

1.0             VERIFY                                                                                                           (1)



                                     0266   410 ;--

                                     0266   411 

                                     0266   412 

                                     0266   413 

                                     0266   414 VERIFY::

                 00000000'EF     95  0266   415 	TSTB	CFLAG			; SHOULD CONDITIONS BE PRINTED ?

                          03     13  026C   416 	BEQL	5$			; NO -- CONTINUE

                          FF0B   30  026E   417 	BSBW	FORM_CONDS		; YES -- FMT & PRINT ALL CONDS FOR THIS T.C.

                                     0271   418 5$:

                                     0271   419 ;

                                     0271   420 ;  CREATE A CLUSTER AND GET IT BUILT AT LEAST ONCE, THEN DELETE

                                     0271   421 ;    IT WITH A DACEFC.

                                     0271   422 ;

                                     0271   423 	$ASCEFC_S EFN=#64, NAME=CLUS_NAME ; CREATE A NEW CLUSTER

                                     0288   424 	SS_CHECK NORMAL			; CHECK ITS COMPLETION

            5A         40 8F     9A  02B6   425 	MOVZBL	#64,R10			; IDENTIFY EVENT FLAG GROUP TO BUILD_CLUST

                          04E8   30  02BA   426 	BSBW	BUILD_CLUST		; BUILD THE SUBJECT CLUSTER

                 00000000'EF     95  02BD   427 	TSTB	EFLAG			; IS AN ERROR BEING PROCESSED ?

                          03     13  02C3   428 	BEQL	10$			; NO -- CONTINUE

                          04A0   31  02C5   429 	BRW	VERIFYX			; YES -- RETURN IMMEDIATELY

                                     02C8   430 10$:

                                     02C8   431 	$SETEF_S EFN=#95		; ENSURE CLUSTER HAS AT LEAST ONE FLAG ON

                                     02D5   432 	SS_CHECK WASCLR			; FLAG 95 SHOULD HAVE BEEN CLEAR PREVIOUSLY

                                     0303   433 	$DACEFC_S EFN=#64		; NOW GET RID OF TEMPORARY CLUSTER

                                     0310   434 	SS_CHECK NORMAL			; ... CHECK ITS COMPLETION

                                     033E   435 ;

                                     033E   436 ;  THE FOLLOWING CASE INSTRUCTION AND SUBSEQUENT CODING

                                     033E   437 ;    ISSUES AS MANY ASCEFC'S AS NECESSARY TO ACHIEVE THE

                                     033E   438 ;    SPECIFIED REFERENCE COUNT FOR THIS TEST CASE.

                                     033E   439 ;

   000000EB'EF         40 8F     9A  033E   440 	MOVZBL	#64,EFN_REFCT1		; ASSUME EVENT FLAG GROUP 2

            00            53     8F  0346   441 	CASEB	R3,#0,#4		; ISSU CORRECT ASCEFC'S PER COND 2 INDEX REG

                          04         0349       

                                     034A   442 15$:					; START OF CASE WORD DISPLACEMENTS

                               000D' 034A   443 	.WORD	20$-15$			; REF COUNT 0

                               0010' 034C   444 	.WORD	30$-15$			; REF COUNT 1, EVENT FLAG GROUP 2

                               005D' 034E   445 	.WORD	40$-15$			; REF COUNT 1, EVENT FLAG GROUP 3

                               00B2' 0350   446 	.WORD	50$-15$			; REF COUNT 2

                               00B2' 0352   447 	.WORD	50$-15$			; REF COUNT 4

                          01A3   31  0354   448 	BRW	55$			; BRANCH PAST CASE ROUTINES

                                     0357   449 20$:

                                     0357   450 ;

                                     0357   451 ;  REF COUNT 0, NO ASCEFC'S TO BE ISSUED

                                     0357   452 ;

                          01B5   31  0357   453 	BRW	60$			; GO ON TO ISSUE SUBJECT DLCEFC

                                     035A   454 30$:

                                     035A   455 ;

                                     035A   456 ;  REF COUNT 1, EVENT FLAG GROUP 2

                                     035A   457 ;

                                     035A   458 	$ASCEFC_S EFN=EFN_REFCT1, -	; INCREMENT REF COUNT; EFN SET UP ABOVE

                                     035A   459 		  NAME=CLUS_NAME, -

                                     035A   460 		  PERM=COND1_E[R2]

                                     0376   461 	SS_CHECK NORMAL			; CHECK FOR NORMAL COMPLETION

                          0153   31  03A4   462 	BRW	55$			; GO BUILD THE CLUSTER JUST CREATED

                                     03A7   463 40$:

                                     03A7   464 ;

                                     03A7   465 ;  REF COUNT 1, EVENT FLAG GROUP 3

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

1.0             VERIFY                                                                                                           (1)



                                     03A7   466 ;

   000000EB'EF         60 8F     9A  03A7   467 	MOVZBL	#96,EFN_REFCT1		; EST EFN FOR E.F. GROUP 3

                                     03AF   468 	$ASCEFC_S EFN=EFN_REFCT1, - 	; INCREMENT REF COUNT

                                     03AF   469 		  NAME=CLUS_NAME, -

                                     03AF   470 		  PERM=COND1_E[R2]

                                     03CB   471 	SS_CHECK NORMAL			; CHECK FOR NORMAL STATUS CODE

                          00FE   31  03F9   472 	BRW	55$			; GO BUILD CLUSTER JUST CREATED

                                     03FC   473 50$:

                                     03FC   474 ;

                                     03FC   475 ;  REF COUNT 2 OR 4, BOTH EVENT FLAG GROUPS IN THIS PROCESS

                                     03FC   476 ;

                                     03FC   477 	$ASCEFC_S EFN=#64, -		; INCREMENT REF COUNT

                                     03FC   478 		  NAME=CLUS_NAME, -

                                     03FC   479 		  PERM=COND1_E[R2]

                                     0418   480 	SS_CHECK NORMAL			; CHECK FOR NORMAL COMPLETION

                                     0446   481 	$ASCEFC_S EFN=#96, -		; INCREMENT REF COUNT

                                     0446   482 		  NAME=CLUS_NAME, -

                                     0446   483 		  PERM=COND1_E[R2]

                                     0462   484 	SS_CHECK NORMAL			; CHECK FOR NORMAL COMPLETION

            04            53     D1  0490   485 	CMPL	R3,#4			; FIFTH COND 2 ELEMENT (REF COUNT 4) ?

                          65     12  0493   486 	BNEQU	55$			; NO -- REF COUNT IS 2 -- NO MORE ASCEFC'S

                                     0495   487 					; YES -- CREATED PROC ISSUE 2 MORE ASCEFC'S

                                     0495   488 	$CREPRC_S PRCNAM=CREPRN, IMAGE=IMAGNAM, -

                                     0495   489 		  MBXUNT=MBXUNIT, QUOTA=QUOTALIST

                                     04C5   490 	SS_CHECK NORMAL			; CHECK CREPRC COMPLETION STATUS

                                     04F3   491 	$HIBER_S			; SLEEP UNTIL CREATED PROCESS DOES ASCEFC'S

                                     04FA   492 55$:

                                     04FA   493 ;

                                     04FA   494 ;  END OF CASE ROUTINES

                                     04FA   495 ;

                                     04FA   496 ;  AT THIS POINT, AT LEAST ONE ASCEFC HAS BEEN ISSUED; CALL

                                     04FA   497 ;    BUILD_CLUST TO GET THE CREATED CLUSTER BUILT.

                                     04FA   498 ;

            5A   000000EB'EF     D0  04FA   499 	MOVL	EFN_REFCT1,R10		; ESTABLISH EFN FOR BUILD_CLUST

                          02A1   30  0501   500 	BSBW	BUILD_CLUST		; BUILD CLUSTER

                 00000000'EF     95  0504   501 	TSTB	EFLAG			; IS AN ERROR BEING PROCESSED ?

                          03     13  050A   502 	BEQL	60$			; NO -- CONTINUE

                          0259   31  050C   503 	BRW	VERIFYX			; YES -- RETURN IMMEDIATELY

                                     050F   504 60$:

                                     050F   505 ;

                                     050F   506 ; ****** SYSTEM SERVICE CALL WHICH IS THE SUBJECT OF THIS TEST CASE ******

                                     050F   507 ;

                                     050F   508 	$DLCEFC_S NAME=CLUS_NAME 	; CLEAR PERMANENT INDICATOR

   00000000'8F            50     D1  051C   509 	CMPL	R0,#SS$_NORMAL		; CODE RECEIVED = CODE EXPECTED ?

                          61     13  0523   510 	BEQLU	70$			; YES -- CONTINUE

   00000000'EF   00000000'8F     D0  0525   511 	MOVL	#SS$_NORMAL,EXPV 	; LOAD UP EXPECTED AND ...

   00000000'EF            50     D0  0530   512 	MOVL	R0,RECV			; ... RECEIVED VALUES, THEN EXIT

                                     0537   513 	ERR_EXIT LONG,<INCORRECT STATUS CODE RETURNED FROM DLCEFC>

                                     0586   514 70$:

                                     0586   515 ;

                                     0586   516 ;  TO VERIFY THE SUBJECT DLCEFC, THE CLUSTER'S REFERENCE COUNT

                                     0586   517 ;    WILL BE DROPPED TO 0 (BY ISSUING DACEFC'S) AND THEN AN

                                     0586   518 ;    ADDITIONAL ASCEFC WILL BE ISSUED TO CREATE A NEW CLUSTER

                                     0586   519 ;    WHICH WILL BE VERIFIED TO BE ALL 0'S.  BEFORE EACH DACEFC

                                     0586   520 ;    IS ISSUED, A READEF OF THE CLUSTER WILL BE DONE TO ENSURE

                                     0586   521 ;    THAT THE CLUSTER REMAINS EQUAL TO THE CLUSTER MASK; THIS

                                     0586   522 ;    GUARANTEES THAT THE REFERENCE COUNT WAS CORRECT AND, IN

SATSSS52        SATS SYSTEM SERVICE TESTS  $DLCEFC (SUCC S.C.)   22-AUG-1978 04:10:30   VAX-11 MACRO X0.3-11               Page  15

1.0             VERIFY                                                                                                           (1)



                                     0586   523 ;    FACT, THAT THE CLUSTER IS NOT DELETED UNTIL THE COUNT

                                     0586   524 ;    GOES TO 0.

                                     0586   525 ;

                                     0586   526 ;

                                     0586   527 ;  THE FOLLOWING CASE STATEMENT AND SUBSEQUENT CODING

                                     0586   528 ;    DECREMENTS THE REFERENCE COUNT BY ISSUING THE CORRECT

                                     0586   529 ;    SEQUENCE OF DACEFC'S, BASED ON THE REFERENCE COUNT 

                                     0586   530 ;    FOR THIS TEST CASE.

                                     0586   531 ;

            00            53     8F  0586   532 	CASEB	R3,#0,#4		; ISSU CORRECT DACEFC'S PER COND 2 INDEX REG

                          04         0589       

                                     058A   533 75$:					; CASE INSTRUCTION WORD DISPLACEMENTS

                               000D' 058A   534 	.WORD	80$-75$			; REF COUNT 0

                               0010' 058C   535 	.WORD	90$-75$			; REF COUNT 1, EVENT FLAG GROUP 2

                               0010' 058E   536 	.WORD	90$-75$			; REF COUNT 1, EVENT FLAG GROUP 3

                               0028' 0590   537 	.WORD	100$-75$		; REF COUNT 2

                               0028' 0592   538 	.WORD	100$-75$		; REF COUNT 4

                          00DB   31  0594   539 	BRW	130$			; BRANCH PAST CASE ROUTINES

                                     0597   540 80$:

                                     0597   541 ;

                                     0597   542 ;  REF COUNT 0, NO DACEFC NECESSARY

                                     0597   543 ;

                          00D8   31  0597   544 	BRW	130$			; GO ON TO CHECK CLUSTER FOR 0'S

                                     059A   545 90$:

                                     059A   546 ;

                                     059A   547 ;  REF COUNT 1, ISSUE ONE DACEFC

                                     059A   548 ;

            5A   000000EB'EF     D0  059A   549 	MOVL	EFN_REFCT1,R10		; SET UP CORRECT EFN FOR READ_DACEFC SUBRTN

                          02A7   30  05A1   550 	BSBW	READ_DACEFC		; CHECK THE CLUSTER AND DISASSOCIATE

                 00000000'EF     95  05A4   551 	TSTB	EFLAG			; IS AN ERROR BEING PROCESSED ?

                          03     13  05AA   552 	BEQL	95$			; NO -- CONTINUE

                          01B9   31  05AC   553 	BRW	VERIFYX			; YES -- RETURN IMMEDIATELY

                                     05AF   554 95$:

                          00C0   31  05AF   555 	BRW	130$			; GO ON TO CHECK CLUSTER FOR 0'S

                                     05B2   556 100$:

                                     05B2   557 ;

                                     05B2   558 ;  REF COUNT 2 OR 4, ISSUE 2 OR 4 DACEFC'S

                                     05B2   559 ;

            04            53     D1  05B2   560 	CMPL	R3,#4			; FIFTH COND 2 ELEMENT (REF COUNT 4) ?

                          03     13  05B5   561 	BEQLU	105$			; YES -- CONTINUE

                          0094   31  05B7   562 	BRW	110$			; NO -- REF COUNT MUST BE 2

                                     05BA   563 105$:

                                     05BA   564 	$WAKE_S PRCNAM=CREPRN		; WAKE PROCESS TO GET DACEFC'S ISSUED

                                     05C9   565 	SS_CHECK NORMAL			; CHECK FOR NORMAL STATUS CODE

                                     05F7   566 	$QIOW_S	CHAN=MBXCHAN, FUNC=#IO$_READVBLK, -

                                     05F7   567 		P1=MBXBUFF+8, P2=MBXBUFF

                                     0620   568 					; ... AND WAIT FOR IT TO SEND MAIL

                                     0620   569 	SS_CHECK NORMAL			; CHECK FOR NORMAL STATUS CODE

                                     064E   570 110$:

            5A         40 8F     9A  064E   571 	MOVZBL	#64,R10			; SET UP CORRECT EFN FOR READ_DACEFC SUBRTN

                          01F6   30  0652   572 	BSBW	READ_DACEFC		; CHECK THE CLUSTER AND DISASSOCIATE

                 00000000'EF     95  0655   573 	TSTB	EFLAG			; IS AN ERROR BEING PROCESSED ?

                          03     13  065B   574 	BEQL	120$			; NO -- CONTINUE

                          0108   31  065D   575 	BRW	VERIFYX			; YES -- RETURN IMMEDIATELY

                                     0660   576 120$:

            5A         60 8F     9A  0660   577 	MOVZBL	#96,R10			; SET UP CORRECT EFN FOR READ_DACEFC SUBRTN

                          01E4   30  0664   578 	BSBW	READ_DACEFC		; CHECK THE CLUSTER AND DISASSOCIATE

SATSSS52        SATS SYSTEM SERVICE TESTS  $DLCEFC (SUCC S.C.)   22-AUG-1978 04:10:30   VAX-11 MACRO X0.3-11               Page  16

1.0             VERIFY                                                                                                           (1)



                 00000000'EF     95  0667   579 	TSTB	EFLAG			; IS AN ERROR BEING PROCESSED ?

                          03     13  066D   580 	BEQL	130$			; NO -- CONTINUE

                          00F6   31  066F   581 	BRW	VERIFYX			; YES -- RETURN IMMEDIATELY

                                     0672   582 130$:

                                     0672   583 ;

                                     0672   584 ;  REFERENCE COUNT SHOULD BE DOWN TO 0 AND CLUSTER DELETED.

                                     0672   585 ;    DO ONE MORE ASCEFC AND EXPECT A CLUSTER OF 0'S.

                                     0672   586 ;

                                     0672   587 	$ASCEFC_S EFN=#64, NAME=CLUS_NAME ; RE-ASSOCIATE SAME CLUSTER

                                     0689   588 	SS_CHECK NORMAL			; CHECK COMPLETION STATUS

                                     06B7   589 	$READEF_S EFN=#64, STATE=CLUS_STATE ; READ CLUSTER

            2E            50     E8  06CA   590 	BLBS	R0,140$			; CONTINUE IF NORMAL COMPLETION

                                     06CD   591 	SS_CHECK NORMAL			; USE SS_CHECK TO TERMINATE TEST MODULE

                                     06FB   592 140$:

                 000000E7'EF     D5  06FB   593 	TSTL	CLUS_STATE		; IS CLUSTER INITIALIZED TO 0'S ?

                          65     13  0701   594 	BEQLU	VERIFYX			; YES -- THIS TEST CASE COMPLETE

                 00000000'EF     D4  0703   595 	CLRL	EXPV			; NO -- LOAD EXPECTED AND ...

   00000000'EF   000000E7'EF     D0  0709   596 	MOVL	CLUS_STATE,RECV		; ... RECEIVED VALUES, THEN EXIT

                                     0714   597 	ERR_EXIT LONG,<DELETED AND RE-ASSOCIATED CLUSTER NOT RE-INIT'D>

                                     0768   598 VERIFYX:

                                 05  0768   599 	RSB				; RETURN TO CALLER

SATSSS52        SATS SYSTEM SERVICE TESTS  $DLCEFC (SUCC S.C.)   22-AUG-1978 04:10:30   VAX-11 MACRO X0.3-11               Page  17

1.0             VFY_CLEANUP                                                                                                      (1)



                                     0769   601 	.SBTTL	VFY_CLEANUP

                                     0769   602 ;++

                                     0769   603 ; FUNCTIONAL DESCRIPTION:

                                     0769   604 ;

                                     0769   605 ;		VFY_CLEANUP EXECUTES SYSTEM SERVICES TO UNDO THE

                                     0769   606 ; EFFECT OF THOSE ISSUED IN THE VERIFY SUBROUTINE. VFY_CLEANUP MUST

                                     0769   607 ; ASSUME THAT VERIFY MAY NOT HAVE EXECUTED IN ITS ENTIRETY (IF AN

                                     0769   608 ; ERROR IS FOUND). ALSO, VFY_CLEANUP MAY ISSUE SS_CHECK OR ERR_EXIT

                                     0769   609 ; ONLY AFTER PERFORMING ALL OF ITS CLEANUP OPERATIONS; THIS IS REQUIRED

                                     0769   610 ; IN THE EVENT THAT VFY_CLEANUP IS CALLED DURING ERROR PROCESSING,

                                     0769   611 ; WHEN PERFORMING THE REQUIRED CLEANUP IS MORE IMPORTANT THAN

                                     0769   612 ; POSSIBLY DISCOVERING A SECOND ERROR.

                                     0769   613 ;

                                     0769   614 ; CALLING SEQUENCE:

                                     0769   615 ;

                                     0769   616 ;	BSBW VFY_CLEANUP

                                     0769   617 ;

                                     0769   618 ; INPUT PARAMETERS:

                                     0769   619 ;

                                     0769   620 ;	NONE

                                     0769   621 ;

                                     0769   622 ; IMPLICIT INPUTS:

                                     0769   623 ;

                                     0769   624 ;	R2,3,4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES

                                     0769   625 ;	  FOR COND TABLES 1,2,3,4,5, RESPECTIVELY.

                                     0769   626 ;	FOR X = 1,2,3,4,5 :

                                     0769   627 ;		CONDX_E - ADDRESS OF TABLE OF DATA VALUES FOR CONDX

                                     0769   628 ;		  TABLE. IF THE CONTEXT OF TABLE X IS A SYSTEM SERVICE

                                     0769   629 ;		  ARGUMENT, THE ARGUMENT NAME MAY BE USED AS A SYNONYM

                                     0769   630 ;		  FOR CONDX_E.

                                     0769   631 ;

                                     0769   632 ; OUTPUT PARAMETERS:

                                     0769   633 ;

                                     0769   634 ;	NONE

                                     0769   635 ;

                                     0769   636 ; IMPLICIT OUTPUTS:

                                     0769   637 ;

                                     0769   638 ;	NONE

                                     0769   639 ;

                                     0769   640 ; COMPLETION CODES:

                                     0769   641 ;

                                     0769   642 ;	EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED.

                                     0769   643 ;

                                     0769   644 ; SIDE EFFECTS:

                                     0769   645 ;

                                     0769   646 ;	SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 

                                     0769   647 ;	(VIA RSB) IF ERROR ENCOUNTERED.

                                     0769   648 ;

                                     0769   649 ;--

                                     0769   650 

                                     0769   651 

                                     0769   652 

                                     0769   653 VFY_CLEANUP::

                                     0769   654 	$DLCEFC_S NAME=CLUS_NAME 	; CLEAR PERM INDICATOR IF PRESENT ...

                                     0776   655 	SS_CHECK NORMAL			; ... AND CHECK COMPLETION

                                 05  07A4   656 	RSB				; RETURN TO CALLER

SATSSS52        SATS SYSTEM SERVICE TESTS  $DLCEFC (SUCC S.C.)   22-AUG-1978 04:10:30   VAX-11 MACRO X0.3-11               Page  18

1.0             BUILD_CLUST SUBROUTINE                                                                                           (1)



                                     07A5   658 	.SBTTL	BUILD_CLUST SUBROUTINE

                                     07A5   659 ;

                                     07A5   660 ; **************************************************************

                                     07A5   661 ; *

                                     07A5   662 ; *	BUILD_CLUST SUBROUTINE

                                     07A5   663 ; *

                                     07A5   664 ; *	THIS SUBROUTINE CREATES A 32-BIT CLUSTER MASK BY

                                     07A5   665 ; *	  CONCATENATING THE LOW-ORDER BYTES OF REGS R2-R5.

                                     07A5   666 ; *	  IT THEN SETS CLUSTER A EQUAL TO THE MASK BY

                                     07A5   667 ; *	  ISSUING THE PROPER COMBINATION OF 32 SETEF/CLREF'S.

                                     07A5   668 ; *

                                     07A5   669 ; *	INPUTS:

                                     07A5   670 ; *

                                     07A5   671 ; *		R2,R3,R4,R5   -  CONDITION TABLE INDEX VALUES

                                     07A5   672 ; *

                                     07A5   673 ; *		R10      -       ANY EFN IN CLUSTER A

                                     07A5   674 ; *

                                     07A5   675 ; *	OUTPUTS:

                                     07A5   676 ; *

                                     07A5   677 ; *		CLUS_MASK   -    LONGWORD CONTAINING THE CREATED

                                     07A5   678 ; *		                   CLUSTER MASK.

                                     07A5   679 ; *

                                     07A5   680 ; *		SUBJECT CLUSTER - UPDATED TO LOOK LIKE CLUS_MASK.

                                     07A5   681 ; *

                                     07A5   682 ; *	VOLATILE REGISTERS:

                                     07A5   683 ; *

                                     07A5   684 ; *		R0, R1, R8, R9

                                     07A5   685 ; *

                                     07A5   686 ; **************************************************************

                                     07A5   687 ;

                                     07A5   688 BUILD_CLUST:

   000000E3'EF            55     90  07A5   689 	MOVB	R5,CLUS_MASK		; BUILD

   000000E4'EF            54     90  07AC   690 	MOVB	R4,CLUS_MASK+1		; .. CLUSTER

   000000E5'EF            53     90  07B3   691 	MOVB	R3,CLUS_MASK+2		; ...... MASK

   000000E6'EF            52     90  07BA   692 	MOVB	R2,CLUS_MASK+3		; ..............

                                     07C1   693 ;

                                     07C1   694 ; THE FOLLOWING CODE SETS SUBJECT CLUSTER EQUAL TO CLUS_MASK

                                     07C1   695 ;

            58            5A     D0  07C1   696 	MOVL	R10,R8			; ESTABLISH FIRST EFN (EVENT FLAG NO.)

                          59     D4  07C4   697 	CLRL	R9			; INIT OFFSET INTO CLUS_MASK

                                     07C6   698 20$:

   000000E3'EF            59     E0  07C6   699 	BBS	R9,CLUS_MASK,30$ 	; ISSUE $SETEF IF BIT FOR THIS FLAG IS SET

                          3A         07CD       

                                     07CE   700 	$CLREF_S EFN=R8			; ... OTHERWISE, ISSUE $CLREF

            68            50     E8  07D7   701 	BLBS	R0,40$			; IF NORMAL STATUS, PROCESS NEXT EVENT FLAG

                                     07DA   702 	SS_CHECK NORMAL			; USE SS_CHECK TO TERMINATE TEST MODULE

                                     0808   703 30$:

                                     0808   704 	$SETEF_S EFN=R8			; SET CURRENT EVENT FLAG

            2E            50     E8  0811   705 	BLBS	R0,40$			; IF NORMAL STATUS, PROCESS NEXT EVENT FLAG

                                     0814   706 	SS_CHECK NORMAL			; USE SS_CHECK TO TERMINATE TEST MODULE

                                     0842   707 40$:

                          58     B6  0842   708 	INCW	R8			; GET NEXT EFN

            01            1F     9D  0844   709 	ACBB	#31,#1,R9,20$		; GO DO NEXT EVENT FLAG

            FF7C          59         0847       

                                 05  084A   710 	RSB				; RETURN TO CALLER

SATSSS52        SATS SYSTEM SERVICE TESTS  $DLCEFC (SUCC S.C.)   22-AUG-1978 04:10:30   VAX-11 MACRO X0.3-11               Page  19

1.0             READ_DACEFC SUBROUTINE                                                                                           (1)



                                     084B   712 	.SBTTL	READ_DACEFC SUBROUTINE

                                     084B   713 ;

                                     084B   714 ; **************************************************************

                                     084B   715 ; *

                                     084B   716 ; *	READ_DACEFC SUBROUTINE

                                     084B   717 ; *

                                     084B   718 ; *	THIS SUBROUTINE COMPARES THE CLUSTER AGAINST THE MASK

                                     084B   719 ; *	  AND THEN DISASSOCIATES THE EVENT FLAG GROUP SPECIFIED

                                     084B   720 ; *	  BY R10 FROM THE CLUSTER.

                                     084B   721 ; *

                                     084B   722 ; *	INPUTS:

                                     084B   723 ; *

                                     084B   724 ; *		R10      -       ANY EFN IN THE EVENT FLAG GROUP

                                     084B   725 ; *				   TO BE DISASSOCIATED.

                                     084B   726 ; *

                                     084B   727 ; *		CLUS_MASK   -    LONGWORD CONTAINING THE IMAGE

                                     084B   728 ; *				   OF THE SUBJECT CLUSTER.

                                     084B   729 ; *	OUTPUTS:

                                     084B   730 ; *

                                     084B   731 ; *		NONE.

                                     084B   732 ; *

                                     084B   733 ; *	EXITS:

                                     084B   734 ; *

                                     084B   735 ; *		NORMAL     -     RSB TO CALLER IF CLUSTER EQUALS

                                     084B   736 ; *				   MASK AND SYSTEM SERVICES

                                     084B   737 ; *				   FINISH NORMALLY.

                                     084B   738 ; *

                                     084B   739 ; *		ERROR      -     ERR_EXIT MACRO EXECUTED IF ABOVE

                                     084B   740 ; *				   NORMAL CONDITIONS ARE NOT MET.

                                     084B   741 ; *

                                     084B   742 ; *	VOLATILE REGISTERS, AREAS:

                                     084B   743 ; *

                                     084B   744 ; *		R0, R1, R8, R9, CLUS_STATE, EXPV, RECV

                                     084B   745 ; *

                                     084B   746 ; **************************************************************

                                     084B   747 ;

                                     084B   748 READ_DACEFC:

                                     084B   749 	$READEF_S EFN=R10, STATE=CLUS_STATE ; READ CLUSTER

            2E            50     E8  085A   750 	BLBS	R0,10$			; CONTINUE IF NORMAL COMPLETION

                                     085D   751 	SS_CHECK NORMAL			; USE SS_CHECK TO TERMINATE TEST MODULE

                                     088B   752 10$:

   000000E3'EF   000000E7'EF     D1  088B   753 	CMPL	CLUS_STATE,CLUS_MASK 	; DOES CLUSTER STILL = MASK ?

                          6F     13  0896   754 	BEQLU	20$			; YES -- ISSUE DACEFC AND GET OUT

   00000000'EF   000000E3'EF     D0  0898   755 	MOVL	CLUS_MASK,EXPV		; NO -- LOAD EXPECTED AND ...

   00000000'EF   000000E7'EF     D0  08A3   756 	MOVL	CLUS_STATE,RECV		; ... RECEIVED VALUES, THEN EXIT

                                     08AE   757 	ERR_EXIT LONG,<CLUSTER STATE NOT MAINTAINED ACROSS DLCEFC OR DACEFC>

                                     0907   758 20$:

                                     0907   759 	$DACEFC_S EFN=R10		; DISASSOCIATE (DECR REF CT BY 1)

                                     0910   760 	SS_CHECK NORMAL			; CHECK FOR NORMAL COMPLETION

                                     093E   761 READ_DACEFCX:

                                 05  093E   762 	RSB				; RETURN TO CALLER

                                     093F   763 	.END

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

SYMBOL TABLE                                                                                                                     (1)



$$$$           = 000008B8 R     05   DIB$B_DEVCLASS   00000004            PHD$L_FREPTECNT  0000002C            

$$$CHARS       = 00000034            DIB$B_DEVTYPE    00000005            PHD$L_KSP        00000078            

$$$CHARS1      = 00000004            DIB$C_LENGTH     00000024            PHD$L_P0BR       000000C8            

$$$CHARS2      = 00000012            DIB$K_LENGTH     00000024            PHD$L_P0LRASTL   000000CC            

$$$CHARS3      = 00000012            DIB$L_DEVCHAR    00000000            PHD$L_P1BR       000000D0            

$$$CHARS4      = 00000016            DIB$L_DEVDEPEND  00000008            PHD$L_P1LR       000000D4            

$$$CHARS5      = 00000028            DIB$L_OPCNT      0000001C            PHD$L_PAGEFLTS   0000004C            

$$$COND_A      = 00000004            DIB$L_OWNUIC     00000014            PHD$L_PAGFIL     0000001C            

$$$STRINGS     = 00000001            DIB$L_PID        00000010            PHD$L_PC         000000C0            

$$$STRINGS2    = 00000005            DIB$W_DEVBUFSIZ  00000006            PHD$L_PCB        00000078            

$$T1           = 00000001            DIB$W_DEVNAMOFF  0000000E            PHD$L_PGFLCNT    00000034            

$$T2           = 00000004            DIB$W_ERRCNT     0000001A            PHD$L_PGFLQUOTA  0000005C            

BIT...         = 0000000D            DIB$W_RECSIZ     00000022            PHD$L_PSL        000000C4            

BUILD_CLUST      000007A5 R     05   DIB$W_UNIT       0000000C            PHD$L_PSTBASOFF  00000020            

BYTE           = 00000001  G         DIB$W_VOLNAMOFF  00000020            PHD$L_PTWSLELCK  00000064            

CFLAG            ********   X   05   DIB$W_VPROT      00000018            PHD$L_PTWSLEVAL  00000068            

CHMRTN           ********   X   05   EFLAG            ********   X   05   PHD$L_R0         00000088            

CHM_CONT         ********   X   05   EFN_REFCT1       000000EB R     04   PHD$L_R1         0000008C            

CLUS_MASK        000000E3 R     04   EXPV             ********   X   05   PHD$L_R10        000000B0            

CLUS_NAME        00000065 R     03   FAO_DESC         ********   X   05   PHD$L_R11        000000B4            

CLUS_STATE       000000E7 R     04   FAO_LEN          ********   X   05   PHD$L_R12        000000B8            

COMP_SC          ********   X   05   FORM_CONDS       0000017C RG    05   PHD$L_R13        000000BC            

COND1            00000172 RG    05   FORM_CONDSX      00000265 R     05   PHD$L_R2         00000090            

COND1_C        = 00000000            GBL...         = 00000000            PHD$L_R3         00000094            

COND1_CLEANUP    00000173 RG    05   IMAGNAM          0000007A R     03   PHD$L_R4         00000098            

COND1_E          0000013A R     04   IO$_READVBLK     ********   X   05   PHD$L_R5         0000009C            

COND1_H          0000011D RG    04   LONG           = 00000004  G         PHD$L_R6         000000A0            

COND1_T          000000EF R     04   MBXBUFF          00000063 R     04   PHD$L_R7         000000A4            

COND1_TAB        0000011E R     04   MBXCHAN          00000008 R     04   PHD$L_R8         000000A8            

COND2            00000174 RG    05   MBXCHANINFO      0000000C R     04   PHD$L_R9         000000AC            

COND2_C        = 00000000            MBXUNIT          0000005F R     04   PHD$L_REFERFLT   00000014            

COND2_CLEANUP    00000175 RG    05   MOD_MSG_CODE     ********   X   05   PHD$L_SSP        00000080            

COND2_E          000001EE R     04   MOD_MSG_PRINT    ********   X   05   PHD$L_USP        00000084            

COND2_H          0000016E RG    04   MSG1_INP_CTL     00000019 R     03   PHD$L_WSL        00000118            

COND2_T          00000142 R     04   MSG3_ERR_CTL     00000039 RG    03   PHD$M_DALCSTX  = 00000002            

COND2_TAB        0000016F R     04   MSG_A            ********   X   05   PHD$M_PFMFLG   = 00000001            

COND3            00000176 RG    05   MSG_B            ********   X   05   PHD$M_WSPEAKCHK= 00000004            

COND3_C        = 00000014            MSG_CTXT         ********   X   05   PHD$Q_PRIVMSK    00000000            

COND3_CLEANUP    00000177 RG    05   NOTARG         = 00000000  G         PHD$S_ASTLVL   = 00000008            

COND3_H          000001EE RG    04   NULL           = 00000014  G         PHD$S_P0LR     = 00000018            

COND3_T          000001EE R     04   ONES             ********   X   05   PHD$V_ASTLVL   = 00000018            

COND3_TAB        000001EE R     04   OUTPUT_MSG       ********   X   05   PHD$V_DALCSTX  = 00000001            

COND4            00000178 RG    05   PCV              ********   X   05   PHD$V_P0LR     = 00000000            

COND4_C        = 00000014            PHD$B_ASTLVL     000000CF            PHD$V_PFMFLG   = 00000000            

COND4_CLEANUP    00000179 RG    05   PHD$B_DFPFC      00000038            PHD$V_WSPEAKCHK= 00000002            

COND4_H          000001EF RG    04   PHD$B_PAGFIL     0000001F            PHD$W_ASTLM      00000044            

COND4_T          000001EF R     04   PHD$B_PGTBPFC    00000039            PHD$W_BAK        00000048            

COND4_TAB        000001EF R     04   PHD$C_LENGTH     00000118            PHD$W_DFWSCNT    0000001A            

COND5            0000017A RG    05   PHD$C_PHDPAGCTX= 00000008            PHD$W_EMPTPG     000000D8            

COND5_C        = 00000014            PHD$K_LENGTH     00000118            PHD$W_EXTDYNWS   00000076            

COND5_CLEANUP    0000017B RG    05   PHD$L_BIOCNT     00000054            PHD$W_FILLM      00000060            

COND5_H          000001F0 RG    04   PHD$L_CPULIM     00000058            PHD$W_FLAGS      0000003A            

COND5_T          000001F0 R     04   PHD$L_CPUTIM     0000003C            PHD$W_PHVINDEX   00000046            

COND5_TAB        000001F0 R     04   PHD$L_DIOCNT     00000050            PHD$W_PRCLM      00000042            

CREPRN           00000051 R     03   PHD$L_ESP        0000007C            PHD$W_PST        00000020            

CTL$GL_PHD       ********   X   05   PHD$L_FREP0VA    00000028            PHD$W_PSTBASMAX  0000004A            

DESC           = 00000010  G         PHD$L_FREP1VA    00000030            PHD$W_PSTFREE    00000026            

SATSSS52        SATS SYSTEM SERVICE TESTS  $DLCEFC (SUCC S.C.)   22-AUG-1978 04:10:30   VAX-11 MACRO X0.3-11               Page  21

SYMBOL TABLE                                                                                                                     (1)



PHD$W_PSTLAST    00000024            QUAD           = 00000008  G         

PHD$W_PTCNTACT   00000070            QUOTALIST        00000099 R     03   

PHD$W_PTCNTLCK   0000006C            READ_DACEFC      0000084B R     05   

PHD$W_PTCNTMAX   00000072            READ_DACEFCX     0000093E R     05   

PHD$W_PTCNTVAL   0000006E            RECV             ********   X   05   

PHD$W_QUANT      00000040            REST_REGS        ********   X   05   

PHD$W_TQLM       00000062            SAVE_REGS        ********   X   05   

PHD$W_WSAUTH     0000000A            SS$_NORMAL       ********   X   05   

PHD$W_WSDYN      0000000E            SS$_WASCLR       ********   X   05   

PHD$W_WSFLUID    00000074            SUCCESS          ********   X   05   

PHD$W_WSLAST     00000012            SYS$ASCEFC       ********   X   05   

PHD$W_WSLIST     00000008            SYS$CLREF        ********   X   05   

PHD$W_WSLOCK     0000000C            SYS$CMKRNL       ********   X   05   

PHD$W_WSLX       0000004A            SYS$CREMBX       ********   X   05   

PHD$W_WSNEXT     00000010            SYS$CREPRC       ********   X   05   

PHD$W_WSQUOTA    00000018            SYS$DACEFC       ********   X   05   

PQL$_ASTLM     = 00000001            SYS$DELMBX       ********   X   05   

PQL$_BIOLM     = 00000002            SYS$DLCEFC       ********   X   05   

PQL$_BYTLM     = 00000003            SYS$FAO          ********   X   05   

PQL$_CPULM     = 00000004            SYS$GETCHN       ********   X   05   

PQL$_DIOLM     = 00000005            SYS$HIBER        ********   X   05   

PQL$_FILLM     = 00000006            SYS$QIOW         ********   X   05   

PQL$_LENGTH    = 0000000C            SYS$READEF       ********   X   05   

PQL$_LISTEND   = 00000000            SYS$SETEF        ********   X   05   

PQL$_PGFLQUOTA = 00000007            SYS$SETPRN       ********   X   05   

PQL$_PRCLM     = 00000008            SYS$WAKE         ********   X   05   

PQL$_TQELM     = 00000009            TESTNUM          ********   X   05   

PQL$_WSDEFAULT = 0000000B            TEST_MOD_NAME    00000000 RG    03   

PQL$_WSQUOTA   = 0000000A            TEST_MOD_NAME_D  00000009 R     03   

PRIVMASK         00000000 R     04   TEST_MOD_SUCC    ********   X   05   

PROCESS_ERR      ********   X   05   TMD_ADDR         ********   X   05   

PRV$V_ALLSPOOL = 00000004            TM_CLEANUP       00000160 RG    05   

PRV$V_BUGCHK   = 00000017            TM_SETUP         00000000 RG    05   

PRV$V_CMEXEC   = 00000001            VERIFY           00000266 RG    05   

PRV$V_CMKRNL   = 00000000            VERIFYX          00000768 R     05   

PRV$V_DETACH   = 00000005            VFY_CLEANUP      00000769 RG    05   

PRV$V_DIAGNOSE = 00000006            WORD           = 00000002  G         

PRV$V_EXQUOTA  = 00000013            WRITE_MSG2       ********   X   05   

PRV$V_GROUP    = 00000008            

PRV$V_GRPNAM   = 00000003            

PRV$V_LOG_IO   = 00000007            

PRV$V_MOUNT    = 00000011            

PRV$V_NETMBX   = 00000014            

PRV$V_NOACNT   = 00000009            

PRV$V_OPER     = 00000012            

PRV$V_PHY_IO   = 00000016            

PRV$V_PRMCEB   = 0000000A            

PRV$V_PRMGBL   = 00000018            

PRV$V_PRMMBX   = 0000000B            

PRV$V_PSWAPM   = 0000000C            

PRV$V_SETPRI   = 0000000D            

PRV$V_SETPRV   = 0000000E            

PRV$V_SYSGBL   = 00000019            

PRV$V_SYSNAM   = 00000002            

PRV$V_TMPMBX   = 0000000F            

PRV$V_VOLPRO   = 00000015            

PRV$V_WORLD    = 00000010            

SATSSS52        SATS SYSTEM SERVICE TESTS  $DLCEFC (SUCC S.C.)   22-AUG-1978 04:10:30   VAX-11 MACRO X0.3-11               Page  22

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

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

SATSSS52         0000093F      05     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

11510. BYTES LEFT IN FREE MEMORY POOL.

12. BYTES OF RECLAIMED MEMORY.

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

67 MLB DIR RDS - 786 GETS TO DEFINE 41 MACROS. 41 INTER. FILE WRITES. 

