Google
 

Trailing-Edge - PDP-10 Archives - BB-P363B-SM_1985 - mcb/nml/nmunts.r16
There are no other files named nmunts.r16 in the archive.
! NMUNTS - NMUNET Data Structures for MCB Environments
!
!                    COPYRIGHT (c) 1980, 1981, 1982
!                    DIGITAL EQUIPMENT CORPORATION
!                        Maynard, Massachusetts
!
!     This software is furnished under a license and may  be  used
!     and copied only in accordance with the terms of such license
!     and with the inclusion of the above copyright notice.   This
!     software  or any other copies thereof may not be provided or
!     otherwise made available to any other person.  No  title  to
!     and ownership of the software is hereby transferred.
!
!     The information  in  this  software  is  subject  to  change
!     without  notice  and should not be construed as a commitment
!     by DIGITAL EQUIPMENT CORPORATION.
!
!     DIGITAL assumes no responsibility for the use or reliability
!     of  its  software  on  equipment  which  is  not supplied by
!     DIGITAL.
!

!++
! Facility: LSG DECnet Network Management
!
! Abstract: This file contains definitions that are specific to
!	    MCB.
!
! Environment: MCB
!
! Author: Scott G. Robinson, Creation date: 3-FEB-81
!
!--

!<BLF/NOFORMAT>
!<BLF/NOERROR>
!<BLF/PAGE>
!
! Other requirements for MCB
!
!
! RSX$_CONB is a structure used with the CON$ call for SOURCE_LINKs. It
! is part of the LINK_INFO_BLOCK.
!
    $field
	RSX$_CONB_FIELDS =
	    set
	    CONB_NODE_NAME = [$bytes(6)], 	! Blank-filled Node Name
	    CONB_FORMAT = [$byte],		! Descriptor Format byte
	    CONB_OBJECT = [$byte],		! Object type
	    CONB_DESCR = [$bytes(18)],		! Format 0 Descriptor

	        $overlay (CONB_DESCR)		! Format 1 Descriptor
	    CONB_1_LENGTH = [$integer], 	!  Length of TASK_NAME
	    CONB_1_TASK_NAME = [$bytes(16)],	!  The Task's Name
		$continue
		$overlay (CONB_DESCR)		! Format 2 Descriptor
	    CONB_2_GROUP = [$integer],		!  Group Number of UIC
	    CONB_2_USER = [$integer],		!  User Number of UIC
	    CONB_2_LENGTH = [$integer],		!  Length of TASK_NAME
	    CONB_2_TASK_NAME = [$bytes(12)],	!  The Task's Name
		$continue
	    CONB_USER_LENGTH = [$integer],	! Length of USER_ID
	    CONB_USER_ID = [$bytes(16)],	! The USER_ID
	    CONB_PASSWORD_LENGTH = [$integer],	! Length of PASSWORD
	    CONB_PASSWORD = [$bytes(8)],	! The PASSWORD
	    CONB_ACCOUNT_LENGTH = [$integer],	! Length of ACCOUNT
	    CONB_ACCOUNT = [$bytes(16)]		! The ACCOUNT string
	    tes;

literal
	RSX$_CONB_SIZE = $field_set_size,
	RSX$_CONB_ALLOCATION = $field_set_units;

macro
    RSX$_CONB_BLOCK = block[RSX$_CONB_SIZE] field(RSX$_CONB_FIELDS) %;

