Google
 

Trailing-Edge - PDP-10 Archives - BB-FB51A-RM - sna-ai/sources/saidbm.b36
There are no other files named saidbm.b36 in the archive.
%title 'SNA Gateway Access Data Base Module'

module SAIDBM (ident = 'Version 1.0') =
begin

! Copyright (c) 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:
!
!	SNA Gateway Access Module
!
! ABSTRACT:
!
!       The module contains the data blocks allocated for the virtual
!       circuits.
!
! ENVIRONMENT:
!
!	TOPS-20 Operating Systems, user interface.
!
! AUTHOR:	Vicki Gary,               CREATION DATE: March 17,  1984
!
! MODIFIED BY:
!
! 	, : Version
! 01	-
!--
!
! TABLE OF CONTENTS
!

!
! INCLUDE FILES
!

library 'SNACOM';                       ! SNA Gateway Access Common symbols

COPYRIGHT_STATEMENT;

global
    PROTOCOL_VERSION,
    EDIT_VERSION;

global
    SNAIOB: IO_BUFFER_BLOCKS
            preset (INITIAL_IO_BUFFER (MAXIMUM_SUPPORTED_PORTS));

global
    SNAEIB: RING_BLOCK_VECTOR;

global
    SNAEOB: RING_BLOCK_VECTOR;

global                                  ! SNA Virtual Circuit Data Blocks
    SNAVCB: PORT_CONTROL_BLOCKS;

global                                  ! Free virtual circuit ports and index
    FREECI: initial (0),
    FREECP: STACK (MAXIMUM_SUPPORTED_PORTS*2)
            initial (INITIAL_STACK (MAXIMUM_SUPPORTED_PORTS*2));
end                                   ! End of Module SAIDBM
eludom
! Local Modes:
! Mode:BLISS
! Auto Save Mode:2
! Comment Column:40
! Comment Rounding:+1
! End: