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

%title 'DECnet/SNA Tops-20 SNA Tracer and Analyzer'

module SNT (ident = 'Version 1.034', version = '1(34)',
            main = SNT_COMMAND)  =
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:     TOPS-20 Test Program for SNT Access to SNA Gateway
!
! ABSTRACT:	This module is the core of the SNT program.
!
! ENVIRONMENT:	TOPS-20 Operating Systems, user mode.
!
! AUTHOR:	Dennis Brannon,               CREATION DATE: 11-Oct-84
!
! MODIFIED BY:
!
! 	D. Brannon, 11-Oct-84 : VERSION 1.00
!    
! 1.01  D. Brannon, 18-Oct-84
!       Removed commented out references to PSI$INITIALIZE
!
! 1.02  D. Brannon, 18-Oct-84
!       Added call to USP$TRANSLATE_SNAGAT to convert the logical name
!       SNAGAT into the default sna gateway node name.
!--

!
! REQUIRED FILES
!

library 'MONSYM';                       ! Monitor symbols
library 'SNTDEF';                       ! SNT common definitions
library 'SNTLIB';                       ! VMS common definitions
require 'JSYS';                         ! TOPS-20 JSYS definitions

!
! EXTERNAL REFERENCES
!

external routine
    CEX$COMMAND_PARSER: novalue,
    USP$AUTHORIZATION: novalue,
    USP$RESET_TERMINAL: novalue,
    USP$RESET_CONTROL: novalue,
    USP$SYSTEM_IDENTIFICATION: novalue,
    PSI$TTY_INIT,
    SNT$MSGHANDLER,
    TRC$CTRLZ_TRAP,
    USP$TRANSLATE_SNAGAT: novalue;

%routine ('SNT_COMMAND') : novalue =

!++
! FUNCTIONAL DESCRIPTION:
!
!       Entry point of the SNT program. Everything starts out from
!       here.
!
! FORMAL PARAMETERS:
!
!       none
!
! ROUTINE VALUE:
!
!       none
!
! SIDE EFFECTS:
!
!       none
!
!--

    begin

    !
    ! Enable condition handler.
    !
    ENABLE 
         SNT$MSGHANDLER;

    jsys_reset ();                      ! Global reset

    !
    ! Enable control Z trap
    !
    PSI$TTY_INIT (CTRLZ_TRAP,TRC$CTRLZ_TRAP);	! Set up CTRL/Z (^Z) TRAP  

    ! The image program should be protected with execute-only mode so that
    ! the following code cannot be modified by DDT. It is essential to
    ! observe this, since by using this program, one can examine ALL data
    ! flowing through the SNA Gateway.

    USP$AUTHORIZATION ();               ! Verify WHEEL or OPERATOR capability

    ! Proceed 

    USP$RESET_TERMINAL ();              ! Reset display terminal
    USP$RESET_CONTROL ();               ! Reset data bases
    USP$SYSTEM_IDENTIFICATION ();       ! Record own identification

    USP$TRANSLATE_SNAGAT ();            ! Translate logical name SNAGAT:

    CEX$COMMAND_PARSER ();              ! Parse and process commands

    jsys_haltf ();

    end;                                ! End of SNT_COMMAND

end
eludom                                  ! End of module MAIN

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