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

		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 'CMUIP_SRC:[central]NETXPORT';


%Sbttl   'SLIP Driver Structures'

! This structure defines the interface information that is specific
! to the SLIP driver.

$FIELD  SLIP_Interface_Fields =
    SET
    SLI$dev_config              = [$Address],
    SLI$IO_Chan                 = [$bytes(4)],
    SLI$recv_Qhead              = [$Address],
    SLI$recv_Qtail              = [$Address],
    SLI$restart_time            = [$Bytes(4)],
    SLI$restart_count           = [$bytes(2)],
    SLI$retry_count             = [$bytes(2)],
    SLI$max_retry               = [$bytes(2)],
    SLI$MPBS                    = [$bytes(2)],
    SLI$Flags                   = [$Bytes(2)],
    $OVERLAY(SLI$Flags)
	SLI$need_2_free   = [$bit],	! SL_shutdown buf free pending
	SLI$IO_queued     = [$bit],	! SL I/O has been started
        SLI$SLIP_started  = [$bit]	! SLIP started at least once
    TES;

LITERAL SLIP_Interface_size = $Field_set_size;
MACRO SLIP_Interface_Structure = BLOCK[SLIP_Interface_size] FIELD(SLIP_Interface_Fields)%;

! This structure defines the VMS I/O status block for the Terminal driver

$FIELD SLIP_iosb =
    SET
    SLIP$vms_code        = [$short_integer],
    SLIP$trm_offset      = [$short_integer],
    SLIP$trm	         = [$byte],
    SLIP$iosb_unused1    = [$byte],
    SLIP$trm_size        = [$short_integer]
    TES;

LITERAL SLIP_iosb_len = $Field_set_size;
MACRO SLIP_iosb_structure = BLOCK[SLIP_iosb_len] FIELD(SLIP_iosb)%;

! Receive buffer Q structure

$FIELD QB_SLIP_rcv =
    SET
    SLIPRCV$next         = [$address],		! Queue entry	    
    SLIPRCV$last         = [$address],
    SLIPRCV$vms_code     = [$short_integer],	! I/O Status Block  
    SLIPRCV$trm_offset   = [$short_integer],
    SLIPRCV$trm          = [$byte],
    SLIPRCV$unused       = [$byte],
    SLIPRCV$trm_size     = [$short_integer],
    SLIPRCV$data         = [$byte]		! Start of data	    
    TES;

LITERAL SLIPRCV_QB_len = $Field_set_size;
MACRO SLIPRCV_QB_structure = BLOCK[SLIPRCV_QB_len] FIELD(QB_SLIP_rcv)%;

LITERAL
    MAX_RCV_BUF = 4;