UETNATV01       VAX/VMS UETP SYSTEM SERVICES TEST                22-AUG-1978 03:24:04   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (2)     100  DECLARATIONS

   (2)    2000  READ ONLY DATA

   (2)    4300  READ WRITE DATA

   (3)     100  MAIN ROUTINE

   (4)     100  ERROR AND AST HANDLERS

UETNATV01       VAX/VMS UETP SYSTEM SERVICES TEST                22-AUG-1978 03:24:04   VAX-11 MACRO X0.3-11               Page   1

1.06                                                                                                                             (1)



                                     0000     1 ;	UETP prefix file (contains macro library file specs).

                                     0000     2 ;

                                     0000     3 	.LIBRARY	/EXECML$/	;SYSTEM MACROS

                                     0000     4 	.LIBRARY	/LIBD$:[SYSTST.OBJ]SYSTST.MLB/ ; PRIVATE UETP,SYSTST LIB

                                     0000     5 	.LIST	MEB

                                     0000     6 ;

                                     0000   100 	.TITLE UETNATV01  VAX/VMS UETP SYSTEM SERVICES TEST

                                     0000   200 	.IDENT /1.06/

                                     0000   300 

                                     0000   400 ;

                                     0000   500 ; COPYRIGHT (C) 1978

                                     0000   600 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754

                                     0000   700 ;

                                     0000   800 ; THIS SOFTWARE IS FURNISHED  UNDER A LICENSE FOR USE ONLY ON A SINGLE

                                     0000   900 ; COMPUTER  SYSTEM AND  MAY BE  COPIED ONLY WITH  THE INCLUSION OF THE

                                     0000  1000 ; ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE, OR ANY OTHER COPIES THEREOF,

                                     0000  1100 ; MAY NOT BE PROVIDED OR  OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON

                                     0000  1200 ; EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE

                                     0000  1300 ; TERMS.  TITLE TO AND  OWNERSHIP OF THE  SOFTWARE  SHALL AT ALL TIMES

                                     0000  1400 ; REMAIN IN DEC.

                                     0000  1500 ;

                                     0000  1600 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE

                                     0000  1700 ; AND SHOULD  NOT BE CONSTRUED  AS A COMMITMENT  BY DIGITAL  EQUIPMENT

                                     0000  1800 ; CORPORATION.

                                     0000  1900 ;

                                     0000  2000 ; DEC ASSUMES  NO  RESPONSIBILITY  FOR  THE USE OR  RELIABILITY OF ITS

                                     0000  2100 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

                                     0000  2200 ;

                                     0000  2300 

                                     0000  2400 ;++

                                     0000  2500 ; FACILITY:

                                     0000  2600 ; 	THIS MODULE WILL BE DISTRIBUTED WITH VAX/VMS UNDER THE UETP UIC.

                                     0000  2700 ;

                                     0000  2800 ; ABSTRACT:

                                     0000  2900 ;	THIS MODULE LOGS IN THE SYSTEM SERVICE NATIVE MODE TEST

                                     0000  3000 ;	AS A DETACHED PROCESS. THAT TEST RUNS UNDER CONTROL OF

                                     0000  3100 ;	ITS OWN INDIRECT COMMAND FILES. THE TOTAL NUMBER OF ERRORS

                                     0000  3200 ;	IT FINDS IS RETURNED IN THE GROUP LOGICAL NAME SYSTST$ERRS.

                                     0000  3300 ;

                                     0000  3400 ; ENVIRONMENT:

                                     0000  3500 ;	THE MODULE WILL RUN IN USER ACCESS MODE. THE CREATED PROCESS

                                     0000  3600 ;	REQUIRES CMKRNL PRIVILEGE TO EXECUTE SOME TESTS.

                                     0000  3700 ;

                                     0000  3800 ; AUTHOR: DICK BATOR,	 CREATION DATE: DECEMBER, 1977

                                     0000  3900 ;

                                     0000  4000 ; MODIFIED BY:

                                     0000  4100 ;

                                     0000  4200 ;

                                     0000  4300 ;	, : VERSION

                                     0000  4400 ; 1.0	-	MODIFIED BY RAB 16-JAN-78

                                     0000  4500 ; 1.01	-	FIXED WAIT FOR PROC COMP BUG.

                                     0000  4600 ; 1.02  - 	CHANGE LOGICAL NAME, CHANGE FORCEX TO CRELOG RAB 31-JAN

                                     0000  4700 ; 1.03  -	CHANGE $GTCHAN TO $GETCHN  RAB 7-MAR-78

                                     0000  4800 ; 1.04  -	CLEANUP SHARED MESSAGES  RAB 8-MAR-78

                                     0000  4900 ; 1.05  -	ADD STSFLG TO $CREPRC TO LOGIN DET PROC WITH NO

                                     0000  5000 ;		 PASSWORD	RAB  14-MAR-78

                                     0000  5050 ; 1.06 -	ADD QUOTALIST TO $CREPRC   RAB  24-MAR-78

UETNATV01       VAX/VMS UETP SYSTEM SERVICES TEST                22-AUG-1978 03:24:04   VAX-11 MACRO X0.3-11               Page   2

1.06                                                                                                                             (1)



                                     0000  5100 ;--

UETNATV01       VAX/VMS UETP SYSTEM SERVICES TEST                22-AUG-1978 03:24:04   VAX-11 MACRO X0.3-11               Page   3

1.06            DECLARATIONS                                                                                                     (2)



                                     0000   100 	.SBTTL	DECLARATIONS

                                     0000   200 ;

                                     0000   300 ; INCLUDE FILES:

                                     0000   400 ;

                                     0000   500 	$SHR_MESSAGES UET,116,<<BEGIND,3>,<ENDEDD,3>,<SYSERRORPC,2>,-

                                     0000   600 		<ABENDD,4>,<TEXT,3>,<BADWORD,2>,<BADLOGICPC,2>>

                                     0000       	.SAVE

                                 00000000       	.PSECT	$ABS$,ABS

                                     0000       	.RESTORE

                                     0000   700 ;

                                     0000   800 ; EQUATED SYMBOLS:

                                     0000   900 ;

                           00000002  0000  1000 CONTROLC=2			; EVENT FLAG NO. FOR CONTROL-C ENTERED

                           00000001  0000  1100 PROC_COMP=1			; EVENT FLAG NO. FOR TEST COMPLETED

                           00000004  0000  1200 CONTROLC_M=4			; MASK IN CLUSTER FOR CONTROL-C FLAG

                           00000002  0000  1300 COMPLETE_M=2			; MASK IN CLUSTER FOR COMPLETION FLAG

                           00000002  0000  1400 CCBIT=2				; OFFSET IN CLUSTER FOR CONTROL-C FLAG

                           00000001  0000  1500 CPBIT=1				; OFFSET IN CLUSTER FOR COMPLETION FLAG

                                     0000  1600 ;

                           00000001  0000  1700 SUCCESS=1			; UETNATV01 NORMAL EXIT CODE

                           FFFFFFFF  0000  1800 ERR_RET=-1

