![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to defs.s CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / contrib / icon / h|
Return to defs.s CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / icon / h |
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.