|
|
1.1 ! root 1: /* ! 2: * Definitions used in assembly-language programs. ! 3: */ ! 4: ! 5: #include "../h/config.h" ! 6: ! 7: #ifdef VAX ! 8: #define STDSV 0x0e00 ! 9: #define Mask .word ! 10: #define F_NQUAL 0x80000000 ! 11: #define F_VAR 0x40000000 ! 12: #define F_TVAR 0x20000000 ! 13: #define F_PTR 0x10000000 ! 14: #define TYPEMASK 63 ! 15: #define MAXSTRING 257 ! 16: #define T_INTEGER 1 ! 17: #define T_LONGINT 1 ! 18: #define T_REAL 3 ! 19: #define T_CSET 4 ! 20: #define T_FILE 5 ! 21: #define T_PROC 6 ! 22: #define T_LIST 7 ! 23: #define T_TABLE 8 ! 24: #define T_RECORD 9 ! 25: #define T_TELEM 10 ! 26: #define T_LELEM 11 ! 27: #define T_TVSUBS 12 ! 28: #define T_TVTBL 14 ! 29: #define T_TVPOS 15 ! 30: #define T_TVRAND 16 ! 31: #define T_TVTRACE 17 ! 32: #define T_ESTACK 18 ! 33: #define T_EBLOCK 19 ! 34: #ifdef SETS ! 35: #define T_SET 20 ! 36: #define T_SELEM 21 ! 37: #endif SETS ! 38: ! 39: #define Global(x) .globl x ! 40: #define DummyFcn(x) .globl x; x: halt ! 41: #define DummyData(x) .globl x; x: .long 0 ! 42: #define DummyRef(x) .long x ! 43: #define gfp r10 ! 44: #define efp r11 ! 45: #define ipc r9 ! 46: #endif VAX ! 47: ! 48: #ifdef PORT ! 49: #define F_NQUAL ! 50: #define F_VAR ! 51: #define F_TVAR ! 52: #define F_PTR ! 53: ! 54: #define TYPEMASK ! 55: #define MAXSTRING ! 56: ! 57: #define T_INTEGER ! 58: #define T_LONGINT ! 59: #define T_REAL ! 60: #define T_CSET ! 61: #define T_FILE ! 62: #define T_PROC ! 63: #define T_LIST ! 64: #define T_TABLE ! 65: #define T_RECORD ! 66: #define T_TELEM ! 67: #define T_LELEM ! 68: #define T_TVSUBS ! 69: #define T_TVTBL ! 70: #define T_TVPOS ! 71: #define T_TVRAND ! 72: #define T_TVTRACE ! 73: #define T_ESTACK ! 74: #define T_EBLOCK ! 75: #ifdef SETS ! 76: #define T_SET ! 77: #define T_SELEM ! 78: #endif SETS ! 79: ! 80: #define gfp ! 81: #define efp ! 82: #define ipc ! 83: #define Global(x) ! 84: #define DummyFcn(x) ! 85: #define DummyData(x) ! 86: #define DummyRef(x) ! 87: ! 88: #endif PORT ! 89: ! 90: #ifdef PDP11 ! 91: #define F_NQUAL 0100000 ! 92: #define F_VAR 0040000 ! 93: #define F_TVAR 0020000 ! 94: #define F_PTR 0010000 ! 95: ! 96: #define TYPEMASK 63. ! 97: #define MAXSTRING 257. ! 98: ! 99: #define T_INTEGER 1. ! 100: #define T_LONGINT 2. ! 101: #define T_REAL 3. ! 102: #define T_CSET 4. ! 103: #define T_FILE 5. ! 104: #define T_PROC 6. ! 105: #define T_LIST 7. ! 106: #define T_TABLE 8. ! 107: #define T_RECORD 9. ! 108: #define T_TELEM 10. ! 109: #define T_LELEM 11. ! 110: #define T_TVSUBS 12. ! 111: #define T_TVTBL 14. ! 112: #define T_TVPOS 15. ! 113: #define T_TVRAND 16. ! 114: #define T_TVTRACE 17. ! 115: #define T_ESTACK 18. ! 116: #define T_EBLOCK 19. ! 117: #ifdef SETS ! 118: #define T_SET 20. ! 119: #define T_SELEM 21. ! 120: #endif SETS ! 121: ! 122: #define Global(x) .globl x ! 123: #define DummyFcn(x) .globl x; x: 0 ! 124: #define DummyData(x) .globl x; x: 0 ! 125: #define DummyRef(x) .globl x; x ! 126: #endif PDP11 ! 127: ! 128: #define OFFSETMASK (~(F_NQUAL|F_VAR|F_TVAR)) ! 129: ! 130: #define D_VAR F_VAR|F_NQUAL ! 131: #define D_TVAR F_VAR|F_TVAR|F_NQUAL ! 132: #define D_NULL 0 ! 133: #define D_INTEGER T_INTEGER|F_NQUAL ! 134: #define D_LONGINT T_LONGINT|F_PTR|F_NQUAL ! 135: #define D_REAL T_REAL|F_PTR|F_NQUAL ! 136: #define D_CSET T_CSET|F_PTR|F_NQUAL ! 137: #define D_FILE T_FILE|F_PTR|F_NQUAL ! 138: #define D_PROC T_PROC|F_PTR|F_NQUAL ! 139: #define D_LIST T_LIST|F_PTR|F_NQUAL ! 140: #define D_TABLE T_TABLE|F_PTR|F_NQUAL ! 141: #define D_RECORD T_RECORD|F_PTR|F_NQUAL ! 142: #define D_TELEM T_TELEM|F_PTR|F_NQUAL ! 143: #define D_LELEM T_LELEM|F_PTR|F_NQUAL ! 144: #define D_TVSUBS T_TVSUBS|D_TVAR ! 145: #define D_TVTBL T_TVTBL|D_TVAR ! 146: #define D_TVPOS T_TVPOS|D_TVAR ! 147: #define D_TVRAND T_TVRAND|D_TVAR ! 148: #define D_TVTRACE T_TVTRACE|D_TVAR ! 149: #define D_ESTACK T_ESTACK|F_PTR|F_NQUAL ! 150: #define D_EBLOCK T_EBLOCK|F_PTR|F_NQUAL ! 151: #ifdef SETS ! 152: #define D_SET T_SET|F_PTR|F_NQUAL ! 153: #define D_SELEM T_SELEM|F_PTR|F_NQUAL ! 154: #endif SETS
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.