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: