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: MACH |