RMS0SETDD       SET DEFAULT DIRECTORY                            21-AUG-1978 22:11:41   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      41  DECLARATIONS

   (1)      63  RMS$SETDDIR  -  SET DEAFAULT DIRECTORY STRING R

RMS0SETDD       SET DEFAULT DIRECTORY                            21-AUG-1978 22:11:41   VAX-11 MACRO X0.3-11               Page   1

007                                                                                                                              (1)



                                     0000     1 

                                     0000     2 

                                     0000     3 	$BEGIN	RMS0SETDD,007,L$RMS0MISC,<SET DEFAULT DIRECTORY>

                                     0000     4 ; COPYRIGHT (C) 1977

                                     0000     5 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754

                                     0000     6 ;

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

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

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

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

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

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

                                     0000    13 ; REMAIN IN DEC.

                                     0000    14 ;

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

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

                                     0000    17 ; CORPORATION.

                                     0000    18 ;

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

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

                                     0000    21 ;

                                     0000    22 ;++

                                     0000    23 ; FACILITY: RMS32

                                     0000    24 ;

                                     0000    25 ; ABSTRACT:

                                     0000    26 ;		THIS ROUTINE SETS THE DEFAULT DIRECTORY STRING IN

                                     0000    27 ;		THE PROCESS I/O CONTROL PAGE.

                                     0000    28 ;

                                     0000    29 ; ENVIRONMENT:

                                     0000    30 ;		STAR PROCESSOR RUNNING STARLET EXEC.

                                     0000    31 ;

                                     0000    32 ; AUTHOR: L F LAVERDURE,	 CREATION DATE: 11-APR-77

                                     0000    33 ;

                                     0000    34 ; MODIFIED BY:

                                     0000    35 ;

                                     0000    36 ;	L F LAVERDURE,   1-FEB-78  15:21

                                     0000    37 ;	W KOENIG,	 12-JUN-78 15:00

                                     0000    38 ; 01	- 

                                     0000    39 ;--

RMS0SETDD       SET DEFAULT DIRECTORY                            21-AUG-1978 22:11:41   VAX-11 MACRO X0.3-11               Page   2

007             DECLARATIONS                                                                                                     (1)



                                     0000    41 	.SBTTL	DECLARATIONS

                                     0000    42 ;

                                     0000    43 ; INCLUDE FILES:

                                     0000    44 ;

                                     0000    45 

                                     0000    46 ;

                                     0000    47 ; MACROS:

                                     0000    48 ;

                                     0000    49 	$FWADEF

                                     0000    50 	$PSLDEF

                                     0000    51 	$RMSDEF

                                     0000    52 	.LIST MEB

                                     0000    53 ;

                                     0000    54 ; EQUATED SYMBOLS:

                                     0000    55 ;

                           0000003C  0000    56 	DIRLEN_SP = FWA$C_MAXDIRLEN + 3 & ^XFC

                                     0000    57 

                                     0000    58 ;

                                     0000    59 ; OWN STORAGE:

                                     0000    60 ;

                                     0000    61 

RMS0SETDD       SET DEFAULT DIRECTORY                            21-AUG-1978 22:11:41   VAX-11 MACRO X0.3-11               Page   3

007             RMS$SETDDIR  -  SET DEAFAULT DIRECTORY STRING R                                                                  (1)



                                     0000    63 	.SBTTL	RMS$SETDDIR  -  SET DEAFAULT DIRECTORY STRING ROUTINE

                                     0000    64 ;++

                                     0000    65 ; FUNCTIONAL DESCRIPTION:

                                     0000    66 ;

                                     0000    67 ;  THIS ROUTINE MOVES THE STRING DESCRIBED BY THE INPUT ARGUMENT TO THE

                                     0000    68 ;  DEFAULT DIRECTORY STRING IN THE PROCESS I/O CONTROL PAGE.

                                     0000    69 ; IF THE CALLER SUPPLIES THE RETURN ADDRESSES, THE CURRENT DEFAULT

                                     0000    70 ; DIRECTORY STRING AND ITS LENGTH ARE RETURNED

                                     0000    71 ; NOTE : USES R0-R5 ONLY AS SAVED IN SYSTEM VECTOR ENTRY MASK 

                                     0000    72 ;

                                     0000    73 ; CALLING SEQUENCE:

                                     0000    74 ;

                                     0000    75 ;	ENTERED FROM EXEC AS A RESULT OF USER'S CALLING SYS$SETDDIR

                                     0000    76 ;

                                     0000    77 ; INPUT PARAMETERS:

                                     0000    78 ;

                                     0000    79 ;	AP	USER'S ARGUMENT LIST ADDR

                                     0000    80 ;		CONTAINS 1 ARGUMENT GIVING THE ADDRESS OF A DESCRIPTOR

                                     0000    81 ;		FOR THE NEW DEFAULT DIRECTORY STRING.

                                     0000    82 ;		OPTIONALLY CONTAINS 2 MORE ARGUMENTS

                                     0000    83 ;		THE NEXT ONE IS THE ADDRESS OF A WORD IN WHICH THE LENGTH

                                     0000    84 ;		OF THE CURRENT DEFAULT DIRECTORY STRING IS RETURNED

                                     0000    85 ;		AND THE LAST ONE IS THE ADDRESS OF A DESCRIPTOR TO RETURN

                                     0000    86 ;		THE CURRENT DEFAULT DIRECTORY STRING.

                                     0000    87 ;

                                     0000    88 ; IMPLICIT INPUTS:

                                     0000    89 ;

                                     0000    90 ;

                                     0000    91 ; OUTPUT PARAMETERS:

                                     0000    92 ;

                                     0000    93 ;	R1	DESTROYED

                                     0000    94 ;	R0	STATUS CODE

                                     0000    95 ;

                                     0000    96 ; IMPLICIT OUTPUTS:

                                     0000    97 ;

                                     0000    98 ;	IF THERE ARE NO ERRORS, PIO$GT_DDSTRING SET TO THE INPUT STRING

                                     0000    99 ;		IF THERE IS ONE

                                     0000   100 ;	IF THERE ARE NO ERRORS, THE CALLER IS RETURNED THE STRING WHICH WAS

                                     0000   101 ;		IN PIO$GT_DDSTRING AND ITS LENGTH, IF THEY WERE ASKED FOR

                                     0000   102 ;

                                     0000   103 ; COMPLETION CODES:

                                     0000   104 ;

                                     0000   105 ;	STANDARD RMS, IN PARTICULAR, SUC, IAL, DIR.

                                     0000   106 ;

                                     0000   107 ; SIDE EFFECTS:

                                     0000   108 ;

                                     0000   109 ;	IF THERE IS A NEW STRING, IT IS LEFT ON THE STACK UNTIL THE RET

                                     0000   110 ;

                                     0000   111 ;--

RMS0SETDD       SET DEFAULT DIRECTORY                            21-AUG-1978 22:11:41   VAX-11 MACRO X0.3-11               Page   4

007             RMS$SETDDIR  -  SET DEAFAULT DIRECTORY STRING R                                                                  (1)



                                     0000   113 ;

                                     0000   114 ; EXIT W/ A BAD DIRECTORY ERROR

                                     0000   115 ;

                                     0000   116 DIR_EXIT:

                                     0000   117 	RMSERR	DIR

            50       84CC 8F     3C  0000       		MOVZWL	#<RMS$_DIR&^XFFFF>,R0

                                     0005   118 BR_EXIT:

                          00E3   31  0005   119 	BRW	EXIT

                                     0008   120 ;

                                     0008   121 ;

                                     0008   122 	$ENTRY	RMS$SETDDIR

                                 00000008       	.PSECT	L$RMS0MISC,GBL,NOWRT

                                     0008   123 	$TSTPT	SETDDIR

                 00000200'9F     D6  0008       		INCL	@#PIO$GL_FMLH+512+TPT$L_SETDDIR

                                     000E   124 ;

                                     000E   125 	RMSERR	IAL			;ANTICIPATE BAD DESCRIPTOR

            50       854C 8F     3C  000E       		MOVZWL	#<RMS$_IAL&^XFFFF>,R0

                                     0013   126 ; PARSE THE CALLER'S NEW STRING

            55         04 AC     D0  0013   127 	MOVL	4(AP),R5		;GET DESCRIPTOR ADDRESS

                          03     12  0017   128 	BNEQ	4$

                          007B   31  0019   129 	BRW	GET_OLD			;IF NO NEW STRING, GO TO GET_OLD

                                     001C   130 4$:

                                     001C   131 	IFNORD	#8,(R5),BR_EXIT		;BRANCH IF NOT READABLE

            08            00     0C  001C       		PROBER	#0,#8,(R5)

                          65         001F       

                          E3     13  0020       		BEQL	BR_EXIT

            52            85     D0  0022   132 	MOVL	(R5)+,R2		;LENGTH

            3C            52     B1  0025   133 	CMPW	R2,#FWA$C_MAXDIRLEN	;TOO LONG?

                          D6     1A  0028   134 	BGTRU	DIR_EXIT

            55            65     D0  002A   135 	MOVL	(R5),R5			;ADDRESS OF STRING

                                     002D   136 	IFNORD	R2,(R5),BR_EXIT		;BRANCH IF NOT READABLE

            52            00     0C  002D       		PROBER	#0,R2,(R5)

                          65         0030       

                          D2     13  0031       		BEQL	BR_EXIT

            54            85     90  0033   137 	MOVB	(R5)+,R4

         5B 8F            54     91  0036   138 	CMPB	R4,#^A/[/		;MAKE SURE PROPER DELIMITERS

                          05     13  003A   139 	BEQL	10$

            3C            54     91  003C   140 	CMPB	R4,#^A/</

                          BF     12  003F   141 	BNEQ	DIR_EXIT

                                     0041   142 10$:					;LEFT DELIMITER IS O.K.

            54            02     C0  0041   143 	ADDL2	#2,R4			;ADD 2 TO R4 TO CHECK RT. DEL. LATER

                          52     D7  0044   144 	DECL	R2

            52            2C     3A  0046   145 	LOCC	#^A/,/,R2,(R5)		;COMMA IN THE SPEC?

                          65         0049       

                          1A     13  004A   146 	BEQL	SECOND			;NOPE, BRANCH

                                     004C   147 ; SPEC IS OF THE FORM [XXX,YYY] OR <XXX,YYY>

            52            55     C0  004C   148 	ADDL2	R5,R2			;R2 POINTS TO LAST CHARACTER IN STRING

                          009E   30  004F   149 	BSBW	CHK_NUM			;CHECK "XXX" PART

            03            51     D1  0052   150 	CMPL	R1,#3			;FIND ANYTHING?

                          A9     13  0055   151 	BEQL	DIR_EXIT		;BRANCH IF NOT

            2C            53     91  0057   152 	CMPB	R3,#^A/,/		;CHECK ","

                          A4     12  005A   153 	BNEQ	DIR_EXIT		;BRANCH IF ANYTHING ELSE

                          0091   30  005C   154 	BSBW	CHK_NUM			;CHECK "YYY" PART

            03            51     91  005F   155 	CMPB	R1,#3			;FIND ANYTHING?

                          9C     13  0062   156 	BEQL	DIR_EXIT		;BRANCH IF NOT

                          18     11  0064   157 	BRB	DELIM			;O.K. UP TO FINAL DELIMITER

                                     0066   158 SECOND:

RMS0SETDD       SET DEFAULT DIRECTORY                            21-AUG-1978 22:11:41   VAX-11 MACRO X0.3-11               Page   5

007             RMS$SETDDIR  -  SET DEAFAULT DIRECTORY STRING R                                                                  (1)



                                     0066   159 	;IF WE GOT HERE, SPEC IS OF THE FORM [AAA.BBB.CCC...]

            50            07     D0  0066   160 	MOVL	#FWA$C_MAXSUBDIR,R0

            52            55     C0  0069   161 	ADDL2	R5,R2			;R2 POINTS TO LAST CHARACTER IN STRING

                          009A   30  006C   162 10$:	BSBW	CHK_ALPHA_NUM		;CHECK THE NAME OUT

            09            51     D1  006F   163 	CMPL	R1,#9			;FIND ANYTHING

                          8C     13  0072   164 	BEQL	DIR_EXIT		;BRANCH IF NOT

            2E            53     91  0074   165 	CMPB	R3,#^A/./		;MORE?

                          05     12  0077   166 	BNEQ	DELIM			;NOPE, CHECK OUT FINAL DELIMITER

            F0            50     F4  0079   167 	SOBGEQ	R0,10$			;MORE ALLOWED?

                          82     11  007C   168 	BRB	DIR_EXIT		;NOPE,TOO MANY SUB DIRECTORIES

            54            53     91  007E   169 DELIM:	CMPB	R3,R4			;MUST MATCH FINAL DELIMITER

                          03     13  0081   170 	BEQL	5$

                          FF7A   31  0083   171 3$:	BRW	DIR_EXIT

            52            55     D1  0086   172 5$:	CMPL	R5,R2			;DOES R5 POINT PAST END OF STRING?

                          F8     12  0089   173 	BNEQ	3$

            51         04 AC     D0  008B   174 	MOVL	4(AP),R1		;GET ADDRESS OF DESCRIPTOR FOR NEW STR

                                     008F   175 ;

                                     008F   176 ; SAVE GOOD NEW STRING UNTIL AFTER WE RETURN THE OLD STRING TO THE CALLER

                                     008F   177 ;

                                     008F   178 ;

            5E            3C     C2  008F   179 	SUBL2	#DIRLEN_SP,SP		;ALLOCATE THE ROOM ON THE STACK

         04 B1            61     28  0092   180 	MOVC3	(R1),@4(R1),(SP)	;MOVE THE STRING ONTO THE STACK

                          6E         0096       

                                     0097   181 ;

                                     0097   182 GET_OLD:

                                     0097   183 	RMSERR	IAL			;ANTICIPATE BAD DESCRIPTOR

            50       854C 8F     3C  0097       		MOVZWL	#<RMS$_IAL&^XFFFF>,R0

                                     009C   184 ; RETURN CURRENT STRING AND LENGTH, IF DESIRED

            54   00000000'9F     9E  009C   185 	MOVAB	@#PIO$GT_DDSTRING,R4	;ADDRESS OF CURRENT STRING

            52            84     9A  00A3   186 	MOVZBL	(R4)+,R2		;ITS A COUNTED STRING

            51         08 AC     D0  00A6   187 	MOVL	8(AP),R1		;GET ADDRESS OF LENGTH

                          09     13  00AA   188 	BEQL	2$			;BRANCH IF THERE ISN'T ONE

                                     00AC   189 	IFNOWRT #2,(R1),EXIT		;CHECK WRITEABILITY

            02            00     0D  00AC       		PROBEW	#0,#2,(R1)

                          61         00AF       

                          39     13  00B0       		BEQL	EXIT

            61            52     B0  00B2   190 	MOVW	R2,(R1)			;GIVE IT TO CALLER

            51         0C AC     D0  00B5   191 2$:	MOVL	12(AP),R1		;ADDRESS OF DESCRIPTOR

                          19     13  00B9   192 	BEQL	3$			;BRANCH IF THERE ISN'T ONE

                                     00BB   193 	IFNORD #8,(R1),EXIT		;BRANCH IF NOT READABLE

            08            00     0C  00BB       		PROBER	#0,#8,(R1)

                          61         00BE       

                          2A     13  00BF       		BEQL	EXIT

            61            52     B1  00C1   194 	CMPW	R2,(R1)			;IS BUFFER LONG ENUFF?

                          25     1A  00C4   195 	BGTRU	EXIT			;BRANCH IF NOT

                                     00C6   196 	IFNOWRT R2,@4(R1),EXIT	;CHECK WRITEABILITY

            52            00     0D  00C6       		PROBEW	#0,R2,@4(R1)

                       04 B1         00C9       

                          1E     13  00CB       		BEQL	EXIT

            64            52     2C  00CD   197 	MOVC5	R2,(R4),#0,(R1),@4(R1)	;GIVE CURRENT STRING TO CALLER

            61            00         00D0       

                       04 B1         00D2       

                                     00D4   198 3$:

                                     00D4   199 ; NOW IF THE CALLER WANTED TO SET A NEW DIRECTORY,DO IT

            51         04 AC     D0  00D4   200 	MOVL	4(AP),R1

                          0E     13  00D8   201 	BEQL	RM$MSCXITSUC		;IF CALLER DIDN'T WANT TO, ALL DONE

            53   00000000'9F     9E  00DA   202 	MOVAB	@#PIO$GT_DDSTRING,R3	;ADDRESS TO STORE STRING

RMS0SETDD       SET DEFAULT DIRECTORY                            21-AUG-1978 22:11:41   VAX-11 MACRO X0.3-11               Page   6

007             RMS$SETDDIR  -  SET DEAFAULT DIRECTORY STRING R                                                                  (1)



            83            61     90  00E1   203 	MOVB	(R1),(R3)+		;SAVE NEW SIZE IN STRING

            6E            61     28  00E4   204 	MOVC3	(R1),(SP),(R3)		;MOVE FROM STACK INTO STRING

                          63         00E7       

                                     00E8   205 ;  ENTRY POINT FROM RMS0SDFP TO EXIT WITH SUCCESS

                                     00E8   206 ;

                                     00E8   207 RM$MSCXITSUC::

                                     00E8   208 	RMSSUC

            50            01     D0  00E8       		MOVL	#1,R0

                                     00EB   209 EXIT:

                                     00EB   210 	SSB	#16,R0			;SET FACILITY CODE INTO STATUS

            50            10     E2  00EB       		BBSS	#16,R0,30000$

                          00         00EE       

                                     00EF       30000$:

                                 04  00EF   211 	RET				;ALL DONE

                                     00F0   212 ;

                                     00F0   213 ;

                                     00F0   214 ; SUBROUTINE TO PASS BY AT MOST 3 OCTAL NUMERIC CHARACTERS

                                     00F0   215 ; INPUTS: R5 -- ADDRESS OF CHARACTER STRING

                                     00F0   216 ;	  R2 -- ADDRESS 1 PAST LAST CHARACTER IN STRING

                                     00F0   217 ; OUTPUTS: R1 -- (3 - NUMBER OF CHARACTERS PASSED BY)

                                     00F0   218 ;	   R3 -- CHARACTER WHICH TERMINATED SEARCH

                                     00F0   219 ;	   R5 -- ADDRESS 1 PAST LAST CHARACTER PROCESSED

                                     00F0   220 ;NOTE: IF THE LAST CHAR IN THE STR IS NUMERIC, R3 WILL CONTAIN IT ON EXIT

                                     00F0   221 ;HOWEVER THIS WILL BE KICKED OUT BY CHECKS IN THE CALLING ROUTINE

                                     00F0   222 CHK_NUM:

            51            03     D0  00F0   223 	MOVL	#3,R1

            52            55     D1  00F3   224 10$:	CMPL	R5,R2

                          10     1E  00F6   225 	BGEQU	20$

            53            85     90  00F8   226 	MOVB	(R5)+,R3

            30            53     91  00FB   227 	CMPB	R3,#^A/0/

                          08     19  00FE   228 	BLSS	20$

            37            53     91  0100   229 	CMPB	R3,#^A/7/

                          03     14  0103   230 	BGTR	20$

            EB            51     F4  0105   231 	SOBGEQ	R1,10$

                                 05  0108   232 20$:	RSB

                                     0109   233 ;

                                     0109   234 ; SUBROUTINE TO PASS BY AT MOST 9 ALPHA-NUMERIC CHARACTERS

                                     0109   235 ; INPUTS: R5 -- ADDRESS OF CHARACTER STRING

                                     0109   236 ;	  R2 -- 1 PAST LAST CHARACTER IN CHARACTER STRING

                                     0109   237 ; OUTPUTS: R1 -- (9 - NUMBER OF CHARACTERS PASSED BY)

                                     0109   238 ;	   R3 -- CHARACTER WHICH TERMINATED SEARCH

                                     0109   239 ;	   R5 -- ADDRESS 1 PAST LAST CHARACTER PROCESSED

                                     0109   240 ;NOTE: IF THE LAST CHAR IN THE STR IS ALPHA-NUMERIC, R3 WILL CONTAIN IT ON EXIT

                                     0109   241 ;HOWEVER THIS WILL BE KICKED OUT BY CHECKS IN THE CALLING ROUTINE

                                     0109   242 CHK_ALPHA_NUM:

            51            09     D0  0109   243 	MOVL	#9,R1

            52            55     D1  010C   244 10$:	CMPL	R5,R2

                          28     1E  010F   245 	BGEQU	20$

            53            85     90  0111   246 	MOVB	(R5)+,R3

            30            53     91  0114   247 	CMPB	R3,#^A/0/

                          20     19  0117   248 	BLSS	20$

            39            53     91  0119   249 	CMPB	R3,#^A/9/

                          18     15  011C   250 	BLEQ	15$

         41 8F            53     91  011E   251 	CMPB	R3,#^A/A/

                          15     19  0122   252 	BLSS	20$

         5A 8F            53     91  0124   253 	CMPB	R3,#^A/Z/

                          0C     15  0128   254 	BLEQ	15$

