RM2CREATE       RELATIVE-SPECIFIC CREATE                         21-AUG-1978 21:51:54   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      42  DECLARATIONS

   (1)      70  RM$CREATE2  -  RELATIVE CREATE ROUTINE

RM2CREATE       RELATIVE-SPECIFIC CREATE                         21-AUG-1978 21:51:54   VAX-11 MACRO X0.3-11               Page   1

006                                                                                                                              (1)



                                     0000     1 	$BEGIN	RM2CREATE,006,F$RMSOPEN2C,<RELATIVE-SPECIFIC CREATE>

                                     0000     2 

                                     0000     3 

                                     0000     4 ;

                                     0000     5 ; COPYRIGHT (C) 1977

                                     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:

                                     0000    27 ;

                                     0000    28 ;	THIS ROUTINE PERFORMS THE RELATIVE FILE

                                     0000    29 ;	ORGANIZATION-SPECIFIC CREATE PROCESSING.

                                     0000    30 ;

                                     0000    31 ; ENVIRONMENT:

                                     0000    32 ;		STAR PROCESSOR RUNNING STARLET EXEC.

                                     0000    33 ;

                                     0000    34 ; AUTHOR: L F LAVERDURE,	 CREATION DATE: 7-DEC-77

                                     0000    35 ;

                                     0000    36 ; MODIFIED BY:

                                     0000    37 ;

                                     0000    38 ;	L F LAVERDURE,   9-MAY-78  12:58

                                     0000    39 ; 01	- 

                                     0000    40 ;--

RM2CREATE       RELATIVE-SPECIFIC CREATE                         21-AUG-1978 21:51:54   VAX-11 MACRO X0.3-11               Page   2

006             DECLARATIONS                                                                                                     (1)



                                     0000    42 	.SBTTL	DECLARATIONS

                                     0000    43 ;

                                     0000    44 ; INCLUDE FILES:

                                     0000    45 ;

                                     0000    46 

                                     0000    47 ;

                                     0000    48 ; MACROS:

                                     0000    49 ;

                                     0000    50 	$FABDEF

                                     0000    51 	$IFBDEF

                                     0000    52 	$CSHDEF

                                     0000    53 	$DEVDEF

                                     0000    54 	$BDBDEF

                                     0000    55 	$PLGDEF

                                     0000    56 	$RLSDEF

                                     0000    57 	$RMSDEF

                                     0000    58 	.LIST MEB

                                     0000    59 

                                     0000    60 ;

                                     0000    61 ; EQUATED SYMBOLS:

                                     0000    62 ;

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

                                     0000    64 

                                     0000    65 ;

                                     0000    66 ; OWN STORAGE:

                                     0000    67 ;

                                     0000    68 

RM2CREATE       RELATIVE-SPECIFIC CREATE                         21-AUG-1978 21:51:54   VAX-11 MACRO X0.3-11               Page   3

006             RM$CREATE2  -  RELATIVE CREATE ROUTINE                                                                           (1)



                                     0000    70 	.SBTTL RM$CREATE2  -  RELATIVE CREATE ROUTINE

                                     0000    71 ;++

                                     0000    72 ; FUNCTIONAL DESCRIPTION:

                                     0000    73 ;

                                     0000    74 ;	THIS ROUTINE PERFORMS ALL OF THE FILE CREATE

                                     0000    75 ;	FUNCTIONS THAT ARE SPECIFIC TO THE RELATIVE 

                                     0000    76 ;	FILE ORGANIZATION, INCLUDING:

                                     0000    77 ;

                                     0000    78 ;	1.  CHECKING THAT SHARING HAS NOT BEEN SPECIFIED IN SUCH A WAY

                                     0000    79 ;	    THAT INTER-PROCESS RECORD LOCKING IS REQUIRED.

                                     0000    80 ;	2.  CHECKING THAT DEVICE IS A DISK

                                     0000    81 ;	3.  CHECKING THAT RECORD FORMAT IS NOT UNDEFINED

                                     0000    82 ;	4.  CHECKING THAT BUCKET SIZE AND MAXIMUM RECORD SIZE ARE COMPATIBLE

                                     0000    83 ;	5.  VERIFYING MAXIMUM RECORD NUMBER

                                     0000    84 ;	6.  CHECKING XAB CHAIN VALIDITY

                                     0000    85 ;	7.  CALLING THE COMMON CREATE ROUTINE

                                     0000    86 ;	8.  LOCKING THE PROLOG, INITIAL FORMATTING OF THE DATA BUCKETS TO ZEROES

                                     0000    87 ;	9.  INITIALIZING AND UNLOCKING THE PROLOG

                                     0000    88 ;

                                     0000    89 ; CALLING SEQUENCE:

                                     0000    90 ;

                                     0000    91 ;	ENTERED VIA CASE BRANCH FROM RM$OPEN

                                     0000    92 ;	RETURNS BY JUMPING TO RM$CREATEXIT

                                     0000    93 ;

                                     0000    94 ; INPUT PARAMETERS:

                                     0000    95 ;

                                     0000    96 ;	R11	IMPURE AREA ADDRESS

                                     0000    97 ;	R10	FWA ADDRESS

                                     0000    98 ;	R9	IFAB ADDRESS

                                     0000    99 ;	R8	FAB ADDRESS

                                     0000   100 ;

                                     0000   101 ; IMPLICIT INPUTS:

                                     0000   102 ;

                                     0000   103 ;	THE CONTENTS OF THE FAB, IFAB, & FWA.

                                     0000   104 ;

                                     0000   105 ; OUTPUT PARAMETERS:

                                     0000   106 ;

                                     0000   107 ;	R0	STATUS CODE

                                     0000   108 ;	R1-R7	DESTROYED

                                     0000   109 ;

                                     0000   110 ; IMPLICIT OUTPUTS:

                                     0000   111 ;

                                     0000   112 ;	VARIOUS FIELDS IN THE IFAB & FAB ARE INITIALIZED.

                                     0000   113 ;

                                     0000   114 ; COMPLETION CODES:

                                     0000   115 ;

                                     0000   116 ;	STANDARD RMS

                                     0000   117 ;

                                     0000   118 ; SIDE EFFECTS:

                                     0000   119 ;

                                     0000   120 ;	NONE

                                     0000   121 ;

                                     0000   122 ;--

RM2CREATE       RELATIVE-SPECIFIC CREATE                         21-AUG-1978 21:51:54   VAX-11 MACRO X0.3-11               Page   4

006             RM$CREATE2  -  RELATIVE CREATE ROUTINE                                                                           (1)



                                     0000   124 ;

                                     0000   125 ;  CODE TO HANDLE ERROR CONDITONS.

                                     0000   126 ;  (NOTE: THIS IS NOT THE ENTRY POINT FOR THE RM$CREATE2 ROUTINE.)

                                     0000   127 ;

                          FFFD'  31  0000   128 ERRSHR:	BRW	RM$CRE_ERRSHR			; CAN'T HANDLE INTER-PROCESS

                                     0003   129 						; RECORD LOCKING YET

                                     0003   130 ;

                                     0003   131 ERRDEV:	$PSECT_BR	L$RMS2

                          FFFA'  31  0003       		BRW	L$RMS20

                                     0006       		.SAVE

                                 00000000       		.PSECT	L$RMS2,GBL,NOWRT

                                     0000       L$RMS20:

                                     0000   132 	RMSERR	DEV				; DEVICE NOT DISK

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

                          FFF8'  31  0005   133 CREXIT:	BRW	RM$CREATEXIT			; GO CLEAN UP

                                     0008   134 	$PSECT_RESTORE

                                 00000006       		.RESTORE

                                     0006   135 ;

                          FFF7'  31  0006   136 ERRXIT:	BRW	RM$CREATEXIT			; GO CLEAN UP

                                     0009   137 ;

                          FFF4'  31  0009   138 ERRRFM:	BRW	RM$CRE_ERRRFM			; RFM = UDF OR > VFC

                                     000C   139 ;

                          FFF1'  31  000C   140 ERRMRS:	BRW	RM$CRE_ERRMRS			; MRS < OR = 0

                                     000F   141 ;

                                     000F   142 ERRBKS:	$PSECT_BR	L$RMS2

                          FFF6'  31  000F       		BRW	L$RMS21

                                     0012       		.SAVE

                                 00000008       		.PSECT	L$RMS2,GBL,NOWRT

                                     0008       L$RMS21:

                                     0008   143 	RMSERR	BKS				; BKS > 32 OR < CELL SIZE

            50       841C 8F     3C  0008       		MOVZWL	#<RMS$_BKS&^XFFFF>,R0

                          F6     11  000D   144 	BRB	CREXIT				; GO GET OUT

                                     000F   145 	$PSECT_RESTORE

                                 00000012       		.RESTORE

                                     0012   146 ;

                                     0012   147 ERRMRN:	$PSECT_BR	L$RMS2

                          FFFA'  31  0012       		BRW	L$RMS22

                                     0015       		.SAVE

                                 0000000F       		.PSECT	L$RMS2,GBL,NOWRT

                                     000F       L$RMS22:

                                     000F   148 	RMSERR	MRN				; MRN < 0

            50       85CC 8F     3C  000F       		MOVZWL	#<RMS$_MRN&^XFFFF>,R0

                          EF     11  0014   149 	BRB	CREXIT				; GO GET OUT

                                     0016   150 	$PSECT_RESTORE

                                 00000015       		.RESTORE

RM2CREATE       RELATIVE-SPECIFIC CREATE                         21-AUG-1978 21:51:54   VAX-11 MACRO X0.3-11               Page   5

006             RM$CREATE2  -  RELATIVE CREATE ROUTINE                                                                           (1)



                                     0015   152 ;++

                                     0015   153 ;  ENTRY POINT FOR RELATIVE-SPECIFIC CREATE

                                     0015   154 ;

                                     0015   155 ;--

                                     0015   156 RM$CREATE2::

                                     0015   157 	$TSTPT	CREATE2

                 00000200'9F     D6  0015       		INCL	@#PIO$GL_FMLH+512+TPT$L_CREATE2

                                     001B   158 ;

                                     001B   159 ; CHECK RECORD LOCKING NOT REQUIRED

                                     001B   160 ;

            69            33     E0  001B   161 	BBS	#IFB$V_NORECLK,(R9),10$		; BRANCH IF NO RECORD LOCKING

                          06         001E       

                                 93  001F   162 	BITB	#<FAB$M_GET!FAB$M_PUT!FAB$M_UPD!FAB$M_DEL>,-

         17 A8            0F         0020   163 		FAB$B_SHR(R8)			; ANY SHARING?

                          DB     12  0023   164 	BNEQ	ERRSHR				; BRANCH IF YES

                                     0025   165 						; CAN'T DO CROSS PROCESS LOCKING

                                     0025   166 10$:

                                     0025   167 ;

                                     0025   168 ;  CHECK THAT DEVICE IS DISK

                                     0025   169 ;

            69            1C     E1  0025   170 	BBC	#DEV$V_RND,IFB$L_PRIM_DEV(R9),ERRDEV	; BRANCH IF NOT DISK

                          DA         0028       

                                     0029   171 ;

                                     0029   172 ;  HANDLE ALLOCATION REQUEST, IF ANY

                                     0029   173 ;

                          FFD4'  30  0029   174 	BSBW	RM$SETALLOC			; HANDLE ALLOCATION XAB AND

                                     002C   175 						;  SET DEQ AND RTDEQ

                                     002C   176 ERRXIT1:

            D7            50     E9  002C   177 	BLBC	R0,ERRXIT			; GET OUT ON ERROR

                       10 A8     D5  002F   178 	TSTL	FAB$L_ALQ(R8)			; ANY INITIAL ALLOCATION?

                          03     12  0032   179 	BNEQ	10$				; BRANCH IF YES

                       10 A8     D6  0034   180 	INCL	FAB$L_ALQ(R8)			; NO - NEED 1 BLOCK FOR PROLOG

                                     0037   181 10$:

                                     0037   182 ;

                                     0037   183 ;  CHECK RFM AND MRS PARAMETERS

                                     0037   184 ;

                                     0037   185 	ASSUME	FAB$C_MAXRFM EQ FAB$C_VFC	; ASSUME RFM ALREADY CHECK FOR

                                     0037   186 						; LEQ VFC

                                     0037   187 	ASSUME	FAB$C_UDF EQ 0

                       3C A9     95  0037   188 	TSTB	IFB$B_RFMORG(R9)		; IS RFM UNDEFINED?

                          CD     13  003A   189 	BEQL	ERRRFM				; BRANCH IF YES

         3E A9         36 A8     B0  003C   190 	MOVW	FAB$W_MRS(R8),IFB$W_LRL(R9)	; SET LRL FROM FAB MRS

                          C9     15  0041   191 	BLEQ	ERRMRS				; BRANCH IF NOT > 0

                                     0043   192 ;

                                     0043   193 ;  COMPUTE CELL SIZE

                                     0043   194 ;

            01         36 A8     A1  0043   195 	ADDW3	FAB$W_MRS(R8),#1,R0		; ADD IN DELETE CTRL BYTE

                          50         0047       

            01         3C A9     91  0048   196 	CMPB	IFB$B_RFMORG(R9),#FAB$C_FIX	; FIXED REC LEN?

                          0A     13  004C   197 	BEQL	30$				; BRANCH IF YES

            50            02     A0  004E   198 	ADDW2	#2,R0				; ADD IN RECORD LENGTH FIELD

            51         4B A9     9A  0051   199 	MOVZBL	IFB$B_FSZ(R9),R1		; GET FSZ

            50            51     A0  0055   200 	ADDW2	R1,R0				; AND ADD IN GIVING TOT. SIZE

                                     0058   201 30$:

RM2CREATE       RELATIVE-SPECIFIC CREATE                         21-AUG-1978 21:51:54   VAX-11 MACRO X0.3-11               Page   6

006             RM$CREATE2  -  RELATIVE CREATE ROUTINE                                                                           (1)



                                     0058   203 ;

                                     0058   204 ;  CHECK CELL SIZE AGAINST BKS

                                     0058   205 ;

            51         3E A8     9A  0058   206 	MOVZBL	FAB$B_BKS(R8),R1		; COPY BUCKET SIZE FROM FAB

                          0C     12  005C   207 	BNEQ	40$				; BRANCH IF SPECED

                                     005E   208 						; DEFAULT BUCKET SIZE TO MIN.

                                     005E   209 						; REQUIRED TO CONTAIN 1 RECORD

                          50     B7  005E   210 	DECW	R0				; ROUND DOWN

            50       0200 8F     A7  0060   211 	DIVW3	#512,R0,R1			; GET # BLKS - 1 FOR 1 RECORD

                          51         0065       

                          51     B6  0066   212 	INCW	R1				; GET # BLKS FOR 1 RECORD

                          50     B6  0068   213 	INCW	R0				; RESTORE CELL SIZE

         4A A9            51     90  006A   214 40$:	MOVB	R1,IFB$B_BKS(R9)		; COPY BUCKET SIZE TO IFAB

            20            51     91  006E   215 	CMPB	R1,#32				; IN RANGE?

                          9C     1A  0071   216 	BGTRU	ERRBKS				; BRANCH IF NOT

            51       0200 8F     A5  0073   217 	MULW3	#512,R1,IFB$W_BKS_BYTES(R9)	; COMPUTE BUCKET SIZE IN BYTES

                       5C A9         0078       

         5C A9            50     B1  007A   218 	CMPW	R0,IFB$W_BKS_BYTES(R9)		; CELL SIZE < OR = BUCKET SIZE?

                          8F     1A  007E   219 	BGTRU	ERRBKS				; BRANCH IF NOT

                                     0080   220 ;

                                     0080   221 ;  SET MRN VALUE

                                     0080   222 ;

         54 A9         38 A8     D0  0080   223 	MOVL	FAB$L_MRN(R8),IFB$L_MRN(R9)	; SET MRN FROM FAB

                          0A     14  0085   224 	BGTR	50$				; BRANCH IF > 0

                          89     19  0087   225 	BLSS	ERRMRN				; ERROR IF < 0

         54 A9   7FFFFFFF 8F     D0  0089   226 	MOVL	#^X7FFFFFFF,IFB$L_MRN(R9)	; DEFAULT TO MAX. POS #

                                     0091   227 50$:

                                     0091   228 ;

                                     0091   229 ;  GO DO CREATE.

                                     0091   230 ;  (NOTE: THIS MAY BE A 'CREATE IF', IN WHICH CASE RETURN WILL BE

                                     0091   231 ;   MADE TO RMS0OPEN IF ACTUALLY OPENED RATHER THAN CREATED.)

                                     0091   232 ;

                          FF6C'  30  0091   233 	BSBW	RM$CREATECOM			; DO COMMON CREATE

            95            50     E9  0094   234 	BLBC	R0,ERRXIT1			; GET OUT ON ERROR

                          50     DD  0097   235 	PUSHL	R0				; SAVE STATUS CODE

                                     0099   236 ;

                                     0099   237 ;  FILE HAS BEEN CREATED.

                                     0099   238 ;  ALLOCATE A LOCK BDB AND LOCK THE PROLOG.

                                     0099   239 ;

            5A            59     D0  0099   240 	MOVL	R9,R10				; SET R10 TO IFAB ADDR

         22 A9            05     E0  009C   241 	BBS	#IFB$V_BIO,IFB$B_FAC(R9),90$	; AVOID FORMATTING IF BLOCK IO

                          6E         00A0       

                          FF5C'  30  00A1   242 	BSBW	RM$ALBDB			; ALLOCATE LOCK BDB

                           00000008  00A4   243 	.IF NE 	<$$RMSTEST & $$RMS_TBUGCHK>

            37            50     E9  00A4   244 	BLBC	R0,70$				; BRANCH ON ERROR (BUG)

                                     00A7   245 	.ENDC

                                     00A7   246 	$CACHE	VBN=#1,SIZE=#0,FLAGS=<LOCK,NOREAD,NOBUFFER>

            51            01     D0  00A7       		.IIF DIF <#1><R1>,	MOVL	#1,R1

                          52     D4  00AA       		CLRL	R2

            53            15     D0  00AC       		MOVL #$$.TMP,R3

                          FF4E'  30  00AF       		BSBW	RM$CACHE

                           00000008  00B2   247 	.IF NE 	<$$RMSTEST & $$RMS_TBUGCHK>

            29            50     E9  00B2   248 	BLBC	R0,70$				; BRANCH ON ERROR (BUG)

                                     00B5   249 	.ENDC

RM2CREATE       RELATIVE-SPECIFIC CREATE                         21-AUG-1978 21:51:54   VAX-11 MACRO X0.3-11               Page   7

006             RM$CREATE2  -  RELATIVE CREATE ROUTINE                                                                           (1)



                                     00B5   251 ;

                                     00B5   252 ;  FORMAT FILE BY WRITING ZEROES TO ALLOCATED SPACE

                                     00B5   253 ;

         58 A9            02     D0  00B5   254 	MOVL	#2,IFB$L_DVBN(R9)		; SET FIRST DATA VBN

            51            02     D0  00B9   255 	MOVL	#2,R1				; 1ST BLOCK FOR ZEROING

         40 A9            01     C1  00BC   256 	ADDL3	#1,IFB$L_HBK(R9),R6		; COMPUTE EOF BLOCK

                          56         00C0       

         44 A9            56     D0  00C1   257 	MOVL	R6,IFB$L_EBK(R9)		; SAVE IT

            02            56     D1  00C5   258 	CMPL	R6,#2				; EOF IN VBN 2?

                          06     13  00C8   259 	BEQL	60$				; BRANCH IF YES (NO NEED TO ZERO)

                          FF33'  30  00CA   260 	BSBW	RM$FMT_BKT2			; FORMAT (ZERO) DATA BUCKETS

            46            50     E9  00CD   261 	BLBC	R0,RLNERR			; BRANCH ON ERROR

                                     00D0   262 60$:

                                     00D0   263 ;

                                     00D0   264 ;  GET BUFFER FOR PROLOG AND INITIALIZE PROLOG.

                                     00D0   265 ;

                                     00D0   266 	$CACHE	VBN=#1,SIZE=#512,FLAGS=<LOCK,NOREAD>	; GET BUFFER FOR PROLOG

            51            01     D0  00D0       		.IIF DIF <#1><R1>,	MOVL	#1,R1

            52       0200 8F     3C  00D3       		.IIF DIF <#512><R2>,	MOVZWL	#512,R2

            53            05     D0  00D8       		MOVL #$$.TMP,R3

                          FF22'  30  00DB       		BSBW	RM$CACHE

                                     00DE   267 

                           00000008  00DE   268 	.IF NE 	<$$RMSTEST & $$RMS_TBUGCHK>

            31            50     E9  00DE   269 70$:	BLBC	R0,ERRBUG			; BRANCH ON ERROR (BUG)

                                     00E1   270 	.ENDC

                          30     BB  00E1   271 	PUSHR	#^M<R4,R5>			; SAVE BDB AND BUFFER ADDR

            6E            00     2C  00E3   272 	MOVC5	#0,(SP),#0,#512,(R5)		; ZERO BUFFER

       0200 8F            00         00E6       

                          65         00EA       

                          30     BA  00EB   273 	POPR	#^M<R4,R5>			; RESTORE BDB AND BUFFER ADDR

         74 A5            01     B0  00ED   274 	MOVW	#PLG$C_VER_NO,PLG$W_VER_NO(R5)	; SET VERSION #

         70 A5            56     D0  00F1   275 	MOVL	R6,PLG$L_EOF(R5)		; AND EOF VBN

         68 A5         58 A9     B0  00F5   276 	MOVW	IFB$L_DVBN(R9),PLG$W_DVBN(R5)	; AND FIRST DATA VBN

         6C A5         54 A9     D0  00FA   277 	MOVL	IFB$L_MRN(R9),PLG$L_MRN(R5)	; AND MAX RECORD NUMBER

                          FEFE'  30  00FF   278 	BSBW	RM$MAKSUM			; CALCULATE AND SET CHECKSUM

         0A A4            03     88  0102   279 	BISB2	#BDB$M_DRT!BDB$M_VAL,BDB$B_FLGS(R4)	; SAY VALID AND DIRTY

            53            02     D0  0106   280 	MOVL	#RLS$M_WRT_THRU,R3		; CAUSE IMMEDIATE WRITE

                          FEF4'  30  0109   281 	BSBW	RM$RELEASE			; RELEASE PROLOG

            0A            50     E9  010C   282 	BLBC	R0,RLSERR			; BRANCH ON ERROR

                          FEEE'  31  010F   283 90$:	BRW	RM$CREATEXIT1			; FINISH UP CREATE

RM2CREATE       RELATIVE-SPECIFIC CREATE                         21-AUG-1978 21:51:54   VAX-11 MACRO X0.3-11               Page   8

006             RM$CREATE2  -  RELATIVE CREATE ROUTINE                                                                           (1)



                                     0112   285 ;

                                     0112   286 ; HANDLE ERRORS

                                     0112   287 ;

                                     0112   288 ERRBUG:	RMSTBUG	FTL$_LOCKFAILED		; FAILED TO LOCK PROLOG

                                     0112       	.SAVE

                                 00000076       	.PSECT	$ABS$,ABS

                           00000000  0076       	.=0

                                 00000112       	.RESTORE

                          FEEB'  30  0112       		BSBW	RM$BUG

                                 E7  0115       		.BYTE	FTL$_LOCKFAILED

                                     0116   289 						; OR ALLOCATE LOCK BDB

                                     0116   290 ;

                                     0116   291 RLNERR:	$PSECT_BR	L$RMS2			; FAILED ZERO DATA BUCKETS

                          FEFD'  31  0116       		BRW	L$RMS23

                                     0119       		.SAVE

                                 00000016       		.PSECT	L$RMS2,GBL,NOWRT

                                     0016       L$RMS23:

                          50     DD  0016   292 	PUSHL	R0				; STORE STATUS

                                     0018   293 	$CACHE	VBN=#1,SIZE=#0,ERR=RLSXIT	; RE-GET PROLOG BDB

            51            01     D0  0018       		.IIF DIF <#1><R1>,	MOVL	#1,R1

                          52     D4  001B       		CLRL	R2

                          FFE0'  30  001D       		BSBW	RM$CACHE

            03            50     E9  0020       		.IIF NB <RLSXIT>,	BLBC	R0,RLSXIT

                          FFDA'  30  0023   294 	BSBW	RM$RLNERR			; UNLOCK PROLOG

                          FFD7'  31  0026   295 RLSXIT:	BRW	RM$CREATEXIT1			; AND GET OUT

                                     0029   296 	$PSECT_RESTORE

                                 00000119       		.RESTORE

                                     0119   297 ;

                                     0119   298 RLSERR:	$PSECT_BR	L$RMS2

                          FF0D'  31  0119       		BRW	L$RMS24

                                     011C       		.SAVE

                                 00000029       		.PSECT	L$RMS2,GBL,NOWRT

                                     0029       L$RMS24:

                                     0029   299 	RMSERR	WPL,(SP)			; PROLOG WRITE ERROR

            6E       C11C 8F     3C  0029       		MOVZWL	#<RMS$_WPL&^XFFFF>,(SP)

                          F6     11  002E   300 	BRB	RLSXIT				; GO CLEAN UP

                                     0030   301 	$PSECT_RESTORE

                                 0000011C       		.RESTORE

                                     011C   302 

                                     011C   303 

                                     011C   304 	.END

RM2CREATE       RELATIVE-SPECIFIC CREATE                         21-AUG-1978 21:51:54   VAX-11 MACRO X0.3-11               Page   9

SYMBOL TABLE                                                                                                                     (1)



$$.PSECT_EP    = 00000005            DEV$M_AVL      = 00040000            ERRXIT1          0000002C R     02   

$$.TMP         = 00000005            DEV$M_CCL      = 00000002            FAB$B_BID        00000000            

$$RMSTEST      = 0000001A            DEV$M_DIR      = 00000008            FAB$B_BKS        0000003E            

$$RMS_PBUGCHK  = 00000010            DEV$M_DMT      = 00200000            FAB$B_BLN        00000001            

$$RMS_TBUGCHK  = 00000008            DEV$M_ELG      = 00400000            FAB$B_DNS        00000035            

$$RMS_UMODE    = 00000004            DEV$M_FOD      = 00004000            FAB$B_FAC        00000016            

BDB$B_BID        00000008            DEV$M_FOR      = 01000000            FAB$B_FNS        00000034            

BDB$B_BLN        00000009            DEV$M_GEN      = 00020000            FAB$B_FSZ        0000003F            

BDB$B_FLGS       0000000A            DEV$M_IDV      = 04000000            FAB$B_ORG        0000001D            

BDB$B_POST_CCTL  00000023            DEV$M_MBX      = 00100000            FAB$B_RAT        0000001E            

BDB$B_PRE_CCTL   00000022            DEV$M_MNT      = 00080000            FAB$B_RFM        0000001F            

BDB$B_REL_VBN    00000020            DEV$M_NET      = 00002000            FAB$B_RTV        0000001C            

BDB$B_USECNT     0000000B            DEV$M_ODV      = 08000000            FAB$B_SHR        00000017            

BDB$B_VAL_VBNS   00000021            DEV$M_RCK      = 40000000            FAB$C_BID      = 00000003            

BDB$C_BID      = 0000000C            DEV$M_REC      = 00000001            FAB$C_BLN        00000050            

BDB$C_BLN        00000028            DEV$M_RND      = 10000000            FAB$C_FIX      = 00000001            

BDB$K_BLN        00000028            DEV$M_RTM      = 20000000            FAB$C_HSH      = 00000030            

BDB$L_ADDR       00000014            DEV$M_SDI      = 00000010            FAB$C_IDX      = 00000020            

BDB$L_BLINK      00000004            DEV$M_SHR      = 00010000            FAB$C_MAXRFM   = 00000003            

BDB$L_CURBUFADR  00000024            DEV$M_SPL      = 00000040            FAB$C_REL      = 00000010            

BDB$L_FLINK      00000000            DEV$M_SQD      = 00000020            FAB$C_RFM_DFLT = 00000002            

BDB$L_IOSB       00000020            DEV$M_SWL      = 02000000            FAB$C_SEQ      = 00000000            

BDB$L_OWN        0000000C            DEV$M_TRM      = 00000004            FAB$C_UDF      = 00000000            

BDB$L_VBN        00000018            DEV$M_WCK      = 80000000            FAB$C_VAR      = 00000002            

BDB$L_WAIT       0000001C            DEV$V_ALL      = 00000017            FAB$C_VFC      = 00000003            

BDB$L_WK1        00000020            DEV$V_AVL      = 00000012            FAB$K_BLN        00000050            

BDB$M_AST_DCL  = 00000040            DEV$V_CCL      = 00000001            FAB$L_ALQ        00000010            

BDB$M_DRT      = 00000002            DEV$V_DIR      = 00000003            FAB$L_CTX        00000018            

BDB$M_IOP      = 00000004            DEV$V_DMT      = 00000015            FAB$L_DEV        00000040            

BDB$M_LKDINWS  = 00000080            DEV$V_ELG      = 00000016            FAB$L_DNA        00000030            

BDB$M_NOLOCATE = 00000010            DEV$V_FOD      = 0000000E            FAB$L_FNA        0000002C            

BDB$M_PRM      = 00000008            DEV$V_FOR      = 00000018            FAB$L_FOP        00000004            

BDB$M_VAL      = 00000001            DEV$V_GEN      = 00000011            FAB$L_JNL        00000020            

BDB$M_WFO      = 00000020            DEV$V_IDV      = 0000001A            FAB$L_MRN        00000038            

BDB$V_AST_DCL  = 00000006            DEV$V_MBX      = 00000014            FAB$L_NAM        00000028            

BDB$V_DRT      = 00000001            DEV$V_MNT      = 00000013            FAB$L_SDC        00000044            

BDB$V_IOP      = 00000002            DEV$V_NET      = 0000000D            FAB$L_STS        00000008            

BDB$V_LKDINWS  = 00000007            DEV$V_ODV      = 0000001B            FAB$L_STV        0000000C            

BDB$V_NOLOCATE = 00000004            DEV$V_RCK      = 0000001E            FAB$L_XAB        00000024            

BDB$V_PRM      = 00000003            DEV$V_REC      = 00000000            FAB$M_BIO      = 00000020            

BDB$V_VAL      = 00000000            DEV$V_RND      = 0000001C            FAB$M_BLK      = 00000008            

BDB$V_WFO      = 00000005            DEV$V_RTM      = 0000001D            FAB$M_BRO      = 00000040            

BDB$W_NUMB       00000010            DEV$V_SDI      = 00000004            FAB$M_CBT      = 00200000            

BDB$W_SIZE       00000012            DEV$V_SHR      = 00000010            FAB$M_CIF      = 02000000            

BIT...         = 00000000            DEV$V_SPL      = 00000006            FAB$M_CR       = 00000002            

CREXIT           00000005 R     04   DEV$V_SQD      = 00000005            FAB$M_CTG      = 00100000            

CSH$M_LOCK     = 00000001            DEV$V_SWL      = 00000019            FAB$M_DEL      = 00000004            

CSH$M_NOBUFFER = 00000010            DEV$V_TRM      = 00000002            FAB$M_DFW      = 00000020            

CSH$M_NOREAD   = 00000004            DEV$V_WCK      = 0000001F            FAB$M_DLT      = 00008000            

CSH$M_NOWAIT   = 00000002            ERRBKS           0000000F R     02   FAB$M_DMO      = 00001000            

CSH$M_READAHEAD= 00000008            ERRBUG           00000112 R     02   FAB$M_ESC      = 08000000            

CSH$V_LOCK     = 00000000            ERRDEV           00000003 R     02   FAB$M_EXE      = 00000080            

CSH$V_NOBUFFER = 00000004            ERRMRN           00000012 R     02   FAB$M_FTN      = 00000001            

CSH$V_NOREAD   = 00000002            ERRMRS           0000000C R     02   FAB$M_GET      = 00000002            

CSH$V_NOWAIT   = 00000001            ERRRFM           00000009 R     02   FAB$M_INP      = 00080000            

CSH$V_READAHEAD= 00000003            ERRSHR           00000000 R     02   FAB$M_JNL      = 00400000            

DEV$M_ALL      = 00800000            ERRXIT           00000006 R     02   FAB$M_KFO      = 40000000            

RM2CREATE       RELATIVE-SPECIFIC CREATE                         21-AUG-1978 21:51:54   VAX-11 MACRO X0.3-11               Page  10

SYMBOL TABLE                                                                                                                     (1)



FAB$M_MSE      = 00000010            FAB$V_NFS      = 00000010            FTL$_XFERSIZE  = FFFFFFED            

FAB$M_MXV      = 00000002            FAB$V_NIL      = 00000005            GBL...         = 00000000            

FAB$M_NAM      = 01000000            FAB$V_OFP      = 0000001D            IFB$B_AMAX       00000059            

FAB$M_NEF      = 00000400            FAB$V_ORG      = 00000004            IFB$B_AVBN       00000058            

FAB$M_NFS      = 00010000            FAB$V_POS      = 00000008            IFB$B_BID        00000008            

FAB$M_NIL      = 00000020            FAB$V_PPF      = 00000012            IFB$B_BKS        0000004A            

FAB$M_OFP      = 20000000            FAB$V_PPF_IND  = 0000000E            IFB$B_BLN        00000009            

FAB$M_POS      = 00000100            FAB$V_PPF_RAT  = 00000006            IFB$B_EFN        0000000B            

FAB$M_PPF      = 00040000            FAB$V_PRN      = 00000002            IFB$B_EXTRABUF   0000005D            

FAB$M_PPF_IND  = 00004000            FAB$V_PUT      = 00000000            IFB$B_FAC        00000022            

FAB$M_PPF_RAT  = 00003FC0            FAB$V_RCK      = 00000017            IFB$B_FSZ        0000004B            

FAB$M_PRN      = 00000004            FAB$V_RWC      = 0000000B            IFB$B_KBUFSZ     0000005C            

FAB$M_PUT      = 00000001            FAB$V_RWO      = 00000007            IFB$B_MODE       0000000A            

FAB$M_RCK      = 00800000            FAB$V_SCF      = 0000000E            IFB$B_NUM_KEYS   0000005A            

FAB$M_RWC      = 00000800            FAB$V_SHRDEL   = 00000002            IFB$B_ORGCASE    00000023            

FAB$M_RWO      = 00000080            FAB$V_SHRGET   = 00000001            IFB$B_RAT        0000003D            

FAB$M_SCF      = 00004000            FAB$V_SHRPUT   = 00000000            IFB$B_RFMORG     0000003C            

FAB$M_SHRDEL   = 00000004            FAB$V_SHRUPD   = 00000003            IFB$B_UBUFSZ     0000005B            

FAB$M_SHRGET   = 00000002            FAB$V_SPL      = 0000000D            IFB$C_BID      = 0000000B            

FAB$M_SHRPUT   = 00000001            FAB$V_SQO      = 00000006            IFB$C_BLN        00000060            

FAB$M_SHRUPD   = 00000008            FAB$V_SUP      = 00000002            IFB$C_BLN_IDX    00000060            

FAB$M_SPL      = 00002000            FAB$V_TEF      = 0000001C            IFB$C_BLN_REL    00000060            

FAB$M_SQO      = 00000040            FAB$V_TMD      = 00000004            IFB$C_BLN_SEQ    0000005C            

FAB$M_SUP      = 00000004            FAB$V_TMP      = 00000003            IFB$C_DIR      = 00000003            

FAB$M_TEF      = 10000000            FAB$V_TRN      = 00000004            IFB$C_FHAEND     00000050            

FAB$M_TMD      = 00000010            FAB$V_UFM      = 0000001A            IFB$C_IDX      = 00000002            

FAB$M_TMP      = 00000008            FAB$V_UFO      = 00000011            IFB$C_MAXORG   = 00000002            

FAB$M_TRN      = 00000010            FAB$V_UPD      = 00000003            IFB$C_REL      = 00000001            

FAB$M_UFM      = 04000000            FAB$V_UPI      = 00000006            IFB$C_SEQ      = 00000000            

FAB$M_UFO      = 00020000            FAB$V_WCK      = 00000009            IFB$K_BLN        00000060            

FAB$M_UPD      = 00000008            FAB$W_BLS        0000003C            IFB$K_BLN_IDX    00000060            

FAB$M_UPI      = 00000040            FAB$W_DEQ        00000014            IFB$K_BLN_REL    00000060            

FAB$M_WCK      = 00000200            FAB$W_IFI        00000002            IFB$K_BLN_SEQ    0000005C            

FAB$S_ORG      = 00000004            FAB$W_MRS        00000036            IFB$K_FHAEND     00000050            

FAB$S_PPF_RAT  = 00000008            FOP            = 00000020            IFB$L_ARGLST     00000018            

FAB$V_BIO      = 00000005            FTL$_ASBALLFAIL= FFFFFFF9            IFB$L_ASBADDR    00000014            

FAB$V_BLK      = 00000003            FTL$_BADASTPRM = FFFFFFF8            IFB$L_AS_DEV     00000054            

FAB$V_BRO      = 00000006            FTL$_BADBDB    = FFFFFFFA            IFB$L_BDB_BLNK   00000034            

FAB$V_CBT      = 00000015            FTL$_BADBUFSIZ = FFFFFFF3            IFB$L_BDB_FLNK   00000030            

FAB$V_CIF      = 00000019            FTL$_BADIFAB   = FFFFFFFD            IFB$L_BKPBITS    00000004            

FAB$V_CR       = 00000001            FTL$_BADLEVEL  = FFFFFFE6            IFB$L_BWB        0000000C            

FAB$V_CTG      = 00000014            FTL$_BADORGCASE= FFFFFFFB            IFB$L_DVBN       00000058            

FAB$V_DEL      = 00000002            FTL$_CANTDOAST = FFFFFFF7            IFB$L_EBK        00000044            

FAB$V_DFW      = 00000005            FTL$_DEALLERR  = FFFFFFEF            IFB$L_FRB_PTR    00000028            

FAB$V_DLT      = 0000000F            FTL$_GTCHNFAIL = FFFFFFFC            IFB$L_FWA_BDB    00000050            

FAB$V_DMO      = 0000000C            FTL$_IORNDN    = FFFFFFEE            IFB$L_HBK        00000040            

FAB$V_ESC      = 0000001B            FTL$_LOCKFAILED= FFFFFFE7            IFB$L_IDX_PTR    00000054            

FAB$V_EXE      = 00000007            FTL$_NOASB     = FFFFFFF5            IFB$L_IOS        0000000C            

FAB$V_FTN      = 00000000            FTL$_NODIDORFID= FFFFFFEB            IFB$L_IOS4       00000010            

