SET             - SET PARAMETER DCLS COMMAND EXECUTION           22-AUG-1978 01:23:56   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      55  SET USER IDENTIFICATION CODE

   (1)     119  SET DEFAULT DEVICE AND/OR DIRECTORY

   (1)     217  SET PROTECTION

   (1)     269  SET VERIFY MODE

   (1)     297  SET ON MODE

   (1)     331  SET CONTROL Y ENABLE

SET             - SET PARAMETER DCLS COMMAND EXECUTION           22-AUG-1978 01:23:56   VAX-11 MACRO X0.3-11               Page   1

01                                                                                                                               (1)



                                     0000     1 	.TITLE	SET - SET PARAMETER DCLS COMMAND EXECUTION

                                     0000     2 	.IDENT	/01/

                                     0000     3  

                                     0000     4 ;

                                     0000     5 ; COPYRIGHT (C) 1977

                                     0000     6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

                                     0000     7 ;

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

                                     0000     9 ; SINGLE COMPUTER SYSTEM AND MAY BE  COPIED ONLY WITH  THE INCLU-

                                     0000    10 ; SION OF  THE  ABOVE  COPYRIGHT NOTICE.  THIS SOFTWARE,  OR  ANY

                                     0000    11 ; OTHER COPIES THEREOF, MAY NOT BE  PROVIDED  OR  OTHERWISE  MADE

                                     0000    12 ; AVAILABLE TO ANY OTHER PERSON EXCEPT  FOR  USE  ON  SUCH SYSTEM

                                     0000    13 ; AND TO  ONE WHO AGREES  TO  THESE LICENSE  TERMS.  TITLE TO AND

                                     0000    14 ; OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.

                                     0000    15 ;

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

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

                                     0000    18 ; EQUIPMENT 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 ; D. N. CUTLER 17-APR-77

                                     0000    24 ;

                                     0000    25 ; SET PARAMETER DCLS COMMAND EXECUTION

                                     0000    26 ;

                                     0000    27 ;	SET DIRECTORY

                                     0000    28 ;	SET PROTECTION

                                     0000    29 ;	SET USER IDENTIFICATION CODE

                                     0000    30 ;	SET VERIFY MODE

                                     0000    31 ;

                                     0000    32 ; MACRO LIBRARY CALLS

                                     0000    33 ;

                                     0000    34  

                                     0000    35 	$CLIDEFQUALSET			;DEFINE SET QUALIFER NUMBERS

                                     0000    36 	$CLIMSGDEF			;DEFINE CLI RELATED ERRORS

                                     0000    37 	DEFCMDWRK			;DEFINE WORK AREA OFFSETS

                                     0000    38 	DEFPTRDSC			;DEFINE RESULT PARSE DESCRIPTOR FORMAT

                                     0000    39 	$LOGDEF				;LOGICAL NAME DEFINITIONS

                                     0000    40 	$PCBDEF				;DEFINE PCB OFFSETS

                                     0000    41 	$PRVDEF				;PRIVILEGE BIT DEFINITIONS

                                     0000    42  

                                     0000    43 ;

                                     0000    44 ; LOCAL DATA

                                     0000    45 ;

                                     0000    46  

                                 00000000    47 	.PSECT	DCL$ZCODE,BYTE,RD,NOWRT

                                     0000    48 ACCESS:					;ACCESS PROTECTION CODES

                        52 57 45 44  0000    49 	.ASCII	/DEWR/			;

                                     0004    50 CLASS:					;PROTECTION CLASSES

                        53 4F 47 57  0004    51 	.ASCII	/WGOS/			;

                                     0008    52 DCL$T_DSKNAM::				;STRING FOR DEFAULT DEVICE

         4B 53 49 44 24 53 59 53 00' 0008    53 	.ASCIC	/SYS$DISK/		;THE NAME

                                 08  0008       

SET             - SET PARAMETER DCLS COMMAND EXECUTION           22-AUG-1978 01:23:56   VAX-11 MACRO X0.3-11               Page   2

01              SET USER IDENTIFICATION CODE                                                                                     (1)



                                     0011    55 	.SBTTL	SET USER IDENTIFICATION CODE

                                     0011    56 ;+

                                     0011    57 ; DCL$SETUIC - SET USER IDENTIFICATION CODE

                                     0011    58 ;

                                     0011    59 ; THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE SET USER

                                     0011    60 ; IDENTIFICATION CODE DCLS COMMAND.

                                     0011    61 ;

                                     0011    62 ; INPUTS:

                                     0011    63 ;

                                     0011    64 ;	R8 = ADDRESS OF SCRATCH BUFFER DESCRIPTOR.

                                     0011    65 ;	R9 = ADDRESS OF SCRATCH STACK.

                                     0011    66 ;	R10 = RESULT PARSE DESCRIPTOR TABLE POINTER.

                                     0011    67 ;	R11 = BASE ADDRESS OF PROCESS WORK AREA.

                                     0011    68 ;	FP = BASE ADDRESS OF COMMAND WORK AREA.

                                     0011    69 ;

                                     0011    70 ; OUTPUTS:

                                     0011    71 ;

                                     0011    72 ;	THE CURRENT USER IDENTIFICATION CODE IS ESTABLISHED,

                                     0011    73 ;	THEN THE CURRENT DEFAULT DIRECTORY IS CHANGED TO MATCH.

                                     0011    74 ;-

                                     0011    75  

                                     0011    76 DCL$SETUIC::				;SET USER IDENTIFICATION CODE

            50            00'    D0  0011    77 	MOVL	S^#SS$_NOPRIV,R0	;ASSUME USER NOT ALLOWED TO DO THIS

                                 E1  0014    78 	BBC	#PRV$V_CMKRNL,-		;CHECK IF THIS USER IS ALLOWED TO

   00000000'9F            00         0015    79 		@#CTL$GQ_PROCPRIV,20$	;CHANGE MODE TO KERNAL-BR IF NO TO ERROR

                          20         001B       

                          4B     10  001C    80 	BSBB	DCL$SETDEFALT		;SET DEFAULT DIRECTORY AND/OR DEVICE

            1B            50     E9  001E    81 	BLBC	R0,20$			;IF LBC ERROR SETTING DIRECTORY

                                     0021    82 					; NOTE: R4,R5=DESCRIPTOR FOR DIRECTORY

                          1F     10  0021    83 	BSBB	CVTUIC			;CONVERT GROUP NUMBER

            65            2C     91  0023    84 	CMPB	#^A/,/,(R5)		;END WITH A COMMA?

                          15     12  0026    85 	BNEQ	30$			;IF NEQ NO

            79            50     B0  0028    86 	MOVW	R0,-(R9)		;SAVE GROUP NUMBER

                          15     10  002B    87 	BSBB	CVTUIC			;CONVERT MEMBER NUMBER

            79            50     B0  002D    88 	MOVW	R0,-(R9)		;SAVE MEMBER NUMBER

                                     0030    89 	$CMKRNL_S B^SETUIC,(R9)		;SET USER IDENTIFICATION CODE

                                 05  003C    90 20$:	RSB				;

                                     003D    91 30$:	STATUS	INVUIC			;SET INVALID UIC SYNTAX

                                 05  0041    92 	RSB				;

                                     0042    93  

                                     0042    94 ;

                                     0042    95 ; CONVERT UIC COMPONENT

                                     0042    96 ;

                                     0042    97  

                          50     7C  0042    98 CVTUIC:	CLRQ	R0			;CLEAR ACCUMULATION AND CHARACTER

                          55     D6  0044    99 10$:	INCL	R5			;POINT TO NEXT CHARACTER

            65            30     83  0046   100 	SUBB3	#^A/0/,(R5),R1		;GET NEXT CHARACTER

                          51         0049       

                          0B     19  004A   101 	BLSS	20$			;IF LSS NOT DIGIT

            51            08     D1  004C   102 	CMPL	#8,R1			;OCTAL DIGIT?

                          06     15  004F   103 	BLEQ	20$			;IF LEQ NO

            50            6140   7E  0051   104 	MOVAQ	(R1)[R0],R0		;ACCUMULATE RESULT

                          ED     11  0055   105 	BRB	10$			;

                                 05  0057   106 20$:	RSB				;

                                     0058   107  

                                     0058   108 ;

                                     0058   109 ; SET USER IDENTIFICATION CODE

SET             - SET PARAMETER DCLS COMMAND EXECUTION           22-AUG-1978 01:23:56   VAX-11 MACRO X0.3-11               Page   3

01              SET USER IDENTIFICATION CODE                                                                                     (1)



                                     0058   110 ;

                                     0058   111  

                               0000  0058   112 SETUIC:	.WORD	0			;ENTRY MASK

            50   00000000'9F     D0  005A   113 	MOVL	@#SCH$GL_CURPCB,R0	;GET CURRENT PROCESS PCB ADDRESS

         20 A0            6C     D0  0061   114 	MOVL	(AP),PCB$L_UIC(R0)	;SET USER IDENTIFICATION CODE

                                     0065   115 	STATUS	NORMAL			;

                                 04  0068   116 	RET				;

                                     0069   117  

SET             - SET PARAMETER DCLS COMMAND EXECUTION           22-AUG-1978 01:23:56   VAX-11 MACRO X0.3-11               Page   4

01              SET DEFAULT DEVICE AND/OR DIRECTORY                                                                              (1)



                                     0069   119 	.SBTTL	SET DEFAULT DEVICE AND/OR DIRECTORY

                                     0069   120 ;+

                                     0069   121 ; DCL$SETDEFALT - SET DEFAULT DEVICE AND/OR DIRECTORY

                                     0069   122 ;

                                     0069   123 ; THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE SET DEFAULT

                                     0069   124 ; DCLS COMMAND.

                                     0069   125 ;

                                     0069   126 ; INPUTS:

                                     0069   127 ;

                                     0069   128 ;	R8 = ADDRESS OF SCRATCH BUFFER DESCRIPTOR.

                                     0069   129 ;	R9 = ADDRESS OF SCRATCH STACK.

                                     0069   130 ;	R10 = RESULT PARSE DESCRIPTOR TABLE POINTER.

                                     0069   131 ;	R11 = BASE ADDRESS OF PROCESS WORK AREA.

                                     0069   132 ;	FP = BASE ADDRESS OF COMMAND WORK AREA.

                                     0069   133 ;

                                     0069   134 ; OUTPUTS:

                                     0069   135 ;

                                     0069   136 ;	A LOGICAL NAME IS ASSIGNED FOR DISK THE DEVICE NAME ENTER.

                                     0069   137 ;	THE CURRENT DEFAULT DIRECTORY IS ESTABLISHED.

                                     0069   138 ;	EITHER FIELD IS OPTIONAL, ADDITIONAL INFORMATION IS IGNORED.

                                     0069   139 ;	*** NOTE *** R4,R5 = STRING DESCRITPOR FOR DIRECTORY FOR SET UIC.

                                     0069   140 ;-

                                     0069   141  

                                     0069   142 DCL$SETDEFALT::				;SET DEFAULT DEVICE AND/OR DIRECTORY

                          8A     D5  0069   143 	TSTL	(R10)+			; SKIP OPTION DESCRIPTOR

                                     006B   144 	GETDVAL				;GET THE VALUE OF TOKEN DESCRIPTOR

            79            51     7D  006E   145 	MOVQ	R1,-(R9)		;PUSH DESCRIPTOR INTO SCRATCH STACK

                          52     DD  0071   146 	PUSHL	R2			;ADDRESS OF STRING IN BUFFER

                          3F     DD  0073   147 	PUSHL	#63			;MAXIMUM STRING TO RETURN

            50            5E     D0  0075   148 	MOVL	SP,R0			;GET ADDRESS OF OUTPUT DESCRIPTOR

                                     0078   149 	$TRNLOG_S (R9),(R0),(R0)	;TRANSLATE THE NAME

            54            8E     7D  008B   150 	MOVQ	(SP)+,R4		;RESET RESULTANT STRING DESCRIPTOR

                          6544   94  008E   151 	CLRB	(R5)[R4]		;MARK END OF STRING

            54            3A     3A  0091   152 	LOCC	#^A/:/,R4,(R5)		;LOOK FOR DEVICE NAME DELIMITER

                          65         0094       

                          54     13  0095   153 	BEQL	50$			;BR IF NO DEVICE HERE

            61            81     91  0097   154 	CMPB	(R1)+,(R1)		;IS THIS A NODE NAME?

                          14     12  009A   155 	BNEQ	20$			;BR IF ONLY DEVICE

            53         01 A1     9E  009C   156 	MOVAB	1(R1),R3		;SET ADDRESS OF END OF NODE STRING

            50            02     C2  00A0   157 	SUBL	#2,R0			;AND LENGTH OF REMAINDER

            50            3A     3A  00A3   158 	LOCC	#^A/:/,R0,(R3)		;SEE IF DEVICE NAME IS HERE

                          63         00A6       

                          04     13  00A7   159 	BEQL	10$			;BR IF NONE-JUST USE NODE

            53         01 A1     9E  00A9   160 	MOVAB	1(R1),R3		;SET END OF DEVICE NAME

            51            53     D0  00AD   161 10$:	MOVL	R3,R1			;SET END OF EQUIVALENCE NAME FOR DISK

            55            51     D0  00B0   162 20$:	MOVL	R1,R5			;SET START OF DIRECTORY STRING

            51            52     C2  00B3   163 	SUBL	R2,R1			;FIND LENGTH OF DEVICE NAME

            54            51     C2  00B6   164 	SUBL	R1,R4			;ADJUST DIRECTORY STRING LENGTH

            57       FF4B CF     9E  00B9   165 	MOVAB	DCL$T_DSKNAM,R7		;ADDRESS OF DEVICE NAME COUNTED STRING

            56            87     9A  00BE   166 	MOVZBL	(R7)+,R6		;GET LENGTH AND ADDRESS OF FIRST BYTE

            51            56     C3  00C1   167 	SUBL3	R6,R1,-(SP)		;FIND DIFFERENCE IN NAME STRING SIZES

                          7E         00C4       

                          8E     D7  00C5   168 	DECL	(SP)+			;CHECK IF 1 BYTE DIFFERENCE(THE COLON!)

                          0A     12  00C7   169 	BNEQ	30$			;BR IF NO-CAN'T BE THE SPECIAL NAME

                          0E     BB  00C9   170 	PUSHR	#^M<R1,R2,R3>		;SAVE REGISTERS TO BE USED

            62            56     29  00CB   171 	CMPC3	R6,(R2),(R7)		;CHECK FOR RESERVED SYSTEM NAME

                          67         00CE       

