NT0DAPIO        DAP MESSAGE I/O                                  21-AUG-1978 22:19:08   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (2)      38  DECLARATIONS

   (3)      63  NT$TRANSMIT - TRANSMIT DAP MESSAGE

   (4)     140  NT$RECEIVE - RECEIVE DAP MESSAGE

NT0DAPIO        DAP MESSAGE I/O                                  21-AUG-1978 22:19:08   VAX-11 MACRO X0.3-11               Page   1

008                                                                                                                              (1)



                                     0000     1 	$BEGIN	NT0DAPIO,008,NF$NETWORK,<DAP MESSAGE I/O>

                                     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 CONTAINS ROUTINES THAT TRANSMIT AND RECEIVE DAP

                                     0000    28 ;	MESSAGES TO/FROM THE REMOTE FILE ACCESS LISTENER.

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

NT0DAPIO        DAP MESSAGE I/O                                  21-AUG-1978 22:19:08   VAX-11 MACRO X0.3-11               Page   2

008             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 	$FABDEF				; DEFINE FAB SYMBOLS

                                     0000    45 	$IFBDEF				; DEFINE IFAB SYMBOLS

                                     0000    46 ;	$IODEF				; DEFINE I/O FUNCTION CODES

                                     0000    47 ;	$IRBDEF				; DEFINE IRAB SYMBOLS

                                     0000    48 	$NWADEF				; DEFINE NETWORK WORK AREA SYMBOLS

                                     0000    49 	.LIST	MEB

                                     0000    50 ;

                                     0000    51 ; MACROS:

                                     0000    52 ;

                                     0000    53 ;	NONE

                                     0000    54 ;

                                     0000    55 ; EQUATED SYMBOLS:

                                     0000    56 ;

                           000001F7  0000    57 FAL_FAC_CODE=503			; FAL FACILITY CODE

                                     0000    58 ;

                                     0000    59 ; OWN STORAGE:

                                     0000    60 ;

                                     0000    61 ;	NONE

NT0DAPIO        DAP MESSAGE I/O                                  21-AUG-1978 22:19:08   VAX-11 MACRO X0.3-11               Page   3

008             NT$TRANSMIT - TRANSMIT DAP MESSAGE                                                                               (3)



                                     0000    63 	.SBTTL	NT$TRANSMIT - TRANSMIT DAP MESSAGE

                                     0000    64 

                                     0000    65 ;++

                                     0000    66 ; FUNCTIONAL DESCRIPTION:

                                     0000    67 ;

                                     0000    68 ;	NT$TRANSMIT TRANSMITS THE SPECIFIED DAP MESSAGE TO THE REMOTE FAL.

                                     0000    69 ;

                                     0000    70 ; CALLING SEQUENCE:

                                     0000    71 ;

                                     0000    72 ;	BSB/JSB	NT$TRANSMIT	(IFAB ADDRESS IN R10)

                                     0000    73 ;	BSB/JSB	NT$TRANSMIT_ALT	(IFAB ADDRESS IN R9)

                                     0000    74 ;

                                     0000    75 ; INPUT PARAMETERS:

                                     0000    76 ;

                                     0000    77 ;	R11	IMPURE AREA ADDRESS

                                     0000    78 ;	R10	IFAB ADDRESS

                                     0000    79 ;	R9	IFAB/IRAB ADDRESS

                                     0000    80 ;	R8	FAB/RAB ADDRESS

                                     0000    81 ;	R7	NWA (=DAP) ADDRESS

                                     0000    82 ;	R5	BUFFER SIZE

                                     0000    83 ;	R4	BUFFER ADDRESS

                                     0000    84 ;

                                     0000    85 ; IMPLICIT INPUTS:

                                     0000    86 ;

                                     0000    87 ;	NONE

                                     0000    88 ;

                                     0000    89 ; OUTPUT PARAMETERS:

                                     0000    90 ;

                                     0000    91 ;	R0	STATUS CODE (RMS)

                                     0000    92 ;	R1-R3	DESTROYED

                                     0000    93 ;	AP	DESTROYED

                                     0000    94 ;

                                     0000    95 ; IMPLICIT OUTPUTS:

                                     0000    96 ;

                                     0000    97 ;	NONE

                                     0000    98 ;

                                     0000    99 ; COMPLETION CODES:

                                     0000   100 ;

                                     0000   101 ;	STANDARD RMS COMLETION CODES.

                                     0000   102 ;

                                     0000   103 ; SIDE EFFECTS:

                                     0000   104 ;

                                     0000   105 ;	NONE

                                     0000   106 ;

                                     0000   107 ;--

                                     0000   108 

                                     0000   109 NT$TRANSMIT_ALT::			; CONTROL POINT

            53         20 A9     3C  0000   110 	MOVZWL	IFB$W_CHNL(R9),R3	; GET CHANNEL #

                          04     11  0004   111 	BRB	TRAN_COMMON		; JOIN COMMON CODE

                                     0006   112 NT$TRANSMIT::				; CONTROL POINT

            53         20 AA     3C  0006   113 	MOVZWL	IFB$W_CHNL(R10),R3	; GET CHANNEL #

                                     000A   114 TRAN_COMMON:				;

                                     000A   115 	$TSTPT	NTDAP_XMT		;

                 00000200'9F     D6  000A       		INCL	@#PIO$GL_FMLH+512+TPT$L_NTDAP_XMT

            67            8E     D0  0010   116 	MOVL	(SP)+,NWA$Q_FLG(R7)	; SAVE RETURN PC

                                     0013   117 

                                     0013   118 ;		ASSUME	IFB$L_IOS  EQ IRB$L_IOS

NT0DAPIO        DAP MESSAGE I/O                                  21-AUG-1978 22:19:08   VAX-11 MACRO X0.3-11               Page   4

008             NT$TRANSMIT - TRANSMIT DAP MESSAGE                                                                               (3)



                                     0013   119 

                          FFEA'  30  0013   120 	BSBW	RM$SETEFN		; REQUEST EFN # TO USE AND

            52            8E     D0  0016   121 	MOVL	(SP)+,R2		;  AND STORE IT

                                     0019   122 	$QIO_S	EFN=R2-			; ISSUE TRANSMIT MESSAGE FUNCTION

                                     0019   123 		CHAN=R3-		;

                                     0019   124 		FUNC=#IO$_WRITEVBLK-	;

                                     0019   125 		IOSB=IFB$L_IOS(R9)-	; IFAB/IRAB IOSB ADDRESS

                                     0019   126 		ASTADR=W^RM$STALLAST-	;

                                     0019   127 		ASTPRM=R9-		; IFAB/IRAB ADDRESS

                                     0019   128 		P1=(R4)-		; BUFFER ADDRESS

                                     0019   129 		P2=R5			; BUFFER SIZE

                          7E     7C  0019       		CLRQ	-(SP)

                          7E     7C  001B       		CLRQ	-(SP)

                          55     DD  001D       		PUSHL	R5

                          64     DF  001F       		PUSHAL	(R4)

                          59     DD  0021       		PUSHL	R9

                     0000'CF     DF  0023       		PUSHAL	W^RM$STALLAST

                       0C A9     7F  0027       		PUSHAQ	IFB$L_IOS(R9)

            7E       0000'8F     3C  002A       		MOVZWL	#IO$_WRITEVBLK,-(SP)

            7E            53     3C  002F       		MOVZWL	R3,-(SP)

                          52     DD  0032       		PUSHL	R2

   00000000'GF            0C     FB  0034       		CALLS	#12,G^SYS$QIO

            0C            50     E9  003B   130 	BLBC	R0,ERRSYS		; BRANCH ON FAILURE

                          FFBF'  30  003E   131 	BSBW	RM$STALL		; AWAIT COMPLETION

            06            50     E9  0041   132 	BLBC	R0,ERRSYS		; BRANCH ON FAILURE

                                     0044   133 	RMSSUC				; RETURN SUCCESS

            50            01     D0  0044       		MOVL	#1,R0

                       00 B7     17  0047   134 	JMP	@NWA$Q_FLG(R7)		; RETURN WITH RMS CODE IN R0

                                     004A   135 ERRSYS:	RMSERR	SYS,R1			; SET DEFAULT RMS CODE

            51       0000'8F     3C  004A       		MOVZWL	#<RMS$_SYS&^XFFFF>,R1

                          FFAE'  30  004F   136 	BSBW	RM$MAPERR		; MAP SS CODE INTO RMS CODE AND

                                     0052   137 					;  PUT SS CODE IN STV FIELD

                       00 B7     17  0052   138 	JMP	@NWA$Q_FLG(R7)		; RETURN WITH RMS CODE IN R0

NT0DAPIO        DAP MESSAGE I/O                                  21-AUG-1978 22:19:08   VAX-11 MACRO X0.3-11               Page   5

008             NT$RECEIVE - RECEIVE DAP MESSAGE                                                                                 (4)



                                     0055   140 	.SBTTL	NT$RECEIVE - RECEIVE DAP MESSAGE

                                     0055   141 

                                     0055   142 ;++

                                     0055   143 ; FUNCTIONAL DESCRIPTION:

                                     0055   144 ;

                                     0055   145 ;	NT$RECEIVE RECEIVES THE NEXT DAP MESSAGE FROM THE REMOTE FAL.

                                     0055   146 ;

                                     0055   147 ; CALLING SEQUENCE:

                                     0055   148 ;

                                     0055   149 ;	BSB/JSB	NT$RECEIVE	(IFAB ADDRESS IN R10)

                                     0055   150 ;	BSB/JSB	NT$RECEIVE_ALT	(IFAB ADDRESS IN R9)

                                     0055   151 ;

                                     0055   152 ; INPUT PARAMETERS:

                                     0055   153 ;

                                     0055   154 ;	R11	IMPURE AREA ADDRESS

                                     0055   155 ;	R10	IFAB ADDRESS

                                     0055   156 ;	R9	IFAB/IRAB ADDRESS

                                     0055   157 ;	R8	FAB/RAB ADDRESS

                                     0055   158 ;	R7	NWA (=DAP) ADDRESS

                                     0055   159 ;	R5	BUFFER SIZE

                                     0055   160 ;	R4	BUFFER ADDRESS

                                     0055   161 ;

                                     0055   162 ; IMPLICIT INPUTS:

                                     0055   163 ;

                                     0055   164 ;	NONE

                                     0055   165 ;

                                     0055   166 ; OUTPUT PARAMETERS:

                                     0055   167 ;

                                     0055   168 ;	R0	STATUS CODE (RMS)

                                     0055   169 ;	R1-R3	DESTROYED

                                     0055   170 ;	AP	DESTROYED

                                     0055   171 ;

                                     0055   172 ; IMPLICIT OUTPUTS:

                                     0055   173 ;

                                     0055   174 ;	NONE

                                     0055   175 ;

                                     0055   176 ; COMPLETION CODES:

                                     0055   177 ;

                                     0055   178 ;	STANDARD RMS COMPLETION CODES.

                                     0055   179 ;

                                     0055   180 ; SIDE EFFECTS:

                                     0055   181 ;

                                     0055   182 ;	NONE

                                     0055   183 ;

                                     0055   184 ;--

                                     0055   185 

                                     0055   186 NT$RECEIVE_ALT::			; CONTROL POINT

            53         20 A9     3C  0055   187 	MOVZWL	IFB$W_CHNL(R9),R3	; GET CHANNEL #

                          04     11  0059   188 	BRB	RECV_COMMON		; JOIN COMMON CODE

                                     005B   189 NT$RECEIVE::				; CONTROL POINT

            53         20 AA     3C  005B   190 	MOVZWL	IFB$W_CHNL(R10),R3	; GET CHANNEL #

                                     005F   191 RECV_COMMON:				;

                                     005F   192 	$TSTPT	NTDAP_RCV		;

                 00000200'9F     D6  005F       		INCL	@#PIO$GL_FMLH+512+TPT$L_NTDAP_RCV

            67            8E     D0  0065   193 	MOVL	(SP)+,NWA$Q_FLG(R7)	; SAVE RETURN PC

                       10 A7     D5  0068   194 	TSTL	DAP$Q_MSG_BUF1(R7)	; BRANCH IF THERE IS A BLOCKED

                          3A     12  006B   195 	BNEQ	10$			;  DAP MESSAGE STILL IN BUFFER

NT0DAPIO        DAP MESSAGE I/O                                  21-AUG-1978 22:19:08   VAX-11 MACRO X0.3-11               Page   6

008             NT$RECEIVE - RECEIVE DAP MESSAGE                                                                                 (4)



                                     006D   196 

                                     006D   197 ;		ASSUME	IFB$L_IOS  EQ IRB$L_IOS

                                     006D   198 

                          FF90'  30  006D   199 	BSBW	RM$SETEFN		; REQUEST EFN # TO USE AND

            52            8E     D0  0070   200 	MOVL	(SP)+,R2		;  AND STORE IT

                                     0073   201 	$QIO_S	EFN=R2-			; ISSUE RECEIVE MESSAGE FUNCTION

                                     0073   202 		CHAN=R3-		;

                                     0073   203 		FUNC=#IO$_READVBLK-	;

                                     0073   204 		IOSB=IFB$L_IOS(R9)-	; IFAB/IRAB IOSB ADDRESS

                                     0073   205 		ASTADR=W^RM$STALLAST-	;

                                     0073   206 		ASTPRM=R9-		; IFAB/IRAB ADDRESS

                                     0073   207 		P1=(R4)-		; BUFFER ADDRESS

                                     0073   208 		P2=R5			; BUFFER SIZE

                          7E     7C  0073       		CLRQ	-(SP)

                          7E     7C  0075       		CLRQ	-(SP)

                          55     DD  0077       		PUSHL	R5

                          64     DF  0079       		PUSHAL	(R4)

                          59     DD  007B       		PUSHL	R9

                     0000'CF     DF  007D       		PUSHAL	W^RM$STALLAST

                       0C A9     7F  0081       		PUSHAQ	IFB$L_IOS(R9)

            7E       0000'8F     3C  0084       		MOVZWL	#IO$_READVBLK,-(SP)

            7E            53     3C  0089       		MOVZWL	R3,-(SP)

                          52     DD  008C       		PUSHL	R2

   00000000'GF            0C     FB  008E       		CALLS	#12,G^SYS$QIO

            B2            50     E9  0095   209 	BLBC	R0,ERRSYS		; BRANCH ON FAILURE

                          FF65'  30  0098   210 	BSBW	RM$STALL		; AWAIT COMPLETION

            AC            50     E9  009B   211 	BLBC	R0,ERRSYS		; BRANCH ON FAILURE

                                 3C  009E   212 	MOVZWL	IFB$L_IOS+2(R9),-	; STORE MESSAGE SIZE IN DESCRIPTOR

         10 A7         0E A9         009F   213 		DAP$Q_MSG_BUF1(R7)	; "

         14 A7            54     D0  00A3   214 	MOVL	R4,DAP$Q_MSG_BUF1+4(R7)	; STORE START ADDRESS IN DESCRIPTOR

                                     00A7   215 10$:	SSB	#DAP$K_STS_MSG,-	; FLAG STATUS MESSAGE AS VALID

                                     00A7   216 		DAP$L_MSG_MASK(R7)	;  TO RECEIVE FROM FAL

         0C A7            09     E2  00A7       		BBSS	#DAP$K_STS_MSG,DAP$L_MSG_MASK(R7),30000$

                          00         00AB       

                                     00AC       30000$:

                          57     DD  00AC   217 	PUSHL	R7			; PUSH ADDRESS OF DAP CONTROL BLOCK

       0000'CF            01     FB  00AE   218 	CALLS	#1,W^NT$DECODE_MSG	; DECODE MESSAGE INTO DAP CTL BLOCK

                       0C A7     D4  00B3   219 	CLRL	DAP$L_MSG_MASK(R7)	; CLEAR VALID MESSAGE FLAGS

                                     00B6   220 					;  (INITIALIZE FOR NEXT TIME THRU)

            58            50     E9  00B6   221 	BLBC	R0,PARSE_FAILURE	; BRANCH IF MESSAGE PARSE FAILED

            09         0A A7     91  00B9   222 	CMPB	DAP$B_MSG_TYPE(R7),#DAP$K_STS_MSG

                          06     13  00BD   223 	BEQL	STATUS_RETURN		; BRANCH IF STATUS MESSAGE RECEIVED

                                     00BF   224 	RMSSUC				; RETURN SUCCESS

            50            01     D0  00BF       		MOVL	#1,R0

                       00 B7     17  00C2   225 	JMP	@NWA$Q_FLG(R7)		; RETURN WITH RMS CODE IN R0

NT0DAPIO        DAP MESSAGE I/O                                  21-AUG-1978 22:19:08   VAX-11 MACRO X0.3-11               Page   7

008             NT$RECEIVE - RECEIVE DAP MESSAGE                                                                                 (5)



                                     00C5   227 ;++

                                     00C5   228 ; RMS RECEIVED A DAP STATUS MESSAGE FROM PARTNER (FAL).

                                     00C5   229 ; IF THE DAP STATUS CODE CAN BE MAPPED INTO A STANDARD (NON-NETWORK)

                                     00C5   230 ; RMS COMPLETION CODE:

                                     00C5   231 ;    A)	STS OF FAB/RAB = MAPPED RMS CODE

                                     00C5   232 ;    B) STV OF FAB/RAB = 0

                                     00C5   233 ; ELSE:

                                     00C5   234 ;    A) STS OF FAB/RAB = RMS$_SUP, RMS$_NET, OR RMS$_BUG_DAP

                                     00C5   235 ;    B) STV OF FAB/RAB = DAP STATUS CODE

                                     00C5   236 ;--

                                     00C5   237 

                                     00C5   238 STATUS_RETURN:				; CONTROL POINT

            04            0C     EF  00C5   239 	EXTZV	#12,#4,DAP$W_STSCODE(R7),R2 ; GET MACCODE FIELD

            52       0098 C7         00C8       

                                     00CC   240 	$CASEB	SELECTOR=R2,DISPL=<-	; STATUS RETURNED BY PARTNER:

                                     00CC   241 		FILE_ACCESS-		;  FILE OPERATION PENDING

                                     00CC   242 		FILE_ACCESS-		;  FILE OPERATION SUCCESSFUL

                                     00CC   243 		UNSUPPORT-		;  REQUEST NOT SUPPORTED

                                     00CC   244 		PROTOCOL-		;  UNDEFINED VALUE

                                     00CC   245 		FILE_ACCESS-		;  ERROR RELATED TO OPENING A FILE

                                     00CC   246 		FILE_ACCESS-		;  ERROR RELATED TO FILE TRANSFER

                                     00CC   247 		PROTOCOL-		;  UNDEFINED VALUE

                                     00CC   248 		FILE_ACCESS-		;  ERROR RELATED TO CLOSING A FILE

                                     00CC   249 ;		PROTOCOL-		;  INCORRECT MESSAGE FORMAT

                                     00CC   250 ;		PROTOCOL-		;  INVALID FIELD VALUE

                                     00CC   251 ;		PROTOCOL-		;  UNEXPECTED MESSAGE FOR STATE

                                     00CC   252 	>				;

            00            52     8F  00CC       	CASEB	R2,#0,#<$$COUNT-1>

                          07         00CF       

                                     00D0       30001$:

                               001E' 00D0       	.WORD	FILE_ACCESS-30001$

                               001E' 00D2       	.WORD	FILE_ACCESS-30001$

                               0017' 00D4       	.WORD	UNSUPPORT-30001$

                               0010' 00D6       	.WORD	PROTOCOL-30001$

                               001E' 00D8       	.WORD	FILE_ACCESS-30001$

                               001E' 00DA       	.WORD	FILE_ACCESS-30001$

                               0010' 00DC       	.WORD	PROTOCOL-30001$

                               001E' 00DE       	.WORD	FILE_ACCESS-30001$

                                     00E0   253 PROTOCOL:				;

                                     00E0   254 	RMSERR	BUG_DAP			; DAP PROTOCOL ERROR

            50       0000'8F     3C  00E0       		MOVZWL	#<RMS$_BUG_DAP&^XFFFF>,R0

                          1B     11  00E5   255 	BRB	ERROR_STV		; JOIN COMMON CODE

                                     00E7   256 UNSUPPORT:				;

                                     00E7   257 	RMSERR	SUP			; UNSUPPROTED FUNCTION REQUESTED

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

                          14     11  00EC   258 	BRB	ERROR_STV		; JOIN COMMON CODE

                                     00EE   259 FILE_ACCESS:				;

            0C            00     EF  00EE   260 	EXTZV	#0,#12,DAP$W_STSCODE(R7),R1 ; GET MICCODE FIELD

            51       0098 C7         00F1       

            50       0000'CF41   3C  00F5   261 	MOVZWL	W^NT$DAP_TO_RMS[R1],R0	; GET RMS COMPLETION CODE

       0000'8F            50     B1  00FB   262 	CMPW	R0,#<RMS$_NET&^XFFFF>	; BRANCH IF MAPPED INTO NORMAL

                          0C     12  0100   263 	BNEQ	STATUS_EXIT		;  RMS COMPLETION CODE

                                     0102   264 ERROR_STV:				;

                                 3C  0102   265 	MOVZWL	DAP$W_STSCODE(R7),-	; PUT DAP STATUS CODE RECEIVED

         0C A8       0098 C7         0103   266 		FAB$L_STV(R8)		;  INTO STV FIELD OF FAB/RAB

                                 B0  0108   267 	MOVW	#FAL_FAC_CODE,-		; ***** ADD FAL FACILITY CODE

         0E A8       01F7 8F         0109   268 		FAB$L_STV+2(R8)		; *****

NT0DAPIO        DAP MESSAGE I/O                                  21-AUG-1978 22:19:08   VAX-11 MACRO X0.3-11               Page   8

008             NT$RECEIVE - RECEIVE DAP MESSAGE                                                                                 (5)



                                     010E   269 STATUS_EXIT:				;

                       00 B7     17  010E   270 	JMP	@NWA$Q_FLG(R7)		; RETURN WITH RMS CODE IN R0

NT0DAPIO        DAP MESSAGE I/O                                  21-AUG-1978 22:19:08   VAX-11 MACRO X0.3-11               Page   9

008             NT$RECEIVE - RECEIVE DAP MESSAGE                                                                                 (6)



                                     0111   272 ;++

                                     0111   273 ; PARSE OF DAP MESSAGE RECEIVED FAILED.

                                     0111   274 ; POSSIBLE MACCODE VALUES RETURNED BY NT$DECODE_MSG ARE DAP$_UNSUPPORT,

                                     0111   275 ; DAP$_FORMAT, DAP$_INVALID, AND DAP$_MSG_SYNC. ALL ARE CONSIDERED TO BE

                                     0111   276 ; A DAP PROTOCOL ERROR. THEREFORE:

                                     0111   277 ;    A)	STS OF FAB/RAB = RMS$_BUG_DAP

                                     0111   278 ;    B) STV OF FAB/RAB = DAP STATUS CODE

                                     0111   279 ;--

                                     0111   280 

                                     0111   281 PARSE_FAILURE:				; CONTROL POINT

            0A         0B A7     91  0111   282 	CMPB	DAP$B_MAC_CODE(R7),#DAP$_MSG_SYNC

                          06     12  0115   283 	BNEQ	10$			; BRANCH IF NOT MESSAGE-OUT-OF-SEQUENCE

            51         0A A7     9A  0117   284 	MOVZBL	DAP$B_MSG_TYPE(R7),R1	; GET MESSAGE TYPE NUMBER

                          0A     11  011B   285 	BRB	20$			; JOIN COMMON CODE

            51         09 A7     9A  011D   286 10$:	MOVZBL	DAP$B_FIELD_ID(R7),R1	; GET ID OF FIELD IN ERROR

            06         0A A7     F0  0121   287 	INSV	DAP$B_MSG_TYPE(R7),#6,#6,R1

            51            06         0125       

                                     0127   288 					; INSERT MESSAGE TYPE NUMBER

            0C         0B A7     F0  0127   289 20$:	INSV	DAP$B_MAC_CODE(R7),#12,#4,R1

            51            04         012B       

                                     012D   290 					; INSERT MACCODE ERROR CODE

         0C A8            51     D0  012D   291 	MOVL	R1,FAB$L_STV(R8)	; UPDATE STV FIELD OF FAB/RAB

                                     0131   292 	RMSERR	BUG_DAP			; DECLARE DAP PROTOCOL ERROR

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

                       00 B7     17  0136   293 	JMP	@NWA$Q_FLG(R7)		; RETURN WITH RMS CODE IN R0

                                     0139   294 	.END

NT0DAPIO        DAP MESSAGE I/O                                  21-AUG-1978 22:19:08   VAX-11 MACRO X0.3-11               Page  10

SYMBOL TABLE                                                                                                                     (6)



$$.PSECT_EP    = 00000000            DAP$K_DATATYP_I= 00000084            DAP$L_ROP        00000078            

$$COUNT        = 00000008            DAP$K_DAT_MSG  = 00000008            DAP$L_STV        000000A8            

$$RMSTEST      = 0000001A            DAP$K_DELETE   = 00000005            DAP$M_ALQ      = 00000040            

$$RMS_PBUGCHK  = 00000010            DAP$K_DEV_I    = 04000040            DAP$M_BKS      = 00000080            

$$RMS_TBUGCHK  = 00000008            DAP$K_DISCON   = 00000004            DAP$M_BLS      = 00000010            

$$RMS_UMODE    = 00000004            DAP$K_ECONUM_V = 00000002            DAP$M_CBT      = 00800000            

$$T1           = 00000000            DAP$K_ERASE    = 00000004            DAP$M_CIF      = 00010000            

BIT...         = 00000008            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            

NT0DAPIO        DAP MESSAGE I/O                                  21-AUG-1978 22:19:08   VAX-11 MACRO X0.3-11               Page  11

SYMBOL TABLE                                                                                                                     (6)



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            ERROR_STV        00000102 R     02   

DAP$V_BIO      = 00000005            DAP$V_MSGBLK   = 00000012            ERRSYS           0000004A R     02   

DAP$V_BKS      = 00000007            DAP$V_MXV      = 00000013            FAB$B_BID        00000000            

DAP$V_BLK      = 00000003            DAP$V_NEF      = 00000009            FAB$B_BKS        0000003E            

DAP$V_BLS      = 00000004            DAP$V_NIL      = 00000006            FAB$B_BLN        00000001            

DAP$V_CBT      = 00000017            DAP$V_NONFATAL = 00000000            FAB$B_DNS        00000035            

DAP$V_CIF      = 00000010            DAP$V_ORG      = 00000001            FAB$B_FAC        00000016            

DAP$V_CR       = 00000001            DAP$V_POS      = 00000003            FAB$B_FNS        00000034            

DAP$V_CTG      = 00000007            DAP$V_PRIV     = 00000005            FAB$B_FSZ        0000003F            

DAP$V_DATATYPE = 00000000            DAP$V_PRN      = 00000002            FAB$B_ORG        0000001D            

DAP$V_DEL      = 00000002            DAP$V_PUT      = 00000000            FAB$B_RAT        0000001E            

DAP$V_DEQ      = 0000000B            DAP$V_RAC      = 00000000            FAB$B_RFM        0000001F            

DAP$V_DEV      = 0000000E            DAP$V_RANREC   = 00000006            FAB$B_RTV        0000001C            

DAP$V_DEVALL   = 0000000C            DAP$V_RANVBN   = 00000007            FAB$B_SHR        00000017            

DAP$V_DEVAVL   = 00000010            DAP$V_RAT      = 00000003            FAB$C_BID      = 00000003            

DAP$V_DEVCCL   = 00000001            DAP$V_RCK      = 0000000F            FAB$C_BLN        00000050            

DAP$V_DEVDIR   = 00000003            DAP$V_RELORG   = 00000002            FAB$C_FIX      = 00000001            

DAP$V_DEVDMT   = 0000000B            DAP$V_RFM      = 00000002            FAB$C_HSH      = 00000030            

DAP$V_DEVELG   = 00000011            DAP$V_ROP      = 00000003            FAB$C_IDX      = 00000020            

DAP$V_DEVFOD   = 00000007            DAP$V_RUNSYS   = 0000000A            FAB$C_MAXRFM   = 00000003            

DAP$V_DEVFOR   = 00000017            DAP$V_RWC      = 00000001            FAB$C_REL      = 00000010            

DAP$V_DEVGEN   = 00000019            DAP$V_RWO      = 00000000            FAB$C_RFM_DFLT = 00000002            

DAP$V_DEVIDV   = 0000000D            DAP$V_SCF      = 00000015            FAB$C_SEQ      = 00000000            

DAP$V_DEVMBX   = 00000012            DAP$V_SEQORG   = 00000001            FAB$C_UDF      = 00000000            

DAP$V_DEVMNT   = 0000000A            DAP$V_SEQREC   = 00000005            FAB$C_VAR      = 00000002            

DAP$V_DEVNET   = 00000018            DAP$V_SPL      = 00000014            FAB$C_VFC      = 00000003            

DAP$V_DEVODV   = 0000000E            DAP$V_SQO      = 00000012            FAB$K_BLN        00000050            

DAP$V_DEVRCK   = 00000015            DAP$V_STREAMID = 00000000            FAB$L_ALQ        00000010            

DAP$V_DEVREC   = 00000000            DAP$V_STSRTN   = 00000011            FAB$L_CTX        00000018            

DAP$V_DEVRND   = 00000014            DAP$V_STS_RETRV= 00000002            FAB$L_DEV        00000040            

DAP$V_DEVRTM   = 00000013            DAP$V_STS_STORE= 00000001            FAB$L_DNA        00000030            

DAP$V_DEVSDI   = 00000004            DAP$V_SUBMIT   = 0000000E            FAB$L_FNA        0000002C            

DAP$V_DEVSHR   = 00000008            DAP$V_SUP      = 00000008            FAB$L_FOP        00000004            

DAP$V_DEVSPL   = 00000009            DAP$V_TMD      = 0000000B            FAB$L_JNL        00000020            

DAP$V_DEVSQD   = 00000005            DAP$V_TMP      = 0000000A            FAB$L_MRN        00000038            

DAP$V_DEVSWL   = 0000000F            DAP$V_TMP1..   = 00000001            FAB$L_NAM        00000028            

DAP$V_DEVTRM   = 00000002            DAP$V_TMP2..   = 0000000B            FAB$L_SDC        00000044            

DAP$V_DEVWCK   = 00000016            DAP$V_TMP3..   = 00000006            FAB$L_STS        00000008            

DAP$V_DLK      = 00000004            DAP$V_TMP4..   = 00000018            FAB$L_STV        0000000C            

DAP$V_DLT      = 00000016            DAP$V_TRN      = 00000004            FAB$L_XAB        00000024            

DAP$V_DMO      = 0000000D            DAP$V_UPD      = 00000003            FAB$M_BIO      = 00000020            

DAP$V_EMBEDDED = 00000004            DAP$V_VAXVMS   = 00000021            FAB$M_BLK      = 00000008            

DAP$V_EOF      = 00000000            DAP$V_WCK      = 0000000E            FAB$M_BRO      = 00000040            

DAP$V_EXEC     = 00000004            DAP$W_BLS        00000040            FAB$M_CBT      = 00200000            

DAP$V_FID      = 0000000C            DAP$W_BUFSIZ     00000024            FAB$M_CIF      = 02000000            

DAP$V_FILALL   = 00000000            DAP$W_DEQ        0000004A            FAB$M_CR       = 00000002            

DAP$V_FOP      = 0000000C            DAP$W_MRS        00000042            FAB$M_CTG      = 00100000            

DAP$V_FOPDLT   = 0000001F            DAP$W_STSCODE    00000098            FAB$M_DEL      = 00000004            

DAP$V_FOPSCF   = 0000001E            DAP$_FILE_CLOS = 00000007            FAB$M_DFW      = 00000020            

DAP$V_FOPSPL   = 0000001D            DAP$_FILE_OPEN = 00000004            FAB$M_DLT      = 00008000            

DAP$V_FSZ      = 00000008            DAP$_FILE_XFER = 00000005            FAB$M_DMO      = 00001000            

DAP$V_FTN      = 00000000            DAP$_FORMAT    = 00000008            FAB$M_ESC      = 08000000            

NT0DAPIO        DAP MESSAGE I/O                                  21-AUG-1978 22:19:08   VAX-11 MACRO X0.3-11               Page  12

SYMBOL TABLE                                                                                                                     (6)



FAB$M_EXE      = 00000080            FAB$V_JNL      = 00000016            IFB$B_RFMORG     0000003C            

FAB$M_FTN      = 00000001            FAB$V_KFO      = 0000001E            IFB$B_UBUFSZ     0000005B            

FAB$M_GET      = 00000002            FAB$V_MSE      = 00000004            IFB$C_BID      = 0000000B            

FAB$M_INP      = 00080000            FAB$V_MXV      = 00000001            IFB$C_BLN        00000060            

FAB$M_JNL      = 00400000            FAB$V_NAM      = 00000018            IFB$C_BLN_IDX    00000060            

FAB$M_KFO      = 40000000            FAB$V_NEF      = 0000000A            IFB$C_BLN_REL    00000060            

FAB$M_MSE      = 00000010            FAB$V_NFS      = 00000010            IFB$C_BLN_SEQ    0000005C            

FAB$M_MXV      = 00000002            FAB$V_NIL      = 00000005            IFB$C_DIR      = 00000003            

FAB$M_NAM      = 01000000            FAB$V_OFP      = 0000001D            IFB$C_FHAEND     00000050            

FAB$M_NEF      = 00000400            FAB$V_ORG      = 00000004            IFB$C_IDX      = 00000002            

FAB$M_NFS      = 00010000            FAB$V_POS      = 00000008            IFB$C_MAXORG   = 00000002            

FAB$M_NIL      = 00000020            FAB$V_PPF      = 00000012            IFB$C_REL      = 00000001            

FAB$M_OFP      = 20000000            FAB$V_PPF_IND  = 0000000E            IFB$C_SEQ      = 00000000            

FAB$M_POS      = 00000100            FAB$V_PPF_RAT  = 00000006            IFB$K_BLN        00000060            

FAB$M_PPF      = 00040000            FAB$V_PRN      = 00000002            IFB$K_BLN_IDX    00000060            

FAB$M_PPF_IND  = 00004000            FAB$V_PUT      = 00000000            IFB$K_BLN_REL    00000060            

FAB$M_PPF_RAT  = 00003FC0            FAB$V_RCK      = 00000017            IFB$K_BLN_SEQ    0000005C            

FAB$M_PRN      = 00000004            FAB$V_RWC      = 0000000B            IFB$K_FHAEND     00000050            

FAB$M_PUT      = 00000001            FAB$V_RWO      = 00000007            IFB$L_ARGLST     00000018            

FAB$M_RCK      = 00800000            FAB$V_SCF      = 0000000E            IFB$L_ASBADDR    00000014            

FAB$M_RWC      = 00000800            FAB$V_SHRDEL   = 00000002            IFB$L_AS_DEV     00000054            

FAB$M_RWO      = 00000080            FAB$V_SHRGET   = 00000001            IFB$L_BDB_BLNK   00000034            

FAB$M_SCF      = 00004000            FAB$V_SHRPUT   = 00000000            IFB$L_BDB_FLNK   00000030            

FAB$M_SHRDEL   = 00000004            FAB$V_SHRUPD   = 00000003            IFB$L_BKPBITS    00000004            

FAB$M_SHRGET   = 00000002            FAB$V_SPL      = 0000000D            IFB$L_BWB        0000000C            

FAB$M_SHRPUT   = 00000001            FAB$V_SQO      = 00000006            IFB$L_DVBN       00000058            

FAB$M_SHRUPD   = 00000008            FAB$V_SUP      = 00000002            IFB$L_EBK        00000044            

FAB$M_SPL      = 00002000            FAB$V_TEF      = 0000001C            IFB$L_FRB_PTR    00000028            

FAB$M_SQO      = 00000040            FAB$V_TMD      = 00000004            IFB$L_FWA_BDB    00000050            

FAB$M_SUP      = 00000004            FAB$V_TMP      = 00000003            IFB$L_HBK        00000040            

FAB$M_TEF      = 10000000            FAB$V_TRN      = 00000004            IFB$L_IDX_PTR    00000054            

FAB$M_TMD      = 00000010            FAB$V_UFM      = 0000001A            IFB$L_IOS        0000000C            

FAB$M_TMP      = 00000008            FAB$V_UFO      = 00000011            IFB$L_IOS4       00000010            

FAB$M_TRN      = 00000010            FAB$V_UPD      = 00000003            IFB$L_IRAB_LNK   0000001C            

FAB$M_UFM      = 04000000            FAB$V_UPI      = 00000006            IFB$L_LAST_FAB   00000024            

FAB$M_UFO      = 00020000            FAB$V_WCK      = 00000009            IFB$L_LOCK_BDB   00000050            

FAB$M_UPD      = 00000008            FAB$W_BLS        0000003C            IFB$L_MRN        00000054            

FAB$M_UPI      = 00000040            FAB$W_DEQ        00000014            IFB$L_NRP_LNK    00000050            

FAB$M_WCK      = 00000200            FAB$W_IFI        00000002            IFB$L_NWA_PTR    00000028            

FAB$S_ORG      = 00000004            FAB$W_MRS        00000036            IFB$L_PRIM_DEV   00000000            

FAB$S_PPF_RAT  = 00000008            FAL_FAC_CODE   = 000001F7            IFB$L_RLB_LNK    0000002C            

FAB$V_BIO      = 00000005            FILE_ACCESS      000000EE R     02   IFB$L_RNS_LEN    00000050            

FAB$V_BLK      = 00000003            GBL...         = 00000000            IFB$M_BIO      = 00000020            

FAB$V_BRO      = 00000006            IFB$B_AMAX       00000059            IFB$M_BRO      = 00000040            

FAB$V_CBT      = 00000015            IFB$B_AVBN       00000058            IFB$M_DEL      = 00000004            

FAB$V_CIF      = 00000019            IFB$B_BID        00000008            IFB$M_EXE      = 00000080            

FAB$V_CR       = 00000001            IFB$B_BKS        0000004A            IFB$M_GET      = 00000002            

FAB$V_CTG      = 00000014            IFB$B_BLN        00000009            IFB$M_PUT      = 00000001            

