4 |
|
* Read 68000 CPU specs from file "table68k" |
5 |
|
* |
6 |
|
* Copyright 1995,1996 Bernd Schmidt |
7 |
+ |
* |
8 |
+ |
* This program is free software; you can redistribute it and/or modify |
9 |
+ |
* it under the terms of the GNU General Public License as published by |
10 |
+ |
* the Free Software Foundation; either version 2 of the License, or |
11 |
+ |
* (at your option) any later version. |
12 |
+ |
* |
13 |
+ |
* This program is distributed in the hope that it will be useful, |
14 |
+ |
* but WITHOUT ANY WARRANTY; without even the implied warranty of |
15 |
+ |
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
16 |
+ |
* GNU General Public License for more details. |
17 |
+ |
* |
18 |
+ |
* You should have received a copy of the GNU General Public License |
19 |
+ |
* along with this program; if not, write to the Free Software |
20 |
+ |
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
21 |
|
*/ |
22 |
|
|
23 |
|
#include <stdio.h> |
269 |
|
int pos = 0; |
270 |
|
int mnp = 0; |
271 |
|
int bitno = 0; |
272 |
< |
char mnemonic[10]; |
272 |
> |
char mnemonic[64]; |
273 |
|
|
274 |
|
wordsizes sz = sz_long; |
275 |
|
int srcgather = 0, dstgather = 0; |
346 |
|
} |
347 |
|
} |
348 |
|
mnp++; |
349 |
+ |
if ((unsigned)mnp >= sizeof(mnemonic) - 1) { |
350 |
+ |
mnemonic[sizeof(mnemonic) - 1] = 0; |
351 |
+ |
fprintf(stderr, "Instruction %s overflow\n", mnemonic); |
352 |
+ |
abort(); |
353 |
+ |
} |
354 |
|
} |
355 |
|
pos++; |
356 |
|
} |
768 |
|
} |
769 |
|
#endif |
770 |
|
|
771 |
+ |
// Fix flags used information for Scc, Bcc, TRAPcc, DBcc instructions |
772 |
+ |
if ( table68k[opc].mnemo == i_Scc |
773 |
+ |
|| table68k[opc].mnemo == i_Bcc |
774 |
+ |
|| table68k[opc].mnemo == i_DBcc |
775 |
+ |
|| table68k[opc].mnemo == i_TRAPcc |
776 |
+ |
) { |
777 |
+ |
switch (table68k[opc].cc) { |
778 |
+ |
// CC mask: XNZVC |
779 |
+ |
// 8421 |
780 |
+ |
case 0: flags_used = 0x00; break; /* T */ |
781 |
+ |
case 1: flags_used = 0x00; break; /* F */ |
782 |
+ |
case 2: flags_used = 0x05; break; /* HI */ |
783 |
+ |
case 3: flags_used = 0x05; break; /* LS */ |
784 |
+ |
case 4: flags_used = 0x01; break; /* CC */ |
785 |
+ |
case 5: flags_used = 0x01; break; /* CS */ |
786 |
+ |
case 6: flags_used = 0x04; break; /* NE */ |
787 |
+ |
case 7: flags_used = 0x04; break; /* EQ */ |
788 |
+ |
case 8: flags_used = 0x02; break; /* VC */ |
789 |
+ |
case 9: flags_used = 0x02; break; /* VS */ |
790 |
+ |
case 10:flags_used = 0x08; break; /* PL */ |
791 |
+ |
case 11:flags_used = 0x08; break; /* MI */ |
792 |
+ |
case 12:flags_used = 0x0A; break; /* GE */ |
793 |
+ |
case 13:flags_used = 0x0A; break; /* LT */ |
794 |
+ |
case 14:flags_used = 0x0E; break; /* GT */ |
795 |
+ |
case 15:flags_used = 0x0E; break; /* LE */ |
796 |
+ |
} |
797 |
+ |
} |
798 |
+ |
|
799 |
|
#if 1 |
800 |
|
/* gb-- flagdead and flaglive would not have correct information */ |
801 |
|
table68k[opc].flagdead = flags_set; |
823 |
|
for (i = 0; i < n_defs68k; i++) { |
824 |
|
build_insn (i); |
825 |
|
} |
779 |
– |
|
780 |
– |
/* Extra fixes in table68k for control flow information and flag usage */ |
781 |
– |
for (i = 0; i < 65536; i++) { |
782 |
– |
instrmnem mnemo = (instrmnem)(table68k[i].mnemo); |
783 |
– |
|
784 |
– |
#define IS_CONST_JUMP(opc) \ |
785 |
– |
( ((table68k[opc].mnemo == i_Bcc) && (table68k[opc].cc < 2)) \ |
786 |
– |
|| (table68k[opc].mnemo == i_BSR) \ |
787 |
– |
) |
788 |
– |
|
789 |
– |
// Precise const jumps as such. The JIT compiler will take |
790 |
– |
// care to actually enable that optimization or not |
791 |
– |
if (IS_CONST_JUMP(i)) |
792 |
– |
table68k[i].cflow |= fl_const_jump; |
793 |
– |
|
794 |
– |
// Fix flags used information for Scc, Bcc, TRAPcc, DBcc instructions |
795 |
– |
int flags_used = table68k[i].flaglive; |
796 |
– |
if ( (mnemo == i_Scc) |
797 |
– |
|| (mnemo == i_Bcc) |
798 |
– |
|| (mnemo == i_DBcc) |
799 |
– |
|| (mnemo == i_TRAPcc) |
800 |
– |
) { |
801 |
– |
switch (table68k[i].cc) { |
802 |
– |
// CC mask: XNZVC |
803 |
– |
// 8421 |
804 |
– |
case 0: flags_used = 0x00; break; /* T */ |
805 |
– |
case 1: flags_used = 0x00; break; /* F */ |
806 |
– |
case 2: flags_used = 0x05; break; /* HI */ |
807 |
– |
case 3: flags_used = 0x05; break; /* LS */ |
808 |
– |
case 4: flags_used = 0x01; break; /* CC */ |
809 |
– |
case 5: flags_used = 0x01; break; /* CS */ |
810 |
– |
case 6: flags_used = 0x04; break; /* NE */ |
811 |
– |
case 7: flags_used = 0x04; break; /* EQ */ |
812 |
– |
case 8: flags_used = 0x02; break; /* VC */ |
813 |
– |
case 9: flags_used = 0x02; break; /* VS */ |
814 |
– |
case 10:flags_used = 0x08; break; /* PL */ |
815 |
– |
case 11:flags_used = 0x08; break; /* MI */ |
816 |
– |
case 12:flags_used = 0x0A; break; /* GE */ |
817 |
– |
case 13:flags_used = 0x0A; break; /* LT */ |
818 |
– |
case 14:flags_used = 0x0E; break; /* GT */ |
819 |
– |
case 15:flags_used = 0x0E; break; /* LE */ |
820 |
– |
} |
821 |
– |
} |
822 |
– |
|
823 |
– |
/* Unconditional jumps don't evaluate condition codes, so they |
824 |
– |
don't actually use any flags themselves */ |
825 |
– |
if (IS_CONST_JUMP(i)) |
826 |
– |
flags_used = 0; |
827 |
– |
|
828 |
– |
table68k[i].flaglive = flags_used; |
829 |
– |
} |
826 |
|
} |
827 |
|
|
828 |
|
static int mismatch; |
922 |
|
{ |
923 |
|
return mismatch; |
924 |
|
} |
925 |
+ |
|
926 |
+ |
const char *get_instruction_name (unsigned int opcode) |
927 |
+ |
{ |
928 |
+ |
struct instr *ins = &table68k[opcode]; |
929 |
+ |
for (int i = 0; lookuptab[i].name[0]; i++) { |
930 |
+ |
if (ins->mnemo == lookuptab[i].mnemo) |
931 |
+ |
return lookuptab[i].name; |
932 |
+ |
} |
933 |
+ |
abort(); |
934 |
+ |
return NULL; |
935 |
+ |
} |
936 |
+ |
|
937 |
+ |
static char *get_ea_string (amodes mode, wordsizes size) |
938 |
+ |
{ |
939 |
+ |
static char buffer[80]; |
940 |
+ |
|
941 |
+ |
buffer[0] = 0; |
942 |
+ |
switch (mode){ |
943 |
+ |
case Dreg: |
944 |
+ |
strcpy (buffer,"Dn"); |
945 |
+ |
break; |
946 |
+ |
case Areg: |
947 |
+ |
strcpy (buffer,"An"); |
948 |
+ |
break; |
949 |
+ |
case Aind: |
950 |
+ |
strcpy (buffer,"(An)"); |
951 |
+ |
break; |
952 |
+ |
case Aipi: |
953 |
+ |
strcpy (buffer,"(An)+"); |
954 |
+ |
break; |
955 |
+ |
case Apdi: |
956 |
+ |
strcpy (buffer,"-(An)"); |
957 |
+ |
break; |
958 |
+ |
case Ad16: |
959 |
+ |
strcpy (buffer,"(d16,An)"); |
960 |
+ |
break; |
961 |
+ |
case Ad8r: |
962 |
+ |
strcpy (buffer,"(d8,An,Xn)"); |
963 |
+ |
break; |
964 |
+ |
case PC16: |
965 |
+ |
strcpy (buffer,"(d16,PC)"); |
966 |
+ |
break; |
967 |
+ |
case PC8r: |
968 |
+ |
strcpy (buffer,"(d8,PC,Xn)"); |
969 |
+ |
break; |
970 |
+ |
case absw: |
971 |
+ |
strcpy (buffer,"(xxx).W"); |
972 |
+ |
break; |
973 |
+ |
case absl: |
974 |
+ |
strcpy (buffer,"(xxx).L"); |
975 |
+ |
break; |
976 |
+ |
case imm: |
977 |
+ |
switch (size){ |
978 |
+ |
case sz_byte: |
979 |
+ |
strcpy (buffer,"#<data>.B"); |
980 |
+ |
break; |
981 |
+ |
case sz_word: |
982 |
+ |
strcpy (buffer,"#<data>.W"); |
983 |
+ |
break; |
984 |
+ |
case sz_long: |
985 |
+ |
strcpy (buffer,"#<data>.L"); |
986 |
+ |
break; |
987 |
+ |
default: |
988 |
+ |
break; |
989 |
+ |
} |
990 |
+ |
break; |
991 |
+ |
case imm0: |
992 |
+ |
strcpy (buffer,"#<data>.B"); |
993 |
+ |
break; |
994 |
+ |
case imm1: |
995 |
+ |
strcpy (buffer,"#<data>.W"); |
996 |
+ |
break; |
997 |
+ |
case imm2: |
998 |
+ |
strcpy (buffer,"#<data>.L"); |
999 |
+ |
break; |
1000 |
+ |
case immi: |
1001 |
+ |
strcpy (buffer,"#<data>"); |
1002 |
+ |
break; |
1003 |
+ |
|
1004 |
+ |
default: |
1005 |
+ |
break; |
1006 |
+ |
} |
1007 |
+ |
return buffer; |
1008 |
+ |
} |
1009 |
+ |
|
1010 |
+ |
const char *get_instruction_string (unsigned int opcode) |
1011 |
+ |
{ |
1012 |
+ |
static char out[100]; |
1013 |
+ |
struct instr *ins; |
1014 |
+ |
|
1015 |
+ |
strcpy (out, get_instruction_name (opcode)); |
1016 |
+ |
|
1017 |
+ |
ins = &table68k[opcode]; |
1018 |
+ |
if (ins->size == sz_byte) |
1019 |
+ |
strcat (out,".B"); |
1020 |
+ |
if (ins->size == sz_word) |
1021 |
+ |
strcat (out,".W"); |
1022 |
+ |
if (ins->size == sz_long) |
1023 |
+ |
strcat (out,".L"); |
1024 |
+ |
strcat (out," "); |
1025 |
+ |
if (ins->suse) |
1026 |
+ |
strcat (out, get_ea_string (ins->smode, ins->size)); |
1027 |
+ |
if (ins->duse) { |
1028 |
+ |
if (ins->suse) |
1029 |
+ |
strcat (out,","); |
1030 |
+ |
strcat (out, get_ea_string (ins->dmode, ins->size)); |
1031 |
+ |
} |
1032 |
+ |
return out; |
1033 |
+ |
} |