REQUEST_COMMAND - OPERATOR REQUEST TO REQUEST COMMAND IMAGE      22-AUG-1978 00:44:10   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (2)     274  REQUEST - REQUEST OPERATOR SERVICE

   (4)     415  QUALIFIER ACTION ROUTINES

REQUEST_COMMAND - OPERATOR REQUEST TO REQUEST COMMAND IMAGE      22-AUG-1978 00:44:10   VAX-11 MACRO X0.3-11               Page   1

V06                                                                                                                              (1)



                                     0001     1 	.TITLE	REQUEST_COMMAND - OPERATOR REQUEST TO REQUEST COMMAND IMAGE

                                     0001     2 	.IDENT	/V06/

                                     0001     3 ; COPYRIGHT (C) 1978

                                     0001     4 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

                                     0001     5 ;

                                     0001     6 ; THIS SOFTWARE IS FURNISHED UNDER  A LICENSE FOR USE ONLY  ON  A

                                     0001     7 ; SINGLE COMPUTER SYSTEM AND MAY BE  COPIED ONLY WITH  THE INCLU-

                                     0001     8 ; SION OF  THE  ABOVE  COPYRIGHT NOTICE.  THIS SOFTWARE,  OR  ANY

                                     0001     9 ; OTHER COPIES THEREOF, MAY NOT BE  PROVIDED  OR  OTHERWISE  MADE

                                     0001    10 ; AVAILABLE TO ANY OTHER PERSON EXCEPT  FOR  USE  ON  SUCH SYSTEM

                                     0001    11 ; AND TO  ONE WHO AGREES  TO  THESE LICENSE  TERMS.  TITLE TO AND

                                     0001    12 ; OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.

                                     0001    13 ;

                                     0001    14 ; THE INFORMATION IN THIS SOFTWARE  IS  SUBJECT TO CHANGE WITHOUT

                                     0001    15 ; NOTICE AND SHOULD NOT BE CONSTRUED  AS  A COMMITMENT BY DIGITAL

                                     0001    16 ; EQUIPMENT CORPORATION.

                                     0001    17 ;

                                     0001    18 ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS

                                     0001    19 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

                                     0001    20 ;++

                                     0001    21 ; FACILITY:

                                     0001    22 ;

                                     0001    23 ;	REQUEST OPERATOR SERIVCE COMMAND.

                                     0001    24 ;

                                     0001    25 ; ABSTRACT:

                                     0001    26 ;

                                     0001    27 ;	THIS IMAGE IMPLEMENTS THE REQUEST COMMAND USED BY USERS TO REQUEST

                                     0001    28 ;	THE SERIVCE OF AN OPERATOR.

                                     0001    29 ;

                                     0001    30 ; AUTHOR:

                                     0001    31 ;	R.HEINEN 28-SEP-1977

                                     0001    32 ;--

                                     0001    33 ;

                                     0001    34 ; EXTERNAL SYMBOLS

                                     0001    35 ;

                                     0001    36 	$CLIDEFQUALREQU			; DEFINE CLI SYMBOLS

                                     0001    37 	$DEVDEF				; DEFINE DEVICE CHARACTERISTICS

                                     0001    38 	$JPIDEF				; DEFINE JPI SYMBOLS

                                     0001    39 ;

                                     0001    40 ; LOCAL MACROS

                                     0001    41 ;

                                     0001    42 	.MACRO	CLI	A,B,C

                                     0001    43 	.IF	NB	C

                                     0001    44 	PUSHAB	C

                                     0001    45 	.IFF

                                     0001    46 	CLRL	-(SP)

                                     0001    47 	.ENDC

                                     0001    48 	.IF	NB	B

                                     0001    49 	PUSHAB	B

                                     0001    50 	.IFF

                                     0001    51 	CLRL	-(SP)

                                     0001    52 	.ENDC

                                     0001    53 	.IF	NB	A

                                     0001    54 	PUSHAB	A

                                     0001    55 	.IFF

                                     0001    56 	CLRL	-(SP)

                                     0001    57 	.ENDC

REQUEST_COMMAND - OPERATOR REQUEST TO REQUEST COMMAND IMAGE      22-AUG-1978 00:44:10   VAX-11 MACRO X0.3-11               Page   2

V06                                                                                                                              (1)



                                     0001    58 	CALLS	#3,@W^CALLBACK

                                     0001    59 	.ENDM

                                     0001    60 ;

                                     0001    61 ; LOCAL STORAGE

                                     0001    62 ;

                                 00000000    63 	.PSECT	OPCOM_IMPURE,NOEXE,QUAD

                                     0000    64  

                                     0000    65 ;

                                     0000    66 ; DATA STORAGE FOR TRANSLATION OF THE SYS$SOMMAND DEVICE

                                     0000    67 ;

                  00000008'00000000  0000    68 SYS_CMD_I:	.LONG	0,10$

                           00000020  0008    69 10$:		.BLKL	6

                           0000000B' 0020    70 SYS_CMD:	.LONG	20$-10$

                           00000028' 0024    71 		.LONG	10$

   44 4E 41 4D 4D 4F 43 24 53 59 53  0028    72 10$:	.ASCII	/SYS$COMMAND/

                                     0033    73 20$:	

                           0000003B  0033    74 	.BLKB	8

                               0010  003B    75 JPI_DATA:	.WORD	16		; MAX SIZE

                               031C  003D    76 		.WORD	JPI$_PRCNAM	; 

                           00000028' 003F    77 		.LONG	SYS_CMD+8	; STORAGE ADDRESS

                           00000020' 0043    78 		.LONG	SYS_CMD		; SIZE STORAGE ADDRESS

                           00000000  0047    79 		.LONG	0

                                     004B    80 ;

                                     004B    81 ; STORAGE FOR DEVICE INFORMATION ON SYS$COMMAND

                                     004B    82 ;

                  00000053'00000004  004B    83 SYS_CMD_CHAR:	.LONG	4,10$

                           00000053' 0053    84 10$:		.LONG	10$

                                     0057    85 ;

                                     0057    86 ; PROMPT STRING FOR CONTROL C ACTION

                                     0057    87 ;

                                 4A' 0057    88 PROMPT:	.BYTE	20$-10$

                              0A 0D  0058    89 10$:	.BYTE	13,10

6E 45 20 2D 20 54 53 45 55 51 45 52  005A    90 	.ASCII	/REQUEST - Enter message or cancel request with <^Z>/

20 65 67 61 73 73 65 6D 20 72 65 74  0066       

65 72 20 6C 65 63 6E 61 63 20 72 6F  0072       

3C 20 68 74 69 77 20 74 73 65 75 71  007E       

                           3E 5A 5E  008A       

                              0A 0D  008D    91 	.BYTE	13,10

65 4D 20 2D 20 54 53 45 55 51 45 52  008F    92 	.ASCII	/REQUEST - Message? /

               20 3F 65 67 61 73 73  009B       

                                     00A2    93 20$:

                                     00A2    94 ;

                                     00A2    95 ; WAIT FOR OPERATOR MESSAGE SYS$PUTMSG ARG LIST

                                     00A2    96 ;

                           00000003  00A2    97 WAIT_ARGS:	.LONG	3

                           000000B2' 00A6    98 		.LONG	10$

                  00000000 00000000  00AA    99 		.LONG	0,0

                           000F0003  00B2   100 10$:		.LONG	3+<15@16>

                           00058089' 00B6   101 		.LONG	OPC$_OPRNOTIF

                           00000001  00BA   102 		.LONG	1

                           00000000  00BE   103 		.LONG	0

                                     00C2   104 ;

                                     00C2   105 ; REPLY MESSAGE SYS$PUTMSG ARG LIST

                                     00C2   106 ;

                           00000003  00C2   107 REPLY_ARG1:	.LONG	3

                           000000D2' 00C6   108 		.LONG	10$

                  00000000 00000000  00CA   109 		.LONG	0,0

REQUEST_COMMAND - OPERATOR REQUEST TO REQUEST COMMAND IMAGE      22-AUG-1978 00:44:10   VAX-11 MACRO X0.3-11               Page   3

V06                                                                                                                              (1)



                           000F0002  00D2   110 10$:		.LONG	2+<15@16>

                                     00D6   111 REPLY_CODE:

                               0000  00D6   112 		.WORD	0

                               0005  00D8   113 		.WORD	5

                           00000000  00DA   114 		.LONG	0

                           00000003  00DE   115 REPLY_ARG2:	.LONG	3

                           000000EE' 00E2   116 		.LONG	10$

                  00000000 00000000  00E6   117 		.LONG	0,0

                           000F0004  00EE   118 10$:		.LONG	4+<15@16>

                           00058091' 00F2   119 		.LONG	OPC$_OPREPLY

                           00000002  00F6   120 		.LONG	2

                                     00FA   121 REPLY_DESC:

                  00000000 00000000  00FA   122 		.LONG	0,0

                                     0102   123 ;

                                     0102   124 ; BUFFER DESCRIPTERS

                                     0102   125 ;

                           00000000  0102   126 OUT_DESC:	.LONG	0

                           00000112' 0106   127 		.LONG	BUFFER

                           00000040  010A   128 INPUT_DESC:	.LONG	64

                           00000112' 010E   129 		.LONG	BUFFER

                           00000152  0112   130 BUFFER:		.BLKB	64

                           000001DA  0152   131 REPLYBUF:	.BLKB	128+OPC$L_MS_TEXT

                                     01DA   132 ;

                                     01DA   133 ; OPERATOR MESSAGE

                                     01DA   134 ;

                  000001F6'00000080  01DA   135 TEXT_DESC:	.LONG	128,TEXT

                           00000000  01E2   136 MSG_DESC:	.LONG	0

                           000001EE' 01E6   137 		.LONG	10$

                           00000000  01EA   138 		.LONG	0		; PAD SPACE

                                     01EE   139 10$:	

                                 03' 01EE   140 		.BYTE	OPC$_RQ_RQST

                           000001F2  01EF   141 TARGET:		.BLKB	3

                           00000001  01F2   142 		.LONG	1

                           00000276  01F6   143 TEXT:		.BLKB	128

                                     0276   144 ;

                                     0276   145 ; MESSAGE BUILDING CONTROL STRING

                                     0276   146 ;

                  0000027E'00000008' 0276   147 MSG_CONTROL:	.LONG	20$-10$,10$

            53 41 21 20 2C 53 41 21  027E   148 10$:		.ASCII	/!AS, !AS/

                                     0286   149 20$:

                                     0286   150 ;

                                     0286   151 ; NO OPERATOR RESPONSE TEXT

                                     0286   152 ;

                  0000028E'00000019' 0286   153 NO_RESPONSE:	.LONG	20$-10$,10$

20 72 6F 74 61 72 65 70 6F 20 6F 6E  028E   154 10$:		.ASCII	/no operator response text/

78 65 74 20 65 73 6E 6F 70 73 65 72  029A       

                                 74  02A6       

                                     02A7   155 20$:

                                     02A7   156 ;

                                     02A7   157 ; CLI RESULT PARSE DATA STORAGE

                                     02A7   158 ;

                                     02A7   159 CLI_MESSAGE:	$CLIREQDESC	RQTYPE=CLI$K_INPUT1

                                     02C3   160 CLI_INITCMD:	$CLIREQDESC	RQTYPE=CLI$K_INITPRS

                                     02DF   161 CLI_MAJORQUAL:	$CLIREQDESC	RQTYPE=CLI$K_GETQUAL,QUALST=QUALS

                                     02FB   162 CLI_STRINGVAL:	$CLIREQDESC	RQTYPE=CLI$K_ASCIIVAL

                           00000397  0317   163 CLI_WORKAREA:	.BLKB	CLI$C_WORKAREA

                                     0397   164 ;

REQUEST_COMMAND - OPERATOR REQUEST TO REQUEST COMMAND IMAGE      22-AUG-1978 00:44:10   VAX-11 MACRO X0.3-11               Page   4

V06                                                                                                                              (1)



                                     0397   165 ; QUALIFIER DESCS

                                     0397   166 ;

                                     0397   167 QUALS:

                                     0397   168 REPL_QUAL:	$CLIQUALDESC QDCODE=CLI$K_REQU_REPL,TRUACT=REPL_ROUT

                                     03AE   169 TO_QUAL:	$CLIQUALDESC QDCODE=CLI$K_REQU_TO,TRUACT=TO_ROUT

                                     03C5   170 	$CLIQUALDESC	END_LIST

                                     03C6   171 ;

                                     03C6   172 ; LIST FOR MATCHC ON OPERATOR NAMES

                                     03C6   173 ;

                                     03C6   174 NAME_BUF:				;

         00000000 00000000 00000000  03C6   175 	.LONG	0,0,0			; 

                                     03D2   176 ;

                                     03D2   177 ; MISC STORAGE

                                     03D2   178 ;

                           00000000  03D2   179 MB_CHAN:	.LONG	0

                           00000000  03D6   180 TT_CHAN:	.LONG	0

                  00000000 00000000  03DA   181 MB_IOSB:	.LONG	0,0

                  00000000 00000000  03E2   182 TT_IOSB:	.LONG	0,0

                           00000000  03EA   183 MASK:		.LONG	0

                           00000000  03EE   184 CALLBACK:	.LONG	0

                           00000000  03F2   185 STATUS:		.LONG	0

REQUEST_COMMAND - OPERATOR REQUEST TO REQUEST COMMAND IMAGE      22-AUG-1978 00:44:10   VAX-11 MACRO X0.3-11               Page   5

V06             REQUEST - REQUEST OPERATOR SERVICE                                                                               (2)



                                     03F6   187 	.SBTTL	REQUEST - REQUEST OPERATOR SERVICE

                                 00000000   188 	.PSECT	OPCOM_CODE,NOWRT

                                     0000   189 ;++

                                     0000   190 ; REQUEST - REQUEST OPERATOR SERVICE COMMAND

                                     0000   191 ;

                                     0000   192 ; FUNCTIONAL DESCRIPTION:

                                     0000   193 ;

                                     0000   194 ; THIS ROUTINE IS THE REQUEST COMMAND IMAGE.

                                     0000   195 ;

                                     0000   196 ; THE ACTION IS TO ACT ON THE CLI'S RESULT PARSE DATA AND PERFORM THE REQUIRED

                                     0000   197 ; OPERATOR UTILITY.

                                     0000   198 ;

                                     0000   199 ; INPUTS:

                                     0000   200 ;

                                     0000   201 ;	CLI RESULT PARSE DATA IS AVAILABLE

                                     0000   202 ;

                                     0000   203 ; OUTPUTS:

                                     0000   204 ;

                                     0000   205 ;	IMAGE EXIT WITH STATUS OF THE OPERATION.

                                     0000   206 ;--

                                     0000   207 EXIT:	$EXIT_S	R0			; EXIT ON ERROR

                                     0009   208 REQUEST:				;

                               0000  0009   209 	.WORD	0			;

       03F2'CF   0005805C 8F     D0  000B   210 	MOVL	#OPC$_NOCLI,W^STATUS	; ASSUME ILLEGAL STATUS

            00   FFFFFFFF 8F     F0  0014   211 	INSV	#-1,#0,#24,W^TARGET	; ASSUME ALL TERMINALS ARE TARGET

       01EF'CF            18         001B       

       03EE'CF         08 AC     D0  001F   212 	MOVL	CLI$A_UTILSERV(AP),W^CALLBACK; GET CALL BACK ADDRESS

                          D9     13  0025   213 	BEQL	EXIT			; IF EQL THEN ERROR

       03F2'CF         00'8F     9A  0027   214 	MOVZBL	#SS$_NORMAL,W^STATUS	; SET SUCCESS

                                     002D   215 	CLI	W^CLI_INITCMD,W^CLI_WORKAREA; INIT PARSE

                                     003C   216 	CLI	W^CLI_MAJORQUAL,W^CLI_WORKAREA,W^MASK; START QUALIFIER WORK

            50       03F2'CF     D0  004D   217 	MOVL	W^STATUS,R0		; GET THE STATUS OF THE QUALIFIER CALLS

            AB            50     E9  0052   218 	BLBC	R0,EXIT			; IF ERROR THEN EXIT

                                     0055   219 ;

                                     0055   220 ; TRANSLATE SYS$COMMAND TO GET TERMINAL NAME

                                     0055   221 ;

            52            05     9A  0055   222 	MOVZBL	#5,R2			; SET TRANSLATE LOOP COUNT

       0000'CF            18     D0  0058   223 20$:	MOVL	#24,W^SYS_CMD_I		; SET 24 MAX CHARS

                                     005D   224 	$TRNLOG_S	LOGNAM=W^SYS_CMD,-

                                     005D   225 			RSLLEN=W^SYS_CMD_I,-

                                     005D   226 			RSLBUF=W^SYS_CMD_I

       0020'CF       0000'CF     7D  0076   227 	MOVQ	W^SYS_CMD_I,W^SYS_CMD	; SET UP FOR NEXT TRANSLATE

            1D            50     E9  007D   228 	BLBC	R0,40$			; IF LOW CLEAR THEN DONE

       0000'8F            50     B1  0080   229 	CMPW	R0,#SS$_NOTRAN		; IF NOT NORMAL THEN TRY AGAIN

                          16     13  0085   230 	BEQL	40$			;

            1B       0004'DF     91  0087   231 	CMPB	@W^SYS_CMD_I+4,#^X01B	; ESCAPE START STRING?

                          05     13  008C   232 	BEQL	30$

            C7            52     F5  008E   233 	SOBGTR	R2,20$			;

                          0A     11  0091   234 	BRB	40$

       0004'CF            04     C0  0093   235 30$:	ADDL	#4,W^SYS_CMD_I+4

       0000'CF            04     C2  0098   236 	SUBL	#4,W^SYS_CMD_I

                                     009D   237 40$:	$GETDEV_S	W^SYS_CMD_I,,W^SYS_CMD_CHAR

       004F'DF            02     E0  00B2   238 	BBS	#DEV$V_TRM,@W^SYS_CMD_CHAR+4,55$; BR IF TERMINAL

                          2E         00B7       

                                     00B8   239 	$GETJPI_S	ITMLST=JPI_DATA	; GET PROCESS NAME

            50       0000'CF     9A  00CF   240 	MOVZBL	W^SYS_CMD_I,R0		; GET NAME SIZE

       0000'CF         5F 8F     3B  00D4   241 	SKPC	#^A/_/,W^SYS_CMD_I,W^SYS_CMD_I+4; PASS ALL USCORES

REQUEST_COMMAND - OPERATOR REQUEST TO REQUEST COMMAND IMAGE      22-AUG-1978 00:44:10   VAX-11 MACRO X0.3-11               Page   6

V06             REQUEST - REQUEST OPERATOR SERVICE                                                                               (2)



                     0004'CF         00DA       

                          18     13  00DD   242 	BEQL	60$			; IF EQL THEN NO USCORES

       0000'CF            50     7D  00DF   243 	MOVQ	R0,W^SYS_CMD_I		; COPY REMAINDER

                          11     11  00E4   244 	BRB	60$			; AVIOD ASSIGN

                                     00E6   245 55$:	$ASSIGN_S	DEVNAM=W^SYS_CMD_I,CHAN=W^TT_CHAN

                                     00F7   246 60$:	CLI	W^CLI_MESSAGE,W^CLI_WORKAREA,W^MASK

            53       02AF'CF     9E  0108   247 	MOVAB	W^CLI_MESSAGE+CLI$Q_RQDESC,R3; GET SIZE AND ADDRESS OF MESSAGE

            50       0000'CF     9E  010D   248 	MOVAB	W^SYS_CMD_I,R0		; ADDRESS NAME DESC

                                     0112   249 	$FAO_S	W^MSG_CONTROL,W^MSG_DESC,W^TEXT_DESC,R0,R3

       01E2'CF            08     C0  0129   250 	ADDL	#OPC$L_MS_TEXT,W^MSG_DESC; ADJUST MESSAGE SIZE

                     03D2'CF     DD  012E   251 	PUSHL	W^MB_CHAN		; SET MAILBOX CHANNEL NUMBER

                     01E2'CF     9F  0132   252 	PUSHAB	W^MSG_DESC		; MESSAGE DESC

   00000000'9F            02     FB  0136   253 	CALLS	#2,@#SYS$SNDOPR		; SEND THE MESSAGE

            03            50     E8  013D   254 	BLBS	R0,70$			; BR IF NOT ERROR

                          FEBD   31  0140   255 65$:	BRW	EXIT

                                     0143   256 ;

                                     0143   257 ; IF REPLY REQUESTED THE TELL USER AND AWAIT REPLY

                                     0143   258 ;

                     03D2'CF     D5  0143   259 70$:	TSTL	W^MB_CHAN		; REPLY REQUEST?

                          F7     13  0147   260 	BEQL	65$			; IF NEQ THEN YES

                                     0149   261 ;

                                     0149   262 ; ASK FOR CONTROL C

                                     0149   263 ;

                          00B2   30  0149   264 	BSBW	GET_ATTN_AST

                                     014C   265 80$:	$QIOW_S	#1,W^MB_CHAN,#IO$_READVBLK,W^MB_IOSB,,,W^REPLYBUF,#128

            7F            50     E9  0173   266 	BLBC	R0,100$			; EXIT ON ERROR

            50       03DA'CF     3C  0176   267 	MOVZWL	W^MB_IOSB,R0		;

            77            50     E9  017B   268 	BLBC	R0,100$			; 

       00D6'CF       0154'CF     B0  017E   269 	MOVW	W^REPLYBUF+2,W^REPLY_CODE; INSERT MESSAGE CODE FOR EXIT

       00FA'CF       03DC'CF     3C  0185   270 	MOVZWL	W^MB_IOSB+2,W^REPLY_DESC; SET UP FOR TEXT MESSAGE OUTPUT

       00FE'CF       015A'CF     9E  018C   271 	MOVAB	W^REPLYBUF+8,W^REPLY_DESC+4;

       00FA'CF            08     C2  0193   272 	SUBL	#8,W^REPLY_DESC		;

                          29     19  0198   273 	BLSS	90$			; IF LSS THEN BAD MESSAGE

                          07     12  019A   274 	BNEQ	85$			; IF NEQ THEN OPERATOR TEXT PRESENT

       00FA'CF       0286'CF     7D  019C   275 	MOVQ	W^NO_RESPONSE,W^REPLY_DESC; RESET TEXT

   00000000'9F       00DE'CF     FA  01A3   276 85$:	CALLG	W^REPLY_ARG2,@#SYS$PUTMSG; OUTPUT TEXT MESSAGE

       8021 8F       00D6'CF     B1  01AC   277 	CMPW	W^REPLY_CODE,#<OPC$_RQSTPEND&^X0FFFF>; REQUEST STILL PENDING?

                          0E     12  01B3   278 	BNEQ	90$			; IF NEQ THEN DONE

   00000000'9F       00C2'CF     FA  01B5   279 	CALLG	W^REPLY_ARG1,@#SYS$PUTMSG; PRINT PENDING MESSAGE

                          005E   30  01BE   280 	BSBW	OUTPUT_WAITING		; OUTPUT WAITING MESSAGE

                          89     11  01C1   281 	BRB	80$			; WAIT AGAIN

                                     01C3   282 90$:	$DASSGN_S	W^MB_CHAN	;

                                     01CF   283 	$DASSGN_S	W^TT_CHAN	; 

            09       00D6'CF     E9  01DB   284 	BLBC	W^REPLY_CODE,95$	; BR IF NOT SUCCESSFUL - DCL WILL PRINT MESSAGE

   00000000'9F       00C2'CF     FA  01E0   285 	CALLG	W^REPLY_ARG1,@#SYS$PUTMSG; PRINT COMPLETE MESSAGE

            50   00058029 8F     D0  01E9   286 95$:	MOVL	#OPC$_RQSTCMPLTE,R0	; SET UP SUBSYSTEM

            50       00D6'CF     B0  01F0   287 	MOVW	W^REPLY_CODE,R0		;

                                     01F5   288 100$:	$EXIT_S	R0			; DONE

REQUEST_COMMAND - OPERATOR REQUEST TO REQUEST COMMAND IMAGE      22-AUG-1978 00:44:10   VAX-11 MACRO X0.3-11               Page   7

V06             REQUEST - REQUEST OPERATOR SERVICE                                                                               (3)



                                     01FE   290 ;

                                     01FE   291 ; GET ATTENTION AST ROUTINE

                                     01FE   292 ;

                                     01FE   293 GET_ATTN_AST:

                                     01FE   294 	$QIOW_S	#0,W^TT_CHAN,#IO$_SETMODE!IO$M_CTRLCAST,,,,W^ATTN_AST

                                     021F   295 OUTPUT_WAITING:

   00000000'9F       00A2'CF     FA  021F   296 	CALLG	W^WAIT_ARGS,@#SYS$PUTMSG

                                 05  0228   297 	RSB

                                     0229   298 ;

                                     0229   299 ; ATTENTION AST ROUTINE

                                     0229   300 ;

                                     0229   301 ATTN_AST:

                               003E  0229   302 	.WORD	^M<R1,R2,R3,R4,R5>

            50       0057'CF     9E  022B   303 5$:	MOVAB	W^PROMPT,R0

            51            80     9A  0230   304 	MOVZBL	(R0)+,R1

            53       0000'CF     9A  0233   305 	MOVZBL	W^SYS_CMD_I,R3		; GET SIZE OF TERMINAL NAME

            53            02     C0  0238   306 	ADDL	#2,R3			; AND PASS COMMA

            53            08     C1  023B   307 	ADDL3	#OPC$L_MS_TEXT,R3,W^MSG_DESC; SET UP SIZE

                     01E2'CF         023E       

            53       01F6'CF43   9E  0241   308 	MOVAB	W^TEXT[R3],R3		; ADDRESS MESSAGE AREA

                                     0247   309 	$QIOW_S	#2,W^TT_CHAN,#IO$_READPROMPT,W^TT_IOSB,,,(R3),#120,,,R0,R1

            3B            50     E9  026E   310 	BLBC	R0,100$

            36       03E2'CF     E9  0271   311 	BLBC	W^TT_IOSB,100$		;

       01E6'DF            03     90  0276   312 	MOVB	#OPC$_RQ_RQST,@W^MSG_DESC+4; ASSUME INFO MESSAGE

                          00     DD  027B   313 	PUSHL	#0			; ASSUME NO CANCEL

            50       03E4'CF     3C  027D   314 	MOVZWL	W^TT_IOSB+2,R0		; GET TEXT SIZE

                          11     12  0282   315 	BNEQ	10$			; IF NEQ THEN PRESENT

            1A       03E6'CF     91  0284   316 	CMPB	W^TT_IOSB+4,#^X01A	; "^Z"?

                          A0     12  0289   317 	BNEQ	5$			; IF NEQ THEN ASK AGAIN

       01E6'DF            05     90  028B   318 	MOVB	#OPC$_RQ_CANCEL,@W^MSG_DESC+4

            6E       03D2'CF     D0  0290   319 	MOVL	W^MB_CHAN,(SP)		; SET UP CANCEL REPLY

       01E2'CF            50     C0  0295   320 10$:	ADDL	R0,W^MSG_DESC		; SET UP MESSAGE SIZE

                     01E2'CF     9F  029A   321 	PUSHAB	W^MSG_DESC		; 

   00000000'9F            02     FB  029E   322 	CALLS	#2,@#SYS$SNDOPR		;

            04            50     E9  02A5   323 	BLBC	R0,100$			; EXIT IF ERROR

                          FF53   30  02A8   324 	BSBW	GET_ATTN_AST		; GET THE ATTENTION AST

                                 04  02AB   325 	RET				; EXIT AST

                                     02AC   326 100$:	$EXIT_S	R0			; EXIT ON AST ERROR

REQUEST_COMMAND - OPERATOR REQUEST TO REQUEST COMMAND IMAGE      22-AUG-1978 00:44:10   VAX-11 MACRO X0.3-11               Page   8

V06             QUALIFIER ACTION ROUTINES                                                                                        (4)



                                     02B5   328 	.SBTTL	QUALIFIER ACTION ROUTINES

                                     02B5   329  

                                     02B5   330 	.ENABL	LSB

                                     02B5   331  

                                     02B5   332 ;++

                                     02B5   333 ;  OPERATOR TERMINAL QUALIFIER

                                     02B5   334 ;--

                                     02B5   335 TO_ROUT:				; OPERATOR TERMINAL QUALIFIER

                               07FC  02B5   336 	.WORD	^M<R2,R3,R4,R5,R6,R7,R8,R9,R10>

                     01EF'CF     D4  02B7   337 	CLRL	W^TARGET		; ASSUME NO NAMES

            56       03AE'CF     9E  02BB   338 	MOVAB	W^TO_QUAL,R6		; ADDRESS QUALIFIER

                       04 A6     B5  02C0   339 	TSTW	CLI$W_QDVALSIZ(R6)	; ANY NAME AT ALL?

                          52     13  02C3   340 	BEQL	115$			; IF EQL THEN ERROR

            59       0000'CF     9E  02C5   341 	MOVAB	W^OPC$A_NAMES,R9	; ADDRESS MATCH DATA

            58       03C6'CF     9E  02CA   342 	MOVAB	W^NAME_BUF,R8		;

                       04 A6     B5  02CF   343 20$:	TSTW	CLI$W_QDVALSIZ(R6)	; VALUE PRESENT?

                          3C     13  02D2   344 	BEQL	100$			; IF EQL THEN NO

                                     02D4   345 	CLI	W^CLI_STRINGVAL,W^CLI_WORKAREA,(R6)

            57       0303'CF     D0  02E3   346 	MOVL	W^CLI_STRINGVAL+CLI$Q_RQDESC,R7; GET SIZE OF THE VALUE

       0307'DF            57     2C  02E8   347 	MOVC5	R7,@W^CLI_STRINGVAL+CLI$Q_RQDESC+4,#0,#12,(R8); MOVE NAME TO THIS SPACE

            0C            00         02ED       

                          68         02EF       

            68         80 8F     88  02F0   348 	BISB	#^X080,(R8)		; SET BIT FOR MATCH

            68            57     39  02F4   349 	MATCHC	R7,(R8),#OPC$C_NAMES,(R9);

            69       0000'8F         02F7       

                          1A     12  02FB   350 	BNEQ	115$			; IF NEQ THEN ILLEGAL OPERATOR NAME

            53            07     8A  02FD   351 	BICB	#7,R3			; FIND OFFSET IN TABLE

            53            59     C2  0300   352 	SUBL	R9,R3			; 

            53         FD 8F     78  0303   353 	ASHL	#-3,R3,R3		;

                          53         0307       

       01EF'CF            53     E2  0308   354 	BBSS	R3,W^TARGET,20$		; SET THE BIT

                          C1         030D       

                          BF     11  030E   355 	BRB	20$

       03F2'CF         00'8F     9A  0310   356 100$:	MOVZBL	#SS$_NORMAL,W^STATUS	; SET STATUS AS SUCCESS

                                 04  0316   357 	RET

       03F2'CF   0005806C 8F     D0  0317   358 115$:	MOVL	#OPC$_UNKNOPR,W^STATUS	; SET UNKNOWN OPERATOR ERROR

                                 04  0320   359 120$:	RET				;

                                     0321   360  

                                     0321   361 ;++

                                     0321   362 ; REPLY QUALIFIER

                                     0321   363 ;--

                                     0321   364 REPL_ROUT:				; REPLY QUALIFIER ROUTINE

                               0000  0321   365 	.WORD	0

                                     0323   366 $CREMBX_S	#0,W^MB_CHAN,#OPC$L_MS_TEXT+128,#2*<OPC$L_MS_TEXT+128>,#^X000FF

       03F2'CF            50     D0  0346   367 	MOVL	R0,W^STATUS		; SAVE STATUS

                                 04  034B   368 	RET				;

                                     034C   369 	.END	 REQUEST

REQUEST_COMMAND - OPERATOR REQUEST TO REQUEST COMMAND IMAGE      22-AUG-1978 00:44:10   VAX-11 MACRO X0.3-11               Page   9

SYMBOL TABLE                                                                                                                     (4)



$$$            = 00000004            CLI$K_OUTPUT3  = 00000022            CLI$V_KEYVALU  = 00000001            

$$$GBL         = 00000000            CLI$K_OUTPUT4  = 00000023            CLI$V_LASTVAL  = 00000000            

$$T1           = 00000000            CLI$K_OUTSPEC  = 00000002            CLI$V_MOREINP  = 00000002            

$$T2           = 00000005            CLI$K_PARDONE  = 00000003            CLI$V_MOREVALS = 00000000            

$CLI.          = 000003AE R     04   CLI$K_QDBITS     00000014            CLI$V_PARMDEF  = 00000003            

$CLI..         = 000003C5 R     04   CLI$K_QUALDEF    00000014            CLI$V_PARMPRS  = 00000000            

$QUALNUM$      = 00000003            CLI$K_REQDESC    0000001C            CLI$V_PARMREQ  = 00000000            

ATTN_AST         00000229 R     05   CLI$K_REQU_REPL= 00000001            CLI$V_PRITYP   = 00000004            

BIT...         = 00000045            CLI$K_REQU_TO  = 00000002            CLI$V_QDEXPA   = 00000002            

BUFFER           00000112 R     04   CLI$K_UTILOPR  = 00000000            CLI$V_QDUSRV   = 00000001            

CALLBACK         000003EE R     04   CLI$K_VALCONV  = 00000004            CLI$V_QUALEXP  = 00000001            

CLI$A_ABSACT     00000014            CLI$K_WORKAREA   00000080            CLI$V_QUALTRU  = 00000000            

CLI$A_ERRACT     00000004            CLI$L_CLIFLAG    00000018            CLI$V_SUBTYP   = 00000000            

CLI$A_FLSACT     00000010            CLI$L_INIARGCNT  00000000            CLI$V_TRMVRBLV = 00000008            

CLI$A_IMGFILED   00000010            CLI$L_LINKFLAG   00000014            CLI$V_VERIFY   = 00000002            

CLI$A_IMGHDADR   0000000C            CLI$L_RQVALU     0000000C            CLI$V_VFYINP   = 00000005            

CLI$A_PROGXFER   00000004            CLI$L_USRVAL     00000014            CLI$W_QDVALSIZ   00000004            

CLI$A_PRSACT     00000010            CLI$L_WORKAREA   00000000            CLI$W_RQSIZE     00000008            

CLI$A_QDVALADR   00000008            CLI$M_ABSADR   = 00000002            CLI$W_SERVCOD    00000001            

CLI$A_QUALST     00000018            CLI$M_ALLOCCUR = 00000001            CLI_INITCMD      000002C3 R     04   

CLI$A_RQADDR     0000000C            CLI$M_BATCH    = 00000008            CLI_MAJORQUAL    000002DF R     04   

CLI$A_TRUACT     0000000C            CLI$M_CONCATINP= 00000002            CLI_MESSAGE      000002A7 R     04   

CLI$A_UTILSERV   00000008            CLI$M_DBGEXCP  = 00010000            CLI_STRINGVAL    000002FB R     04   

CLI$B_BITNUM     00000001            CLI$M_DBGTRU   = 00000002            CLI_WORKAREA     00000317 R     04   

CLI$B_QDBLKSIZ   00000000            CLI$M_DEBUG    = 00000001            DEV$M_ALL      = 00800000            

CLI$B_QDCODE     00000001            CLI$M_DUMMY    = 00000002            DEV$M_AVL      = 00040000            

CLI$B_QDFLGS     00000002            CLI$M_EXPNAM   = 00000004            DEV$M_CCL      = 00000002            

CLI$B_QDSTAT     00000003            CLI$M_INDIRECT = 00000010            DEV$M_DIR      = 00000008            

CLI$B_RQFLGS     00000002            CLI$M_KEYVALU  = 00000002            DEV$M_DMT      = 00200000            

CLI$B_RQINDX     00000001            CLI$M_LASTVAL  = 00000001            DEV$M_ELG      = 00400000            

CLI$B_RQSTAT     00000003            CLI$M_MOREINP  = 00000004            DEV$M_FOD      = 00004000            

CLI$B_RQTYPE     00000000            CLI$M_MOREVALS = 00000001            DEV$M_FOR      = 01000000            

CLI$C_QDBITS     00000014            CLI$M_PARMDEF  = 00000008            DEV$M_GEN      = 00020000            

CLI$C_QUALDEF    00000014            CLI$M_PARMPRS  = 00000001            DEV$M_IDV      = 04000000            

CLI$C_REQDESC    0000001C            CLI$M_PARMREQ  = 00000001            DEV$M_MBX      = 00100000            

CLI$C_WORKAREA   00000080            CLI$M_QDEXPA   = 00000004            DEV$M_MNT      = 00080000            

CLI$K_ASCIIVAL = 00000041            CLI$M_QDUSRV   = 00000002            DEV$M_NET      = 00002000            

CLI$K_CLISERV  = 00000005            CLI$M_QUALEXP  = 00000002            DEV$M_ODV      = 08000000            

CLI$K_ENDPRM1  = 00000030            CLI$M_QUALTRU  = 00000001            DEV$M_RCK      = 40000000            

CLI$K_ENDPRM2  = 00000031            CLI$M_TRMVRBLV = 00000300            DEV$M_REC      = 00000001            

CLI$K_ENDPRM3  = 00000032            CLI$M_VERIFY   = 00000004            DEV$M_RND      = 10000000            

CLI$K_ENDPRM4  = 00000033            CLI$M_VFYINP   = 00000020            DEV$M_RTM      = 20000000            

CLI$K_FILSPEC  = 00000044            CLI$Q_QDVALDESC  00000004            DEV$M_SDI      = 00000010            

CLI$K_GETCMD   = 00000001            CLI$Q_RQDESC     00000008            DEV$M_SHR      = 00010000            

CLI$K_GETOPT   = 00000003            CLI$S_PRITYP   = 00000004            DEV$M_SPL      = 00000040            

CLI$K_GETQUAL  = 00000002            CLI$S_SUBTYP   = 00000004            DEV$M_SQD      = 00000020            

CLI$K_INITPRS  = 00000000            CLI$S_TRMVRBLV = 00000002            DEV$M_SWL      = 02000000            

CLI$K_INPSPEC  = 00000001            CLI$V_ABSADR   = 00000001            DEV$M_TRM      = 00000004            

CLI$K_INPUT1   = 00000010            CLI$V_ALLOCCUR = 00000000            DEV$M_WCK      = 80000000            

CLI$K_INPUT2   = 00000011            CLI$V_BATCH    = 00000003            DEV$V_ALL      = 00000017            

CLI$K_INPUT3   = 00000012            CLI$V_CONCATINP= 00000001            DEV$V_AVL      = 00000012            

CLI$K_INPUT4   = 00000013            CLI$V_DBGEXCP  = 00000010            DEV$V_CCL      = 00000001            

CLI$K_KEYVAL   = 00000043            CLI$V_DBGTRU   = 00000001            DEV$V_DIR      = 00000003            

CLI$K_KEYWORD  = 00000042            CLI$V_DEBUG    = 00000000            DEV$V_DMT      = 00000015            

CLI$K_NUMERVAL = 00000040            CLI$V_DUMMY    = 00000001            DEV$V_ELG      = 00000016            

CLI$K_OUTPUT1  = 00000020            CLI$V_EXPNAM   = 00000002            DEV$V_FOD      = 0000000E            

CLI$K_OUTPUT2  = 00000021            CLI$V_INDIRECT = 00000004            DEV$V_FOR      = 00000018            

REQUEST_COMMAND - OPERATOR REQUEST TO REQUEST COMMAND IMAGE      22-AUG-1978 00:44:10   VAX-11 MACRO X0.3-11               Page  10

SYMBOL TABLE                                                                                                                     (4)



DEV$V_GEN      = 00000011            JPI$_FREP1VA   = 00000405            MSG$_SCANBAD   = 00000028            

DEV$V_IDV      = 0000001A            JPI$_GPGCNT    = 0000030C            MSG$_SCANRSP   = 00000029            

DEV$V_MBX      = 00000014            JPI$_GRP       = 00000308            MSG$_SMBDON    = 00000009            

DEV$V_MNT      = 00000013            JPI$_LASTADR   = 00000102            MSG$_SMBINI    = 00000008            

DEV$V_NET      = 0000000D            JPI$_LASTCTL   = 00000207            MSG$_SMBRSP    = 00000020            

DEV$V_ODV      = 0000001B            JPI$_LASTPCB   = 0000031D            MSG$_SNDACC    = 0000000A            

DEV$V_RCK      = 0000001E            JPI$_LASTPHD   = 00000412            MSG$_SNDSMB    = 00000004            

DEV$V_REC      = 00000000            JPI$_LOGINTIM  = 00000206            MSG$_SUSOPR    = 00000012            

DEV$V_RND      = 0000001C            JPI$_MEM       = 00000307            MSG$_THIRDPARTY= 00000039            

DEV$V_RTM      = 0000001D            JPI$_OWNER     = 00000303            MSG$_TIMEOUT   = 0000003A            

DEV$V_SDI      = 00000004            JPI$_PAGEFLTS  = 0000040A            MSG$_TRMHANGUP = 00000006            

DEV$V_SHR      = 00000010            JPI$_PGFLQUOTA = 0000040E            MSG$_TRMUNSOLIC= 00000001            

DEV$V_SPL      = 00000006            JPI$_PID       = 00000319            MSG$_XM_ATTN   = 0000000D            

DEV$V_SQD      = 00000005            JPI$_PPGCNT    = 0000030D            MSG$_XM_DATAVL = 0000000B            

DEV$V_SWL      = 00000019            JPI$_PRCCNT    = 0000031B            MSG$_XM_SHUTDN = 0000000C            

DEV$V_TRM      = 00000002            JPI$_PRCLM     = 00000408            MSG_ACCOUNT      00000028            

DEV$V_WCK      = 0000001F            JPI$_PRCNAM    = 0000031C            MSG_CONTROL      00000276 R     04   

EXIT             00000000 R     05   JPI$_PRI       = 00000302            MSG_DESC         000001E2 R     04   

GBL...         = 00000000            JPI$_PRIB      = 00000309            MSG_DEVCNT       00000010            

GET_ATTN_AST     000001FE R     05   JPI$_PROCPRIV  = 00000204            MSG_DEVNAME      00000011            

INPUT_DESC       0000010A R     04   JPI$_STATE     = 00000306            MSG_DEVUNIT      0000000E            

IO$M_CTRLCAST    ********   X   05   JPI$_STS       = 00000305            MSG_HDR          00000032            

IO$_READPROMPT   ********   X   05   JPI$_TMBU      = 0000030B            MSG_LINK         00000000            

IO$_READVBLK     ********   X   05   JPI$_TQCNT     = 00000315            MSG_MSG          0000000C            

IO$_SETMODE      ********   X   05   JPI$_TQLM      = 00000410            MSG_NUMBER       00000008            

JPI$C_ADRTYPE  = 00000001            JPI$_UIC       = 00000304            MSG_PRI          00000030            

JPI$C_CTLTYPE  = 00000002            JPI$_USERNAME  = 00000202            MSG_PRIV         00000010            

JPI$C_LISTEND  = 00000000            JPI$_VIRTPEAK  = 00000200            MSG_REPLYMBX     0000000E            

JPI$C_PCBTYPE  = 00000003            JPI$_VOLUMES   = 00000205            MSG_SIZE         000000CC            

JPI$C_PHDTYPE  = 00000004            JPI$_WSAUTH    = 00000401            MSG_UIC          00000018            

JPI$_ACCOUNT   = 00000203            JPI$_WSPEAK    = 00000201            MSG_USRNAME      0000001C            

JPI$_APTCNT    = 0000030A            JPI$_WSQUOTA   = 00000402            NAME_BUF         000003C6 R     04   

JPI$_ASTACT    = 00000300            JPI$_WSSIZE    = 00000411            NO_RESPONSE      00000286 R     04   

JPI$_ASTCNT    = 0000030E            JPI_DATA         0000003B R     04   OPC$A_NAMES      ********   X   05   

JPI$_ASTEN     = 00000301            MASK             000003EA R     04   OPC$B_MS_ENAB    00000001            

JPI$_ASTLM     = 00000409            MB_CHAN          000003D2 R     04   OPC$B_MS_TARGET  00000001            

JPI$_BIOCNT    = 0000030F            MB_IOSB          000003DA R     04   OPC$B_MS_TYPE    00000000            

JPI$_BIOLM     = 00000310            MSG$_ABOOPR    = 00000011            OPC$C_NAMES      ********   X   05   

JPI$_BUFIO     = 0000040C            MSG$_ABORT     = 00000030            OPC$C_REPEAT   = 00000005            

JPI$_BYTCNT    = 00000311            MSG$_ACCRSP    = 00000021            OPC$L_MS_MASK    00000004            

JPI$_BYTLM     = 0000031A            MSG$_CONFIRM   = 00000031            OPC$L_MS_MAXSZ   0000009A            

JPI$_CPULIM    = 0000040D            MSG$_CONNECT   = 00000032            OPC$L_MS_OTEXT   0000001A            

JPI$_CPUTIM    = 00000407            MSG$_CRUNSOLIC = 00000002            OPC$L_MS_RPLYID  00000004            

JPI$_CURPRIV   = 00000400            MSG$_DELPROC   = 00000003            OPC$L_MS_RQSTID  00000004            

JPI$_DFPFC     = 00000406            MSG$_DELSMB    = 00000014            OPC$L_MS_TEXT    00000008            

JPI$_DFWSCNT   = 00000403            MSG$_DEVOFFLIN = 00000005            OPC$M_NM_CARDS = 00000020            

JPI$_DIOCNT    = 00000312            MSG$_DEVONLIN  = 00000007            OPC$M_NM_CENTRL= 00000001            

JPI$_DIOLM     = 00000313            MSG$_DISCON    = 00000033            OPC$M_NM_DEVICE= 00000010            

JPI$_DIRIO     = 0000040B            MSG$_EXIT      = 00000034            OPC$M_NM_DISKS = 00000008            

JPI$_EFCS      = 00000317            MSG$_INIOPR    = 00000010            OPC$M_NM_NTWORK= 00000040            

JPI$_EFCU      = 00000318            MSG$_INTMSG    = 00000035            OPC$M_NM_OPER1 = 00001000            

JPI$_EFWM      = 00000316            MSG$_OPREPLY   = 00000009            OPC$M_NM_OPER10= 00200000            

JPI$_EXCVEC    = 00000100            MSG$_OPRQST    = 00000008            OPC$M_NM_OPER11= 00400000            

JPI$_FILCNT    = 00000314            MSG$_PATHLOST  = 00000036            OPC$M_NM_OPER12= 00800000            

JPI$_FILLM     = 0000040F            MSG$_PROTOCOL  = 00000037            OPC$M_NM_OPER2 = 00002000            

JPI$_FINALEXC  = 00000101            MSG$_REJECT    = 00000038            OPC$M_NM_OPER3 = 00004000            

JPI$_FREP0VA   = 00000404            MSG$_RESOPR    = 00000013            OPC$M_NM_OPER4 = 00008000            

REQUEST_COMMAND - OPERATOR REQUEST TO REQUEST COMMAND IMAGE      22-AUG-1978 00:44:10   VAX-11 MACRO X0.3-11               Page  11

SYMBOL TABLE                                                                                                                     (4)



OPC$M_NM_OPER5 = 00010000            OT_DESC          00000010            QUA_V_MINPARM  = 00000000            

OPC$M_NM_OPER6 = 00020000            OT_LINK          00000000            QUA_V_NEG      = 00000006            

OPC$M_NM_OPER7 = 00040000            OT_NAME          00000018            QUA_V_ONEVAL   = 0000000D            

OPC$M_NM_OPER8 = 00080000            OT_SERVICE       00000008            QUA_V_OUTPUT   = 0000000B            

OPC$M_NM_OPER9 = 00100000            OT_SIZE          00000028            QUA_V_PARM     = 00000004            

OPC$M_NM_PRINT = 00000002            OT_STATUS        0000000C            QUA_V_VAL      = 00000005            

OPC$M_NM_TAPES = 00000004            OUTPUT_WAITING   0000021F R     05   QUA_V_VALREQ   = 0000000C            

OPC$T_MS_ONAME   0000000A            OUT_DESC         00000102 R     04   QUA_V_VERB     = 00000003            

OPC$V_NM_CARDS = 00000005            PROMPT           00000057 R     04   QUA_W_FLAGS      00000003            

OPC$V_NM_CENTRL= 00000000            PRO_B_FLAGS      00000001            QUA_W_PROMPT     00000009            

OPC$V_NM_DEVICE= 00000004            PRO_B_PROMPT     00000000            QUA_W_QUALIST    00000006            

OPC$V_NM_DISKS = 00000003            PRO_K_LENGTH     00000002            REPLYBUF         00000152 R     04   

OPC$V_NM_NTWORK= 00000006            PRO_M_CONCAT   = 00000001            REPLY_ARG1       000000C2 R     04   

OPC$V_NM_OPER1 = 0000000C            PRO_M_IMPCAT   = 00000002            REPLY_ARG2       000000DE R     04   

OPC$V_NM_OPER10= 00000015            PRO_M_LIST     = 00000004            REPLY_CODE       000000D6 R     04   

OPC$V_NM_OPER11= 00000016            PRO_M_OPTION   = 00000008            REPLY_DESC       000000FA R     04   

OPC$V_NM_OPER12= 00000017            PRO_M_REQ      = 00000010            REPL_QUAL        00000397 R     04   

OPC$V_NM_OPER2 = 0000000D            PRO_M_STRING   = 00000020            REPL_ROUT        00000321 R     05   

OPC$V_NM_OPER3 = 0000000E            PRO_V_CONCAT   = 00000000            REQUEST          00000009 R     05   

OPC$V_NM_OPER4 = 0000000F            PRO_V_IMPCAT   = 00000001            SS$_NORMAL       ********   X   05   

OPC$V_NM_OPER5 = 00000010            PRO_V_LIST     = 00000002            SS$_NOTRAN       ********   X   05   

OPC$V_NM_OPER6 = 00000011            PRO_V_OPTION   = 00000003            STATUS           000003F2 R     04   

OPC$V_NM_OPER7 = 00000012            PRO_V_REQ      = 00000004            STV_TIMER        00000000            

OPC$V_NM_OPER8 = 00000013            PRO_V_STRING   = 00000005            SYS$ASSIGN       ********   X   05   

OPC$V_NM_OPER9 = 00000014            QUALS            00000397 R     04   SYS$CREMBX       ********   X   05   

OPC$V_NM_PRINT = 00000001            QUA_B_DEFVAL     00000002            SYS$DASSGN       ********   X   05   

OPC$V_NM_TAPES = 00000002            QUA_B_IMAGE      00000005            SYS$EXIT         ********   X   05   

OPC$W_MS_OUNIT   00000008            QUA_B_INDEX      00000001            SYS$FAO          ********   X   05   

OPC$W_MS_STATUS  00000002            QUA_B_OFFSET     00000000            SYS$GETDEV       ********   X   05   

OPC$_DEVNOTERM = 00058074            QUA_B_PARMCNT    00000008            SYS$GETJPI       ********   X   05   

OPC$_DEVOFFLINE= 0005804C            QUA_G_CHNGLST    00000006            SYS$PUTMSG       ********   X   05   

OPC$_DEVONLINE = 00058054            QUA_M_BATDEF   = 00000100            SYS$QIOW         ********   X   05   

OPC$_ILLRQST   = 0005807C            QUA_M_CHNGLIST = 00000001            SYS$SNDOPR       ********   X   05   

OPC$_LOGCLOS   = 000580A4            QUA_M_DEFTRUE  = 00000080            SYS$TRNLOG       ********   X   05   

OPC$_LOGFAIL   = 00058034            QUA_M_FILE     = 00000004            SYS_CMD          00000020 R     04   

OPC$_LOGINIT   = 00058009            QUA_M_IMAGE    = 00000400            SYS_CMD_CHAR     0000004B R     04   

OPC$_LOGTIME   = 00058099            QUA_M_INTDEF   = 00000200            SYS_CMD_I        00000000 R     04   

OPC$_NOCLI     = 0005805C            QUA_M_KEYVAL   = 00004000            TARGET           000001EF R     04   

OPC$_NOPERATOR = 00058061            QUA_M_LOCALKEY = 00000002            TEXT             000001F6 R     04   

OPC$_NOSUCHRQST= 00058044            QUA_M_NEG      = 00000040            TEXT_DESC        000001DA R     04   

OPC$_OPREPLY   = 00058091            QUA_M_ONEVAL   = 00002000            TO_QUAL          000003AE R     04   

OPC$_OPRNOTIF  = 00058089            QUA_M_OUTPUT   = 00000800            TO_ROUT          000002B5 R     05   

OPC$_RQSTABORT = 0005801C            QUA_M_PARM     = 00000010            TT_CHAN          000003D6 R     04   

OPC$_RQSTCAN   = 00058084            QUA_M_VAL      = 00000020            TT_IOSB          000003E2 R     04   

OPC$_RQSTCMPLTE= 00058029            QUA_M_VALREQ   = 00001000            WAIT_ARGS        000000A2 R     04   

OPC$_RQSTPEND  = 00058021            QUA_M_VERB     = 00000008            

OPC$_RQ_CANCEL = 00000005            QUA_S_MAXPARM  = 00000004            

OPC$_RQ_LOGI   = 00000002            QUA_S_MINPARM  = 00000004            

OPC$_RQ_REPLY  = 00000004            QUA_V_BATDEF   = 00000008            

OPC$_RQ_RQST   = 00000003            QUA_V_CHNGLIST = 00000000            

OPC$_RQ_STATUS = 00000006            QUA_V_DEFTRUE  = 00000007            

OPC$_RQ_TERME  = 00000001            QUA_V_FILE     = 00000002            

OPC$_TERMDSBL  = 00058011            QUA_V_IMAGE    = 0000000A            

OPC$_TERMENAB  = 00058001            QUA_V_INTDEF   = 00000009            

OPC$_TERMFAIL  = 0005803C            QUA_V_KEYVAL   = 0000000E            

OPC$_UNKNOPR   = 0005806C            QUA_V_LOCALKEY = 00000001            

OTV_ACTIVE     = 00000000            QUA_V_MAXPARM  = 00000004            

REQUEST_COMMAND - OPERATOR REQUEST TO REQUEST COMMAND IMAGE      22-AUG-1978 00:44:10   VAX-11 MACRO X0.3-11               Page  12

PROGRAM SECTION SYNOPSIS                                                                                                         (4)







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  

OPCOM_DEF        000000CC      02     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  

$ABS$            0000009E      03     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  

OPCOM_IMPURE     000003F6      04     NOPIC   USR   CON   REL   LCL NOSHR NOEXE   RD    WRT QUAD  

OPCOM_CODE       0000034C      05     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

6518. BYTES LEFT IN FREE MEMORY POOL.

1604. BYTES OF RECLAIMED MEMORY.

OBJ$:REQUEST,LIS$:REQUEST/-SP=EXECML$/ML,SRC$:ODEF,REQUEST

31 MLB DIR RDS - 863 GETS TO DEFINE 40 MACROS. 68 INTER. FILE WRITES. 

