1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859 |
- #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 /* exactly (!) space used for locals in GETT */
- #define LLC ldc /* for loading bit patterns */
- #else
- #define PUTTVARSPACE 212
- #define GETTVARSPACE 432
- #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
|