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

!                    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.


!
! DEFINE THE STORAGE BLOCK USED TO DESCRIBE AN RLD OPERATOR
!  WITH ONE OR TWO OPERANDS.
!
! DEFINE CODES FOR OPERAND TYPES
!

LITERAL
    RLD_OPND_CON = 1,				!CONSTANT OPERAND
    RLD_OPND_PSECT = 2,				!PSECT BASE
    RLD_OPND_GLOBAL = 3,			!GLOBAL VALUE
    RLD_OPND_BSTK = 4,				!BEGINNING OF STACK
    RLD_OPND_HLA = 5,				!HIGHEST ALLOCATED ADDRESS
    RLD_OPND_OMIT = 6,				!NO OPERAND
    RLD_OPND_OPR = 7,				!OPERAND IS ANOTHER RLDD BLOCK
    MAX_RLD_OPND = 7;				!HIGHEST VALUE

!
! DEFINE CODES FOR OPERATORS
!

LITERAL
    RLD_OP_ADD = 1,				!OPERAND 1 + OPERAND 2
    RLD_OP_SUB = 2,				!OPERAND 1 - OPERAND 2
    RLD_OP_MUL = 3,				!OPERAND 1 * OPERAND 2
    RLD_OP_DIV = 4,				!OPERAND 1 / OPERAND 2
    RLD_OP_AND = 5,				!OPERAND 1 & OPERAND 2
    RLD_OP_OR = 6,				!OPERAND 1 .OR. OPERAND 2
    RLD_OP_COM = 7,				!ONE'S COMPLEMENT OF OPERAND 1
    MAX_RLD_OP = 7;				!HIGHEST VALUE

!
SBLOCK (RLDD, 8)				!RLD DATA
HEADER (RLDD)					!
ABLOCK (RLDD_OPER, %NBITSU (MAX_RLD_OP), 2)	!OPERATOR CODE
ABLOCK (RLDD_OP1T, %NBITSU (MAX_RLD_OPND), 0)	!OPERAND 1 TYPE
ABLOCK (RLDD_OP2T, %NBITSU (MAX_RLD_OPND), 0)	!OPERAND 2 TYPE
ABLOCK (RLDD_OPND1, %BPVAL, 2)			!POINTER, VALUE OR WHATEVER
ABLOCK (RLDD_OPND2, %BPVAL, 2)			!POINTER, VALUE OR WHATEVER
EBLOCK (RLDD)					!
!