RM0FSETI        OPEN AND CREATE COMMON SETUP                     21-AUG-1978 21:23:56   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      40  DECLARATIONS

   (1)      66  RM$FSETI  -  $OPEN AND $CREATE COMMON SETUP ROU

RM0FSETI        OPEN AND CREATE COMMON SETUP                     21-AUG-1978 21:23:56   VAX-11 MACRO X0.3-11               Page   1

010                                                                                                                              (1)



                                     0000     1 	$BEGIN RM0FSETI,010,F$RMSOPEN0,<OPEN AND CREATE COMMON SETUP>

                                     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 ;		ROUTINE TO PERFORM SETUP COMMON TO $OPEN AND $CREATE.

                                     0000    28 ;

                                     0000    29 ; ENVIRONMENT:

                                     0000    30 ;		STAR PROCESSOR RUNNING STARLET EXEC.

                                     0000    31 ;

                                     0000    32 ; AUTHOR: L F LAVERDURE,	 CREATION DATE: 4-JAN-77

                                     0000    33 ;

                                     0000    34 ; MODIFIED BY:

                                     0000    35 ;

                                     0000    36 ;	L F LAVERDURE,   10-NOV-77  12:13

                                     0000    37 ; 01	- 

                                     0000    38 ;--

RM0FSETI        OPEN AND CREATE COMMON SETUP                     21-AUG-1978 21:23:56   VAX-11 MACRO X0.3-11               Page   2

010             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 	$IFBDEF

                                     0000    49 	$FABDEF

                                     0000    50 	$IMPDEF

                                     0000    51 	$PIODEF

                                     0000    52 	$PSLDEF

                                     0000    53 	$RMSDEF

                                     0000    54 	.LIST MEB

                                     0000    55 

                                     0000    56 ;

                                     0000    57 ; EQUATED SYMBOLS:

                                     0000    58 ;

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

                                     0000    60 

                                     0000    61 ;

                                     0000    62 ; OWN STORAGE:

                                     0000    63 ;

                                     0000    64 

RM0FSETI        OPEN AND CREATE COMMON SETUP                     21-AUG-1978 21:23:56   VAX-11 MACRO X0.3-11               Page   3

010             RM$FSETI  -  $OPEN AND $CREATE COMMON SETUP ROU                                                                  (1)



                                     0000    66 	.SBTTL RM$FSETI  -  $OPEN AND $CREATE COMMON SETUP ROUTINE

                                     0000    67 ;++

                                     0000    68 ; FUNCTIONAL DESCRIPTION:

                                     0000    69 ;

                                     0000    70 ;  THIS ROUTINE CALLS RM$FABCHK TO CHECK THE BASIC PARAMETERS

                                     0000    71 ;  FOR A FAB FUNCTION,  ALLOCATES AND INITS AN IFAB, AND

                                     0000    72 ;  THEN DISPATCHES TO RM$FSET (AT ITS ALTERNATE ENTRY POINT)

                                     0000    73 ;  TO FINISH THE SETUP PROCESSING.

                                     0000    74 ;

                                     0000    75 ;

                                     0000    76 ; CALLING SEQUENCE:

                                     0000    77 ;

                                     0000    78 ;	BSBW	RM$FSETI

                                     0000    79 ;

                                     0000    80 ; INPUT PARAMETERS:

                                     0000    81 ;

                                     0000    82 ;	AP	PARAMETER LIST ADDR

                                     0000    83 ;

                                     0000    84 ; IMPLICIT INPUTS:

                                     0000    85 ;

                                     0000    86 ;	THE VARIOUS FIELDS OF THE FAB.

                                     0000    87 ;

                                     0000    88 ; OUTPUT PARAMETERS:

                                     0000    89 ;

                                     0000    90 ;	R11	IMPURE AREA ADDRESS

                                     0000    91 ;	R10	IFAB ADDRESS

                                     0000    92 ;	R9	IFAB ADDRESS

                                     0000    93 ;	R8	FAB ADDRESS

                                     0000    94 ;	R7	CALLER'S MODE

                                     0000    95 ;	R0 THRU R5 DESTROYED

                                     0000    96 ;

                                     0000    97 ; IMPLICIT OUTPUTS:

                                     0000    98 ;

                                     0000    99 ;	VARIOUS FIELDS OF THE IFAB ARE INITIALIZED AS

                                     0000   100 ;	WELL AS THE IFI, STS, AND STV FIELDS OF THE FAB.

                                     0000   101 ;

                                     0000   102 ; COMPLETION CODES:

                                     0000   103 ;

                                     0000   104 ;	NONE.  IF AN ERROR IS DETECTED, RETURNS TO USER

                                     0000   105 ;	(NOT CALLER) AFTER CLEANING UP AND RETURNING A STANDARD

                                     0000   106 ;	RMS ERROR CODE, IN PARTICULAR, DME, IFI, OR ANY OF

                                     0000   107 ;	THE CODES RETURNED BY RM$FABCHK.

                                     0000   108 ;

                                     0000   109 ; SIDE EFFECTS:

                                     0000   110 ;

                                     0000   111 ;	NONE

                                     0000   112 ;

                                     0000   113 ;--

RM0FSETI        OPEN AND CREATE COMMON SETUP                     21-AUG-1978 21:23:56   VAX-11 MACRO X0.3-11               Page   4

010             RM$FSETI  -  $OPEN AND $CREATE COMMON SETUP ROU                                                                  (1)



                                     0000   115 RM$FSETI::

                          FFFD'  30  0000   116 	BSBW	RM$FABCHK		;VALID FAB?

                                     0003   117 					;RETURNS ONLY IF O.K.

                                     0003   118 					;NOTE: SETS R11 TO IMPURE ADDR

                                     0003   119 					;	R9 TO IFI VALUE

                                     0003   120 					;	R8 TO FAB ADDR

                          74     12  0003   121 	BNEQ	ERRIFI			;ERROR IF IFI NON-ZERO

                                     0005   122 ;

                                     0005   123 ;  SO FAR, SO GOOD  -  TIME TO ALLOCATE AN IFAB

                                     0005   124 ;

                                     0005   125 ;!!!!!

                                     0005   126 ;  \MAY NEED TO ADD CODE TO SHARE A PAGE.\

                                     0005   127 ;!!!!!!

                                     0005   128 ;

                                     0005   129 ;  CHECK FOR PROCESS PERMANENT FILE SETUP, AND

                                     0005   130 ;  IF SO, SWITCH THE IMPURE AREA POINTER

                                     0005   131 ;

            68            32     E1  0005   132 	BBC	#FAB$V_PPF+FOP,(R8),10$	;BRANCH IF IMAGE I/O FILE

                          0C         0008       

            03            57     91  0009   133 	CMPB	R7,#PSL$C_USER		;ATTEMPT FROM USER MODE?

                          6E     13  000C   134 	BEQL	ERRPRV			;CAUGHT YOU!

            5B   00000000'9F     DE  000E   135 	MOVAL	@#PIO$GW_PIOIMPA,R11	;NO, SO IT'S OK - SWITCH IMPURE POINTER

                          FFE8'  30  0015   136 10$:	BSBW	RM$GET1PAG		;GO GET A FREE PAGE

            67            50     E9  0018   137 	BLBC	R0,ERROR1		;BRANCH ON FAILURE

                                     001B   138 ;

                                     001B   139 ;  SET UP THE PAGE/FILE FREE SPACE HEADER AT THE START OF THE PAGE

                                     001B   140 ;

            51            53     D0  001B   141 	MOVL	R3,R1			;SAVE ADDRESS OF PAGE

            83         08 A3     9E  001E   142 	MOVAB	8(R3),(R3)+		;SET FREE SPACE ADDRESS (FLINK)

            83         04 A3     9E  0022   143 	MOVAB	4(R3),(R3)+		; AND BLINK

            83            51     D0  0026   144 	MOVL	R1,(R3)+		;SET FREE SPACE'S F LINK

            83            51     D0  0029   145 	MOVL	R1,(R3)+		;AND ITS B LINK

            52            08     C3  002C   146 	SUBL3	#8,R2,(R3)		;AND ITS SIZE (512 BYTES)

                          63         002F       

            52            18     9A  0030   147 	MOVZBL	#IFB$C_BLN/4,R2		;BLOCK SIZE FOR IFAB

                          FFCA'  30  0033   148 	BSBW	RM$GETBLK		;GET IFAB SPACE (CAN'T FAIL)

            59            51     D0  0036   149 	MOVL	R1,R9			;SAVE IFAB ADDRESS

                                     0039   150 ;

                                     0039   151 ;  SET IFAB BID  (R9 POINTS TO IFAB)

                                     0039   152 ;

         08 A9            0B     90  0039   153 	MOVB	#IFB$C_BID,IFB$B_BID(R9)

                                     003D   154 ;

                                     003D   155 ;  INITIALIZE BDB CHAIN LIST HEADER

                                     003D   156 ;

         30 A9         30 A9     DE  003D   157 	MOVAL	IFB$L_BDB_FLNK(R9),IFB$L_BDB_FLNK(R9)

         34 A9         30 A9     DE  0042   158 	MOVAL	IFB$L_BDB_FLNK(R9),IFB$L_BDB_BLNK(R9)

                                     0047   159 ;

                                     0047   160 ;  ALLOCATE AND INITIALIZE A SLOT IN THE IFAB TABLE

                                     0047   161 ;

            55         18 AB     D0  0047   162 	MOVL	IMP$L_IFABTBL(R11),R5	;GET TABLE ADDR

                          FFB2'  30  004B   163 	BSBW	RM$GTSLT		;AND GET A SLOT

            2E            50     E9  004E   164 	BLBC	R0,ERRNOSLT		;BRANCH IF NONE

         02 A8            56     B0  0051   165 	MOVW	R6,FAB$W_IFI(R8)	;STORE IFI VALUE

                                     0055   166 	ASSUME	IMP$W_RMSSTATUS EQ 0

                                     0055   167 	ASSUME	IMP$V_IIOS EQ 0

            1E            6B     E8  0055   168 	BLBS	(R11),20$		;BRANCH IF NOT PIO SEGMENT

                                     0058   169 ;

RM0FSETI        OPEN AND CREATE COMMON SETUP                     21-AUG-1978 21:23:56   VAX-11 MACRO X0.3-11               Page   5

010             RM$FSETI  -  $OPEN AND $CREATE COMMON SETUP ROU                                                                  (1)



                                     0058   170 ;  SAVE RAT IN IFI FOR LATER INPUT TO CONNECT

                                     0058   171 ;

            16         1E A8     F0  0058   172 	INSV	FAB$B_RAT(R8),#FAB$V_PPF_RAT+<FAB$W_IFI*8>,#FAB$S_PPF_RAT,(R8)

            68            08         005C       

            68            33     E1  005E   173 	BBC	#FAB$V_INP+FOP,(R8),20$	;BRANCH IF NOT 'INPUT'

                          14         0061       

                                     0062   174 	SSB	#IFB$V_PPF_INPUT,(R9)	;SET 'INPUT' FLAG

            69            2E     E2  0062       		BBSS	#IFB$V_PPF_INPUT,(R9),30000$

                          00         0065       

                                     0066       30000$:

                                     0066   175 ;

                                     0066   176 ;  INITIALIZE THE END OF DATA SCAN STRING TO A SINGLE '$'

                                     0066   177 ;

   00000000'9F       2401 8F     B0  0066   178 	MOVW	#1+<^A/$/@8>,@#PIO$GT_ENDSTR

   00000000'9F            02     8A  006F   179 	BICB2	#1@PIO$V_EOD,@#PIO$GW_STATUS	;CLEAR 'LOOKING FOR EOD' FLAG

                          FF87'  31  0076   180 20$:	BRW	RM$FSET_ALT		;FINISH SETUP PROCESSING

