SATSSS61        SATS SYST SERV TESTS  $SCH/CANWAK (SUCC S.C.)    22-AUG-1978 04:13:56   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      48  DECLARATIONS

   (1)     109  CONDITION TABLES

   (1)     157  TM_SETUP, TM_CLEANUP

   (1)     250  CONDITION SUBROUTINES - SETUP AND CLEANUP 

   (1)     343  FORM_CONDS

   (1)     436  VERIFY

   (1)     613  VFY_CLEANUP

   (1)     674  WATCH_AST

SATSSS61        SATS SYST SERV TESTS  $SCH/CANWAK (SUCC S.C.)    22-AUG-1978 04:13:56   VAX-11 MACRO X0.3-11               Page   1

1.0                                                                                                                              (1)



                                     0000     1 	.TITLE	SATSSS61 SATS SYST SERV TESTS  $SCH/CANWAK (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 SATSSS61 TO TEST SUCCESSFUL

                                     0000    30 ; OPERATION OF THE $SCH/CANWAK 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: APR, 1977

                                     0000    41 ;

                                     0000    42 ; MODIFIED BY:

                                     0000    43 ;

                                     0000    44 ;	, : VERSION

                                     0000    45 ; 01	- 

                                     0000    46 ;--

SATSSS61        SATS SYST SERV TESTS  $SCH/CANWAK (SUCC S.C.)    22-AUG-1978 04:13:56   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 ;

                           00989680  0000    63 ONE_SEC		= 10*1000*1000		; 10 MILLION 100-NANOSECOND UNITS (OR 1 SEC)

                                     0000    64 ;

                                     0000    65 ; OWN STORAGE:

                                     0000    66 ;

SATSSS61        SATS SYST SERV TESTS  $SCH/CANWAK (SUCC S.C.)    22-AUG-1978 04:13:56   VAX-11 MACRO X0.3-11               Page   3

1.0             DECLARATIONS                                                                                                     (1)



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

                                     0000    69 TEST_MOD_NAME::	STRING	C,<SATSSS61>	; TEST MODULE NAME

                                     0009    70 TEST_MOD_NAME_D: STRING	I,<SATSSS61>	; TEST MODULE NAME DESCRIPTOR

                                     0019    71 MSG1_INP_CTL:	STRING	I,<  SSSCW!4ZW: CONDITIONS:>

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

                                     0039    73 MSG3_ERR_CTL::	STRING	I,< *SSSCW!4ZW: !AS> 

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

                                     0051    75 SUBJPRN:	STRING	I,<SATSSS61_CRE> ; PROCESS & MBX NAME FOR CREATED PROCESS

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

                           00000004  0084    77 CLUSTER:	.LONG	4		; STRING DESCRIPTOR FOR CLUSTER

                           000000EF' 0088    78 		.ADDRESS CREPID		; ... FOR CREATED PROCESS COMMUNICATION

                                     008C    79 QUOTALIST:	$QUOTA	CPULM,0		; INFINITE CPU

                                     0091    80 		$QUOTA	BYTLM,512	; BYTE LIMIT FOR BUFFERED I/O

                                     0096    81 		$QUOTA	FILLM,2		; OPEN FILE COUNT LIMIT

                                     009B    82 		$QUOTA	PGFLQUOTA,10	; PAGING FILE QUOTA

                                     00A0    83 		$QUOTA	PRCLM,2		; SUBPROCESS QUOTA

                                     00A5    84 		$QUOTA	TQELM,3		; TIMER QUEUE ENTRY QUOTA

                                     00AA    85 		$QUOTA	LISTEND		; DEFINES END OF LIST

                  FFFFFFFF FF676980' 00AF    86 DELTA_1SEC:	.LONG	-ONE_SEC,-1	; DELTA TIME VALUE FOR 1 SECOND

                  FFFFFFFF FECED300' 00B7    87 DELTA_2SEC:	.LONG	-2*ONE_SEC,-1	; DELTA TIME VALUE FOR 2 SECONDS

                  FFFFFFFF FE363C80' 00BF    88 DELTA_3SEC:	.LONG	-3*ONE_SEC,-1	; DELTA TIME VALUE FOR 3 SECONDS

                  FFFFFFFF FA0A1F00' 00C7    89 DELTA_10SEC:	.LONG	-10*ONE_SEC,-1	; DELTA TIME VALUE FOR 10 SECONDS

                  FFFFFFFF FFD9DA60' 00CF    90 DELTA_QSEC:	.LONG	-<ONE_SEC/4>,-1	; DELTA TIME VALUE FOR A QUARTER-SECOND

                  00000000 01C9C380' 00D7    91 POS_3SEC:	.LONG	3*ONE_SEC,0	; 3 SECONDS (POSITIVE VALUE)

                                     00DF    92 TIME_PAST:	STRING	I,<25-DEC-1973  21:46:00.00> ; A TIME IN THE PAST

SATSSS61        SATS SYST SERV TESTS  $SCH/CANWAK (SUCC S.C.)    22-AUG-1978 04:13:56   VAX-11 MACRO X0.3-11               Page   4

1.0             DECLARATIONS                                                                                                     (1)



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

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

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

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

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

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

                           000000E7  00E3   100 DEST_PIDADR:	.BLKL	1		; DESTINATION PID ADDR, WRITTEN BY S.S.

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

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

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

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

                           000000FF  00F7   105 ABS_3SEC:	.BLKQ	1		; WILL HOLD ABS TIME VALUE FOR NOW + 3 SECS

                           00000107  00FF   106 ABS_PAST:	.BLKQ	1		; WILL HOLD ABS TIME VALUE FOR TIME IN PAST

                           00000108  0107   107 LONG_WAIT:	.BLKB	1		; LONG WAIT INDICATOR; 0=NO LONG WAIT

SATSSS61        SATS SYST SERV TESTS  $SCH/CANWAK (SUCC S.C.)    22-AUG-1978 04:13:56   VAX-11 MACRO X0.3-11               Page   5

1.0             CONDITION TABLES                                                                                                 (1)



                                     0108   109 	.SBTTL	CONDITION TABLES

                                     0108   110 ;

                                     0108   111 ;	***** CONDITION TABLES FOR SCH/CANWAK SYSTEM SERVICE *****

                                     0108   112 ;

                                     0108   113 	COND	1,NOTARG,<PID ADDRESS>,-

                                     0108   114 		  <NOT SPECIFIED>,-

                                     0108   115 		  <SPECIFIED, NON-ZERO>,-

                                     0108   116 		  <SPECIFIED, ZERO>,-

                                     0108   117  

                           00000000' 0153   118 		    .ADDRESS	0

                           000000F3' 0157   119 		    .ADDRESS	SUBJPID

                           000000E7' 015B   120 		    .ADDRESS	ZEROPID

                                     015F   121 ;

                                     015F   122 	COND	2,NOTARG,<PROCESS NAME ADDRESS>,-

                                     015F   123 		  <SPECIFIED>,-

                                     015F   124 		  <NOT SPECIFIED>,-

                                     015F   125  

                           00000051' 0195   126 		    .ADDRESS	SUBJPRN

                           00000000' 0199   127 		    .ADDRESS	0

                                     019D   128 ;

                                     019D   129 	COND	3,NOTARG,<PROCESS TYPE>,-

                                     019D   130 		  <SELF>,-

                                     019D   131 		  <SUBPROCESS>,-

                                     019D   132 		  <DETACHED, DIFFERENT GROUP>,-

                                     019D   133 		  <DETACHED, SAME GROUP, SAME MEMBER>,-

                                     019D   134 		  <DETACHED, SAME GROUP, DIFFERENT MEMBER>,-

                                     019D   135  

                           FFFFFFFF  0232   136 		    .LONG	^XFFFFFFFF 	; PSEUDO-UIC

                           00000000  0236   137 		    .LONG	0	   	; PSEUDO-UIC

                           0000023E  023A   138 		    .BLKL	1	   	; UIC

                           00000242  023E   139 		    .BLKL	1	   	; UIC

                           00000246  0242   140 		    .BLKL	1	   	; UIC

                                     0246   141 ;

                                     0246   142 	COND	4,NOTARG,<ORDERING OF CANCEL/WAKE/REPEAT>,-

                                     0246   143 		  <CANCEL, WAKE, REPEAT>,-

                                     0246   144 		  <WAKE, CANCEL, REPEAT>,-

                                     0246   145 		  <WAKE, REPEAT, CANCEL>,-

                                     0246   146 		  <WAKE, CANCEL>,-

                                     0246   147  

                  000000AF'000000F7' 02C2   148 		    .ADDRESS	ABS_3SEC,DELTA_1SEC   ; DAYTIM, REPTIM ARG ADDRESSES

                  000000BF'000000AF' 02CA   149 		    .ADDRESS	DELTA_1SEC,DELTA_3SEC ; DAYTIM, REPTIM ARG ADDRESSES

                  00000000'00000000' 02D2   150 		    .ADDRESS	ONES,ONES 	      ; DAYTIM, REPTIM ARG ADDRESSES

                  00000000'000000AF' 02DA   151 		    .ADDRESS	DELTA_1SEC,0	      ; DAYTIM, REPTIM ARG ADDRESSES

                                     02E2   152 ;

                                     02E2   153 	COND	5,NULL

                                     02E3   154  

                                 00000000   155 	.PSECT	SATSSS61,RD,WRT,EXE

SATSSS61        SATS SYST SERV TESTS  $SCH/CANWAK (SUCC S.C.)    22-AUG-1978 04:13:56   VAX-11 MACRO X0.3-11               Page   6

1.0             TM_SETUP, TM_CLEANUP                                                                                             (1)



                                     0000   157 	.SBTTL	TM_SETUP, TM_CLEANUP

                                     0000   158 ;++

                                     0000   159 ; FUNCTIONAL DESCRIPTION:

                                     0000   160 ;

                                     0000   161 ;		TM_SETUP AND TM_CLEANUP ARE CALLED TO PERFORM

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

                                     0000   163 ; TEST MODULE EXECUTION.

                                     0000   164 ;

                                     0000   165 ; CALLING SEQUENCE:

                                     0000   166 ;

                                     0000   167 ;	BSBW TM_SETUP   BSBW TM_CLEANUP

                                     0000   168 ;

                                     0000   169 ; INPUT PARAMETERS:

                                     0000   170 ;

                                     0000   171 ;	NONE

                                     0000   172 ;

                                     0000   173 ; IMPLICIT INPUTS:

                                     0000   174 ;

                                     0000   175 ;	NONE

                                     0000   176 ;

                                     0000   177 ; OUTPUT PARAMETERS:

                                     0000   178 ;

                                     0000   179 ;	NONE

                                     0000   180 ;

                                     0000   181 ; IMPLICIT OUTPUTS:

                                     0000   182 ;

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

                                     0000   184 ;		   ALL PRIVILEGES ACQUIRED.

                                     0000   185 ;

                                     0000   186 ; COMPLETION CODES:

                                     0000   187 ;

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

                                     0000   189 ;

                                     0000   190 ; SIDE EFFECTS:

                                     0000   191 ;

                                     0000   192 ;	SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 

                                     0000   193 ;	(VIA RSB) IF ERROR ENCOUNTERED.

                                     0000   194 ;

                                     0000   195 ;--

                                     0000   196 

                                     0000   197 

                                     0000   198 

                                     0000   199 TM_SETUP::

                          52     D4  0000   200 	CLRL	R2			; INITIALIZE

                          53     D4  0002   201 	CLRL	R3			; .. CONDITION

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

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

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

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

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

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

   00000000'EF            03         001F       

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

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

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

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

                                     0057   212 	PRIV	ADD,ALL			; GET ALL PRIVILEGES

SATSSS61        SATS SYST SERV TESTS  $SCH/CANWAK (SUCC S.C.)    22-AUG-1978 04:13:56   VAX-11 MACRO X0.3-11               Page   7

1.0             TM_SETUP, TM_CLEANUP                                                                                             (1)



                                     0080   213 	$SETPRN_S TEST_MOD_NAME_D 	; SET PROCESS NAME

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

                                     00BB   215 	$WAKE_S	SELFPID			; GET MY PID

                                     00CA   216 	SS_CHECK NORMAL			; CHECK FOR NORMAL RETURN

                                     00F8   217 	$HIBER_S			; UNDO ABOVE WAKE

                                     00FF   218 	SS_CHECK NORMAL			; CHECK FOR NORMAL RETURN

                                     012D   219 ;

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

                                     012D   221 ;

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

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

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

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

                                     015C   226 ;

                                     015C   227 ; R9 NOW CONTAINS "MY" UIC

                                     015C   228 ;

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

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

                 00000232'EF4A       0166       

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

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

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

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

                 00000232'EF4A       017B       

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

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

                                     01A4   237 	SS_CHECK NORMAL			; CHECK NORMAL COMPLETION

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

                                     01D2   239 		  PRIBUF=MBXCHANINFO

                                     01EC   240 	SS_CHECK NORMAL			; CHECK NORMAL COMPLETION

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

                                     0225   242 	$BINTIM_S TIMBUF=TIME_PAST, -	; SET UP A PAST TIME IN ABSOLUTE FORMAT

                                     0225   243 		  TIMADR=ABS_PAST

                                 05  0238   244 	RSB				; RETURN TO MAIN ROUTINE

                                     0239   245 TM_CLEANUP::

                                     0239   246 	$DELMBX_S  MBXCHAN		; DELETE TERMINATION MAILBOX

                          FDB6'  30  0247   247 	BSBW	MOD_MSG_PRINT		; PRINT TEST MODULE END MSG

                                 05  024A   248 	RSB				; RETURN TO MAIN ROUTINE

SATSSS61        SATS SYST SERV TESTS  $SCH/CANWAK (SUCC S.C.)    22-AUG-1978 04:13:56   VAX-11 MACRO X0.3-11               Page   8

1.0             CONDITION SUBROUTINES - SETUP AND CLEANUP                                                                        (1)



                                     024B   250 	.SBTTL	CONDITION SUBROUTINES - SETUP AND CLEANUP 

                                     024B   251 ;++

                                     024B   252 ; FUNCTIONAL DESCRIPTION:

                                     024B   253 ;

                                     024B   254 ;		CONDX AND CONDX_CLEANUP ARE SUBROUTINES WHICH ARE EXECUTED

                                     024B   255 ; BEFORE AND AFTER THE VERIFY SUBROUTINE, RESPECTIVELY, WHENEVER A NEW

                                     024B   256 ; CONDITION X VALUE IS SELECTED (SEE FUNCTIONAL DESCRIPTION OF SUCCOMMON

                                     024B   257 ; ROUTINE IN SUCCOMMON.MAR). ANY SETUP FUNCTION PARTICULAR TO THE 

                                     024B   258 ; CONDITION X TABLE IS INCLUDED IN THE CONDX SUBROUTINE AND CLEANED

                                     024B   259 ; UP, IF NECESSARY, IN THE CONDX_CLEANUP SUBROUTINE. THIS INCLUDES,

                                     024B   260 ; ESPECIALLY, CODE TO DETECT CONFLICTS AMONG CURRENT ENTRIES IN TWO

                                     024B   261 ; OR MORE CONDITION TABLES. IF A CONFLICT IS DETECTED, A NON-ZERO

                                     024B   262 ; VALUE IS STORED INTO CONFLICT, WHICH CAUSES THE CALLING ROUTINE

                                     024B   263 ; (SUCCOMMON) TO SKIP THE CURRENT ENTRY IN THE CONDITION X TABLE.

                                     024B   264 ;

                                     024B   265 ; CALLING SEQUENCE:

                                     024B   266 ;

                                     024B   267 ;	BSBW CONDX   BSBW CONDX_CLEANUP

                                     024B   268 ;	  WHERE X = 1,2,3,4,5

                                     024B   269 ;

                                     024B   270 ; INPUT PARAMETERS:

                                     024B   271 ;

                                     024B   272 ;	CONFLICT = 0

                                     024B   273 ;

                                     024B   274 ; IMPLICIT INPUTS:

                                     024B   275 ;

                                     024B   276 ;	R2,3,4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES

                                     024B   277 ;	  FOR COND TABLES 1,2,3,4,5, RESPECTIVELY.

                                     024B   278 ;

                                     024B   279 ; OUTPUT PARAMETERS:

                                     024B   280 ;

                                     024B   281 ;	CONFLICT SET TO NON-ZERO IF COND TABLE CONFLICT DETECTED.

                                     024B   282 ;

                                     024B   283 ; IMPLICIT OUTPUTS:

                                     024B   284 ;

                                     024B   285 ;	R2,3,4,5,6 PRESERVED

                                     024B   286 ;

                                     024B   287 ; COMPLETION CODES:

                                     024B   288 ;

                                     024B   289 ;	NONE

                                     024B   290 ;

                                     024B   291 ; SIDE EFFECTS:

                                     024B   292 ;

                                     024B   293 ;	NONE

                                     024B   294 ;

                                     024B   295 ;--

                                     024B   296 

                                     024B   297 

                                     024B   298 

                                     024B   299 COND1::

                                 05  024B   300 	RSB				; RETURN TO MAIN ROUTINE

                                     024C   301 COND1_CLEANUP::

                                 05  024C   302 	RSB				; RETURN TO MAIN ROUTINE

                                     024D   303 COND2::

                                 05  024D   304 	RSB				; RETURN TO MAIN ROUTINE

                                     024E   305 COND2_CLEANUP::

                                 05  024E   306 	RSB				; RETURN TO MAIN ROUTINE

SATSSS61        SATS SYST SERV TESTS  $SCH/CANWAK (SUCC S.C.)    22-AUG-1978 04:13:56   VAX-11 MACRO X0.3-11               Page   9

1.0             CONDITION SUBROUTINES - SETUP AND CLEANUP                                                                        (1)



                                     024F   307 COND3::

            02            54     D1  024F   308 	CMPL	R4,#2			; DOES CONDITION 3 SPECIFY DIFFERENT GROUP ?

                          35     13  0252   309 	BEQL	20$			; YES -- THIS IS CONFLICT BECAUSE OF 

                                     0254   310 					; ... USE OF COMMON CLUSTERS

   00000153'EF42 000000F3'8F     D1  0254   311 	CMPL	#SUBJPID,COND1_E[R2] 	; NON-ZERO PID SPECIFIED ?

                          19     13  0260   312 	BEQLU	10$			; YES -- PROCESS IS "OTHER"

                 00000195'EF43   D5  0262   313 	TSTL	COND2_E[R3]		; IS PROCESS NAME SPECIFIED ?

                          10     12  0269   314 	BNEQ	10$			; YES -- SUBJECT PROCESS IS "OTHER"

                                     026B   315 5$:

                                     026B   316 ;

                                     026B   317 ; PROCESS IS "SELF"

                                     026B   318 ;

   00000232'EF44 00000000'EF     D1  026B   319 	CMPL	ONES,COND3_E[R4] 	; DOES CONDITION 3 SPECIFY "SELF" ?

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

                          0E     11  0279   321 	BRB	20$			; NO -- INDICATE CONFLICT & GET OUT

                                     027B   322 10$:

                                     027B   323 ;

                                     027B   324 ; PROCESS IS "OTHER"

                                     027B   325 ;

   00000232'EF44 00000000'EF     D1  027B   326 	CMPL	ONES,COND3_E[R4] 	; DOES CONDITION 3 SPECIFY "SELF" ?

                          0B     12  0287   327 	BNEQU	COND3X			; NO -- THEN ALL 3 CONDITIONS ARE CONSISTENT

                                     0289   328 20$:

   00000000'EF   00000000'EF     90  0289   329 	MOVB	ONES,CONFLICT		; YES -- INDICATE CONFLICT

                                     0294   330 COND3X:

                                 05  0294   331 	RSB				; RETURN TO MAIN ROUTINE

                                     0295   332 COND3_CLEANUP::

                                 05  0295   333 	RSB				; RETURN TO MAIN ROUTINE

                                     0296   334 COND4::

                                 05  0296   335 	RSB				; RETURN TO MAIN ROUTINE

                                     0297   336 COND4_CLEANUP::

                                 05  0297   337 	RSB				; RETURN TO MAIN ROUTINE

                                     0298   338 COND5::

                                 05  0298   339 	RSB				; RETURN TO MAIN ROUTINE

                                     0299   340 COND5_CLEANUP::

                                 05  0299   341 	RSB				; RETURN TO MAIN ROUTINE

SATSSS61        SATS SYST SERV TESTS  $SCH/CANWAK (SUCC S.C.)    22-AUG-1978 04:13:56   VAX-11 MACRO X0.3-11               Page  10

1.0             FORM_CONDS                                                                                                       (1)



                                     029A   343 	.SBTTL	FORM_CONDS

                                     029A   344 ;++

                                     029A   345 ; FUNCTIONAL DESCRIPTION:

                                     029A   346 ;

                                     029A   347 ; 		FORM_CONDS FORMATS AND PRINTS INFORMATION ABOUT

                                     029A   348 ;  THE CURRENT ELEMENT IN EACH OF THE CONDITION TABLES.

                                     029A   349 ;

                                     029A   350 ; CALLING SEQUENCE:

                                     029A   351 ;

                                     029A   352 ;	BSBW FORM_CONDS

                                     029A   353 ;

                                     029A   354 ; INPUT PARAMETERS:

                                     029A   355 ;

                                     029A   356 ;	NONE

                                     029A   357 ;

                                     029A   358 ; IMPLICIT INPUTS:

                                     029A   359 ;

                                     029A   360 ;	R2,3,4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES

                                     029A   361 ;	  FOR COND TABLES 1,2,3,4,5, RESPECTIVELY.

                                     029A   362 ;	FOR X = 1,2,3,4,5 :

                                     029A   363 ;		CONDX_T - TITLE TEXT FOR CONDX TABLE

                                     029A   364 ;		CONDX_TAB - ELEMENT TEXT FOR CONDX TABLE

                                     029A   365 ;		CONDX_C - CONTEXT OF THE CONDX TABLE

                                     029A   366 ;		CONDX_E - DATA ELEMENTS OF THE CONDX TABLE

                                     029A   367 ;

                                     029A   368 ; OUTPUT PARAMETERS:

                                     029A   369 ;

                                     029A   370 ;	NONE

                                     029A   371 ;

                                     029A   372 ; IMPLICIT OUTPUTS:

                                     029A   373 ;

                                     029A   374 ;	NONE

                                     029A   375 ;

                                     029A   376 ; COMPLETION CODES:

                                     029A   377 ;

                                     029A   378 ;	NONE

                                     029A   379 ;

                                     029A   380 ; SIDE EFFECTS:

                                     029A   381 ;

                                     029A   382 ;	NONE

                                     029A   383 ;

                                     029A   384 ;--

                                     029A   385 

                                     029A   386 

                                     029A   387 

                                     029A   388 FORM_CONDS::

                                     029A   389 	$FAO_S	MSG1_INP_CTL,FAO_LEN,FAO_DESC,TESTNUM

                                     02B9   390 					; FORMAT CONDITIONS HEADER MSG

                          FD44'  30  02B9   391 	BSBW	OUTPUT_MSG		; ... AND PRINT IT

            14            00     91  02BC   392 	CMPB	#COND1_C,#NULL		; IS CONDITION 1 NULL ?

                          03     12  02BF   393 	BNEQU	10$			; NO -- CONTINUE

                          00BF   31  02C1   394 	BRW	FORM_CONDSX		; YES -- SUBROUTINE IS FINISHED

                                     02C4   395 10$:

   00000000'EF   00000108'EF     DE  02C4   396 	MOVAL	COND1_T,MSG_A		; SAVE ADDRESS OF CONDITION 1 TITLE FOR FAO

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

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

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

SATSSS61        SATS SYST SERV TESTS  $SCH/CANWAK (SUCC S.C.)    22-AUG-1978 04:13:56   VAX-11 MACRO X0.3-11               Page  11

1.0             FORM_CONDS                                                                                                       (1)



                          FD1B'  30  02E2   400 	BSBW	WRITE_MSG2		; FORMAT AND WRITE CONDITION 1 MSG

            14            00     91  02E5   401 	CMPB	#COND2_C,#NULL		; IS CONDITION 2 NULL ?

                          03     12  02E8   402 	BNEQU	20$			; NO -- CONTINUE

                          0096   31  02EA   403 	BRW	FORM_CONDSX		; YES -- SUBROUTINE IS FINISHED

                                     02ED   404 20$:

   00000000'EF   0000015F'EF     DE  02ED   405 	MOVAL	COND2_T,MSG_A		; SAVE ADDRESS OF CONDITION 2 TITLE FOR FAO

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

   00000000'EF            00     90  0304   407 	MOVB	#COND2_C,MSG_CTXT 	; SAVE CONDITION 2 CONTEXT FOR FAO

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

                          FCF2'  30  030B   409 	BSBW	WRITE_MSG2		; FORMAT AND WRITE CONDITION 2 MSG

            14            00     91  030E   410 	CMPB	#COND3_C,#NULL		; IS CONDITION 3 NULL ?

                          03     12  0311   411 	BNEQU	30$			; NO -- CONTINUE

                          006D   31  0313   412 	BRW	FORM_CONDSX		; YES -- SUBROUTINE IS FINISHED

                                     0316   413 30$:

   00000000'EF   0000019D'EF     DE  0316   414 	MOVAL	COND3_T,MSG_A		; SAVE ADDRESS OF CONDITION 3 TITLE FOR FAO

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

   00000000'EF            00     90  032D   416 	MOVB	#COND3_C,MSG_CTXT 	; SAVE CONDITION 3 CONTEXT FOR FAO

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

                          FCC9'  30  0334   418 	BSBW	WRITE_MSG2		; FORMAT AND WRITE CONDITION 3 MSG

            14            00     91  0337   419 	CMPB	#COND4_C,#NULL		; IS CONDITION 4 NULL ?

                          47     13  033A   420 	BEQLU	FORM_CONDSX		; YES -- SUBROUTINE IS FINISHED

   00000000'EF   00000246'EF     DE  033C   421 	MOVAL	COND4_T,MSG_A		; SAVE ADDRESS OF CONDITION 4 TITLE FOR FAO

   00000000'EF   00000266'EF45   D0  0347   422 	MOVL	COND4_TAB[R5],MSG_B 	; SAVE ADDR OF COND 4 CURR TEXT ELT FOR FAO

   00000000'EF            00     90  0353   423 	MOVB	#COND4_C,MSG_CTXT 	; SAVE CONDITION 4 CONTEXT FOR FAO

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

                          FCA3'  30  035A   425 	BSBW	WRITE_MSG2		; FORMAT AND WRITE CONDITION 4 MSG

            14            14     91  035D   426 	CMPB	#COND5_C,#NULL		; IS CONDITION 5 NULL ?

                          21     13  0360   427 	BEQLU	FORM_CONDSX		; YES -- SUBROUTINE IS FINISHED

   00000000'EF   000002E2'EF     DE  0362   428 	MOVAL	COND5_T,MSG_A		; SAVE ADDRESS OF CONDITION 5 TITLE FOR FAO

   00000000'EF   000002E2'EF46   D0  036D   429 	MOVL	COND5_TAB[R6],MSG_B 	; SAVE ADDR OF COND 5 CURR TEXT ELT FOR FAO

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

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

                          FC7D'  30  0380   432 	BSBW	WRITE_MSG2		; FORMAT AND WRITE CONDITION 5 MSG

                                     0383   433 FORM_CONDSX:

                                 05  0383   434 	RSB				; RETURN TO CALLER

SATSSS61        SATS SYST SERV TESTS  $SCH/CANWAK (SUCC S.C.)    22-AUG-1978 04:13:56   VAX-11 MACRO X0.3-11               Page  12

1.0             VERIFY                                                                                                           (1)



                                     0384   436 	.SBTTL	VERIFY

                                     0384   437 ;++

                                     0384   438 ; FUNCTIONAL DESCRIPTION:

                                     0384   439 ;

                                     0384   440 ;		VERIFY IS CALLED ONCE FOR EACH COMBINATION OF CONDITION

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

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

                                     0384   443 ; SPECIFIED BY THE COND TABLES AND ISSUES THE SUBJECT SYSTEM SERVICE

                                     0384   444 ; ($SCH/CANWAK). THEN, THE SUCCESSFUL OPERATION OF THE SERVICE IS VERIFIED

                                     0384   445 ; BY EXAMINING THE STATUS CODE RETURNED, THE VALUES FOR RETURN ARGUMENTS

                                     0384   446 ; AND THE FUNCTIONALITY PERFORMED. THE EXAMINATIONS TAKE THE FORM OF 

                                     0384   447 ; COMPARISONS AGAINST EXPECTED VALUES. ANY FAILING COMPARISON CAUSES AN

                                     0384   448 ; ERR_EXIT MACRO TO BE EXECUTED (EITHER DIRECTLY, OR INDIRECTLY,

                                     0384   449 ; THROUGH THE SS_CHECK MACRO); ERR_EXIT SETS EFLAG TO NON-ZERO,

                                     0384   450 ; PRINTS ERROR MESSAGES AND CAUSES AN IMMEDIATE RSB TO CALLER.

                                     0384   451 ; WHEN ERR_EXIT IS EXECUTED, FURTHER CALLS TO VERIFY ARE SUPPRESSED,

                                     0384   452 ; AND, AFTER EXECUTING CLEANUP SUBROUTINES, THE IMAGE EXITS.

                                     0384   453 ;

                                     0384   454 ; CALLING SEQUENCE:

                                     0384   455 ;

                                     0384   456 ;	BSBW VERIFY

                                     0384   457 ;

                                     0384   458 ; INPUT PARAMETERS:

                                     0384   459 ;

                                     0384   460 ;	NONE

                                     0384   461 ;

                                     0384   462 ; IMPLICIT INPUTS:

                                     0384   463 ;

                                     0384   464 ;	R2,3,4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES

                                     0384   465 ;	  FOR COND TABLES 1,2,3,4,5, RESPECTIVELY.

                                     0384   466 ;	FOR X = 1,2,3,4,5 :

                                     0384   467 ;		CONDX_E - ADDRESS OF TABLE OF DATA VALUES FOR CONDX

                                     0384   468 ;		  TABLE. IF THE CONTEXT OF TABLE X IS A SYSTEM SERVICE

                                     0384   469 ;		  ARGUMENT, THE ARGUMENT NAME MAY BE USED AS A SYNONYM

                                     0384   470 ;		  FOR CONDX_E.

                                     0384   471 ;

                                     0384   472 ; OUTPUT PARAMETERS:

                                     0384   473 ;

                                     0384   474 ;	NONE

                                     0384   475 ;

                                     0384   476 ; IMPLICIT OUTPUTS:

                                     0384   477 ;

                                     0384   478 ;	VERIFY HAS NO OUTPUT. SINCE ITS PURPOSE IS TO TEST FOR ERRORS,

                                     0384   479 ;	IT MERELY RETURNS TO CALLER NORMALLY AFTER THE TESTS, PROVIDING

                                     0384   480 ;	ALL WERE SUCCESSFUL; IF AN ERROR IS DISCOVERED, RETURN IS VIA

                                     0384   481 ;	AN ERR_EXIT OR SS_CHECK MACRO, BOTH OF WHICH DOCUMENT DETECTED

                                     0384   482 ;	ERRORS.

                                     0384   483 ;

                                     0384   484 ; COMPLETION CODES:

                                     0384   485 ;

                                     0384   486 ;	EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED.

                                     0384   487 ;

                                     0384   488 ; SIDE EFFECTS:

                                     0384   489 ;

                                     0384   490 ;	SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 

                                     0384   491 ;	(VIA RSB) IF ERROR ENCOUNTERED.

                                     0384   492 ;

SATSSS61        SATS SYST SERV TESTS  $SCH/CANWAK (SUCC S.C.)    22-AUG-1978 04:13:56   VAX-11 MACRO X0.3-11               Page  13

1.0             VERIFY                                                                                                           (1)



                                     0384   493 ;--

                                     0384   494 

                                     0384   495 

                                     0384   496 

                                     0384   497 VERIFY::

                 00000000'EF     95  0384   498 	TSTB	CFLAG			; SHOULD CONDITIONS BE PRINTED ?

                          03     13  038A   499 	BEQL	5$			; NO -- CONTINUE

                          FF0B   30  038C   500 	BSBW	FORM_CONDS		; YES -- FMT & PRINT ALL CONDS FOR THIS T.C.

                                     038F   501 5$:

   000000F3'EF   000000EB'EF     D0  038F   502 	MOVL	SELFPID,SUBJPID		; ASSUME THE SUBJECT PID IS SELF

                 000000E7'EF     D4  039A   503 	CLRL	ZEROPID			; CLEAR ZERO PID

                 00000107'EF     94  03A0   504 	CLRB	LONG_WAIT		; INITIALIZE LONG_WAIT INDICATOR

   00000232'EF44 00000000'EF     D1  03A6   505 	CMPL	ONES,COND3_E[R4] 	; IS PROCESS FOR THIS TEST CASE SELF ?

                          03     12  03B2   506 	BNEQU	7$			; NO -- CONTINUE

                          0072   31  03B4   507 	BRW	10$			; YES -- DON'T CREATE A PROCESS

                                     03B7   508 7$:

                                     03B7   509 	$CREPRC_S PIDADR=CREPID, PRCNAM=SUBJPRN, -

                                     03B7   510 		  UIC=COND3_E[R4], IMAGE=IMAGNAM, -

                                     03B7   511 		  MBXUNT=MBXUNIT, QUOTA=QUOTALIST

                                     03F0   512 					; CREATE THE SUBJECT PROCESS

                                     03F0   513 	SS_CHECK NORMAL			; ... AND MAKE SURE IT CREATED OK

   000000F3'EF   000000EF'EF     D0  041E   514 	MOVL	CREPID,SUBJPID		; MAKE THE SUBJCT PID = THE ONE JUST CREATED

                                     0429   515 10$:

   000000E3'EF   00000153'EF42   D0  0429   516 	MOVL	COND1_E[R2],DEST_PIDADR ; GET PID ADDRESS OUT OF TABLE

            59   00000195'EF43   D0  0435   517 	MOVL	COND2_E[R3],R9		; PRCNAM ADDR INTO REG FOR INDIRECT REF'RNCE

            57   000002C2'EF45   7D  043D   518 	MOVQ	COND4_E[R5],R7		; GET DAYTIM, REPTIM ARG ADDRESSES INTO REGS

                                     0445   519 	$CANWAK_S SUBJPID		; ISSUE PRELIM CANWAK TO CLEAR THE DECKS

                                     0454   520 	SS_CHECK NORMAL			; CHECK FOR NORMAL RETURN

                                     0482   521 	$SETIMR_S DAYTIM=DELTA_10SEC, -	; SET "WATCHDOG" TIMER TO TRIP IF LONG WAIT

                                     0482   522 		  ASTADR=WATCH_AST

                                     0499   523 	SS_CHECK NORMAL			; CHECK FOR NORMAL RETURN

                                     04C7   524 	$GETTIM_S ABS_3SEC		; GET CURRENT TIME

                                     04D4   525 	SS_CHECK NORMAL			; CHECK FOR NORMAL RETURN

   000000F7'EF   000000D7'EF     C0  0502   526 	ADDL	POS_3SEC,ABS_3SEC	; ADD 3 SECONDS TO LOWER LONGWORD

   000000FB'EF   000000DB'EF     D8  050D   527 	ADWC	POS_3SEC+4,ABS_3SEC+4	; ADD POSSIBLE CARRY TO HIGHER LONGWORD

                                     0518   528 					; ABS_3SEC IS NOW VALID IF USED IN $SCHDWK

                                     0518   529 ;

                                     0518   530 ; ****** SYSTEM SERVICE CALL WHICH IS THE SUBJECT OF THIS TEST CASE ******

                                     0518   531 ;

                                     0518   532 	$SCHDWK_S PIDADR=@DEST_PIDADR, PRCNAM=(R9), -

                                     0518   533 		  DAYTIM=(R7), REPTIM=(R8)

   00000000'8F            50     D1  052B   534 	CMPL	R0,#SS$_NORMAL		; CODE RECEIVED = CODE EXPECTED ?

                          61     13  0532   535 	BEQLU	15$			; YES -- CONTINUE

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

   00000000'EF            50     D0  053F   537 	MOVL	R0,RECV			; ... RECEIVED VALUES, THEN EXIT

                                     0546   538 	ERR_EXIT LONG,<INCORRECT STATUS CODE RETURNED FROM SCHDWK>

                                     0595   539 15$:

                 000000E3'EF     D5  0595   540 	TSTL	DEST_PIDADR		; PID RETURNED BY SCHDWK ?

                          68     13  059B   541 	BEQL	20$			; NO -- KEEP GOING

   000000E3'FF   000000F3'EF     D1  059D   542 	CMPL	SUBJPID,@DEST_PIDADR 	; YES -- IS IT THE CORRECT ONE ?

                          5B     13  05A8   543 	BEQL	20$			; YES -- CONTINUE

   00000000'EF   000000F3'EF     D0  05AA   544 	MOVL	SUBJPID,EXPV		; NO --LOAD UP EXPECTED AND

   00000000'EF   000000E3'FF     D0  05B5   545 	MOVL	@DEST_PIDADR,RECV 	; ... RECEIVED VALUES, THEN EXIT

                                     05C0   546 	ERR_EXIT LONG,<INCORRECT PID RETURNED BY SCHDWK>

                                     0605   547 20$:

                                     0605   548 	$CLREF_S EFN=#32		; CLEAR EVENT FLAG 32

            2E            50     E8  060E   549 	BLBS	R0,25$			; KEEP GOING IF OK

SATSSS61        SATS SYST SERV TESTS  $SCH/CANWAK (SUCC S.C.)    22-AUG-1978 04:13:56   VAX-11 MACRO X0.3-11               Page  14

1.0             VERIFY                                                                                                           (1)



                                     0611   550 	SS_CHECK NORMAL			; USE SS_CHECK MACRO TO TERMINATE TEST MOD

                                     063F   551 25$:

                                     063F   552 	$SETIMR_S EFN=#32, -		; SET A 2-SECOND TIMER

                                     063F   553 		  DAYTIM=DELTA_2SEC

                                     0652   554 	SS_CHECK NORMAL			; CHECK FOR NORMAL RETURN

                                     0680   555 	$WAITFR_S EFN=#32		; WAIT 2 SECONDS TO ALLOW PROPER SYNCH'N

                                     0689   556 	SS_CHECK NORMAL			; CHECK FOR NORMAL RETURN

                 000000E7'EF     D4  06B7   557 	CLRL	ZEROPID			; CLEAR OUT ZERO PID SCHDWK MAY HAVE SET

                                     06BD   558 ;

                                     06BD   559 ; ****** SYSTEM SERVICE CALL WHICH IS THE SUBJECT OF THIS TEST CASE ******

                                     06BD   560 ;

                                     06BD   561 	$CANWAK_S PIDADR=@DEST_PIDADR, PRCNAM=(R9)

                                     06CC   562 					; CANCEL SCHEDULED WAKE OR REPEAT

   00000000'8F            50     D1  06CC   563 	CMPL	R0,#SS$_NORMAL		; CODE RECEIVED = CODE EXPECTED ?

                          61     13  06D3   564 	BEQLU	30$			; YES -- CONTINUE

   00000000'EF   00000000'8F     D0  06D5   565 	MOVL	#SS$_NORMAL,EXPV 	; NO -- LOAD UP EXPECTED AND ...

   00000000'EF            50     D0  06E0   566 	MOVL	R0,RECV			; ... RECEIVED VALUES, THEN EXIT

                                     06E7   567 	ERR_EXIT LONG,<INCORRECT STATUS CODE RETURNED FROM CANWAK>

                                     0736   568 30$:

                 000000E3'EF     D5  0736   569 	TSTL	DEST_PIDADR		; PID RETURNED BY CANWAK ?

                          68     13  073C   570 	BEQL	40$			; NO -- KEEP GOING

   000000E3'FF   000000F3'EF     D1  073E   571 	CMPL	SUBJPID,@DEST_PIDADR 	; YES -- IS IT THE CORRECT ONE ?

                          5B     13  0749   572 	BEQL	40$			; YES -- CONTINUE

   00000000'EF   000000F3'EF     D0  074B   573 	MOVL	SUBJPID,EXPV		; NO --LOAD UP EXPECTED AND

   00000000'EF   000000E3'FF     D0  0756   574 	MOVL	@DEST_PIDADR,RECV 	; ... RECEIVED VALUES, THEN EXIT

                                     0761   575 	ERR_EXIT LONG,<INCORRECT PID RETURNED BY CANWAK>

                                     07A6   576 40$:

   000000F3'EF   000000EF'EF     D1  07A6   577 	CMPL	CREPID,SUBJPID		; WAS A PROCESS CREATED ?

                          03     13  07B1   578 	BEQLU	50$			; YES -- GO WAIT FOR IT TO END

                          014F   31  07B3   579 	BRW	60$			; NO -- GO ISSUE HIBER

                                     07B6   580 50$:

                                     07B6   581 	$ASCEFC_S EFN=#64, NAME=CLUSTER	; ASSOC WITH CLUSTER FOR PROCESS SYNCHRO'N

                                     07CD   582 	SS_CHECK  NORMAL		; CHECK FOR NORMAL STATUS

                                     07FB   583 	$SETEF_S  EFN=#65		; LET CREATED PROC EXIT

                                     0808   584 	SS_CHECK  WASCLR		; BIT 65 SHOULD HAVE BEEN CLEAR

                                     0836   585 	$WAITFR_S EFN=#64		; WAIT UNTIL CREATED PROC CAN HIBERNATE

                                     0843   586 	SS_CHECK  NORMAL		; CHECK FOR NORMAL RETURN

                                     0871   587 	$DACEFC_S EFN=#64		; DISASSOC CLUSTER

                                     087E   588 	SS_CHECK  NORMAL		; CHECK FOR NORMAL STATUS

                                     08AC   589 	$QIOW_S	CHAN=MBXCHAN, FUNC=#IO$_READVBLK, -

                                     08AC   590 		P1=MBXBUFF+8, P2=MBXBUFF

                                     08D5   591 					; WAIT FOR CREATED PROCESS TO SEND MAIL

                                     08D5   592 	SS_CHECK NORMAL			; CHECK FOR NORMAL STATUS CODE

                          35     11  0903   593 	BRB	70$			; ... AND GO SEE IF WE WERE STUCK IN HIBER

                                     0905   594 60$:

                                     0905   595 	$HIBER_S			; HIBERNATE TO SATISFY OUTSTANDING WAKE

                                     090C   596 	SS_CHECK NORMAL			; ... MAKE SURE IT FINISHED OK

                                     093A   597 70$:

                                     093A   598 ;

                                     093A   599 ;  CHECK TO SEE IF STUCK IN HIBER ...... IF LONG_WAIT

                                     093A   600 ;  IS SET AND DID NOT EXPECT LONG WAIT, ISSUE ERR_EXIT

                                     093A   601 ;  SAYING "STUCK IN HIBER".

                                     093A   602 ;

                 00000107'EF     95  093A   603 	TSTB	LONG_WAIT		; DID WE WAIT A LONG TIME ?

                          5C     13  0940   604 	BEQL	VERIFYX			; NO -- THIS TEST CASE IS FINISHED

                          55     D5  0942   605 	TSTL	R5			; YES -- DID WE EXPECT TO REMAIN IN HIB'N ?

                          58     13  0944   606 	BEQL	VERIFYX			; YES -- THAT'S OK

SATSSS61        SATS SYST SERV TESTS  $SCH/CANWAK (SUCC S.C.)    22-AUG-1978 04:13:56   VAX-11 MACRO X0.3-11               Page  15

1.0             VERIFY                                                                                                           (1)



                 00000000'EF     94  0946   607 	CLRB	EXPV			; NO -- SOMETHING WENT WRONG .... LOAD UP

                 00000000'EF     94  094C   608 	CLRB	RECV			; ... EXPECTED & RECEIVED VALUES, THEN EXIT

                                     0952   609 	ERR_EXIT BYTE,<SUBJECT PROCESS WAS LEFT IN HIBERNATION>

                                     099E   610 VERIFYX:

                                 05  099E   611 	RSB				; RETURN TO CALLER

SATSSS61        SATS SYST SERV TESTS  $SCH/CANWAK (SUCC S.C.)    22-AUG-1978 04:13:56   VAX-11 MACRO X0.3-11               Page  16

1.0             VFY_CLEANUP                                                                                                      (1)



                                     099F   613 	.SBTTL	VFY_CLEANUP

                                     099F   614 ;++

                                     099F   615 ; FUNCTIONAL DESCRIPTION:

                                     099F   616 ;

                                     099F   617 ;		VFY_CLEANUP EXECUTES SYSTEM SERVICES TO UNDO THE

                                     099F   618 ; EFFECT OF THOSE ISSUED IN THE VERIFY SUBROUTINE. VFY_CLEANUP MUST

                                     099F   619 ; ASSUME THAT VERIFY MAY NOT HAVE EXECUTED IN ITS ENTIRETY (IF AN

                                     099F   620 ; ERROR IS FOUND). ALSO, VFY_CLEANUP MAY ISSUE SS_CHECK OR ERR_EXIT

                                     099F   621 ; ONLY AFTER PERFORMING ALL OF ITS CLEANUP OPERATIONS; THIS IS REQUIRED

                                     099F   622 ; IN THE EVENT THAT VFY_CLEANUP IS CALLED DURING ERROR PROCESSING,

                                     099F   623 ; WHEN PERFORMING THE REQUIRED CLEANUP IS MORE IMPORTANT THAN

                                     099F   624 ; POSSIBLY DISCOVERING A SECOND ERROR.

                                     099F   625 ;

                                     099F   626 ; CALLING SEQUENCE:

                                     099F   627 ;

                                     099F   628 ;	BSBW VFY_CLEANUP

                                     099F   629 ;

                                     099F   630 ; INPUT PARAMETERS:

                                     099F   631 ;

                                     099F   632 ;	NONE

                                     099F   633 ;

                                     099F   634 ; IMPLICIT INPUTS:

                                     099F   635 ;

                                     099F   636 ;	R2,3,4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES

                                     099F   637 ;	  FOR COND TABLES 1,2,3,4,5, RESPECTIVELY.

                                     099F   638 ;	FOR X = 1,2,3,4,5 :

                                     099F   639 ;		CONDX_E - ADDRESS OF TABLE OF DATA VALUES FOR CONDX

                                     099F   640 ;		  TABLE. IF THE CONTEXT OF TABLE X IS A SYSTEM SERVICE

                                     099F   641 ;		  ARGUMENT, THE ARGUMENT NAME MAY BE USED AS A SYNONYM

                                     099F   642 ;		  FOR CONDX_E.

                                     099F   643 ;

                                     099F   644 ; OUTPUT PARAMETERS:

                                     099F   645 ;

                                     099F   646 ;	NONE

                                     099F   647 ;

                                     099F   648 ; IMPLICIT OUTPUTS:

                                     099F   649 ;

                                     099F   650 ;	NONE

                                     099F   651 ;

                                     099F   652 ; COMPLETION CODES:

                                     099F   653 ;

                                     099F   654 ;	EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED.

                                     099F   655 ;

                                     099F   656 ; SIDE EFFECTS:

                                     099F   657 ;

                                     099F   658 ;	SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 

                                     099F   659 ;	(VIA RSB) IF ERROR ENCOUNTERED.

                                     099F   660 ;

                                     099F   661 ;--

                                     099F   662 

                                     099F   663 

                                     099F   664 

                                     099F   665 VFY_CLEANUP::

                                     099F   666 	$CANWAK_S SUBJPID		; CANCEL ANY POSSIBLE OUTSTANDING WAKES

                                     09AE   667 	$CANTIM_S 			; CANCEL WATCHDOG TIMER

   000000F3'EF   000000EF'EF     D1  09B9   668 	CMPL	CREPID,SUBJPID		; WAS A PROCESS CREATED FOR THIS TEST CASE ?

                          0F     12  09C4   669 	BNEQU	VFY_CLEANUPX		; NO -- JUST EXIT

SATSSS61        SATS SYST SERV TESTS  $SCH/CANWAK (SUCC S.C.)    22-AUG-1978 04:13:56   VAX-11 MACRO X0.3-11               Page  17

1.0             VFY_CLEANUP                                                                                                      (1)



                                     09C6   670 	$DELPRC_S SUBJPID		; YES -- DELETE IT

                                     09D5   671 VFY_CLEANUPX:

                                 05  09D5   672 	RSB				; RETURN TO CALLER

SATSSS61        SATS SYST SERV TESTS  $SCH/CANWAK (SUCC S.C.)    22-AUG-1978 04:13:56   VAX-11 MACRO X0.3-11               Page  18

1.0             WATCH_AST                                                                                                        (1)



                                     09D6   674 	.SBTTL	WATCH_AST

                                     09D6   675 ;

                                     09D6   676 ; WATCH_AST SHOULD BE ENTERED ONLY WHEN THE CREATING OR CREATED

                                     09D6   677 ; PROCESS IS HIBERNATING. IT IS SCHEDULED WITH A 10-SECOND TIMER,

                                     09D6   678 ; WHICH IS CANCELED BEFORE DELIVERY IN ALL CASES EXCEPT WHEN THE

                                     09D6   679 ; SUBJECT PROCESS GOES INTO AN UNSATISFIED HIBERNATION. WHEN

                                     09D6   680 ; WATCH_AST IS ENTERED, IT SETS A FLAG INDICATING IT WAS ENTERED

                                     09D6   681 ; (LONG_WAIT) TO NON-ZERO, AND ISSUES A $WAKE FOR THE SUBJECT 

                                     09D6   682 ; PROCESS; THIS SHOULD CLEAR THE HIBERNATION. BACK IN THE MAIN

                                     09D6   683 ; ROUTINE, A CHECK IS MADE TO SEE IF THE WATCH_AST WAS ENTERED

                                     09D6   684 ; AND WHETHER OR NOT SUCH ENTRY WAS EXPECTED. AN UNEXPECTED ENTRY

                                     09D6   685 ; TO WATCH_AST CAUSES AN ERR_EXIT.

                                     09D6   686 ;

                                     09D6   687 WATCH_AST:

                               0000  09D6   688 	.WORD	0			; ENTRY MASK

   00000107'EF   00000000'EF     90  09D8   689 	MOVB	ONES,LONG_WAIT		; INDICATE THAT THE AST WAS ENTERED

                                     09E3   690 	$WAKE_S	SUBJPID			; WAKE THE (PRESUMABLY) HIBERNATING PROCESS

                                 04  09F2   691 	RET				; ... AND GET OUT

                                     09F3   692 	.END

SATSSS61        SATS SYST SERV TESTS  $SCH/CANWAK (SUCC S.C.)    22-AUG-1978 04:13:56   VAX-11 MACRO X0.3-11               Page  19

SYMBOL TABLE                                                                                                                     (1)



$$$$           = 0000095C R     05   CREPID           000000EF R     04   PCB$B_WEFC       00000032            

$$$CHARS       = 00000027            CTL$GL_PHD       ********   X   05   PCB$C_LENGTH     0000007C            

$$$CHARS1      = 00000014            DELTA_10SEC      000000C7 R     03   PCB$K_LENGTH     0000007C            

$$$CHARS2      = 00000014            DELTA_1SEC       000000AF R     03   PCB$L_ASTQBL     00000014            

$$$CHARS3      = 00000014            DELTA_2SEC       000000B7 R     03   PCB$L_ASTQFL     00000010            

$$$CHARS4      = 0000000C            DELTA_3SEC       000000BF R     03   PCB$L_EFC2P      00000058            

$$$CHARS5      = 00000000            DELTA_QSEC       000000CF R     03   PCB$L_EFC3P      0000005C            

$$$COND_A      = 00000003            DESC           = 00000010  G         PCB$L_EFCS       00000050            

$$$STRINGS     = 00000001            DEST_PIDADR      000000E3 R     04   PCB$L_EFCU       00000054            

$$$STRINGS2    = 00000005            DIB$B_DEVCLASS   00000004            PCB$L_EFWM       0000004C            

$$T1           = 00000001            DIB$B_DEVTYPE    00000005            PCB$L_OWNER      0000001C            

$$T2           = 00000004            DIB$C_LENGTH     00000024            PCB$L_PHD        00000064            

ABS_3SEC         000000F7 R     04   DIB$K_LENGTH     00000024            PCB$L_PHYPCB     00000018            

ABS_PAST         000000FF R     04   DIB$L_DEVCHAR    00000000            PCB$L_PID        00000060            

BIT...         = 00000018            DIB$L_DEVDEPEND  00000008            PCB$L_PQB        0000004C            

BYTE           = 00000001  G         DIB$L_OPCNT      0000001C            PCB$L_SQBL       00000004            

CFLAG            ********   X   05   DIB$L_OWNUIC     00000014            PCB$L_SQFL       00000000            

CHMRTN           ********   X   05   DIB$L_PID        00000010            PCB$L_STS        00000028            

CHM_CONT         ********   X   05   DIB$W_DEVBUFSIZ  00000006            PCB$L_UIC        00000020            

CLUSTER          00000084 R     03   DIB$W_DEVNAMOFF  0000000E            PCB$L_WSSWP      00000024            

COMP_SC          ********   X   05   DIB$W_ERRCNT     0000001A            PCB$L_WTIME      0000002C            

COND1            0000024B RG    05   DIB$W_RECSIZ     00000022            PCB$T_LNAME      0000006C            

COND1_C        = 00000000            DIB$W_UNIT       0000000C            PCB$V_ASTPEN   = 00000011            

COND1_CLEANUP    0000024C RG    05   DIB$W_VOLNAMOFF  00000020            PCB$V_BATCH    = 0000000E            

COND1_E          00000153 R     04   DIB$W_VPROT      00000018            PCB$V_DELPEN   = 00000001            

COND1_H          00000114 RG    04   EFLAG            ********   X   05   PCB$V_FORCPEN  = 00000002            

COND1_T          00000108 R     04   EXPV             ********   X   05   PCB$V_HIBER    = 00000013            

COND1_TAB        00000115 R     04   FAO_DESC         ********   X   05   PCB$V_INQUAN   = 00000003            

COND2            0000024D RG    05   FAO_LEN          ********   X   05   PCB$V_LOGIN    = 00000014            

COND2_C        = 00000000            FORM_CONDS       0000029A RG    05   PCB$V_NETWRK   = 00000015            

COND2_CLEANUP    0000024E RG    05   FORM_CONDSX      00000383 R     05   PCB$V_NOACNT   = 0000000F            

COND2_E          00000195 R     04   GBL...         = 00000000            PCB$V_NODELET  = 00000017            

COND2_H          00000174 RG    04   IMAGNAM          00000065 R     03   PCB$V_PHDRES   = 00000012            

COND2_T          0000015F R     04   IO$_READVBLK     ********   X   05   PCB$V_PSWAPM   = 00000004            

COND2_TAB        00000175 R     04   LONG           = 00000004  G         PCB$V_PWRAST   = 00000016            

COND3            0000024F RG    05   LONG_WAIT        00000107 R     04   PCB$V_RES      = 00000000            

COND3X           00000294 R     05   MBXBUFF          00000063 R     04   PCB$V_RESPEN   = 00000005            

COND3_C        = 00000000            MBXCHAN          00000008 R     04   PCB$V_SSFEXC   = 00000006            

COND3_CLEANUP    00000295 RG    05   MBXCHANINFO      0000000C R     04   PCB$V_SSFEXCE  = 00000007            

COND3_E          00000232 R     04   MBXUNIT          0000005F R     04   PCB$V_SSFEXCS  = 00000008            

COND3_H          000001AA RG    04   MOD_MSG_CODE     ********   X   05   PCB$V_SSFEXCU  = 00000009            

COND3_T          0000019D R     04   MOD_MSG_PRINT    ********   X   05   PCB$V_SSRWAIT  = 0000000A            

COND3_TAB        000001AB R     04   MSG1_INP_CTL     00000019 R     03   PCB$V_SUSPEN   = 0000000B            

COND4            00000296 RG    05   MSG3_ERR_CTL     00000039 RG    03   PCB$V_SWPVBN   = 00000010            

COND4_C        = 00000000            MSG_A            ********   X   05   PCB$V_WAKEPEN  = 0000000C            

COND4_CLEANUP    00000297 RG    05   MSG_B            ********   X   05   PCB$V_WALL     = 0000000D            

COND4_E          000002C2 R     04   MSG_CTXT         ********   X   05   PCB$W_APTCNT     00000034            

COND4_H          00000265 RG    04   NOTARG         = 00000000  G         PCB$W_ASTCNT     0000003C            

COND4_T          00000246 R     04   NULL           = 00000014  G         PCB$W_BIOCNT     0000003E            

COND4_TAB        00000266 R     04   ONES             ********   X   04   PCB$W_BIOLM      00000040            

COND5            00000298 RG    05   ONE_SEC        = 00989680            PCB$W_BYTCNT     00000042            

COND5_C        = 00000014            OUTPUT_MSG       ********   X   05   PCB$W_BYTLM      00000068            

COND5_CLEANUP    00000299 RG    05   PCB$B_ASTACT     0000000C            PCB$W_DIOCNT     00000044            

COND5_H          000002E2 RG    04   PCB$B_ASTEN      0000000D            PCB$W_DIOLM      00000046            

COND5_T          000002E2 R     04   PCB$B_PRI        0000000B            PCB$W_FILCNT     00000048            

COND5_TAB        000002E2 R     04   PCB$B_PRIB       00000033            PCB$W_GPGCNT     00000038            

CONFLICT         ********   X   05   PCB$B_TYPE       0000000A            PCB$W_GRP        00000022            

SATSSS61        SATS SYST SERV TESTS  $SCH/CANWAK (SUCC S.C.)    22-AUG-1978 04:13:56   VAX-11 MACRO X0.3-11               Page  20

SYMBOL TABLE                                                                                                                     (1)



PCB$W_MEM        00000020            PHD$M_DALCSTX  = 00000002            PRV$V_CMEXEC   = 00000001            

PCB$W_MTXCNT     0000000E            PHD$M_PFMFLG   = 00000001            PRV$V_CMKRNL   = 00000000            

PCB$W_PPGCNT     0000003A            PHD$M_WSPEAKCHK= 00000004            PRV$V_DETACH   = 00000005            

PCB$W_PRCCNT     0000006A            PHD$Q_PRIVMSK    00000000            PRV$V_DIAGNOSE = 00000006            

PCB$W_SIZE       00000008            PHD$S_ASTLVL   = 00000008            PRV$V_EXQUOTA  = 00000013            

PCB$W_STATE      00000030            PHD$S_P0LR     = 00000018            PRV$V_GROUP    = 00000008            

PCB$W_TMBU       00000036            PHD$V_ASTLVL   = 00000018            PRV$V_GRPNAM   = 00000003            

PCB$W_TQCNT      0000004A            PHD$V_DALCSTX  = 00000001            PRV$V_LOG_IO   = 00000007            

PCV              ********   X   05   PHD$V_P0LR     = 00000000            PRV$V_MOUNT    = 00000011            

PHD$B_ASTLVL     000000CF            PHD$V_PFMFLG   = 00000000            PRV$V_NETMBX   = 00000014            

PHD$B_DFPFC      00000038            PHD$V_WSPEAKCHK= 00000002            PRV$V_NOACNT   = 00000009            

PHD$B_PAGFIL     0000001F            PHD$W_ASTLM      00000044            PRV$V_OPER     = 00000012            

PHD$B_PGTBPFC    00000039            PHD$W_BAK        00000048            PRV$V_PHY_IO   = 00000016            

PHD$C_LENGTH     00000118            PHD$W_DFWSCNT    0000001A            PRV$V_PRMCEB   = 0000000A            

PHD$C_PHDPAGCTX= 00000008            PHD$W_EMPTPG     000000D8            PRV$V_PRMGBL   = 00000018            

PHD$K_LENGTH     00000118            PHD$W_EXTDYNWS   00000076            PRV$V_PRMMBX   = 0000000B            

PHD$L_BIOCNT     00000054            PHD$W_FILLM      00000060            PRV$V_PSWAPM   = 0000000C            

PHD$L_CPULIM     00000058            PHD$W_FLAGS      0000003A            PRV$V_SETPRI   = 0000000D            

PHD$L_CPUTIM     0000003C            PHD$W_PHVINDEX   00000046            PRV$V_SETPRV   = 0000000E            

PHD$L_DIOCNT     00000050            PHD$W_PRCLM      00000042            PRV$V_SYSGBL   = 00000019            

PHD$L_ESP        0000007C            PHD$W_PST        00000020            PRV$V_SYSNAM   = 00000002            

PHD$L_FREP0VA    00000028            PHD$W_PSTBASMAX  0000004A            PRV$V_TMPMBX   = 0000000F            

PHD$L_FREP1VA    00000030            PHD$W_PSTFREE    00000026            PRV$V_VOLPRO   = 00000015            

PHD$L_FREPTECNT  0000002C            PHD$W_PSTLAST    00000024            PRV$V_WORLD    = 00000010            

PHD$L_KSP        00000078            PHD$W_PTCNTACT   00000070            QUAD           = 00000008  G         

PHD$L_P0BR       000000C8            PHD$W_PTCNTLCK   0000006C            QUOTALIST        0000008C R     03   

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

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

PHD$L_P1LR       000000D4            PHD$W_QUANT      00000040            SAVE_REGS        ********   X   05   

PHD$L_PAGEFLTS   0000004C            PHD$W_TQLM       00000062            SCH$GL_CURPCB    ********   X   05   

PHD$L_PAGFIL     0000001C            PHD$W_WSAUTH     0000000A            SELFPID          000000EB R     04   

PHD$L_PC         000000C0            PHD$W_WSDYN      0000000E            SS$_NORMAL       ********   X   05   

PHD$L_PCB        00000078            PHD$W_WSFLUID    00000074            SS$_WASCLR       ********   X   05   

PHD$L_PGFLCNT    00000034            PHD$W_WSLAST     00000012            SUBJPID          000000F3 R     04   

PHD$L_PGFLQUOTA  0000005C            PHD$W_WSLIST     00000008            SUBJPRN          00000051 R     03   

PHD$L_PSL        000000C4            PHD$W_WSLOCK     0000000C            SUCCESS          ********   X   05   

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

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

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

PHD$L_R0         00000088            POS_3SEC         000000D7 R     03   SYS$CANWAK       ********   X   05   

PHD$L_R1         0000008C            PQL$_ASTLM     = 00000001            SYS$CLREF        ********   X   05   

PHD$L_R10        000000B0            PQL$_BIOLM     = 00000002            SYS$CMKRNL       ********   X   05   

PHD$L_R11        000000B4            PQL$_BYTLM     = 00000003            SYS$CREMBX       ********   X   05   

PHD$L_R12        000000B8            PQL$_CPULM     = 00000004            SYS$CREPRC       ********   X   05   

PHD$L_R13        000000BC            PQL$_DIOLM     = 00000005            SYS$DACEFC       ********   X   05   

PHD$L_R2         00000090            PQL$_FILLM     = 00000006            SYS$DELMBX       ********   X   05   

PHD$L_R3         00000094            PQL$_LENGTH    = 0000000C            SYS$DELPRC       ********   X   05   

PHD$L_R4         00000098            PQL$_LISTEND   = 00000000            SYS$FAO          ********   X   05   

PHD$L_R5         0000009C            PQL$_PGFLQUOTA = 00000007            SYS$GETCHN       ********   X   05   

PHD$L_R6         000000A0            PQL$_PRCLM     = 00000008            SYS$GETTIM       ********   X   05   

PHD$L_R7         000000A4            PQL$_TQELM     = 00000009            SYS$HIBER        ********   X   05   

PHD$L_R8         000000A8            PQL$_WSDEFAULT = 0000000B            SYS$QIOW         ********   X   05   

PHD$L_R9         000000AC            PQL$_WSQUOTA   = 0000000A            SYS$SCHDWK       ********   X   05   

PHD$L_REFERFLT   00000014            PRIVMASK         00000000 R     04   SYS$SETEF        ********   X   05   

PHD$L_SSP        00000080            PROCESS_ERR      ********   X   05   SYS$SETIMR       ********   X   05   

PHD$L_USP        00000084            PRV$V_ALLSPOOL = 00000004            SYS$SETPRN       ********   X   05   

PHD$L_WSL        00000118            PRV$V_BUGCHK   = 00000017            SYS$WAITFR       ********   X   05   

SATSSS61        SATS SYST SERV TESTS  $SCH/CANWAK (SUCC S.C.)    22-AUG-1978 04:13:56   VAX-11 MACRO X0.3-11               Page  21

SYMBOL TABLE                                                                                                                     (1)



SYS$WAKE         ********   X   05   

TESTNUM          ********   X   05   

TEST_MOD_NAME    00000000 RG    03   

TEST_MOD_NAME_D  00000009 R     03   

TEST_MOD_SUCC    ********   X   05   

TIME_PAST        000000DF R     03   

TMD_ADDR         ********   X   05   

TM_CLEANUP       00000239 RG    05   

TM_SETUP         00000000 RG    05   

VERIFY           00000384 RG    05   

VERIFYX          0000099E R     05   

VFY_CLEANUP      0000099F RG    05   

VFY_CLEANUPX     000009D5 R     05   

WATCH_AST        000009D6 R     05   

WORD           = 00000002  G         

WRITE_MSG2       ********   X   05   

ZEROPID          000000E7 R     04   





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

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

SATSSS61         000009F3      05     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

8648. BYTES LEFT IN FREE MEMORY POOL.

38. BYTES OF RECLAIMED MEMORY.

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

85 MLB DIR RDS - 937 GETS TO DEFINE 48 MACROS. 55 INTER. FILE WRITES. 

