![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to opset.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 42BSD / old / sdb|
Return to opset.c CVS log | Up to [CSRG BSD Unix] / 42BSD / old / sdb |
1.1 root 1: #ifndef lint
2: static char sccsid[] = "@(#)opset.c 4.2 10/27/82";
3: #endif lint
4: /*
5: * UNIX debugger
6: * Instruction printing routines.
7: * MACHINE DEPENDENT
8: */
9:
10: #ifdef ADB
11: #include "defs.h"
12: #endif ADB
13: #ifdef SDB
14: #include "head.h"
15: #endif SDB
16:
17: L_INT dot;
18: INT dotinc;
19: L_INT insoutvar[36];
20: #ifdef ADB
21: L_INT var[36];
22: #endif ADB
23:
24: #undef INSTTAB
25: #include "instrs.h"
26:
27: STRING regname[];
28: STRING fltimm[];
29: POS type, space, incp;
30: /*
31: * Definitions for registers and for operand classes
32: */
33: char *insregname(); /* how to print a register */
34:
35: #define R_PC 0xF
36:
37: #define OC_IMM0 0x0
38: #define OC_IMM1 0x1
39: #define OC_IMM2 0x2
40: #define OC_IMM3 0x3
41: #define OC_INDEX 0x4
42: #define OC_REG 0x5
43: #define OC_DREG 0x6
44: #define OC_ADREG 0x7
45: #define OC_AIREG 0x8
46: #define OC_DAIREG 0x9
47:
48: #define OC_BDISP 0xA
49: #define OC_DBDISP 0xB
50: #define OC_WDISP 0xC
51: #define OC_DWDISP 0xD
52: #define OC_LDISP 0xE
53: #define OC_DLDISP 0xF
54:
55: #define OC_SHIFT 4
56: #define OC_CONS(oc,reg) (((oc & 0xF) << OC_SHIFT) | (reg & 0xF))
57: #define OC_AMEXT(x) (((x) >> OC_SHIFT) & 0xF)
58: #define OC_REGEXT(x) ((x) & 0xF)
59:
60: /*
61: * Definitions for large numbers
62: */
63: #include "asnumber.h"
64: typedef struct as_number *numberp;
65: numberp snarf();
66: numberp snarfreloc();
67: /*
68: * Definitions for special instructions
69: */
70: #define CASEB 0x8F
71: #define CASEW 0xAF
72: #define CASEL 0xCF
73: /*
74: * Definitions for converting TYP's into numbers, booleans, etc.
75: * These are shared with the assembler.
76: */
77: extern int ty_NORELOC[];
78: extern int ty_float[];
79: extern int ty_nbyte[];
80: extern int ty_nlg[];
81: extern char *ty_string[];
82:
83: short ioptab[3][256]; /* two level index by opcode into insttab */
84:
85: int mapescbyte(byte)
86: u_char byte;
87: {
88: switch(byte){
89: default: return(0);
90: case ESCD: return(1);
91: case ESCF: return(2);
92: }
93: }
94:
95: mkioptab()
96: {
97: REG struct insttab *p;
98: int mapchar;
99:
100: for(p = insttab; p->iname; p++){
101: mapchar = mapescbyte(p->eopcode);
102: if (ioptab[mapchar][p->popcode])
103: continue;
104: ioptab[mapchar][p->popcode] = p - insttab;
105: }
106: }
107:
108: u_char snarfuchar();
109: /*
110: * Global variables for communicating with the minions and printins
111: */
112: static int idsp;
113: static short argno; /* which argument one is working on */
114: static char insoutfmt[2]; /* how to format the relocated symbols */
115: #ifdef SDB
116: static struct proct *procp;
117: #endif SDB
118:
119: static savevar(val)
120: long val;
121: {
122: var[argno] = val;
123: insoutvar[argno] = val;
124: }
125:
126: printins(fmt, Idsp, ins)
127: char fmt;
128: #ifndef vax
129: u_char ins;
130: #else
131: u_char ins;
132: #endif
133: int Idsp;
134: {
135: u_char mode; /* mode */
136: u_char ins2;
137: char *indexreg; /* print of which register indexes */
138: char *indexed; /* we indexed */
139: char *operandout();
140: REG u_char *ap;
141: REG struct insttab *ip;
142: u_char optype;
143: int mapchar;
144:
145: idsp = Idsp;
146: type = DSYM;
147: space = idsp;
148: #ifdef SDB
149: procp = adrtoprocp(dot);
150: if (procp->paddr == dot){
151: printf("0x%04.4x", ins);
152: incp = 2;
153: goto ret;
154: }
155: #endif SDB
156:
157: #ifdef ADB
158: insoutfmt[0] = 0;
159: #endif ADB
160: #ifdef SDB
161: insoutfmt[0] = fmt;
162: #endif SDB
163:
164: incp = 1;
165: if ((mapchar = mapescbyte(ins)) != 0){
166: ins2 = snarfuchar();
167: if (ioptab[mapchar][ins2] == 0){
168: /*
169: * Oops; not a defined instruction;
170: * back over this escape byte.
171: */
172: incp -= 1;
173: mapchar = 0;
174: } else {
175: ins = ins2;
176: }
177: }
178: if (ioptab[mapchar][ins] == 0){
179: printf("<undefined operator byte>: %x", ins);
180: goto ret;
181: }
182: ip = &insttab[ioptab[mapchar][ins]];
183: printf("%s\t", ip->iname);
184:
185: for (ap = ip->argtype, argno = 0; argno < ip->nargs; argno++, ap++) {
186: savevar(0x80000000); /* an illegal symbol */
187: optype = *ap;
188: if (argno != 0)
189: printc(',');
190: indexreg = 0;
191: indexed = 0;
192: do{
193: if (A_ACCEXT(optype) & ACCB){
194: switch(A_TYPEXT(optype)){
195: case TYPB:
196: mode = OC_CONS(OC_BDISP, R_PC);
197: break;
198: case TYPW:
199: mode = OC_CONS(OC_WDISP, R_PC);
200: break;
201: }
202: } else {
203: mode = snarfuchar();
204: }
205: indexreg = operandout(mode, optype);
206: if (indexed)
207: printf("[%s]", indexed);
208: indexed = indexreg;
209: } while(indexed);
210: }
211: if (mapchar == 0){
212: switch(ins){
213: case CASEB:
214: case CASEW:
215: case CASEL:
216: casebody(insoutvar[1], insoutvar[2]);
217: break;
218: default:
219: break;
220: }
221: }
222: ret: ;
223:
224: #ifdef SDB
225: oincr = incp;
226: #endif SDB
227: #ifdef ADB
228: dotinc = incp;
229: #endif ADB
230: }
231:
232: casebody(base, limit)
233: long base;
234: long limit;
235: {
236: int i;
237: POS baseincp;
238: POS advincp;
239: struct as_number *valuep;
240: #define OSIZE (sizeof(short))
241: argno = 0;
242: baseincp = incp;
243: for (i = 0; i <= limit; i++) {
244: printc(EOR);
245: #ifdef SDB
246: printf(" %d: ", i + base);
247: #endif SDB
248: #ifdef ADB
249: printf(" %R: ", i + base);
250: #endif ADB
251: valuep = snarfreloc(OSIZE, 0);
252: advincp = incp;
253: incp = baseincp;
254: dispaddress(valuep, OC_CONS(OC_WDISP, R_PC));
255: incp = advincp;
256: }
257: }
258:
259: /*
260: * magic values to mung an offset to a register into
261: * something that psymoff can understand.. all magic
262: */
263: /* 0 1 2 3 4 */
264: static long magic_masks[5] = {0, 0x80, 0x8000, 0, 0};
265: static long magic_compl[5] = {0, 0x100, 0x10000,0, 0};
266: /*
267: * Snarf up some bytes, and put in the magic relocation flags
268: */
269: numberp snarfreloc(nbytes)
270: int nbytes;
271: {
272: numberp back;
273: back = snarf(nbytes);
274: if (back->num_ulong[0] & magic_masks[nbytes])
275: back->num_ulong[0] -= magic_compl[nbytes];
276: return(back);
277: }
278: /*
279: * The following code is NOT portable from the PDP 11 to the VAX
280: * because of the byte ordering problem.
281: */
282: numberp snarf(nbytes)
283: int nbytes;
284: {
285: REG int i;
286:
287: static struct as_number backnumber;
288: static struct as_number znumber; /* init'ed to 0 */
289:
290: backnumber = znumber;
291: for (i = 0; i < nbytes; i++)
292: backnumber.num_uchar[i] = snarfuchar();
293: return(&backnumber);
294: }
295: /*
296: * Read one single character, and advance the dot
297: */
298: u_char snarfuchar()
299: {
300: u_char back;
301: /*
302: * assert: bchkget and inkdot don't have side effects
303: */
304: back = (u_char)bchkget(inkdot(incp), idsp);
305: incp += 1;
306: return(back);
307: }
308: /*
309: * normal operand; return non zero pointer to register
310: * name if this is an index instruction.
311: */
312: char *operandout(mode, optype)
313: u_char mode;
314: u_char optype;
315: {
316: char *r;
317: int regnumber;
318: int nbytes;
319:
320: regnumber = OC_REGEXT(mode);
321: r = insregname(regnumber);
322: switch (OC_AMEXT(mode)){
323: case OC_IMM0:
324: case OC_IMM1:
325: case OC_IMM2:
326: case OC_IMM3:
327: shortliteral(mode, optype);
328: return(0);
329: case OC_INDEX:
330: return(r); /* will be printed later */
331: case OC_REG:
332: printf("%s", r);
333: return(0);
334: case OC_DREG:
335: printf("(%s)", r);
336: return(0);
337: case OC_ADREG:
338: printf("-(%s)", r);
339: return(0);
340: case OC_DAIREG:
341: printc('*');
342: case OC_AIREG:
343: if (regnumber == R_PC){
344: pcimmediate(mode, optype);
345: } else {
346: printf("(%s)+", r);
347: }
348: return(0);
349: case OC_DBDISP:
350: printc('*');
351: case OC_BDISP:
352: nbytes = 1;
353: break;
354: case OC_DWDISP:
355: printc('*');
356: case OC_WDISP:
357: nbytes = 2;
358: break;
359: case OC_DLDISP:
360: printc('*');
361: case OC_LDISP:
362: nbytes = 4;
363: break;
364: }
365: dispaddress(snarfreloc(nbytes), mode);
366: return(0);
367: }
368:
369: dispaddress(valuep, mode)
370: numberp valuep;
371: u_char mode;
372: {
373: int regnumber = OC_REGEXT(mode);
374:
375: switch(OC_AMEXT(mode)){
376: case OC_BDISP:
377: case OC_DBDISP:
378: case OC_WDISP:
379: case OC_DWDISP:
380: case OC_LDISP:
381: case OC_DLDISP:
382: if (regnumber == R_PC){
383: /* PC offset addressing */
384: valuep->num_ulong[0] += inkdot(incp);
385: }
386: }
387: #ifdef ADB
388: psymoff(valuep->num_ulong[0], type, &insoutfmt[0]);
389: if (regnumber != R_PC){ /* } */
390: #endif ADB
391: #ifdef SDB
392: if(psymoff(valuep->num_ulong[0], regnumber, &insoutfmt[0])
393: && (regnumber != R_PC)){
394: #endif SDB
395: printf("(%s)", insregname(regnumber));
396: }
397: savevar((long)valuep->num_ulong[0]);
398: }
399: /*
400: * get a register name
401: */
402: char *insregname(regnumber)
403: int regnumber;
404: {
405: char *r;
406: r = regname[regnumber];
407: #ifdef SDB
408: if ( (insoutfmt[0] == 'i')
409: && (regnumber >= 6)
410: && (regnumber <= 11)
411: && (adrtoregvar(regnumber, procp) != -1)) {
412: r = sl_name;
413: }
414: #endif SDB
415: return(r);
416: }
417: /*
418: * print out a short literal
419: */
420: shortliteral(mode, optype)
421: u_char mode;
422: u_char optype;
423: {
424: savevar((long)mode);
425: switch(A_TYPEXT(optype)){
426: case TYPF:
427: case TYPD:
428: case TYPG:
429: case TYPH:
430: printf("$%s", fltimm[mode]);
431: break;
432: default:
433: #ifdef ADB
434: printf("$%r", mode);
435: #endif ADB
436: #ifdef SDB
437: printf("$%d", mode);
438: #endif SDB
439: break;
440: }
441: }
442:
443: pcimmediate(mode, optype)
444: u_char mode;
445: u_char optype;
446: {
447: int nbytes;
448:
449: printc('$');
450: if (mode == OC_DAIREG){ /* PC absolute, always 4 bytes*/
451: dispaddress(snarfreloc(4), mode);
452: return;
453: }
454: nbytes = ty_nbyte[A_TYPEXT(optype)];
455: if (! ty_NORELOC[A_TYPEXT(optype)]){
456: dispaddress(snarfreloc(nbytes), mode);
457: return;
458: }
459: bignumprint(nbytes, optype);
460: }
461:
462: bignumprint(nbytes, optype)
463: int nbytes;
464: u_char optype;
465: {
466: numberp valuep;
467: int leading_zero = 1;
468: REG int bindex;
469: REG int nindex;
470: REG int ch;
471:
472: valuep = snarf(nbytes);
473: switch(A_TYPEXT(optype)){
474: case TYPF:
475: printf("0f%f", valuep->num_num.numFf_float.Ff_value);
476: break;
477: case TYPD:
478: printf("0d%f", valuep->num_num.numFd_float.Fd_value);
479: break;
480: case TYPG:
481: printf("0g::"); goto qprint;
482: case TYPH:
483: printf("0h::"); goto qprint;
484: case TYPQ:
485: case TYPO:
486: qprint:
487: for (bindex = nbytes - 1; bindex >= 0; --bindex){
488: for (nindex = 4; nindex >= 0; nindex -= 4){
489: ch = (valuep->num_uchar[bindex] >> nindex);
490: ch &= 0x0F;
491: if ( ! (leading_zero &= (ch == 0) ) ){
492: if (ch <= 0x09)
493: printc(ch + '0');
494: else
495: printc(ch - 0x0A + 'a');
496: }
497: }
498: }
499: break;
500: }
501: }
502: #ifdef SDB
503:
504: L_INT inkdot(incr)
505: int incr;
506: {
507: L_INT newdot;
508:
509: newdot = dot + incr;
510: return(newdot);
511: }
512:
513: printc(c)
514: char c;
515: {
516: printf("%c", c);
517: }
518:
519: psymoff(v, regnumber, fmt)
520: L_INT v;
521: char *fmt;
522: {
523: struct proct *procp;
524: REG int diff;
525: if (fmt[0] == 'i') {
526: switch(regnumber){
527: case 12: /* parameter */
528: if ((diff = adrtoparam((ADDR) v, adrtoprocp(dot)))
529: != -1) {
530: printf("%s", sl_name);
531: prdiff(diff);
532: return(0);
533: }
534: break;
535: case 13: /* local */
536: if ((diff = adrtolocal((ADDR) -v, adrtoprocp(dot))
537: ) != -1) {
538: printf("%s", sl_name);
539: prdiff(diff);
540: return(0);
541: }
542: break;
543: default:
544: break;
545: }
546: if (v < firstdata) {
547: if ((procp = adrtoprocp((ADDR) v)) != badproc) {
548: prlnoff(procp, v);
549: return(0);
550: }
551: } else {
552: if ((diff = adrtoext((ADDR) v)) != -1) {
553: printf("%s", sl_name);
554: prdiff(diff);
555: return(0);
556: }
557: }
558: }
559: prhex(v);
560: return(1);
561: }
562:
563: prdiff(diff)
564: {
565: if (diff) {
566: printf("+");
567: prhex(diff);
568: }
569: }
570:
571: #endif SDB
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.