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

%title 'SNT Data Base Declarations'

module SNTDBS (ident = 'Version 1.00') =
begin

! 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 TOPS-20 SNT Data Base Declarations.
!
! ABSTRACT:	This module provide the data base declarations and
!               initialization.
!
! ENVIRONMENT:	TOPS-20 Operating Systems, user mode.
!
! AUTHOR:	Dennis Brannon, 	CREATION DATE: April 24, 1984.
!
! MODIFIED BY:
!
! 	D. Brannon, 11-Oct-84 : VERSION 1.00
!
!--

!
! REQUIRED FILES
!

library 'SNTDEF';                       ! SNT common definitions

COPYRIGHT_STATEMENT;

! CHANNELS
! Vector containing the interrupt channels used by SNT.

global
    CHANNELS: INTERRUPT_CHANNELS ($MAXIMUM_SUPPORTED_PORTS);

! MEMORY
! Temporaty data buffers to be allocated for all SNT requests.

global
    MEMORY: MEMORY_BUFFER_POOL initial (MEMORY_MAP);

! CONTROL
! Global SNT control data base.

global
    CONTROL: GLOBAL_CONTROL_BLOCK;

global bind
    GCBSIB = CONTROL[GCB_SYSTEM_INFORMATION_BLOCK],
    GCBIOB = CONTROL[GCB_INPUT_OUTPUT_BLOCK],
    GCBMCB = CONTROL[GCB_MEMORY_CONTROL_BLOCK];

! COUNTERS
! Data base containing the master copy of port counters.


global
    DEBUG_FLAGS;

global literal
    DEBUG_SWITCHES;

global
    WORK_AREA: vector [1024];

global
    TEXT_BUFFER: CH$SEQUENCE (TEXT_BUFFER_LEN),
    TEXT_POINTER;

global
    SNATRATBL,           ! Contains the address of the translation table
    EBAS: VECTOR [256];  ! EBCDIC to ASCII followed by ASCII to EBCDIC 
                         ! translation table.

end                                   ! End of SNTDBS module
eludom

! Local Modes:
! Mode:BLISS
! Auto Save Mode:2
! Comment Column:40
! Comment Rounding:+1
! End: