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) 1981 BY
!           DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
!
! 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]