SET             - SET PARAMETER DCLS COMMAND EXECUTION           22-AUG-1978 01:23:56   VAX-11 MACRO X0.3-11               Page   5

01              SET DEFAULT DEVICE AND/OR DIRECTORY                                                                              (1)



                          0E     BA  00CF   172 	POPR	#^M<R1,R2,R3>		;RESTORE VALUES

                          18     13  00D1   173 	BEQL	50$			;BR IF NO DEVICE NAME ASSIGNMENT NEEDED

                     00C6 8F     BB  00D3   174 30$:	PUSHR	#^M<R1,R2,R6,R7>	;DESCRIPTORS FOR LOGICAL AND EQUIVALENCE NAME

                          00     DD  00D7   175 	PUSHL	#0			;ACCESS MODE IS DEFAULTED

                       04 AE     7F  00D9   176 	PUSHAQ	4(SP)			;ADDRESS OF EQUIVALENCE NAME DESCRITPOR

                       10 AE     7F  00DC   177 	PUSHAQ	16(SP)			;DESCRIPTOR OF NAME TO RELATE WITH

                          02     DD  00DF   178 	PUSHL	#LOG$C_PROCESS		;TABLE NUMBER

   00000000'9F            08     FB  00E1   179 	CALLS	#8,@#SYS$CRELOG		;CLEAR DESCRIPTOR ON RETURN

            31            50     E9  00E8   180 	BLBC	R0,62$			;BR IF ERROR CREATING NAME

                          54     D5  00EB   181 50$:	TSTL	R4			;ANY DIRECTORY FIELD

                          62     13  00ED   182 	BEQL	90$			;BR IF NO

            02            54     91  00EF   183 	CMPB	R4,#2			;NULL DIRECTORY STRING?

                          25     15  00F2   184 	BLEQ	61$			;BR IF YES-NULL NOT VALID DEFAULT

            02            65     3A  00F4   185 	LOCC	(R5),#2,B^100$		;VALID DIRECTORY STARTING CHARACTER

                       55'AF         00F7       

                          1E     13  00F9   186 	BEQL	61$			;BR IF NO

         FF A544       02 A1     91  00FB   187 	CMPB	2(R1),-1(R5)[R4]	;CHECK THAT END IS END OF THE DIRECTORY

                          16     12  0101   188 	BNEQ	61$			;ELSE INVALID SPECIFICATION

         01 A5            2E     91  0103   189 	CMPB	#^A/./,1(R5)		;IS THIS A PASTE DIRECTORY OPERATION?

                          37     12  0107   190 	BNEQ	80$			;BR IF NO-SET THIS AS DEFAULT

            53   00000000'9F     9E  0109   191 	MOVAB	@#PIO$GT_DDSTRING,R3	;POINT AT CURRENT DEFAULT

            52            83     9A  0110   192 	MOVZBL	(R3)+,R2		;GET LENGTH, POINT AT FIRST BYTE

            52            2C     3A  0113   193 	LOCC	#^A/,/,R2,(R3)		;CHECK FOR CONFLICTING SYNTAX

                          63         0116       

                          05     13  0117   194 	BEQL	63$			;BR IF NO COMMA HERE-ALL IS AOK

                                     0119   195 61$:	STATUS	DIRECT			;SET ERROR CAUSE

                          36     11  011C   196 62$:	BRB	99$			;

            51         04 A8     D0  011E   197 63$:	MOVL	4(R8),R1		;GET POINTER INTO SCRATCH BUFFER

            81            85     90  0122   198 	MOVB	(R5)+,(R1)+		;INSERT DIRECTORY DELIMITER

                          54     D7  0125   199 	DECL	R4			;ADJUST LENGTH FOR BYTE MOVED

                          53     D6  0127   200 	INCL	R3			;SKIP PREVIOS DELIMITER

            52            02     C2  0129   201 	SUBL	#2,R2			;ADJUST LENGTH FOR NO DELIMITERS

            81            83     90  012C   202 65$:	MOVB	(R3)+,(R1)+		;INSERT PREVIOUS DEFAULT

            FA            52     F5  012F   203 	SOBGTR	R2,65$			;BR IF NOT DONE

            81            85     90  0132   204 70$:	MOVB	(R5)+,(R1)+		;PASTE NEW AT END OF OLD

            FA            54     F5  0135   205 	SOBGTR	R4,70$			;BR IF MORE TO MOVE

            55         04 A8     D0  0138   206 	MOVL	4(R8),R5		;SET START OF NEW STRING

            51            55     C3  013C   207 	SUBL3	R5,R1,R4		;FIND THE NEW LENGTH

                          54         013F       

                          30     BB  0140   208 80$:	PUSHR	#^M<R4,R5>		;DESCRIPTOR FOR DIRECTORY NAME

                          7E     7C  0142   209 	CLRQ	-(SP)			;ZEROS AS ARGUMENTS 2 & 3

                       08 AE     9F  0144   210 	PUSHAB	8(SP)			;ADDRESS OF DIRECTORY STRING

   00000000'9F            05     FB  0147   211 	CALLS	#5,@#SYS$SETDDIR	;SET THE DEFAULT DIRECTORY

            03            50     E9  014E   212 	BLBC	R0,99$			;BR IF ERROR FROM RMS

                                     0151   213 90$:	STATUS	NORMAL			;ASSUME ALL IS AOK

                                 05  0154   214 99$:	RSB				;

                        3E 5D 3C 5B  0155   215 100$:	.ASCII	\[<]>\			; DIRECTORY DELIMITORS

SET             - SET PARAMETER DCLS COMMAND EXECUTION           22-AUG-1978 01:23:56   VAX-11 MACRO X0.3-11               Page   6

01              SET PROTECTION                                                                                                   (1)



                                     0159   217 	.SBTTL	SET PROTECTION

                                     0159   218 ;+

                                     0159   219 ; DCL$SETPROT - SET PROTECTION

                                     0159   220 ;

                                     0159   221 ; THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE SET PROTECTION

                                     0159   222 ; DCLS COMMAND.

                                     0159   223 ;

                                     0159   224 ; INPUTS:

                                     0159   225 ;

                                     0159   226 ;	R8 = ADDRESS OF SCRATCH BUFFER DESCRIPTOR.

                                     0159   227 ;	R9 = ADDRESS OF SCRATCH STACK.

                                     0159   228 ;	R10 = RESULT PARSE DESCRIPTOR TABLE POINTER.

                                     0159   229 ;	R11 = BASE ADDRESS OF PROCESS WORK AREA.

                                     0159   230 ;	FP = BASE ADDRESS OF COMMAND WORK AREA.

                                     0159   231 ;

                                     0159   232 ; OUTPUTS:

                                     0159   233 ;

                                     0159   234 ;	THE CURRENT DEFAULT PROTECTION IS ESTABLISHED.

                                     0159   235 ;-

                                     0159   236  

                                     0159   237 DCL$SETPROT::				;SET PROTECTION

            59   00000000'9F     3C  0159   238 	MOVZWL	@#PIO$GW_DFPROT,R9	;GET DEFAULT PROTECTION VALUE

                          8A     D5  0160   239 	TSTL	(R10)+			;SKIP PAST OPTION DESCRIPTOR

                                     0162   240 10$:	GETDVAL				;GET NEXT DESCRIPTOR VALUES

            55            02     91  0165   241 	CMPB	#PTR_K_QUALVALU,R5	;QUALIFIER VALUE?

                          34     12  0168   242 	BNEQ	40$			;IF NEQ NO

            04            62     3A  016A   243 	LOCC	(R2),#4,CLASS		;LOCATE PROTECTION CLASS

                     FE94 CF         016D       

                          3F     13  0170   244 	BEQL	60$			;IF EQL INVALID CLASS

                          50     D7  0172   245 	DECL	R0			;CALCULATE STARTING BIT NUMBER

            50            04     C5  0174   246 	MULL3	#4,R0,R8		;

                          58         0177       

            58            0F     F0  0178   247 	INSV	#^XF,R8,#4,R9		;START WITH NO ACCESS

            59            04         017B       

            54            02     91  017D   248 	CMPB	#PTR_K_COLON,R4		;PROTECTION VALUE SPECIFIED?

                          E0     12  0180   249 	BNEQ	10$			;IF NEQ NO

                                     0182   250 	GETDVAL				;GET PROTECTION VALUE DESCRIPTOR

            57            51     D0  0185   251 	MOVL	R1,R7			;SAVE LENGTH OF VALUE STRING

            04            82     3A  0188   252 20$:	LOCC	(R2)+,#4,ACCESS		;LOCATE PROTECTION CODE

                     FE72 CF         018B       

                          1D     13  018E   253 	BEQL	50$			;IF EQL INVALID PROTECTION CODE

                          50     D7  0190   254 	DECL	R0			;CALCULATE RELATIVE BIT NUMBER IN FIELD

            50            58     C0  0192   255 	ADDL	R8,R0			;CALCULATE ACTUAL BIT NUMBER

            59            50     E5  0195   256 	BBCC	R0,R9,30$		;ALLOW SPECIFIED ACCESS

                          00         0198       

            EC            57     F5  0199   257 30$:	SOBGTR	R7,20$			;ANY MORE TO SCAN?

                          C4     11  019C   258 	BRB	10$			;

                          59     DD  019E   259 40$:	PUSHL	R9			;SET NEW DEFAULT PROTECTION ARGUMENT

                          7E     D4  01A0   260 	CLRL	-(SP)			;ZERO ADDRESS OF RETURN DESCRIPTOR

                       04 AE     DF  01A2   261 	PUSHAL	4(SP)			;ADDRESS OF NEW PROTECTION

   00000000'9F            03     FB  01A5   262 	CALLS	#3,@#SYS$SETDFPROT	;SET DEFAULT PROTECTION

                                 05  01AC   263 	RSB				;

                                     01AD   264 50$:	STATUS	IVPROT			;SET INVALID PROCTECTION CODE

                                 05  01B0   265 	RSB				;

                                     01B1   266 60$:	STATUS	INVKEY			;SET INVALID KEYWORD

                                 05  01B5   267 	RSB				;

SET             - SET PARAMETER DCLS COMMAND EXECUTION           22-AUG-1978 01:23:56   VAX-11 MACRO X0.3-11               Page   7

01              SET VERIFY MODE                                                                                                  (1)



                                     01B6   269 	.SBTTL	SET VERIFY MODE

                                     01B6   270 ;+

                                     01B6   271 ; DCL$SETVERIFY - SET VERIFY MODE

                                     01B6   272 ;

                                     01B6   273 ; THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE SET VERIFY

                                     01B6   274 ; MODE DCLS COMMAND.

                                     01B6   275 ;

                                     01B6   276 ; INPUTS:

                                     01B6   277 ;

                                     01B6   278 ;	R8 = ADDRESS OF SCRATCH BUFFER DESCRIPTOR.

                                     01B6   279 ;	R9 = ADDRESS OF SCRATCH STACK.

                                     01B6   280 ;	R10 = RESULT PARSE DESCRIPTOR TABLE POINTER.

                                     01B6   281 ;	R11 = BASE ADDRESS OF PROCESS WORK AREA.

                                     01B6   282 ;	FP = BASE ADDRESS OF COMMAND WORK AREA.

                                     01B6   283 ;

                                     01B6   284 ; OUTPUTS:

                                     01B6   285 ;

                                     01B6   286 ;	THE VERIFY MODE IS ESTABLISHED.

                                     01B6   287 ;-

                                     01B6   288  

                                     01B6   289 DCL$SETVERIFY::				;SET VERIFY MODE

         54 AB       0080 8F     A8  01B6   290 	BISW	#PRC_M_VERIFY,PRC_W_FLAGS(R11) ;ASSUME VERIFICATION IS SPECIFIED

                                     01BC   291 	GETDVAL				;GET OPTION DESCRIPTOR

            06            53     E9  01BF   292 	BLBC	R3,10$			;IF LBC VERIFICATION SPECIFIED

         54 AB       0080 8F     AA  01C2   293 	BICW	#PRC_M_VERIFY,PRC_W_FLAGS(R11) ;DISABLE VERIFICATION

                                     01C8   294 10$:	STATUS	NORMAL			;SET NORMAL COMPLETION STATUS

                                 05  01CB   295 	RSB				;

SET             - SET PARAMETER DCLS COMMAND EXECUTION           22-AUG-1978 01:23:56   VAX-11 MACRO X0.3-11               Page   8

01              SET ON MODE                                                                                                      (1)



                                     01CC   297 	.SBTTL	SET ON MODE

                                     01CC   298 ;+

                                     01CC   299 ; DCL$SETON - SET ON MODE

                                     01CC   300 ;

                                     01CC   301 ; THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE SET ON

                                     01CC   302 ; MODE DCLS COMMAND.

                                     01CC   303 ;

                                     01CC   304 ; INPUTS:

                                     01CC   305 ;

                                     01CC   306 ;	R8 = ADDRESS OF SCRATCH BUFFER DESCRIPTOR.

                                     01CC   307 ;	R9 = ADDRESS OF SCRATCH STACK.

                                     01CC   308 ;	R10 = RESULT PARSE DESCRIPTOR TABLE POINTER.

                                     01CC   309 ;	R11 = BASE ADDRESS OF PROCESS WORK AREA.

                                     01CC   310 ;	FP = BASE ADDRESS OF COMMAND WORK AREA.

                                     01CC   311 ;

                                     01CC   312 ; OUTPUTS:

                                     01CC   313 ;

                                     01CC   314 ;	THE ON MODE IS ESTABLISHED.

                                     01CC   315 ;-

                                     01CC   316  

                                     01CC   317 DCL$SETON::				;SET ON MODE

                                     01CC   318 	GETDVAL				;GET THE DESCRIPTOR FOR "ON"

                                     01CF   319 	STATUS	NORMAL			;SET NORMAL COMPLETION STATUS

            51         56 AB     9E  01D2   320 	MOVAB	PRC_W_ONLEVEL(R11),R1	;GET ADDRESS OF ON LEVEL CODE

            61            08     91  01D6   321 	CMPB	#8,(R1)			;CHECK "ON" LEVEL FOR RESERVED LEVEL

            07            53     E8  01D9   322 	BLBS	R3,20$			;BR IF OPTION WAS NEGATED (NOON)

                          04     19  01DC   323 	BLSS	10$			;BR IF "ON" ALREADY ACTIVE

            61         01 A1     90  01DE   324 	MOVB	1(R1),(R1)		;RESET TO SAVED VALUE

                                 05  01E2   325 10$:	RSB				;

                          07     13  01E3   326 20$:	BEQL	30$			;BR IF "ON" ALREADY AT RESEVED LEVEL

         01 A1            61     90  01E5   327 	MOVB	(R1),1(R1)		;SAVE PREVIOUS "ON" LEVEL

            61            08     90  01E9   328 	MOVB	#8,(R1)			;SET TO RESERVED LEVEL

                                 05  01EC   329 30$:	RSB				;END OF NOON HANDLING

SET             - SET PARAMETER DCLS COMMAND EXECUTION           22-AUG-1978 01:23:56   VAX-11 MACRO X0.3-11               Page   9

01              SET CONTROL Y ENABLE                                                                                             (1)



                                     01ED   331 	.SBTTL	SET CONTROL Y ENABLE

                                     01ED   332 ;+

                                     01ED   333 ; DCL$SETVERIFY - SET VERIFY MODE

                                     01ED   334 ;

                                     01ED   335 ; THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE SET CONTROL_Y

                                     01ED   336 ; MODE DCLS COMMAND.

                                     01ED   337 ;

                                     01ED   338 ; INPUTS:

                                     01ED   339 ;

                                     01ED   340 ;	R8 = ADDRESS OF SCRATCH BUFFER DESCRIPTOR.

                                     01ED   341 ;	R9 = ADDRESS OF SCRATCH STACK.

                                     01ED   342 ;	R10 = RESULT PARSE DESCRIPTOR TABLE POINTER.

                                     01ED   343 ;	R11 = BASE ADDRESS OF PROCESS WORK AREA.

                                     01ED   344 ;	FP = BASE ADDRESS OF COMMAND WORK AREA.

                                     01ED   345 ;

                                     01ED   346 ; OUTPUTS:

                                     01ED   347 ;

                                     01ED   348 ;	CONTROL Y'S ARE ENABLED OR DISABLED FOR THIS PROCESS.

                                     01ED   349 ;-

                                     01ED   350  

                                     01ED   351 DCL$SETCTLY::				;SET CONTROL Y MODE

         54 AB       4000 8F     AA  01ED   352 	BICW	#PRC_M_NOCTLY,PRC_W_FLAGS(R11) ;ASSUME CONTROL Y IS SPECIFIED

                                     01F3   353 	GETDVAL				;GET OPTION DESCRIPTOR

            09            53     E9  01F6   354 	BLBC	R3,10$			;IF LBC CONTROL Y ENABLE SPECIFIED

         54 AB       4000 8F     A8  01F9   355 	BISW	#PRC_M_NOCTLY,PRC_W_FLAGS(R11) ;DISABLE CONTROL Y

                          FDFE'  30  01FF   356 	BSBW	W^DCL$ONCTLYRST		;RESET CONTROL Y COMMAND TEXT

                                     0202   357 10$:	STATUS	NORMAL			;SET NORMAL COMPLETION STATUS

                                 05  0205   358 	RSB				;

                                     0206   359  

                                     0206   360 	.END

SET             - SET PARAMETER DCLS COMMAND EXECUTION           22-AUG-1978 01:23:56   VAX-11 MACRO X0.3-11               Page  10

SYMBOL TABLE                                                                                                                     (1)



$$$            = 00000004            CLI$K_STQE_JOB_= 00000002            CLI$_CREQUEJOB = 0003884A            

$$$GBL         = 00000000            CLI$K_STQE_LOWE= 00000006            CLI$_DEFOVF    = 00038028            

$QUALNUM$      = 0000000B            CLI$K_STQE_NAME= 00000007            CLI$_DEVALSPL  = 0003885A            

ACCESS           00000000 R     03   CLI$K_STQE_PRIO= 00000008            CLI$_DEVNOTFOR = 0003887A            

BIT...         = 0000001A            CLI$K_STQE_RELE= 00000009            CLI$_DEVNOTSPL = 00038862            

CLASS            00000004 R     03   CLI$K_STRM_BLOC= 00000001            CLI$_DIRECT    = 00038030            

CLI$K_SET_ACCO = 00000001            CLI$K_STRM_BUFF= 00000002            CLI$_EXPSYN    = 00038038            

CLI$K_SET_CARD = 00000002            CLI$K_STRM_DISK= 00000003            CLI$_FILOPN    = 00038190            

CLI$K_SET_CONT = 00000012            CLI$K_STRM_HASH= 00000006            CLI$_ILLVAL    = 0003883A            

CLI$K_SET_DEFA = 00000004            CLI$K_STRM_INDE= 00000007            CLI$_IMCHNG    = 00038040            

CLI$K_SET_DEVI = 00000003            CLI$K_STRM_MAGT= 00000004            CLI$_IMGFNF    = 00038872            

CLI$K_SET_LOGI = 00000005            CLI$K_STRM_RELA= 00000008            CLI$_INSFPRM   = 00038048            

CLI$K_SET_MAGT = 00000006            CLI$K_STRM_SEQU= 00000009            CLI$_INVKEY    = 00038178            

CLI$K_SET_ON   = 00000007            CLI$K_STRM_SYST= 0000000A            CLI$_INVQUAL   = 0003880A            

CLI$K_SET_PASS = 00000008            CLI$K_STRM_UNIT= 00000005            CLI$_INVQUALNUM= 0003881A            

CLI$K_SET_PRIN = 00000009            CLI$K_STTT_BROA= 00000001            CLI$_INVREQTYP = 00038822            

CLI$K_SET_PROC = 0000000A            CLI$K_STTT_CRFI= 00000002            CLI$_INVRSP    = 00038180            

CLI$K_SET_PROT = 0000000B            CLI$K_STTT_ECHO= 00000003            CLI$_INVUIC    = 000381A8            

CLI$K_SET_QUEU = 0000000C            CLI$K_STTT_EIGH= 00000004            CLI$_IVCHAR    = 00038050            

CLI$K_SET_RMS_ = 00000011            CLI$K_STTT_ESCA= 00000005            CLI$_IVDEVTYPE = 0003886A            

CLI$K_SET_TERM = 0000000D            CLI$K_STTT_HARD= 00000006            CLI$_IVFNAM    = 000381C0            

CLI$K_SET_UIC  = 0000000E            CLI$K_STTT_HOLD= 00000007            CLI$_IVKEYW    = 00038060            

CLI$K_SET_VERI = 0000000F            CLI$K_STTT_HOST= 00000008            CLI$_IVOPER    = 00038068            

CLI$K_SET_WORK = 00000010            CLI$K_STTT_INTE= 00000009            CLI$_IVPROT    = 00038070            

CLI$K_STAC_DISA= 00000001            CLI$K_STTT_LA36= 0000000A            CLI$_IVQLOC    = 00038078            

CLI$K_STAC_ENAB= 00000002            CLI$K_STTT_LFFI= 0000000B            CLI$_IVSYMB    = 00038080            

CLI$K_STAC_NEW_= 00000003            CLI$K_STTT_LOCA= 0000000C            CLI$_IVVALU    = 00038088            

CLI$K_STCR_026 = 00000001            CLI$K_STTT_LOWE= 0000000D            CLI$_IVVERB    = 00038090            

CLI$K_STCR_029 = 00000002            CLI$K_STTT_PAGE= 0000000E            CLI$_MAXPARM   = 00038098            

CLI$K_STDV_ERRO= 00000002            CLI$K_STTT_PARI= 0000001E            CLI$_MULKEY    = 000381A0            

CLI$K_STDV_SPOO= 00000001            CLI$K_STTT_PASS= 0000000F            CLI$_NOATFIL   = 000380A0            

CLI$K_STLG_INTE= 00000001            CLI$K_STTT_PERM= 00000020            CLI$_NOCCAT    = 000380A8            

CLI$K_STLP_CR  = 00000001            CLI$K_STTT_READ= 0000001F            CLI$_NOCOMD    = 000380B0            

CLI$K_STLP_FF  = 00000002            CLI$K_STTT_REMO= 00000010            CLI$_NOKEYW    = 000380B8            

CLI$K_STLP_LA11= 00000005            CLI$K_STTT_SCOP= 00000011            CLI$_NOLIST    = 000380C0            

CLI$K_STLP_LA18= 00000006            CLI$K_STTT_SCRI= 00000012            CLI$_NOOPTPRS  = 00038842            

CLI$K_STLP_LOWE= 00000004            CLI$K_STTT_SPEE= 00000013            CLI$_NOQUAL    = 000380C8            

CLI$K_STLP_LP11= 00000007            CLI$K_STTT_TAB = 00000014            CLI$_NORMAL    = 00030001            

CLI$K_STLP_PAGE= 00000008            CLI$K_STTT_TTSY= 00000015            CLI$_NOTNEG    = 000380D8            

CLI$K_STLP_UNKN= 00000009            CLI$K_STTT_TYPE= 00000016            CLI$_NOVALU    = 000380D0            

CLI$K_STLP_UPPE= 00000003            CLI$K_STTT_UNKN= 00000017            CLI$_NOVALUE   = 0003882A            

CLI$K_STLP_WIDT= 0000000A            CLI$K_STTT_UPPE= 00000018            CLI$_NULFIL    = 000380E0            

CLI$K_STMT_DENS= 00000001            CLI$K_STTT_VT05= 00000019            CLI$_NUMBER    = 000380E8            

CLI$K_STMT_REWI= 00000002            CLI$K_STTT_VT52= 0000001A            CLI$_ONCOMD    = 000380F0            

CLI$K_STMT_UNLO= 00000003            CLI$K_STTT_VT55= 0000001B            CLI$_ONERR     = 000380F8            

CLI$K_STPC_IDEN= 00000001            CLI$K_STTT_WIDT= 0000001C            CLI$_ONEVAL    = 00038158            

CLI$K_STPC_PRIO= 00000002            CLI$K_STTT_WRAP= 0000001D            CLI$_ONLEVL    = 00038100            

CLI$K_STPC_RESO= 00000003            CLI$K_STWR_LIMI= 00000001            CLI$_ONOVF     = 00038108            

CLI$K_STPC_SWAP= 00000004            CLI$K_STWR_QUOT= 00000002            CLI$_OVRFLW    = 00038160            

CLI$K_STPR_DEFA= 00000001            CLI$_ABFNAM    = 000381B8            CLI$_PARMDEL   = 00038110            

CLI$K_STPR_DEVI= 00000003            CLI$_ABKEYW    = 00038000            CLI$_PROC_ID   = 0003FFF1            

CLI$K_STPR_OWNE= 00000004            CLI$_ABVERB    = 00038008            CLI$_QUEJOBCRE = 0003FFF9            

CLI$K_STPR_PROT= 00000002            CLI$_BADRET    = 00038198            CLI$_REQPRMABS = 00038812            

CLI$K_STQE_AFTE= 00000001            CLI$_BADTEXT   = 000381B0            CLI$_RSLOVF    = 00038118            

CLI$K_STQE_ENTR= 00000003            CLI$_BUFOVF    = 00038018            CLI$_SKPDAT    = 00038120            

CLI$K_STQE_FORM= 00000004            CLI$_COMPLX    = 00038020            CLI$_SPARE0    = 00038010            

CLI$K_STQE_HOLD= 00000005            CLI$_CONFQUAL  = 00038802            CLI$_SPARE1    = 00038058            

SET             - SET PARAMETER DCLS COMMAND EXECUTION           22-AUG-1978 01:23:56   VAX-11 MACRO X0.3-11               Page  11

SYMBOL TABLE                                                                                                                     (1)



CLI$_STKOVF    = 00038128            PCB$L_PHD        00000064            PRC_B_EXMDEPMOD  00000091            

CLI$_SUBMITERR = 00038852            PCB$L_PHYPCB     00000018            PRC_B_EXMDEPWID  00000090            

CLI$_SYMDEL    = 00038130            PCB$L_PID        00000060            PRC_K_DEC      = 00000001            

CLI$_SYMOVF    = 00038138            PCB$L_PQB        0000004C            PRC_K_HEX      = 00000000            

CLI$_UNDFIL    = 00038188            PCB$L_SQBL       00000004            PRC_K_LENGTH     000000A0            

CLI$_UNDSYM    = 00038140            PCB$L_SQFL       00000000            PRC_K_OCT      = 00000002            

CLI$_UNPROPARM = 00038170            PCB$L_STS        00000028            PRC_L_CLIWRK0    0000005C            

CLI$_UNPROQUAL = 00038168            PCB$L_UIC        00000020            PRC_L_CLIWRK1    00000060            

CLI$_USGOTO    = 00038148            PCB$L_WSSWP      00000024            PRC_L_CLIWRK2    00000064            

CLI$_VALCNVERR = 00038832            PCB$L_WTIME      0000002C            PRC_L_CLIWRK3    00000068            

CLI$_VALREQ    = 00038150            PCB$T_LNAME      0000006C            PRC_L_CLIWRK4    0000006C            

CMDBUFSIZ      = 000001FC            PCB$V_ASTPEN   = 00000011            PRC_L_ERRRAB     00000010            

CTL$GQ_PROCPRIV  ********   X   03   PCB$V_BATCH    = 0000000E            PRC_L_EXMDEPADR  0000008C            

CVTUIC           00000042 R     03   PCB$V_DELPEN   = 00000001            PRC_L_EXTARG     00000078            

DCL$GETDVAL      ********   X   03   PCB$V_FORCPEN  = 00000002            PRC_L_EXTBLK     00000070            

DCL$ONCTLYRST    ********   X   03   PCB$V_HIBER    = 00000013            PRC_L_EXTCOD     00000080            

DCL$SETCTLY      000001ED RG    03   PCB$V_INQUAN   = 00000003            PRC_L_EXTHND     00000074            

DCL$SETDEFALT    00000069 RG    03   PCB$V_LOGIN    = 00000014            PRC_L_EXTPRM     0000007C            

DCL$SETON        000001CC RG    03   PCB$V_NETWRK   = 00000015            PRC_L_INDEPTH    00000048            

DCL$SETPROT      00000159 RG    03   PCB$V_NOACNT   = 0000000F            PRC_L_INDFAB     0000001C            

DCL$SETUIC       00000011 RG    03   PCB$V_NODELET  = 00000017            PRC_L_INDINPRAB  00000014            

DCL$SETVERIFY    000001B6 RG    03   PCB$V_PHDRES   = 00000012            PRC_L_INDOUTRAB  00000018            

DCL$T_DSKNAM     00000008 RG    03   PCB$V_PSWAPM   = 00000004            PRC_L_INPRAB     00000008            

GBL...         = 00000000            PCB$V_PWRAST   = 00000016            PRC_L_LSTSTATUS  00000094            

INPBUFSIZ      = 00000084            PCB$V_RES      = 00000000            PRC_L_ONCTLY     0000009C            

LOG$B_AMOD       0000000E            PCB$V_RESPEN   = 00000005            PRC_L_ONERROR    00000058            

LOG$B_TABLE      0000000B            PCB$V_SSFEXC   = 00000006            PRC_L_OUTRAB     0000000C            

LOG$B_TYPE       0000000A            PCB$V_SSFEXCE  = 00000007            PRC_L_PROCUIC    00000098            

LOG$C_GROUP    = 00000001            PCB$V_SSFEXCS  = 00000008            PRC_L_SAVAP      00000000            

LOG$C_LENGTH     00000014            PCB$V_SSFEXCU  = 00000009            PRC_L_SAVFP      00000004            

LOG$C_NAMLENGTH= 00000040            PCB$V_SSRWAIT  = 0000000A            PRC_L_SEVERITY   00000040            

LOG$C_PROCESS  = 00000002            PCB$V_SUSPEN   = 0000000B            PRC_L_STACKLM    00000088            

LOG$C_SYSTEM   = 00000000            PCB$V_SWPVBN   = 00000010            PRC_L_STACKPT    00000084            

LOG$K_LENGTH     00000014            PCB$V_WAKEPEN  = 0000000C            PRC_L_STATUS     00000044            

LOG$L_LTBL       00000004            PCB$V_WALL     = 0000000D            PRC_L_SYMBOL     0000004C            

LOG$L_LTFL       00000000            PCB$W_APTCNT     00000034            PRC_M_CNTRLY   = 00000002            

LOG$L_MBXUCB     00000010            PCB$W_ASTCNT     0000003C            PRC_M_DBGQUAL  = 00000200            

LOG$T_NAME       00000014            PCB$W_BIOCNT     0000003E            PRC_M_DBGTRUE  = 00000400            

LOG$W_GROUP      0000000C            PCB$W_BIOLM      00000040            PRC_M_DISABL   = 00000004            

LOG$W_SIZE       00000008            PCB$W_BYTCNT     00000042            PRC_M_EXIT     = 00000008            

MSGBUFSIZ      = 00000084            PCB$W_BYTLM      00000068            PRC_M_GOEOF    = 00000001            

PCB$B_ASTACT     0000000C            PCB$W_DIOCNT     00000044            PRC_M_GOTO     = 00000010            

PCB$B_ASTEN      0000000D            PCB$W_DIOLM      00000046            PRC_M_HANGUP   = 00001000            

PCB$B_PRI        0000000B            PCB$W_FILCNT     00000048            PRC_M_IND      = 00000020            

PCB$B_PRIB       00000033            PCB$W_GPGCNT     00000038            PRC_M_MODE     = 00000040            

PCB$B_TYPE       0000000A            PCB$W_GRP        00000022            PRC_M_NOCTLY   = 00004000            

PCB$B_WEFC       00000032            PCB$W_MEM        00000020            PRC_M_PAUSE    = 00002000            

PCB$C_LENGTH     0000007C            PCB$W_MTXCNT     0000000E            PRC_M_USRDET   = 00000100            

PCB$K_LENGTH     0000007C            PCB$W_PPGCNT     0000003A            PRC_M_VERIFY   = 00000080            

PCB$L_ASTQBL     00000014            PCB$W_PRCCNT     0000006A            PRC_M_YLEVEL   = 00000800            

PCB$L_ASTQFL     00000010            PCB$W_SIZE       00000008            PRC_Q_ALLOCREG   00000020            

PCB$L_EFC2P      00000058            PCB$W_STATE      00000030            PRC_Q_GLOBAL     00000028            

PCB$L_EFC3P      0000005C            PCB$W_TMBU       00000036            PRC_Q_LABEL      00000030            

PCB$L_EFCS       00000050            PCB$W_TQCNT      0000004A            PRC_Q_LOCAL      00000038            

PCB$L_EFCU       00000054            PIO$GT_DDSTRING  ********   X   03   PRC_V_CNTRLY   = 00000001            

PCB$L_EFWM       0000004C            PIO$GW_DFPROT    ********   X   03   PRC_V_DBGQUAL  = 00000009            

PCB$L_OWNER      0000001C            PRC_B_DEFRADIX   00000092            PRC_V_DBGTRUE  = 0000000A            

SET             - SET PARAMETER DCLS COMMAND EXECUTION           22-AUG-1978 01:23:56   VAX-11 MACRO X0.3-11               Page  12

SYMBOL TABLE                                                                                                                     (1)



PRC_V_DISABL   = 00000002            PRV$V_WORLD    = 00000010            QUA_V_MINPARM  = 00000000            

PRC_V_EXIT     = 00000003            PTR_K_BLANK    = 00000001            QUA_V_NEG      = 00000006            

PRC_V_GOEOF    = 00000000            PTR_K_COLON    = 00000002            QUA_V_ONEVAL   = 0000000D            

PRC_V_GOTO     = 00000004            PTR_K_COMDQUAL = 00000000            QUA_V_OUTPUT   = 0000000B            

PRC_V_HANGUP   = 0000000C            PTR_K_COMMA    = 00000005            QUA_V_PARM     = 00000004            

PRC_V_IND      = 00000005            PTR_K_ENDLINE  = 00000004            QUA_V_VAL      = 00000005            

PRC_V_MODE     = 00000006            PTR_K_LPAREN   = 00000007            QUA_V_VALREQ   = 0000000C            

PRC_V_NOCTLY   = 0000000E            PTR_K_PARAMETR = 00000003            QUA_V_VERB     = 00000003            

PRC_V_PAUSE    = 0000000D            PTR_K_PARMQUAL = 00000001            QUA_W_FLAGS      00000003            

PRC_V_USRDET   = 00000008            PTR_K_PLUS     = 00000004            QUA_W_PROMPT     00000009            

PRC_V_VERIFY   = 00000007            PTR_K_QUALVALU = 00000002            QUA_W_QUALIST    00000006            

PRC_V_YLEVEL   = 0000000B            PTR_K_RPAREN   = 00000006            RSLBUFSIZ      = 00000180            

PRC_W_CLIFLAG    00000052            PTR_K_SLASH    = 00000003            SCH$GL_CURPCB    ********   X   03   

