|
|
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.