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

!  CNCUSR.REQ  --  Macros for use of Control_C processing.

!
!		   COPYRIGHT (C) 1982 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:  CMS Library Processor
!
! Abstract:
!
!	This file contains macros used for enabling and disabling the Control
!       C inturrupts.
!
! Environment:  Transportable
!
! Author:  Jim Sugerman		Creation Date:  14 December, 1979
!
!--

! This file assumes that the declaration
!
!      REQUIRE 'JSYS:'
!
! has already appeared in the program.
!

%if
   %bliss(bliss32)
%then
    EXTERNAL ROUTINE
	cli_disab_ctl_y,
	cli_enabl_ctl_y;


    MACRO

	!+
	!  This macro enables the Control C interrupt system.
	!-

	enable_ctl_y = cli_enabl_ctl_y() %,

	!+
	!  This macro disables the Control C interrupt system.
	!-

	disable_ctl_y = cli_disab_ctl_y() %;

%fi

%if
   %bliss(bliss36)
%then
    LITERAL
	M_CtrlC_Chn = %o'200000000000';

    MACRO

	!+
	!  This macro enables the Control-C interrupt system by activating
	!  channel 1, it is assumed that .ticcc has been assigned to the
	!  channel elsewhere.
	!-

	enable_ctl_y =  aic($fhslf, M_CtrlC_Chn) %,

	!+
	!  This macro disables the Control-C interrupt system by deactivating
	!  channel 1.  Ctrl-Cs are completly ignored while the channel is
        !  deactivated.
	!-

	disable_ctl_y = dic($fhslf, M_CtrlC_Chn) %;

%fi