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

%title 'SNT Argument Block Definitions       Version 1.00'

! Copyright (c) 1984, 1985 by
! 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/SNA Trace Utility Argument Block Definitions
!
! ABSTRACT:	This require file provides the Argument Block Definitions
!               used by SNT bliss modules calling the SGA (Sna Gateway Access)
!               modules.  It is used by SNTDEF.R36
!
! ENVIRONMENT:	TOPS-20 Operating Systems, user mode.
!
! AUTHOR:       Dennis Brannon,               CREATION DATE: December 7,1983
!
! MODIFIED BY:
!
! 	D. Brannon, 10-Oct-84 : VERSION 1.00
! 
!--
!++

%sbttl 'Macro Interface Argument Block Field Definitions'

$field ARGUMENT_BLOCK_FIELDS =
    set
    ARGUMENT_WORD_0 = [$sub_block(1)],

        $overlay (ARGUMENT_WORD_0)      ! Initialize a Trace
    INI_INTERRUPT_CHANNEL = [$short_integer],
    INI_RETURN_DATA_ADDRESS = [$address],
    INI_RETURN_DATA_SIZE = [$bits(8)],
    INI_RETURN_PROTOCOL_CODE = [$bits(8)],
    INI_RETURN_CODE = [$bits(2)],
    INI_GATEWAY_NAME = [$pointer],
    INI_WORK_AREA = [$address],
        $continue

        $overlay (ARGUMENT_WORD_0)      ! Service Response
    RSP_FLAGS = [$bits(18)],
    RSP_RETURN_DATA_ADDRESS = [$address],
    RSP_RETURN_DATA_SIZE = [$fullword],
    RSP_RETURN_PROTOCOL_CODE = [$bits(8)],
    RSP_RETURN_CODE = [$bits(2)]
        $continue

    tes;

literal
    ARGUMENT_BLOCK_SIZE = $field_set_size;

macro ARGUMENT_BLOCK =
    block [ARGUMENT_BLOCK_SIZE] field (ARGUMENT_BLOCK_FIELDS) %;