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

module CRINI (	! NURD CR11 driver Initialization
		ident = 'X01010',
		language (bliss16)
		) =
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: MCB NURD CR11 Driver
!
! ABSTRACT:
!	This module contains the CR11 initialization routines.
!
! ENVIRONMENT: MCB V3.2
!
! AUTHOR: Alan D. Peckham	CREATION DATE: 7-Jul-81
!
! MODIFIED BY:
!	Alan D. Peckham, 7-Jul-81: Version 1
! 01	- New module for CR.
!--

!
! INCLUDE FILES:
!
library 'MCB:MCBLIB';
library 'MCB:XPORTX';
library 'MCB:NMXLIB';

switches list (require);
$SHOW (FIELDS) $SHOW (LITERALS)
require 'CR:CRDAT';
switches list (norequire);

!
! TABLE OF CONTENTS:
!
forward routine
    TIMPIN : MCB_DB novalue;

!
! MACROS:
!

!
! EQUATED SYMBOLS:
!

!
! OWN STORAGE:
!

!
! EXTERNAL REFERENCES:
!
external routine
    $CRINT : MCB_INTERRUPT novalue;

global routine TIMPIN

!++
! FUNCTIONAL DESCRIPTION:
!	
!
! FORMAL PARAMETERS:
!
       (DB : ref block field (D_FIELDS))
!
! IMPLICIT INPUTS:
!	None
!
! IMPLICIT OUTPUTS:
!	None
!
! ROUTINE VALUE:
!
	: MCB_DB novalue =
!
! SIDE EFFECTS:
!	None
!--

    begin
    $MCB_SET_VECTOR (.DB [D_VECTOR], $CRINT, .DB [D_PRIORITY]);
    end;
end
eludom