CONSTINTEGER YES=1,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
CONSTINTEGER PENTIUM=4;                 ! PENTIUM chip Unix stack and completely swopped
constinteger MIPS=05;                   ! Imp on MIPS (all variants)
CONSTINTEGER RS6=06;                    ! imp on IBM rs6000
CONSTINTEGER M88K=07;                   ! Imp on all forms of 88k
                                        ! also serves for Sparc sinc there is a common b-e
CONSTINTEGER VAX=08;                    ! Imp on Vax using F & G formats
CONSTINTEGER UNISYS=09;                 ! Imp on UnisSys. Unix stack unswopped Vax reals
CONSTINTEGER EMAS=10;                   ! emas on 2900 (unsigned shorts)
CONSTINTEGER IBM=11;                    ! emas on 24 bit ibm hardware
CONSTINTEGER IBMXA=12;                  ! emas of XA 31 bit hardware
CONSTINTEGER WWC=13;                    ! WWc (Natsemi chip) completely swopped
CONSTINTEGER AMDAHL=14;                 ! Emas on Amdahls guess at Xa Minor differences fron IBM)
CONSTINTEGER PERQ3=15;                  ! ICL packaged 68k chip Unix stack but not swopped
CONSTINTEGER GOULD=16;                  ! Gould unswopped forward stack. Needs 4&8 byte alined
CONSTINTEGER VNS=17;                    ! Unix on 2900 unsigned shorts params as
                                        ! 2900. Long int available but not in Ecode
CONSTINTEGER EAMD=18;                   ! Amdahl via the Emachine
CONSTINTEGER DRS=19;                    ! Intel chip Unix stack and mostly swopped
CONSTINTEGER PERQ=20;                   ! Pos perq now obselete. Fully swopped forward stack
CONSTINTEGER PNX=21;                    ! ICL's perq2 Unix stack byte swopped (unsigned shorts)
CONSTINTEGER ACCENT=22;                 ! Perq 1 under accent. obsolete now
                                        ! ACCENT DIFFERS FROM PERQ ONLY IN
                                        ! ASSEMBLES SEQUENCES&SYNTAX
                                        ! AND GENERATOR
constinteger ORN=23
CONSTINTEGER UNSIGNEDSHORTS=1<<emas!1<<pnx!1<<vns
CONSTINTEGER LINTAVAIL=1<<IBM!1<<IBMXA!1<<amdahl!1<<EMAS!1<<GOULD!1<<MIPS
CONSTINTEGER LLREALAVAIL=1<<IBM!1<<IBMXA!1<<amdahl!1<<EMAS!1<<MIPS
CONSTINTEGER 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
CONSTINTEGER IBMFPFORMAT=1<<ibm!1<<ibmxa!1<<amdahl!1<<emas!1<<gould!1<<vns!1<<EAMD
constinteger VAXFPFORMAT=1<<Vax!1<<UniSys
constinteger IEEEFPFORMAT=1<<WWC!1<<PERQ3!1<<DRS!1<<PENTIUM!1<<PERQ!1<<accent!1<<m88k!1<<rs6!1<<MIPS
CONSTINTEGER BYTESWOPPED=1<<PERQ!1<<ACCENT!1<<WWC!1<<Vax!1<<PNX!1<<ORN
CONSTINTEGER HALFSWOPPED=1<<PERQ!1<<ACCENT!1<<WWC!1<<Vax!1<<DRS!1<<PENTIUM!1<<ORN
CONSTINTEGER WORDSWOPPED=1<<PERQ!1<<ACCENT!1<<WWC!1<<Vax!1<<DRS!1<<PENTIUM!1<<ORN
CONSTINTEGER RISKMC=1<<M88K!1<<rs6!1<<MIPS
!
! end of file hostcodes
!