]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blame - sim/d10v/simops.c
projects / thirdparty / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
* config/sh/tm-sh.h (BELIEVE_PCC_PROMOTION): Define, so that
[thirdparty/binutils-gdb.git] / sim / d10v / simops.c
CommitLineData
fd435e9f
MM		 1#include "config.h"
2
4f425a32 3#include <signal.h>
63a91cfb
MM		 4#include <errno.h>
5#include <sys/types.h>
6#include <sys/stat.h>
fd435e9f 7#ifdef HAVE_UNISTD_H
63a91cfb 8#include <unistd.h>
fd435e9f 9#endif
63a91cfb 10
2934d1c9
MH		 11#include "d10v_sim.h"
12#include "simops.h"
df59058c 13#include "targ-vals.h"
2934d1c9 14
c422ecc7
MH		 15extern char *strrchr ();
16
87178dbd
MM		 17enum op_types {
18 OP_VOID,
19 OP_REG,
20 OP_REG_OUTPUT,
21 OP_DREG,
22 OP_DREG_OUTPUT,
23 OP_ACCUM,
24 OP_ACCUM_OUTPUT,
25 OP_ACCUM_REVERSE,
26 OP_CR,
27 OP_CR_OUTPUT,
28 OP_CR_REVERSE,
29 OP_FLAG,
60fc5b72 30 OP_FLAG_OUTPUT,
87178dbd 31 OP_CONSTANT16,
a18cb100 32 OP_CONSTANT8,
87178dbd
MM		 33 OP_CONSTANT3,
34 OP_CONSTANT4,
35 OP_MEMREF,
36 OP_MEMREF2,
37 OP_POSTDEC,
38 OP_POSTINC,
a18cb100 39 OP_PREDEC,
8831cb01
MM		 40 OP_R0,
41 OP_R1,
a18cb100 42 OP_R2,
87178dbd
MM		 43};
44
bc6df23d 45
df59058c
JM		 46enum {
47 PSW_MASK = (PSW_SM_BIT
48 | PSW_EA_BIT
49 | PSW_DB_BIT
50 | PSW_DM_BIT
51 | PSW_IE_BIT
52 | PSW_RP_BIT
53 | PSW_MD_BIT
54 | PSW_FX_BIT
55 | PSW_ST_BIT
56 | PSW_F0_BIT
57 | PSW_F1_BIT
58 | PSW_C_BIT),
59};
60
61reg_t
62move_to_cr (int cr, reg_t mask, reg_t val)
bc6df23d 63{
df59058c
JM		 64 /* A MASK bit is set when the corresponding bit in the CR should
65 be left alone */
66 /* This assumes that (VAL & MASK) == 0 */
bc6df23d
AC		 67 switch (cr)
68 {
69 case PSW_CR:
df59058c
JM		 70 val &= PSW_MASK;
71 if ((mask & PSW_SM_BIT) == 0)
bc6df23d 72 {
df59058c
JM		 73 int new_sm = (val & PSW_SM_BIT) != 0;
74 SET_HELD_SP (PSW_SM, GPR (SP_IDX)); /* save old SP */
75 if (PSW_SM != new_sm)
76 SET_GPR (SP_IDX, HELD_SP (new_sm)); /* restore new SP */
bc6df23d 77 }
df59058c
JM		 78 if ((mask & (PSW_ST_BIT | PSW_FX_BIT)) == 0)
79 {
80 if (val & PSW_ST_BIT && !(val & PSW_FX_BIT))
81 {
82 (*d10v_callback->printf_filtered)
83 (d10v_callback,
84 "ERROR at PC 0x%x: ST can only be set when FX is set.\n",
85 PC<<2);
86 State.exception = SIGILL;
87 }
88 }
89 /* keep an up-to-date psw around for tracing */
90 State.trace.psw = (State.trace.psw & mask) | val;
bc6df23d
AC		 91 break;
92 case BPSW_CR:
19431a02 93 case DPSW_CR:
df59058c 94 val &= PSW_MASK;
bc6df23d
AC		 95 break;
96 case MOD_S_CR:
97 case MOD_E_CR:
df59058c 98 val &= ~1;
bc6df23d
AC		 99 break;
100 default:
bc6df23d
AC		 101 break;
102 }
df59058c
JM		 103 /* only issue an update if the register is being changed */
104 if ((State.cregs[cr] & ~mask) != val)
105 SLOT_PEND_MASK (State.cregs[cr], mask, val);
bc6df23d
AC		 106 return val;
107}
108
7eebfc62 109#ifdef DEBUG
a49a15ad
MM		 110static void trace_input_func PARAMS ((char *name,
111 enum op_types in1,
112 enum op_types in2,
113 enum op_types in3));
87178dbd 114
a49a15ad
MM		 115#define trace_input(name, in1, in2, in3) do { if (d10v_debug) trace_input_func (name, in1, in2, in3); } while (0)
116
87178dbd 117#ifndef SIZE_INSTRUCTION
a49a15ad 118#define SIZE_INSTRUCTION 8
87178dbd
MM		 119#endif
120
121#ifndef SIZE_OPERANDS
a49a15ad 122#define SIZE_OPERANDS 18
87178dbd
MM		 123#endif
124
125#ifndef SIZE_VALUES
126#define SIZE_VALUES 13
127#endif
128
a49a15ad
MM		 129#ifndef SIZE_LOCATION
130#define SIZE_LOCATION 20
131#endif
132
891513ee
MM		 133#ifndef SIZE_PC
134#define SIZE_PC 6
135#endif
136
137#ifndef SIZE_LINE_NUMBER
138#define SIZE_LINE_NUMBER 4
139#endif
140
87178dbd 141static void
a49a15ad 142trace_input_func (name, in1, in2, in3)
87178dbd
MM		 143 char *name;
144 enum op_types in1;
145 enum op_types in2;
146 enum op_types in3;
147{
148 char *comma;
149 enum op_types in[3];
150 int i;
a49a15ad 151 char buf[1024];
87178dbd
MM		 152 char *p;
153 long tmp;
154 char *type;
a49a15ad
MM		 155 const char *filename;
156 const char *functionname;
157 unsigned int linenumber;
158 bfd_vma byte_pc;
87178dbd 159
7eebfc62
MM		 160 if ((d10v_debug & DEBUG_TRACE) == 0)
161 return;
162
87178dbd
MM		 163 switch (State.ins_type)
164 {
165 default:
166 case INS_UNKNOWN: type = " ?"; break;
167 case INS_LEFT: type = " L"; break;
168 case INS_RIGHT: type = " R"; break;
169 case INS_LEFT_PARALLEL: type = "*L"; break;
170 case INS_RIGHT_PARALLEL: type = "*R"; break;
c422ecc7
MH		 171 case INS_LEFT_COND_TEST: type = "?L"; break;
172 case INS_RIGHT_COND_TEST: type = "?R"; break;
173 case INS_LEFT_COND_EXE: type = "&L"; break;
174 case INS_RIGHT_COND_EXE: type = "&R"; break;
87178dbd
MM		 175 case INS_LONG: type = " B"; break;
176 }
177
a49a15ad
MM		 178 if ((d10v_debug & DEBUG_LINE_NUMBER) == 0)
179 (*d10v_callback->printf_filtered) (d10v_callback,
f061ddf6 180 "0x%.*x %s: %-*s ",
891513ee
MM		 181 SIZE_PC, (unsigned)PC,
182 type,
a49a15ad
MM		 183 SIZE_INSTRUCTION, name);
184
185 else
186 {
891513ee 187 buf[0] = '\0';
b30cdd35 188 byte_pc = decode_pc ();
a49a15ad
MM		 189 if (text && byte_pc >= text_start && byte_pc < text_end)
190 {
191 filename = (const char *)0;
192 functionname = (const char *)0;
193 linenumber = 0;
b83093ff 194 if (bfd_find_nearest_line (prog_bfd, text, (struct symbol_cache_entry **)0, byte_pc - text_start,
a49a15ad
MM		 195 &filename, &functionname, &linenumber))
196 {
197 p = buf;
198 if (linenumber)
199 {
891513ee 200 sprintf (p, "#%-*d ", SIZE_LINE_NUMBER, linenumber);
a49a15ad
MM		 201 p += strlen (p);
202 }
891513ee
MM		 203 else
204 {
205 sprintf (p, "%-*s ", SIZE_LINE_NUMBER+1, "---");
206 p += SIZE_LINE_NUMBER+2;
207 }
a49a15ad
MM		 208
209 if (functionname)
210 {
211 sprintf (p, "%s ", functionname);
212 p += strlen (p);
213 }
214 else if (filename)
215 {
c422ecc7 216 char *q = strrchr (filename, '/');
a49a15ad
MM		 217 sprintf (p, "%s ", (q) ? q+1 : filename);
218 p += strlen (p);
219 }
220
221 if (*p == ' ')
222 *p = '\0';
223 }
224 }
225
226 (*d10v_callback->printf_filtered) (d10v_callback,
f061ddf6 227 "0x%.*x %s: %-*.*s %-*s ",
891513ee
MM		 228 SIZE_PC, (unsigned)PC,
229 type,
a49a15ad
MM		 230 SIZE_LOCATION, SIZE_LOCATION, buf,
231 SIZE_INSTRUCTION, name);
232 }
87178dbd
MM		 233
234 in[0] = in1;
235 in[1] = in2;
236 in[2] = in3;
237 comma = "";
238 p = buf;
239 for (i = 0; i < 3; i++)
240 {
241 switch (in[i])
242 {
243 case OP_VOID:
8831cb01
MM		 244 case OP_R0:
245 case OP_R1:
a18cb100 246 case OP_R2:
87178dbd
MM		 247 break;
248
249 case OP_REG:
250 case OP_REG_OUTPUT:
251 case OP_DREG:
252 case OP_DREG_OUTPUT:
253 sprintf (p, "%sr%d", comma, OP[i]);
254 p += strlen (p);
255 comma = ",";
256 break;
257
258 case OP_CR:
259 case OP_CR_OUTPUT:
260 case OP_CR_REVERSE:
261 sprintf (p, "%scr%d", comma, OP[i]);
262 p += strlen (p);
263 comma = ",";
264 break;
265
266 case OP_ACCUM:
267 case OP_ACCUM_OUTPUT:
268 case OP_ACCUM_REVERSE:
269 sprintf (p, "%sa%d", comma, OP[i]);
270 p += strlen (p);
271 comma = ",";
272 break;
273
274 case OP_CONSTANT16:
275 sprintf (p, "%s%d", comma, OP[i]);
276 p += strlen (p);
277 comma = ",";
278 break;
279
a18cb100
MM		 280 case OP_CONSTANT8:
281 sprintf (p, "%s%d", comma, SEXT8(OP[i]));
282 p += strlen (p);
283 comma = ",";
284 break;
285
87178dbd
MM		 286 case OP_CONSTANT4:
287 sprintf (p, "%s%d", comma, SEXT4(OP[i]));
288 p += strlen (p);
289 comma = ",";
290 break;
291
292 case OP_CONSTANT3:
293 sprintf (p, "%s%d", comma, SEXT3(OP[i]));
294 p += strlen (p);
295 comma = ",";
296 break;
297
298 case OP_MEMREF:
299 sprintf (p, "%s@r%d", comma, OP[i]);
300 p += strlen (p);
301 comma = ",";
302 break;
303
304 case OP_MEMREF2:
305 sprintf (p, "%s@(%d,r%d)", comma, (int16)OP[i], OP[i+1]);
306 p += strlen (p);
307 comma = ",";
308 break;
309
310 case OP_POSTINC:
311 sprintf (p, "%s@r%d+", comma, OP[i]);
312 p += strlen (p);
313 comma = ",";
314 break;
315
316 case OP_POSTDEC:
317 sprintf (p, "%s@r%d-", comma, OP[i]);
318 p += strlen (p);
319 comma = ",";
320 break;
321
322 case OP_PREDEC:
323 sprintf (p, "%s@-r%d", comma, OP[i]);
324 p += strlen (p);
325 comma = ",";
326 break;
327
328 case OP_FLAG:
60fc5b72 329 case OP_FLAG_OUTPUT:
87178dbd
MM		 330 if (OP[i] == 0)
331 sprintf (p, "%sf0", comma);
332
333 else if (OP[i] == 1)
334 sprintf (p, "%sf1", comma);
335
336 else
60fc5b72 337 sprintf (p, "%sc", comma);
87178dbd
MM		 338
339 p += strlen (p);
340 comma = ",";
341 break;
342 }
343 }
344
7eebfc62
MM		 345 if ((d10v_debug & DEBUG_VALUES) == 0)
346 {
347 *p++ = '\n';
348 *p = '\0';
349 (*d10v_callback->printf_filtered) (d10v_callback, "%s", buf);
350 }
351 else
352 {
353 *p = '\0';
354 (*d10v_callback->printf_filtered) (d10v_callback, "%-*s", SIZE_OPERANDS, buf);
87178dbd 355
7eebfc62
MM		 356 p = buf;
357 for (i = 0; i < 3; i++)
358 {
359 buf[0] = '\0';
360 switch (in[i])
361 {
362 case OP_VOID:
363 (*d10v_callback->printf_filtered) (d10v_callback, "%*s", SIZE_VALUES, "");
364 break;
365
366 case OP_REG_OUTPUT:
367 case OP_DREG_OUTPUT:
368 case OP_CR_OUTPUT:
369 case OP_ACCUM_OUTPUT:
60fc5b72 370 case OP_FLAG_OUTPUT:
7eebfc62
MM		 371 (*d10v_callback->printf_filtered) (d10v_callback, "%*s", SIZE_VALUES, "---");
372 break;
373
374 case OP_REG:
375 case OP_MEMREF:
376 case OP_POSTDEC:
377 case OP_POSTINC:
378 case OP_PREDEC:
379 (*d10v_callback->printf_filtered) (d10v_callback, "%*s0x%.4x", SIZE_VALUES-6, "",
df59058c 380 (uint16) GPR (OP[i]));
7eebfc62
MM		 381 break;
382
383 case OP_DREG:
df59058c 384 tmp = (long)((((uint32) GPR (OP[i])) << 16) | ((uint32) GPR (OP[i] + 1)));
7eebfc62
MM		 385 (*d10v_callback->printf_filtered) (d10v_callback, "%*s0x%.8lx", SIZE_VALUES-10, "", tmp);
386 break;
387
388 case OP_CR:
389 case OP_CR_REVERSE:
390 (*d10v_callback->printf_filtered) (d10v_callback, "%*s0x%.4x", SIZE_VALUES-6, "",
df59058c 391 (uint16) CREG (OP[i]));
7eebfc62
MM		 392 break;
393
394 case OP_ACCUM:
395 case OP_ACCUM_REVERSE:
396 (*d10v_callback->printf_filtered) (d10v_callback, "%*s0x%.2x%.8lx", SIZE_VALUES-12, "",
df59058c
JM		 397 ((int)(ACC (OP[i]) >> 32) & 0xff),
398 ((unsigned long) ACC (OP[i])) & 0xffffffff);
7eebfc62
MM		 399 break;
400
401 case OP_CONSTANT16:
402 (*d10v_callback->printf_filtered) (d10v_callback, "%*s0x%.4x", SIZE_VALUES-6, "",
403 (uint16)OP[i]);
404 break;
405
406 case OP_CONSTANT4:
407 (*d10v_callback->printf_filtered) (d10v_callback, "%*s0x%.4x", SIZE_VALUES-6, "",
408 (uint16)SEXT4(OP[i]));
409 break;
410
a18cb100
MM		 411 case OP_CONSTANT8:
412 (*d10v_callback->printf_filtered) (d10v_callback, "%*s0x%.4x", SIZE_VALUES-6, "",
413 (uint16)SEXT8(OP[i]));
414 break;
415
7eebfc62
MM		 416 case OP_CONSTANT3:
417 (*d10v_callback->printf_filtered) (d10v_callback, "%*s0x%.4x", SIZE_VALUES-6, "",
418 (uint16)SEXT3(OP[i]));
419 break;
420
421 case OP_FLAG:
422 if (OP[i] == 0)
423 (*d10v_callback->printf_filtered) (d10v_callback, "%*sF0 = %d", SIZE_VALUES-6, "",
df59058c 424 PSW_F0 != 0);
7eebfc62
MM		 425
426 else if (OP[i] == 1)
427 (*d10v_callback->printf_filtered) (d10v_callback, "%*sF1 = %d", SIZE_VALUES-6, "",
df59058c 428 PSW_F1 != 0);
7eebfc62
MM		 429
430 else
431 (*d10v_callback->printf_filtered) (d10v_callback, "%*sC = %d", SIZE_VALUES-5, "",
df59058c 432 PSW_C != 0);
7eebfc62
MM		 433
434 break;
435
436 case OP_MEMREF2:
437 (*d10v_callback->printf_filtered) (d10v_callback, "%*s0x%.4x", SIZE_VALUES-6, "",
438 (uint16)OP[i]);
439 (*d10v_callback->printf_filtered) (d10v_callback, "%*s0x%.4x", SIZE_VALUES-6, "",
df59058c
JM		 440 (uint16)GPR (OP[i + 1]));
441 i++;
7eebfc62 442 break;
a18cb100 443
8831cb01 444 case OP_R0:
a18cb100 445 (*d10v_callback->printf_filtered) (d10v_callback, "%*s0x%.4x", SIZE_VALUES-6, "",
df59058c 446 (uint16) GPR (0));
a18cb100
MM		 447 break;
448
8831cb01 449 case OP_R1:
a18cb100 450 (*d10v_callback->printf_filtered) (d10v_callback, "%*s0x%.4x", SIZE_VALUES-6, "",
df59058c 451 (uint16) GPR (1));
a18cb100 452 break;
8918b3a7 453
8831cb01 454 case OP_R2:
8918b3a7 455 (*d10v_callback->printf_filtered) (d10v_callback, "%*s0x%.4x", SIZE_VALUES-6, "",
df59058c 456 (uint16) GPR (2));
8918b3a7 457 break;
c422ecc7 458
7eebfc62
MM		 459 }
460 }
461 }
fd435e9f
MM		 462
463 (*d10v_callback->flush_stdout) (d10v_callback);
7eebfc62 464}
87178dbd 465
7eebfc62 466static void
df59058c 467do_trace_output_flush (void)
7eebfc62 468{
df59058c
JM		 469 (*d10v_callback->flush_stdout) (d10v_callback);
470}
87178dbd 471
df59058c
JM		 472static void
473do_trace_output_finish (void)
474{
475 (*d10v_callback->printf_filtered) (d10v_callback,
476 " F0=%d F1=%d C=%d\n",
477 (State.trace.psw & PSW_F0_BIT) != 0,
478 (State.trace.psw & PSW_F1_BIT) != 0,
479 (State.trace.psw & PSW_C_BIT) != 0);
480 (*d10v_callback->flush_stdout) (d10v_callback);
481}
87178dbd 482
df59058c
JM		 483static void
484trace_output_40 (uint64 val)
485{
486 if ((d10v_debug & (DEBUG_TRACE | DEBUG_VALUES)) == (DEBUG_TRACE | DEBUG_VALUES))
487 {
488 (*d10v_callback->printf_filtered) (d10v_callback,
489 " :: %*s0x%.2x%.8lx",
490 SIZE_VALUES - 12,
491 "",
492 ((int)(val >> 32) & 0xff),
493 ((unsigned long) val) & 0xffffffff);
494 do_trace_output_finish ();
495 }
496}
87178dbd 497
df59058c
JM		 498static void
499trace_output_32 (uint32 val)
500{
501 if ((d10v_debug & (DEBUG_TRACE | DEBUG_VALUES)) == (DEBUG_TRACE | DEBUG_VALUES))
502 {
503 (*d10v_callback->printf_filtered) (d10v_callback,
504 " :: %*s0x%.8x",
505 SIZE_VALUES - 10,
506 "",
507 (int) val);
508 do_trace_output_finish ();
509 }
510}
87178dbd 511
df59058c
JM		 512static void
513trace_output_16 (uint16 val)
514{
515 if ((d10v_debug & (DEBUG_TRACE | DEBUG_VALUES)) == (DEBUG_TRACE | DEBUG_VALUES))
516 {
517 (*d10v_callback->printf_filtered) (d10v_callback,
518 " :: %*s0x%.4x",
519 SIZE_VALUES - 6,
520 "",
521 (int) val);
522 do_trace_output_finish ();
523 }
524}
87178dbd 525
df59058c
JM		 526static void
527trace_output_void ()
528{
529 if ((d10v_debug & (DEBUG_TRACE | DEBUG_VALUES)) == (DEBUG_TRACE | DEBUG_VALUES))
530 {
531 (*d10v_callback->printf_filtered) (d10v_callback, "\n");
532 do_trace_output_flush ();
533 }
534}
87178dbd 535
df59058c
JM		 536static void
537trace_output_flag ()
538{
539 if ((d10v_debug & (DEBUG_TRACE | DEBUG_VALUES)) == (DEBUG_TRACE | DEBUG_VALUES))
540 {
541 (*d10v_callback->printf_filtered) (d10v_callback,
542 " :: %*s",
543 SIZE_VALUES,
544 "");
545 do_trace_output_finish ();
546 }
547}
8918b3a7 548
8918b3a7 549
fd435e9f 550
87178dbd
MM		 551
552#else
553#define trace_input(NAME, IN1, IN2, IN3)
554#define trace_output(RESULT)
555#endif
2934d1c9
MH		 556
557/* abs */
558void
559OP_4607 ()
560{
df59058c 561 int16 tmp;
87178dbd 562 trace_input ("abs", OP_REG, OP_VOID, OP_VOID);
df59058c
JM		 563 SET_PSW_F1 (PSW_F0);
564 tmp = GPR(OP[0]);
565 if (tmp < 0)
2934d1c9 566 {
df59058c
JM		 567 tmp = - tmp;
568 SET_PSW_F0 (1);
2934d1c9
MH		 569 }
570 else
df59058c
JM		 571 SET_PSW_F0 (0);
572 SET_GPR (OP[0], tmp);
573 trace_output_16 (tmp);
2934d1c9
MH		 574}
575
576/* abs */
577void
578OP_5607 ()
579{
580 int64 tmp;
87178dbd 581 trace_input ("abs", OP_ACCUM, OP_VOID, OP_VOID);
df59058c 582 SET_PSW_F1 (PSW_F0);
4f425a32 583
df59058c
JM		 584 tmp = SEXT40 (ACC (OP[0]));
585 if (tmp < 0 )
2934d1c9 586 {
df59058c
JM		 587 tmp = - tmp;
588 if (PSW_ST)
2934d1c9 589 {
df59058c
JM		 590 if (tmp > SEXT40(MAX32))
591 tmp = MAX32;
592 else if (tmp < SEXT40(MIN32))
593 tmp = MIN32;
2934d1c9 594 else
df59058c 595 tmp = (tmp & MASK40);
2934d1c9
MH		 596 }
597 else
df59058c
JM		 598 tmp = (tmp & MASK40);
599 SET_PSW_F0 (1);
2934d1c9
MH		 600 }
601 else
df59058c
JM		 602 {
603 tmp = (tmp & MASK40);
604 SET_PSW_F0 (0);
605 }
606 SET_ACC (OP[0], tmp);
607 trace_output_40 (tmp);
2934d1c9
MH		 608}
609
610/* add */
611void
612OP_200 ()
613{
df59058c
JM		 614 uint16 a = GPR (OP[0]);
615 uint16 b = GPR (OP[1]);
616 uint16 tmp = (a + b);
87178dbd 617 trace_input ("add", OP_REG, OP_REG, OP_VOID);
df59058c
JM		 618 SET_PSW_C (a > tmp);
619 SET_GPR (OP[0], tmp);
620 trace_output_16 (tmp);
2934d1c9
MH		 621}
622
623/* add */
624void
625OP_1201 ()
626{
4c38885c 627 int64 tmp;
df59058c 628 tmp = SEXT40(ACC (OP[0])) + (SEXT16 (GPR (OP[1])) << 16 | GPR (OP[1] + 1));
87178dbd
MM		 629
630 trace_input ("add", OP_ACCUM, OP_REG, OP_VOID);
df59058c 631 if (PSW_ST)
4c38885c
MH		 632 {
633 if ( tmp > MAX32)
df59058c 634 tmp = MAX32;
4c38885c 635 else if ( tmp < MIN32)
df59058c 636 tmp = MIN32;
4c38885c 637 else
df59058c 638 tmp = (tmp & MASK40);
4c38885c
MH		 639 }
640 else
df59058c
JM		 641 tmp = (tmp & MASK40);
642 SET_ACC (OP[0], tmp);
643 trace_output_40 (tmp);
2934d1c9
MH		 644}
645
646/* add */
647void
648OP_1203 ()
649{
4c38885c 650 int64 tmp;
df59058c 651 tmp = SEXT40(ACC (OP[0])) + SEXT40(ACC (OP[1]));
87178dbd
MM		 652
653 trace_input ("add", OP_ACCUM, OP_ACCUM, OP_VOID);
df59058c 654 if (PSW_ST)
4c38885c
MH		 655 {
656 if (tmp > MAX32)
df59058c 657 tmp = MAX32;
4c38885c 658 else if ( tmp < MIN32)
df59058c 659 tmp = MIN32;
4c38885c 660 else
df59058c 661 tmp = (tmp & MASK40);
4c38885c
MH		 662 }
663 else
df59058c
JM		 664 tmp = (tmp & MASK40);
665 SET_ACC (OP[0], tmp);
666 trace_output_40 (tmp);
2934d1c9
MH		 667}
668
669/* add2w */
670void
671OP_1200 ()
672{
673 uint32 tmp;
df59058c
JM		 674 uint32 a = (GPR (OP[0])) << 16 | GPR (OP[0] + 1);
675 uint32 b = (GPR (OP[1])) << 16 | GPR (OP[1] + 1);
87178dbd 676 trace_input ("add2w", OP_DREG, OP_DREG, OP_VOID);
f4b022d3 677 tmp = a + b;
df59058c
JM		 678 SET_PSW_C (tmp < a);
679 SET_GPR (OP[0] + 0, (tmp >> 16));
680 SET_GPR (OP[0] + 1, (tmp & 0xFFFF));
681 trace_output_32 (tmp);
2934d1c9
MH		 682}
683
684/* add3 */
685void
686OP_1000000 ()
687{
df59058c
JM		 688 uint16 a = GPR (OP[1]);
689 uint16 b = OP[2];
690 uint16 tmp = (a + b);
87178dbd 691 trace_input ("add3", OP_REG_OUTPUT, OP_REG, OP_CONSTANT16);
df59058c
JM		 692 SET_PSW_C (tmp < a);
693 SET_GPR (OP[0], tmp);
694 trace_output_16 (tmp);
2934d1c9
MH		 695}
696
697/* addac3 */
698void
699OP_17000200 ()
700{
4c38885c 701 int64 tmp;
df59058c 702 tmp = SEXT40(ACC (OP[2])) + SEXT40 ((GPR (OP[1]) << 16) | GPR (OP[1] + 1));
87178dbd
MM		 703
704 trace_input ("addac3", OP_DREG_OUTPUT, OP_DREG, OP_ACCUM);
df59058c
JM		 705 SET_GPR (OP[0] + 0, ((tmp >> 16) & 0xffff));
706 SET_GPR (OP[0] + 1, (tmp & 0xffff));
707 trace_output_32 (tmp);
2934d1c9
MH		 708}
709
710/* addac3 */
711void
712OP_17000202 ()
713{
4c38885c 714 int64 tmp;
df59058c 715 tmp = SEXT40(ACC (OP[1])) + SEXT40(ACC (OP[2]));
87178dbd
MM		 716
717 trace_input ("addac3", OP_DREG_OUTPUT, OP_ACCUM, OP_ACCUM);
df59058c
JM		 718 SET_GPR (OP[0] + 0, (tmp >> 16) & 0xffff);
719 SET_GPR (OP[0] + 1, tmp & 0xffff);
720 trace_output_32 (tmp);
2934d1c9
MH		 721}
722
723/* addac3s */
724void
725OP_17001200 ()
726{
4c38885c 727 int64 tmp;
df59058c 728 SET_PSW_F1 (PSW_F0);
87178dbd
MM		 729
730 trace_input ("addac3s", OP_DREG_OUTPUT, OP_DREG, OP_ACCUM);
df59058c 731 tmp = SEXT40 (ACC (OP[2])) + SEXT40 ((GPR (OP[1]) << 16) | GPR (OP[1] + 1));
4c38885c
MH		 732 if ( tmp > MAX32)
733 {
df59058c
JM		 734 tmp = 0x7fffffff;
735 SET_PSW_F0 (1);
4c38885c
MH		 736 }
737 else if (tmp < MIN32)
738 {
df59058c
JM		 739 tmp = 0x80000000;
740 SET_PSW_F0 (1);
4c38885c
MH		 741 }
742 else
743 {
df59058c 744 SET_PSW_F0 (0);
4c38885c 745 }
df59058c
JM		 746 SET_GPR (OP[0] + 0, (tmp >> 16) & 0xffff);
747 SET_GPR (OP[0] + 1, (tmp & 0xffff));
748 trace_output_32 (tmp);
2934d1c9
MH		 749}
750
751/* addac3s */
752void
753OP_17001202 ()
754{
4c38885c 755 int64 tmp;
df59058c 756 SET_PSW_F1 (PSW_F0);
87178dbd
MM		 757
758 trace_input ("addac3s", OP_DREG_OUTPUT, OP_ACCUM, OP_ACCUM);
df59058c 759 tmp = SEXT40(ACC (OP[1])) + SEXT40(ACC (OP[2]));
4c38885c
MH		 760 if ( tmp > MAX32)
761 {
df59058c
JM		 762 tmp = 0x7fffffff;
763 SET_PSW_F0 (1);
4c38885c
MH		 764 }
765 else if (tmp < MIN32)
766 {
df59058c
JM		 767 tmp = 0x80000000;
768 SET_PSW_F0 (1);
4c38885c
MH		 769 }
770 else
771 {
df59058c 772 SET_PSW_F0 (0);
4c38885c 773 }
df59058c
JM		 774 SET_GPR (OP[0] + 0, (tmp >> 16) & 0xffff);
775 SET_GPR (OP[0] + 1, (tmp & 0xffff));
776 trace_output_32 (tmp);
2934d1c9
MH		 777}
778
779/* addi */
780void
781OP_201 ()
782{
df59058c
JM		 783 uint16 a = GPR (OP[0]);
784 uint16 b;
785 uint16 tmp;
4f425a32
MH		 786 if (OP[1] == 0)
787 OP[1] = 16;
df59058c
JM		 788 b = OP[1];
789 tmp = (a + b);
87178dbd 790 trace_input ("addi", OP_REG, OP_CONSTANT16, OP_VOID);
df59058c
JM		 791 SET_PSW_C (tmp < a);
792 SET_GPR (OP[0], tmp);
793 trace_output_16 (tmp);
2934d1c9
MH		 794}
795
796/* and */
797void
798OP_C00 ()
799{
df59058c 800 uint16 tmp = GPR (OP[0]) & GPR (OP[1]);
87178dbd 801 trace_input ("and", OP_REG, OP_REG, OP_VOID);
df59058c
JM		 802 SET_GPR (OP[0], tmp);
803 trace_output_16 (tmp);
2934d1c9
MH		 804}
805
806/* and3 */
807void
808OP_6000000 ()
809{
df59058c 810 uint16 tmp = GPR (OP[1]) & OP[2];
87178dbd 811 trace_input ("and3", OP_REG_OUTPUT, OP_REG, OP_CONSTANT16);
df59058c
JM		 812 SET_GPR (OP[0], tmp);
813 trace_output_16 (tmp);
2934d1c9
MH		 814}
815
816/* bclri */
817void
818OP_C01 ()
819{
df59058c 820 int16 tmp;
87178dbd 821 trace_input ("bclri", OP_REG, OP_CONSTANT16, OP_VOID);
df59058c
JM		 822 tmp = (GPR (OP[0]) &~(0x8000 >> OP[1]));
823 SET_GPR (OP[0], tmp);
824 trace_output_16 (tmp);
2934d1c9
MH		 825}
826
827/* bl.s */
828void
829OP_4900 ()
830{
8831cb01 831 trace_input ("bl.s", OP_CONSTANT8, OP_R0, OP_R1);
df59058c 832 SET_GPR (13, PC + 1);
fd435e9f 833 JMP( PC + SEXT8 (OP[0]));
df59058c 834 trace_output_void ();
2934d1c9
MH		 835}
836
837/* bl.l */
838void
839OP_24800000 ()
840{
8831cb01 841 trace_input ("bl.l", OP_CONSTANT16, OP_R0, OP_R1);
df59058c 842 SET_GPR (13, (PC + 1));
fd435e9f 843 JMP (PC + OP[0]);
df59058c 844 trace_output_void ();
2934d1c9
MH		 845}
846
847/* bnoti */
848void
849OP_A01 ()
850{
df59058c 851 int16 tmp;
87178dbd 852 trace_input ("bnoti", OP_REG, OP_CONSTANT16, OP_VOID);
df59058c
JM		 853 tmp = (GPR (OP[0]) ^ (0x8000 >> OP[1]));
854 SET_GPR (OP[0], tmp);
855 trace_output_16 (tmp);
2934d1c9
MH		 856}
857
858/* bra.s */
859void
860OP_4800 ()
861{
a18cb100 862 trace_input ("bra.s", OP_CONSTANT8, OP_VOID, OP_VOID);
fd435e9f 863 JMP (PC + SEXT8 (OP[0]));
df59058c 864 trace_output_void ();
2934d1c9
MH		 865}
866
867/* bra.l */
868void
869OP_24000000 ()
870{
87178dbd 871 trace_input ("bra.l", OP_CONSTANT16, OP_VOID, OP_VOID);
fd435e9f 872 JMP (PC + OP[0]);
df59058c 873 trace_output_void ();
2934d1c9
MH		 874}
875
876/* brf0f.s */
877void
878OP_4A00 ()
879{
a18cb100 880 trace_input ("brf0f.s", OP_CONSTANT8, OP_VOID, OP_VOID);
df59058c 881 if (!PSW_F0)
fd435e9f 882 JMP (PC + SEXT8 (OP[0]));
df59058c 883 trace_output_flag ();
2934d1c9
MH		 884}
885
886/* brf0f.l */
887void
888OP_25000000 ()
889{
87178dbd 890 trace_input ("brf0f.l", OP_CONSTANT16, OP_VOID, OP_VOID);
df59058c 891 if (!PSW_F0)
fd435e9f 892 JMP (PC + OP[0]);
df59058c 893 trace_output_flag ();
2934d1c9
MH		 894}
895
896/* brf0t.s */
897void
898OP_4B00 ()
899{
a18cb100 900 trace_input ("brf0t.s", OP_CONSTANT8, OP_VOID, OP_VOID);
df59058c 901 if (PSW_F0)
fd435e9f 902 JMP (PC + SEXT8 (OP[0]));
df59058c 903 trace_output_flag ();
2934d1c9
MH		 904}
905
906/* brf0t.l */
907void
908OP_25800000 ()
909{
87178dbd 910 trace_input ("brf0t.l", OP_CONSTANT16, OP_VOID, OP_VOID);
df59058c 911 if (PSW_F0)
fd435e9f 912 JMP (PC + OP[0]);
df59058c 913 trace_output_flag ();
2934d1c9
MH		 914}
915
916/* bseti */
917void
918OP_801 ()
919{
df59058c 920 int16 tmp;
87178dbd 921 trace_input ("bseti", OP_REG, OP_CONSTANT16, OP_VOID);
df59058c
JM		 922 tmp = (GPR (OP[0]) | (0x8000 >> OP[1]));
923 SET_GPR (OP[0], tmp);
924 trace_output_16 (tmp);
2934d1c9
MH		 925}
926
927/* btsti */
928void
929OP_E01 ()
930{
87178dbd 931 trace_input ("btsti", OP_REG, OP_CONSTANT16, OP_VOID);
df59058c
JM		 932 SET_PSW_F1 (PSW_F0);
933 SET_PSW_F0 ((GPR (OP[0]) & (0x8000 >> OP[1])) ? 1 : 0);
934 trace_output_flag ();
2934d1c9
MH		 935}
936
937/* clrac */
938void
939OP_5601 ()
940{
87178dbd 941 trace_input ("clrac", OP_ACCUM_OUTPUT, OP_VOID, OP_VOID);
df59058c
JM		 942 SET_ACC (OP[0], 0);
943 trace_output_40 (0);
2934d1c9
MH		 944}
945
946/* cmp */
947void
948OP_600 ()
949{
87178dbd 950 trace_input ("cmp", OP_REG, OP_REG, OP_VOID);
df59058c
JM		 951 SET_PSW_F1 (PSW_F0);
952 SET_PSW_F0 (((int16)(GPR (OP[0])) < (int16)(GPR (OP[1]))) ? 1 : 0);
953 trace_output_flag ();
2934d1c9
MH		 954}
955
956/* cmp */
957void
958OP_1603 ()
959{
87178dbd 960 trace_input ("cmp", OP_ACCUM, OP_ACCUM, OP_VOID);
df59058c
JM		 961 SET_PSW_F1 (PSW_F0);
962 SET_PSW_F0 ((SEXT40(ACC (OP[0])) < SEXT40(ACC (OP[1]))) ? 1 : 0);
963 trace_output_flag ();
2934d1c9
MH		 964}
965
966/* cmpeq */
967void
968OP_400 ()
969{
87178dbd 970 trace_input ("cmpeq", OP_REG, OP_REG, OP_VOID);
df59058c
JM		 971 SET_PSW_F1 (PSW_F0);
972 SET_PSW_F0 ((GPR (OP[0]) == GPR (OP[1])) ? 1 : 0);
973 trace_output_flag ();
2934d1c9
MH		 974}
975
976/* cmpeq */
977void
978OP_1403 ()
979{
87178dbd 980 trace_input ("cmpeq", OP_ACCUM, OP_ACCUM, OP_VOID);
df59058c
JM		 981 SET_PSW_F1 (PSW_F0);
982 SET_PSW_F0 (((ACC (OP[0]) & MASK40) == (ACC (OP[1]) & MASK40)) ? 1 : 0);
983 trace_output_flag ();
2934d1c9
MH		 984}
985
986/* cmpeqi.s */
987void
988OP_401 ()
989{
c12f5c67 990 trace_input ("cmpeqi.s", OP_REG, OP_CONSTANT4, OP_VOID);
df59058c
JM		 991 SET_PSW_F1 (PSW_F0);
992 SET_PSW_F0 ((GPR (OP[0]) == (reg_t) SEXT4 (OP[1])) ? 1 : 0);
993 trace_output_flag ();
2934d1c9
MH		 994}
995
996/* cmpeqi.l */
997void
998OP_2000000 ()
999{
87178dbd 1000 trace_input ("cmpeqi.l", OP_REG, OP_CONSTANT16, OP_VOID);
df59058c
JM		 1001 SET_PSW_F1 (PSW_F0);
1002 SET_PSW_F0 ((GPR (OP[0]) == (reg_t)OP[1]) ? 1 : 0);
1003 trace_output_flag ();
2934d1c9
MH		 1004}
1005
1006/* cmpi.s */
1007void
1008OP_601 ()
1009{
87178dbd 1010 trace_input ("cmpi.s", OP_REG, OP_CONSTANT4, OP_VOID);
df59058c
JM		 1011 SET_PSW_F1 (PSW_F0);
1012 SET_PSW_F0 (((int16)(GPR (OP[0])) < (int16)SEXT4(OP[1])) ? 1 : 0);
1013 trace_output_flag ();
2934d1c9
MH		 1014}
1015
1016/* cmpi.l */
1017void
1018OP_3000000 ()
1019{
87178dbd 1020 trace_input ("cmpi.l", OP_REG, OP_CONSTANT16, OP_VOID);
df59058c
JM		 1021 SET_PSW_F1 (PSW_F0);
1022 SET_PSW_F0 (((int16)(GPR (OP[0])) < (int16)(OP[1])) ? 1 : 0);
1023 trace_output_flag ();
2934d1c9
MH		 1024}
1025
1026/* cmpu */
1027void
1028OP_4600 ()
1029{
87178dbd 1030 trace_input ("cmpu", OP_REG, OP_REG, OP_VOID);
df59058c
JM		 1031 SET_PSW_F1 (PSW_F0);
1032 SET_PSW_F0 ((GPR (OP[0]) < GPR (OP[1])) ? 1 : 0);
1033 trace_output_flag ();
2934d1c9
MH		 1034}
1035
1036/* cmpui */
1037void
1038OP_23000000 ()
1039{
87178dbd 1040 trace_input ("cmpui", OP_REG, OP_CONSTANT16, OP_VOID);
df59058c
JM		 1041 SET_PSW_F1 (PSW_F0);
1042 SET_PSW_F0 ((GPR (OP[0]) < (reg_t)OP[1]) ? 1 : 0);
1043 trace_output_flag ();
2934d1c9
MH		 1044}
1045
1046/* cpfg */
1047void
1048OP_4E09 ()
1049{
df59058c 1050 uint8 val;
2934d1c9 1051
60fc5b72 1052 trace_input ("cpfg", OP_FLAG_OUTPUT, OP_FLAG, OP_VOID);
2934d1c9
MH		 1053
1054 if (OP[1] == 0)
df59058c 1055 val = PSW_F0;
2934d1c9 1056 else if (OP[1] == 1)
df59058c 1057 val = PSW_F1;
2934d1c9 1058 else
df59058c
JM		 1059 val = PSW_C;
1060 if (OP[0] == 0)
1061 SET_PSW_F0 (val);
1062 else
1063 SET_PSW_F1 (val);
2934d1c9 1064
df59058c 1065 trace_output_flag ();
2934d1c9
MH		 1066}
1067
1068/* dbt */
1069void
1070OP_5F20 ()
1071{
a49a15ad 1072 /* d10v_callback->printf_filtered(d10v_callback, "***** DBT ***** PC=%x\n",PC); */
df59058c
JM		 1073
1074 /* GDB uses the instruction pair ``dbt || nop'' as a break-point.
1075 The conditional below is for either of the instruction pairs
1076 ``dbt -> XXX'' or ``dbt <- XXX'' and treats them as as cases
1077 where the dbt instruction should be interpreted.
1078
1079 The module `sim-break' provides a more effective mechanism for
1080 detecting GDB planted breakpoints. The code below may,
1081 eventually, be changed to use that mechanism. */
1082
1083 if (State.ins_type == INS_LEFT
1084 || State.ins_type == INS_RIGHT)
1085 {
1086 trace_input ("dbt", OP_VOID, OP_VOID, OP_VOID);
1087 SET_DPC (PC + 1);
1088 SET_DPSW (PSW);
1089 SET_PSW (PSW_DM_BIT | (PSW & (PSW_F0_BIT | PSW_F1_BIT | PSW_C_BIT)));
1090 JMP (DBT_VECTOR_START);
1091 trace_output_void ();
1092 }
1093 else
1094 {
1095 State.exception = SIGTRAP;
1096 }
2934d1c9
MH		 1097}
1098
1099/* divs */
1100void
1101OP_14002800 ()
1102{
1103 uint16 foo, tmp, tmpf;
df59058c
JM		 1104 uint16 hi;
1105 uint16 lo;
87178dbd
MM		 1106
1107 trace_input ("divs", OP_DREG, OP_REG, OP_VOID);
df59058c
JM		 1108 foo = (GPR (OP[0]) << 1) | (GPR (OP[0] + 1) >> 15);
1109 tmp = (int16)foo - (int16)(GPR (OP[1]));
1110 tmpf = (foo >= GPR (OP[1])) ? 1 : 0;
1111 hi = ((tmpf == 1) ? tmp : foo);
1112 lo = ((GPR (OP[0] + 1) << 1) | tmpf);
1113 SET_GPR (OP[0] + 0, hi);
1114 SET_GPR (OP[0] + 1, lo);
1115 trace_output_32 (((uint32) hi << 16) | lo);
2934d1c9
MH		 1116}
1117
1118/* exef0f */
1119void
1120OP_4E04 ()
1121{
87178dbd 1122 trace_input ("exef0f", OP_VOID, OP_VOID, OP_VOID);
df59058c
JM		 1123 State.exe = (PSW_F0 == 0);
1124 trace_output_flag ();
2934d1c9
MH		 1125}
1126
1127/* exef0t */
1128void
1129OP_4E24 ()
1130{
87178dbd 1131 trace_input ("exef0t", OP_VOID, OP_VOID, OP_VOID);
df59058c
JM		 1132 State.exe = (PSW_F0 != 0);
1133 trace_output_flag ();
2934d1c9
MH		 1134}
1135
1136/* exef1f */
1137void
1138OP_4E40 ()
1139{
87178dbd 1140 trace_input ("exef1f", OP_VOID, OP_VOID, OP_VOID);
df59058c
JM		 1141 State.exe = (PSW_F1 == 0);
1142 trace_output_flag ();
2934d1c9
MH		 1143}
1144
1145/* exef1t */
1146void
1147OP_4E42 ()
1148{
87178dbd 1149 trace_input ("exef1t", OP_VOID, OP_VOID, OP_VOID);
df59058c
JM		 1150 State.exe = (PSW_F1 != 0);
1151 trace_output_flag ();
2934d1c9
MH		 1152}
1153
1154/* exefaf */
1155void
1156OP_4E00 ()
1157{
87178dbd 1158 trace_input ("exefaf", OP_VOID, OP_VOID, OP_VOID);
df59058c
JM		 1159 State.exe = (PSW_F0 == 0) & (PSW_F1 == 0);
1160 trace_output_flag ();
2934d1c9
MH		 1161}
1162
1163/* exefat */
1164void
1165OP_4E02 ()
1166{
87178dbd 1167 trace_input ("exefat", OP_VOID, OP_VOID, OP_VOID);
df59058c
JM		 1168 State.exe = (PSW_F0 == 0) & (PSW_F1 != 0);
1169 trace_output_flag ();
2934d1c9
MH		 1170}
1171
1172/* exetaf */
1173void
1174OP_4E20 ()
1175{
87178dbd 1176 trace_input ("exetaf", OP_VOID, OP_VOID, OP_VOID);
df59058c
JM		 1177 State.exe = (PSW_F0 != 0) & (PSW_F1 == 0);
1178 trace_output_flag ();
2934d1c9
MH		 1179}
1180
1181/* exetat */
1182void
1183OP_4E22 ()
1184{
87178dbd 1185 trace_input ("exetat", OP_VOID, OP_VOID, OP_VOID);
df59058c
JM		 1186 State.exe = (PSW_F0 != 0) & (PSW_F1 != 0);
1187 trace_output_flag ();
2934d1c9
MH		 1188}
1189
1190/* exp */
1191void
1192OP_15002A00 ()
1193{
1194 uint32 tmp, foo;
1195 int i;
1196
87178dbd 1197 trace_input ("exp", OP_REG_OUTPUT, OP_DREG, OP_VOID);
df59058c
JM		 1198 if (((int16)GPR (OP[1])) >= 0)
1199 tmp = (GPR (OP[1]) << 16) | GPR (OP[1] + 1);
2934d1c9 1200 else
df59058c 1201 tmp = ~((GPR (OP[1]) << 16) | GPR (OP[1] + 1));
2934d1c9
MH		 1202
1203 foo = 0x40000000;
4c38885c 1204 for (i=1;i<17;i++)
2934d1c9
MH		 1205 {
1206 if (tmp & foo)
1207 {
df59058c
JM		 1208 SET_GPR (OP[0], (i - 1));
1209 trace_output_16 (i - 1);
2934d1c9
MH		 1210 return;
1211 }
4c38885c 1212 foo >>= 1;
2934d1c9 1213 }
df59058c
JM		 1214 SET_GPR (OP[0], 16);
1215 trace_output_16 (16);
2934d1c9
MH		 1216}
1217
1218/* exp */
1219void
1220OP_15002A02 ()
1221{
4c38885c
MH		 1222 int64 tmp, foo;
1223 int i;
87178dbd
MM		 1224
1225 trace_input ("exp", OP_REG_OUTPUT, OP_ACCUM, OP_VOID);
df59058c 1226 tmp = SEXT40(ACC (OP[1]));
fd435e9f
MM		 1227 if (tmp < 0)
1228 tmp = ~tmp & MASK40;
4c38885c
MH		 1229
1230 foo = 0x4000000000LL;
1231 for (i=1;i<25;i++)
1232 {
1233 if (tmp & foo)
1234 {
df59058c
JM		 1235 SET_GPR (OP[0], i - 9);
1236 trace_output_16 (i - 9);
4c38885c
MH		 1237 return;
1238 }
1239 foo >>= 1;
1240 }
df59058c
JM		 1241 SET_GPR (OP[0], 16);
1242 trace_output_16 (16);
2934d1c9
MH		 1243}
1244
1245/* jl */
1246void
1247OP_4D00 ()
1248{
8831cb01 1249 trace_input ("jl", OP_REG, OP_R0, OP_R1);
df59058c
JM		 1250 SET_GPR (13, PC + 1);
1251 JMP (GPR (OP[0]));
1252 trace_output_void ();
2934d1c9
MH		 1253}
1254
1255/* jmp */
1256void
1257OP_4C00 ()
1258{
a18cb100 1259 trace_input ("jmp", OP_REG,
8831cb01
MM		 1260 (OP[0] == 13) ? OP_R0 : OP_VOID,
1261 (OP[0] == 13) ? OP_R1 : OP_VOID);
a18cb100 1262
df59058c
JM		 1263 JMP (GPR (OP[0]));
1264 trace_output_void ();
2934d1c9
MH		 1265}
1266
1267/* ld */
1268void
1269OP_30000000 ()
1270{
df59058c 1271 uint16 tmp;
87178dbd 1272 trace_input ("ld", OP_REG_OUTPUT, OP_MEMREF2, OP_VOID);
df59058c
JM		 1273 tmp = RW (OP[1] + GPR (OP[2]));
1274 SET_GPR (OP[0], tmp);
1275 trace_output_16 (tmp);
2934d1c9
MH		 1276}
1277
1278/* ld */
1279void
1280OP_6401 ()
1281{
df59058c 1282 uint16 tmp;
87178dbd 1283 trace_input ("ld", OP_REG_OUTPUT, OP_POSTDEC, OP_VOID);
df59058c
JM		 1284 tmp = RW (GPR (OP[1]));
1285 SET_GPR (OP[0], tmp);
1286 if (OP[0] != OP[1])
1287 INC_ADDR (OP[1], -2);
1288 trace_output_16 (tmp);
2934d1c9
MH		 1289}
1290
1291/* ld */
1292void
1293OP_6001 ()
1294{
df59058c 1295 uint16 tmp;
87178dbd 1296 trace_input ("ld", OP_REG_OUTPUT, OP_POSTINC, OP_VOID);
df59058c
JM		 1297 tmp = RW (GPR (OP[1]));
1298 SET_GPR (OP[0], tmp);
1299 if (OP[0] != OP[1])
1300 INC_ADDR (OP[1], 2);
1301 trace_output_16 (tmp);
2934d1c9
MH		 1302}
1303
1304/* ld */
1305void
1306OP_6000 ()
1307{
df59058c 1308 uint16 tmp;
87178dbd 1309 trace_input ("ld", OP_REG_OUTPUT, OP_MEMREF, OP_VOID);
df59058c
JM		 1310 tmp = RW (GPR (OP[1]));
1311 SET_GPR (OP[0], tmp);
1312 trace_output_16 (tmp);
2934d1c9
MH		 1313}
1314
1315/* ld2w */
1316void
1317OP_31000000 ()
1318{
df59058c
JM		 1319 int32 tmp;
1320 uint16 addr = GPR (OP[2]);
308f64d3 1321 trace_input ("ld2w", OP_REG_OUTPUT, OP_MEMREF2, OP_VOID);
df59058c
JM		 1322 tmp = RLW (OP[1] + addr);
1323 SET_GPR32 (OP[0], tmp);
1324 trace_output_32 (tmp);
2934d1c9
MH		 1325}
1326
1327/* ld2w */
1328void
1329OP_6601 ()
1330{
df59058c
JM		 1331 uint16 addr = GPR (OP[1]);
1332 int32 tmp;
87178dbd 1333 trace_input ("ld2w", OP_REG_OUTPUT, OP_POSTDEC, OP_VOID);
df59058c
JM		 1334 tmp = RLW (addr);
1335 SET_GPR32 (OP[0], tmp);
1336 INC_ADDR (OP[1], -4);
1337 trace_output_32 (tmp);
2934d1c9
MH		 1338}
1339
1340/* ld2w */
1341void
1342OP_6201 ()
1343{
df59058c
JM		 1344 int32 tmp;
1345 uint16 addr = GPR (OP[1]);
87178dbd 1346 trace_input ("ld2w", OP_REG_OUTPUT, OP_POSTINC, OP_VOID);
df59058c
JM		 1347 tmp = RLW (addr);
1348 SET_GPR32 (OP[0], tmp);
1349 INC_ADDR (OP[1], 4);
1350 trace_output_32 (tmp);
2934d1c9
MH		 1351}
1352
1353/* ld2w */
1354void
1355OP_6200 ()
1356{
df59058c
JM		 1357 uint16 addr = GPR (OP[1]);
1358 int32 tmp;
addb61a5 1359 trace_input ("ld2w", OP_REG_OUTPUT, OP_MEMREF, OP_VOID);
df59058c
JM		 1360 tmp = RLW (addr + 0);
1361 SET_GPR32 (OP[0], tmp);
1362 trace_output_32 (tmp);
2934d1c9
MH		 1363}
1364
1365/* ldb */
1366void
1367OP_38000000 ()
1368{
df59058c 1369 int16 tmp;
87178dbd 1370 trace_input ("ldb", OP_REG_OUTPUT, OP_MEMREF2, OP_VOID);
df59058c
JM		 1371 tmp = SEXT8 (RB (OP[1] + GPR (OP[2])));
1372 SET_GPR (OP[0], tmp);
1373 trace_output_16 (tmp);
2934d1c9
MH		 1374}
1375
1376/* ldb */
1377void
1378OP_7000 ()
1379{
df59058c 1380 int16 tmp;
87178dbd 1381 trace_input ("ldb", OP_REG_OUTPUT, OP_MEMREF, OP_VOID);
df59058c
JM		 1382 tmp = SEXT8 (RB (GPR (OP[1])));
1383 SET_GPR (OP[0], tmp);
1384 trace_output_16 (tmp);
2934d1c9
MH		 1385}
1386
1387/* ldi.s */
1388void
1389OP_4001 ()
1390{
df59058c 1391 int16 tmp;
87178dbd 1392 trace_input ("ldi.s", OP_REG_OUTPUT, OP_CONSTANT4, OP_VOID);
df59058c
JM		 1393 tmp = SEXT4 (OP[1]);
1394 SET_GPR (OP[0], tmp);
1395 trace_output_16 (tmp);
2934d1c9
MH		 1396}
1397
1398/* ldi.l */
1399void
1400OP_20000000 ()
1401{
df59058c 1402 int16 tmp;
fd435e9f 1403 trace_input ("ldi.l", OP_REG_OUTPUT, OP_CONSTANT16, OP_VOID);
df59058c
JM		 1404 tmp = OP[1];
1405 SET_GPR (OP[0], tmp);
1406 trace_output_16 (tmp);
2934d1c9
MH		 1407}
1408
1409/* ldub */
1410void
1411OP_39000000 ()
1412{
df59058c 1413 int16 tmp;
87178dbd 1414 trace_input ("ldub", OP_REG_OUTPUT, OP_MEMREF2, OP_VOID);
df59058c
JM		 1415 tmp = RB (OP[1] + GPR (OP[2]));
1416 SET_GPR (OP[0], tmp);
1417 trace_output_16 (tmp);
2934d1c9
MH		 1418}
1419
1420/* ldub */
1421void
1422OP_7200 ()
1423{
df59058c 1424 int16 tmp;
87178dbd 1425 trace_input ("ldub", OP_REG_OUTPUT, OP_MEMREF, OP_VOID);
df59058c
JM		 1426 tmp = RB (GPR (OP[1]));
1427 SET_GPR (OP[0], tmp);
1428 trace_output_16 (tmp);
2934d1c9
MH		 1429}
1430
1431/* mac */
1432void
1433OP_2A00 ()
1434{
4c38885c 1435 int64 tmp;
87178dbd
MM		 1436
1437 trace_input ("mac", OP_ACCUM, OP_REG, OP_REG);
df59058c 1438 tmp = SEXT40 ((int16)(GPR (OP[1])) * (int16)(GPR (OP[2])));
4c38885c 1439
df59058c 1440 if (PSW_FX)
4f425a32 1441 tmp = SEXT40( (tmp << 1) & MASK40);
4c38885c 1442
df59058c 1443 if (PSW_ST && tmp > SEXT40(MAX32))
4c38885c
MH		 1444 tmp = MAX32;
1445
df59058c
JM		 1446 tmp += SEXT40 (ACC (OP[0]));
1447 if (PSW_ST)
4c38885c 1448 {
df59058c
JM		 1449 if (tmp > SEXT40(MAX32))
1450 tmp = MAX32;
1451 else if (tmp < SEXT40(MIN32))
1452 tmp = MIN32;
4c38885c 1453 else
df59058c 1454 tmp = (tmp & MASK40);
4c38885c
MH		 1455 }
1456 else
df59058c
JM		 1457 tmp = (tmp & MASK40);
1458 SET_ACC (OP[0], tmp);
1459 trace_output_40 (tmp);
2934d1c9
MH		 1460}
1461
1462/* macsu */
1463void
1464OP_1A00 ()
1465{
4f425a32 1466 int64 tmp;
87178dbd
MM		 1467
1468 trace_input ("macsu", OP_ACCUM, OP_REG, OP_REG);
df59058c
JM		 1469 tmp = SEXT40 ((int16) GPR (OP[1]) * GPR (OP[2]));
1470 if (PSW_FX)
1471 tmp = SEXT40 ((tmp << 1) & MASK40);
1472 tmp = ((SEXT40 (ACC (OP[0])) + tmp) & MASK40);
1473 SET_ACC (OP[0], tmp);
1474 trace_output_40 (tmp);
2934d1c9
MH		 1475}
1476
1477/* macu */
1478void
1479OP_3A00 ()
1480{
ae558075
AC		 1481 uint64 tmp;
1482 uint32 src1;
1483 uint32 src2;
87178dbd
MM		 1484
1485 trace_input ("macu", OP_ACCUM, OP_REG, OP_REG);
df59058c
JM		 1486 src1 = (uint16) GPR (OP[1]);
1487 src2 = (uint16) GPR (OP[2]);
ae558075 1488 tmp = src1 * src2;
df59058c 1489 if (PSW_FX)
ae558075 1490 tmp = (tmp << 1);
df59058c
JM		 1491 tmp = ((ACC (OP[0]) + tmp) & MASK40);
1492 SET_ACC (OP[0], tmp);
1493 trace_output_40 (tmp);
2934d1c9
MH		 1494}
1495
1496/* max */
1497void
1498OP_2600 ()
1499{
df59058c 1500 int16 tmp;
87178dbd 1501 trace_input ("max", OP_REG, OP_REG, OP_VOID);
df59058c
JM		 1502 SET_PSW_F1 (PSW_F0);
1503 if ((int16) GPR (OP[1]) > (int16)GPR (OP[0]))
2934d1c9 1504 {
df59058c
JM		 1505 tmp = GPR (OP[1]);
1506 SET_PSW_F0 (1);
2934d1c9
MH		 1507 }
1508 else
df59058c
JM		 1509 {
1510 tmp = GPR (OP[0]);
1511 SET_PSW_F0 (0);
1512 }
1513 SET_GPR (OP[0], tmp);
1514 trace_output_16 (tmp);
2934d1c9
MH		 1515}
1516
1517/* max */
1518void
1519OP_3600 ()
1520{
4f425a32 1521 int64 tmp;
87178dbd
MM		 1522
1523 trace_input ("max", OP_ACCUM, OP_DREG, OP_VOID);
df59058c
JM		 1524 SET_PSW_F1 (PSW_F0);
1525 tmp = SEXT16 (GPR (OP[1])) << 16 | GPR (OP[1] + 1);
1526 if (tmp > SEXT40 (ACC (OP[0])))
4f425a32 1527 {
df59058c
JM		 1528 tmp = (tmp & MASK40);
1529 SET_PSW_F0 (1);
4f425a32
MH		 1530 }
1531 else
df59058c
JM		 1532 {
1533 tmp = ACC (OP[0]);
1534 SET_PSW_F0 (0);
1535 }
1536 SET_ACC (OP[0], tmp);
1537 trace_output_40 (tmp);
2934d1c9
MH		 1538}
1539
1540/* max */
1541void
1542OP_3602 ()
1543{
df59058c 1544 int64 tmp;
87178dbd 1545 trace_input ("max", OP_ACCUM, OP_ACCUM, OP_VOID);
df59058c
JM		 1546 SET_PSW_F1 (PSW_F0);
1547 if (SEXT40 (ACC (OP[1])) > SEXT40 (ACC (OP[0])))
4f425a32 1548 {
df59058c
JM		 1549 tmp = ACC (OP[1]);
1550 SET_PSW_F0 (1);
4f425a32
MH		 1551 }
1552 else
df59058c
JM		 1553 {
1554 tmp = ACC (OP[0]);
1555 SET_PSW_F0 (0);
1556 }
1557 SET_ACC (OP[0], tmp);
1558 trace_output_40 (tmp);
2934d1c9
MH		 1559}
1560
4f425a32 1561
2934d1c9
MH		 1562/* min */
1563void
1564OP_2601 ()
1565{
df59058c 1566 int16 tmp;
87178dbd 1567 trace_input ("min", OP_REG, OP_REG, OP_VOID);
df59058c
JM		 1568 SET_PSW_F1 (PSW_F0);
1569 if ((int16)GPR (OP[1]) < (int16)GPR (OP[0]))
2934d1c9 1570 {
df59058c
JM		 1571 tmp = GPR (OP[1]);
1572 SET_PSW_F0 (1);
2934d1c9
MH		 1573 }
1574 else
df59058c
JM		 1575 {
1576 tmp = GPR (OP[0]);
1577 SET_PSW_F0 (0);
1578 }
1579 SET_GPR (OP[0], tmp);
1580 trace_output_16 (tmp);
2934d1c9
MH		 1581}
1582
1583/* min */
1584void
1585OP_3601 ()
1586{
4f425a32 1587 int64 tmp;
87178dbd
MM		 1588
1589 trace_input ("min", OP_ACCUM, OP_DREG, OP_VOID);
df59058c
JM		 1590 SET_PSW_F1 (PSW_F0);
1591 tmp = SEXT16 (GPR (OP[1])) << 16 | GPR (OP[1] + 1);
1592 if (tmp < SEXT40(ACC (OP[0])))
4f425a32 1593 {
df59058c
JM		 1594 tmp = (tmp & MASK40);
1595 SET_PSW_F0 (1);
4f425a32
MH		 1596 }
1597 else
df59058c
JM		 1598 {
1599 tmp = ACC (OP[0]);
1600 SET_PSW_F0 (0);
1601 }
1602 SET_ACC (OP[0], tmp);
1603 trace_output_40 (tmp);
2934d1c9
MH		 1604}
1605
1606/* min */
1607void
1608OP_3603 ()
1609{
df59058c 1610 int64 tmp;
87178dbd 1611 trace_input ("min", OP_ACCUM, OP_ACCUM, OP_VOID);
df59058c
JM		 1612 SET_PSW_F1 (PSW_F0);
1613 if (SEXT40(ACC (OP[1])) < SEXT40(ACC (OP[0])))
4f425a32 1614 {
df59058c
JM		 1615 tmp = ACC (OP[1]);
1616 SET_PSW_F0 (1);
4f425a32
MH		 1617 }
1618 else
df59058c
JM		 1619 {
1620 tmp = ACC (OP[0]);
1621 SET_PSW_F0 (0);
1622 }
1623 SET_ACC (OP[0], tmp);
1624 trace_output_40 (tmp);
2934d1c9
MH		 1625}
1626
1627/* msb */
1628void
1629OP_2800 ()
1630{
4f425a32 1631 int64 tmp;
87178dbd
MM		 1632
1633 trace_input ("msb", OP_ACCUM, OP_REG, OP_REG);
df59058c 1634 tmp = SEXT40 ((int16)(GPR (OP[1])) * (int16)(GPR (OP[2])));
4f425a32 1635
df59058c 1636 if (PSW_FX)
4f425a32
MH		 1637 tmp = SEXT40 ((tmp << 1) & MASK40);
1638
df59058c 1639 if (PSW_ST && tmp > SEXT40(MAX32))
4f425a32
MH		 1640 tmp = MAX32;
1641
df59058c
JM		 1642 tmp = SEXT40(ACC (OP[0])) - tmp;
1643 if (PSW_ST)
4f425a32 1644 {
df59058c
JM		 1645 if (tmp > SEXT40(MAX32))
1646 tmp = MAX32;
1647 else if (tmp < SEXT40(MIN32))
1648 tmp = MIN32;
4f425a32 1649 else
df59058c 1650 tmp = (tmp & MASK40);
4f425a32
MH		 1651 }
1652 else
df59058c
JM		 1653 {
1654 tmp = (tmp & MASK40);
1655 }
1656 SET_ACC (OP[0], tmp);
1657 trace_output_40 (tmp);
2934d1c9
MH		 1658}
1659
1660/* msbsu */
1661void
1662OP_1800 ()
1663{
4f425a32 1664 int64 tmp;
87178dbd
MM		 1665
1666 trace_input ("msbsu", OP_ACCUM, OP_REG, OP_REG);
df59058c
JM		 1667 tmp = SEXT40 ((int16)GPR (OP[1]) * GPR (OP[2]));
1668 if (PSW_FX)
4f425a32 1669 tmp = SEXT40( (tmp << 1) & MASK40);
df59058c
JM		 1670 tmp = ((SEXT40 (ACC (OP[0])) - tmp) & MASK40);
1671 SET_ACC (OP[0], tmp);
1672 trace_output_40 (tmp);
2934d1c9
MH		 1673}
1674
1675/* msbu */
1676void
1677OP_3800 ()
1678{
d294a657
AC		 1679 uint64 tmp;
1680 uint32 src1;
1681 uint32 src2;
87178dbd
MM		 1682
1683 trace_input ("msbu", OP_ACCUM, OP_REG, OP_REG);
df59058c
JM		 1684 src1 = (uint16) GPR (OP[1]);
1685 src2 = (uint16) GPR (OP[2]);
d294a657 1686 tmp = src1 * src2;
df59058c 1687 if (PSW_FX)
d294a657 1688 tmp = (tmp << 1);
df59058c
JM		 1689 tmp = ((ACC (OP[0]) - tmp) & MASK40);
1690 SET_ACC (OP[0], tmp);
1691 trace_output_40 (tmp);
2934d1c9
MH		 1692}
1693
1694/* mul */
1695void
1696OP_2E00 ()
1697{
df59058c 1698 int16 tmp;
87178dbd 1699 trace_input ("mul", OP_REG, OP_REG, OP_VOID);
df59058c
JM		 1700 tmp = GPR (OP[0]) * GPR (OP[1]);
1701 SET_GPR (OP[0], tmp);
1702 trace_output_16 (tmp);
2934d1c9
MH		 1703}
1704
1705/* mulx */
1706void
1707OP_2C00 ()
1708{
4f425a32 1709 int64 tmp;
87178dbd
MM		 1710
1711 trace_input ("mulx", OP_ACCUM_OUTPUT, OP_REG, OP_REG);
df59058c 1712 tmp = SEXT40 ((int16)(GPR (OP[1])) * (int16)(GPR (OP[2])));
4f425a32 1713
df59058c 1714 if (PSW_FX)
4f425a32
MH		 1715 tmp = SEXT40 ((tmp << 1) & MASK40);
1716
df59058c
JM		 1717 if (PSW_ST && tmp > MAX32)
1718 tmp = MAX32;
4f425a32 1719 else
df59058c
JM		 1720 tmp = (tmp & MASK40);
1721 SET_ACC (OP[0], tmp);
1722 trace_output_40 (tmp);
2934d1c9
MH		 1723}
1724
1725/* mulxsu */
1726void
1727OP_1C00 ()
1728{
4f425a32 1729 int64 tmp;
87178dbd
MM		 1730
1731 trace_input ("mulxsu", OP_ACCUM_OUTPUT, OP_REG, OP_REG);
df59058c 1732 tmp = SEXT40 ((int16)(GPR (OP[1])) * GPR (OP[2]));
4f425a32 1733
df59058c 1734 if (PSW_FX)
4f425a32 1735 tmp <<= 1;
df59058c
JM		 1736 tmp = (tmp & MASK40);
1737 SET_ACC (OP[0], tmp);
1738 trace_output_40 (tmp);
2934d1c9
MH		 1739}
1740
1741/* mulxu */
1742void
1743OP_3C00 ()
1744{
9420287e
AC		 1745 uint64 tmp;
1746 uint32 src1;
1747 uint32 src2;
87178dbd
MM		 1748
1749 trace_input ("mulxu", OP_ACCUM_OUTPUT, OP_REG, OP_REG);
df59058c
JM		 1750 src1 = (uint16) GPR (OP[1]);
1751 src2 = (uint16) GPR (OP[2]);
9420287e 1752 tmp = src1 * src2;
df59058c 1753 if (PSW_FX)
4f425a32 1754 tmp <<= 1;
df59058c
JM		 1755 tmp = (tmp & MASK40);
1756 SET_ACC (OP[0], tmp);
1757 trace_output_40 (tmp);
2934d1c9
MH		 1758}
1759
1760/* mv */
1761void
1762OP_4000 ()
1763{
df59058c 1764 int16 tmp;
87178dbd 1765 trace_input ("mv", OP_REG_OUTPUT, OP_REG, OP_VOID);
df59058c
JM		 1766 tmp = GPR (OP[1]);
1767 SET_GPR (OP[0], tmp);
1768 trace_output_16 (tmp);
2934d1c9
MH		 1769}
1770
1771/* mv2w */
1772void
1773OP_5000 ()
1774{
df59058c 1775 int32 tmp;
87178dbd 1776 trace_input ("mv2w", OP_DREG_OUTPUT, OP_DREG, OP_VOID);
df59058c
JM		 1777 tmp = GPR32 (OP[1]);
1778 SET_GPR32 (OP[0], tmp);
1779 trace_output_32 (tmp);
2934d1c9
MH		 1780}
1781
1782/* mv2wfac */
1783void
1784OP_3E00 ()
1785{
df59058c 1786 int32 tmp;
87178dbd 1787 trace_input ("mv2wfac", OP_DREG_OUTPUT, OP_ACCUM, OP_VOID);
df59058c
JM		 1788 tmp = ACC (OP[1]);
1789 SET_GPR32 (OP[0], tmp);
1790 trace_output_32 (tmp);
2934d1c9
MH		 1791}
1792
1793/* mv2wtac */
1794void
1795OP_3E01 ()
1796{
df59058c 1797 int64 tmp;
fd435e9f 1798 trace_input ("mv2wtac", OP_DREG, OP_ACCUM_OUTPUT, OP_VOID);
df59058c
JM		 1799 tmp = ((SEXT16 (GPR (OP[0])) << 16 | GPR (OP[0] + 1)) & MASK40);
1800 SET_ACC (OP[1], tmp);
1801 trace_output_40 (tmp);
2934d1c9
MH		 1802}
1803
1804/* mvac */
1805void
1806OP_3E03 ()
1807{
df59058c 1808 int64 tmp;
87178dbd 1809 trace_input ("mvac", OP_ACCUM_OUTPUT, OP_ACCUM, OP_VOID);
df59058c
JM		 1810 tmp = ACC (OP[1]);
1811 SET_ACC (OP[0], tmp);
1812 trace_output_40 (tmp);
2934d1c9
MH		 1813}
1814
1815/* mvb */
1816void
1817OP_5400 ()
1818{
df59058c 1819 int16 tmp;
87178dbd 1820 trace_input ("mvb", OP_REG_OUTPUT, OP_REG, OP_VOID);
df59058c
JM		 1821 tmp = SEXT8 (GPR (OP[1]) & 0xff);
1822 SET_GPR (OP[0], tmp);
1823 trace_output_16 (tmp);
2934d1c9
MH		 1824}
1825
1826/* mvf0f */
1827void
1828OP_4400 ()
1829{
df59058c 1830 int16 tmp;
87178dbd 1831 trace_input ("mf0f", OP_REG_OUTPUT, OP_REG, OP_VOID);
df59058c
JM		 1832 if (PSW_F0 == 0)
1833 {
1834 tmp = GPR (OP[1]);
1835 SET_GPR (OP[0], tmp);
1836 }
1837 else
1838 tmp = GPR (OP[0]);
1839 trace_output_16 (tmp);
2934d1c9
MH		 1840}
1841
1842/* mvf0t */
1843void
1844OP_4401 ()
1845{
df59058c 1846 int16 tmp;
87178dbd 1847 trace_input ("mf0t", OP_REG_OUTPUT, OP_REG, OP_VOID);
df59058c
JM		 1848 if (PSW_F0)
1849 {
1850 tmp = GPR (OP[1]);
1851 SET_GPR (OP[0], tmp);
1852 }
1853 else
1854 tmp = GPR (OP[0]);
1855 trace_output_16 (tmp);
2934d1c9
MH		 1856}
1857
1858/* mvfacg */
1859void
1860OP_1E04 ()
1861{
df59058c 1862 int16 tmp;
87178dbd 1863 trace_input ("mvfacg", OP_REG_OUTPUT, OP_ACCUM, OP_VOID);
df59058c
JM		 1864 tmp = ((ACC (OP[1]) >> 32) & 0xff);
1865 SET_GPR (OP[0], tmp);
1866 trace_output_16 (tmp);
2934d1c9
MH		 1867}
1868
1869/* mvfachi */
1870void
1871OP_1E00 ()
1872{
df59058c 1873 int16 tmp;
87178dbd 1874 trace_input ("mvfachi", OP_REG_OUTPUT, OP_ACCUM, OP_VOID);
df59058c
JM		 1875 tmp = (ACC (OP[1]) >> 16);
1876 SET_GPR (OP[0], tmp);
1877 trace_output_16 (tmp);
2934d1c9
MH		 1878}
1879
1880/* mvfaclo */
1881void
1882OP_1E02 ()
1883{
df59058c 1884 int16 tmp;
87178dbd 1885 trace_input ("mvfaclo", OP_REG_OUTPUT, OP_ACCUM, OP_VOID);
df59058c
JM		 1886 tmp = ACC (OP[1]);
1887 SET_GPR (OP[0], tmp);
1888 trace_output_16 (tmp);
2934d1c9
MH		 1889}
1890
1891/* mvfc */
1892void
1893OP_5200 ()
1894{
df59058c 1895 int16 tmp;
87178dbd 1896 trace_input ("mvfc", OP_REG_OUTPUT, OP_CR, OP_VOID);
df59058c
JM		 1897 tmp = CREG (OP[1]);
1898 SET_GPR (OP[0], tmp);
1899 trace_output_16 (tmp);
2934d1c9
MH		 1900}
1901
1902/* mvtacg */
1903void
1904OP_1E41 ()
1905{
df59058c 1906 int64 tmp;
87178dbd 1907 trace_input ("mvtacg", OP_REG, OP_ACCUM, OP_VOID);
df59058c
JM		 1908 tmp = ((ACC (OP[1]) & MASK32)
1909 | ((int64)(GPR (OP[0]) & 0xff) << 32));
1910 SET_ACC (OP[1], tmp);
1911 trace_output_40 (tmp);
2934d1c9
MH		 1912}
1913
1914/* mvtachi */
1915void
1916OP_1E01 ()
1917{
df59058c 1918 uint64 tmp;
87178dbd 1919 trace_input ("mvtachi", OP_REG, OP_ACCUM, OP_VOID);
df59058c
JM		 1920 tmp = ACC (OP[1]) & 0xffff;
1921 tmp = ((SEXT16 (GPR (OP[0])) << 16 | tmp) & MASK40);
1922 SET_ACC (OP[1], tmp);
1923 trace_output_40 (tmp);
2934d1c9
MH		 1924}
1925
1926/* mvtaclo */
1927void
1928OP_1E21 ()
1929{
df59058c 1930 int64 tmp;
87178dbd 1931 trace_input ("mvtaclo", OP_REG, OP_ACCUM, OP_VOID);
df59058c
JM		 1932 tmp = ((SEXT16 (GPR (OP[0]))) & MASK40);
1933 SET_ACC (OP[1], tmp);
1934 trace_output_40 (tmp);
2934d1c9
MH		 1935}
1936
1937/* mvtc */
1938void
1939OP_5600 ()
1940{
df59058c 1941 int16 tmp;
87178dbd 1942 trace_input ("mvtc", OP_REG, OP_CR_OUTPUT, OP_VOID);
df59058c
JM		 1943 tmp = GPR (OP[0]);
1944 tmp = SET_CREG (OP[1], tmp);
1945 trace_output_16 (tmp);
2934d1c9
MH		 1946}
1947
1948/* mvub */
1949void
1950OP_5401 ()
1951{
df59058c 1952 int16 tmp;
87178dbd 1953 trace_input ("mvub", OP_REG_OUTPUT, OP_REG, OP_VOID);
df59058c
JM		 1954 tmp = (GPR (OP[1]) & 0xff);
1955 SET_GPR (OP[0], tmp);
1956 trace_output_16 (tmp);
2934d1c9
MH		 1957}
1958
1959/* neg */
1960void
1961OP_4605 ()
1962{
df59058c 1963 int16 tmp;
87178dbd 1964 trace_input ("neg", OP_REG, OP_VOID, OP_VOID);
df59058c
JM		 1965 tmp = - GPR (OP[0]);
1966 SET_GPR (OP[0], tmp);
1967 trace_output_16 (tmp);
2934d1c9
MH		 1968}
1969
1970/* neg */
1971void
1972OP_5605 ()
1973{
1974 int64 tmp;
87178dbd
MM		 1975
1976 trace_input ("neg", OP_ACCUM, OP_VOID, OP_VOID);
df59058c
JM		 1977 tmp = -SEXT40(ACC (OP[0]));
1978 if (PSW_ST)
2934d1c9 1979 {
df59058c
JM		 1980 if (tmp > SEXT40(MAX32))
1981 tmp = (MAX32);
1982 else if (tmp < SEXT40(MIN32))
1983 tmp = (MIN32);
2934d1c9 1984 else
df59058c 1985 tmp = (tmp & MASK40);
2934d1c9
MH		 1986 }
1987 else
df59058c
JM		 1988 tmp = (tmp & MASK40);
1989 SET_ACC (OP[0], tmp);
1990 trace_output_40 (tmp);
2934d1c9
MH		 1991}
1992
1993
1994/* nop */
1995void
1996OP_5E00 ()
1997{
87178dbd 1998 trace_input ("nop", OP_VOID, OP_VOID, OP_VOID);
7eebfc62 1999
c422ecc7
MH		 2000 ins_type_counters[ (int)State.ins_type ]--; /* don't count nops as normal instructions */
2001 switch (State.ins_type)
2002 {
2003 default:
2004 ins_type_counters[ (int)INS_UNKNOWN ]++;
2005 break;
2006
2007 case INS_LEFT_PARALLEL:
2008 /* Don't count a parallel op that includes a NOP as a true parallel op */
2009 ins_type_counters[ (int)INS_RIGHT_PARALLEL ]--;
2010 ins_type_counters[ (int)INS_RIGHT ]++;
2011 ins_type_counters[ (int)INS_LEFT_NOPS ]++;
2012 break;
2013
2014 case INS_LEFT:
2015 case INS_LEFT_COND_EXE:
2016 ins_type_counters[ (int)INS_LEFT_NOPS ]++;
2017 break;
2018
2019 case INS_RIGHT_PARALLEL:
2020 /* Don't count a parallel op that includes a NOP as a true parallel op */
2021 ins_type_counters[ (int)INS_LEFT_PARALLEL ]--;
2022 ins_type_counters[ (int)INS_LEFT ]++;
2023 ins_type_counters[ (int)INS_RIGHT_NOPS ]++;
2024 break;
2025
2026 case INS_RIGHT:
2027 case INS_RIGHT_COND_EXE:
2028 ins_type_counters[ (int)INS_RIGHT_NOPS ]++;
2029 break;
2030 }
2031
df59058c 2032 trace_output_void ();
2934d1c9
MH		 2033}
2034
2035/* not */
2036void
2037OP_4603 ()
2038{
df59058c 2039 int16 tmp;
87178dbd 2040 trace_input ("not", OP_REG, OP_VOID, OP_VOID);
df59058c
JM		 2041 tmp = ~GPR (OP[0]);
2042 SET_GPR (OP[0], tmp);
2043 trace_output_16 (tmp);
2934d1c9
MH		 2044}
2045
2046/* or */
2047void
2048OP_800 ()
2049{
df59058c 2050 int16 tmp;
87178dbd 2051 trace_input ("or", OP_REG, OP_REG, OP_VOID);
df59058c
JM		 2052 tmp = (GPR (OP[0]) | GPR (OP[1]));
2053 SET_GPR (OP[0], tmp);
2054 trace_output_16 (tmp);
2934d1c9
MH		 2055}
2056
2057/* or3 */
2058void
2059OP_4000000 ()
2060{
df59058c 2061 int16 tmp;
87178dbd 2062 trace_input ("or3", OP_REG_OUTPUT, OP_REG, OP_CONSTANT16);
df59058c
JM		 2063 tmp = (GPR (OP[1]) | OP[2]);
2064 SET_GPR (OP[0], tmp);
2065 trace_output_16 (tmp);
2934d1c9
MH		 2066}
2067
2068/* rac */
2069void
2070OP_5201 ()
2071{
2072 int64 tmp;
2073 int shift = SEXT3 (OP[2]);
87178dbd
MM		 2074
2075 trace_input ("rac", OP_DREG_OUTPUT, OP_ACCUM, OP_CONSTANT3);
166acb9f
MH		 2076 if (OP[1] != 0)
2077 {
7eebfc62
MM		 2078 (*d10v_callback->printf_filtered) (d10v_callback,
2079 "ERROR at PC 0x%x: instruction only valid for A0\n",
2080 PC<<2);
166acb9f
MH		 2081 State.exception = SIGILL;
2082 }
2083
df59058c
JM		 2084 SET_PSW_F1 (PSW_F0);
2085 tmp = SEXT56 ((ACC (0) << 16) | (ACC (1) & 0xffff));
2934d1c9 2086 if (shift >=0)
aa49c64f 2087 tmp <<= shift;
2934d1c9 2088 else
aa49c64f
AC		 2089 tmp >>= -shift;
2090 tmp += 0x8000;
2091 tmp >>= 16; /* look at bits 0:43 */
2092 if (tmp > SEXT44 (SIGNED64 (0x0007fffffff)))
2934d1c9 2093 {
df59058c
JM		 2094 tmp = 0x7fffffff;
2095 SET_PSW_F0 (1);
2934d1c9 2096 }
aa49c64f 2097 else if (tmp < SEXT44 (SIGNED64 (0xfff80000000)))
2934d1c9 2098 {
df59058c
JM		 2099 tmp = 0x80000000;
2100 SET_PSW_F0 (1);
2934d1c9
MH		 2101 }
2102 else
2103 {
df59058c 2104 SET_PSW_F0 (0);
2934d1c9 2105 }
df59058c
JM		 2106 SET_GPR32 (OP[0], tmp);
2107 trace_output_32 (tmp);
2934d1c9
MH		 2108}
2109
2110/* rachi */
2111void
2112OP_4201 ()
2113{
70ee56c5 2114 signed64 tmp;
4c38885c 2115 int shift = SEXT3 (OP[2]);
87178dbd
MM		 2116
2117 trace_input ("rachi", OP_REG_OUTPUT, OP_ACCUM, OP_CONSTANT3);
df59058c 2118 SET_PSW_F1 (PSW_F0);
4c38885c 2119 if (shift >=0)
df59058c 2120 tmp = SEXT40 (ACC (OP[1])) << shift;
4c38885c 2121 else
df59058c 2122 tmp = SEXT40 (ACC (OP[1])) >> -shift;
4c38885c 2123 tmp += 0x8000;
63a91cfb 2124
70ee56c5 2125 if (tmp > SEXT44 (SIGNED64 (0x0007fffffff)))
4c38885c 2126 {
df59058c
JM		 2127 tmp = 0x7fff;
2128 SET_PSW_F0 (1);
4c38885c 2129 }
70ee56c5 2130 else if (tmp < SEXT44 (SIGNED64 (0xfff80000000)))
4c38885c 2131 {
df59058c
JM		 2132 tmp = 0x8000;
2133 SET_PSW_F0 (1);
4c38885c
MH		 2134 }
2135 else
2136 {
df59058c
JM		 2137 tmp = (tmp >> 16);
2138 SET_PSW_F0 (0);
4c38885c 2139 }
df59058c
JM		 2140 SET_GPR (OP[0], tmp);
2141 trace_output_16 (tmp);
2934d1c9
MH		 2142}
2143
2144/* rep */
2145void
2146OP_27000000 ()
2147{
87178dbd 2148 trace_input ("rep", OP_REG, OP_CONSTANT16, OP_VOID);
df59058c
JM		 2149 SET_RPT_S (PC + 1);
2150 SET_RPT_E (PC + OP[1]);
2151 SET_RPT_C (GPR (OP[0]));
2152 SET_PSW_RP (1);
2153 if (GPR (OP[0]) == 0)
2934d1c9 2154 {
7eebfc62 2155 (*d10v_callback->printf_filtered) (d10v_callback, "ERROR: rep with count=0 is illegal.\n");
4f425a32 2156 State.exception = SIGILL;
2934d1c9 2157 }
4c38885c
MH		 2158 if (OP[1] < 4)
2159 {
7eebfc62 2160 (*d10v_callback->printf_filtered) (d10v_callback, "ERROR: rep must include at least 4 instructions.\n");
4f425a32 2161 State.exception = SIGILL;
4c38885c 2162 }
df59058c 2163 trace_output_void ();
2934d1c9
MH		 2164}
2165
2166/* repi */
2167void
2168OP_2F000000 ()
2169{
87178dbd 2170 trace_input ("repi", OP_CONSTANT16, OP_CONSTANT16, OP_VOID);
df59058c
JM		 2171 SET_RPT_S (PC + 1);
2172 SET_RPT_E (PC + OP[1]);
2173 SET_RPT_C (OP[0]);
2174 SET_PSW_RP (1);
2175 if (OP[0] == 0)
2934d1c9 2176 {
7eebfc62 2177 (*d10v_callback->printf_filtered) (d10v_callback, "ERROR: repi with count=0 is illegal.\n");
4f425a32 2178 State.exception = SIGILL;
4c38885c
MH		 2179 }
2180 if (OP[1] < 4)
2181 {
7eebfc62 2182 (*d10v_callback->printf_filtered) (d10v_callback, "ERROR: repi must include at least 4 instructions.\n");
4f425a32 2183 State.exception = SIGILL;
2934d1c9 2184 }
df59058c 2185 trace_output_void ();
2934d1c9
MH		 2186}
2187
2188/* rtd */
2189void
2190OP_5F60 ()
2191{
df59058c
JM		 2192 trace_input ("rtd", OP_VOID, OP_VOID, OP_VOID);
2193 SET_CREG (PSW_CR, DPSW);
2194 JMP(DPC);
2195 trace_output_void ();
2934d1c9
MH		 2196}
2197
2198/* rte */
2199void
2200OP_5F40 ()
2201{
87178dbd 2202 trace_input ("rte", OP_VOID, OP_VOID, OP_VOID);
df59058c 2203 SET_CREG (PSW_CR, BPSW);
8831cb01 2204 JMP(BPC);
df59058c 2205 trace_output_void ();
2934d1c9
MH		 2206}
2207
2208/* sadd */
2209void
2210OP_1223 ()
2211{
4c38885c 2212 int64 tmp;
87178dbd
MM		 2213
2214 trace_input ("sadd", OP_ACCUM, OP_ACCUM, OP_VOID);
df59058c
JM		 2215 tmp = SEXT40(ACC (OP[0])) + (SEXT40(ACC (OP[1])) >> 16);
2216 if (PSW_ST)
4c38885c 2217 {
df59058c
JM		 2218 if (tmp > SEXT40(MAX32))
2219 tmp = (MAX32);
2220 else if (tmp < SEXT40(MIN32))
2221 tmp = (MIN32);
4c38885c 2222 else
df59058c 2223 tmp = (tmp & MASK40);
4c38885c
MH		 2224 }
2225 else
df59058c
JM		 2226 tmp = (tmp & MASK40);
2227 SET_ACC (OP[0], tmp);
2228 trace_output_40 (tmp);
2934d1c9
MH		 2229}
2230
2231/* setf0f */
2232void
2233OP_4611 ()
2234{
df59058c 2235 int16 tmp;
87178dbd 2236 trace_input ("setf0f", OP_REG_OUTPUT, OP_VOID, OP_VOID);
df59058c
JM		 2237 tmp = ((PSW_F0 == 0) ? 1 : 0);
2238 SET_GPR (OP[0], tmp);
2239 trace_output_16 (tmp);
2934d1c9
MH		 2240}
2241
2242/* setf0t */
2243void
2244OP_4613 ()
2245{
df59058c 2246 int16 tmp;
87178dbd 2247 trace_input ("setf0t", OP_REG_OUTPUT, OP_VOID, OP_VOID);
df59058c
JM		 2248 tmp = ((PSW_F0 == 1) ? 1 : 0);
2249 SET_GPR (OP[0], tmp);
2250 trace_output_16 (tmp);
2934d1c9
MH		 2251}
2252
2253/* sleep */
2254void
2255OP_5FC0 ()
2256{
87178dbd 2257 trace_input ("sleep", OP_VOID, OP_VOID, OP_VOID);
df59058c
JM		 2258 SET_PSW_IE (1);
2259 trace_output_void ();
2934d1c9
MH		 2260}
2261
2262/* sll */
2263void
2264OP_2200 ()
2265{
df59058c 2266 int16 tmp;
87178dbd 2267 trace_input ("sll", OP_REG, OP_REG, OP_VOID);
df59058c
JM		 2268 tmp = (GPR (OP[0]) << (GPR (OP[1]) & 0xf));
2269 SET_GPR (OP[0], tmp);
2270 trace_output_16 (tmp);
2934d1c9
MH		 2271}
2272
2273/* sll */
2274void
2275OP_3200 ()
2276{
4c38885c 2277 int64 tmp;
87178dbd 2278 trace_input ("sll", OP_ACCUM, OP_REG, OP_VOID);
df59058c
JM		 2279 if ((GPR (OP[1]) & 31) <= 16)
2280 tmp = SEXT40 (ACC (OP[0])) << (GPR (OP[1]) & 31);
069398aa
MM		 2281 else
2282 {
df59058c 2283 (*d10v_callback->printf_filtered) (d10v_callback, "ERROR: shift value %d too large.\n", GPR (OP[1]) & 31);
069398aa
MM		 2284 State.exception = SIGILL;
2285 return;
2286 }
4c38885c 2287
df59058c 2288 if (PSW_ST)
4c38885c
MH		 2289 {
2290 if (tmp > MAX32)
df59058c 2291 tmp = (MAX32);
4c38885c 2292 else if (tmp < 0xffffff80000000LL)
df59058c 2293 tmp = (MIN32);
4c38885c 2294 else
df59058c 2295 tmp = (tmp & MASK40);
4c38885c
MH		 2296 }
2297 else
df59058c
JM		 2298 tmp = (tmp & MASK40);
2299 SET_ACC (OP[0], tmp);
2300 trace_output_40 (tmp);
2934d1c9
MH		 2301}
2302
2303/* slli */
2304void
2305OP_2201 ()
2306{
df59058c 2307 int16 tmp;
87178dbd 2308 trace_input ("slli", OP_REG, OP_CONSTANT16, OP_VOID);
df59058c
JM		 2309 tmp = (GPR (OP[0]) << OP[1]);
2310 SET_GPR (OP[0], tmp);
2311 trace_output_16 (tmp);
2934d1c9
MH		 2312}
2313
2314/* slli */
2315void
2316OP_3201 ()
2317{
4c38885c 2318 int64 tmp;
4f425a32
MH		 2319
2320 if (OP[1] == 0)
2321 OP[1] = 16;
4f425a32 2322
87178dbd 2323 trace_input ("slli", OP_ACCUM, OP_CONSTANT16, OP_VOID);
df59058c 2324 tmp = SEXT40(ACC (OP[0])) << OP[1];
4c38885c 2325
df59058c 2326 if (PSW_ST)
4c38885c
MH		 2327 {
2328 if (tmp > MAX32)
df59058c 2329 tmp = (MAX32);
4c38885c 2330 else if (tmp < 0xffffff80000000LL)
df59058c 2331 tmp = (MIN32);
4c38885c 2332 else
df59058c 2333 tmp = (tmp & MASK40);
4c38885c
MH		 2334 }
2335 else
df59058c
JM		 2336 tmp = (tmp & MASK40);
2337 SET_ACC (OP[0], tmp);
2338 trace_output_40 (tmp);
2934d1c9
MH		 2339}
2340
2341/* slx */
2342void
2343OP_460B ()
2344{
df59058c 2345 int16 tmp;
87178dbd 2346 trace_input ("slx", OP_REG, OP_FLAG, OP_VOID);
df59058c
JM		 2347 tmp = ((GPR (OP[0]) << 1) | PSW_F0);
2348 SET_GPR (OP[0], tmp);
2349 trace_output_16 (tmp);
2934d1c9
MH		 2350}
2351
2352/* sra */
2353void
2354OP_2400 ()
2355{
df59058c 2356 int16 tmp;
87178dbd 2357 trace_input ("sra", OP_REG, OP_REG, OP_VOID);
df59058c
JM		 2358 tmp = (((int16)(GPR (OP[0]))) >> (GPR (OP[1]) & 0xf));
2359 SET_GPR (OP[0], tmp);
2360 trace_output_16 (tmp);
2934d1c9
MH		 2361}
2362
2363/* sra */
2364void
2365OP_3400 ()
2366{
87178dbd 2367 trace_input ("sra", OP_ACCUM, OP_REG, OP_VOID);
df59058c
JM		 2368 if ((GPR (OP[1]) & 31) <= 16)
2369 {
2370 int64 tmp = ((SEXT40(ACC (OP[0])) >> (GPR (OP[1]) & 31)) & MASK40);
2371 SET_ACC (OP[0], tmp);
2372 trace_output_40 (tmp);
2373 }
069398aa
MM		 2374 else
2375 {
df59058c 2376 (*d10v_callback->printf_filtered) (d10v_callback, "ERROR: shift value %d too large.\n", GPR (OP[1]) & 31);
069398aa
MM		 2377 State.exception = SIGILL;
2378 return;
2379 }
2934d1c9
MH		 2380}
2381
2382/* srai */
2383void
2384OP_2401 ()
2385{
df59058c 2386 int16 tmp;
87178dbd 2387 trace_input ("srai", OP_REG, OP_CONSTANT16, OP_VOID);
df59058c
JM		 2388 tmp = (((int16)(GPR (OP[0]))) >> OP[1]);
2389 SET_GPR (OP[0], tmp);
2390 trace_output_16 (tmp);
2934d1c9
MH		 2391}
2392
2393/* srai */
2394void
2395OP_3401 ()
2396{
df59058c 2397 int64 tmp;
4f425a32
MH		 2398 if (OP[1] == 0)
2399 OP[1] = 16;
87178dbd
MM		 2400
2401 trace_input ("srai", OP_ACCUM, OP_CONSTANT16, OP_VOID);
df59058c
JM		 2402 tmp = ((SEXT40(ACC (OP[0])) >> OP[1]) & MASK40);
2403 SET_ACC (OP[0], tmp);
2404 trace_output_40 (tmp);
2934d1c9
MH		 2405}
2406
2407/* srl */
2408void
2409OP_2000 ()
2410{
df59058c 2411 int16 tmp;
87178dbd 2412 trace_input ("srl", OP_REG, OP_REG, OP_VOID);
df59058c
JM		 2413 tmp = (GPR (OP[0]) >> (GPR (OP[1]) & 0xf));
2414 SET_GPR (OP[0], tmp);
2415 trace_output_16 (tmp);
2934d1c9
MH		 2416}
2417
2418/* srl */
2419void
2420OP_3000 ()
2421{
87178dbd 2422 trace_input ("srl", OP_ACCUM, OP_REG, OP_VOID);
df59058c
JM		 2423 if ((GPR (OP[1]) & 31) <= 16)
2424 {
2425 int64 tmp = ((uint64)((ACC (OP[0]) & MASK40) >> (GPR (OP[1]) & 31)));
2426 SET_ACC (OP[0], tmp);
2427 trace_output_40 (tmp);
2428 }
069398aa
MM		 2429 else
2430 {
df59058c 2431 (*d10v_callback->printf_filtered) (d10v_callback, "ERROR: shift value %d too large.\n", GPR (OP[1]) & 31);
069398aa
MM		 2432 State.exception = SIGILL;
2433 return;
2434 }
2435
2934d1c9
MH		 2436}
2437
2438/* srli */
2439void
2440OP_2001 ()
2441{
df59058c 2442 int16 tmp;
87178dbd 2443 trace_input ("srli", OP_REG, OP_CONSTANT16, OP_VOID);
df59058c
JM		 2444 tmp = (GPR (OP[0]) >> OP[1]);
2445 SET_GPR (OP[0], tmp);
2446 trace_output_16 (tmp);
2934d1c9
MH		 2447}
2448
2449/* srli */
2450void
2451OP_3001 ()
2452{
df59058c 2453 int64 tmp;
4f425a32
MH		 2454 if (OP[1] == 0)
2455 OP[1] = 16;
87178dbd
MM		 2456
2457 trace_input ("srli", OP_ACCUM, OP_CONSTANT16, OP_VOID);
df59058c
JM		 2458 tmp = ((uint64)(ACC (OP[0]) & MASK40) >> OP[1]);
2459 SET_ACC (OP[0], tmp);
2460 trace_output_40 (tmp);
2934d1c9
MH		 2461}
2462
2463/* srx */
2464void
2465OP_4609 ()
2466{
2467 uint16 tmp;
87178dbd 2468 trace_input ("srx", OP_REG, OP_FLAG, OP_VOID);
df59058c
JM		 2469 tmp = PSW_F0 << 15;
2470 tmp = ((GPR (OP[0]) >> 1) | tmp);
2471 SET_GPR (OP[0], tmp);
2472 trace_output_16 (tmp);
2934d1c9
MH		 2473}
2474
2475/* st */
2476void
2477OP_34000000 ()
2478{
87178dbd 2479 trace_input ("st", OP_REG, OP_MEMREF2, OP_VOID);
df59058c
JM		 2480 SW (OP[1] + GPR (OP[2]), GPR (OP[0]));
2481 trace_output_void ();
2934d1c9
MH		 2482}
2483
2484/* st */
2485void
2486OP_6800 ()
2487{
87178dbd 2488 trace_input ("st", OP_REG, OP_MEMREF, OP_VOID);
df59058c
JM		 2489 SW (GPR (OP[1]), GPR (OP[0]));
2490 trace_output_void ();
2934d1c9
MH		 2491}
2492
2493/* st */
2494void
2495OP_6C1F ()
2496{
df59058c 2497 uint16 addr = GPR (OP[1]) - 2;
87178dbd 2498 trace_input ("st", OP_REG, OP_PREDEC, OP_VOID);
df59058c 2499 if (OP[1] != 15)
4c38885c 2500 {
7eebfc62 2501 (*d10v_callback->printf_filtered) (d10v_callback, "ERROR: cannot pre-decrement any registers but r15 (SP).\n");
4f425a32
MH		 2502 State.exception = SIGILL;
2503 return;
4c38885c 2504 }
df59058c
JM		 2505 SW (addr, GPR (OP[0]));
2506 SET_GPR (OP[1], addr);
2507 trace_output_void ();
2934d1c9
MH		 2508}
2509
2510/* st */
2511void
2512OP_6801 ()
2513{
87178dbd 2514 trace_input ("st", OP_REG, OP_POSTINC, OP_VOID);
df59058c
JM		 2515 SW (GPR (OP[1]), GPR (OP[0]));
2516 INC_ADDR (OP[1], 2);
2517 trace_output_void ();
2934d1c9
MH		 2518}
2519
2520/* st */
2521void
2522OP_6C01 ()
2523{
87178dbd 2524 trace_input ("st", OP_REG, OP_POSTDEC, OP_VOID);
fd435e9f
MM		 2525 if ( OP[1] == 15 )
2526 {
2527 (*d10v_callback->printf_filtered) (d10v_callback, "ERROR: cannot post-decrement register r15 (SP).\n");
2528 State.exception = SIGILL;
2529 return;
2530 }
df59058c
JM		 2531 SW (GPR (OP[1]), GPR (OP[0]));
2532 INC_ADDR (OP[1], -2);
2533 trace_output_void ();
2934d1c9
MH		 2534}
2535
2536/* st2w */
2537void
2538OP_35000000 ()
2539{
87178dbd 2540 trace_input ("st2w", OP_DREG, OP_MEMREF2, OP_VOID);
df59058c
JM		 2541 SW (GPR (OP[2])+ OP[1] + 0, GPR (OP[0] + 0));
2542 SW (GPR (OP[2])+ OP[1] + 2, GPR (OP[0] + 1));
2543 trace_output_void ();
2934d1c9
MH		 2544}
2545
2546/* st2w */
2547void
2548OP_6A00 ()
2549{
a18cb100 2550 trace_input ("st2w", OP_DREG, OP_MEMREF, OP_VOID);
df59058c
JM		 2551 SW (GPR (OP[1]) + 0, GPR (OP[0] + 0));
2552 SW (GPR (OP[1]) + 2, GPR (OP[0] + 1));
2553 trace_output_void ();
2934d1c9
MH		 2554}
2555
2556/* st2w */
2557void
2558OP_6E1F ()
2559{
df59058c 2560 uint16 addr = GPR (OP[1]) - 4;
a18cb100 2561 trace_input ("st2w", OP_DREG, OP_PREDEC, OP_VOID);
4c38885c
MH		 2562 if ( OP[1] != 15 )
2563 {
7eebfc62 2564 (*d10v_callback->printf_filtered) (d10v_callback, "ERROR: cannot pre-decrement any registers but r15 (SP).\n");
4f425a32
MH		 2565 State.exception = SIGILL;
2566 return;
4c38885c 2567 }
df59058c
JM		 2568 SW (addr + 0, GPR (OP[0] + 0));
2569 SW (addr + 2, GPR (OP[0] + 1));
2570 SET_GPR (OP[1], addr);
2571 trace_output_void ();
2934d1c9
MH		 2572}
2573
2574/* st2w */
2575void
2576OP_6A01 ()
2577{
1155e06e 2578 trace_input ("st2w", OP_DREG, OP_POSTINC, OP_VOID);
df59058c
JM		 2579 SW (GPR (OP[1]) + 0, GPR (OP[0] + 0));
2580 SW (GPR (OP[1]) + 2, GPR (OP[0] + 1));
2581 INC_ADDR (OP[1], 4);
2582 trace_output_void ();
2934d1c9
MH		 2583}
2584
2585/* st2w */
2586void
2587OP_6E01 ()
2588{
1155e06e
FF		 2589 trace_input ("st2w", OP_DREG, OP_POSTDEC, OP_VOID);
2590 if ( OP[1] == 15 )
2591 {
2592 (*d10v_callback->printf_filtered) (d10v_callback, "ERROR: cannot post-decrement register r15 (SP).\n");
2593 State.exception = SIGILL;
2594 return;
2595 }
df59058c
JM		 2596 SW (GPR (OP[1]) + 0, GPR (OP[0] + 0));
2597 SW (GPR (OP[1]) + 2, GPR (OP[0] + 1));
2598 INC_ADDR (OP[1], -4);
2599 trace_output_void ();
2934d1c9
MH		 2600}
2601
2602/* stb */
2603void
2604OP_3C000000 ()
2605{
87178dbd 2606 trace_input ("stb", OP_REG, OP_MEMREF2, OP_VOID);
df59058c
JM		 2607 SB (GPR (OP[2]) + OP[1], GPR (OP[0]));
2608 trace_output_void ();
2934d1c9
MH		 2609}
2610
2611/* stb */
2612void
2613OP_7800 ()
2614{
87178dbd 2615 trace_input ("stb", OP_REG, OP_MEMREF, OP_VOID);
df59058c
JM		 2616 SB (GPR (OP[1]), GPR (OP[0]));
2617 trace_output_void ();
2934d1c9
MH		 2618}
2619
2620/* stop */
2621void
2622OP_5FE0 ()
2623{
87178dbd 2624 trace_input ("stop", OP_VOID, OP_VOID, OP_VOID);
a49a15ad 2625 State.exception = SIG_D10V_STOP;
df59058c 2626 trace_output_void ();
2934d1c9
MH		 2627}
2628
2629/* sub */
2630void
2631OP_0 ()
4c38885c 2632{
df59058c
JM		 2633 uint16 a = GPR (OP[0]);
2634 uint16 b = GPR (OP[1]);
2635 uint16 tmp = (a - b);
87178dbd 2636 trace_input ("sub", OP_REG, OP_REG, OP_VOID);
aa49c64f
AC		 2637 /* see ../common/sim-alu.h for a more extensive discussion on how to
2638 compute the carry/overflow bits. */
df59058c
JM		 2639 SET_PSW_C (a >= b);
2640 SET_GPR (OP[0], tmp);
2641 trace_output_16 (tmp);
4c38885c
MH		 2642}
2643
2644/* sub */
2645void
2646OP_1001 ()
2647{
4f425a32 2648 int64 tmp;
87178dbd
MM		 2649
2650 trace_input ("sub", OP_ACCUM, OP_DREG, OP_VOID);
df59058c
JM		 2651 tmp = SEXT40(ACC (OP[0])) - (SEXT16 (GPR (OP[1])) << 16 | GPR (OP[1] + 1));
2652 if (PSW_ST)
4f425a32
MH		 2653 {
2654 if ( tmp > MAX32)
df59058c 2655 tmp = (MAX32);
4f425a32 2656 else if ( tmp < MIN32)
df59058c 2657 tmp = (MIN32);
4f425a32 2658 else
df59058c 2659 tmp = (tmp & MASK40);
4f425a32
MH		 2660 }
2661 else
df59058c
JM		 2662 tmp = (tmp & MASK40);
2663 SET_ACC (OP[0], tmp);
87178dbd 2664
df59058c 2665 trace_output_40 (tmp);
4c38885c
MH		 2666}
2667
2668/* sub */
2669
2670void
2671OP_1003 ()
2934d1c9 2672{
4f425a32 2673 int64 tmp;
87178dbd
MM		 2674
2675 trace_input ("sub", OP_ACCUM, OP_ACCUM, OP_VOID);
df59058c
JM		 2676 tmp = SEXT40(ACC (OP[0])) - SEXT40(ACC (OP[1]));
2677 if (PSW_ST)
4f425a32
MH		 2678 {
2679 if (tmp > MAX32)
df59058c 2680 tmp = (MAX32);
4f425a32 2681 else if ( tmp < MIN32)
df59058c 2682 tmp = (MIN32);
4f425a32 2683 else
df59058c 2684 tmp = (tmp & MASK40);
4f425a32
MH		 2685 }
2686 else
df59058c
JM		 2687 tmp = (tmp & MASK40);
2688 SET_ACC (OP[0], tmp);
87178dbd 2689
df59058c 2690 trace_output_40 (tmp);
2934d1c9
MH		 2691}
2692
2693/* sub2w */
2694void
2695OP_1000 ()
2696{
df59058c 2697 uint32 tmp, a, b;
4c38885c 2698
87178dbd 2699 trace_input ("sub2w", OP_DREG, OP_DREG, OP_VOID);
df59058c
JM		 2700 a = (uint32)((GPR (OP[0]) << 16) | GPR (OP[0] + 1));
2701 b = (uint32)((GPR (OP[1]) << 16) | GPR (OP[1] + 1));
70ee56c5
AC		 2702 /* see ../common/sim-alu.h for a more extensive discussion on how to
2703 compute the carry/overflow bits */
2704 tmp = a - b;
df59058c
JM		 2705 SET_PSW_C (a >= b);
2706 SET_GPR32 (OP[0], tmp);
2707 trace_output_32 (tmp);
2934d1c9
MH		 2708}
2709
2710/* subac3 */
2711void
2712OP_17000000 ()
2713{
4f425a32 2714 int64 tmp;
87178dbd
MM		 2715
2716 trace_input ("subac3", OP_DREG_OUTPUT, OP_DREG, OP_ACCUM);
df59058c
JM		 2717 tmp = SEXT40 ((GPR (OP[1]) << 16) | GPR (OP[1] + 1)) - SEXT40 (ACC (OP[2]));
2718 SET_GPR32 (OP[0], tmp);
2719 trace_output_32 (tmp);
2934d1c9
MH		 2720}
2721
2722/* subac3 */
2723void
2724OP_17000002 ()
2725{
4f425a32 2726 int64 tmp;
87178dbd
MM		 2727
2728 trace_input ("subac3", OP_DREG_OUTPUT, OP_ACCUM, OP_ACCUM);
df59058c
JM		 2729 tmp = SEXT40 (ACC (OP[1])) - SEXT40(ACC (OP[2]));
2730 SET_GPR32 (OP[0], tmp);
2731 trace_output_32 (tmp);
2934d1c9
MH		 2732}
2733
2734/* subac3s */
2735void
2736OP_17001000 ()
2737{
4f425a32 2738 int64 tmp;
87178dbd
MM		 2739
2740 trace_input ("subac3s", OP_DREG_OUTPUT, OP_DREG, OP_ACCUM);
df59058c
JM		 2741 SET_PSW_F1 (PSW_F0);
2742 tmp = SEXT40 ((GPR (OP[1]) << 16) | GPR (OP[1] + 1)) - SEXT40(ACC (OP[2]));
4f425a32
MH		 2743 if ( tmp > MAX32)
2744 {
df59058c
JM		 2745 tmp = 0x7fffffff;
2746 SET_PSW_F0 (1);
4f425a32
MH		 2747 }
2748 else if (tmp < MIN32)
2749 {
df59058c
JM		 2750 tmp = 0x80000000;
2751 SET_PSW_F0 (1);
4f425a32
MH		 2752 }
2753 else
2754 {
df59058c 2755 SET_PSW_F0 (0);
4f425a32 2756 }
df59058c
JM		 2757 SET_GPR32 (OP[0], tmp);
2758 trace_output_32 (tmp);
2934d1c9
MH		 2759}
2760
2761/* subac3s */
2762void
2763OP_17001002 ()
2764{
4f425a32 2765 int64 tmp;
87178dbd
MM		 2766
2767 trace_input ("subac3s", OP_DREG_OUTPUT, OP_ACCUM, OP_ACCUM);
df59058c
JM		 2768 SET_PSW_F1 (PSW_F0);
2769 tmp = SEXT40(ACC (OP[1])) - SEXT40(ACC (OP[2]));
4f425a32
MH		 2770 if ( tmp > MAX32)
2771 {
df59058c
JM		 2772 tmp = 0x7fffffff;
2773 SET_PSW_F0 (1);
4f425a32
MH		 2774 }
2775 else if (tmp < MIN32)
2776 {
df59058c
JM		 2777 tmp = 0x80000000;
2778 SET_PSW_F0 (1);
4f425a32
MH		 2779 }
2780 else
2781 {
df59058c 2782 SET_PSW_F0 (0);
4f425a32 2783 }
df59058c
JM		 2784 SET_GPR32 (OP[0], tmp);
2785 trace_output_32 (tmp);
2934d1c9
MH		 2786}
2787
2788/* subi */
2789void
2790OP_1 ()
2791{
70ee56c5 2792 unsigned tmp;
4f425a32
MH		 2793 if (OP[1] == 0)
2794 OP[1] = 16;
87178dbd
MM		 2795
2796 trace_input ("subi", OP_REG, OP_CONSTANT16, OP_VOID);
70ee56c5 2797 /* see ../common/sim-alu.h for a more extensive discussion on how to
51b057f2
AC		 2798 compute the carry/overflow bits. */
2799 /* since OP[1] is never <= 0, -OP[1] == ~OP[1]+1 can never overflow */
df59058c 2800 tmp = ((unsigned)(unsigned16) GPR (OP[0])
70ee56c5 2801 + (unsigned)(unsigned16) ( - OP[1]));
df59058c
JM		 2802 SET_PSW_C (tmp >= (1 << 16));
2803 SET_GPR (OP[0], tmp);
2804 trace_output_16 (tmp);
2934d1c9
MH		 2805}
2806
2807/* trap */
2808void
2809OP_5F00 ()
2810{
a5719092 2811 trace_input ("trap", OP_CONSTANT4, OP_VOID, OP_VOID);
df59058c 2812 trace_output_void ();
8918b3a7 2813
63a91cfb 2814 switch (OP[0])
2934d1c9 2815 {
63a91cfb 2816 default:
19431a02 2817#if (DEBUG & DEBUG_TRAP) == 0
19d44375 2818 {
bc6df23d 2819 uint16 vec = OP[0] + TRAP_VECTOR_START;
df59058c
JM		 2820 SET_BPC (PC + 1);
2821 SET_BPSW (PSW);
2822 SET_PSW (PSW & PSW_SM_BIT);
bc6df23d 2823 JMP (vec);
19431a02 2824 break;
87e43259 2825 }
19431a02
AC		 2826#else /* if debugging use trap to print registers */
2827 {
2828 int i;
2829 static int first_time = 1;
2830
2831 if (first_time)
2832 {
2833 first_time = 0;
2834 (*d10v_callback->printf_filtered) (d10v_callback, "Trap # PC ");
2835 for (i = 0; i < 16; i++)
2836 (*d10v_callback->printf_filtered) (d10v_callback, " %sr%d", (i > 9) ? "" : " ", i);
2837 (*d10v_callback->printf_filtered) (d10v_callback, " a0 a1 f0 f1 c\n");
2838 }
2839
2840 (*d10v_callback->printf_filtered) (d10v_callback, "Trap %2d 0x%.4x:", (int)OP[0], (int)PC);
2841
2842 for (i = 0; i < 16; i++)
df59058c 2843 (*d10v_callback->printf_filtered) (d10v_callback, " %.4x", (int) GPR (i));
19431a02
AC		 2844
2845 for (i = 0; i < 2; i++)
2846 (*d10v_callback->printf_filtered) (d10v_callback, " %.2x%.8lx",
df59058c
JM		 2847 ((int)(ACC (i) >> 32) & 0xff),
2848 ((unsigned long) ACC (i)) & 0xffffffff);
19431a02
AC		 2849
2850 (*d10v_callback->printf_filtered) (d10v_callback, " %d %d %d\n",
df59058c 2851 PSW_F0 != 0, PSW_F1 != 0, PSW_C != 0);
19431a02
AC		 2852 (*d10v_callback->flush_stdout) (d10v_callback);
2853 break;
2854 }
2855#endif
87e43259
AC		 2856 case 15: /* new system call trap */
2857 /* Trap 15 is used for simulating low-level I/O */
63a91cfb 2858 {
df59058c 2859 unsigned32 result = 0;
63a91cfb
MM		 2860 errno = 0;
2861
2862/* Registers passed to trap 0 */
2863
df59058c
JM		 2864#define FUNC GPR (4) /* function number */
2865#define PARM1 GPR (0) /* optional parm 1 */
2866#define PARM2 GPR (1) /* optional parm 2 */
2867#define PARM3 GPR (2) /* optional parm 3 */
2868#define PARM4 GPR (3) /* optional parm 3 */
63a91cfb
MM		 2869
2870/* Registers set by trap 0 */
2871
df59058c
JM		 2872#define RETVAL(X) do { result = (X); SET_GPR (0, result); } while (0)
2873#define RETVAL32(X) do { result = (X); SET_GPR (0, result >> 16); SET_GPR (1, result); } while (0)
2874#define RETERR(X) SET_GPR (4, (X)) /* return error code */
63a91cfb
MM		 2875
2876/* Turn a pointer in a register into a pointer into real memory. */
2877
c422ecc7 2878#define MEMPTR(x) ((char *)(dmem_addr(x)))
63a91cfb
MM		 2879
2880 switch (FUNC)
2881 {
2882#if !defined(__GO32__) && !defined(_WIN32)
df59058c 2883 case TARGET_SYS_fork:
8918b3a7 2884 trace_input ("<fork>", OP_VOID, OP_VOID, OP_VOID);
df59058c
JM		 2885 RETVAL (fork ());
2886 trace_output_16 (result);
63a91cfb 2887 break;
8918b3a7 2888
df59058c
JM		 2889#define getpid() 47
2890 case TARGET_SYS_getpid:
57bc1a72 2891 trace_input ("<getpid>", OP_VOID, OP_VOID, OP_VOID);
df59058c
JM		 2892 RETVAL (getpid ());
2893 trace_output_16 (result);
57bc1a72
MM		 2894 break;
2895
df59058c
JM		 2896 case TARGET_SYS_kill:
2897 trace_input ("<kill>", OP_R0, OP_R1, OP_VOID);
57bc1a72
MM		 2898 if (PARM1 == getpid ())
2899 {
df59058c 2900 trace_output_void ();
57bc1a72
MM		 2901 State.exception = PARM2;
2902 }
2903 else
2904 {
2905 int os_sig = -1;
2906 switch (PARM2)
2907 {
2908#ifdef SIGHUP
2909 case 1: os_sig = SIGHUP; break;
2910#endif
2911#ifdef SIGINT
2912 case 2: os_sig = SIGINT; break;
2913#endif
2914#ifdef SIGQUIT
2915 case 3: os_sig = SIGQUIT; break;
2916#endif
2917#ifdef SIGILL
2918 case 4: os_sig = SIGILL; break;
2919#endif
2920#ifdef SIGTRAP
2921 case 5: os_sig = SIGTRAP; break;
2922#endif
2923#ifdef SIGABRT
2924 case 6: os_sig = SIGABRT; break;
2925#elif defined(SIGIOT)
2926 case 6: os_sig = SIGIOT; break;
2927#endif
2928#ifdef SIGEMT
2929 case 7: os_sig = SIGEMT; break;
2930#endif
2931#ifdef SIGFPE
2932 case 8: os_sig = SIGFPE; break;
2933#endif
2934#ifdef SIGKILL
2935 case 9: os_sig = SIGKILL; break;
2936#endif
2937#ifdef SIGBUS
2938 case 10: os_sig = SIGBUS; break;
2939#endif
2940#ifdef SIGSEGV
2941 case 11: os_sig = SIGSEGV; break;
2942#endif
2943#ifdef SIGSYS
2944 case 12: os_sig = SIGSYS; break;
2945#endif
2946#ifdef SIGPIPE
2947 case 13: os_sig = SIGPIPE; break;
2948#endif
2949#ifdef SIGALRM
2950 case 14: os_sig = SIGALRM; break;
2951#endif
2952#ifdef SIGTERM
2953 case 15: os_sig = SIGTERM; break;
2954#endif
2955#ifdef SIGURG
2956 case 16: os_sig = SIGURG; break;
2957#endif
2958#ifdef SIGSTOP
2959 case 17: os_sig = SIGSTOP; break;
2960#endif
2961#ifdef SIGTSTP
2962 case 18: os_sig = SIGTSTP; break;
2963#endif
2964#ifdef SIGCONT
2965 case 19: os_sig = SIGCONT; break;
2966#endif
2967#ifdef SIGCHLD
2968 case 20: os_sig = SIGCHLD; break;
2969#elif defined(SIGCLD)
2970 case 20: os_sig = SIGCLD; break;
2971#endif
2972#ifdef SIGTTIN
2973 case 21: os_sig = SIGTTIN; break;
2974#endif
2975#ifdef SIGTTOU
2976 case 22: os_sig = SIGTTOU; break;
2977#endif
2978#ifdef SIGIO
2979 case 23: os_sig = SIGIO; break;
2980#elif defined (SIGPOLL)
2981 case 23: os_sig = SIGPOLL; break;
2982#endif
2983#ifdef SIGXCPU
2984 case 24: os_sig = SIGXCPU; break;
2985#endif
2986#ifdef SIGXFSZ
2987 case 25: os_sig = SIGXFSZ; break;
2988#endif
2989#ifdef SIGVTALRM
2990 case 26: os_sig = SIGVTALRM; break;
2991#endif
2992#ifdef SIGPROF
2993 case 27: os_sig = SIGPROF; break;
2994#endif
2995#ifdef SIGWINCH
2996 case 28: os_sig = SIGWINCH; break;
2997#endif
2998#ifdef SIGLOST
2999 case 29: os_sig = SIGLOST; break;
3000#endif
3001#ifdef SIGUSR1
3002 case 30: os_sig = SIGUSR1; break;
3003#endif
3004#ifdef SIGUSR2
3005 case 31: os_sig = SIGUSR2; break;
3006#endif
3007 }
3008
3009 if (os_sig == -1)
3010 {
df59058c 3011 trace_output_void ();
57bc1a72 3012 (*d10v_callback->printf_filtered) (d10v_callback, "Unknown signal %d\n", PARM2);
fd435e9f 3013 (*d10v_callback->flush_stdout) (d10v_callback);
57bc1a72
MM		 3014 State.exception = SIGILL;
3015 }
3016 else
3017 {
df59058c
JM		 3018 RETVAL (kill (PARM1, PARM2));
3019 trace_output_16 (result);
57bc1a72
MM		 3020 }
3021 }
3022 break;
3023
df59058c 3024 case TARGET_SYS_execve:
8831cb01 3025 trace_input ("<execve>", OP_R0, OP_R1, OP_R2);
df59058c
JM		 3026 RETVAL (execve (MEMPTR (PARM1), (char **) MEMPTR (PARM2),
3027 (char **)MEMPTR (PARM3)));
3028 trace_output_16 (result);
63a91cfb 3029 break;
8918b3a7 3030
df59058c
JM		 3031#ifdef TARGET_SYS_execv
3032 case TARGET_SYS_execv:
8831cb01 3033 trace_input ("<execv>", OP_R0, OP_R1, OP_VOID);
df59058c
JM		 3034 RETVAL (execve (MEMPTR (PARM1), (char **) MEMPTR (PARM2), NULL));
3035 trace_output_16 (result);
63a91cfb 3036 break;
87e43259 3037#endif
8918b3a7 3038
df59058c 3039 case TARGET_SYS_pipe:
63a91cfb
MM		 3040 {
3041 reg_t buf;
3042 int host_fd[2];
3043
df59058c 3044 trace_input ("<pipe>", OP_R0, OP_VOID, OP_VOID);
63a91cfb 3045 buf = PARM1;
df59058c 3046 RETVAL (pipe (host_fd));
63a91cfb
MM		 3047 SW (buf, host_fd[0]);
3048 buf += sizeof(uint16);
3049 SW (buf, host_fd[1]);
df59058c 3050 trace_output_16 (result);
63a91cfb
MM		 3051 }
3052 break;
8918b3a7 3053
df59058c
JM		 3054#if 0
3055#ifdef TARGET_SYS_wait
3056 case TARGET_SYS_wait:
63a91cfb
MM		 3057 {
3058 int status;
df59058c
JM		 3059 trace_input ("<wait>", OP_R0, OP_VOID, OP_VOID);
3060 RETVAL (wait (&status));
8918b3a7
MM		 3061 if (PARM1)
3062 SW (PARM1, status);
df59058c 3063 trace_output_16 (result);
63a91cfb
MM		 3064 }
3065 break;
87e43259 3066#endif
df59058c 3067#endif
57bc1a72 3068#else
df59058c 3069 case TARGET_SYS_getpid:
57bc1a72 3070 trace_input ("<getpid>", OP_VOID, OP_VOID, OP_VOID);
df59058c
JM		 3071 RETVAL (1);
3072 trace_output_16 (result);
57bc1a72
MM		 3073 break;
3074
df59058c 3075 case TARGET_SYS_kill:
57bc1a72 3076 trace_input ("<kill>", OP_REG, OP_REG, OP_VOID);
df59058c 3077 trace_output_void ();
57bc1a72
MM		 3078 State.exception = PARM2;
3079 break;
63a91cfb 3080#endif
8918b3a7 3081
df59058c 3082 case TARGET_SYS_read:
8831cb01 3083 trace_input ("<read>", OP_R0, OP_R1, OP_R2);
df59058c
JM		 3084 RETVAL (d10v_callback->read (d10v_callback, PARM1, MEMPTR (PARM2),
3085 PARM3));
3086 trace_output_16 (result);
63a91cfb 3087 break;
8918b3a7 3088
df59058c
JM		 3089 case TARGET_SYS_write:
3090 trace_input ("<write>", OP_R0, OP_R1, OP_R2);
63a91cfb 3091 if (PARM1 == 1)
df59058c
JM		 3092 RETVAL ((int)d10v_callback->write_stdout (d10v_callback,
3093 MEMPTR (PARM2), PARM3));
63a91cfb 3094 else
df59058c
JM		 3095 RETVAL ((int)d10v_callback->write (d10v_callback, PARM1,
3096 MEMPTR (PARM2), PARM3));
3097 trace_output_16 (result);
63a91cfb 3098 break;
8918b3a7 3099
df59058c 3100 case TARGET_SYS_lseek:
8831cb01 3101 trace_input ("<lseek>", OP_R0, OP_R1, OP_R2);
df59058c
JM		 3102 RETVAL32 (d10v_callback->lseek (d10v_callback, PARM1,
3103 ((((unsigned long) PARM2) << 16)
3104 || (unsigned long) PARM3),
3105 PARM4));
3106 trace_output_32 (result);
63a91cfb 3107 break;
8918b3a7 3108
df59058c 3109 case TARGET_SYS_close:
8831cb01 3110 trace_input ("<close>", OP_R0, OP_VOID, OP_VOID);
df59058c
JM		 3111 RETVAL (d10v_callback->close (d10v_callback, PARM1));
3112 trace_output_16 (result);
63a91cfb 3113 break;
8918b3a7 3114
df59058c 3115 case TARGET_SYS_open:
8831cb01 3116 trace_input ("<open>", OP_R0, OP_R1, OP_R2);
df59058c
JM		 3117 RETVAL (d10v_callback->open (d10v_callback, MEMPTR (PARM1), PARM2));
3118 trace_output_16 (result);
63a91cfb 3119 break;
8918b3a7 3120
df59058c 3121 case TARGET_SYS_exit:
8831cb01 3122 trace_input ("<exit>", OP_R0, OP_VOID, OP_VOID);
df59058c
JM		 3123 State.exception = SIG_D10V_EXIT;
3124 trace_output_void ();
63a91cfb 3125 break;
63a91cfb 3126
df59058c
JM		 3127 case TARGET_SYS_stat:
3128 trace_input ("<stat>", OP_R0, OP_R1, OP_VOID);
63a91cfb
MM		 3129 /* stat system call */
3130 {
3131 struct stat host_stat;
3132 reg_t buf;
3133
df59058c 3134 RETVAL (stat (MEMPTR (PARM1), &host_stat));
63a91cfb
MM		 3135
3136 buf = PARM2;
3137
3138 /* The hard-coded offsets and sizes were determined by using
3139 * the D10V compiler on a test program that used struct stat.
3140 */
3141 SW (buf, host_stat.st_dev);
3142 SW (buf+2, host_stat.st_ino);
3143 SW (buf+4, host_stat.st_mode);
3144 SW (buf+6, host_stat.st_nlink);
3145 SW (buf+8, host_stat.st_uid);
3146 SW (buf+10, host_stat.st_gid);
3147 SW (buf+12, host_stat.st_rdev);
3148 SLW (buf+16, host_stat.st_size);
3149 SLW (buf+20, host_stat.st_atime);
3150 SLW (buf+28, host_stat.st_mtime);
3151 SLW (buf+36, host_stat.st_ctime);
3152 }
df59058c 3153 trace_output_16 (result);
63a91cfb 3154 break;
63a91cfb 3155
df59058c 3156 case TARGET_SYS_chown:
8831cb01 3157 trace_input ("<chown>", OP_R0, OP_R1, OP_R2);
df59058c
JM		 3158 RETVAL (chown (MEMPTR (PARM1), PARM2, PARM3));
3159 trace_output_16 (result);
63a91cfb 3160 break;
8918b3a7 3161
df59058c 3162 case TARGET_SYS_chmod:
8831cb01 3163 trace_input ("<chmod>", OP_R0, OP_R1, OP_R2);
df59058c
JM		 3164 RETVAL (chmod (MEMPTR (PARM1), PARM2));
3165 trace_output_16 (result);
63a91cfb 3166 break;
8918b3a7 3167
df59058c
JM		 3168#if 0
3169#ifdef TARGET_SYS_utime
3170 case TARGET_SYS_utime:
3171 trace_input ("<utime>", OP_R0, OP_R1, OP_R2);
63a91cfb
MM		 3172 /* Cast the second argument to void *, to avoid type mismatch
3173 if a prototype is present. */
df59058c
JM		 3174 RETVAL (utime (MEMPTR (PARM1), (void *) MEMPTR (PARM2)));
3175 trace_output_16 (result);
8918b3a7 3176 break;
87e43259 3177#endif
df59058c 3178#endif
8918b3a7 3179
df59058c
JM		 3180#if 0
3181#ifdef TARGET_SYS_time
3182 case TARGET_SYS_time:
8831cb01 3183 trace_input ("<time>", OP_R0, OP_R1, OP_R2);
df59058c
JM		 3184 RETVAL32 (time (PARM1 ? MEMPTR (PARM1) : NULL));
3185 trace_output_32 (result);
63a91cfb 3186 break;
df59058c 3187#endif
87e43259 3188#endif
8918b3a7 3189
63a91cfb 3190 default:
b41dff6b 3191 d10v_callback->error (d10v_callback, "Unknown syscall %d", FUNC);
63a91cfb 3192 }
df59058c
JM		 3193 if ((uint16) result == (uint16) -1)
3194 RETERR (d10v_callback->get_errno(d10v_callback));
3195 else
3196 RETERR (0);
63a91cfb
MM		 3197 break;
3198 }
2934d1c9
MH		 3199 }
3200}
3201
3202/* tst0i */
3203void
3204OP_7000000 ()
3205{
87178dbd 3206 trace_input ("tst0i", OP_REG, OP_CONSTANT16, OP_VOID);
df59058c
JM		 3207 SET_PSW_F1 (PSW_F0);;
3208 SET_PSW_F0 ((GPR (OP[0]) & OP[1]) ? 1 : 0);
3209 trace_output_flag ();
2934d1c9
MH		 3210}
3211
3212/* tst1i */
3213void
3214OP_F000000 ()
3215{
87178dbd 3216 trace_input ("tst1i", OP_REG, OP_CONSTANT16, OP_VOID);
df59058c
JM		 3217 SET_PSW_F1 (PSW_F0);
3218 SET_PSW_F0 ((~(GPR (OP[0])) & OP[1]) ? 1 : 0);
3219 trace_output_flag ();
2934d1c9
MH		 3220}
3221
3222/* wait */
3223void
3224OP_5F80 ()
3225{
87178dbd 3226 trace_input ("wait", OP_VOID, OP_VOID, OP_VOID);
df59058c
JM		 3227 SET_PSW_IE (1);
3228 trace_output_void ();
2934d1c9
MH		 3229}
3230
3231/* xor */
3232void
3233OP_A00 ()
3234{
df59058c 3235 int16 tmp;
87178dbd 3236 trace_input ("xor", OP_REG, OP_REG, OP_VOID);
df59058c
JM		 3237 tmp = (GPR (OP[0]) ^ GPR (OP[1]));
3238 SET_GPR (OP[0], tmp);
3239 trace_output_16 (tmp);
2934d1c9
MH		 3240}
3241
3242/* xor3 */
3243void
3244OP_5000000 ()
3245{
df59058c 3246 int16 tmp;
87178dbd 3247 trace_input ("xor3", OP_REG_OUTPUT, OP_REG, OP_CONSTANT16);
df59058c
JM		 3248 tmp = (GPR (OP[1]) ^ OP[2]);
3249 SET_GPR (OP[0], tmp);
3250 trace_output_16 (tmp);
2934d1c9
MH		 3251}
3252
A mirror of the official binutils-gdb repository