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

! 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, 1981, 1982
!                    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:	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 V3.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: