NT0GET          NETWORK GET/FIND RECORD                          21-AUG-1978 22:22:29   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (2)      38  DECLARATIONS

   (3)      62  NT$GET1 - PERFORM NETWORK GET RECORD FUNCTION

   (4)     141  NT$GET2 - PERFORM NETWORK GET RECORD FUNCTION

NT0GET          NETWORK GET/FIND RECORD                          21-AUG-1978 22:22:29   VAX-11 MACRO X0.3-11               Page   1

013                                                                                                                              (1)



                                     0000     1 	$BEGIN	NT0GET,013,NF$NETWORK,<NETWORK GET/FIND RECORD>

                                     0000     2 

                                     0000     3 

                                     0000     4 ;

                                     0000     5 ;			  COPYRIGHT (c) 1977, 1978 BY

                                     0000     6 ;	      DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

                                     0000     7 ;

                                     0000     8 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND  COPIED

                                     0000     9 ; ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE AND WITH THE

                                     0000    10 ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR  ANY  OTHER

                                     0000    11 ; COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY

                                     0000    12 ; OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE  IS  HEREBY

                                     0000    13 ; TRANSFERRED.

                                     0000    14 ;

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

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

                                     0000    17 ; CORPORATION.

                                     0000    18 ;

                                     0000    19 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR  RELIABILITY  OF  ITS

                                     0000    20 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.

                                     0000    21 ;

                                     0000    22 

                                     0000    23 ;++

                                     0000    24 ; FACILITY: RMS32

                                     0000    25 ;

                                     0000    26 ; ABSTRACT:

                                     0000    27 ;	THIS MODULE COMMUNICATES WITH THE FILE ACCESS LISTENER AT THE

                                     0000    28 ;	REMOTE NODE TO PERFORM THE GET AND FIND FUNCTIONS.

                                     0000    29 ;

                                     0000    30 ; ENVIRONMENT: VAX/VMS

                                     0000    31 ;

                                     0000    32 ; AUTHOR: JAMES A. KRYCKA,	CREATION DATE: 9-DEC-77

                                     0000    33 ;

                                     0000    34 ; MODIFICATIONS:

                                     0000    35 ;

                                     0000    36 ;--

NT0GET          NETWORK GET/FIND RECORD                          21-AUG-1978 22:22:29   VAX-11 MACRO X0.3-11               Page   2

013             DECLARATIONS                                                                                                     (2)



                                     0000    38 	.SBTTL	DECLARATIONS

                                     0000    39 

                                     0000    40 ;

                                     0000    41 ; INCLUDE FILES:

                                     0000    42 ;

                                     0000    43 	$BDBDEF				; DEFINE BDB SYMBOLS

                                     0000    44 	$DAPDEF				; DEFINE DAP CONTROL BLOCK SYMBOLS

                                     0000    45 	$IFBDEF				; DEFINE IFAB CONTROL BLOCK SYMBOLS

                                     0000    46 	$IRBDEF				; DEFINE IRAB SYMBOLS

                                     0000    47 	$NWADEF				; DEFINE NETWORK WORK AREA SYMBOLS

                                     0000    48 	.LIST	MEB

                                     0000    49 ;

                                     0000    50 ; MACROS:

                                     0000    51 ;

                                     0000    52 ;	NONE

                                     0000    53 ;

                                     0000    54 ; EQUATED SYMBOLS:

                                     0000    55 ;

                                     0000    56 ;	NONE

                                     0000    57 ;

                                     0000    58 ; OWN STORAGE:

                                     0000    59 ;

                                     0000    60 ;	NONE

NT0GET          NETWORK GET/FIND RECORD                          21-AUG-1978 22:22:29   VAX-11 MACRO X0.3-11               Page   3

013             NT$GET1 - PERFORM NETWORK GET RECORD FUNCTION                                                                    (3)



                                     0000    62 	.SBTTL	NT$GET1 - PERFORM NETWORK GET RECORD FUNCTION

                                     0000    63 

                                     0000    64 ;++

                                     0000    65 ; FUNCTIONAL DESCRIPTION:

                                     0000    66 ;

                                     0000    67 ;	NT$GET1 ENGAGES IN A DAP DIALOGUE WITH THE REMOTE FAL TO GET

                                     0000    68 ;	THE SPECIFIED RECORD OF A SEQUENTIAL FILE.

                                     0000    69 ;

                                     0000    70 ; CALLING SEQUENCE:

                                     0000    71 ;

                                     0000    72 ;	BSBW	NT$GET1

                                     0000    73 ;

                                     0000    74 ; INPUT PARAMETERS:

                                     0000    75 ;

                                     0000    76 ;	R11	IMPURE AREA ADDRESS

                                     0000    77 ;	R10	IFAB ADDRESS

                                     0000    78 ;	R9	IRAB ADDRESS

                                     0000    79 ;	R8	RAB ADDRESS

                                     0000    80 ;	R4	BDB ADDRESS

                                     0000    81 ;

                                     0000    82 ; IMPLICIT INPUTS:

                                     0000    83 ;

                                     0000    84 ;	NONE

                                     0000    85 ;

                                     0000    86 ; OUTPUT PARAMETERS:

                                     0000    87 ;

                                     0000    88 ;	R0	STATUS CODE (RMS)

                                     0000    89 ;	R1-R3	DESTROYED

                                     0000    90 ;	AP	DESTROYED

                                     0000    91 ;

                                     0000    92 ; IMPLICIT OUTPUTS:

                                     0000    93 ;

                                     0000    94 ;	NONE

                                     0000    95 ;

                                     0000    96 ; COMPLETION CODES:

                                     0000    97 ;

                                     0000    98 ;	STANDARD RMS COMPLETION CODES.

                                     0000    99 ;

                                     0000   100 ; SIDE EFFECTS:

                                     0000   101 ;

                                     0000   102 ;	NONE

                                     0000   103 ;

                                     0000   104 ;--

                                     0000   105 

                                     0000   106 NT$GET1::				; CONTROL POINT

                                     0000   107 	$TSTPT	NTGET1			;

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

                     00F0 8F     BB  0006   108 	PUSHR	#^M<R4,R5,R6,R7>	; SAVE REGISTERS

            56            54     D0  000A   109 	MOVL	R4,R6			; COPY BDB ADDRESS

            57         28 AA     D0  000D   110 	MOVL	IFB$L_NWA_PTR(R10),R7	; GET ADDRESS OF NWA

            54       0144 C7     D0  0011   111 	MOVL	NWA$Q_BUFFER+4(R7),R4	; GET ADDRESS OF BUFFER

                          3F     E5  0016   112 	BBCC	#IRB$V_DAP_FMODE,(R9),-	; TURN OFF SINGLE-SHOT FLAG

            1A            69         0018   113 		GET_REC			;

            55            54     D0  001A   114 	MOVL	R4,R5			; INITIALIZE NEXT BYTE POINTER

            85            04     90  001D   115 	MOVB	#DAP$K_CTL_MSG,(R5)+	; DAP MESSAGE TYPE FIELD

                          85     94  0020   116 	CLRB	(R5)+			; FLAGS FIELD

            85            01     90  0022   117 	MOVB	#DAP$K_GET_READ,(R5)+	; CTLFUNC FIELD

NT0GET          NETWORK GET/FIND RECORD                          21-AUG-1978 22:22:29   VAX-11 MACRO X0.3-11               Page   4

013             NT$GET1 - PERFORM NETWORK GET RECORD FUNCTION                                                                    (3)



            85            01     90  0025   118 	MOVB	#DAP$M_RAC,(R5)+	; CTLMENU FIELD

            85            03     90  0028   119 	MOVB	#DAP$K_SEQ_FILE,(R5)+	; RAC FIELD

            55            54     C2  002B   120 	SUBL2	R4,R5			; CALCULATE SIZE OF THE MESSAGE

                          FFCF'  30  002E   121 	BSBW	NT$TRANSMIT		; SEND CONTROL MESSAGE TO FAL

            2A            50     E9  0031   122 	BLBC	R0,EXIT			; BRANCH ON FAILURE

                                     0034   123 GET_REC:				;

            55       0140 C7     D0  0034   124 	MOVL	NWA$Q_BUFFER(R7),R5	; GET RCV BUFFER SIZE

                                     0039   125 	SSB	#DAP$K_DAT_MSG,DAP$L_MSG_MASK(R7)

         0C A7            08     E2  0039       		BBSS	#DAP$K_DAT_MSG,DAP$L_MSG_MASK(R7),30000$

                          00         003D       

                                     003E       30000$:

                                     003E   126 					; EXPECT RESPONSE OF DATA MESSAGE

                          FFBF'  30  003E   127 	BSBW	NT$RECEIVE		; GET RECORD

                       0E A9     B4  0041   128 	CLRW	IRB$W_IOS2(R9)		; ZERO BYTE COUNT IN IOSB

            17            50     E9  0044   129 	BLBC	R0,EXIT			; BRANCH ON FAILURE INCLUDING EOF

            52       0090 C7     7D  0047   130 	MOVQ	DAP$Q_FILEDATA(R7),R2	; MOVE RECORD DESCRIPTOR TO <R2,R3>

         12 A6            52     B1  004C   131 	CMPW	R2,BDB$W_SIZE(R6)	; BRANCH IF RECORD IS TOO BIG FOR

                          11     1A  0050   132 	BGTRU	ERRIRC			;  FOR BDB BUFFER

         0E A9            52     B0  0052   133 	MOVW	R2,IRB$W_IOS2(R9)	; UPDATE IOSB TO # DATA BYTES READ

            63            52     28  0056   134 	MOVC3	R2,(R3),@BDB$L_ADDR(R6)	; MOVE RECORD TO BDB

                       14 B6         0059       

                                     005B   135 	RMSSUC				; RETURN SUCCESS

            50            01     D0  005B       		MOVL	#1,R0

                     00F0 8F     BA  005E   136 EXIT:	POPR	#^M<R4,R5,R6,R7>	; RESTORE REGISTERS

                                 05  0062   137 	RSB				; EXIT WITH RMS CODE IN R0

                                     0063   138 ERRIRC:	RMSERR	IRC			; RECORD TOO BIG

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

                          F4     11  0068   139 	BRB	EXIT			;

NT0GET          NETWORK GET/FIND RECORD                          21-AUG-1978 22:22:29   VAX-11 MACRO X0.3-11               Page   5

013             NT$GET2 - PERFORM NETWORK GET RECORD FUNCTION                                                                    (4)



                                     006A   141 	.SBTTL	NT$GET2 - PERFORM NETWORK GET RECORD FUNCTION

                                     006A   142 

                                     006A   143 ;++

                                     006A   144 ; FUNCTIONAL DESCRIPTION:

                                     006A   145 ;

                                     006A   146 ;	NT$GET2 ENGAGES IN A DAP DIALOGUE WITH THE REMOTE FAL TO GET

                                     006A   147 ;	THE SPECIFIED RECORD OF A RELATIVE FILE.

                                     006A   148 ;

                                     006A   149 ; CALLING SEQUENCE:

                                     006A   150 ;

                                     006A   151 ;	BSBW	NT$GET2

                                     006A   152 ;

                                     006A   153 ; INPUT PARAMETERS:

                                     006A   154 ;

                                     006A   155 ;	R11	IMPURE AREA ADDRESS

                                     006A   156 ;	R10	IFAB ADDRESS

                                     006A   157 ;	R9	IRAB ADDRESS

                                     006A   158 ;	R8	RAB ADDRESS

                                     006A   159 ;	R4	BDB ADDRESS

                                     006A   160 ;

                                     006A   161 ; IMPLICIT INPUTS:

                                     006A   162 ;

                                     006A   163 ;	NONE

                                     006A   164 ;

                                     006A   165 ; OUTPUT PARAMETERS:

                                     006A   166 ;

                                     006A   167 ;	R0	STATUS CODE (RMS)

                                     006A   168 ;	R1-R7	DESTROYED

                                     006A   169 ;	AP	DESTROYED

                                     006A   170 ;

                                     006A   171 ; IMPLICIT OUTPUTS:

                                     006A   172 ;

                                     006A   173 ;	NONE

                                     006A   174 ;

                                     006A   175 ; COMPLETION CODES:

                                     006A   176 ;

                                     006A   177 ;	STANDARD RMS COMPLETION CODES.

                                     006A   178 ;

                                     006A   179 ; SIDE EFFECTS:

                                     006A   180 ;

                                     006A   181 ;	NONE

                                     006A   182 ;

                                     006A   183 ;--

                                     006A   184 

                                     006A   185 NT$GET2::				; CONTROL POINT

                                     006A   186 NT$FIND2::				; CONTROL POINT

                                     006A   187 	$TSTPT	NTGET2			;

                 00000200'9F     D6  006A       		INCL	@#PIO$GL_FMLH+512+TPT$L_NTGET2

                                     0070   188 	RMSERR	SUP			; UNSUPPORTED FUNCTION

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

                                 05  0075   189 	RSB				; EXIT WITH RMS CODE IN R0

                     00F0 8F     BB  0076   190 	PUSHR	#^M<R4,R5,R6,R7>	; SAVE REGISTERS

            56            54     D0  007A   191 	MOVL	R4,R6			; COPY BDB ADDRESS

            57         28 AA     D0  007D   192 	MOVL	IFB$L_NWA_PTR(R10),R7	; GET ADDRESS OF NWA

                          3F     E5  0081   193 	BBCC	#IRB$V_DAP_FMODE,(R9),-	; TURN OFF SINGLE-SHOT FLAG

            1E            69         0083   194 		GET2_REC		;

            54         14 A6     D0  0085   195 	MOVL	BDB$L_ADDR(R6),R4	; GET BUFFER ADDRESS

NT0GET          NETWORK GET/FIND RECORD                          21-AUG-1978 22:22:29   VAX-11 MACRO X0.3-11               Page   6

013             NT$GET2 - PERFORM NETWORK GET RECORD FUNCTION                                                                    (4)



            55            54     D0  0089   196 	MOVL	R4,R5			; INITIALIZE NEXT BYTE POINTER

            85            04     90  008C   197 	MOVB	#DAP$K_CTL_MSG,(R5)+	; DAP MESSAGE TYPE FIELD

                          85     94  008F   198 	CLRB	(R5)+			; FLAGS FIELD

            85            01     90  0091   199 	MOVB	#DAP$K_GET_READ,(R5)+	; CTLFUNC FIELD

            85            01     90  0094   200 	MOVB	#DAP$M_RAC,(R5)+	; CTLMENU FIELD

            85            03     90  0097   201 	MOVB	#DAP$K_SEQ_FILE,(R5)+	; RAC FIELD

            55            54     C2  009A   202 	SUBL2	R4,R5			; CALCULATE SIZE OF THE MESSAGE

                          FF60'  30  009D   203 	BSBW	NT$TRANSMIT		; SEND CONTROL MESSAGE TO FAL

            2D            50     E9  00A0   204 	BLBC	R0,EXIT2			; BRANCH ON FAILURE

                                     00A3   205 GET2_REC:				;

            54         14 A6     D0  00A3   206 	MOVL	BDB$L_ADDR(R6),R4	; GET BUFFER ADDRESS

            55         12 A6     3C  00A7   207 	MOVZWL	BDB$W_SIZE(R6),R5	; GET BUFFER SIZE

                                     00AB   208 	SSB	#DAP$K_DAT_MSG,DAP$L_MSG_MASK(R7)

         0C A7            08     E2  00AB       		BBSS	#DAP$K_DAT_MSG,DAP$L_MSG_MASK(R7),30001$

                          00         00AF       

                                     00B0       30001$:

                                     00B0   209 					; EXPECT RESPONSE OF DATA MESSAGE

                          FF4D'  30  00B0   210 	BSBW	NT$RECEIVE		; GET RECORD

            1F            50     E9  00B3   211 	BLBC	R0,CHKEOF2		; BRANCH ON FAILURE

         0A A6            01     88  00B6   212 	BISB2	#<1@BDB$V_VAL>,BDB$B_FLGS(R6) ; SET BUFFER VALID FLAG

         0E A9       0090 C7     B0  00BA   213 	MOVW	DAP$Q_FILEDATA(R7),IRB$W_IOS2(R9)

                                     00C0   214 					; UPDATE IOSB TO # DATA BYTES READ

         10 A6         0E A9     B0  00C0   215 	MOVW	IRB$W_IOS2(R9),BDB$W_NUMB(R6)

                                     00C5   216 					; UPDATE RECORD SIZE IN BDB

       0094 D7         10 A6     28  00C5   217 	MOVC3	BDB$W_NUMB(R6),@DAP$Q_FILEDATA+4(R7),@BDB$L_ADDR(R6)

                       14 B6         00CB       

                                     00CD   218 					; REMOVE DAP OVERHEAD BYTES

                                     00CD   219 	RMSSUC				; RETURN SUCCESS

            50            01     D0  00CD       		MOVL	#1,R0

                                     00D0   220 EXIT2:					;

                     00F0 8F     BA  00D0   221 	POPR	#^M<R4,R5,R6,R7>	; RESTORE REGISTERS

                                 05  00D4   222 	RSB				; EXIT WITH RMS CODE IN R0

                                     00D5   223 CHKEOF2:				;

       0000'8F            50     B1  00D5   224 	CMPW	R0,#<RMS$_EOF&^XFFFF>	; IS IT AN END-OF-FILE?

                          F4     12  00DA   225 	BNEQ	EXIT2			; NO

                       0E A9     B4  00DC   226 	CLRW	IRB$W_IOS2(R9)		; YES, ZERO BYTE COUNT IN IOSB

                       10 A6     B4  00DF   227 	CLRW	BDB$W_NUMB(R6)		; ZERO BYTE COUNT IN BDB

                          EC     11  00E2   228 	BRB	EXIT2			;

                                     00E4   229 	.END

NT0GET          NETWORK GET/FIND RECORD                          21-AUG-1978 22:22:29   VAX-11 MACRO X0.3-11               Page   7

SYMBOL TABLE                                                                                                                     (4)



$$.PSECT_EP    = 00000000            DAP$B_FLAGS      00000021            DAP$K_RAT_I    = 00000020            

$$RMSTEST      = 0000001A            DAP$B_FSZ        00000049            DAP$K_REL      = 00000010            

$$RMS_PBUGCHK  = 00000010            DAP$B_LENGTH     00000023            DAP$K_RESPONSE = 00000002            

$$RMS_TBUGCHK  = 00000008            DAP$B_MAC_CODE   0000000B            DAP$K_RETRY    = 00000001            

$$RMS_UMODE    = 00000004            DAP$B_MSG_TYPE   0000000A            DAP$K_REWIND   = 00000006            

BDB$B_BID        00000008            DAP$B_ORG        0000003D            DAP$K_RFA_ACC  = 00000002            

BDB$B_BLN        00000009            DAP$B_OSTYPE     00000026            DAP$K_RMS32    = 00000003            

BDB$B_FLGS       0000000A            DAP$B_RAC        0000006E            DAP$K_ROP_I    = 00000802            

BDB$B_POST_CCTL  00000023            DAP$B_RAT        0000003F            DAP$K_SEQ      = 00000000            

BDB$B_PRE_CCTL   00000022            DAP$B_RFM        0000003E            DAP$K_SEQ_ACC  = 00000000            

BDB$B_REL_VBN    00000020            DAP$B_SHR        00000063            DAP$K_SEQ_FILE = 00000003            

BDB$B_USECNT     0000000B            DAP$B_SOFTVER    0000002B            DAP$K_SHR_I    = 00000090            

BDB$B_VAL_VBNS   00000021            DAP$B_STREAMID   00000022            DAP$K_SKIP_REC = 00000002            

BDB$C_BID      = 0000000C            DAP$B_TYPE       00000020            DAP$K_SOFTVER_V= 00000001            

BDB$C_BLN        00000028            DAP$B_USRNUM     0000002A            DAP$K_SPACE    = 0000000B            

BDB$K_BLN        00000028            DAP$B_USRSOFT    0000002C            DAP$K_STM      = 00000004            

BDB$L_ADDR       00000014            DAP$B_VERNUM     00000028            DAP$K_STS_MSG  = 00000009            

BDB$L_BLINK      00000004            DAP$C_BLN        000000C0            DAP$K_SUBMIT   = 00000007            

BDB$L_CURBUFADR  00000024            DAP$K_ABORT    = 00000003            DAP$K_SYSCAP_V = E00660E7            

BDB$L_FLINK      00000000            DAP$K_ACCOPT_I = 00000008            DAP$K_UDF      = 00000000            

BDB$L_IOSB       00000020            DAP$K_ACC_MSG  = 00000003            DAP$K_UPDATE   = 00000003            

BDB$L_OWN        0000000C            DAP$K_ACK_MSG  = 00000006            DAP$K_USRNUM_V = 00000000            

BDB$L_VBN        00000018            DAP$K_ATTMENU_I= 0001A000            DAP$K_USRSOFT_V= 00000000            

BDB$L_WAIT       0000001C            DAP$K_ATT_MSG  = 00000002            DAP$K_VAR      = 00000002            

BDB$L_WK1        00000020            DAP$K_BLK_FILE = 00000005            DAP$K_VAXVMS   = 00000007            

BDB$M_AST_DCL  = 00000040            DAP$K_BLK_VBN  = 00000004            DAP$K_VERNUM_V = 00000004            

BDB$M_DRT      = 00000002            DAP$K_BLN        000000C0            DAP$K_VFC      = 00000003            

BDB$M_IOP      = 00000004            DAP$K_BLS_D    = 00000200            DAP$L_ALQ        00000044            

BDB$M_LKDINWS  = 00000080            DAP$K_BUFSIZ_V = 00001100            DAP$L_ATTMENU    00000038            

BDB$M_NOLOCATE = 00000010            DAP$K_CLOSE    = 00000001            DAP$L_DCODE_STS  00000008            

BDB$M_PRM      = 00000008            DAP$K_CMP_MSG  = 00000007            DAP$L_DEV        0000005C            

BDB$M_VAL      = 00000001            DAP$K_CNF_MSG  = 00000001            DAP$L_FOP        00000058            

BDB$M_WFO      = 00000020            DAP$K_CONNECT  = 00000002            DAP$L_FOP2       00000084            

BDB$V_AST_DCL  = 00000006            DAP$K_CON_MSG  = 00000005            DAP$L_MRN        0000004C            

BDB$V_DRT      = 00000001            DAP$K_CREATE   = 00000002            DAP$L_MSG_MASK   0000000C            

BDB$V_IOP      = 00000002            DAP$K_CTLMENU_I= 00000054            DAP$L_OPERATOR   00000020            

BDB$V_LKDINWS  = 00000007            DAP$K_CTL_MSG  = 00000004            DAP$L_RECNUM     000000A4            

