SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      46  DECLARATIONS

   (1)     198  SATSSF02

   (1)     283  SFSEF10

   (1)     285  SFSEF11

   (1)     287  SFSEF12

   (1)     289  SFSEF13

   (1)     291  

   (1)     293  SFCEF10

   (1)     295  SFCEF11

   (1)     297  SFCEF12

   (1)     299  SFCEF13

   (1)     301  

   (1)     303  SFREF10

   (1)     305  SFREF11

   (1)     307  SFREF12

   (1)     309  SFREF13

   (1)     311  SFREF20

   (1)     312  SFREF21

   (1)     313  SFREF22

   (1)     314  

   (1)     316  SFWFR10

   (1)     318  SFWFR11

   (1)     320  SFWFR12

   (1)     322  SFWFR13

   (1)     324  

   (1)     326  SFWFO10

   (1)     328  SFWFO11

   (1)     330  SFWFO12

   (1)     332  SFWFO13

   (1)     334  

   (1)     336  SFWFA10

   (1)     338  SFWFA11

   (1)     340  SFWFA12

   (1)     342  SFWFA13

   (1)     344  

   (1)     423  EXECUTE & CLEANUP

   (1)     435  TC_CONTROL

   (1)     516  SUBROUTINES

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page   1

1.0                                                                                                                              (1)



                                     0000     1 	.TITLE	SATSSF02 - SATS SYSTEM SERVICE TESTS  (FAILING 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:	SATS SYSTEM SERVICE TESTS

                                     0000    25 ;

                                     0000    26 ; ABSTRACT:	THE SATSSF02 MODULE TESTS THE EXECUTION OF CERTAIN

                                     0000    27 ; VMS SYSTEM SERVICES, INVOKED IN SUCH A WAY AS TO EXPECT FAILING

                                     0000    28 ; STATUS CODES. THE SYSTEM SERVICES TESTED AND THE STATUS CODES

                                     0000    29 ; EXPECTED ARE SUMMARIZED AS ARGUMENTS TO THE TESTSERV MACROS

                                     0000    30 ; WHICH APPEAR NEAR THE END OF THIS LISTING. SUCCESSFUL STATUS

                                     0000    31 ; CODES ARE TESTED IN OTHER MODULES.

                                     0000    32 ;

                                     0000    33 ;

                                     0000    34 ; ENVIRONMENT:	USER MODE IMAGE; NEEDS CMKRNL PRIVILEGE,

                                     0000    35 ;		DYNAMICALLY ACQUIRES OTHER PRIVILEGES, AS NEEDED.

                                     0000    36 ;

                                     0000    37 ; AUTHOR: THOMAS L. CAFARELLA,		CREATION DATE: MMM, 1978

                                     0000    38 ;	  PAUL D. FAY (DISPSERV & TESTSERV MACROS)

                                     0000    39 ;

                                     0000    40 ; MODIFIED BY:

                                     0000    41 ;

                                     0000    42 ;	, : VERSION

                                     0000    43 ; 01	- 

                                     0000    44 ;--

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page   2

1.0             DECLARATIONS                                                                                                     (1)



                                     0000    46 	.SBTTL	DECLARATIONS

                                     0000    47 ;

                                     0000    48 ; INCLUDE FILES:

                                     0000    49 ;

                                     0000    50 	$PRVDEF				; SYMBOL DEFS FOR PRIVILEGES

                                     0000    51 	$UETPDEF			; UETP MSG CODE DEFINITIONS

                                     0000    52 	$SHR_MESSAGES UETP,116,<<TEXT,INFO>> 

                                     0000    53 					; DEFINE UETP$_TEXT

                           00000004  0000    54 	.MDELETE ($PRVDEF,$UETPDEF,$SHR_MESSAGES,$SHRDEF)

                                     0000    55 					; GET RID OF MACRO DEFINITIONS

                                     0000    56 ;

                                     0000    57 ; MACROS:

                                     0000    58 ;

                                     0000    59 ;

                                     0000    60 ; EQUATED SYMBOLS:

                                     0000    61 ;

                           00000000  0000    62 WARNING		= 0			; WARNING SEVERITY VALUE FOR MSGS

                           00000001  0000    63 SUCCESS		= 1			; SUCCESS SEVERITY VALUE FOR MSGS

                           00000002  0000    64 ERROR		= 2			; ERROR SEVERITY VALUE FOR MSGS

                           00000003  0000    65 INFO		= 3			; INFORMATIONAL SEV VALUE FOR MSGS

                           00000004  0000    66 SEVERE		= 4			; SEVERE (FATAL) SEV VALUE FOR MSGS

                           00000000  0000    67 TCG_NO		=  0			; INITIALIZE TEST CASE GROUP NUMBER

                           00000000  0000    68 GRP_TOTAL	=  0			; INITIALIZE TEST CASE GROUP TOTAL

                           00007FFF  0000    69 R0_THRU_SP	= ^M<R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,AP,FP,SP>

                           00000001  0000    70 STATE_REF20	= 1			; STATE ARGUMENT FOR READEF (LOC 1)

                                     0000    71 ;

                                     0000    72 ; ****** THE FOLLOWING ASSIGNMENTS (IN PHD, PCB, STS) ARE BEING MADE

                                     0000    73 ; ****** WITHOUT REFERENCE TO $PHDDEF, $PCBDEF, $STSDEF BECAUSE OF

                                     0000    74 ; ****** SYMBOL TABLE OVERFLOW. FIX THIS WHEN MORE TABLE SPACE AVAILABLE.

                                     0000    75 ;

                           00000000  0000    76 PHD$Q_PRIVMSK	= 0			; PRIV MASK OFFSET INTO PHD

                           00000020  0000    77 PCB$L_UIC	= ^X20			; UIC OFFSET INTO PCB

                           0000001C  0000    78 STS$V_INHIB_MSG	= ^X1C			; INHIBIT_MSG BIT NUMBER IN MSG CODE

                                     0000    79 ;

                                     0000    80 ; OWN STORAGE:

                                     0000    81 ;

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page   3

1.0             DECLARATIONS                                                                                                     (1)



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

                                     0000    84 REG_COMP_MASK:	.WORD	^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,AP,FP> ! ^X8000 -

                               BFFC  0000    85 					; REG COMPARE MASK (HIGH-ORDER ... 

                                     0002    86 					; ... BIT MUST BE ON

                                     0002    87 ERR_MSG_FAOCTL:	STRING	I,<!/!AC!1ZB!1ZB: REGISTER !2UW CONTENTS ALTERED>, -

                                     0002    88 		<;  BEFORE SERVICE CALL: !8XL   AFTER SERVICE CALL: !8XL>

                                     006E    89 TEST_MOD_NAME:	STRING	C,<SATSSF02>	; TEST MODULE NAME

                                     0077    90 TEST_MOD_BEG:	STRING	C,<begun>	; DISPOSITION FIELD OF TEST MOD MSG

                                     007D    91 TEST_MOD_SUCC:	STRING	C,<successful>	; DISPOSITION FIELD OF TEST MOD MSG

                                     0088    92 TEST_MOD_FAIL:	STRING	C,<failed>	; DISPOSITION FIELD OF TEST MOD MSG

                                     008F    93 TEST_MOD_NAME_D: STRING	I,<SATSSF02>	; TEST MODULE NAME DESCRIPTOR

                                     009F    94 TTNAME:     	STRING  I,<TT>		; TERMINAL LOGICAL NAME

                  00000000'00000000' 00A9    95 INADR:		.LONG	NOACCESS,NOACCESS ; PAGE ADDRESS OF NOACCESS PSECT

                           00000000' 00B1    96 PROT:		.LONG	PRT$C_NA	; PROTECTION CODE FOR NOACCESS PSECT

                  FFFFFFFF FFFFFFFF  00B5    97 ONES:		.LONG	-1,-1		; A QUADWORD OF 1-BITS

                           00000016  00BD    98 EFN_SEF:	.LONG	22		; EFN ARGUMENT FOR SETEF

                           00000016  00C1    99 EFN_CEF:	.LONG	22		; EFN ARGUMENT FOR CLREF

                           00000000  00C5   100 EFN_REF:	.LONG	0		; EFN ARGUMENT FOR READEF

                           000000CD  00C9   101 STATE_REF21:	.BLKL	1		; STATE ARGUMENT FOR READEF

                           00000005  00CD   102 EFN_WFR:	.LONG	5		; EFN ARGUMENT FOR WAITFR

                           00000014  00D1   103 EFN_WFO:	.LONG	20		; EFN ARGUMENT FOR WFLOR

                           00000001  00D5   104 MASK_WFO:	.LONG	^X1		; MASK ARGUMENT FOR WFLOR

                           00000002  00D9   105 EFN_WFA:	.LONG	2		; EFN ARGUMENT FOR WFLAND

                           FFFFFFFF  00DD   106 MASK_WFA:	.LONG	^XFFFFFFFF 	; MASK ARGUMENT FOR WFLAND

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page   4

1.0             DECLARATIONS                                                                                                     (1)



                                 00000000   108 	.PSECT	RWDATA,RD,WRT,NOEXE

                           00000004  0000   109 TPID:		.BLKL	1		; PROCESS ID FOR THIS PROCESS

                           00000008  0004   110 CURRENT_TC:	.BLKL	1 		; PTR TO CURRENT TEST CASE

                           00000044  0008   111 REG_SAVE_AREA:	.BLKL	15		; SAVE AREA FOR ALL REGS (SANS PC)

                           007480D9  0044   112 MOD_MSG_CODE:	.LONG	UETP$_SATSMS	; TEST MODULE MSG CODE FOR PUTMSG

                           0000004C  0048   113 CLOB_REG_NO:	.BLKL	1		; CLOBBERED REG NO (FOR FAO ERR MSG)

                           00000050  004C   114 REG_BEFORE_SS:	.BLKL	1		; REG CONTENTS BEFORE S.S. 

                                     0050   115 					; ... (FOR FAO ERROR MSG)

                           00000054  0050   116 REG_AFTER_SS:	.BLKL	1		; REG CONTENTS AFTER S.S. 

                                     0054   117 					; ... (FOR FAO ERROR MSG)

                                     0054   118 $$TSTN$$:	STRING	C,<  SF   >	; ASCII PORTION OF TEST CASE NAME

                           0000006E' 005C   119 TMN_ADDR:	.ADDRESS TEST_MOD_NAME	; ADDR OF TEST MOD NAME FOR FAO

                           00000077' 0060   120 TMD_ADDR:	.ADDRESS TEST_MOD_BEG	; ADDR OF T.M. DISP FIELD FOR FAO

                           00000068  0064   121 TS_EP:		.BLKL	1		; ENTRY PNT FOR CURR TESTSERV MACRO

                           00000070  0068   122 RETADR:		.BLKL	2		; RETURN LONGWORDS FOR SETPRT

                           00000071  0070   123 PRVPRT:		.BLKB	1		; PROT RETURN BYTE FOR SETPRT

                           00000079  0071   124 PRIVMASK:	.BLKQ	1		; ADDR OF PRIVILEGE MASK (IN PHD)

                           0000007D  0079   125 CHM_CONT:	.BLKL	1		; CHANGE MODE CONTINUE ADDRESS

                           00000091  007D   126 REGS:		.BLKL	5		; AREA FOR COND INDEX REGS (R2-R6)

                           00000095  0091   127 EFN_SEF10:	.BLKL	1		; EFN ARGUMENT FOR SETEF

                           00000099  0095   128 EFN_SEF11:	.BLKL	1		; EFN ARGUMENT FOR SETEF

                           0000009D  0099   129 EFN_SEF12:	.BLKL	1		; EFN ARGUMENT FOR SETEF

                           000000A1  009D   130 EFN_SEF13:	.BLKL	1		; EFN ARGUMENT FOR SETEF

                           000000A5  00A1   131 EFN_CEF10:	.BLKL	1		; EFN ARGUMENT FOR CLREF

                           000000A9  00A5   132 EFN_CEF11:	.BLKL	1		; EFN ARGUMENT FOR CLREF

                           000000AD  00A9   133 EFN_CEF12:	.BLKL	1		; EFN ARGUMENT FOR CLREF

                           000000B1  00AD   134 EFN_CEF13:	.BLKL	1		; EFN ARGUMENT FOR CLREF

                           000000B5  00B1   135 EFN_REF10:	.BLKL	1		; EFN ARGUMENT FOR READEF

                           000000B9  00B5   136 EFN_REF11:	.BLKL	1		; EFN ARGUMENT FOR READEF

                           000000BD  00B9   137 EFN_REF12:	.BLKL	1		; EFN ARGUMENT FOR READEF

                           000000C1  00BD   138 EFN_REF13:	.BLKL	1		; EFN ARGUMENT FOR READEF

                           000000C5  00C1   139 STATE_REF:	.BLKL	1		; STATE ARGUMENT FOR READEF

                           000000C9  00C5   140 EFN_WFR10:	.BLKL	1		; EFN ARGUMENT FOR WAITFR

                           000000CD  00C9   141 EFN_WFR11:	.BLKL	1		; EFN ARGUMENT FOR WAITFR

                           000000D1  00CD   142 EFN_WFR12:	.BLKL	1		; EFN ARGUMENT FOR WAITFR

                           000000D5  00D1   143 EFN_WFR13:	.BLKL	1		; EFN ARGUMENT FOR WAITFR

                           000000D9  00D5   144 EFN_WFO10:	.BLKL	1		; EFN ARGUMENT FOR WFLOR

                           000000DD  00D9   145 EFN_WFO11:	.BLKL	1		; EFN ARGUMENT FOR WFLOR

                           000000E1  00DD   146 EFN_WFO12:	.BLKL	1		; EFN ARGUMENT FOR WFLOR

                           000000E5  00E1   147 EFN_WFO13:	.BLKL	1		; EFN ARGUMENT FOR WFLOR

                           000000E9  00E5   148 EFN_WFA10:	.BLKL	1		; EFN ARGUMENT FOR WFLAND

                           000000ED  00E9   149 EFN_WFA11:	.BLKL	1		; EFN ARGUMENT FOR WFLAND

                           000000F1  00ED   150 EFN_WFA12:	.BLKL	1		; EFN ARGUMENT FOR WFLAND

                           000000F5  00F1   151 EFN_WFA13:	.BLKL	1		; EFN ARGUMENT FOR WFLAND

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page   5

1.0             DECLARATIONS                                                                                                     (1)



                                 00000000   153 	.PSECT	SATS_ACCVIO_1,RD,WRT,NOEXE,PAGE

                           00000200  0000   154 EMPTY:		.BLKB	512	; RESERVE A PAGE OF SPACE

                                     0200   155 ;

                                     0200   156 ; + 

                                     0200   157 ; ******************************************************************

                                     0200   158 ; *                                                                *

                                     0200   159 ; * 	THE ORDER OF STATEMENTS IN THIS PSECT IS CRITICAL.         *

                                     0200   160 ; *	DO NOT RE-ARRANGE THE VARIABLES. CONSULT SATS              *

                                     0200   161 ; *	FUNCTIONAL SPECIFICATION FOR A DESCRIPTION OF THE USE      *

                                     0200   162 ; *	OF THE EMPTY PSECT (AND ITS COMPANION PSECT, NOACCESS).    *

                                     0200   163 ; *                                                                *

                                     0200   164 ; ******************************************************************

                                     0200   165 ; -

                                     0200   166 ;

                           000001FF  0200   167 STATE_REF22	= . - 1		; STATE ARG FOR READEF (LAST BYTE IN THE PAGE)

                           000001F3  0200   168 		. = . - 13	; ALLOW ROOM FOR STRING DESCRIPTOR

                                     01F3   169 ; TYPE AAAAA_SSSX5 GO HERE:

                           00000006  01F3   170 		.LONG	6	; STRING LENGTH (WILL CROSS PSECT BOUNDARY)

                           000001FB' 01F7   171 		.ADDRESS .+4	; STRING ADDRESS

                                     01FB   172 ; TYPE AAAAA_SSSX3 GO HERE:

                           000001FC  01FB   173 		.BLKB	1	; LOW-ORDER BYTE OF STRING LENGTH

                                     01FC   174 ; TYPE AAAAA_SSSX2 GO HERE:

                           00000200  01FC   175 		.BLKL	1	; STRING LENGTH

                                     0200   176 ;

                                     0200   177 ;

                                     0200   178 ;

                                     0200   179 ;

                                 00000000   180 	.PSECT	SATS_ACCVIO_2,RD,WRT,NOEXE,PAGE

                           00000200  0000   181 NOACCESS:	.BLKB	512	; RESERVE A PAGE OF SPACE

                           00000000  0200   182 		. = . - 512	; RETURN LOC CTR TO BEGINNING OF PSECT

                           00000000' 0000   183 		.ADDRESS EMPTY	; ADDRESS OF ACCESSIBLE STRING

                           00000000' 0004   184 		.ADDRESS EMPTY/^X100 ; ADDRESS OF ACCESSIBLE STRING

                                     0008   185 ;+

                                     0008   186 ; *** NOTE -- DO NOT CHANGE LOCATION OR SEQUENCE OF ABOVE STATEMENTS!

                                     0008   187 ; ***         THIS PSECT (NOACCESS) MUST APPEAR IN MEMORY IMMEDIATELY

                                     0008   188 ; ***         FOLLOWING THE EMPTY PSECT. PSECT NAMES AND OPTIONS WILL BE 

                                     0008   189 ; ***         CHOSEN TO FORCE THE DESIRED PSECT ORDERING.

                                     0008   190 ;-

                                     0008   191 ;

                                     0008   192 ;

                                     0008   193 ;

                                     0008   194 ;

                           00000001  0008   195 	.MDELETE (STRING)		; NO LONGER NEED MACRO DEFINITION

                                 00000000   196 	.PSECT	SATSSF02,RD,WRT,EXE,LONG

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page   6

1.0             SATSSF02                                                                                                         (1)



                                     0000   198 	.SBTTL	SATSSF02

                                     0000   199 ;++

                                     0000   200 ; FUNCTIONAL DESCRIPTION:

                                     0000   201 ;

                                     0000   202 ;		AFTER PERFORMING SOME INITIAL HOUSEKEEPING, SUCH AS

                                     0000   203 ; PRINTING THE MODULE BEGIN MESSAGE AND ACQUIRING ALL PRIVILEGES,

                                     0000   204 ; THE SATSSF02 ROUTINE EXECUTES THE TEST_SERV_EXEC MACRO TO RUN

                                     0000   205 ; ALL TEST CASES. WHEN THE MACRO COMPLETES ITS EXECUTION, SATSSF02

                                     0000   206 ; PRINTS A TEST MODULE SUCCESS OR FAIL MESSAGE AND EXITS TO THE

                                     0000   207 ; OPERATING SYSTEM. TEST_SERV_EXEC CALLS THE TC_CONTROL/TESTSERV

                                     0000   208 ; CO-ROUTINE PAIR ONCE PER TEST CASE GROUP TO EXECUTE ALL TEST

                                     0000   209 ; CASES IN THAT GROUP. EACH TEST CASE GROUP IS DEFINED BY BOUNDING

                                     0000   210 ; ITS TEST CASES WITH A TC_GROUP MACRO BEFORE THE FIRST TEST CASE

                                     0000   211 ; AND A TCEND MACRO AFTER THE LAST ONE. THE TEST CASES THEMSELVES

                                     0000   212 ; ARE DEFINED WITHIN THESE BOUNDS BY PRECEDING EACH WITH A

                                     0000   213 ; NEXT_TEST_CASE MACRO. TC_CONTROL/TESTSERV EXECUTES THE CODE 

                                     0000   214 ; FOLLOWING EACH NEXT_TEST_CASE MACRO IMMEDIATELY BEFORE ISSUING

                                     0000   215 ; THE SYSTEM SERVICE AS REQUESTED IN THE TESTSERV MACRO. TC_CONTROL/

                                     0000   216 ; TESTSERV ALSO CHECKS THE RESULTS OF THE SERVICE WITH RESPECT

                                     0000   217 ; TO ITS EXPECTED STATUS CODE AND PRINTS ANY REQUIRED FAILURE

                                     0000   218 ; MESSAGES FOR THE TEST CASE. THE CODE APPEARING AFTER EACH

                                     0000   219 ; NEXT_TEST_CASE MACRO IS MERELY TO SET UP CONDITIONS REQUIRED

                                     0000   220 ; FOR THE SYSTEM SERVICE AND TO CLEAN UP ANY RESOURCES ACQUIRED

                                     0000   221 ; BY THE PREVIOUS TEST CASE.

                                     0000   222 ;

                                     0000   223 ; CALLING SEQUENCE:

                                     0000   224 ;

                                     0000   225 ;	$ RUN SATSSF02  ...  (DCL COMMAND)

                                     0000   226 ;

                                     0000   227 ; INPUT PARAMETERS:

                                     0000   228 ;

                                     0000   229 ;	NONE

                                     0000   230 ;

                                     0000   231 ; IMPLICIT INPUTS:

                                     0000   232 ;

                                     0000   233 ;	NONE

                                     0000   234 ;

                                     0000   235 ; OUTPUT PARAMETERS:

                                     0000   236 ;

                                     0000   237 ;	NONE

                                     0000   238 ;

                                     0000   239 ; IMPLICIT OUTPUTS:

                                     0000   240 ;

                                     0000   241 ;	MESSAGES TO SYS$OUTPUT ARE THE ONLY OUTPUT FROM SATSSF02.

                                     0000   242 ;	THEY ARE OF THE FORM:

                                     0000   243 ;

                                     0000   244 ;		%UETP-S-SATSMS, TEST MODULE SATSSF02 BEGUN ... (BEGIN MSG)

                                     0000   245 ;		%UETP-S-SATSMS, TEST MODULE SATSSF02 SUCCESSFUL ... (END MSG)

                                     0000   246 ;		%UETP-E-SATSMS, TEST MODULE SATSSF02 FAILED ... (END MSG)

                                     0000   247 ;		%UETP-I-TEXT, ... (VARIABLE INFORMATION ABOUT A TEST MODULE FAILURE)

                                     0000   248 ;

                                     0000   249 ; COMPLETION CODES:

                                     0000   250 ;

                                     0000   251 ;	THE SATSSF02 ROUTINE TERMINATES WITH A $EXIT TO THE

                                     0000   252 ;	OPERATING SYSTEM WITH A STATUS CODE DEFINED BY UETP$_SATSMS.

                                     0000   253 ;

                                     0000   254 ; SIDE EFFECTS:

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page   7

1.0             SATSSF02                                                                                                         (1)



                                     0000   255 ;

                                     0000   256 ;	NONE

                                     0000   257 ;

                                     0000   258 ;--

                                     0000   259 

                                     0000   260 

                                     0000   261 

                                     0000   262 SATSSF02:

                               0FFC  0000   263 	.WORD	^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11>

                                     0002   264 					; ENTRY MASK

                                     0002   265 	$WAKE_S  TPID			; GET PID OF THIS PROCESS

                                     0011   266 	$HIBER_S			; UNDO WAKE

                                     0018   267 	$SETPRN_S TEST_MOD_NAME_D 	; SET PROCESS NAME

                          0DDB   30  0025   268 	BSBW	MOD_MSG_PRINT		; PRINT TEST MODULE BEGIN MSG

   00000060'EF   0000007D'EF     DE  0028   269 	MOVAL	TEST_MOD_SUCC,TMD_ADDR	; ASSUME END MSG WILL SHOW SUCCESS

            00            01     F0  0033   270 	INSV	#SUCCESS,#0,#3,MOD_MSG_CODE ; ADJUST STATUS CODE FOR SUCCESS

   00000044'EF            03         0036       

                                     003C   271 	MODE	TO,10$,KRNL,NOREGS 	; KERNEL MODE TO ACCESS PHD

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

   00000071'EF            69     DE  0060   273 	MOVAL	PHD$Q_PRIVMSK(R9),PRIVMASK ; GET PRIV MASK ADDRESS

                                     0067   274 	MODE	FROM,10$		; GET BACK TO USER MODE

                                     0068   275 	PRIV	ADD,ALL			; GET ALL PRIVILEGES

                                     0091   276 	DISPSERV			; SET UP DISPLAY INFO FOR TESTSERV

                                     0226   277 	$SETPRT_S INADR=INADR, RETADR=RETADR, -

                                     0226   278 		  PROT=PROT, PRVPRT=PRVPRT

                                     0247   279 					; SET NOACCESS PSECT ...

                                     0247   280 					; ... FOR NO USER ACCESS

                          0A42   31  0247   281 	BRW	EXECUTE			; GO EXECUTE ALL TEST CASES

                                     024A   282 	TC_GROUP	SEF,1,TS1

                                     0271   283 	NEXT_TEST_CASE	SFSEF10

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page   8

1.0             SFSEF10                                                                                                          (1)



   00000091'EF         FF 8F     98  0271   284 	CVTBL	#-1,EFN_SEF10	; ILLEGAL EVENT FLAG NUMBER

                                     0279   285 	NEXT_TEST_CASE	SFSEF11

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page   9

1.0             SFSEF11                                                                                                          (1)



   00000095'EF         80 8F     9A  0285   286 	MOVZBL	#128,EFN_SEF11	; ILLEGAL EVENT FLAG NUMBER

                                     028D   287 	NEXT_TEST_CASE	SFSEF12	

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  10

1.0             SFSEF12                                                                                                          (1)



   00000099'EF       01F4 8F     3C  0299   288 	MOVZWL	#500,EFN_SEF12	; ILLEGAL EVENT FLAG NUMBER

                                     02A2   289 	NEXT_TEST_CASE	SFSEF13

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  11

1.0             SFSEF13                                                                                                          (1)



   0000009D'EF         7F 8F     9A  02AE   290 	MOVZBL	#127,EFN_SEF13	; E.F. IN AN UNASSG'D COMM CLUSTER

                                     02B6   291 	TCEND

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  12

1.0                                                                                                                              (1)



                                     02B7   292 	TC_GROUP	CEF,1,TS2

                                     02DE   293 	NEXT_TEST_CASE	SFCEF10

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  13

1.0             SFCEF10                                                                                                          (1)



   000000A1'EF         FF 8F     98  02DE   294 	CVTBL	#-1,EFN_CEF10	; ILLEGAL EVENT FLAG NUMBER

                                     02E6   295 	NEXT_TEST_CASE	SFCEF11

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  14

1.0             SFCEF11                                                                                                          (1)



   000000A5'EF         80 8F     9A  02F2   296 	MOVZBL	#128,EFN_CEF11	; ILLEGAL EVENT FLAG NUMBER

                                     02FA   297 	NEXT_TEST_CASE	SFCEF12	

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  15

1.0             SFCEF12                                                                                                          (1)



   000000A9'EF       01F4 8F     3C  0306   298 	MOVZWL	#500,EFN_CEF12	; ILLEGAL EVENT FLAG NUMBER

                                     030F   299 	NEXT_TEST_CASE	SFCEF13

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  16

1.0             SFCEF13                                                                                                          (1)



   000000AD'EF         7F 8F     9A  031B   300 	MOVZBL	#127,EFN_CEF13	; E.F. IN AN UNASSG'D COMM CLUSTER

                                     0323   301 	TCEND

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  17

1.0                                                                                                                              (1)



                                     0324   302 	TC_GROUP	REF,1,TS3

                                     034B   303 	NEXT_TEST_CASE	SFREF10

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  18

1.0             SFREF10                                                                                                          (1)



   000000B1'EF         FF 8F     98  034B   304 	CVTBL	#-1,EFN_REF10	; ILLEGAL EVENT FLAG NUMBER

                                     0353   305 	NEXT_TEST_CASE	SFREF11

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  19

1.0             SFREF11                                                                                                          (1)



   000000B5'EF         80 8F     9A  035F   306 	MOVZBL	#128,EFN_REF11	; ILLEGAL EVENT FLAG NUMBER

                                     0367   307 	NEXT_TEST_CASE	SFREF12	

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  20

1.0             SFREF12                                                                                                          (1)



   000000B9'EF       01F4 8F     3C  0373   308 	MOVZWL	#500,EFN_REF12	; ILLEGAL EVENT FLAG NUMBER

                                     037C   309 	NEXT_TEST_CASE	SFREF13

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  21

1.0             SFREF13                                                                                                          (1)



   000000BD'EF         7F 8F     9A  0388   310 	MOVZBL	#127,EFN_REF13	; E.F. IN AN UNASSG'D COMM CLUSTER

                                     0390   311 	NEXT_TEST_CASE	SFREF20

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  22

1.0             SFREF20                                                                                                          (1)



                                     039C   312 	NEXT_TEST_CASE	SFREF21

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  23

1.0             SFREF21                                                                                                          (1)



                                     03A8   313 	NEXT_TEST_CASE	SFREF22

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  24

1.0             SFREF22                                                                                                          (1)



                                     03B4   314 	TCEND

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  25

1.0                                                                                                                              (1)



                                     03B5   315 	TC_GROUP	WFR,1,TS4

                                     03DC   316 	NEXT_TEST_CASE	SFWFR10

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  26

1.0             SFWFR10                                                                                                          (1)



   000000C5'EF         FF 8F     98  03DC   317 	CVTBL	#-1,EFN_WFR10	; ILLEGAL EVENT FLAG NUMBER

                                     03E4   318 	NEXT_TEST_CASE	SFWFR11

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  27

1.0             SFWFR11                                                                                                          (1)



   000000C9'EF         80 8F     9A  03F0   319 	MOVZBL	#128,EFN_WFR11	; ILLEGAL EVENT FLAG NUMBER

                                     03F8   320 	NEXT_TEST_CASE	SFWFR12	

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  28

1.0             SFWFR12                                                                                                          (1)



   000000CD'EF       01F4 8F     3C  0404   321 	MOVZWL	#500,EFN_WFR12	; ILLEGAL EVENT FLAG NUMBER

                                     040D   322 	NEXT_TEST_CASE	SFWFR13

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  29

1.0             SFWFR13                                                                                                          (1)



   000000D1'EF         7F 8F     9A  0419   323 	MOVZBL	#127,EFN_WFR13	; E.F. IN AN UNASSG'D COMM CLUSTER

                                     0421   324 	TCEND

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  30

1.0                                                                                                                              (1)



                                     0422   325 	TC_GROUP	WFO,1,TS5

                                     0449   326 	NEXT_TEST_CASE	SFWFO10

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  31

1.0             SFWFO10                                                                                                          (1)



   000000D5'EF         FF 8F     98  0449   327 	CVTBL	#-1,EFN_WFO10	; ILLEGAL EVENT FLAG NUMBER

                                     0451   328 	NEXT_TEST_CASE	SFWFO11

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  32

1.0             SFWFO11                                                                                                          (1)



   000000D9'EF         80 8F     9A  045D   329 	MOVZBL	#128,EFN_WFO11	; ILLEGAL EVENT FLAG NUMBER

                                     0465   330 	NEXT_TEST_CASE	SFWFO12	

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  33

1.0             SFWFO12                                                                                                          (1)



   000000DD'EF       01F4 8F     3C  0471   331 	MOVZWL	#500,EFN_WFO12	; ILLEGAL EVENT FLAG NUMBER

                                     047A   332 	NEXT_TEST_CASE	SFWFO13

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  34

1.0             SFWFO13                                                                                                          (1)



   000000E1'EF         7F 8F     9A  0486   333 	MOVZBL	#127,EFN_WFO13	; E.F. IN AN UNASSG'D COMM CLUSTER

                                     048E   334 	TCEND

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  35

1.0                                                                                                                              (1)



                                     048F   335 	TC_GROUP	WFA,1,TS6

                                     04B6   336 	NEXT_TEST_CASE	SFWFA10

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  36

1.0             SFWFA10                                                                                                          (1)



   000000E5'EF         FF 8F     98  04B6   337 	CVTBL	#-1,EFN_WFA10	; ILLEGAL EVENT FLAG NUMBER

                                     04BE   338 	NEXT_TEST_CASE	SFWFA11

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  37

1.0             SFWFA11                                                                                                          (1)



   000000E9'EF         80 8F     9A  04CA   339 	MOVZBL	#128,EFN_WFA11	; ILLEGAL EVENT FLAG NUMBER

                                     04D2   340 	NEXT_TEST_CASE	SFWFA12	

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  38

1.0             SFWFA12                                                                                                          (1)



   000000ED'EF       01F4 8F     3C  04DE   341 	MOVZWL	#500,EFN_WFA12	; ILLEGAL EVENT FLAG NUMBER

                                     04E7   342 	NEXT_TEST_CASE	SFWFA13

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  39

1.0             SFWFA13                                                                                                          (1)



   000000F1'EF         7F 8F     9A  04F3   343 	MOVZBL	#127,EFN_WFA13	; E.F. IN AN UNASSG'D COMM CLUSTER

                                     04FB   344 	TCEND

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  40

1.0                                                                                                                              (1)



                                     04FC   345 TS1:

                                     04FC   346 	TESTSERV	SETEF,ERR,SATS,				-

                                     04FC   347                                           				-

                                     04FC   348 	   <1,EFN_SEF,						-

                                     04FC   349 	        	EFN_SEF10,ILLEFC,	-  ; SFSEF10

                                     04FC   350 	        	EFN_SEF11,ILLEFC,	-  ; SFSEF11

                                     04FC   351 	        	EFN_SEF12,ILLEFC,	-  ; SFSEF12

                                     04FC   352 	        	EFN_SEF13,UNASEFC,	-  ; SFSEF13

                                     04FC   353                                                   >,			-

                                     04FC   354  

                                     05D6   355 	TS_CLEANUP		; CLEAN UP & RETURN TO TEST_SERV_EXEC

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  41

1.0                                                                                                                              (1)



                                     05F6   356 TS2:

                                     05F6   357 	TESTSERV	CLREF,ERR,SATS,				-

                                     05F6   358                                           				-

                                     05F6   359 	   <1,EFN_CEF,						-

                                     05F6   360 	        	EFN_CEF10,ILLEFC,	-  ; SFCEF10

                                     05F6   361 	        	EFN_CEF11,ILLEFC,	-  ; SFCEF11

                                     05F6   362 	        	EFN_CEF12,ILLEFC,	-  ; SFCEF12

                                     05F6   363 	        	EFN_CEF13,UNASEFC,	-  ; SFCEF13

                                     05F6   364                                                   >,			-

                                     05F6   365  

                                     06D0   366 	TS_CLEANUP		; CLEAN UP & RETURN TO TEST_SERV_EXEC

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  42

1.0                                                                                                                              (1)



                                     06F0   367 TS3:

                                     06F0   368 	TESTSERV	READEF,ERR,SATS,				-

                                     06F0   369                                           				-

                                     06F0   370 	   <1,EFN_REF,						-

                                     06F0   371 	        	EFN_REF10,ILLEFC,	-  ; SFREF10

                                     06F0   372 	        	EFN_REF11,ILLEFC,	-  ; SFREF11

                                     06F0   373 	        	EFN_REF12,ILLEFC,	-  ; SFREF12

                                     06F0   374 	        	EFN_REF13,UNASEFC,	-  ; SFREF13

                                     06F0   375                                                   >,			-

                                     06F0   376                                           				-

                                     06F0   377 	   <1,STATE_REF,						-

                                     06F0   378 	        	STATE_REF20,ACCVIO,	-  ; SFREF20

                                     06F0   379 	        	STATE_REF21,ACCVIO,	-  ; SFREF21

                                     06F0   380 	        	STATE_REF22,ACCVIO,	-  ; SFREF22

                                     06F0   381                                                   >,			-

                                     06F0   382  

                                     086C   383 	TS_CLEANUP		; CLEAN UP & RETURN TO TEST_SERV_EXEC

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  43

1.0                                                                                                                              (1)



                                     088C   384 TS4:

                                     088C   385 	TESTSERV	WAITFR,ERR,SATS,				-

                                     088C   386                                           				-

                                     088C   387 	   <1,EFN_WFR,						-

                                     088C   388 	        	EFN_WFR10,ILLEFC,	-  ; SFWFR10

                                     088C   389 	        	EFN_WFR11,ILLEFC,	-  ; SFWFR11

                                     088C   390 	        	EFN_WFR12,ILLEFC,	-  ; SFWFR12

                                     088C   391 	        	EFN_WFR13,UNASEFC,	-  ; SFWFR13

                                     088C   392                                                   >,			-

                                     088C   393  

                                     0967   394 	TS_CLEANUP		; CLEAN UP & RETURN TO TEST_SERV_EXEC

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  44

1.0                                                                                                                              (1)



                                     0987   395 TS5:

                                     0987   396 	TESTSERV	WFLOR,ERR,SATS,				-

                                     0987   397                                           				-

                                     0987   398 	   <1,EFN_WFO,						-

                                     0987   399 	        	EFN_WFO10,ILLEFC,	-  ; SFWFO10

                                     0987   400 	        	EFN_WFO11,ILLEFC,	-  ; SFWFO11

                                     0987   401 	        	EFN_WFO12,ILLEFC,	-  ; SFWFO12

                                     0987   402 	        	EFN_WFO13,UNASEFC,	-  ; SFWFO13

                                     0987   403                                                   >,			-

                                     0987   404                                           				-

                                     0987   405 	   <1,MASK_WFO,						-

                                     0987   406                                                   >,			-

                                     0987   407  

                                     0AE9   408 	TS_CLEANUP		; CLEAN UP & RETURN TO TEST_SERV_EXEC

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  45

1.0                                                                                                                              (1)



                                     0B09   409 TS6:

                                     0B09   410 	TESTSERV	WFLAND,ERR,SATS,				-

                                     0B09   411                                           				-

                                     0B09   412 	   <1,EFN_WFA,						-

                                     0B09   413 	        	EFN_WFA10,ILLEFC,	-  ; SFWFA10

                                     0B09   414 	        	EFN_WFA11,ILLEFC,	-  ; SFWFA11

                                     0B09   415 	        	EFN_WFA12,ILLEFC,	-  ; SFWFA12

                                     0B09   416 	        	EFN_WFA13,UNASEFC,	-  ; SFWFA13

                                     0B09   417                                                   >,			-

                                     0B09   418                                           				-

                                     0B09   419 	   <1,MASK_WFA,						-

                                     0B09   420                                                   >,			-

                                     0B09   421  

                                     0C6C   422 	TS_CLEANUP		; CLEAN UP & RETURN TO TEST_SERV_EXEC

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  46

1.0             EXECUTE & CLEANUP                                                                                                (1)



                                     0C8C   423 	.SBTTL	EXECUTE & CLEANUP

                                     0C8C   424 EXECUTE:

                                     0C8C   425 	TEST_SERV_EXEC			; EXECUTE ALL T. CASES IN ALL GROUPS

                                     0CC8   426 	.MDELETE (PRIV,TC_GROUP,NEXT_TEST_CASE, -

                           0000000D  0CC8   427 		  TCEND,TESTSERV,TS_CLEANUP,TEST_SERV_EXEC)

                                     0CC8   428 					; DELETE MACRO DEFINITIONS

                                     0CC8   429 CLEANUP:

                          0138   30  0CC8   430 	BSBW	MOD_MSG_PRINT		; PRINT TEST MODULE END MSG

            1C            01     F0  0CCB   431 	INSV	#1,#STS$V_INHIB_MSG,#1,MOD_MSG_CODE 

   00000044'EF            01         0CCE       

                                     0CD4   432 					; INHIBIT PRINTING

                                     0CD4   433 	$EXIT_S	MOD_MSG_CODE		; EXIT TO OP SYS WITH MSG CODE

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  47

1.0             TC_CONTROL                                                                                                       (1)



                                     0CE1   435 	.SBTTL	TC_CONTROL

                                     0CE1   436 ;++

                                     0CE1   437 ; FUNCTIONAL DESCRIPTION:

                                     0CE1   438 ;

                                     0CE1   439 ;		THE TC_CONTROL SUBROUTINE IS CALLED BY THE TEST_SERV_EXEC

                                     0CE1   440 ; MACRO TO EXECUTE A GROUP OF TEST CASES. A GROUP IS DEFINED BY A TC_GROUP

                                     0CE1   441 ; MACRO. FOR EACH TC_GROUP MACRO, THERE IS A CORRESPONDING TESTSERV MACRO.

                                     0CE1   442 ; TESTSERV CONTAINS CODE TO EXECUTE SYSTEM SERVICES AND CHECK THE RETURNED

                                     0CE1   443 ; STATUS CODE VALUES. TESTSERV ARGUMENTS ARE CODED TO SPECIFY ALL THE SYSTEM

                                     0CE1   444 ; SERVICE ARGUMENT VALUES AND THE EXPECTED STATUS CODE FOR EACH TEST CASE

                                     0CE1   445 ; DEFINED BY A NEXT_TEST_CASE MACRO WITHIN THE GROUP. TC_CONTROL USES A

                                     0CE1   446 ; CO-ROUTINE INTERFACE TO ENTER THE CODE OF THE APPROPRIATE TESTSERV MACRO

                                     0CE1   447 ; IN VARIOUS PLACES. THE FIRST ENTRY OCCURS ONCE PER GROUP TO ALLOW TESTSERV

                                     0CE1   448 ; TO DO SOME INITIALIZATION. THEN TWO ENTRIES ARE MADE FOR EACH TEST CASE IN

                                     0CE1   449 ; THE GROUP. THE FIRST ALLOWS TESTSERV TO ISSUE THE SUBJECT SYSTEM SERVICE.

                                     0CE1   450 ; THE SECOND ENTRY FOR THE TEST CASE CAUSES TESTSERV TO CHECK THE RETURNED

                                     0CE1   451 ; STATUS CODE, PRINTING A FAILURE MESSAGE IF IT IS NOT THE EXPECTED CODE.

                                     0CE1   452 ; IF THERE ARE NO MORE TEST CASES IN THE CURRENT GROUP, TESTSERV (NOT TC_CONTROL)

                                     0CE1   453 ; RETURNS DIRECTLY TO TEST_SERV_EXEC (RSB ACTUALLY ISSUED IN TS_CLEANUP MACRO)

                                     0CE1   454 ; FROM THIS SECOND ENTRY; OTHERWISE, CONTROL RETURNS TO TC_CONTROL WHICH

                                     0CE1   455 ; IN TURN ENTERS TESTSERV AGAIN FOR THE NEXT TEST CASE. THE FAILURE OF A

                                     0CE1   456 ; TEST CASE DOES NOT CAUSE TERMINATION OF THE TEST MODULE.

                                     0CE1   457 ;

                                     0CE1   458 ; CALLING SEQUENCE:

                                     0CE1   459 ;

                                     0CE1   460 ;	BSBW TC_CONTROL (ISSUED WITHIN THE TEST_SERV_EXEC MACRO)

                                     0CE1   461 ;			(RSB IS ISSUED WITHIN THE TS_CLEANUP MACRO)

                                     0CE1   462 ;

                                     0CE1   463 ; INPUT PARAMETERS:

                                     0CE1   464 ;

                                     0CE1   465 ;	NONE

                                     0CE1   466 ;

                                     0CE1   467 ; IMPLICIT INPUTS:

                                     0CE1   468 ;

                                     0CE1   469 ;	ARGUMENTS SPECIFIED ON EACH TESTSERV MACRO MAY BE VIEWED AS

                                     0CE1   470 ;	INPUTS, SINCE TC_CONTROL AND TESTSERV ACT AS CO-ROUTINES.

                                     0CE1   471 ;

                                     0CE1   472 ; OUTPUT PARAMETERS:

                                     0CE1   473 ;

                                     0CE1   474 ;	SEVERITY CODE FIELD OF MOD_MSG_CODE (BITS 0,1,2) IS SET TO ERROR

                                     0CE1   475 ;	IF ANY TEST CASE IN THE CURRENT GROUP FAILS; OTHERWISE IT REMAINS

                                     0CE1   476 ;	SET TO SUCCESSFUL.

                                     0CE1   477 ;

                                     0CE1   478 ; IMPLICIT OUTPUTS:

                                     0CE1   479 ;

                                     0CE1   480 ;	%UETP-I-TEXT,   ERROR MESSAGES ARE WRITTEN TO SYS$OUTPUT BY

                                     0CE1   481 ;			THE TESTSERV MACRO (CO-ROUTINE WITH TC_CONTROL)

                                     0CE1   482 ;

                                     0CE1   483 ; COMPLETION CODES:

                                     0CE1   484 ;

                                     0CE1   485 ;	NONE

                                     0CE1   486 ;

                                     0CE1   487 ; SIDE EFFECTS:

                                     0CE1   488 ;

                                     0CE1   489 ;	NONE

                                     0CE1   490 ;

                                     0CE1   491 ;--

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  48

1.0             TC_CONTROL                                                                                                       (1)



                                     0CE1   492 

                                     0CE1   493 

                                     0CE1   494 

                                     0CE1   495 TC_CONTROL:

                 00000064'EF     DD  0CE1   496 	PUSHL	TS_EP			; PUSH TESTSERV ENTRY POINT

                          9E     16  0CE7   497 	JSB	@(SP)+			; ENTER TESTSERV INITIALIZATION

                                     0CE9   498 10$:					; PROCESS NEXT TEST CASE

   00000056'EF            20     90  0CE9   499 	MOVB	#^A/ /,$$TSTN$$+2 	; MAKE SURE T.C. NAME HAS A BLANK

                          002F   30  0CF0   500 	BSBW	REG_SAVE		; SAVE REGISTERS

                 00000004'FF     16  0CF3   501 	JSB	@CURRENT_TC		; JUMP TO CURRENT TEST CASE

                          0037   30  0CF9   502 	BSBW	REG_REST		; RESTORE REGS FOR TESTSERV

                          9E     16  0CFC   503 	JSB	@(SP)+			; LET TESTSERV ISSUE SYSTEM SERVICE

                          0042   30  0CFE   504 	BSBW	REG_COMP		; COMPARE REGS TO SEE IF ...

                                     0D01   505 					; ... SYSTEM SERVICE CHANGED ANY

                          9E     16  0D01   506 	JSB	@(SP)+			; LET TESTSERV CHEK S.S. STATUS CODE

   00000056'EF            2A     91  0D03   507 	CMPB	#^A/*/,$$TSTN$$+2	; HAS TESTSERV INDICATED FAILURE ?

                          DD     12  0D0A   508 	BNEQU	10$			; NO -- PROCESS NEXT TEST CASE

   00000060'EF   00000088'EF     DE  0D0C   509 	MOVAL	TEST_MOD_FAIL,TMD_ADDR	; YES -- INDICATE FAILED IN END MSG

            00            02     F0  0D17   510 	INSV	#ERROR,#0,#3,MOD_MSG_CODE ; ADJUST STATUS CODE FOR ERROR

   00000044'EF            03         0D1A       

                          C7     11  0D20   511 	BRB	10$			; LOOP BAK TO PROCESS NEXT TEST CASE

                                     0D22   512 ;

                                     0D22   513 ;   TC_CONTROL RETURNS TO TEST_SERV_EXEC VIA TESTSERV (IN TS_CLEANUP MACRO)

                                     0D22   514 ;

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  49

1.0             SUBROUTINES                                                                                                      (1)



                                     0D22   516 	.SBTTL	SUBROUTINES

                                     0D22   517 REG_SAVE:

                                     0D22   518 ;

                                     0D22   519 ;  *****************************************************************

                                     0D22   520 ;  *                                                               *

                                     0D22   521 ;  *  SAVES R0 THRU SP IN REG_SAVE_AREA                            *

                                     0D22   522 ;  *                                                               *

                                     0D22   523 ;  *****************************************************************

                                     0D22   524 ;

                     7FFF 8F     BB  0D22   525 	PUSHR	#R0_THRU_SP		; SAVE ALL REGS ON STACK

            6E            3C     28  0D26   526 	MOVC3	#60,(SP),REG_SAVE_AREA	; SAVE REGS (BEFORE S.S.)

                 00000008'EF         0D29       

                     7FFF 8F     BA  0D2E   527 	POPR	#R0_THRU_SP		; CLEAN UP STACK

                                 05  0D32   528 	RSB				; .... AND RETURN

                                     0D33   529 ;

                                     0D33   530 ;

                                     0D33   531 ;

                                     0D33   532 ;

                                     0D33   533 REG_REST:

                                     0D33   534 ;

                                     0D33   535 ;

                                     0D33   536 ;  *****************************************************************

                                     0D33   537 ;  *                                                               *

                                     0D33   538 ;  *  RESTORES R0 THRU SP FROM REG_SAVE_AREA                       *

                                     0D33   539 ;  *                                                               *

                                     0D33   540 ;  *****************************************************************

                                     0D33   541 ;

            5E            3C     C2  0D33   542 	SUBL2	#60,SP			; MOVE SP TO MAKE ROOM FOR REGS

   00000008'EF            3C     28  0D36   543 	MOVC3	#60,REG_SAVE_AREA,(SP)	; MOVE REGS ONTO STACK FOR POP

                          6E         0D3D       

                     7FFF 8F     BA  0D3E   544 	POPR	#R0_THRU_SP		; RESTORE ALL REGS FOR TESTSERV

                                 05  0D42   545 	RSB				; ... AND RETURN

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  50

1.0             SUBROUTINES                                                                                                      (1)



                                     0D43   547 REG_COMP:

                                     0D43   548 ;

                                     0D43   549 ;  *****************************************************************

                                     0D43   550 ;  *                                                               *

                                     0D43   551 ;  *  1) PUSHES ALL REGS ONTO STACK                                *

                                     0D43   552 ;  *  2) COMPARES REGISTER IMAGES FROM STACK WITH CORRESPONDING    *

                                     0D43   553 ;  *       IMAGES FROM REG_SAVE_AREA FOR ALL REGISTERS SPECIFIED   *

                                     0D43   554 ;  *       IN REG_COMP_MASK.                                       *

                                     0D43   555 ;  *  3) FOR EACH UNEQUAL COMPARE, AN ERROR MESSAGE IS PRINTED     *

                                     0D43   556 ;  *       (USING $FAO AND $OUTPUT SYSTEM SERVICES).               *

                                     0D43   557 ;  *  4) POPS ALL REGS OFF OF STACK                                *

                                     0D43   558 ;  *                                                               *

                                     0D43   559 ;  *****************************************************************

                                     0D43   560 ;

                     7FFF 8F     BB  0D43   561 	PUSHR	#R0_THRU_SP		; SAVE ALL REGISTERS ON STACK

            56   00000008'EF     DE  0D47   562 	MOVAL	REG_SAVE_AREA,R6 	; POINT R6 TO BEG OF ...

                                     0D4E   563 					; ... REGS (BEFORE S.S.)

            54            5E     D0  0D4E   564 	MOVL	SP,R4			; POINT R4 TO BEG OF

                                     0D51   565 					; ... REGS (AFTER S.S.)

            53         FF 8F     98  0D51   566 	CVTBL	#-1,R3			; INITIALIZE REG_COMP_MASK INDEX

                                     0D55   567 REG_COMP_NEXT:

                          53     D6  0D55   568 	INCL	R3			; POINT TO NEXT BIT IN MASK

            53            0F     91  0D57   569 	CMPB	#15,R3			; END OF THE MASK ?

                          03     1A  0D5A   570 	BGTRU	REG_COMP_CONT		; NO -- CONTINUE

                          009F   31  0D5C   571 	BRW	REG_COMP_RSB		; YES -- GO TO COMMON RETURN

                                     0D5F   572 REG_COMP_CONT:

            84            86     D1  0D5F   573 	CMPL	(R6)+,(R4)+		; REG BEFORE = REG AFTER ?

                          F1     13  0D62   574 	BEQLU	REG_COMP_NEXT		; YES -- LOOK FOR NEXT REG

   00000000'EF            53     E1  0D64   575 	BBC	R3,REG_COMP_MASK,REG_COMP_NEXT

                          E9         0D6B       

                                     0D6C   576 					; NO -- GET NEXT IF BIT NOT SET

   00000048'EF            53     D0  0D6C   577 	MOVL	R3,CLOB_REG_NO		; NO -- GIVE REG NUMBER TO FAO

   0000004C'EF         FC A6     D0  0D73   578 	MOVL	-4(R6),REG_BEFORE_SS 	; GIVE "BEFORE" CONTENTS TO FAO

   00000050'EF         FC A4     D0  0D7B   579 	MOVL	-4(R4),REG_AFTER_SS  	; GIVE "AFTER" CONTENTS TO FAO

   00000056'EF            2A     90  0D83   580 	MOVB	#^A/*/,$$TSTN$$+2 	; GIVE FAILURE INDIC'N IN ERROR MSG

                                     0D8A   581 ;

                                     0D8A   582 	$FAO_S	ERR_MSG_FAOCTL,OUTL,OUTD,$$SNAD$$,  -

                                     0D8A   583 		$$ASEQ$$,$$PSEQ$$,CLOB_REG_NO,REG_BEFORE_SS,REG_AFTER_SS

                                     0DBD   584 ;

       F359 CF       F323 CF     B0  0DBD   585 	MOVW	OUTL,OUTD		; ACTUAL OUTPUT LEN IN STRING DESC'R

                                     0DC4   586 	PUTMSG	<#UETP$_TEXT,#1,#OUTD>	; PRINT THE MSG

       F33D CF       0084 8F     B0  0DD9   587 	MOVW	#OUTE-OUTB,OUTD		; GET MAX LEN BACK INTO DESCRIPTOR

   00000056'EF            20     90  0DE0   588 	MOVB	#^A/ /,$$TSTN$$+2 	; REMOVE FAIL INDIC'N FOR NEXT MSG

   00000060'EF   00000088'EF     DE  0DE7   589 	MOVAL	TEST_MOD_FAIL,TMD_ADDR	; INDICATE FAILED IN END MSG

            00            02     F0  0DF2   590 	INSV	#ERROR,#0,#3,MOD_MSG_CODE ; ADJUST STATUS CODE FOR ERROR

   00000044'EF            03         0DF5       

                          FF57   31  0DFB   591 	BRW	REG_COMP_NEXT		; GO LOOK FOR NEXT REG TO COMPARE

                                     0DFE   592 REG_COMP_RSB:

                     7FFF 8F     BA  0DFE   593 	POPR	#R0_THRU_SP		; CLEAN UP STACK

                                 05  0E02   594 	RSB				; RETURN TO CALLER

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  51

1.0             SUBROUTINES                                                                                                      (1)



                                     0E03   596 MOD_MSG_PRINT:

                                     0E03   597 ;

                                     0E03   598 ;  *****************************************************************

                                     0E03   599 ;  *                                                               *

                                     0E03   600 ;  *  PRINTS THE TEST MODULE BEGUN/SUCCESSFUL/FAILED MESSAGES      *

                                     0E03   601 ;  *	   (USING THE PUTMSG MACRO).                               *

                                     0E03   602 ;  *                                                               *

                                     0E03   603 ;  *****************************************************************

                                     0E03   604 ;

                                     0E03   605 	PUTMSG	<MOD_MSG_CODE,#2,TMN_ADDR,TMD_ADDR> ; PRINT MSG

                                 05  0E1E   606 	RSB				; ... AND RETURN TO CALLER

                                     0E1F   607 ;

                                     0E1F   608 CHMRTN:

                                     0E1F   609 ; **********************************************************

                                     0E1F   610 ; *

                                     0E1F   611 ; *	CHANGE MODE ROUTINE. THIS ROUTINE GETS CONTROL WHENEVER

                                     0E1F   612 ; *	A CMKRNL, CMEXEC, OR CMSUP SYSTEM SERVICE IS ISSUED

                                     0E1F   613 ; *	BY THE MODE MACRO ('TO' OPTION).  IT MERELY DOES 

                                     0E1F   614 ; *	A JUMP INDIRECT ON A FIELD SET UP BY MODE. IT HAS 

                                     0E1F   615 ; *	THE EFFECT OF RETURNING TO THE END OF THE MODE

                                     0E1F   616 ; *	MACRO EXPANSION.

                                     0E1F   617 ; *

                                     0E1F   618 ; *************************************************************

                                     0E1F   619 ;

                               0000  0E1F   620 	.WORD	0			; ENTRY MASK

                 00000079'FF     17  0E21   621 	JMP	@CHM_CONT		; RETURN TO MODE MACRO IN NEW MODE

                                     0E27   622 ;

                                     0E27   623 ; *	RET INSTR WILL BE ISSUED IN EXPANSION OF 'MODE FROM, ....' MACRO

                                     0E27   624 ;

                                     0E27   625 	.END	SATSSF02

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  52

