SATSSF16        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:56:45   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      46  DECLARATIONS

   (1)     182  SATSSF16

   (1)     269  SFFAO10

   (1)     291  SFFAO30

   (1)     314  

   (1)     318  SFFAL10

   (1)     340  SFFAL30

   (1)     363  

   (1)     367  SFSNE10

   (1)     391  SFSNE11

   (1)     414  

   (1)     463  EXECUTE & CLEANUP

   (1)     475  TC_CONTROL

   (1)     556  SUBROUTINES

SATSSF16        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:56:45   VAX-11 MACRO X0.3-11               Page   1

1.0                                                                                                                              (1)



                                     0000     1 	.TITLE	SATSSF16 - 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 SATSSF16 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 ;--

SATSSF16        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:56:45   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 	$PHDDEF				; PROCESS HEADER OFFSET SYMBOLS

                                     0000    51 	$PCBDEF				; PROCESS CONTROL BLOCK OFFSET SYMBS

                                     0000    52 	$STSDEF				; STATUS MESSAGE SYMBOLS

                           00000003  0000    53 	.MDELETE ($PHDDEF,$PCBDEF,$STSDEF) ; GET RID OF MACRO DEFINITIONS

                                     0000    54 	$PRVDEF				; SYMBOL DEFS FOR PRIVILEGES

                                     0000    55 	$UETPDEF			; UETP MSG CODE DEFINITIONS

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

                                     0000    57 					; DEFINE UETP$_TEXT

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

                                     0000    59 					; GET RID OF MACRO DEFINITIONS

                                     0000    60 ;

                                     0000    61 ; MACROS:

                                     0000    62 ;

                                     0000    63 ;

                                     0000    64 ; EQUATED SYMBOLS:

                                     0000    65 ;

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

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

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

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

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

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

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

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

                                     0000    74 ;

                                     0000    75 ; OWN STORAGE:

                                     0000    76 ;

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

1.0             DECLARATIONS                                                                                                     (1)



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

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

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

                                     0002    81 					; ... BIT MUST BE ON

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

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

                                     006E    84 TEST_MOD_NAME:	STRING	C,<SATSSF16>	; TEST MODULE NAME

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

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

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

                                     008F    88 TEST_MOD_NAME_D: STRING	I,<SATSSF16>	; TEST MODULE NAME DESCRIPTOR

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

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

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

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

                                     00BD    93 CTRSTR_FAO:				; CTRSTR ARGUMENT FOR FAO

                                     00BD    94 CTRSTR_FAL:				; CTRSTR ARGUMENT FOR FAOL

                                     00BD    95 		STRING	I,<TEST: !AC>

                                     00CE    96 CTRSTR_FAO10:				; CTRSTR ARGUMENT FOR FAO

                                     00CE    97 CTRSTR_FAL10:				; CTRSTR ARGUMENT FOR FAOL

                                     00CE    98 		STRING	I,<TEST: !BC>

                           000000E3' 00DF    99 P1_FAO:		.ADDRESS COUNTED_STR	; P1 ARGUMENT FOR FAO

                                     00E3   100 COUNTED_STR:	STRING	C,<A VALID COUNTED STRING>

                           00000000  00FA   101 P2_FAO:		.LONG	0		; P2 ARGUMENT FOR FAO

                           000000DF' 00FE   102 PRMLST_FAL:	.ADDRESS P1_FAO		; PRMLST ARGUMENT FOR FAOL

                                     0102   103 MSGBUF_SNE:

                                     0102   104 MSGBUF_SNE10:	STRING	I,<SATSSF16 ERROR LOG BUFFER> ; MSGBUF ARG FOR SNDERR

                                     0123   105 MY_DISK:	STRING	I,<SYS$DISK>	; LOGICAL NAME FOR USER DISK

SATSSF16        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:56:45   VAX-11 MACRO X0.3-11               Page   4

1.0             DECLARATIONS                                                                                                     (1)



                                 00000000   107 	.PSECT	RWDATA,RD,WRT,NOEXE

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

                                     0091   126 OUTLEN_FAO:				; OUTLEN ARGUMENT FOR FAO

                                     0091   127 OUTLEN_FAL:				; OUTLEN ARGUMENT FOR FAOL

                           00000093  0091   128 		.BLKW	1

                                     0093   129 OUTBUF_FAO:				; OUTBUF ARGUMENT FOR FAO

                                     0093   130 OUTBUF_FAL:				; OUTBUF ARGUMENT FOR FAOL

                                     0093   131 		STRING	O,50

                                     00CD   132 OUTBUF_FAO30:				; OUTBUF ARGUMENT FOR FAO

                                     00CD   133 OUTBUF_FAL30:				; OUTBUF ARGUMENT FOR FAOL

                                     00CD   134 		STRING	O,1

SATSSF16        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:56:45   VAX-11 MACRO X0.3-11               Page   5

1.0             DECLARATIONS                                                                                                     (1)



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

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

                                     0200   138 ;

                                     0200   139 ; + 

                                     0200   140 ; ******************************************************************

                                     0200   141 ; *                                                                *

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

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

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

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

                                     0200   146 ; *                                                                *

                                     0200   147 ; ******************************************************************

                                     0200   148 ; -

                                     0200   149 ;

                                     0200   150 ; TYPE AAAAA_SSSX1 (TYPE AAAAA_SSSX2 IF NOT DESC) GO HERE:

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

                                     01F3   152 ; TYPE AAAAA_SSSX5 GO HERE:

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

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

                                     01FB   155 ; TYPE AAAAA_SSSX3 GO HERE:

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

                                     01FC   157 ; TYPE AAAAA_SSSX2 GO HERE:

                           00000200  01FC   158 		.BLKL	1		; STRING LENGTH

                                     0200   159 ;

                                     0200   160 ;

                                     0200   161 ;

                                     0200   162 ;

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

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

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

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

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

                                     0008   168 ;+

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

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

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

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

                                     0008   173 ;-

                                     0008   174 ;

                                     0008   175 MSGBUF_SNE11:	STRING	I,<SFSNE11>	; MSGBUF ARGUMENT FOR SNDERR

                                     0017   176 ;

                                     0017   177 ;

                                     0017   178 ;

                           00000001  0017   179 	.MDELETE (STRING)		; NO LONGER NEED MACRO DEFINITION

                                 00000000   180 	.PSECT	SATSSF16,RD,WRT,EXE,LONG

SATSSF16        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:56:45   VAX-11 MACRO X0.3-11               Page   6

1.0             SATSSF16                                                                                                         (1)



                                     0000   182 	.SBTTL	SATSSF16

                                     0000   183 ;++

                                     0000   184 ; FUNCTIONAL DESCRIPTION:

                                     0000   185 ;

                                     0000   186 ;		AFTER PERFORMING SOME INITIAL HOUSEKEEPING, SUCH AS

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

                                     0000   188 ; THE SATSSF16 ROUTINE EXECUTES THE TEST_SERV_EXEC MACRO TO RUN

                                     0000   189 ; ALL TEST CASES. WHEN THE MACRO COMPLETES ITS EXECUTION, SATSSF16

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

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

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

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

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

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

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

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

                                     0000   198 ; FOLLOWING EACH NEXT_TEST_CASE MACRO IMMEDIATELY BEFORE ISSUING

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

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

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

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

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

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

                                     0000   205 ; BY THE PREVIOUS TEST CASE.

                                     0000   206 ;

                                     0000   207 ; CALLING SEQUENCE:

                                     0000   208 ;

                                     0000   209 ;	$ RUN SATSSF16  ...  (DCL COMMAND)

                                     0000   210 ;

                                     0000   211 ; INPUT PARAMETERS:

                                     0000   212 ;

                                     0000   213 ;	NONE

                                     0000   214 ;

                                     0000   215 ; IMPLICIT INPUTS:

                                     0000   216 ;

                                     0000   217 ;	NONE

                                     0000   218 ;

                                     0000   219 ; OUTPUT PARAMETERS:

                                     0000   220 ;

                                     0000   221 ;	NONE

                                     0000   222 ;

                                     0000   223 ; IMPLICIT OUTPUTS:

                                     0000   224 ;

                                     0000   225 ;	MESSAGES TO SYS$OUTPUT ARE THE ONLY OUTPUT FROM SATSSF16.

                                     0000   226 ;	THEY ARE OF THE FORM:

                                     0000   227 ;

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

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

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

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

                                     0000   232 ;

                                     0000   233 ; COMPLETION CODES:

                                     0000   234 ;

                                     0000   235 ;	THE SATSSF16 ROUTINE TERMINATES WITH A $EXIT TO THE

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

                                     0000   237 ;

                                     0000   238 ; SIDE EFFECTS:

SATSSF16        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:56:45   VAX-11 MACRO X0.3-11               Page   7

1.0             SATSSF16                                                                                                         (1)



                                     0000   239 ;

                                     0000   240 ;	NONE

                                     0000   241 ;

                                     0000   242 ;--

                                     0000   243 

                                     0000   244 

                                     0000   245 

                                     0000   246 SATSSF16:

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

                                     0002   248 					; ENTRY MASK

                                     0002   249 	$WAKE_S  TPID			; GET PID OF THIS PROCESS

                                     0011   250 	$HIBER_S			; UNDO WAKE

                                     0018   251 	$SETPRN_S TEST_MOD_NAME_D 	; SET PROCESS NAME

                          0B11   30  0025   252 	BSBW	MOD_MSG_PRINT		; PRINT TEST MODULE BEGIN MSG

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

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

   00000044'EF            03         0036       

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

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

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

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

                                     0068   259 	PRIV	ADD,ALL			; GET ALL PRIVILEGES

                                     0091   260 	DISPSERV			; SET UP DISPLAY INFO FOR TESTSERV

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

                                     0226   262 		  PROT=PROT, PRVPRT=PRVPRT

                                     0247   263 					; SET NOACCESS PSECT ...

                                     0247   264 					; ... FOR NO USER ACCESS

                          0796   31  0247   265 	BRW	EXECUTE			; GO EXECUTE ALL TEST CASES

                                     024A   266 ;

                                     024A   267 	TC_GROUP	FAO,1,TS1

                                     0271   268 ;

                                     0271   269 	NEXT_TEST_CASE	SFFAO10

SATSSF16        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:56:45   VAX-11 MACRO X0.3-11               Page   8

1.0             SFFAO10                                                                                                          (1)



                                     0271   270 ;

                                     0271   271 ;++

                                     0271   272 ; ******************************************************

                                     0271   273 ; *

                                     0271   274 ; *  TEST CASE NAME:		SFFAO10      

                                     0271   275 ; *

                                     0271   276 ; *  SYSTEM SERVICE:		FAO               

                                     0271   277 ; *

                                     0271   278 ; *  ARGUMENT UNDER TEST: 	CTRSTR_FAO10         

                                     0271   279 ; *

                                     0271   280 ; *  INPUT CONDITIONS:

                                     0271   281 ; *	INVALID DIRECTIVE IN FAO CONTROL STRING

                                     0271   282 ; *

                                     0271   283 ; *  EXPECTED RESULTS:

                                     0271   284 ; *	1) SYSTEM STATUS CODE:	BADPARAM

                                     0271   285 ; *	2) REGISTERS R2 THROUGH FP UNCHANGED

                                     0271   286 ; *

                                     0271   287 ; ******************************************************

                                     0271   288 ;--

                                     0271   289 ;

                                     0271   290 ;

                                     0271   291 	NEXT_TEST_CASE	SFFAO30

SATSSF16        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:56:45   VAX-11 MACRO X0.3-11               Page   9

1.0             SFFAO30                                                                                                          (1)



                                     027D   292 ;

                                     027D   293 ;++

                                     027D   294 ; ******************************************************

                                     027D   295 ; *

                                     027D   296 ; *  TEST CASE NAME:		SFFAO30      

                                     027D   297 ; *

                                     027D   298 ; *  SYSTEM SERVICE:		FAO               

                                     027D   299 ; *

                                     027D   300 ; *  ARGUMENT UNDER TEST: 	OUTBUF_FAO30         

                                     027D   301 ; *

                                     027D   302 ; *  INPUT CONDITIONS:

                                     027D   303 ; *	OUTPUT BUFFER (LENGTH 1) TOO SHORT FOR

                                     027D   304 ; *	  INCOMING DATA.

                                     027D   305 ; *

                                     027D   306 ; *  EXPECTED RESULTS:

                                     027D   307 ; *	1) SYSTEM STATUS CODE:	BUFFEROVF

                                     027D   308 ; *	2) REGISTERS R2 THROUGH FP UNCHANGED

                                     027D   309 ; *

                                     027D   310 ; ******************************************************

                                     027D   311 ;--

                                     027D   312 ;

                                     027D   313 ;

                                     027D   314 	TCEND

SATSSF16        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:56:45   VAX-11 MACRO X0.3-11               Page  10

1.0                                                                                                                              (1)



                                     027E   315 ;

                                     027E   316 	TC_GROUP	FAL,1,TS2

                                     02A5   317 ;

                                     02A5   318 	NEXT_TEST_CASE	SFFAL10

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

1.0             SFFAL10                                                                                                          (1)



                                     02A5   319 ;

                                     02A5   320 ;++

                                     02A5   321 ; ******************************************************

                                     02A5   322 ; *

                                     02A5   323 ; *  TEST CASE NAME:		SFFAL10      

                                     02A5   324 ; *

                                     02A5   325 ; *  SYSTEM SERVICE:		FAOL               

                                     02A5   326 ; *

                                     02A5   327 ; *  ARGUMENT UNDER TEST: 	CTRSTR_FAL10         

                                     02A5   328 ; *

                                     02A5   329 ; *  INPUT CONDITIONS:

                                     02A5   330 ; *	INVALID DIRECTIVE IN FAO CONTROL STRING

                                     02A5   331 ; *

                                     02A5   332 ; *  EXPECTED RESULTS:

                                     02A5   333 ; *	1) SYSTEM STATUS CODE:	BADPARAM

                                     02A5   334 ; *	2) REGISTERS R2 THROUGH FP UNCHANGED

                                     02A5   335 ; *

                                     02A5   336 ; ******************************************************

                                     02A5   337 ;--

                                     02A5   338 ;

                                     02A5   339 ;

                                     02A5   340 	NEXT_TEST_CASE	SFFAL30

