/* EPC Imp to C Translation Release 4 Version Apr 95 */


#include "imptoc.h"

 
#define YES 1
#define NO 0
 
/**/
/* THESE CODE ARE ARBITARY BUT THE TOP DECIMAL DIGIT GIVES THE NO OF BYTES   */
/* IN THE UNIT OF ADDRESSABILITY. BYTE ADDRESSED HOSTS BEING 1N ( also 0N) AND*/
/* 16 BIT WORD ADDRESSED HOSTS BEING 2N ETC                                  */
#define PENTIUM 4	/* PENTIUM chip Unix stack and completely swopped          */
#define MIPS 5	/* Imp on MIPS (all variants)                                 */
#define RS6 6	/* imp on IBM rs6000                                           */
#define M88K 7	/* Imp on all forms of 88k                                    */
/* also serves for Sparc sinc there is a common b-e                          */
#define VAX 8	/* Imp on Vax using F & G formats                              */
#define UNISYS 9	/* Imp on UnisSys. Unix stack unswopped Vax reals           */
#define EMAS 10	/* emas on 2900 (unsigned shorts)                            */
#define IBM 11	/* emas on 24 bit ibm hardware                                */
#define IBMXA 12	/* emas of XA 31 bit hardware                               */
#define WWC 13	/* WWc (Natsemi chip) completely swopped                      */
#define AMDAHL 14	/* Emas on Amdahls guess at Xa Minor differences fron IBM) */
#define PERQ3 15	/* ICL packaged 68k chip Unix stack but not swopped         */
#define GOULD 16	/* Gould unswopped forward stack. Needs 4&8 byte alined     */
#define VNS 17	/* Unix on 2900 unsigned shorts params as                     */
/* 2900. Long int available but not in Ecode                                 */
#define EAMD 18	/* Amdahl via the Emachine                                   */
#define DRS 19	/* Intel chip Unix stack and mostly swopped                   */
#define PERQ 20	/* Pos perq now obselete. Fully swopped forward stack        */
#define PNX 21	/* ICL's perq2 Unix stack byte swopped (unsigned shorts)      */
#define ACCENT 22	/* Perq 1 under accent. obsolete now                       */
/* ACCENT DIFFERS FROM PERQ ONLY IN                                          */
/* ASSEMBLES SEQUENCES&SYNTAX                                                */
/* AND GENERATOR                                                             */
#define ORN 23
#define UNSIGNEDSHORTS (((1<<emas)|(1<<pnx))|(1<<vns))
#define LINTAVAIL (((((1<<IBM)|(1<<IBMXA))|(1<<amdahl))|(1<<EMAS))|(1<<GOULD))
#define LLREALAVAIL ((((1<<IBM)|(1<<IBMXA))|(1<<amdahl))|(1<<EMAS))
#define EMACHINE (((((((((((((1<<DRS)|(1<<PENTIUM))|(1<<WWC))|(1<<Vax))|(1<<GOULD))|(1<<PERQ3))|(1<<VNS))|(1<<EAMD))|(1<<ORN))|(1<<UniSys))|(1<<m88k))|(1<<rs6))|(1<<MIPS))
#define IBMFPFORMAT (((((((1<<ibm)|(1<<ibmxa))|(1<<amdahl))|(1<<emas))|(1<<gould))|(1<<vns))|(1<<EAMD))
#define VAXFPFORMAT ((1<<Vax)|(1<<UniSys))
#define IEEEFPFORMAT (((((((((1<<WWC)|(1<<PERQ3))|(1<<DRS))|(1<<PENTIUM))|(1<<PERQ))|(1<<accent))|(1<<m88k))|(1<<rs6))|(1<<MIPS))
#define BYTESWOPPED ((((((((1<<PERQ)|(1<<ACCENT))|(1<<WWC))|(1<<Vax))|(1<<DRS))|(1<<PENTIUM))|(1<<PNX))|(1<<ORN))
#define HALFSWOPPED (((((((1<<PERQ)|(1<<ACCENT))|(1<<WWC))|(1<<Vax))|(1<<DRS))|(1<<PENTIUM))|(1<<ORN))
#define WORDSWOPPED (((((((1<<PERQ)|(1<<ACCENT))|(1<<WWC))|(1<<Vax))|(1<<DRS))|(1<<PENTIUM))|(1<<ORN))
#define RISKMC ((((1<<M88K)|(1<<rs6))|(1<<MIPS))|(1<<PENTIUM))
/**/
/* end of file hostcodes                                                     */
/**/

/* end of automatic translation */