RM0CRECOM       COMMON CREATE FILE                               21-AUG-1978 21:18:24   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      40  DECLARATIONS

   (1)      89  RM$CREATECOM  -  PERFORM CREATE FILE FUNCTION

RM0CRECOM       COMMON CREATE FILE                               21-AUG-1978 21:18:24   VAX-11 MACRO X0.3-11               Page   1

020                                                                                                                              (1)



                                     0000     1 	$BEGIN	RM0CRECOM,020,F$RMSOPEN0C,<COMMON CREATE FILE>

                                     0000     2 

                                     0000     3 

                                     0000     4 ;

                                     0000     5 ; COPYRIGHT (C) 1977, 1978

                                     0000     6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754

                                     0000     7 ;

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

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

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

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

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

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

                                     0000    14 ; REMAIN IN DEC.

                                     0000    15 ;

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

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

                                     0000    18 ; CORPORATION.

                                     0000    19 ;

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

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

                                     0000    22 ;

                                     0000    23 ;++

                                     0000    24 ; FACILITY: RMS32

                                     0000    25 ;

                                     0000    26 ; ABSTRACT:	THIS MODULE PERFORMS THE CREATE FILE FCP FUNCTION.

                                     0000    27 ;

                                     0000    28 ; ENVIRONMENT:

                                     0000    29 ;		STAR PROCESSOR RUNNING STARLET EXEC.

                                     0000    30 ;

                                     0000    31 ; AUTHOR: L F LAVERDURE,	 CREATION DATE: 11-MAY-77

                                     0000    32 ;

                                     0000    33 ; MODIFIED BY:

                                     0000    34 ;

                                     0000    35 ;	L F LAVERDURE,   17-JUL-78  9:19

                                     0000    36 ;	J A KRYCKA,	 09-AUG-78  17:55

                                     0000    37 ; 01	- 

                                     0000    38 ;--

RM0CRECOM       COMMON CREATE FILE                               21-AUG-1978 21:18:24   VAX-11 MACRO X0.3-11               Page   2

020             DECLARATIONS                                                                                                     (1)



                                     0000    40 	.SBTTL	DECLARATIONS

                                     0000    41 ;

                                     0000    42 ; INCLUDE FILES:

                                     0000    43 ;

                                     0000    44 

                                     0000    45 ;

                                     0000    46 ; MACROS:

                                     0000    47 ;

                                     0000    48 	$FABDEF

                                     0000    49 	$NAMDEF

                                     0000    50 	$FHDDEF

                                     0000    51 	$FIBDEF

                                     0000    52 	$IFBDEF

                                     0000    53 	$ATRDEF

                                     0000    54 	$DEVDEF

                                     0000    55 	$FWADEF

                                     0000    56 	$XABALLDEF

                                     0000    57 	$XABDATDEF

                                     0000    58 	$XABFHCDEF

                                     0000    59 	$XABPRODEF

                                     0000    60 	$XABRDTDEF

                                     0000    61 	.LIST MEB

                                     0000    62 

                                     0000    63 ;

                                     0000    64 ; EQUATED SYMBOLS:

                                     0000    65 ;

                           00000020  0000    66 	FOP=FAB$L_FOP*8		; BIT OFFSET TO FOP

                                     0000    67 

                                     0000    68 ;

                                     0000    69 ; OWN STORAGE:

                                     0000    70 ;

                                     0000    71 ;

                                     0000    72 ;  INITIAL XAB PROCESSING ARGUMENTS

                                     0000    73 ;

                                     0000    74 CRE_XAB_ARGS:

                           00'20 14  0000    75 	.BYTE	XAB$C_ALL,XAB$C_ALLLEN,XBC$C_CREALL1

                           00'24'12' 0003    76 	.BYTE	XAB$C_DAT,XAB$C_DATLEN,XBC$C_OPNDAT

                           00'2C'1D' 0006    77 	.BYTE	XAB$C_FHC,XAB$C_FHCLEN,XBC$C_OPNFHC

                           00'10'13' 0009    78 	.BYTE	XAB$C_PRO,XAB$C_PROLEN,XBC$C_CREPRO

                           00'14'1E' 000C    79 	.BYTE	XAB$C_RDT,XAB$C_RDTLEN,XBC$C_OPNRDT

                                 00  000F    80 	.BYTE	0

                                     0010    81 ;

                                     0010    82 ;  ARGUMENTS FOR "ALL" XAB PROCESSING TO RETURN ALQ FROM ACTUAL ALLOCATED SIZE

                                     0010    83 ;

                                     0010    84 CRE_XAB_ARGS2:

                           00'20'14' 0010    85 	.BYTE	XAB$C_ALL,XAB$C_ALLLEN,XBC$C_CREALL2

                                 00  0013    86 	.BYTE	0

                                     0014    87 

RM0CRECOM       COMMON CREATE FILE                               21-AUG-1978 21:18:24   VAX-11 MACRO X0.3-11               Page   3

020             RM$CREATECOM  -  PERFORM CREATE FILE FUNCTION                                                                    (1)



                                     0014    89 	.SBTTL RM$CREATECOM  -  PERFORM CREATE FILE FUNCTION

                                     0014    90 ;++

                                     0014    91 ; FUNCTIONAL DESCRIPTION:

                                     0014    92 ;

                                     0014    93 ;	THIS ROUTINE SETS UP THE FIB FROM THE

                                     0014    94 ;	VARIOUS USER OPTIONS, DIRECTORY ID AND

                                     0014    95 ;	ALLOCATION INFORMATION, BUILDS THE 

                                     0014    96 ;	ATTRIBUTE LIST TO WRITE THE USER RECORD

                                     0014    97 ;	AND OTHER ATTRIBUTES, BUILDS

                                     0014    98 ;	THE QIO PARAMETER LIST ON THE STACK 

                                     0014    99 ;	ISSUES THE QIO TO THE ACP TO PERFORM

                                     0014   100 ;	THE CREATE (OR ACCESS IF 'CIF' BIT SET),

                                     0014   101 ;	INITIALIZES THE HBK FIELD OF THE IFAB,

                                     0014   102 ;	AND FINALLY CALLS RM$FILLNAM TO RETURN

                                     0014   103 ; 	THE RESULTANT NAME STRING.

                                     0014   104 ;

                                     0014   105 ; CALLING SEQUENCE:

                                     0014   106 ;

                                     0014   107 ;	BSBW	RM$CREATECOM

                                     0014   108 ;

                                     0014   109 ; INPUT PARAMETERS:

                                     0014   110 ;

                                     0014   111 ;	R11	IMPURE AREA ADDR

                                     0014   112 ;	R10	FWA ADDRESS

                                     0014   113 ;	R9	IFAB ADDRESS

                                     0014   114 ;	R8	FAB ADDRESS

                                     0014   115 ;

                                     0014   116 ; IMPLICIT INPUTS:

                                     0014   117 ;

                                     0014   118 ;	THE CONTENTS OF THE PARAMETER BLOCKS LISTED

                                     0014   119 ;	ABOVE, ESPECIALLY:

                                     0014   120 ;

                                     0014   121 ;	IFB$L_PRIM_DEV

                                     0014   122 ;	FWA$Q_DIR

                                     0014   123 ;	FWA$Q_NAME

                                     0014   124 ;	FWA$L_ATRLADR

                                     0014   125 ;	IFB$L_CHNL

                                     0014   126 ;	IFB$B_FAC

                                     0014   127 ;	IFB$L_RFMORG THRU IFB$C_FHAEND

                                     0014   128 ;	FAB$L_FOP

                                     0014   129 ;	FAB$L_ALQ

                                     0014   130 ;	FAB$L_XAB

                                     0014   131 ;	FAB$L_NAM

                                     0014   132 ;

                                     0014   133 ;

                                     0014   134 ; OUTPUT PARAMETERS:

                                     0014   135 ;

                                     0014   136 ;	R0	STATUS CODE

                                     0014   137 ;	R6	FIB ADDR

                                     0014   138 ;	R1-R5,R7,AP DESTROYED

                                     0014   139 ;

                                     0014   140 ; IMPLICIT OUTPUTS:

                                     0014   141 ;

                                     0014   142 ;	IFB$V_ACCESSED SET

                                     0014   143 ;	NAM$L_RSL SET TO LENGTH OF RESULTANT STRING, IF ANY

                                     0014   144 ;	IFB$L_IOS

                                     0014   145 ;	IFB$L_HBK

