NT0CLOSE        NETWORK CLOSE FILE                               21-AUG-1978 22:16:46   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (2)      38  DECLARATIONS

   (3)      61  NT$CLOSE - PERFORM NETWORK CLOSE FUNCTION

NT0CLOSE        NETWORK CLOSE FILE                               21-AUG-1978 22:16:46   VAX-11 MACRO X0.3-11               Page   1

010                                                                                                                              (1)



                                     0000     1 	$BEGIN	NT0CLOSE,010,NF$NETWORK,<NETWORK CLOSE FILE>

                                     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 CLOSE THE SPECIFIED FILE.

                                     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 ;--

NT0CLOSE        NETWORK CLOSE FILE                               21-AUG-1978 22:16:46   VAX-11 MACRO X0.3-11               Page   2

010             DECLARATIONS                                                                                                     (2)



                                     0000    38 	.SBTTL	DECLARATIONS

                                     0000    39 

                                     0000    40 ;

                                     0000    41 ; INCLUDE FILES:

                                     0000    42 ;

                                     0000    43 	$DAPDEF				; DEFINE DAP CONTROL BLOCK SYMBOLS

                                     0000    44 	$IFBDEF				; DEFINE IFAB CONTROL BLOCK SYMBOLS

                                     0000    45 	$NAMDEF				; DEFINE NAME BLOCK SYMBOLS

                                     0000    46 	$NWADEF				; DEFINE NETWORK WORK AREA SYMBOLS

                                     0000    47 	.LIST	MEB

                                     0000    48 ;

                                     0000    49 ; MACROS:

                                     0000    50 ;

                                     0000    51 ;	NONE

                                     0000    52 ;

                                     0000    53 ; EQUATED SYMBOLS:

                                     0000    54 ;

                                     0000    55 ;	NONE

                                     0000    56 ;

                                     0000    57 ; OWN STORAGE:

                                     0000    58 ;

                                     0000    59 ;	NONE

NT0CLOSE        NETWORK CLOSE FILE                               21-AUG-1978 22:16:46   VAX-11 MACRO X0.3-11               Page   3

010             NT$CLOSE - PERFORM NETWORK CLOSE FUNCTION                                                                        (3)



                                     0000    61 	.SBTTL	NT$CLOSE - PERFORM NETWORK CLOSE FUNCTION

                                     0000    62 

                                     0000    63 ;++

                                     0000    64 ; FUNCTIONAL DESCRIPTION:

                                     0000    65 ;

                                     0000    66 ;	NT$CLOSE ENGAGES IN A DAP DIALOGUE WITH THE REMOTE FAL TO CLOSE

                                     0000    67 ;	THE SPECIFIED FILE.

                                     0000    68 ;

                                     0000    69 ; CALLING SEQUENCE:

                                     0000    70 ;

                                     0000    71 ;	BSBW	NT$CLOSE

                                     0000    72 ;

                                     0000    73 ; INPUT PARAMETERS:

                                     0000    74 ;

                                     0000    75 ;	R11	IMPURE AREA ADDRESS

                                     0000    76 ;	R10	IFAB ADDRESS

                                     0000    77 ;	R9	IFAB ADDRESS

                                     0000    78 ;	R8	FAB ADDRESS

                                     0000    79 ;

                                     0000    80 ; IMPLICIT INPUTS:

                                     0000    81 ;

                                     0000    82 ;	NONE

                                     0000    83 ;

                                     0000    84 ; OUTPUT PARAMETERS:

                                     0000    85 ;

                                     0000    86 ;	R0	STATUS CODE (RMS)

                                     0000    87 ;	R1-R7	DESTROYED

                                     0000    88 ;	AP	DESTROYED

                                     0000    89 ;

                                     0000    90 ; IMPLICIT OUTPUTS:

                                     0000    91 ;

                                     0000    92 ;	NONE

                                     0000    93 ;

                                     0000    94 ; COMPLETION CODES:

                                     0000    95 ;

                                     0000    96 ;	STANDARD RMS COMPLETION CODES.

                                     0000    97 ;

                                     0000    98 ; SIDE EFFECTS:

                                     0000    99 ;

                                     0000   100 ;	NONE

                                     0000   101 ;

                                     0000   102 ;--

                                     0000   103 

                                     0000   104 NT$CLOSE::				; CONTROL POINT

                                     0000   105 	$TSTPT	NTCLOSE			;

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

            57         28 A9     D0  0006   106 	MOVL	IFB$L_NWA_PTR(R9),R7	; GET ADDRESS OF NWA

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

            55            54     D0  000F   108 	MOVL	R4,R5			; INITIALIZE NEXT BYTE POINTER

            85            07     90  0012   109 	MOVB	#DAP$K_CMP_MSG,(R5)+	; DAP MESSAGE TYPE FIELD

                          85     94  0015   110 	CLRB	(R5)+			; FLAGS FIELD

            85            01     90  0017   111 	MOVB	#DAP$K_CLOSE,(R5)+	; CMPFUNC FIELD

            51         04 A9     D0  001A   112 	MOVL	IFB$L_BKPBITS(R9),R1	; GET IFAB BITS

                          52     D4  001E   113 	CLRL	R2			; ZERO RESULTANT FOP BITS

                                     0020   114 	MAPBIT	<IFB$V_RWC-32>,DAP$V_RWC ; MAP RWC BIT

            51            07     E1  0020       	BBC	#IFB$V_RWC-32,R1,30000$

                          04         0023       

NT0CLOSE        NETWORK CLOSE FILE                               21-AUG-1978 22:16:46   VAX-11 MACRO X0.3-11               Page   4

010             NT$CLOSE - PERFORM NETWORK CLOSE FUNCTION                                                                        (3)



            52            01     E3  0024       	BBCS	#DAP$V_RWC,R2,30000$

                          00         0027       

                                     0028       30000$:

                                     0028   115 	MAPBIT	<IFB$V_DMO-32>,DAP$V_DMO ; MAP DMO BIT

            51            08     E1  0028       	BBC	#IFB$V_DMO-32,R1,30001$

                          04         002B       

            52            0D     E3  002C       	BBCS	#DAP$V_DMO,R2,30001$

                          00         002F       

                                     0030       30001$:

            67            21     E1  0030   116 	BBC	#DAP$V_VAXVMS,DAP$Q_DCODE_FLG(R7),10$

                          18         0033       

                                     0034   117 					; BRANCH IF PARTNER IS NOT VAX

                                     0034   118 	MAPBIT	<IFB$V_DLT-32>,DAP$V_DLT ; MAP DLT BIT

            51            0B     E1  0034       	BBC	#IFB$V_DLT-32,R1,30002$

                          04         0037       

            52            16     E3  0038       	BBCS	#DAP$V_DLT,R2,30002$

                          00         003B       

                                     003C       30002$:

                                     003C   119 	MAPBIT	<IFB$V_SCF-32>,DAP$V_SCF ; MAP SCF BIT

            51            0A     E1  003C       	BBC	#IFB$V_SCF-32,R1,30003$

                          04         003F       

            52            15     E3  0040       	BBCS	#DAP$V_SCF,R2,30003$

                          00         0043       

                                     0044       30003$:

                                     0044   120 	MAPBIT	<IFB$V_SPL-32>,DAP$V_SPL ; MAP SPL BIT

            51            09     E1  0044       	BBC	#IFB$V_SPL-32,R1,30004$

                          04         0047       

            52            14     E3  0048       	BBCS	#DAP$V_SPL,R2,30004$

                          00         004B       

                                     004C       30004$:

            51            52     D0  004C   121 10$:	MOVL	R2,R1			; MOVE DATA TO CORRECT REGISTER

                          03     13  004F   122 	BEQL	20$			; OMIT FIELD IF ZERO

                          FFAC'  30  0051   123 	BSBW	NT$CVT_BIN2EXT		; STORE FOP AS AN EXTENSIBLE FIELD

            55            54     C2  0054   124 20$:	SUBL2	R4,R5			; CALCULATE SIZE OF THE MESSAGE

                          FFA6'  30  0057   125 	BSBW	NT$TRANSMIT_ALT		; SEND ACCESS COMPLETE MESSAGE TO FAL

            1E            50     E9  005A   126 	BLBC	R0,90$			; BRANCH ON FAILURE

            55       0140 C7     D0  005D   127 	MOVL	NWA$Q_BUFFER(R7),R5	; GET RCV BUFFER SIZE

                                     0062   128 	SSB	#DAP$K_CMP_MSG,DAP$L_MSG_MASK(R7)

         0C A7            07     E2  0062       		BBSS	#DAP$K_CMP_MSG,DAP$L_MSG_MASK(R7),30005$

                          00         0066       

                                     0067       30005$:

                                     0067   129 					; EXPECT RESPONSE OF ACCESS COMPLETE MSG

                          FF96'  30  0067   130 	BSBW	NT$RECEIVE_ALT		; GET REPLY FROM FAL

            0E            50     E9  006A   131 	BLBC	R0,90$			; BRANCH ON FAILURE

                                     006D   132 

                                     006D   133 	ASSUME	IFB$V_DLT EQ IFB$V_SCF+1

                                     006D   134 	ASSUME	IFB$V_SCF EQ IFB$V_SPL+1

                                     006D   135 

            03            2A     ED  006D   136 	CMPZV	#IFB$V_SCF,#3,(R9),#0	; CHECK SPL, SCF, AND DLT BITS

            00            69         0070       

                          04     13  0072   137 	BEQL	80$			; BRANCH IF NONE SET

            67            21     E1  0074   138 	BBC	#DAP$V_VAXVMS,DAP$Q_DCODE_FLG(R7),FOP_OPTIONS

                          04         0077       

                                     0078   139 					; BRANCH IF PARTNER IS NOT VAX

                                     0078   140 80$:	RMSSUC				; RETURN SUCCESS

            50            01     D0  0078       		MOVL	#1,R0

                                 05  007B   141 90$:	RSB				; EXIT WITH RMS CODE IN R0

NT0CLOSE        NETWORK CLOSE FILE                               21-AUG-1978 22:16:46   VAX-11 MACRO X0.3-11               Page   5

010             NT$CLOSE - PERFORM NETWORK CLOSE FUNCTION                                                                        (4)



                                     007C   143 ;++

                                     007C   144 ;

                                     007C   145 ; SPECIAL CODE TO HANDLE THE SCF, SPL, AND DLT BITS IN THE FOP FIELD ON

                                     007C   146 ; CLOSE IF REMOTE FAL DOES NOT SUPPORT THESE OPTIONS ON CLOSE.

                                     007C   147 ;

                                     007C   148 ;--

                                     007C   149 

                                     007C   150 FOP_OPTIONS:				; CONTROL POINT

            55            54     D0  007C   151 	MOVL	R4,R5			; INITIALIZE NEXT BYTE POINTER

            85            03     90  007F   152 	MOVB	#DAP$K_ACC_MSG,(R5)+	; DAP MESSAGE TYPE FIELD

                          85     94  0082   153 	CLRB	(R5)+			; DAP FLAGS FIELD

            69            2B     E1  0084   154 	BBC	#IFB$V_DLT,(R9),10$	; CHECK FOR ONLY DLT BIT SET

                          0C         0087       

            02            29     ED  0088   155 	CMPZV	#IFB$V_SPL,#2,(R9),#0	; "

            00            69         008B       

                          05     12  008D   156 	BNEQ	10$			; "

            85            04     90  008F   157 	MOVB	#DAP$K_ERASE,(R5)+	; ACCFUNC FIELD

                          07     11  0092   158 	BRB	20$			; CONTINUE

            69            2A     E1  0094   159 10$:	BBC	#IFB$V_SCF,(R9),ERRSUP	; BRANCH IF NOT SCF

                          78         0097       

            85            08     90  0098   160 	MOVB	#DAP$K_EXECUTE,(R5)+	; ACCFUNC FIELD

            85            01     90  009B   161 20$:	MOVB	#DAP$M_NONFATAL,(R5)+	; ACCOPT FIELD

                          FF5F'  30  009E   162 	BSBW	RM$CLS_CHKNAM		; CHECK REQUIRED NAM BLOCK

                                     00A1   163 					;  (RETURNS RSA IN R7)

            72            50     E9  00A1   164 	BLBC	R0,ERRNAM		; ERROR IF NOT FOUND, OR IF BAD FORMAT

            52         03 A7     9A  00A4   165 	MOVZBL	NAM$B_RSL(R7),R2	; GET RESULTANT STRING SIZE

                          72     13  00A8   166 	BEQL	ERRRSS			; ERROR IF ZERO

            53         04 A7     D0  00AA   167 	MOVL	NAM$L_RSA(R7),R3	; GET RESULTANT STRING ADDRESS

                          72     13  00AE   168 	BEQL	ERRRST			; ERROR IF ZERO

            52         0A A9     0C  00B0   169 	PROBER	IFB$B_MODE(R9),R2,(R3)	; CHECK RESULTANT STRING FOR READABILITY

                          63         00B4       

                          6B     13  00B5   170 	BEQL	ERRRST			; BRANCH IF NOT READABLE

                                     00B7   171 					; BRANCH IF STRING NOT READABLE

            52            3A     3A  00B7   172 	LOCC	#^A\:\,R2,(R3)		; SEARCH FOR DOUBLE COLON DELIMITER

                          63         00BA       

                          65     13  00BB   173 	BEQL	ERRRST			; "

                          50     D7  00BD   174 	DECL	R0			; "

                          61     13  00BF   175 	BEQL	ERRRST			; "

         01 A1            3A     91  00C1   176 	CMPB	#^A\:\,1(R1)		; "

                          5B     12  00C5   177 	BNEQ	ERRRST			; "

                          50     D7  00C7   178 	DECL	R0			; "

                          57     13  00C9   179 	BEQL	ERRRST			; "

         02 A1            22     91  00CB   180 	CMPB	#^A\"\,2(R1)		; IS THIS QUOTED STRING FORMAT?

                          0C     13  00CF   181 	BEQL	30$			; BRANCH IF YES

            85            50     90  00D1   182 	MOVB	R0,(R5)+		; STORE STRING COUNT IN MESSAGE

                          10     BB  00D4   183 	PUSHR	#^M<R4>			; SAVE START OF MESSAGE ADDRESS

         02 A1            50     28  00D6   184 	MOVC3	R0,2(R1),(R5)		; COPY FILENAME STRING TO MESSAGE

                          65         00DA       

                          0F     11  00DB   185 	BRB	40$			; CONTINUE

            50            02     C2  00DD   186 30$:	SUBL2	#2,R0			; REDUCE STRING SIZE BY THE QUOTES

                          40     1B  00E0   187 	BLEQU	ERRRST			; BRANCH IF NO FILENAME

            85            50     90  00E2   188 	MOVB	R0,(R5)+		; STORE STRING COUNT IN MESSAGE

                          10     BB  00E5   189 	PUSHR	#^M<R4>			; SAVE START OF MESSAGE ADDRESS

         03 A1            50     28  00E7   190 	MOVC3	R0,3(R1),(R5)		; COPY FILENAME STRING TO MESSAGE

                          65         00EB       

                          10     BA  00EC   191 40$:	POPR	#^M<R4>			; RESTORE START OF MESSAGE ADDRESS

            53            54     C3  00EE   192 	SUBL3	R4,R3,R5		; COMPUTE MESSAGE SIZE

NT0CLOSE        NETWORK CLOSE FILE                               21-AUG-1978 22:16:46   VAX-11 MACRO X0.3-11               Page   6

010             NT$CLOSE - PERFORM NETWORK CLOSE FUNCTION                                                                        (4)



                          55         00F1       

            57         28 A9     D0  00F2   193 	MOVL	IFB$L_NWA_PTR(R9),R7	; GET ADDRESS OF NWA

                          FF07'  30  00F6   194 	BSBW	NT$TRANSMIT_ALT		; SEND ACCESS COMPLETE MESSAGE TO FAL

            13            50     E9  00F9   195 	BLBC	R0,90$			; BRANCH ON FAILURE

            55       0140 C7     D0  00FC   196 	MOVL	NWA$Q_BUFFER(R7),R5	; GET RCV BUFFER SIZE

                                     0101   197 	SSB	#DAP$K_CMP_MSG,DAP$L_MSG_MASK(R7)

         0C A7            07     E2  0101       		BBSS	#DAP$K_CMP_MSG,DAP$L_MSG_MASK(R7),30006$

                          00         0105       

                                     0106       30006$:

                                     0106   198 					; EXPECT RESPONSE OF ACCESS COMPLETE MSG

                          FEF7'  30  0106   199 	BSBW	NT$RECEIVE_ALT		; GET REPLY FROM FAL

            03            50     E9  0109   200 	BLBC	R0,90$			; BRANCH ON FAILURE

                                     010C   201 	RMSSUC				; RETURN SUCCESS

            50            01     D0  010C       		MOVL	#1,R0

                                 05  010F   202 90$:	RSB				; EXIT WITH RMS CODE IN R0

                                     0110   203 ERRSUP:	RMSERR	SUP			; UNSUPPORTED OPTION

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

                                 05  0115   204 	RSB				; EXIT WITH RMS CODE IN R0

                                     0116   205 ERRNAM:	RMSERR	NAM			; ERROR IN NAME BLOCK

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

                                 05  011B   206 	RSB				; EXIT WITH RMS CODE IN R0

                                     011C   207 ERRRSS:	RMSERR	RSS			; ERROR IN RESULTANT STRING SIZE

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

                                 05  0121   208 	RSB				; EXIT WITH RMS CODE IN R0

                                     0122   209 ERRRST:	RMSERR	RST			; ERROR IN RESULTANT STRING ADDRESS

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

                                 05  0127   210 	RSB				; EXIT WITH RMS CODE IN R0

                                     0128   211 	.END

NT0CLOSE        NETWORK CLOSE FILE                               21-AUG-1978 22:16:46   VAX-11 MACRO X0.3-11               Page   7

SYMBOL TABLE                                                                                                                     (4)



$$.PSECT_EP    = 00000000            DAP$K_DELETE   = 00000005            DAP$M_ALQ      = 00000040            

$$RMSTEST      = 0000001A            DAP$K_DEV_I    = 04000040            DAP$M_BKS      = 00000080            

$$RMS_PBUGCHK  = 00000010            DAP$K_DISCON   = 00000004            DAP$M_BLS      = 00000010            

$$RMS_TBUGCHK  = 00000008            DAP$K_ECONUM_V = 00000002            DAP$M_CBT      = 00800000            

$$RMS_UMODE    = 00000004            DAP$K_ERASE    = 00000004            DAP$M_CIF      = 00010000            

BIT...         = 0000001A            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            

DAP$B_FLAGS      00000021            DAP$K_RAT_I    = 00000020            DAP$M_KEY      = 00000002            

DAP$B_FSZ        00000049            DAP$K_REL      = 00000010            DAP$M_MRN      = 00000200            

DAP$B_LENGTH     00000023            DAP$K_RESPONSE = 00000002            DAP$M_MRS      = 00000020            

DAP$B_MAC_CODE   0000000B            DAP$K_RETRY    = 00000001            DAP$M_MXV      = 00080000            

DAP$B_MSG_TYPE   0000000A            DAP$K_REWIND   = 00000006            DAP$M_NEF      = 00000200            

DAP$B_ORG        0000003D            DAP$K_RFA_ACC  = 00000002            DAP$M_NIL      = 00000040            

DAP$B_OSTYPE     00000026            DAP$K_RMS32    = 00000003            DAP$M_NONFATAL = 00000001            

DAP$B_RAC        0000006E            DAP$K_ROP_I    = 00000802            DAP$M_ORG      = 00000002            

DAP$B_RAT        0000003F            DAP$K_SEQ      = 00000000            DAP$M_POS      = 00000008            

DAP$B_RFM        0000003E            DAP$K_SEQ_ACC  = 00000000            DAP$M_RAC      = 00000001            

DAP$B_SHR        00000063            DAP$K_SEQ_FILE = 00000003            DAP$M_RAT      = 00000008            

DAP$B_SOFTVER    0000002B            DAP$K_SHR_I    = 00000090            DAP$M_RCK      = 00008000            

DAP$B_STREAMID   00000022            DAP$K_SKIP_REC = 00000002            DAP$M_RFM      = 00000004            

DAP$B_TYPE       00000020            DAP$K_SOFTVER_V= 00000001            DAP$M_ROP      = 00000008            

DAP$B_USRNUM     0000002A            DAP$K_SPACE    = 0000000B            DAP$M_RUNSYS   = 00000400            

DAP$B_USRSOFT    0000002C            DAP$K_STM      = 00000004            DAP$M_RWC      = 00000002            

DAP$B_VERNUM     00000028            DAP$K_STS_MSG  = 00000009            DAP$M_RWO      = 00000001            

DAP$C_BLN        000000C0            DAP$K_SUBMIT   = 00000007            DAP$M_SCF      = 00200000            

DAP$K_ABORT    = 00000003            DAP$K_SYSCAP_V = E00660E7            DAP$M_SPL      = 00100000            

DAP$K_ACCOPT_I = 00000008            DAP$K_UDF      = 00000000            DAP$M_SQO      = 00040000            

DAP$K_ACC_MSG  = 00000003            DAP$K_UPDATE   = 00000003            DAP$M_SUP      = 00000100            

DAP$K_ACK_MSG  = 00000006            DAP$K_USRNUM_V = 00000000            DAP$M_TMD      = 00000800            

DAP$K_ATTMENU_I= 0001A000            DAP$K_USRSOFT_V= 00000000            DAP$M_TMP      = 00000400            

DAP$K_ATT_MSG  = 00000002            DAP$K_VAR      = 00000002            DAP$M_WCK      = 00004000            

DAP$K_BLK_FILE = 00000005            DAP$K_VAXVMS   = 00000007            DAP$Q_DCODE_FLG  00000000            

DAP$K_BLK_VBN  = 00000004            DAP$K_VERNUM_V = 00000004            DAP$Q_FILEDATA   00000090            

DAP$K_BLN        000000C0            DAP$K_VFC      = 00000003            DAP$Q_FILESPEC   00000064            

DAP$K_BLS_D    = 00000200            DAP$L_ALQ        00000044            DAP$Q_KEY        00000070            

DAP$K_BUFSIZ_V = 00001100            DAP$L_ATTMENU    00000038            DAP$Q_MSG_BUF1   00000010            

DAP$K_CLOSE    = 00000001            DAP$L_DCODE_STS  00000008            DAP$Q_MSG_BUF2   00000018            

DAP$K_CMP_MSG  = 00000007            DAP$L_DEV        0000005C            DAP$Q_NUMBER     00000088            

DAP$K_CNF_MSG  = 00000001            DAP$L_FOP        00000058            DAP$Q_RFA        0000009C            

DAP$K_CONNECT  = 00000002            DAP$L_FOP2       00000084            DAP$Q_RUNSYS     00000050            

DAP$K_CON_MSG  = 00000005            DAP$L_MRN        0000004C            DAP$Q_SYSCAP     00000030            

DAP$K_CREATE   = 00000002            DAP$L_MSG_MASK   0000000C            DAP$Q_VERSION    00000028            

DAP$K_CTLMENU_I= 00000054            DAP$L_OPERATOR   00000020            DAP$S_TMP1..   = 0000000A            

DAP$K_CTL_MSG  = 00000004            DAP$L_RECNUM     000000A4            DAP$S_TMP2..   = 00000015            

DAP$K_DATATYP_I= 00000084            DAP$L_ROP        00000078            DAP$S_TMP3..   = 00000002            

DAP$K_DAT_MSG  = 00000008            DAP$L_STV        000000A8            DAP$S_TMP4..   = 00000008            

NT0CLOSE        NETWORK CLOSE FILE                               21-AUG-1978 22:16:46   VAX-11 MACRO X0.3-11               Page   8

SYMBOL TABLE                                                                                                                     (4)



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            ERRNAM           00000116 R     02   

DAP$V_BIO      = 00000005            DAP$V_MSGBLK   = 00000012            ERRRSS           0000011C R     02   

DAP$V_BKS      = 00000007            DAP$V_MXV      = 00000013            ERRRST           00000122 R     02   

DAP$V_BLK      = 00000003            DAP$V_NEF      = 00000009            ERRSUP           00000110 R     02   

DAP$V_BLS      = 00000004            DAP$V_NIL      = 00000006            FOP_OPTIONS      0000007C R     02   

DAP$V_CBT      = 00000017            DAP$V_NONFATAL = 00000000            GBL...         = 00000000            

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            

DAP$V_DEVCCL   = 00000001            DAP$V_RCK      = 0000000F            IFB$B_KBUFSZ     0000005C            

DAP$V_DEVDIR   = 00000003            DAP$V_RELORG   = 00000002            IFB$B_MODE       0000000A            

DAP$V_DEVDMT   = 0000000B            DAP$V_RFM      = 00000002            IFB$B_NUM_KEYS   0000005A            

DAP$V_DEVELG   = 00000011            DAP$V_ROP      = 00000003            IFB$B_ORGCASE    00000023            

DAP$V_DEVFOD   = 00000007            DAP$V_RUNSYS   = 0000000A            IFB$B_RAT        0000003D            

DAP$V_DEVFOR   = 00000017            DAP$V_RWC      = 00000001            IFB$B_RFMORG     0000003C            

DAP$V_DEVGEN   = 00000019            DAP$V_RWO      = 00000000            IFB$B_UBUFSZ     0000005B            

DAP$V_DEVIDV   = 0000000D            DAP$V_SCF      = 00000015            IFB$C_BID      = 0000000B            

DAP$V_DEVMBX   = 00000012            DAP$V_SEQORG   = 00000001            IFB$C_BLN        00000060            

DAP$V_DEVMNT   = 0000000A            DAP$V_SEQREC   = 00000005            IFB$C_BLN_IDX    00000060            

DAP$V_DEVNET   = 00000018            DAP$V_SPL      = 00000014            IFB$C_BLN_REL    00000060            

DAP$V_DEVODV   = 0000000E            DAP$V_SQO      = 00000012            IFB$C_BLN_SEQ    0000005C            

DAP$V_DEVRCK   = 00000015            DAP$V_STREAMID = 00000000            IFB$C_DIR      = 00000003            

DAP$V_DEVREC   = 00000000            DAP$V_STSRTN   = 00000011            IFB$C_FHAEND     00000050            

DAP$V_DEVRND   = 00000014            DAP$V_STS_RETRV= 00000002            IFB$C_IDX      = 00000002            

DAP$V_DEVRTM   = 00000013            DAP$V_STS_STORE= 00000001            IFB$C_MAXORG   = 00000002            

DAP$V_DEVSDI   = 00000004            DAP$V_SUBMIT   = 0000000E            IFB$C_REL      = 00000001            

DAP$V_DEVSHR   = 00000008            DAP$V_SUP      = 00000008            IFB$C_SEQ      = 00000000            

DAP$V_DEVSPL   = 00000009            DAP$V_TMD      = 0000000B            IFB$K_BLN        00000060            

DAP$V_DEVSQD   = 00000005            DAP$V_TMP      = 0000000A            IFB$K_BLN_IDX    00000060            

DAP$V_DEVSWL   = 0000000F            DAP$V_TMP1..   = 00000001            IFB$K_BLN_REL    00000060            

DAP$V_DEVTRM   = 00000002            DAP$V_TMP2..   = 0000000B            IFB$K_BLN_SEQ    0000005C            

DAP$V_DEVWCK   = 00000016            DAP$V_TMP3..   = 00000006            IFB$K_FHAEND     00000050            

DAP$V_DLK      = 00000004            DAP$V_TMP4..   = 00000018            IFB$L_ARGLST     00000018            

DAP$V_DLT      = 00000016            DAP$V_TRN      = 00000004            IFB$L_ASBADDR    00000014            

DAP$V_DMO      = 0000000D            DAP$V_UPD      = 00000003            IFB$L_AS_DEV     00000054            

DAP$V_EMBEDDED = 00000004            DAP$V_VAXVMS   = 00000021            IFB$L_BDB_BLNK   00000034            

DAP$V_EOF      = 00000000            DAP$V_WCK      = 0000000E            IFB$L_BDB_FLNK   00000030            

DAP$V_EXEC     = 00000004            DAP$W_BLS        00000040            IFB$L_BKPBITS    00000004            

DAP$V_FID      = 0000000C            DAP$W_BUFSIZ     00000024            IFB$L_BWB        0000000C            

DAP$V_FILALL   = 00000000            DAP$W_DEQ        0000004A            IFB$L_DVBN       00000058            

DAP$V_FOP      = 0000000C            DAP$W_MRS        00000042            IFB$L_EBK        00000044            

DAP$V_FOPDLT   = 0000001F            DAP$W_STSCODE    00000098            IFB$L_FRB_PTR    00000028            

DAP$V_FOPSCF   = 0000001E            DAP$_FILE_CLOS = 00000007            IFB$L_FWA_BDB    00000050            

DAP$V_FOPSPL   = 0000001D            DAP$_FILE_OPEN = 00000004            IFB$L_HBK        00000040            

DAP$V_FSZ      = 00000008            DAP$_FILE_XFER = 00000005            IFB$L_IDX_PTR    00000054            

DAP$V_FTN      = 00000000            DAP$_FORMAT    = 00000008            IFB$L_IOS        0000000C            

DAP$V_GET      = 00000001            DAP$_INVALID   = 00000009            IFB$L_IOS4       00000010            

DAP$V_IMAGE    = 00000001            DAP$_MSG_SYNC  = 0000000A            IFB$L_IRAB_LNK   0000001C            

NT0CLOSE        NETWORK CLOSE FILE                               21-AUG-1978 22:16:46   VAX-11 MACRO X0.3-11               Page   9

SYMBOL TABLE                                                                                                                     (4)



IFB$L_LAST_FAB   00000024            IFB$W_CHNL       00000020            NAM$M_WILD_SFD6= 40000000            

IFB$L_LOCK_BDB   00000050            IFB$W_DEQ        0000004E            NAM$M_WILD_SFD7= 80000000            

IFB$L_MRN        00000054            IFB$W_DEVBUFSIZ  00000038            NAM$M_WILD_TYPE= 00000010            

IFB$L_NRP_LNK    00000050            IFB$W_EBK0       00000044            NAM$M_WILD_UFD = 01000000            

IFB$L_NWA_PTR    00000028            IFB$W_EBK2       00000046            NAM$M_WILD_VER = 00000008            

IFB$L_PRIM_DEV   00000000            IFB$W_FFB        00000048            NAM$S_DIR_LVLS = 00000003            

IFB$L_RLB_LNK    0000002C            IFB$W_IOS2       0000000E            NAM$T_DVI        00000014            

IFB$L_RNS_LEN    00000050            IFB$W_LRL        0000003E            NAM$V_DIR_LVLS = 00000015            

IFB$M_BIO      = 00000020            IFB$W_MRS        0000004C            NAM$V_EXP_DEV  = 00000007            

IFB$M_BRO      = 00000040            IFB$W_RTDEQ      0000003A            NAM$V_EXP_DIR  = 00000006            

IFB$M_DEL      = 00000004            NAM$B_BID        00000000            NAM$V_EXP_NAME = 00000002            

IFB$M_EXE      = 00000080            NAM$B_BLN        00000001            NAM$V_EXP_TYPE = 00000001            

IFB$M_GET      = 00000002            NAM$B_CURLVL     00000038            NAM$V_EXP_VER  = 00000000            

IFB$M_PUT      = 00000001            NAM$B_ESL        0000000B            NAM$V_GRP_MBR  = 00000013            

IFB$M_TRN      = 00000010            NAM$B_ESS        0000000A            NAM$V_HIGHVER  = 0000000F            

IFB$M_UPD      = 00000008            NAM$B_RSL        00000003            NAM$V_LOWVER   = 0000000E            

IFB$S_ORG      = 00000004            NAM$B_RSS        00000002            NAM$V_NODE     = 00000011            

IFB$S_RFM      = 00000004            NAM$C_BID      = 00000002            NAM$V_PPF      = 00000010            

IFB$V_ACCESSED = 00000025            NAM$C_BLN        00000038            NAM$V_QUOTED   = 00000012            

IFB$V_ANSI_D   = 00000026            NAM$C_BLN_DIRWC  00000050            NAM$V_WILDCARD = 00000008            

IFB$V_ASYNC    = 00000023            NAM$C_DVI      = 00000010            NAM$V_WILD_DIR = 00000014            

IFB$V_ASYNCWAIT= 00000024            NAM$C_MAXRSS   = 00000080            NAM$V_WILD_GRP = 00000018            

IFB$V_BIO      = 00000005            NAM$C_MAXRSSLCL= 00000060            NAM$V_WILD_MBR = 00000019            

IFB$V_BRO      = 00000006            NAM$K_BLN        00000038            NAM$V_WILD_NAME= 00000005            

IFB$V_BUSY     = 00000020            NAM$K_BLN_DIRWC  00000050            NAM$V_WILD_SFD1= 00000019            

IFB$V_CREATE   = 00000032            NAM$L_DIRWCC1    00000040            NAM$V_WILD_SFD2= 0000001A            

IFB$V_DAP      = 0000003E            NAM$L_DIRWCC2    00000044            NAM$V_WILD_SFD3= 0000001B            

IFB$V_DAP_OPEN = 0000003D            NAM$L_DIRWCC3    00000048            NAM$V_WILD_SFD4= 0000001C            

IFB$V_DEL      = 00000002            NAM$L_DIRWCC4    0000004C            NAM$V_WILD_SFD5= 0000001D            

IFB$V_DFW      = 0000002C            NAM$L_DWC        00000038            NAM$V_WILD_SFD6= 0000001E            

IFB$V_DLT      = 0000002B            NAM$L_ESA        0000000C            NAM$V_WILD_SFD7= 0000001F            

IFB$V_DMO      = 00000028            NAM$L_FNB        00000034            NAM$V_WILD_TYPE= 00000004            

IFB$V_EOF      = 00000021            NAM$L_RLF        00000010            NAM$V_WILD_UFD = 00000018            

IFB$V_EXE      = 00000007            NAM$L_RSA        00000004            NAM$V_WILD_VER = 00000003            

IFB$V_GET      = 00000001            NAM$L_WCC        00000030            NAM$W_DID        0000002A            

IFB$V_MSE      = 00000031            NAM$M_DIR_LVLS = 00E00000            NAM$W_DID_NUM    0000002A            

IFB$V_NORECLK  = 00000033            NAM$M_EXP_DEV  = 00000080            NAM$W_DID_RVN    0000002E            

IFB$V_NSP      = 0000003F            NAM$M_EXP_DIR  = 00000040            NAM$W_DID_SEQ    0000002C            

IFB$V_NWA      = 0000003C            NAM$M_EXP_NAME = 00000004            NAM$W_FID        00000024            

IFB$V_ORG      = 00000004            NAM$M_EXP_TYPE = 00000002            NAM$W_FID_NUM    00000024            

IFB$V_PPF_IMAGE= 00000022            NAM$M_EXP_VER  = 00000001            NAM$W_FID_RVN    00000028            

IFB$V_PPF_INPUT= 0000002E            NAM$M_GRP_MBR  = 00080000            NAM$W_FID_SEQ    00000026            

IFB$V_PUT      = 00000000            NAM$M_HIGHVER  = 00008000            NAM$W_PRV_DID    0000003A            

IFB$V_RFM      = 00000000            NAM$M_LOWVER   = 00004000            NT$CLOSE         00000000 RG    02   

IFB$V_RWC      = 00000027            NAM$M_NODE     = 00020000            NT$CVT_BIN2EXT   ********   X   02   

IFB$V_RW_ATTR  = 00000034            NAM$M_PPF      = 00010000            NT$RECEIVE_ALT   ********   X   02   

IFB$V_SCF      = 0000002A            NAM$M_QUOTED   = 00040000            NT$TRANSMIT_ALT  ********   X   02   

IFB$V_SPL      = 00000029            NAM$M_WILDCARD = 00000100            NWA$B_QUOTEDTRN  0000013F            

IFB$V_SQO      = 0000002D            NAM$M_WILD_DIR = 00100000            NWA$C_BLN        00000400            

IFB$V_TEF      = 00000036            NAM$M_WILD_GRP = 01000000            NWA$C_BUFFERSIZ= 000002A0            

IFB$V_TMP      = 00000035            NAM$M_WILD_MBR = 02000000            NWA$C_DAPSIZ   = 000000C0            

IFB$V_TRN      = 00000004            NAM$M_WILD_NAME= 00000020            NWA$K_BLN        00000400            

IFB$V_UPD      = 00000003            NAM$M_WILD_SFD1= 02000000            NWA$Q_BUFFER     00000140            

IFB$V_WRTACC   = 00000030            NAM$M_WILD_SFD2= 04000000            NWA$Q_BUFFER2    00000148            

IFB$W_ASDEVBSIZ  0000005A            NAM$M_WILD_SFD3= 08000000            NWA$Q_FLG        00000000            

IFB$W_BKS_BYTES  0000005C            NAM$M_WILD_SFD4= 10000000            NWA$T_BUFFER     00000160            

IFB$W_BKS_RECS   0000005E            NAM$M_WILD_SFD5= 20000000            NWA$T_DAP        00000000            

NT0CLOSE        NETWORK CLOSE FILE                               21-AUG-1978 22:16:46   VAX-11 MACRO X0.3-11               Page  10

SYMBOL TABLE                                                                                                                     (4)



NWA$T_FILESPEC   000000C0            

NWA$T_QUOTEDBUF  000000C0            

NWA$T_SPARE      00000150            

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

RM$CLS_CHKNAM    ********   X   02   

RMS$_NAM         ********   X   02   

RMS$_RSS         ********   X   02   

RMS$_RST         ********   X   02   

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

TPT$L_NTCLOSE    ********   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       00000128      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.

4492. BYTES LEFT IN FREE MEMORY POOL.

9316. BYTES OF RECLAIMED MEMORY.

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

41 MLB DIR RDS - 1031 GETS TO DEFINE 21 MACROS. 73 INTER. FILE WRITES. 