SYMBOL TABLE                                                                                                                     (1)



$$$CHARS       = 00000048            EXECUTE          00000C8C R     07   REG_COMP_NEXT    00000D55 R     07   

$$$FIRSTTC$$$  = 00000000            GBL...         = 00000000            REG_COMP_RSB     00000DFE R     07   

$$$STRINGS     = 00000000            GRP_TOTAL      = 00000006            REG_REST         00000D33 R     07   

$$ACT$$          000000FC R     07   INADR            000000A9 R     03   REG_SAVE         00000D22 R     07   

$$ARG$$          00000104 R     07   INFO           = 00000003            REG_SAVE_AREA    00000008 R     04   

$$ASEQ$$         000000F4 R     07   LIB$SIGNAL       ********   X   07   RETADR           00000068 R     04   

$$CALL$$         000000E8 R     07   MASK_WFA         000000DD R     03   SATSSF02         00000000 R     07   

$$DISP$$         000001EF R     07   MASK_WFO         000000D5 R     03   SEVERE         = 00000004            

$$ERR$$          000001A9 R     07   MEXIT          = 00000000            SHR$K_SHRDEF   = 00000001            

$$EXP$$          00000100 R     07   MOD_MSG_CODE     00000044 R     04   SHR$_ABEND     = 000010D8            

$$INIT$$         000000EC R     07   MOD_MSG_PRINT    00000E03 R     07   SHR$_ABENDD    = 000010E0            

$$MAXP$$       = 00000005            NARGS          = 0000000E            SHR$_ABENDT    = 000010E8            

$$PSEQ$$         000000F8 R     07   NOACCESS         00000000 R     06   SHR$_APPENDEDB = 00001000            

$$SNAD$$         000000F0 R     07   ONES             000000B5 R     03   SHR$_APPENDEDR = 00001008            

$$T1           = 00000004            OUTB             00000125 R     07   SHR$_ATPC      = 00001158            

$$T2           = 00000009            OUTD             0000011D R     07   SHR$_BADBYTE   = 00001010            

$$TSTN$$         00000054 R     04   OUTE             000001A9 R     07   SHR$_BADCOPIES = 00001160            

BIT...         = 00001258            OUTL             000000E4 R     07   SHR$_BADDELIM  = 00001118            

CHMRTN           00000E1F R     07   PCB$L_UIC      = 00000020            SHR$_BADFIELD  = 00001018            

CHM_CONT         00000079 R     04   PHD$Q_PRIVMSK  = 00000000            SHR$_BADFORM   = 00001168            

CLEANUP          00000CC8 R     07   PRIVMASK         00000071 R     04   SHR$_BADJOBID  = 00001170            