UETNATV01       VAX/VMS UETP SYSTEM SERVICES TEST                22-AUG-1978 03:24:04   VAX-11 MACRO X0.3-11               Page   4

1.06            READ ONLY DATA                                                                                                   (2)



                                     0000  2000 	.SBTTL READ ONLY DATA

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

                                     0000  2200 ;********************************************************************************

                                     0000  2300 ;	READ/ONLY DATA AREA

                                     0000  2400 ;********************************************************************************

                           00000006  0000  2500 COMMASK: .LONG	CONTROLC_M+COMPLETE_M

                                     0004  2600 CNTRLCMSG: STRING I,<UETNATV01 control-C entered, test terminating...>

                           00000030  0004       	.LONG	$$$CHARS

                           0000000C' 0008       	.ADDRESS .+4

6F 63 20 31 30 56 54 41 4E 54 45 55  000C       	.ASCII	\UETNATV01 control-C entered, test terminating...\

65 74 6E 65 20 43 2D 6C 6F 72 74 6E  0018       

65 74 20 74 73 65 74 20 2C 64 65 72  0024       

2E 2E 2E 67 6E 69 74 61 6E 69 6D 72  0030       

                                     003C  2700 ;

                                     003C  2800 LOGIN:	STRING I,<SYS$SYSTEM:LOGINOUT.EXE>

                           00000017  003C       	.LONG	$$$CHARS

                           00000044' 0040       	.ADDRESS .+4

4C 3A 4D 45 54 53 59 53 24 53 59 53  0044       	.ASCII	\SYS$SYSTEM:LOGINOUT.EXE\

   45 58 45 2E 54 55 4F 4E 49 47 4F  0050       

                                     005B  2900 ;

                                     005B  3000 MBLOGNAM: STRING I,<UETSS_MAILBOX>	;NAME OF MAILBOX

                           0000000D  005B       	.LONG	$$$CHARS

                           00000063' 005F       	.ADDRESS .+4

4F 42 4C 49 41 4D 5F 53 53 54 45 55  0063       	.ASCII	\UETSS_MAILBOX\

                                 58  006F       

                                     0070  3100 PROC_NAME: STRING I,<UETNATV01>		;THIS PROCESS NAME

                           00000009  0070       	.LONG	$$$CHARS

                           00000078' 0074       	.ADDRESS .+4

         31 30 56 54 41 4E 54 45 55  0078       	.ASCII	\UETNATV01\

                                     0081  3200 SS_ABORT: STRING I,<SYSTST$ABORT>	;NAME TO USE FOR CTRL-C ABORT

                           0000000C  0081       	.LONG	$$$CHARS

                           00000089' 0085       	.ADDRESS .+4

54 52 4F 42 41 24 54 53 54 53 59 53  0089       	.ASCII	\SYSTST$ABORT\

                                     0095  3300 SSERRNM: STRING I,<SYSTST$ERRS>		;#ERRORS FOUND IN SYS SERV TESTS

                           0000000B  0095       	.LONG	$$$CHARS

                           0000009D' 0099       	.ADDRESS .+4

   53 52 52 45 24 54 53 54 53 59 53  009D       	.ASCII	\SYSTST$ERRS\

                                     00A8  3400 SSERRTXT: STRING I,<UETNATV01 # VMS system service errors found is !AS>

                           00000032  00A8       	.LONG	$$$CHARS

                           000000B0' 00AC       	.ADDRESS .+4

20 23 20 31 30 56 54 41 4E 54 45 55  00B0       	.ASCII	\UETNATV01 # VMS system service errors found is !AS\

73 20 6D 65 74 73 79 73 20 53 4D 56  00BC       

72 6F 72 72 65 20 65 63 69 76 72 65  00C8       

21 20 73 69 20 64 6E 75 6F 66 20 73  00D4       

                              53 41  00E0       

                                     00E2  3500 SUBOUT:	STRING I,<SSLOG.LOG> 		;LOG FILE FOR THIS TEST

                           00000009  00E2       	.LONG	$$$CHARS

                           000000EA' 00E6       	.ADDRESS .+4

         47 4F 4C 2E 47 4F 4C 53 53  00EA       	.ASCII	\SSLOG.LOG\

                                     00F3  3600 SUBOUTE: STRING I,<SSLOGERR.LOG>	;LOG ERROR FILE FOR THIS TEST

                           0000000C  00F3       	.LONG	$$$CHARS

                           000000FB' 00F7       	.ADDRESS .+4

47 4F 4C 2E 52 52 45 47 4F 4C 53 53  00FB       	.ASCII	\SSLOGERR.LOG\

                                     0107  3700 ;

                                     0107  3800 TEST_NAME: STRING I,<UETNATV00.COM>

                           0000000D  0107       	.LONG	$$$CHARS

                           0000010F' 010B       	.ADDRESS .+4

UETNATV01       VAX/VMS UETP SYSTEM SERVICES TEST                22-AUG-1978 03:24:04   VAX-11 MACRO X0.3-11               Page   5

1.06            READ ONLY DATA                                                                                                   (2)



4F 43 2E 30 30 56 54 41 4E 54 45 55  010F       	.ASCII	\UETNATV00.COM\

                                 4D  011B       

                                     011C  3900 TTNAME:	STRING I,<TT>

                           00000002  011C       	.LONG	$$$CHARS

                           00000124' 0120       	.ADDRESS .+4

                              54 54  0124       	.ASCII	\TT\

                                     0126  4000 YES:	STRING I,<YES>

                           00000003  0126       	.LONG	$$$CHARS

                           0000012E' 012A       	.ADDRESS .+4

                           53 45 59  012E       	.ASCII	\YES\

                                     0131  4100 ;

UETNATV01       VAX/VMS UETP SYSTEM SERVICES TEST                22-AUG-1978 03:24:04   VAX-11 MACRO X0.3-11               Page   6

