UETLOAD01       VAX/VMS UETP SYSTEM LOAD TEST                    22-AUG-1978 03:22:45   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (2)      64  DECLARATIONS

   (2)      94  READ ONLY DATA

   (3)     149  READ WRITE DATA

   (4)     224  MAIN ROUTINE

   (5)     415  ERROR AND AST HANDLERS

UETLOAD01       VAX/VMS UETP SYSTEM LOAD TEST                    22-AUG-1978 03:22:45   VAX-11 MACRO X0.3-11               Page   1

1.16                                                                                                                             (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     1 	.TITLE UETLOAD01  VAX/VMS UETP SYSTEM LOAD TEST

                                     0000     2 	.IDENT /1.16/

                                     0000     3 

                                     0000     4 ;

                                     0000     5 ; COPYRIGHT (C) 1978

                                     0000     6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754

                                     0000     7 ;

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

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

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

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

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

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

                                     0000    14 ; REMAIN IN DEC.

                                     0000    15 ;

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

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

                                     0000    18 ; CORPORATION.

                                     0000    19 ;

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

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

                                     0000    22 ;

                                     0000    23 

                                     0000    24 ;++

                                     0000    25 ; FACILITY:

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

                                     0000    27 ;

                                     0000    28 ; ABSTRACT:

                                     0000    29 ;	THIS MODULE WILL CREATE A NUMBER OF DETACHED PROCESSES

                                     0000    30 ;	EACH OF WHICH WILL EXECUTE A COMMAND PROCEDURE CONSISTING

                                     0000    31 ;	OF A SUBSET OF THE UETP. THESE PROCESSES WILL CONTEND FOR SYSTEM

                                     0000    32 ;	RESOURCES AS WOULD REAL USERS, AND WILL CONTINUE TO RUN UNTIL

                                     0000    33 ;	EACH PROCESS HAS FINISHED AND SENT MAIL OR OPERATOR HAS

                                     0000    34 ;	ENTERED CONTROL-C.

                                     0000    35 ;

                                     0000    36 ; ENVIRONMENT:

                                     0000    37 ; 	THE MODULE WILL RUN IN USER ACCESS MODE, WITH INTERRUPTS ENABLED

                                     0000    38 ;

                                     0000    39 ; AUTHOR: PAUL FAY,	 CREATION DATE: APRIL, 1977

                                     0000    40 ;

                                     0000    41 ; MODIFIED BY:

                                     0000    42 ;	Dick Bator,	August,1977

                                     0000    43 ;

                                     0000    44 ;	, : VERSION

                                     0000    45 ; 01.01	- 9-JAN-78  CHANGE TO 1 SET OF LOADS TO LOGIN   RAB

                                     0000    46 ; 1.1	-	24-JAN-78 INSERT 1 MIN TIMER BEFORE DELETE PROCS

                                     0000    47 ;			INSERT MULTIPLE CONTROL-C TRAP  RAB

                                     0000    48 ; 1.10	-	31-JAN-78 CHANGE LOGICAL NAMES TO UETP$xxxxx

                                     0000    49 ; 1.11  -   17-FEB-78  CHANGE LOGNAM TRANS BUFFER FOR LARGER SIZE

                                     0000    50 ; 1.12  -	CHANGE $GTCHAN TO $GETCHN   RAB 7-MAR-78

                                     0000    51 ; 1.13  -	CLEANUP SHARED MESSAGES  RAB 8-MAR-78

UETLOAD01       VAX/VMS UETP SYSTEM LOAD TEST                    22-AUG-1978 03:22:45   VAX-11 MACRO X0.3-11               Page   2

1.16                                                                                                                             (1)



                                     0000    52 ; 1.14  -	ADD STSFLG TO $CREPRC TO ELIMINATE PASSWORDS IN .COM

                                     0000    53 ;		 FILES OF DETACHED PROCESSES.  RAB  14-MAR-78

                                     0000    54 ; 1.15 -	ADD QUOTALIST TO $CREPRC	RAB 24-MAR-78

                                     0000    55 ; 1.16 -	CHANGE LOGD.LOG NAME TO LOAD.LOG RAB 18-APR-78

                                     0000    56 ;--

UETLOAD01       VAX/VMS UETP SYSTEM LOAD TEST                    22-AUG-1978 03:22:45   VAX-11 MACRO X0.3-11               Page   3

1.16            DECLARATIONS                                                                                                     (2)



                                     0000    58 	.SBTTL	DECLARATIONS

                                     0000    59 ;

                                     0000    60 ; INCLUDE FILES:

                                     0000    61 ;

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

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

                                     0000       	.SAVE

                                 00000000       	.PSECT	$ABS$,ABS

                                     0000       	.RESTORE

                                     0000    64 ; SEVERITY CODES ABOVE=	0	WARNING

                                     0000    65 ;			1	SUCCESS

                                     0000    66 ;			2	ERROR

                                     0000    67 ;			3	INFORMATION

                                     0000    68 ;			4	FATAL (DO NOT RETURN TO CALLER)

                                     0000    69 ;

                                     0000    70 ;

                                     0000    71 ;

                                     0000    72 ;

                                     0000    73 ; EQUATED SYMBOLS:

                                     0000    74 ;

                           00000000  0000    75 COMMON=0			; EVENT FLAG NO. OF CLUSTER TO BE USED

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

                           00000001  0000    77 COMPLETE=1			; EVENT FLAG NO. FOR DETACH PROC TERMINATE

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

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

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

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

                                     0000    82 ;

                           00000030  0000    83 MAX_USERS=48			; MAX NBR OF DETACHED USERS TO CREATE

                           0000000A  0000    84 NBR_PROC_LIM=10			; NBR OF DIFFERENT LOAD TEST USER SCRIPTS

                           00000001  0000    85 SUCCESS=1			; UETLOAD01 NORMAL EXIT CODE

                           FFFFFFFF  0000    86 ERR_RET=-1			; UETLOAD01 ERROR EXIT CODE

UETLOAD01       VAX/VMS UETP SYSTEM LOAD TEST                    22-AUG-1978 03:22:45   VAX-11 MACRO X0.3-11               Page   4

1.16            READ ONLY DATA                                                                                                   (2)



                                     0000    88 	.SBTTL READ ONLY DATA

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

                                     0000    90 ;********************************************************************************

                                     0000    91 ;	READ/ONLY DATA AREA

                                     0000    92 ;********************************************************************************

                                     0000    93 BADUSERS: STRING I,<invalid # of users, load test>

                           0000001D  0000       	.LONG	$$$CHARS

                           00000008' 0004       	.ADDRESS .+4

66 6F 20 23 20 64 69 6C 61 76 6E 69  0008       	.ASCII	\invalid # of users, load test\

64 61 6F 6C 20 2C 73 72 65 73 75 20  0014       

                     74 73 65 74 20  0020       

                                     0025    94 ;

                           00000006  0025    95 COMMASK: .LONG	CONTROLC_M+COMPLETE_M 	; EVENT FLAGS MASK

                                     0029    96 ;

                                     0029    97 CNTRLCMSG: STRING I,<control-C entered; load test terminating.>

                           00000029  0029       	.LONG	$$$CHARS

                           00000031' 002D       	.ADDRESS .+4

6E 65 20 43 2D 6C 6F 72 74 6E 6F 63  0031       	.ASCII	\control-C entered; load test terminating.\

20 64 61 6F 6C 20 3B 64 65 72 65 74  003D       

61 6E 69 6D 72 65 74 20 74 73 65 74  0049       

                     2E 67 6E 69 74  0055       

UETLOAD01       VAX/VMS UETP SYSTEM LOAD TEST                    22-AUG-1978 03:22:45   VAX-11 MACRO X0.3-11               Page   5

1.16            READ ONLY DATA                                                                                                   (3)



                                     005A    99 ;  STRING DESCRIPTORS FOR FILE NAMES USED AS INPUT FOR THE

                                     005A   100 ;  VARIOUS PROCESSES USED IN LOAD TEST

                                     005A   101 ;

                                     005A   102 LOADS02: STRING	I,<UETLOAD02.COM>

                           0000000D  005A       	.LONG	$$$CHARS

                           00000062' 005E       	.ADDRESS .+4

4F 43 2E 32 30 44 41 4F 4C 54 45 55  0062       	.ASCII	\UETLOAD02.COM\

                                 4D  006E       

                                     006F   103 LOADS03: STRING	I,<UETLOAD03.COM>

                           0000000D  006F       	.LONG	$$$CHARS

                           00000077' 0073       	.ADDRESS .+4

4F 43 2E 33 30 44 41 4F 4C 54 45 55  0077       	.ASCII	\UETLOAD03.COM\

                                 4D  0083       

                                     0084   104 LOADS04: STRING	I,<UETLOAD04.COM>

                           0000000D  0084       	.LONG	$$$CHARS

                           0000008C' 0088       	.ADDRESS .+4

4F 43 2E 34 30 44 41 4F 4C 54 45 55  008C       	.ASCII	\UETLOAD04.COM\

                                 4D  0098       

                                     0099   105 LOADS05: STRING	I,<UETLOAD05.COM>

                           0000000D  0099       	.LONG	$$$CHARS

                           000000A1' 009D       	.ADDRESS .+4

4F 43 2E 35 30 44 41 4F 4C 54 45 55  00A1       	.ASCII	\UETLOAD05.COM\

                                 4D  00AD       

                                     00AE   106 LOADS06: STRING	I,<UETLOAD06.COM>

                           0000000D  00AE       	.LONG	$$$CHARS

                           000000B6' 00B2       	.ADDRESS .+4

4F 43 2E 36 30 44 41 4F 4C 54 45 55  00B6       	.ASCII	\UETLOAD06.COM\

                                 4D  00C2       

                                     00C3   107 LOADS07: STRING	I,<UETLOAD07.COM>

                           0000000D  00C3       	.LONG	$$$CHARS

                           000000CB' 00C7       	.ADDRESS .+4

4F 43 2E 37 30 44 41 4F 4C 54 45 55  00CB       	.ASCII	\UETLOAD07.COM\

                                 4D  00D7       

                                     00D8   108 LOADS08: STRING	I,<UETLOAD08.COM>

                           0000000D  00D8       	.LONG	$$$CHARS

                           000000E0' 00DC       	.ADDRESS .+4

4F 43 2E 38 30 44 41 4F 4C 54 45 55  00E0       	.ASCII	\UETLOAD08.COM\

                                 4D  00EC       

                                     00ED   109 LOADS09: STRING	I,<UETLOAD09.COM>

                           0000000D  00ED       	.LONG	$$$CHARS

                           000000F5' 00F1       	.ADDRESS .+4

4F 43 2E 39 30 44 41 4F 4C 54 45 55  00F5       	.ASCII	\UETLOAD09.COM\

                                 4D  0101       

                                     0102   110 LOADS10: STRING I,<UETLOAD10.COM>

                           0000000D  0102       	.LONG	$$$CHARS

                           0000010A' 0106       	.ADDRESS .+4

4F 43 2E 30 31 44 41 4F 4C 54 45 55  010A       	.ASCII	\UETLOAD10.COM\

                                 4D  0116       

                                     0117   111 LOADS11: STRING I,<UETLOAD11.COM>

                           0000000D  0117       	.LONG	$$$CHARS

                           0000011F' 011B       	.ADDRESS .+4

4F 43 2E 31 31 44 41 4F 4C 54 45 55  011F       	.ASCII	\UETLOAD11.COM\

                                 4D  012B       

                                     012C   112 ;

                                     012C   113 LOGIN:	STRING	I,<SYS$SYSTEM:LOGINOUT.EXE>

                           00000017  012C       	.LONG	$$$CHARS

                           00000134' 0130       	.ADDRESS .+4

UETLOAD01       VAX/VMS UETP SYSTEM LOAD TEST                    22-AUG-1978 03:22:45   VAX-11 MACRO X0.3-11               Page   6

1.16            READ ONLY DATA                                                                                                   (3)



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

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

                                     014B   114 ;

                                     014B   115 MBLOGNAM: STRING I,<UETP$MAILBOX>	;NAME OF MAILBOX

                           0000000C  014B       	.LONG	$$$CHARS

                           00000153' 014F       	.ADDRESS .+4

58 4F 42 4C 49 41 4D 24 50 54 45 55  0153       	.ASCII	\UETP$MAILBOX\

                                     015F   116 ;

                                     015F   117 ;

                                     015F   118 SUBOUT:	STRING I,<LOAD.LOG>		;LOG FILE FOR THIS TEST

                           00000008  015F       	.LONG	$$$CHARS

                           00000167' 0163       	.ADDRESS .+4

            47 4F 4C 2E 44 41 4F 4C  0167       	.ASCII	\LOAD.LOG\

                                     016F   119 SUBOUTE:STRING I,<LOGE.LOG>		;LOG ERROR FILE FOR THIS TEST

                           00000008  016F       	.LONG	$$$CHARS

                           00000177' 0173       	.ADDRESS .+4

            47 4F 4C 2E 45 47 4F 4C  0177       	.ASCII	\LOGE.LOG\

                                     017F   120 ;

                                     017F   121 ;  TABLE OF ADDR OF STRING DESCRIPTORS OF LOAD TEST USERS

                                     017F   122 ;

                                     017F   123 TABLE_ADDR:

                           0000005A' 017F   124 	.ADDRESS LOADS02

                           0000006F' 0183   125 	.ADDRESS LOADS03

                           00000084' 0187   126 	.ADDRESS LOADS04

                           00000099' 018B   127 	.ADDRESS LOADS05

                           000000AE' 018F   128 	.ADDRESS LOADS06

                           000000C3' 0193   129 	.ADDRESS LOADS07

                           000000D8' 0197   130 	.ADDRESS LOADS08

                           000000ED' 019B   131 	.ADDRESS LOADS09

                           00000102' 019F   132 	.ADDRESS LOADS10

                           00000117' 01A3   133 	.ADDRESS LOADS11

                                     01A7   134 ;

                                     01A7   135 ;

                                     01A7   136 TTNAME:	STRING I,<TT>

                           00000002  01A7       	.LONG	$$$CHARS

                           000001AF' 01AB       	.ADDRESS .+4

                              54 54  01AF       	.ASCII	\TT\

                                     01B1   137 ;

                                     01B1   138 UETLM_NAM: STRING I,<UETLOAD01>		; THIS PROCESS NAME

                           00000009  01B1       	.LONG	$$$CHARS

                           000001B9' 01B5       	.ADDRESS .+4

         31 30 44 41 4F 4C 54 45 55  01B9       	.ASCII	\UETLOAD01\

                                     01C2   139 ;

                                     01C2   140 USERNUM: STRING I,<UETP$USERS>		;NUMBER OF USERS ENTERED

                           0000000A  01C2       	.LONG	$$$CHARS

                           000001CA' 01C6       	.ADDRESS .+4

      53 52 45 53 55 24 50 54 45 55  01CA       	.ASCII	\UETP$USERS\

                                     01D4   141 WAITMSG: STRING I,<  please be patient .... >

                           00000019  01D4       	.LONG	$$$CHARS

                           000001DC' 01D8       	.ADDRESS .+4

20 65 62 20 65 73 61 65 6C 70 20 20  01DC       	.ASCII	\  please be patient .... \

2E 2E 2E 2E 20 74 6E 65 69 74 61 70  01E8       

                                 20  01F4       

UETLOAD01       VAX/VMS UETP SYSTEM LOAD TEST                    22-AUG-1978 03:22:45   VAX-11 MACRO X0.3-11               Page   7

1.16            READ WRITE DATA                                                                                                  (3)



                                     01F5   143 	.SBTTL READ WRITE DATA

                                 00000000   144 	.PSECT RWDATA,WRT,NOEXE,LONG

                                     0000   145 ;********************************************************************************

                                     0000   146 ;	READ/WRITE DATA AREA

                                     0000   147 ;********************************************************************************

                                     0000   148 ;

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

                                     0004   150 DPNAM:	STRING	I,<!AD_!2ZB>		; PROCESS NAMES

                           00000008  0004       	.LONG	$$$CHARS

                           0000000C' 0008       	.ADDRESS .+4

            42 5A 32 21 5F 44 41 21  000C       	.ASCII	\!AD_!2ZB\

                                     0014   151 DPROC_NAM: STRING O,12

                           0000000C  0014       	.LONG	12

                           0000001C' 0018       	.ADDRESS .+4

                           00000028  001C       	.BLKB	12

                                 00  0028   152 FLAGD:	.BYTE	0			; INDICATES WHETHER ALL PROCS CREATED

                                     0029   153 ;

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

                           000001CC' 002D   155 	.ADDRESS UIC

                           00000000' 0031   156 	.ADDRESS 0

                          0000'0004  0035   157 	.WORD	4,JPI$_ASTLM

                           0000019C' 0039   158 	.ADDRESS QL_ASTLM

                           00000000' 003D   159 	.ADDRESS 0

                          0000'0004  0041   160 	.WORD	4,JPI$_BIOLM

                           000001A1' 0045   161 	.ADDRESS QL_BIOLM

                           00000000' 0049   162 	.ADDRESS 0

                          0000'0004  004D   163 	.WORD	4,JPI$_DIOLM

                           000001A6' 0051   164 	.ADDRESS QL_DIOLM

                           00000000' 0055   165 	.ADDRESS 0

                          0000'0004  0059   166 	.WORD	4,JPI$_TQLM

                           000001AB' 005D   167 	.ADDRESS QL_TQELM

                           00000000' 0061   168 	.ADDRESS 0

                           00000000  0065   169 	.LONG	0			; END OF LIST

                                     0069   170 ;

                           00000078  0069   171 MBUFFERD:.LONG	120			;STRING DESCRIPTOR FOR MBX

                           00000071' 006D   172 	.ADDRESS MBUFFER

                                     0071   173 MBUFFER: 				;BUFFER TO RECV MAIL

                           00000073  0071   174 MAIL_ID:.BLKW	1			;TYPE OF MSG

                           00000075  0073   175 	.BLKW	1			;NOT USED

                                     0075   176 MAIL_STATUS: 

                           00000079  0075   177 	.BLKL	1			;STATUS

                           000000E9  0079   178 	.BLKB	112			;REST OF MESSAGE

                                     00E9   179 ;

                           00000000  00E9   180 MBXCHAN: .LONG	0

                           000000F5  00ED   181 MBXIOSB: .BLKQ	1

                           00000000  00F5   182 MBXUNIT: .LONG	0

                                     00F9   183 ;

                               0000  00F9   184 NDIGITS: .WORD	0			; NBR OF DIGITS FOR USERS (1 OR 2)

                           00000000  00FB   185 NUM_CREATED: .LONG 0			; NBR OF DETACH PROC CREATED

                  FFFFFFFF DC3CBA00  00FF   186 ONEMIN:	.LONG	-10*1000*1000*60,-1	; 60 SECONDS DELAY

                           00000000  0107   187 OUTLEN:	.LONG	0			; FAO STORES ACTUAL OUT LEN HERE

                                     010B   188 OUTDES:					; OUTPUT BUFFER DESCRIPTOR

                                     010B   189 	STRING O,33*4			; 33 LONGWORDS 

                           00000084  010B       	.LONG	33*4

                           00000113' 010F       	.ADDRESS .+4

                           00000197  0113       	.BLKB	33*4

                                     0197   190 ;

UETLOAD01       VAX/VMS UETP SYSTEM LOAD TEST                    22-AUG-1978 03:22:45   VAX-11 MACRO X0.3-11               Page   8

1.16            READ WRITE DATA                                                                                                  (3)



                           00000000  0197   191 PIDADR:	.LONG	0			; INTERIM PROCESS ID AREA

                                     019B   192 ;

                                     019B   193 QLIST:					; QUOTA LIST FOR CREATE PROCESS

                                 00' 019B   194 	.BYTE	PQL$_ASTLM

                           00000000  019C   195 QL_ASTLM: .LONG	0

                                 00' 01A0   196 	.BYTE	PQL$_BIOLM

                           00000000  01A1   197 QL_BIOLM: .LONG	0

                                 00' 01A5   198 	.BYTE	PQL$_DIOLM

                           00000000  01A6   199 QL_DIOLM: .LONG	0

                                 00' 01AA   200 	.BYTE	PQL$_TQELM

                           00000000  01AB   201 QL_TQELM:  .LONG	0

                                 00' 01AF   202 	.BYTE	PQL$_LISTEND

                                     01B0   203 ;

                           00000000  01B0   204 RDFLAGS:.LONG	0			; EVENT FLAGS AREA

                           000001BC  01B4   205 SAVREGS34:.BLKL	2			; TEMP SAVE FOR 2 LONGWORDS

                           000001C8  01BC   206 TEMP12:	.BLKB	12

                           00000000  01C8   207 TTCHAN:	.LONG	0			; TERMINAL CHANNEL NO.

                           00000000  01CC   208 UIC:	.LONG	0			; UIC FOR LOAD TEST PROCESSES

                           00000000  01D0   209 USERCNTL: .LONG 0			; USER COUNT IN BINARY

                           00000000  01D4   210 USRCNTMA: .LONG	0			; CURRENT COUNT OF USERS

                                     01D8   211 ;

                                     01D8   212 USERBUF: STRING O,10			; BUFFER FOR # USERS STRING TRANS

                           0000000A  01D8       	.LONG	10

                           000001E0' 01DC       	.ADDRESS .+4

                           000001EA  01E0       	.BLKB	10

                                     01EA   213 ;

                                     01EA   214 	.LIST	MEB

                                     01EA   215 CPRLIST:				; ARG LIST FOR $CREPRC SERVICE

                                     01EA   216 	$creprc PIDADR,LOGIN,,SUBOUT,SUBOUTE,,QLIST,DPROC_NAM,STSFLG=<^B01000000>

                           0000000C  01EA       		.LONG	12

                           00000197' 01EE       		.LONG	PIDADR

                           0000012C' 01F2       		.LONG	LOGIN

                           00000000  01F6       		.LONG	0

                           0000015F' 01FA       		.LONG	SUBOUT

                           0000016F' 01FE       		.LONG	SUBOUTE

                           00000000  0202       		.LONG	0

                           0000019B' 0206       		.LONG	QLIST

                           00000014' 020A       		.LONG	DPROC_NAM

                           00000002  020E       		.LONG	2

                           00000000  0212       		.LONG	0

                           00000000  0216       		.LONG	0

                           00000040  021A       		.LONG	^B01000000

UETLOAD01       VAX/VMS UETP SYSTEM LOAD TEST                    22-AUG-1978 03:22:45   VAX-11 MACRO X0.3-11               Page   9

1.16            MAIN ROUTINE                                                                                                     (4)



                                     021E   218 	.SBTTL MAIN ROUTINE

                                 00000000   219 	.PSECT UETLOAD01,EXE,RD,NOWRT

                               0000' 0000   220 	.ENTRY	UETLOAD01,0			; UETLOAD TEST ENTRY MASK

                                     0002   221 ;********************************************************************************

                                     0002   222 ;	CLEAR EVENT FLAGS FOR PROCESS COMPLETE, CNTRL-C ENTERED, ETC.

                                     0002   223 ;********************************************************************************

                                     0002   224 	PUTMSG	<#UET$_BEGIND,#2,#UETLM_NAM,#0> ; GREETINGS

                          00     DD  0002       	  	PUSHL	#0

                 000001B1'8F     DD  0004       	  	PUSHL	#UETLM_NAM

                          02     DD  000A       	  	PUSHL	#2

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

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

                                     0019   225 	$ASSIGN_S TTNAME,TTCHAN			; ASSIGN TTY FOR OPERATOR TO ABORT

                          7E     7C  0019       		CLRQ	-(SP)

                 000001C8'EF     3F  001B       		PUSHAW	TTCHAN

                 000001A7'EF     7F  0021       		PUSHAQ	TTNAME

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

                                     002E   226 	SERVCHEK

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

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

                          04C0   31  0039       	BRW	DIE

                                     003C       30001$:

                                     003C   227 	$SETPRN_S UETLM_NAM

                 000001B1'EF     7F  003C       		PUSHAQ	UETLM_NAM

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

                                     0049   228 	SERVCHEK

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

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

                          04A5   31  0054       	BRW	DIE

                                     0057       30003$:

                                     0057   229 	$CLREF_S EFN=#CONTROLC			;CLEAR FLAG USED FOR OPERATOR ABORT

                          02     DD  0057       		PUSHL	#CONTROLC

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

                                     0060   230 	SERVCHEK

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

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

                          048E   31  006B       	BRW	DIE

                                     006E       30005$:

                                     006E   231 	$CLREF_S EFN=#COMPLETE			; FLAG USED FOR SUBPROCESS COMPLETION

                          01     DD  006E       		PUSHL	#COMPLETE

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

                                     0077   232 	SERVCHEK

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

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

                          0477   31  0082       	BRW	DIE

                                     0085       30007$:

                                     0085   233 ;********************************************************************************

                                     0085   234 ;	TRANSLATE LOGICAL NAME "NUSERS" TO GET INFO ABOUT

                                     0085   235 ;	NUMBER OF USERS FOR LOAD TEST. VALUES ARE USER REPLIES

                                     0085   236 ;	TO A PROMPT.

                                     0085   237 ;********************************************************************************

                                     0085   238 GET_PAR: $TRNLOG_S LOGNAM=USERNUM,RSLLEN=NDIGITS,RSLBUF=USERBUF

                          00     DD  0085       		PUSHL	#0

                          00     DD  0087       		PUSHL	#0

                          00     DD  0089       		PUSHL	#0

                 000001D8'EF     7F  008B       		PUSHAQ	USERBUF

                 000000F9'EF     3F  0091       		PUSHAW	NDIGITS

UETLOAD01       VAX/VMS UETP SYSTEM LOAD TEST                    22-AUG-1978 03:22:45   VAX-11 MACRO X0.3-11               Page  10

1.16            MAIN ROUTINE                                                                                                     (4)



                 000001C2'EF     7F  0097       		PUSHAQ	USERNUM

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

                                     00A4   239 	SERVCHEK

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

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

                          044A   31  00AF       	BRW	DIE

                                     00B2       30009$:

   00000000'8F            50     D1  00B2   240 	CMPL	R0,#SS$_NOTRAN			; DOES NAME EXIST?

                          0D     12  00B9   241 	BNEQ	10$				; YES

   00000000'EF         FE AF     DE  00BB   242 	MOVAL	.,DIEARG			; NO,   ERROR

                          50     96  00C3   243 	INCB	R0

                          0434   31  00C5   244 	BRW	DIE

                                     00C8   245 ;

                                     00C8   246 10$:

            53   000001E0'EF     9A  00C8   247 	MOVZBL	USERBUF+8,R3			; CONVERT 1 OR 2 ASCII BYTES

            04            00     EF  00CF   248 	EXTZV	#0,#4,R3,R3			;  TO BINARY LONGWORD IN R3

            53            53         00D2       

            52   000001E1'EF     9A  00D4   249 	MOVZBL	USERBUF+9,R2			; GET 2ND BYTE

   000000F9'EF            01     B1  00DB   250 	CMPW	#1,NDIGITS			; ONLY 1 DIGIT?

                          14     13  00E2   251 	BEQL	30$				; BR IF YES

   000000F9'EF            02     B1  00E4   252 	CMPW	#2,NDIGITS			; MUST BE 2 DIGITS OR ERROR

                          1B     12  00EB   253 	BNEQ	40$

            04            00     EF  00ED   254 	EXTZV	#0,#4,R2,R2			; NO, ISOLATE LOW 4 BITS

            52            52         00F0       

            53            0A     84  00F2   255 	MULB2	#10,R3				; NUMBER = 10*TENS

            53            52     80  00F5   256 	ADDB2	R2,R3				;  +UNITS

                                     00F8   257 30$:						; DONE

   000001D0'EF            53     9A  00F8   258 	MOVZBL	R3,USERCNTL			; NUMBER OF USERS TO CREATE

                          53     D5  00FF   259 	TSTL	R3

                          05     15  0101   260 	BLEQ	40$				; NBR OF USERS <= 0?

            53            30     D1  0103   261 	CMPL	#MAX_USERS,R3			; NBR USERS <= MAX?

                          17     18  0106   262 	BGEQ	50$				; NO

                                     0108   263 40$:

                                     0108   264 	PUTMSG	<#UET$_ABENDD,#2,#BADUSERS,#0> ; NO RETURN

                          00     DD  0108       	  	PUSHL	#0

                 00000000'8F     DD  010A       	  	PUSHL	#BADUSERS

                          02     DD  0110       	  	PUSHL	#2

                 007410E4 8F     DD  0112       	  	PUSHL	#UET$_ABENDD

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

                                     011F   265 50$:

                                     011F   266 ;*********************************************************************************

                                     011F   267 ;

                                     011F   268 ;	NOW CREATE A MAILBOX TO RECEIVE TERMINATION MESSAGES

                                     011F   269 ;	FROM EACH DETACHED PROCESS IN THE LOAD TEST TO INDICATE

                                     011F   270 ;	PROCESS COMPLETE.

                                     011F   271 ;	WHEN THE MAILBOX RECEIVES A MSG, THE AST HANDLER FOR IT

                                     011F   272 ;	WILL SET AN EVENT FLAG FOR THE MAIN ROUTINE. WHEN THE

                                     011F   273 ;	MAIN ROUTINE IS FINISHED PROCESSING THE MESSAGE, IT WILL

                                     011F   274 ;	QUEUE ANOTHER READ REQUEST FOR THE NEXT MSG THUS AVOIDING

                                     011F   275 ;	A RACE CONDITION WITH THE EVENT FLAGS.

                                     011F   276 ;

                                     011F   277 ;*********************************************************************************

                                     011F   278 	$CREMBX_S #1,CHAN=MBXCHAN,MAXMSG=#120,BUFQUO=#720,PROMSK=#0,-

                                     011F   279 		LOGNAM=MBLOGNAM		; MAILBOX FOR MSG BETWEEN PROCESSES

                 0000014B'EF     7F  011F       		PUSHAQ	MBLOGNAM

                          7E     7C  0125       		CLRQ	-(SP)

                 000002D0 8F     DD  0127       		PUSHL	#720

UETLOAD01       VAX/VMS UETP SYSTEM LOAD TEST                    22-AUG-1978 03:22:45   VAX-11 MACRO X0.3-11               Page  11

1.16            MAIN ROUTINE                                                                                                     (4)



                 00000078 8F     DD  012D       		PUSHL	#120

                 000000E9'EF     3F  0133       		PUSHAW	MBXCHAN

                          01     DD  0139       		PUSHL	#1

   00000000'GF            07     FB  013B       		CALLS	#7,G^SYS$CREMBX

                                     0142   280 	SERVCHEK

            0B            50     E8  0142       30010$:	BLBS	R0,30011$

   00000000'EF         FA AF     DE  0145       	MOVAL	30010$,DIEARG

                          03AC   31  014D       	BRW	DIE

                                     0150       30011$:

                                     0150   281 	$GETCHN_S CHAN=MBXCHAN,PRIBUF=MBUFFERD

                          00     DD  0150       		PUSHL	#0

                          00     DD  0152       		PUSHL	#0

                 00000069'EF     7F  0154       		PUSHAQ	MBUFFERD

                          00     DD  015A       		PUSHL	#0

            7E   000000E9'EF     3C  015C       		MOVZWL	MBXCHAN,-(SP)

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

                                     016A   282 	SERVCHEK

            0B            50     E8  016A       30012$:	BLBS	R0,30013$

   00000000'EF         FA AF     DE  016D       	MOVAL	30012$,DIEARG

                          0384   31  0175       	BRW	DIE

                                     0178       30013$:

   000000F5'EF   0000007D'EF     3C  0178   283 	MOVZWL	MBUFFER+12,MBXUNIT	; MAILBOX UNIT NUMBER

                                     0183   284 ;********************************************************************************

                                     0183   285 ;	NOW ENABLE THE CONTROL-C INTERVENTION SO THAT USER MAY STOP UETP.

                                     0183   286 ;********************************************************************************

                                     0183   287 	$QIOW_S	CHAN=TTCHAN,FUNC=#IO$_SETMODE!IO$M_CTRLCAST,P1=CCASTHAND

                          7E     7C  0183       		CLRQ	-(SP)

                          7E     7C  0185       		CLRQ	-(SP)

                          00     DD  0187       		PUSHL	#0

                 0000053B'EF     DF  0189       		PUSHAL	CCASTHAND

                          7E     7C  018F       		CLRQ	-(SP)

                          00     DD  0191       		PUSHL	#0

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

            7E   000001C8'EF     3C  0198       		MOVZWL	TTCHAN,-(SP)

                          00     DD  019F       		PUSHL	#0

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

                                     01A8   288 	SERVCHEK

            0B            50     E8  01A8       30014$:	BLBS	R0,30015$

   00000000'EF         FA AF     DE  01AB       	MOVAL	30014$,DIEARG

                          0346   31  01B3       	BRW	DIE

                                     01B6       30015$:

                                     01B6   289 	PUTMSG	<#UETP$_ABORTC,#1,#UETLM_NAM>

                 000001B1'8F     DD  01B6       	  	PUSHL	#UETLM_NAM

                          01     DD  01BC       	  	PUSHL	#1

                 00000000'8F     DD  01BE       	  	PUSHL	#UETP$_ABORTC

   00000000'9F            03     FB  01C4       		CALLS	#$$T1,@#LIB$SIGNAL

                                     01CB   290 	$QIO_S  CHAN=MBXCHAN,FUNC=#IO$_READVBLK,IOSB=MBXIOSB,-

                                     01CB   291 		ASTADR=MBXAST,P1=MBUFFER,P2=#120 ; SET UP TO RECV MAIL

                          7E     7C  01CB       		CLRQ	-(SP)

                          7E     7C  01CD       		CLRQ	-(SP)

                 00000078 8F     DD  01CF       		PUSHL	#120

                 00000071'EF     DF  01D5       		PUSHAL	MBUFFER

                          00     DD  01DB       		PUSHL	#0

                 000005DD'EF     DF  01DD       		PUSHAL	MBXAST

                 000000ED'EF     7F  01E3       		PUSHAQ	MBXIOSB

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

            7E   000000E9'EF     3C  01EE       		MOVZWL	MBXCHAN,-(SP)

UETLOAD01       VAX/VMS UETP SYSTEM LOAD TEST                    22-AUG-1978 03:22:45   VAX-11 MACRO X0.3-11               Page  12

1.16            MAIN ROUTINE                                                                                                     (4)



                          00     DD  01F5       		PUSHL	#0

   00000000'GF            0C     FB  01F7       		CALLS	#12,G^SYS$QIO

                                     01FE   292 	SERVCHEK

            0B            50     E8  01FE       30016$:	BLBS	R0,30017$

   00000000'EF         FA AF     DE  0201       	MOVAL	30016$,DIEARG

                          02F0   31  0209       	BRW	DIE

                                     020C       30017$:

                                     020C   293 	$GETJPI_S ITMLST=GETJPI_LIST		; GET CURRENT UIC AND QUOTA

                          7E     7C  020C       		CLRQ	-(SP)

                          00     DD  020E       		PUSHL	#0

                 00000029'EF     DF  0210       		PUSHAL	GETJPI_LIST

                          00     DD  0216       		PUSHL	#0

                          00     DD  0218       		PUSHL	#0

                          00     DD  021A       		PUSHL	#0

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

                                     0223   294 	SERVCHEK

            0B            50     E8  0223       30018$:	BLBS	R0,30019$

   00000000'EF         FA AF     DE  0226       	MOVAL	30018$,DIEARG

                          02CB   31  022E       	BRW	DIE

                                     0231       30019$:

UETLOAD01       VAX/VMS UETP SYSTEM LOAD TEST                    22-AUG-1978 03:22:45   VAX-11 MACRO X0.3-11               Page  13

1.16            MAIN ROUTINE                                                                                                     (4)



                                     0231   296 ;********************************************************************************

                                     0231   297 ;

                                     0231   298 ;	NOW LOOP CREATING AS MANY DETACHED PROCESSES AS NUMBER

                                     0231   299 ;	OF USERS SPECIFIED; EACH PROCESS WILL EXECUTE A UETP SUBSET.

                                     0231   300 ;

                                     0231   301 ;	THE PROCESS ID'S RETURNED FOR EACH NEW DETACHED PROCESS ARE KEPT

                                     0231   302 ;	IN THE USER STACK UNTIL DELETION TIME, AT WHICH POINT THE PROCESS

                                     0231   303 ;	ID'S ARE READ OFF THE STACK (LIFO) AND THAT PROCESS DELETED.

                                     0231   304 ;

                                     0231   305 ;	

                                     0231   306 ;********************************************************************************

                 000001D4'EF     D4  0231   307 	CLRL	USRCNTMA			; START WITH 0 DETACH PROC

   00000212'EF   000001CC'EF     D0  0237   308 	MOVL	UIC,CPRLIST+CREPRC$_UIC		; UNIQUE UIC => DETACHED

   00000216'EF   000000F5'EF     D0  0242   309 	MOVL	MBXUNIT,CPRLIST+CREPRC$_MBXUNT	; MOVE MBX UNIT# TO ARGLIST

            56   0000017F'EF     DE  024D   310 	MOVAL	TABLE_ADDR,R6			; RESET TO BEGIN OF TABLE

                          06     11  0254   311 	BRB	CPLOOP_INI			; FOR FIRST TIME ONLY

                                     0256   312 ;

                                     0256   313 CPLOOP:

            01            09     F1  0256   314 	ACBL	#NBR_PROC_LIM-1,#1,R7,CPLOOP_NEXT ; GET NEXT PROCESS INPT NAME

            0002          57         0259       

                                     025C   315 CPLOOP_INI:

                          57     D4  025C   316 	CLRL	R7				; RESET INDEX OF INPT NAMES

                                     025E   317 CPLOOP_NEXT:

   000001F6'EF            6647   D0  025E   318 	MOVL	(R6)[R7],CPRLIST+CREPRC$_INPUT	; NEXT NAME TO USE

            6647          08     C1  0266   319 	ADDL3	#8,(R6)[R7],R3

                          53         026A       

            63            09     28  026B   320 	MOVC3	#9,(R3),TEMP12			; BUILD DET PROC NAME

                 000001BC'EF         026E       

                                     0273   321 	$FAO_S	DPNAM,OUTLEN,OUTDES,P1=#9,P2=#TEMP12,P3=USRCNTMA

                 000001D4'EF     DD  0273       		PUSHL	USRCNTMA

                 000001BC'8F     DD  0279       		PUSHL	#TEMP12

                          09     DD  027F       		PUSHL	#9

                 0000010B'EF     7F  0281       		PUSHAQ	OUTDES

                 00000107'EF     3F  0287       		PUSHAW	OUTLEN

                 00000004'EF     7F  028D       		PUSHAQ	DPNAM

   00000000'GF            06     FB  0293       		CALLS	#$$T2,G^SYS$FAO

                                     029A   322 	SERVCHEK

            0B            50     E8  029A       30020$:	BLBS	R0,30021$

   00000000'EF         FA AF     DE  029D       	MOVAL	30020$,DIEARG

                          0254   31  02A5       	BRW	DIE

                                     02A8       30021$:

   00000113'EF            0C     28  02A8   323 	MOVC3	#12,OUTDES+8,DPROC_NAM+8

                 0000001C'EF         02AF       

                                     02B4   324 	$CREPRC_G CPRLIST			; CREATE A NEW PROCESS...

   00000000'GF   000001EA'EF     FA  02B4       		CALLG	CPRLIST,G^SYS$CREPRC

                                     02BF   325 	SERVCHEK

            0B            50     E8  02BF       30022$:	BLBS	R0,30023$

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

                          022F   31  02CA       	BRW	DIE

                                     02CD       30023$:

                                     02CD   326 	$READEF_S EFN=#COMMON,STATE=RDFLAGS

                 000001B0'EF     DF  02CD       		PUSHAL	RDFLAGS

                          00     DD  02D3       		PUSHL	#COMMON

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

                                     02DC   327 	SERVCHEK

            0B            50     E8  02DC       30024$:	BLBS	R0,30025$

   00000000'EF         FA AF     DE  02DF       	MOVAL	30024$,DIEARG

UETLOAD01       VAX/VMS UETP SYSTEM LOAD TEST                    22-AUG-1978 03:22:45   VAX-11 MACRO X0.3-11               Page  14

1.16            MAIN ROUTINE                                                                                                     (4)



                          0212   31  02E7       	BRW	DIE

                                     02EA       30025$:

   000001B0'EF            02     E1  02EA   328 	BBC	#CCBIT,RDFLAGS,NXTPROC		; CTRL-C?

                          03         02F1       

                          0110   31  02F2   329 	BRW	DELETE				; ctrl-C =>done

                                     02F5   330 NXTPROC:

                 000001D4'EF     D6  02F5   331 	INCL	USRCNTMA			; INCR CTR FOR # USERS

            7E   00000197'EF     D0  02FB   332 	MOVL	PIDADR,-(SP)			; KEEP LIST OF PROCESSES ON STACK

                                     0302   333 	PUTMSG	<#UETP$_USER,#2,#UETLM_NAM,USRCNTMA>

                 000001D4'EF     DD  0302       	  	PUSHL	USRCNTMA

                 000001B1'8F     DD  0308       	  	PUSHL	#UETLM_NAM

                          02     DD  030E       	  	PUSHL	#2

                 00000000'8F     DD  0310       	  	PUSHL	#UETP$_USER

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

   000001D0'EF   000001D4'EF     D1  031D   334 	CMPL	USRCNTMA,USERCNTL		; LOOP TILL CURRENT = DESIRED

                          03     18  0328   335 	BGEQ	10$				; DONE CREATING

                          FF29   31  032A   336 	BRW	CPLOOP				; MORE TO CREATE

   000000FB'EF   000001D4'EF     D0  032D   337 10$:	MOVL	USRCNTMA,NUM_CREATED

   00000028'EF            01     90  0338   338 	MOVB	#1,FLAGD			; FLAG WE ARE HERE.

                                     033F   339 ;********************************************************************************

                                     033F   340 ;	WAIT HERE FOR PROCESSES TO FINISH AND SEND MAIL

                                     033F   341 ;	OR INTERRUPT VIA CONTROL-C AT CONSOLE.

                                     033F   342 ;********************************************************************************

                                     033F   343 WAIT:

                                     033F   344 	$WFLOR_S EFN=#COMMON,MASK=COMMASK	; WAIT ON FLAGS

                 00000025'EF     DD  033F       		PUSHL	COMMASK

                          00     DD  0345       		PUSHL	#COMMON

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

                                     034E   345 	SERVCHEK

            0B            50     E8  034E       30026$:	BLBS	R0,30027$

   00000000'EF         FA AF     DE  0351       	MOVAL	30026$,DIEARG

                          01A0   31  0359       	BRW	DIE

                                     035C       30027$:

                                     035C   346 ;********************************************************************************

                                     035C   347 ;	SOME EVENT FLAG HAS BEEN SET; DETERMINE WHICH ONE AND TAKE

                                     035C   348 ;	APPROPRIATE ACTION: FOR CONTINUOUS RUN

                                     035C   349 ;	EXPLICITLY DELETE ALL DETACHED PROCESSES CREATED EARLIER.

                                     035C   350 ;********************************************************************************

                                     035C   351 	$READEF_S EFN=#COMMON,STATE=RDFLAGS 	; READ CURRENT EVENT FLAG SETTINGS

                 000001B0'EF     DF  035C       		PUSHAL	RDFLAGS

                          00     DD  0362       		PUSHL	#COMMON

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

                                     036B   352 	SERVCHEK

            0B            50     E8  036B       30028$:	BLBS	R0,30029$

   00000000'EF         FA AF     DE  036E       	MOVAL	30028$,DIEARG

                          0183   31  0376       	BRW	DIE

                                     0379       30029$:

   000001B0'EF            01     E0  0379   353 	BBS	#CPBIT,RDFLAGS,10$

                          0B         0380       

   000001B0'EF            02     E1  0381   354 	BBC	#CCBIT,RDFLAGS,WAIT		; IF CONTRL-C, DROP TO DELETE PROCS.

                          B6         0388       

                          0079   31  0389   355 	BRW	DELETE

                                     038C   356 10$:

                                     038C   357 	$CLREF_S EFN=#COMPLETE			; INDICATE 1 TEST COMPLETE

                          01     DD  038C       		PUSHL	#COMPLETE

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

                                     0395   358 	SERVCHEK

UETLOAD01       VAX/VMS UETP SYSTEM LOAD TEST                    22-AUG-1978 03:22:45   VAX-11 MACRO X0.3-11               Page  15

1.16            MAIN ROUTINE                                                                                                     (4)



            0B            50     E8  0395       30030$:	BLBS	R0,30031$

   00000000'EF         FA AF     DE  0398       	MOVAL	30030$,DIEARG

                          0159   31  03A0       	BRW	DIE

                                     03A3       30031$:

                 000001D4'EF     D7  03A3   359 	DECL	USRCNTMA			; ONE LESS USER NOW ON SYSTEM

                 000001D4'EF     D5  03A9   360 	TSTL	USRCNTMA			; BACK DOWN TO 0 USERS

                          03     14  03AF   361 	BGTR	20$				; NO

                          00D8   31  03B1   362 	BRW	CLEANUP				; YES

                                     03B4   363 20$:

                                     03B4   364 	PUTMSG	<#UETP$_USER,#2,#UETLM_NAM,USRCNTMA>

                 000001D4'EF     DD  03B4       	  	PUSHL	USRCNTMA

                 000001B1'8F     DD  03BA       	  	PUSHL	#UETLM_NAM

                          02     DD  03C0       	  	PUSHL	#2

                 00000000'8F     DD  03C2       	  	PUSHL	#UETP$_USER

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

                                     03CF   365 	$QIO_S  CHAN=MBXCHAN,FUNC=#IO$_READVBLK,IOSB=MBXIOSB,-

                                     03CF   366 		ASTADR=MBXAST,P1=MBUFFER,P2=#120

                          7E     7C  03CF       		CLRQ	-(SP)

                          7E     7C  03D1       		CLRQ	-(SP)

                 00000078 8F     DD  03D3       		PUSHL	#120

                 00000071'EF     DF  03D9       		PUSHAL	MBUFFER

                          00     DD  03DF       		PUSHL	#0

                 000005DD'EF     DF  03E1       		PUSHAL	MBXAST

                 000000ED'EF     7F  03E7       		PUSHAQ	MBXIOSB

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

            7E   000000E9'EF     3C  03F2       		MOVZWL	MBXCHAN,-(SP)

                          00     DD  03F9       		PUSHL	#0

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

                          FF3A   31  0402   367 	BRW	WAIT				; NO, WAIT FOR MORE TO FINISH...

                                     0405   368 ;

                                     0405   369 DELETE:

   000001B4'EF            5E     D0  0405   370 	MOVL	SP,SAVREGS34			; SAVE PID AREA ADDR

   000001B8'EF   000000FB'EF     D0  040C   371 	MOVL	NUM_CREATED,SAVREGS34+4		; # DETACHED PROCS

            57            5E     D0  0417   372 	MOVL	SP,R7				; SAVE SP

                                     041A   373 	$SETIMR_S DAYTIM=ONEMIN,ASTADR=TIME_TO_DEL

                          00     DD  041A       		PUSHL	#0

                 000005B6'EF     DF  041C       		PUSHAL	TIME_TO_DEL

                 000000FF'EF     DF  0422       		PUSHAL	ONEMIN

                          00     DD  0428       		PUSHL	#0

   00000000'GF            04     FB  042A       		CALLS	#4,G^SYS$SETIMR

            09            50     E8  0431   374 	BLBS	R0,5$

                                     0434   375 	PUTMSG	<R0>				; ERROR

                          50     DD  0434       	  	PUSHL	R0

   00000000'9F            01     FB  0436       		CALLS	#$$T1,@#LIB$SIGNAL

                                     043D   376 5$:

   00000197'EF            87     D0  043D   377 	MOVL	(R7)+,PIDADR			; GET ID OF LAST PROCESS STARTED

                                     0444   378 	$FORCEX_S PIDADR,,#^X10000001		; AND FORCE THE PROCESS TO EXIT

                 10000001 8F     DD  0444       		PUSHL	#^X10000001

                          00     DD  044A       		PUSHL	#0

                 00000197'EF     DF  044C       		PUSHAL	PIDADR

   00000000'GF            03     FB  0452       		CALLS	#3,G^SYS$FORCEX

   00000000'8F            50     D1  0459   379 	CMPL	R0,#SS$_NONEXPR			; NO,  PROC COMPLETED EARLIER?

                          0F     13  0460   380 	BEQL	10$				; YES

            0C            50     E8  0462   381 	BLBS	R0,10$

                                     0465   382 	PUTMSG	<R0>

                          50     DD  0465       	  	PUSHL	R0

   00000000'9F            01     FB  0467       		CALLS	#$$T1,@#LIB$SIGNAL

UETLOAD01       VAX/VMS UETP SYSTEM LOAD TEST                    22-AUG-1978 03:22:45   VAX-11 MACRO X0.3-11               Page  16

1.16            MAIN ROUTINE                                                                                                     (4)



                          0074   31  046E   383 	BRW	FATAL

                                     0471   384 10$:

            C5   000000FB'EF     F5  0471   385 	SOBGTR	NUM_CREATED,5$			; KEEP DELETING TILL NO MORE

                 000001D4'EF     D5  0478   386 	TSTL	USRCNTMA

                          0C     15  047E   387 	BLEQ	CLEANUP

                                     0480   388 	$CLREF_S EFN=#CONTROLC			; DONT DELETE AGAIN

                          02     DD  0480       		PUSHL	#CONTROLC

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

                          FEB3   31  0489   389 	BRW	WAIT

                                     048C   390 ;********************************************************************************

                                     048C   391 ;	ALL DETACHED PROCESSES HAVE FINISHED PROCESSING (OR HAVE

                                     048C   392 ;	BEEN DELETED); NOW PERFORM PROGRAM CLEANUP.

                                     048C   393 ;********************************************************************************

                                     048C   394 CLEANUP:

                                     048C   395 	$CANTIM_S

                          00     DD  048C       		PUSHL	#0

                          00     DD  048E       		PUSHL	#0

   00000000'GF            02     FB  0490       		CALLS	#2,G^SYS$CANTIM

            03   00000028'EF     E9  0497   396 	BLBC	FLAGD,CLEANERR

            52            01     9A  049E   397 	MOVZBL	#SUCCESS,R2

                                     04A1   398 CLEANERR:

                                     04A1   399 	$DELMBX_S MBXCHAN			; DELETE UNNEEDED MAILBOX

            7E   000000E9'EF     3C  04A1       		MOVZWL	MBXCHAN,-(SP)

   00000000'GF            01     FB  04A8       		CALLS	#1,G^SYS$DELMBX

                                     04AF   400 	$DASSGN_S TTCHAN

            7E   000001C8'EF     3C  04AF       		MOVZWL	TTCHAN,-(SP)

   00000000'GF            01     FB  04B6       		CALLS	#1,G^SYS$DASSGN

            52            01     D1  04BD   401 	CMPL	#SUCCESS,R2

                          03     13  04C0   402 	BEQL	10$

                          0020   31  04C2   403 	BRW	FATAL

                                     04C5   404 10$:

                                     04C5   405 	PUTMSG	<#UET$_ENDEDD,#2,#UETLM_NAM,#0>

                          00     DD  04C5       	  	PUSHL	#0

                 000001B1'8F     DD  04C7       	  	PUSHL	#UETLM_NAM

                          02     DD  04CD       	  	PUSHL	#2

                 00741083 8F     DD  04CF       	  	PUSHL	#UET$_ENDEDD

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

                                     04DC   406 	$EXIT_S					; E X I T

                          01     DD  04DC       		PUSHL	#1

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

UETLOAD01       VAX/VMS UETP SYSTEM LOAD TEST                    22-AUG-1978 03:22:45   VAX-11 MACRO X0.3-11               Page  17

1.16            ERROR AND AST HANDLERS                                                                                           (5)



                                     04E5   409 	.SBTTL	ERROR AND AST HANDLERS

                                     04E5   410 ;*************************************************************

                                     04E5   411 ;

                                     04E5   412 FATAL:	PUTMSG	<#UET$_ABENDD,#2,#UETLM_NAM,#0> ; NO RETURN

                          00     DD  04E5       	  	PUSHL	#0

                 000001B1'8F     DD  04E7       	  	PUSHL	#UETLM_NAM

                          02     DD  04ED       	  	PUSHL	#2

                 007410E4 8F     DD  04EF       	  	PUSHL	#UET$_ABENDD

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

                                     04FC   413 ;********************************************************************************

                                     04FC   414 ;	COME HERE IN CASE OF UNEXPECTED SYSTEM SERVICE ERROR.

                                     04FC   415 ;********************************************************************************

                                     04FC   416 DIE:

            52            50     D0  04FC   417 	MOVL	R0,R2

                                     04FF   418 	PUTMSG	<#UET$_SYSERRORPC,#2,#UETLM_NAM,DIEARG,R2>

                          52     DD  04FF       	  	PUSHL	R2

                 00000000'EF     DD  0501       	  	PUSHL	DIEARG

                 000001B1'8F     DD  0507       	  	PUSHL	#UETLM_NAM

                          02     DD  050D       	  	PUSHL	#2

                 007410F2 8F     DD  050F       	  	PUSHL	#UET$_SYSERRORPC

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

            52   FFFFFFFF 8F     D0  051C   419 	MOVL	#ERR_RET,R2

            0E   00000028'EF     E8  0523   420 	BLBS	FLAGD,10$

   000000FB'EF   000001D4'EF     D0  052A   421 	MOVL	USRCNTMA,NUM_CREATED	; # PROCS TO FORCE OUT

                          FECD   31  0535   422 	BRW	DELETE

                                     0538   423 10$:

                          FF66   31  0538   424 	BRW	CLEANERR

                                     053B   425 ;********************************************************************************

                                     053B   426 ;

                                     053B   427 ;	THIS IS THE AST HANDLER FOR SERVICING A CONTROL-C

                                     053B   428 ;	ENTERED AT THE CONSOLE IN ORDER TO STOP EXECUTION OF

                                     053B   429 ;	THE UETP.  AN EVENT FLAG IS SET IN THE LOCAL CLUSTER

                                     053B   430 ;	WHICH WILL CAUSE THE MAIN ROUTINE TO BE RUNNABLE AGAIN.

                                     053B   431 ;	UPON BEING AWAKENED, THE MAIN ROUTINE WILL DELETE ALL

                                     053B   432 ;	DETACHED PROCESSES CREATED EARLIER AND EXIT.

                                     053B   433 ;

                                     053B   434 ;********************************************************************************

                                     053B   435 CCASTHAND:

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

                                     053D   437 	PUTMSG	<#UET$_TEXT,#1,#CNTRLCMSG>

                 00000029'8F     DD  053D       	  	PUSHL	#CNTRLCMSG

                          01     DD  0543       	  	PUSHL	#1

                 00741133 8F     DD  0545       	  	PUSHL	#UET$_TEXT

   00000000'9F            03     FB  054B       		CALLS	#$$T1,@#LIB$SIGNAL

   0000057C'EF            00     FB  0552   438 	CALLS	#0,CCAST2

                                     0559   439 	$SETEF_S EFN=#CONTROLC			; SET THE CONTROL-C FLAG

                          02     DD  0559       		PUSHL	#CONTROLC

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

                                     0562   440 	SERVCHEK

            0B            50     E8  0562       30032$:	BLBS	R0,30033$

   00000000'EF         FA AF     DE  0565       	MOVAL	30032$,DIEARG

                          FF8C   31  056D       	BRW	DIE

                                     0570       30033$:

   000001D0'EF   000001D4'EF     D0  0570   441 	MOVL	USRCNTMA,USERCNTL		; SET #USERS=MAX SO NO NEW ONES CREATED

                                 04  057B   442 	RET					; RETURN  TO AST DELIVERY RTN.

UETLOAD01       VAX/VMS UETP SYSTEM LOAD TEST                    22-AUG-1978 03:22:45   VAX-11 MACRO X0.3-11               Page  18

1.16            ERROR AND AST HANDLERS                                                                                           (5)



                                     057C   444 ;***************************************************************

                                     057C   445 ; AST TO INTERCEPT 2ND THRU NTH CNTRL-C TYPED BY USER

                                     057C   446 ;***************************************************************

                               0FFC  057C   447 CCAST2:	.WORD	^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11>

                                     057E   448 	$QIOW_S	CHAN=TTCHAN,FUNC=#IO$_SETMODE!IO$M_CTRLCAST,P1=CCAST2

                          7E     7C  057E       		CLRQ	-(SP)

                          7E     7C  0580       		CLRQ	-(SP)

                          00     DD  0582       		PUSHL	#0

                       F5 AF     DF  0584       		PUSHAL	CCAST2

                          7E     7C  0587       		CLRQ	-(SP)

                          00     DD  0589       		PUSHL	#0

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

            7E   000001C8'EF     3C  0590       		MOVZWL	TTCHAN,-(SP)

                          00     DD  0597       		PUSHL	#0

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

                                     05A0   449 	PUTMSG	<#UET$_TEXT,#1,#WAITMSG>

                 000001D4'8F     DD  05A0       	  	PUSHL	#WAITMSG

                          01     DD  05A6       	  	PUSHL	#1

                 00741133 8F     DD  05A8       	  	PUSHL	#UET$_TEXT

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

                                 04  05B5   450 	RET

                                     05B6   451 ;***************************************************************

                                     05B6   452 ; AST FOR TIMER INTERVAL EXPIRED. DELETE EVERY DETACHED PROCESS

                                     05B6   453 ; THAT HAS NOT FINISHED BY NOW.

                                     05B6   454 ;***************************************************************

                               0FFC  05B6   455 TIME_TO_DEL: .WORD ^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11>

            53   000001B4'EF     7D  05B8   456 	MOVQ	SAVREGS34,R3			; R3=ADDR OF LAST PID ON STACK

                                     05BF   457 						; R4=COUNT OF # PROCS

                                     05BF   458 10$:

   00000197'EF            83     D0  05BF   459 	MOVL	(R3)+,PIDADR

                                     05C6   460 	$DELPRC_S PIDADR			; ISSUE DELETE TO ALL

                          00     DD  05C6       		PUSHL	#0

                 00000197'EF     DF  05C8       		PUSHAL	PIDADR

   00000000'GF            02     FB  05CE       		CALLS	#2,G^SYS$DELPRC

         FF 8F            01     9D  05D5   461 	ACBB	#1,#-1,R4,10$			; MORE TO DELETE?

            FFE3          54         05D9       

                                 04  05DC   462 	RET

UETLOAD01       VAX/VMS UETP SYSTEM LOAD TEST                    22-AUG-1978 03:22:45   VAX-11 MACRO X0.3-11               Page  19

1.16            ERROR AND AST HANDLERS                                                                                           (5)



                                     05DD   464 ;****************************************************************

                                     05DD   465 ;

                                     05DD   466 ; AST HANDLER FOR MAILBOX MESSAGES RECEIVED

                                     05DD   467 ;

                                     05DD   468 ;****************************************************************

                                     05DD   469 MBXAST:

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

       0000'8F   000000ED'EF     B1  05DF   471 	CMPW	MBXIOSB,#SS$_NORMAL	;CHECK THAT I/O WAS OK

                          12     13  05E8   472 	BEQL	10$			;YES

            50   000000ED'EF     3C  05EA   473 	MOVZWL	MBXIOSB,R0  		;MAILBOX AST I/O ERR

   00000000'EF         FE AF     DE  05F1   474 	MOVAL	.,DIEARG		;ERROR MSG

                          FF00   31  05F9   475 	BRW	DIE			;EXIT

                                     05FC   476 ;

       0000'8F   00000071'EF     B1  05FC   477 10$:	CMPW	MAIL_ID,#MSG$_DELPROC	;CHECK MSG TYPE

                          2C     13  0605   478 	BEQL	20$			;OK

   00000000'EF         FE AF     DE  0607   479 	MOVAL	.,DIEARG		;ERROR MSG

                                     060F   480 	PUTMSG	<#UET$_BADWORD,#2,MAIL_ID,DIEARG,#UET$_BADLOGICPC> ;NO RETURN

                 00741152 8F     DD  060F       	  	PUSHL	#UET$_BADLOGICPC

                 00000000'EF     DD  0615       	  	PUSHL	DIEARG

                 00000071'EF     DD  061B       	  	PUSHL	MAIL_ID

                          02     DD  0621       	  	PUSHL	#2

                 0074102A 8F     DD  0623       	  	PUSHL	#UET$_BADWORD

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

                          FE6E   31  0630   481 	BRW	CLEANERR

                                     0633   482 ;

                                     0633   483 20$:

                                     0633   484 	$SETEF_S EFN=#COMPLETE

                          01     DD  0633       		PUSHL	#COMPLETE

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

                                     063C   485 	SERVCHEK

            0B            50     E8  063C       30034$:	BLBS	R0,30035$

   00000000'EF         FA AF     DE  063F       	MOVAL	30034$,DIEARG

                          FEB2   31  0647       	BRW	DIE

                                     064A       30035$:

                                 04  064A   486 	RET				;RETURN FROM AST

                                     064B   487 ;

                                     064B   488 	.END	UETLOAD01

UETLOAD01       VAX/VMS UETP SYSTEM LOAD TEST                    22-AUG-1978 03:22:45   VAX-11 MACRO X0.3-11               Page  20

SYMBOL TABLE                                                                                                                     (5)



$$$CHARS       = 00000008            LOADS02          0000005A R     03   SHR$_BADLOGIC  = 00001120            

$$$STRINGS     = 00000000            LOADS03          0000006F R     03   SHR$_BADLOGICPC= 00001150            

$$ARGS         = 0000000C            LOADS04          00000084 R     03   SHR$_BADLONG   = 00001020            

$$T1           = 00000005            LOADS05          00000099 R     03   SHR$_BADPRTY   = 00001180            

$$T2           = 00000006            LOADS06          000000AE R     03   SHR$_BADQNAME  = 00001188            

BADUSERS         00000000 R     03   LOADS07          000000C3 R     03   SHR$_BADTIME   = 00001190            

BIT...         = 00001258            LOADS08          000000D8 R     03   SHR$_BADVALUE  = 00001110            

CCAST2           0000057C R     05   LOADS09          000000ED R     03   SHR$_BADWORD   = 00001028            

CCASTHAND        0000053B R     05   LOADS10          00000102 R     03   SHR$_BEGIN     = 00001030            

CCBIT          = 00000002            LOADS11          00000117 R     03   SHR$_BEGIND    = 00001038            

CLEANERR         000004A1 R     05   LOGIN            0000012C R     03   SHR$_BEGINT    = 00001040            

CLEANUP          0000048C R     05   MAIL_ID          00000071 R     04   SHR$_CLICB     = 00001048            

CNTRLCMSG        00000029 R     03   MAIL_STATUS      00000075 R     04   SHR$_CLOSEDEL  = 00001218            

COMMASK          00000025 R     03   MAX_USERS      = 00000030            SHR$_CLOSEIN   = 00001050            

COMMON         = 00000000            MBLOGNAM         0000014B R     03   SHR$_CLOSEOUT  = 00001058            

COMPLETE       = 00000001            MBUFFER          00000071 R     04   SHR$_CONFDEL   = 000011F8            

COMPLETE_M     = 00000002            MBUFFERD         00000069 R     04   SHR$_COPIEDB   = 00001060            

CONTROLC       = 00000002            MBXAST           000005DD R     05   SHR$_COPIEDR   = 00001068            

CONTROLC_M     = 00000004            MBXCHAN          000000E9 R     04   SHR$_CREATED   = 00001070            

CPBIT          = 00000001            MBXIOSB          000000ED R     04   SHR$_DELETED   = 00001200            

CPLOOP           00000256 R     05   MBXUNIT          000000F5 R     04   SHR$_DELINTERR = 00001240            

CPLOOP_INI       0000025C R     05   MSG$_DELPROC     ********   X   05   SHR$_DELVER    = 00001208            

CPLOOP_NEXT      0000025E R     05   NBR_PROC_LIM   = 0000000A            SHR$_DIRTOOBUS = 00001220            

CPRLIST          000001EA R     04   NDIGITS          000000F9 R     04   SHR$_ENDED     = 00001078            

CREPRC$_BASPRI = 00000024            NUM_CREATED      000000FB R     04   SHR$_ENDEDD    = 00001080            

CREPRC$_ERROR  = 00000014            NXTPROC          000002F5 R     05   SHR$_ENDEDT    = 00001088            

CREPRC$_IMAGE  = 00000008            ONEMIN           000000FF R     04   SHR$_FILNOTDEL = 000011F0            

CREPRC$_INPUT  = 0000000C            OUTDES           0000010B R     04   SHR$_FILNOTPUR = 00001230            

CREPRC$_MBXUNT = 0000002C            OUTLEN           00000107 R     04   SHR$_FILPURGED = 00001250            

CREPRC$_NARGS  = 0000000C            PIDADR           00000197 R     04   SHR$_HASHCONCAT= 000011D8            

CREPRC$_OUTPUT = 00000010            PQL$_ASTLM       ********   X   04   SHR$_HIGHVER   = 00001148            

CREPRC$_PIDADR = 00000004            PQL$_BIOLM       ********   X   04   SHR$_IDXCONCAT = 00001138            

CREPRC$_PRCNAM = 00000020            PQL$_DIOLM       ********   X   04   SHR$_INCOMPAT  = 000011E0            

CREPRC$_PRVADR = 00000018            PQL$_LISTEND     ********   X   04   SHR$_NEWFILES  = 00001090            

CREPRC$_QUOTA  = 0000001C            PQL$_TQELM       ********   X   04   SHR$_NOFILPURG = 00001228            

CREPRC$_STSFLG = 00000030            QLIST            0000019B R     04   SHR$_NOJOBID   = 000011A0            

CREPRC$_UIC    = 00000028            QL_ASTLM         0000019C R     04   SHR$_NOJOBNAME = 000011A8            

DELETE           00000405 R     05   QL_BIOLM         000001A1 R     04   SHR$_NOQUEUE   = 00001198            

DIE              000004FC R     05   QL_DIOLM         000001A6 R     04   SHR$_NOTCMPLT  = 000011C0            

DIEARG           00000000 R     04   QL_TQELM         000001AB R     04   SHR$_NOTCOPIED = 000011B8            

DPNAM            00000004 R     04   RDFLAGS          000001B0 R     04   SHR$_NOVALUE   = 00001100            

DPROC_NAM        00000014 R     04   SAVREGS34        000001B4 R     04   SHR$_NOWILD    = 00001128            

ERR_RET        = FFFFFFFF            SHR$K_SHRDEF   = 00000001            SHR$_OPENIN    = 00001098            

FATAL            000004E5 R     05   SHR$_ABEND     = 000010D8            SHR$_OPENOUT   = 000010A0            

FLAGD            00000028 R     04   SHR$_ABENDD    = 000010E0            SHR$_OVERLAY   = 000010A8            

GBL...         = 00000000            SHR$_ABENDT    = 000010E8            SHR$_PARSEFAIL = 00001248            

GETJPI_LIST      00000029 R     04   SHR$_APPENDEDB = 00001000            SHR$_PURGEVER  = 00001210            

GET_PAR          00000085 R     05   SHR$_APPENDEDR = 00001008            SHR$_READERR   = 000010B0            

IO$M_CTRLCAST    ********   X   05   SHR$_ATPC      = 00001158            SHR$_RELCONCAT = 00001140            

IO$_READVBLK     ********   X   05   SHR$_BADBYTE   = 00001010            SHR$_REPLACED  = 000010B8            

IO$_SETMODE      ********   X   05   SHR$_BADCOPIES = 00001160            SHR$_RMSERROR  = 000011C8            

JPI$_ASTLM       ********   X   04   SHR$_BADDELIM  = 00001118            SHR$_SEARCHFAIL= 00001238            

JPI$_BIOLM       ********   X   04   SHR$_BADFIELD  = 00001018            SHR$_SYNTAX    = 000010F8            

JPI$_DIOLM       ********   X   04   SHR$_BADFORM   = 00001168            SHR$_SYSERROR  = 000011B0            

JPI$_TQLM        ********   X   04   SHR$_BADJOBID  = 00001170            SHR$_SYSERRORPC= 000010F0            

JPI$_UIC         ********   X   04   SHR$_BADJOBNAME= 00001178            SHR$_TEXT      = 00001130            

LIB$SIGNAL       ********   X   05   SHR$_BADKEY    = 00001108            SHR$_UNXPCTSTS = 000011D0            

UETLOAD01       VAX/VMS UETP SYSTEM LOAD TEST                    22-AUG-1978 03:22:45   VAX-11 MACRO X0.3-11               Page  21

SYMBOL TABLE                                                                                                                     (5)



SHR$_VALERR    = 000011E8            

SHR$_WILDCONCAT= 000010C0            

SHR$_WILDOUTVER= 000010C8            

SHR$_WRITEERR  = 000010D0            

SS$_NONEXPR      ********   X   05   

SS$_NORMAL       ********   X   05   

SS$_NOTRAN       ********   X   05   

SUBOUT           0000015F R     03   

SUBOUTE          0000016F R     03   

SUCCESS        = 00000001            

SYS$ASSIGN       ********   X   05   

SYS$CANTIM       ********   X   05   

SYS$CLREF        ********   X   05   

SYS$CREMBX       ********   X   05   

SYS$CREPRC       ********   X   05   

SYS$DASSGN       ********   X   05   

SYS$DELMBX       ********   X   05   

SYS$DELPRC       ********   X   05   

SYS$EXIT         ********   X   05   

SYS$FAO          ********   X   05   

SYS$FORCEX       ********   X   05   

SYS$GETCHN       ********   X   05   

SYS$GETJPI       ********   X   05   

SYS$QIO          ********   X   05   

SYS$QIOW         ********   X   05   

SYS$READEF       ********   X   05   

SYS$SETEF        ********   X   05   

SYS$SETIMR       ********   X   05   

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

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

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

TABLE_ADDR       0000017F R     03   

TEMP12           000001BC R     04   

TIME_TO_DEL      000005B6 R     05   

TTCHAN           000001C8 R     04   

TTNAME           000001A7 R     03   

UET$_ABENDD    = 007410E4            

UET$_BADLOGICPC= 00741152            

UET$_BADWORD   = 0074102A            

UET$_BEGIND    = 0074103B            

UET$_ENDEDD    = 00741083            

UET$_SYSERRORPC= 007410F2            

UET$_TEXT      = 00741133            

UETLM_NAM        000001B1 R     03   

UETLOAD01        00000000 RG    05   

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

UETP$_USER       ********   X   05   

UIC              000001CC R     04   

USERBUF          000001D8 R     04   

USERCNTL         000001D0 R     04   

USERNUM          000001C2 R     03   

USRCNTMA         000001D4 R     04   

WAIT             0000033F R     05   

WAITMSG          000001D4 R     03   





PROGRAM SECTION SYNOPSIS

UETLOAD01       VAX/VMS UETP SYSTEM LOAD TEST                    22-AUG-1978 03:22:45   VAX-11 MACRO X0.3-11               Page  22

PROGRAM SECTION SYNOPSIS                                                                                                         (5)





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

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

UETLOAD01        0000064B      05     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

14312. BYTES LEFT IN FREE MEMORY POOL.

8. BYTES OF RECLAIMED MEMORY.

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

72 MLB DIR RDS - 465 GETS TO DEFINE 41 MACROS. 86 INTER. FILE WRITES. 