CLOB_REG_NO      00000048 R     04   PROT             000000B1 R     03   SHR$_BADJOBNAME= 00001178            

CTL$GL_PHD       ********   X   07   PRT$C_NA         ********   X   03   SHR$_BADKEY    = 00001108            

CURRENT_TC       00000004 R     04   PRV$V_ALLSPOOL = 00000004            SHR$_BADLOGIC  = 00001120            

EFN_CEF          000000C1 R     03   PRV$V_BUGCHK   = 00000017            SHR$_BADLOGICPC= 00001150            

EFN_CEF10        000000A1 R     04   PRV$V_CMEXEC   = 00000001            SHR$_BADLONG   = 00001020            

EFN_CEF11        000000A5 R     04   PRV$V_CMKRNL   = 00000000            SHR$_BADPRTY   = 00001180            

EFN_CEF12        000000A9 R     04   PRV$V_DETACH   = 00000005            SHR$_BADQNAME  = 00001188            

EFN_CEF13        000000AD R     04   PRV$V_DIAGNOSE = 00000006            SHR$_BADTIME   = 00001190            

EFN_REF          000000C5 R     03   PRV$V_EXQUOTA  = 00000013            SHR$_BADVALUE  = 00001110            

EFN_REF10        000000B1 R     04   PRV$V_GROUP    = 00000008            SHR$_BADWORD   = 00001028            

EFN_REF11        000000B5 R     04   PRV$V_GRPNAM   = 00000003            SHR$_BEGIN     = 00001030            

EFN_REF12        000000B9 R     04   PRV$V_LOG_IO   = 00000007            SHR$_BEGIND    = 00001038            

EFN_REF13        000000BD R     04   PRV$V_MOUNT    = 00000011            SHR$_BEGINT    = 00001040            

EFN_SEF          000000BD R     03   PRV$V_NETMBX   = 00000014            SHR$_CLICB     = 00001048            

EFN_SEF10        00000091 R     04   PRV$V_NOACNT   = 00000009            SHR$_CLOSEDEL  = 00001218            

EFN_SEF11        00000095 R     04   PRV$V_OPER     = 00000012            SHR$_CLOSEIN   = 00001050            

EFN_SEF12        00000099 R     04   PRV$V_PHY_IO   = 00000016            SHR$_CLOSEOUT  = 00001058            

EFN_SEF13        0000009D R     04   PRV$V_PRMCEB   = 0000000A            SHR$_CONFDEL   = 000011F8            

EFN_WFA          000000D9 R     03   PRV$V_PRMGBL   = 00000018            SHR$_COPIEDB   = 00001060            

EFN_WFA10        000000E5 R     04   PRV$V_PRMMBX   = 0000000B            SHR$_COPIEDR   = 00001068            

