RM1OPEN         SEQUENTIAL-SPECIFIC OPEN                         21-AUG-1978 21:43:42   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      44  DECLARATIONS

   (1)      68  RM$OPEN1  -  SEQUENTIAL OPEN ROUTINE

RM1OPEN         SEQUENTIAL-SPECIFIC OPEN                         21-AUG-1978 21:43:42   VAX-11 MACRO X0.3-11               Page   1

012                                                                                                                              (1)



                                     0000     1 	$BEGIN RM1OPEN,012,F$RMSOPEN1,<SEQUENTIAL-SPECIFIC OPEN>

                                     0000     2 

                                     0000     3 

                                     0000     4 ;

                                     0000     5 ; COPYRIGHT (C) 1977, 1978

                                     0000     6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754

                                     0000     7 ;

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

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

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

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

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

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

                                     0000    14 ; REMAIN IN DEC.

                                     0000    15 ;

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

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

                                     0000    18 ; CORPORATION.

                                     0000    19 ;

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

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

                                     0000    22 

                                     0000    23 ;++

                                     0000    24 ; FACILITY: RMS32

                                     0000    25 ;

                                     0000    26 ; ABSTRACT:

                                     0000    27 ;

                                     0000    28 ;  THIS ROUTINE PERFORMS THE SEQUENTIAL FILE ORGANIZATION-

                                     0000    29 ;  SPECIFIC OPEN PROCESSING.

                                     0000    30 ;

                                     0000    31 ; ENVIRONMENT:

                                     0000    32 ;		STAR PROCESSOR RUNNING STARLET EXEC.

                                     0000    33 ;

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

                                     0000    35 ;

                                     0000    36 ; MODIFIED BY:

                                     0000    37 ;

                                     0000    38 ;	R A NEWELL,      16-AUG-78  15:29	; PRESERVE 'BLK' RAT BIT ON MAGTAPE

                                     0000    39 ;	L F LAVERDURE,   8-MAY-78  13:35

                                     0000    40 ;	J A KRYCKA,	 10-APR-78  10:00

                                     0000    41 ; 01	- 

                                     0000    42 ;--

RM1OPEN         SEQUENTIAL-SPECIFIC OPEN                         21-AUG-1978 21:43:42   VAX-11 MACRO X0.3-11               Page   2

012             DECLARATIONS                                                                                                     (1)



                                     0000    44 	.SBTTL	DECLARATIONS

                                     0000    45 ;

                                     0000    46 ; INCLUDE FILES:

                                     0000    47 ;

                                     0000    48 

                                     0000    49 ;

                                     0000    50 ; MACROS:

                                     0000    51 ;

                                     0000    52 	$FABDEF

                                     0000    53 	$DEVDEF

                                     0000    54 	$IFBDEF

                                     0000    55 	$RMSDEF

                                     0000    56 	.LIST MEB

                                     0000    57 

                                     0000    58 ;

                                     0000    59 ; EQUATED SYMBOLS:

                                     0000    60 ;

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

                                     0000    62 

                                     0000    63 ;

                                     0000    64 ; OWN STORAGE:

                                     0000    65 ;

                                     0000    66 

RM1OPEN         SEQUENTIAL-SPECIFIC OPEN                         21-AUG-1978 21:43:42   VAX-11 MACRO X0.3-11               Page   3