RM0FSETI        OPEN AND CREATE COMMON SETUP                     21-AUG-1978 21:23:56   VAX-11 MACRO X0.3-11               Page   6

010             RM$FSETI  -  $OPEN AND $CREATE COMMON SETUP ROU                                                                  (1)



                                     0079   182 ;

                                     0079   183 ;  ERROR HANDLING

                                     0079   184 ;

                                     0079   185 ERRIFI:	$PSECT_BR	L$RMS0

                          FF84'  31  0079       		BRW	L$RMS00

                                     007C       		.SAVE

                                 00000000       		.PSECT	L$RMS0,GBL,NOWRT

                                     0000       L$RMS00:

                                     0000   186 	RMSERR	IFI			;INVALID IFI (MUST BE ZERO)

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

                          12     11  0005   187 	BRB	ERROR

                                     0007   188 	$PSECT_RESTORE

                                 0000007C       		.RESTORE

                                     007C   189 ;

                                     007C   190 ;  AN IFAB WAS ALLOCATED BUT NO IFAB TABLE SLOT  -  RETURN IFAB BLOCK

                                     007C   191 ;

                                     007C   192 ;

                                     007C   193 ;  ATTEMPT TO CREATE A PROCESS-PERMANENT FILE FROM USER MODE

                                     007C   194 ;

                                     007C   195 ERRPRV:	$PSECT_BR	L$RMS0

                          FF88'  31  007C       		BRW	L$RMS01

                                     007F       		.SAVE

                                 00000007       		.PSECT	L$RMS0,GBL,NOWRT

                                     0007       L$RMS01:

                                     0007   196 	RMSERR	PRV

            50       829A 8F     3C  0007       		MOVZWL	#<RMS$_PRV&^XFFFF>,R0

                          0B     11  000C   197 	BRB	ERROR

                                     000E   198 	$PSECT_RESTORE

                                 0000007F       		.RESTORE

                                     007F   199 ;

                                     007F   200 ERRNOSLT:

                                     007F   201 	$PSECT_BR	L$RMS0

                          FF8C'  31  007F       		BRW	L$RMS02

                                     0082       		.SAVE

                                 0000000E       		.PSECT	L$RMS0,GBL,NOWRT

                                     000E       L$RMS02:

            54            59     D0  000E   202 	MOVL	R9,R4			;IFAB ADDR

                          FFEC'  30  0011   203 	BSBW	RM$RETPAG

                                     0014   204 	RMSERR	DME			;RESTORE THE ERROR CODE

            50       84D4 8F     3C  0014       		MOVZWL	#<RMS$_DME&^XFFFF>,R0

                                     0019   205 ;

                          FFE4'  31  0019   206 ERROR:	BRW	RM$EX_NOSTR

                                     001C   207 	$PSECT_RESTORE

                                 00000082       		.RESTORE

                                     0082   208 ;

                          FF7B'  31  0082   209 ERROR1:	BRW	RM$EX_NOSTR		;GET OUT ON DME ERROR

                                     0085   210 

                                     0085   211 

                                     0085   212 	.END


RM0FSETI        OPEN AND CREATE COMMON SETUP                     21-AUG-1978 21:23:56   VAX-11 MACRO X0.3-11               Page   7

SYMBOL TABLE                                                                                                                     (1)



$$.PSECT_EP    = 00000003            FAB$M_DFW      = 00000020            FAB$V_EXE      = 00000007            

$$RMSTEST      = 0000001A            FAB$M_DLT      = 00008000            FAB$V_FTN      = 00000000            

$$RMS_PBUGCHK  = 00000010            FAB$M_DMO      = 00001000            FAB$V_GET      = 00000001            

$$RMS_TBUGCHK  = 00000008            FAB$M_ESC      = 08000000            FAB$V_INP      = 00000013            

$$RMS_UMODE    = 00000004            FAB$M_EXE      = 00000080            FAB$V_JNL      = 00000016            

BIT...         = 0001C134            FAB$M_FTN      = 00000001            FAB$V_KFO      = 0000001E            

ERRIFI           00000079 R     02   FAB$M_GET      = 00000002            FAB$V_MSE      = 00000004            

ERRNOSLT         0000007F R     02   FAB$M_INP      = 00080000            FAB$V_MXV      = 00000001            

ERROR            00000019 R     04   FAB$M_JNL      = 00400000            FAB$V_NAM      = 00000018            

ERROR1           00000082 R     02   FAB$M_KFO      = 40000000            FAB$V_NEF      = 0000000A            

ERRPRV           0000007C R     02   FAB$M_MSE      = 00000010            FAB$V_NFS      = 00000010            

FAB$B_BID        00000000            FAB$M_MXV      = 00000002            FAB$V_NIL      = 00000005            

FAB$B_BKS        0000003E            FAB$M_NAM      = 01000000            FAB$V_OFP      = 0000001D            

FAB$B_BLN        00000001            FAB$M_NEF      = 00000400            FAB$V_ORG      = 00000004            

FAB$B_DNS        00000035            FAB$M_NFS      = 00010000            FAB$V_POS      = 00000008            

FAB$B_FAC        00000016            FAB$M_NIL      = 00000020            FAB$V_PPF      = 00000012            

FAB$B_FNS        00000034            FAB$M_OFP      = 20000000            FAB$V_PPF_IND  = 0000000E            

FAB$B_FSZ        0000003F            FAB$M_POS      = 00000100            FAB$V_PPF_RAT  = 00000006            

FAB$B_ORG        0000001D            FAB$M_PPF      = 00040000            FAB$V_PRN      = 00000002            

FAB$B_RAT        0000001E            FAB$M_PPF_IND  = 00004000            FAB$V_PUT      = 00000000            

FAB$B_RFM        0000001F            FAB$M_PPF_RAT  = 00003FC0            FAB$V_RCK      = 00000017            

FAB$B_RTV        0000001C            FAB$M_PRN      = 00000004            FAB$V_RWC      = 0000000B            

FAB$B_SHR        00000017            FAB$M_PUT      = 00000001            FAB$V_RWO      = 00000007            

FAB$C_BID      = 00000003            FAB$M_RCK      = 00800000            FAB$V_SCF      = 0000000E            

FAB$C_BLN        00000050            FAB$M_RWC      = 00000800            FAB$V_SHRDEL   = 00000002            

FAB$C_FIX      = 00000001            FAB$M_RWO      = 00000080            FAB$V_SHRGET   = 00000001            

FAB$C_HSH      = 00000030            FAB$M_SCF      = 00004000            FAB$V_SHRPUT   = 00000000            

FAB$C_IDX      = 00000020            FAB$M_SHRDEL   = 00000004            FAB$V_SHRUPD   = 00000003            

FAB$C_MAXRFM   = 00000003            FAB$M_SHRGET   = 00000002            FAB$V_SPL      = 0000000D            

FAB$C_REL      = 00000010            FAB$M_SHRPUT   = 00000001            FAB$V_SQO      = 00000006            

FAB$C_RFM_DFLT = 00000002            FAB$M_SHRUPD   = 00000008            FAB$V_SUP      = 00000002            

FAB$C_SEQ      = 00000000            FAB$M_SPL      = 00002000            FAB$V_TEF      = 0000001C            

FAB$C_UDF      = 00000000            FAB$M_SQO      = 00000040            FAB$V_TMD      = 00000004            

FAB$C_VAR      = 00000002            FAB$M_SUP      = 00000004            FAB$V_TMP      = 00000003            

FAB$C_VFC      = 00000003            FAB$M_TEF      = 10000000            FAB$V_TRN      = 00000004            

FAB$K_BLN        00000050            FAB$M_TMD      = 00000010            FAB$V_UFM      = 0000001A            

FAB$L_ALQ        00000010            FAB$M_TMP      = 00000008            FAB$V_UFO      = 00000011            

FAB$L_CTX        00000018            FAB$M_TRN      = 00000010            FAB$V_UPD      = 00000003            

FAB$L_DEV        00000040            FAB$M_UFM      = 04000000            FAB$V_UPI      = 00000006            

FAB$L_DNA        00000030            FAB$M_UFO      = 00020000            FAB$V_WCK      = 00000009            

FAB$L_FNA        0000002C            FAB$M_UPD      = 00000008            FAB$W_BLS        0000003C            

FAB$L_FOP        00000004            FAB$M_UPI      = 00000040            FAB$W_DEQ        00000014            

FAB$L_JNL        00000020            FAB$M_WCK      = 00000200            FAB$W_IFI        00000002            

FAB$L_MRN        00000038            FAB$S_ORG      = 00000004            FAB$W_MRS        00000036            

FAB$L_NAM        00000028            FAB$S_PPF_RAT  = 00000008            FOP            = 00000020            

FAB$L_SDC        00000044            FAB$V_BIO      = 00000005            GBL...         = 00000000            

FAB$L_STS        00000008            FAB$V_BLK      = 00000003            IFB$B_AMAX       00000059            

FAB$L_STV        0000000C            FAB$V_BRO      = 00000006            IFB$B_AVBN       00000058            

FAB$L_XAB        00000024            FAB$V_CBT      = 00000015            IFB$B_BID        00000008            

FAB$M_BIO      = 00000020            FAB$V_CIF      = 00000019            IFB$B_BKS        0000004A            

FAB$M_BLK      = 00000008            FAB$V_CR       = 00000001            IFB$B_BLN        00000009            

FAB$M_BRO      = 00000040            FAB$V_CTG      = 00000014            IFB$B_EFN        0000000B            

FAB$M_CBT      = 00200000            FAB$V_DEL      = 00000002            IFB$B_EXTRABUF   0000005D            

FAB$M_CIF      = 02000000            FAB$V_DFW      = 00000005            IFB$B_FAC        00000022            

FAB$M_CR       = 00000002            FAB$V_DLT      = 0000000F            IFB$B_FSZ        0000004B            

FAB$M_CTG      = 00100000            FAB$V_DMO      = 0000000C            IFB$B_KBUFSZ     0000005C            

FAB$M_DEL      = 00000004            FAB$V_ESC      = 0000001B            IFB$B_MODE       0000000A            

RM0FSETI        OPEN AND CREATE COMMON SETUP                     21-AUG-1978 21:23:56   VAX-11 MACRO X0.3-11               Page   8

SYMBOL TABLE                                                                                                                     (1)



IFB$B_NUM_KEYS   0000005A            IFB$V_ASYNC    = 00000023            IMP$L_IFBTBLINK  00000024            

IFB$B_ORGCASE    00000023            IFB$V_ASYNCWAIT= 00000024            IMP$L_IOSEGADDR  00000004            

IFB$B_RAT        0000003D            IFB$V_BIO      = 00000005            IMP$L_IOSEGLEN   00000008            

IFB$B_RFMORG     0000003C            IFB$V_BRO      = 00000006            IMP$L_IRABTBL    0000001C            

IFB$B_UBUFSZ     0000005B            IFB$V_BUSY     = 00000020            IMP$L_IRBTBLINK  00000064            

IFB$C_BID      = 0000000B            IFB$V_CREATE   = 00000032            IMP$L_SAVED_SP   00000014            

IFB$C_BLN        00000060            IFB$V_DAP      = 0000003E            IMP$V_AST      = 00000001            

IFB$C_BLN_IDX    00000060            IFB$V_DAP_OPEN = 0000003D            IMP$V_IIOS     = 00000000            

IFB$C_BLN_REL    00000060            IFB$V_DEL      = 00000002            IMP$V_IORUNDOWN= 00000004            

IFB$C_BLN_SEQ    0000005C            IFB$V_DFW      = 0000002C            IMP$V_NOP0BUFS = 00000005            

IFB$C_DIR      = 00000003            IFB$V_DLT      = 0000002B            IMP$V_TEMP1    = 00000002            