FAB$V_GET      = 00000001            FTL$_NOLOCKBDB = FFFFFFE9            IFB$L_IRAB_LNK   0000001C            

FAB$V_INP      = 00000013            FTL$_NONETWORK = FFFFFFE8            IFB$L_LAST_FAB   00000024            

FAB$V_JNL      = 00000016            FTL$_NONXTBDB  = FFFFFFF4            IFB$L_LOCK_BDB   00000050            

FAB$V_KFO      = 0000001E            FTL$_NOSTRUCT  = FFFFFFF6            IFB$L_MRN        00000054            

FAB$V_MSE      = 00000004            FTL$_NOTLOCKED = FFFFFFEC            IFB$L_NRP_LNK    00000050            

FAB$V_MXV      = 00000001            FTL$_RELEASFAIL= FFFFFFEA            IFB$L_NWA_PTR    00000028            

FAB$V_NAM      = 00000018            FTL$_SETPRTFAIL= FFFFFFFF            IFB$L_PRIM_DEV   00000000            

FAB$V_NEF      = 0000000A            FTL$_STKTOOBIG = FFFFFFFE            IFB$L_RLB_LNK    0000002C            

RM2CREATE       RELATIVE-SPECIFIC CREATE                         21-AUG-1978 21:51:54   VAX-11 MACRO X0.3-11               Page  11

SYMBOL TABLE                                                                                                                     (1)



IFB$L_RNS_LEN    00000050            IFB$W_LRL        0000003E            RMS$_ATW       = 0001C0D4            

IFB$M_BIO      = 00000020            IFB$W_MRS        0000004C            RMS$_BKS       = 0001841C            

IFB$M_BRO      = 00000040            IFB$W_RTDEQ      0000003A            RMS$_BKZ       = 00018424            

IFB$M_DEL      = 00000004            L$RMS20          00000000 R     04   RMS$_BLN       = 0001842C            

IFB$M_EXE      = 00000080            L$RMS21          00000008 R     04   RMS$_BOF       = 00018198            

IFB$M_GET      = 00000002            L$RMS22          0000000F R     04   RMS$_BUG       = 00018434            

IFB$M_PUT      = 00000001            L$RMS23          00000016 R     04   RMS$_BUG_DAP   = 00018444            

IFB$M_TRN      = 00000010            L$RMS24          00000029 R     04   RMS$_BUG_DDI   = 0001843C            

IFB$M_UPD      = 00000008            PIO$GL_FMLH      ********   X   02   RMS$_BUG_XX2   = 0001844C            

IFB$S_ORG      = 00000004            PLG$B_AMAX       00000067            RMS$_BUG_XX3   = 00018454            

IFB$S_RFM      = 00000004            PLG$B_AVBN       00000066            RMS$_BUG_XX4   = 0001845C            

IFB$V_ACCESSED = 00000025            PLG$B_DBKTSIZ    0000000B            RMS$_BUG_XX5   = 00018464            

IFB$V_ANSI_D   = 00000026            PLG$B_FLAGS      00000010            RMS$_BUG_XX6   = 0001846C            

IFB$V_ASYNC    = 00000023            PLG$C_BLN        00000076            RMS$_BUG_XX7   = 00018474            

IFB$V_ASYNCWAIT= 00000024            PLG$C_VER_NO   = 00000001            RMS$_BUG_XX8   = 0001847C            

IFB$V_BIO      = 00000005            PLG$K_BLN        00000076            RMS$_BUG_XX9   = 00018484            

IFB$V_BRO      = 00000006            PLG$L_EOF        00000070            RMS$_CAA       = 0001848C            

IFB$V_BUSY     = 00000020            PLG$L_MRN        0000006C            RMS$_CCF       = 0001C0DC            

IFB$V_CREATE   = 00000032            PLG$V_NOEXTEND = 00000000            RMS$_CCR       = 00018494            

IFB$V_DAP      = 0000003E            PLG$W_DVBN       00000068            RMS$_CDA       = 0001C0E4            

IFB$V_DAP_OPEN = 0000003D            PLG$W_VER_NO     00000074            RMS$_CHG       = 0001849C            

IFB$V_DEL      = 00000002            RLNERR           00000116 R     02   RMS$_CHK       = 000184A4            

IFB$V_DFW      = 0000002C            RLS$M_KEEP_ACC = 00000008            RMS$_CHN       = 0001C0EC            

IFB$V_DLT      = 0000002B            RLS$M_KEEP_LOCK= 00000004            RMS$_COD       = 000184AC            

IFB$V_DMO      = 00000028            RLS$M_RETURN   = 00000001            RMS$_CONTROLC  = 00010651            

IFB$V_EOF      = 00000021            RLS$M_WRT_THRU = 00000002            RMS$_CONTROLO  = 00010609            

IFB$V_EXE      = 00000007            RLS$V_KEEP_ACC = 00000003            RMS$_CONTROLY  = 00010611            

IFB$V_GET      = 00000001            RLS$V_KEEP_LOCK= 00000002            RMS$_CRE       = 0001C00A            

IFB$V_MSE      = 00000031            RLS$V_RETURN   = 00000000            RMS$_CREATED   = 00010619            

IFB$V_NORECLK  = 00000033            RLS$V_WRT_THRU = 00000001            RMS$_CUR       = 000184B4            

IFB$V_NSP      = 0000003F            RLSERR           00000119 R     02   RMS$_DAC       = 0001C012            

IFB$V_NWA      = 0000003C            RLSXIT           00000026 R     04   RMS$_DAN       = 000184BC            

IFB$V_ORG      = 00000004            RM$ALBDB         ********   X   02   RMS$_DEL       = 00018262            

IFB$V_PPF_IMAGE= 00000022            RM$BUG           ********   X   02   RMS$_DEV       = 000184C4            

IFB$V_PPF_INPUT= 0000002E            RM$CACHE         ********   X   02   RMS$_DIR       = 000184CC            

IFB$V_PUT      = 00000000            RM$CREATE2       00000015 RG    02   RMS$_DME       = 000184D4            

IFB$V_RFM      = 00000000            RM$CREATECOM     ********   X   02   RMS$_DNA       = 000184DC            

IFB$V_RWC      = 00000027            RM$CREATEXIT     ********   X   04   RMS$_DNF       = 0001C04A            

IFB$V_RW_ATTR  = 00000034            RM$CREATEXIT1    ********   X   02   RMS$_DNR       = 00018272            

IFB$V_SCF      = 0000002A            RM$CRE_ERRMRS    ********   X   02   RMS$_DPE       = 0001C03A            

IFB$V_SPL      = 00000029            RM$CRE_ERRRFM    ********   X   02   RMS$_DTP       = 000184E4            

IFB$V_SQO      = 0000002D            RM$CRE_ERRSHR    ********   X   02   RMS$_DUP       = 000184EC            

IFB$V_TEF      = 00000036            RM$FMT_BKT2      ********   X   02   RMS$_DVI       = 000184F4            

IFB$V_TMP      = 00000035            RM$MAKSUM        ********   X   02   RMS$_ENT       = 0001C01A            

IFB$V_TRN      = 00000004            RM$RELEASE       ********   X   02   RMS$_ENV       = 00018724            

IFB$V_UPD      = 00000003            RM$RLNERR        ********   X   04   RMS$_EOF       = 0001827A            

IFB$V_WRTACC   = 00000030            RM$SETALLOC      ********   X   02   RMS$_ESA       = 000184FC            

IFB$W_ASDEVBSIZ  0000005A            RMS$V_STVSTATUS= 0000000E            RMS$_ESL       = 00018714            

IFB$W_BKS_BYTES  0000005C            RMS$_ABO       = 000183EC            RMS$_ESS       = 00018504            

IFB$W_BKS_RECS   0000005E            RMS$_ACC       = 0001C002            RMS$_EXP       = 000182C2            

IFB$W_CHNL       00000020            RMS$_ACT       = 0001825A            RMS$_EXT       = 0001C022            

IFB$W_DEQ        0000004E            RMS$_AID       = 000183F4            RMS$_FAB       = 0001850C            

IFB$W_DEVBUFSIZ  00000038            RMS$_ALN       = 000183FC            RMS$_FAC       = 00018514            

IFB$W_EBK0       00000044            RMS$_ALQ       = 00018404            RMS$_FEX       = 00018282            

IFB$W_EBK2       00000046            RMS$_ANI       = 0001840C            RMS$_FLG       = 0001851C            

IFB$W_FFB        00000048            RMS$_AOP       = 00018414            RMS$_FLK       = 0001828A            

IFB$W_IOS2       0000000E            RMS$_ATR       = 0001C0CC            RMS$_FNA       = 00018524            

RM2CREATE       RELATIVE-SPECIFIC CREATE                         21-AUG-1978 21:51:54   VAX-11 MACRO X0.3-11               Page  12

SYMBOL TABLE                                                                                                                     (1)



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

RMS$_FNF       = 00018292            RMS$_RBF       = 00018654            

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

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

RMS$_FSZ       = 00018534            RMS$_RFA       = 0001865C            

RMS$_FUL       = 00018544            RMS$_RFM       = 00018664            

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

RMS$_IAN       = 00018554            RMS$_RLF       = 00018674            

RMS$_IBF       = 00018754            RMS$_RLK       = 000182AA            

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

RMS$_IFA       = 0001C124            RMS$_RNF       = 000182B2            

RMS$_IFI       = 00018564            RMS$_RNL       = 000181A0            

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

RMS$_IOP       = 00018574            RMS$_RPL       = 0001C104            

RMS$_IRC       = 0001857C            RMS$_RRV       = 00018684            

RMS$_ISI       = 00018584            RMS$_RSA       = 000182DA            

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

RMS$_KEY       = 00018594            RMS$_RSS       = 00018694            

RMS$_KFF       = 00018031            RMS$_RST       = 0001869C            

RMS$_KRF       = 0001859C            RMS$_RSZ       = 000186A4            

RMS$_KSZ       = 000185A4            RMS$_RTB       = 000181A8            

RMS$_LAN       = 000185AC            RMS$_SEQ       = 000186AC            

RMS$_LBL       = 000185B4            RMS$_SHR       = 000186B4            

RMS$_LNE       = 000185BC            RMS$_SIZ       = 000186BC            

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

RMS$_MBC       = 00018734            RMS$_SQO       = 000186C4            

RMS$_MKD       = 0001C032            RMS$_STALL     = 00018001            

RMS$_MRN       = 000185CC            RMS$_STK       = 000186CC            

RMS$_MRS       = 000185D4            RMS$_SUC       = 00010001            

RMS$_NAM       = 000185DC            RMS$_SUP       = 000182D2            

RMS$_NEF       = 000185E4            RMS$_SUPERSEDE = 00010631            

RMS$_NET       = 0001874C            RMS$_SYN       = 000186D4            

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

RMS$_NMF       = 000182CA            RMS$_TEMP1     = 0001826A            

RMS$_NOD       = 000185F4            RMS$_TEMP2     = 0001868C            

RMS$_NORMAL    = 00010001            RMS$_TMO       = 000181B0            

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

RMS$_OK_ALK    = 00018039            RMS$_TYP       = 000186E4            

RMS$_OK_DEL    = 00018041            RMS$_UBF       = 000186EC            

RMS$_OK_DUP    = 00018011            RMS$_USZ       = 000186F4            

RMS$_OK_IDX    = 00018019            RMS$_VER       = 000186FC            

RMS$_OK_LIM    = 00018051            RMS$_VOL       = 00018704            

RMS$_OK_RLK    = 00018021            RMS$_WBE       = 0001C12C            

RMS$_OK_RNF    = 00018049            RMS$_WER       = 0001C114            

RMS$_OK_RRV    = 00018029            RMS$_WLD       = 00018744            

RMS$_ORD       = 00018604            RMS$_WLK       = 000182BA            

RMS$_ORG       = 0001860C            RMS$_WPL       = 0001C11C            

RMS$_PBF       = 00018614            RMS$_WSF       = 0001871C            

RMS$_PENDING   = 00018009            RMS$_XAB       = 0001870C            

RMS$_PLG       = 0001861C            TPT$L_CREATE2    ********   X   02   

RMS$_PLV       = 0001872C            

RMS$_POS       = 00018624            

RMS$_PRM       = 0001862C            

RMS$_PRV       = 0001829A            

RMS$_QUO       = 00018634            

RMS$_RAB       = 0001863C            

RMS$_RAC       = 00018644            

RM2CREATE       RELATIVE-SPECIFIC CREATE                         21-AUG-1978 21:51:54   VAX-11 MACRO X0.3-11               Page  13

PROGRAM SECTION SYNOPSIS                                                                                                         (1)







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$RMSOPEN2C      0000011C      02     NOPIC   USR   CON   REL   GBL NOSHR   EXE   RD  NOWRT BYTE  

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

L$RMS2           00000030      04     NOPIC   USR   CON   REL   GBL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

9080. BYTES LEFT IN FREE MEMORY POOL.

2538. BYTES OF RECLAIMED MEMORY.

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

26 MLB DIR RDS - 982 GETS TO DEFINE 29 MACROS. 80 INTER. FILE WRITES. 

