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

%TITLE 'Signaling Macros and VMS symbol definitions       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
!
!--

!
! This module contains macro and symbol definitions used by all SNT modules.
!

!
! Miscellaneous symbols
!
LITERAL
    FALSE = 0,
    TRUE  = 1;
!
! Structure declarations used for system defined structures to
! save typing.
!
STRUCTURE
    BBLOCKVECTOR [I, O, P, S, E; N, BS] =
	[N*BS]
	((BBLOCKVECTOR+I*BS)+O)<P,S,E>;
!
! Macros to signal error messages
!
MACRO
    $SNT_INFO [] =
	SIGNAL (%REMAINING)
	%,
    $SNT_WARN [] =
	SIGNAL (%REMAINING)
	%,
    $SNT_ERROR [] =
	SIGNAL (%REMAINING)
	%,
    $SNT_FATAL [] =
	SIGNAL_STOP (%REMAINING)
	%;
!
! Macro to create constant string descriptor
!
MACRO
    $ASCID [] =
	(UPLIT (%CHARCOUNT(%STRING(%REMAINING)),
		UPLIT (%STRING(%REMAINING))))
    %;

MACRO
    $ASCIC [] =
	UPLIT (%ASCIC %STRING (%REMAINING))
    %;

FIELD
    DSC$FIELDSET =
	SET
	DSC$W_LENGTH	= [0,0,16,0],	! Length of data
	DSC$B_DTYPE	= [1,0,8,0],	! Data type
	DSC$B_CLASS	= [2,0,8,0],	! Descriptor class
	DSC$A_POINTER	= [3,0,16,0]	! Pointer to data
	TES;


STRUCTURE

    !
    ! Descriptor structure.
    !
    DSC$STRUCTURE[O, P, S, E; N=8] =
	[N]
	(DSC$STRUCTURE+O)<P, S, E> ;
	
MACRO

    !
    ! Macro for compatibility with RSX style descriptors, note that a call to
    ! the macro may be followed by [allocation] if this descriptor is longer
    ! than the default case.
    !
    $DSC = DSC$STRUCTURE FIELD( DSC$FIELDSET ) %,
    DSC	 = $DSC %;

!
! End of SNTUTL.r36
!