1 /* r8c.opc --- semantics for r8c opcodes. -*- mode: c -*-
3 Copyright (C) 2005 Free Software Foundation, Inc.
4 Contributed by Red Hat, Inc.
6 This file is part of the GNU simulators.
8 The GNU simulators are free software; you can redistribute them and/or
9 modify them under the terms of the GNU General Public License as
10 published by the Free Software Foundation; either version 2 of the
11 License, or (at your option) any later version.
13 The GNU simulators are distributed in the hope that they will be
14 useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with the GNU simulators; if not, write to the Free Software
20 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
32 #define AU __attribute__((unused))
34 #define tprintf if (trace) printf
50 #define M16C_ONLY() /* FIXME: add something here */
52 #define GETBYTE() (op[opi++] = getbyte())
54 #define UNSUPPORTED() unsupported("unsupported", orig_pc)
55 #define NOTYET() unsupported("unimplemented", orig_pc)
58 unsupported (char *tag, int orig_pc)
61 printf("%s opcode at %08x\n", tag, orig_pc);
66 printf(" %s", bits(b>>4, 4));
67 printf(" %s", bits(b, 4));
74 printf(" %02x", mem_get_pc ());
86 rv = rv + 256 * getbyte();
88 rv = rv + 65536 * getbyte();
92 #define IMM4() (immm >= 8 ? 7 - immm : immm + 1)
95 dc = decode_srcdest4 (dest, w); \
96 v = sign_ext (get_src (dc), w?16:8);
99 dc = decode_srcdest4 (dest, w); \
103 sc = decode_srcdest4 (srcx, w); \
104 dc = decode_srcdest4 (dest, w); \
105 a = sign_ext (get_src (sc), w?16:8); \
106 b = sign_ext (get_src (dc), w?16:8);
109 sc = decode_srcdest4 (srcx, w); \
110 dc = decode_srcdest4 (dest, w); \
114 #define carry (FLAG_C ? 1 : 0)
117 cmp (int d, int s, int w)
120 int mask = w ? 0xffff : 0xff;
122 b = sign_ext (d, w?16:8) - sign_ext (s, w?16:8);
123 tprintf ("cmp: %x - %x = %08x, %x - %x = %d\n",
125 sign_ext(d,w?16:8), sign_ext(s,w?16:8), b);
129 if (b & (w ? 0x8000 : 0x80))
131 if ((d & mask) >= (s & mask))
133 if (b < (w ? -32768 : -128) || b > (w ? 32767 : 127))
136 set_flags (FLAGBIT_Z | FLAGBIT_S | FLAGBIT_O | FLAGBIT_C, f);
140 div_op (int s, int u, int x, int w)
149 sc = decode_srcdest4 (s, w);
153 v = get_reg (w ? r2r0 : r0);
157 s = sign_ext (s, w ? 16 : 8);
158 v = sign_ext (v, w ? 16 : 8);
163 set_flags (FLAGBIT_O, FLAGBIT_O);
169 a = (unsigned int)v / (unsigned int)s;
170 b = (unsigned int)v % (unsigned int)s;
186 tprintf ("%d / %d = %d rem %d\n", v, s, a, b);
187 if ((!u && (a > (w ? 32767 : 127)
188 || a < (w ? -32768 : -129)))
189 || (u && (a > (w ? 65536 : 255))))
190 set_flags (FLAGBIT_O, FLAGBIT_O);
192 set_flags (FLAGBIT_O, 0);
194 put_reg (w ? r0 : r0l, a);
195 put_reg (w ? r2 : r0h, b);
199 rot_op (srcdest sd, int rotc, int count)
201 int mask = (sd.bytes == 2) ? 0xffff : 0xff;
202 int msb = (sd.bytes == 2) ? 0x8000 : 0x80;
203 int v = get_src (sd);
206 tprintf("%s %x by %d\n", rotc ? "rotc" : "rot", v, count);
207 tprintf (": %s %d\n", bits(v, 8*sd.bytes), c);
210 ct = (v & msb) ? 1 : 0;
215 tprintf (": %s %d\n", bits(v, 8*sd.bytes), c);
222 v |= (rotc ? c : ct) * msb;
224 tprintf (": %s %d\n", bits(v, 8*sd.bytes), c);
228 set_szc (v, sd.bytes, c);
232 shift_op (srcdest sd, int arith, int count)
234 int mask = (sd.bytes == 2) ? 0xffff : 0xff;
235 int msb = (sd.bytes == 2) ? 0x8000 : 0x80;
236 int v = get_src (sd);
245 tprintf("%s %x by %d\n", arith ? "sha" : "shl", v, count);
246 tprintf (": %s %d\n", bits(v, 8*sd.bytes), c);
249 c = (v & msb) ? 1 : 0;
252 tprintf (": %s %d\n", bits(v, 8*sd.bytes), c);
259 v = (v & msb) | (v >> 1);
261 v = (v >> 1) & (msb - 1);
262 tprintf (": %s %d\n", bits(v, 8*sd.bytes), c);
266 set_szc (v, sd.bytes, c);
269 #define MATH_OP(dc,s,c,op,carryrel) \
271 b = s & b2mask[dc.bytes]; \
273 tprintf("0x%x " #op " 0x%x " #op " 0x%x = 0x%x\n", a, b, c, v2); \
274 a = sign_ext (a, dc.bytes * 8); \
275 b = sign_ext (s, dc.bytes * 8); \
277 tprintf("%d " #op " %d " #op " %d = %d\n", a, b, c, v); \
278 set_oszc (v, dc.bytes, v2 carryrel); \
281 #define BIT_OP(field,expr) \
282 dc = decode_bit (field); \
285 tprintf ("b=%d, carry=%d, %s = %d\n", b, carry, #expr, v); \
288 #define BIT_OPC(field,expr) \
289 dc = decode_bit (field); \
292 tprintf ("b=%d, carry=%d, %s = %d\n", b, carry, #expr, v); \
298 unsigned char op[40];
301 int orig_pc = get_reg (pc);
305 step_result = M32C_MAKE_STEPPED ();
307 tprintf("trace: decode pc = %05x\n", orig_pc);
309 /** VARY dst 011 100 101 110 111 */
311 /** 0111 011w 1111 dest ABS.size dest */
315 tprintf("abs(%d) = %d\n", v, a);
319 /** 0111 011w 0110 dest ADC.size #IMM,dest */
321 dc = decode_srcdest4(dest, w);
323 MATH_OP (dc, imm, carry, +, > (w?0xffff:0xff));
325 /** 1011 000w srcx dest ADC.size src,dest */
327 sc = decode_srcdest4(srcx, w);
328 dc = decode_srcdest4(dest, w);
330 MATH_OP (dc, b, carry, +, > (w?0xffff:0xff));
332 /** 0111 011w 1110 dest ADCF.size dest */
334 dc = decode_srcdest4(dest, w);
335 MATH_OP (dc, 0, carry, +, > (w?0xffff:0xff));
337 /** 0111 011w 0100 dest ADD.size:G #imm,dest */
339 dc = decode_srcdest4(dest, w);
341 MATH_OP (dc, imm, 0, +, > (w?0xffff:0xff));
343 /** 1100 100w immm dest ADD.size:Q #IMM,dest */
345 dc = decode_srcdest4(dest, w);
346 imm = sign_ext (immm, 4);
347 MATH_OP (dc, imm, 0, +, > (w?0xffff:0xff));
349 /** 1000 0dst ADD.B:S #IMM8,dst */
352 dc = decode_dest3 (dst, 0);
353 MATH_OP (dc, imm, 0, +, > 0xff);
355 /** 1010 000w srcx dest ADD.size:G src,dest */
357 sc = decode_srcdest4(srcx, w);
358 dc = decode_srcdest4(dest, w);
360 MATH_OP (dc, b, 0, +, > (w?0xffff:0xff));
362 /** 0010 0d sr ADD.B:S src,R0L/R0H */
364 sc = decode_src2 (sr, 0, d);
365 dc = decode_dest1 (d, 0);
367 MATH_OP (dc, b, 0, +, > 0xff);
369 /** 0111 110w 1110 1011 ADD.size:G #IMM,sp */
372 imm = sign_ext (IMM(w), w?16:8);
373 MATH_OP (dc, imm, 0, +, > 0xffff);
375 /** 0111 1101 1011 immm ADD.size:Q #IMM,sp */
378 imm = sign_ext (immm, 4);
379 MATH_OP (dc, imm, 0, +, > 0xffff);
381 /** 1111 100w immm dest ADJNZ.size #IMM,dest,label */
384 imm = sign_ext(immm, 4);
385 tprintf("%x + %d = %x\n", v, imm, v+imm);
388 a = sign_ext (IMM(0), 8);
389 if ((v & (w ? 0xffff : 0xff)) != 0)
391 tprintf("jmp: %x + 2 + %d = ", get_reg (pc), a);
392 put_reg (pc, orig_pc + 2 + a);
393 tprintf("%x\n", get_reg (pc));
396 /** 0111 011w 0010 dest AND.size:G #IMM,dest */
400 tprintf ("%x & %x = %x\n", v, imm, v & imm);
405 /** 1001 0dst AND.B:S #IMM8,dest */
408 dc = decode_dest3 (dst, 0);
410 tprintf("%x & %x = %x\n", v, imm, v & imm);
415 /** 1001 000w srcx dest AND.size:G src.dest */
418 tprintf ("%x & %x = %x\n", a, b, a & b);
423 /** 0001 0d sr AND.B:S src,R0L/R0H */
425 sc = decode_src2 (sr, 0, d);
426 dc = decode_dest1 (d, 0);
430 tprintf("%x & %x = %x\n", a, b, v);
434 /** 0111 1110 0100 srcx BAND src */
436 BIT_OPC (srcx, b & carry);
438 /** 0111 1110 1000 dest BCLR:G dest */
440 dc = decode_bit (dest);
443 /** 0100 0bit BCLR:S bit,base:11[SB] */
445 dc = decode_bit11 (bit);
448 /** 0111 1110 0010 dest BMcnd dest */
450 dc = decode_bit (dest);
451 if (condition_true (IMM (0)))
456 /** 0111 1101 1101 cond BMcnd C */
458 if (condition_true (cond))
463 /** 0111 1110 0101 srcx BNAND src */
465 BIT_OPC (srcx, !b & carry);
467 /** 0111 1110 0111 srcx BNOR src */
469 BIT_OPC (srcx, !b | carry);
471 /** 0111 1110 1010 dest BNOT:G dest */
475 /** 0101 0bit BNOT:S bit,base:11[SB] */
477 dc = decode_bit11 (bit);
478 put_bit (dc, !get_bit (dc));
480 /** 0111 1110 0011 srcx BNTST src */
482 dc = decode_bit (srcx);
486 /** 0111 1110 1101 srcx BNXOR src */
488 BIT_OPC (srcx, !b ^ carry);
490 /** 0111 1110 0110 srcx BOR src */
492 BIT_OPC (srcx, b | carry);
496 /* We report the break to our caller with the PC still pointing at the
497 breakpoint instruction. */
498 put_reg (pc, orig_pc);
501 return M32C_MAKE_HIT_BREAK ();
503 /** 0111 1110 1001 dest BSET:G dest */
505 dc = decode_bit (dest);
508 /** 0100 1bit BSET:S bit,base:11[SB] */
510 dc = decode_bit11 (bit);
513 /** 0111 1110 1011 srcx BTST:G src */
515 dc = decode_bit (srcx);
519 /** 0101 1bit BTST:S bit,base:11[SB] */
521 dc = decode_bit11 (bit);
525 /** 0111 1110 0000 dest BTSTC dest */
527 dc = decode_bit (dest);
532 /** 0111 1110 0001 dest BTSTS dest */
534 dc = decode_bit (dest);
539 /** 0111 1110 1100 srcx BXOR src */
541 BIT_OPC (srcx, b ^ carry);
543 /** 0111 011w 1000 dest CMP.size:G #IMM,dest */
549 /** 1101 000w immm dest CMP.size:Q #IMM,dest */
552 immm = sign_ext (immm, 4);
555 /** 1110 0dst CMP.B:S #IMM8,dest */
558 dc = decode_dest3 (dst, 0);
562 /** 1100 000w srcx dest CMP.size:G src,dest */
567 /** 0011 1d sr CMP.B:S src,R0L/R0H */
569 sc = decode_src2 (sr, 0, d);
570 dc = decode_dest1 (d, 0);
575 /** 0111 110w 1110 i1c s DADC,DADD,DSBB,DSUB */
577 /* w = width, i = immediate, c = carry, s = subtract */
579 int src = i ? IMM(w) : get_reg (w ? r1 : r0h);
580 int dest = get_reg (w ? r0 : r0l);
583 src = bcd2int(src, w);
584 dest = bcd2int(dest, w);
586 tprintf("decimal: %d %s %d", dest, s?"-":"+", src);
588 tprintf(" c=%d", carry);
595 c = res > (w ? 9999 : 99);
604 res += w ? 10000 : 100;
607 res = int2bcd (res, w);
608 tprintf(" = %x\n", res);
610 set_szc (res, w+1, c);
612 put_reg (w ? r0 : r0l, res);
614 /** 1010 1dst DEC.B dest */
616 dc = decode_dest3 (dst, 0);
618 tprintf("%x -- = %x\n", v, v-1);
623 /** 1111 d010 DEC.W dest */
625 v = get_reg (d ? a1 : a0);
626 tprintf("%x -- = %x\n", v, v-1);
629 put_reg (d ? a1 : a0, v);
631 /** 0111 110w 1110 0001 DIV.size #IMM */
633 div_op (-1, 0, 0, w);
635 /** 0111 011w 1101 srcx DIV.size src */
637 div_op (srcx, 0, 0, w);
639 /** 0111 110w 1110 0000 DIVU.size #IMM */
641 div_op (-1, 1, 0, w);
643 /** 0111 011w 1100 srcx DIVU.size src */
645 div_op (srcx, 1, 0, w);
647 /** 0111 110w 1110 0011 DIVX.size #IMM */
649 div_op (-1, 0, 1, w);
651 /** 0111 011w 1001 srcx DIVX.size src */
653 div_op (srcx, 0, 1, w);
655 /** 0111 1100 1111 0010 ENTER #IMM8 */
658 put_reg (sp, get_reg (sp) - 2);
659 mem_put_hi (get_reg (sp), get_reg (fb));
660 put_reg (fb, get_reg (sp));
661 put_reg (sp, get_reg (sp) - imm);
663 /** 0111 1101 1111 0010 EXITD */
665 put_reg (sp, get_reg (fb));
666 put_reg (fb, mem_get_hi (get_reg (sp)));
667 put_reg (sp, get_reg (sp) + 2);
668 put_reg (pc, mem_get_psi (get_reg (sp)));
669 put_reg (sp, get_reg (sp) + 3);
671 /** 0111 1100 0110 dest EXTS.B dest */
673 dc = decode_srcdest4 (dest, 0);
674 v = sign_ext (get_src (dc), 8);
679 /** 0111 1100 1111 0011 EXTS.W R0 */
681 v = sign_ext (get_reg (r0), 16);
685 /** 1110 1011 0flg 0101 FCLR dest */
687 set_flags (1 << flg, 0);
689 /** 1110 1011 0flg 0100 FSET dest */
691 set_flags (1 << flg, 1 << flg);
693 /** 1010 0dst INC.B dest */
695 dc = decode_dest3 (dst, 0);
697 tprintf("%x ++ = %x\n", v, v+1);
702 /** 1011 d010 INC.W dest */
704 v = get_reg (d ? a1 : a0);
705 tprintf("%x ++ = %x\n", v, v+1);
708 put_reg (d ? a1 : a0, v);
710 /** 1110 1011 11vector INT #imm */
712 trigger_based_interrupt (vector);
714 /** 1111 0110 INTO */
717 trigger_fixed_interrupt (0xffe0);
719 /** 0110 1cnd Jcnd label */
721 v = sign_ext (IMM(0), 8);
722 if (condition_true (cnd))
723 put_reg (pc, orig_pc + 1 + v);
725 /** 0111 1101 1100 cond Jcnd label */
727 v = sign_ext (IMM(0), 8);
728 if (condition_true (cond))
729 put_reg (pc, orig_pc + 2 + v);
731 /** 0110 0dsp JMP.S label */
733 put_reg (pc, orig_pc + 2 + dsp);
735 /** 1111 1110 JMP.B label */
737 imm = sign_ext (IMM(0), 8);
741 printf("[jmp-to-self detected as exit]\n");
742 return M32C_MAKE_HIT_BREAK ();
744 put_reg (pc, orig_pc + 1 + imm);
746 /** 1111 0100 JMP.W label */
748 imm = sign_ext (IMM(1), 16);
749 put_reg (pc, orig_pc + 1 + imm);
751 /** 1111 1100 JMP.A label */
756 /** 0111 1101 0010 srcx JMPI.W src */
758 sc = decode_jumpdest (srcx, 1);
760 a = sign_ext (a, 16);
761 put_reg (pc, orig_pc + a);
763 /** 0111 1101 0000 srcx JMPI.A src */
765 sc = decode_jumpdest (srcx, 0);
769 /** 1110 1110 JMPS #IMM8 */
774 a = 0xf0000 + mem_get_hi (0xffffe - imm * 2);
777 /** 1111 0101 JSR.W label */
779 imm = sign_ext (IMM(1), 16);
780 put_reg (sp, get_reg (sp) - 3);
781 mem_put_psi (get_reg (sp), get_reg (pc));
782 put_reg (pc, orig_pc + imm + 1);
784 /** 1111 1101 JSR.A label */
787 put_reg (sp, get_reg (sp) - 3);
788 mem_put_psi (get_reg (sp), get_reg (pc));
791 /** 0111 1101 0011 srcx JSRI.W src */
793 sc = decode_jumpdest (srcx, 1);
795 a = sign_ext (a, 16);
797 put_reg (sp, get_reg (sp) - 3);
798 mem_put_psi (get_reg (sp), get_reg (pc));
799 put_reg (pc, orig_pc + a);
801 /** 0111 1101 0001 srcx JSRI.A src */
803 sc = decode_jumpdest (srcx, 0);
806 put_reg (sp, get_reg (sp) - 3);
807 mem_put_psi (get_reg (sp), get_reg (pc));
810 /** 1110 1111 JSRS #IMM8 */
815 a = 0xf0000 + mem_get_hi (0xffffe - imm * 2);
817 put_reg (sp, get_reg (sp) - 3);
818 mem_put_psi (get_reg (sp), get_reg (pc));
821 /** 1110 1011 0reg 0000 LDC #IMM16,dest */
823 dc = decode_cr (reg);
827 /** 0111 1010 1reg srcx LDC src,dest */
829 dc = decode_cr (reg);
830 sc = decode_srcdest4 (srcx,1);
831 put_dest (dc, get_src (sc));
833 /** 0111 1100 1111 0000 LDCTX abs16,abs20 */
837 /** 0111 010w 1000 dest LDE.size abs20,dest */
839 dc = decode_srcdest4 (dest, w);
842 v = mem_get_hi (imm);
844 v = mem_get_qi (imm);
847 /** 0111 010w 1001 dest LDE.size dsp:20[a0], dest */
849 dc = decode_srcdest4 (dest, w);
850 imm = IMM(2) + get_reg (a0);
852 v = mem_get_hi (imm);
854 v = mem_get_qi (imm);
857 /** 0111 010w 1010 dest LDE.size [a1a0],dest */
859 dc = decode_srcdest4 (dest, w);
860 imm = get_reg (a1a0);
862 v = mem_get_hi (imm);
864 v = mem_get_qi (imm);
867 /** 0111 1101 1010 0imm LDIPL #IMM */
869 set_flags (0x700, imm*0x100);
871 /** 0111 010w 1100 dest MOV.size:G #IMM,dest */
876 tprintf("%x = %x\n", v, v);
880 /** 1101 100w immm dest MOV.size:Q #IMM,dest */
883 v = sign_ext (immm, 4);
884 tprintf ("%x = %x\n", v, v);
888 /** 1100 0dst MOV.B:S #IMM8,dest */
891 dc = decode_dest3 (dst, 0);
893 tprintf("%x = %x\n", v, v);
897 /** 1w10 d010 MOV.size:S #IMM,dest */
899 /* Note that for w, 0=W and 1=B unlike the usual meaning. */
901 tprintf("%x = %x\n", v, v);
903 put_reg (d ? a1 : a0, v);
905 /** 1011 0dst MOV.B:Z #0,dest */
907 dc = decode_dest3 (dst, 0);
912 /** 0111 001w srcx dest MOV.size:G src,dest */
914 sc = decode_srcdest4 (srcx, w);
915 dc = decode_srcdest4 (dest, w);
920 /** 0011 0d sr MOV.B:S src,dest */
922 sc = decode_src2 (sr, 0, d);
925 put_reg (d ? a1 : a0, v);
927 /** 0000 0s ds MOV.B:S R0L/R0H,dest */
931 dc = decode_src2 (ds, 0, s);
932 v = get_reg (s ? r0h : r0l);
936 /** 0000 1d sr MOV.B:S src,R0L/R0H */
938 sc = decode_src2 (sr, 0, d);
941 put_reg (d ? r0h : r0l, v);
943 /** 0111 010w 1011 dest MOV.size:G dsp:8[SP], dest */
945 dc = decode_srcdest4 (dest, w);
947 a = get_reg (sp) + sign_ext (imm, 8);
956 /** 0111 010w 0011 srcx MOV.size:G src, disp8[SP] */
958 sc = decode_srcdest4 (srcx, w);
960 a = get_reg (sp) + sign_ext (imm, 8);
969 /** 1110 1011 0reg 1src MOVA src,dest */
971 static reg_id map[] = { r0, r1, r2, r3, a0, a1, 0, 0 };
972 sc = decode_srcdest4 (8 + src, 0);
973 put_reg (map[reg], sc.u.addr);
975 /** 0111 1100 10hl dest MOVdir R0L,dest */
977 if (dest == 0 || dest == 4 || dest == 5)
979 dc = decode_srcdest4 (dest, 0);
984 case 0: a = (a & 0xf0) | (b & 0x0f); break;
985 case 1: a = (a & 0xf0) | ((b>>4) & 0x0f); break;
986 case 2: a = (a & 0x0f) | ((b & 0x0f)<<4); break;
987 case 3: a = (a & 0x0f) | (b & 0xf0); break;
991 /** 0111 1100 00hl srcx MOVdir src,R0L */
993 if (srcx == 0 || srcx == 4 || srcx == 5)
995 sc = decode_srcdest4 (srcx, 0);
1000 case 0: a = (a & 0xf0) | (b & 0x0f); break;
1001 case 1: a = (a & 0xf0) | ((b>>4) & 0x0f); break;
1002 case 2: a = (a & 0x0f) | ((b & 0x0f)<<4); break;
1003 case 3: a = (a & 0x0f) | (b & 0xf0); break;
1007 /** 0111 110w 0101 dest MUL.size #IMM,dest */
1010 imm = sign_ext (IMM(w), w?16:8);
1011 tprintf("%d * %d = %d\n", v, imm, v*imm);
1016 /** 0111 100w srcx dest MUL.size src,dest */
1020 tprintf("%d * %d = %d\n", a, b, v);
1024 /** 0111 110w 0100 dest MULU.size #IMM,dest */
1028 tprintf("%u * %u = %u\n", v, imm, v*imm);
1033 /** 0111 000w srcx dest MULU.size src,dest */
1037 tprintf("%u * %u = %u\n", a, b, v);
1041 /** 0111 010w 0101 dest NEG.size dest */
1044 tprintf("%d * -1 = %d\n", v, -v);
1046 set_oszc (v, w+1, v == 0);
1049 /** 0000 0100 NOP */
1053 /** 0111 010w 0111 dest NOT.size:G */
1056 tprintf("~ %x = %x\n", v, ~v);
1061 /** 1011 1dst NOT.B:S dest */
1063 dc = decode_dest3 (dst, 0);
1065 tprintf("~ %x = %x\n", v, ~v);
1070 /** 0111 011w 0011 dest OR.size:G #IMM,dest */
1074 tprintf ("%x | %x = %x\n", v, imm, v | imm);
1079 /** 1001 1dst OR.B:S #IMM8,dest */
1082 dc = decode_dest3 (dst, 0);
1084 tprintf("%x | %x = %x\n", v, imm, v|imm);
1089 /** 1001 100w srcx dest OR.size:G src,dest */
1092 tprintf ("%x | %x = %x\n", a, b, a | b);
1097 /** 0001 1d sr OR.B:S src,R0L/R0H */
1099 sc = decode_src2 (sr, 0, d);
1100 dc = decode_dest1 (d, 0);
1104 tprintf("%x | %x = %x\n", a, b, v);
1108 /** 0111 010w 1101 dest POP.size:G dest */
1110 dc = decode_srcdest4 (dest, w);
1113 v = mem_get_hi (get_reg (sp));
1114 put_reg (sp, get_reg (sp) + 2);
1115 tprintf("pophi: %x\n", v);
1119 v = mem_get_qi (get_reg (sp));
1120 put_reg (sp, get_reg (sp) + 1);
1121 tprintf("popqi: %x\n", v);
1125 /** 1001 d010 POP.B:S dest */
1127 v = mem_get_qi (get_reg (sp));
1128 put_reg (d ? r0h : r0l, v);
1129 put_reg (sp, get_reg (sp) + 1);
1130 tprintf("popqi: %x\n", v);
1132 /** 1101 d010 POP.W:S dest */
1134 v = mem_get_hi (get_reg (sp));
1135 put_reg (d ? a1 : a0, v);
1136 put_reg (sp, get_reg (sp) + 2);
1137 tprintf("pophi: %x\n", v);
1139 /** 1110 1011 0reg 0011 POPC dest */
1141 dc = decode_cr (reg);
1142 v = mem_get_hi (get_reg (sp));
1144 put_reg (sp, get_reg (sp) + 2);
1145 tprintf("popc: %x\n", v);
1147 /** 1110 1101 POPM dest */
1149 static int map[] = { r0, r1, r2, r3, a0, a1, sb, fb };
1151 tprintf("popm: %x\n", imm);
1155 v = mem_get_hi (get_reg (sp));
1156 put_reg (map[a], v);
1157 put_reg (sp, get_reg (sp) + 2);
1160 /** 0111 110w 1110 0010 PUSH.size:G #IMM */
1165 put_reg (sp, get_reg (sp) - 2);
1166 mem_put_hi (get_reg (sp), imm);
1167 tprintf("pushhi %04x\n", imm);
1171 put_reg (sp, get_reg (sp) - 1);
1172 mem_put_qi (get_reg (sp), imm);
1173 tprintf("pushqi %02x\n", imm);
1176 /** 0111 010w 0100 srcx PUSH.size:G src */
1178 sc = decode_srcdest4 (srcx, w);
1182 put_reg (sp, get_reg (sp) - 2);
1183 mem_put_hi (get_reg (sp), v);
1184 tprintf("pushhi: %x\n", v);
1188 put_reg (sp, get_reg (sp) - 1);
1189 mem_put_qi (get_reg (sp), v);
1190 tprintf("pushqi: %x\n", v);
1193 /** 1000 s010 PUSH.B:S src */
1195 v = get_reg (s ? r0h : r0l);
1196 put_reg (sp, get_reg (sp) - 1);
1197 mem_put_qi (get_reg (sp), v);
1198 tprintf("pushqi: %x\n", v);
1200 /** 1100 s010 PUSH.W:S src */
1202 v = get_reg (s ? a1 : a0);
1203 put_reg (sp, get_reg (sp) - 2);
1204 mem_put_hi (get_reg (sp), v);
1205 tprintf("pushhi: %x\n", v);
1207 /** 0111 1101 1001 srcx PUSHA src */
1209 sc = decode_srcdest4 (srcx, 0);
1210 put_reg (sp, get_reg (sp) - 2);
1211 mem_put_hi (get_reg (sp), sc.u.addr);
1212 tprintf("pushhi: %x\n", sc.u.addr);
1214 /** 1110 1011 0src 0010 PUSHC src */
1216 sc = decode_cr (src);
1217 put_reg (sp, get_reg (sp) - 2);
1219 mem_put_hi (get_reg (sp), v);
1220 tprintf("pushc: %x\n", v);
1222 /** 1110 1100 PUSHM src */
1224 static int map[] = { fb, sb, a1, a0, r3, r2, r1, r0 };
1226 tprintf("pushm: %x\n", imm);
1230 put_reg (sp, get_reg (sp) - 2);
1231 v = get_reg (map[a]);
1232 mem_put_hi (get_reg (sp), v);
1235 /** 1111 1011 REIT */
1239 + 65536 * (mem_get_qi (a+3) & 0x0f));
1240 b = (mem_get_qi (a+2)
1241 + 16 * (mem_get_qi (a+3) & 0xf0));
1244 put_reg (sp, get_reg (sp) + 4);
1246 /** 0111 110w 1111 0001 RMPA.size */
1248 int count = get_reg (r3);
1249 int list1 = get_reg (a0);
1250 int list2 = get_reg (a1);
1251 int sum = get_reg (w ? r2r0 : r0);
1257 a = sign_ext (mem_get_hi (list1), 16);
1258 b = sign_ext (mem_get_hi (list2), 16);
1262 a = sign_ext (mem_get_qi (list1), 8);
1263 b = sign_ext (mem_get_qi (list2), 8);
1265 tprintf("%d + %d * %d = ", sum, a, b);
1267 tprintf("%d\n", sum);
1272 put_reg (r3, count);
1273 put_reg (a0, list1);
1274 put_reg (a1, list2);
1275 put_reg (w ? r2r0 : r0, sum);
1277 /** 0111 011w 1010 dest ROLC.size dest */
1279 dc = decode_srcdest4 (dest, w);
1282 /** 0111 011w 1011 dest RORC.size dest */
1284 dc = decode_srcdest4 (dest, w);
1287 /** 1110 000w immm dest ROT.size #IMM,dest */
1289 dc = decode_srcdest4 (dest, w);
1290 rot_op (dc, 0, IMM4());
1292 /** 0111 010w 0110 dest ROT.size R1H,dest */
1294 dc = decode_srcdest4 (dest, w);
1295 rot_op (dc, 0, sign_ext (get_reg (r1h), 8));
1297 /** 1111 0011 RTS */
1299 put_reg (pc, mem_get_psi (get_reg (sp)));
1300 put_reg (sp, get_reg (sp) + 3);
1302 /** 0111 011w 0111 dest SBB.size #IMM,dest */
1304 dc = decode_srcdest4 (dest, w);
1306 MATH_OP (dc, imm, !carry, -, >= 0);
1308 /** 1011 100w srcx dest SBB.size src,dest */
1310 sc = decode_srcdest4(srcx, w);
1311 dc = decode_srcdest4(dest, w);
1313 MATH_OP (dc, b, !carry, -, >= 0);
1315 /** 1111 000w immm dest SHA.size #IMM, dest */
1317 dc = decode_srcdest4(dest, w);
1318 shift_op (dc, 1, IMM4());
1320 /** 0111 010w 1111 dest SHA.size R1H,dest */
1322 dc = decode_srcdest4(dest, w);
1323 a = sign_ext (get_reg (r1h), 8);
1324 shift_op (dc, 1, a);
1326 /** 1110 1011 101d immm SHA.L #IMM, dest */
1328 dc = reg_sd (d ? r3r1 : r2r0);
1329 shift_op (dc, 1, IMM4());
1331 /** 1110 1011 001d 0001 SHA.L R1H,dest */
1333 dc = reg_sd (d ? r3r1 : r2r0);
1334 a = sign_ext (get_reg (r1h), 8);
1335 shift_op (dc, 1, a);
1337 /** 1110 100w immm dest SHL.size #IMM, dest */
1339 dc = decode_srcdest4(dest, w);
1340 shift_op (dc, 0, IMM4());
1342 /** 0111 010w 1110 dest SHL.size R1H,dest */
1344 dc = decode_srcdest4(dest, w);
1345 a = sign_ext (get_reg (r1h), 8);
1346 shift_op (dc, 0, a);
1348 /** 1110 1011 100d immm SHL.L #IMM,dest */
1350 dc = reg_sd (d ? r3r1 : r2r0);
1351 shift_op (dc, 0, IMM4());
1353 /** 1110 1011 000d 0001 SHL.L R1H,dest */
1355 dc = reg_sd (d ? r3r1 : r2r0);
1356 a = sign_ext (get_reg (r1h), 8);
1357 shift_op (dc, 0, a);
1359 /** 0111 110w 1110 100b SMOVB.size */
1361 int count = get_reg (r3);
1362 int s1 = get_reg (a0) + (get_reg (r1h) << 16);
1363 int s2 = get_reg (a1);
1364 int inc = (w ? 2 : 1) * (b ? -1 : 1);
1370 v = mem_get_hi (s1);
1375 v = mem_get_qi (s1);
1382 put_reg (r3, count);
1383 put_reg (a0, s1 & 0xffff);
1385 put_reg (r1h, s1 >> 16);
1387 /** 0111 110w 1110 1010 SSTR.size */
1389 int count = get_reg (r3);
1390 int s1 = get_reg (a1);
1391 v = get_reg (w ? r0 : r0h);
1407 put_reg (r3, count);
1410 /** 0111 1011 1src dest STC src,dest */
1412 dc = decode_srcdest4 (dest, 1);
1413 sc = decode_cr (src);
1414 put_dest (dc, get_src(sc));
1416 /** 0111 1100 1100 dest STC PC,dest */
1418 dc = decode_srcdest4 (dest, 1);
1420 put_dest (dc, orig_pc);
1422 /** 0111 1101 1111 0000 STCTX abs16,abs20 */
1426 /** 0111 010w 0000 srcx STE.size src,abs20 */
1428 sc = decode_srcdest4 (srcx, w);
1435 if (srcx == 4 || srcx == 5)
1437 v = get_reg (sc.u.reg);
1443 /** 0111 010w 0001 srcx STE.size src,disp20[a0] */
1445 sc = decode_srcdest4 (srcx, w);
1446 a = get_reg(a0) + IMM(2);
1452 if (srcx == 4 || srcx == 5)
1454 v = get_reg (sc.u.reg);
1460 /** 0111 010w 0010 srcx STE.size src,[a1a0] */
1462 sc = decode_srcdest4 (srcx, w);
1469 if (srcx == 4 || srcx == 5)
1471 v = get_reg (sc.u.reg);
1477 /** 1101 0dst STNZ #IMM8,dest */
1480 dc = decode_dest3(dst, 0);
1484 /** 1100 1dst STZ #IMM8,dest */
1487 dc = decode_dest3(dst, 0);
1491 /** 1101 1dst STZX #IMM81,#IMM82,dest */
1494 dc = decode_dest3(dst, 0);
1501 /** 0111 011w 0101 dest SUB.size:G #IMM,dest */
1503 dc = decode_srcdest4 (dest, w);
1505 MATH_OP (dc, imm, 0, -, >= 0);
1507 /** 1000 1dst SUB.B:S #IMM8,dest */
1510 dc = decode_dest3 (dst, 0);
1511 MATH_OP (dc, imm, 0, -, >= 0);
1513 /** 1010 100w srcx dest SUB.size:G src,dest */
1515 sc = decode_srcdest4(srcx, w);
1516 dc = decode_srcdest4(dest, w);
1518 MATH_OP (dc, b, 0, -, > 0);
1520 /** 0010 1d sr SUB.B:S src,R0L/R0H */
1522 sc = decode_src2 (sr, 0, d);
1523 dc = decode_dest1 (d, 0);
1525 MATH_OP (dc, b, 0, -, > 0);
1527 /** 0111 011w 0000 dest TST.size #IMM, dest */
1531 tprintf ("%x & %x = %x\n", v, imm, v & imm);
1535 /** 1000 000w srcx dest TST.size src,dest */
1538 tprintf ("%x & %x = %x\n", a, b, a & b);
1542 /** 1111 1111 UND */
1544 trigger_fixed_interrupt (0xffdc);
1546 /** 0111 1101 1111 0011 WAIT */
1548 tprintf("waiting...\n");
1550 /** 0111 101w 00sr dest XCHG.size src,dest */
1552 sc = decode_srcdest4 (sr, w);
1553 dc = decode_srcdest4 (dest, w);
1559 /** 0111 011w 0001 dest XOR.size #IMM,dest */
1563 tprintf ("%x ^ %x = %x\n", v, imm, v ^ imm);
1568 /** 1000 100w srcx dest XOR.size src,dest */
1571 tprintf ("%x ^ %x = %x\n", a, b, a ^ b);