Text preview for : InlineDefs.mesa_Oct77.pdf part of xerox InlineDefs.mesa Oct77 xerox mesa 3.0_1977 listing InlineDefs.mesa_Oct77.pdf
Back to : InlineDefs.mesa_Oct77.pdf | Home
inlinedefs.mESA 24-0CT-77 16:30:60 Pago 1
-- InlineDefs.Mesa Edited by Sandman on June 15. 1977 9:01 AM
DIRECTORY
Mopcodes: FROM "mopcodes":
DEFINITIONS FROM Mopcodes:
InlineDefs: DEFINITIONS =
BEGIN byte codes for inline
COPY: MACHINE CODE [from: POINTER, nwords: CARDINAL. to: POINTER] =
INLINE[zBL T]:
DIVMOD: MACHINE CODE [num. den: CARDINAL] RETURNS [quotient. remainder: CARDINAL]
INLINE[zDIV] :
PUSH: MACIlINE CODE RETURNS [WORD] =
INLINE[zPUSH] :
LDIVMOD: MACHINE CODE [numlow: WORD. numhigh: CARDJNAL, den: CARDINAL]
RETURNS [quotient. remainder: CARDINAL] = INLINE[zLDIV]:
LongCARDINAL: TYPE = MACHINE DEPENDENT RECORD [
lowbits: CARDINAL.
highbits: CARDINAL]:
LongMult: MACHINE CODE [CARDINAL, CARDINAL] RETURNS [product: LongCARDINAL]
INLINE [zMUL. zPUSH]:
LongDiv: MACHINE CODE [num: LongCARDINAL, den: CARDINAL] RETURNS [CARDINAL]
INLINE[zLDIV, zPOP]:
LongOivMod: MACHINE CODE [nurn: LongCARDINAL. den: CARDINAL]
RETURNS [quotient. remainder: CARDINAL] = INLINE[zLDIV]:
BitOp: TYPE = MACHINE CODE [WORD. WORD] RETURNS [WORD]:
BITAND: BitOp = INLINE[zAND]:
BITOR: BitOp = T~LINE[zOR]:
BITXOR: BitOp = INLINE[zXOR]:
BITNOT: MACHINE CODE [WORD] RETURNS [WORD] = INLINE[zLIN1, zXOR]:
BITSHIFT: MACIIINE CODE [value: WORD, count: INTEGER] RETURNS [WORD]
INLINE[zSHIFT] :
USC: PROCEDURE [al. a2: WORD] RETURNS [INTEGER]:
END ...