IFB$C_FHAEND     00000050            IFB$V_DMO      = 00000028            IMP$V_TEMP2    = 00000003            

IFB$C_IDX      = 00000002            IFB$V_EOF      = 00000021            IMP$W_ENTPERSEG  00000020            

IFB$C_MAXORG   = 00000002            IFB$V_EXE      = 00000007            IMP$W_NUM_IFABS  00000022            

IFB$C_REL      = 00000001            IFB$V_GET      = 00000001            IMP$W_RMSSTATUS  00000000            

IFB$C_SEQ      = 00000000            IFB$V_MSE      = 00000031            L$RMS00          00000000 R     04   

IFB$K_BLN        00000060            IFB$V_NORECLK  = 00000033            L$RMS01          00000007 R     04   

IFB$K_BLN_IDX    00000060            IFB$V_NSP      = 0000003F            L$RMS02          0000000E R     04   

IFB$K_BLN_REL    00000060            IFB$V_NWA      = 0000003C            PIO$GT_ENDSTR    ********   X   02   

IFB$K_BLN_SEQ    0000005C            IFB$V_ORG      = 00000004            PIO$GW_PIOIMPA   ********   X   02   

IFB$K_FHAEND     00000050            IFB$V_PPF_IMAGE= 00000022            PIO$GW_STATUS    ********   X   02   

IFB$L_ARGLST     00000018            IFB$V_PPF_INPUT= 0000002E            PIO$V_EOD      = 00000001            

IFB$L_ASBADDR    00000014            IFB$V_PUT      = 00000000            PIO$V_INHAST   = 00000000            

IFB$L_AS_DEV     00000054            IFB$V_RFM      = 00000000            PIO$V_SYNC1    = 00000002            

IFB$L_BDB_BLNK   00000034            IFB$V_RWC      = 00000027            PIO$V_SYNC2    = 00000003            

IFB$L_BDB_FLNK   00000030            IFB$V_RW_ATTR  = 00000034            PSL$C_EXEC     = 00000001            

IFB$L_BKPBITS    00000004            IFB$V_SCF      = 0000002A            PSL$C_KERNEL   = 00000000            

IFB$L_BWB        0000000C            IFB$V_SPL      = 00000029            PSL$C_SUPER    = 00000002            

IFB$L_DVBN       00000058            IFB$V_SQO      = 0000002D            PSL$C_USER     = 00000003            

IFB$L_EBK        00000044            IFB$V_TEF      = 00000036            PSL$M_CM       = 80000000            

IFB$L_FRB_PTR    00000028            IFB$V_TMP      = 00000035            PSL$M_CURMOD   = 03000000            

IFB$L_FWA_BDB    00000050            IFB$V_TRN      = 00000004            PSL$M_DV       = 00000080            

IFB$L_HBK        00000040            IFB$V_UPD      = 00000003            PSL$M_FPD      = 08000000            

IFB$L_IDX_PTR    00000054            IFB$V_WRTACC   = 00000030            PSL$M_FU       = 00000040            

IFB$L_IOS        0000000C            IFB$W_ASDEVBSIZ  0000005A            PSL$M_IPL      = 001F0000            

IFB$L_IOS4       00000010            IFB$W_BKS_BYTES  0000005C            PSL$M_IS       = 04000000            

IFB$L_IRAB_LNK   0000001C            IFB$W_BKS_RECS   0000005E            PSL$M_IV       = 00000020            

IFB$L_LAST_FAB   00000024            IFB$W_CHNL       00000020            PSL$M_PRVMOD   = 00C00000            

IFB$L_LOCK_BDB   00000050            IFB$W_DEQ        0000004E            PSL$M_SAFBITS  = 000037FF            

IFB$L_MRN        00000054            IFB$W_DEVBUFSIZ  00000038            PSL$M_TBIT     = 00000010            

IFB$L_NRP_LNK    00000050            IFB$W_EBK0       00000044            PSL$M_TP       = 40000000            