RMS0SETDD       SET DEFAULT DIRECTORY                            21-AUG-1978 22:11:41   VAX-11 MACRO X0.3-11               Page   7

007             RMS$SETDDIR  -  SET DEAFAULT DIRECTORY STRING R                                                                  (1)



         61 8F            53     91  012A   255 	CMPB	R3,#^A/a/

                          09     19  012E   256 	BLSS	20$

         7A 8F            53     91  0130   257 	CMPB	R3,#^A/z/

                          03     14  0134   258 	BGTR	20$

            D3            51     F4  0136   259 15$:	SOBGEQ	R1,10$

                                 05  0139   260 20$:	RSB

                                     013A   261 .END

RMS0SETDD       SET DEFAULT DIRECTORY                            21-AUG-1978 22:11:41   VAX-11 MACRO X0.3-11               Page   8

SYMBOL TABLE                                                                                                                     (1)



$$.PSECT_EP    = 00000000            FWA$M_EXP_DEV  = 00800000            FWA$V_NAME     = 0000000D            

$$RMSTEST      = 0000001A            FWA$M_EXP_DIR  = 00400000            FWA$V_NAMEFLG  = 00000001            

$$RMS_PBUGCHK  = 00000010            FWA$M_EXP_NAME = 00040000            FWA$V_NAM_DVI  = 00000005            

$$RMS_TBUGCHK  = 00000008            FWA$M_EXP_TYPE = 00020000            FWA$V_NETSTR   = 00000032            

$$RMS_UMODE    = 00000004            FWA$M_EXP_VER  = 00010000            FWA$V_NODE     = 00000019            

BIT...         = 0001C134            FWA$M_FNA_PASS = 00000010            FWA$V_OBJTYPE  = 00000031            

BR_EXIT          00000005 R     02   FWA$M_NAME     = 00002000            FWA$V_QUOTED   = 0000001A            

CHK_ALPHA_NUM    00000109 R     02   FWA$M_NAMEFLG  = 00000002            FWA$V_RLF_PASS = 00000003            

CHK_NUM          000000F0 R     02   FWA$M_NAM_DVI  = 00000020            FWA$V_TYPE     = 0000000C            

DELIM            0000007E R     02   FWA$M_RLF_PASS = 00000008            FWA$V_TYPEFLG  = 00000002            

DIRLEN_SP      = 0000003C            FWA$M_TYPE     = 00001000            FWA$V_VERSION  = 0000000B            

DIR_EXIT         00000000 R     02   FWA$M_TYPEFLG  = 00000004            FWA$V_WC_NAME  = 00000015            

EXIT             000000EB R     02   FWA$M_VERSION  = 00000800            FWA$V_WC_TYPE  = 00000014            

