|
|
1.1 root 1: #include "asm.h"
2:
3: int line;
4: int inbss;
5: jmp_buf env;
6: int page;
7: int lop;
8: int pass;
9: int lflag;
10: int xflag;
11: int gflag;
12: int eflag;
13: address laddr;
14: address fuzz;
15: int lmode;
16: char *ep;
17: char eb[NERR];
18: char *ip;
19: char ib[NINPUT];
20: char *cp;
21: char cb[NCODE];
22: char tb[NTIT];
23:
24: struct tsymp tsymp[10];
25: struct sym *symhash[NHASH];
26: int nloc;
27: int nerr;
28: struct loc *loc[NLSEG];
29: struct loc *defloc;
30:
31: FILE *ofp;
32: FILE *efp;
33: #if SEG
34: #if INTEL
35: char *ofn = "sl.hex";
36: #else
37: char *ofn = "sl.out";
38: #endif
39: #else
40: #if INTEL
41: char *ofn = "l.hex";
42: #else
43: char *ofn = "l.out";
44: #endif
45: #endif
46: char *ifn = NULL;
47: FILE *sfp = NULL;
48:
49: char ctype[128] = {
50: ILL, ILL, ILL, ILL, ILL, ILL, ILL, ILL,
51: ILL, SPACE, ILL, ILL, SPACE, ILL, ILL, ILL,
52: ILL, ILL, ILL, ILL, ILL, ILL, ILL, ILL,
53: ILL, ILL, ILL, ILL, ILL, ILL, ILL, ILL,
54: SPACE, ETC, ETC, ETC, ETC, ETC, ETC, ETC,
55: ETC, ETC, BINOP, BINOP, ETC, BINOP, LETTER, ETC,
56: DIGIT, DIGIT, DIGIT, DIGIT, DIGIT, DIGIT, DIGIT, DIGIT,
57: DIGIT, DIGIT, ETC, ETC, ETC, ETC, ETC, ETC,
58: ETC, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER,
59: LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER,
60: LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER,
61: LETTER, LETTER, LETTER, ETC, ETC, ETC, BINOP, LETTER,
62: ETC, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER,
63: LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER,
64: LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER, LETTER,
65: LETTER, LETTER, LETTER, ETC, BINOP, ETC, ETC, ETC
66: };
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.