FAB$V_DEL      = 00000002            IFB$B_EFN        0000000B            IFB$M_TRN      = 00000010            

FAB$V_DFW      = 00000005            IFB$B_EXTRABUF   0000005D            IFB$M_UPD      = 00000008            

FAB$V_DLT      = 0000000F            IFB$B_FAC        00000022            IFB$S_ORG      = 00000004            

FAB$V_DMO      = 0000000C            IFB$B_FSZ        0000004B            IFB$S_RFM      = 00000004            

FAB$V_ESC      = 0000001B            IFB$B_KBUFSZ     0000005C            IFB$V_ACCESSED = 00000025            

FAB$V_EXE      = 00000007            IFB$B_MODE       0000000A            IFB$V_ANSI_D   = 00000026            

FAB$V_FTN      = 00000000            IFB$B_NUM_KEYS   0000005A            IFB$V_ASYNC    = 00000023            

FAB$V_GET      = 00000001            IFB$B_ORGCASE    00000023            IFB$V_ASYNCWAIT= 00000024            

FAB$V_INP      = 00000013            IFB$B_RAT        0000003D            IFB$V_BIO      = 00000005            

NT0DAPIO        DAP MESSAGE I/O                                  21-AUG-1978 22:19:08   VAX-11 MACRO X0.3-11               Page  13

SYMBOL TABLE                                                                                                                     (6)



IFB$V_BRO      = 00000006            NWA$Q_BUFFER     00000140            

IFB$V_BUSY     = 00000020            NWA$Q_BUFFER2    00000148            

IFB$V_CREATE   = 00000032            NWA$Q_FLG        00000000            

IFB$V_DAP      = 0000003E            NWA$T_BUFFER     00000160            

IFB$V_DAP_OPEN = 0000003D            NWA$T_DAP        00000000            

IFB$V_DEL      = 00000002            NWA$T_FILESPEC   000000C0            

IFB$V_DFW      = 0000002C            NWA$T_QUOTEDBUF  000000C0            

IFB$V_DLT      = 0000002B            NWA$T_SPARE      00000150            

IFB$V_DMO      = 00000028            PARSE_FAILURE    00000111 R     02   

IFB$V_EOF      = 00000021            PIO$GL_FMLH      ********   X   02   

IFB$V_EXE      = 00000007            PROTOCOL         000000E0 R     02   

IFB$V_GET      = 00000001            RECV_COMMON      0000005F R     02   

IFB$V_MSE      = 00000031            RM$MAPERR        ********   X   02   

IFB$V_NORECLK  = 00000033            RM$SETEFN        ********   X   02   

IFB$V_NSP      = 0000003F            RM$STALL         ********   X   02   

IFB$V_NWA      = 0000003C            RM$STALLAST      ********   X   02   

IFB$V_ORG      = 00000004            RMS$_BUG_DAP     ********   X   02   

IFB$V_PPF_IMAGE= 00000022            RMS$_NET         ********   X   02   

IFB$V_PPF_INPUT= 0000002E            RMS$_SUP         ********   X   02   

IFB$V_PUT      = 00000000            RMS$_SYS         ********   X   02   

IFB$V_RFM      = 00000000            STATUS_EXIT      0000010E R     02   

IFB$V_RWC      = 00000027            STATUS_RETURN    000000C5 R     02   

IFB$V_RW_ATTR  = 00000034            SYS$QIO          ********   X   02   

IFB$V_SCF      = 0000002A            TPT$L_NTDAP_RCV  ********   X   02   

IFB$V_SPL      = 00000029            TPT$L_NTDAP_XMT  ********   X   02   

IFB$V_SQO      = 0000002D            TRAN_COMMON      0000000A R     02   

IFB$V_TEF      = 00000036            UNSUPPORT        000000E7 R     02   

IFB$V_TMP      = 00000035            

IFB$V_TRN      = 00000004            

IFB$V_UPD      = 00000003            

IFB$V_WRTACC   = 00000030            

IFB$W_ASDEVBSIZ  0000005A            

IFB$W_BKS_BYTES  0000005C            

IFB$W_BKS_RECS   0000005E            

IFB$W_CHNL       00000020            

IFB$W_DEQ        0000004E            

IFB$W_DEVBUFSIZ  00000038            

IFB$W_EBK0       00000044            

IFB$W_EBK2       00000046            

IFB$W_FFB        00000048            

IFB$W_IOS2       0000000E            

IFB$W_LRL        0000003E            

IFB$W_MRS        0000004C            

IFB$W_RTDEQ      0000003A            

IO$_READVBLK     ********   X   02   

IO$_WRITEVBLK    ********   X   02   

NT$DAP_TO_RMS    ********   X   02   

NT$DECODE_MSG    ********   X   02   

NT$RECEIVE       0000005B RG    02   

NT$RECEIVE_ALT   00000055 RG    02   

NT$TRANSMIT      00000006 RG    02   

NT$TRANSMIT_ALT  00000000 RG    02   

NWA$B_QUOTEDTRN  0000013F            

NWA$C_BLN        00000400            

NWA$C_BUFFERSIZ= 000002A0            

NWA$C_DAPSIZ   = 000000C0            

NWA$K_BLN        00000400            

NT0DAPIO        DAP MESSAGE I/O                                  21-AUG-1978 22:19:08   VAX-11 MACRO X0.3-11               Page  14

PROGRAM SECTION SYNOPSIS                                                                                                         (6)







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       00000139      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.

2902. BYTES LEFT IN FREE MEMORY POOL.

8670. BYTES OF RECLAIMED MEMORY.

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

58 MLB DIR RDS - 1131 GETS TO DEFINE 25 MACROS. 83 INTER. FILE WRITES. 