1.06            READ WRITE DATA                                                                                                  (2)



                                     0131  4300 	.SBTTL READ WRITE DATA

                                 00000000  4400 	.PSECT RWDATA,WRT,NOEXE,LONG

                                     0000  4500 ;********************************************************************************

                                     0000  4600 ;	READ/WRITE DATA AREA

                                     0000  4700 ;********************************************************************************

                                     0000  4800 ;

                           00000000  0000  4900 DIEARG:	.LONG	0			; APPROX DIE LOCATION

                                     0004  5000 ;

                                     0004  5100 ;

                          0000'0004  0004  5129 GETJPI_LIST: .WORD 4,JPI$_UIC		; LIST OF QUOTAS,ETC TO GET 

                           00000161' 0008  5158 	.ADDRESS UIC

                           00000000' 000C  5187 	.ADDRESS 0

                          0000'0004  0010  5216 	.WORD	4,JPI$_ASTLM

                           00000131' 0014  5245 	.ADDRESS QL_ASTLM

                           00000000' 0018  5274 	.ADDRESS 0

                          0000'0004  001C  5303 	.WORD	4,JPI$_BIOLM

                           00000136' 0020  5332 	.ADDRESS QL_BIOLM

                           00000000' 0024  5361 	.ADDRESS 0

                          0000'0004  0028  5390 	.WORD	4,JPI$_DIOLM

                           0000013B' 002C  5419 	.ADDRESS QL_DIOLM

                           00000000' 0030  5448 	.ADDRESS 0

                          0000'0004  0034  5477 	.WORD	4,JPI$_TQLM

                           00000140' 0038  5506 	.ADDRESS QL_TQELM

                           00000000' 003C  5535 	.ADDRESS 0

                           00000000  0040  5564 	.LONG	0			; END OF LIST

                                     0044  5600 ;

                           00000078  0044  5700 MBUFFERD:.LONG	120			; MAILBOX DESCRIPTOR

                           0000004C' 0048  5800 	.ADDRESS MBUFFER

                                     004C  5900 MBUFFER:

                           0000004E  004C  6000 MAIL_ID:.BLKW	1			; TYPE OF MESSAGE

                           00000050  004E  6100 	.BLKW	1			; UNUSED

                           00000054  0050  6200 	.BLKL	1			; STATUS

                           000000C4  0054  6300 	.BLKB	112			; REST OF MESSAGE

                           00000000  00C4  6400 MBXCHAN: .LONG	0

                           000000D0  00C8  6500 MBXIOSB: .BLKQ	1

                           00000000  00D0  6600 MBXUNIT: .LONG	0

                                     00D4  6700 ;

                                     00D4  6800 OUTDES:	STRING O,80			; OUTPUT BUFFER DESCRIPTOR

                           00000050  00D4       	.LONG	80

                           000000DC' 00D8       	.ADDRESS .+4

                           0000012C  00DC       	.BLKB	80

                                     012C  6900 ;

                           00000000  012C  7000 PIDADR:	.LONG	0			; INTERIM PROCESS ID AREA

                                     0130  7050 ;

                                     0130  7054 QLIST:					; QUOTA LIST FOR CREATE PROCESS

                                 00' 0130  7058 	.BYTE	PQL$_ASTLM

                           00000000  0131  7062 QL_ASTLM: .LONG	0

                                 00' 0135  7066 	.BYTE	PQL$_BIOLM

                           00000000  0136  7070 QL_BIOLM: .LONG	0

                                 00' 013A  7074 	.BYTE	PQL$_DIOLM

                           00000000  013B  7078 QL_DIOLM: .LONG	0

                                 00' 013F  7082 	.BYTE	PQL$_TQELM

                           00000000  0140  7086 QL_TQELM:  .LONG	0

                                 00' 0144  7090 	.BYTE	PQL$_LISTEND

                                     0145  7095 ;

                           00000000  0145  7100 RDFLAGS:.LONG	0			; EVENT FLAGS AREA

                                     0149  7200 SSERRS:	STRING O,12

UETNATV01       VAX/VMS UETP SYSTEM SERVICES TEST                22-AUG-1978 03:24:04   VAX-11 MACRO X0.3-11               Page   7

1.06            READ WRITE DATA                                                                                                  (2)



                           0000000C  0149       	.LONG	12

                           00000151' 014D       	.ADDRESS .+4

                           0000015D  0151       	.BLKB	12

                           00000000  015D  7300 TTCHAN:	.LONG	0			; TERMINAL CHANNEL NO.

                           00000000  0161  7400 UIC:	.LONG	0			; UIC FOR DETACHED PROCESS

                                     0165  7500 ;

                                     0165  7600 ;

                                     0165  7700 CPRLIST:				; ARG LIST FOR $CREPRC SERVICE

                                     0165  7800 	$creprc PIDADR,LOGIN,,SUBOUT,SUBOUTE,,QLIST,STSFLG=<^B01000000>

                           0000000C  0165       		.LONG	12

                           0000012C' 0169       		.LONG	PIDADR

                           0000003C' 016D       		.LONG	LOGIN

                           00000000  0171       		.LONG	0

                           000000E2' 0175       		.LONG	SUBOUT

                           000000F3' 0179       		.LONG	SUBOUTE

                           00000000  017D       		.LONG	0

                           00000130' 0181       		.LONG	QLIST

                           00000000  0185       		.LONG	0

                           00000002  0189       		.LONG	2

                           00000000  018D       		.LONG	0

                           00000000  0191       		.LONG	0

                           00000040  0195       		.LONG	^B01000000

                                     0199  7900 ;

UETNATV01       VAX/VMS UETP SYSTEM SERVICES TEST                22-AUG-1978 03:24:04   VAX-11 MACRO X0.3-11               Page   8

1.06            MAIN ROUTINE                                                                                                     (3)



                                     0199   100 	.SBTTL MAIN ROUTINE

                                 00000000   200 	.PSECT UETNATV01,EXE,RD,NOWRT

                               0000' 0000   300 	.ENTRY	UETNATV01,0		; UETPDEV ENTRY MASK

                                     0002   400 ;********************************************************************************

                                     0002   500 ;	GET CHANNELS ASSIGNED FOR DEVICES, CLEAR EVENT FLAGS, ETC.

                                     0002   600 ;********************************************************************************

                                     0002   700 	PUTMSG	<#UET$_BEGIND,#2,#PROC_NAME,#0> ; GREETINGS

                          00     DD  0002       	  	PUSHL	#0

                 00000070'8F     DD  0004       	  	PUSHL	#PROC_NAME

                          02     DD  000A       	  	PUSHL	#2

                 0074103B 8F     DD  000C       	  	PUSHL	#UET$_BEGIND

   00000000'9F            04     FB  0012       		CALLS	#$$T1,@#LIB$SIGNAL

                                     0019   800 	$ASSIGN_S TTNAME,TTCHAN			; I/O CHAN FOR OPERATOR ABORT

                          7E     7C  0019       		CLRQ	-(SP)

                 0000015D'EF     3F  001B       		PUSHAW	TTCHAN

                 0000011C'EF     7F  0021       		PUSHAQ	TTNAME

   00000000'GF            04     FB  0027       		CALLS	#4,G^SYS$ASSIGN

                                     002E   900 	SERVCHEK

            0B            50     E8  002E       30000$:	BLBS	R0,30001$

   00000000'EF         FA AF     DE  0031       	MOVAL	30000$,DIEARG

                          0304   31  0039       	BRW	DIE

                                     003C       30001$:

                                     003C  1000 	$SETPRN_S PROC_NAME			; SET PROCESS NAME

                 00000070'EF     7F  003C       		PUSHAQ	PROC_NAME

   00000000'GF            01     FB  0042       		CALLS	#1,G^SYS$SETPRN

                                     0049  1100 	SERVCHEK

            0B            50     E8  0049       30002$:	BLBS	R0,30003$

   00000000'EF         FA AF     DE  004C       	MOVAL	30002$,DIEARG

                          02E9   31  0054       	BRW	DIE

                                     0057       30003$:

                                     0057  1200 	$CLREF_S #PROC_COMP

                          01     DD  0057       		PUSHL	#PROC_COMP

   00000000'GF            01     FB  0059       		CALLS	#1,G^SYS$CLREF

                                     0060  1300 	SERVCHEK

            0B            50     E8  0060       30004$:	BLBS	R0,30005$

   00000000'EF         FA AF     DE  0063       	MOVAL	30004$,DIEARG

                          02D2   31  006B       	BRW	DIE

                                     006E       30005$:

                                     006E  1400 	$CLREF_S #CONTROLC

                          02     DD  006E       		PUSHL	#CONTROLC

   00000000'GF            01     FB  0070       		CALLS	#1,G^SYS$CLREF

                                     0077  1500 	SERVCHEK

            0B            50     E8  0077       30006$:	BLBS	R0,30007$

   00000000'EF         FA AF     DE  007A       	MOVAL	30006$,DIEARG

                          02BB   31  0082       	BRW	DIE

                                     0085       30007$:

                                     0085  1600 ;*********************************************************************************

                                     0085  1700 ;

                                     0085  1800 ;	NOW CREATE A MAILBOX TO RECEIVE TERMINATION MESSAGES.

                                     0085  1900 ;	WHEN THE MAILBOX RECEIVES A MSG, THE AST HANDLER FOR IT

                                     0085  2000 ;	WILL SET AN EVENT FLAG FOR THE MAIN ROUTINE.

                                     0085  2100 ;

                                     0085  2200 ;*********************************************************************************

                                     0085  2300 	$CREMBX_S #1,CHAN=MBXCHAN,MAXMSG=#120,BUFQUO=#120,PROMSK=#0,-

                                     0085  2400 		LOGNAM=MBLOGNAM		; MAILBOX FOR MSG BETWEEN PROCESSES

                 0000005B'EF     7F  0085       		PUSHAQ	MBLOGNAM

                          7E     7C  008B       		CLRQ	-(SP)

UETNATV01       VAX/VMS UETP SYSTEM SERVICES TEST                22-AUG-1978 03:24:04   VAX-11 MACRO X0.3-11               Page   9

1.06            MAIN ROUTINE                                                                                                     (3)



                 00000078 8F     DD  008D       		PUSHL	#120

                 00000078 8F     DD  0093       		PUSHL	#120

                 000000C4'EF     3F  0099       		PUSHAW	MBXCHAN

                          01     DD  009F       		PUSHL	#1

   00000000'GF            07     FB  00A1       		CALLS	#7,G^SYS$CREMBX

                                     00A8  2500 	SERVCHEK

            0B            50     E8  00A8       30008$:	BLBS	R0,30009$

   00000000'EF         FA AF     DE  00AB       	MOVAL	30008$,DIEARG

                          028A   31  00B3       	BRW	DIE

                                     00B6       30009$:

                                     00B6  2600 	$GETCHN_S CHAN=MBXCHAN,PRIBUF=MBUFFERD

                          00     DD  00B6       		PUSHL	#0

                          00     DD  00B8       		PUSHL	#0

                 00000044'EF     7F  00BA       		PUSHAQ	MBUFFERD

                          00     DD  00C0       		PUSHL	#0

            7E   000000C4'EF     3C  00C2       		MOVZWL	MBXCHAN,-(SP)

   00000000'GF            05     FB  00C9       		CALLS	#5,G^SYS$GETCHN

                                     00D0  2700 	SERVCHEK

            0B            50     E8  00D0       30010$:	BLBS	R0,30011$

   00000000'EF         FA AF     DE  00D3       	MOVAL	30010$,DIEARG

                          0262   31  00DB       	BRW	DIE

                                     00DE       30011$:

   000000D0'EF   00000058'EF     3C  00DE  2800 	MOVZWL	MBUFFER+12,MBXUNIT	; MAILBOX UNIT NUMBER

                                     00E9  2900 ;********************************************************************************

                                     00E9  3000 ;	NOW ENABLE THE CONTROL-C INTERVENTION SO THAT USER MAY STOP THIS TEST

                                     00E9  3100 ;********************************************************************************

                                     00E9  3200 	$QIOW_S	CHAN=TTCHAN,FUNC=#IO$_SETMODE!IO$M_CTRLCAST,P1=CCASTHAND

                          7E     7C  00E9       		CLRQ	-(SP)

                          7E     7C  00EB       		CLRQ	-(SP)

                          00     DD  00ED       		PUSHL	#0

                 0000036A'EF     DF  00EF       		PUSHAL	CCASTHAND

                          7E     7C  00F5       		CLRQ	-(SP)

                          00     DD  00F7       		PUSHL	#0

            7E       0000'8F     3C  00F9       		MOVZWL	#IO$_SETMODE!IO$M_CTRLCAST,-(SP)

            7E   0000015D'EF     3C  00FE       		MOVZWL	TTCHAN,-(SP)

                          00     DD  0105       		PUSHL	#0

   00000000'GF            0C     FB  0107       		CALLS	#12,G^SYS$QIOW

                                     010E  3300 	SERVCHEK

            0B            50     E8  010E       30012$:	BLBS	R0,30013$

   00000000'EF         FA AF     DE  0111       	MOVAL	30012$,DIEARG

                          0224   31  0119       	BRW	DIE

                                     011C       30013$:

                                     011C  3400 	PUTMSG	<#UETP$_ABORTC,#1,#PROC_NAME>

                 00000070'8F     DD  011C       	  	PUSHL	#PROC_NAME

                          01     DD  0122       	  	PUSHL	#1

                 00000000'8F     DD  0124       	  	PUSHL	#UETP$_ABORTC

   00000000'9F            03     FB  012A       		CALLS	#$$T1,@#LIB$SIGNAL

                                     0131  3500 	$QIO_S  CHAN=MBXCHAN,FUNC=#IO$_READVBLK,IOSB=MBXIOSB,-

                                     0131  3600 		ASTADR=MBXAST,P1=MBUFFER,P2=#120 ; SET UP TO RECV MAIL

                          7E     7C  0131       		CLRQ	-(SP)

                          7E     7C  0133       		CLRQ	-(SP)

                 00000078 8F     DD  0135       		PUSHL	#120

                 0000004C'EF     DF  013B       		PUSHAL	MBUFFER

                          00     DD  0141       		PUSHL	#0

                 00000399'EF     DF  0143       		PUSHAL	MBXAST

                 000000C8'EF     7F  0149       		PUSHAQ	MBXIOSB

            7E       0000'8F     3C  014F       		MOVZWL	#IO$_READVBLK,-(SP)

UETNATV01       VAX/VMS UETP SYSTEM SERVICES TEST                22-AUG-1978 03:24:04   VAX-11 MACRO X0.3-11               Page  10

1.06            MAIN ROUTINE                                                                                                     (3)



            7E   000000C4'EF     3C  0154       		MOVZWL	MBXCHAN,-(SP)

                          00     DD  015B       		PUSHL	#0

   00000000'GF            0C     FB  015D       		CALLS	#12,G^SYS$QIO

                                     0164  3700 	SERVCHEK

            0B            50     E8  0164       30014$:	BLBS	R0,30015$

   00000000'EF         FA AF     DE  0167       	MOVAL	30014$,DIEARG

                          01CE   31  016F       	BRW	DIE

                                     0172       30015$:

                                     0172  3800 	$GETJPI_S ITMLST=GETJPI_LIST		; GET OUR UIC, QUOTAS

                          7E     7C  0172       		CLRQ	-(SP)

                          00     DD  0174       		PUSHL	#0

                 00000004'EF     DF  0176       		PUSHAL	GETJPI_LIST

                          00     DD  017C       		PUSHL	#0

                          00     DD  017E       		PUSHL	#0

                          00     DD  0180       		PUSHL	#0

   00000000'GF            07     FB  0182       		CALLS	#7,G^SYS$GETJPI

                                     0189  3900 	SERVCHEK

            0B            50     E8  0189       30016$:	BLBS	R0,30017$

   00000000'EF         FA AF     DE  018C       	MOVAL	30016$,DIEARG

                          01A9   31  0194       	BRW	DIE

                                     0197       30017$:

   0000018D'EF   00000161'EF     D0  0197  4000 	MOVL	UIC,CPRLIST+CREPRC$_UIC		; UIC OF TESTS

   00000191'EF   000000D0'EF     D0  01A2  4100 	MOVL	MBXUNIT,CPRLIST+CREPRC$_MBXUNT	; MAILBOX UNIT #

   00000171'EF   00000107'EF     DE  01AD  4200 	MOVAL	TEST_NAME,CPRLIST+CREPRC$_INPUT ; TEST NAME TO RUN

                                     01B8  4300 	$CREPRC_G CPRLIST			; CREATE A NEW PROCESS..

   00000000'GF   00000165'EF     FA  01B8       		CALLG	CPRLIST,G^SYS$CREPRC

                                     01C3  4400 	SERVCHEK

            0B            50     E8  01C3       30018$:	BLBS	R0,30019$

   00000000'EF         FA AF     DE  01C6       	MOVAL	30018$,DIEARG

                          016F   31  01CE       	BRW	DIE

                                     01D1       30019$:

                                     01D1  4500 WAIT:

                                     01D1  4600 	$WFLOR_S EFN=#PROC_COMP,MASK=COMMASK

                 00000000'EF     DD  01D1       		PUSHL	COMMASK

                          01     DD  01D7       		PUSHL	#PROC_COMP

   00000000'GF            02     FB  01D9       		CALLS	#2,G^SYS$WFLOR

                                     01E0  4700 	SERVCHEK

            0B            50     E8  01E0       30020$:	BLBS	R0,30021$

   00000000'EF         FA AF     DE  01E3       	MOVAL	30020$,DIEARG

                          0152   31  01EB       	BRW	DIE

                                     01EE       30021$:

                                     01EE  4800 	$READEF_S EFN=#PROC_COMP,STATE=RDFLAGS ; READ EVENT FLAGS

                 00000145'EF     DF  01EE       		PUSHAL	RDFLAGS

                          01     DD  01F4       		PUSHL	#PROC_COMP

   00000000'GF            02     FB  01F6       		CALLS	#2,G^SYS$READEF

                                     01FD  4900 	SERVCHEK

            0B            50     E8  01FD       30022$:	BLBS	R0,30023$

   00000000'EF         FA AF     DE  0200       	MOVAL	30022$,DIEARG

                          0135   31  0208       	BRW	DIE

                                     020B       30023$:

   00000145'EF            02     E0  020B  5000 	BBS	#CCBIT,RDFLAGS,DELETE		; CTRL-C?

                          0B         0212       

   00000145'EF            01     E0  0213  5100 	BBS	#CPBIT,RDFLAGS,CLEANUP		; DONE?

                          42         021A       

                          FFB3   31  021B  5200 	BRW	WAIT				;NEEDED TILL VMS BUG FIXED

                                     021E  5300 ;*********************************************************************

                                     021E  5400 ;  OPERATOR ABORTED TEST. LET LOGICAL NAME='YES' SO THAT SSTESTS WILL

UETNATV01       VAX/VMS UETP SYSTEM SERVICES TEST                22-AUG-1978 03:24:04   VAX-11 MACRO X0.3-11               Page  11

1.06            MAIN ROUTINE                                                                                                     (3)



                                     021E  5500 ;   TERMINATE CLEANLY ASAP. WAIT FOR PROC COMPLETE.

                                     021E  5600 ;*********************************************************************

                                     021E  5700 DELETE:

                                     021E  5800 	$CRELOG_S #1,SS_ABORT,YES		; SET ABORT NAME = YES

                          00     DD  021E       		PUSHL	#0

                 00000126'EF     7F  0220       		PUSHAQ	YES

                 00000081'EF     7F  0226       		PUSHAQ	SS_ABORT

                          01     DD  022C       		PUSHL	#1

   00000000'GF            04     FB  022E       		CALLS	#4,G^SYS$CRELOG

                                     0235  5900 	SERVCHEK

            0B            50     E8  0235       30024$:	BLBS	R0,30025$

   00000000'EF         FA AF     DE  0238       	MOVAL	30024$,DIEARG

                          00FD   31  0240       	BRW	DIE

                                     0243       30025$:

                                     0243  6000 	$CLREF_S #CONTROLC

                          02     DD  0243       		PUSHL	#CONTROLC

   00000000'GF            01     FB  0245       		CALLS	#1,G^SYS$CLREF

                                     024C  6100 	SERVCHEK

            0B            50     E8  024C       30026$:	BLBS	R0,30027$

   00000000'EF         FA AF     DE  024F       	MOVAL	30026$,DIEARG

                          00E6   31  0257       	BRW	DIE

                                     025A       30027$:

                          FF74   31  025A  6200 	BRW	WAIT

                                     025D  6300 ;********************************************************************************

                                     025D  6400 ;	ALL DETACHED PROCESSES HAVE BEEN FINISHED PROCESSING (OR HAVE

                                     025D  6500 ;	BEEN FORCED TO EXIT); NOW PERFORM PROGRAM CLEANUP.

                                     025D  6600 ;	PRINT OUT NUMBER OF SYSTEM SERVICE ERRORS FOUND BY SSTESTS.

                                     025D  6700 ;	THE LOGICAL NAME 'SYSTST$ERRS' IS USED TO GET THE NUMBER.

                                     025D  6800 ;********************************************************************************

                                     025D  6900 CLEANUP:

                                     025D  7000 	$TRNLOG_S LOGNAM=SSERRNM,RSLLEN=SSERRS,RSLBUF=SSERRS

                          00     DD  025D       		PUSHL	#0

                          00     DD  025F       		PUSHL	#0

                          00     DD  0261       		PUSHL	#0

                 00000149'EF     7F  0263       		PUSHAQ	SSERRS

                 00000149'EF     3F  0269       		PUSHAW	SSERRS

                 00000095'EF     7F  026F       		PUSHAQ	SSERRNM

   00000000'GF            06     FB  0275       		CALLS	#6,G^SYS$TRNLOG

                                     027C  7100 	SERVCHEK

            0B            50     E8  027C       30028$:	BLBS	R0,30029$

   00000000'EF         FA AF     DE  027F       	MOVAL	30028$,DIEARG

                          00B6   31  0287       	BRW	DIE

                                     028A       30029$:

   00000000'8F            50     D1  028A  7200 	CMPL	R0,#SS$_NOTRAN

                          0D     12  0291  7300 	BNEQ	10$

   00000000'EF         FE AF     DE  0293  7400 	MOVAL	.,DIEARG

                          50     96  029B  7500 	INCB	R0

                          00A0   31  029D  7600 	BRW	DIE

                                     02A0  7700 10$:

                                     02A0  7800 	$FAO_S	SSERRTXT,OUTDES,OUTDES,P1=#SSERRS

                 00000149'8F     DD  02A0       		PUSHL	#SSERRS

                 000000D4'EF     7F  02A6       		PUSHAQ	OUTDES

                 000000D4'EF     3F  02AC       		PUSHAW	OUTDES

                 000000A8'EF     7F  02B2       		PUSHAQ	SSERRTXT

   00000000'GF            04     FB  02B8       		CALLS	#$$T2,G^SYS$FAO

                                     02BF  7900 	SERVCHEK

            0B            50     E8  02BF       30030$:	BLBS	R0,30031$

UETNATV01       VAX/VMS UETP SYSTEM SERVICES TEST                22-AUG-1978 03:24:04   VAX-11 MACRO X0.3-11               Page  12

1.06            MAIN ROUTINE                                                                                                     (3)



   00000000'EF         FA AF     DE  02C2       	MOVAL	30030$,DIEARG

                          0073   31  02CA       	BRW	DIE

                                     02CD       30031$:

                                     02CD  8000 	PUTMSG	<#UET$_TEXT,#1,#OUTDES>

                 000000D4'8F     DD  02CD       	  	PUSHL	#OUTDES

                          01     DD  02D3       	  	PUSHL	#1

                 00741133 8F     DD  02D5       	  	PUSHL	#UET$_TEXT

   00000000'9F            03     FB  02DB       		CALLS	#$$T1,@#LIB$SIGNAL

            52            01     9A  02E2  8100 	MOVZBL	#SUCCESS,R2		; NORMAL EXIT ENTRY

                                     02E5  8200 CLEANERR:				; ERROR EXIT ENTRY

                                     02E5  8300 	$DELMBX_S MBXCHAN		; DELETE UNNEEDED MAILBOX

            7E   000000C4'EF     3C  02E5       		MOVZWL	MBXCHAN,-(SP)

   00000000'GF            01     FB  02EC       		CALLS	#1,G^SYS$DELMBX

                                     02F3  8400 	$DASSGN_S TTCHAN		; DE-ASSIGN TERMINAL CHANNEL

            7E   0000015D'EF     3C  02F3       		MOVZWL	TTCHAN,-(SP)

   00000000'GF            01     FB  02FA       		CALLS	#1,G^SYS$DASSGN

            52            01     D1  0301  8500 	CMPL	#SUCCESS,R2		; DO WE GIVE GOOD OR BAD END MSG

                          03     13  0304  8600 	BEQL	10$

                          0020   31  0306  8700 	BRW	FATAL			; BAD

                                     0309  8800 10$:

                                     0309  8900 	PUTMSG	<#UET$_ENDEDD,#2,#PROC_NAME,#0>

                          00     DD  0309       	  	PUSHL	#0

                 00000070'8F     DD  030B       	  	PUSHL	#PROC_NAME

                          02     DD  0311       	  	PUSHL	#2

                 00741083 8F     DD  0313       	  	PUSHL	#UET$_ENDEDD

   00000000'9F            04     FB  0319       		CALLS	#$$T1,@#LIB$SIGNAL

                                     0320  9000 	$EXIT_S				; E X I T

                          01     DD  0320       		PUSHL	#1

   00000000'GF            01     FB  0322       		CALLS	#1,G^SYS$EXIT

UETNATV01       VAX/VMS UETP SYSTEM SERVICES TEST                22-AUG-1978 03:24:04   VAX-11 MACRO X0.3-11               Page  13

1.06            ERROR AND AST HANDLERS                                                                                           (4)



                                     0329   100 	.SBTTL	ERROR AND AST HANDLERS

                                     0329   200 ;****************************************************************

                                     0329   300 ; FATAL EXIT

                                     0329   400 ;*****************************************************************

                                     0329   500 FATAL:	PUTMSG	<#UET$_ABENDD,#2,#PROC_NAME,#0> ;NO RETURN

                          00     DD  0329       	  	PUSHL	#0

                 00000070'8F     DD  032B       	  	PUSHL	#PROC_NAME

                          02     DD  0331       	  	PUSHL	#2

                 007410E4 8F     DD  0333       	  	PUSHL	#UET$_ABENDD

   00000000'9F            04     FB  0339       		CALLS	#$$T1,@#LIB$SIGNAL

                                     0340   600 ;********************************************************************************

                                     0340   700 ;	COME HERE IN CASE OF UNEXPECTED SYSTEM SERVICE ERROR.

                                     0340   800 ;********************************************************************************

                                     0340   900 DIE:

            52            50     D0  0340  1000 	MOVL	R0,R2			; SAVE SERVICE RETURN CODE

                                     0343  1100 	PUTMSG	<#UET$_SYSERRORPC,#2,#PROC_NAME,DIEARG,R2>

                          52     DD  0343       	  	PUSHL	R2

                 00000000'EF     DD  0345       	  	PUSHL	DIEARG

                 00000070'8F     DD  034B       	  	PUSHL	#PROC_NAME

                          02     DD  0351       	  	PUSHL	#2

                 007410F2 8F     DD  0353       	  	PUSHL	#UET$_SYSERRORPC

   00000000'9F            05     FB  0359       		CALLS	#$$T1,@#LIB$SIGNAL

            52   FFFFFFFF 8F     D0  0360  1200 	MOVL	#ERR_RET,R2

                          FF7B   31  0367  1300 	BRW	CLEANERR		; AND CLEANUP BEFORE EXIT.

                                     036A  1400 ;

                                     036A  1500 ;********************************************************************************

                                     036A  1600 ;

                                     036A  1700 ;	THIS IS THE AST HANDLER FOR SERVICING A CONTROL-C

                                     036A  1800 ;	ENTERED AT THE CONSOLE IN ORDER TO STOP EXECUTION OF THIS PART OF

                                     036A  1900 ;	THE UETP.  AN EVENT FLAG IS SET IN CLUSTER 2

                                     036A  2000 ;	WHICH WILL CAUSE THE MAIN ROUTINE TO BE RUNNABLE AGAIN.

                                     036A  2100 ;	UPON BEING AWAKENED, THE MAIN ROUTINE WILL DELETE ALL

                                     036A  2200 ;	DETACHED PROCESSES CREATED EARLIER AND EXIT.

                                     036A  2300 ;

                                     036A  2400 ;********************************************************************************

                                     036A  2500 CCASTHAND:

                               0FFC  036A  2600 	.WORD	^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> ; ENTRY MASK

                                     036C  2700 	PUTMSG	<#UET$_TEXT,#1,#CNTRLCMSG>

                 00000004'8F     DD  036C       	  	PUSHL	#CNTRLCMSG

                          01     DD  0372       	  	PUSHL	#1

                 00741133 8F     DD  0374       	  	PUSHL	#UET$_TEXT

   00000000'9F            03     FB  037A       		CALLS	#$$T1,@#LIB$SIGNAL

                                     0381  2800 	$SETEF_S EFN=#CONTROLC			; SET THE CONTROL-C FLAG

                          02     DD  0381       		PUSHL	#CONTROLC

   00000000'GF            01     FB  0383       		CALLS	#1,G^SYS$SETEF

                                     038A  2900 	SERVCHEK

            0B            50     E8  038A       30032$:	BLBS	R0,30033$

   00000000'EF         FA AF     DE  038D       	MOVAL	30032$,DIEARG

                          FFA8   31  0395       	BRW	DIE

                                     0398       30033$:

                                 04  0398  3000 	RET					; RETURN  TO AST DELIVERY RTN.

UETNATV01       VAX/VMS UETP SYSTEM SERVICES TEST                22-AUG-1978 03:24:04   VAX-11 MACRO X0.3-11               Page  14

1.06            ERROR AND AST HANDLERS                                                                                           (4)



                                     0399  3200 ;****************************************************************

                                     0399  3300 ;

                                     0399  3400 ; AST HANDLER FOR MAILBOX MESSAGES RECEIVED

                                     0399  3500 ;

                                     0399  3600 ;****************************************************************

                                     0399  3700 MBXAST:

                               0FFC  0399  3800 	.WORD	^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> ; ENTRY MASK

       0000'8F   000000C8'EF     B1  039B  3900 	CMPW	MBXIOSB,#SS$_NORMAL	;CHECK THAT I/O WAS OK

                          12     13  03A4  4000 	BEQL	10$			;YES

            50   000000C8'EF     3C  03A6  4100 	MOVZWL	MBXIOSB,R0		;NO

   00000000'EF         FE AF     DE  03AD  4200 	MOVAL	.,DIEARG		;ERROR ADDRESS

                          FF88   31  03B5  4300 	BRW	DIE			;ERROR EXIT 

                                     03B8  4400 ;

       0000'8F   0000004C'EF     B1  03B8  4500 10$:	CMPW	MAIL_ID,#MSG$_DELPROC	;CHECK MSG TYPE

                          33     13  03C1  4600 	BEQL	20$			;OK

   00000000'EF         FE AF     DE  03C3  4700 	MOVAL	.,DIEARG		;ERROR MSG

                                     03CB  4800 	PUTMSG	<#UET$_BADWORD,#2,MAIL_ID,DIEARG,#UET$_BADLOGICPC>

                 00741152 8F     DD  03CB       	  	PUSHL	#UET$_BADLOGICPC

                 00000000'EF     DD  03D1       	  	PUSHL	DIEARG

                 0000004C'EF     DD  03D7       	  	PUSHL	MAIL_ID

                          02     DD  03DD       	  	PUSHL	#2

                 0074102A 8F     DD  03DF       	  	PUSHL	#UET$_BADWORD

   00000000'9F            05     FB  03E5       		CALLS	#$$T1,@#LIB$SIGNAL

            52   FFFFFFFF 8F     D0  03EC  4900 	MOVL	#ERR_RET,R2

                          FEEF   31  03F3  5000 	BRW	CLEANERR

                                     03F6  5100 ;

                                     03F6  5200 20$:

                                     03F6  5300 	$SETEF_S EFN=#PROC_COMP		;PROCESS COMPLETED OK

                          01     DD  03F6       		PUSHL	#PROC_COMP

   00000000'GF            01     FB  03F8       		CALLS	#1,G^SYS$SETEF

                                     03FF  5400 	SERVCHEK

            0B            50     E8  03FF       30034$:	BLBS	R0,30035$

   00000000'EF         FA AF     DE  0402       	MOVAL	30034$,DIEARG

                          FF33   31  040A       	BRW	DIE

                                     040D       30035$:

                                 04  040D  5500 	RET				;RETURN FROM AST

                                     040E  5600 ;

                                     040E  5700 	.END	UETNATV01

UETNATV01       VAX/VMS UETP SYSTEM SERVICES TEST                22-AUG-1978 03:24:04   VAX-11 MACRO X0.3-11               Page  15

SYMBOL TABLE                                                                                                                     (4)



$$$CHARS       = 00000003            PIDADR           0000012C R     04   SHR$_FILPURGED = 00001250            

$$$STRINGS     = 00000000            PQL$_ASTLM       ********   X   04   SHR$_HASHCONCAT= 000011D8            

$$ARGS         = 0000000C            PQL$_BIOLM       ********   X   04   SHR$_HIGHVER   = 00001148            

$$T1           = 00000005            PQL$_DIOLM       ********   X   04   SHR$_IDXCONCAT = 00001138            

$$T2           = 00000004            PQL$_LISTEND     ********   X   04   SHR$_INCOMPAT  = 000011E0            

BIT...         = 00001258            PQL$_TQELM       ********   X   04   SHR$_NEWFILES  = 00001090            

CCASTHAND        0000036A R     05   PROC_COMP      = 00000001            SHR$_NOFILPURG = 00001228            

CCBIT          = 00000002            PROC_NAME        00000070 R     03   SHR$_NOJOBID   = 000011A0            

CLEANERR         000002E5 R     05   QLIST            00000130 R     04   SHR$_NOJOBNAME = 000011A8            

CLEANUP          0000025D R     05   QL_ASTLM         00000131 R     04   SHR$_NOQUEUE   = 00001198            

CNTRLCMSG        00000004 R     03   QL_BIOLM         00000136 R     04   SHR$_NOTCMPLT  = 000011C0            

COMMASK          00000000 R     03   QL_DIOLM         0000013B R     04   SHR$_NOTCOPIED = 000011B8            

COMPLETE_M     = 00000002            QL_TQELM         00000140 R     04   SHR$_NOVALUE   = 00001100            

CONTROLC       = 00000002            RDFLAGS          00000145 R     04   SHR$_NOWILD    = 00001128            

CONTROLC_M     = 00000004            SHR$K_SHRDEF   = 00000001            SHR$_OPENIN    = 00001098            

CPBIT          = 00000001            SHR$_ABEND     = 000010D8            SHR$_OPENOUT   = 000010A0            

CPRLIST          00000165 R     04   SHR$_ABENDD    = 000010E0            SHR$_OVERLAY   = 000010A8            

CREPRC$_BASPRI = 00000024            SHR$_ABENDT    = 000010E8            SHR$_PARSEFAIL = 00001248            

CREPRC$_ERROR  = 00000014            SHR$_APPENDEDB = 00001000            SHR$_PURGEVER  = 00001210            

CREPRC$_IMAGE  = 00000008            SHR$_APPENDEDR = 00001008            SHR$_READERR   = 000010B0            

CREPRC$_INPUT  = 0000000C            SHR$_ATPC      = 00001158            SHR$_RELCONCAT = 00001140            

CREPRC$_MBXUNT = 0000002C            SHR$_BADBYTE   = 00001010            SHR$_REPLACED  = 000010B8            

CREPRC$_NARGS  = 0000000C            SHR$_BADCOPIES = 00001160            SHR$_RMSERROR  = 000011C8            

CREPRC$_OUTPUT = 00000010            SHR$_BADDELIM  = 00001118            SHR$_SEARCHFAIL= 00001238            

CREPRC$_PIDADR = 00000004            SHR$_BADFIELD  = 00001018            SHR$_SYNTAX    = 000010F8            

CREPRC$_PRCNAM = 00000020            SHR$_BADFORM   = 00001168            SHR$_SYSERROR  = 000011B0            

CREPRC$_PRVADR = 00000018            SHR$_BADJOBID  = 00001170            SHR$_SYSERRORPC= 000010F0            

CREPRC$_QUOTA  = 0000001C            SHR$_BADJOBNAME= 00001178            SHR$_TEXT      = 00001130            

CREPRC$_STSFLG = 00000030            SHR$_BADKEY    = 00001108            SHR$_UNXPCTSTS = 000011D0            

CREPRC$_UIC    = 00000028            SHR$_BADLOGIC  = 00001120            SHR$_VALERR    = 000011E8            

DELETE           0000021E R     05   SHR$_BADLOGICPC= 00001150            SHR$_WILDCONCAT= 000010C0            

DIE              00000340 R     05   SHR$_BADLONG   = 00001020            SHR$_WILDOUTVER= 000010C8            

DIEARG           00000000 R     04   SHR$_BADPRTY   = 00001180            SHR$_WRITEERR  = 000010D0            

ERR_RET        = FFFFFFFF            SHR$_BADQNAME  = 00001188            SS$_NORMAL       ********   X   05   

FATAL            00000329 R     05   SHR$_BADTIME   = 00001190            SS$_NOTRAN       ********   X   05   

GBL...         = 00000000            SHR$_BADVALUE  = 00001110            SSERRNM          00000095 R     03   

GETJPI_LIST      00000004 R     04   SHR$_BADWORD   = 00001028            SSERRS           00000149 R     04   

IO$M_CTRLCAST    ********   X   05   SHR$_BEGIN     = 00001030            SSERRTXT         000000A8 R     03   

IO$_READVBLK     ********   X   05   SHR$_BEGIND    = 00001038            SS_ABORT         00000081 R     03   

IO$_SETMODE      ********   X   05   SHR$_BEGINT    = 00001040            SUBOUT           000000E2 R     03   

JPI$_ASTLM       ********   X   04   SHR$_CLICB     = 00001048            SUBOUTE          000000F3 R     03   

JPI$_BIOLM       ********   X   04   SHR$_CLOSEDEL  = 00001218            SUCCESS        = 00000001            

JPI$_DIOLM       ********   X   04   SHR$_CLOSEIN   = 00001050            SYS$ASSIGN       ********   X   05   

JPI$_TQLM        ********   X   04   SHR$_CLOSEOUT  = 00001058            SYS$CLREF        ********   X   05   

JPI$_UIC         ********   X   04   SHR$_CONFDEL   = 000011F8            SYS$CRELOG       ********   X   05   

LIB$SIGNAL       ********   X   05   SHR$_COPIEDB   = 00001060            SYS$CREMBX       ********   X   05   

LOGIN            0000003C R     03   SHR$_COPIEDR   = 00001068            SYS$CREPRC       ********   X   05   

MAIL_ID          0000004C R     04   SHR$_CREATED   = 00001070            SYS$DASSGN       ********   X   05   

MBLOGNAM         0000005B R     03   SHR$_DELETED   = 00001200            SYS$DELMBX       ********   X   05   

MBUFFER          0000004C R     04   SHR$_DELINTERR = 00001240            SYS$EXIT         ********   X   05   

MBUFFERD         00000044 R     04   SHR$_DELVER    = 00001208            SYS$FAO          ********   X   05   

MBXAST           00000399 R     05   SHR$_DIRTOOBUS = 00001220            SYS$GETCHN       ********   X   05   

MBXCHAN          000000C4 R     04   SHR$_ENDED     = 00001078            SYS$GETJPI       ********   X   05   

MBXIOSB          000000C8 R     04   SHR$_ENDEDD    = 00001080            SYS$QIO          ********   X   05   

MBXUNIT          000000D0 R     04   SHR$_ENDEDT    = 00001088            SYS$QIOW         ********   X   05   

MSG$_DELPROC     ********   X   05   SHR$_FILNOTDEL = 000011F0            SYS$READEF       ********   X   05   

OUTDES           000000D4 R     04   SHR$_FILNOTPUR = 00001230            SYS$SETEF        ********   X   05   

UETNATV01       VAX/VMS UETP SYSTEM SERVICES TEST                22-AUG-1978 03:24:04   VAX-11 MACRO X0.3-11               Page  16

SYMBOL TABLE                                                                                                                     (4)



SYS$SETPRN       ********   X   05   

SYS$TRNLOG       ********   X   05   

SYS$WFLOR        ********   X   05   

TEST_NAME        00000107 R     03   

TTCHAN           0000015D R     04   

TTNAME           0000011C R     03   

UET$_ABENDD    = 007410E4            

UET$_BADLOGICPC= 00741152            

UET$_BADWORD   = 0074102A            

UET$_BEGIND    = 0074103B            

UET$_ENDEDD    = 00741083            

UET$_SYSERRORPC= 007410F2            

UET$_TEXT      = 00741133            

UETNATV01        00000000 RG    05   

UETP$_ABORTC     ********   X   05   

UIC              00000161 R     04   

WAIT             000001D1 R     05   

YES              00000126 R     03   





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

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

UETNATV01        0000040E      05     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

15528. BYTES LEFT IN FREE MEMORY POOL.

10. BYTES OF RECLAIMED MEMORY.

OBJ$:UETNATV01,LIS$:UETNATV01/-SP=SRC$:UETPLIBS,UETNATV01

66 MLB DIR RDS - 449 GETS TO DEFINE 38 MACROS. 64 INTER. FILE WRITES. 