SATSSF16        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:56:45   VAX-11 MACRO X0.3-11               Page  12

1.0             SFFAL30                                                                                                          (1)



                                     02B1   341 ;

                                     02B1   342 ;++

                                     02B1   343 ; ******************************************************

                                     02B1   344 ; *

                                     02B1   345 ; *  TEST CASE NAME:		SFFAL30      

                                     02B1   346 ; *

                                     02B1   347 ; *  SYSTEM SERVICE:		FAOL               

                                     02B1   348 ; *

                                     02B1   349 ; *  ARGUMENT UNDER TEST: 	OUTBUF_FAL30         

                                     02B1   350 ; *

                                     02B1   351 ; *  INPUT CONDITIONS:

                                     02B1   352 ; *	OUTPUT BUFFER (LENGTH 1) TOO SHORT FOR 

                                     02B1   353 ; *	  INCOMING DATA.

                                     02B1   354 ; *

                                     02B1   355 ; *  EXPECTED RESULTS:

                                     02B1   356 ; *	1) SYSTEM STATUS CODE:	BUFFEROVF

                                     02B1   357 ; *	2) REGISTERS R2 THROUGH FP UNCHANGED

                                     02B1   358 ; *

                                     02B1   359 ; ******************************************************

                                     02B1   360 ;--

                                     02B1   361 ;

                                     02B1   362 ;

                                     02B1   363 	TCEND

SATSSF16        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:56:45   VAX-11 MACRO X0.3-11               Page  13

1.0                                                                                                                              (1)



                                     02B2   364 ;

                                     02B2   365 	TC_GROUP	SNE,1,TS3

                                     02D9   366 ;

                                     02D9   367 	NEXT_TEST_CASE	SFSNE10

SATSSF16        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:56:45   VAX-11 MACRO X0.3-11               Page  14

1.0             SFSNE10                                                                                                          (1)



                                     02D9   368 ;

                                     02D9   369 ;++

                                     02D9   370 ; ******************************************************

                                     02D9   371 ; *

                                     02D9   372 ; *  TEST CASE NAME:		SFSNE10      

                                     02D9   373 ; *

                                     02D9   374 ; *  SYSTEM SERVICE:		SNDERR               

                                     02D9   375 ; *

                                     02D9   376 ; *  ARGUMENT UNDER TEST: 	MSGBUF_SNE10         

                                     02D9   377 ; *

                                     02D9   378 ; *  INPUT CONDITIONS:

                                     02D9   379 ; *	USER DOES NOT HAVE THE PRIVILEGE TO SEND A

                                     02D9   380 ; *	  MESSAGE TO THE ERROR LOGGER.

                                     02D9   381 ; *

                                     02D9   382 ; *  EXPECTED RESULTS:

                                     02D9   383 ; *	1) SYSTEM STATUS CODE:	NOPRIV

                                     02D9   384 ; *	2) REGISTERS R2 THROUGH FP UNCHANGED

                                     02D9   385 ; *

                                     02D9   386 ; ******************************************************

                                     02D9   387 ;--

                                     02D9   388 ;

                                     02D9   389 	PRIV	REM,BUGCHK		; REMOVE BUGCHK PRIVILEGE

                                     0300   390 ;

                                     0300   391 	NEXT_TEST_CASE	SFSNE11

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

1.0             SFSNE11                                                                                                          (1)



                                     030C   392 ;

                                     030C   393 ;++

                                     030C   394 ; ******************************************************

                                     030C   395 ; *

                                     030C   396 ; *  TEST CASE NAME:		SFSNE11      

                                     030C   397 ; *

                                     030C   398 ; *  SYSTEM SERVICE:		SNDERR               

                                     030C   399 ; *

                                     030C   400 ; *  ARGUMENT UNDER TEST: 	MSGBUF_SNE11         

                                     030C   401 ; *

                                     030C   402 ; *  INPUT CONDITIONS:

                                     030C   403 ; *	MESSAGE BUFFER DESCRIPTOR IN NON-ACCESSIBLE PSECT.

                                     030C   404 ; *

                                     030C   405 ; *  EXPECTED RESULTS:

                                     030C   406 ; *	1) SYSTEM STATUS CODE:	ACCVIO

                                     030C   407 ; *	2) REGISTERS R2 THROUGH FP UNCHANGED

                                     030C   408 ; *

                                     030C   409 ; ******************************************************

                                     030C   410 ;--

                                     030C   411 ;

                                     030C   412 	PRIV	ADD,BUGCHK		; RE-ACQUIRE PRIVILEGE REMOVED BY SFSNE10

                                     0333   413 ;

                                     0333   414 	TCEND

SATSSF16        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:56:45   VAX-11 MACRO X0.3-11               Page  16

1.0                                                                                                                              (1)



                                     0334   415 TS1:

                                     0334   416 	TESTSERV	FAO,ERR,SATS,				-

                                     0334   417                                           				-

                                     0334   418 	   <1,CTRSTR_FAO,						-

                                     0334   419 	        	CTRSTR_FAO10,BADPARAM,	-  ; SFFAO10

                                     0334   420                                                   >,			-

                                     0334   421                                           				-

                                     0334   422 	   <1,OUTLEN_FAO,						-

                                     0334   423                                                   >,			-

                                     0334   424                                           				-

                                     0334   425 	   <1,OUTBUF_FAO,						-

                                     0334   426 	        	OUTBUF_FAO30,BUFFEROVF,	-  ; SFFAO30

                                     0334   427                                                   >,			-

                                     0334   428                                           				-

                                     0334   429 	   <1,P1_FAO,						-

                                     0334   430                                                   >,			-

                                     0334   431                                           				-

                                     0334   432 	   <1,P2_FAO,						-

                                     0334   433                                                   >,			-

                                     0334   434  

                                     0641   435 	TS_CLEANUP		; CLEAN UP & RETURN TO TEST_SERV_EXEC

SATSSF16        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:56:45   VAX-11 MACRO X0.3-11               Page  17

1.0                                                                                                                              (1)



                                     0661   436 TS2:

                                     0661   437 	TESTSERV	FAOL,ERR,SATS,				-

                                     0661   438                                           				-

                                     0661   439 	   <1,CTRSTR_FAL,						-

                                     0661   440 	        	CTRSTR_FAL10,BADPARAM,	-  ; SFFAL10

                                     0661   441                                                   >,			-

                                     0661   442                                           				-

                                     0661   443 	   <1,OUTLEN_FAL,						-

                                     0661   444                                                   >,			-

                                     0661   445                                           				-

                                     0661   446 	   <1,OUTBUF_FAL,						-

                                     0661   447 	        	OUTBUF_FAL30,BUFFEROVF,	-  ; SFFAL30

                                     0661   448                                                   >,			-

                                     0661   449                                           				-

                                     0661   450 	   <1,PRMLST_FAL,						-

                                     0661   451                                                   >,			-

                                     0661   452  

                                     08D5   453 	TS_CLEANUP		; CLEAN UP & RETURN TO TEST_SERV_EXEC

