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: