Google
 

Trailing-Edge - PDP-10 Archives - BB-X117B-SB_1986 - 10,7/nml/ncpctr.bli
There are 2 other files named ncpctr.bli in the archive. Click here to see a list.
! UPD ID= 23, SNARK:<6.1.NML>NCPCTR.BLI.2,  24-May-84 14:12:16 by GLINDELL
! DSKC:NCPCTR.BLI[10,5665,SOURCE,TOPS10] 20-Oct-83 22:58:00, Edit by GROSSMAN
!
! Move tables to the highseg.
! Edit=43
!
!<MCINTEE.WORK>NCPCTR.BLI.2, 27-Jul-83 15:16:17, Edit by MCINTEE
!
! Ident 05.
!   Subentity type now part of entity type.
!   Also rename tables to reflect possibility of more than one 
!   module subentity having counters
!
!PH4:<MCINTEE.WORK>NCPCTR.BLI.2 22-Jun-83 9:19:35, Edit by MCINTEE
!
! Ident 04.
!   Change ENTITY type constant names to new style.
!
!NET:<PECKHAM.DEVELOPMENT>NCPCTR.BLI.2 26-Feb-82 09:33:17, Edit by PECKHAM
!
! Ident 03.
! Move counter definitions to NMARCH.
!
!NET:<DECNET20-V3P1.BASELEVEL-2.SOURCES>NCPCTR.BLI.5  9-Oct-81 08:21:08, Edit by PECKHAM
!
! Ident 02.
! Correct typos in $NML$CIRCUIT_COUNTERS and $NML$LINE_COUNTERS.
!
module NCPCTR	(
		ident = 'X03.05'
		) =
begin

!
!			  COPYRIGHT (c) 1981 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 lookup and translation of NM counter type numbers
!       to text strings.
!
! ENVIRONMENT:	TOPS-10/20 User mode under NML
!
! AUTHOR: Dale C. Gunn , CREATION DATE: 22-Jul-81
!
! MODIFIED BY:
!
! VERSION	Modifier, Date
!		Explanation
!
! 3.01		L. Webber, 30-Sep-81
!		Redo table gen macros, code routines to access them.
!
!--

!
! INCLUDE FILES:
!

library 'NCPLIB';                       ! All required definitions

!
! TABLE OF CONTENTS
!

forward routine
	NCP$COUNTER_TEXT,
	GET_CEB_ADDRESS,
	SEARCH_COUNTER_TABLE;
!
! MACROS:
!
! $NML$CV_LOOKUP (parameter-entry-list) - 
!
!	Macro to expand a list of counter definitions and issue
!       preset attribute parameters to initialize the counter
!       lookup block vector structure. This structure is used to
!       determine the validity and information about any of the
!       NML defined counters for each entity.
!       'parameter_entry_list' is a sequence of doublet entries, each
!       being enclosed in parenthesis, e.g.,
!
!       (counter_definition) , (bit_map_definition_list) , ...
!
!       where 'counter_definition' is
!             (counter_number , 'counter_text' , counter_length)
!
!       and 'bit_map_definition_list' is
!
!             ((bit_position , 'bit_map_text') , ...)
!
!       The 'bit_map_definition_list' may be null.
!       

macro
     $NML$CV_LOOKUP [ENTRY_LIST,ENTRY_BITS] =
         $$NML_LOOKUP_ENTRY (%count,%remove(ENTRY_LIST),ENTRY_BITS)
     % ;

macro
     $$NML_LOOKUP_ENTRY (CNT,CTR,STR,WID,BDF) =
         [CNT,CE_NUMBER] = CTR,
         [CNT,CE_ADDRESS] = uplit (CH$ASCIZ (%remove(STR)),
                                   %if not %null(WID) %then
                                       WID
                                   %else 0 %fi,
                                   %if not %null(BDF)
                                   %then
                                        MAX($$MAX_BIT(%remove(BDF))),
                                        plit ($$COUNTER_LIST(%remove(BDF)))
                                   %else
                                        -1,
                                        0
                                   %fi )
     % ;

macro
     $$COUNTER_LIST [ENTRY_LIST] =
         $$BIT_TEXT (%remove(ENTRY_LIST)) %;

macro
     $$BIT_TEXT (BIT_POSITION,TEXT) =
	BIT_POSITION, ch$asciz(text) %;

macro
    $$MAX_BIT [entry] =
	$$MAX_BITX(%remove(entry)) %;

macro
    $$MAX_BITX (position,text) =
	position %;

macro
     $NML$CV_LOOKUP_COUNT (ENTRY_LIST) =
         %length % ;

macro                                   ! Not referenced...
     $NML$CVL_DATA_BLOCK =
         block [CVL_DATA_BLOCK_SIZE]
         field (CVL_DATA_BLOCK)
     % ;

macro
     $NML$CVB_ENTRY_VECTOR (N) =
         blockvector [N,CVB_ENTRY_SIZE]
         field (CVB_ENTRY) % ;

macro
     $NML$CVB_ENTRY_BLOCK =
         block [CVB_ENTRY_SIZE]
         field (CVB_ENTRY) % ;

!
! EQUATED SYMBOLS:
!

$field CVL_DATA_BLOCK =
    set
%if not $MCB                            ! No NCP on MCB, eliminate string text
%then
    CDB_NAME = [$pointer],              ! Pointer to counter name text
%fi
    CDB_WIDTH = [$tiny_integer]

    tes;

literal
       CVL_DATA_BLOCK_SIZE = $field_set_size ;

!
! Structure definition for an entry in the vector block for
! the counter lookup table (CVB).
!

$field CVB_ENTRY =
    set
    CE_NUMBER = [$integer],             ! Counter number
    CE_ADDRESS = [$address]             ! Address of data for this counter
    tes;

literal
       CVB_ENTRY_SIZE = $field_set_size;

!
! Structure definition for an entry in the counter lookup table (CEB)
!

$field CEB_ENTRY =
    set
    CB_TEXT =	[$pointer],		! Pointer to counter text
    CB_WIDTH =	[$integer],		! Bit width of counter
    CB_HIBIT =	[$integer],		! Bit number of most significant bit
					!   with text, or -1 if none (lowest-
					!   order bit is bit 0)
    CB_BEB =	[$address]		! Address of BEB entry for bit map,
    tes;				!   or 0 if none

literal
	CEB_ENTRY_SIZE = $field_set_size;

!
! Structure definition for an entry in the bit map lookup table (BEB)
!

$field BEB_ENTRY =
    set
    BB_BIT =	[$integer],		! Bit position
    BB_TEXT =	[$pointer]		! Pointer to text for bit
    tes;

literal
	BEB_ENTRY_SIZE = $field_set_size;

!
! OWN STORAGE:
!

literal NODE_COUNTER_LENGTH = $NML$CV_LOOKUP_COUNT($NML$NODE_COUNTERS);
own
   NODE_COUNTER_TABLE:
       $NML$CVB_ENTRY_VECTOR (NODE_COUNTER_LENGTH)
       preset ($NML$CV_LOOKUP($NML$NODE_COUNTERS))
       psect ($high$);


literal LINE_COUNTER_LENGTH = $NML$CV_LOOKUP_COUNT($NML$LINE_COUNTERS);
own
   LINE_COUNTER_TABLE:
       $NML$CVB_ENTRY_VECTOR (LINE_COUNTER_LENGTH)
       preset ($NML$CV_LOOKUP($NML$LINE_COUNTERS))
       psect ($high$);

literal CIRCUIT_COUNTER_LENGTH = $NML$CV_LOOKUP_COUNT($NML$CIRCUIT_COUNTERS);
own
   CIRCUIT_COUNTER_TABLE:
       $NML$CVB_ENTRY_VECTOR (CIRCUIT_COUNTER_LENGTH)
       preset ($NML$CV_LOOKUP($NML$CIRCUIT_COUNTERS))
       psect ($high$);

literal X25_SERVER_COUNTER_LENGTH = $NML$CV_LOOKUP_COUNT($NML$X25_SERVER_COUNTERS);
own
   X25_SERVER_COUNTER_TABLE:
       $NML$CVB_ENTRY_VECTOR (X25_SERVER_COUNTER_LENGTH)
       preset ($NML$CV_LOOKUP($NML$X25_SERVER_COUNTERS))
       psect ($high$);

literal X25_PROTOCOL_COUNTER_LENGTH = $NML$CV_LOOKUP_COUNT($NML$X25_PROTOCOL_COUNTERS);
own
   X25_PROTOCOL_COUNTER_TABLE:
       $NML$CVB_ENTRY_VECTOR (X25_PROTOCOL_COUNTER_LENGTH)
       preset ($NML$CV_LOOKUP($NML$X25_PROTOCOL_COUNTERS))
       psect ($high$);

!
! EQUATED SYMBOLS:
!

%module_name ('NCPCTR');

!
! OWN STORAGE:
!

!
! EXTERNAL REFERENCES:
!

external
        %debug_data_base;

%global_routine ('NCP$COUNTER_TEXT', ENTITY_TYPE, COUNTER_NO)  =

!++
! FUNCTIONAL DESCRIPTION:
!
! Called to get the text describing a counter.
!
! FORMAL PARAMETERS
!
!	ENTITY_TYPE	One of the following entity codes:
!
!			    ENTITY_NODE  	NODE
!			    ENTITY_LINE 	LINE
!			    ENTITY_LOGGING 	LOGGING (no counters)
!			    ENTITY_CIRCUIT 	CIRCUIT
!			    ENTITY_MODULE 	MODULE
!			    ENTITY_AREA		AREA (no counters)
!
!	COUNTER_NO	Number of counter to get the text for
!
! IMPLICIT INPUTS
!
!	NONE.
!
! ROUTINE VALUE:
!
!	Pointer to an ASCIZ text string, or 0 if no text.
!
! SIDE EFFECTS:
!
!	NONE.
!
!--

begin

local CEB: ref block field(CEB_ENTRY);

if (CEB=GET_CEB_ADDRESS(.ENTITY_TYPE,.COUNTER_NO)) eql 0 then 0

else .CEB[CB_TEXT]

end;				!End of NCP$COUNTER_TEXT
%global_routine ('NCP$BIT_TEXT', ENTITY_TYPE, COUNTER_NO, BIT_NO)  =

!++
! FUNCTIONAL DESCRIPTION:
!
! Called to get the text describing a bit in a counter's bit map.
!
! FORMAL PARAMETERS
!
!	ENTITY_TYPE	One of the following entity codes:
!				               
!			    ENTITY_NODE           NODE
!			    ENTITY_LINE 	  LINE
!			    ENTITY_LOGGING 	  LOGGING (no counters)
!			    ENTITY_CIRCUIT 	  CIRCUIT
!			    ENTITY_MODULE 	  MODULE
!			    ENTITY_AREA		  AREA (no counters)
!
!	COUNTER_NO	Number of counter to get the text for.
!
!	BIT_NO		Bit number (low-order = 0) of bit to get the text for.
!
! IMPLICIT INPUTS
!
!	NONE.
!
! ROUTINE VALUE:
!
!	Pointer to an ASCIZ text string, or 0 if no text.
!
! SIDE EFFECTS:
!
!	NONE.
!
!--

begin

local CEB: ref block field(CEB_ENTRY);
local BEB: ref blockvector [1,BEB_ENTRY_SIZE] field(BEB_ENTRY);
local MAX_BIT,MAX_ENTRY;

if (CEB=GET_CEB_ADDRESS(.ENTITY_TYPE,.COUNTER_NO)) eql 0 then 0
else begin
    BEB = .CEB[CB_BEB];			! Address bit map table
    MAX_BIT = .CEB[CB_HIBIT];		!   and high bit number
    if .BIT_NO gtru .MAX_BIT then 0	! Bit out of range - retn null pointer
    else begin
	local RET;
	MAX_ENTRY =				! Pick up PLIT
	    (.vector[.BEB,-1])/BEB_ENTRY_SIZE;	!   count field
	RET =				
	(incr I from 0 to .MAX_ENTRY-1 do	! Scan through the
	    (if .BEB[.I,BB_BIT] eql .BIT_NO	!   BEB table for
	    then  exitloop(.BEB[.I,BB_TEXT])));	!  a matching bit number
	if .RET eql -1 then 0
	else .RET
	end
    end

end;				!End of NCP$COUNTER_TEXT
%routine ('GET_CEB_ADDRESS', ENTITY_TYPE, COUNTER_NO) =

!++
! FUNCTIONAL DESCRIPTION:
!
! Given an entity type and a counter number, returns the address of
! the CEB (counter table entry) for the counter.
!
! FORMAL PARAMETERS
!
!	ENTITY_TYPE	One of the entity types given in NCP$COUNTER_TEXT.
!
!	COUNTER_NO	Counter number
!
! IMPLICIT INPUTS
!
!	NONE.
!
! ROUTINE VALUE:
!
!	Address of the CEB entry for the counter, or 0 if the counter
!	was not found.
!
! SIDE EFFECTS:
!
!	NONE.
!
!--

begin

local CVB: ref $NML$CVB_ENTRY_VECTOR (1000);
local CVB_LEN;

selectone .ENTITY_TYPE of
set

[ENTITY_NODE]:		begin
		CVB = NODE_COUNTER_TABLE;
		CVB_LEN = NODE_COUNTER_LENGTH
			end;

[ENTITY_LINE]:		begin
		CVB = LINE_COUNTER_TABLE;
		CVB_LEN = LINE_COUNTER_LENGTH
			end;

[ENTITY_CIRCUIT]:		begin
		CVB = CIRCUIT_COUNTER_TABLE;
		CVB_LEN = CIRCUIT_COUNTER_LENGTH
			end;

[ENTITY_MODULE_X25_PROTOCOL]:	begin
		CVB = X25_PROTOCOL_COUNTER_TABLE;
		CVB_LEN = X25_PROTOCOL_COUNTER_LENGTH
			end;

[ENTITY_MODULE_X25_SERVER]:	begin
		CVB = X25_SERVER_COUNTER_TABLE;
		CVB_LEN = X25_SERVER_COUNTER_LENGTH
			end;

[otherwise]:	CVB = 0;

tes;

if .CVB eql 0 then 0

else SEARCH_COUNTER_TABLE(.COUNTER_NO,.CVB,.CVB_LEN)

end;				!End of GET_CEB_ADDRESS
%routine ('SEARCH_COUNTER_TABLE', COUNTER_NO, TABLE_ADDRESS, N) =

!++
! FUNCTIONAL DESCRIPTION:
!
! Performs a binary search on a counter table.
!
! FORMAL PARAMETERS
!
!	COUNTER_NO	The counter number to be searched for.
!
!	TABLE_ADDRESS	The address of the CVB to be searched.
!
!	N		The number of entries in the table.
!
! IMPLICIT INPUTS
!
!	NONE.
!
! ROUTINE VALUE:
!
!	The CEB address for the specified counter, or 0 if the counter is
!	not found.
!
! SIDE EFFECTS:
!
!	NONE.
!
!--

begin

map                                 ! Map parameter vector as one element
       TABLE_ADDRESS: ref $NML$CVB_ENTRY_VECTOR (1);

local
         L,                             ! Left boundary
         R,                             ! Right boundary
         J,                             ! Index for search
         RTN_COD,                       ! Return code
         TEMP;

RTN_COD = 0;                       ! Set up for failure

L = 0;                             ! Initialize left (lower) bound
R = .N + 1;                        ! Initialize right (upper) bound

while (J = (.L + .R)/2; .J neq .L) ! Set center of bounds and test failure
do begin
    local
	INDEX;                     ! Index for parameter table

    INDEX = .J - 1;                ! Adjust table index for zero base

    if .COUNTER_NO eql .TABLE_ADDRESS[.INDEX,CE_NUMBER]
    then begin                     ! Entry found
	RTN_COD = .TABLE_ADDRESS[.INDEX,CE_ADDRESS];
	exitloop;
	end
    else if .COUNTER_NO lss .TABLE_ADDRESS[.INDEX,CE_NUMBER]
    then begin		           ! Entry is in lower bound
	R = .J;
	end
    else if .COUNTER_NO gtr .TABLE_ADDRESS[.INDEX,CE_NUMBER]
    then begin           	   ! Entry is in upper bound
	L = .J;
	end
    else return 0;
    end;

.RTN_COD

end;				!End of SEARCH_COUNTER_TABLE
end				!End of Module NCPCTR
eludom
! Local Modes:
! Mode:Fundamental
! Auto Save Mode:2
! Comment Column:40
! Comment Rounding:+1
! End: