Trailing-Edge
-
PDP-10 Archives
-
BB-X117B-SB_1986
-
10,7/tkb36/rldd.req
There are 2 other files named rldd.req in the archive. Click here to see a list.
!COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1980,1981,1982,1986. ALL RIGHTS RESERVED.
!
!
!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) !
!