Trailing-Edge
-
PDP-10 Archives
-
BB-FB49A-RM
-
sources/sgadbm.b36
There are no other files named sgadbm.b36 in the archive.
%title 'SNA Gateway Access Data Base Module for SNT'
module SGADBM (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:
!
! SNA Gateway Access Data Base Module for SNT.
!
! ABSTRACT:
!
! The module contains the data blocks allocated for the
! trace.
!
! ENVIRONMENT:
!
! TOPS-20 Operating Systems, user interface.
!
! AUTHOR: Dennis Brannon, CREATION DATE: January 17, 1984
!
! MODIFIED BY:
!
! D. Brannon, 11-Oct-84 : VERSION 1.00
!
!--
!
! TABLE OF CONTENTS
!
!
! INCLUDE FILES
!
library 'SNTDEF'; ! SNA Gateway Access Common symbols
COPYRIGHT_STATEMENT;
global
PROTOCOL_VERSION,
EDIT_VERSION;
global ! SNA RJE Workstation Data Blocks
ST: SNTBLOCK,
SIGVEC: BLOCK[10],
MECHVEC: BLOCK[10],
ENAVEC: BLOCK[10];
global ! Free workstation numbers and index
FREECI: initial (0),
FREECP: STACK ($MAXIMUM_SUPPORTED_PORTS)
initial (INITIAL_STACK ($MAXIMUM_SUPPORTED_PORTS));
end ! End of Module SGADBM
eludom
! Local Modes:
! Mode:BLISS
! Auto Save Mode:2
! Comment Column:40
! Comment Rounding:+1
! End: