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

		DSK:RLDD.REQ[4,31]               31-Aug-79 14:25


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