|
|
1.1 root 1: #define TYLENG TYLONG /* char string length field */
2:
3: #define TYINT TYLONG
4: #define SZADDR 4
5: #define SZSHORT 2
6: #define SZINT 4
7:
8: #define SZLONG 4
9: #define SZLENG SZLONG
10:
11: #define SZDREAL 8
12:
13: /* Alignment restrictions */
14:
15: #define ALIADDR SZADDR
16: #define ALISHORT SZSHORT
17: #define ALILONG 4
18: #define ALIDOUBLE 8
19: #define ALIINT ALILONG
20: #define ALILENG ALILONG
21:
22: #define BLANKCOMMON "_BLNK__" /* Name for the unnamed
23: common block; this is unique
24: because of underscores */
25:
26: #define LABELFMT "%s:\n"
27:
28: #define MAXREGVAR 4
29: #define TYIREG TYLONG
30: #define MSKIREG (M(TYSHORT)|M(TYLONG)) /* allowed types of DO indicies
31: which can be put in registers */
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.