|
|
1.1 root 1: /* a8 -- pdp-11 assembler pass 1 */
2: #include "as1.h"
3:
4: #define C_1 C_SQUO
5: #define C_2 C_DQUO
6: #define C_A C_STR
7: #define C_G C_GARB
8: #define C_I C_SKIP
9: #define C_P C_ESC
10: #define C_T C_TERM
11: #define C_V C_IOR
12: #define C_W C_WHITE
13: #define C_Z C_EOL
14:
15: char chartab[] = {
16: C_G,C_G,C_G,C_G,C_Z,C_G,C_G,C_G,
17: C_G,C_W,C_Z,C_G,C_G,C_W,C_G,C_G,
18: C_G,C_G,C_G,C_G,C_G,C_G,C_G,C_G,
19: C_G,C_G,C_G,C_G,C_G,C_G,C_G,C_G,
20: C_W,C_T,C_2,C_G,C_T,C_T,C_T,C_1,
21: C_T,C_T,C_T,C_T,C_T,C_T,'.',C_I,
22: '0','1','2','3','4','5','6','7',
23: '8','9',C_T,C_Z,C_A,C_T,C_G,C_G,
24: C_G,'A','B','C','D','E','F','G',
25: 'H','I','J','K','L','M','N','O',
26: 'P','Q','R','S','T','U','V','W',
27: 'X','Y','Z',C_T,C_P,C_T,C_T,'_',
28: C_G,'a','b','c','d','e','f','g',
29: 'h','i','j','k','l','m','n','o',
30: 'p','q','r','s','t','u','v','w',
31: 'x','y','z',C_G,C_V,C_G,'~',C_G,
32: };
33:
34: struct symtab *symend;
35: struct symtab *usymtab;
36:
37: int curfb[10] = {-1,-1,-1,-1,-1,-1,-1,-1,-1,-1};
38: char curfbr[10];
39: struct nxtfb nxtfb;
40:
41: short savdot[3];
42: struct symtab *hshtab[HSHSIZ];
43: FILE *pof;
44: FILE *fbfil;
45: int errflg;
46: char ch;
47: char symbol[NCPS];
48: int line;
49: int ifflg;
50: int nargs;
51: char **curarg;
52: int numval;
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.