EFN_WFA11        000000E9 R     04   PRV$V_PSWAPM   = 0000000C            SHR$_CREATED   = 00001070            

EFN_WFA12        000000ED R     04   PRV$V_SETPRI   = 0000000D            SHR$_DELETED   = 00001200            

EFN_WFA13        000000F1 R     04   PRV$V_SETPRV   = 0000000E            SHR$_DELINTERR = 00001240            

EFN_WFO          000000D1 R     03   PRV$V_SYSGBL   = 00000019            SHR$_DELVER    = 00001208            

EFN_WFO10        000000D5 R     04   PRV$V_SYSNAM   = 00000002            SHR$_DIRTOOBUS = 00001220            

EFN_WFO11        000000D9 R     04   PRV$V_TMPMBX   = 0000000F            SHR$_ENDED     = 00001078            

EFN_WFO12        000000DD R     04   PRV$V_VOLPRO   = 00000015            SHR$_ENDEDD    = 00001080            

EFN_WFO13        000000E1 R     04   PRV$V_WORLD    = 00000010            SHR$_ENDEDT    = 00001088            

EFN_WFR          000000CD R     03   PRVPRT           00000070 R     04   SHR$_FILNOTDEL = 000011F0            

EFN_WFR10        000000C5 R     04   R0_THRU_SP     = 00007FFF            SHR$_FILNOTPUR = 00001230            

