#define SZADDR EM_PSIZE #define SZWORD EM_WSIZE #define SZLONG 4 #define SZREAL 8 #define SZPROC SZADDR+SZADDR #if SZWORD==2 #if SZADDR==2 #define FIRSTIBOFFSET 30 /* offset from .HTOP to main's LB */ #else #define FIRSTIBOFFSET 50 #endif #else #define FIRSTIBOFFSET 52 #endif #define FSTAMPOFFSET FIRSTIBOFFSET+SZWORD /* the following four definitions are offsets to the file pointers */ #define FILEOFFSET SZWORD+SZWORD+SZADDR+SZWORD+SZWORD+SZADDR+SZADDR+SZWORD+\ SZADDR+SZADDR+SZWORD+SZWORD+SZADDR #define STINOFFSET FIRSTIBOFFSET+FILEOFFSET #define STOUTOFFSET STINOFFSET+SZADDR #define STBACKOFFSET STOUTOFFSET+SZADDR #define ENTRYOFFSET SZADDR+SZWORD #if SZWORD==2 #define PUTTVARSPACE 150 /* space, or greater used for locals in PUTT */ #define GETTVARSPACE 350 /* space, or greater used for locals in GETT */ #define LLC ldc /* for loading bit patterns */ #else #define PUTTVARSPACE 300 #define GETTVARSPACE 700 #define LLC loc #endif #define HTOP 500 /* this must agree with what the compiler produces */ #define A68STAMP 13476 /* this must agree with version in a68sdec.p */ #define PASCALSTAMP 0 /* must match what the pascal compiler puts down */ #define PUTSTAMP -1 #define GETSTAMP -2 /* this will only work if SZADDR = SWORD*2 or if SZADDR = SZWORD */ #if SZADDR == SZWORD #define LFL lol #define SFL stl #define LFE loe #define SFE ste #define LFF lof #define SFF stf #else #define LFL ldl #define SFL sdl #define LFE lde #define SFE sde #define LFF ldf #define SFF sdf #endif mes 2,SZWORD,SZADDR