RM0CRECOM       COMMON CREATE FILE                               21-AUG-1978 21:18:24   VAX-11 MACRO X0.3-11               Page   4

020             RM$CREATECOM  -  PERFORM CREATE FILE FUNCTION                                                                    (1)



                                     0014   146 ;	FAB$L_STV SET TO SYSTEM ERROR CODE ON FAILURE

                                     0014   147 ;

                                     0014   148 ; COMPLETION CODES:

                                     0014   149 ;

                                     0014   150 ;	STANDARD RMS, INCLUDING SUC,RER,WER,

                                     0014   151 ;	FLK,PRV,DNF,FUL, AND CRE.

                                     0014   152 ;

                                     0014   153 ; SIDE EFFECTS:

                                     0014   154 ;

                                     0014   155 ;	MAY HAVE SWITCHED TO RUNNING AT AST LEVEL.

                                     0014   156 ;	ALL USER STRUCTURES EXCEPT FAB AND NAM

                                     0014   157 ;	MUST BE REPROBED.

                                     0014   158 ;--

RM0CRECOM       COMMON CREATE FILE                               21-AUG-1978 21:18:24   VAX-11 MACRO X0.3-11               Page   5

020             RM$CREATECOM  -  PERFORM CREATE FILE FUNCTION                                                                    (1)



                                     0014   160 RM$CREATECOM::

            69            03     E0  0014   161 	BBS	#DEV$V_DIR,IFB$L_PRIM_DEV(R9),10$ 	; BRANCH IF FILES-ORIENTED

                          0A         0017       

            6A            19     E0  0018   162 	BBS	#FWA$V_NODE,(R10),NTCRE			; BRANCH IF NETWORK FUNCTION

                          16         001B       

                                     001C   163 	RMSSUC						; SHOW SUCCESS

            50            01     D0  001C       		MOVL	#1,R0

                          00C4   31  001F   164 	BRW	FILNAM					; FILL IN NAM BLOCK

                                     0022   165 ;

                                     0022   166 ; UNLESS 'TMP' OR 'TMD' SET IN FOP, GET THE DIRECTORY ID

                                     0022   167 ;

         04 A8            18     D3  0022   168 10$:	BITL	#FAB$M_TMP!FAB$M_TMD,FAB$L_FOP(R8)	; TMP OR TMD SET?

                          0D     12  0026   169 	BNEQ	SETTMP					; BRANCH IF YES

                          FFD5'  30  0028   170 	BSBW	RM$SETDID				; GET DIRECTORY ID

            0B            50     E8  002B   171 	BLBS	R0,SETUP				; CONTINUE IF OK

                                 05  002E   172 CREXIT:	RSB						; GET OUT ON ERROR

                                     002F   173 ;

                                     002F   174 ;  HANDLE BAD ALQ VALUE

                                     002F   175 ;

                                     002F   176 ERRALQ:	$PSECT_BR	L$RMS0

                          FFCE'  31  002F       		BRW	L$RMS00

                                     0032       		.SAVE

                                 00000000       		.PSECT	L$RMS0,GBL,NOWRT

                                     0000       L$RMS00:

                                     0000   177 	RMSERR	ALQ

            50       0000'8F     3C  0000       		MOVZWL	#<RMS$_ALQ&^XFFFF>,R0

                                 05  0005   178 	RSB

                                     0006   179 	$PSECT_RESTORE

                                 00000032       		.RESTORE

                                     0032   180 

                                     0032   181 ;++

                                     0032   182 ;

                                     0032   183 ;  PERFORM NETWORK CREATE FUNCTION

                                     0032   184 ;

                                     0032   185 ;--

                                     0032   186 NTCRE:	$PSECT_BR	NF$NETWORK

                          FFCB'  31  0032       		BRW	NF$NETWORK1

                                     0035       		.SAVE

                                 00000000       		.PSECT	NF$NETWORK,GBL,NOWRT

                                     0000       NF$NETWORK1:

                          FFFD'  30  0000   187 	BSBW	NT$ACCESS		; PERFORM NETWORK ACCESS

            10            50     E9  0003   188 	BLBC	R0,20$			; BRANCH ON FAILURE

            69            3F     E0  0006   189 	BBS	#IFB$V_NSP,(R9),10$	; BRANCH IF TASK-TO-TASK

                          06         0009       

                          FFF3'  30  000A   190 	BSBW	NT$CREATE		; CREATE FILE VIA REMOTE FAL

            09            50     E9  000D   191 	BLBC	R0,30$			; BRANCH ON FAILURE

                                     0010   192 10$:	RMSSUC				; SHOW SUCCESS

            50            01     D0  0010       		MOVL	#1,R0

                          00D0'  31  0013   193 	BRW	FILNAM			; FILL IN NAM BLOCK

                          0106'  31  0016   194 20$:	BRW	ERRCREATE		; BRANCH AID

                                 05  0019   195 30$:	RSB				; EXIT

                                     001A   196 	$PSECT_RESTORE

                                 00000035       		.RESTORE

                                     0035   197 

                                     0035   198 ;

                                     0035   199 ;  SET TMP BIT TO FLAG THIS AS A TEMPORARY FILE

                                     0035   200 ;

RM0CRECOM       COMMON CREATE FILE                               21-AUG-1978 21:18:24   VAX-11 MACRO X0.3-11               Page   6

020             RM$CREATECOM  -  PERFORM CREATE FILE FUNCTION                                                                    (1)



                                     0035   201 SETTMP:	SSB	#IFB$V_TMP,(R9)		; FLAG TEMPORARY FILE

            69            35     E2  0035       		BBSS	#IFB$V_TMP,(R9),30000$

                          00         0038       

                                     0039       30000$:

                                     0039   202 ;

                                     0039   203 ; CALL RM$CREACC_SET1 TO DO COMMON FIB AND ATTRIBUTE LIST SET UP

                                     0039   204 ;

                          FFC4'  30  0039   205 SETUP:	BSBW	RM$CREACC_SET1

                       2C AA     B4  003C   206 	CLRW	FWA$W_UCHAR(R10)		; INITIALIZE USER CHARACTERISTICS

                                     003F   207 ;

                                     003F   208 ; R6 NOW POINTS TO FIB

                                     003F   209 ; R5 HAS ADDRESS OF WHERE TO BUILD ATTRIBUTE LIST ENTRIES

                                     003F   210 ;

                                     003F   211 ;!!!!!

                                     003F   212 ; \MUST INCLUDE CODE TO HANDLE MAGTAPE LABEL XABS.\

                                     003F   213 ;!!!!!

                                     003F   214 ;

                                     003F   215 ;  HANDLE XABS

                                     003F   216 ;

            5C         BE AF     9E  003F   217 	MOVAB	CRE_XAB_ARGS,AP				; SET XAB SCAN ARGS ADDR

                          FFBA'  30  0043   218 	BSBW	RM$XAB_SCAN				; PROCESS XABS

            E5            50     E9  0046   219 	BLBC	R0,CREXIT				; GET OUT ON ERROR

            54            00'    E0  0049   220 	BBS	S^#XBC$C_CREPRO,R4,21$			; BRANCH IF PRO XAB SEEN

                          12         004C       

                                     004D   221 ;

                                     004D   222 ;  SET FILE PROTECTION FROM DEFAULT FILE PROTECTION WORD

                                     004D   223 ;

         20 AA   00000000'9F     B0  004D   224 	MOVW	@#PIO$GW_DFPROT,FWA$W_PRO(R10)		; GET DEFAULT

            85            02     B0  0055   225 	MOVW	#2,(R5)+				; 2 BYTES PROT

            85            16     B0  0058   226 	MOVW	#ATR$C_FPRO,(R5)+			; SAY IT'S PROT

            85         20 AA     DE  005B   227 	MOVAL	FWA$W_PRO(R10),(R5)+			; AND GIVE ADDR

                                     005F   228 ;

                                     005F   229 ; IF DISK, PROCESS INITIAL ALLOCATION REQUEST

                                     005F   230 ;

            69            05     E0  005F   231 21$:	BBS	#DEV$V_SQD,IFB$L_PRIM_DEV(R9),30$	; BRANCH IF MAGTAPE

                          36         0062       

         18 A6         10 A8     D0  0063   232 	MOVL	FAB$L_ALQ(R8),FIB$L_EXSZ(R6)		; SET ALLOC SIZE

                          2F     13  0068   233 	BEQL	30$					; BRANCH IF NONE

                          C3     19  006A   234 	BLSS	ERRALQ					; BRANCH IF BAD

            68            31     E1  006C   235 	BBC	#FAB$V_UFO+FOP,(R8),22$			; BRANCH IF NOT UFO

                          06         006F       

         10 A8            01     C1  0070   236 	ADDL3	#1,FAB$L_ALQ(R8),IFB$L_EBK(R9)		; SET EOF BLK FROM ALQ

                       44 A9         0074       

                                     0076   237 22$:	SSB	#FIB$V_EXTEND,FIB$W_EXCTL(R6)		; ENABLE EXTEND

         16 A6            07     E2  0076       		BBSS	#FIB$V_EXTEND,FIB$W_EXCTL(R6),30001$

                          00         007A       

                                     007B       30001$:

            54            00'    E0  007B   238 	BBS	S^#XBC$C_CREALL1,R4,30$			; BRANCH IF ALQ XAB SEEN

                          1A         007E       

            68            35     E1  007F   239 	BBC	#FAB$V_CBT+FOP,(R8),25$			; BRANCH IF CBT BIT OFF

                          09         0082       

         2C AA            20     88  0083   240 	BISB2	#1@FHD$V_CONTIGB,FWA$W_UCHAR(R10)	; GIVE FILE CBT ATTRIBUTE

         16 A6            01     E3  0087   241 	BBCS	#FIB$V_ALCONB,FIB$W_EXCTL(R6),30$	; ASK PRIMITIVE FOR BEST TRY

                          0D         008B       

                                     008C   242 							; AND BRANCH

            68            34     E1  008C   243 25$:	BBC	#FAB$V_CTG+FOP,(R8),30$			; BRANCH IF CONTIG BIT OFF

                          09         008F       

RM0CRECOM       COMMON CREATE FILE                               21-AUG-1978 21:18:24   VAX-11 MACRO X0.3-11               Page   7

020             RM$CREATECOM  -  PERFORM CREATE FILE FUNCTION                                                                    (1)



         16 A6            05     88  0090   244 	BISB2	#FIB$M_ALCON!FIB$M_FILCON,FIB$W_EXCTL(R6) ; ASK ACP FOR CTG EXTEND

         2C AA         80 8F     88  0094   245 	BISB2	#1@FHD$V_CONTIG,FWA$W_UCHAR(R10)	; GIVE FILE CTG ATTRIBUTE

                                     0099   246 30$:

                                     0099   247 ;

                                     0099   248 ;  SWAP WORDS OF EBK TO BE FILES-11 COMPATIBLE AND INSERT ORG INTO RFM/ORG

                                     0099   249 ;  SO THAT IT GETS WRITTEN WITH THE FILE ATTRIBUTES.

                                     0099   250 ;	(NOTE: HBK IS ZERO)

                                     0099   251 ;

         44 A9            10     9C  0099   252 	ROTL	#16,IFB$L_EBK(R9),IFB$L_EBK(R9)

                       44 A9         009D       

            04         23 A9     F0  009F   253 	INSV	IFB$B_ORGCASE(R9),#IFB$V_ORG,#IFB$S_ORG,IFB$B_RFMORG(R9)

         3C A9            04         00A3       

                                     00A6   254 ;

                                     00A6   255 ; PROCESS THE MXV, SUP, AND CIF OPTIONS

                                     00A6   256 ;

                                     00A6   257 ;	FOR MXV & SUP, NEED MERELY COPY TO FIB

                                     00A6   258 ;

                                     00A6   259 	ASSUME	FAB$V_SUP EQ FAB$V_MXV+1

                                     00A6   260 	ASSUME	FIB$V_SUPERSEDE EQ FIB$V_NEWVER+1

            02            21     EF  00A6   261 NAMCTL:	EXTZV	#FAB$V_MXV+FOP,#2,(R8),R0

            50            68         00A9       

            09            50     F0  00AB   262 	INSV	R0,#FIB$V_NEWVER,#2,FIB$W_NMCTL(R6)

         14 A6            02         00AE       

            68            39     E0  00B1   263 	BBS	#FAB$V_CIF+FOP,(R8),DOCIF

                          50         00B4       

                                     00B5   264 ;

                                     00B5   265 ; CALL RM$CREACC_SET3 TO FINISH BUILDING THE QIO PARAMETERS FOR CREATE

                                     00B5   266 ;

                          FF48'  30  00B5   267 	BSBW	RM$CREACC_SET3

RM0CRECOM       COMMON CREATE FILE                               21-AUG-1978 21:18:24   VAX-11 MACRO X0.3-11               Page   8

020             RM$CREATECOM  -  PERFORM CREATE FILE FUNCTION                                                                    (1)



                                     00B8   269 ;

                                     00B8   270 ; SET I/O FUNCTION CODE AND DO THE CREATE

                                     00B8   271 ;

            50         00'8F     9A  00B8   272 	MOVZBL	#IO$_CREATE!IO$M_CREATE!IO$M_ACCESS,R0	; SET QIO FUNCTION CODE

            68            24     E1  00BC   273 	BBC	#FAB$V_TMD+FOP,(R8),10$			; BRANCH UNLESS TMD SET

                          04         00BF       

                                     00C0   274 	SSB	S^#IO$V_DELETE, R0			; MARK FILE FOR DELETE

            50            00'    E2  00C0       		BBSS	S^#IO$V_DELETE,R0,30002$

                          00         00C3       

                                     00C4       30002$:

                          FF39'  30  00C4   275 10$:	BSBW	RM$FCPFNC				; DO THE CREATE

            55            50     E9  00C7   276 	BLBC	R0,ERRCREATE				; BRANCH ON ERROR

         40 A9         18 A6     D0  00CA   277 SETHBK:	MOVL	FIB$L_EXSZ(R6),IFB$L_HBK(R9)		; SET HI BLOCK

                          50     DD  00CF   278 	PUSHL	R0					; SAVE STATUS CODE

            5C       FF3B CF     9E  00D1   279 	MOVAB	CRE_XAB_ARGS2,AP			; SET XAB ARGLIST ADDR

                          FF27'  30  00D6   280 	BSBW	RM$XAB_SCAN				; GO SET ALQ IN XABALL

            26            50     E9  00D9   281 	BLBC	R0,XITPOP				; GET OUT ON ERROR

                          01     BA  00DC   282 	POPR	#^M<R0>					; RESTORE STATUS CODE

                          FF1F'  30  00DE   283 	BSBW	RM$SETEBK				; GO SET EBK, ACCESSED

                                     00E1   284 	ASSUME	IFB$V_RFM EQ 0

                                     00E1   285 	ASSUME	IFB$S_RFM EQ 4

         3C A9         F0 8F     8A  00E1   286 	BICB2	#^XF0,IFB$B_RFMORG(R9)			; LEAVE ONLY RFM IN RFMORG

                          50     DD  00E6   287 FILNAM:	PUSHL	R0					; SAVE SUCCESS CODE

                          FF15'  30  00E8   288 	BSBW	RM$FILLNAM				; RETURN RESULTANT STRING

                                     00EB   289 							; AND OTHER NAM FIELDS

            14            50     E9  00EB   290 	BLBC	R0,XITPOP				; BRANCH ON ERROR

                          57     D5  00EE   291 	TSTL	R7					; IS THERE A NAM BLK?

                          0D     13  00F0   292 	BEQL	10$					; BRANCH IF NONE

                                     00F2   293 ;

                                     00F2   294 ;  SET THE LOWVER AND HIGHVER FLAGS IN THE NAM BLOCK

                                     00F2   295 ;

                                     00F2   296 	ASSUME	FIB$V_HIGHVER EQ FIB$V_LOWVER+1

                                     00F2   297 	ASSUME	NAM$V_HIGHVER EQ NAM$V_LOWVER+1

            02            0E     EF  00F2   298 	EXTZV	#FIB$V_LOWVER,#2,FIB$W_NMCTL+FWA$T_FIBBUF(R10),R1	; GET VERSION BITS

            51       00B8 CA         00F5       

            0E            51     F0  00F9   299 	INSV	R1,#NAM$V_LOWVER,#2,NAM$L_FNB(R7)	; AND SET IN NAM BLK

         34 A7            02         00FC       

                          01     BA  00FF   300 10$:	POPR	#^M<R0>					; RESTORE SUCCESS CODE

                                 05  0101   301 	RSB

                          02     BA  0102   302 XITPOP:	POPR	#^M<R1>					; REMOVE SUCCESS CODE

                                 05  0104   303 EXIT:	RSB						; AND RETURN WITH ERROR

                                     0105   304 ;

                                     0105   305 ; 'CIF' BIT IS SET INDICATING OPEN FILE IF IT EXISTS,

                                     0105   306 ; OTHERWISE CREATE - DO REMAINING SETUP & ACCESS

                                     0105   307 ;

                          FEF8'  30  0105   308 DOCIF:	BSBW	RM$CREACC_SET2				; FINISH PARAM SETUP

            50         00'8F     9A  0108   309 	MOVZBL	#IO$_ACCESS!IO$M_CREATE!IO$M_ACCESS,R0	; SET QIO FUNCTION CODE

                          FEF1'  30  010C   310 	BSBW	RM$FCPFNC				; DO ACCESS/CREATE

            0D            50     E9  010F   311 	BLBC	R0,ERRCREATE				; BRANCH ON ERROR

            00'           50     B1  0112   312 	CMPW	R0,S^#SS$_NORMAL			; WAS FILE CREATED?

                          B3     12  0115   313 	BNEQ	SETHBK					; BRANCH IF YES

                                     0117   314 ;

                                     0117   315 ; 'CIF' AND FILE ALREADY EXISTED - SWITCH TO 'OPEN'

                                     0117   316 ;

            6E       0000'CF     9E  0117   317 	MOVAB	W^RM$OPEN_CIF,(SP)			; CHANGE RETURN PC

                          FEE1'  31  011C   318 	BRW	RM$SETHBK				; & GO FINISH UP OPEN

                                     011F   319 ;

RM0CRECOM       COMMON CREATE FILE                               21-AUG-1978 21:18:24   VAX-11 MACRO X0.3-11               Page   9

020             RM$CREATECOM  -  PERFORM CREATE FILE FUNCTION                                                                    (1)



                                     011F   320 ; PROCESS ERROR ON CREATE

                                     011F   321 ;

                                     011F   322 ERRCREATE:	$PSECT_BR	L$RMS0

                          FEE4'  31  011F       		BRW	L$RMS02

                                     0122       		.SAVE

                                 00000006       		.PSECT	L$RMS0,GBL,NOWRT

                                     0006       L$RMS02:

                                     0006   323 

                                     0006   324 	RMSERR	CRE,R1					; DEFAULT ERROR CODE

            51       0000'8F     3C  0006       		MOVZWL	#<RMS$_CRE&^XFFFF>,R1

                          FFF2'  31  000B   325 	BRW	RM$MAPERR				; GO MAP THE ERROR

                                     000E   326 	$PSECT_RESTORE

                                 00000122       		.RESTORE

                                     0122   327 

                                     0122   328 	.END

RM0CRECOM       COMMON CREATE FILE                               21-AUG-1978 21:18:24   VAX-11 MACRO X0.3-11               Page  10

SYMBOL TABLE                                                                                                                     (1)



$$.PSECT_EP    = 00000003            ATR$W_TYPE       00000002            ERRCREATE        0000011F R     02   

$$RMSTEST      = 0000001A            BIT...         = 00000004            EXIT             00000104 R     02   

$$RMS_PBUGCHK  = 00000010            CREXIT           0000002E R     02   FAB$B_BID        00000000            

$$RMS_TBUGCHK  = 00000008            CRE_XAB_ARGS     00000000 R     02   FAB$B_BKS        0000003E            

$$RMS_UMODE    = 00000004            CRE_XAB_ARGS2    00000010 R     02   FAB$B_BLN        00000001            

ATR$C_ACLEVEL  = 00000018            DEV$M_ALL      = 00800000            FAB$B_DNS        00000035            

ATR$C_ALCONTROL= 0000000E            DEV$M_AVL      = 00040000            FAB$B_FAC        00000016            

ATR$C_ASCDATES = 0000000D            DEV$M_CCL      = 00000002            FAB$B_FNS        00000034            

ATR$C_ASCNAME  = 00000010            DEV$M_DIR      = 00000008            FAB$B_FSZ        0000003F            

ATR$C_BAKDATE  = 00000014            DEV$M_DMT      = 00200000            FAB$B_ORG        0000001D            

ATR$C_BLOCKSIZE= 0000000B            DEV$M_ELG      = 00400000            FAB$B_RAT        0000001E            

ATR$C_CREDATE  = 00000011            DEV$M_FOD      = 00004000            FAB$B_RFM        0000001F            

ATR$C_DIRSEQ   = 0000001B            DEV$M_FOR      = 01000000            FAB$B_RTV        0000001C            

ATR$C_ENDLBLAST= 0000000F            DEV$M_GEN      = 00020000            FAB$B_SHR        00000017            

ATR$C_EXPDAT   = 00000008            DEV$M_IDV      = 04000000            FAB$C_BID      = 00000003            

ATR$C_EXPDATE  = 00000013            DEV$M_MBX      = 00100000            FAB$C_BLN        00000050            

ATR$C_FILNAM   = 00000005            DEV$M_MNT      = 00080000            FAB$C_FIX      = 00000001            

ATR$C_FILTYP   = 00000006            DEV$M_NET      = 00002000            FAB$C_HSH      = 00000030            

ATR$C_FILVER   = 00000007            DEV$M_ODV      = 08000000            FAB$C_IDX      = 00000020            

ATR$C_FPRO     = 00000016            DEV$M_RCK      = 40000000            FAB$C_MAXRFM   = 00000003            

ATR$C_HEADER   = 0000000A            DEV$M_REC      = 00000001            FAB$C_REL      = 00000010            

ATR$C_RECATTR  = 00000004            DEV$M_RND      = 10000000            FAB$C_RFM_DFLT = 00000002            

ATR$C_REVDATE  = 00000012            DEV$M_RTM      = 20000000            FAB$C_SEQ      = 00000000            

ATR$C_RPRO     = 00000017            DEV$M_SDI      = 00000010            FAB$C_UDF      = 00000000            

ATR$C_SEMASK   = 00000019            DEV$M_SHR      = 00010000            FAB$C_VAR      = 00000002            

ATR$C_STATBLK  = 00000009            DEV$M_SPL      = 00000040            FAB$C_VFC      = 00000003            

ATR$C_UCHAR    = 00000003            DEV$M_SQD      = 00000020            FAB$K_BLN        00000050            

ATR$C_UIC      = 00000015            DEV$M_SWL      = 02000000            FAB$L_ALQ        00000010            

ATR$C_UIC_RO   = 0000001A            DEV$M_TRM      = 00000004            FAB$L_CTX        00000018            

ATR$C_USERLABEL= 0000000C            DEV$M_WCK      = 80000000            FAB$L_DEV        00000040            

ATR$L_ADDR       00000004            DEV$V_ALL      = 00000017            FAB$L_DNA        00000030            

ATR$S_ACLEVEL  = 00000002            DEV$V_AVL      = 00000012            FAB$L_FNA        0000002C            

ATR$S_ALCONTROL= 0000000E            DEV$V_CCL      = 00000001            FAB$L_FOP        00000004            

ATR$S_ASCDATES = 00000023            DEV$V_DIR      = 00000003            FAB$L_JNL        00000020            

ATR$S_ASCNAME  = 00000014            DEV$V_DMT      = 00000015            FAB$L_MRN        00000038            

ATR$S_BAKDATE  = 00000008            DEV$V_ELG      = 00000016            FAB$L_NAM        00000028            

ATR$S_BLOCKSIZE= 00000002            DEV$V_FOD      = 0000000E            FAB$L_SDC        00000044            

ATR$S_CREDATE  = 00000008            DEV$V_FOR      = 00000018            FAB$L_STS        00000008            

ATR$S_DIRSEQ   = 00000002            DEV$V_GEN      = 00000011            FAB$L_STV        0000000C            

ATR$S_ENDLBLAST= 00000004            DEV$V_IDV      = 0000001A            FAB$L_XAB        00000024            

ATR$S_EXPDAT   = 00000007            DEV$V_MBX      = 00000014            FAB$M_BIO      = 00000020            

ATR$S_EXPDATE  = 00000008            DEV$V_MNT      = 00000013            FAB$M_BLK      = 00000008            

ATR$S_FILNAM   = 00000006            DEV$V_NET      = 0000000D            FAB$M_BRO      = 00000040            

ATR$S_FILTYP   = 00000002            DEV$V_ODV      = 0000001B            FAB$M_CBT      = 00200000            

ATR$S_FILVER   = 00000002            DEV$V_RCK      = 0000001E            FAB$M_CIF      = 02000000            

ATR$S_FPRO     = 00000002            DEV$V_REC      = 00000000            FAB$M_CR       = 00000002            

ATR$S_HEADER   = 00000200            DEV$V_RND      = 0000001C            FAB$M_CTG      = 00100000            

ATR$S_RECATTR  = 00000020            DEV$V_RTM      = 0000001D            FAB$M_DEL      = 00000004            

ATR$S_REVDATE  = 00000008            DEV$V_SDI      = 00000004            FAB$M_DFW      = 00000020            

ATR$S_RPRO     = 00000002            DEV$V_SHR      = 00000010            FAB$M_DLT      = 00008000            

ATR$S_SEMASK   = 00000008            DEV$V_SPL      = 00000006            FAB$M_DMO      = 00001000            

ATR$S_STATBLK  = 0000000A            DEV$V_SQD      = 00000005            FAB$M_ESC      = 08000000            

ATR$S_UCHAR    = 00000001            DEV$V_SWL      = 00000019            FAB$M_EXE      = 00000080            

ATR$S_UIC      = 00000004            DEV$V_TRM      = 00000002            FAB$M_FTN      = 00000001            

ATR$S_UIC_RO   = 00000004            DEV$V_WCK      = 0000001F            FAB$M_GET      = 00000002            

ATR$S_USERLABEL= 00000050            DOCIF            00000105 R     02   FAB$M_INP      = 00080000            

ATR$W_SIZE       00000000            ERRALQ           0000002F R     02   FAB$M_JNL      = 00400000            

RM0CRECOM       COMMON CREATE FILE                               21-AUG-1978 21:18:24   VAX-11 MACRO X0.3-11               Page  11

SYMBOL TABLE                                                                                                                     (1)



FAB$M_KFO      = 40000000            FAB$V_NEF      = 0000000A            FHD$V_WORLDPRO = 0000000C            

FAB$M_MSE      = 00000010            FAB$V_NFS      = 00000010            FHD$V_WRITCHECK= 00000004            

FAB$M_MXV      = 00000002            FAB$V_NIL      = 00000005            FHD$W_CHECKSUM   000001FE            

FAB$M_NAM      = 01000000            FAB$V_OFP      = 0000001D            FHD$W_FID        00000002            

FAB$M_NEF      = 00000400            FAB$V_ORG      = 00000004            FHD$W_FID_NUM    00000002            

FAB$M_NFS      = 00010000            FAB$V_POS      = 00000008            FHD$W_FID_SEQ    00000004            

FAB$M_NIL      = 00000020            FAB$V_PPF      = 00000012            FHD$W_FILECHAR   0000000C            

FAB$M_OFP      = 20000000            FAB$V_PPF_IND  = 0000000E            FHD$W_FILEOWNER  00000008            

FAB$M_POS      = 00000100            FAB$V_PPF_RAT  = 00000006            FHD$W_FILEPROT   0000000A            

FAB$M_PPF      = 00040000            FAB$V_PRN      = 00000002            FHD$W_RECATTR    0000000E            

FAB$M_PPF_IND  = 00004000            FAB$V_PUT      = 00000000            FHD$W_STRUCLEV   00000006            

FAB$M_PPF_RAT  = 00003FC0            FAB$V_RCK      = 00000017            FIB$B_ALALIGN    00000021            

FAB$M_PRN      = 00000004            FAB$V_RWC      = 0000000B            FIB$B_ALOPTS     00000020            

FAB$M_PUT      = 00000001            FAB$V_RWO      = 00000007            FIB$B_DID_NMX    0000000F            

FAB$M_RCK      = 00800000            FAB$V_SCF      = 0000000E            FIB$B_DID_RVN    0000000E            

FAB$M_RWC      = 00000800            FAB$V_SHRDEL   = 00000002            FIB$B_FID_NMX    00000009            

FAB$M_RWO      = 00000080            FAB$V_SHRGET   = 00000001            FIB$B_FID_RVN    00000008            

FAB$M_SCF      = 00004000            FAB$V_SHRPUT   = 00000000            FIB$B_LOC_NMX    00000027            

FAB$M_SHRDEL   = 00000004            FAB$V_SHRUPD   = 00000003            FIB$B_LOC_RVN    00000026            

FAB$M_SHRGET   = 00000002            FAB$V_SPL      = 0000000D            FIB$B_WSIZE      00000003            

FAB$M_SHRPUT   = 00000001            FAB$V_SQO      = 00000006            FIB$C_ACCDATA    0000000A            

FAB$M_SHRUPD   = 00000008            FAB$V_SUP      = 00000002            FIB$C_ALCDATA    0000002C            

FAB$M_SPL      = 00002000            FAB$V_TEF      = 0000001C            FIB$C_CYL      = 00000001            

FAB$M_SQO      = 00000040            FAB$V_TMD      = 00000004            FIB$C_DIRDATA    00000016            

FAB$M_SUP      = 00000004            FAB$V_TMP      = 00000003            FIB$C_EXTDATA    00000020            

FAB$M_TEF      = 10000000            FAB$V_TRN      = 00000004            FIB$C_ILLEGAL  = 00000005            

FAB$M_TMD      = 00000010            FAB$V_UFM      = 0000001A            FIB$C_LBN      = 00000002            

FAB$M_TMP      = 00000008            FAB$V_UFO      = 00000011            FIB$C_LENGTH     0000002C            

FAB$M_TRN      = 00000010            FAB$V_UPD      = 00000003            FIB$C_MTALEN     0000001C            

FAB$M_UFM      = 04000000            FAB$V_UPI      = 00000006            FIB$C_NEXTVOL  = 00000003            

FAB$M_UFO      = 00020000            FAB$V_WCK      = 00000009            FIB$C_POSEND   = 00000002            

FAB$M_UPD      = 00000008            FAB$W_BLS        0000003C            FIB$C_REWINDFIL= 00000006            

FAB$M_UPI      = 00000040            FAB$W_DEQ        00000014            FIB$C_REWINDVOL= 00000001            

FAB$M_WCK      = 00000200            FAB$W_IFI        00000002            FIB$C_RFI      = 00000004            

FAB$S_ORG      = 00000004            FAB$W_MRS        00000036            FIB$C_SPACE    = 00000004            

FAB$S_PPF_RAT  = 00000008            FHD$B_IDOFFSET   00000000            FIB$C_VBN      = 00000003            

FAB$V_BIO      = 00000005            FHD$B_MPOFFSET   00000001            FIB$K_ACCDATA    0000000A            

FAB$V_BLK      = 00000003            FHD$B_SYSCHAR    0000000D            FIB$K_ALCDATA    0000002C            

FAB$V_BRO      = 00000006            FHD$B_UICGROUP   00000009            FIB$K_DIRDATA    00000016            

FAB$V_CBT      = 00000015            FHD$B_UICMEMBER  00000008            FIB$K_EXTDATA    00000020            

FAB$V_CIF      = 00000019            FHD$B_USERCHAR   0000000C            FIB$K_LENGTH     0000002C            

FAB$V_CR       = 00000001            FHD$C_LENGTH     0000002E            FIB$K_MTALEN     0000001C            

FAB$V_CTG      = 00000014            FHD$C_LEVEL1   = 00000101            FIB$L_ACCTL      00000000            

FAB$V_DEL      = 00000002            FHD$K_LENGTH     0000002E            FIB$L_CNTRLVAL   00000018            

FAB$V_DFW      = 00000005            FHD$S_GROUPPRO = 00000004            FIB$L_EXSZ       00000018            

FAB$V_DLT      = 0000000F            FHD$S_OWNPRO   = 00000004            FIB$L_EXVBN      0000001C            

FAB$V_DMO      = 0000000C            FHD$S_SYSPRO   = 00000004            FIB$L_LOC_ADDR   00000028            

FAB$V_ESC      = 0000001B            FHD$S_WORLDPRO = 00000004            FIB$L_WCC        00000010            

FAB$V_EXE      = 00000007            FHD$V_BADBLOCK = 00000006            FIB$M_ALCON    = 00000001            

FAB$V_FTN      = 00000000            FHD$V_CONTIG   = 00000007            FIB$M_ALCONB   = 00000002            

FAB$V_GET      = 00000001            FHD$V_CONTIGB  = 00000005            FIB$M_ALDEF    = 00000008            

