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