![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to readcpu.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [HATARI the Atari ST Emulator] / hatari / src / cpu|
Return to readcpu.c CVS log | Up to [HATARI the Atari ST Emulator] / hatari / src / cpu |
1.1 root 1: /*
2: * UAE - The Un*x Amiga Emulator
3: *
4: * Read 68000 CPU specs from file "table68k"
5: *
6: * Copyright 1995,1996 Bernd Schmidt
7: */
8:
9: #include "sysconfig.h"
10: #include "sysdeps.h"
11: #include <ctype.h>
12: #include <string.h>
13:
14: #include "readcpu.h"
15:
16: int nr_cpuop_funcs;
17:
18: struct mnemolookup lookuptab[] = {
1.1.1.3 root 19: { i_ILLG, _T("ILLEGAL"), NULL, 0 },
20: { i_OR, _T("OR"), NULL, 1 },
21: { i_CHK, _T("CHK"), NULL, 0 },
22: { i_CHK2, _T("CHK2"), NULL, 0 },
23: { i_AND, _T("AND"), NULL, 1 },
24: { i_EOR, _T("EOR"), NULL, 1 },
25: { i_ORSR, _T("ORSR"), NULL, 0 },
26: { i_ANDSR, _T("ANDSR"), NULL, 0 },
27: { i_EORSR, _T("EORSR"), NULL, 0 },
28: { i_SUB, _T("SUB"), NULL, 1 },
29: { i_SUBA, _T("SUBA"), NULL, 1 },
30: { i_SUBX, _T("SUBX"), NULL, 0 },
31: { i_SBCD, _T("SBCD"), NULL, 0 },
32: { i_ADD, _T("ADD"), NULL, 1 },
33: { i_ADDA, _T("ADDA"), NULL, 1 },
34: { i_ADDX, _T("ADDX"), NULL, 0 },
35: { i_ABCD, _T("ABCD"), NULL, 0 },
36: { i_NEG, _T("NEG"), NULL, 1 },
37: { i_NEGX, _T("NEGX"), NULL, 1 },
38: { i_NBCD, _T("NBCD"), NULL, 0 },
1.1.1.4 ! root 39: { i_CLR, _T("CLR"), NULL, 1 },
1.1.1.3 root 40: { i_NOT, _T("NOT"), NULL, 1 },
41: { i_TST, _T("TST"), NULL, 1 },
42: { i_BTST, _T("BTST"), NULL, 1 },
43: { i_BCHG, _T("BCHG"), NULL, 1 },
44: { i_BCLR, _T("BCLR"), NULL, 1 },
45: { i_BSET, _T("BSET"), NULL, 1 },
46: { i_CMP, _T("CMP"), NULL, 1 },
47: { i_CMPM, _T("CMPM"), NULL, 1 },
48: { i_CMPA, _T("CMPA"), NULL, 1 },
49: { i_MVPRM, _T("MVPRM"), NULL, 0 },
50: { i_MVPMR, _T("MVPMR"), NULL, 0 },
51: { i_MOVE, _T("MOVE"), NULL, 1 },
52: { i_MOVEA, _T("MOVEA"), NULL, 1 },
53: { i_MVSR2, _T("MVSR2"), NULL, 0 },
54: { i_MV2SR, _T("MV2SR"), NULL, 0 },
55: { i_SWAP, _T("SWAP"), NULL, 0 },
56: { i_EXG, _T("EXG"), NULL, 0 },
57: { i_EXT, _T("EXT"), NULL, 0 },
58: { i_MVMEL, _T("MVMEL"), _T("MOVEM"), 0 },
59: { i_MVMLE, _T("MVMLE"), _T("MOVEM"), 0 },
60: { i_TRAP, _T("TRAP"), NULL, 0 },
61: { i_MVR2USP, _T("MVR2USP"), NULL, 0 },
62: { i_MVUSP2R, _T("MVUSP2R"), NULL, 0 },
63: { i_NOP, _T("NOP"), NULL, 0 },
64: { i_RESET, _T("RESET"), NULL, 0 },
65: { i_RTE, _T("RTE"), NULL, 0 },
66: { i_RTD, _T("RTD"), NULL, 0 },
67: { i_LINK, _T("LINK"), NULL, 0 },
68: { i_UNLK, _T("UNLK"), NULL, 0 },
69: { i_RTS, _T("RTS"), NULL, 0 },
70: { i_STOP, _T("STOP"), NULL, 0 },
71: { i_TRAPV, _T("TRAPV"), NULL, 0 },
72: { i_RTR, _T("RTR"), NULL, 0 },
73: { i_JSR, _T("JSR"), NULL, 0 },
74: { i_JMP, _T("JMP"), NULL, 0 },
75: { i_BSR, _T("BSR"), NULL, 0 },
76: { i_Bcc, _T("Bcc"), NULL, 0 },
77: { i_LEA, _T("LEA"), NULL, 0 },
78: { i_PEA, _T("PEA"), NULL, 0 },
79: { i_DBcc, _T("DBcc"), NULL, 0 },
80: { i_Scc, _T("Scc"), NULL, 1 },
81: { i_DIVU, _T("DIVU"), NULL, 1 },
82: { i_DIVS, _T("DIVS"), NULL, 1 },
83: { i_MULU, _T("MULU"), NULL, 1 },
84: { i_MULS, _T("MULS"), NULL, 1 },
85: { i_ASR, _T("ASR"), NULL, },
86: { i_ASL, _T("ASL"), NULL, 0 },
87: { i_LSR, _T("LSR"), NULL, 0 },
88: { i_LSL, _T("LSL"), NULL, 0 },
89: { i_ROL, _T("ROL"), NULL, 0 },
90: { i_ROR, _T("ROR"), NULL, 0 },
91: { i_ROXL, _T("ROXL"), NULL, 1 },
92: { i_ROXR, _T("ROXR"), NULL, 1 },
93: { i_ASRW, _T("ASRW"), NULL, 1 },
94: { i_ASLW, _T("ASLW"), NULL, 1 },
95: { i_LSRW, _T("LSRW"), NULL, 1 },
96: { i_LSLW, _T("LSLW"), NULL, 1 },
97: { i_ROLW, _T("ROLW"), NULL, 1 },
98: { i_RORW, _T("RORW"), NULL, 1 },
99: { i_ROXLW, _T("ROXLW"), NULL, 1 },
100: { i_ROXRW, _T("ROXRW"), NULL, 1 },
101:
102: { i_MOVE2C, _T("MOVE2C"), _T("MOVEC"), 0 },
103: { i_MOVEC2, _T("MOVEC2"), _T("MOVEC"), 0 },
104: { i_CAS, _T("CAS"), NULL, 1 },
105: { i_CAS2, _T("CAS2"), NULL, 1 },
106: { i_MULL, _T("MULL"), NULL, 0 },
107: { i_DIVL, _T("DIVL"), NULL, 0 },
108: { i_BFTST, _T("BFTST"), NULL, 0 },
109: { i_BFEXTU, _T("BFEXTU"), NULL, 0 },
110: { i_BFCHG, _T("BFCHG"), NULL, 0 },
111: { i_BFEXTS, _T("BFEXTS"), NULL, 0 },
112: { i_BFCLR, _T("BFCLR"), NULL, 0 },
113: { i_BFFFO, _T("BFFFO"), NULL, 0 },
114: { i_BFSET, _T("BFSET"), NULL, 0 },
115: { i_BFINS, _T("BFINS"), NULL, 0 },
116: { i_PACK, _T("PACK"), NULL, 0 },
117: { i_UNPK, _T("UNPK"), NULL, 0 },
118: { i_TAS, _T("TAS"), NULL, 1 },
119: { i_BKPT, _T("BKPT"), NULL, 0 },
120: { i_CALLM, _T("CALLM"), NULL, 0 },
121: { i_RTM, _T("RTM"), NULL, 0 },
122: { i_TRAPcc, _T("TRAPcc"), NULL, 0 },
123: { i_MOVES, _T("MOVES"), NULL, 1 },
124: { i_FPP, _T("FPP"), NULL, 0 },
125: { i_FDBcc, _T("FDBcc"), NULL, 0 },
126: { i_FScc, _T("FScc"), NULL, 0 },
127: { i_FTRAPcc, _T("FTRAPcc"), NULL, 0 },
128: { i_FBcc, _T("FBcc"), NULL, 0 },
129: { i_FBcc, _T("FBcc"), NULL, 0 },
130: { i_FSAVE, _T("FSAVE"), NULL, 0 },
131: { i_FRESTORE, _T("FRESTORE"), NULL, 0 },
132:
133: { i_CINVL, _T("CINVL"), NULL, 0 },
134: { i_CINVP, _T("CINVP"), NULL, 0 },
135: { i_CINVA, _T("CINVA"), NULL, 0 },
136: { i_CPUSHL, _T("CPUSHL"), NULL, 0 },
137: { i_CPUSHP, _T("CPUSHP"), NULL, 0 },
138: { i_CPUSHA, _T("CPUSHA"), NULL, 0 },
139: { i_MOVE16, _T("MOVE16"), NULL, 0 },
140:
141: { i_MMUOP030, _T("MMUOP030"), NULL, 0 },
142: { i_PFLUSHN, _T("PFLUSHN"), NULL, 0 },
143: { i_PFLUSH, _T("PFLUSH"), NULL, 0 },
144: { i_PFLUSHAN, _T("PFLUSHAN"), NULL, 0 },
145: { i_PFLUSHA, _T("PFLUSHA"), NULL, 0 },
146:
147: { i_PLPAR, _T("PLPAR"), NULL, 0 },
148: { i_PLPAW, _T("PLPAW"), NULL, 0 },
149: { i_PTESTR, _T("PTESTR"), NULL, 0 },
150: { i_PTESTW, _T("PTESTW"), NULL, 0 },
1.1 root 151:
1.1.1.3 root 152: { i_LPSTOP, _T("LPSTOP"), NULL, 0 },
153: { i_ILLG, _T(""), NULL, 0 },
1.1 root 154: };
155:
156: struct instr *table68k;
157:
158: static amodes mode_from_str (const TCHAR *str)
159: {
1.1.1.2 root 160: if (_tcsncmp (str, _T("Dreg"), 4) == 0) return Dreg;
161: if (_tcsncmp (str, _T("Areg"), 4) == 0) return Areg;
162: if (_tcsncmp (str, _T("Aind"), 4) == 0) return Aind;
163: if (_tcsncmp (str, _T("Apdi"), 4) == 0) return Apdi;
164: if (_tcsncmp (str, _T("Aipi"), 4) == 0) return Aipi;
165: if (_tcsncmp (str, _T("Ad16"), 4) == 0) return Ad16;
166: if (_tcsncmp (str, _T("Ad8r"), 4) == 0) return Ad8r;
167: if (_tcsncmp (str, _T("absw"), 4) == 0) return absw;
168: if (_tcsncmp (str, _T("absl"), 4) == 0) return absl;
169: if (_tcsncmp (str, _T("PC16"), 4) == 0) return PC16;
170: if (_tcsncmp (str, _T("PC8r"), 4) == 0) return PC8r;
171: if (_tcsncmp (str, _T("Immd"), 4) == 0) return imm;
1.1 root 172: abort ();
173: return 0;
174: }
175:
176: STATIC_INLINE amodes mode_from_mr (int mode, int reg)
177: {
178: switch (mode) {
179: case 0: return Dreg;
180: case 1: return Areg;
181: case 2: return Aind;
182: case 3: return Aipi;
183: case 4: return Apdi;
184: case 5: return Ad16;
185: case 6: return Ad8r;
186: case 7:
187: switch (reg) {
188: case 0: return absw;
189: case 1: return absl;
190: case 2: return PC16;
191: case 3: return PC8r;
192: case 4: return imm;
193: case 5:
194: case 6:
195: case 7: return am_illg;
196: }
197: }
198: abort ();
199: return 0;
200: }
201:
202: static void build_insn (int insn)
203: {
204: int find = -1;
205: int variants;
206: int isjmp = 0;
207: struct instr_def id;
208: const TCHAR *opcstr;
209: int i;
210:
211: int flaglive = 0, flagdead = 0;
212:
213: id = defs68k[insn];
214:
215: /* Note: We treat anything with unknown flags as a jump. That
216: is overkill, but "the programmer" was lazy quite often, and
217: *this* programmer can't be bothered to work out what can and
218: can't trap. Usually, this will be overwritten with the gencomp
219: based information, anyway. */
220:
221: for (i = 0; i < 5; i++) {
222: switch (id.flaginfo[i].flagset){
223: case fa_unset: break;
224: case fa_isjmp: isjmp = 1; break;
225: case fa_isbranch: isjmp = 1; break;
226: case fa_zero: flagdead |= 1 << i; break;
227: case fa_one: flagdead |= 1 << i; break;
228: case fa_dontcare: flagdead |= 1 << i; break;
229: case fa_unknown: isjmp = 1; flagdead = -1; goto out1;
230: case fa_set: flagdead |= 1 << i; break;
231: }
232: }
233:
234: out1:
235: for (i = 0; i < 5; i++) {
236: switch (id.flaginfo[i].flaguse) {
237: case fu_unused: break;
238: case fu_isjmp: isjmp = 1; flaglive |= 1 << i; break;
239: case fu_maybecc: isjmp = 1; flaglive |= 1 << i; break;
240: case fu_unknown: isjmp = 1; flaglive |= 1 << i; break;
241: case fu_used: flaglive |= 1 << i; break;
242: }
243: }
244:
245: opcstr = id.opcstr;
246: for (variants = 0; variants < (1 << id.n_variable); variants++) {
247: int bitcnt[lastbit];
248: int bitval[lastbit];
249: int bitpos[lastbit];
250: int i;
251: uae_u16 opc = id.bits;
252: uae_u16 msk, vmsk;
253: int pos = 0;
254: int mnp = 0;
255: int bitno = 0;
1.1.1.2 root 256: int unsized = 1;
1.1 root 257: TCHAR mnemonic[10];
1.1.1.2 root 258: int mnemo;
1.1 root 259:
260: wordsizes sz = sz_long;
261: int srcgather = 0, dstgather = 0;
262: int usesrc = 0, usedst = 0;
263: int srctype = 0;
264: int srcpos = -1, dstpos = -1;
265:
266: amodes srcmode = am_unknown, destmode = am_unknown;
267: int srcreg = -1, destreg = -1;
268:
269: for (i = 0; i < lastbit; i++)
270: bitcnt[i] = bitval[i] = 0;
271:
272: vmsk = 1 << id.n_variable;
273:
274: for (i = 0, msk = 0x8000; i < 16; i++, msk >>= 1) {
275: if (!(msk & id.mask)) {
276: int currbit = id.bitpos[bitno++];
277: int bit_set;
278: vmsk >>= 1;
279: bit_set = variants & vmsk ? 1 : 0;
280: if (bit_set)
281: opc |= msk;
282: bitpos[currbit] = 15 - i;
283: bitcnt[currbit]++;
284: bitval[currbit] <<= 1;
285: bitval[currbit] |= bit_set;
286: }
287: }
288:
289: if (bitval[bitj] == 0) bitval[bitj] = 8;
290: /* first check whether this one does not match after all */
291: if (bitval[bitz] == 3 || bitval[bitC] == 1)
292: continue;
293: if (bitcnt[bitI] && (bitval[bitI] == 0x00 || bitval[bitI] == 0xff))
294: continue;
295:
296: /* bitI and bitC get copied to biti and bitc */
297: if (bitcnt[bitI]) {
298: bitval[biti] = bitval[bitI]; bitpos[biti] = bitpos[bitI];
299: }
300: if (bitcnt[bitC])
301: bitval[bitc] = bitval[bitC];
302:
303: pos = 0;
304: while (opcstr[pos] && !_istspace(opcstr[pos])) {
305: if (opcstr[pos] == '.') {
306: pos++;
1.1.1.2 root 307: unsized = 0;
1.1 root 308: switch (opcstr[pos]) {
309:
310: case 'B': sz = sz_byte; break;
311: case 'W': sz = sz_word; break;
312: case 'L': sz = sz_long; break;
313: case 'z':
314: switch (bitval[bitz]) {
315: case 0: sz = sz_byte; break;
316: case 1: sz = sz_word; break;
317: case 2: sz = sz_long; break;
318: default: abort();
319: }
320: break;
321: default: abort();
322: }
323: } else {
324: mnemonic[mnp] = opcstr[pos];
325: if (mnemonic[mnp] == 'f') {
326: find = -1;
327: switch (bitval[bitf]) {
328: case 0: mnemonic[mnp] = 'R'; break;
329: case 1: mnemonic[mnp] = 'L'; break;
330: default: abort();
331: }
332: }
333: mnp++;
334: }
335: pos++;
336: }
337: mnemonic[mnp] = 0;
338:
339: /* now, we have read the mnemonic and the size */
340: while (opcstr[pos] && _istspace(opcstr[pos]))
341: pos++;
342:
343: /* A goto a day keeps the D******a away. */
344: if (opcstr[pos] == 0)
345: goto endofline;
346:
347: /* parse the source address */
348: usesrc = 1;
349: switch (opcstr[pos++]) {
350: case 'D':
351: srcmode = Dreg;
352: switch (opcstr[pos++]) {
353: case 'r': srcreg = bitval[bitr]; srcgather = 1; srcpos = bitpos[bitr]; break;
354: case 'R': srcreg = bitval[bitR]; srcgather = 1; srcpos = bitpos[bitR]; break;
355: default: abort();
356: }
357: break;
358: case 'A':
359: srcmode = Areg;
360: switch (opcstr[pos++]) {
361: case 'r': srcreg = bitval[bitr]; srcgather = 1; srcpos = bitpos[bitr]; break;
362: case 'R': srcreg = bitval[bitR]; srcgather = 1; srcpos = bitpos[bitR]; break;
363: default: abort();
364: }
365: switch (opcstr[pos]) {
366: case 'p': srcmode = Apdi; pos++; break;
367: case 'P': srcmode = Aipi; pos++; break;
368: case 'a': srcmode = Aind; pos++; break;
369: }
370: break;
371: case 'L':
372: srcmode = absl;
373: break;
374: case '#':
375: switch (opcstr[pos++]) {
376: case 'z': srcmode = imm; break;
377: case '0': srcmode = imm0; break;
378: case '1': srcmode = imm1; break;
379: case '2': srcmode = imm2; break;
380: case 'i': srcmode = immi; srcreg = (uae_s32)(uae_s8)bitval[biti];
381: if (CPU_EMU_SIZE < 4) {
382: /* Used for branch instructions */
383: srctype = 1;
384: srcgather = 1;
385: srcpos = bitpos[biti];
386: }
387: break;
388: case 'j': srcmode = immi; srcreg = bitval[bitj];
389: if (CPU_EMU_SIZE < 3) {
390: /* 1..8 for ADDQ/SUBQ and rotshi insns */
391: srcgather = 1;
392: srctype = 3;
393: srcpos = bitpos[bitj];
394: }
395: break;
396: case 'J': srcmode = immi; srcreg = bitval[bitJ];
397: if (CPU_EMU_SIZE < 5) {
398: /* 0..15 */
399: srcgather = 1;
400: srctype = 2;
401: srcpos = bitpos[bitJ];
402: }
403: break;
404: case 'k': srcmode = immi; srcreg = bitval[bitk];
405: if (CPU_EMU_SIZE < 3) {
406: srcgather = 1;
407: srctype = 4;
408: srcpos = bitpos[bitk];
409: }
410: break;
411: case 'K': srcmode = immi; srcreg = bitval[bitK];
412: if (CPU_EMU_SIZE < 5) {
413: /* 0..15 */
414: srcgather = 1;
415: srctype = 5;
416: srcpos = bitpos[bitK];
417: }
418: break;
419: case 'p': srcmode = immi; srcreg = bitval[bitK];
420: if (CPU_EMU_SIZE < 5) {
421: /* 0..3 */
422: srcgather = 1;
423: srctype = 7;
424: srcpos = bitpos[bitp];
425: }
426: break;
427: default: abort();
428: }
429: break;
430: case 'd':
431: srcreg = bitval[bitD];
432: srcmode = mode_from_mr(bitval[bitd],bitval[bitD]);
433: if (srcmode == am_illg)
434: continue;
435: if (CPU_EMU_SIZE < 2 &&
436: (srcmode == Areg || srcmode == Dreg || srcmode == Aind
437: || srcmode == Ad16 || srcmode == Ad8r || srcmode == Aipi
438: || srcmode == Apdi))
439: {
440: srcgather = 1; srcpos = bitpos[bitD];
441: }
442: if (opcstr[pos] == '[') {
443: pos++;
444: if (opcstr[pos] == '!') {
445: /* exclusion */
446: do {
447: pos++;
448: if (mode_from_str(opcstr+pos) == srcmode)
449: goto nomatch;
450: pos += 4;
451: } while (opcstr[pos] == ',');
452: pos++;
453: } else {
454: if (opcstr[pos+4] == '-') {
455: /* replacement */
456: if (mode_from_str(opcstr+pos) == srcmode)
457: srcmode = mode_from_str(opcstr+pos+5);
458: else
459: goto nomatch;
460: pos += 10;
461: } else {
462: /* normal */
463: while(mode_from_str(opcstr+pos) != srcmode) {
464: pos += 4;
465: if (opcstr[pos] == ']')
466: goto nomatch;
467: pos++;
468: }
469: while(opcstr[pos] != ']') pos++;
470: pos++;
471: break;
472: }
473: }
474: }
475: /* Some addressing modes are invalid as destination */
476: if (srcmode == imm || srcmode == PC16 || srcmode == PC8r)
477: goto nomatch;
478: break;
479: case 's':
480: srcreg = bitval[bitS];
481: srcmode = mode_from_mr(bitval[bits],bitval[bitS]);
482:
483: if (srcmode == am_illg)
484: continue;
485: if (CPU_EMU_SIZE < 2 &&
486: (srcmode == Areg || srcmode == Dreg || srcmode == Aind
487: || srcmode == Ad16 || srcmode == Ad8r || srcmode == Aipi
488: || srcmode == Apdi))
489: {
490: srcgather = 1; srcpos = bitpos[bitS];
491: }
492: if (opcstr[pos] == '[') {
493: pos++;
494: if (opcstr[pos] == '!') {
495: /* exclusion */
496: do {
497: pos++;
498: if (mode_from_str(opcstr+pos) == srcmode)
499: goto nomatch;
500: pos += 4;
501: } while (opcstr[pos] == ',');
502: pos++;
503: } else {
504: if (opcstr[pos+4] == '-') {
505: /* replacement */
506: if (mode_from_str(opcstr+pos) == srcmode)
507: srcmode = mode_from_str(opcstr+pos+5);
508: else
509: goto nomatch;
510: pos += 10;
511: } else {
512: /* normal */
513: while(mode_from_str(opcstr+pos) != srcmode) {
514: pos += 4;
515: if (opcstr[pos] == ']')
516: goto nomatch;
517: pos++;
518: }
519: while(opcstr[pos] != ']') pos++;
520: pos++;
521: }
522: }
523: }
524: break;
525: default: abort();
526: }
527: /* safety check - might have changed */
528: if (srcmode != Areg && srcmode != Dreg && srcmode != Aind
529: && srcmode != Ad16 && srcmode != Ad8r && srcmode != Aipi
530: && srcmode != Apdi && srcmode != immi)
531: {
532: srcgather = 0;
533: }
534: if (srcmode == Areg && sz == sz_byte)
535: goto nomatch;
536:
537: if (opcstr[pos] != ',')
538: goto endofline;
539: pos++;
540:
541: /* parse the destination address */
542: usedst = 1;
543: switch (opcstr[pos++]) {
544: case 'D':
545: destmode = Dreg;
546: switch (opcstr[pos++]) {
547: case 'r': destreg = bitval[bitr]; dstgather = 1; dstpos = bitpos[bitr]; break;
548: case 'R': destreg = bitval[bitR]; dstgather = 1; dstpos = bitpos[bitR]; break;
549: default: abort();
550: }
551: if (dstpos < 0 || dstpos >= 32)
552: abort ();
553: break;
554: case 'A':
555: destmode = Areg;
556: switch (opcstr[pos++]) {
557: case 'r': destreg = bitval[bitr]; dstgather = 1; dstpos = bitpos[bitr]; break;
558: case 'R': destreg = bitval[bitR]; dstgather = 1; dstpos = bitpos[bitR]; break;
559: case 'x': destreg = 0; dstgather = 0; dstpos = 0; break;
560: default: abort();
561: }
562: if (dstpos < 0 || dstpos >= 32)
563: abort ();
564: switch (opcstr[pos]) {
565: case 'p': destmode = Apdi; pos++; break;
566: case 'P': destmode = Aipi; pos++; break;
567: }
568: break;
569: case 'L':
570: destmode = absl;
571: break;
572: case '#':
573: switch (opcstr[pos++]) {
574: case 'z': destmode = imm; break;
575: case '0': destmode = imm0; break;
576: case '1': destmode = imm1; break;
577: case '2': destmode = imm2; break;
578: case 'i': destmode = immi; destreg = (uae_s32)(uae_s8)bitval[biti]; break;
579: case 'j': destmode = immi; destreg = bitval[bitj]; break;
580: case 'J': destmode = immi; destreg = bitval[bitJ]; break;
581: case 'k': destmode = immi; destreg = bitval[bitk]; break;
582: case 'K': destmode = immi; destreg = bitval[bitK]; break;
583: default: abort();
584: }
585: break;
586: case 'd':
587: destreg = bitval[bitD];
588: destmode = mode_from_mr(bitval[bitd],bitval[bitD]);
589: if (destmode == am_illg)
590: continue;
591: if (CPU_EMU_SIZE < 1 &&
592: (destmode == Areg || destmode == Dreg || destmode == Aind
593: || destmode == Ad16 || destmode == Ad8r || destmode == Aipi
594: || destmode == Apdi))
595: {
596: dstgather = 1; dstpos = bitpos[bitD];
597: }
598:
599: if (opcstr[pos] == '[') {
600: pos++;
601: if (opcstr[pos] == '!') {
602: /* exclusion */
603: do {
604: pos++;
605: if (mode_from_str(opcstr+pos) == destmode)
606: goto nomatch;
607: pos += 4;
608: } while (opcstr[pos] == ',');
609: pos++;
610: } else {
611: if (opcstr[pos+4] == '-') {
612: /* replacement */
613: if (mode_from_str(opcstr+pos) == destmode)
614: destmode = mode_from_str(opcstr+pos+5);
615: else
616: goto nomatch;
617: pos += 10;
618: } else {
619: /* normal */
620: while(mode_from_str(opcstr+pos) != destmode) {
621: pos += 4;
622: if (opcstr[pos] == ']')
623: goto nomatch;
624: pos++;
625: }
626: while(opcstr[pos] != ']') pos++;
627: pos++;
628: break;
629: }
630: }
631: }
632: /* Some addressing modes are invalid as destination */
633: if (destmode == imm || destmode == PC16 || destmode == PC8r)
634: goto nomatch;
635: break;
636: case 's':
637: destreg = bitval[bitS];
638: destmode = mode_from_mr(bitval[bits],bitval[bitS]);
639:
640: if (destmode == am_illg)
641: continue;
642: if (CPU_EMU_SIZE < 1 &&
643: (destmode == Areg || destmode == Dreg || destmode == Aind
644: || destmode == Ad16 || destmode == Ad8r || destmode == Aipi
645: || destmode == Apdi))
646: {
647: dstgather = 1; dstpos = bitpos[bitS];
648: }
649:
650: if (opcstr[pos] == '[') {
651: pos++;
652: if (opcstr[pos] == '!') {
653: /* exclusion */
654: do {
655: pos++;
656: if (mode_from_str(opcstr+pos) == destmode)
657: goto nomatch;
658: pos += 4;
659: } while (opcstr[pos] == ',');
660: pos++;
661: } else {
662: if (opcstr[pos+4] == '-') {
663: /* replacement */
664: if (mode_from_str(opcstr+pos) == destmode)
665: destmode = mode_from_str(opcstr+pos+5);
666: else
667: goto nomatch;
668: pos += 10;
669: } else {
670: /* normal */
671: while(mode_from_str(opcstr+pos) != destmode) {
672: pos += 4;
673: if (opcstr[pos] == ']')
674: goto nomatch;
675: pos++;
676: }
677: while(opcstr[pos] != ']') pos++;
678: pos++;
679: }
680: }
681: }
682: break;
683: default: abort();
684: }
685: /* safety check - might have changed */
686: if (destmode != Areg && destmode != Dreg && destmode != Aind
687: && destmode != Ad16 && destmode != Ad8r && destmode != Aipi
688: && destmode != Apdi)
689: {
690: dstgather = 0;
691: }
692:
693: if (destmode == Areg && sz == sz_byte)
694: goto nomatch;
695: #if 0
696: if (sz == sz_byte && (destmode == Aipi || destmode == Apdi)) {
697: dstgather = 0;
698: }
699: #endif
700: endofline:
701: /* now, we have a match */
702: if (table68k[opc].mnemo != i_ILLG)
1.1.1.2 root 703: ;//write_log (_T("Double match: %x: %s\n"), opc, opcstr);
1.1 root 704: if (find == -1) {
705: for (find = 0;; find++) {
706: if (_tcscmp (mnemonic, lookuptab[find].name) == 0) {
707: table68k[opc].mnemo = lookuptab[find].mnemo;
708: break;
709: }
710: if (_tcslen (lookuptab[find].name) == 0)
711: abort();
712: }
713: }
714: else {
715: table68k[opc].mnemo = lookuptab[find].mnemo;
716: }
717: table68k[opc].cc = bitval[bitc];
1.1.1.2 root 718: mnemo = table68k[opc].mnemo;
719: if (mnemo == i_BTST
720: || mnemo == i_BSET
721: || mnemo == i_BCLR
722: || mnemo == i_BCHG)
1.1 root 723: {
724: sz = destmode == Dreg ? sz_long : sz_byte;
1.1.1.2 root 725: unsized = 0;
1.1 root 726: }
1.1.1.2 root 727: if (mnemo == i_JSR || mnemo == i_JMP) {
728: unsized = 1;
729: }
730:
1.1 root 731: table68k[opc].size = sz;
1.1.1.2 root 732: table68k[opc].unsized = unsized;
733: table68k[opc].sduse = id.sduse;
1.1 root 734: table68k[opc].sreg = srcreg;
735: table68k[opc].dreg = destreg;
736: table68k[opc].smode = srcmode;
737: table68k[opc].dmode = destmode;
738: table68k[opc].spos = srcgather ? srcpos : -1;
739: table68k[opc].dpos = dstgather ? dstpos : -1;
740: table68k[opc].suse = usesrc;
741: table68k[opc].duse = usedst;
742: table68k[opc].stype = srctype;
743: table68k[opc].plev = id.plevel;
1.1.1.2 root 744: table68k[opc].clev = id.cpulevel;
745: table68k[opc].unimpclev = id.unimpcpulevel;
746: table68k[opc].head = id.head;
747: table68k[opc].tail = id.tail;
748: table68k[opc].clocks = id.clocks;
749: table68k[opc].fetchmode = id.fetchmode;
1.1 root 750:
751: #if 0
752: for (i = 0; i < 5; i++) {
753: table68k[opc].flaginfo[i].flagset = id.flaginfo[i].flagset;
754: table68k[opc].flaginfo[i].flaguse = id.flaginfo[i].flaguse;
755: }
756: #endif
757: table68k[opc].flagdead = flagdead;
758: table68k[opc].flaglive = flaglive;
759: table68k[opc].isjmp = isjmp;
760: nomatch:
761: /* FOO! */;
762: }
763: }
764:
765:
766: void read_table68k (void)
767: {
768: int i;
769:
770: free (table68k);
771: table68k = xmalloc (struct instr, 65536);
772: for (i = 0; i < 65536; i++) {
773: table68k[i].mnemo = i_ILLG;
774: table68k[i].handler = -1;
775: }
776: for (i = 0; i < n_defs68k; i++) {
777: build_insn (i);
778: }
779: }
780:
781: static int imismatch;
782:
783: static void handle_merges (long int opcode)
784: {
785: uae_u16 smsk;
786: uae_u16 dmsk;
787: int sbitdst, dstend;
788: int srcreg, dstreg;
789:
790: if (table68k[opcode].spos == -1) {
791: sbitdst = 1; smsk = 0;
792: } else {
793: switch (table68k[opcode].stype) {
794: case 0:
795: smsk = 7; sbitdst = 8; break;
796: case 1:
797: smsk = 255; sbitdst = 256; break;
798: case 2:
799: smsk = 15; sbitdst = 16; break;
800: case 3:
801: smsk = 7; sbitdst = 8; break;
802: case 4:
803: smsk = 7; sbitdst = 8; break;
804: case 5:
805: smsk = 63; sbitdst = 64; break;
806: case 7:
807: smsk = 3; sbitdst = 4; break;
808: default:
809: smsk = 0; sbitdst = 0;
810: abort();
811: break;
812: }
813: smsk <<= table68k[opcode].spos;
814: }
815: if (table68k[opcode].dpos == -1) {
816: dstend = 1; dmsk = 0;
817: } else {
818: dmsk = 7 << table68k[opcode].dpos;
819: dstend = 8;
820: }
821: for (srcreg=0; srcreg < sbitdst; srcreg++) {
822: for (dstreg=0; dstreg < dstend; dstreg++) {
823: uae_u16 code = (uae_u16)opcode;
824:
825: code = (code & ~smsk) | (srcreg << table68k[opcode].spos);
826: code = (code & ~dmsk) | (dstreg << table68k[opcode].dpos);
827:
828: /* Check whether this is in fact the same instruction.
829: * The instructions should never differ, except for the
830: * Bcc.(BW) case. */
831: if (table68k[code].mnemo != table68k[opcode].mnemo
832: || table68k[code].size != table68k[opcode].size
833: || table68k[code].suse != table68k[opcode].suse
834: || table68k[code].duse != table68k[opcode].duse)
835: {
836: imismatch++; continue;
837: }
838: if (table68k[opcode].suse
839: && (table68k[opcode].spos != table68k[code].spos
840: || table68k[opcode].smode != table68k[code].smode
841: || table68k[opcode].stype != table68k[code].stype))
842: {
843: imismatch++; continue;
844: }
845: if (table68k[opcode].duse
846: && (table68k[opcode].dpos != table68k[code].dpos
847: || table68k[opcode].dmode != table68k[code].dmode))
848: {
849: imismatch++; continue;
850: }
851:
852: if (code != opcode)
853: table68k[code].handler = opcode;
854: }
855: }
856: }
857:
858: void do_merges (void)
859: {
860: long int opcode;
861: int nr = 0;
862: imismatch = 0;
863: for (opcode = 0; opcode < 65536; opcode++) {
864: if (table68k[opcode].handler != -1 || table68k[opcode].mnemo == i_ILLG)
865: continue;
866: nr++;
867: handle_merges (opcode);
868: }
869: nr_cpuop_funcs = nr;
870: }
871:
872: int get_no_mismatches (void)
873: {
874: return imismatch;
875: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.