!
! RSX$_GND is a block received from the GND$ call when processing
! incoming connects for TARGET_LINKs.
!
$field
	RSX$_GNDB_FIELDS =
	    set
	    GNDB_RESTRICTED = [$integer],	! Temporary Logical Address
	    GNDB_SEGMENT = [$integer],		! NSP Segment Size
	    GNDB_DEST_FORMAT = [$byte],		! Descriptor Format byte
	    GNDB_DEST_OBJECT = [$byte],		! Object type
	    GNDB_DEST_DESCR = [$bytes(18)],	! Format 0 Descriptor

	        $overlay (GNDB_DEST_DESCR)	! Format 1 Descriptor
	    GNDB_D1_LENGTH = [$integer], 	!  Length of TASK_NAME
	    GNDB_D1_TASK_NAME = [$bytes(16)],	!  The Task's Name
		$continue
		$overlay (GNDB_DEST_DESCR) 	! Format 2 Descriptor
	    GNDB_D2_GROUP = [$integer],		!  Group Number of UIC
	    GNDB_D2_USER = [$integer],		!  User Number of UIC
	    GNDB_D2_LENGTH = [$integer],		!  Length of TASK_NAME
	    GNDB_D2_TASK_NAME = [$bytes(12)],	!  The Task's Name
		$continue
	    GNDB_SOURCE_NODE_NAME = [$bytes(6)],! Blank-filled Node Name
	    GNDB_SOURCE_FORMAT = [$byte],		! Descriptor Format byte
	    GNDB_SOURCE_OBJECT = [$byte],		! Object type
	    GNDB_SOURCE_DESCR = [$bytes(18)],	! Format 0 Descriptor

	        $overlay (GNDB_SOURCE_DESCR)	! Format 1 Descriptor
	    GNDB_S1_LENGTH = [$integer], 	!  Length of TASK_NAME
	    GNDB_S1_TASK_NAME = [$bytes(16)],	!  The Task's Name
		$continue
		$overlay (GNDB_SOURCE_DESCR) 	! Format 2 Descriptor
	    GNDB_S2_GROUP = [$integer],		!  Group Number of UIC
	    GNDB_S2_USER = [$integer],		!  User Number of UIC
	    GNDB_S2_LENGTH = [$integer],		!  Length of TASK_NAME
	    GNDB_S2_TASK_NAME = [$bytes(12)],	!  The Task's Name
		$continue
	    GNDB_SOURCE_TASK_LENGTH = [$integer],! Length of TASK_ID
	    GNDB_SOURCE_TASK_ID = [$bytes(16)],	! The TASK_ID
	    GNDB_SOURCE_PASSWORD_LENGTH = [$integer],! Length of PASSWORD
	    GNDB_SOURCE_PASSWORD = [$bytes(8)],	! The PASSWORD
	    GNDB_SOURCE_ACCOUNT_LENGTH = [$integer],	! Length of ACCOUNT
	    GNDB_SOURCE_ACCOUNT = [$bytes(16)],		! The ACCOUNT string
	    GNDB_OPTIONAL_LENGTH = [$integer],	! Length of OPTIONAL_DATA
	    GNDB_OPTIONAL_DATA = [$bytes(16)]	! Optional_Data
	    tes;

literal
	RSX$_GNDB_SIZE = $field_set_size,
	RSX$_GNDB_ALLOCATION = $field_set_units;

macro
	RSX$_GNDB_BLOCK = block [RSX$_GNDB_SIZE] field(RSX$_GNDB_FIELDS) %;

!
! LINK_INFO is a structure used withing NMUNET to represent each logical
! link. It is retained while the LINK_ID is valid.
!
    $field
    LINK_INFO_FIELDS =
	set
	LINK_QUEUE = [$sub_block (Q_ENTRY_SIZE)],	! Queue of all links
	LINK_ID = [$integer],			! Link identifier
	LINK_LUN = [$integer],			! LUN assigned to this link
	LINK_FLAG = [$integer],			! Event Flag assigned to synch operations
	LINK_LINK_SB = [$sub_block (NMU$_NETSB_SIZE)],	! I/O Status Block for LINK Operations
	LINK_IN_SB = [$sub_block (NMU$_NETSB_SIZE)],	! I/O Status Block for Input Operations
	LINK_OUT_SB = [$sub_block (NMU$_NETSB_SIZE)],	! I/O Status Block for Output Operations
	LINK_EVENT = [$sub_block (EVENT_BLOCK_SIZE)],	! Link event
	LINK_TYPE = [$integer],			! Link type (source, target)
	LINK_IO_STATUS = [$sub_block(1)], 	! Link IO Status
	   	$overlay(LINK_IO_STATUS)
		LINK_OUTPUT_IN_PROGRESS = [$bit], ! Set for SND$S in progress
		LINK_INPUT_IN_PROGRESS =  [$bit], ! Set for REC$S in progress
		$continue
	LINK_STATUS = [$sub_block (LINK_STATUS_BLOCK_SIZE)],
!---------------LINK_GNDB, LINK_CONB, and LINK_OPTI must be adjacent -----
	LINK_GNDB = [$sub_block (RSX$_GNDB_SIZE)],	! GND block
		$overlay($sub_field(LINK_GNDB,GNDB_SOURCE_NODE_NAME))
	LINK_CONB = [$sub_block (RSX$_CONB_SIZE)],	! CON block
		$continue
		$overlay($sub_field(LINK_GNDB,GNDB_OPTIONAL_LENGTH))
	LINK_OPTI_LENGTH = [$integer], 			! Optional Data
	LINK_OPTI_DATA = [$bytes(16)]
		$continue
!-----------------------------------------------------------------------------
	tes;

literal
    LINK_INFO_BLOCK_SIZE = $field_set_size,
    LINK_INFO_BLOCK_ALLOCATION = $field_set_units;

macro
    LINK_INFO_BLOCK =
	block [LINK_INFO_BLOCK_SIZE] field (LINK_INFO_FIELDS) %;
!<BLF/FORMAT>
!<BLF/ERROR>
!
! Local Modes:
! Mode:Fundamental
! Comment Start:!
! Comment Column:40
! Comment Rounding:+1
! Auto Save Mode:2
! End: