RM2CONN         RELATIVE-SPECIFIC CONNECT                        21-AUG-1978 21:51:06   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      43  DECLARATIONS

   (1)      67  RM$CONNECT2  -  RELATIVE-SPECIFIC CONNECT ROUTI

RM2CONN         RELATIVE-SPECIFIC CONNECT                        21-AUG-1978 21:51:06   VAX-11 MACRO X0.3-11               Page   1

008                                                                                                                              (1)



                                     0000     1 	$BEGIN	RM2CONN,008,F$RMSOPEN2,<RELATIVE-SPECIFIC CONNECT>

                                     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 ;	ROUTINE TO PERFORM RELATIVE FILE ORGANIZATION SPECIFIC

                                     0000    28 ;	CONNECT STREAM PROCESSING.

                                     0000    29 ;

                                     0000    30 ; ENVIRONMENT:

                                     0000    31 ;		STAR PROCESSOR RUNNING STARLET EXEC.

                                     0000    32 ;

                                     0000    33 ; AUTHOR: L F LAVERDURE,	 CREATION DATE: 19-OCT-77

                                     0000    34 ;

                                     0000    35 ; MODIFIED BY:

                                     0000    36 ;

                                     0000    37 ;	L F LAVERDURE,      11-AUG-78  18:47	; ERROR IF RAB$L_EOF SET

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

                                     0000    39 ;	J A KRYCKA,	31-JUL-78  10:50

                                     0000    40 ; 01	- 

                                     0000    41 ;--

RM2CONN         RELATIVE-SPECIFIC CONNECT                        21-AUG-1978 21:51:06   VAX-11 MACRO X0.3-11               Page   2

008             DECLARATIONS                                                                                                     (1)



                                     0000    43 	.SBTTL	DECLARATIONS

                                     0000    44 ;

                                     0000    45 ; INCLUDE FILES:

                                     0000    46 ;

                                     0000    47 

                                     0000    48 ;

                                     0000    49 ; MACROS:

                                     0000    50 ;

                                     0000    51 	$FABDEF

                                     0000    52 	$IFBDEF

                                     0000    53 	$IRBDEF

                                     0000    54 	$RABDEF

                                     0000    55 	$RMSDEF

                                     0000    56 

                                     0000    57 ;

                                     0000    58 ; EQUATED SYMBOLS:

                                     0000    59 ;

                           00000020  0000    60 	ROP=RAB$L_ROP*8			; BIT OFFSET TO ROP

                                     0000    61 

                                     0000    62 ;

                                     0000    63 ; OWN STORAGE:

                                     0000    64 ;

                                     0000    65 

RM2CONN         RELATIVE-SPECIFIC CONNECT                        21-AUG-1978 21:51:06   VAX-11 MACRO X0.3-11               Page   3

008             RM$CONNECT2  -  RELATIVE-SPECIFIC CONNECT ROUTI                                                                  (1)



                                     0000    67 	.SBTTL RM$CONNECT2  -  RELATIVE-SPECIFIC CONNECT ROUTINE

                                     0000    68 ;++

                                     0000    69 ; FUNCTIONAL DESCRIPTION:

                                     0000    70 ;

                                     0000    71 ; THIS MODULE PERFORMS THE FOLLOWING FUNCTIONS REQUIRED FOR

                                     0000    72 ; CONNECTING TO RELATIVE FILES.

                                     0000    73 ;

                                     0000    74 ;	1.  PERFORMS VARIOUS VALIDITY CHECKS

                                     0000    75 ;	2.  IF CONNECT FOR BLOCK I/O ALLOCATE A BDB  AND EXIT

                                     0000    76 ;	3.  ALLOCATE BDB'S AND BUFFERS:

                                     0000    77 ;		1 MINIMUM, OTHERWISE SYSTEM DEFAULT

                                     0000    78 ;	4.  PERFORM VARIOUS IRAB INITIALIZATIONS

                                     0000    79 ;

                                     0000    80 ; CALLING SEQUENCE:

                                     0000    81 ;

                                     0000    82 ;	ENTERED VIA CASE BRANCH FROM RM$CONNECT

                                     0000    83 ;

                                     0000    84 ; INPUT PARAMETERS:

                                     0000    85 ;

                                     0000    86 ;	R11	IMPURE AREA ADDRESS

                                     0000    87 ;	R10	IFAB ADDRESS

                                     0000    88 ;	R9	IRAB ADDRESS

                                     0000    89 ;	R8	RAB ADDRESS

                                     0000    90 ;

                                     0000    91 ; IMPLICIT INPUTS:

                                     0000    92 ;

                                     0000    93 ; 	THE CONTENTS OF THE RAB AND IRAB

                                     0000    94 ;

                                     0000    95 ; OUTPUT PARAMETERS:

                                     0000    96 ;

                                     0000    97 ;	R0	STATUS

                                     0000    98 ;

                                     0000    99 ; IMPLICIT OUTPUTS:

                                     0000   100 ;

                                     0000   101 ;	SETS VARIOUS FIELDS IN THE IRAB AND IFAB.

                                     0000   102 ;

                                     0000   103 ; COMPLETION CODES:

                                     0000   104 ;

                                     0000   105 ;	THE STANDARD RMS STATUS CODE IS SET INTO R0 AND RETURN

                                     0000   106 ;	IS MADE TO USER (NOT CALLER) VIA RM$EXSUC (OR RM$EX_NOSTR

                                     0000   107 ;	AFTER CALLING RM$CCLN1 IF AN ERROR IS DETECTED, THUS 

                                     0000   108 ;	DEALLOCATING ALL IRAB - RELATED INTERNAL STRUCTURES).

                                     0000   109 ;

                                     0000   110 ; SIDE EFFECTS:

                                     0000   111 ;

                                     0000   112 ;	NONE

                                     0000   113 ;

                                     0000   114 ;--

RM2CONN         RELATIVE-SPECIFIC CONNECT                        21-AUG-1978 21:51:06   VAX-11 MACRO X0.3-11               Page   4

008             RM$CONNECT2  -  RELATIVE-SPECIFIC CONNECT ROUTI                                                                  (1)



                                     0000   116 RM$CONNECT2::

                                     0000   117 	$TSTPT CONNECT2

            68            28     E0  0006   118 	BBS	#RAB$V_EOF+ROP,(R8),ERRROP	; BRANCH IF EOF BIT SET IN ROP

                          64         0009       

                                     000A   119 ;

                                     000A   120 ;  IF OPEN OR CREATE WAS DONE WITH BRO SPECIFIED (MIXED BLOCK & RECORD I/O),

                                     000A   121 ;  USE THE BIO ROP BIT TO DETERMINE WHETHER TO CONNECT FOR BLOCK OR RECORD

                                     000A   122 ;  OPERATIONS.  NOTE: ANY SUBSEQUENT CONNECTS MUST BE OF THE SAME TYPE.

                                     000A   123 ;

         22 AA            06     E5  000A   124 	BBCC	#FAB$V_BRO,IFB$B_FAC(R10),5$	; BRANCH IF BRO NOT SPECIFIED

                          09         000E       

            68            2B     E1  000F   125 	BBC	#RAB$V_BIO+ROP,(R8),CHKRFM	; BRANCH IF BIO NOT WANTED

                          12         0012       

         22 AA            05     E3  0013   126 	BBCS	#FAB$V_BIO,IFB$B_FAC(R10),ALLBIO; SET BLOCK I/O AND BRANCH

                          05         0017       

         22 AA            05     E1  0018   127 5$:	BBC	#FAB$V_BIO,IFB$B_FAC(R10),CHKRFM; BRANCH IF NOT BLOCK I/O

                          08         001C       

                                     001D   128 ;++

                                     001D   129 ;

                                     001D   130 ; BLOCK I/O.  ALLOCATE A SINGLE BDB.

                                     001D   131 ;

                                     001D   132 ;--

                                     001D   133 RM$CONNECT_BIO::

                          FFE0'  30  001D   134 ALLBIO:	BSBW	RM$ALBDB			; ALLOCATE BDB

            3E            50     E8  0020   135 	BLBS	R0,SETNRP			; BRANCH IF O.K.

                          4C     11  0023   136 	BRB	CLEANUP				; CLEANUP ON ERROR

                                     0025   137 ;++

                                     0025   138 ;

                                     0025   139 ; RECORD I/O.  ALLOCATE BDB'S AND BUFFERS.

                                     0025   140 ;

                                     0025   141 ;--

                                     0025   142 	ASSUME	FAB$C_UDF EQ 0

                       3C AA     95  0025   143 CHKRFM:	TSTB	IFB$B_RFMORG(R10)		; RFM = UNDEFINED?

                          50     13  0028   144 	BEQL	ERRRFM				; BRANCH IF YES

            55         4A AA     9A  002A   145 	MOVZBL	IFB$B_BKS(R10),R5		; GET BUCKET SIZE IN VBNS

            55            09     9C  002E   146 	ROTL	#9,R5,R5			; AND CONVERT TO BYTES

                          55         0031       

            54            03     D0  0032   147 	MOVL	#3,R4				; INDEX FOR RELATIVE DEFAULTS

                          FFC8'  30  0035   148 	BSBW	RM$BDBALLOC			; GO ALLOCATE BDBS AND BUFFERS

            3C            50     E9  0038   149 	BLBC	R0,CLEANUP1			; GET OUT ON ERROR

                                     003B   150 ;

                                     003B   151 ; CALCULATE CELL SIZE FOR RECORDS

                                     003B   152 ;

            03         3C AA     91  003B   153 	CMPB	IFB$B_RFMORG(R10),#FAB$C_VFC	; VFC REC FORMAT?

                          05     12  003F   154 	BNEQ	60$				; BRANCH IF NOT

         42 A9         4B AA     90  0041   155 	MOVB	IFB$B_FSZ(R10),IRB$W_CSIZ(R9)	; YES-INITIALIZE RECORD SIZE

            01         3C AA     91  0046   156 60$:	CMPB	IFB$B_RFMORG(R10),#FAB$C_FIX	; FIXED REC. LEN?

                          04     13  004A   157 	BEQL	70$				; BRANCH IF YES

         42 A9            02     A0  004C   158 	ADDW2	#2,IRB$W_CSIZ(R9)		; ADD IN 2-BYTE SIZE FIELD

                       42 A9     B6  0050   159 70$:	INCW	IRB$W_CSIZ(R9)			; ADD IN CONTROL BYTE

         42 A9         4C AA     A0  0053   160 	ADDW2	IFB$W_MRS(R10),IRB$W_CSIZ(R9)	; & MAX RECORD SIZE

                                     0058   161 						; GIVING TOTAL CELL SIZE

         5C AA         42 A9     A7  0058   162 	DIVW3	IRB$W_CSIZ(R9),IFB$W_BKS_BYTES(R10),IFB$W_BKS_RECS(R10)

                       5E AA         005D       

                                     005F   163 						; COMPUTE # RECS/BKT

                          13     13  005F   164 	BEQL	ERRIFA				; BRANCH IF ZERO

                       2C A9     D6  0061   165 SETNRP:	INCL	IRB$L_NRP_VBN(R9)		; SET NRP TO VBN1 (RP = 0)

RM2CONN         RELATIVE-SPECIFIC CONNECT                        21-AUG-1978 21:51:06   VAX-11 MACRO X0.3-11               Page   5

008             RM$CONNECT2  -  RELATIVE-SPECIFIC CONNECT ROUTI                                                                  (1)



            6A            3E     E0  0064   166 	BBS	#IFB$V_DAP,(R10),NTCONN		; BRANCH IF NETWORK FILE ACCESS

                          03         0067       

                          FF95'  31  0068   167 	BRW	RM$EXSUC			; EXIT WITH SUCCESS

                                     006B   168 ; ++

                                     006B   169 ; 

                                     006B   170 ;  PERFORM NETWORK CONNECT FUNCTION

                                     006B   171 ; 

                                     006B   172 ; --

                                     006B   173 NTCONN:	$PSECT_BR	NF$NETWORK

                          FFFD'  30  0000   174 	BSBW	NT$CONNECT2			; PERFORM CONNECT AT REMOTE NODE

            03            50     E9  0003   175 	BLBC	R0,10$				; BRANCH ON FAILURE

                          FFF7'  31  0006   176 	BRW	RM$EXSUC			; EXIT WITH SUCCESS

                          006B'  31  0009   177 10$:	BRW	CLEANUP1			; BRANCH AID

                                     000C   178 	$PSECT_RESTORE

RM2CONN         RELATIVE-SPECIFIC CONNECT                        21-AUG-1978 21:51:06   VAX-11 MACRO X0.3-11               Page   6

008             RM$CONNECT2  -  RELATIVE-SPECIFIC CONNECT ROUTI                                                                  (1)



                                     006E   180 ;++

                                     006E   181 ;

                                     006E   182 ; HANDLE ERRORS

                                     006E   183 ;

                                     006E   184 ;--

                                     006E   185 ;

                                     006E   186 ;  EOF ROP BIT SET BUT OPTION NOT YET IMPLEMENTED

                                     006E   187 ;

                                     006E   188 ERRROP:	$PSECT_BR	L$RMS2

                                     0000   189 	RMSERR	ROP				; INVALID RECORD OPTIONS

                                     0005   190 	$PSECT_RESTORE				; FALL THRU TO CLEANUP

                                     0071   191 ;

                                     0071   192 CLEANUP:

                                     0071   193 	$PSECT_BR	L$RMS2			; FAILED TO ALLOCATE BLOCK I/O BDB

                          FFF8'  30  0005   194 	BSBW	RM$CCLN1			; DEALLOCATE IRAB

                          FFF5'  31  0008   195 EXIT:	BRW	RM$EX_NOSTR			; AND EXIT

                                     000B   196 	$PSECT_RESTORE

                                     0074   197 ;

                                     0074   198 ;  CALCULATED THAT BUCKET HOLDS 0 RECORDS.  MUST BE BAD DATA IN FILE HEADER.

                                     0074   199 ;

                                     0074   200 ERRIFA:	$PSECT_BR	L$RMS2

         0C A8   000185D4 8F     D0  000B   201 	MOVL	#RMS$_MRS,RAB$L_STV(R8)		; STV SECONDARY ERROR CODE

                                     0013   202 	RMSERR	IFA				; ILLEGAL FILE ATTRIBUTES

                                     0018   203 						; (FALL THRU TO CLEANUP1)

                                     0018   204 	$PSECT_RESTORE

                                     0077   205 ;

                                     0077   206 ; FAILED TO ALLOCATE REQUESTED NUMBER OF BUFFERS 

                                     0077   207 ; (R0 ALREADY HAS FAILURE CODE)

                                     0077   208 ;

                                     0077   209 CLEANUP1:

                                     0077   210 	$PSECT_BR	L$RMS2	

                          FFE5'  30  0018   211 	BSBW		RM$COMCLNUP		; DEALLOCATE BDBS BUFFERS, & IRAB

                          EB     11  001B   212 	BRB		EXIT	

                                     001D   213 	$PSECT_RESTORE

                                     007A   214 ;

                                     007A   215 ;  UNDEFINED RECORD FORMAT FOR RECORD I/O

                                     007A   216 ;

                          FF83'  31  007A   217 ERRRFM:	BRW	RM$CONN_ERRRFM			; GO REPORT ERROR

                                     007D   218 

                                     007D   219 

                                     007D   220 	.END

RM2CONN         RELATIVE-SPECIFIC CONNECT                        21-AUG-1978 21:51:06   VAX-11 MACRO X0.3-11               Page   7

SYMBOL TABLE                                                                                                                     (1)



$$.PSECT_EP    = 00000005            FAB$M_CR       = 00000002            FAB$V_DLT      = 0000000F            

$$RMSTEST      = 0000001A            FAB$M_CTG      = 00100000            FAB$V_DMO      = 0000000C            

$$RMS_PBUGCHK  = 00000010            FAB$M_DEL      = 00000004            FAB$V_ESC      = 0000001B            

$$RMS_TBUGCHK  = 00000008            FAB$M_DFW      = 00000020            FAB$V_EXE      = 00000007            

$$RMS_UMODE    = 00000004            FAB$M_DLT      = 00008000            FAB$V_FTN      = 00000000            

ALLBIO           0000001D R     02   FAB$M_DMO      = 00001000            FAB$V_GET      = 00000001            

BIT...         = 0001C134            FAB$M_ESC      = 08000000            FAB$V_INP      = 00000013            

CHKRFM           00000025 R     02   FAB$M_EXE      = 00000080            FAB$V_JNL      = 00000016            

CLEANUP          00000071 R     02   FAB$M_FTN      = 00000001            FAB$V_KFO      = 0000001E            

CLEANUP1         00000077 R     02   FAB$M_GET      = 00000002            FAB$V_MSE      = 00000004            

ERRIFA           00000074 R     02   FAB$M_INP      = 00080000            FAB$V_MXV      = 00000001            

ERRRFM           0000007A R     02   FAB$M_JNL      = 00400000            FAB$V_NAM      = 00000018            

ERRROP           0000006E R     02   FAB$M_KFO      = 40000000            FAB$V_NEF      = 0000000A            

EXIT             00000008 R     05   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            GBL...         = 00000000            

FAB$L_SDC        00000044            FAB$V_BIO      = 00000005            IFB$B_AMAX       00000059            

FAB$L_STS        00000008            FAB$V_BLK      = 00000003            IFB$B_AVBN       00000058            

FAB$L_STV        0000000C            FAB$V_BRO      = 00000006            IFB$B_BID        00000008            

FAB$L_XAB        00000024            FAB$V_CBT      = 00000015            IFB$B_BKS        0000004A            

FAB$M_BIO      = 00000020            FAB$V_CIF      = 00000019            IFB$B_BLN        00000009            

FAB$M_BLK      = 00000008            FAB$V_CR       = 00000001            IFB$B_EFN        0000000B            

FAB$M_BRO      = 00000040            FAB$V_CTG      = 00000014            IFB$B_EXTRABUF   0000005D            

FAB$M_CBT      = 00200000            FAB$V_DEL      = 00000002            IFB$B_FAC        00000022            

FAB$M_CIF      = 02000000            FAB$V_DFW      = 00000005            IFB$B_FSZ        0000004B            

RM2CONN         RELATIVE-SPECIFIC CONNECT                        21-AUG-1978 21:51:06   VAX-11 MACRO X0.3-11               Page   8

SYMBOL TABLE                                                                                                                     (1)



IFB$B_KBUFSZ     0000005C            IFB$V_ACCESSED = 00000025            IRB$B_NRP_KREF   00000031            

IFB$B_MODE       0000000A            IFB$V_ANSI_D   = 00000026            IRB$B_NVBNS      00000048            

IFB$B_NUM_KEYS   0000005A            IFB$V_ASYNC    = 00000023            IRB$B_POST_CCTL  00000045            

IFB$B_ORGCASE    00000023            IFB$V_ASYNCWAIT= 00000024            IRB$B_PPF_ISI    0000003E            

IFB$B_RAT        0000003D            IFB$V_BIO      = 00000005            IRB$B_PRE_CCTL   00000044            

IFB$B_RFMORG     0000003C            IFB$V_BRO      = 00000006            IRB$B_RFA_ID     00000058            

IFB$B_UBUFSZ     0000005B            IFB$V_BUSY     = 00000020            IRB$B_RP_ID      00000038            

IFB$C_BID      = 0000000B            IFB$V_CREATE   = 00000032            IRB$B_RP_KREF    00000039            

IFB$C_BLN        00000060            IFB$V_DAP      = 0000003E            IRB$B_RRV_ID     00000050            

IFB$C_BLN_IDX    00000060            IFB$V_DAP_OPEN = 0000003D            IRB$B_SRCHFLAGS  00000043            

IFB$C_BLN_REL    00000060            IFB$V_DEL      = 00000002            IRB$B_STOPLEVEL  00000042            

IFB$C_BLN_SEQ    0000005C            IFB$V_DFW      = 0000002C            IRB$C_BID      = 0000000A            

IFB$C_DIR      = 00000003            IFB$V_DLT      = 0000002B            IRB$C_BLN_IDX    0000006C            

IFB$C_FHAEND     00000050            IFB$V_DMO      = 00000028            IRB$C_BLN_REL    00000048            

IFB$C_IDX      = 00000002            IFB$V_EOF      = 00000021            IRB$C_BLN_SEQ    0000004C            

IFB$C_MAXORG   = 00000002            IFB$V_EXE      = 00000007            IRB$K_BLN_IDX    0000006C            

IFB$C_REL      = 00000001            IFB$V_GET      = 00000001            IRB$K_BLN_REL    00000048            

IFB$C_SEQ      = 00000000            IFB$V_MSE      = 00000031            IRB$K_BLN_SEQ    0000004C            

IFB$K_BLN        00000060            IFB$V_NORECLK  = 00000033            IRB$L_ARGLST     00000018            

IFB$K_BLN_IDX    00000060            IFB$V_NSP      = 0000003F            IRB$L_ASBADDR    00000014            

IFB$K_BLN_REL    00000060            IFB$V_NWA      = 0000003C            IRB$L_BKPBITS    00000004            

IFB$K_BLN_SEQ    0000005C            IFB$V_ORG      = 00000004            IRB$L_BWB        0000000C            

IFB$K_FHAEND     00000050            IFB$V_PPF_IMAGE= 00000022            IRB$L_CURBDB     00000020            

IFB$L_ARGLST     00000018            IFB$V_PPF_INPUT= 0000002E            IRB$L_CURVBN     00000030            

IFB$L_ASBADDR    00000014            IFB$V_PUT      = 00000000            IRB$L_IFAB_LNK   00000000            

IFB$L_AS_DEV     00000054            IFB$V_RFM      = 00000000            IRB$L_IOS        0000000C            

IFB$L_BDB_BLNK   00000034            IFB$V_RWC      = 00000027            IRB$L_IOS4       00000010            

IFB$L_BDB_FLNK   00000030            IFB$V_RW_ATTR  = 00000034            IRB$L_IRAB_LNK   0000001C            

IFB$L_BKPBITS    00000004            IFB$V_SCF      = 0000002A            IRB$L_KEYBUF     00000048            

IFB$L_BWB        0000000C            IFB$V_SPL      = 00000029            IRB$L_LAST_RAB   00000024            

IFB$L_DVBN       00000058            IFB$V_SQO      = 0000002D            IRB$L_LOCK_BDB   0000005C            

IFB$L_EBK        00000044            IFB$V_TEF      = 00000036            IRB$L_NRP        0000002C            

IFB$L_FRB_PTR    00000028            IFB$V_TMP      = 00000035            IRB$L_NRP_OFF    00000030            

IFB$L_FWA_BDB    00000050            IFB$V_TRN      = 00000004            IRB$L_NRP_VBN    0000002C            

IFB$L_HBK        00000040            IFB$V_UPD      = 00000003            IRB$L_NXTBDB     00000028            

IFB$L_IDX_PTR    00000054            IFB$V_WRTACC   = 00000030            IRB$L_OWNER_ID   0000003C            

IFB$L_IOS        0000000C            IFB$W_ASDEVBSIZ  0000005A            IRB$L_RFA_VBN    00000054            

IFB$L_IOS4       00000010            IFB$W_BKS_BYTES  0000005C            IRB$L_RLB_ADDR   00000044            

IFB$L_IRAB_LNK   0000001C            IFB$W_BKS_RECS   0000005E            IRB$L_RP         00000034            

IFB$L_LAST_FAB   00000024            IFB$W_CHNL       00000020            IRB$L_RP_OFF     00000038            

IFB$L_LOCK_BDB   00000050            IFB$W_DEQ        0000004E            IRB$L_RP_VBN     00000034            

IFB$L_MRN        00000054            IFB$W_DEVBUFSIZ  00000038            IRB$L_RRV_VBN    0000004C            

IFB$L_NRP_LNK    00000050            IFB$W_EBK0       00000044            IRB$L_TEMP0      00000044            

IFB$L_NWA_PTR    00000028            IFB$W_EBK2       00000046            IRB$L_TEMP1      00000048            

IFB$L_PRIM_DEV   00000000            IFB$W_FFB        00000048            IRB$V_ASYNC    = 00000023            

IFB$L_RLB_LNK    0000002C            IFB$W_IOS2       0000000E            IRB$V_ASYNCWAIT= 00000024            

IFB$L_RNS_LEN    00000050            IFB$W_LRL        0000003E            IRB$V_BIO_LAST = 00000027            

IFB$M_BIO      = 00000020            IFB$W_MRS        0000004C            IRB$V_BRO_SW   = 00000028            

IFB$M_BRO      = 00000040            IFB$W_RTDEQ      0000003A            IRB$V_BUSY     = 00000020            

IFB$M_DEL      = 00000004            IRB$B_BCNT       00000040            IRB$V_DAP_CONN = 0000003E            

IFB$M_EXE      = 00000080            IRB$B_BID        00000008            IRB$V_DAP_FMODE= 0000003F            

IFB$M_GET      = 00000002            IRB$B_BLN        00000009            IRB$V_DUP      = 0000002C            

IFB$M_PUT      = 00000001            IRB$B_EFN        0000000B            IRB$V_EOF      = 00000021            

IFB$M_TRN      = 00000010            IRB$B_KEYSZ      00000051            IRB$V_FIND     = 00000029            

IFB$M_UPD      = 00000008            IRB$B_MBC        00000041            IRB$V_FIND_LAST= 00000025            

IFB$S_ORG      = 00000004            IRB$B_MODE       0000000A            IRB$V_IDX_ERR  = 00000031            

IFB$S_RFM      = 00000004            IRB$B_NRP_ID     00000030            IRB$V_LOCKABOVE= 00000002            

RM2CONN         RELATIVE-SPECIFIC CONNECT                        21-AUG-1978 21:51:06   VAX-11 MACRO X0.3-11               Page   9

SYMBOL TABLE                                                                                                                     (1)



IRB$V_NEW_IDX  = 00000003            RAB$L_ROP        00000004            RAB$V_TMO      = 00000019            

IRB$V_POSINSERT= 00000000            RAB$L_STS        00000008            RAB$V_TPT      = 00000001            

IRB$V_PPF_EOF  = 0000002E            RAB$L_STV        0000000C            RAB$V_UIF      = 00000004            

IRB$V_PPF_FNDSV= 00000030            RAB$L_UBF        00000024            RAB$V_ULK      = 00000012            

IRB$V_PPF_IMAGE= 00000022            RAB$M_ASY      = 00000001            RAB$V_WAT      = 00000011            

IRB$V_PPF_SKIP = 0000002F            RAB$M_BIO      = 00000800            RAB$V_WBH      = 0000000A            

IRB$V_PUTS_LAST= 00000026            RAB$M_CCO      = 80000000            RAB$W_ISI        00000002            

IRB$V_RAHWBH   = 0000002A            RAB$M_CVT      = 04000000            RAB$W_RFA        00000010            

IRB$V_SKIP_NEXT= 0000002B            RAB$M_EOF      = 00000100            RAB$W_RFA4       00000014            

IRB$V_SRCHGT   = 00000001            RAB$M_FDL      = 00000040            RAB$W_RSZ        00000022            

IRB$V_UNLOCK_RP= 0000002D            RAB$M_HSH      = 00000080            RAB$W_USZ        00000020            

IRB$V_WRITE    = 00000029            RAB$M_KGE      = 00200000            RM$ALBDB         ********   X   02   

IRB$W_CSIZ       00000042            RAB$M_KGT      = 00400000            RM$BDBALLOC      ********   X   02   

IRB$W_DUP_POS    00000032            RAB$M_LIM      = 00004000            RM$CCLN1         ********   X   05   

IRB$W_IOS2       0000000E            RAB$M_LOA      = 00002000            RM$COMCLNUP      ********   X   05   

IRB$W_NRP_OFF    00000030            RAB$M_LOC      = 00010000            RM$CONNECT2      00000000 RG    02   

IRB$W_OWN_ID     0000003C            RAB$M_MAS      = 00000020            RM$CONNECT_BIO   0000001D RG    02   

IRB$W_OWN_ISI    0000003E            RAB$M_NLK      = 00100000            RM$CONN_ERRRFM   ********   X   02   

IRB$W_ROVHDSZ    00000044            RAB$M_NXR      = 00800000            RM$EXSUC         ********   X   02   

IRB$W_RP_OFF     00000038            RAB$M_PMT      = 40000000            RM$EX_NOSTR      ********   X   05   

IRB$W_RTOTLSZ    00000046            RAB$M_PPF_IND  = 00004000            RMS$V_STVSTATUS= 0000000E            

IRB$W_SAVE_POS   00000052            RAB$M_PPF_RAT  = 00003FC0            RMS$_ABO       = 000183EC            

L$RMS21          00000000 R     05   RAB$M_PTA      = 20000000            RMS$_ACC       = 0001C002            

L$RMS22          00000005 R     05   RAB$M_RAH      = 00000200            RMS$_ACT       = 0001825A            

L$RMS23          0000000B R     05   RAB$M_RLK      = 00080000            RMS$_AID       = 000183F4            

L$RMS24          00000018 R     05   RAB$M_RNE      = 01000000            RMS$_ALN       = 000183FC            

NF$NETWORK0      00000000 R     04   RAB$M_RNF      = 08000000            RMS$_ALQ       = 00018404            

NT$CONNECT2      ********   X   04   RAB$M_TMO      = 02000000            RMS$_ANI       = 0001840C            

NTCONN           0000006B R     02   RAB$M_TPT      = 00000002            RMS$_AOP       = 00018414            

PIO$GL_FMLH      ********   X   02   RAB$M_UIF      = 00000010            RMS$_ATR       = 0001C0CC            

RAB$B_BID        00000000            RAB$M_ULK      = 00040000            RMS$_ATW       = 0001C0D4            

RAB$B_BLN        00000001            RAB$M_WAT      = 00020000            RMS$_BKS       = 0001841C            

RAB$B_KRF        00000035            RAB$M_WBH      = 00000400            RMS$_BKZ       = 00018424            

RAB$B_KSZ        00000034            RAB$S_PPF_RAT  = 00000008            RMS$_BLN       = 0001842C            

RAB$B_MBC        00000037            RAB$V_ASY      = 00000000            RMS$_BOF       = 00018198            

RAB$B_MBF        00000036            RAB$V_BIO      = 0000000B            RMS$_BUG       = 00018434            

RAB$B_PSZ        00000034            RAB$V_CCO      = 0000001F            RMS$_BUG_DAP   = 00018444            

RAB$B_RAC        0000001E            RAB$V_CVT      = 0000001A            RMS$_BUG_DDI   = 0001843C            

RAB$B_ROP1       00000005            RAB$V_EOF      = 00000008            RMS$_BUG_XX2   = 0001844C            

RAB$B_ROP2       00000006            RAB$V_FDL      = 00000006            RMS$_BUG_XX3   = 00018454            

RAB$B_ROP3       00000007            RAB$V_HSH      = 00000007            RMS$_BUG_XX4   = 0001845C            

RAB$B_TMO        0000001F            RAB$V_KGE      = 00000015            RMS$_BUG_XX5   = 00018464            

RAB$C_BID      = 00000001            RAB$V_KGT      = 00000016            RMS$_BUG_XX6   = 0001846C            

RAB$C_BLN        00000044            RAB$V_LIM      = 0000000E            RMS$_BUG_XX7   = 00018474            

RAB$C_KEY      = 00000001            RAB$V_LOA      = 0000000D            RMS$_BUG_XX8   = 0001847C            

RAB$C_RFA      = 00000002            RAB$V_LOC      = 00000010            RMS$_BUG_XX9   = 00018484            

RAB$C_SEQ      = 00000000            RAB$V_MAS      = 00000005            RMS$_CAA       = 0001848C            

RAB$K_BLN        00000044            RAB$V_NLK      = 00000014            RMS$_CCF       = 0001C0DC            

RAB$L_BKT        00000038            RAB$V_NXR      = 00000017            RMS$_CCR       = 00018494            

RAB$L_CTX        00000018            RAB$V_PMT      = 0000001E            RMS$_CDA       = 0001C0E4            

RAB$L_DCT        00000038            RAB$V_PPF_IND  = 0000000E            RMS$_CHG       = 0001849C            

RAB$L_FAB        0000003C            RAB$V_PPF_RAT  = 00000006            RMS$_CHK       = 000184A4            

RAB$L_KBF        00000030            RAB$V_PTA      = 0000001D            RMS$_CHN       = 0001C0EC            

RAB$L_PBF        00000030            RAB$V_RAH      = 00000009            RMS$_COD       = 000184AC            

RAB$L_RBF        00000028            RAB$V_RLK      = 00000013            RMS$_CONTROLC  = 00010651            

RAB$L_RFA0       00000010            RAB$V_RNE      = 00000018            RMS$_CONTROLO  = 00010609            

RAB$L_RHB        0000002C            RAB$V_RNF      = 0000001B            RMS$_CONTROLY  = 00010611            

RM2CONN         RELATIVE-SPECIFIC CONNECT                        21-AUG-1978 21:51:06   VAX-11 MACRO X0.3-11               Page  10

SYMBOL TABLE                                                                                                                     (1)



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            ROP            = 00000020            

RMS$_EXT       = 0001C022            RMS$_PLV       = 0001872C            SETNRP           00000061 R     02   

RMS$_FAB       = 0001850C            RMS$_POS       = 00018624            TPT$L_CONNECT2   ********   X   02   

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            

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            

RM2CONN         RELATIVE-SPECIFIC CONNECT                        21-AUG-1978 21:51:06   VAX-11 MACRO X0.3-11               Page  11

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

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

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

L$RMS2           0000001D      05     NOPIC   USR   CON   REL   GBL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

9320. BYTES LEFT IN FREE MEMORY POOL.

2746. BYTES OF RECLAIMED MEMORY.

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

25 MLB DIR RDS - 1043 GETS TO DEFINE 22 MACROS. 76 INTER. FILE WRITES. 

