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

%Title 'Symbol definitions specific to Tops-20     Version 1.00'

!++
! Copyright (c) 1984, 1985 by
! 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.
!
! Edit History
!
!--

!
! Symbol definitions specific to Tops-20.
!
	literal TICCZ = 26;
	literal CTRLZ_TRAP = TICCZ;

!
! Define Condition Handling Vectors

MACRO	CHF$L_SIGARGLST	= 0,0,36,0 %; 	!ADDRESS OF SIGNAL ARGUMENTS 
MACRO   CHF$L_ENAARGLST = 1,0,36,0 %;   !ADDRESS OF ENABLE ARGUMENTS
MACRO	CHF$L_MCHARGLST	= 2,0,36,0 %;	!ADDRESS OF MECHANISM ARGUMENTS

    					!SIGNAL ARRAY 
MACRO	CHF$L_SIG_ARGS	= 0,0,36,0 %;	!NUMBER OF SIGNAL ARGUMENTS 
MACRO	CHF$L_SIG_NAME	= 1,0,36,0 %;	!SIGNAL NAME 
MACRO	CHF$L_SIG_ARG1	= 2,0,36,0 %;	!FIRST SIGNAL SPECIFIC ARGUMENT 
  
					!MECHANISM ARRAY 
MACRO	CHF$L_MCH_ARGS	= 0,0,36,0 %;	!NUMBER OF MECHANISM ARGUMENTS 
MACRO	CHF$L_MCH_SAVR0	= 1,0,36,0 %;	!SAVED REGISTER R0 
  
!
! Define replacements for VMS status codes
!
LITERAL
    SS$_CONTINUE = 1,
    SS$_RESIGNAL = 0;

EXTERNAL LITERAL
    SS$UNW;

MACRO
    SS$_UNWIND	= SS$UNW %,
    SS$_NORMAL	= SS$_NRMAL %;

literal
    STS$K_WARNING = 0,    ! Warning
    STS$K_SUCCESS = 1,    ! Successful Completion
    STS$K_ERROR   = 2,    ! Error
    STS$K_INFO    = 3,    ! Information
    STS$K_SEVERE  = 4;    ! Severe Error

keywordmacro
    STS$VALUE (
        SEVERITY = STS$K_SEVERE,    ! Default is severe error
        CODE,                       ! No default
        FAC_SP = 1^17,              ! Default is facility specific
        FAC_NO = 0,                 ! Arbitrary default
        CUST_DEF = 1^31) =          ! Default is user definition
            (SEVERITY and $O'7') or
            (CODE and %O'37777')^3 or
            (if FAC_SP neq 0
                then 1^17
                else 0) or
            (FAC_NO and %O'37777')^18 or
            (if CUST_DEF neq 0
                then 1^31
                else 0)
        %;

macro STS$MATCH (A,B) =
          begin
          local
             QQQQA: condition_value,
             QQQQB: condition_value;
          QQQQA = (A);
          QQQQB = (B);
          if not (.QQQQA[STS$V_FAC_SP] or .QQQQB[STS$V_FAC_SP])
          then
              .QQQQA[STS$V_CODE] eql .QQQQB[STS_V_CODE]
          else
              .QQQQA[STS$V_CODE] eql .QQQQB[V_COND_ID]
          end %;

!
! End of TOPS20.R36
!