012             RM$OPEN1  -  SEQUENTIAL OPEN ROUTINE                                                                             (1)



                                     0000    68 	.SBTTL RM$OPEN1  -  SEQUENTIAL OPEN ROUTINE

                                     0000    69 

                                     0000    70 ;++

                                     0000    71 ; FUNCTIONAL DESCRIPTION:

                                     0000    72 ;

                                     0000    73 ;  THIS ROUTINE PERFORMS ALL OF THE FILE OPEN FUNCTIONS

                                     0000    74 ;  THAT ARE SPECIFIC TO THE SEQUENTIAL FILE ORGANIZATION,

                                     0000    75 ;  INCLUDING:

                                     0000    76 ;

                                     0000    77 ;	1. CHECKING THAT WRITE-SHARING HAS NOT BEEN SPECIFIED

                                     0000    78 ;	2. FORCING VAR LENGTH AND RAT=FAB$B_RAT FOR UNIT RECORD DEVICES

                                     0000    79 ;	3. SETTING THE BLS FIELD OF THE FAB TO THE DEVICE BUFFER SIZE

                                     0000    80 ;	4. PERFORMING MAGTAPE FILE POSITIONING

                                     0000    81 ;	5. SETTING THE TWO CLOSE OPTION BITS AS REQUIRED

                                     0000    82 ;	6. RETURNING TO THE COMMON OPEN ROUTINE

                                     0000    83 ;

                                     0000    84 ; CALLING SEQUENCE:

                                     0000    85 ;

                                     0000    86 ;  ENTERED VIA CASE BRANCH FROM RMS$OPEN

                                     0000    87 ;  RETURNS BY JUMPING TO RM$COPRTN

                                     0000    88 ;

                                     0000    89 ; INPUT PARAMETERS:

                                     0000    90 ;

                                     0000    91 ;	R11	IMPURE AREA ADDRESS

                                     0000    92 ;	R9	IFAB ADDRESS

                                     0000    93 ;	R8	FAB ADDRESS

                                     0000    94 ;

                                     0000    95 ; IMPLICIT INPUTS:

                                     0000    96 ;

                                     0000    97 ;	THE CONTENTS OF THE FAB

                                     0000    98 ;

                                     0000    99 ; OUTPUT PARAMETERS:

                                     0000   100 ;

                                     0000   101 ;	R0	STATUS CODE

                                     0000   102 ;	R1 THRU R5 DESTROYED

                                     0000   103 ;

                                     0000   104 ; IMPLICIT OUTPUTS:

                                     0000   105 ;

                                     0000   106 ;	VARIOUS FIELDS IN THE IFAB AND FAB ARE INITIALIZED

                                     0000   107 ;

                                     0000   108 ; COMPLETION CODES:

                                     0000   109 ;

                                     0000   110 ;	STANDARD RMS IN PARTICULAR, SUCCESS AND SHR.

                                     0000   111 ;

                                     0000   112 ; SIDE EFFECTS:

                                     0000   113 ;

                                     0000   114 ;	NONE

                                     0000   115 ;

                                     0000   116 ;--

RM1OPEN         SEQUENTIAL-SPECIFIC OPEN                         21-AUG-1978 21:43:42   VAX-11 MACRO X0.3-11               Page   4

012             RM$OPEN1  -  SEQUENTIAL OPEN ROUTINE                                                                             (1)



                                     0000   118 RM$OPEN1::

                                     0000   119 	$TSTPT	OPEN1

                 00000200'9F     D6  0000       		INCL	@#PIO$GL_FMLH+512+TPT$L_OPEN1

                                     0006   120 ;

                                     0006   121 ;  CHECK THAT RECORD LOCKING NOT REQUIRED

                                     0006   122 ;

            69            33     E0  0006   123 	BBS	#IFB$V_NORECLK,(R9),2$		;BRANCH IF NO LOCKING REQUIRED

                          05         0009       

         17 A8            06     E1  000A   124 	BBC	#FAB$V_UPI,FAB$B_SHR(R8),ERRSHR	;ERROR UNLESS USER PROVIDING

                          69         000E       

                                     000F   125 						; OWN INTERLOCKING

                                     000F   126 2$:

                                     000F   127 ;

                                     000F   128 ;  IF A UNIT RECORD DEVICE, FORCE VARIABLE LENGTH RECORD FORMAT

                                     000F   129 ;  AND RECORD ATTRIBUTES FROM FAB

                                     000F   130 ;

                                     000F   131 	ASSUME	FAB$C_SEQ EQ 0

                                     000F   132 	ASSUME	DEV$V_REC EQ 0

            2C            69     E9  000F   133 	BLBC	IFB$L_PRIM_DEV(R9),10$		;BRANCH IF NOT UNIT REC.

         3C A9            02     90  0012   134 	MOVB	#FAB$C_VAR,IFB$B_RFMORG(R9)	;FORCE TO VARIABLE

         3D A9         1E A8     90  0016   135 	MOVB	FAB$B_RAT(R8),IFB$B_RAT(R9)	;AND SET RAT FROM FAB

         1E A8         F8 8F     8B  001B   136 	BICB3	#255 \ <FAB$M_CR!FAB$M_FTN!FAB$M_PRN>,FAB$B_RAT(R8),R1

                          51         0020       

                                     0021   137 						;CLEAR ALL BIT CARRIAGE CONTROL

                          1B     13  0021   138 	BEQL	10$				;BRANCH IF NONE SPECED

            51            02     E1  0023   139 	BBC	#FAB$V_PRN,R1,3$		;BRANCH IF PRN NOT SPECED

                          0A         0026       

            03         1F A8     91  0027   140 	CMPB	FAB$B_RFM(R8),#FAB$C_VFC	;RFM = VFC?

                          4E     12  002B   141 	BNEQ	ERRRAT				;BRANCH IF NOT

         3C A9            03     90  002D   142 	MOVB	#FAB$C_VFC,IFB$B_RFMORG(R9)	;CHANGE RFM TO VFC

                                     0031   143 	ASSUME 	FAB$V_FTN EQ FAB$V_CR-1

                                     0031   144 	ASSUME	FAB$V_PRN EQ FAB$V_CR+1

            03            00     EA  0031   145 3$:	FFS	#FAB$V_FTN,#3,R1,R0		;FIND THE FIRST BIT SET

            50            51         0034       

                                     0036   146 	CSB	R0,R1				;TURN IT OFF

            51            50     E5  0036       		BBCC	R0,R1,30000$

                          00         0039       

                                     003A       30000$:

                          51     95  003A   147 	TSTB	R1				;ANOTHER BIT SET

                          3D     12  003C   148 	BNEQ	ERRRAT				;BRANCH IF SO

                                     003E   149 ;

                                     003E   150 ;  SET BLS EQUAL TO DEVICE BUFFER SIZE

                                     003E   151 ;

         3C A8         5A A9     B0  003E   152 10$:	MOVW	IFB$W_ASDEVBSIZ(R9),FAB$W_BLS(R8)

            69            06     E0  0043   153 	BBS	#DEV$V_SPL,IFB$L_PRIM_DEV(R9),15$	; BRANCH IF DEVICE SPOOLED

                          05         0046       

         3C A8         38 A9     B0  0047   154 	MOVW	IFB$W_DEVBUFSIZ(R9),FAB$W_BLS(R8)	; ELSE RETURN REAL BLOCK SIZE

                                     004C   155 15$:

                                     004C   156 ;

                                     004C   157 ;  IF DEVICE IS MAGTAPE, THEN ASSUME EOF AT MAX VBN, BYTE 0

                                     004C   158 ;  UNLESS FILE IS WRITE ACCESSED, IN WHICH CASE 

                                     004C   159 ;	LOOK AT NEF AND IF CLEAR THEN SET "AT EOF" FLAG

                                     004C   160 ;		AND DECLARE EOF TO BE AT VBN 1, BYTE 0

                                     004C   161 ;	ELSE UTILIZE SAME POSITIONING AS FOR READ ACCESS.

                                     004C   162 ;

            69            05     E1  004C   163 	BBC	#DEV$V_SQD,IFB$L_PRIM_DEV(R9),50$	;BRANCH IF NOT MAGTAPE

                          1B         004F       

RM1OPEN         SEQUENTIAL-SPECIFIC OPEN                         21-AUG-1978 21:43:42   VAX-11 MACRO X0.3-11               Page   5

