ORCA-C/ORCACDefs/intmath.h

105 lines
4.9 KiB
C
Raw Normal View History

/********************************************
*
* Integer Math Tool Set
*
* Copyright Apple Computer, Inc.1986-90
* All Rights Reserved
*
* Copyright 1992, Byte Works, Inc.
*
********************************************/
#ifndef __TYPES__
#include <TYPES.h>
#endif
#ifndef __INTMATH__
#define __INTMATH__
/* Error Codes */
#define imBadInptParam 0x0B01 /* bad input parameter */
#define imIllegalChar 0x0B02 /* Illegal character in string */
#define imOverflow 0x0B03 /* integer or long integer overflow */
#define imStrOverflow 0x0B04 /* string overflow */
/* Limit Values */
#define minLongint 0x80000000 /* minimum negative signed long integer */
#define minFrac 0x80000000 /* pinned value for negative Frac overflow */
#define minFixed 0x80000000 /* pinned value for negative Fixed overflow */
#define minInt 0x8000 /* Minimum negative signed integer */
#define maxInt 0x7FFF /* Maximum positive signed integer */
#define maxUInt 0xFFFF /* Maximum positive unsigned integer */
#define maxLongint 0x7FFFFFFF /* maximum positive signed Longint */
#define maxFrac 0x7FFFFFFF /* pinned value for positive Frac overflow */
#define maxFixed 0x7FFFFFFF /* pinned value for positive Fixed overflow */
#define maxULong 0xFFFFFFFFL /* maximum unsigned Long */
struct IntDivRec {
Word quotient; /* quotient from SDivide */
Word remainder; /* remainder from SDivide */
};
typedef struct IntDivRec IntDivRec, *IntDivRecPtr;
struct LongDivRec {
Longint quotient; /* Quotient from LongDiv */
Longint remainder; /* remainder from LongDiv */
};
typedef struct LongDivRec LongDivRec, *LongDivRecPtr;
typedef LongDivRec DivRec, *DivRecPtr; /* for backward compatability */
struct LongMulRec {
Longint lsResult; /* low 2 words of product */
Longint msResult; /* High 2 words of product */
};
typedef struct LongMulRec LongMulRec, *LongMulRecPtr;
struct WordDivRec {
Word quotient; /* Quotient from UDivide */
Word remainder; /* remainder from UDivide */
};
typedef struct WordDivRec WordDivRec, *WordDivRecPtr;
extern pascal void IMBootInit(void) inline(0x010B,dispatcher);
extern pascal void IMStartUp(void) inline(0x020B,dispatcher);
extern pascal void IMShutDown(void) inline(0x030B,dispatcher);
extern pascal Word IMVersion(void) inline(0x040B,dispatcher);
extern pascal void IMReset(void) inline(0x050B,dispatcher);
extern pascal Boolean IMStatus(void) inline(0x060B,dispatcher);
extern pascal Integer Dec2Int(Pointer, Word, Boolean) inline(0x280B,dispatcher);
extern pascal Longint Dec2Long(Pointer, Word, Boolean) inline(0x290B,dispatcher);
extern pascal Frac Fix2Frac(Fixed) inline(0x1C0B,dispatcher);
extern pascal Longint Fix2Long(Fixed) inline(0x1B0B,dispatcher);
extern pascal void Fix2X(Fixed, ExtendedPtr) inline(0x1E0B,dispatcher);
extern pascal Fixed FixATan2(Longint, Longint) inline(0x170B,dispatcher);
extern pascal Fixed FixDiv(Longint, Longint) inline(0x110B,dispatcher);
extern pascal Fixed FixMul(Fixed, Fixed) inline(0x0F0B,dispatcher);
extern pascal Fixed FixRatio(Integer, Integer) inline(0x0E0B,dispatcher);
extern pascal Integer FixRound(Fixed) inline(0x130B,dispatcher);
extern pascal Fixed Frac2Fix(Frac) inline(0x1D0B,dispatcher);
extern pascal void Frac2X(Frac, ExtendedPtr) inline(0x1F0B,dispatcher);
extern pascal Frac FracCos(Fixed) inline(0x150B,dispatcher);
extern pascal Frac FracDiv(Longint, Longint) inline(0x120B,dispatcher);
extern pascal Frac FracMul(Frac, Frac) inline(0x100B,dispatcher);
extern pascal Frac FracSin(Fixed) inline(0x160B,dispatcher);
extern pascal Frac FracSqrt(Frac) inline(0x140B,dispatcher);
extern pascal Word Hex2Int(Pointer, Word) inline(0x240B,dispatcher);
extern pascal LongWord Hex2Long(Pointer, Word) inline(0x250B,dispatcher);
extern pascal LongWord HexIt(Word) inline(0x2A0B,dispatcher);
extern pascal Word HiWord(LongWord) inline(0x180B,dispatcher);
extern pascal void Int2Dec(Integer, Pointer, Word, Boolean) inline(0x260B,dispatcher);
extern pascal void Int2Hex(Word, Pointer, Word) inline(0x220B,dispatcher);
extern pascal void Long2Dec(Longint, Pointer, Word, Boolean) inline(0x270B,dispatcher);
extern pascal Fixed Long2Fix(Longint) inline(0x1A0B,dispatcher);
extern pascal void Long2Hex(LongWord, Pointer, Word) inline(0x230B,dispatcher);
extern LongDivRec LongDivide(Longint, Longint);
extern LongMulRec LongMul(Longint, Longint);
extern pascal Word LoWord(LongWord) inline(0x190B,dispatcher);
extern pascal Longint Multiply(Integer, Integer) inline(0x090B,dispatcher);
extern IntDivRec SDivide(Integer, Integer);
extern WordDivRec UDivide(Word, Word);
extern pascal Fixed X2Fix(ExtendedPtr) inline(0x200B,dispatcher);
extern pascal Frac X2Frac(ExtendedPtr) inline(0x210B,dispatcher);
#endif