EFN_WFR11        000000C9 R     04   REGS             0000007D R     04   SHR$_FILPURGED = 00001250            

EFN_WFR12        000000CD R     04   REG_AFTER_SS     00000050 R     04   SHR$_HASHCONCAT= 000011D8            

EFN_WFR13        000000D1 R     04   REG_BEFORE_SS    0000004C R     04   SHR$_HIGHVER   = 00001148            

EMPTY            00000000 R     05   REG_COMP         00000D43 R     07   SHR$_IDXCONCAT = 00001138            

ERROR          = 00000002            REG_COMP_CONT    00000D5F R     07   SHR$_INCOMPAT  = 000011E0            

ERR_MSG_FAOCTL   00000002 R     03   REG_COMP_MASK    00000000 R     03   SHR$_NEWFILES  = 00001090            

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  53

SYMBOL TABLE                                                                                                                     (1)



SHR$_NOFILPURG = 00001228            TC_CONTROL       00000CE1 R     07   

SHR$_NOJOBID   = 000011A0            TEST_MOD_BEG     00000077 R     03   

SHR$_NOJOBNAME = 000011A8            TEST_MOD_FAIL    00000088 R     03   

SHR$_NOQUEUE   = 00001198            TEST_MOD_NAME    0000006E R     03   

SHR$_NOTCMPLT  = 000011C0            TEST_MOD_NAME_D  0000008F R     03   

SHR$_NOTCOPIED = 000011B8            TEST_MOD_SUCC    0000007D R     03   

SHR$_NOVALUE   = 00001100            TMD_ADDR         00000060 R     04   

SHR$_NOWILD    = 00001128            TMN_ADDR         0000005C R     04   

SHR$_OPENIN    = 00001098            TPID             00000000 R     04   

SHR$_OPENOUT   = 000010A0            TS1              000004FC R     07   

SHR$_OVERLAY   = 000010A8            TS2              000005F6 R     07   

SHR$_PARSEFAIL = 00001248            TS3              000006F0 R     07   

SHR$_PURGEVER  = 00001210            TS4              0000088C R     07   

SHR$_READERR   = 000010B0            TS5              00000987 R     07   

SHR$_RELCONCAT = 00001140            TS6              00000B09 R     07   

SHR$_REPLACED  = 000010B8            TS_EP            00000064 R     04   

SHR$_RMSERROR  = 000011C8            TTNAME           0000009F R     03   

SHR$_SEARCHFAIL= 00001238            UETP$_ABORTC   = 0074832B            

SHR$_SYNTAX    = 000010F8            UETP$_CONF     = 007480D1            

SHR$_SYSERROR  = 000011B0            UETP$_DATAER   = 00748010            

SHR$_SYSERRORPC= 000010F0            UETP$_DDB      = 007480E1            

SHR$_TEXT      = 00001130            UETP$_DENOSU   = 00748333            

SHR$_UNXPCTSTS = 000011D0            UETP$_DESTP    = 007481A2            

SHR$_VALERR    = 000011E8            UETP$_DEUNUS   = 0074819A            

SHR$_WILDCONCAT= 000010C0            UETP$_ERBOX    = 00748008            

SHR$_WILDOUTVER= 000010C8            UETP$_SATSMS   = 007480D9            

SHR$_WRITEERR  = 000010D0            UETP$_TEXT     = 00741133            

SS$_ACCVIO       ********   X   07   UETP$_UCB      = 007480E9            

SS$_ILLEFC       ********   X   07   UETP$_USER     = 0074833B            

SS$_UNASEFC      ********   X   07   WARNING        = 00000000            

STATE_REF        000000C1 R     04   

STATE_REF20    = 00000001            

STATE_REF21      000000C9 R     03   

STATE_REF22    = 000001FF R     05   

STS$V_INHIB_MSG= 0000001C            

SUCCESS        = 00000001            

SYS$CLREF        ********   X   07   

SYS$CMKRNL       ********   X   07   

SYS$EXIT         ********   X   07   

SYS$FAO          ********   X   07   

SYS$FAOL         ********   X   07   

SYS$HIBER        ********   X   07   

SYS$READEF       ********   X   07   

SYS$SETEF        ********   X   07   

SYS$SETPRN       ********   X   07   

SYS$SETPRT       ********   X   07   

SYS$WAITFR       ********   X   07   

SYS$WAKE         ********   X   07   

SYS$WFLAND       ********   X   07   

SYS$WFLOR        ********   X   07   

TC1              0000024A R     07   

TC2              000002B7 R     07   

TC3              00000324 R     07   

TC4              000003B5 R     07   

TC5              00000422 R     07   

TC6              0000048F R     07   

TCG_NO         = 00000006            

SATSSF02        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:39:15   VAX-11 MACRO X0.3-11               Page  54

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$            00000000      02     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  

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

RWDATA           000000F5      04     NOPIC   USR   CON   REL   LCL NOSHR NOEXE   RD    WRT BYTE  

SATS_ACCVIO_1    00000200      05     NOPIC   USR   CON   REL   LCL NOSHR NOEXE   RD    WRT PAGE  

SATS_ACCVIO_2    00000200      06     NOPIC   USR   CON   REL   LCL NOSHR NOEXE   RD    WRT PAGE  

SATSSF02         00000E27      07     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT LONG  





THERE WERE NO ERRORS OR WARNINGS.

8642. BYTES LEFT IN FREE MEMORY POOL.

2996. BYTES OF RECLAIMED MEMORY.

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

56 MLB DIR RDS - 892 GETS TO DEFINE 45 MACROS. 56 INTER. FILE WRITES. 

