![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to das.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / adb / cray|
Return to das.c CVS log | Up to [Research Unix] / researchv10no / cmd / adb / cray |
1.1 root 1: /*
2: * cray disassembler
3: */
4:
5: #include "defs.h"
6: #include "space.h"
7:
8: #define FBIG 1
9: #define FPAR 2
10: #define FWRD 4
11:
12: static struct optab {
13: int op;
14: int mask;
15: int mbnz;
16: int flag;
17: char *name;
18: } optab[] = {
19: 0000000, 0177777, 0, 0, "err",
20: 0001000, 0177707, 0, 0, "%ca,%a$j\t1",
21: 0001100, 0177707, 0, 0, "%cl,%a$j\t1",
22: 0001000, 0177700, 0, 0, "%ca,%a$j\t%a$k",
23: 0001100, 0177700, 0, 0, "%cl,%a$j\t%a$k",
24: 0001200, 0177707, 0, 0, "%ci,%a$j",
25: 0001201, 0177707, 0, 0, "%mc,%a$j",
26: 0001300, 0177777, 0, 0, "%xa\t0",
27: 0001300, 0177707, 0, 0, "%xa\t%a$j",
28: 0001400, 0177777, 0, 0, "%rt\t0",
29: 0001400, 0177707, 0, 0, "%rt\t%s$j",
30: 0001401, 0177777, 0, 0, "%ip\t1",
31: 0001402, 0177777, 0, 0, "%ip\t0",
32: 0001403, 0177777, 0, 0, "%cln\t0",
33: 0001413, 0177777, 0, 0, "%cln\t1",
34: 0001423, 0177777, 0, 0, "%cln\t2",
35: 0001433, 0177777, 0, 0, "%cln\t3",
36: 0001404, 0177777, 0, 0, "%pci\t0",
37: 0001404, 0177707, 0, 0, "%pci\t%s$j",
38: 0001405, 0177777, 0, 0, "cci",
39: 0001406, 0177777, 0, 0, "eci",
40: 0001407, 0177777, 0, 0, "dci",
41: 0002000, 0177777, 0, 0, "%vl\t1",
42: 0002000, 0177770, 0, 0, "%vl\t%a$k",
43: 0002100, 0177777, 0, 0, "efi",
44: 0002200, 0177777, 0, 0, "dfi",
45: 0002300, 0177777, 0, 0, "eri",
46: 0002400, 0177777, 0, 0, "dri",
47: 0002500, 0177777, 0, 0, "dbm",
48: 0002600, 0177777, 0, 0, "ebm",
49: 0002700, 0177777, 0, 0, "cmr",
50: 0003000, 0177777, 0, 0, "%vm\t0",
51: 0003000, 0177707, 0, 0, "%vm\t%s$j",
52: 0003400, 0177700, 0, 0, "%sm$j$k\t1,ts",
53: 0003600, 0177700, 0, 0, "%sm$j$k\t0",
54: 0003700, 0177700, 0, 0, "%sm$j$k\t1",
55: 0004000, 0177777, 0, 0, "ex",
56: 0005000, 0177700, 0, 0, "j\t%b$j$k",
57: 0006000, 0177000, 0, FBIG|FPAR, "j\t$X",
58: 0007000, 0177000, 0, FBIG|FPAR, "r\t$X",
59: 0010000, 0177000, 0, FBIG|FPAR, "jaz\t$X",
60: 0011000, 0177000, 0, FBIG|FPAR, "jan\t$X",
61: 0012000, 0177000, 0, FBIG|FPAR, "jap\t$X",
62: 0013000, 0177000, 0, FBIG|FPAR, "jam\t$X",
63: 0014000, 0177000, 0, FBIG|FPAR, "jsz\t$X",
64: 0015000, 0177000, 0, FBIG|FPAR, "jsn\t$X",
65: 0016000, 0177000, 0, FBIG|FPAR, "jsp\t$X",
66: 0017000, 0177000, 0, FBIG|FPAR, "jsm\t$X",
67: 0020000, 0177000, 0, FBIG|FWRD, "%a$i\t$x",
68: 0021000, 0177000, 0, FBIG|FWRD, "%a$i\t~$x",
69: 0022000, 0177000, 0, FWRD, "%a$i\t$y",
70: 0023000, 0177077, 0, 0, "%a$i\t0",
71: 0023000, 0177007, 0, 0, "%a$i\t%s$j",
72: 0023001, 0177077, 0, 0, "%a$i\tvl",
73: 0024000, 0177000, 0, 0, "%a$i\t%b$j$k",
74: 0025000, 0177000, 0, 0, "%b$j$k\t%a$i",
75: 0026000, 0177007, 0, 0, "%a$i\t%ps$j",
76: 0026001, 0177007, 0, 0, "%a$i\t%qs$j",
77: 0026007, 0177007, 0, 0, "%a$i\t%sb$j",
78: 0027000, 0177007, 0, 0, "%a$i\t%zs$j",
79: 0027007, 0177007, 0, 0, "%zs$j\t%a$i",
80: 0030000, 0177070, 07, 0, "%a$i\t%a$k",
81: 0030000, 0177007, 070, 0, "%a$i\t%a$j+1",
82: 0030000, 0177000, 0, 0, "%a$i\t%a$j+%a$k",
83: 0031000, 0177077, 0, 0, "%a$i\t-1",
84: 0031000, 0177070, 07, 0, "%a$i\t-%a$k",
85: 0031000, 0177007, 070, 0, "%a$i\t%a$j-1",
86: 0031000, 0177000, 0, 0, "%a$i\t%a$j-%a$k",
87: 0032000, 0177070, 07, 0, "%a$i\t0*%a$k",
88: 0032000, 0177007, 070, 0, "%a$i\t%a$j*1",
89: 0032000, 0177000, 0, 0, "%a$i\t%a$j*%a$k",
90: 0033000, 0177077, 0, 0, "%a$i\t%ci",
91: 0033000, 0177007, 0, 0, "%a$i\t%ca,%a$j",
92: 0033001, 0177007, 0, 0, "%a$i\t%ce,%a$j",
93: 0034000, 0177000, 0, 0, "%b$j$k,%a$i\t,%a0",
94: 0035000, 0177000, 0, 0, ",%a0\t%b$j$k,%a$i",
95: 0036000, 0177000, 0, 0, "%t$j$k,%a$i\t,%a0",
96: 0037000, 0177000, 0, 0, ",%a0\t%t$j$k,%a$i",
97: 0040000, 0177000, 0, FBIG, "%s$i\t$x",
98: 0041000, 0177000, 0, FBIG, "%s$i\t~$x",
99: 0042000, 0177077, 0, 0, "%s$i\t-1",
100: 0042077, 0177077, 0, 0, "%s$i\t1",
101: 0042000, 0177000, 0, 0, "%s$i\t<$x",
102: 0043000, 0177077, 0, 0, "%s$i\t0",
103: 0043000, 0177000, 0, 0, "%s$i\t>$x",
104: 0044000, 0177007, 0, 0, "%s$i\t%s$j&%sb",
105: 0044000, 0177000, 0, 0, "%s$i\t%s$j&%s$k",
106: 0045000, 0177007, 0, 0, "%s$i\t%s$j&~%sb",
107: 0045000, 0177000, 0, 0, "%s$i\t%s$j&~%s$k",
108: 0046000, 0177007, 0, 0, "%s$i\t%s$j^%sb",
109: 0046000, 0177000, 0, 0, "%s$i\t%s$j^%s$k",
110: 0047000, 0177007, 0, 0, "%s$i\t%s$j^~%sb",
111: 0047000, 0177000, 0, 0, "%s$i\t%s$j^~%s$k",
112: 0050000, 0177007, 0, 0, "%s$i\t%s$j!%s$i&%sb",
113: 0050000, 0177000, 0, 0, "%s$i\t%s$j!%s$i&%s$k",
114: 0051000, 0177077, 0, 0, "%s$i\t%sb",
115: 0051000, 0177007, 070, 0, "%s$i\t%s$j|%sb",
116: 0051000, 0177070, 07, 0, "%s$i\t%s$k|0",
117: 0051000, 0177000, 0, 0, "%s$i\t%s$j|%s$k",
118: 0052000, 0177000, 0, 0, "%s0\t%s$i<<$y",
119: 0053000, 0177000, 0, 0, "%s0\t%s$i>>$z",
120: 0054000, 0177000, 0, 0, "%s$i\t%s$i<<$y",
121: 0055000, 0177000, 0, 0, "%s$i\t%s$i>>$z",
122: 0056000, 0177007, 070, 0, "%s$i\t%s$i,$s$j<<1",
123: 0056000, 0177070, 07, 0, "%s$i\t%s$i<<%a$k",
124: 0056000, 0177000, 0, 0, "%s$i\t%s$i,%s$j<<%a$k",
125: 0057000, 0177007, 070, 0, "%s$i\t%s$i,$s$j>>1",
126: 0057000, 0177070, 07, 0, "%s$i\t%s$i>>%a$k",
127: 0057000, 0177000, 0, 0, "%s$i\t%s$i,%s$j>>%a$k",
128: 0060000, 0177070, 07, 0, "%s$i\t0+%s$k",
129: 0060000, 0177007, 070, 0, "%s$i\t%s$j^%sb",
130: 0060000, 0177000, 0, 0, "%s$i\t%s$j+%s$k",
131: 0061000, 0177070, 0, 0, "%s$i\t-%s$k",
132: 0061000, 0177000, 0, 0, "%s$i\t%s$j-%s$k",
133: 0062000, 0177070, 0, 0, "%s$i\t+%fs$k",
134: 0062000, 0177000, 0, 0, "%s$i\t%s$j+%fs$k",
135: 0063000, 0177070, 0, 0, "%s$i\t-%fs$k",
136: 0063000, 0177000, 0, 0, "%s$i\t%s$j-%fs$k",
137: 0064000, 0177000, 0, 0, "%s$i\t%s$j*%fs$k",
138: 0065000, 0177000, 0, 0, "%s$i\t%s$j*%hs$k",
139: 0066000, 0177000, 0, 0, "%s$i\t%s$j*%rs$k",
140: 0067000, 0177000, 0, 0, "%s$i\t%s$j*%is$k",
141: 0070000, 0177007, 0, 0, "%s$i\t/%hs$j",
142: 0071000, 0177070, 0, 0, "%s$i\t%a$k",
143: 0071010, 0177070, 0, 0, "%s$i\t+%a$k",
144: 0071020, 0177070, 0, 0, "%s$i\t+%fa%k",
145: 0071030, 0177077, 0, 0, "%s$i\t0.75*2**48",
146: 0071040, 0177077, 0, 0, "%s$i\t0.5",
147: 0071050, 0177077, 0, 0, "%s$i\t1.0",
148: 0071060, 0177077, 0, 0, "%s$i\t2.0",
149: 0071070, 0177077, 0, 0, "%s$i\t4.0",
150: 0072000, 0177077, 0, 0, "%s$i\t%rt",
151: 0072002, 0177077, 0, 0, "%s$i\t%sm",
152: 0072003, 0177007, 0, 0, "%s$i\t%st$j",
153: 0073000, 0177077, 0, 0, "%s$i\t%vm",
154: 0073001, 0177007, 0, 0, "%s$i\t%sr$j",
155: 0073002, 0177077, 0, 0, "%sm\t%s$i",
156: 0073003, 0177007, 0, 0, "%st$j\t%s$i",
157: 0074000, 0177000, 0, 0, "%s$i\t%t$j$k",
158: 0075000, 0177000, 0, 0, "%t$j$k\t%s$i",
159: 0076000, 0177000, 0, 0, "%s$i\t%v$j,%a$k",
160: 0077000, 0177077, 0, 0, "%v$i,1\t0",
161: 0077000, 0177070, 07, 0, "%v$i,%a$k\t0",
162: 0077000, 0177007, 070, 0, "%v$i,1\t%s$j",
163: 0077000, 0177000, 0, 0, "%v$i,%a$k\t%s$j",
164: 0100000, 0177000, 0, FBIG|FWRD, "%a$i\t$x,0",
165: 0100000, 0170000, 0, FBIG|FWRD, "%a$i\t$x,%a$h",
166: 0110000, 0177000, 0, FBIG|FWRD, "$x,0\t%a$i",
167: 0110000, 0170000, 0, FBIG|FWRD, "$x,%a$h\t%a$i",
168: 0120000, 0177000, 0, FBIG|FWRD, "%s$i\t$x,0",
169: 0120000, 0170000, 0, FBIG|FWRD, "%s$i\t$x,%a$h",
170: 0130000, 0177000, 0, FBIG|FWRD, "$x,0\t%s$i",
171: 0130000, 0170000, 0, FBIG|FWRD, "$x,%a$h\t%s$i",
172: 0140000, 0177000, 0, 0, "%v$i\t%s$j&%v$k",
173: 0141000, 0177000, 0, 0, "%v$i\t%v$j&%v$k",
174: 0142000, 0177070, 0, 0, "%v$i\t%v$k",
175: 0142000, 0177000, 0, 0, "%v$i\t%s$j|%v$k",
176: 0143000, 0177000, 0, 0, "%v$i\t%v$j|%v$k",
177: 0144000, 0177000, 0, 0, "%v$i\t%s$j^%v$k",
178: 0145000, 0177000, 0, 0, "%v$i\t%v$j^%v$k",
179: 0146000, 0177070, 0, 0, "%v$i\t#%vm&%v$k",
180: 0146000, 0177000, 0, 0, "%v$i\t%s$j!%v$k&%vm",
181: 0147000, 0177000, 0, 0, "%v$i\t%v$j!%v$k&%vm",
182: 0150000, 0177007, 0, 0, "%v$i\t%v$j<<1",
183: 0150000, 0177000, 0, 0, "%v$i\t%v$j<<%a$k",
184: 0151000, 0177007, 0, 0, "%v$i\t%v$j>>1",
185: 0151000, 0177000, 0, 0, "%v$i\t%v$j>>%a$k",
186: 0152000, 0177007, 0, 0, "%v$i\t%v$j,%v$j<<1",
187: 0152000, 0177000, 0, 0, "%v$i\t%v$j,%v$j<<%a$k",
188: 0153000, 0177007, 0, 0, "%v$i\t%v$j,%v$j>>1",
189: 0153000, 0177000, 0, 0, "%v$i\t%v$j,%v$j>>%a$k",
190: 0154000, 0177000, 0, 0, "%v$i\t%s$j+%v$k",
191: 0155000, 0177000, 0, 0, "%v$i\t%v$j+%v$k",
192: 0156000, 0177070, 0, 0, "%v$i\t-%v$k",
193: 0156000, 0177000, 0, 0, "%v$i\t%s$j-%v$k",
194: 0157000, 0177000, 0, 0, "%v$i\t%v$j-%v$k",
195: 0160000, 0177000, 0, 0, "%v$i\t%s$j*%fv$k",
196: 0161000, 0177000, 0, 0, "%v$i\t%v$j*%fv$k",
197: 0162000, 0177000, 0, 0, "%v$i\t%s$j*%hv$k",
198: 0163000, 0177000, 0, 0, "%v$i\t%v$j*%hv$k",
199: 0164000, 0177000, 0, 0, "%v$i\t%s$j*%rv$k",
200: 0165000, 0177000, 0, 0, "%v$i\t%v$j*%rv$k",
201: 0166000, 0177000, 0, 0, "%v$i\t%s$j*%iv$k",
202: 0167000, 0177000, 0, 0, "%v$i\t%v$j*%iv$k",
203: 0170000, 0177070, 0, 0, "%v$i\t+%fv$k",
204: 0170000, 0177000, 0, 0, "%v$i\t%s$j+%fv$k",
205: 0171000, 0177000, 0, 0, "%v$i\t%v$j+%fv$k",
206: 0172000, 0177070, 0, 0, "%v$i\t-%fv$k",
207: 0172000, 0177000, 0, 0, "%v$i\t%s$j-%fv$k",
208: 0173000, 0177000, 0, 0, "%v$i\t%v$j-%fv$k",
209: 0174000, 0177007, 0, 0, "%v$i\t/%hv$j",
210: 0174001, 0177007, 0, 0, "%v$i\t/%pv$j",
211: 0174002, 0177007, 0, 0, "%v$i\t/%qv$j",
212: 0175000, 0177707, 0, 0, "%vm\t%v$j,z",
213: 0175001, 0177707, 0, 0, "%vm\t%v$j,n",
214: 0175002, 0177707, 0, 0, "%vm\t%v$j,p",
215: 0175003, 0177707, 0, 0, "%vm\t%v$j,m",
216: 0176000, 0177077, 0, 0, "%v$i\t,%a0,1",
217: 0176000, 0177070, 0, 0, "%v$i\t,%a0,%a$k",
218: 0177000, 0177707, 0, 0, ",%a0,1\t%v$j",
219: 0177000, 0177700, 0, 0, ",%a0,%a$k\t%v$j",
220: 0, 0, 0, 0, 0, 0, NULL
221: };
222:
223: printins(isp)
224: int isp;
225: {
226: register WORD ins;
227: register struct optab *op;
228: register char *p;
229: int oh, oi, oj, ok, om;
230: WORD val, xval;
231: static char oct[] = "01234567";
232:
233: ins = stow(sget(dot, isp));
234: ins &= 0177777; /* hack */
235: for (op = optab; op->name; op++) {
236: if ((ins & op->mask) != op->op)
237: continue;
238: if (op->mbnz == 0
239: || (ins & op->mbnz) != 0)
240: break;
241: }
242: dotinc = 2;
243: if (op->name == NULL) {
244: printf("gok\t%R", ins);
245: return;
246: }
247: om = 0;
248: if (op->flag & FBIG) {
249: dotinc += 2;
250: om = stow(sget(dot+2, isp)) & 0177777;
251: }
252: oh = (ins >> 9) & 07;
253: oi = (ins >> 6) & 07;
254: oj = (ins >> 3) & 07;
255: ok = ins & 07;
256: for (p = op->name; *p; p++) {
257: if (*p != '$') {
258: printc(*p);
259: continue;
260: }
261: switch (*++p) {
262: case 0:
263: --p;
264: break;
265:
266: case 'h':
267: printc(oct[oh]);
268: break;
269:
270: case 'i':
271: printc(oct[oi]);
272: break;
273:
274: case 'j':
275: printc(oct[oj]);
276: break;
277:
278: case 'k':
279: printc(oct[ok]);
280: break;
281:
282: case 'y': /* jk */
283: val = ok|(oj<<3);
284: if (op->flag & FPAR) {
285: printf("p.");
286: val *= 2;
287: }
288: if (op->flag & FWRD) {
289: printf("w.");
290: val *= 8;
291: }
292: psymoff(val, (op->flag & FPAR) ? INSTSP : DATASP, "");
293: break;
294:
295: case 'z': /* jk, special case for >> */
296: val = 0100 - (ok|(oj<<3));
297: psymoff(val, DATASP, "");
298: break;
299:
300: case 'x': /* jkm */
301: val = om|(ok<<16)|(oj<<19);
302: if (op->flag & FPAR) {
303: printf("p.");
304: val *= 2;
305: }
306: if (op->flag & FWRD) {
307: printf("w.");
308: val *= 8;
309: }
310: psymoff(val, (op->flag & FPAR) ? INSTSP : DATASP, "");
311: break;
312:
313: case 'X': /* ijkm */
314: val = om|(ok<<16)|(oj<<19)|(oi<<22);
315: if (op->flag & FPAR) {
316: printf("p.");
317: val *= 2;
318: }
319: if (op->flag & FWRD) {
320: printf("w.");
321: val *= 8;
322: }
323: psymoff(val, (op->flag & FPAR) ? INSTSP : DATASP, "");
324: break;
325: }
326: }
327: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.