IFB$L_NWA_PTR    00000028            IFB$W_EBK2       00000046            PSL$S_CURMOD   = 00000002            

IFB$L_PRIM_DEV   00000000            IFB$W_FFB        00000048            PSL$S_IPL      = 00000005            

IFB$L_RLB_LNK    0000002C            IFB$W_IOS2       0000000E            PSL$S_PRVMOD   = 00000002            

IFB$L_RNS_LEN    00000050            IFB$W_LRL        0000003E            PSL$V_CM       = 0000001F            

IFB$M_BIO      = 00000020            IFB$W_MRS        0000004C            PSL$V_CURMOD   = 00000018            

IFB$M_BRO      = 00000040            IFB$W_RTDEQ      0000003A            PSL$V_DV       = 00000007            

IFB$M_DEL      = 00000004            IMP$B_PROT       00000002            PSL$V_FPD      = 0000001B            

IFB$M_EXE      = 00000080            IMP$C_ASYEFN   = 0000001E            PSL$V_FU       = 00000006            

IFB$M_GET      = 00000002            IMP$C_ASYQIOEFN= 0000001F            PSL$V_IPL      = 00000010            

IFB$M_PUT      = 00000001            IMP$C_ENTPERSEG= 0000000F            PSL$V_IS       = 0000001A            

IFB$M_TRN      = 00000010            IMP$C_IOREFN   = 0000001E            PSL$V_IV       = 00000005            

IFB$M_UPD      = 00000008            IMP$C_MBXEFN   = 0000001A            PSL$V_PRVMOD   = 00000016            

IFB$S_ORG      = 00000004            IMP$C_NPIOFILES= 0000000C            PSL$V_TBIT     = 00000004            

IFB$S_RFM      = 00000004            IMP$C_SYNCEFN  = 0000001B            PSL$V_TP       = 0000001E            

IFB$V_ACCESSED = 00000025            IMP$L_FREEPGLH   0000000C            RM$EX_NOSTR      ********   X   04   

IFB$V_ANSI_D   = 00000026            IMP$L_IFABTBL    00000018            RM$FABCHK        ********   X   02   

RM0FSETI        OPEN AND CREATE COMMON SETUP                     21-AUG-1978 21:23:56   VAX-11 MACRO X0.3-11               Page   9

SYMBOL TABLE                                                                                                                     (1)



RM$FSETI         00000000 RG    02   RMS$_DUP       = 000184EC            RMS$_OK_LIM    = 00018051            

RM$FSET_ALT      ********   X   02   RMS$_DVI       = 000184F4            RMS$_OK_RLK    = 00018021            

RM$GET1PAG       ********   X   02   RMS$_ENT       = 0001C01A            RMS$_OK_RNF    = 00018049            

RM$GETBLK        ********   X   02   RMS$_ENV       = 00018724            RMS$_OK_RRV    = 00018029            

RM$GTSLT         ********   X   02   RMS$_EOF       = 0001827A            RMS$_ORD       = 00018604            

RM$RETPAG        ********   X   04   RMS$_ESA       = 000184FC            RMS$_ORG       = 0001860C            

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

RM0FSETI        OPEN AND CREATE COMMON SETUP                     21-AUG-1978 21:23:56   VAX-11 MACRO X0.3-11               Page  10

SYMBOL TABLE                                                                                                                     (1)



RMS$_VOL       = 00018704            

RMS$_WBE       = 0001C12C            

RMS$_WER       = 0001C114            

RMS$_WLD       = 00018744            

RMS$_WLK       = 000182BA            

RMS$_WPL       = 0001C11C            

RMS$_WSF       = 0001871C            

RMS$_XAB       = 0001870C            





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

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

L$RMS0           0000001C      04     NOPIC   USR   CON   REL   GBL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

12124. BYTES LEFT IN FREE MEMORY POOL.

2784. BYTES OF RECLAIMED MEMORY.

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

28 MLB DIR RDS - 834 GETS TO DEFINE 23 MACROS. 63 INTER. FILE WRITES. 

