xerox InlineDefs.mesa Oct77 free download

File name InlineDefs.mesa_Oct77.pdf

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