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.

!
!  TOPOL data base definition
!

$SHOW(FIELDS)

$FIELD D_FIELDS =
    set
    Dbase =     [$sub_block (0)],
    Dsta =	[$byte],                ! State
    Dxpt =	[$byte],                ! Transport's PIX
    Dlla =      [$byte],                ! SC's LLA
    Dsc  =      [$byte],                ! SC's PIX
    Dsiz =      [$short_integer]        ! Buffer size
    tes;

literal TOPDB_length = $FIELD_SET_SIZE;

! The following symbols stand for the structure references

macro
    D_ALLOCATION = DB[Dsiz]%,
    D_BASE = DB[Dbase]%,
    D_LLA = DB[Dlla]%,
    D_SCPIX = DB[Dsc]%,
    D_STATE = DB[Dsta]%,
    D_XPTPIX = DB[Dxpt]%;

macro
    C_ULA = MCB$GW_PROCESS_HANDLE%;

literal
    DS_IDLE = 0,
    DS_DO_ACCEPT = 1,
    DS_ACCEPTING = 2,
    DS_DO_DISCONNECT = 3,
    DS_DISCONNECTING = 4,
    DS_DO_ABORT = 5,
    DS_ABORTING = 6,
    DS_LO = min (DS_IDLE, DS_DO_ACCEPT, DS_ACCEPTING, DS_DO_DISCONNECT, DS_DISCONNECTING, DS_DO_ABORT, DS_ABORTING),
    DS_HI = max (DS_IDLE, DS_DO_ACCEPT, DS_ACCEPTING, DS_DO_DISCONNECT, DS_DISCONNECTING, DS_DO_ABORT, DS_ABORTING);

!
! TOPOL error codes
!

DECLARE_SEVERITY (TOP, SUCCESS, INFO, ERROR, SEVERE);

$TOP_SUCCESS ($TOP$_SUCCESS,	' (just a filler)')
$TOP_SEVERE  ($TOP$_OPR,	' Operational snafu')
$TOP_SEVERE  ($TOP$_CFG,	' Configuration failure - SC or XPT not found')
$TOP_ERROR   ($TOP$_RES,	' Resource failure during initialization')