Return to kas2.c CVS log

Up to [Research Unix] / researchv10dc / cmd / kasb

Annotation of researchv10dc/cmd/kasb/kas2.c, revision 1.1

1.1     ! root        1: /* @(#)kas2.c  1.2 */
        !             2: #include <stdio.h>
        !             3: #include "kas.h"
        !             4: #include "kas.yh"
        !             5: #define OP(a,b,c)  {a,b|XTAG,c}
        !             6: #define R(a,b) {a,REG|XTAG,b}
        !             7: #define RL(a,b)        {a,REGL|XTAG,b}
        !             8: #define RH(a,b)        {a,REGH|XTAG,b}
        !             9: #define M(a,b) {a,DEBUG|XTAG,b}
        !            10: #define P(a,b) {a,PAGE|XTAG,b}
        !            11: struct symtab instab[] = {
        !            12: OP("mov", MVINS, 0),
        !            13: OP("inc", SFINS, (3<<4)),
        !            14: OP("adc", SFINS, (4<<4)),
        !            15: OP("asl", SFINS, (5<<4)),
        !            16: OP("aslc", SFINS, (6<<4)),
        !            17: OP("dec", SFINS, (7<<4)),
        !            18: OP("add", DFINS, (0<<4)),
        !            19: OP("addc", DFINS, (1<<4)),
        !            20: OP("subc", DFINS, (2<<4)),
        !            21: OP("orn", DFINS, (10<<4)),
        !            22: OP("and", DFINS, (11<<4)),
        !            23: OP("or", DFINS, (12<<4)),
        !            24: OP("xor", DFINS, (13<<4)),
        !            25: OP("sub", DFINS, (14<<4)),
        !            26: OP("addn", DFINS, (15<<4)),
        !            27: OP("jmp", JMPINS, (0<<8)|0100000),
        !            28: OP("br", BRINS, (1<<8)|0100000),
        !            29: OP("brc", BRINS, (2<<8)|0100000),
        !            30: OP("brz", BRINS, (3<<8)|0100000),
        !            31: OP("br0", BRINS, (4<<8)|0100000),
        !            32: OP("br1", BRINS, (5<<8)|0100000),
        !            33: OP("br4", BRINS, (6<<8)|0100000),
        !            34: OP("br7", BRINS, (7<<8)|0100000),
        !            35: R("r0", 0),
        !            36: R("r1", 1),
        !            37: R("r2", 2),
        !            38: R("r3", 3),
        !            39: R("r4", 4),
        !            40: R("r5", 5),
        !            41: R("r6", 6),
        !            42: R("r7", 7),
        !            43: R("r8", 8),
        !            44: R("r9", 9),
        !            45: R("r10", 10),
        !            46: R("r11", 11),
        !            47: R("r12", 12),
        !            48: R("r13", 13),
        !            49: R("r14", 14),
        !            50: R("r15", 15),
        !            51: {"mem", MEM|XTAG, 0},
        !            52: {"brg", BRG|XTAG, 0},
        !            53: {"mar", MAR|XTAG, 0},
        !            54: {"pc", PC|XTAG, 0},
        !            55: {"pcr", PCR|XTAG, 0},
        !            56: RL("idl", 0),
        !            57: RL("idh", 1),
        !            58: RL("odl", 2),
        !            59: RL("odh", 3),
        !            60: RL("ial", 4),
        !            61: RL("iah", 5),
        !            62: RL("oal", 6),
        !            63: RL("oah", 7),
        !            64: RL("lur0", 8+0),
        !            65: RL("lur1", 8+1),
        !            66: RL("lur2", 8+2),
        !            67: RL("lur3", 8+3),
        !            68: RL("lur4", 8+4),
        !            69: RL("lur5", 8+5),
        !            70: RL("lur6", 8+6),
        !            71: RL("lur7", 8+7),
        !            72: RH("csr0", 0),
        !            73: RH("csr1", 1),
        !            74: RH("csr2", 2),
        !            75: RH("csr3", 3),
        !            76: RH("csr4", 4),
        !            77: RH("csr5", 5),
        !            78: RH("csr6", 6),
        !            79: RH("csr7", 7),
        !            80: RH("npr", 8+0),
        !            81: RH("nprx", 8+1),
        !            82: P("p0",0),
        !            83: P("p1",1<<11),
        !            84: P("p2",2<<11),
        !            85: P("p3",3<<11),
        !            86: {".", XTEXT, 0},
        !            87: {".text", SEG|XTAG, XTEXT},
        !            88: {".data", SEG|XTAG, XDATA},
        !            89: {".org", ORG|XTAG, 0},
        !            90: {".byte", DATA|XTAG, 1},
        !            91: {".word", DATA|XTAG, 2},
        !            92: M(".load", DLOAD),
        !            93: M(".dump", DDUMP),
        !            94: M(".step", DSTEP),
        !            95: M(".run", DRUN),
        !            96: M(".reset", DRESET),
        !            97: M(".wcsr", DWCSR),
        !            98: M(".clear", DCLEAR),
        !            99: M(".stop", DSTOP),
        !           100: M(".regs", DREGS),
        !           101: 0,
        !           102: };
        !           103: 
        !           104: struct symtab  symtab[NSYM];
        !           105: struct symtab  *hshtab[NHASH];
        !           106: struct symtab  loclab[10];
        !           107: struct symtab  *dot;
        !           108: int    tsize;
        !           109: int    dsize;
        !           110: int    anyerrs;
        !           111: int    textsv, datasv;
        !           112: char   dbmode;
        !           113: char   *outfile, *dbfile, *infile;
        !           114: int    dbfd;
        !           115: int    dbtab[3];
        !           116: char   dbstr[50], instr[50];
        !           117: short  ispace[NKMCI], reloc[NKMCI];
        !           118: char   dspace[NKMCD];
        !           119: struct ir ir;

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.