Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

! NET:<PECKHAM.DEVELOPMENT>NCPCOM.REQ.2 26-Jun-82 15:59:35, Edit by PECKHAM
!
! Make string buffers in XCTR_BLOCK and EXECUTOR_BLOCK larger (17 -> 33)
! to allow for ^V quotes.
!
! NET:<DECNET20-V3P1.NMU>NCPCOM.REQ.2 15-Jun-81 14:44:17, Edit by JENNESS
!
!    Readability improvements.

! NCPCOM.REQ - NCP Commonly Required Declarations

!
!                    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: DECnet-10/20 V3.0 Network Control Program (NCP)
!
! Abstract: Contains common declarations required by NCP.
!
! Environment: Bliss-36
!              TOPS-10/20 User mode under NML
!
! Author: Dale C. Gunn, Creation date: 10-Oct-80
!
!--

!
! Macros to provide long external name to short name conversion
! for NCP routines.
!

macro
     NCP$START = NC_STA % ,
     NCP$ORI_INITIALIZE = NC_OIN % ,
     NCP$INITIALIZE = NC_INI % ,
     NCP$ERROR = NC_ERR % ,
     NCP$RESTART = NC_RES % ,
     NCP$LOG_TO_OPERATOR = NC_LOG % ,
     NCP$SEND_RESPONSE = NC_RSP % ,
     NCP$SEND_TO_OPERATOR = NC_WTO % ,
     NCP$COUNTER_TEXT = NC_CTX %,
     NCP$BIT_TEXT = NC_BTX %,
     NCP$GET_COMMAND = NC_GET % ,
     NCP$COMMAND_INITIALIZE = NC_CIZ % ,
     NCP$COMMAND = NC_CMD % ,
     NCP$DEQUEUE_RESPONSE = NC_DQR % ,
     NCP$GET_ERR_TEXT = NC_ERT % ;

!
! EXECUTOR Node Table entry and Request Block Source Data
!

$field XCTR_FIELDS =
      set
      QUEUE = [$sub_block (Q_ENTRY_SIZE)], ! Queue link fields
      OPR_ID = [$integer],              ! Identifier of operator
      REQ_NO = [$integer],              ! Request id number
      CMD_ADR = [$address],             ! Address of command text buffer
      TO_FILE = [$address],             ! Address of 'TO' file block
! NOTE - This will allocate a character sequence for an 8 bit string
!        since there are 4 bytes for both 8 and 9 bit character strings
!        in a 36 bit word. But, I would really like to use $string(9,8).
      NOD_ID = [$bytes(9)],             ! EXECUTOR node name or number
      USR_ID = [$string(33)],           ! USER ID string
      ACTSTR = [$string(33)],           ! ACCOUNT string
      PWDSTR = [$string(33)]            ! PASSWORD string
      tes ;

$field EXECUTOR_BLOCK_FIELDS =
      set
      XB_QUEUE = [$sub_block (Q_ENTRY_SIZE)], ! Queue link fields
      XB_OPR_ID = [$integer],           ! Identifier of operator
      XB_REQ_NO = [$integer],           ! Request id number
      XB_CMD_ADR = [$address],          ! Address of command text buffer
      XB_TO_FILE = [$address],          ! Address of 'TO' file block
! NOTE - This will allocate a character sequence for an 8 bit string
!        since there are 4 bytes for both 8 and 9 bit character strings
!        in a 36 bit word. But, I would really like to use $string(9,8).
      XB_NOD_ID = [$bytes(9)],          ! EXECUTOR node name or number
      XB_USR_ID = [$string(33)],        ! USER ID string
      XB_ACTSTR = [$string(33)],        ! ACCOUNT string
      XB_PWDSTR = [$string(33)]         ! PASSWORD string
      tes ;

literal
       EXECUTOR_BLOCK_SIZE = $field_set_size, ! Size of executor block in words
       EXECUTOR_BLOCK_ALLOCATION = $field_set_units,    ! In units
       XCTR_SZ = $field_set_size ;      ! Size of Node table entry

macro
     EXECUTOR_BLOCK = block[EXECUTOR_BLOCK_SIZE]
                      field(EXECUTOR_BLOCK_FIELDS) %,
     XCTR_BLOCK = block[XCTR_SZ] field(XCTR_FIELDS) % ;


! [End of NCPCOM.REQ]