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

! UPD ID= 254, SNARK:<6.1.NML>NCPINI.BLI.2,   7-Feb-85 22:04:57 by GLINDELL
!  Change NCP initialization message to be version 4.0
!
! NET:<BRANDT.DEVELOP>NCPINI.BLI.2 28-Dec-81 17:25:18, Edit by BRANDT
!
! Ident 2.
!   Fix call to NCP$LOG_TO_OPERATOR in routine NCP$INITIALIZE
!   to pass the correct number of args.  Two!
!
! 15-Nov-81 2:34:39, Edit by GROSSMAN
!
! Remove start address in module header. This alleviates the dependancy
! for loading NCPINI after NMUSKD (by LINK). Will prevent confusion in
! the future for the poor guy who tries to rearrange these modules in the
! core image for some obscure (or possibly aesthetic) reason.
!

module NCPINI	(
		ident = 'X03.2'
		) =
begin

!
!			  COPYRIGHT (c) 1980 BY
!	      DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
!
! 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-10/20 V3.0 Network Control Program (NCP)
!
! ABSTRACT:
!
!	Provides startup and initialization processing for NCP. Contains
!	routines to do error and restart processing for NCP.
!
! ENVIRONMENT:	TOPS-10/20 User mode under NML
!
! AUTHOR: Dale C. Gunn , CREATION DATE: 20-Aug-80
!
! MODIFIED BY:
!
!	maintainer, date : VERSION nnn
!
! 01	- Description of modification
!--

!
! INCLUDE FILES:
!

library 'NCPLIB';                       ! All required definitions

require 'NCPEXT' ;

!
! TABLE OF CONTENTS
!

forward
       routine
       NCP$START,
       NCP$INITIALIZE,
       NCP$ERROR,
       NCP$RESTART,
       NCP$DB__INIT ;

!
! MACROS:
!

!
! EQUATED SYMBOLS:
!

!
! OWN STORAGE:
!

!
! EXTERNAL REFERENCES:
!

external
	routine
	NCP$ORI_INITIALIZE,             ! Initialize Operator Interface
        NCP$COMMAND_INITIALIZE,         ! Initialize NCPCEX data base
	NCP$LOG_TO_OPERATOR,            ! Write Entry to Operator Log
	NCP$SEND_RESPONSE,              ! Respond to Operator Command
	NCP$SEND_TO_OPERATOR,           ! Send Message to Operator
	NCP$GET_COMMAND ;               ! Get Next Operator Command

global routine %unquote NCP$START =

!++
! FUNCTIONAL DESCRIPTION:
!
!	Main external entry point for NCP. Calls initialization 
!	routines. If successful, calls command processing routine.
!
! FORMAL PARAMETERS
!
!	NONE.
!
! IMPLICIT INPUTS
!
!	NONE.
!
! ROUTINE VALUE: TRUE, if terminates normally.
! COMPLETION CODES:
!
!	NONE.
!
! SIDE EFFECTS:
!
!	NONE.
!
!--

    begin

    if NCP$INITIALIZE ()
    then do NCP$GET_COMMAND ()
         while (1 eql 1)
    else $INTERNAL_ERROR$ ('NCP Initialization Failed')

    end;				!End of NCP$START

global routine %unquote NCP$INITIALIZE =

!++
! FUNCTIONAL DESCRIPTION:
!
!	Performs generic NCP initialization processing. Initializes
!	memory manager and operator interface.
!
! FORMAL PARAMETERS
!
!	NONE.
!
! IMPLICIT INPUTS
!
!	NONE.
!
! ROUTINE VALUE: TRUE, if initialization successful.
! COMPLETION CODES:
!
!	NONE.
!
! SIDE EFFECTS:
!
!	NONE.
!
!--

    begin

    if NCP$ORI_INITIALIZE ()            ! Initialize operator interface
    then begin
         NCP$DB__INIT () ;              ! Initialize NCP database
                                        ! and record fact we started
         NCP$LOG_TO_OPERATOR (0, ch$ptr(uplit (%asciz 'NCP V4.0 Started'))) ;
         (1 eql 1)                      ! Return success
         end
    else $INTERNAL_ERROR$ ('Failed to initialize ORION interface')

    end;				!End of NCP$INITIALIZE

global routine %unquote NCP$ERROR =

!++
! FUNCTIONAL DESCRIPTION:
!
!
! FORMAL PARAMETERS
!
!	NONE.
!
! IMPLICIT INPUTS
!
!	NONE.
!
! ROUTINE VALUE:
! COMPLETION CODES:
!
!	NONE.
!
! SIDE EFFECTS:
!
!	NONE.
!
!--

    begin

    $UNFINISHED$ ('Add code here to do error handling') 

    end;				!End of NCP$ERROR

global routine %unquote NCP$RESTART =

!++
! FUNCTIONAL DESCRIPTION:
!
!
! FORMAL PARAMETERS
!
!	NONE.
!
! IMPLICIT INPUTS
!
!	NONE.
!
! ROUTINE VALUE:
! COMPLETION CODES:
!
!	NONE.
!
! SIDE EFFECTS:
!
!	NONE.
!
!--

    begin

    $UNFINISHED$ ('Add code here to do restart processing for NCP')

    end;				!End of NCP$RESTART

routine NCP$DB__INIT =

!++
! FUNCTIONAL DESCRIPTION:
!
!	Initializes NCP internal data base.
!
! FORMAL PARAMETERS
!
!	NONE.
!
! IMPLICIT INPUTS
!
!	NONE.
!
! ROUTINE VALUE: NONE.
! COMPLETION CODES:
!
!	NONE.
!
! SIDE EFFECTS:
!
!	The internal data structures used by NCP are reset and
!       initialized to state expected at startup.
!
!--

    begin

    if not NCP$COMMAND_INITIALIZE ()    ! Initialize NCPCEX
    then return 0 ;                     ! Failure...

    return 1 ;                          ! Success, all initialized

    end;				!End of NCP$DB__INIT

end				!End of Module NCPINI
eludom

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