SATSSF16        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:56:45   VAX-11 MACRO X0.3-11               Page  18

1.0                                                                                                                              (1)



                                     08F5   454 TS3:

                                     08F5   455 	TESTSERV	SNDERR,ERR,SATS,				-

                                     08F5   456                                           				-

                                     08F5   457 	   <1,MSGBUF_SNE,						-

                                     08F5   458 	        	MSGBUF_SNE10,NOPRIV,	-  ; SFSNE10

                                     08F5   459 	        	MSGBUF_SNE11,ACCVIO,	-  ; SFSNE11

                                     08F5   460                                                   >,			-

                                     08F5   461  

                                     09C0   462 	TS_CLEANUP		; CLEAN UP & RETURN TO TEST_SERV_EXEC

SATSSF16        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:56:45   VAX-11 MACRO X0.3-11               Page  19

1.0             EXECUTE & CLEANUP                                                                                                (1)



                                     09E0   463 	.SBTTL	EXECUTE & CLEANUP

                                     09E0   464 EXECUTE:

                                     09E0   465 	TEST_SERV_EXEC			; EXECUTE ALL T. CASES IN ALL GROUPS

                                     09FE   466 	.MDELETE (PRIV,TC_GROUP,NEXT_TEST_CASE, -

                           0000000D  09FE   467 		  TCEND,TESTSERV,TS_CLEANUP,TEST_SERV_EXEC)

                                     09FE   468 					; DELETE MACRO DEFINITIONS

                                     09FE   469 CLEANUP:

                          0138   30  09FE   470 	BSBW	MOD_MSG_PRINT		; PRINT TEST MODULE END MSG

            1C            01     F0  0A01   471 	INSV	#1,#STS$V_INHIB_MSG,#1,MOD_MSG_CODE 

   00000044'EF            01         0A04       

                                     0A0A   472 					; INHIBIT PRINTING

                                     0A0A   473 	$EXIT_S	MOD_MSG_CODE		; EXIT TO OP SYS WITH MSG CODE

SATSSF16        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:56:45   VAX-11 MACRO X0.3-11               Page  20

1.0             TC_CONTROL                                                                                                       (1)



                                     0A17   475 	.SBTTL	TC_CONTROL

                                     0A17   476 ;++

                                     0A17   477 ; FUNCTIONAL DESCRIPTION:

                                     0A17   478 ;

                                     0A17   479 ;		THE TC_CONTROL SUBROUTINE IS CALLED BY THE TEST_SERV_EXEC

                                     0A17   480 ; MACRO TO EXECUTE A GROUP OF TEST CASES. A GROUP IS DEFINED BY A TC_GROUP

                                     0A17   481 ; MACRO. FOR EACH TC_GROUP MACRO, THERE IS A CORRESPONDING TESTSERV MACRO.

                                     0A17   482 ; TESTSERV CONTAINS CODE TO EXECUTE SYSTEM SERVICES AND CHECK THE RETURNED

                                     0A17   483 ; STATUS CODE VALUES. TESTSERV ARGUMENTS ARE CODED TO SPECIFY ALL THE SYSTEM

                                     0A17   484 ; SERVICE ARGUMENT VALUES AND THE EXPECTED STATUS CODE FOR EACH TEST CASE

                                     0A17   485 ; DEFINED BY A NEXT_TEST_CASE MACRO WITHIN THE GROUP. TC_CONTROL USES A

                                     0A17   486 ; CO-ROUTINE INTERFACE TO ENTER THE CODE OF THE APPROPRIATE TESTSERV MACRO

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

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

                                     0A17   489 ; THE GROUP. THE FIRST ALLOWS TESTSERV TO ISSUE THE SUBJECT SYSTEM SERVICE.

                                     0A17   490 ; THE SECOND ENTRY FOR THE TEST CASE CAUSES TESTSERV TO CHECK THE RETURNED

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

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

                                     0A17   493 ; RETURNS DIRECTLY TO TEST_SERV_EXEC (RSB ACTUALLY ISSUED IN TS_CLEANUP MACRO)

                                     0A17   494 ; FROM THIS SECOND ENTRY; OTHERWISE, CONTROL RETURNS TO TC_CONTROL WHICH

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

                                     0A17   496 ; TEST CASE DOES NOT CAUSE TERMINATION OF THE TEST MODULE.

                                     0A17   497 ;

                                     0A17   498 ; CALLING SEQUENCE:

                                     0A17   499 ;

                                     0A17   500 ;	BSBW TC_CONTROL (ISSUED WITHIN THE TEST_SERV_EXEC MACRO)

                                     0A17   501 ;			(RSB IS ISSUED WITHIN THE TS_CLEANUP MACRO)

                                     0A17   502 ;

                                     0A17   503 ; INPUT PARAMETERS:

                                     0A17   504 ;

                                     0A17   505 ;	NONE

                                     0A17   506 ;

                                     0A17   507 ; IMPLICIT INPUTS:

                                     0A17   508 ;

                                     0A17   509 ;	ARGUMENTS SPECIFIED ON EACH TESTSERV MACRO MAY BE VIEWED AS

                                     0A17   510 ;	INPUTS, SINCE TC_CONTROL AND TESTSERV ACT AS CO-ROUTINES.

                                     0A17   511 ;

                                     0A17   512 ; OUTPUT PARAMETERS:

                                     0A17   513 ;

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

                                     0A17   515 ;	IF ANY TEST CASE IN THE CURRENT GROUP FAILS; OTHERWISE IT REMAINS

                                     0A17   516 ;	SET TO SUCCESSFUL.

                                     0A17   517 ;

                                     0A17   518 ; IMPLICIT OUTPUTS:

                                     0A17   519 ;

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

                                     0A17   521 ;			THE TESTSERV MACRO (CO-ROUTINE WITH TC_CONTROL)

                                     0A17   522 ;

                                     0A17   523 ; COMPLETION CODES:

                                     0A17   524 ;

                                     0A17   525 ;	NONE

                                     0A17   526 ;

                                     0A17   527 ; SIDE EFFECTS:

                                     0A17   528 ;

                                     0A17   529 ;	NONE

                                     0A17   530 ;

                                     0A17   531 ;--

SATSSF16        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:56:45   VAX-11 MACRO X0.3-11               Page  21

1.0             TC_CONTROL                                                                                                       (1)



                                     0A17   532 

                                     0A17   533 

                                     0A17   534 

                                     0A17   535 TC_CONTROL:

                 00000064'EF     DD  0A17   536 	PUSHL	TS_EP			; PUSH TESTSERV ENTRY POINT

                          9E     16  0A1D   537 	JSB	@(SP)+			; ENTER TESTSERV INITIALIZATION

                                     0A1F   538 10$:					; PROCESS NEXT TEST CASE

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

                          002F   30  0A26   540 	BSBW	REG_SAVE		; SAVE REGISTERS

                 00000004'FF     16  0A29   541 	JSB	@CURRENT_TC		; JUMP TO CURRENT TEST CASE

                          0037   30  0A2F   542 	BSBW	REG_REST		; RESTORE REGS FOR TESTSERV

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

                          0042   30  0A34   544 	BSBW	REG_COMP		; COMPARE REGS TO SEE IF ...

                                     0A37   545 					; ... SYSTEM SERVICE CHANGED ANY

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

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

                          DD     12  0A40   548 	BNEQU	10$			; NO -- PROCESS NEXT TEST CASE

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

            00            02     F0  0A4D   550 	INSV	#ERROR,#0,#3,MOD_MSG_CODE ; ADJUST STATUS CODE FOR ERROR

   00000044'EF            03         0A50       

                          C7     11  0A56   551 	BRB	10$			; LOOP BAK TO PROCESS NEXT TEST CASE

                                     0A58   552 ;

                                     0A58   553 ;   TC_CONTROL RETURNS TO TEST_SERV_EXEC VIA TESTSERV (IN TS_CLEANUP MACRO)

                                     0A58   554 ;

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

1.0             SUBROUTINES                                                                                                      (1)



                                     0A58   556 	.SBTTL	SUBROUTINES

                                     0A58   557 REG_SAVE:

                                     0A58   558 ;

                                     0A58   559 ;  *****************************************************************

                                     0A58   560 ;  *                                                               *

                                     0A58   561 ;  *  SAVES R0 THRU SP IN REG_SAVE_AREA                            *

                                     0A58   562 ;  *                                                               *

                                     0A58   563 ;  *****************************************************************

                                     0A58   564 ;

                     7FFF 8F     BB  0A58   565 	PUSHR	#R0_THRU_SP		; SAVE ALL REGS ON STACK

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

                 00000008'EF         0A5F       

                     7FFF 8F     BA  0A64   567 	POPR	#R0_THRU_SP		; CLEAN UP STACK

                                 05  0A68   568 	RSB				; .... AND RETURN

                                     0A69   569 ;

                                     0A69   570 ;

                                     0A69   571 ;

                                     0A69   572 ;

                                     0A69   573 REG_REST:

                                     0A69   574 ;

                                     0A69   575 ;

                                     0A69   576 ;  *****************************************************************

                                     0A69   577 ;  *                                                               *

                                     0A69   578 ;  *  RESTORES R0 THRU SP FROM REG_SAVE_AREA                       *

                                     0A69   579 ;  *                                                               *

                                     0A69   580 ;  *****************************************************************

                                     0A69   581 ;

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

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

                          6E         0A73       

                     7FFF 8F     BA  0A74   584 	POPR	#R0_THRU_SP		; RESTORE ALL REGS FOR TESTSERV

                                 05  0A78   585 	RSB				; ... AND RETURN

SATSSF16        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:56:45   VAX-11 MACRO X0.3-11               Page  23

1.0             SUBROUTINES                                                                                                      (1)



                                     0A79   587 REG_COMP:

                                     0A79   588 ;

                                     0A79   589 ;  *****************************************************************

                                     0A79   590 ;  *                                                               *

                                     0A79   591 ;  *  1) PUSHES ALL REGS ONTO STACK                                *

                                     0A79   592 ;  *  2) COMPARES REGISTER IMAGES FROM STACK WITH CORRESPONDING    *

                                     0A79   593 ;  *       IMAGES FROM REG_SAVE_AREA FOR ALL REGISTERS SPECIFIED   *

                                     0A79   594 ;  *       IN REG_COMP_MASK.                                       *

                                     0A79   595 ;  *  3) FOR EACH UNEQUAL COMPARE, AN ERROR MESSAGE IS PRINTED     *

                                     0A79   596 ;  *       (USING $FAO AND $OUTPUT SYSTEM SERVICES).               *

                                     0A79   597 ;  *  4) POPS ALL REGS OFF OF STACK                                *

                                     0A79   598 ;  *                                                               *

                                     0A79   599 ;  *****************************************************************

                                     0A79   600 ;

                     7FFF 8F     BB  0A79   601 	PUSHR	#R0_THRU_SP		; SAVE ALL REGISTERS ON STACK

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

                                     0A84   603 					; ... REGS (BEFORE S.S.)

            54            5E     D0  0A84   604 	MOVL	SP,R4			; POINT R4 TO BEG OF

                                     0A87   605 					; ... REGS (AFTER S.S.)

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

                                     0A8B   607 REG_COMP_NEXT:

                          53     D6  0A8B   608 	INCL	R3			; POINT TO NEXT BIT IN MASK

            53            0F     91  0A8D   609 	CMPB	#15,R3			; END OF THE MASK ?

                          03     1A  0A90   610 	BGTRU	REG_COMP_CONT		; NO -- CONTINUE

                          009F   31  0A92   611 	BRW	REG_COMP_RSB		; YES -- GO TO COMMON RETURN

                                     0A95   612 REG_COMP_CONT:

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

                          F1     13  0A98   614 	BEQLU	REG_COMP_NEXT		; YES -- LOOK FOR NEXT REG

   00000000'EF            53     E1  0A9A   615 	BBC	R3,REG_COMP_MASK,REG_COMP_NEXT

                          E9         0AA1       

                                     0AA2   616 					; NO -- GET NEXT IF BIT NOT SET

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

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

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

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

                                     0AC0   621 ;

                                     0AC0   622 	$FAO_S	ERR_MSG_FAOCTL,OUTL,OUTD,$$SNAD$$,  -

                                     0AC0   623 		$$ASEQ$$,$$PSEQ$$,CLOB_REG_NO,REG_BEFORE_SS,REG_AFTER_SS

                                     0AF3   624 ;

       F623 CF       F5ED CF     B0  0AF3   625 	MOVW	OUTL,OUTD		; ACTUAL OUTPUT LEN IN STRING DESC'R

                                     0AFA   626 	PUTMSG	<#UETP$_TEXT,#1,#OUTD>	; PRINT THE MSG

       F607 CF       0084 8F     B0  0B0F   627 	MOVW	#OUTE-OUTB,OUTD		; GET MAX LEN BACK INTO DESCRIPTOR

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

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

            00            02     F0  0B28   630 	INSV	#ERROR,#0,#3,MOD_MSG_CODE ; ADJUST STATUS CODE FOR ERROR

   00000044'EF            03         0B2B       

                          FF57   31  0B31   631 	BRW	REG_COMP_NEXT		; GO LOOK FOR NEXT REG TO COMPARE

                                     0B34   632 REG_COMP_RSB:

                     7FFF 8F     BA  0B34   633 	POPR	#R0_THRU_SP		; CLEAN UP STACK

                                 05  0B38   634 	RSB				; RETURN TO CALLER

SATSSF16        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:56:45   VAX-11 MACRO X0.3-11               Page  24

1.0             SUBROUTINES                                                                                                      (1)



                                     0B39   636 MOD_MSG_PRINT:

                                     0B39   637 ;

                                     0B39   638 ;  *****************************************************************

                                     0B39   639 ;  *                                                               *

                                     0B39   640 ;  *  PRINTS THE TEST MODULE BEGUN/SUCCESSFUL/FAILED MESSAGES      *

                                     0B39   641 ;  *	   (USING THE PUTMSG MACRO).                               *

                                     0B39   642 ;  *                                                               *

                                     0B39   643 ;  *****************************************************************

                                     0B39   644 ;

                                     0B39   645 	PUTMSG	<MOD_MSG_CODE,#2,TMN_ADDR,TMD_ADDR> ; PRINT MSG

                                 05  0B54   646 	RSB				; ... AND RETURN TO CALLER

                                     0B55   647 ;

                                     0B55   648 CHMRTN:

                                     0B55   649 ; **********************************************************

                                     0B55   650 ; *

                                     0B55   651 ; *	CHANGE MODE ROUTINE. THIS ROUTINE GETS CONTROL WHENEVER

                                     0B55   652 ; *	A CMKRNL, CMEXEC, OR CMSUP SYSTEM SERVICE IS ISSUED

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

                                     0B55   654 ; *	A JUMP INDIRECT ON A FIELD SET UP BY MODE. IT HAS 

                                     0B55   655 ; *	THE EFFECT OF RETURNING TO THE END OF THE MODE

                                     0B55   656 ; *	MACRO EXPANSION.

                                     0B55   657 ; *

                                     0B55   658 ; *************************************************************

                                     0B55   659 ;

                               0000  0B55   660 	.WORD	0			; ENTRY MASK

                 00000079'FF     17  0B57   661 	JMP	@CHM_CONT		; RETURN TO MODE MACRO IN NEW MODE

                                     0B5D   662 ;

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

                                     0B5D   664 ;

                                     0B5D   665 	.END	SATSSF16

SATSSF16        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:56:45   VAX-11 MACRO X0.3-11               Page  25

SYMBOL TABLE                                                                                                                     (1)



$$$CHARS       = 00000048            OUTLEN_FAO       00000091 R     04   PCB$W_BIOLM      00000040            

$$$FIRSTTC$$$  = 00000000            P1_FAO           000000DF R     03   PCB$W_BYTCNT     00000042            

$$$STRINGS     = 00000000            P2_FAO           000000FA R     03   PCB$W_BYTLM      00000068            

$$ACT$$          000000FC R     07   PCB$B_ASTACT     0000000C            PCB$W_DIOCNT     00000044            

$$ARG$$          00000104 R     07   PCB$B_ASTEN      0000000D            PCB$W_DIOLM      00000046            

$$ASEQ$$         000000F4 R     07   PCB$B_PRI        0000000B            PCB$W_FILCNT     00000048            

$$CALL$$         000000E8 R     07   PCB$B_PRIB       00000033            PCB$W_GPGCNT     00000038            

$$DISP$$         000001EF R     07   PCB$B_TYPE       0000000A            PCB$W_GRP        00000022            

$$ERR$$          000001A9 R     07   PCB$B_WEFC       00000032            PCB$W_MEM        00000020            

$$EXP$$          00000100 R     07   PCB$C_LENGTH     0000007C            PCB$W_MTXCNT     0000000E            

$$INIT$$         000000EC R     07   PCB$K_LENGTH     0000007C            PCB$W_PPGCNT     0000003A            

$$MAXP$$       = 00000005            PCB$L_ASTQBL     00000014            PCB$W_PRCCNT     0000006A            

$$PSEQ$$         000000F8 R     07   PCB$L_ASTQFL     00000010            PCB$W_SIZE       00000008            

$$SNAD$$         000000F0 R     07   PCB$L_EFC2P      00000058            PCB$W_STATE      00000030            

$$T1           = 00000004            PCB$L_EFC3P      0000005C            PCB$W_TMBU       00000036            

$$T2           = 00000009            PCB$L_EFCS       00000050            PCB$W_TQCNT      0000004A            

$$TSTN$$         00000054 R     04   PCB$L_EFCU       00000054            PHD$B_ASTLVL     000000CF            

BIT...         = 00001258            PCB$L_EFWM       0000004C            PHD$B_DFPFC      00000038            

CHMRTN           00000B55 R     07   PCB$L_OWNER      0000001C            PHD$B_PAGFIL     0000001F            

CHM_CONT         00000079 R     04   PCB$L_PHD        00000064            PHD$B_PGTBPFC    00000039            

CLEANUP          000009FE R     07   PCB$L_PHYPCB     00000018            PHD$C_LENGTH     00000118            

CLOB_REG_NO      00000048 R     04   PCB$L_PID        00000060            PHD$C_PHDPAGCTX= 00000008            

COUNTED_STR      000000E3 R     03   PCB$L_PQB        0000004C            PHD$K_LENGTH     00000118            

CTL$GL_PHD       ********   X   07   PCB$L_SQBL       00000004            PHD$L_BIOCNT     00000054            

CTRSTR_FAL       000000BD R     03   PCB$L_SQFL       00000000            PHD$L_CPULIM     00000058            

CTRSTR_FAL10     000000CE R     03   PCB$L_STS        00000028            PHD$L_CPUTIM     0000003C            

CTRSTR_FAO       000000BD R     03   PCB$L_UIC        00000020            PHD$L_DIOCNT     00000050            

CTRSTR_FAO10     000000CE R     03   PCB$L_WSSWP      00000024            PHD$L_ESP        0000007C            

CURRENT_TC       00000004 R     04   PCB$L_WTIME      0000002C            PHD$L_FREP0VA    00000028            

EMPTY            00000000 R     05   PCB$T_LNAME      0000006C            PHD$L_FREP1VA    00000030            

ERROR          = 00000002            PCB$V_ASTPEN   = 00000011            PHD$L_FREPTECNT  0000002C            

ERR_MSG_FAOCTL   00000002 R     03   PCB$V_BATCH    = 0000000E            PHD$L_KSP        00000078            

EXECUTE          000009E0 R     07   PCB$V_DELPEN   = 00000001            PHD$L_P0BR       000000C8            

GBL...         = 00000000            PCB$V_FORCPEN  = 00000002            PHD$L_P0LRASTL   000000CC            

GRP_TOTAL      = 00000003            PCB$V_HIBER    = 00000013            PHD$L_P1BR       000000D0            

INADR            000000A9 R     03   PCB$V_INQUAN   = 00000003            PHD$L_P1LR       000000D4            

INFO           = 00000003            PCB$V_LOGIN    = 00000014            PHD$L_PAGEFLTS   0000004C            

LIB$SIGNAL       ********   X   07   PCB$V_NETWRK   = 00000015            PHD$L_PAGFIL     0000001C            

MEXIT          = 00000000            PCB$V_NOACNT   = 0000000F            PHD$L_PC         000000C0            

MOD_MSG_CODE     00000044 R     04   PCB$V_NODELET  = 00000017            PHD$L_PCB        00000078            

MOD_MSG_PRINT    00000B39 R     07   PCB$V_PHDRES   = 00000012            PHD$L_PGFLCNT    00000034            

MSGBUF_SNE       00000102 R     03   PCB$V_PSWAPM   = 00000004            PHD$L_PGFLQUOTA  0000005C            

MSGBUF_SNE10     00000102 R     03   PCB$V_PWRAST   = 00000016            PHD$L_PSL        000000C4            

MSGBUF_SNE11     00000008 R     06   PCB$V_RES      = 00000000            PHD$L_PSTBASOFF  00000020            

MY_DISK          00000123 R     03   PCB$V_RESPEN   = 00000005            PHD$L_PTWSLELCK  00000064            

NARGS          = 00000012            PCB$V_SSFEXC   = 00000006            PHD$L_PTWSLEVAL  00000068            

NOACCESS         00000000 R     06   PCB$V_SSFEXCE  = 00000007            PHD$L_R0         00000088            

ONES             000000B5 R     03   PCB$V_SSFEXCS  = 00000008            PHD$L_R1         0000008C            

OUTB             00000125 R     07   PCB$V_SSFEXCU  = 00000009            PHD$L_R10        000000B0            

OUTBUF_FAL       00000093 R     04   PCB$V_SSRWAIT  = 0000000A            PHD$L_R11        000000B4            

OUTBUF_FAL30     000000CD R     04   PCB$V_SUSPEN   = 0000000B            PHD$L_R12        000000B8            

OUTBUF_FAO       00000093 R     04   PCB$V_SWPVBN   = 00000010            PHD$L_R13        000000BC            

OUTBUF_FAO30     000000CD R     04   PCB$V_WAKEPEN  = 0000000C            PHD$L_R2         00000090            

OUTD             0000011D R     07   PCB$V_WALL     = 0000000D            PHD$L_R3         00000094            

OUTE             000001A9 R     07   PCB$W_APTCNT     00000034            PHD$L_R4         00000098            

OUTL             000000E4 R     07   PCB$W_ASTCNT     0000003C            PHD$L_R5         0000009C            

OUTLEN_FAL       00000091 R     04   PCB$W_BIOCNT     0000003E            PHD$L_R6         000000A0            

SATSSF16        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:56:45   VAX-11 MACRO X0.3-11               Page  26

SYMBOL TABLE                                                                                                                     (1)



PHD$L_R7         000000A4            PRV$V_GROUP    = 00000008            SHR$_BADWORD   = 00001028            

PHD$L_R8         000000A8            PRV$V_GRPNAM   = 00000003            SHR$_BEGIN     = 00001030            

PHD$L_R9         000000AC            PRV$V_LOG_IO   = 00000007            SHR$_BEGIND    = 00001038            

PHD$L_REFERFLT   00000014            PRV$V_MOUNT    = 00000011            SHR$_BEGINT    = 00001040            

PHD$L_SSP        00000080            PRV$V_NETMBX   = 00000014            SHR$_CLICB     = 00001048            

PHD$L_USP        00000084            PRV$V_NOACNT   = 00000009            SHR$_CLOSEDEL  = 00001218            

PHD$L_WSL        00000118            PRV$V_OPER     = 00000012            SHR$_CLOSEIN   = 00001050            

PHD$M_DALCSTX  = 00000002            PRV$V_PHY_IO   = 00000016            SHR$_CLOSEOUT  = 00001058            

PHD$M_PFMFLG   = 00000001            PRV$V_PRMCEB   = 0000000A            SHR$_CONFDEL   = 000011F8            

PHD$M_WSPEAKCHK= 00000004            PRV$V_PRMGBL   = 00000018            SHR$_COPIEDB   = 00001060            

PHD$Q_PRIVMSK    00000000            PRV$V_PRMMBX   = 0000000B            SHR$_COPIEDR   = 00001068            

PHD$S_ASTLVL   = 00000008            PRV$V_PSWAPM   = 0000000C            SHR$_CREATED   = 00001070            

PHD$S_P0LR     = 00000018            PRV$V_SETPRI   = 0000000D            SHR$_DELETED   = 00001200            

PHD$V_ASTLVL   = 00000018            PRV$V_SETPRV   = 0000000E            SHR$_DELINTERR = 00001240            

PHD$V_DALCSTX  = 00000001            PRV$V_SYSGBL   = 00000019            SHR$_DELVER    = 00001208            

PHD$V_P0LR     = 00000000            PRV$V_SYSNAM   = 00000002            SHR$_DIRTOOBUS = 00001220            

PHD$V_PFMFLG   = 00000000            PRV$V_TMPMBX   = 0000000F            SHR$_ENDED     = 00001078            

PHD$V_WSPEAKCHK= 00000002            PRV$V_VOLPRO   = 00000015            SHR$_ENDEDD    = 00001080            

PHD$W_ASTLM      00000044            PRV$V_WORLD    = 00000010            SHR$_ENDEDT    = 00001088            

PHD$W_BAK        00000048            PRVPRT           00000070 R     04   SHR$_FILNOTDEL = 000011F0            

PHD$W_DFWSCNT    0000001A            R0_THRU_SP     = 00007FFF            SHR$_FILNOTPUR = 00001230            

PHD$W_EMPTPG     000000D8            REGS             0000007D R     04   SHR$_FILPURGED = 00001250            

PHD$W_EXTDYNWS   00000076            REG_AFTER_SS     00000050 R     04   SHR$_HASHCONCAT= 000011D8            

PHD$W_FILLM      00000060            REG_BEFORE_SS    0000004C R     04   SHR$_HIGHVER   = 00001148            

PHD$W_FLAGS      0000003A            REG_COMP         00000A79 R     07   SHR$_IDXCONCAT = 00001138            

PHD$W_PHVINDEX   00000046            REG_COMP_CONT    00000A95 R     07   SHR$_INCOMPAT  = 000011E0            

PHD$W_PRCLM      00000042            REG_COMP_MASK    00000000 R     03   SHR$_NEWFILES  = 00001090            

PHD$W_PST        00000020            REG_COMP_NEXT    00000A8B R     07   SHR$_NOFILPURG = 00001228            

PHD$W_PSTBASMAX  0000004A            REG_COMP_RSB     00000B34 R     07   SHR$_NOJOBID   = 000011A0            

PHD$W_PSTFREE    00000026            REG_REST         00000A69 R     07   SHR$_NOJOBNAME = 000011A8            

PHD$W_PSTLAST    00000024            REG_SAVE         00000A58 R     07   SHR$_NOQUEUE   = 00001198            

PHD$W_PTCNTACT   00000070            REG_SAVE_AREA    00000008 R     04   SHR$_NOTCMPLT  = 000011C0            

PHD$W_PTCNTLCK   0000006C            RETADR           00000068 R     04   SHR$_NOTCOPIED = 000011B8            

PHD$W_PTCNTMAX   00000072            SATSSF16         00000000 R     07   SHR$_NOVALUE   = 00001100            

PHD$W_PTCNTVAL   0000006E            SEVERE         = 00000004            SHR$_NOWILD    = 00001128            

PHD$W_QUANT      00000040            SHR$K_SHRDEF   = 00000001            SHR$_OPENIN    = 00001098            

PHD$W_TQLM       00000062            SHR$_ABEND     = 000010D8            SHR$_OPENOUT   = 000010A0            

PHD$W_WSAUTH     0000000A            SHR$_ABENDD    = 000010E0            SHR$_OVERLAY   = 000010A8            

PHD$W_WSDYN      0000000E            SHR$_ABENDT    = 000010E8            SHR$_PARSEFAIL = 00001248            

PHD$W_WSFLUID    00000074            SHR$_APPENDEDB = 00001000            SHR$_PURGEVER  = 00001210            

PHD$W_WSLAST     00000012            SHR$_APPENDEDR = 00001008            SHR$_READERR   = 000010B0            

PHD$W_WSLIST     00000008            SHR$_ATPC      = 00001158            SHR$_RELCONCAT = 00001140            

PHD$W_WSLOCK     0000000C            SHR$_BADBYTE   = 00001010            SHR$_REPLACED  = 000010B8            

PHD$W_WSLX       0000004A            SHR$_BADCOPIES = 00001160            SHR$_RMSERROR  = 000011C8            

PHD$W_WSNEXT     00000010            SHR$_BADDELIM  = 00001118            SHR$_SEARCHFAIL= 00001238            

PHD$W_WSQUOTA    00000018            SHR$_BADFIELD  = 00001018            SHR$_SYNTAX    = 000010F8            

PRIVMASK         00000071 R     04   SHR$_BADFORM   = 00001168            SHR$_SYSERROR  = 000011B0            

PRMLST_FAL       000000FE R     03   SHR$_BADJOBID  = 00001170            SHR$_SYSERRORPC= 000010F0            

PROT             000000B1 R     03   SHR$_BADJOBNAME= 00001178            SHR$_TEXT      = 00001130            

PRT$C_NA         ********   X   03   SHR$_BADKEY    = 00001108            SHR$_UNXPCTSTS = 000011D0            

PRV$V_ALLSPOOL = 00000004            SHR$_BADLOGIC  = 00001120            SHR$_VALERR    = 000011E8            

PRV$V_BUGCHK   = 00000017            SHR$_BADLOGICPC= 00001150            SHR$_WILDCONCAT= 000010C0            

PRV$V_CMEXEC   = 00000001            SHR$_BADLONG   = 00001020            SHR$_WILDOUTVER= 000010C8            

PRV$V_CMKRNL   = 00000000            SHR$_BADPRTY   = 00001180            SHR$_WRITEERR  = 000010D0            

PRV$V_DETACH   = 00000005            SHR$_BADQNAME  = 00001188            SS$_ACCVIO       ********   X   07   

PRV$V_DIAGNOSE = 00000006            SHR$_BADTIME   = 00001190            SS$_BADPARAM     ********   X   07   

PRV$V_EXQUOTA  = 00000013            SHR$_BADVALUE  = 00001110            SS$_BUFFEROVF    ********   X   07   

SATSSF16        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:56:45   VAX-11 MACRO X0.3-11               Page  27

SYMBOL TABLE                                                                                                                     (1)



SS$_NOPRIV       ********   X   07   TMN_ADDR         0000005C R     04   

STS$K_ERROR    = 00000002            TPID             00000000 R     04   

STS$K_INFO     = 00000003            TS1              00000334 R     07   

STS$K_SEVERE   = 00000004            TS2              00000661 R     07   

STS$K_SUCCESS  = 00000001            TS3              000008F5 R     07   

STS$K_WARNING  = 00000000            TS_EP            00000064 R     04   

STS$M_CODE     = 00007FF8            TTNAME           0000009F R     03   

STS$M_COND_ID  = 0FFFFFF8            UETP$_ABORTC   = 0074832B            

STS$M_CONTROL  = F0000000            UETP$_CONF     = 007480D1            

STS$M_CUST_DEF = 08000000            UETP$_DATAER   = 00748010            

STS$M_FAC_NO   = 0FFF0000            UETP$_DDB      = 007480E1            

STS$M_FAC_SP   = 00008000            UETP$_DENOSU   = 00748333            

STS$M_INHIB_MSG= 10000000            UETP$_DESTP    = 007481A2            

STS$M_MSG_NO   = 0000FFF8            UETP$_DEUNUS   = 0074819A            

STS$M_SEVERITY = 00000007            UETP$_ERBOX    = 00748008            

STS$M_SUCCESS  = 00000001            UETP$_SATSMS   = 007480D9            

STS$S_CODE     = 0000000C            UETP$_TEXT     = 00741133            

STS$S_COND_ID  = 00000019            UETP$_UCB      = 007480E9            

STS$S_CONTROL  = 00000004            UETP$_USER     = 0074833B            

STS$S_CUST_DEF = 00000001            WARNING        = 00000000            

STS$S_FAC_NO   = 0000000C            

STS$S_FAC_SP   = 00000001            

STS$S_INHIB_MSG= 00000001            

STS$S_MSG_NO   = 0000000D            

STS$S_SEVERITY = 00000003            

STS$S_SUCCESS  = 00000001            

STS$V_CODE     = 00000003            

STS$V_COND_ID  = 00000003            

STS$V_CONTROL  = 0000001C            

STS$V_CUST_DEF = 0000001B            

STS$V_FAC_NO   = 00000010            

STS$V_FAC_SP   = 0000000F            

STS$V_INHIB_MSG= 0000001C            

STS$V_MSG_NO   = 00000003            

STS$V_SEVERITY = 00000000            

STS$V_SUCCESS  = 00000000            

SUCCESS        = 00000001            

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

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

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

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

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

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

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

SYS$SNDERR       ********   X   07   

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

TC1              0000024A R     07   

TC2              0000027E R     07   

TC3              000002B2 R     07   

TCG_NO         = 00000003            

TC_CONTROL       00000A17 R     07   

TEST_MOD_BEG     00000077 R     03   

TEST_MOD_FAIL    00000088 R     03   

TEST_MOD_NAME    0000006E R     03   

TEST_MOD_NAME_D  0000008F R     03   

TEST_MOD_SUCC    0000007D R     03   

TMD_ADDR         00000060 R     04   

SATSSF16        - SATS SYSTEM SERVICE TESTS  (FAILING S.C.)      22-AUG-1978 03:56:45   VAX-11 MACRO X0.3-11               Page  28

PROGRAM SECTION SYNOPSIS                                                                                                         (1)







PROGRAM SECTION SYNOPSIS



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

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

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

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

RWDATA           000000D6      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  

SATSSF16         00000B5D      07     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT LONG  





THERE WERE NO ERRORS OR WARNINGS.

5350. BYTES LEFT IN FREE MEMORY POOL.

3264. BYTES OF RECLAIMED MEMORY.

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

55 MLB DIR RDS - 1213 GETS TO DEFINE 44 MACROS. 79 INTER. FILE WRITES. 

