![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to as29.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / PDP11 / 11as|
Return to as29.c CVS log | Up to [Research Unix] / researchv10no / cmd / PDP11 / 11as |
1.1 ! root 1: /* a9 -- pdp-11 assembler pass 1 */ ! 2: #include "as2.h" ! 3: ! 4: /* key to types ! 5: /* ! 6: /* T_UNDEF 0 undefined ! 7: /* T_ABS 1 absolute ! 8: /* T_TEXT 2 text ! 9: /* T_DATA 3 data ! 10: /* T_BSS 4 bss ! 11: /* T_FLOPD 5 flop freg,dst (movfo, = stcfd) ! 12: /* T_BRANCH 6 branch ! 13: /* T_JSR 7 jsr ! 14: /* T_RTS 010 rts ! 15: /* T_SYS 011 sys ! 16: /* T_MOVF 012 movf (=ldf,stf) ! 17: /* T_DOUBLE 013 double operand (mov) ! 18: /* T_FLOPF 014 flop fsrc,freg (addf) ! 19: /* T_SINGLE 015 single operand (clr) ! 20: /* T_BYTE 016 .byte ! 21: /* T_STRING 017 string (.ascii, "<") ! 22: /* T_EVEN 020 .even ! 23: /* T_IF 021 .if ! 24: /* T_ENDIF 022 .endif ! 25: /* T_GLOBL 023 .globl ! 26: /* T_REG 024 register ! 27: /* T__TEXT 025 .text ! 28: /* T__DATA 026 .data ! 29: /* T__BSS 027 .bss ! 30: /* T_MUL 030 mul,div, etc ! 31: /* T_SOB 031 sob ! 32: /* T_COMM 032 .comm ! 33: /* T_ESTTXT 033 estimated text ! 34: /* T_ESTDAT 034 estimated data ! 35: /* T_JBR 035 jbr ! 36: /* T_JXX 036 jeq, jne, etc ! 37: */ ! 38: ! 39: struct expr symtab[] = { ! 40: ! 41: {T_TEXT, 000000}, /* . */ ! 42: {T_ABS, 000000}, /* .. */ ! 43: ! 44: {T_REG, 000000}, /* r0 */ ! 45: {T_REG, 000001}, /* r1 */ ! 46: {T_REG, 000002}, /* r2 */ ! 47: {T_REG, 000003}, /* r3 */ ! 48: {T_REG, 000004}, /* r4 */ ! 49: {T_REG, 000005}, /* r5 */ ! 50: {T_REG, 000006}, /* sp */ ! 51: {T_REG, 000007}, /* pc */ ! 52: ! 53: #if eae!=0 ! 54: {T_ABS, 0177570}, /* csw */ ! 55: {T_ABS, 0177300}, /* div */ ! 56: {T_ABS, 0177302}, /* ac */ ! 57: {T_ABS, 0177304}, /* mq */ ! 58: {T_ABS, 0177306}, /* mul */ ! 59: {T_ABS, 0177310}, /* sc */ ! 60: {T_ABS, 0177311}, /* sr */ ! 61: {T_ABS, 0177312}, /* nor */ ! 62: {T_ABS, 0177314}, /* lsh */ ! 63: {T_ABS, 0177316}, /* ash */ ! 64: #endif ! 65: ! 66: {T_DOUBLE, 0010000}, /* mov */ ! 67: {T_DOUBLE, 0110000}, /* movb */ ! 68: {T_DOUBLE, 0020000}, /* cmp */ ! 69: {T_DOUBLE, 0120000}, /* cmpb */ ! 70: {T_DOUBLE, 0030000}, /* bit */ ! 71: {T_DOUBLE, 0130000}, /* bitb */ ! 72: {T_DOUBLE, 0040000}, /* bic */ ! 73: {T_DOUBLE, 0140000}, /* bicb */ ! 74: {T_DOUBLE, 0050000}, /* bis */ ! 75: {T_DOUBLE, 0150000}, /* bisb */ ! 76: {T_DOUBLE, 0060000}, /* add */ ! 77: {T_DOUBLE, 0160000}, /* sub */ ! 78: ! 79: {T_BRANCH, 0000400}, /* br */ ! 80: {T_BRANCH, 0001000}, /* bne */ ! 81: {T_BRANCH, 0001400}, /* beq */ ! 82: {T_BRANCH, 0002000}, /* bge */ ! 83: {T_BRANCH, 0002400}, /* blt */ ! 84: {T_BRANCH, 0003000}, /* bgt */ ! 85: {T_BRANCH, 0003400}, /* ble */ ! 86: {T_BRANCH, 0100000}, /* bpl */ ! 87: {T_BRANCH, 0100400}, /* bmi */ ! 88: {T_BRANCH, 0101000}, /* bhi */ ! 89: {T_BRANCH, 0101400}, /* blos */ ! 90: {T_BRANCH, 0102000}, /* bvc */ ! 91: {T_BRANCH, 0102400}, /* bvs */ ! 92: {T_BRANCH, 0103000}, /* bhis */ ! 93: {T_BRANCH, 0103000}, /* bec */ ! 94: {T_BRANCH, 0103000}, /* bcc */ ! 95: {T_BRANCH, 0103400}, /* blo */ ! 96: {T_BRANCH, 0103400}, /* bcs */ ! 97: {T_BRANCH, 0103400}, /* bes */ ! 98: ! 99: {T_JBR, 0000400}, /* jbr */ ! 100: {T_JXX, 0001000}, /* jne */ ! 101: {T_JXX, 0001400}, /* jeq */ ! 102: {T_JXX, 0002000}, /* jge */ ! 103: {T_JXX, 0002400}, /* jlt */ ! 104: {T_JXX, 0003000}, /* jgt */ ! 105: {T_JXX, 0003400}, /* jle */ ! 106: {T_JXX, 0100000}, /* jpl */ ! 107: {T_JXX, 0100400}, /* jmi */ ! 108: {T_JXX, 0101000}, /* jhi */ ! 109: {T_JXX, 0101400}, /* jlos */ ! 110: {T_JXX, 0102000}, /* jvc */ ! 111: {T_JXX, 0102400}, /* jvs */ ! 112: {T_JXX, 0103000}, /* jhis */ ! 113: {T_JXX, 0103000}, /* jec */ ! 114: {T_JXX, 0103000}, /* jcc */ ! 115: {T_JXX, 0103400}, /* jlo */ ! 116: {T_JXX, 0103400}, /* jcs */ ! 117: {T_JXX, 0103400}, /* jes */ ! 118: ! 119: {T_SINGLE, 0005000}, /* clr */ ! 120: {T_SINGLE, 0105000}, /* clrb */ ! 121: {T_SINGLE, 0005100}, /* com */ ! 122: {T_SINGLE, 0105100}, /* comb */ ! 123: {T_SINGLE, 0005200}, /* inc */ ! 124: {T_SINGLE, 0105200}, /* incb */ ! 125: {T_SINGLE, 0005300}, /* dec */ ! 126: {T_SINGLE, 0105300}, /* decb */ ! 127: {T_SINGLE, 0005400}, /* neg */ ! 128: {T_SINGLE, 0105400}, /* negb */ ! 129: {T_SINGLE, 0005500}, /* adc */ ! 130: {T_SINGLE, 0105500}, /* adcb */ ! 131: {T_SINGLE, 0005600}, /* sbc */ ! 132: {T_SINGLE, 0105600}, /* sbcb */ ! 133: {T_SINGLE, 0005700}, /* tst */ ! 134: {T_SINGLE, 0105700}, /* tstb */ ! 135: {T_SINGLE, 0006000}, /* ror */ ! 136: {T_SINGLE, 0106000}, /* rorb */ ! 137: {T_SINGLE, 0006100}, /* rol */ ! 138: {T_SINGLE, 0106100}, /* rolb */ ! 139: {T_SINGLE, 0006200}, /* asr */ ! 140: {T_SINGLE, 0106200}, /* asrb */ ! 141: {T_SINGLE, 0006300}, /* asl */ ! 142: {T_SINGLE, 0106300}, /* aslb */ ! 143: {T_SINGLE, 0000100}, /* jmp */ ! 144: {T_SINGLE, 0000300}, /* swab */ ! 145: ! 146: {T_JSR, 0004000}, /* jsr */ ! 147: ! 148: {T_RTS, 000200}, /* rts */ ! 149: ! 150: {T_SYS, 0104400}, /* sys */ ! 151: ! 152: {T_ABS, 0000241}, /* clc */ ! 153: {T_ABS, 0000242}, /* clv */ ! 154: {T_ABS, 0000244}, /* clz */ ! 155: {T_ABS, 0000250}, /* cln */ ! 156: {T_ABS, 0000261}, /* sec */ ! 157: {T_ABS, 0000262}, /* sev */ ! 158: {T_ABS, 0000264}, /* sez */ ! 159: {T_ABS, 0000270}, /* sen */ ! 160: ! 161: {T_ABS, 0170000}, /* cfcc */ ! 162: {T_ABS, 0170001}, /* setf */ ! 163: {T_ABS, 0170011}, /* setd */ ! 164: {T_ABS, 0170002}, /* seti */ ! 165: {T_ABS, 0170012}, /* setl */ ! 166: {T_SINGLE, 0170400}, /* clrf */ ! 167: {T_SINGLE, 0170700}, /* negf */ ! 168: {T_SINGLE, 0170600}, /* absf */ ! 169: {T_SINGLE, 0170500}, /* tstf */ ! 170: {T_MOVF, 0172400}, /* movf */ ! 171: {T_FLOPF, 0177000}, /* movif */ ! 172: {T_FLOPD, 0175400}, /* movfi */ ! 173: {T_FLOPF, 0177400}, /* movof */ ! 174: {T_FLOPD, 0176000}, /* movfo */ ! 175: {T_FLOPF, 0172000}, /* addf */ ! 176: {T_FLOPF, 0173000}, /* subf */ ! 177: {T_FLOPF, 0171000}, /* mulf */ ! 178: {T_FLOPF, 0174400}, /* divf */ ! 179: {T_FLOPF, 0173400}, /* cmpf */ ! 180: {T_FLOPF, 0171400}, /* modf */ ! 181: {T_FLOPF, 0176400}, /* movie */ ! 182: {T_FLOPD, 0175000}, /* movei */ ! 183: {T_SINGLE, 0170100}, /* ldfps */ ! 184: {T_SINGLE, 0170200}, /* stfps */ ! 185: {T_REG, 000000}, /* fr0 */ ! 186: {T_REG, 000001}, /* fr1 */ ! 187: {T_REG, 000002}, /* fr2 */ ! 188: {T_REG, 000003}, /* fr3 */ ! 189: {T_REG, 000004}, /* fr4 */ ! 190: {T_REG, 000005}, /* fr5 */ ! 191: ! 192: {T_MUL, 072000}, /* als */ ! 193: {T_MUL, 073000}, /* alsc */ ! 194: {T_MUL, 070000}, /* mpy */ ! 195: #if (eae-1)!=0 ! 196: {T_MUL, 070000}, /* mul */ ! 197: {T_MUL, 071000}, /* div */ ! 198: {T_MUL, 072000}, /* ash */ ! 199: {T_MUL, 073000}, /* ashc */ ! 200: #endif ! 201: {T_MUL, 071000}, /* dvd */ ! 202: {T_JSR, 074000}, /* xor */ ! 203: {T_SINGLE, 006700}, /* sxt */ ! 204: {T_SYS, 006400}, /* mark */ ! 205: {T_SOB, 077000}, /* sob */ ! 206: ! 207: {T_BYTE, 000000}, /* .byte */ ! 208: {T_EVEN, 000000}, /* .even */ ! 209: {T_IF, 000000}, /* .if */ ! 210: {T_ENDIF, 000000}, /* .endif */ ! 211: {T_GLOBL, 000000}, /* .globl */ ! 212: {T__TEXT, 000000}, /* .text */ ! 213: {T__DATA, 000000}, /* .data */ ! 214: {T__BSS, 000000}, /* .bss */ ! 215: {T_COMM, 000000}, /* .comm */ ! 216: ! 217: }; ! 218: ! 219: short *dotrel = &symtab[0].typ; ! 220: short *dot = &symtab[0].val; ! 221: short *dotdot = &symtab[1].val;
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.