Google
 

Trailing-Edge - PDP-10 Archives - BB-X117B-SB_1986 - 10,7/nml/ncpmsg.bli
There are 2 other files named ncpmsg.bli in the archive. Click here to see a list.
! NET:<DECNET20-V3P1.BASELEVEL-2.SOURCES>NCPMSG.BLI.4  5-Aug-81 13:15:55, Edit by JENNESS
!
!    Ident 01.
!    Change CASE table of error codes to be from -127 to -1 instead of
!    -29 to -1.  This allows additions to the architectural definitions
!    of returns codes without having to edit this module again.
!
module NCPMSG	(
		ident = '3(0)-0'
		) =
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:
!
!	Contains definitions of NCP and NML error message codes and messages.
!
! ENVIRONMENT:	User mode, system independent.
!
! AUTHOR: Dale C. Gunn , CREATION DATE:  8-Oct-80
!
! MODIFIED BY:
!
!	, : VERSION
! 01	-
!--
!
! INCLUDE FILES:
!

library 'NCPLIB' ;                      ! All required definitions

!
! TABLE OF CONTENTS
!

forward routine
        NCP$GET_ERR_TEXT;

!
! MACROS:
!

!
! EQUATED SYMBOLS:
!

!
! OWN STORAGE:
!

!
! EXTERNAL REFERENCES:
!

global routine %unquote NCP$GET_ERR_TEXT (RET_CODE)  =

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

    begin

    $field SIGNED_BYTE =
        set
        VALUE = [0,0,8,1]               ! Signed eight bit byte
        tes;

    map
       RET_CODE: block[1] field(SIGNED_BYTE) ;

    return case .RET_CODE[VALUE] from -127 to -1 of
               set
               $NICE$ERR_CASES ($NML$NICE_ERRORS) ;
               [inrange,
                outrange]:
                   CH$ASCIC ('Undefined NICE error code') ;
               tes ;

    end;				!End of NCP$GET_ERR_TEXT
end				!End of Module NCPMSG
eludom
! Local Modes:
! Mode:BLISS
! Auto Save Mode:2
! Comment Column:40
! Comment Rounding:+1
! End: