%(
	****************************************************************

		Copyright (c) 1992, Carnegie Mellon University

		All Rights Reserved

	Permission  is  hereby  granted   to  use,  copy,  modify,  and
	distribute  this software  provided  that the  above  copyright
	notice appears in  all copies and that  any distribution be for
	noncommercial purposes.

	Carnegie Mellon University disclaims all warranties with regard
	to this software.  In no event shall Carnegie Mellon University
	be liable for  any special, indirect,  or consequential damages
	or any damages whatsoever  resulting from loss of use, data, or
	profits  arising  out of  or in  connection  with  the  use  or
	performance of this software.

	****************************************************************
)%
!!!HACK!!! I need a header here!

LIBRARY '[-.CENTRAL]NETXPORT';
LIBRARY 'SYS$LIBRARY:LIB';


!LITERAL
!!!HACK!!! this should not be defined here, but it's only in LIB.MLB...
!    NFB$C_DECLNAME	= 21;


LITERAL
    !{ Unique 24 bit code to identify timer  }
    !{ requests as belonging to this module. }
    timer_id	     = %X'7AC312';

MACRO
    !{ Object name used to identify DECnet   }
    !{ task				    }
    object_name	     = 'IP_DECNET'%,
    decnet_dev_str   = '_NET:'%;

!{***************************************************************************}

$FIELD unpacked_ncb_structure_fields =
    SET
    uncb$len		= [$Bytes(2)],
    uncb$adr		= [$Address],
    uncb$node		= [$Bytes(8)]
    TES;

LITERAL
    unpacked_ncb_structure_size = $FIELD_SET_SIZE,
    unpacked_ncb_structure_blen = unpacked_ncb_structure_size*4;
MACRO
    unpacked_ncb_structure = BLOCK[unpacked_ncb_structure_size] FIELD(unpacked_ncb_structure_fields)%;


$FIELD mbx_message_structure_fields =
    SET
    mbxm$msgtype	= [$Bytes(2)],
    mbxm$unit		= [$Bytes(2)],
    mbxm$data		= [$Bytes(256)]
    TES;
LITERAL
    mbx_message_size = $FIELD_SET_SIZE,
    mbx_message_blen = mbx_message_size*4;
MACRO
    mbx_message_structure = BLOCK[mbx_message_size] FIELD(mbx_message_structure_fields)%;



! This structure defines the interface information that is specific
! to the IP-over-DECNet driver.
!!!HACK!!! Document these fields

$FIELD  DN_Interface_Fields = 
    SET
    DNI$Next			= [$Address],
    DNI$dev_config		= [$Address],
    DNI$Net_Chan		= [$bytes(4)],
    DNI$Mbx_Chan		= [$bytes(4)],
    DNI$Net_IOSB		= [$bytes(8)],
    DNI$Mbx_IOSB		= [$bytes(8)],
    DNI$Node_name		= [$bytes(8)],
    DNI$NCB_desc		= [$bytes(8)],
    DNI$receive_addr		= [$Address],
    DNI$recv_Qhead		= [$Address],
    DNI$recv_Qtail		= [$Address],
    DNI$restart_time		= [$Bytes(4)],
    DNI$restart_count		= [$bytes(2)],
    DNI$retry_count		= [$bytes(2)],
    DNI$max_retry		= [$bytes(2)],
    DNI$MPBS			= [$bytes(2)],
    DNI$Flags			= [$Bytes(2)],
    $OVERLAY(DNI$Flags)
	DNI$need_2_free	= [$bit],	! DNshutdown buf free pending
	DNI$IO_queued	= [$bit],	! DN I/O has been started
!	DNI$DN_decnet	= [$bit],	! DN DECNET address seen
	DNI$DN_connected= [$bit],	! DN link up.
    $CONTINUE
    DNI$mbx_message		= [$Bytes(mbx_message_blen)]
    TES;

LITERAL
    DN_Interface_size = $Field_set_size;

MACRO
    DN_Interface_Structure = BLOCK[DN_Interface_size] FIELD(DN_Interface_Fields)%;