BDB$V_NOLOCATE = 00000004            DAP$K_DATATYP_I= 00000084            DAP$L_ROP        00000078            

BDB$V_PRM      = 00000003            DAP$K_DAT_MSG  = 00000008            DAP$L_STV        000000A8            

BDB$V_VAL      = 00000000            DAP$K_DELETE   = 00000005            DAP$M_ALQ      = 00000040            

BDB$V_WFO      = 00000005            DAP$K_DEV_I    = 04000040            DAP$M_BKS      = 00000080            

BDB$W_NUMB       00000010            DAP$K_DISCON   = 00000004            DAP$M_BLS      = 00000010            

BDB$W_SIZE       00000012            DAP$K_ECONUM_V = 00000002            DAP$M_CBT      = 00800000            

BIT...         = 00000004            DAP$K_ERASE    = 00000004            DAP$M_CIF      = 00010000            

CHKEOF2          000000D5 R     02   DAP$K_EXECUTE  = 00000008            DAP$M_CTG      = 00000080            

DAP$B_ACCFUNC    00000060            DAP$K_FAC_I    = 00000040            DAP$M_DATATYPE = 00000001            

DAP$B_ACCOPT     00000061            DAP$K_FIND     = 0000000E            DAP$M_DEQ      = 00000800            

DAP$B_BKS        00000048            DAP$K_FIX      = 00000001            DAP$M_DEV      = 00004000            

DAP$B_CMPFUNC    00000080            DAP$K_FLAGS_I  = 00000004            DAP$M_DLK      = 00000010            

DAP$B_CONFUNC    0000007C            DAP$K_FOP_I    = 01020024            DAP$M_DLT      = 00400000            

DAP$B_CTLFUNC    0000006C            DAP$K_GET_READ = 00000001            DAP$M_DMO      = 00002000            

DAP$B_CTLMENU    0000006D            DAP$K_IDX      = 00000020            DAP$M_EMBEDDED = 00000010            

DAP$B_DATATYPE   0000003C            DAP$K_KEY_ACC  = 00000001            DAP$M_FID      = 00001000            

DAP$B_ECONUM     00000029            DAP$K_LSA      = 00000005            DAP$M_FOP      = 00001000            

DAP$B_FAC        00000062            DAP$K_OPEN     = 00000001            DAP$M_FSZ      = 00000100            

DAP$B_FIELD_ID   00000009            DAP$K_PURGE    = 00000003            DAP$M_GET      = 00000002            

DAP$B_FILESYS    00000027            DAP$K_PUT_WRITE= 00000004            DAP$M_IMAGE    = 00000002            

NT0GET          NETWORK GET/FIND RECORD                          21-AUG-1978 22:22:29   VAX-11 MACRO X0.3-11               Page   8

SYMBOL TABLE                                                                                                                     (4)



DAP$M_KEY      = 00000002            DAP$V_DEVCCL   = 00000001            DAP$V_RCK      = 0000000F            

DAP$M_MRN      = 00000200            DAP$V_DEVDIR   = 00000003            DAP$V_RELORG   = 00000002            

DAP$M_MRS      = 00000020            DAP$V_DEVDMT   = 0000000B            DAP$V_RFM      = 00000002            

DAP$M_MXV      = 00080000            DAP$V_DEVELG   = 00000011            DAP$V_ROP      = 00000003            

DAP$M_NEF      = 00000200            DAP$V_DEVFOD   = 00000007            DAP$V_RUNSYS   = 0000000A            

DAP$M_NIL      = 00000040            DAP$V_DEVFOR   = 00000017            DAP$V_RWC      = 00000001            

DAP$M_NONFATAL = 00000001            DAP$V_DEVGEN   = 00000019            DAP$V_RWO      = 00000000            

DAP$M_ORG      = 00000002            DAP$V_DEVIDV   = 0000000D            DAP$V_SCF      = 00000015            

DAP$M_POS      = 00000008            DAP$V_DEVMBX   = 00000012            DAP$V_SEQORG   = 00000001            

DAP$M_RAC      = 00000001            DAP$V_DEVMNT   = 0000000A            DAP$V_SEQREC   = 00000005            

DAP$M_RAT      = 00000008            DAP$V_DEVNET   = 00000018            DAP$V_SPL      = 00000014            

DAP$M_RCK      = 00008000            DAP$V_DEVODV   = 0000000E            DAP$V_SQO      = 00000012            

DAP$M_RFM      = 00000004            DAP$V_DEVRCK   = 00000015            DAP$V_STREAMID = 00000000            

DAP$M_ROP      = 00000008            DAP$V_DEVREC   = 00000000            DAP$V_STSRTN   = 00000011            

DAP$M_RUNSYS   = 00000400            DAP$V_DEVRND   = 00000014            DAP$V_STS_RETRV= 00000002            

DAP$M_RWC      = 00000002            DAP$V_DEVRTM   = 00000013            DAP$V_STS_STORE= 00000001            

DAP$M_RWO      = 00000001            DAP$V_DEVSDI   = 00000004            DAP$V_SUBMIT   = 0000000E            

DAP$M_SCF      = 00200000            DAP$V_DEVSHR   = 00000008            DAP$V_SUP      = 00000008            

DAP$M_SPL      = 00100000            DAP$V_DEVSPL   = 00000009            DAP$V_TMD      = 0000000B            

DAP$M_SQO      = 00040000            DAP$V_DEVSQD   = 00000005            DAP$V_TMP      = 0000000A            

DAP$M_SUP      = 00000100            DAP$V_DEVSWL   = 0000000F            DAP$V_TMP1..   = 00000001            

DAP$M_TMD      = 00000800            DAP$V_DEVTRM   = 00000002            DAP$V_TMP2..   = 0000000B            

DAP$M_TMP      = 00000400            DAP$V_DEVWCK   = 00000016            DAP$V_TMP3..   = 00000006            

DAP$M_WCK      = 00004000            DAP$V_DLK      = 00000004            DAP$V_TMP4..   = 00000018            

DAP$Q_DCODE_FLG  00000000            DAP$V_DLT      = 00000016            DAP$V_TRN      = 00000004            

DAP$Q_FILEDATA   00000090            DAP$V_DMO      = 0000000D            DAP$V_UPD      = 00000003            

DAP$Q_FILESPEC   00000064            DAP$V_EMBEDDED = 00000004            DAP$V_VAXVMS   = 00000021            

DAP$Q_KEY        00000070            DAP$V_EOF      = 00000000            DAP$V_WCK      = 0000000E            

DAP$Q_MSG_BUF1   00000010            DAP$V_EXEC     = 00000004            DAP$W_BLS        00000040            

DAP$Q_MSG_BUF2   00000018            DAP$V_FID      = 0000000C            DAP$W_BUFSIZ     00000024            

DAP$Q_NUMBER     00000088            DAP$V_FILALL   = 00000000            DAP$W_DEQ        0000004A            

DAP$Q_RFA        0000009C            DAP$V_FOP      = 0000000C            DAP$W_MRS        00000042            

DAP$Q_RUNSYS     00000050            DAP$V_FOPDLT   = 0000001F            DAP$W_STSCODE    00000098            

DAP$Q_SYSCAP     00000030            DAP$V_FOPSCF   = 0000001E            DAP$_FILE_CLOS = 00000007            

DAP$Q_VERSION    00000028            DAP$V_FOPSPL   = 0000001D            DAP$_FILE_OPEN = 00000004            

DAP$S_TMP1..   = 0000000A            DAP$V_FSZ      = 00000008            DAP$_FILE_XFER = 00000005            

DAP$S_TMP2..   = 00000015            DAP$V_FTN      = 00000000            DAP$_FORMAT    = 00000008            

DAP$S_TMP3..   = 00000002            DAP$V_GET      = 00000001            DAP$_INVALID   = 00000009            

DAP$S_TMP4..   = 00000008            DAP$V_IMAGE    = 00000001            DAP$_MSG_SYNC  = 0000000A            

DAP$V_AFTER_V41= 00000020            DAP$V_KEY      = 00000001            DAP$_PENDING   = 00000000            

DAP$V_ALQ      = 00000006            DAP$V_LENGTH   = 00000001            DAP$_SUCCESS   = 00000001            

DAP$V_APPEND   = 0000000D            DAP$V_MRN      = 00000009            DAP$_UNSUPPORT = 00000002            

DAP$V_ASCII    = 00000000            DAP$V_MRS      = 00000005            ERRIRC           00000063 R     02   

DAP$V_BIO      = 00000005            DAP$V_MSGBLK   = 00000012            EXIT             0000005E R     02   

DAP$V_BKS      = 00000007            DAP$V_MXV      = 00000013            EXIT2            000000D0 R     02   

DAP$V_BLK      = 00000003            DAP$V_NEF      = 00000009            GBL...         = 00000000            

DAP$V_BLS      = 00000004            DAP$V_NIL      = 00000006            GET2_REC         000000A3 R     02   

DAP$V_CBT      = 00000017            DAP$V_NONFATAL = 00000000            GET_REC          00000034 R     02   

DAP$V_CIF      = 00000010            DAP$V_ORG      = 00000001            IFB$B_AMAX       00000059            

DAP$V_CR       = 00000001            DAP$V_POS      = 00000003            IFB$B_AVBN       00000058            

DAP$V_CTG      = 00000007            DAP$V_PRIV     = 00000005            IFB$B_BID        00000008            

DAP$V_DATATYPE = 00000000            DAP$V_PRN      = 00000002            IFB$B_BKS        0000004A            

DAP$V_DEL      = 00000002            DAP$V_PUT      = 00000000            IFB$B_BLN        00000009            

DAP$V_DEQ      = 0000000B            DAP$V_RAC      = 00000000            IFB$B_EFN        0000000B            

DAP$V_DEV      = 0000000E            DAP$V_RANREC   = 00000006            IFB$B_EXTRABUF   0000005D            

DAP$V_DEVALL   = 0000000C            DAP$V_RANVBN   = 00000007            IFB$B_FAC        00000022            

DAP$V_DEVAVL   = 00000010            DAP$V_RAT      = 00000003            IFB$B_FSZ        0000004B            

NT0GET          NETWORK GET/FIND RECORD                          21-AUG-1978 22:22:29   VAX-11 MACRO X0.3-11               Page   9

SYMBOL TABLE                                                                                                                     (4)



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            

NT0GET          NETWORK GET/FIND RECORD                          21-AUG-1978 22:22:29   VAX-11 MACRO X0.3-11               Page  10

SYMBOL TABLE                                                                                                                     (4)



IRB$V_NEW_IDX  = 00000003            

IRB$V_POSINSERT= 00000000            

IRB$V_PPF_EOF  = 0000002E            

IRB$V_PPF_FNDSV= 00000030            

IRB$V_PPF_IMAGE= 00000022            

IRB$V_PPF_SKIP = 0000002F            

IRB$V_PUTS_LAST= 00000026            

IRB$V_RAHWBH   = 0000002A            

IRB$V_SKIP_NEXT= 0000002B            

IRB$V_SRCHGT   = 00000001            

IRB$V_UNLOCK_RP= 0000002D            

IRB$V_WRITE    = 00000029            

IRB$W_CSIZ       00000042            

IRB$W_DUP_POS    00000032            

IRB$W_IOS2       0000000E            

IRB$W_NRP_OFF    00000030            

IRB$W_OWN_ID     0000003C            

IRB$W_OWN_ISI    0000003E            

IRB$W_ROVHDSZ    00000044            

IRB$W_RP_OFF     00000038            

IRB$W_RTOTLSZ    00000046            

IRB$W_SAVE_POS   00000052            

NT$FIND2         0000006A RG    02   

NT$GET1          00000000 RG    02   

NT$GET2          0000006A RG    02   

NT$RECEIVE       ********   X   02   

NT$TRANSMIT      ********   X   02   

NWA$B_QUOTEDTRN  0000013F            

NWA$C_BLN        00000400            

NWA$C_BUFFERSIZ= 000002A0            

NWA$C_DAPSIZ   = 000000C0            

NWA$K_BLN        00000400            

NWA$Q_BUFFER     00000140            

NWA$Q_BUFFER2    00000148            

NWA$Q_FLG        00000000            

NWA$T_BUFFER     00000160            

NWA$T_DAP        00000000            

NWA$T_FILESPEC   000000C0            

NWA$T_QUOTEDBUF  000000C0            

NWA$T_SPARE      00000150            

PIO$GL_FMLH      ********   X   02   

RMS$_EOF         ********   X   02   

RMS$_IRC         ********   X   02   

RMS$_SUP         ********   X   02   

TPT$L_NTGET1     ********   X   02   

TPT$L_NTGET2     ********   X   02   





PROGRAM SECTION SYNOPSIS



.  ABS  .        00000000      00     NOPIC   USR   CON   ABS   LCL NOSHR NOEXE NORD  NOWRT BYTE  

. BLANK .        00000000      01     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  

NF$NETWORK       000000E4      02     NOPIC   USR   CON   REL   GBL NOSHR   EXE   RD  NOWRT BYTE  

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





THERE WERE NO ERRORS OR WARNINGS.

NT0GET          NETWORK GET/FIND RECORD                          21-AUG-1978 22:22:29   VAX-11 MACRO X0.3-11               Page  11

PROGRAM SECTION SYNOPSIS                                                                                                         (4)



2948. BYTES LEFT IN FREE MEMORY POOL.

10566. BYTES OF RECLAIMED MEMORY.

OBJ$:NT0GET,LIS$:NT0GET/-SP=LIB$:N/ML,R/ML,SRC$:NT0GET

40 MLB DIR RDS - 1145 GETS TO DEFINE 20 MACROS. 76 INTER. FILE WRITES. 