012             RM$OPEN1  -  SEQUENTIAL OPEN ROUTINE                                                                             (1)



         44 A9            01     CE  0050   164 	MNEGL	#1,IFB$L_EBK(R9)		;ASSUME NOT WRITE ACCESSED

            69            30     E1  0054   165 	BBC	#IFB$V_WRTACC,(R9),20$		;BRANCH IF TRUE

                          0C         0057       

            68            2A     E0  0058   166 	BBS	#FAB$V_NEF+FOP,(R8),20$		;OR IF NEF SET

                          08         005B       

         44 A9            01     D0  005C   167 	MOVL	#1,IFB$L_EBK(R9)		;SET EOF TO VBN 1

                                     0060   168 	SSB	#IFB$V_EOF,(R9)			;AND SET AT EOF FLG

            69            21     E2  0060       		BBSS	#IFB$V_EOF,(R9),30001$

                          00         0063       

                                     0064       30001$:

                       48 A9     B4  0064   169 20$:	CLRW	IFB$W_FFB(R9)			;ALWAYS USE BYTE 0 FOR MT

                                     0067   170 	SSB	#IFB$V_ANSI_D,(R9)		;SET ANSI FLAG

            69            26     E2  0067       		BBSS	#IFB$V_ANSI_D,(R9),30002$

                          00         006A       

                                     006B       30002$:

                                     006B   171 ;

                                     006B   172 ;  RETURN TO COMMON OPEN SEQUENCE

                                     006B   173 ;

            69            3E     E0  006B   174 50$:	BBS	#IFB$V_DAP,(R9),NTOPEN		; BRANCH IF NETWORK FILE OPEN

                          06         006E       

                                     006F   175 						; NOTE: NOT TASK-TO-TASK OPEN

                                     006F   176 	RMSSUC					; SHOW SUCCESS

            50            01     D0  006F       		MOVL	#1,R0

                          FF8B'  31  0072   177 OPNRET:	BRW	RM$COPRTN

                                     0075   178 

                                     0075   179 ;++

                                     0075   180 ;

                                     0075   181 ;  PERFFORM NETWORK OPEN FUNCTION

                                     0075   182 ;

                                     0075   183 ;--

                                     0075   184 NTOPEN:	$PSECT_BR	NF$NETWORK

                          FF88'  31  0075       		BRW	NF$NETWORK0

                                     0078       		.SAVE

                                 00000000       		.PSECT	NF$NETWORK,GBL,NOWRT

                                     0000       NF$NETWORK0:

                                     0000   185 ;

                                     0000   186 ;  COPY RECORD FORMAT FROM FAB TO IFAB. THIS IS TO COUNTER-ACT THE

                                     0000   187 ;  ABOVE FORCE OF VARIABLE LENGTH IF DEVICE IS RECORD ORIENTED.

                                     0000   188 ;

         3C A9         1F A8     90  0000   189 	MOVB	FAB$B_RFM(R8),IFB$B_RFMORG(R9)

                          FFF8'  30  0005   190 	BSBW	NT$OPEN1		; OPEN FILE ON REMOTE NODE

                          FFF5'  31  0008   191 	BRW	RM$COPRTN		; JOIN COMMON CODE

                                     000B   192 	$PSECT_RESTORE

                                 00000078       		.RESTORE

                                     0078   193 

                                     0078   194 ;

                                     0078   195 ;  WRITE SHARING SPECIFIED ON SEQUENTIAL FILE

                                     0078   196 ;  -  RETURN WITH ERROR CODE

                                     0078   197 ;

                                     0078   198 ERRSHR:	$PSECT_BR	L$RMS1

                          FF85'  31  0078       		BRW	L$RMS11

                                     007B       		.SAVE

                                 00000000       		.PSECT	L$RMS1,GBL,NOWRT

                                     0000       L$RMS11:

                                     0000   199 	RMSERR	SHR

            50       86B4 8F     3C  0000       		MOVZWL	#<RMS$_SHR&^XFFFF>,R0

                          05     11  0005   200 	BRB	OPNRET1

RM1OPEN         SEQUENTIAL-SPECIFIC OPEN                         21-AUG-1978 21:43:42   VAX-11 MACRO X0.3-11               Page   6

012             RM$OPEN1  -  SEQUENTIAL OPEN ROUTINE                                                                             (1)



                                     0007   201 	$PSECT_RESTORE

                                 0000007B       		.RESTORE

                                     007B   202 ;

                                     007B   203 ERRRAT:	$PSECT_BR	L$RMS1

                          FF89'  31  007B       		BRW	L$RMS12

                                     007E       		.SAVE

                                 00000007       		.PSECT	L$RMS1,GBL,NOWRT

                                     0007       L$RMS12:

                                     0007   204 	RMSERR	RAT			;INVALID RAT VALUE

            50       864C 8F     3C  0007       		MOVZWL	#<RMS$_RAT&^XFFFF>,R0

                          FFF1'  31  000C   205 OPNRET1:	BRW	RM$COPRTN	; AND GET OUT

                                     000F   206 	$PSECT_RESTORE

                                 0000007E       		.RESTORE

                                     007E   207 

                                     007E   208 

                                     007E   209 

                                     007E   210 	.END

RM1OPEN         SEQUENTIAL-SPECIFIC OPEN                         21-AUG-1978 21:43:42   VAX-11 MACRO X0.3-11               Page   7

SYMBOL TABLE                                                                                                                     (1)



$$.PSECT_EP    = 00000003            ERRSHR           00000078 R     02   FAB$M_MSE      = 00000010            

$$RMSTEST      = 0000001A            FAB$B_BID        00000000            FAB$M_MXV      = 00000002            

$$RMS_PBUGCHK  = 00000010            FAB$B_BKS        0000003E            FAB$M_NAM      = 01000000            

$$RMS_TBUGCHK  = 00000008            FAB$B_BLN        00000001            FAB$M_NEF      = 00000400            

$$RMS_UMODE    = 00000004            FAB$B_DNS        00000035            FAB$M_NFS      = 00010000            

BIT...         = 0001C134            FAB$B_FAC        00000016            FAB$M_NIL      = 00000020            

DEV$M_ALL      = 00800000            FAB$B_FNS        00000034            FAB$M_OFP      = 20000000            

DEV$M_AVL      = 00040000            FAB$B_FSZ        0000003F            FAB$M_POS      = 00000100            

DEV$M_CCL      = 00000002            FAB$B_ORG        0000001D            FAB$M_PPF      = 00040000            

DEV$M_DIR      = 00000008            FAB$B_RAT        0000001E            FAB$M_PPF_IND  = 00004000            

DEV$M_DMT      = 00200000            FAB$B_RFM        0000001F            FAB$M_PPF_RAT  = 00003FC0            

DEV$M_ELG      = 00400000            FAB$B_RTV        0000001C            FAB$M_PRN      = 00000004            

DEV$M_FOD      = 00004000            FAB$B_SHR        00000017            FAB$M_PUT      = 00000001            

DEV$M_FOR      = 01000000            FAB$C_BID      = 00000003            FAB$M_RCK      = 00800000            

DEV$M_GEN      = 00020000            FAB$C_BLN        00000050            FAB$M_RWC      = 00000800            

DEV$M_IDV      = 04000000            FAB$C_FIX      = 00000001            FAB$M_RWO      = 00000080            

DEV$M_MBX      = 00100000            FAB$C_HSH      = 00000030            FAB$M_SCF      = 00004000            

DEV$M_MNT      = 00080000            FAB$C_IDX      = 00000020            FAB$M_SHRDEL   = 00000004            

DEV$M_NET      = 00002000            FAB$C_MAXRFM   = 00000003            FAB$M_SHRGET   = 00000002            

DEV$M_ODV      = 08000000            FAB$C_REL      = 00000010            FAB$M_SHRPUT   = 00000001            

DEV$M_RCK      = 40000000            FAB$C_RFM_DFLT = 00000002            FAB$M_SHRUPD   = 00000008            

DEV$M_REC      = 00000001            FAB$C_SEQ      = 00000000            FAB$M_SPL      = 00002000            

DEV$M_RND      = 10000000            FAB$C_UDF      = 00000000            FAB$M_SQO      = 00000040            

DEV$M_RTM      = 20000000            FAB$C_VAR      = 00000002            FAB$M_SUP      = 00000004            

DEV$M_SDI      = 00000010            FAB$C_VFC      = 00000003            FAB$M_TEF      = 10000000            

DEV$M_SHR      = 00010000            FAB$K_BLN        00000050            FAB$M_TMD      = 00000010            

DEV$M_SPL      = 00000040            FAB$L_ALQ        00000010            FAB$M_TMP      = 00000008            

DEV$M_SQD      = 00000020            FAB$L_CTX        00000018            FAB$M_TRN      = 00000010            

DEV$M_SWL      = 02000000            FAB$L_DEV        00000040            FAB$M_UFM      = 04000000            

DEV$M_TRM      = 00000004            FAB$L_DNA        00000030            FAB$M_UFO      = 00020000            

DEV$M_WCK      = 80000000            FAB$L_FNA        0000002C            FAB$M_UPD      = 00000008            

DEV$V_ALL      = 00000017            FAB$L_FOP        00000004            FAB$M_UPI      = 00000040            

DEV$V_AVL      = 00000012            FAB$L_JNL        00000020            FAB$M_WCK      = 00000200            

DEV$V_CCL      = 00000001            FAB$L_MRN        00000038            FAB$S_ORG      = 00000004            

DEV$V_DIR      = 00000003            FAB$L_NAM        00000028            FAB$S_PPF_RAT  = 00000008            

DEV$V_DMT      = 00000015            FAB$L_SDC        00000044            FAB$V_BIO      = 00000005            

DEV$V_ELG      = 00000016            FAB$L_STS        00000008            FAB$V_BLK      = 00000003            

DEV$V_FOD      = 0000000E            FAB$L_STV        0000000C            FAB$V_BRO      = 00000006            

DEV$V_FOR      = 00000018            FAB$L_XAB        00000024            FAB$V_CBT      = 00000015            

DEV$V_GEN      = 00000011            FAB$M_BIO      = 00000020            FAB$V_CIF      = 00000019            

DEV$V_IDV      = 0000001A            FAB$M_BLK      = 00000008            FAB$V_CR       = 00000001            

DEV$V_MBX      = 00000014            FAB$M_BRO      = 00000040            FAB$V_CTG      = 00000014            

DEV$V_MNT      = 00000013            FAB$M_CBT      = 00200000            FAB$V_DEL      = 00000002            

DEV$V_NET      = 0000000D            FAB$M_CIF      = 02000000            FAB$V_DFW      = 00000005            

DEV$V_ODV      = 0000001B            FAB$M_CR       = 00000002            FAB$V_DLT      = 0000000F            

DEV$V_RCK      = 0000001E            FAB$M_CTG      = 00100000            FAB$V_DMO      = 0000000C            

DEV$V_REC      = 00000000            FAB$M_DEL      = 00000004            FAB$V_ESC      = 0000001B            

DEV$V_RND      = 0000001C            FAB$M_DFW      = 00000020            FAB$V_EXE      = 00000007            

DEV$V_RTM      = 0000001D            FAB$M_DLT      = 00008000            FAB$V_FTN      = 00000000            

DEV$V_SDI      = 00000004            FAB$M_DMO      = 00001000            FAB$V_GET      = 00000001            

DEV$V_SHR      = 00000010            FAB$M_ESC      = 08000000            FAB$V_INP      = 00000013            

DEV$V_SPL      = 00000006            FAB$M_EXE      = 00000080            FAB$V_JNL      = 00000016            

DEV$V_SQD      = 00000005            FAB$M_FTN      = 00000001            FAB$V_KFO      = 0000001E            

DEV$V_SWL      = 00000019            FAB$M_GET      = 00000002            FAB$V_MSE      = 00000004            

DEV$V_TRM      = 00000002            FAB$M_INP      = 00080000            FAB$V_MXV      = 00000001            

DEV$V_WCK      = 0000001F            FAB$M_JNL      = 00400000            FAB$V_NAM      = 00000018            

ERRRAT           0000007B R     02   FAB$M_KFO      = 40000000            FAB$V_NEF      = 0000000A            

RM1OPEN         SEQUENTIAL-SPECIFIC OPEN                         21-AUG-1978 21:43:42   VAX-11 MACRO X0.3-11               Page   8

SYMBOL TABLE                                                                                                                     (1)



FAB$V_NFS      = 00000010            IFB$C_DIR      = 00000003            IFB$V_DLT      = 0000002B            

FAB$V_NIL      = 00000005            IFB$C_FHAEND     00000050            IFB$V_DMO      = 00000028            

FAB$V_OFP      = 0000001D            IFB$C_IDX      = 00000002            IFB$V_EOF      = 00000021            

FAB$V_ORG      = 00000004            IFB$C_MAXORG   = 00000002            IFB$V_EXE      = 00000007            

FAB$V_POS      = 00000008            IFB$C_REL      = 00000001            IFB$V_GET      = 00000001            

FAB$V_PPF      = 00000012            IFB$C_SEQ      = 00000000            IFB$V_MSE      = 00000031            

FAB$V_PPF_IND  = 0000000E            IFB$K_BLN        00000060            IFB$V_NORECLK  = 00000033            

FAB$V_PPF_RAT  = 00000006            IFB$K_BLN_IDX    00000060            IFB$V_NSP      = 0000003F            

FAB$V_PRN      = 00000002            IFB$K_BLN_REL    00000060            IFB$V_NWA      = 0000003C            

FAB$V_PUT      = 00000000            IFB$K_BLN_SEQ    0000005C            IFB$V_ORG      = 00000004            

FAB$V_RCK      = 00000017            IFB$K_FHAEND     00000050            IFB$V_PPF_IMAGE= 00000022            

FAB$V_RWC      = 0000000B            IFB$L_ARGLST     00000018            IFB$V_PPF_INPUT= 0000002E            

FAB$V_RWO      = 00000007            IFB$L_ASBADDR    00000014            IFB$V_PUT      = 00000000            

FAB$V_SCF      = 0000000E            IFB$L_AS_DEV     00000054            IFB$V_RFM      = 00000000            

FAB$V_SHRDEL   = 00000002            IFB$L_BDB_BLNK   00000034            IFB$V_RWC      = 00000027            

FAB$V_SHRGET   = 00000001            IFB$L_BDB_FLNK   00000030            IFB$V_RW_ATTR  = 00000034            

FAB$V_SHRPUT   = 00000000            IFB$L_BKPBITS    00000004            IFB$V_SCF      = 0000002A            

FAB$V_SHRUPD   = 00000003            IFB$L_BWB        0000000C            IFB$V_SPL      = 00000029            

FAB$V_SPL      = 0000000D            IFB$L_DVBN       00000058            IFB$V_SQO      = 0000002D            

FAB$V_SQO      = 00000006            IFB$L_EBK        00000044            IFB$V_TEF      = 00000036            

FAB$V_SUP      = 00000002            IFB$L_FRB_PTR    00000028            IFB$V_TMP      = 00000035            

FAB$V_TEF      = 0000001C            IFB$L_FWA_BDB    00000050            IFB$V_TRN      = 00000004            

FAB$V_TMD      = 00000004            IFB$L_HBK        00000040            IFB$V_UPD      = 00000003            

FAB$V_TMP      = 00000003            IFB$L_IDX_PTR    00000054            IFB$V_WRTACC   = 00000030            

FAB$V_TRN      = 00000004            IFB$L_IOS        0000000C            IFB$W_ASDEVBSIZ  0000005A            

FAB$V_UFM      = 0000001A            IFB$L_IOS4       00000010            IFB$W_BKS_BYTES  0000005C            

FAB$V_UFO      = 00000011            IFB$L_IRAB_LNK   0000001C            IFB$W_BKS_RECS   0000005E            

FAB$V_UPD      = 00000003            IFB$L_LAST_FAB   00000024            IFB$W_CHNL       00000020            

FAB$V_UPI      = 00000006            IFB$L_LOCK_BDB   00000050            IFB$W_DEQ        0000004E            

FAB$V_WCK      = 00000009            IFB$L_MRN        00000054            IFB$W_DEVBUFSIZ  00000038            

FAB$W_BLS        0000003C            IFB$L_NRP_LNK    00000050            IFB$W_EBK0       00000044            

FAB$W_DEQ        00000014            IFB$L_NWA_PTR    00000028            IFB$W_EBK2       00000046            

FAB$W_IFI        00000002            IFB$L_PRIM_DEV   00000000            IFB$W_FFB        00000048            

FAB$W_MRS        00000036            IFB$L_RLB_LNK    0000002C            IFB$W_IOS2       0000000E            

FOP            = 00000020            IFB$L_RNS_LEN    00000050            IFB$W_LRL        0000003E            

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

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

IFB$B_AVBN       00000058            IFB$M_DEL      = 00000004            L$RMS11          00000000 R     05   

IFB$B_BID        00000008            IFB$M_EXE      = 00000080            L$RMS12          00000007 R     05   

IFB$B_BKS        0000004A            IFB$M_GET      = 00000002            NF$NETWORK0      00000000 R     04   

IFB$B_BLN        00000009            IFB$M_PUT      = 00000001            NT$OPEN1         ********   X   04   

IFB$B_EFN        0000000B            IFB$M_TRN      = 00000010            NTOPEN           00000075 R     02   

IFB$B_EXTRABUF   0000005D            IFB$M_UPD      = 00000008            OPNRET           00000072 R     02   

IFB$B_FAC        00000022            IFB$S_ORG      = 00000004            OPNRET1          0000000C R     05   

IFB$B_FSZ        0000004B            IFB$S_RFM      = 00000004            PIO$GL_FMLH      ********   X   02   

IFB$B_KBUFSZ     0000005C            IFB$V_ACCESSED = 00000025            RM$COPRTN        ********   X   02   

IFB$B_MODE       0000000A            IFB$V_ANSI_D   = 00000026            RM$OPEN1         00000000 RG    02   

IFB$B_NUM_KEYS   0000005A            IFB$V_ASYNC    = 00000023            RMS$V_STVSTATUS= 0000000E            

IFB$B_ORGCASE    00000023            IFB$V_ASYNCWAIT= 00000024            RMS$_ABO       = 000183EC            

IFB$B_RAT        0000003D            IFB$V_BIO      = 00000005            RMS$_ACC       = 0001C002            

IFB$B_RFMORG     0000003C            IFB$V_BRO      = 00000006            RMS$_ACT       = 0001825A            

IFB$B_UBUFSZ     0000005B            IFB$V_BUSY     = 00000020            RMS$_AID       = 000183F4            

IFB$C_BID      = 0000000B            IFB$V_CREATE   = 00000032            RMS$_ALN       = 000183FC            

IFB$C_BLN        00000060            IFB$V_DAP      = 0000003E            RMS$_ALQ       = 00018404            

IFB$C_BLN_IDX    00000060            IFB$V_DAP_OPEN = 0000003D            RMS$_ANI       = 0001840C            

IFB$C_BLN_REL    00000060            IFB$V_DEL      = 00000002            RMS$_AOP       = 00018414            

IFB$C_BLN_SEQ    0000005C            IFB$V_DFW      = 0000002C            RMS$_ATR       = 0001C0CC            

RM1OPEN         SEQUENTIAL-SPECIFIC OPEN                         21-AUG-1978 21:43:42   VAX-11 MACRO X0.3-11               Page   9

SYMBOL TABLE                                                                                                                     (1)



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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

RMS$_ENV       = 00018724            RMS$_OK_RRV    = 00018029            RMS$_WLD       = 00018744            

RMS$_EOF       = 0001827A            RMS$_ORD       = 00018604            RMS$_WLK       = 000182BA            

RMS$_ESA       = 000184FC            RMS$_ORG       = 0001860C            RMS$_WPL       = 0001C11C            

RMS$_ESL       = 00018714            RMS$_PBF       = 00018614            RMS$_WSF       = 0001871C            

RMS$_ESS       = 00018504            RMS$_PENDING   = 00018009            RMS$_XAB       = 0001870C            

RMS$_EXP       = 000182C2            RMS$_PLG       = 0001861C            TPT$L_OPEN1      ********   X   02   

RMS$_EXT       = 0001C022            RMS$_PLV       = 0001872C            

RMS$_FAB       = 0001850C            RMS$_POS       = 00018624            

RMS$_FAC       = 00018514            RMS$_PRM       = 0001862C            

RMS$_FEX       = 00018282            RMS$_PRV       = 0001829A            

RMS$_FLG       = 0001851C            RMS$_QUO       = 00018634            

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

RMS$_FNA       = 00018524            RMS$_RAC       = 00018644            

RM1OPEN         SEQUENTIAL-SPECIFIC OPEN                         21-AUG-1978 21:43:42   VAX-11 MACRO X0.3-11               Page  10

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

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

NF$NETWORK       0000000B      04     NOPIC   USR   CON   REL   GBL NOSHR   EXE   RD  NOWRT BYTE  

L$RMS1           0000000F      05     NOPIC   USR   CON   REL   GBL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

12138. BYTES LEFT IN FREE MEMORY POOL.

2792. BYTES OF RECLAIMED MEMORY.

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

26 MLB DIR RDS - 798 GETS TO DEFINE 24 MACROS. 62 INTER. FILE WRITES. 