FWA$B_DIRFLGS    00000004            FWA$Q_DEVICE     0000003C            FWA$V_WC_VER   = 00000013            

FWA$B_DIRLEN     00000030            FWA$Q_DIR        00000024            FWA$V_WILDCARD = 00000018            

FWA$B_DIRTERM    00000007            FWA$Q_DIR1       00000044            FWA$V_WILD_DIR = 0000001C            

FWA$B_DIRWCFLGS  00000005            FWA$Q_DIR2       0000004C            FWA$V_WILD_GRP = 00000028            

FWA$B_ESCFLG     00000008            FWA$Q_FIB        0000000C            FWA$V_WILD_MBR = 00000029            

FWA$B_ESCTYP     00000009            FWA$Q_FLAGS      00000000            FWA$V_WILD_SFD1= 00000029            

FWA$B_FLDFLGS    00000001            FWA$Q_LOGNAME    0000001C            FWA$V_WILD_UFD = 00000028            

FWA$B_LNFLG      00000006            FWA$Q_NAME       00000084            FWA$W_ESCIFI     0000000A            

FWA$B_PARSEFLGS  00000003            FWA$Q_NODE       00000034            FWA$W_FNAMSIZ    00000018            

FWA$B_PASSFLGS   00000000            FWA$Q_QUOTED     0000009C            FWA$W_PRO        00000020            

FWA$B_UNDERLINE  00000154            FWA$Q_RNS        0000008C            FWA$W_UCHAR      0000002C            

FWA$B_WILDFLGS   00000002            FWA$Q_STATBLK    00000094            GBL...         = 00000000            

FWA$B_XLTMODE    0000000A            FWA$Q_TYPE       0000008C            GET_OLD          00000097 R     02   

FWA$B_XLTTBL     0000000B            FWA$Q_VERSION    00000094            PIO$GL_FMLH      ********   X   02   

FWA$C_ALL      = 000000F8            FWA$Q_XLTBUF1    0000000C            PIO$GT_DDSTRING  ********   X   02   

FWA$C_DEVBUFSIZ= 0000000F            FWA$Q_XLTBUF2    00000024            PSL$C_EXEC     = 00000001            

FWA$C_DIRBUFSIZ= 00000009            FWA$S_DIR_LVLS = 00000003            PSL$C_KERNEL   = 00000000            

FWA$C_FIBLEN   = 0000002C            FWA$T_ATR_LIST   00000164            PSL$C_SUPER    = 00000002            

FWA$C_MAXDEVICE= 0000000F            FWA$T_DEVICEBUF  00000155            PSL$C_USER     = 00000003            

FWA$C_MAXDIRLEN= 0000003C            FWA$T_DIB        00000174            PSL$M_CM       = 80000000            

FWA$C_MAXNAME  = 00000009            FWA$T_DIR1BUF    000000D0            PSL$M_CURMOD   = 03000000            

FWA$C_MAXNODE  = 00000028            FWA$T_DIR2BUF    000000D9            PSL$M_DV       = 00000080            

FWA$C_MAXQUOTED= 0000007F            FWA$T_FIBBUF     000000A4            PSL$M_FPD      = 08000000            

FWA$C_MAXSUBDIR= 00000007            FWA$T_NAMEBUF    00000118            PSL$M_FU       = 00000040            

FWA$C_MAXTYPE  = 00000003            FWA$T_NODEBUF    0000012C            PSL$M_IPL      = 001F0000            

FWA$C_MAXVER   = 00000006            FWA$T_TYPEBUF    00000122            PSL$M_IS       = 04000000            

FWA$C_NAMBUFSIZ= 0000000A            FWA$T_VERBUF     00000126            PSL$M_IV       = 00000020            

FWA$C_NODBUFSIZ= 00000028            FWA$T_XLTBUFF1   00000164            PSL$M_PRVMOD   = 00C00000            

FWA$C_RNSBUFSIZ= 00000014            FWA$T_XLTBUFF2   000001A4            PSL$M_SAFBITS  = 000037FF            

FWA$C_TYPBUFSIZ= 00000004            FWA$V_CUR_VER  = 00000006            PSL$M_TBIT     = 00000010            

FWA$C_VERBUFSIZ= 00000006            FWA$V_DEVICE   = 0000000F            PSL$M_TP       = 40000000            

FWA$C_XLTBUFSIZ= 0000003F            FWA$V_DIR      = 0000000E            PSL$S_CURMOD   = 00000002            

FWA$L_BUFFLG     00000014            FWA$V_DIR1     = 00000020            PSL$S_IPL      = 00000005            

FWA$L_DEVNODADR  00000020            FWA$V_DIR2     = 00000021            PSL$S_PRVMOD   = 00000002            

FWA$L_ESCSTRING  00000008            FWA$V_DIR_LVLS = 0000001D            PSL$V_CM       = 0000001F            

FWA$L_HBK        00000098            FWA$V_DUPOK    = 00000000            PSL$V_CURMOD   = 00000018            

FWA$L_LOOKUP     0000001C            FWA$V_EXP_DEV  = 00000017            PSL$V_DV       = 00000007            

FWA$L_SBN        00000094            FWA$V_EXP_DIR  = 00000016            PSL$V_FPD      = 0000001B            

FWA$L_UIC        0000001C            FWA$V_EXP_NAME = 00000012            PSL$V_FU       = 00000006            

FWA$L_XLTCNT     0000002C            FWA$V_EXP_TYPE = 00000011            PSL$V_IPL      = 00000010            

FWA$L_XLTSIZ     00000018            FWA$V_EXP_VER  = 00000010            PSL$V_IS       = 0000001A            

FWA$M_DEVICE   = 00008000            FWA$V_FNA_PASS = 00000004            PSL$V_IV       = 00000005            

FWA$M_DIR      = 00004000            FWA$V_GRPMBR   = 0000001B            PSL$V_PRVMOD   = 00000016            

FWA$M_DUPOK    = 00000001            FWA$V_LOGNAME  = 00000030            PSL$V_TBIT     = 00000004            

RMS0SETDD       SET DEFAULT DIRECTORY                            21-AUG-1978 22:11:41   VAX-11 MACRO X0.3-11               Page   9

SYMBOL TABLE                                                                                                                     (1)



PSL$V_TP       = 0000001E            RMS$_ENV       = 00018724            RMS$_OK_RRV    = 00018029            

RM$MSCXITSUC     000000E8 RG    02   RMS$_EOF       = 0001827A            RMS$_ORD       = 00018604            

RMS$SETDDIR    = 00000006 RG    02   RMS$_ESA       = 000184FC            RMS$_ORG       = 0001860C            

RMS$V_STVSTATUS= 0000000E            RMS$_ESL       = 00018714            RMS$_PBF       = 00018614            

RMS$_ABO       = 000183EC            RMS$_ESS       = 00018504            RMS$_PENDING   = 00018009            

RMS$_ACC       = 0001C002            RMS$_EXP       = 000182C2            RMS$_PLG       = 0001861C            

RMS$_ACT       = 0001825A            RMS$_EXT       = 0001C022            RMS$_PLV       = 0001872C            

RMS$_AID       = 000183F4            RMS$_FAB       = 0001850C            RMS$_POS       = 00018624            

RMS$_ALN       = 000183FC            RMS$_FAC       = 00018514            RMS$_PRM       = 0001862C            

RMS$_ALQ       = 00018404            RMS$_FEX       = 00018282            RMS$_PRV       = 0001829A            

RMS$_ANI       = 0001840C            RMS$_FLG       = 0001851C            RMS$_QUO       = 00018634            

RMS$_AOP       = 00018414            RMS$_FLK       = 0001828A            RMS$_RAB       = 0001863C            

RMS$_ATR       = 0001C0CC            RMS$_FNA       = 00018524            RMS$_RAC       = 00018644            

RMS$_ATW       = 0001C0D4            RMS$_FND       = 0001C02A            RMS$_RAT       = 0001864C            

RMS$_BKS       = 0001841C            RMS$_FNF       = 00018292            RMS$_RBF       = 00018654            

RMS$_BKZ       = 00018424            RMS$_FNM       = 0001852C            RMS$_RER       = 0001C0F4            

RMS$_BLN       = 0001842C            RMS$_FOP       = 0001853C            RMS$_REX       = 000182A2            

RMS$_BOF       = 00018198            RMS$_FSZ       = 00018534            RMS$_RFA       = 0001865C            

RMS$_BUG       = 00018434            RMS$_FUL       = 00018544            RMS$_RFM       = 00018664            

RMS$_BUG_DAP   = 00018444            RMS$_IAL       = 0001854C            RMS$_RHB       = 0001866C            

RMS$_BUG_DDI   = 0001843C            RMS$_IAN       = 00018554            RMS$_RLF       = 00018674            

RMS$_BUG_XX2   = 0001844C            RMS$_IBF       = 00018754            RMS$_RLK       = 000182AA            

RMS$_BUG_XX3   = 00018454            RMS$_IDX       = 0001855C            RMS$_RMV       = 0001C0FC            

RMS$_BUG_XX4   = 0001845C            RMS$_IFA       = 0001C124            RMS$_RNF       = 000182B2            

RMS$_BUG_XX5   = 00018464            RMS$_IFI       = 00018564            RMS$_RNL       = 000181A0            

RMS$_BUG_XX6   = 0001846C            RMS$_IMX       = 0001856C            RMS$_ROP       = 0001867C            

RMS$_BUG_XX7   = 00018474            RMS$_IOP       = 00018574            RMS$_RPL       = 0001C104            

RMS$_BUG_XX8   = 0001847C            RMS$_IRC       = 0001857C            RMS$_RRV       = 00018684            

RMS$_BUG_XX9   = 00018484            RMS$_ISI       = 00018584            RMS$_RSA       = 000182DA            

RMS$_CAA       = 0001848C            RMS$_KBF       = 0001858C            RMS$_RSL       = 0001873C            

RMS$_CCF       = 0001C0DC            RMS$_KEY       = 00018594            RMS$_RSS       = 00018694            

RMS$_CCR       = 00018494            RMS$_KFF       = 00018031            RMS$_RST       = 0001869C            

RMS$_CDA       = 0001C0E4            RMS$_KRF       = 0001859C            RMS$_RSZ       = 000186A4            

RMS$_CHG       = 0001849C            RMS$_KSZ       = 000185A4            RMS$_RTB       = 000181A8            

RMS$_CHK       = 000184A4            RMS$_LAN       = 000185AC            RMS$_SEQ       = 000186AC            

RMS$_CHN       = 0001C0EC            RMS$_LBL       = 000185B4            RMS$_SHR       = 000186B4            

RMS$_COD       = 000184AC            RMS$_LNE       = 000185BC            RMS$_SIZ       = 000186BC            

RMS$_CONTROLC  = 00010651            RMS$_LOC       = 000185C4            RMS$_SPL       = 0001C042            

RMS$_CONTROLO  = 00010609            RMS$_MBC       = 00018734            RMS$_SQO       = 000186C4            

RMS$_CONTROLY  = 00010611            RMS$_MKD       = 0001C032            RMS$_STALL     = 00018001            

RMS$_CRE       = 0001C00A            RMS$_MRN       = 000185CC            RMS$_STK       = 000186CC            

RMS$_CREATED   = 00010619            RMS$_MRS       = 000185D4            RMS$_SUC       = 00010001            

RMS$_CUR       = 000184B4            RMS$_NAM       = 000185DC            RMS$_SUP       = 000182D2            

RMS$_DAC       = 0001C012            RMS$_NEF       = 000185E4            RMS$_SUPERSEDE = 00010631            

RMS$_DAN       = 000184BC            RMS$_NET       = 0001874C            RMS$_SYN       = 000186D4            

RMS$_DEL       = 00018262            RMS$_NID       = 000185EC            RMS$_SYS       = 0001C10C            

RMS$_DEV       = 000184C4            RMS$_NMF       = 000182CA            RMS$_TEMP1     = 0001826A            

RMS$_DIR       = 000184CC            RMS$_NOD       = 000185F4            RMS$_TEMP2     = 0001868C            

RMS$_DME       = 000184D4            RMS$_NORMAL    = 00010001            RMS$_TMO       = 000181B0            

RMS$_DNA       = 000184DC            RMS$_NPK       = 000185FC            RMS$_TRE       = 000186DC            

RMS$_DNF       = 0001C04A            RMS$_OK_ALK    = 00018039            RMS$_TYP       = 000186E4            

RMS$_DNR       = 00018272            RMS$_OK_DEL    = 00018041            RMS$_UBF       = 000186EC            

RMS$_DPE       = 0001C03A            RMS$_OK_DUP    = 00018011            RMS$_USZ       = 000186F4            

RMS$_DTP       = 000184E4            RMS$_OK_IDX    = 00018019            RMS$_VER       = 000186FC            

RMS$_DUP       = 000184EC            RMS$_OK_LIM    = 00018051            RMS$_VOL       = 00018704            

RMS$_DVI       = 000184F4            RMS$_OK_RLK    = 00018021            RMS$_WBE       = 0001C12C            

RMS$_ENT       = 0001C01A            RMS$_OK_RNF    = 00018049            RMS$_WER       = 0001C114            

RMS0SETDD       SET DEFAULT DIRECTORY                            21-AUG-1978 22:11:41   VAX-11 MACRO X0.3-11               Page  10

SYMBOL TABLE                                                                                                                     (1)



RMS$_WLD       = 00018744            

RMS$_WLK       = 000182BA            

RMS$_WPL       = 0001C11C            

RMS$_WSF       = 0001871C            

RMS$_XAB       = 0001870C            

SECOND           00000066 R     02   

TPT$L_SETDDIR    ********   X   02   





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  

L$RMS0MISC       0000013A      02     NOPIC   USR   CON   REL   GBL NOSHR   EXE   RD  NOWRT BYTE  

$ABS$            000001E4      03     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

15320. BYTES LEFT IN FREE MEMORY POOL.

2746. BYTES OF RECLAIMED MEMORY.

OBJ$:RMS0SETDD,LIS$:RMS0SETDD/-SP=EXECML$/ML,LIB$:R/ML,SRC$:RMS0SETDD

27 MLB DIR RDS - 647 GETS TO DEFINE 21 MACROS. 44 INTER. FILE WRITES. 

