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

! [Beginning of DTRDAT]
!
!
!                    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 Test Receiver
!
! ABSTRACT:
!
!	This contains the data structure definitions for DTR.
!
! ENVIRONMENT: MCB V3.0
!
! AUTHOR: Alan D. Peckham	CREATION DATE: 27-Nov-80
!
! MODIFIED BY:
!
!	Alan Peckham, 27-Nov-80
! 01	- New process for DN20 testing.
! 02	- New status code.
!--

$SHOW (FIELDS, LITERALS)

!
! Status Codes:
!

DECLARE_SEVERITY (DTR, INFO, SEVERE, ERROR);

$DTR_ERROR (DTR$_DISPATCH, 'Unexpected dispatch')
$DTR_SEVERE (DTR$_NO_SC, 'The SC process does not exist')
$DTR_SEVERE (DTR$_NO_CCB, 'Could not get CCB')
$DTR_INFO (DTR$_TEST_INVALID, 'Invalid test type received')
$DTR_INFO (DTR$_TEST_UNSUPPORTED, 'Unsupported test type received')
$DTR_INFO (DTR$_NO_ABORT, 'Abort rejected by Session Control')
$DTR_INFO (DTR$_NO_ACCEPT, 'Accept rejected by Session Control')
$DTR_INFO (DTR$_NO_DISCONNECT, 'Disconnect rejected by Session Control')
$DTR_INFO (DTR$_NO_REJECT, 'Reject rejected by Session Control')
$DTR_INFO (DTR$_NO_SEND_DATA, 'Data rejected by Session Control')
$DTR_INFO (DTR$_NO_DATA_REQUEST, 'Data request rejected by Session Control')
$DTR_INFO (DTR$_NO_DATA_PLEASE, 'Data received on non-data test')
$DTR_INFO (DTR$_NO_INTERRUPT_PLEASE, 'Interrupt data received on non-interrupt test')
$DTR_INFO (DTR$_NO_INTERRUPT_REQUEST, 'Interrupt data request rejected by Session Control')
$DTR_INFO (DTR$_NO_SEND_INTERRUPT, 'Interrupt data rejected by Session Control')
$DTR_INFO (DTR$_BAD_SEQUENCE_NUMBER, 'Bad sequence number received from DTS')
$DTR_INFO (DTR$_BAD_PATTERN, 'Bad data pattern received from DTS')

!
! INI process data base
!

$FIELD
    D_FIELDS =
	set
	D_CLOCK = [$SHORT_INTEGER],
	D_LINKS = [$SHORT_INTEGER],
	D_ADDR = [$ADDRESS]
	tes;

literal
    D_LENGTH = $FIELD_SET_SIZE;

$FIELD
    L_FIELDS =
	set
	L_ULA = [$TINY_INTEGER],
	LS_DIP = [$BIT],
	LS_XOFF = [$BIT],
	LS_PROPT = [$BIT],
	LS_ACTIVE = [$BIT],
	$ALIGN (FULLWORD)
	L_LLA = [$BYTE],
	L_TEST = [$TINY_INTEGER],
	L_SUB_TEST = [$TINY_INTEGER],
	L_FLOW_TYPE = [$TINY_INTEGER],
	L_FLOW_COUNT = [$INTEGER],
	L_NAK_COUNT = [$TINY_INTEGER],
	L_BPC_COUNT = [$TINY_INTEGER],
	L_MESSAGE_SIZE = [$INTEGER],
	L_NAK_MESSAGES = [$INTEGER],
	L_BPC_MESSAGES = [$INTEGER],
	L_SEND_NUMBER = [$SUB_BLOCK (2)],
	L_RECEIVE_NUMBER = [$SUB_BLOCK (2)],
	L_RECEIVE_COUNT = [$SUB_BLOCK (2)],
	L_PATTERN_CHARACTER = [$INTEGER],
	L_PATTERN_ROUTINE = [$ADDRESS],
	$OVERLAY (L_MESSAGE_SIZE)
	L_DISCONNECT_LENGTH = [$INTEGER],
	L_DISCONNECT_DATA = [$string (16)]
	$CONTINUE
	tes;

literal
    L_LENGTH = $FIELD_SET_SIZE;

!
! [End of DTRDAT]