FAB$V_INP      = 00000013            FHD$V_GROUPPRO = 00000008            FIB$M_ALLNAM   = 00000020            

FAB$V_JNL      = 00000016            FHD$V_LOCKED   = 00000006            FIB$M_ALLTYP   = 00000010            

FAB$V_KFO      = 0000001E            FHD$V_MARKDEL  = 00000007            FIB$M_ALLVER   = 00000008            

FAB$V_MSE      = 00000004            FHD$V_OWNPRO   = 00000004            FIB$M_CURPOS   = 00000010            

FAB$V_MXV      = 00000001            FHD$V_READCHECK= 00000003            FIB$M_DLOCK    = 00000002            

FAB$V_NAM      = 00000018            FHD$V_SYSPRO   = 00000000            FIB$M_EXACT    = 00000001            

RM0CRECOM       COMMON CREATE FILE                               21-AUG-1978 21:18:24   VAX-11 MACRO X0.3-11               Page  12

SYMBOL TABLE                                                                                                                     (1)



FIB$M_EXECUTE  = 00010000            FIB$W_ALLOC      00000022            FWA$L_XLTCNT     0000002C            

FIB$M_EXTEND   = 00000080            FIB$W_CNTRLFUNC  00000016            FWA$L_XLTSIZ     00000018            

FIB$M_FILCON   = 00000004            FIB$W_DID        0000000A            FWA$M_DEVICE   = 00008000            

FIB$M_FINDFID  = 00000800            FIB$W_DID_NUM    0000000A            FWA$M_DIR      = 00004000            

FIB$M_HIGHVER  = 00008000            FIB$W_DID_RVN    0000000E            FWA$M_DUPOK    = 00000001            

FIB$M_LOWVER   = 00004000            FIB$W_DID_SEQ    0000000C            FWA$M_EXP_DEV  = 00800000            

FIB$M_MARKBAD  = 00000400            FIB$W_EXCTL      00000016            FWA$M_EXP_DIR  = 00400000            

FIB$M_NEWVER   = 00000200            FIB$W_FID        00000004            FWA$M_EXP_NAME = 00040000            

FIB$M_NOHDREXT = 00000200            FIB$W_FID_NUM    00000004            FWA$M_EXP_TYPE = 00020000            

FIB$M_NOREAD   = 00000400            FIB$W_FID_RVN    00000008            FWA$M_EXP_VER  = 00010000            

FIB$M_NOTRUNC  = 00000800            FIB$W_FID_SEQ    00000006            FWA$M_FNA_PASS = 00000010            

FIB$M_NOWRITE  = 00000001            FIB$W_LOC_FID    00000022            FWA$M_NAME     = 00002000            

FIB$M_ONCYL    = 00000002            FIB$W_LOC_NUM    00000022            FWA$M_NAMEFLG  = 00000002            

FIB$M_PRSRV_ATR= 00020000            FIB$W_LOC_RVN    00000026            FWA$M_NAM_DVI  = 00000020            

FIB$M_READCK   = 00000200            FIB$W_LOC_SEQ    00000024            FWA$M_RLF_PASS = 00000008            

FIB$M_REWIND   = 00000008            FIB$W_NMCTL      00000014            FWA$M_TYPE     = 00001000            

FIB$M_SEQONLY  = 00000040            FILNAM           000000E6 R     02   FWA$M_TYPEFLG  = 00000004            

FIB$M_SPOOL    = 00000010            FOP            = 00000020            FWA$M_VERSION  = 00000800            

FIB$M_SUPERSEDE= 00000400            FWA$B_DIRFLGS    00000004            FWA$Q_DEVICE     0000003C            

FIB$M_TRUNC    = 00000100            FWA$B_DIRLEN     00000030            FWA$Q_DIR        00000024            

FIB$M_UPDATE   = 00000040            FWA$B_DIRTERM    00000007            FWA$Q_DIR1       00000044            

FIB$M_WILD     = 00000100            FWA$B_DIRWCFLGS  00000005            FWA$Q_DIR2       0000004C            

FIB$M_WRITE    = 00000100            FWA$B_ESCFLG     00000008            FWA$Q_FIB        0000000C            

FIB$M_WRITECK  = 00000020            FWA$B_ESCTYP     00000009            FWA$Q_FLAGS      00000000            

FIB$V_ALCON    = 00000000            FWA$B_FLDFLGS    00000001            FWA$Q_LOGNAME    0000001C            

FIB$V_ALCONB   = 00000001            FWA$B_LNFLG      00000006            FWA$Q_NAME       00000084            

FIB$V_ALDEF    = 00000003            FWA$B_PARSEFLGS  00000003            FWA$Q_NODE       00000034            

FIB$V_ALLNAM   = 00000005            FWA$B_PASSFLGS   00000000            FWA$Q_QUOTED     0000009C            

FIB$V_ALLTYP   = 00000004            FWA$B_UNDERLINE  00000154            FWA$Q_RNS        0000008C            

FIB$V_ALLVER   = 00000003            FWA$B_WILDFLGS   00000002            FWA$Q_STATBLK    00000094            

FIB$V_CURPOS   = 00000004            FWA$B_XLTMODE    0000000A            FWA$Q_TYPE       0000008C            

FIB$V_DLOCK    = 00000001            FWA$B_XLTTBL     0000000B            FWA$Q_VERSION    00000094            

FIB$V_EXACT    = 00000000            FWA$C_ALL      = 000000F8            FWA$Q_XLTBUF1    0000000C            

FIB$V_EXECUTE  = 00000010            FWA$C_DEVBUFSIZ= 0000000F            FWA$Q_XLTBUF2    00000024            

FIB$V_EXTEND   = 00000007            FWA$C_DIRBUFSIZ= 00000009            FWA$S_DIR_LVLS = 00000003            

FIB$V_FILCON   = 00000002            FWA$C_FIBLEN   = 0000002C            FWA$T_ATR_LIST   00000164            

FIB$V_FINDFID  = 0000000B            FWA$C_MAXDEVICE= 0000000F            FWA$T_DEVICEBUF  00000155            

FIB$V_HIGHVER  = 0000000F            FWA$C_MAXDIRLEN= 0000003C            FWA$T_DIB        00000174            

FIB$V_LOWVER   = 0000000E            FWA$C_MAXNAME  = 00000009            FWA$T_DIR1BUF    000000D0            

FIB$V_MARKBAD  = 0000000A            FWA$C_MAXNODE  = 00000028            FWA$T_DIR2BUF    000000D9            

FIB$V_NEWVER   = 00000009            FWA$C_MAXQUOTED= 0000007F            FWA$T_FIBBUF     000000A4            

FIB$V_NOHDREXT = 00000009            FWA$C_MAXSUBDIR= 00000007            FWA$T_NAMEBUF    00000118            

FIB$V_NOREAD   = 0000000A            FWA$C_MAXTYPE  = 00000003            FWA$T_NODEBUF    0000012C            

FIB$V_NOTRUNC  = 0000000B            FWA$C_MAXVER   = 00000006            FWA$T_TYPEBUF    00000122            

FIB$V_NOWRITE  = 00000000            FWA$C_NAMBUFSIZ= 0000000A            FWA$T_VERBUF     00000126            

FIB$V_ONCYL    = 00000001            FWA$C_NODBUFSIZ= 00000028            FWA$T_XLTBUFF1   00000164            

FIB$V_PRSRV_ATR= 00000011            FWA$C_RNSBUFSIZ= 00000014            FWA$T_XLTBUFF2   000001A4            

FIB$V_READCK   = 00000009            FWA$C_TYPBUFSIZ= 00000004            FWA$V_CUR_VER  = 00000006            

FIB$V_REWIND   = 00000003            FWA$C_VERBUFSIZ= 00000006            FWA$V_DEVICE   = 0000000F            

FIB$V_SEQONLY  = 00000006            FWA$C_XLTBUFSIZ= 0000003F            FWA$V_DIR      = 0000000E            

FIB$V_SPOOL    = 00000004            FWA$L_BUFFLG     00000014            FWA$V_DIR1     = 00000020            

FIB$V_SUPERSEDE= 0000000A            FWA$L_DEVNODADR  00000020            FWA$V_DIR2     = 00000021            

FIB$V_TRUNC    = 00000008            FWA$L_ESCSTRING  00000008            FWA$V_DIR_LVLS = 0000001D            

FIB$V_UPDATE   = 00000006            FWA$L_HBK        00000098            FWA$V_DUPOK    = 00000000            

FIB$V_WILD     = 00000008            FWA$L_LOOKUP     0000001C            FWA$V_EXP_DEV  = 00000017            

FIB$V_WRITE    = 00000008            FWA$L_SBN        00000094            FWA$V_EXP_DIR  = 00000016            

FIB$V_WRITECK  = 00000005            FWA$L_UIC        0000001C            FWA$V_EXP_NAME = 00000012            

RM0CRECOM       COMMON CREATE FILE                               21-AUG-1978 21:18:24   VAX-11 MACRO X0.3-11               Page  13

SYMBOL TABLE                                                                                                                     (1)



FWA$V_EXP_TYPE = 00000011            IFB$K_BLN        00000060            IFB$V_NORECLK  = 00000033            

FWA$V_EXP_VER  = 00000010            IFB$K_BLN_IDX    00000060            IFB$V_NSP      = 0000003F            

FWA$V_FNA_PASS = 00000004            IFB$K_BLN_REL    00000060            IFB$V_NWA      = 0000003C            

FWA$V_GRPMBR   = 0000001B            IFB$K_BLN_SEQ    0000005C            IFB$V_ORG      = 00000004            

FWA$V_LOGNAME  = 00000030            IFB$K_FHAEND     00000050            IFB$V_PPF_IMAGE= 00000022            

FWA$V_NAME     = 0000000D            IFB$L_ARGLST     00000018            IFB$V_PPF_INPUT= 0000002E            

FWA$V_NAMEFLG  = 00000001            IFB$L_ASBADDR    00000014            IFB$V_PUT      = 00000000            

FWA$V_NAM_DVI  = 00000005            IFB$L_AS_DEV     00000054            IFB$V_RFM      = 00000000            

FWA$V_NETSTR   = 00000032            IFB$L_BDB_BLNK   00000034            IFB$V_RWC      = 00000027            

FWA$V_NODE     = 00000019            IFB$L_BDB_FLNK   00000030            IFB$V_RW_ATTR  = 00000034            

FWA$V_OBJTYPE  = 00000031            IFB$L_BKPBITS    00000004            IFB$V_SCF      = 0000002A            

FWA$V_QUOTED   = 0000001A            IFB$L_BWB        0000000C            IFB$V_SPL      = 00000029            

FWA$V_RLF_PASS = 00000003            IFB$L_DVBN       00000058            IFB$V_SQO      = 0000002D            

FWA$V_TYPE     = 0000000C            IFB$L_EBK        00000044            IFB$V_TEF      = 00000036            

FWA$V_TYPEFLG  = 00000002            IFB$L_FRB_PTR    00000028            IFB$V_TMP      = 00000035            

FWA$V_VERSION  = 0000000B            IFB$L_FWA_BDB    00000050            IFB$V_TRN      = 00000004            

FWA$V_WC_NAME  = 00000015            IFB$L_HBK        00000040            IFB$V_UPD      = 00000003            

FWA$V_WC_TYPE  = 00000014            IFB$L_IDX_PTR    00000054            IFB$V_WRTACC   = 00000030            

FWA$V_WC_VER   = 00000013            IFB$L_IOS        0000000C            IFB$W_ASDEVBSIZ  0000005A            

FWA$V_WILDCARD = 00000018            IFB$L_IOS4       00000010            IFB$W_BKS_BYTES  0000005C            

FWA$V_WILD_DIR = 0000001C            IFB$L_IRAB_LNK   0000001C            IFB$W_BKS_RECS   0000005E            

FWA$V_WILD_GRP = 00000028            IFB$L_LAST_FAB   00000024            IFB$W_CHNL       00000020            

FWA$V_WILD_MBR = 00000029            IFB$L_LOCK_BDB   00000050            IFB$W_DEQ        0000004E            

FWA$V_WILD_SFD1= 00000029            IFB$L_MRN        00000054            IFB$W_DEVBUFSIZ  00000038            

FWA$V_WILD_UFD = 00000028            IFB$L_NRP_LNK    00000050            IFB$W_EBK0       00000044            

FWA$W_ESCIFI     0000000A            IFB$L_NWA_PTR    00000028            IFB$W_EBK2       00000046            

FWA$W_FNAMSIZ    00000018            IFB$L_PRIM_DEV   00000000            IFB$W_FFB        00000048            

FWA$W_PRO        00000020            IFB$L_RLB_LNK    0000002C            IFB$W_IOS2       0000000E            

FWA$W_UCHAR      0000002C            IFB$L_RNS_LEN    00000050            IFB$W_LRL        0000003E            

GBL...         = 00000000            IFB$M_BIO      = 00000020            IFB$W_MRS        0000004C            

IFB$B_AMAX       00000059            IFB$M_BRO      = 00000040            IFB$W_RTDEQ      0000003A            

IFB$B_AVBN       00000058            IFB$M_DEL      = 00000004            IO$M_ACCESS      ********   X   02   

IFB$B_BID        00000008            IFB$M_EXE      = 00000080            IO$M_CREATE      ********   X   02   

IFB$B_BKS        0000004A            IFB$M_GET      = 00000002            IO$V_DELETE      ********   X   02   

IFB$B_BLN        00000009            IFB$M_PUT      = 00000001            IO$_ACCESS       ********   X   02   

IFB$B_EFN        0000000B            IFB$M_TRN      = 00000010            IO$_CREATE       ********   X   02   

IFB$B_EXTRABUF   0000005D            IFB$M_UPD      = 00000008            L$RMS00          00000000 R     04   

IFB$B_FAC        00000022            IFB$S_ORG      = 00000004            L$RMS02          00000006 R     04   

IFB$B_FSZ        0000004B            IFB$S_RFM      = 00000004            NAM$B_BID        00000000            

IFB$B_KBUFSZ     0000005C            IFB$V_ACCESSED = 00000025            NAM$B_BLN        00000001            

IFB$B_MODE       0000000A            IFB$V_ANSI_D   = 00000026            NAM$B_CURLVL     00000038            

IFB$B_NUM_KEYS   0000005A            IFB$V_ASYNC    = 00000023            NAM$B_ESL        0000000B            

IFB$B_ORGCASE    00000023            IFB$V_ASYNCWAIT= 00000024            NAM$B_ESS        0000000A            

IFB$B_RAT        0000003D            IFB$V_BIO      = 00000005            NAM$B_RSL        00000003            

IFB$B_RFMORG     0000003C            IFB$V_BRO      = 00000006            NAM$B_RSS        00000002            

IFB$B_UBUFSZ     0000005B            IFB$V_BUSY     = 00000020            NAM$C_BID      = 00000002            

IFB$C_BID      = 0000000B            IFB$V_CREATE   = 00000032            NAM$C_BLN        00000038            

IFB$C_BLN        00000060            IFB$V_DAP      = 0000003E            NAM$C_BLN_DIRWC  00000050            

IFB$C_BLN_IDX    00000060            IFB$V_DAP_OPEN = 0000003D            NAM$C_DVI      = 00000010            

IFB$C_BLN_REL    00000060            IFB$V_DEL      = 00000002            NAM$C_MAXRSS   = 00000080            

IFB$C_BLN_SEQ    0000005C            IFB$V_DFW      = 0000002C            NAM$C_MAXRSSLCL= 00000060            

IFB$C_DIR      = 00000003            IFB$V_DLT      = 0000002B            NAM$K_BLN        00000038            

IFB$C_FHAEND     00000050            IFB$V_DMO      = 00000028            NAM$K_BLN_DIRWC  00000050            

IFB$C_IDX      = 00000002            IFB$V_EOF      = 00000021            NAM$L_DIRWCC1    00000040            

IFB$C_MAXORG   = 00000002            IFB$V_EXE      = 00000007            NAM$L_DIRWCC2    00000044            

IFB$C_REL      = 00000001            IFB$V_GET      = 00000001            NAM$L_DIRWCC3    00000048            

IFB$C_SEQ      = 00000000            IFB$V_MSE      = 00000031            NAM$L_DIRWCC4    0000004C            

RM0CRECOM       COMMON CREATE FILE                               21-AUG-1978 21:18:24   VAX-11 MACRO X0.3-11               Page  14

SYMBOL TABLE                                                                                                                     (1)



NAM$L_DWC        00000038            NAM$V_WILD_SFD6= 0000001E            XAB$C_RFI      = 00000004            

NAM$L_ESA        0000000C            NAM$V_WILD_SFD7= 0000001F            XAB$C_VBN      = 00000003            

NAM$L_FNB        00000034            NAM$V_WILD_TYPE= 00000004            XAB$K_ALLLEN     00000020            

NAM$L_RLF        00000010            NAM$V_WILD_UFD = 00000018            XAB$K_DATLEN     00000024            

NAM$L_RSA        00000004            NAM$V_WILD_VER = 00000003            XAB$K_FHCLEN     0000002C            

NAM$L_WCC        00000030            NAM$W_DID        0000002A            XAB$K_PROLEN     00000010            

NAM$M_DIR_LVLS = 00E00000            NAM$W_DID_NUM    0000002A            XAB$K_RDTLEN     00000014            

NAM$M_EXP_DEV  = 00000080            NAM$W_DID_RVN    0000002E            XAB$L_ALQ        00000010            

NAM$M_EXP_DIR  = 00000040            NAM$W_DID_SEQ    0000002C            XAB$L_CDT0       00000014            

NAM$M_EXP_NAME = 00000004            NAM$W_FID        00000024            XAB$L_CDT4       00000018            

NAM$M_EXP_TYPE = 00000002            NAM$W_FID_NUM    00000024            XAB$L_EBK        00000010            

NAM$M_EXP_VER  = 00000001            NAM$W_FID_RVN    00000028            XAB$L_EDT0       0000001C            

NAM$M_GRP_MBR  = 00080000            NAM$W_FID_SEQ    00000026            XAB$L_EDT4       00000020            

NAM$M_HIGHVER  = 00008000            NAM$W_PRV_DID    0000003A            XAB$L_HBK        0000000C            

NAM$M_LOWVER   = 00004000            NAMCTL           000000A6 R     02   XAB$L_LOC        0000000C            

NAM$M_NODE     = 00020000            NF$NETWORK1      00000000 R     05   XAB$L_SBN        00000028            

NAM$M_PPF      = 00010000            NT$ACCESS        ********   X   05   XAB$L_UIC        0000000C            

NAM$M_QUOTED   = 00040000            NT$CREATE        ********   X   05   XAB$M_CBT      = 00000020            

NAM$M_WILDCARD = 00000100            NTCRE            00000032 R     02   XAB$M_CTG      = 00000080            

NAM$M_WILD_DIR = 00100000            PIO$GW_DFPROT    ********   X   02   XAB$M_HRD      = 00000001            

NAM$M_WILD_GRP = 01000000            RM$CREACC_SET1   ********   X   02   XAB$M_NODEL    = 00000008            

NAM$M_WILD_MBR = 02000000            RM$CREACC_SET2   ********   X   02   XAB$M_NOEXE    = 00000004            

NAM$M_WILD_NAME= 00000020            RM$CREACC_SET3   ********   X   02   XAB$M_NOREAD   = 00000001            

NAM$M_WILD_SFD1= 02000000            RM$CREATECOM     00000014 RG    02   XAB$M_NOWRITE  = 00000002            

NAM$M_WILD_SFD2= 04000000            RM$FCPFNC        ********   X   02   XAB$M_ONC      = 00000002            

NAM$M_WILD_SFD3= 08000000            RM$FILLNAM       ********   X   02   XAB$Q_CDT        00000014            

NAM$M_WILD_SFD4= 10000000            RM$MAPERR        ********   X   04   XAB$Q_EDT        0000001C            

NAM$M_WILD_SFD5= 20000000            RM$OPEN_CIF      ********   X   02   XAB$S_GRP      = 00000004            

NAM$M_WILD_SFD6= 40000000            RM$SETDID        ********   X   02   XAB$S_OWN      = 00000004            

NAM$M_WILD_SFD7= 80000000            RM$SETEBK        ********   X   02   XAB$S_SYS      = 00000004            

NAM$M_WILD_TYPE= 00000010            RM$SETHBK        ********   X   02   XAB$S_WLD      = 00000004            

NAM$M_WILD_UFD = 01000000            RM$XAB_SCAN      ********   X   02   XAB$V_CBT      = 00000005            

NAM$M_WILD_VER = 00000008            RMS$_ALQ         ********   X   04   XAB$V_CTG      = 00000007            

NAM$S_DIR_LVLS = 00000003            RMS$_CRE         ********   X   04   XAB$V_GRP      = 00000008            

NAM$T_DVI        00000014            SETHBK           000000CA R     02   XAB$V_HRD      = 00000000            

NAM$V_DIR_LVLS = 00000015            SETTMP           00000035 R     02   XAB$V_NODEL    = 00000003            

NAM$V_EXP_DEV  = 00000007            SETUP            00000039 R     02   XAB$V_NOEXE    = 00000002            

NAM$V_EXP_DIR  = 00000006            SS$_NORMAL       ********   X   02   XAB$V_NOREAD   = 00000000            

NAM$V_EXP_NAME = 00000002            XAB$B_AID        00000017            XAB$V_NOWRITE  = 00000001            

NAM$V_EXP_TYPE = 00000001            XAB$B_ALN        00000009            XAB$V_ONC      = 00000001            

NAM$V_EXP_VER  = 00000000            XAB$B_AOP        00000008            XAB$V_OWN      = 00000004            

NAM$V_GRP_MBR  = 00000013            XAB$B_ATR        00000009            XAB$V_SYS      = 00000000            

NAM$V_HIGHVER  = 0000000F            XAB$B_HSZ        00000017            XAB$V_WLD      = 0000000C            

NAM$V_LOWVER   = 0000000E            XAB$B_RFO        00000008            XAB$W_DEQ        00000014            

NAM$V_NODE     = 00000011            XAB$C_ALL      = 00000014            XAB$W_DXQ        0000001A            

NAM$V_PPF      = 00000010            XAB$C_ALLLEN     00000020            XAB$W_EBK0       00000010            

NAM$V_QUOTED   = 00000012            XAB$C_ANY      = 00000000            XAB$W_EBK2       00000012            

NAM$V_WILDCARD = 00000008            XAB$C_CYL      = 00000001            XAB$W_FFB        00000014            

NAM$V_WILD_DIR = 00000014            XAB$C_DAT      = 00000012            XAB$W_GRP        0000000E            

NAM$V_WILD_GRP = 00000018            XAB$C_DATLEN     00000024            XAB$W_HBK0       0000000C            

NAM$V_WILD_MBR = 00000019            XAB$C_FHC      = 0000001D            XAB$W_HBK2       0000000E            

NAM$V_WILD_NAME= 00000005            XAB$C_FHCLEN     0000002C            XAB$W_LRL        0000000A            

NAM$V_WILD_SFD1= 00000019            XAB$C_LBN      = 00000002            XAB$W_MBM        0000000C            

NAM$V_WILD_SFD2= 0000001A            XAB$C_PRO      = 00000013            XAB$W_MRZ        00000018            

NAM$V_WILD_SFD3= 0000001B            XAB$C_PROLEN     00000010            XAB$W_PRO        00000008            

NAM$V_WILD_SFD4= 0000001C            XAB$C_RDT      = 0000001E            XAB$W_RFI        00000018            

NAM$V_WILD_SFD5= 0000001D            XAB$C_RDTLEN     00000014            XAB$W_RFI0       00000018            

RM0CRECOM       COMMON CREATE FILE                               21-AUG-1978 21:18:24   VAX-11 MACRO X0.3-11               Page  15

SYMBOL TABLE                                                                                                                     (1)



XAB$W_RFI2       0000001A            

XAB$W_RFI4       0000001C            

XAB$W_VOL        0000000A            

XBC$C_CREALL1    ********   X   02   

XBC$C_CREALL2    ********   X   02   

XBC$C_CREPRO     ********   X   02   

XBC$C_OPNDAT     ********   X   02   

XBC$C_OPNFHC     ********   X   02   

XBC$C_OPNRDT     ********   X   02   

XITPOP           00000102 R     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  

F$RMSOPEN0C      00000122      02     NOPIC   USR   CON   REL   GBL NOSHR   EXE   RD  NOWRT BYTE  

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

L$RMS0           0000000E      04     NOPIC   USR   CON   REL   GBL NOSHR   EXE   RD  NOWRT BYTE  

NF$NETWORK       0000001A      05     NOPIC   USR   CON   REL   GBL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

2888. BYTES LEFT IN FREE MEMORY POOL.

3086. BYTES OF RECLAIMED MEMORY.

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

47 MLB DIR RDS - 1236 GETS TO DEFINE 31 MACROS. 101 INTER. FILE WRITES. 