PRC_W_ERRIFI     00000052            PTR_L_DESCR      00000000            SETUIC           00000058 R     03   

PRC_W_FLAGS      00000054            PTR_S_FLAGS    = 00000004            SS$_NOPRIV       ********   X   03   

PRC_W_INPCHAN    00000050            PTR_S_OFFSET   = 0000000C            SYS$CMKRNL       ********   X   03   

PRC_W_ONLEVEL    00000056            PTR_S_TERM     = 00000004            SYS$CRELOG       ********   X   03   

PRO_B_FLAGS      00000001            PTR_S_TYPE     = 00000004            SYS$SETDDIR      ********   X   03   

PRO_B_PROMPT     00000000            PTR_S_VALUE    = 00000008            SYS$SETDFPROT    ********   X   03   

PRO_K_LENGTH     00000002            PTR_V_FLAGS    = 00000014            SYS$TRNLOG       ********   X   03   

PRO_M_CONCAT   = 00000001            PTR_V_NEGATE   = 00000000            WRK_AB_BUFFER    FFFFFD38            

PRO_M_IMPCAT   = 00000002            PTR_V_OFFSET   = 00000008            WRK_AG_RESULT    FFFFFBB4            

PRO_M_LIST     = 00000004            PTR_V_TERM     = 00000018            WRK_B_VERBTYP    FFFFFFC0            

PRO_M_OPTION   = 00000008            PTR_V_TYPE     = 0000001C            WRK_K_LENGTH     FFFFFBB4            

PRO_M_REQ      = 00000010            PTR_V_VALUE    = 00000000            WRK_L_CHARPTR    FFFFFFFC            

PRO_M_STRING   = 00000020            QUA_B_DEFVAL     00000002            WRK_L_CMDOUT     FFFFFFBC            

PRO_V_CONCAT   = 00000000            QUA_B_IMAGE      00000005            WRK_L_IMAGE      FFFFFFEC            

PRO_V_IMPCAT   = 00000001            QUA_B_INDEX      00000001            WRK_L_MAXPARM    FFFFFFE4            

PRO_V_LIST     = 00000002            QUA_B_OFFSET     00000000            WRK_L_MINPARM    FFFFFFE8            

PRO_V_OPTION   = 00000003            QUA_B_PARMCNT    00000008            WRK_L_PARMCNT    FFFFFFF0            

PRO_V_REQ      = 00000004            QUA_G_CHNGLST    00000006            WRK_L_PAROUT     FFFFFFF4            

PRO_V_STRING   = 00000005            QUA_M_BATDEF   = 00000100            WRK_L_PROMPT     FFFFFFD0            

PRV$V_ALLSPOOL = 00000004            QUA_M_CHNGLIST = 00000001            WRK_L_PROPTR     FFFFFFDC            

PRV$V_BUGCHK   = 00000017            QUA_M_DEFTRUE  = 00000080            WRK_L_QUABLK     FFFFFFE0            

PRV$V_CMEXEC   = 00000001            QUA_M_FILE     = 00000004            WRK_L_RSLNXT     FFFFFD34            

PRV$V_CMKRNL   = 00000000            QUA_M_IMAGE    = 00000400            WRK_L_SAVAP      FFFFFFC8            

PRV$V_DETACH   = 00000005            QUA_M_INTDEF   = 00000200            WRK_L_SAVFP      FFFFFFCC            

PRV$V_DIAGNOSE = 00000006            QUA_M_KEYVAL   = 00004000            WRK_L_SAVSP      FFFFFFC4            

PRV$V_EXQUOTA  = 00000013            QUA_M_LOCALKEY = 00000002            WRK_M_COMMAND  = 00000002            

PRV$V_GROUP    = 00000008            QUA_M_NEG      = 00000040            WRK_M_IMCHNG   = 00000004            

PRV$V_GRPNAM   = 00000003            QUA_M_ONEVAL   = 00002000            WRK_M_INQUIRE  = 00000100            

PRV$V_LOG_IO   = 00000007            QUA_M_OUTPUT   = 00000800            WRK_M_NOSTAT   = 00000200            

PRV$V_MOUNT    = 00000011            QUA_M_PARM     = 00000010            WRK_M_PROMPT   = 00000008            

PRV$V_NETMBX   = 00000014            QUA_M_VAL      = 00000020            WRK_M_QUAL     = 00000010            

PRV$V_NOACNT   = 00000009            QUA_M_VALREQ   = 00001000            WRK_M_QUOTE    = 00000020            

PRV$V_OPER     = 00000012            QUA_M_VERB     = 00000008            WRK_M_RUNDWN   = 00000001            

PRV$V_PHY_IO   = 00000016            QUA_S_MAXPARM  = 00000004            WRK_M_STAR     = 00000040            

PRV$V_PRMCEB   = 0000000A            QUA_S_MINPARM  = 00000004            WRK_M_TRAILSPC = 00000400            

PRV$V_PRMGBL   = 00000018            QUA_V_BATDEF   = 00000008            WRK_M_VERB     = 00000080            

PRV$V_PRMMBX   = 0000000B            QUA_V_CHNGLIST = 00000000            WRK_Q_IOSB       FFFFFFD4            

PRV$V_PSWAPM   = 0000000C            QUA_V_DEFTRUE  = 00000007            WRK_V_COMMAND  = 00000001            

PRV$V_SETPRI   = 0000000D            QUA_V_FILE     = 00000002            WRK_V_IMCHNG   = 00000002            

PRV$V_SETPRV   = 0000000E            QUA_V_IMAGE    = 0000000A            WRK_V_INQUIRE  = 00000008            

PRV$V_SYSGBL   = 00000019            QUA_V_INTDEF   = 00000009            WRK_V_NOSTAT   = 00000009            

PRV$V_SYSNAM   = 00000002            QUA_V_KEYVAL   = 0000000E            WRK_V_PROMPT   = 00000003            

PRV$V_TMPMBX   = 0000000F            QUA_V_LOCALKEY = 00000001            WRK_V_QUAL     = 00000004            

PRV$V_VOLPRO   = 00000015            QUA_V_MAXPARM  = 00000004            WRK_V_QUOTE    = 00000005            

SET             - SET PARAMETER DCLS COMMAND EXECUTION           22-AUG-1978 01:23:56   VAX-11 MACRO X0.3-11               Page  13

SYMBOL TABLE                                                                                                                     (1)



WRK_V_RUNDWN   = 00000000            

WRK_V_STAR     = 00000006            

WRK_V_TRAILSPC = 0000000A            

WRK_V_VERB     = 00000007            

WRK_W_FLAGS      FFFFFFFA            

WRK_W_IMGCHAN    FFFFFFF8            

_$$_           = 0000005E            





PROGRAM SECTION SYNOPSIS



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

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

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

DCL$ZCODE        00000206      03     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

6964. BYTES LEFT IN FREE MEMORY POOL.

3194. BYTES OF RECLAIMED MEMORY.

EXE$:SET,LIS$:SET/-SP=EXECML$/ML,LIB$:DCL/ML,SRC$:SET

50 MLB DIR RDS - 843 GETS TO DEFINE 29 MACROS. 62 INTER. FILE WRITES. 

