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

!                    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.

!+
!	*** Start of SCRSX ***
!        RSX User Parameters
!-

%if not %declared (XPO$K_VERSION)
%then
    library 'MCB:XPORTX';
    $show (all);
%fi;


!+
! Field mapping for the RSX User Connect Block
!-
$field CBU_FIELDS =
    set
    CBU_NODE = [$byte_string (6)],	! Destination node name

    CBU_DFMT = [$byte],			! Destination object format
    CBU_DOBJ = [$byte],			!      "        "    type
    CBU_DST = [$byte_string (18)],	!      "        "    descriptor

    CBU_RQDL = [$short_integer],	! Requester ID length
    CBU_RQID = [$byte_string (16)],	!     "      "

    CBU_PASL = [$short_integer],	! Password length
    CBU_PASW = [$byte_string (8)],	!     "

    CBU_ACTL = [$short_integer],	! Accounting data length
    CBU_ACNT = [$byte_string (16)]	!     "       "
    tes;

literal
    CBU_SIZE = $field_set_size,
    N_RQL = CBU_SIZE*bytes_word;	! RSX connect block length

!+
! Field mapping for received connect block for RSX user
!-
$field CND_FIELDS =
    set
    CND_TLA = [$address],		! Temporary link address
    CND_SEG = [$short_integer],		! Segment size

    CND_DFMT = [$byte],			! Destination object format
    CND_DOBJ = [$byte],			!      "        "    type
    CND_DST = [$byte_string (18)],	!      "        "    descriptor

    CND_NODE = [$byte_string (6)],	! Destination node name

    CND_SFMT = [$byte],			! Source object format
    CND_SOBJ = [$byte],			!   "      "    type
    CND_SRC = [$byte_string (18)],	!   "      "    descriptor

    CND_RQDL = [$short_integer],	! Requester ID length
    CND_RQID = [$byte_string (16)],	!     "      "

    CND_PASL = [$short_integer],	! Password length
    CND_PASW = [$byte_string (8)],	!     "

    CND_ACTL = [$short_integer],	! Accounting data length
    CND_ACNT = [$byte_string (16)],	!     "       "

    CND_OPDL = [$short_integer],	! Optional data length
    CND_OPTD = [$byte_string (16)]	!    "      "
    tes;

literal
    CND_SIZE = $field_set_size;


!+
!	*** End of SCXRSX ***
!-