SATSSS38        SATS SYSTEM SERVICE TESTS  $RESUME (SUCC S.C.)   22-AUG-1978 04:04:19   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      48  DECLARATIONS

   (1)      96  CONDITION TABLES

   (1)     135  TM_SETUP, TM_CLEANUP

   (1)     226  CONDITION SUBROUTINES - SETUP AND CLEANUP 

   (1)     319  FORM_CONDS

   (1)     412  VERIFY

   (1)     524  VFY_CLEANUP

SATSSS38        SATS SYSTEM SERVICE TESTS  $RESUME (SUCC S.C.)   22-AUG-1978 04:04:19   VAX-11 MACRO X0.3-11               Page   1

1.0                                                                                                                              (1)



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

                                     0000    30 ; OPERATION OF THE $RESUME 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: AUG, 1977

                                     0000    41 ;

                                     0000    42 ; MODIFIED BY:

                                     0000    43 ;

                                     0000    44 ;	, : VERSION

                                     0000    45 ; 01	- 

                                     0000    46 ;--

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

                                     0000    55 	$PCBDEF				; PCB LABELS

                                     0000    56 	$DIBDEF				; DEVICE INFO BLOCK OFFSETS

                                     0000    57 ;

                                     0000    58 ; MACROS:

                                     0000    59 ;

                                     0000    60 ;

                                     0000    61 ; EQUATED SYMBOLS:

                                     0000    62 ;

                                     0000    63 ;

                                     0000    64 ; OWN STORAGE:

                                     0000    65 ;

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

1.0             DECLARATIONS                                                                                                     (1)



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

                                     0000    68 TEST_MOD_NAME::	STRING	C,<SATSSS38>	; TEST MODULE NAME

                                     0009    69 TEST_MOD_NAME_D: STRING	I,<SATSSS38>	; TEST MODULE NAME DESCRIPTOR

                                     0019    70 MSG1_INP_CTL:	STRING	I,<  SSRES!4ZW: CONDITIONS:>

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

                                     0039    72 MSG3_ERR_CTL::	STRING	I,< *SSRES!4ZW: !AS> 

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

                                     0051    74 SUBJPRN:	STRING	I,<SATSSS38_CRE> ; PROC, CLUSTER & MBX NAME FOR CREATED PROC

                                     0065    75 IMAGNAM:	STRING	I,<SYSTST$RES:SATSUT05.EXE> ; IMAGE NAME FOR CREATED PROC

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

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

                                     008E    78 		$QUOTA	FILLM,2		; OPEN FILE COUNT LIMIT

                                     0093    79 		$QUOTA	PGFLQUOTA,10	; PAGING FILE QUOTA

                                     0098    80 		$QUOTA	PRCLM,2		; SUBPROCESS QUOTA

                                     009D    81 		$QUOTA	TQELM,3		; TIMER QUEUE ENTRY QUOTA

                                     00A2    82 		$QUOTA	LISTEND		; DEFINES END OF LIST

SATSSS38        SATS SYSTEM SERVICE TESTS  $RESUME (SUCC S.C.)   22-AUG-1978 04:04:19   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 DEST_PIDADR:	.BLKL	1		; DESTINATION PID ADDR, WRITTEN BY S.S.

                           000000EB  00E7    91 ZEROPID:	.BLKL	1		; PID OF ZEROES

                           00000000  00EB    92 SELFPID:	.LONG	0		; PID OF THIS PROCESS

                           000000F3  00EF    93 CREPID:		.BLKL	1		; PID OF CREATED PROCESS

                           000000F7  00F3    94 SUBJPID:	.BLKL	1		; PID OF SUBJECT PROCESS (SELF OR OTHER)

SATSSS38        SATS SYSTEM SERVICE TESTS  $RESUME (SUCC S.C.)   22-AUG-1978 04:04:19   VAX-11 MACRO X0.3-11               Page   5

1.0             CONDITION TABLES                                                                                                 (1)



                                     00F7    96 	.SBTTL	CONDITION TABLES

                                     00F7    97 ;

                                     00F7    98 ;	***** CONDITION TABLES FOR RESUME SYSTEM SERVICE *****

                                     00F7    99 ;

                                     00F7   100 	COND	1,NOTARG,<PID ADDRESS>,-

                                     00F7   101 		  <NOT SPECIFIED>,-

                                     00F7   102 		  <SPECIFIED, NON-ZERO>,-

                                     00F7   103 		  <SPECIFIED, ZERO>,-

                                     00F7   104  

                           00000000' 0142   105 		    .ADDRESS	0

                           000000F3' 0146   106 		    .ADDRESS	SUBJPID

                           000000E7' 014A   107 		    .ADDRESS	ZEROPID

                                     014E   108 ;

                                     014E   109 	COND	2,NOTARG,<PROCESS NAME ADDRESS>,-

                                     014E   110 		  <SPECIFIED>,-

                                     014E   111 		  <NOT SPECIFIED>,-

                                     014E   112  

                           00000051' 0184   113 		    .ADDRESS	SUBJPRN

                           00000000' 0188   114 		    .ADDRESS	0

                                     018C   115 ;

                                     018C   116 	COND	3,NOTARG,<PROCESS TYPE>,-

                                     018C   117 		  <SELF>,-

                                     018C   118 		  <SUBPROCESS>,-

                                     018C   119 		  <DETACHED, DIFFERENT GROUP>,-

                                     018C   120 		  <DETACHED, SAME GROUP, SAME MEMBER>,-

                                     018C   121 		  <DETACHED, SAME GROUP, DIFFERENT MEMBER>,-

                                     018C   122  

                           FFFFFFFF  0221   123 		    .LONG	^XFFFFFFFF ; PSEUDO-UIC

                           00000000  0225   124 		    .LONG	0	   ; PSEUDO-UIC

                           0000022D  0229   125 		    .BLKL	1	   ; UIC

                           00000231  022D   126 		    .BLKL	1	   ; UIC

                           00000235  0231   127 		    .BLKL	1	   ; UIC

                                     0235   128 ;

                                     0235   129 	COND	4,NULL

                                     0236   130 

                                     0236   131 	COND	5,NULL

                                     0237   132 

                                 00000000   133 	.PSECT	SATSSS38,RD,WRT,EXE

SATSSS38        SATS SYSTEM SERVICE TESTS  $RESUME (SUCC S.C.)   22-AUG-1978 04:04:19   VAX-11 MACRO X0.3-11               Page   6

1.0             TM_SETUP, TM_CLEANUP                                                                                             (1)



                                     0000   135 	.SBTTL	TM_SETUP, TM_CLEANUP

                                     0000   136 ;++

                                     0000   137 ; FUNCTIONAL DESCRIPTION:

                                     0000   138 ;

                                     0000   139 ;		TM_SETUP AND TM_CLEANUP ARE CALLED TO PERFORM

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

                                     0000   141 ; TEST MODULE EXECUTION.

                                     0000   142 ;

                                     0000   143 ; CALLING SEQUENCE:

                                     0000   144 ;

                                     0000   145 ;	BSBW TM_SETUP   BSBW TM_CLEANUP

                                     0000   146 ;

                                     0000   147 ; INPUT PARAMETERS:

                                     0000   148 ;

                                     0000   149 ;	NONE

                                     0000   150 ;

                                     0000   151 ; IMPLICIT INPUTS:

                                     0000   152 ;

                                     0000   153 ;	NONE

                                     0000   154 ;

                                     0000   155 ; OUTPUT PARAMETERS:

                                     0000   156 ;

                                     0000   157 ;	NONE

                                     0000   158 ;

                                     0000   159 ; IMPLICIT OUTPUTS:

                                     0000   160 ;

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

                                     0000   162 ;		   ALL PRIVILEGES ACQUIRED.

                                     0000   163 ;

                                     0000   164 ; COMPLETION CODES:

                                     0000   165 ;

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

                                     0000   167 ;

                                     0000   168 ; SIDE EFFECTS:

                                     0000   169 ;

                                     0000   170 ;	SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 

                                     0000   171 ;	(VIA RSB) IF ERROR ENCOUNTERED.

                                     0000   172 ;

                                     0000   173 ;--

                                     0000   174 

                                     0000   175 

                                     0000   176 

                                     0000   177 TM_SETUP::

                          52     D4  0000   178 	CLRL	R2			; INITIALIZE

                          53     D4  0002   179 	CLRL	R3			; .. CONDITION

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

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

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

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

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

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

   00000000'EF            03         001F       

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

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

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

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

                                     0057   190 	PRIV	ADD,ALL			; GET ALL PRIVILEGES

SATSSS38        SATS SYSTEM SERVICE TESTS  $RESUME (SUCC S.C.)   22-AUG-1978 04:04:19   VAX-11 MACRO X0.3-11               Page   7

1.0             TM_SETUP, TM_CLEANUP                                                                                             (1)



                                     0080   191 	$SETPRN_S TEST_MOD_NAME_D 	; SET PROCESS NAME

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

                                     00BB   193 	$WAKE_S	SELFPID			; GET MY PID

                                     00CA   194 	SS_CHECK NORMAL			; CHECK FOR NORMAL RETURN

                                     00F8   195 	$HIBER_S			; UNDO ABOVE WAKE

                                     00FF   196 	SS_CHECK NORMAL			; CHECK FOR NORMAL RETURN

                                     012D   197 ;

                                     012D   198 ; THE FOLLOWING CODE ESTABLISHES UIC'S IN THE CONDITION 3 TABLE

                                     012D   199 ;

                                     012D   200 	MODE	TO,20$,KRNL		; KERNEL MODE TO ACCESS PCB

            59   00000000'9F     D0  0150   201 	MOVL	@#SCH$GL_CURPCB,R9 	; GET CURRENT PCB ADDRESS

            59         20 A9     D0  0157   202 	MOVL	PCB$L_UIC(R9),R9 	; PICK UP UIC FROM PCB

                                     015B   203 	MODE	FROM,20$		; ... AND GET BACK TO USER MODE

                                     015C   204 ;

                                     015C   205 ; R9 NOW CONTAINS "MY" UIC

                                     015C   206 ;

            5A            02     9A  015C   207 	MOVZBL	#2,R10			; GET COND3 TABLE INDEX NUMBER INTO A REG

            59   00010000 8F     C1  015F   208 	ADDL3	#^X10000,R9,COND3_E[R10] ; PUT DIFF GROUP UIC INTO 3RD TABLE ELT

                 00000221'EF4A       0166       

                          5A     D6  016C   209 	INCL	R10			; POINT TO 4TH COND3 TABLE ELEMENT

   00000221'EF4A          59     D0  016E   210 	MOVL	R9,COND3_E[R10]		; PUT MY UIC INTO TABLE

                          5A     D6  0176   211 	INCL	R10			; POINT TO 5TH COND3 TABLE ELEMENT

            59            01     C1  0178   212 	ADDL3	#1,R9,COND3_E[R10] 	; PUT DIFF MEMBER UIC INTO THE TABLE

                 00000221'EF4A       017B       

                                     0181   213 	$CREMBX_S CHAN=MBXCHAN, LOGNAM=SUBJPRN, - ; GET MAILBOX FOR PROCESS

                                     0181   214 		  MAXMSG=#120, PROMSK=#0, BUFQUO=#240

                                     01A4   215 	SS_CHECK NORMAL			; CHECK NORMAL COMPLETION

                                     01D2   216 	$GETCHN_S CHAN=MBXCHAN, -	; GET CHAN INFO (UNIT NUMBER)

                                     01D2   217 		  PRIBUF=MBXCHANINFO

                                     01EC   218 	SS_CHECK NORMAL			; CHECK NORMAL COMPLETION

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

                                 05  0225   220 	RSB				; RETURN TO MAIN ROUTINE

                                     0226   221 TM_CLEANUP::

                                     0226   222 	$DELMBX_S  MBXCHAN		; DELETE TERMINATION MAILBOX

                          FDC9'  30  0234   223 	BSBW	MOD_MSG_PRINT		; PRINT TEST MODULE END MSG

                                 05  0237   224 	RSB				; RETURN TO MAIN ROUTINE

SATSSS38        SATS SYSTEM SERVICE TESTS  $RESUME (SUCC S.C.)   22-AUG-1978 04:04:19   VAX-11 MACRO X0.3-11               Page   8

1.0             CONDITION SUBROUTINES - SETUP AND CLEANUP                                                                        (1)



                                     0238   226 	.SBTTL	CONDITION SUBROUTINES - SETUP AND CLEANUP 

                                     0238   227 ;++

                                     0238   228 ; FUNCTIONAL DESCRIPTION:

                                     0238   229 ;

                                     0238   230 ;		CONDX AND CONDX_CLEANUP ARE SUBROUTINES WHICH ARE EXECUTED

                                     0238   231 ; BEFORE AND AFTER THE VERIFY SUBROUTINE, RESPECTIVELY, WHENEVER A NEW

                                     0238   232 ; CONDITION X VALUE IS SELECTED (SEE FUNCTIONAL DESCRIPTION OF SUCCOMMON

                                     0238   233 ; ROUTINE IN SUCCOMMON.MAR). ANY SETUP FUNCTION PARTICULAR TO THE 

                                     0238   234 ; CONDITION X TABLE IS INCLUDED IN THE CONDX SUBROUTINE AND CLEANED

                                     0238   235 ; UP, IF NECESSARY, IN THE CONDX_CLEANUP SUBROUTINE. THIS INCLUDES,

                                     0238   236 ; ESPECIALLY, CODE TO DETECT CONFLICTS AMONG CURRENT ENTRIES IN TWO

                                     0238   237 ; OR MORE CONDITION TABLES. IF A CONFLICT IS DETECTED, A NON-ZERO

                                     0238   238 ; VALUE IS STORED INTO CONFLICT, WHICH CAUSES THE CALLING ROUTINE

                                     0238   239 ; (SUCCOMMON) TO SKIP THE CURRENT ENTRY IN THE CONDITION X TABLE.

                                     0238   240 ;

                                     0238   241 ; CALLING SEQUENCE:

                                     0238   242 ;

                                     0238   243 ;	BSBW CONDX   BSBW CONDX_CLEANUP

                                     0238   244 ;	  WHERE X = 1,2,3,4,5

                                     0238   245 ;

                                     0238   246 ; INPUT PARAMETERS:

                                     0238   247 ;

                                     0238   248 ;	CONFLICT = 0

                                     0238   249 ;

                                     0238   250 ; IMPLICIT INPUTS:

                                     0238   251 ;

                                     0238   252 ;	R2,3,4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES

                                     0238   253 ;	  FOR COND TABLES 1,2,3,4,5, RESPECTIVELY.

                                     0238   254 ;

                                     0238   255 ; OUTPUT PARAMETERS:

                                     0238   256 ;

                                     0238   257 ;	CONFLICT SET TO NON-ZERO IF COND TABLE CONFLICT DETECTED.

                                     0238   258 ;

                                     0238   259 ; IMPLICIT OUTPUTS:

                                     0238   260 ;

                                     0238   261 ;	R2,3,4,5,6 PRESERVED

                                     0238   262 ;

                                     0238   263 ; COMPLETION CODES:

                                     0238   264 ;

                                     0238   265 ;	NONE

                                     0238   266 ;

                                     0238   267 ; SIDE EFFECTS:

                                     0238   268 ;

                                     0238   269 ;	NONE

                                     0238   270 ;

                                     0238   271 ;--

                                     0238   272 

                                     0238   273 

                                     0238   274 

                                     0238   275 COND1::

                                 05  0238   276 	RSB				; RETURN TO MAIN ROUTINE

                                     0239   277 COND1_CLEANUP::

                                 05  0239   278 	RSB				; RETURN TO MAIN ROUTINE

                                     023A   279 COND2::

                                 05  023A   280 	RSB				; RETURN TO MAIN ROUTINE

                                     023B   281 COND2_CLEANUP::

                                 05  023B   282 	RSB				; RETURN TO MAIN ROUTINE

SATSSS38        SATS SYSTEM SERVICE TESTS  $RESUME (SUCC S.C.)   22-AUG-1978 04:04:19   VAX-11 MACRO X0.3-11               Page   9

1.0             CONDITION SUBROUTINES - SETUP AND CLEANUP                                                                        (1)



                                     023C   283 COND3::

   00000142'EF42 000000F3'8F     D1  023C   284 	CMPL	#SUBJPID,COND1_E[R2] 	; NON-ZERO PID SPECIFIED ?

                          20     13  0248   285 	BEQLU	10$			; YES -- PROCESS IS "OTHER"

                 00000184'EF43   D5  024A   286 	TSTL	COND2_E[R3]		; IS PROCESS NAME SPECIFIED ?

                          07     13  0251   287 	BEQL	5$			; NO -- SUBJECT PROCESS IS "SELF"

            02            54     D1  0253   288 	CMPL	R4,#2			; DOES CONDITION 3 SPECIFY DIFFERENT GROUP ?

                          20     13  0256   289 	BEQL	20$			; YES -- PROCESS NAME FOR DIFF GROUP IS CONF

                          10     11  0258   290 	BRB	10$			; NO -- MAKE SURE COND 3 SPECIFIES "OTHER"

                                     025A   291 5$:

                                     025A   292 ;

                                     025A   293 ; PROCESS IS "SELF"

                                     025A   294 ;

   00000221'EF44 00000000'EF     D1  025A   295 	CMPL	ONES,COND3_E[R4] 	; DOES CONDITION 3 SPECIFY "SELF" ?

                          1B     13  0266   296 	BEQLU	COND3X			; YES -- THEN ALL 3 CONDIT'NS ARE CONSISTENT

                          0E     11  0268   297 	BRB	20$			; NO -- INDICATE CONFLICT & GET OUT

                                     026A   298 10$:

                                     026A   299 ;

                                     026A   300 ; PROCESS IS "OTHER"

                                     026A   301 ;

   00000221'EF44 00000000'EF     D1  026A   302 	CMPL	ONES,COND3_E[R4] 	; DOES CONDITION 3 SPECIFY "SELF" ?

                          0B     12  0276   303 	BNEQU	COND3X			; NO -- THEN ALL 3 CONDITIONS ARE CONSISTENT

                                     0278   304 20$:

   00000000'EF   00000000'EF     90  0278   305 	MOVB	ONES,CONFLICT		; YES -- INDICATE CONFLICT

                                     0283   306 COND3X:

                                 05  0283   307 	RSB				; RETURN TO MAIN ROUTINE

                                     0284   308 COND3_CLEANUP::

                                 05  0284   309 	RSB				; RETURN TO MAIN ROUTINE

                                     0285   310 COND4::

                                 05  0285   311 	RSB				; RETURN TO MAIN ROUTINE

                                     0286   312 COND4_CLEANUP::

                                 05  0286   313 	RSB				; RETURN TO MAIN ROUTINE

                                     0287   314 COND5::

                                 05  0287   315 	RSB				; RETURN TO MAIN ROUTINE

                                     0288   316 COND5_CLEANUP::

                                 05  0288   317 	RSB				; RETURN TO MAIN ROUTINE

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

1.0             FORM_CONDS                                                                                                       (1)



                                     0289   319 	.SBTTL	FORM_CONDS

                                     0289   320 ;++

                                     0289   321 ; FUNCTIONAL DESCRIPTION:

                                     0289   322 ;

                                     0289   323 ; 		FORM_CONDS FORMATS AND PRINTS INFORMATION ABOUT

                                     0289   324 ;  THE CURRENT ELEMENT IN EACH OF THE CONDITION TABLES.

                                     0289   325 ;

                                     0289   326 ; CALLING SEQUENCE:

                                     0289   327 ;

                                     0289   328 ;	BSBW FORM_CONDS

                                     0289   329 ;

                                     0289   330 ; INPUT PARAMETERS:

                                     0289   331 ;

                                     0289   332 ;	NONE

                                     0289   333 ;

                                     0289   334 ; IMPLICIT INPUTS:

                                     0289   335 ;

                                     0289   336 ;	R2,3,4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES

                                     0289   337 ;	  FOR COND TABLES 1,2,3,4,5, RESPECTIVELY.

                                     0289   338 ;	FOR X = 1,2,3,4,5 :

                                     0289   339 ;		CONDX_T - TITLE TEXT FOR CONDX TABLE

                                     0289   340 ;		CONDX_TAB - ELEMENT TEXT FOR CONDX TABLE

                                     0289   341 ;		CONDX_C - CONTEXT OF THE CONDX TABLE

                                     0289   342 ;		CONDX_E - DATA ELEMENTS OF THE CONDX TABLE

                                     0289   343 ;

                                     0289   344 ; OUTPUT PARAMETERS:

                                     0289   345 ;

                                     0289   346 ;	NONE

                                     0289   347 ;

                                     0289   348 ; IMPLICIT OUTPUTS:

                                     0289   349 ;

                                     0289   350 ;	NONE

                                     0289   351 ;

                                     0289   352 ; COMPLETION CODES:

                                     0289   353 ;

                                     0289   354 ;	NONE

                                     0289   355 ;

                                     0289   356 ; SIDE EFFECTS:

                                     0289   357 ;

                                     0289   358 ;	NONE

                                     0289   359 ;

                                     0289   360 ;--

                                     0289   361 

                                     0289   362 

                                     0289   363 

                                     0289   364 FORM_CONDS::

                                     0289   365 	$FAO_S	MSG1_INP_CTL,FAO_LEN,FAO_DESC,TESTNUM

                                     02A8   366 					; FORMAT CONDITIONS HEADER MSG

                          FD55'  30  02A8   367 	BSBW	OUTPUT_MSG		; ... AND PRINT IT

            14            00     91  02AB   368 	CMPB	#COND1_C,#NULL		; IS CONDITION 1 NULL ?

                          03     12  02AE   369 	BNEQU	10$			; NO -- CONTINUE

                          00BF   31  02B0   370 	BRW	FORM_CONDSX		; YES -- SUBROUTINE IS FINISHED

                                     02B3   371 10$:

   00000000'EF   000000F7'EF     DE  02B3   372 	MOVAL	COND1_T,MSG_A		; SAVE ADDRESS OF CONDITION 1 TITLE FOR FAO

   00000000'EF   00000104'EF42   D0  02BE   373 	MOVL	COND1_TAB[R2],MSG_B 	; SAVE ADDR OF COND 1 CURR TEXT ELT FOR FAO

   00000000'EF            00     90  02CA   374 	MOVB	#COND1_C,MSG_CTXT 	; SAVE CONDITION 1 CONTEXT FOR FAO

                                     02D1   375 	MOV_VAL	COND1_C,COND1_E[R2],MSG_DATA1 ; GIVE COND 1 DATA VALUE TO FAO

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

1.0             FORM_CONDS                                                                                                       (1)



                          FD2C'  30  02D1   376 	BSBW	WRITE_MSG2		; FORMAT AND WRITE CONDITION 1 MSG

            14            00     91  02D4   377 	CMPB	#COND2_C,#NULL		; IS CONDITION 2 NULL ?

                          03     12  02D7   378 	BNEQU	20$			; NO -- CONTINUE

                          0096   31  02D9   379 	BRW	FORM_CONDSX		; YES -- SUBROUTINE IS FINISHED

                                     02DC   380 20$:

   00000000'EF   0000014E'EF     DE  02DC   381 	MOVAL	COND2_T,MSG_A		; SAVE ADDRESS OF CONDITION 2 TITLE FOR FAO

   00000000'EF   00000164'EF43   D0  02E7   382 	MOVL	COND2_TAB[R3],MSG_B 	; SAVE ADDR OF COND 2 CURR TEXT ELT FOR FAO

   00000000'EF            00     90  02F3   383 	MOVB	#COND2_C,MSG_CTXT 	; SAVE CONDITION 2 CONTEXT FOR FAO

                                     02FA   384 	MOV_VAL	COND2_C,COND2_E[R3],MSG_DATA1 ; GIVE COND 2 DATA VALUE TO FAO

                          FD03'  30  02FA   385 	BSBW	WRITE_MSG2		; FORMAT AND WRITE CONDITION 2 MSG

            14            00     91  02FD   386 	CMPB	#COND3_C,#NULL		; IS CONDITION 3 NULL ?

                          03     12  0300   387 	BNEQU	30$			; NO -- CONTINUE

                          006D   31  0302   388 	BRW	FORM_CONDSX		; YES -- SUBROUTINE IS FINISHED

                                     0305   389 30$:

   00000000'EF   0000018C'EF     DE  0305   390 	MOVAL	COND3_T,MSG_A		; SAVE ADDRESS OF CONDITION 3 TITLE FOR FAO

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

   00000000'EF            00     90  031C   392 	MOVB	#COND3_C,MSG_CTXT 	; SAVE CONDITION 3 CONTEXT FOR FAO

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

                          FCDA'  30  0323   394 	BSBW	WRITE_MSG2		; FORMAT AND WRITE CONDITION 3 MSG

            14            14     91  0326   395 	CMPB	#COND4_C,#NULL		; IS CONDITION 4 NULL ?

                          47     13  0329   396 	BEQLU	FORM_CONDSX		; YES -- SUBROUTINE IS FINISHED

   00000000'EF   00000235'EF     DE  032B   397 	MOVAL	COND4_T,MSG_A		; SAVE ADDRESS OF CONDITION 4 TITLE FOR FAO

   00000000'EF   00000235'EF45   D0  0336   398 	MOVL	COND4_TAB[R5],MSG_B 	; SAVE ADDR OF COND 4 CURR TEXT ELT FOR FAO

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

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

                          FCB4'  30  0349   401 	BSBW	WRITE_MSG2		; FORMAT AND WRITE CONDITION 4 MSG

            14            14     91  034C   402 	CMPB	#COND5_C,#NULL		; IS CONDITION 5 NULL ?

                          21     13  034F   403 	BEQLU	FORM_CONDSX		; YES -- SUBROUTINE IS FINISHED

   00000000'EF   00000236'EF     DE  0351   404 	MOVAL	COND5_T,MSG_A		; SAVE ADDRESS OF CONDITION 5 TITLE FOR FAO

   00000000'EF   00000236'EF46   D0  035C   405 	MOVL	COND5_TAB[R6],MSG_B 	; SAVE ADDR OF COND 5 CURR TEXT ELT FOR FAO

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

                                     036F   407 	MOV_VAL	COND5_C,COND5_E[R6],MSG_DATA1 ; GIVE COND 5 DATA VALUE TO FAO

                          FC8E'  30  036F   408 	BSBW	WRITE_MSG2		; FORMAT AND WRITE CONDITION 5 MSG

                                     0372   409 FORM_CONDSX:

                                 05  0372   410 	RSB				; RETURN TO CALLER

SATSSS38        SATS SYSTEM SERVICE TESTS  $RESUME (SUCC S.C.)   22-AUG-1978 04:04:19   VAX-11 MACRO X0.3-11               Page  12

1.0             VERIFY                                                                                                           (1)



                                     0373   412 	.SBTTL	VERIFY

                                     0373   413 ;++

                                     0373   414 ; FUNCTIONAL DESCRIPTION:

                                     0373   415 ;

                                     0373   416 ;		VERIFY IS CALLED ONCE FOR EACH COMBINATION OF CONDITION

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

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

                                     0373   419 ; SPECIFIED BY THE COND TABLES AND ISSUES THE SUBJECT SYSTEM SERVICE

                                     0373   420 ; ($RESUME). THEN, THE SUCCESSFUL OPERATION OF THE SERVICE IS VERIFIED

                                     0373   421 ; BY EXAMINING THE STATUS CODE RETURNED, THE VALUES FOR RETURN ARGUMENTS

                                     0373   422 ; AND THE FUNCTIONALITY PERFORMED. THE EXAMINATIONS TAKE THE FORM OF 

                                     0373   423 ; COMPARISONS AGAINST EXPECTED VALUES. ANY FAILING COMPARISON CAUSES AN

                                     0373   424 ; ERR_EXIT MACRO TO BE EXECUTED (EITHER DIRECTLY, OR INDIRECTLY,

                                     0373   425 ; THROUGH THE SS_CHECK MACRO); ERR_EXIT SETS EFLAG TO NON-ZERO,

                                     0373   426 ; PRINTS ERROR MESSAGES AND CAUSES AN IMMEDIATE RSB TO CALLER.

                                     0373   427 ; WHEN ERR_EXIT IS EXECUTED, FURTHER CALLS TO VERIFY ARE SUPPRESSED,

                                     0373   428 ; AND, AFTER EXECUTING CLEANUP SUBROUTINES, THE IMAGE EXITS.

                                     0373   429 ;

                                     0373   430 ; CALLING SEQUENCE:

                                     0373   431 ;

                                     0373   432 ;	BSBW VERIFY

                                     0373   433 ;

                                     0373   434 ; INPUT PARAMETERS:

                                     0373   435 ;

                                     0373   436 ;	NONE

                                     0373   437 ;

                                     0373   438 ; IMPLICIT INPUTS:

                                     0373   439 ;

                                     0373   440 ;	R2,3,4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES

                                     0373   441 ;	  FOR COND TABLES 1,2,3,4,5, RESPECTIVELY.

                                     0373   442 ;	FOR X = 1,2,3,4,5 :

                                     0373   443 ;		CONDX_E - ADDRESS OF TABLE OF DATA VALUES FOR CONDX

                                     0373   444 ;		  TABLE. IF THE CONTEXT OF TABLE X IS A SYSTEM SERVICE

                                     0373   445 ;		  ARGUMENT, THE ARGUMENT NAME MAY BE USED AS A SYNONYM

                                     0373   446 ;		  FOR CONDX_E.

                                     0373   447 ;

                                     0373   448 ; OUTPUT PARAMETERS:

                                     0373   449 ;

                                     0373   450 ;	NONE

                                     0373   451 ;

                                     0373   452 ; IMPLICIT OUTPUTS:

                                     0373   453 ;

                                     0373   454 ;	VERIFY HAS NO OUTPUT. SINCE ITS PURPOSE IS TO TEST FOR ERRORS,

                                     0373   455 ;	IT MERELY RETURNS TO CALLER NORMALLY AFTER THE TESTS, PROVIDING

                                     0373   456 ;	ALL WERE SUCCESSFUL; IF AN ERROR IS DISCOVERED, RETURN IS VIA

                                     0373   457 ;	AN ERR_EXIT OR SS_CHECK MACRO, BOTH OF WHICH DOCUMENT DETECTED

                                     0373   458 ;	ERRORS.

                                     0373   459 ;

                                     0373   460 ; COMPLETION CODES:

                                     0373   461 ;

                                     0373   462 ;	EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED.

                                     0373   463 ;

                                     0373   464 ; SIDE EFFECTS:

                                     0373   465 ;

                                     0373   466 ;	SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 

                                     0373   467 ;	(VIA RSB) IF ERROR ENCOUNTERED.

                                     0373   468 ;

SATSSS38        SATS SYSTEM SERVICE TESTS  $RESUME (SUCC S.C.)   22-AUG-1978 04:04:19   VAX-11 MACRO X0.3-11               Page  13

1.0             VERIFY                                                                                                           (1)



                                     0373   469 ;--

                                     0373   470 

                                     0373   471 

                                     0373   472 

                                     0373   473 VERIFY::

                 00000000'EF     95  0373   474 	TSTB	CFLAG			; SHOULD CONDITIONS BE PRINTED ?

                          03     13  0379   475 	BEQL	5$			; NO -- CONTINUE

                          FF0B   30  037B   476 	BSBW	FORM_CONDS		; YES -- FMT & PRINT ALL CONDS FOR THIS T.C.

                                     037E   477 5$:

   000000F3'EF   000000EB'EF     D0  037E   478 	MOVL	SELFPID,SUBJPID		; ASSUME THE SUBJECT PID IS SELF

                 000000E7'EF     D4  0389   479 	CLRL	ZEROPID			; CLEAR ZERO PID

   00000221'EF44 00000000'EF     D1  038F   480 	CMPL	ONES,COND3_E[R4] 	; IS PROCESS FOR THIS TEST CASE SELF ?

                          03     12  039B   481 	BNEQU	7$			; NO -- CONTINUE

                          0072   31  039D   482 	BRW	10$			; YES -- DON'T CREATE A PROCESS

                                     03A0   483 7$:

                                     03A0   484 	$CREPRC_S PIDADR=CREPID, PRCNAM=SUBJPRN, -

                                     03A0   485 		  UIC=COND3_E[R4], IMAGE=IMAGNAM, -

                                     03A0   486 		  MBXUNT=MBXUNIT, QUOTA=QUOTALIST

                                     03D9   487 					; CREATE THE SUBJECT PROCESS

                                     03D9   488 	SS_CHECK NORMAL			; ... AND MAKE SURE IT CREATED OK

   000000F3'EF   000000EF'EF     D0  0407   489 	MOVL	CREPID,SUBJPID		; MAKE THE SUBJCT PID = THE ONE JUST CREATED

                                     0412   490 10$:

   000000E3'EF   00000142'EF42   D0  0412   491 	MOVL	COND1_E[R2],DEST_PIDADR ; GET PID ADDRESS OUT OF TABLE

            59   00000184'EF43   D0  041E   492 	MOVL	COND2_E[R3],R9		; PRCNAM ADDR INTO REG FOR INDIRECT REF'RNCE

                                     0426   493 ;

                                     0426   494 ; ****** SYSTEM SERVICE CALL WHICH IS THE SUBJECT OF THIS TEST CASE ******

                                     0426   495 ;

                                     0426   496 	$RESUME_S PIDADR=@DEST_PIDADR, PRCNAM=(R9)

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

                          61     13  043C   498 	BEQLU	18$			; YES -- CONTINUE

   00000000'EF   00000000'8F     D0  043E   499 	MOVL	#SS$_NORMAL,EXPV 	; NO -- LOAD UP EXPECTED AND ...

   00000000'EF            50     D0  0449   500 	MOVL	R0,RECV			; ... RECEIVED VALUES, THEN EXIT

                                     0450   501 	ERR_EXIT LONG,<INCORRECT STATUS CODE RETURNED FROM RESUME>

                                     049F   502 18$:

                 000000E3'EF     D5  049F   503 	TSTL	DEST_PIDADR		; PID RETURNED BY RESUME ?

                          68     13  04A5   504 	BEQL	20$			; NO -- KEEP GOING

   000000E3'FF   000000F3'EF     D1  04A7   505 	CMPL	SUBJPID,@DEST_PIDADR 	; YES -- IS IT THE CORRECT ONE ?

                          5B     13  04B2   506 	BEQL	20$			; YES -- CONTINUE

   00000000'EF   000000F3'EF     D0  04B4   507 	MOVL	SUBJPID,EXPV		; NO --LOAD UP EXPECTED AND

   00000000'EF   000000E3'FF     D0  04BF   508 	MOVL	@DEST_PIDADR,RECV 	; ... RECEIVED VALUES, THEN EXIT

                                     04CA   509 	ERR_EXIT LONG,<INCORRECT PID RETURNED BY RESUME>

                                     050F   510 20$:

   000000F3'EF   000000EF'EF     D1  050F   511 	CMPL	CREPID,SUBJPID		; WAS A PROCESS CREATED ?

                          3B     13  051A   512 	BEQLU	30$			; YES -- GO WAIT FOR IT TO COMPLETE

                                     051C   513 	$SUSPND_S			; NO -- OFFSET SUBJECT RESUME WITH SUSPND

                                     0527   514 	SS_CHECK NORMAL			; CHECK FOR NORMAL RETURN

                          57     11  0555   515 	BRB	VERIFYX			; ... AND GO EXIT

                                     0557   516 30$:

                                     0557   517 	$QIOW_S	CHAN=MBXCHAN, FUNC=#IO$_READVBLK, -

                                     0557   518 		P1=MBXBUFF+8, P2=MBXBUFF

                                     0580   519 					; WAIT FOR CREATED PROCESS TO SEND MAIL

                                     0580   520 	SS_CHECK NORMAL			; CHECK FOR NORMAL STATUS CODE

                                     05AE   521 VERIFYX:

                                 05  05AE   522 	RSB				; RETURN TO CALLER

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

1.0             VFY_CLEANUP                                                                                                      (1)



                                     05AF   524 	.SBTTL	VFY_CLEANUP

                                     05AF   525 ;++

                                     05AF   526 ; FUNCTIONAL DESCRIPTION:

                                     05AF   527 ;

                                     05AF   528 ;		VFY_CLEANUP EXECUTES SYSTEM SERVICES TO UNDO THE

                                     05AF   529 ; EFFECT OF THOSE ISSUED IN THE VERIFY SUBROUTINE. VFY_CLEANUP MUST

                                     05AF   530 ; ASSUME THAT VERIFY MAY NOT HAVE EXECUTED IN ITS ENTIRETY (IF AN

                                     05AF   531 ; ERROR IS FOUND). ALSO, VFY_CLEANUP MAY ISSUE SS_CHECK OR ERR_EXIT

                                     05AF   532 ; ONLY AFTER PERFORMING ALL OF ITS CLEANUP OPERATIONS; THIS IS REQUIRED

                                     05AF   533 ; IN THE EVENT THAT VFY_CLEANUP IS CALLED DURING ERROR PROCESSING,

                                     05AF   534 ; WHEN PERFORMING THE REQUIRED CLEANUP IS MORE IMPORTANT THAN

                                     05AF   535 ; POSSIBLY DISCOVERING A SECOND ERROR.

                                     05AF   536 ;

                                     05AF   537 ; CALLING SEQUENCE:

                                     05AF   538 ;

                                     05AF   539 ;	BSBW VFY_CLEANUP

                                     05AF   540 ;

                                     05AF   541 ; INPUT PARAMETERS:

                                     05AF   542 ;

                                     05AF   543 ;	NONE

                                     05AF   544 ;

                                     05AF   545 ; IMPLICIT INPUTS:

                                     05AF   546 ;

                                     05AF   547 ;	R2,3,4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES

                                     05AF   548 ;	  FOR COND TABLES 1,2,3,4,5, RESPECTIVELY.

                                     05AF   549 ;	FOR X = 1,2,3,4,5 :

                                     05AF   550 ;		CONDX_E - ADDRESS OF TABLE OF DATA VALUES FOR CONDX

                                     05AF   551 ;		  TABLE. IF THE CONTEXT OF TABLE X IS A SYSTEM SERVICE

                                     05AF   552 ;		  ARGUMENT, THE ARGUMENT NAME MAY BE USED AS A SYNONYM

                                     05AF   553 ;		  FOR CONDX_E.

                                     05AF   554 ;

                                     05AF   555 ; OUTPUT PARAMETERS:

                                     05AF   556 ;

                                     05AF   557 ;	NONE

                                     05AF   558 ;

                                     05AF   559 ; IMPLICIT OUTPUTS:

                                     05AF   560 ;

                                     05AF   561 ;	NONE

                                     05AF   562 ;

                                     05AF   563 ; COMPLETION CODES:

                                     05AF   564 ;

                                     05AF   565 ;	EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED.

                                     05AF   566 ;

                                     05AF   567 ; SIDE EFFECTS:

                                     05AF   568 ;

                                     05AF   569 ;	SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 

                                     05AF   570 ;	(VIA RSB) IF ERROR ENCOUNTERED.

                                     05AF   571 ;

                                     05AF   572 ;--

                                     05AF   573 

                                     05AF   574 

                                     05AF   575 

                                     05AF   576 VFY_CLEANUP::

   000000F3'EF   000000EF'EF     D1  05AF   577 	CMPL	CREPID,SUBJPID		; WAS A PROCESS CREATED FOR THIS TEST CASE ?

                          0F     12  05BA   578 	BNEQU	VFY_CLEANUPX		; NO -- JUST EXIT

                                     05BC   579 	$DELPRC_S SUBJPID		; YES -- DELETE IT

                                     05CB   580 VFY_CLEANUPX:

SATSSS38        SATS SYSTEM SERVICE TESTS  $RESUME (SUCC S.C.)   22-AUG-1978 04:04:19   VAX-11 MACRO X0.3-11               Page  15

1.0             VFY_CLEANUP                                                                                                      (1)



                                 05  05CB   581 	RSB				; RETURN TO CALLER

                                     05CC   582 	.END

SATSSS38        SATS SYSTEM SERVICE TESTS  $RESUME (SUCC S.C.)   22-AUG-1978 04:04:19   VAX-11 MACRO X0.3-11               Page  16

SYMBOL TABLE                                                                                                                     (1)



$$$$           = 000004D4 R     05   DIB$B_DEVCLASS   00000004            PCB$L_PHD        00000064            

$$$CHARS       = 00000020            DIB$B_DEVTYPE    00000005            PCB$L_PHYPCB     00000018            

$$$CHARS1      = 00000004            DIB$C_LENGTH     00000024            PCB$L_PID        00000060            

$$$CHARS2      = 0000000A            DIB$K_LENGTH     00000024            PCB$L_PQB        0000004C            

$$$CHARS3      = 00000019            DIB$L_DEVCHAR    00000000            PCB$L_SQBL       00000004            

$$$CHARS4      = 00000021            DIB$L_DEVDEPEND  00000008            PCB$L_SQFL       00000000            

$$$CHARS5      = 00000026            DIB$L_OPCNT      0000001C            PCB$L_STS        00000028            

$$$COND_A      = 00000004            DIB$L_OWNUIC     00000014            PCB$L_UIC        00000020            

$$$STRINGS     = 00000001            DIB$L_PID        00000010            PCB$L_WSSWP      00000024            

$$$STRINGS2    = 00000005            DIB$W_DEVBUFSIZ  00000006            PCB$L_WTIME      0000002C            

$$T1           = 00000001            DIB$W_DEVNAMOFF  0000000E            PCB$T_LNAME      0000006C            

$$T2           = 00000004            DIB$W_ERRCNT     0000001A            PCB$V_ASTPEN   = 00000011            

BIT...         = 00000018            DIB$W_RECSIZ     00000022            PCB$V_BATCH    = 0000000E            

BYTE           = 00000001  G         DIB$W_UNIT       0000000C            PCB$V_DELPEN   = 00000001            

CFLAG            ********   X   05   DIB$W_VOLNAMOFF  00000020            PCB$V_FORCPEN  = 00000002            

CHMRTN           ********   X   05   DIB$W_VPROT      00000018            PCB$V_HIBER    = 00000013            

CHM_CONT         ********   X   05   EFLAG            ********   X   05   PCB$V_INQUAN   = 00000003            

COMP_SC          ********   X   05   EXPV             ********   X   05   PCB$V_LOGIN    = 00000014            

COND1            00000238 RG    05   FAO_DESC         ********   X   05   PCB$V_NETWRK   = 00000015            

COND1_C        = 00000000            FAO_LEN          ********   X   05   PCB$V_NOACNT   = 0000000F            

COND1_CLEANUP    00000239 RG    05   FORM_CONDS       00000289 RG    05   PCB$V_NODELET  = 00000017            

COND1_E          00000142 R     04   FORM_CONDSX      00000372 R     05   PCB$V_PHDRES   = 00000012            

COND1_H          00000103 RG    04   GBL...         = 00000000            PCB$V_PSWAPM   = 00000004            

COND1_T          000000F7 R     04   IMAGNAM          00000065 R     03   PCB$V_PWRAST   = 00000016            

COND1_TAB        00000104 R     04   IO$_READVBLK     ********   X   05   PCB$V_RES      = 00000000            

COND2            0000023A RG    05   LONG           = 00000004  G         PCB$V_RESPEN   = 00000005            

COND2_C        = 00000000            MBXBUFF          00000063 R     04   PCB$V_SSFEXC   = 00000006            

COND2_CLEANUP    0000023B RG    05   MBXCHAN          00000008 R     04   PCB$V_SSFEXCE  = 00000007            

COND2_E          00000184 R     04   MBXCHANINFO      0000000C R     04   PCB$V_SSFEXCS  = 00000008            

COND2_H          00000163 RG    04   MBXUNIT          0000005F R     04   PCB$V_SSFEXCU  = 00000009            

COND2_T          0000014E R     04   MOD_MSG_CODE     ********   X   05   PCB$V_SSRWAIT  = 0000000A            

COND2_TAB        00000164 R     04   MOD_MSG_PRINT    ********   X   05   PCB$V_SUSPEN   = 0000000B            

COND3            0000023C RG    05   MSG1_INP_CTL     00000019 R     03   PCB$V_SWPVBN   = 00000010            

COND3X           00000283 R     05   MSG3_ERR_CTL     00000039 RG    03   PCB$V_WAKEPEN  = 0000000C            

COND3_C        = 00000000            MSG_A            ********   X   05   PCB$V_WALL     = 0000000D            

COND3_CLEANUP    00000284 RG    05   MSG_B            ********   X   05   PCB$W_APTCNT     00000034            

COND3_E          00000221 R     04   MSG_CTXT         ********   X   05   PCB$W_ASTCNT     0000003C            

COND3_H          00000199 RG    04   NOTARG         = 00000000  G         PCB$W_BIOCNT     0000003E            

COND3_T          0000018C R     04   NULL           = 00000014  G         PCB$W_BIOLM      00000040            

COND3_TAB        0000019A R     04   ONES             ********   X   05   PCB$W_BYTCNT     00000042            

COND4            00000285 RG    05   OUTPUT_MSG       ********   X   05   PCB$W_BYTLM      00000068            

COND4_C        = 00000014            PCB$B_ASTACT     0000000C            PCB$W_DIOCNT     00000044            

COND4_CLEANUP    00000286 RG    05   PCB$B_ASTEN      0000000D            PCB$W_DIOLM      00000046            

COND4_H          00000235 RG    04   PCB$B_PRI        0000000B            PCB$W_FILCNT     00000048            

COND4_T          00000235 R     04   PCB$B_PRIB       00000033            PCB$W_GPGCNT     00000038            

COND4_TAB        00000235 R     04   PCB$B_TYPE       0000000A            PCB$W_GRP        00000022            

COND5            00000287 RG    05   PCB$B_WEFC       00000032            PCB$W_MEM        00000020            

COND5_C        = 00000014            PCB$C_LENGTH     0000007C            PCB$W_MTXCNT     0000000E            

COND5_CLEANUP    00000288 RG    05   PCB$K_LENGTH     0000007C            PCB$W_PPGCNT     0000003A            

COND5_H          00000236 RG    04   PCB$L_ASTQBL     00000014            PCB$W_PRCCNT     0000006A            

COND5_T          00000236 R     04   PCB$L_ASTQFL     00000010            PCB$W_SIZE       00000008            

COND5_TAB        00000236 R     04   PCB$L_EFC2P      00000058            PCB$W_STATE      00000030            

CONFLICT         ********   X   05   PCB$L_EFC3P      0000005C            PCB$W_TMBU       00000036            

CREPID           000000EF R     04   PCB$L_EFCS       00000050            PCB$W_TQCNT      0000004A            

CTL$GL_PHD       ********   X   05   PCB$L_EFCU       00000054            PCV              ********   X   05   

DESC           = 00000010  G         PCB$L_EFWM       0000004C            PHD$B_ASTLVL     000000CF            

DEST_PIDADR      000000E3 R     04   PCB$L_OWNER      0000001C            PHD$B_DFPFC      00000038            

SATSSS38        SATS SYSTEM SERVICE TESTS  $RESUME (SUCC S.C.)   22-AUG-1978 04:04:19   VAX-11 MACRO X0.3-11               Page  17

SYMBOL TABLE                                                                                                                     (1)



PHD$B_PAGFIL     0000001F            PHD$W_ASTLM      00000044            PRV$V_PHY_IO   = 00000016            

PHD$B_PGTBPFC    00000039            PHD$W_BAK        00000048            PRV$V_PRMCEB   = 0000000A            

PHD$C_LENGTH     00000118            PHD$W_DFWSCNT    0000001A            PRV$V_PRMGBL   = 00000018            

PHD$C_PHDPAGCTX= 00000008            PHD$W_EMPTPG     000000D8            PRV$V_PRMMBX   = 0000000B            

PHD$K_LENGTH     00000118            PHD$W_EXTDYNWS   00000076            PRV$V_PSWAPM   = 0000000C            

PHD$L_BIOCNT     00000054            PHD$W_FILLM      00000060            PRV$V_SETPRI   = 0000000D            

PHD$L_CPULIM     00000058            PHD$W_FLAGS      0000003A            PRV$V_SETPRV   = 0000000E            

PHD$L_CPUTIM     0000003C            PHD$W_PHVINDEX   00000046            PRV$V_SYSGBL   = 00000019            

PHD$L_DIOCNT     00000050            PHD$W_PRCLM      00000042            PRV$V_SYSNAM   = 00000002            

PHD$L_ESP        0000007C            PHD$W_PST        00000020            PRV$V_TMPMBX   = 0000000F            

PHD$L_FREP0VA    00000028            PHD$W_PSTBASMAX  0000004A            PRV$V_VOLPRO   = 00000015            

PHD$L_FREP1VA    00000030            PHD$W_PSTFREE    00000026            PRV$V_WORLD    = 00000010            

PHD$L_FREPTECNT  0000002C            PHD$W_PSTLAST    00000024            QUAD           = 00000008  G         

PHD$L_KSP        00000078            PHD$W_PTCNTACT   00000070            QUOTALIST        00000084 R     03   

PHD$L_P0BR       000000C8            PHD$W_PTCNTLCK   0000006C            RECV             ********   X   05   

PHD$L_P0LRASTL   000000CC            PHD$W_PTCNTMAX   00000072            REST_REGS        ********   X   05   

PHD$L_P1BR       000000D0            PHD$W_PTCNTVAL   0000006E            SAVE_REGS        ********   X   05   

PHD$L_P1LR       000000D4            PHD$W_QUANT      00000040            SCH$GL_CURPCB    ********   X   05   

PHD$L_PAGEFLTS   0000004C            PHD$W_TQLM       00000062            SELFPID          000000EB R     04   

PHD$L_PAGFIL     0000001C            PHD$W_WSAUTH     0000000A            SS$_NORMAL       ********   X   05   

PHD$L_PC         000000C0            PHD$W_WSDYN      0000000E            SUBJPID          000000F3 R     04   

PHD$L_PCB        00000078            PHD$W_WSFLUID    00000074            SUBJPRN          00000051 R     03   

PHD$L_PGFLCNT    00000034            PHD$W_WSLAST     00000012            SUCCESS          ********   X   05   

PHD$L_PGFLQUOTA  0000005C            PHD$W_WSLIST     00000008            SYS$CMKRNL       ********   X   05   

PHD$L_PSL        000000C4            PHD$W_WSLOCK     0000000C            SYS$CREMBX       ********   X   05   

PHD$L_PSTBASOFF  00000020            PHD$W_WSLX       0000004A            SYS$CREPRC       ********   X   05   

PHD$L_PTWSLELCK  00000064            PHD$W_WSNEXT     00000010            SYS$DELMBX       ********   X   05   

PHD$L_PTWSLEVAL  00000068            PHD$W_WSQUOTA    00000018            SYS$DELPRC       ********   X   05   

PHD$L_R0         00000088            PQL$_ASTLM     = 00000001            SYS$FAO          ********   X   05   

PHD$L_R1         0000008C            PQL$_BIOLM     = 00000002            SYS$GETCHN       ********   X   05   

PHD$L_R10        000000B0            PQL$_BYTLM     = 00000003            SYS$HIBER        ********   X   05   

PHD$L_R11        000000B4            PQL$_CPULM     = 00000004            SYS$QIOW         ********   X   05   

PHD$L_R12        000000B8            PQL$_DIOLM     = 00000005            SYS$RESUME       ********   X   05   

PHD$L_R13        000000BC            PQL$_FILLM     = 00000006            SYS$SETPRN       ********   X   05   

PHD$L_R2         00000090            PQL$_LENGTH    = 0000000C            SYS$SUSPND       ********   X   05   

PHD$L_R3         00000094            PQL$_LISTEND   = 00000000            SYS$WAKE         ********   X   05   

PHD$L_R4         00000098            PQL$_PGFLQUOTA = 00000007            TESTNUM          ********   X   05   

PHD$L_R5         0000009C            PQL$_PRCLM     = 00000008            TEST_MOD_NAME    00000000 RG    03   

PHD$L_R6         000000A0            PQL$_TQELM     = 00000009            TEST_MOD_NAME_D  00000009 R     03   

PHD$L_R7         000000A4            PQL$_WSDEFAULT = 0000000B            TEST_MOD_SUCC    ********   X   05   

PHD$L_R8         000000A8            PQL$_WSQUOTA   = 0000000A            TMD_ADDR         ********   X   05   

PHD$L_R9         000000AC            PRIVMASK         00000000 R     04   TM_CLEANUP       00000226 RG    05   

PHD$L_REFERFLT   00000014            PROCESS_ERR      ********   X   05   TM_SETUP         00000000 RG    05   

PHD$L_SSP        00000080            PRV$V_ALLSPOOL = 00000004            VERIFY           00000373 RG    05   

PHD$L_USP        00000084            PRV$V_BUGCHK   = 00000017            VERIFYX          000005AE R     05   

PHD$L_WSL        00000118            PRV$V_CMEXEC   = 00000001            VFY_CLEANUP      000005AF RG    05   

PHD$M_DALCSTX  = 00000002            PRV$V_CMKRNL   = 00000000            VFY_CLEANUPX     000005CB R     05   

PHD$M_PFMFLG   = 00000001            PRV$V_DETACH   = 00000005            WORD           = 00000002  G         

PHD$M_WSPEAKCHK= 00000004            PRV$V_DIAGNOSE = 00000006            WRITE_MSG2       ********   X   05   

PHD$Q_PRIVMSK    00000000            PRV$V_EXQUOTA  = 00000013            ZEROPID          000000E7 R     04   

PHD$S_ASTLVL   = 00000008            PRV$V_GROUP    = 00000008            

PHD$S_P0LR     = 00000018            PRV$V_GRPNAM   = 00000003            

PHD$V_ASTLVL   = 00000018            PRV$V_LOG_IO   = 00000007            

PHD$V_DALCSTX  = 00000001            PRV$V_MOUNT    = 00000011            

PHD$V_P0LR     = 00000000            PRV$V_NETMBX   = 00000014            

PHD$V_PFMFLG   = 00000000            PRV$V_NOACNT   = 00000009            

PHD$V_WSPEAKCHK= 00000002            PRV$V_OPER     = 00000012            

SATSSS38        SATS SYSTEM SERVICE TESTS  $RESUME (SUCC S.C.)   22-AUG-1978 04:04:19   VAX-11 MACRO X0.3-11               Page  18

PROGRAM SECTION SYNOPSIS                                                                                                         (1)







PROGRAM SECTION SYNOPSIS



.  ABS  .        00000000      00     NOPIC   USR   CON   ABS   LCL NOSHR NOEXE NORD  NOWRT BYTE  

. BLANK .        00000000      01     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  

$ABS$            0000011C      02     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  

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

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

SATSSS38         000005CC      05     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

10018. BYTES LEFT IN FREE MEMORY POOL.

700. BYTES OF RECLAIMED MEMORY.

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

63 MLB DIR RDS - 891 GETS TO DEFINE 39 MACROS. 46 INTER. FILE WRITES. 

