1 /* 2 * Simulator for the Renesas (formerly Hitachi) H8/300 architecture. 3 * 4 * Written by Steve Chamberlain of Cygnus Support. sac@cygnus.com 5 * 6 * This file is part of H8/300 sim 7 * 8 * 9 * THIS SOFTWARE IS NOT COPYRIGHTED 10 * 11 * Cygnus offers the following for use in the public domain. Cygnus makes no 12 * warranty with regard to the software or its performance and the user 13 * accepts the software "AS IS" with all faults. 14 * 15 * CYGNUS DISCLAIMS ANY WARRANTIES, EXPRESS OR IMPLIED, WITH REGARD TO THIS 16 * SOFTWARE INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY 17 * AND FITNESS FOR A PARTICULAR PURPOSE. 18 */ 19 20 #include <signal.h> 21 #ifdef HAVE_TIME_H 22 #include <time.h> 23 #endif 24 #ifdef HAVE_STDLIB_H 25 #include <stdlib.h> 26 #endif 27 #ifdef HAVE_SYS_PARAM_H 28 #include <sys/param.h> 29 #endif 30 31 #include "bfd.h" 32 #include "sim-main.h" 33 #include "gdb/sim-h8300.h" 34 #include "sys/stat.h" 35 #include "sys/types.h" 36 37 #ifndef SIGTRAP 38 # define SIGTRAP 5 39 #endif 40 41 int debug; 42 43 host_callback *sim_callback; 44 45 static SIM_OPEN_KIND sim_kind; 46 static char *myname; 47 48 /* FIXME: Needs to live in header file. 49 This header should also include the things in remote-sim.h. 50 One could move this to remote-sim.h but this function isn't needed 51 by gdb. */ 52 static void set_simcache_size (SIM_DESC, int); 53 54 #define X(op, size) (op * 4 + size) 55 56 #define SP (h8300hmode && !h8300_normal_mode ? SL : SW) 57 58 #define h8_opcodes ops 59 #define DEFINE_TABLE 60 #include "opcode/h8300.h" 61 62 /* CPU data object: */ 63 64 static int 65 sim_state_initialize (SIM_DESC sd, sim_cpu *cpu) 66 { 67 /* FIXME: not really necessary, since sim_cpu_alloc calls zalloc. */ 68 69 memset (&cpu->regs, 0, sizeof(cpu->regs)); 70 cpu->regs[SBR_REGNUM] = 0xFFFFFF00; 71 cpu->pc = 0; 72 cpu->delayed_branch = 0; 73 cpu->memory = NULL; 74 cpu->eightbit = NULL; 75 cpu->mask = 0; 76 77 /* Initialize local simulator state. */ 78 sd->sim_cache = NULL; 79 sd->sim_cache_size = 0; 80 sd->cache_idx = NULL; 81 sd->cache_top = 0; 82 sd->memory_size = 0; 83 sd->compiles = 0; 84 #ifdef ADEBUG 85 memset (&cpu->stats, 0, sizeof (cpu->stats)); 86 #endif 87 return 0; 88 } 89 90 static unsigned int 91 h8_get_pc (SIM_DESC sd) 92 { 93 return (STATE_CPU (sd, 0)) -> pc; 94 } 95 96 static void 97 h8_set_pc (SIM_DESC sd, unsigned int val) 98 { 99 (STATE_CPU (sd, 0)) -> pc = val; 100 } 101 102 static unsigned int 103 h8_get_ccr (SIM_DESC sd) 104 { 105 return (STATE_CPU (sd, 0)) -> regs[CCR_REGNUM]; 106 } 107 108 static void 109 h8_set_ccr (SIM_DESC sd, unsigned int val) 110 { 111 (STATE_CPU (sd, 0)) -> regs[CCR_REGNUM] = val; 112 } 113 114 static unsigned int 115 h8_get_exr (SIM_DESC sd) 116 { 117 return (STATE_CPU (sd, 0)) -> regs[EXR_REGNUM]; 118 } 119 120 static void 121 h8_set_exr (SIM_DESC sd, unsigned int val) 122 { 123 (STATE_CPU (sd, 0)) -> regs[EXR_REGNUM] = val; 124 } 125 126 static int 127 h8_get_sbr (SIM_DESC sd) 128 { 129 return (STATE_CPU (sd, 0)) -> regs[SBR_REGNUM]; 130 } 131 132 static void 133 h8_set_sbr (SIM_DESC sd, int val) 134 { 135 (STATE_CPU (sd, 0)) -> regs[SBR_REGNUM] = val; 136 } 137 138 static int 139 h8_get_vbr (SIM_DESC sd) 140 { 141 return (STATE_CPU (sd, 0)) -> regs[VBR_REGNUM]; 142 } 143 144 static void 145 h8_set_vbr (SIM_DESC sd, int val) 146 { 147 (STATE_CPU (sd, 0)) -> regs[VBR_REGNUM] = val; 148 } 149 150 static int 151 h8_get_cache_top (SIM_DESC sd) 152 { 153 return sd -> cache_top; 154 } 155 156 static void 157 h8_set_cache_top (SIM_DESC sd, int val) 158 { 159 sd -> cache_top = val; 160 } 161 162 static int 163 h8_get_mask (SIM_DESC sd) 164 { 165 return (STATE_CPU (sd, 0)) -> mask; 166 } 167 168 static void 169 h8_set_mask (SIM_DESC sd, int val) 170 { 171 (STATE_CPU (sd, 0)) -> mask = val; 172 } 173 #if 0 174 static int 175 h8_get_exception (SIM_DESC sd) 176 { 177 return (STATE_CPU (sd, 0)) -> exception; 178 } 179 180 static void 181 h8_set_exception (SIM_DESC sd, int val) 182 { 183 (STATE_CPU (sd, 0)) -> exception = val; 184 } 185 186 static enum h8300_sim_state 187 h8_get_state (SIM_DESC sd) 188 { 189 return sd -> state; 190 } 191 192 static void 193 h8_set_state (SIM_DESC sd, enum h8300_sim_state val) 194 { 195 sd -> state = val; 196 } 197 #endif 198 static unsigned int 199 h8_get_cycles (SIM_DESC sd) 200 { 201 return (STATE_CPU (sd, 0)) -> regs[CYCLE_REGNUM]; 202 } 203 204 static void 205 h8_set_cycles (SIM_DESC sd, unsigned int val) 206 { 207 (STATE_CPU (sd, 0)) -> regs[CYCLE_REGNUM] = val; 208 } 209 210 static unsigned int 211 h8_get_insts (SIM_DESC sd) 212 { 213 return (STATE_CPU (sd, 0)) -> regs[INST_REGNUM]; 214 } 215 216 static void 217 h8_set_insts (SIM_DESC sd, unsigned int val) 218 { 219 (STATE_CPU (sd, 0)) -> regs[INST_REGNUM] = val; 220 } 221 222 static unsigned int 223 h8_get_ticks (SIM_DESC sd) 224 { 225 return (STATE_CPU (sd, 0)) -> regs[TICK_REGNUM]; 226 } 227 228 static void 229 h8_set_ticks (SIM_DESC sd, unsigned int val) 230 { 231 (STATE_CPU (sd, 0)) -> regs[TICK_REGNUM] = val; 232 } 233 234 static unsigned int 235 h8_get_mach (SIM_DESC sd) 236 { 237 return (STATE_CPU (sd, 0)) -> regs[MACH_REGNUM]; 238 } 239 240 static void 241 h8_set_mach (SIM_DESC sd, unsigned int val) 242 { 243 (STATE_CPU (sd, 0)) -> regs[MACH_REGNUM] = val; 244 } 245 246 static unsigned int 247 h8_get_macl (SIM_DESC sd) 248 { 249 return (STATE_CPU (sd, 0)) -> regs[MACL_REGNUM]; 250 } 251 252 static void 253 h8_set_macl (SIM_DESC sd, unsigned int val) 254 { 255 (STATE_CPU (sd, 0)) -> regs[MACL_REGNUM] = val; 256 } 257 258 static int 259 h8_get_compiles (SIM_DESC sd) 260 { 261 return sd -> compiles; 262 } 263 264 static void 265 h8_increment_compiles (SIM_DESC sd) 266 { 267 sd -> compiles ++; 268 } 269 270 static unsigned int * 271 h8_get_reg_buf (SIM_DESC sd) 272 { 273 return &(((STATE_CPU (sd, 0)) -> regs)[0]); 274 } 275 276 static unsigned int 277 h8_get_reg (SIM_DESC sd, int regnum) 278 { 279 return (STATE_CPU (sd, 0)) -> regs[regnum]; 280 } 281 282 static void 283 h8_set_reg (SIM_DESC sd, int regnum, int val) 284 { 285 (STATE_CPU (sd, 0)) -> regs[regnum] = val; 286 } 287 288 #ifdef ADEBUG 289 static int 290 h8_get_stats (SIM_DESC sd, int idx) 291 { 292 return sd -> stats[idx]; 293 } 294 295 static void 296 h8_increment_stats (SIM_DESC sd, int idx) 297 { 298 sd -> stats[idx] ++; 299 } 300 #endif /* ADEBUG */ 301 302 static unsigned short * 303 h8_get_cache_idx_buf (SIM_DESC sd) 304 { 305 return sd -> cache_idx; 306 } 307 308 static void 309 h8_set_cache_idx_buf (SIM_DESC sd, unsigned short *ptr) 310 { 311 sd -> cache_idx = ptr; 312 } 313 314 static unsigned short 315 h8_get_cache_idx (SIM_DESC sd, unsigned int idx) 316 { 317 if (idx > sd->memory_size) 318 return (unsigned short) -1; 319 return sd -> cache_idx[idx]; 320 } 321 322 static void 323 h8_set_cache_idx (SIM_DESC sd, int idx, unsigned int val) 324 { 325 sd -> cache_idx[idx] = (unsigned short) val; 326 } 327 328 static unsigned char * 329 h8_get_memory_buf (SIM_DESC sd) 330 { 331 return (STATE_CPU (sd, 0)) -> memory; 332 } 333 334 static void 335 h8_set_memory_buf (SIM_DESC sd, unsigned char *ptr) 336 { 337 (STATE_CPU (sd, 0)) -> memory = ptr; 338 } 339 340 static unsigned char 341 h8_get_memory (SIM_DESC sd, int idx) 342 { 343 return (STATE_CPU (sd, 0)) -> memory[idx]; 344 } 345 346 static void 347 h8_set_memory (SIM_DESC sd, int idx, unsigned int val) 348 { 349 (STATE_CPU (sd, 0)) -> memory[idx] = (unsigned char) val; 350 } 351 352 static unsigned char * 353 h8_get_eightbit_buf (SIM_DESC sd) 354 { 355 return (STATE_CPU (sd, 0)) -> eightbit; 356 } 357 358 static void 359 h8_set_eightbit_buf (SIM_DESC sd, unsigned char *ptr) 360 { 361 (STATE_CPU (sd, 0)) -> eightbit = ptr; 362 } 363 364 static unsigned char 365 h8_get_eightbit (SIM_DESC sd, int idx) 366 { 367 return (STATE_CPU (sd, 0)) -> eightbit[idx]; 368 } 369 370 static void 371 h8_set_eightbit (SIM_DESC sd, int idx, unsigned int val) 372 { 373 (STATE_CPU (sd, 0)) -> eightbit[idx] = (unsigned char) val; 374 } 375 376 static unsigned int 377 h8_get_delayed_branch (SIM_DESC sd) 378 { 379 return (STATE_CPU (sd, 0)) -> delayed_branch; 380 } 381 382 static void 383 h8_set_delayed_branch (SIM_DESC sd, unsigned int dest) 384 { 385 (STATE_CPU (sd, 0)) -> delayed_branch = dest; 386 } 387 388 static char ** 389 h8_get_command_line (SIM_DESC sd) 390 { 391 return (STATE_CPU (sd, 0)) -> command_line; 392 } 393 394 static void 395 h8_set_command_line (SIM_DESC sd, char ** val) 396 { 397 (STATE_CPU (sd, 0)) -> command_line = val; 398 } 399 400 static char * 401 h8_get_cmdline_arg (SIM_DESC sd, int index) 402 { 403 return (STATE_CPU (sd, 0)) -> command_line[index]; 404 } 405 406 static void 407 h8_set_cmdline_arg (SIM_DESC sd, int index, char * val) 408 { 409 (STATE_CPU (sd, 0)) -> command_line[index] = val; 410 } 411 412 /* MAC Saturation Mode */ 413 static int 414 h8_get_macS (SIM_DESC sd) 415 { 416 return (STATE_CPU (sd, 0)) -> macS; 417 } 418 419 static void 420 h8_set_macS (SIM_DESC sd, int val) 421 { 422 (STATE_CPU (sd, 0)) -> macS = (val != 0); 423 } 424 425 /* MAC Zero Flag */ 426 static int 427 h8_get_macZ (SIM_DESC sd) 428 { 429 return (STATE_CPU (sd, 0)) -> macZ; 430 } 431 432 static void 433 h8_set_macZ (SIM_DESC sd, int val) 434 { 435 (STATE_CPU (sd, 0)) -> macZ = (val != 0); 436 } 437 438 /* MAC Negative Flag */ 439 static int 440 h8_get_macN (SIM_DESC sd) 441 { 442 return (STATE_CPU (sd, 0)) -> macN; 443 } 444 445 static void 446 h8_set_macN (SIM_DESC sd, int val) 447 { 448 (STATE_CPU (sd, 0)) -> macN = (val != 0); 449 } 450 451 /* MAC Overflow Flag */ 452 static int 453 h8_get_macV (SIM_DESC sd) 454 { 455 return (STATE_CPU (sd, 0)) -> macV; 456 } 457 458 static void 459 h8_set_macV (SIM_DESC sd, int val) 460 { 461 (STATE_CPU (sd, 0)) -> macV = (val != 0); 462 } 463 464 /* End CPU data object. */ 465 466 /* The rate at which to call the host's poll_quit callback. */ 467 468 enum { POLL_QUIT_INTERVAL = 0x80000 }; 469 470 #define LOW_BYTE(x) ((x) & 0xff) 471 #define HIGH_BYTE(x) (((x) >> 8) & 0xff) 472 #define P(X, Y) ((X << 8) | Y) 473 474 #define C (c != 0) 475 #define Z (nz == 0) 476 #define V (v != 0) 477 #define N (n != 0) 478 #define U (u != 0) 479 #define H (h != 0) 480 #define UI (ui != 0) 481 #define I (intMaskBit != 0) 482 483 #define BUILDSR(SD) \ 484 h8_set_ccr (SD, (I << 7) | (UI << 6) | (H << 5) | (U << 4) \ 485 | (N << 3) | (Z << 2) | (V << 1) | C) 486 487 #define GETSR(SD) \ 488 /* Get Status Register (flags). */ \ 489 c = (h8_get_ccr (sd) >> 0) & 1; \ 490 v = (h8_get_ccr (sd) >> 1) & 1; \ 491 nz = !((h8_get_ccr (sd) >> 2) & 1); \ 492 n = (h8_get_ccr (sd) >> 3) & 1; \ 493 u = (h8_get_ccr (sd) >> 4) & 1; \ 494 h = (h8_get_ccr (sd) >> 5) & 1; \ 495 ui = ((h8_get_ccr (sd) >> 6) & 1); \ 496 intMaskBit = (h8_get_ccr (sd) >> 7) & 1 497 498 499 #ifdef __CHAR_IS_SIGNED__ 500 #define SEXTCHAR(x) ((char) (x)) 501 #endif 502 503 #ifndef SEXTCHAR 504 #define SEXTCHAR(x) ((x & 0x80) ? (x | ~0xff) : x & 0xff) 505 #endif 506 507 #define UEXTCHAR(x) ((x) & 0xff) 508 #define UEXTSHORT(x) ((x) & 0xffff) 509 #define SEXTSHORT(x) ((short) (x)) 510 511 int h8300hmode = 0; 512 int h8300smode = 0; 513 int h8300_normal_mode = 0; 514 int h8300sxmode = 0; 515 516 static int memory_size; 517 518 static int 519 get_now (void) 520 { 521 return time (0); /* WinXX HAS UNIX like 'time', so why not use it? */ 522 } 523 524 static int 525 now_persec (void) 526 { 527 return 1; 528 } 529 530 static int 531 bitfrom (int x) 532 { 533 switch (x & SIZE) 534 { 535 case L_8: 536 return SB; 537 case L_16: 538 case L_16U: 539 return SW; 540 case L_32: 541 return SL; 542 case L_P: 543 return (h8300hmode && !h8300_normal_mode)? SL : SW; 544 } 545 return 0; 546 } 547 548 /* Simulate an indirection / dereference. 549 return 0 for success, -1 for failure. 550 */ 551 552 static unsigned int 553 lvalue (SIM_DESC sd, int x, int rn, unsigned int *val) 554 { 555 if (val == NULL) /* Paranoia. */ 556 return -1; 557 558 switch (x / 4) 559 { 560 case OP_DISP: 561 if (rn == ZERO_REGNUM) 562 *val = X (OP_IMM, SP); 563 else 564 *val = X (OP_REG, SP); 565 break; 566 case OP_MEM: 567 *val = X (OP_MEM, SP); 568 break; 569 default: 570 sim_engine_set_run_state (sd, sim_stopped, SIGSEGV); 571 return -1; 572 } 573 return 0; 574 } 575 576 static int 577 cmdline_location() 578 { 579 if (h8300smode && !h8300_normal_mode) 580 return 0xffff00L; 581 else if (h8300hmode && !h8300_normal_mode) 582 return 0x2ff00L; 583 else 584 return 0xff00L; 585 } 586 587 static void 588 decode (SIM_DESC sd, int addr, unsigned char *data, decoded_inst *dst) 589 { 590 int cst[3] = {0, 0, 0}; 591 int reg[3] = {0, 0, 0}; 592 int rdisp[3] = {0, 0, 0}; 593 int opnum; 594 const struct h8_opcode *q; 595 596 dst->dst.type = -1; 597 dst->src.type = -1; 598 599 /* Find the exact opcode/arg combo. */ 600 for (q = h8_opcodes; q->name; q++) 601 { 602 const op_type *nib = q->data.nib; 603 unsigned int len = 0; 604 605 if ((q->available == AV_H8SX && !h8300sxmode) || 606 (q->available == AV_H8S && !h8300smode) || 607 (q->available == AV_H8H && !h8300hmode)) 608 continue; 609 610 cst[0] = cst[1] = cst[2] = 0; 611 reg[0] = reg[1] = reg[2] = 0; 612 rdisp[0] = rdisp[1] = rdisp[2] = 0; 613 614 while (1) 615 { 616 op_type looking_for = *nib; 617 int thisnib = data[len / 2]; 618 619 thisnib = (len & 1) ? (thisnib & 0xf) : ((thisnib >> 4) & 0xf); 620 opnum = ((looking_for & OP3) ? 2 : 621 (looking_for & DST) ? 1 : 0); 622 623 if (looking_for < 16 && looking_for >= 0) 624 { 625 if (looking_for != thisnib) 626 goto fail; 627 } 628 else 629 { 630 if (looking_for & B31) 631 { 632 if (!((thisnib & 0x8) != 0)) 633 goto fail; 634 635 looking_for = (op_type) (looking_for & ~B31); 636 thisnib &= 0x7; 637 } 638 else if (looking_for & B30) 639 { 640 if (!((thisnib & 0x8) == 0)) 641 goto fail; 642 643 looking_for = (op_type) (looking_for & ~B30); 644 } 645 646 if (looking_for & B21) 647 { 648 if (!((thisnib & 0x4) != 0)) 649 goto fail; 650 651 looking_for = (op_type) (looking_for & ~B21); 652 thisnib &= 0xb; 653 } 654 else if (looking_for & B20) 655 { 656 if (!((thisnib & 0x4) == 0)) 657 goto fail; 658 659 looking_for = (op_type) (looking_for & ~B20); 660 } 661 662 if (looking_for & B11) 663 { 664 if (!((thisnib & 0x2) != 0)) 665 goto fail; 666 667 looking_for = (op_type) (looking_for & ~B11); 668 thisnib &= 0xd; 669 } 670 else if (looking_for & B10) 671 { 672 if (!((thisnib & 0x2) == 0)) 673 goto fail; 674 675 looking_for = (op_type) (looking_for & ~B10); 676 } 677 678 if (looking_for & B01) 679 { 680 if (!((thisnib & 0x1) != 0)) 681 goto fail; 682 683 looking_for = (op_type) (looking_for & ~B01); 684 thisnib &= 0xe; 685 } 686 else if (looking_for & B00) 687 { 688 if (!((thisnib & 0x1) == 0)) 689 goto fail; 690 691 looking_for = (op_type) (looking_for & ~B00); 692 } 693 694 if (looking_for & IGNORE) 695 { 696 /* Hitachi has declared that IGNORE must be zero. */ 697 if (thisnib != 0) 698 goto fail; 699 } 700 else if ((looking_for & MODE) == DATA) 701 { 702 ; /* Skip embedded data. */ 703 } 704 else if ((looking_for & MODE) == DBIT) 705 { 706 /* Exclude adds/subs by looking at bit 0 and 2, and 707 make sure the operand size, either w or l, 708 matches by looking at bit 1. */ 709 if ((looking_for & 7) != (thisnib & 7)) 710 goto fail; 711 712 cst[opnum] = (thisnib & 0x8) ? 2 : 1; 713 } 714 else if ((looking_for & MODE) == REG || 715 (looking_for & MODE) == LOWREG || 716 (looking_for & MODE) == IND || 717 (looking_for & MODE) == PREINC || 718 (looking_for & MODE) == POSTINC || 719 (looking_for & MODE) == PREDEC || 720 (looking_for & MODE) == POSTDEC) 721 { 722 reg[opnum] = thisnib; 723 } 724 else if (looking_for & CTRL) 725 { 726 thisnib &= 7; 727 if (((looking_for & MODE) == CCR && (thisnib != C_CCR)) || 728 ((looking_for & MODE) == EXR && (thisnib != C_EXR)) || 729 ((looking_for & MODE) == MACH && (thisnib != C_MACH)) || 730 ((looking_for & MODE) == MACL && (thisnib != C_MACL)) || 731 ((looking_for & MODE) == VBR && (thisnib != C_VBR)) || 732 ((looking_for & MODE) == SBR && (thisnib != C_SBR))) 733 goto fail; 734 if (((looking_for & MODE) == CCR_EXR && 735 (thisnib != C_CCR && thisnib != C_EXR)) || 736 ((looking_for & MODE) == VBR_SBR && 737 (thisnib != C_VBR && thisnib != C_SBR)) || 738 ((looking_for & MODE) == MACREG && 739 (thisnib != C_MACH && thisnib != C_MACL))) 740 goto fail; 741 if (((looking_for & MODE) == CC_EX_VB_SB && 742 (thisnib != C_CCR && thisnib != C_EXR && 743 thisnib != C_VBR && thisnib != C_SBR))) 744 goto fail; 745 746 reg[opnum] = thisnib; 747 } 748 else if ((looking_for & MODE) == ABS) 749 { 750 /* Absolute addresses are unsigned. */ 751 switch (looking_for & SIZE) 752 { 753 case L_8: 754 cst[opnum] = UEXTCHAR (data[len / 2]); 755 break; 756 case L_16: 757 case L_16U: 758 cst[opnum] = (data[len / 2] << 8) + data[len / 2 + 1]; 759 break; 760 case L_32: 761 cst[opnum] = 762 (data[len / 2 + 0] << 24) + 763 (data[len / 2 + 1] << 16) + 764 (data[len / 2 + 2] << 8) + 765 (data[len / 2 + 3]); 766 break; 767 default: 768 printf ("decode: bad size ABS: %d\n", 769 (looking_for & SIZE)); 770 goto end; 771 } 772 } 773 else if ((looking_for & MODE) == DISP || 774 (looking_for & MODE) == PCREL || 775 (looking_for & MODE) == INDEXB || 776 (looking_for & MODE) == INDEXW || 777 (looking_for & MODE) == INDEXL) 778 { 779 switch (looking_for & SIZE) 780 { 781 case L_2: 782 cst[opnum] = thisnib & 3; 783 break; 784 case L_8: 785 cst[opnum] = SEXTCHAR (data[len / 2]); 786 break; 787 case L_16: 788 cst[opnum] = (data[len / 2] << 8) + data[len / 2 + 1]; 789 cst[opnum] = (short) cst[opnum]; /* Sign extend. */ 790 break; 791 case L_16U: 792 cst[opnum] = (data[len / 2] << 8) + data[len / 2 + 1]; 793 break; 794 case L_32: 795 cst[opnum] = 796 (data[len / 2 + 0] << 24) + 797 (data[len / 2 + 1] << 16) + 798 (data[len / 2 + 2] << 8) + 799 (data[len / 2 + 3]); 800 break; 801 default: 802 printf ("decode: bad size DISP/PCREL/INDEX: %d\n", 803 (looking_for & SIZE)); 804 goto end; 805 } 806 } 807 else if ((looking_for & SIZE) == L_16 || 808 (looking_for & SIZE) == L_16U) 809 { 810 cst[opnum] = (data[len / 2] << 8) + data[len / 2 + 1]; 811 /* Immediates are always unsigned. */ 812 if ((looking_for & SIZE) != L_16U && 813 (looking_for & MODE) != IMM) 814 cst[opnum] = (short) cst[opnum]; /* Sign extend. */ 815 } 816 else if (looking_for & ABSJMP) 817 { 818 switch (looking_for & SIZE) { 819 case L_24: 820 cst[opnum] = (data[1] << 16) | (data[2] << 8) | (data[3]); 821 break; 822 case L_32: 823 cst[opnum] = 824 (data[len / 2 + 0] << 24) + 825 (data[len / 2 + 1] << 16) + 826 (data[len / 2 + 2] << 8) + 827 (data[len / 2 + 3]); 828 break; 829 default: 830 printf ("decode: bad size ABSJMP: %d\n", 831 (looking_for & SIZE)); 832 goto end; 833 } 834 } 835 else if ((looking_for & MODE) == MEMIND) 836 { 837 cst[opnum] = data[1]; 838 } 839 else if ((looking_for & MODE) == VECIND) 840 { 841 if(h8300_normal_mode) 842 cst[opnum] = ((data[1] & 0x7f) + 0x80) * 2; 843 else 844 cst[opnum] = ((data[1] & 0x7f) + 0x80) * 4; 845 cst[opnum] += h8_get_vbr (sd); /* Add vector base reg. */ 846 } 847 else if ((looking_for & SIZE) == L_32) 848 { 849 int i = len / 2; 850 851 cst[opnum] = 852 (data[i + 0] << 24) | 853 (data[i + 1] << 16) | 854 (data[i + 2] << 8) | 855 (data[i + 3]); 856 } 857 else if ((looking_for & SIZE) == L_24) 858 { 859 int i = len / 2; 860 861 cst[opnum] = 862 (data[i + 0] << 16) | 863 (data[i + 1] << 8) | 864 (data[i + 2]); 865 } 866 else if (looking_for & DISPREG) 867 { 868 rdisp[opnum] = thisnib & 0x7; 869 } 870 else if ((looking_for & MODE) == KBIT) 871 { 872 switch (thisnib) 873 { 874 case 9: 875 cst[opnum] = 4; 876 break; 877 case 8: 878 cst[opnum] = 2; 879 break; 880 case 0: 881 cst[opnum] = 1; 882 break; 883 default: 884 goto fail; 885 } 886 } 887 else if ((looking_for & SIZE) == L_8) 888 { 889 if ((looking_for & MODE) == ABS) 890 { 891 /* Will be combined with contents of SBR_REGNUM 892 by fetch (). For all modes except h8sx, this 893 will always contain the value 0xFFFFFF00. */ 894 cst[opnum] = data[len / 2] & 0xff; 895 } 896 else 897 { 898 cst[opnum] = data[len / 2] & 0xff; 899 } 900 } 901 else if ((looking_for & SIZE) == L_2) 902 { 903 cst[opnum] = thisnib & 3; 904 } 905 else if ((looking_for & SIZE) == L_3 || 906 (looking_for & SIZE) == L_3NZ) 907 { 908 cst[opnum] = thisnib & 7; 909 if (cst[opnum] == 0 && (looking_for & SIZE) == L_3NZ) 910 goto fail; 911 } 912 else if ((looking_for & SIZE) == L_4) 913 { 914 cst[opnum] = thisnib & 15; 915 } 916 else if ((looking_for & SIZE) == L_5) 917 { 918 cst[opnum] = data[len / 2] & 0x1f; 919 } 920 else if (looking_for == E) 921 { 922 #ifdef ADEBUG 923 dst->op = q; 924 #endif 925 /* Fill in the args. */ 926 { 927 const op_type *args = q->args.nib; 928 int hadone = 0; 929 int nargs; 930 931 for (nargs = 0; 932 nargs < 3 && *args != E; 933 nargs++) 934 { 935 int x = *args; 936 ea_type *p; 937 938 opnum = ((x & OP3) ? 2 : 939 (x & DST) ? 1 : 0); 940 if (x & DST) 941 p = &dst->dst; 942 else if (x & OP3) 943 p = &dst->op3; 944 else 945 p = &dst->src; 946 947 if ((x & MODE) == IMM || 948 (x & MODE) == KBIT || 949 (x & MODE) == DBIT) 950 { 951 /* Use the instruction to determine 952 the operand size. */ 953 p->type = X (OP_IMM, OP_SIZE (q->how)); 954 p->literal = cst[opnum]; 955 } 956 else if ((x & MODE) == CONST_2 || 957 (x & MODE) == CONST_4 || 958 (x & MODE) == CONST_8 || 959 (x & MODE) == CONST_16) 960 { 961 /* Use the instruction to determine 962 the operand size. */ 963 p->type = X (OP_IMM, OP_SIZE (q->how)); 964 switch (x & MODE) { 965 case CONST_2: p->literal = 2; break; 966 case CONST_4: p->literal = 4; break; 967 case CONST_8: p->literal = 8; break; 968 case CONST_16: p->literal = 16; break; 969 } 970 } 971 else if ((x & MODE) == REG) 972 { 973 p->type = X (OP_REG, bitfrom (x)); 974 p->reg = reg[opnum]; 975 } 976 else if ((x & MODE) == LOWREG) 977 { 978 p->type = X (OP_LOWREG, bitfrom (x)); 979 p->reg = reg[opnum]; 980 } 981 else if ((x & MODE) == PREINC) 982 { 983 /* Use the instruction to determine 984 the operand size. */ 985 p->type = X (OP_PREINC, OP_SIZE (q->how)); 986 p->reg = reg[opnum] & 0x7; 987 } 988 else if ((x & MODE) == POSTINC) 989 { 990 /* Use the instruction to determine 991 the operand size. */ 992 p->type = X (OP_POSTINC, OP_SIZE (q->how)); 993 p->reg = reg[opnum] & 0x7; 994 } 995 else if ((x & MODE) == PREDEC) 996 { 997 /* Use the instruction to determine 998 the operand size. */ 999 p->type = X (OP_PREDEC, OP_SIZE (q->how)); 1000 p->reg = reg[opnum] & 0x7; 1001 } 1002 else if ((x & MODE) == POSTDEC) 1003 { 1004 /* Use the instruction to determine 1005 the operand size. */ 1006 p->type = X (OP_POSTDEC, OP_SIZE (q->how)); 1007 p->reg = reg[opnum] & 0x7; 1008 } 1009 else if ((x & MODE) == IND) 1010 { 1011 /* Note: an indirect is transformed into 1012 a displacement of zero. 1013 */ 1014 /* Use the instruction to determine 1015 the operand size. */ 1016 p->type = X (OP_DISP, OP_SIZE (q->how)); 1017 p->reg = reg[opnum] & 0x7; 1018 p->literal = 0; 1019 if (OP_KIND (q->how) == O_JSR || 1020 OP_KIND (q->how) == O_JMP) 1021 if (lvalue (sd, p->type, p->reg, (unsigned int *)&p->type)) 1022 goto end; 1023 } 1024 else if ((x & MODE) == ABS) 1025 { 1026 /* Note: a 16 or 32 bit ABS is transformed into a 1027 displacement from pseudo-register ZERO_REGNUM, 1028 which is always zero. An 8 bit ABS becomes 1029 a displacement from SBR_REGNUM. 1030 */ 1031 /* Use the instruction to determine 1032 the operand size. */ 1033 p->type = X (OP_DISP, OP_SIZE (q->how)); 1034 p->literal = cst[opnum]; 1035 1036 /* 8-bit ABS is displacement from SBR. 1037 16 and 32-bit ABS are displacement from ZERO. 1038 (SBR will always be zero except for h8/sx) 1039 */ 1040 if ((x & SIZE) == L_8) 1041 p->reg = SBR_REGNUM; 1042 else 1043 p->reg = ZERO_REGNUM;; 1044 } 1045 else if ((x & MODE) == MEMIND || 1046 (x & MODE) == VECIND) 1047 { 1048 /* Size doesn't matter. */ 1049 p->type = X (OP_MEM, SB); 1050 p->literal = cst[opnum]; 1051 if (OP_KIND (q->how) == O_JSR || 1052 OP_KIND (q->how) == O_JMP) 1053 if (lvalue (sd, p->type, p->reg, (unsigned int *)&p->type)) 1054 goto end; 1055 } 1056 else if ((x & MODE) == PCREL) 1057 { 1058 /* Size doesn't matter. */ 1059 p->type = X (OP_PCREL, SB); 1060 p->literal = cst[opnum]; 1061 } 1062 else if (x & ABSJMP) 1063 { 1064 p->type = X (OP_IMM, SP); 1065 p->literal = cst[opnum]; 1066 } 1067 else if ((x & MODE) == INDEXB) 1068 { 1069 p->type = X (OP_INDEXB, OP_SIZE (q->how)); 1070 p->literal = cst[opnum]; 1071 p->reg = rdisp[opnum]; 1072 } 1073 else if ((x & MODE) == INDEXW) 1074 { 1075 p->type = X (OP_INDEXW, OP_SIZE (q->how)); 1076 p->literal = cst[opnum]; 1077 p->reg = rdisp[opnum]; 1078 } 1079 else if ((x & MODE) == INDEXL) 1080 { 1081 p->type = X (OP_INDEXL, OP_SIZE (q->how)); 1082 p->literal = cst[opnum]; 1083 p->reg = rdisp[opnum]; 1084 } 1085 else if ((x & MODE) == DISP) 1086 { 1087 /* Yuck -- special for mova args. */ 1088 if (strncmp (q->name, "mova", 4) == 0 && 1089 (x & SIZE) == L_2) 1090 { 1091 /* Mova can have a DISP2 dest, with an 1092 INDEXB or INDEXW src. The multiplier 1093 for the displacement value is determined 1094 by the src operand, not by the insn. */ 1095 1096 switch (OP_KIND (dst->src.type)) 1097 { 1098 case OP_INDEXB: 1099 p->type = X (OP_DISP, SB); 1100 p->literal = cst[opnum]; 1101 break; 1102 case OP_INDEXW: 1103 p->type = X (OP_DISP, SW); 1104 p->literal = cst[opnum] * 2; 1105 break; 1106 default: 1107 goto fail; 1108 } 1109 } 1110 else 1111 { 1112 p->type = X (OP_DISP, OP_SIZE (q->how)); 1113 p->literal = cst[opnum]; 1114 /* DISP2 is special. */ 1115 if ((x & SIZE) == L_2) 1116 switch (OP_SIZE (q->how)) 1117 { 1118 case SB: break; 1119 case SW: p->literal *= 2; break; 1120 case SL: p->literal *= 4; break; 1121 } 1122 } 1123 p->reg = rdisp[opnum]; 1124 } 1125 else if (x & CTRL) 1126 { 1127 switch (reg[opnum]) 1128 { 1129 case C_CCR: 1130 p->type = X (OP_CCR, SB); 1131 break; 1132 case C_EXR: 1133 p->type = X (OP_EXR, SB); 1134 break; 1135 case C_MACH: 1136 p->type = X (OP_MACH, SL); 1137 break; 1138 case C_MACL: 1139 p->type = X (OP_MACL, SL); 1140 break; 1141 case C_VBR: 1142 p->type = X (OP_VBR, SL); 1143 break; 1144 case C_SBR: 1145 p->type = X (OP_SBR, SL); 1146 break; 1147 } 1148 } 1149 else if ((x & MODE) == CCR) 1150 { 1151 p->type = OP_CCR; 1152 } 1153 else if ((x & MODE) == EXR) 1154 { 1155 p->type = OP_EXR; 1156 } 1157 else 1158 printf ("Hmmmm 0x%x...\n", x); 1159 1160 args++; 1161 } 1162 } 1163 1164 /* Unary operators: treat src and dst as equivalent. */ 1165 if (dst->dst.type == -1) 1166 dst->dst = dst->src; 1167 if (dst->src.type == -1) 1168 dst->src = dst->dst; 1169 1170 dst->opcode = q->how; 1171 dst->cycles = q->time; 1172 1173 /* And jsr's to these locations are turned into 1174 magic traps. */ 1175 1176 if (OP_KIND (dst->opcode) == O_JSR) 1177 { 1178 switch (dst->src.literal) 1179 { 1180 case 0xc5: 1181 dst->opcode = O (O_SYS_OPEN, SB); 1182 break; 1183 case 0xc6: 1184 dst->opcode = O (O_SYS_READ, SB); 1185 break; 1186 case 0xc7: 1187 dst->opcode = O (O_SYS_WRITE, SB); 1188 break; 1189 case 0xc8: 1190 dst->opcode = O (O_SYS_LSEEK, SB); 1191 break; 1192 case 0xc9: 1193 dst->opcode = O (O_SYS_CLOSE, SB); 1194 break; 1195 case 0xca: 1196 dst->opcode = O (O_SYS_STAT, SB); 1197 break; 1198 case 0xcb: 1199 dst->opcode = O (O_SYS_FSTAT, SB); 1200 break; 1201 case 0xcc: 1202 dst->opcode = O (O_SYS_CMDLINE, SB); 1203 break; 1204 } 1205 /* End of Processing for system calls. */ 1206 } 1207 1208 dst->next_pc = addr + len / 2; 1209 return; 1210 } 1211 else 1212 printf ("Don't understand 0x%x \n", looking_for); 1213 } 1214 1215 len++; 1216 nib++; 1217 } 1218 1219 fail: 1220 ; 1221 } 1222 end: 1223 /* Fell off the end. */ 1224 dst->opcode = O (O_ILL, SB); 1225 } 1226 1227 static void 1228 compile (SIM_DESC sd, int pc) 1229 { 1230 int idx; 1231 1232 /* Find the next cache entry to use. */ 1233 idx = h8_get_cache_top (sd) + 1; 1234 h8_increment_compiles (sd); 1235 if (idx >= sd->sim_cache_size) 1236 { 1237 idx = 1; 1238 } 1239 h8_set_cache_top (sd, idx); 1240 1241 /* Throw away its old meaning. */ 1242 h8_set_cache_idx (sd, sd->sim_cache[idx].oldpc, 0); 1243 1244 /* Set to new address. */ 1245 sd->sim_cache[idx].oldpc = pc; 1246 1247 /* Fill in instruction info. */ 1248 decode (sd, pc, h8_get_memory_buf (sd) + pc, sd->sim_cache + idx); 1249 1250 /* Point to new cache entry. */ 1251 h8_set_cache_idx (sd, pc, idx); 1252 } 1253 1254 1255 static unsigned char *breg[32]; 1256 static unsigned short *wreg[16]; 1257 static unsigned int *lreg[18]; 1258 1259 #define GET_B_REG(X) *(breg[X]) 1260 #define SET_B_REG(X, Y) (*(breg[X])) = (Y) 1261 #define GET_W_REG(X) *(wreg[X]) 1262 #define SET_W_REG(X, Y) (*(wreg[X])) = (Y) 1263 #define GET_L_REG(X) h8_get_reg (sd, X) 1264 #define SET_L_REG(X, Y) h8_set_reg (sd, X, Y) 1265 1266 #define GET_MEMORY_L(X) \ 1267 ((X) < memory_size \ 1268 ? ((h8_get_memory (sd, (X)+0) << 24) | (h8_get_memory (sd, (X)+1) << 16) \ 1269 | (h8_get_memory (sd, (X)+2) << 8) | (h8_get_memory (sd, (X)+3) << 0)) \ 1270 : ((h8_get_eightbit (sd, ((X)+0) & 0xff) << 24) \ 1271 | (h8_get_eightbit (sd, ((X)+1) & 0xff) << 16) \ 1272 | (h8_get_eightbit (sd, ((X)+2) & 0xff) << 8) \ 1273 | (h8_get_eightbit (sd, ((X)+3) & 0xff) << 0))) 1274 1275 #define GET_MEMORY_W(X) \ 1276 ((X) < memory_size \ 1277 ? ((h8_get_memory (sd, (X)+0) << 8) \ 1278 | (h8_get_memory (sd, (X)+1) << 0)) \ 1279 : ((h8_get_eightbit (sd, ((X)+0) & 0xff) << 8) \ 1280 | (h8_get_eightbit (sd, ((X)+1) & 0xff) << 0))) 1281 1282 1283 #define GET_MEMORY_B(X) \ 1284 ((X) < memory_size ? (h8_get_memory (sd, (X))) \ 1285 : (h8_get_eightbit (sd, (X) & 0xff))) 1286 1287 #define SET_MEMORY_L(X, Y) \ 1288 { register unsigned char *_p; register int __y = (Y); \ 1289 _p = ((X) < memory_size ? h8_get_memory_buf (sd) + (X) : \ 1290 h8_get_eightbit_buf (sd) + ((X) & 0xff)); \ 1291 _p[0] = __y >> 24; _p[1] = __y >> 16; \ 1292 _p[2] = __y >> 8; _p[3] = __y >> 0; \ 1293 } 1294 1295 #define SET_MEMORY_W(X, Y) \ 1296 { register unsigned char *_p; register int __y = (Y); \ 1297 _p = ((X) < memory_size ? h8_get_memory_buf (sd) + (X) : \ 1298 h8_get_eightbit_buf (sd) + ((X) & 0xff)); \ 1299 _p[0] = __y >> 8; _p[1] = __y; \ 1300 } 1301 1302 #define SET_MEMORY_B(X, Y) \ 1303 ((X) < memory_size ? (h8_set_memory (sd, (X), (Y))) \ 1304 : (h8_set_eightbit (sd, (X) & 0xff, (Y)))) 1305 1306 /* Simulate a memory fetch. 1307 Return 0 for success, -1 for failure. 1308 */ 1309 1310 static int 1311 fetch_1 (SIM_DESC sd, ea_type *arg, int *val, int twice) 1312 { 1313 int rn = arg->reg; 1314 int abs = arg->literal; 1315 int r; 1316 int t; 1317 1318 if (val == NULL) 1319 return -1; /* Paranoia. */ 1320 1321 switch (arg->type) 1322 { 1323 /* Indexed register plus displacement mode: 1324 1325 This new family of addressing modes are similar to OP_DISP 1326 (register plus displacement), with two differences: 1327 1) INDEXB uses only the least significant byte of the register, 1328 INDEXW uses only the least significant word, and 1329 INDEXL uses the entire register (just like OP_DISP). 1330 and 1331 2) The displacement value in abs is multiplied by two 1332 for SW-sized operations, and by four for SL-size. 1333 1334 This gives nine possible variations. 1335 */ 1336 1337 case X (OP_INDEXB, SB): 1338 case X (OP_INDEXB, SW): 1339 case X (OP_INDEXB, SL): 1340 case X (OP_INDEXW, SB): 1341 case X (OP_INDEXW, SW): 1342 case X (OP_INDEXW, SL): 1343 case X (OP_INDEXL, SB): 1344 case X (OP_INDEXL, SW): 1345 case X (OP_INDEXL, SL): 1346 t = GET_L_REG (rn); 1347 switch (OP_KIND (arg->type)) { 1348 case OP_INDEXB: t &= 0xff; break; 1349 case OP_INDEXW: t &= 0xffff; break; 1350 case OP_INDEXL: 1351 default: break; 1352 } 1353 switch (OP_SIZE (arg->type)) { 1354 case SB: 1355 *val = GET_MEMORY_B ((t * 1 + abs) & h8_get_mask (sd)); 1356 break; 1357 case SW: 1358 *val = GET_MEMORY_W ((t * 2 + abs) & h8_get_mask (sd)); 1359 break; 1360 case SL: 1361 *val = GET_MEMORY_L ((t * 4 + abs) & h8_get_mask (sd)); 1362 break; 1363 } 1364 break; 1365 1366 case X (OP_LOWREG, SB): 1367 *val = GET_L_REG (rn) & 0xff; 1368 break; 1369 case X (OP_LOWREG, SW): 1370 *val = GET_L_REG (rn) & 0xffff; 1371 break; 1372 1373 case X (OP_REG, SB): /* Register direct, byte. */ 1374 *val = GET_B_REG (rn); 1375 break; 1376 case X (OP_REG, SW): /* Register direct, word. */ 1377 *val = GET_W_REG (rn); 1378 break; 1379 case X (OP_REG, SL): /* Register direct, long. */ 1380 *val = GET_L_REG (rn); 1381 break; 1382 case X (OP_IMM, SB): /* Immediate, byte. */ 1383 case X (OP_IMM, SW): /* Immediate, word. */ 1384 case X (OP_IMM, SL): /* Immediate, long. */ 1385 *val = abs; 1386 break; 1387 case X (OP_POSTINC, SB): /* Register indirect w/post-incr: byte. */ 1388 t = GET_L_REG (rn); 1389 r = GET_MEMORY_B (t & h8_get_mask (sd)); 1390 if (!twice) 1391 t += 1; 1392 SET_L_REG (rn, t); 1393 *val = r; 1394 break; 1395 case X (OP_POSTINC, SW): /* Register indirect w/post-incr: word. */ 1396 t = GET_L_REG (rn); 1397 r = GET_MEMORY_W (t & h8_get_mask (sd)); 1398 if (!twice) 1399 t += 2; 1400 SET_L_REG (rn, t); 1401 *val = r; 1402 break; 1403 case X (OP_POSTINC, SL): /* Register indirect w/post-incr: long. */ 1404 t = GET_L_REG (rn); 1405 r = GET_MEMORY_L (t & h8_get_mask (sd)); 1406 if (!twice) 1407 t += 4; 1408 SET_L_REG (rn, t); 1409 *val = r; 1410 break; 1411 1412 case X (OP_POSTDEC, SB): /* Register indirect w/post-decr: byte. */ 1413 t = GET_L_REG (rn); 1414 r = GET_MEMORY_B (t & h8_get_mask (sd)); 1415 if (!twice) 1416 t -= 1; 1417 SET_L_REG (rn, t); 1418 *val = r; 1419 break; 1420 case X (OP_POSTDEC, SW): /* Register indirect w/post-decr: word. */ 1421 t = GET_L_REG (rn); 1422 r = GET_MEMORY_W (t & h8_get_mask (sd)); 1423 if (!twice) 1424 t -= 2; 1425 SET_L_REG (rn, t); 1426 *val = r; 1427 break; 1428 case X (OP_POSTDEC, SL): /* Register indirect w/post-decr: long. */ 1429 t = GET_L_REG (rn); 1430 r = GET_MEMORY_L (t & h8_get_mask (sd)); 1431 if (!twice) 1432 t -= 4; 1433 SET_L_REG (rn, t); 1434 *val = r; 1435 break; 1436 1437 case X (OP_PREDEC, SB): /* Register indirect w/pre-decr: byte. */ 1438 t = GET_L_REG (rn) - 1; 1439 SET_L_REG (rn, t); 1440 t &= h8_get_mask (sd); 1441 *val = GET_MEMORY_B (t); 1442 break; 1443 1444 case X (OP_PREDEC, SW): /* Register indirect w/pre-decr: word. */ 1445 t = GET_L_REG (rn) - 2; 1446 SET_L_REG (rn, t); 1447 t &= h8_get_mask (sd); 1448 *val = GET_MEMORY_W (t); 1449 break; 1450 1451 case X (OP_PREDEC, SL): /* Register indirect w/pre-decr: long. */ 1452 t = GET_L_REG (rn) - 4; 1453 SET_L_REG (rn, t); 1454 t &= h8_get_mask (sd); 1455 *val = GET_MEMORY_L (t); 1456 break; 1457 1458 case X (OP_PREINC, SB): /* Register indirect w/pre-incr: byte. */ 1459 t = GET_L_REG (rn) + 1; 1460 SET_L_REG (rn, t); 1461 t &= h8_get_mask (sd); 1462 *val = GET_MEMORY_B (t); 1463 break; 1464 1465 case X (OP_PREINC, SW): /* Register indirect w/pre-incr: long. */ 1466 t = GET_L_REG (rn) + 2; 1467 SET_L_REG (rn, t); 1468 t &= h8_get_mask (sd); 1469 *val = GET_MEMORY_W (t); 1470 break; 1471 1472 case X (OP_PREINC, SL): /* Register indirect w/pre-incr: long. */ 1473 t = GET_L_REG (rn) + 4; 1474 SET_L_REG (rn, t); 1475 t &= h8_get_mask (sd); 1476 *val = GET_MEMORY_L (t); 1477 break; 1478 1479 case X (OP_DISP, SB): /* Register indirect w/displacement: byte. */ 1480 t = GET_L_REG (rn) + abs; 1481 t &= h8_get_mask (sd); 1482 *val = GET_MEMORY_B (t); 1483 break; 1484 1485 case X (OP_DISP, SW): /* Register indirect w/displacement: word. */ 1486 t = GET_L_REG (rn) + abs; 1487 t &= h8_get_mask (sd); 1488 *val = GET_MEMORY_W (t); 1489 break; 1490 1491 case X (OP_DISP, SL): /* Register indirect w/displacement: long. */ 1492 t = GET_L_REG (rn) + abs; 1493 t &= h8_get_mask (sd); 1494 *val =GET_MEMORY_L (t); 1495 break; 1496 1497 case X (OP_MEM, SL): /* Absolute memory address, long. */ 1498 t = GET_MEMORY_L (abs); 1499 t &= h8_get_mask (sd); 1500 *val = t; 1501 break; 1502 1503 case X (OP_MEM, SW): /* Absolute memory address, word. */ 1504 t = GET_MEMORY_W (abs); 1505 t &= h8_get_mask (sd); 1506 *val = t; 1507 break; 1508 1509 case X (OP_PCREL, SB): /* PC relative (for jump, branch etc). */ 1510 case X (OP_PCREL, SW): 1511 case X (OP_PCREL, SL): 1512 case X (OP_PCREL, SN): 1513 *val = abs; 1514 break; 1515 1516 case X (OP_MEM, SB): /* Why isn't this implemented? */ 1517 default: 1518 sim_engine_set_run_state (sd, sim_stopped, SIGSEGV); 1519 return -1; 1520 } 1521 return 0; /* Success. */ 1522 } 1523 1524 /* Normal fetch. */ 1525 1526 static int 1527 fetch (SIM_DESC sd, ea_type *arg, int *val) 1528 { 1529 return fetch_1 (sd, arg, val, 0); 1530 } 1531 1532 /* Fetch which will be followed by a store to the same location. 1533 The difference being that we don't want to do a post-increment 1534 or post-decrement at this time: we'll do it when we store. */ 1535 1536 static int 1537 fetch2 (SIM_DESC sd, ea_type *arg, int *val) 1538 { 1539 return fetch_1 (sd, arg, val, 1); 1540 } 1541 1542 /* Simulate a memory store. 1543 Return 0 for success, -1 for failure. 1544 */ 1545 1546 static int 1547 store_1 (SIM_DESC sd, ea_type *arg, int n, int twice) 1548 { 1549 int rn = arg->reg; 1550 int abs = arg->literal; 1551 int t; 1552 1553 switch (arg->type) 1554 { 1555 /* Indexed register plus displacement mode: 1556 1557 This new family of addressing modes are similar to OP_DISP 1558 (register plus displacement), with two differences: 1559 1) INDEXB uses only the least significant byte of the register, 1560 INDEXW uses only the least significant word, and 1561 INDEXL uses the entire register (just like OP_DISP). 1562 and 1563 2) The displacement value in abs is multiplied by two 1564 for SW-sized operations, and by four for SL-size. 1565 1566 This gives nine possible variations. 1567 */ 1568 1569 case X (OP_INDEXB, SB): 1570 case X (OP_INDEXB, SW): 1571 case X (OP_INDEXB, SL): 1572 case X (OP_INDEXW, SB): 1573 case X (OP_INDEXW, SW): 1574 case X (OP_INDEXW, SL): 1575 case X (OP_INDEXL, SB): 1576 case X (OP_INDEXL, SW): 1577 case X (OP_INDEXL, SL): 1578 t = GET_L_REG (rn); 1579 switch (OP_KIND (arg->type)) { 1580 case OP_INDEXB: t &= 0xff; break; 1581 case OP_INDEXW: t &= 0xffff; break; 1582 case OP_INDEXL: 1583 default: break; 1584 } 1585 switch (OP_SIZE (arg->type)) { 1586 case SB: 1587 SET_MEMORY_B ((t * 1 + abs) & h8_get_mask (sd), n); 1588 break; 1589 case SW: 1590 SET_MEMORY_W ((t * 2 + abs) & h8_get_mask (sd), n); 1591 break; 1592 case SL: 1593 SET_MEMORY_L ((t * 4 + abs) & h8_get_mask (sd), n); 1594 break; 1595 } 1596 break; 1597 1598 case X (OP_REG, SB): /* Register direct, byte. */ 1599 SET_B_REG (rn, n); 1600 break; 1601 case X (OP_REG, SW): /* Register direct, word. */ 1602 SET_W_REG (rn, n); 1603 break; 1604 case X (OP_REG, SL): /* Register direct, long. */ 1605 SET_L_REG (rn, n); 1606 break; 1607 1608 case X (OP_PREDEC, SB): /* Register indirect w/pre-decr, byte. */ 1609 t = GET_L_REG (rn); 1610 if (!twice) 1611 t -= 1; 1612 SET_L_REG (rn, t); 1613 t &= h8_get_mask (sd); 1614 SET_MEMORY_B (t, n); 1615 1616 break; 1617 case X (OP_PREDEC, SW): /* Register indirect w/pre-decr, word. */ 1618 t = GET_L_REG (rn); 1619 if (!twice) 1620 t -= 2; 1621 SET_L_REG (rn, t); 1622 t &= h8_get_mask (sd); 1623 SET_MEMORY_W (t, n); 1624 break; 1625 1626 case X (OP_PREDEC, SL): /* Register indirect w/pre-decr, long. */ 1627 t = GET_L_REG (rn); 1628 if (!twice) 1629 t -= 4; 1630 SET_L_REG (rn, t); 1631 t &= h8_get_mask (sd); 1632 SET_MEMORY_L (t, n); 1633 break; 1634 1635 case X (OP_PREINC, SB): /* Register indirect w/pre-incr, byte. */ 1636 t = GET_L_REG (rn); 1637 if (!twice) 1638 t += 1; 1639 SET_L_REG (rn, t); 1640 t &= h8_get_mask (sd); 1641 SET_MEMORY_B (t, n); 1642 1643 break; 1644 case X (OP_PREINC, SW): /* Register indirect w/pre-incr, word. */ 1645 t = GET_L_REG (rn); 1646 if (!twice) 1647 t += 2; 1648 SET_L_REG (rn, t); 1649 t &= h8_get_mask (sd); 1650 SET_MEMORY_W (t, n); 1651 break; 1652 1653 case X (OP_PREINC, SL): /* Register indirect w/pre-incr, long. */ 1654 t = GET_L_REG (rn); 1655 if (!twice) 1656 t += 4; 1657 SET_L_REG (rn, t); 1658 t &= h8_get_mask (sd); 1659 SET_MEMORY_L (t, n); 1660 break; 1661 1662 case X (OP_POSTDEC, SB): /* Register indirect w/post-decr, byte. */ 1663 t = GET_L_REG (rn); 1664 SET_L_REG (rn, t - 1); 1665 t &= h8_get_mask (sd); 1666 SET_MEMORY_B (t, n); 1667 break; 1668 1669 case X (OP_POSTDEC, SW): /* Register indirect w/post-decr, word. */ 1670 t = GET_L_REG (rn); 1671 SET_L_REG (rn, t - 2); 1672 t &= h8_get_mask (sd); 1673 SET_MEMORY_W (t, n); 1674 break; 1675 1676 case X (OP_POSTDEC, SL): /* Register indirect w/post-decr, long. */ 1677 t = GET_L_REG (rn); 1678 SET_L_REG (rn, t - 4); 1679 t &= h8_get_mask (sd); 1680 SET_MEMORY_L (t, n); 1681 break; 1682 1683 case X (OP_POSTINC, SB): /* Register indirect w/post-incr, byte. */ 1684 t = GET_L_REG (rn); 1685 SET_L_REG (rn, t + 1); 1686 t &= h8_get_mask (sd); 1687 SET_MEMORY_B (t, n); 1688 break; 1689 1690 case X (OP_POSTINC, SW): /* Register indirect w/post-incr, word. */ 1691 t = GET_L_REG (rn); 1692 SET_L_REG (rn, t + 2); 1693 t &= h8_get_mask (sd); 1694 SET_MEMORY_W (t, n); 1695 break; 1696 1697 case X (OP_POSTINC, SL): /* Register indirect w/post-incr, long. */ 1698 t = GET_L_REG (rn); 1699 SET_L_REG (rn, t + 4); 1700 t &= h8_get_mask (sd); 1701 SET_MEMORY_L (t, n); 1702 break; 1703 1704 case X (OP_DISP, SB): /* Register indirect w/displacement, byte. */ 1705 t = GET_L_REG (rn) + abs; 1706 t &= h8_get_mask (sd); 1707 SET_MEMORY_B (t, n); 1708 break; 1709 1710 case X (OP_DISP, SW): /* Register indirect w/displacement, word. */ 1711 t = GET_L_REG (rn) + abs; 1712 t &= h8_get_mask (sd); 1713 SET_MEMORY_W (t, n); 1714 break; 1715 1716 case X (OP_DISP, SL): /* Register indirect w/displacement, long. */ 1717 t = GET_L_REG (rn) + abs; 1718 t &= h8_get_mask (sd); 1719 SET_MEMORY_L (t, n); 1720 break; 1721 1722 1723 case X (OP_MEM, SB): /* Why isn't this implemented? */ 1724 case X (OP_MEM, SW): /* Why isn't this implemented? */ 1725 case X (OP_MEM, SL): /* Why isn't this implemented? */ 1726 default: 1727 sim_engine_set_run_state (sd, sim_stopped, SIGSEGV); 1728 return -1; 1729 } 1730 return 0; 1731 } 1732 1733 /* Normal store. */ 1734 1735 static int 1736 store (SIM_DESC sd, ea_type *arg, int n) 1737 { 1738 return store_1 (sd, arg, n, 0); 1739 } 1740 1741 /* Store which follows a fetch from the same location. 1742 The difference being that we don't want to do a pre-increment 1743 or pre-decrement at this time: it was already done when we fetched. */ 1744 1745 static int 1746 store2 (SIM_DESC sd, ea_type *arg, int n) 1747 { 1748 return store_1 (sd, arg, n, 1); 1749 } 1750 1751 static union 1752 { 1753 short int i; 1754 struct 1755 { 1756 char low; 1757 char high; 1758 } 1759 u; 1760 } littleendian; 1761 1762 /* Flag to be set whenever a new SIM_DESC object is created. */ 1763 static int init_pointers_needed = 1; 1764 1765 static void 1766 init_pointers (SIM_DESC sd) 1767 { 1768 if (init_pointers_needed) 1769 { 1770 int i; 1771 1772 littleendian.i = 1; 1773 1774 if (h8300smode && !h8300_normal_mode) 1775 memory_size = H8300S_MSIZE; 1776 else if (h8300hmode && !h8300_normal_mode) 1777 memory_size = H8300H_MSIZE; 1778 else 1779 memory_size = H8300_MSIZE; 1780 /* `msize' must be a power of two. */ 1781 if ((memory_size & (memory_size - 1)) != 0) 1782 { 1783 (*sim_callback->printf_filtered) 1784 (sim_callback, 1785 "init_pointers: bad memory size %d, defaulting to %d.\n", 1786 memory_size, memory_size = H8300S_MSIZE); 1787 } 1788 1789 if (h8_get_memory_buf (sd)) 1790 free (h8_get_memory_buf (sd)); 1791 if (h8_get_cache_idx_buf (sd)) 1792 free (h8_get_cache_idx_buf (sd)); 1793 if (h8_get_eightbit_buf (sd)) 1794 free (h8_get_eightbit_buf (sd)); 1795 1796 h8_set_memory_buf (sd, (unsigned char *) 1797 calloc (sizeof (char), memory_size)); 1798 h8_set_cache_idx_buf (sd, (unsigned short *) 1799 calloc (sizeof (short), memory_size)); 1800 sd->memory_size = memory_size; 1801 h8_set_eightbit_buf (sd, (unsigned char *) calloc (sizeof (char), 256)); 1802 1803 h8_set_mask (sd, memory_size - 1); 1804 1805 memset (h8_get_reg_buf (sd), 0, sizeof (((STATE_CPU (sd, 0))->regs))); 1806 1807 for (i = 0; i < 8; i++) 1808 { 1809 /* FIXME: rewrite using local buffer. */ 1810 unsigned char *p = (unsigned char *) (h8_get_reg_buf (sd) + i); 1811 unsigned char *e = (unsigned char *) (h8_get_reg_buf (sd) + i + 1); 1812 unsigned short *q = (unsigned short *) (h8_get_reg_buf (sd) + i); 1813 unsigned short *u = (unsigned short *) (h8_get_reg_buf (sd) + i + 1); 1814 h8_set_reg (sd, i, 0x00112233); 1815 1816 while (p < e) 1817 { 1818 if (*p == 0x22) 1819 breg[i] = p; 1820 if (*p == 0x33) 1821 breg[i + 8] = p; 1822 if (*p == 0x11) 1823 breg[i + 16] = p; 1824 if (*p == 0x00) 1825 breg[i + 24] = p; 1826 p++; 1827 } 1828 1829 wreg[i] = wreg[i + 8] = 0; 1830 while (q < u) 1831 { 1832 if (*q == 0x2233) 1833 { 1834 wreg[i] = q; 1835 } 1836 if (*q == 0x0011) 1837 { 1838 wreg[i + 8] = q; 1839 } 1840 q++; 1841 } 1842 1843 if (wreg[i] == 0 || wreg[i + 8] == 0) 1844 (*sim_callback->printf_filtered) (sim_callback, 1845 "init_pointers: internal error.\n"); 1846 1847 h8_set_reg (sd, i, 0); 1848 lreg[i] = h8_get_reg_buf (sd) + i; 1849 } 1850 1851 /* Note: sim uses pseudo-register ZERO as a zero register. */ 1852 lreg[ZERO_REGNUM] = h8_get_reg_buf (sd) + ZERO_REGNUM; 1853 init_pointers_needed = 0; 1854 1855 /* Initialize the seg registers. */ 1856 if (!sd->sim_cache) 1857 set_simcache_size (sd, CSIZE); 1858 } 1859 } 1860 1861 /* Grotty global variable for use by control_c signal handler. */ 1862 static SIM_DESC control_c_sim_desc; 1863 1864 static void 1865 control_c (int sig) 1866 { 1867 sim_engine_set_run_state (control_c_sim_desc, sim_stopped, SIGINT); 1868 } 1869 1870 int 1871 sim_stop (SIM_DESC sd) 1872 { 1873 /* FIXME: use a real signal value. */ 1874 sim_engine_set_run_state (sd, sim_stopped, SIGINT); 1875 return 1; 1876 } 1877 1878 #define OBITOP(name, f, s, op) \ 1879 case O (name, SB): \ 1880 { \ 1881 int m, tmp; \ 1882 \ 1883 if (f) \ 1884 if (fetch (sd, &code->dst, &ea)) \ 1885 goto end; \ 1886 if (fetch (sd, &code->src, &tmp)) \ 1887 goto end; \ 1888 m = 1 << (tmp & 7); \ 1889 op; \ 1890 if (s) \ 1891 if (store (sd, &code->dst,ea)) \ 1892 goto end; \ 1893 goto next; \ 1894 } 1895 1896 void 1897 sim_resume (SIM_DESC sd, int step, int siggnal) 1898 { 1899 static int init1; 1900 int cycles = 0; 1901 int insts = 0; 1902 int tick_start = get_now (); 1903 void (*prev) (); 1904 int poll_count = 0; 1905 int res; 1906 int tmp; 1907 int rd; 1908 int ea; 1909 int bit; 1910 int pc; 1911 int c, nz, v, n, u, h, ui, intMaskBit; 1912 int trace, intMask; 1913 int oldmask; 1914 enum sim_stop reason; 1915 int sigrc; 1916 1917 init_pointers (sd); 1918 1919 control_c_sim_desc = sd; 1920 prev = signal (SIGINT, control_c); 1921 1922 if (step) 1923 { 1924 sim_engine_set_run_state (sd, sim_stopped, SIGTRAP); 1925 } 1926 else 1927 { 1928 sim_engine_set_run_state (sd, sim_running, 0); 1929 } 1930 1931 pc = h8_get_pc (sd); 1932 1933 /* The PC should never be odd. */ 1934 if (pc & 0x1) 1935 { 1936 sim_engine_set_run_state (sd, sim_stopped, SIGBUS); 1937 return; 1938 } 1939 1940 /* Get Status Register (flags). */ 1941 GETSR (sd); 1942 1943 if (h8300smode) /* Get exr. */ 1944 { 1945 trace = (h8_get_exr (sd) >> 7) & 1; 1946 intMask = h8_get_exr (sd) & 7; 1947 } 1948 1949 oldmask = h8_get_mask (sd); 1950 if (!h8300hmode || h8300_normal_mode) 1951 h8_set_mask (sd, 0xffff); 1952 do 1953 { 1954 unsigned short cidx; 1955 decoded_inst *code; 1956 1957 top: 1958 cidx = h8_get_cache_idx (sd, pc); 1959 if (cidx == (unsigned short) -1 || 1960 cidx >= sd->sim_cache_size) 1961 goto illegal; 1962 1963 code = sd->sim_cache + cidx; 1964 1965 #if ADEBUG 1966 if (debug) 1967 { 1968 printf ("%x %d %s\n", pc, code->opcode, 1969 code->op ? code->op->name : "**"); 1970 } 1971 h8_increment_stats (sd, code->opcode); 1972 #endif 1973 1974 if (code->opcode) 1975 { 1976 cycles += code->cycles; 1977 insts++; 1978 } 1979 1980 switch (code->opcode) 1981 { 1982 case 0: 1983 /* 1984 * This opcode is a fake for when we get to an 1985 * instruction which hasnt been compiled 1986 */ 1987 compile (sd, pc); 1988 goto top; 1989 break; 1990 1991 case O (O_MOVAB, SL): 1992 case O (O_MOVAW, SL): 1993 case O (O_MOVAL, SL): 1994 /* 1) Evaluate 2nd argument (dst). 1995 2) Mask / zero extend according to whether 1st argument (src) 1996 is INDEXB, INDEXW, or INDEXL. 1997 3) Left-shift the result by 0, 1 or 2, according to size of mova 1998 (mova/b, mova/w, mova/l). 1999 4) Add literal value of 1st argument (src). 2000 5) Store result in 3rd argument (op3). 2001 */ 2002 2003 /* Alas, since this is the only instruction with 3 arguments, 2004 decode doesn't handle them very well. Some fix-up is required. 2005 2006 a) The size of dst is determined by whether src is 2007 INDEXB or INDEXW. */ 2008 2009 if (OP_KIND (code->src.type) == OP_INDEXB) 2010 code->dst.type = X (OP_KIND (code->dst.type), SB); 2011 else if (OP_KIND (code->src.type) == OP_INDEXW) 2012 code->dst.type = X (OP_KIND (code->dst.type), SW); 2013 2014 /* b) If op3 == null, then this is the short form of the insn. 2015 Dst is the dispreg of src, and op3 is the 32-bit form 2016 of the same register. 2017 */ 2018 2019 if (code->op3.type == 0) 2020 { 2021 /* Short form: src == INDEXB/INDEXW, dst == op3 == 0. 2022 We get to compose dst and op3 as follows: 2023 2024 op3 is a 32-bit register, ID == src.reg. 2025 dst is the same register, but 8 or 16 bits 2026 depending on whether src is INDEXB or INDEXW. 2027 */ 2028 2029 code->op3.type = X (OP_REG, SL); 2030 code->op3.reg = code->src.reg; 2031 code->op3.literal = 0; 2032 2033 if (OP_KIND (code->src.type) == OP_INDEXB) 2034 { 2035 code->dst.type = X (OP_REG, SB); 2036 code->dst.reg = code->op3.reg + 8; 2037 } 2038 else 2039 code->dst.type = X (OP_REG, SW); 2040 } 2041 2042 if (fetch (sd, &code->dst, &ea)) 2043 goto end; 2044 2045 switch (OP_KIND (code->src.type)) { 2046 case OP_INDEXB: ea = ea & 0xff; break; 2047 case OP_INDEXW: ea = ea & 0xffff; break; 2048 case OP_INDEXL: break; 2049 default: goto illegal; 2050 } 2051 2052 switch (code->opcode) { 2053 case O (O_MOVAB, SL): break; 2054 case O (O_MOVAW, SL): ea = ea << 1; break; 2055 case O (O_MOVAL, SL): ea = ea << 2; break; 2056 default: goto illegal; 2057 } 2058 2059 ea = ea + code->src.literal; 2060 2061 if (store (sd, &code->op3, ea)) 2062 goto end; 2063 2064 goto next; 2065 2066 case O (O_SUBX, SB): /* subx, extended sub */ 2067 if (fetch2 (sd, &code->dst, &rd)) 2068 goto end; 2069 if (fetch (sd, &code->src, &ea)) 2070 goto end; 2071 ea = -(ea + C); 2072 res = rd + ea; 2073 goto alu8; 2074 2075 case O (O_SUBX, SW): /* subx, extended sub */ 2076 if (fetch2 (sd, &code->dst, &rd)) 2077 goto end; 2078 if (fetch (sd, &code->src, &ea)) 2079 goto end; 2080 ea = -(ea + C); 2081 res = rd + ea; 2082 goto alu16; 2083 2084 case O (O_SUBX, SL): /* subx, extended sub */ 2085 if (fetch2 (sd, &code->dst, &rd)) 2086 goto end; 2087 if (fetch (sd, &code->src, &ea)) 2088 goto end; 2089 ea = -(ea + C); 2090 res = rd + ea; 2091 goto alu32; 2092 2093 case O (O_ADDX, SB): /* addx, extended add */ 2094 if (fetch2 (sd, &code->dst, &rd)) 2095 goto end; 2096 if (fetch (sd, &code->src, &ea)) 2097 goto end; 2098 ea = ea + C; 2099 res = rd + ea; 2100 goto alu8; 2101 2102 case O (O_ADDX, SW): /* addx, extended add */ 2103 if (fetch2 (sd, &code->dst, &rd)) 2104 goto end; 2105 if (fetch (sd, &code->src, &ea)) 2106 goto end; 2107 ea = ea + C; 2108 res = rd + ea; 2109 goto alu16; 2110 2111 case O (O_ADDX, SL): /* addx, extended add */ 2112 if (fetch2 (sd, &code->dst, &rd)) 2113 goto end; 2114 if (fetch (sd, &code->src, &ea)) 2115 goto end; 2116 ea = ea + C; 2117 res = rd + ea; 2118 goto alu32; 2119 2120 case O (O_SUB, SB): /* sub.b */ 2121 /* Fetch rd and ea. */ 2122 if (fetch (sd, &code->src, &ea) || fetch2 (sd, &code->dst, &rd)) 2123 goto end; 2124 ea = -ea; 2125 res = rd + ea; 2126 goto alu8; 2127 2128 case O (O_SUB, SW): /* sub.w */ 2129 /* Fetch rd and ea. */ 2130 if (fetch (sd, &code->src, &ea) || fetch2 (sd, &code->dst, &rd)) 2131 goto end; 2132 ea = -ea; 2133 res = rd + ea; 2134 goto alu16; 2135 2136 case O (O_SUB, SL): /* sub.l */ 2137 /* Fetch rd and ea. */ 2138 if (fetch (sd, &code->src, &ea) || fetch2 (sd, &code->dst, &rd)) 2139 goto end; 2140 ea = -ea; 2141 res = rd + ea; 2142 goto alu32; 2143 2144 case O (O_NEG, SB): /* neg.b */ 2145 /* Fetch ea. */ 2146 if (fetch2 (sd, &code->src, &ea)) 2147 goto end; 2148 ea = -ea; 2149 rd = 0; 2150 res = rd + ea; 2151 goto alu8; 2152 2153 case O (O_NEG, SW): /* neg.w */ 2154 /* Fetch ea. */ 2155 if (fetch2 (sd, &code->src, &ea)) 2156 goto end; 2157 ea = -ea; 2158 rd = 0; 2159 res = rd + ea; 2160 goto alu16; 2161 2162 case O (O_NEG, SL): /* neg.l */ 2163 /* Fetch ea. */ 2164 if (fetch2 (sd, &code->src, &ea)) 2165 goto end; 2166 ea = -ea; 2167 rd = 0; 2168 res = rd + ea; 2169 goto alu32; 2170 2171 case O (O_ADD, SB): /* add.b */ 2172 if (fetch2 (sd, &code->dst, &rd)) 2173 goto end; 2174 if (fetch (sd, &code->src, &ea)) 2175 goto end; 2176 res = rd + ea; 2177 goto alu8; 2178 2179 case O (O_ADD, SW): /* add.w */ 2180 if (fetch2 (sd, &code->dst, &rd)) 2181 goto end; 2182 if (fetch (sd, &code->src, &ea)) 2183 goto end; 2184 res = rd + ea; 2185 goto alu16; 2186 2187 case O (O_ADD, SL): /* add.l */ 2188 if (fetch2 (sd, &code->dst, &rd)) 2189 goto end; 2190 if (fetch (sd, &code->src, &ea)) 2191 goto end; 2192 res = rd + ea; 2193 goto alu32; 2194 2195 case O (O_AND, SB): /* and.b */ 2196 /* Fetch rd and ea. */ 2197 if (fetch (sd, &code->src, &ea) || fetch2 (sd, &code->dst, &rd)) 2198 goto end; 2199 res = rd & ea; 2200 goto log8; 2201 2202 case O (O_AND, SW): /* and.w */ 2203 /* Fetch rd and ea. */ 2204 if (fetch (sd, &code->src, &ea) || fetch2 (sd, &code->dst, &rd)) 2205 goto end; 2206 res = rd & ea; 2207 goto log16; 2208 2209 case O (O_AND, SL): /* and.l */ 2210 /* Fetch rd and ea. */ 2211 if (fetch (sd, &code->src, &ea) || fetch2 (sd, &code->dst, &rd)) 2212 goto end; 2213 res = rd & ea; 2214 goto log32; 2215 2216 case O (O_OR, SB): /* or.b */ 2217 /* Fetch rd and ea. */ 2218 if (fetch (sd, &code->src, &ea) || fetch2 (sd, &code->dst, &rd)) 2219 goto end; 2220 res = rd | ea; 2221 goto log8; 2222 2223 case O (O_OR, SW): /* or.w */ 2224 /* Fetch rd and ea. */ 2225 if (fetch (sd, &code->src, &ea) || fetch2 (sd, &code->dst, &rd)) 2226 goto end; 2227 res = rd | ea; 2228 goto log16; 2229 2230 case O (O_OR, SL): /* or.l */ 2231 /* Fetch rd and ea. */ 2232 if (fetch (sd, &code->src, &ea) || fetch2 (sd, &code->dst, &rd)) 2233 goto end; 2234 res = rd | ea; 2235 goto log32; 2236 2237 case O (O_XOR, SB): /* xor.b */ 2238 /* Fetch rd and ea. */ 2239 if (fetch (sd, &code->src, &ea) || fetch2 (sd, &code->dst, &rd)) 2240 goto end; 2241 res = rd ^ ea; 2242 goto log8; 2243 2244 case O (O_XOR, SW): /* xor.w */ 2245 /* Fetch rd and ea. */ 2246 if (fetch (sd, &code->src, &ea) || fetch2 (sd, &code->dst, &rd)) 2247 goto end; 2248 res = rd ^ ea; 2249 goto log16; 2250 2251 case O (O_XOR, SL): /* xor.l */ 2252 /* Fetch rd and ea. */ 2253 if (fetch (sd, &code->src, &ea) || fetch2 (sd, &code->dst, &rd)) 2254 goto end; 2255 res = rd ^ ea; 2256 goto log32; 2257 2258 case O (O_MOV, SB): 2259 if (fetch (sd, &code->src, &res)) 2260 goto end; 2261 if (store (sd, &code->dst, res)) 2262 goto end; 2263 goto just_flags_log8; 2264 case O (O_MOV, SW): 2265 if (fetch (sd, &code->src, &res)) 2266 goto end; 2267 if (store (sd, &code->dst, res)) 2268 goto end; 2269 goto just_flags_log16; 2270 case O (O_MOV, SL): 2271 if (fetch (sd, &code->src, &res)) 2272 goto end; 2273 if (store (sd, &code->dst, res)) 2274 goto end; 2275 goto just_flags_log32; 2276 2277 case O (O_MOVMD, SB): /* movmd.b */ 2278 ea = GET_W_REG (4); 2279 if (ea == 0) 2280 ea = 0x10000; 2281 2282 while (ea--) 2283 { 2284 rd = GET_MEMORY_B (GET_L_REG (5)); 2285 SET_MEMORY_B (GET_L_REG (6), rd); 2286 SET_L_REG (5, GET_L_REG (5) + 1); 2287 SET_L_REG (6, GET_L_REG (6) + 1); 2288 SET_W_REG (4, ea); 2289 } 2290 goto next; 2291 2292 case O (O_MOVMD, SW): /* movmd.w */ 2293 ea = GET_W_REG (4); 2294 if (ea == 0) 2295 ea = 0x10000; 2296 2297 while (ea--) 2298 { 2299 rd = GET_MEMORY_W (GET_L_REG (5)); 2300 SET_MEMORY_W (GET_L_REG (6), rd); 2301 SET_L_REG (5, GET_L_REG (5) + 2); 2302 SET_L_REG (6, GET_L_REG (6) + 2); 2303 SET_W_REG (4, ea); 2304 } 2305 goto next; 2306 2307 case O (O_MOVMD, SL): /* movmd.l */ 2308 ea = GET_W_REG (4); 2309 if (ea == 0) 2310 ea = 0x10000; 2311 2312 while (ea--) 2313 { 2314 rd = GET_MEMORY_L (GET_L_REG (5)); 2315 SET_MEMORY_L (GET_L_REG (6), rd); 2316 SET_L_REG (5, GET_L_REG (5) + 4); 2317 SET_L_REG (6, GET_L_REG (6) + 4); 2318 SET_W_REG (4, ea); 2319 } 2320 goto next; 2321 2322 case O (O_MOVSD, SB): /* movsd.b */ 2323 /* This instruction implements strncpy, with a conditional branch. 2324 r4 contains n, r5 contains src, and r6 contains dst. 2325 The 16-bit displacement operand is added to the pc 2326 if and only if the end of string is reached before 2327 n bytes are transferred. */ 2328 2329 ea = GET_L_REG (4) & 0xffff; 2330 if (ea == 0) 2331 ea = 0x10000; 2332 2333 while (ea--) 2334 { 2335 rd = GET_MEMORY_B (GET_L_REG (5)); 2336 SET_MEMORY_B (GET_L_REG (6), rd); 2337 SET_L_REG (5, GET_L_REG (5) + 1); 2338 SET_L_REG (6, GET_L_REG (6) + 1); 2339 SET_W_REG (4, ea); 2340 if (rd == 0) 2341 goto condtrue; 2342 } 2343 goto next; 2344 2345 case O (O_EEPMOV, SB): /* eepmov.b */ 2346 case O (O_EEPMOV, SW): /* eepmov.w */ 2347 if (h8300hmode || h8300smode) 2348 { 2349 register unsigned char *_src, *_dst; 2350 unsigned int count = ((code->opcode == O (O_EEPMOV, SW)) 2351 ? h8_get_reg (sd, R4_REGNUM) & 0xffff 2352 : h8_get_reg (sd, R4_REGNUM) & 0xff); 2353 2354 _src = (h8_get_reg (sd, R5_REGNUM) < memory_size 2355 ? h8_get_memory_buf (sd) + h8_get_reg (sd, R5_REGNUM) 2356 : h8_get_eightbit_buf (sd) + 2357 (h8_get_reg (sd, R5_REGNUM) & 0xff)); 2358 if ((_src + count) >= (h8_get_memory_buf (sd) + memory_size)) 2359 { 2360 if ((_src + count) >= (h8_get_eightbit_buf (sd) + 0x100)) 2361 goto illegal; 2362 } 2363 _dst = (h8_get_reg (sd, R6_REGNUM) < memory_size 2364 ? h8_get_memory_buf (sd) + h8_get_reg (sd, R6_REGNUM) 2365 : h8_get_eightbit_buf (sd) + 2366 (h8_get_reg (sd, R6_REGNUM) & 0xff)); 2367 2368 if ((_dst + count) >= (h8_get_memory_buf (sd) + memory_size)) 2369 { 2370 if ((_dst + count) >= (h8_get_eightbit_buf (sd) + 0x100)) 2371 goto illegal; 2372 } 2373 memcpy (_dst, _src, count); 2374 2375 h8_set_reg (sd, R5_REGNUM, h8_get_reg (sd, R5_REGNUM) + count); 2376 h8_set_reg (sd, R6_REGNUM, h8_get_reg (sd, R6_REGNUM) + count); 2377 h8_set_reg (sd, R4_REGNUM, h8_get_reg (sd, R4_REGNUM) & 2378 ((code->opcode == O (O_EEPMOV, SW)) 2379 ? (~0xffff) : (~0xff))); 2380 cycles += 2 * count; 2381 goto next; 2382 } 2383 goto illegal; 2384 2385 case O (O_ADDS, SL): /* adds (.l) */ 2386 /* FIXME fetch. 2387 * This insn only uses register operands, but still 2388 * it would be cleaner to use fetch and store... */ 2389 SET_L_REG (code->dst.reg, 2390 GET_L_REG (code->dst.reg) 2391 + code->src.literal); 2392 2393 goto next; 2394 2395 case O (O_SUBS, SL): /* subs (.l) */ 2396 /* FIXME fetch. 2397 * This insn only uses register operands, but still 2398 * it would be cleaner to use fetch and store... */ 2399 SET_L_REG (code->dst.reg, 2400 GET_L_REG (code->dst.reg) 2401 - code->src.literal); 2402 goto next; 2403 2404 case O (O_CMP, SB): /* cmp.b */ 2405 if (fetch (sd, &code->dst, &rd)) 2406 goto end; 2407 if (fetch (sd, &code->src, &ea)) 2408 goto end; 2409 ea = -ea; 2410 res = rd + ea; 2411 goto just_flags_alu8; 2412 2413 case O (O_CMP, SW): /* cmp.w */ 2414 if (fetch (sd, &code->dst, &rd)) 2415 goto end; 2416 if (fetch (sd, &code->src, &ea)) 2417 goto end; 2418 ea = -ea; 2419 res = rd + ea; 2420 goto just_flags_alu16; 2421 2422 case O (O_CMP, SL): /* cmp.l */ 2423 if (fetch (sd, &code->dst, &rd)) 2424 goto end; 2425 if (fetch (sd, &code->src, &ea)) 2426 goto end; 2427 ea = -ea; 2428 res = rd + ea; 2429 goto just_flags_alu32; 2430 2431 case O (O_DEC, SB): /* dec.b */ 2432 /* FIXME fetch. 2433 * This insn only uses register operands, but still 2434 * it would be cleaner to use fetch and store... */ 2435 rd = GET_B_REG (code->src.reg); 2436 ea = -1; 2437 res = rd + ea; 2438 SET_B_REG (code->src.reg, res); 2439 goto just_flags_inc8; 2440 2441 case O (O_DEC, SW): /* dec.w */ 2442 /* FIXME fetch. 2443 * This insn only uses register operands, but still 2444 * it would be cleaner to use fetch and store... */ 2445 rd = GET_W_REG (code->dst.reg); 2446 ea = -code->src.literal; 2447 res = rd + ea; 2448 SET_W_REG (code->dst.reg, res); 2449 goto just_flags_inc16; 2450 2451 case O (O_DEC, SL): /* dec.l */ 2452 /* FIXME fetch. 2453 * This insn only uses register operands, but still 2454 * it would be cleaner to use fetch and store... */ 2455 rd = GET_L_REG (code->dst.reg); 2456 ea = -code->src.literal; 2457 res = rd + ea; 2458 SET_L_REG (code->dst.reg, res); 2459 goto just_flags_inc32; 2460 2461 case O (O_INC, SB): /* inc.b */ 2462 /* FIXME fetch. 2463 * This insn only uses register operands, but still 2464 * it would be cleaner to use fetch and store... */ 2465 rd = GET_B_REG (code->src.reg); 2466 ea = 1; 2467 res = rd + ea; 2468 SET_B_REG (code->src.reg, res); 2469 goto just_flags_inc8; 2470 2471 case O (O_INC, SW): /* inc.w */ 2472 /* FIXME fetch. 2473 * This insn only uses register operands, but still 2474 * it would be cleaner to use fetch and store... */ 2475 rd = GET_W_REG (code->dst.reg); 2476 ea = code->src.literal; 2477 res = rd + ea; 2478 SET_W_REG (code->dst.reg, res); 2479 goto just_flags_inc16; 2480 2481 case O (O_INC, SL): /* inc.l */ 2482 /* FIXME fetch. 2483 * This insn only uses register operands, but still 2484 * it would be cleaner to use fetch and store... */ 2485 rd = GET_L_REG (code->dst.reg); 2486 ea = code->src.literal; 2487 res = rd + ea; 2488 SET_L_REG (code->dst.reg, res); 2489 goto just_flags_inc32; 2490 2491 case O (O_LDC, SB): /* ldc.b */ 2492 if (fetch (sd, &code->src, &res)) 2493 goto end; 2494 goto setc; 2495 2496 case O (O_LDC, SW): /* ldc.w */ 2497 if (fetch (sd, &code->src, &res)) 2498 goto end; 2499 2500 /* Word operand, value from MSB, must be shifted. */ 2501 res >>= 8; 2502 goto setc; 2503 2504 case O (O_LDC, SL): /* ldc.l */ 2505 if (fetch (sd, &code->src, &res)) 2506 goto end; 2507 switch (code->dst.type) { 2508 case X (OP_SBR, SL): 2509 h8_set_sbr (sd, res); 2510 break; 2511 case X (OP_VBR, SL): 2512 h8_set_vbr (sd, res); 2513 break; 2514 default: 2515 goto illegal; 2516 } 2517 goto next; 2518 2519 case O (O_STC, SW): /* stc.w */ 2520 case O (O_STC, SB): /* stc.b */ 2521 if (code->src.type == X (OP_CCR, SB)) 2522 { 2523 BUILDSR (sd); 2524 res = h8_get_ccr (sd); 2525 } 2526 else if (code->src.type == X (OP_EXR, SB) && h8300smode) 2527 { 2528 if (h8300smode) 2529 h8_set_exr (sd, (trace << 7) | intMask); 2530 res = h8_get_exr (sd); 2531 } 2532 else 2533 goto illegal; 2534 2535 /* Word operand, value to MSB, must be shifted. */ 2536 if (code->opcode == X (O_STC, SW)) 2537 res <<= 8; 2538 if (store (sd, &code->dst, res)) 2539 goto end; 2540 goto next; 2541 case O (O_STC, SL): /* stc.l */ 2542 switch (code->src.type) { 2543 case X (OP_SBR, SL): 2544 res = h8_get_sbr (sd); 2545 break; 2546 case X (OP_VBR, SL): 2547 res = h8_get_vbr (sd); 2548 break; 2549 default: 2550 goto illegal; 2551 } 2552 if (store (sd, &code->dst, res)) 2553 goto end; 2554 goto next; 2555 2556 case O (O_ANDC, SB): /* andc.b */ 2557 if (code->dst.type == X (OP_CCR, SB)) 2558 { 2559 BUILDSR (sd); 2560 rd = h8_get_ccr (sd); 2561 } 2562 else if (code->dst.type == X (OP_EXR, SB) && h8300smode) 2563 { 2564 if (h8300smode) 2565 h8_set_exr (sd, (trace << 7) | intMask); 2566 rd = h8_get_exr (sd); 2567 } 2568 else 2569 goto illegal; 2570 ea = code->src.literal; 2571 res = rd & ea; 2572 goto setc; 2573 2574 case O (O_ORC, SB): /* orc.b */ 2575 if (code->dst.type == X (OP_CCR, SB)) 2576 { 2577 BUILDSR (sd); 2578 rd = h8_get_ccr (sd); 2579 } 2580 else if (code->dst.type == X (OP_EXR, SB) && h8300smode) 2581 { 2582 if (h8300smode) 2583 h8_set_exr (sd, (trace << 7) | intMask); 2584 rd = h8_get_exr (sd); 2585 } 2586 else 2587 goto illegal; 2588 ea = code->src.literal; 2589 res = rd | ea; 2590 goto setc; 2591 2592 case O (O_XORC, SB): /* xorc.b */ 2593 if (code->dst.type == X (OP_CCR, SB)) 2594 { 2595 BUILDSR (sd); 2596 rd = h8_get_ccr (sd); 2597 } 2598 else if (code->dst.type == X (OP_EXR, SB) && h8300smode) 2599 { 2600 if (h8300smode) 2601 h8_set_exr (sd, (trace << 7) | intMask); 2602 rd = h8_get_exr (sd); 2603 } 2604 else 2605 goto illegal; 2606 ea = code->src.literal; 2607 res = rd ^ ea; 2608 goto setc; 2609 2610 case O (O_BRAS, SB): /* bra/s */ 2611 /* This is basically an ordinary branch, with a delay slot. */ 2612 if (fetch (sd, &code->src, &res)) 2613 goto end; 2614 2615 if ((res & 1) == 0) 2616 goto illegal; 2617 2618 res -= 1; 2619 2620 /* Execution continues at next instruction, but 2621 delayed_branch is set up for next cycle. */ 2622 h8_set_delayed_branch (sd, code->next_pc + res); 2623 pc = code->next_pc; 2624 goto end; 2625 2626 case O (O_BRAB, SB): /* bra rd.b */ 2627 case O (O_BRAW, SW): /* bra rd.w */ 2628 case O (O_BRAL, SL): /* bra erd.l */ 2629 if (fetch (sd, &code->src, &rd)) 2630 goto end; 2631 switch (OP_SIZE (code->opcode)) { 2632 case SB: rd &= 0xff; break; 2633 case SW: rd &= 0xffff; break; 2634 case SL: rd &= 0xffffffff; break; 2635 } 2636 pc = code->next_pc + rd; 2637 goto end; 2638 2639 case O (O_BRABC, SB): /* bra/bc, branch if bit clear */ 2640 case O (O_BRABS, SB): /* bra/bs, branch if bit set */ 2641 case O (O_BSRBC, SB): /* bsr/bc, call if bit clear */ 2642 case O (O_BSRBS, SB): /* bsr/bs, call if bit set */ 2643 if (fetch (sd, &code->dst, &rd) || 2644 fetch (sd, &code->src, &bit)) 2645 goto end; 2646 2647 if (code->opcode == O (O_BRABC, SB) || /* branch if clear */ 2648 code->opcode == O (O_BSRBC, SB)) /* call if clear */ 2649 { 2650 if ((rd & (1 << bit))) /* no branch */ 2651 goto next; 2652 } 2653 else /* branch/call if set */ 2654 { 2655 if (!(rd & (1 << bit))) /* no branch */ 2656 goto next; 2657 } 2658 2659 if (fetch (sd, &code->op3, &res)) /* branch */ 2660 goto end; 2661 pc = code->next_pc + res; 2662 2663 if (code->opcode == O (O_BRABC, SB) || 2664 code->opcode == O (O_BRABS, SB)) /* branch */ 2665 goto end; 2666 else /* call */ 2667 goto call; 2668 2669 case O (O_BRA, SN): 2670 case O (O_BRA, SL): 2671 case O (O_BRA, SW): 2672 case O (O_BRA, SB): /* bra, branch always */ 2673 if (1) 2674 goto condtrue; 2675 goto next; 2676 2677 case O (O_BRN, SB): /* brn, ;-/ branch never? */ 2678 if (0) 2679 goto condtrue; 2680 goto next; 2681 2682 case O (O_BHI, SB): /* bhi */ 2683 if ((C || Z) == 0) 2684 goto condtrue; 2685 goto next; 2686 2687 2688 case O (O_BLS, SB): /* bls */ 2689 if ((C || Z)) 2690 goto condtrue; 2691 goto next; 2692 2693 case O (O_BCS, SB): /* bcs, branch if carry set */ 2694 if ((C == 1)) 2695 goto condtrue; 2696 goto next; 2697 2698 case O (O_BCC, SB): /* bcc, branch if carry clear */ 2699 if ((C == 0)) 2700 goto condtrue; 2701 goto next; 2702 2703 case O (O_BEQ, SB): /* beq, branch if zero set */ 2704 if (Z) 2705 goto condtrue; 2706 goto next; 2707 case O (O_BGT, SB): /* bgt */ 2708 if (((Z || (N ^ V)) == 0)) 2709 goto condtrue; 2710 goto next; 2711 2712 case O (O_BLE, SB): /* ble */ 2713 if (((Z || (N ^ V)) == 1)) 2714 goto condtrue; 2715 goto next; 2716 2717 case O (O_BGE, SB): /* bge */ 2718 if ((N ^ V) == 0) 2719 goto condtrue; 2720 goto next; 2721 case O (O_BLT, SB): /* blt */ 2722 if ((N ^ V)) 2723 goto condtrue; 2724 goto next; 2725 case O (O_BMI, SB): /* bmi */ 2726 if ((N)) 2727 goto condtrue; 2728 goto next; 2729 case O (O_BNE, SB): /* bne, branch if zero clear */ 2730 if ((Z == 0)) 2731 goto condtrue; 2732 goto next; 2733 2734 case O (O_BPL, SB): /* bpl */ 2735 if (N == 0) 2736 goto condtrue; 2737 goto next; 2738 case O (O_BVC, SB): /* bvc */ 2739 if ((V == 0)) 2740 goto condtrue; 2741 goto next; 2742 case O (O_BVS, SB): /* bvs */ 2743 if ((V == 1)) 2744 goto condtrue; 2745 goto next; 2746 2747 /* Trap for Command Line setup. */ 2748 case O (O_SYS_CMDLINE, SB): 2749 { 2750 int i = 0; /* Loop counter. */ 2751 int j = 0; /* Loop counter. */ 2752 int ind_arg_len = 0; /* Length of each argument. */ 2753 int no_of_args = 0; /* The no. or cmdline args. */ 2754 int current_location = 0; /* Location of string. */ 2755 int old_sp = 0; /* The Initial Stack Pointer. */ 2756 int no_of_slots = 0; /* No. of slots required on the stack 2757 for storing cmdline args. */ 2758 int sp_move = 0; /* No. of locations by which the stack needs 2759 to grow. */ 2760 int new_sp = 0; /* The final stack pointer location passed 2761 back. */ 2762 int *argv_ptrs; /* Pointers of argv strings to be stored. */ 2763 int argv_ptrs_location = 0; /* Location of pointers to cmdline 2764 args on the stack. */ 2765 int char_ptr_size = 0; /* Size of a character pointer on 2766 target machine. */ 2767 int addr_cmdline = 0; /* Memory location where cmdline has 2768 to be stored. */ 2769 int size_cmdline = 0; /* Size of cmdline. */ 2770 2771 /* Set the address of 256 free locations where command line is 2772 stored. */ 2773 addr_cmdline = cmdline_location(); 2774 h8_set_reg (sd, 0, addr_cmdline); 2775 2776 /* Counting the no. of commandline arguments. */ 2777 for (i = 0; h8_get_cmdline_arg (sd, i) != NULL; i++) 2778 continue; 2779 2780 /* No. of arguments in the command line. */ 2781 no_of_args = i; 2782 2783 /* Current location is just a temporary variable,which we are 2784 setting to the point to the start of our commandline string. */ 2785 current_location = addr_cmdline; 2786 2787 /* Allocating space for storing pointers of the command line 2788 arguments. */ 2789 argv_ptrs = (int *) malloc (sizeof (int) * no_of_args); 2790 2791 /* Setting char_ptr_size to the sizeof (char *) on the different 2792 architectures. */ 2793 if ((h8300hmode || h8300smode) && !h8300_normal_mode) 2794 { 2795 char_ptr_size = 4; 2796 } 2797 else 2798 { 2799 char_ptr_size = 2; 2800 } 2801 2802 for (i = 0; i < no_of_args; i++) 2803 { 2804 ind_arg_len = 0; 2805 2806 /* The size of the commandline argument. */ 2807 ind_arg_len = strlen (h8_get_cmdline_arg (sd, i)) + 1; 2808 2809 /* The total size of the command line string. */ 2810 size_cmdline += ind_arg_len; 2811 2812 /* As we have only 256 bytes, we need to provide a graceful 2813 exit. Anyways, a program using command line arguments 2814 where we cannot store all the command line arguments 2815 given may behave unpredictably. */ 2816 if (size_cmdline >= 256) 2817 { 2818 h8_set_reg (sd, 0, 0); 2819 goto next; 2820 } 2821 else 2822 { 2823 /* current_location points to the memory where the next 2824 commandline argument is stored. */ 2825 argv_ptrs[i] = current_location; 2826 for (j = 0; j < ind_arg_len; j++) 2827 { 2828 SET_MEMORY_B ((current_location + 2829 (sizeof (char) * j)), 2830 *(h8_get_cmdline_arg (sd, i) + 2831 sizeof (char) * j)); 2832 } 2833 2834 /* Setting current_location to the starting of next 2835 argument. */ 2836 current_location += ind_arg_len; 2837 } 2838 } 2839 2840 /* This is the original position of the stack pointer. */ 2841 old_sp = h8_get_reg (sd, SP_REGNUM); 2842 2843 /* We need space from the stack to store the pointers to argvs. */ 2844 /* As we will infringe on the stack, we need to shift the stack 2845 pointer so that the data is not overwritten. We calculate how 2846 much space is required. */ 2847 sp_move = (no_of_args) * (char_ptr_size); 2848 2849 /* The final position of stack pointer, we have thus taken some 2850 space from the stack. */ 2851 new_sp = old_sp - sp_move; 2852 2853 /* Temporary variable holding value where the argv pointers need 2854 to be stored. */ 2855 argv_ptrs_location = new_sp; 2856 2857 /* The argv pointers are stored at sequential locations. As per 2858 the H8300 ABI. */ 2859 for (i = 0; i < no_of_args; i++) 2860 { 2861 /* Saving the argv pointer. */ 2862 if ((h8300hmode || h8300smode) && !h8300_normal_mode) 2863 { 2864 SET_MEMORY_L (argv_ptrs_location, argv_ptrs[i]); 2865 } 2866 else 2867 { 2868 SET_MEMORY_W (argv_ptrs_location, argv_ptrs[i]); 2869 } 2870 2871 /* The next location where the pointer to the next argv 2872 string has to be stored. */ 2873 argv_ptrs_location += char_ptr_size; 2874 } 2875 2876 /* Required by POSIX, Setting 0x0 at the end of the list of argv 2877 pointers. */ 2878 if ((h8300hmode || h8300smode) && !h8300_normal_mode) 2879 { 2880 SET_MEMORY_L (old_sp, 0x0); 2881 } 2882 else 2883 { 2884 SET_MEMORY_W (old_sp, 0x0); 2885 } 2886 2887 /* Freeing allocated memory. */ 2888 free (argv_ptrs); 2889 for (i = 0; i <= no_of_args; i++) 2890 { 2891 free (h8_get_cmdline_arg (sd, i)); 2892 } 2893 free (h8_get_command_line (sd)); 2894 2895 /* The no. of argv arguments are returned in Reg 0. */ 2896 h8_set_reg (sd, 0, no_of_args); 2897 /* The Pointer to argv in Register 1. */ 2898 h8_set_reg (sd, 1, new_sp); 2899 /* Setting the stack pointer to the new value. */ 2900 h8_set_reg (sd, SP_REGNUM, new_sp); 2901 } 2902 goto next; 2903 2904 /* System call processing starts. */ 2905 case O (O_SYS_OPEN, SB): 2906 { 2907 int len = 0; /* Length of filename. */ 2908 char *filename; /* Filename would go here. */ 2909 char temp_char; /* Temporary character */ 2910 int mode = 0; /* Mode bits for the file. */ 2911 int open_return; /* Return value of open, file descriptor. */ 2912 int i; /* Loop counter */ 2913 int filename_ptr; /* Pointer to filename in cpu memory. */ 2914 2915 /* Setting filename_ptr to first argument of open, */ 2916 /* and trying to get mode. */ 2917 if ((h8300sxmode || h8300hmode || h8300smode) && !h8300_normal_mode) 2918 { 2919 filename_ptr = GET_L_REG (0); 2920 mode = GET_MEMORY_L (h8_get_reg (sd, SP_REGNUM) + 4); 2921 } 2922 else 2923 { 2924 filename_ptr = GET_W_REG (0); 2925 mode = GET_MEMORY_W (h8_get_reg (sd, SP_REGNUM) + 2); 2926 } 2927 2928 /* Trying to find the length of the filename. */ 2929 temp_char = GET_MEMORY_B (h8_get_reg (sd, 0)); 2930 2931 len = 1; 2932 while (temp_char != '\0') 2933 { 2934 temp_char = GET_MEMORY_B (filename_ptr + len); 2935 len++; 2936 } 2937 2938 /* Allocating space for the filename. */ 2939 filename = (char *) malloc (sizeof (char) * len); 2940 2941 /* String copying the filename from memory. */ 2942 for (i = 0; i < len; i++) 2943 { 2944 temp_char = GET_MEMORY_B (filename_ptr + i); 2945 filename[i] = temp_char; 2946 } 2947 2948 /* Callback to open and return the file descriptor. */ 2949 open_return = sim_callback->open (sim_callback, filename, mode); 2950 2951 /* Return value in register 0. */ 2952 h8_set_reg (sd, 0, open_return); 2953 2954 /* Freeing memory used for filename. */ 2955 free (filename); 2956 } 2957 goto next; 2958 2959 case O (O_SYS_READ, SB): 2960 { 2961 char *char_ptr; /* Where characters read would be stored. */ 2962 int fd; /* File descriptor */ 2963 int buf_size; /* BUF_SIZE parameter in read. */ 2964 int i = 0; /* Temporary Loop counter */ 2965 int read_return = 0; /* Return value from callback to 2966 read. */ 2967 2968 fd = (h8300hmode && !h8300_normal_mode) ? GET_L_REG (0) : GET_W_REG (0); 2969 buf_size = (h8300hmode && !h8300_normal_mode) ? GET_L_REG (2) : GET_W_REG (2); 2970 2971 char_ptr = (char *) malloc (sizeof (char) * buf_size); 2972 2973 /* Callback to read and return the no. of characters read. */ 2974 read_return = 2975 sim_callback->read (sim_callback, fd, char_ptr, buf_size); 2976 2977 /* The characters read are stored in cpu memory. */ 2978 for (i = 0; i < buf_size; i++) 2979 { 2980 SET_MEMORY_B ((h8_get_reg (sd, 1) + (sizeof (char) * i)), 2981 *(char_ptr + (sizeof (char) * i))); 2982 } 2983 2984 /* Return value in Register 0. */ 2985 h8_set_reg (sd, 0, read_return); 2986 2987 /* Freeing memory used as buffer. */ 2988 free (char_ptr); 2989 } 2990 goto next; 2991 2992 case O (O_SYS_WRITE, SB): 2993 { 2994 int fd; /* File descriptor */ 2995 char temp_char; /* Temporary character */ 2996 int len; /* Length of write, Parameter II to write. */ 2997 int char_ptr; /* Character Pointer, Parameter I of write. */ 2998 char *ptr; /* Where characters to be written are stored. 2999 */ 3000 int write_return; /* Return value from callback to write. */ 3001 int i = 0; /* Loop counter */ 3002 3003 fd = (h8300hmode && !h8300_normal_mode) ? GET_L_REG (0) : GET_W_REG (0); 3004 char_ptr = (h8300hmode && !h8300_normal_mode) ? GET_L_REG (1) : GET_W_REG (1); 3005 len = (h8300hmode && !h8300_normal_mode) ? GET_L_REG (2) : GET_W_REG (2); 3006 3007 /* Allocating space for the characters to be written. */ 3008 ptr = (char *) malloc (sizeof (char) * len); 3009 3010 /* Fetching the characters from cpu memory. */ 3011 for (i = 0; i < len; i++) 3012 { 3013 temp_char = GET_MEMORY_B (char_ptr + i); 3014 ptr[i] = temp_char; 3015 } 3016 3017 /* Callback write and return the no. of characters written. */ 3018 write_return = sim_callback->write (sim_callback, fd, ptr, len); 3019 3020 /* Return value in Register 0. */ 3021 h8_set_reg (sd, 0, write_return); 3022 3023 /* Freeing memory used as buffer. */ 3024 free (ptr); 3025 } 3026 goto next; 3027 3028 case O (O_SYS_LSEEK, SB): 3029 { 3030 int fd; /* File descriptor */ 3031 int offset; /* Offset */ 3032 int origin; /* Origin */ 3033 int lseek_return; /* Return value from callback to lseek. */ 3034 3035 fd = (h8300hmode && !h8300_normal_mode) ? GET_L_REG (0) : GET_W_REG (0); 3036 offset = (h8300hmode && !h8300_normal_mode) ? GET_L_REG (1) : GET_W_REG (1); 3037 origin = (h8300hmode && !h8300_normal_mode) ? GET_L_REG (2) : GET_W_REG (2); 3038 3039 /* Callback lseek and return offset. */ 3040 lseek_return = 3041 sim_callback->lseek (sim_callback, fd, offset, origin); 3042 3043 /* Return value in register 0. */ 3044 h8_set_reg (sd, 0, lseek_return); 3045 } 3046 goto next; 3047 3048 case O (O_SYS_CLOSE, SB): 3049 { 3050 int fd; /* File descriptor */ 3051 int close_return; /* Return value from callback to close. */ 3052 3053 fd = (h8300hmode && !h8300_normal_mode) ? GET_L_REG (0) : GET_W_REG (0); 3054 3055 /* Callback close and return. */ 3056 close_return = sim_callback->close (sim_callback, fd); 3057 3058 /* Return value in register 0. */ 3059 h8_set_reg (sd, 0, close_return); 3060 } 3061 goto next; 3062 3063 case O (O_SYS_FSTAT, SB): 3064 { 3065 int fd; /* File descriptor */ 3066 struct stat stat_rec; /* Stat record */ 3067 int fstat_return; /* Return value from callback to stat. */ 3068 int stat_ptr; /* Pointer to stat record. */ 3069 char *temp_stat_ptr; /* Temporary stat_rec pointer. */ 3070 3071 fd = (h8300hmode && !h8300_normal_mode) ? GET_L_REG (0) : GET_W_REG (0); 3072 3073 /* Setting stat_ptr to second argument of stat. */ 3074 stat_ptr = (h8300hmode && !h8300_normal_mode) ? GET_L_REG (1) : GET_W_REG (1); 3075 3076 /* Callback stat and return. */ 3077 fstat_return = sim_callback->fstat (sim_callback, fd, &stat_rec); 3078 3079 /* Have stat_ptr point to starting of stat_rec. */ 3080 temp_stat_ptr = (char *) (&stat_rec); 3081 3082 /* Setting up the stat structure returned. */ 3083 SET_MEMORY_W (stat_ptr, stat_rec.st_dev); 3084 stat_ptr += 2; 3085 SET_MEMORY_W (stat_ptr, stat_rec.st_ino); 3086 stat_ptr += 2; 3087 SET_MEMORY_L (stat_ptr, stat_rec.st_mode); 3088 stat_ptr += 4; 3089 SET_MEMORY_W (stat_ptr, stat_rec.st_nlink); 3090 stat_ptr += 2; 3091 SET_MEMORY_W (stat_ptr, stat_rec.st_uid); 3092 stat_ptr += 2; 3093 SET_MEMORY_W (stat_ptr, stat_rec.st_gid); 3094 stat_ptr += 2; 3095 SET_MEMORY_W (stat_ptr, stat_rec.st_rdev); 3096 stat_ptr += 2; 3097 SET_MEMORY_L (stat_ptr, stat_rec.st_size); 3098 stat_ptr += 4; 3099 SET_MEMORY_L (stat_ptr, stat_rec.st_atime); 3100 stat_ptr += 8; 3101 SET_MEMORY_L (stat_ptr, stat_rec.st_mtime); 3102 stat_ptr += 8; 3103 SET_MEMORY_L (stat_ptr, stat_rec.st_ctime); 3104 3105 /* Return value in register 0. */ 3106 h8_set_reg (sd, 0, fstat_return); 3107 } 3108 goto next; 3109 3110 case O (O_SYS_STAT, SB): 3111 { 3112 int len = 0; /* Length of filename. */ 3113 char *filename; /* Filename would go here. */ 3114 char temp_char; /* Temporary character */ 3115 int filename_ptr; /* Pointer to filename in cpu memory. */ 3116 struct stat stat_rec; /* Stat record */ 3117 int stat_return; /* Return value from callback to stat */ 3118 int stat_ptr; /* Pointer to stat record. */ 3119 char *temp_stat_ptr; /* Temporary stat_rec pointer. */ 3120 int i = 0; /* Loop Counter */ 3121 3122 /* Setting filename_ptr to first argument of open. */ 3123 filename_ptr = (h8300hmode && !h8300_normal_mode) ? GET_L_REG (0) : GET_W_REG (0); 3124 3125 /* Trying to find the length of the filename. */ 3126 temp_char = GET_MEMORY_B (h8_get_reg (sd, 0)); 3127 3128 len = 1; 3129 while (temp_char != '\0') 3130 { 3131 temp_char = GET_MEMORY_B (filename_ptr + len); 3132 len++; 3133 } 3134 3135 /* Allocating space for the filename. */ 3136 filename = (char *) malloc (sizeof (char) * len); 3137 3138 /* String copying the filename from memory. */ 3139 for (i = 0; i < len; i++) 3140 { 3141 temp_char = GET_MEMORY_B (filename_ptr + i); 3142 filename[i] = temp_char; 3143 } 3144 3145 /* Setting stat_ptr to second argument of stat. */ 3146 /* stat_ptr = h8_get_reg (sd, 1); */ 3147 stat_ptr = (h8300hmode && !h8300_normal_mode) ? GET_L_REG (1) : GET_W_REG (1); 3148 3149 /* Callback stat and return. */ 3150 stat_return = 3151 sim_callback->stat (sim_callback, filename, &stat_rec); 3152 3153 /* Have stat_ptr point to starting of stat_rec. */ 3154 temp_stat_ptr = (char *) (&stat_rec); 3155 3156 /* Freeing memory used for filename. */ 3157 free (filename); 3158 3159 /* Setting up the stat structure returned. */ 3160 SET_MEMORY_W (stat_ptr, stat_rec.st_dev); 3161 stat_ptr += 2; 3162 SET_MEMORY_W (stat_ptr, stat_rec.st_ino); 3163 stat_ptr += 2; 3164 SET_MEMORY_L (stat_ptr, stat_rec.st_mode); 3165 stat_ptr += 4; 3166 SET_MEMORY_W (stat_ptr, stat_rec.st_nlink); 3167 stat_ptr += 2; 3168 SET_MEMORY_W (stat_ptr, stat_rec.st_uid); 3169 stat_ptr += 2; 3170 SET_MEMORY_W (stat_ptr, stat_rec.st_gid); 3171 stat_ptr += 2; 3172 SET_MEMORY_W (stat_ptr, stat_rec.st_rdev); 3173 stat_ptr += 2; 3174 SET_MEMORY_L (stat_ptr, stat_rec.st_size); 3175 stat_ptr += 4; 3176 SET_MEMORY_L (stat_ptr, stat_rec.st_atime); 3177 stat_ptr += 8; 3178 SET_MEMORY_L (stat_ptr, stat_rec.st_mtime); 3179 stat_ptr += 8; 3180 SET_MEMORY_L (stat_ptr, stat_rec.st_ctime); 3181 3182 /* Return value in register 0. */ 3183 h8_set_reg (sd, 0, stat_return); 3184 } 3185 goto next; 3186 /* End of system call processing. */ 3187 3188 case O (O_NOT, SB): /* not.b */ 3189 if (fetch2 (sd, &code->src, &rd)) 3190 goto end; 3191 rd = ~rd; 3192 v = 0; 3193 goto shift8; 3194 3195 case O (O_NOT, SW): /* not.w */ 3196 if (fetch2 (sd, &code->src, &rd)) 3197 goto end; 3198 rd = ~rd; 3199 v = 0; 3200 goto shift16; 3201 3202 case O (O_NOT, SL): /* not.l */ 3203 if (fetch2 (sd, &code->src, &rd)) 3204 goto end; 3205 rd = ~rd; 3206 v = 0; 3207 goto shift32; 3208 3209 case O (O_SHLL, SB): /* shll.b */ 3210 case O (O_SHLR, SB): /* shlr.b */ 3211 if (fetch2 (sd, &code->dst, &rd)) 3212 goto end; 3213 3214 if (memcmp (&code->src, &code->dst, sizeof (code->src)) == 0) 3215 ea = 1; /* unary op */ 3216 else /* binary op */ 3217 fetch (sd, &code->src, &ea); 3218 3219 if (code->opcode == O (O_SHLL, SB)) 3220 { 3221 v = (ea > 8); 3222 c = rd & (0x80 >> (ea - 1)); 3223 rd <<= ea; 3224 } 3225 else 3226 { 3227 v = 0; 3228 c = rd & (1 << (ea - 1)); 3229 rd = (unsigned char) rd >> ea; 3230 } 3231 goto shift8; 3232 3233 case O (O_SHLL, SW): /* shll.w */ 3234 case O (O_SHLR, SW): /* shlr.w */ 3235 if (fetch2 (sd, &code->dst, &rd)) 3236 goto end; 3237 3238 if (memcmp (&code->src, &code->dst, sizeof (code->src)) == 0) 3239 ea = 1; /* unary op */ 3240 else 3241 fetch (sd, &code->src, &ea); 3242 3243 if (code->opcode == O (O_SHLL, SW)) 3244 { 3245 v = (ea > 16); 3246 c = rd & (0x8000 >> (ea - 1)); 3247 rd <<= ea; 3248 } 3249 else 3250 { 3251 v = 0; 3252 c = rd & (1 << (ea - 1)); 3253 rd = (unsigned short) rd >> ea; 3254 } 3255 goto shift16; 3256 3257 case O (O_SHLL, SL): /* shll.l */ 3258 case O (O_SHLR, SL): /* shlr.l */ 3259 if (fetch2 (sd, &code->dst, &rd)) 3260 goto end; 3261 3262 if (memcmp (&code->src, &code->dst, sizeof (code->src)) == 0) 3263 ea = 1; /* unary op */ 3264 else 3265 fetch (sd, &code->src, &ea); 3266 3267 if (code->opcode == O (O_SHLL, SL)) 3268 { 3269 v = (ea > 32); 3270 c = rd & (0x80000000 >> (ea - 1)); 3271 rd <<= ea; 3272 } 3273 else 3274 { 3275 v = 0; 3276 c = rd & (1 << (ea - 1)); 3277 rd = (unsigned int) rd >> ea; 3278 } 3279 goto shift32; 3280 3281 case O (O_SHAL, SB): 3282 case O (O_SHAR, SB): 3283 if (fetch2 (sd, &code->dst, &rd)) 3284 goto end; 3285 3286 if (code->src.type == X (OP_IMM, SB)) 3287 fetch (sd, &code->src, &ea); 3288 else 3289 ea = 1; 3290 3291 if (code->opcode == O (O_SHAL, SB)) 3292 { 3293 c = rd & (0x80 >> (ea - 1)); 3294 res = rd >> (7 - ea); 3295 v = ((res & 1) && !(res & 2)) 3296 || (!(res & 1) && (res & 2)); 3297 rd <<= ea; 3298 } 3299 else 3300 { 3301 c = rd & (1 << (ea - 1)); 3302 v = 0; 3303 rd = ((signed char) rd) >> ea; 3304 } 3305 goto shift8; 3306 3307 case O (O_SHAL, SW): 3308 case O (O_SHAR, SW): 3309 if (fetch2 (sd, &code->dst, &rd)) 3310 goto end; 3311 3312 if (code->src.type == X (OP_IMM, SW)) 3313 fetch (sd, &code->src, &ea); 3314 else 3315 ea = 1; 3316 3317 if (code->opcode == O (O_SHAL, SW)) 3318 { 3319 c = rd & (0x8000 >> (ea - 1)); 3320 res = rd >> (15 - ea); 3321 v = ((res & 1) && !(res & 2)) 3322 || (!(res & 1) && (res & 2)); 3323 rd <<= ea; 3324 } 3325 else 3326 { 3327 c = rd & (1 << (ea - 1)); 3328 v = 0; 3329 rd = ((signed short) rd) >> ea; 3330 } 3331 goto shift16; 3332 3333 case O (O_SHAL, SL): 3334 case O (O_SHAR, SL): 3335 if (fetch2 (sd, &code->dst, &rd)) 3336 goto end; 3337 3338 if (code->src.type == X (OP_IMM, SL)) 3339 fetch (sd, &code->src, &ea); 3340 else 3341 ea = 1; 3342 3343 if (code->opcode == O (O_SHAL, SL)) 3344 { 3345 c = rd & (0x80000000 >> (ea - 1)); 3346 res = rd >> (31 - ea); 3347 v = ((res & 1) && !(res & 2)) 3348 || (!(res & 1) && (res & 2)); 3349 rd <<= ea; 3350 } 3351 else 3352 { 3353 c = rd & (1 << (ea - 1)); 3354 v = 0; 3355 rd = ((signed int) rd) >> ea; 3356 } 3357 goto shift32; 3358 3359 case O (O_ROTL, SB): 3360 case O (O_ROTR, SB): 3361 if (fetch2 (sd, &code->dst, &rd)) 3362 goto end; 3363 3364 if (code->src.type == X (OP_IMM, SB)) 3365 fetch (sd, &code->src, &ea); 3366 else 3367 ea = 1; 3368 3369 while (ea--) 3370 if (code->opcode == O (O_ROTL, SB)) 3371 { 3372 c = rd & 0x80; 3373 rd <<= 1; 3374 if (c) 3375 rd |= 1; 3376 } 3377 else 3378 { 3379 c = rd & 1; 3380 rd = ((unsigned char) rd) >> 1; 3381 if (c) 3382 rd |= 0x80; 3383 } 3384 3385 v = 0; 3386 goto shift8; 3387 3388 case O (O_ROTL, SW): 3389 case O (O_ROTR, SW): 3390 if (fetch2 (sd, &code->dst, &rd)) 3391 goto end; 3392 3393 if (code->src.type == X (OP_IMM, SW)) 3394 fetch (sd, &code->src, &ea); 3395 else 3396 ea = 1; 3397 3398 while (ea--) 3399 if (code->opcode == O (O_ROTL, SW)) 3400 { 3401 c = rd & 0x8000; 3402 rd <<= 1; 3403 if (c) 3404 rd |= 1; 3405 } 3406 else 3407 { 3408 c = rd & 1; 3409 rd = ((unsigned short) rd) >> 1; 3410 if (c) 3411 rd |= 0x8000; 3412 } 3413 3414 v = 0; 3415 goto shift16; 3416 3417 case O (O_ROTL, SL): 3418 case O (O_ROTR, SL): 3419 if (fetch2 (sd, &code->dst, &rd)) 3420 goto end; 3421 3422 if (code->src.type == X (OP_IMM, SL)) 3423 fetch (sd, &code->src, &ea); 3424 else 3425 ea = 1; 3426 3427 while (ea--) 3428 if (code->opcode == O (O_ROTL, SL)) 3429 { 3430 c = rd & 0x80000000; 3431 rd <<= 1; 3432 if (c) 3433 rd |= 1; 3434 } 3435 else 3436 { 3437 c = rd & 1; 3438 rd = ((unsigned int) rd) >> 1; 3439 if (c) 3440 rd |= 0x80000000; 3441 } 3442 3443 v = 0; 3444 goto shift32; 3445 3446 case O (O_ROTXL, SB): 3447 case O (O_ROTXR, SB): 3448 if (fetch2 (sd, &code->dst, &rd)) 3449 goto end; 3450 3451 if (code->src.type == X (OP_IMM, SB)) 3452 fetch (sd, &code->src, &ea); 3453 else 3454 ea = 1; 3455 3456 while (ea--) 3457 if (code->opcode == O (O_ROTXL, SB)) 3458 { 3459 res = rd & 0x80; 3460 rd <<= 1; 3461 if (C) 3462 rd |= 1; 3463 c = res; 3464 } 3465 else 3466 { 3467 res = rd & 1; 3468 rd = ((unsigned char) rd) >> 1; 3469 if (C) 3470 rd |= 0x80; 3471 c = res; 3472 } 3473 3474 v = 0; 3475 goto shift8; 3476 3477 case O (O_ROTXL, SW): 3478 case O (O_ROTXR, SW): 3479 if (fetch2 (sd, &code->dst, &rd)) 3480 goto end; 3481 3482 if (code->src.type == X (OP_IMM, SW)) 3483 fetch (sd, &code->src, &ea); 3484 else 3485 ea = 1; 3486 3487 while (ea--) 3488 if (code->opcode == O (O_ROTXL, SW)) 3489 { 3490 res = rd & 0x8000; 3491 rd <<= 1; 3492 if (C) 3493 rd |= 1; 3494 c = res; 3495 } 3496 else 3497 { 3498 res = rd & 1; 3499 rd = ((unsigned short) rd) >> 1; 3500 if (C) 3501 rd |= 0x8000; 3502 c = res; 3503 } 3504 3505 v = 0; 3506 goto shift16; 3507 3508 case O (O_ROTXL, SL): 3509 case O (O_ROTXR, SL): 3510 if (fetch2 (sd, &code->dst, &rd)) 3511 goto end; 3512 3513 if (code->src.type == X (OP_IMM, SL)) 3514 fetch (sd, &code->src, &ea); 3515 else 3516 ea = 1; 3517 3518 while (ea--) 3519 if (code->opcode == O (O_ROTXL, SL)) 3520 { 3521 res = rd & 0x80000000; 3522 rd <<= 1; 3523 if (C) 3524 rd |= 1; 3525 c = res; 3526 } 3527 else 3528 { 3529 res = rd & 1; 3530 rd = ((unsigned int) rd) >> 1; 3531 if (C) 3532 rd |= 0x80000000; 3533 c = res; 3534 } 3535 3536 v = 0; 3537 goto shift32; 3538 3539 case O (O_JMP, SN): 3540 case O (O_JMP, SL): 3541 case O (O_JMP, SB): /* jmp */ 3542 case O (O_JMP, SW): 3543 fetch (sd, &code->src, &pc); 3544 goto end; 3545 3546 case O (O_JSR, SN): 3547 case O (O_JSR, SL): 3548 case O (O_JSR, SB): /* jsr, jump to subroutine */ 3549 case O (O_JSR, SW): 3550 if (fetch (sd, &code->src, &pc)) 3551 goto end; 3552 call: 3553 tmp = h8_get_reg (sd, SP_REGNUM); 3554 3555 if (h8300hmode && !h8300_normal_mode) 3556 { 3557 tmp -= 4; 3558 SET_MEMORY_L (tmp, code->next_pc); 3559 } 3560 else 3561 { 3562 tmp -= 2; 3563 SET_MEMORY_W (tmp, code->next_pc); 3564 } 3565 h8_set_reg (sd, SP_REGNUM, tmp); 3566 3567 goto end; 3568 3569 case O (O_BSR, SW): 3570 case O (O_BSR, SL): 3571 case O (O_BSR, SB): /* bsr, branch to subroutine */ 3572 if (fetch (sd, &code->src, &res)) 3573 goto end; 3574 pc = code->next_pc + res; 3575 goto call; 3576 3577 case O (O_RTE, SN): /* rte, return from exception */ 3578 rte: 3579 /* Pops exr and ccr before pc -- otherwise identical to rts. */ 3580 tmp = h8_get_reg (sd, SP_REGNUM); 3581 3582 if (h8300smode) /* pop exr */ 3583 { 3584 h8_set_exr (sd, GET_MEMORY_L (tmp)); 3585 tmp += 4; 3586 } 3587 if (h8300hmode && !h8300_normal_mode) 3588 { 3589 h8_set_ccr (sd, GET_MEMORY_L (tmp)); 3590 tmp += 4; 3591 pc = GET_MEMORY_L (tmp); 3592 tmp += 4; 3593 } 3594 else 3595 { 3596 h8_set_ccr (sd, GET_MEMORY_W (tmp)); 3597 tmp += 2; 3598 pc = GET_MEMORY_W (tmp); 3599 tmp += 2; 3600 } 3601 3602 GETSR (sd); 3603 h8_set_reg (sd, SP_REGNUM, tmp); 3604 goto end; 3605 3606 case O (O_RTS, SN): /* rts, return from subroutine */ 3607 rts: 3608 tmp = h8_get_reg (sd, SP_REGNUM); 3609 3610 if (h8300hmode && !h8300_normal_mode) 3611 { 3612 pc = GET_MEMORY_L (tmp); 3613 tmp += 4; 3614 } 3615 else 3616 { 3617 pc = GET_MEMORY_W (tmp); 3618 tmp += 2; 3619 } 3620 3621 h8_set_reg (sd, SP_REGNUM, tmp); 3622 goto end; 3623 3624 case O (O_ILL, SB): /* illegal */ 3625 sim_engine_set_run_state (sd, sim_stopped, SIGILL); 3626 goto end; 3627 3628 case O (O_SLEEP, SN): /* sleep */ 3629 /* Check for magic numbers in r1 and r2. */ 3630 if ((h8_get_reg (sd, R1_REGNUM) & 0xffff) == LIBC_EXIT_MAGIC1 && 3631 (h8_get_reg (sd, R2_REGNUM) & 0xffff) == LIBC_EXIT_MAGIC2 && 3632 SIM_WIFEXITED (h8_get_reg (sd, 0))) 3633 { 3634 /* This trap comes from _exit, not from gdb. */ 3635 sim_engine_set_run_state (sd, sim_exited, 3636 SIM_WEXITSTATUS (h8_get_reg (sd, 0))); 3637 } 3638 #if 0 3639 /* Unfortunately this won't really work, because 3640 when we take a breakpoint trap, R0 has a "random", 3641 user-defined value. Don't see any immediate solution. */ 3642 else if (SIM_WIFSTOPPED (h8_get_reg (sd, 0))) 3643 { 3644 /* Pass the stop signal up to gdb. */ 3645 sim_engine_set_run_state (sd, sim_stopped, 3646 SIM_WSTOPSIG (h8_get_reg (sd, 0))); 3647 } 3648 #endif 3649 else 3650 { 3651 /* Treat it as a sigtrap. */ 3652 sim_engine_set_run_state (sd, sim_stopped, SIGTRAP); 3653 } 3654 goto end; 3655 3656 case O (O_TRAPA, SB): /* trapa */ 3657 if (fetch (sd, &code->src, &res)) 3658 goto end; /* res is vector number. */ 3659 3660 tmp = h8_get_reg (sd, SP_REGNUM); 3661 if(h8300_normal_mode) 3662 { 3663 tmp -= 2; 3664 SET_MEMORY_W (tmp, code->next_pc); 3665 tmp -= 2; 3666 SET_MEMORY_W (tmp, h8_get_ccr (sd)); 3667 } 3668 else 3669 { 3670 tmp -= 4; 3671 SET_MEMORY_L (tmp, code->next_pc); 3672 tmp -= 4; 3673 SET_MEMORY_L (tmp, h8_get_ccr (sd)); 3674 } 3675 intMaskBit = 1; 3676 BUILDSR (sd); 3677 3678 if (h8300smode) 3679 { 3680 tmp -= 4; 3681 SET_MEMORY_L (tmp, h8_get_exr (sd)); 3682 } 3683 3684 h8_set_reg (sd, SP_REGNUM, tmp); 3685 3686 if(h8300_normal_mode) 3687 pc = GET_MEMORY_L (0x10 + res * 2); /* Vector addresses are 0x10,0x12,0x14 and 0x16 */ 3688 else 3689 pc = GET_MEMORY_L (0x20 + res * 4); 3690 goto end; 3691 3692 case O (O_BPT, SN): 3693 sim_engine_set_run_state (sd, sim_stopped, SIGTRAP); 3694 goto end; 3695 3696 case O (O_BSETEQ, SB): 3697 if (Z) 3698 goto bset; 3699 goto next; 3700 3701 case O (O_BSETNE, SB): 3702 if (!Z) 3703 goto bset; 3704 goto next; 3705 3706 case O (O_BCLREQ, SB): 3707 if (Z) 3708 goto bclr; 3709 goto next; 3710 3711 case O (O_BCLRNE, SB): 3712 if (!Z) 3713 goto bclr; 3714 goto next; 3715 3716 OBITOP (O_BNOT, 1, 1, ea ^= m); /* bnot */ 3717 OBITOP (O_BTST, 1, 0, nz = ea & m); /* btst */ 3718 bset: 3719 OBITOP (O_BSET, 1, 1, ea |= m); /* bset */ 3720 bclr: 3721 OBITOP (O_BCLR, 1, 1, ea &= ~m); /* bclr */ 3722 OBITOP (O_BLD, 1, 0, c = ea & m); /* bld */ 3723 OBITOP (O_BILD, 1, 0, c = !(ea & m)); /* bild */ 3724 OBITOP (O_BST, 1, 1, ea &= ~m; 3725 if (C) ea |= m); /* bst */ 3726 OBITOP (O_BIST, 1, 1, ea &= ~m; 3727 if (!C) ea |= m); /* bist */ 3728 OBITOP (O_BSTZ, 1, 1, ea &= ~m; 3729 if (Z) ea |= m); /* bstz */ 3730 OBITOP (O_BISTZ, 1, 1, ea &= ~m; 3731 if (!Z) ea |= m); /* bistz */ 3732 OBITOP (O_BAND, 1, 0, c = (ea & m) && C); /* band */ 3733 OBITOP (O_BIAND, 1, 0, c = !(ea & m) && C); /* biand */ 3734 OBITOP (O_BOR, 1, 0, c = (ea & m) || C); /* bor */ 3735 OBITOP (O_BIOR, 1, 0, c = !(ea & m) || C); /* bior */ 3736 OBITOP (O_BXOR, 1, 0, c = ((ea & m) != 0)!= C); /* bxor */ 3737 OBITOP (O_BIXOR, 1, 0, c = !(ea & m) != C); /* bixor */ 3738 3739 case O (O_BFLD, SB): /* bfld */ 3740 /* bitfield load */ 3741 ea = 0; 3742 if (fetch (sd, &code->src, &bit)) 3743 goto end; 3744 3745 if (bit != 0) 3746 { 3747 if (fetch (sd, &code->dst, &ea)) 3748 goto end; 3749 3750 ea &= bit; 3751 while (!(bit & 1)) 3752 { 3753 ea >>= 1; 3754 bit >>= 1; 3755 } 3756 } 3757 if (store (sd, &code->op3, ea)) 3758 goto end; 3759 3760 goto next; 3761 3762 case O(O_BFST, SB): /* bfst */ 3763 /* bitfield store */ 3764 /* NOTE: the imm8 value is in dst, and the ea value 3765 (which is actually the destination) is in op3. 3766 It has to be that way, to avoid breaking the assembler. */ 3767 3768 if (fetch (sd, &code->dst, &bit)) /* imm8 */ 3769 goto end; 3770 if (bit == 0) /* noop -- nothing to do. */ 3771 goto next; 3772 3773 if (fetch (sd, &code->src, &rd)) /* reg8 src */ 3774 goto end; 3775 3776 if (fetch2 (sd, &code->op3, &ea)) /* ea dst */ 3777 goto end; 3778 3779 /* Left-shift the register data into position. */ 3780 for (tmp = bit; !(tmp & 1); tmp >>= 1) 3781 rd <<= 1; 3782 3783 /* Combine it with the neighboring bits. */ 3784 ea = (ea & ~bit) | (rd & bit); 3785 3786 /* Put it back. */ 3787 if (store2 (sd, &code->op3, ea)) 3788 goto end; 3789 goto next; 3790 3791 case O (O_CLRMAC, SN): /* clrmac */ 3792 h8_set_mach (sd, 0); 3793 h8_set_macl (sd, 0); 3794 h8_set_macZ (sd, 1); 3795 h8_set_macV (sd, 0); 3796 h8_set_macN (sd, 0); 3797 goto next; 3798 3799 case O (O_STMAC, SL): /* stmac, 260 */ 3800 switch (code->src.type) { 3801 case X (OP_MACH, SL): 3802 res = h8_get_mach (sd); 3803 if (res & 0x200) /* sign extend */ 3804 res |= 0xfffffc00; 3805 break; 3806 case X (OP_MACL, SL): 3807 res = h8_get_macl (sd); 3808 break; 3809 default: goto illegal; 3810 } 3811 nz = !h8_get_macZ (sd); 3812 n = h8_get_macN (sd); 3813 v = h8_get_macV (sd); 3814 3815 if (store (sd, &code->dst, res)) 3816 goto end; 3817 3818 goto next; 3819 3820 case O (O_LDMAC, SL): /* ldmac, 179 */ 3821 if (fetch (sd, &code->src, &rd)) 3822 goto end; 3823 3824 switch (code->dst.type) { 3825 case X (OP_MACH, SL): 3826 rd &= 0x3ff; /* Truncate to 10 bits */ 3827 h8_set_mach (sd, rd); 3828 break; 3829 case X (OP_MACL, SL): 3830 h8_set_macl (sd, rd); 3831 break; 3832 default: goto illegal; 3833 } 3834 h8_set_macV (sd, 0); 3835 goto next; 3836 3837 case O (O_MAC, SW): 3838 if (fetch (sd, &code->src, &rd) || 3839 fetch (sd, &code->dst, &res)) 3840 goto end; 3841 3842 /* Ye gods, this is non-portable! 3843 However, the existing mul/div code is similar. */ 3844 res = SEXTSHORT (res) * SEXTSHORT (rd); 3845 3846 if (h8_get_macS (sd)) /* Saturating mode */ 3847 { 3848 long long mac = h8_get_macl (sd); 3849 3850 if (mac & 0x80000000) /* sign extend */ 3851 mac |= 0xffffffff00000000LL; 3852 3853 mac += res; 3854 if (mac > 0x7fffffff || mac < 0xffffffff80000000LL) 3855 h8_set_macV (sd, 1); 3856 h8_set_macZ (sd, (mac == 0)); 3857 h8_set_macN (sd, (mac < 0)); 3858 h8_set_macl (sd, (int) mac); 3859 } 3860 else /* "Less Saturating" mode */ 3861 { 3862 long long mac = h8_get_mach (sd); 3863 mac <<= 32; 3864 mac += h8_get_macl (sd); 3865 3866 if (mac & 0x20000000000LL) /* sign extend */ 3867 mac |= 0xfffffc0000000000LL; 3868 3869 mac += res; 3870 if (mac > 0x1ffffffffffLL || 3871 mac < (long long) 0xfffffe0000000000LL) 3872 h8_set_macV (sd, 1); 3873 h8_set_macZ (sd, (mac == 0)); 3874 h8_set_macN (sd, (mac < 0)); 3875 h8_set_macl (sd, (int) mac); 3876 mac >>= 32; 3877 h8_set_mach (sd, (int) (mac & 0x3ff)); 3878 } 3879 goto next; 3880 3881 case O (O_MULS, SW): /* muls.w */ 3882 if (fetch (sd, &code->src, &ea) || 3883 fetch (sd, &code->dst, &rd)) 3884 goto end; 3885 3886 ea = SEXTSHORT (ea); 3887 res = SEXTSHORT (ea * SEXTSHORT (rd)); 3888 3889 n = res & 0x8000; 3890 nz = res & 0xffff; 3891 if (store (sd, &code->dst, res)) 3892 goto end; 3893 3894 goto next; 3895 3896 case O (O_MULS, SL): /* muls.l */ 3897 if (fetch (sd, &code->src, &ea) || 3898 fetch (sd, &code->dst, &rd)) 3899 goto end; 3900 3901 res = ea * rd; 3902 3903 n = res & 0x80000000; 3904 nz = res & 0xffffffff; 3905 if (store (sd, &code->dst, res)) 3906 goto end; 3907 goto next; 3908 3909 case O (O_MULSU, SL): /* muls/u.l */ 3910 if (fetch (sd, &code->src, &ea) || 3911 fetch (sd, &code->dst, &rd)) 3912 goto end; 3913 3914 /* Compute upper 32 bits of the 64-bit result. */ 3915 res = (((long long) ea) * ((long long) rd)) >> 32; 3916 3917 n = res & 0x80000000; 3918 nz = res & 0xffffffff; 3919 if (store (sd, &code->dst, res)) 3920 goto end; 3921 goto next; 3922 3923 case O (O_MULU, SW): /* mulu.w */ 3924 if (fetch (sd, &code->src, &ea) || 3925 fetch (sd, &code->dst, &rd)) 3926 goto end; 3927 3928 res = UEXTSHORT ((UEXTSHORT (ea) * UEXTSHORT (rd))); 3929 3930 /* Don't set Z or N. */ 3931 if (store (sd, &code->dst, res)) 3932 goto end; 3933 3934 goto next; 3935 3936 case O (O_MULU, SL): /* mulu.l */ 3937 if (fetch (sd, &code->src, &ea) || 3938 fetch (sd, &code->dst, &rd)) 3939 goto end; 3940 3941 res = ea * rd; 3942 3943 /* Don't set Z or N. */ 3944 if (store (sd, &code->dst, res)) 3945 goto end; 3946 3947 goto next; 3948 3949 case O (O_MULUU, SL): /* mulu/u.l */ 3950 if (fetch (sd, &code->src, &ea) || 3951 fetch (sd, &code->dst, &rd)) 3952 goto end; 3953 3954 /* Compute upper 32 bits of the 64-bit result. */ 3955 res = (((unsigned long long) (unsigned) ea) * 3956 ((unsigned long long) (unsigned) rd)) >> 32; 3957 3958 /* Don't set Z or N. */ 3959 if (store (sd, &code->dst, res)) 3960 goto end; 3961 3962 goto next; 3963 3964 case O (O_MULXS, SB): /* mulxs.b */ 3965 if (fetch (sd, &code->src, &ea) || 3966 fetch (sd, &code->dst, &rd)) 3967 goto end; 3968 3969 ea = SEXTCHAR (ea); 3970 res = ea * SEXTCHAR (rd); 3971 3972 n = res & 0x8000; 3973 nz = res & 0xffff; 3974 if (store (sd, &code->dst, res)) 3975 goto end; 3976 3977 goto next; 3978 3979 case O (O_MULXS, SW): /* mulxs.w */ 3980 if (fetch (sd, &code->src, &ea) || 3981 fetch (sd, &code->dst, &rd)) 3982 goto end; 3983 3984 ea = SEXTSHORT (ea); 3985 res = ea * SEXTSHORT (rd & 0xffff); 3986 3987 n = res & 0x80000000; 3988 nz = res & 0xffffffff; 3989 if (store (sd, &code->dst, res)) 3990 goto end; 3991 3992 goto next; 3993 3994 case O (O_MULXU, SB): /* mulxu.b */ 3995 if (fetch (sd, &code->src, &ea) || 3996 fetch (sd, &code->dst, &rd)) 3997 goto end; 3998 3999 res = UEXTCHAR (ea) * UEXTCHAR (rd); 4000 4001 if (store (sd, &code->dst, res)) 4002 goto end; 4003 4004 goto next; 4005 4006 case O (O_MULXU, SW): /* mulxu.w */ 4007 if (fetch (sd, &code->src, &ea) || 4008 fetch (sd, &code->dst, &rd)) 4009 goto end; 4010 4011 res = UEXTSHORT (ea) * UEXTSHORT (rd); 4012 4013 if (store (sd, &code->dst, res)) 4014 goto end; 4015 4016 goto next; 4017 4018 case O (O_TAS, SB): /* tas (test and set) */ 4019 if (!h8300sxmode) /* h8sx can use any register. */ 4020 switch (code->src.reg) 4021 { 4022 case R0_REGNUM: 4023 case R1_REGNUM: 4024 case R4_REGNUM: 4025 case R5_REGNUM: 4026 break; 4027 default: 4028 goto illegal; 4029 } 4030 4031 if (fetch (sd, &code->src, &res)) 4032 goto end; 4033 if (store (sd, &code->src, res | 0x80)) 4034 goto end; 4035 4036 goto just_flags_log8; 4037 4038 case O (O_DIVU, SW): /* divu.w */ 4039 if (fetch (sd, &code->src, &ea) || 4040 fetch (sd, &code->dst, &rd)) 4041 goto end; 4042 4043 n = ea & 0x8000; 4044 nz = ea & 0xffff; 4045 if (ea) 4046 res = (unsigned) (UEXTSHORT (rd) / UEXTSHORT (ea)); 4047 else 4048 res = 0; 4049 4050 if (store (sd, &code->dst, res)) 4051 goto end; 4052 goto next; 4053 4054 case O (O_DIVU, SL): /* divu.l */ 4055 if (fetch (sd, &code->src, &ea) || 4056 fetch (sd, &code->dst, &rd)) 4057 goto end; 4058 4059 n = ea & 0x80000000; 4060 nz = ea & 0xffffffff; 4061 if (ea) 4062 res = (unsigned) rd / ea; 4063 else 4064 res = 0; 4065 4066 if (store (sd, &code->dst, res)) 4067 goto end; 4068 goto next; 4069 4070 case O (O_DIVS, SW): /* divs.w */ 4071 if (fetch (sd, &code->src, &ea) || 4072 fetch (sd, &code->dst, &rd)) 4073 goto end; 4074 4075 if (ea) 4076 { 4077 res = SEXTSHORT (rd) / SEXTSHORT (ea); 4078 nz = 1; 4079 } 4080 else 4081 { 4082 res = 0; 4083 nz = 0; 4084 } 4085 4086 n = res & 0x8000; 4087 if (store (sd, &code->dst, res)) 4088 goto end; 4089 goto next; 4090 4091 case O (O_DIVS, SL): /* divs.l */ 4092 if (fetch (sd, &code->src, &ea) || 4093 fetch (sd, &code->dst, &rd)) 4094 goto end; 4095 4096 if (ea) 4097 { 4098 res = rd / ea; 4099 nz = 1; 4100 } 4101 else 4102 { 4103 res = 0; 4104 nz = 0; 4105 } 4106 4107 n = res & 0x80000000; 4108 if (store (sd, &code->dst, res)) 4109 goto end; 4110 goto next; 4111 4112 case O (O_DIVXU, SB): /* divxu.b */ 4113 if (fetch (sd, &code->src, &ea) || 4114 fetch (sd, &code->dst, &rd)) 4115 goto end; 4116 4117 rd = UEXTSHORT (rd); 4118 ea = UEXTCHAR (ea); 4119 4120 n = ea & 0x80; 4121 nz = ea & 0xff; 4122 if (ea) 4123 { 4124 tmp = (unsigned) rd % ea; 4125 res = (unsigned) rd / ea; 4126 } 4127 else 4128 { 4129 tmp = 0; 4130 res = 0; 4131 } 4132 4133 if (store (sd, &code->dst, (res & 0xff) | (tmp << 8))) 4134 goto end; 4135 goto next; 4136 4137 case O (O_DIVXU, SW): /* divxu.w */ 4138 if (fetch (sd, &code->src, &ea) || 4139 fetch (sd, &code->dst, &rd)) 4140 goto end; 4141 4142 ea = UEXTSHORT (ea); 4143 4144 n = ea & 0x8000; 4145 nz = ea & 0xffff; 4146 if (ea) 4147 { 4148 tmp = (unsigned) rd % ea; 4149 res = (unsigned) rd / ea; 4150 } 4151 else 4152 { 4153 tmp = 0; 4154 res = 0; 4155 } 4156 4157 if (store (sd, &code->dst, (res & 0xffff) | (tmp << 16))) 4158 goto end; 4159 goto next; 4160 4161 case O (O_DIVXS, SB): /* divxs.b */ 4162 if (fetch (sd, &code->src, &ea) || 4163 fetch (sd, &code->dst, &rd)) 4164 goto end; 4165 4166 rd = SEXTSHORT (rd); 4167 ea = SEXTCHAR (ea); 4168 4169 if (ea) 4170 { 4171 tmp = (int) rd % (int) ea; 4172 res = (int) rd / (int) ea; 4173 nz = 1; 4174 } 4175 else 4176 { 4177 tmp = 0; 4178 res = 0; 4179 nz = 0; 4180 } 4181 4182 n = res & 0x8000; 4183 if (store (sd, &code->dst, (res & 0xff) | (tmp << 8))) 4184 goto end; 4185 goto next; 4186 4187 case O (O_DIVXS, SW): /* divxs.w */ 4188 if (fetch (sd, &code->src, &ea) || 4189 fetch (sd, &code->dst, &rd)) 4190 goto end; 4191 4192 ea = SEXTSHORT (ea); 4193 4194 if (ea) 4195 { 4196 tmp = (int) rd % (int) ea; 4197 res = (int) rd / (int) ea; 4198 nz = 1; 4199 } 4200 else 4201 { 4202 tmp = 0; 4203 res = 0; 4204 nz = 0; 4205 } 4206 4207 n = res & 0x80000000; 4208 if (store (sd, &code->dst, (res & 0xffff) | (tmp << 16))) 4209 goto end; 4210 goto next; 4211 4212 case O (O_EXTS, SW): /* exts.w, signed extend */ 4213 if (fetch2 (sd, &code->dst, &rd)) 4214 goto end; 4215 ea = rd & 0x80 ? -256 : 0; 4216 res = (rd & 0xff) + ea; 4217 goto log16; 4218 4219 case O (O_EXTS, SL): /* exts.l, signed extend */ 4220 if (fetch2 (sd, &code->dst, &rd)) 4221 goto end; 4222 if (code->src.type == X (OP_IMM, SL)) 4223 { 4224 if (fetch (sd, &code->src, &ea)) 4225 goto end; 4226 4227 if (ea == 2) /* exts.l #2, nn */ 4228 { 4229 /* Sign-extend from 8-bit to 32-bit. */ 4230 ea = rd & 0x80 ? -256 : 0; 4231 res = (rd & 0xff) + ea; 4232 goto log32; 4233 } 4234 } 4235 /* Sign-extend from 16-bit to 32-bit. */ 4236 ea = rd & 0x8000 ? -65536 : 0; 4237 res = (rd & 0xffff) + ea; 4238 goto log32; 4239 4240 case O (O_EXTU, SW): /* extu.w, unsigned extend */ 4241 if (fetch2 (sd, &code->dst, &rd)) 4242 goto end; 4243 ea = 0; 4244 res = (rd & 0xff) + ea; 4245 goto log16; 4246 4247 case O (O_EXTU, SL): /* extu.l, unsigned extend */ 4248 if (fetch2 (sd, &code->dst, &rd)) 4249 goto end; 4250 if (code->src.type == X (OP_IMM, SL)) 4251 { 4252 if (fetch (sd, &code->src, &ea)) 4253 goto end; 4254 4255 if (ea == 2) /* extu.l #2, nn */ 4256 { 4257 /* Zero-extend from 8-bit to 32-bit. */ 4258 ea = 0; 4259 res = (rd & 0xff) + ea; 4260 goto log32; 4261 } 4262 } 4263 /* Zero-extend from 16-bit to 32-bit. */ 4264 ea = 0; 4265 res = (rd & 0xffff) + ea; 4266 goto log32; 4267 4268 case O (O_NOP, SN): /* nop */ 4269 goto next; 4270 4271 case O (O_STM, SL): /* stm, store to memory */ 4272 { 4273 int nregs, firstreg, i; 4274 4275 nregs = GET_MEMORY_B (pc + 1); 4276 nregs >>= 4; 4277 nregs &= 0xf; 4278 firstreg = code->src.reg; 4279 firstreg &= 0xf; 4280 for (i = firstreg; i <= firstreg + nregs; i++) 4281 { 4282 h8_set_reg (sd, SP_REGNUM, h8_get_reg (sd, SP_REGNUM) - 4); 4283 SET_MEMORY_L (h8_get_reg (sd, SP_REGNUM), h8_get_reg (sd, i)); 4284 } 4285 } 4286 goto next; 4287 4288 case O (O_LDM, SL): /* ldm, load from memory */ 4289 case O (O_RTEL, SN): /* rte/l, ldm plus rte */ 4290 case O (O_RTSL, SN): /* rts/l, ldm plus rts */ 4291 { 4292 int nregs, firstreg, i; 4293 4294 nregs = ((GET_MEMORY_B (pc + 1) >> 4) & 0xf); 4295 firstreg = code->dst.reg & 0xf; 4296 for (i = firstreg; i >= firstreg - nregs; i--) 4297 { 4298 h8_set_reg (sd, i, GET_MEMORY_L (h8_get_reg (sd, SP_REGNUM))); 4299 h8_set_reg (sd, SP_REGNUM, h8_get_reg (sd, SP_REGNUM) + 4); 4300 } 4301 } 4302 switch (code->opcode) { 4303 case O (O_RTEL, SN): 4304 goto rte; 4305 case O (O_RTSL, SN): 4306 goto rts; 4307 case O (O_LDM, SL): 4308 goto next; 4309 default: 4310 goto illegal; 4311 } 4312 4313 case O (O_DAA, SB): 4314 /* Decimal Adjust Addition. This is for BCD arithmetic. */ 4315 res = GET_B_REG (code->src.reg); /* FIXME fetch? */ 4316 if (!c && (0 <= (res >> 4) && (res >> 4) <= 9) && 4317 !h && (0 <= (res & 0xf) && (res & 0xf) <= 9)) 4318 res = res; /* Value added == 0. */ 4319 else if (!c && (0 <= (res >> 4) && (res >> 4) <= 8) && 4320 !h && (10 <= (res & 0xf) && (res & 0xf) <= 15)) 4321 res = res + 0x6; /* Value added == 6. */ 4322 else if (!c && (0 <= (res >> 4) && (res >> 4) <= 9) && 4323 h && (0 <= (res & 0xf) && (res & 0xf) <= 3)) 4324 res = res + 0x6; /* Value added == 6. */ 4325 else if (!c && (10 <= (res >> 4) && (res >> 4) <= 15) && 4326 !h && (0 <= (res & 0xf) && (res & 0xf) <= 9)) 4327 res = res + 0x60; /* Value added == 60. */ 4328 else if (!c && (9 <= (res >> 4) && (res >> 4) <= 15) && 4329 !h && (10 <= (res & 0xf) && (res & 0xf) <= 15)) 4330 res = res + 0x66; /* Value added == 66. */ 4331 else if (!c && (10 <= (res >> 4) && (res >> 4) <= 15) && 4332 h && (0 <= (res & 0xf) && (res & 0xf) <= 3)) 4333 res = res + 0x66; /* Value added == 66. */ 4334 else if ( c && (1 <= (res >> 4) && (res >> 4) <= 2) && 4335 !h && (0 <= (res & 0xf) && (res & 0xf) <= 9)) 4336 res = res + 0x60; /* Value added == 60. */ 4337 else if ( c && (1 <= (res >> 4) && (res >> 4) <= 2) && 4338 !h && (10 <= (res & 0xf) && (res & 0xf) <= 15)) 4339 res = res + 0x66; /* Value added == 66. */ 4340 else if (c && (1 <= (res >> 4) && (res >> 4) <= 3) && 4341 h && (0 <= (res & 0xf) && (res & 0xf) <= 3)) 4342 res = res + 0x66; /* Value added == 66. */ 4343 4344 goto alu8; 4345 4346 case O (O_DAS, SB): 4347 /* Decimal Adjust Subtraction. This is for BCD arithmetic. */ 4348 res = GET_B_REG (code->src.reg); /* FIXME fetch, fetch2... */ 4349 if (!c && (0 <= (res >> 4) && (res >> 4) <= 9) && 4350 !h && (0 <= (res & 0xf) && (res & 0xf) <= 9)) 4351 res = res; /* Value added == 0. */ 4352 else if (!c && (0 <= (res >> 4) && (res >> 4) <= 8) && 4353 h && (6 <= (res & 0xf) && (res & 0xf) <= 15)) 4354 res = res + 0xfa; /* Value added == 0xfa. */ 4355 else if ( c && (7 <= (res >> 4) && (res >> 4) <= 15) && 4356 !h && (0 <= (res & 0xf) && (res & 0xf) <= 9)) 4357 res = res + 0xa0; /* Value added == 0xa0. */ 4358 else if (c && (6 <= (res >> 4) && (res >> 4) <= 15) && 4359 h && (6 <= (res & 0xf) && (res & 0xf) <= 15)) 4360 res = res + 0x9a; /* Value added == 0x9a. */ 4361 4362 goto alu8; 4363 4364 default: 4365 illegal: 4366 sim_engine_set_run_state (sd, sim_stopped, SIGILL); 4367 goto end; 4368 4369 } 4370 4371 (*sim_callback->printf_filtered) (sim_callback, 4372 "sim_resume: internal error.\n"); 4373 sim_engine_set_run_state (sd, sim_stopped, SIGILL); 4374 goto end; 4375 4376 setc: 4377 if (code->dst.type == X (OP_CCR, SB) || 4378 code->dst.type == X (OP_CCR, SW)) 4379 { 4380 h8_set_ccr (sd, res); 4381 GETSR (sd); 4382 } 4383 else if (h8300smode && 4384 (code->dst.type == X (OP_EXR, SB) || 4385 code->dst.type == X (OP_EXR, SW))) 4386 { 4387 h8_set_exr (sd, res); 4388 if (h8300smode) /* Get exr. */ 4389 { 4390 trace = (h8_get_exr (sd) >> 7) & 1; 4391 intMask = h8_get_exr (sd) & 7; 4392 } 4393 } 4394 else 4395 goto illegal; 4396 4397 goto next; 4398 4399 condtrue: 4400 /* When a branch works */ 4401 if (fetch (sd, &code->src, &res)) 4402 goto end; 4403 if (res & 1) /* bad address */ 4404 goto illegal; 4405 pc = code->next_pc + res; 4406 goto end; 4407 4408 /* Set the cond codes from res */ 4409 bitop: 4410 4411 /* Set the flags after an 8 bit inc/dec operation */ 4412 just_flags_inc8: 4413 n = res & 0x80; 4414 nz = res & 0xff; 4415 v = (rd & 0x7f) == 0x7f; 4416 goto next; 4417 4418 /* Set the flags after an 16 bit inc/dec operation */ 4419 just_flags_inc16: 4420 n = res & 0x8000; 4421 nz = res & 0xffff; 4422 v = (rd & 0x7fff) == 0x7fff; 4423 goto next; 4424 4425 /* Set the flags after an 32 bit inc/dec operation */ 4426 just_flags_inc32: 4427 n = res & 0x80000000; 4428 nz = res & 0xffffffff; 4429 v = (rd & 0x7fffffff) == 0x7fffffff; 4430 goto next; 4431 4432 shift8: 4433 /* Set flags after an 8 bit shift op, carry,overflow set in insn */ 4434 n = (rd & 0x80); 4435 nz = rd & 0xff; 4436 if (store2 (sd, &code->dst, rd)) 4437 goto end; 4438 goto next; 4439 4440 shift16: 4441 /* Set flags after an 16 bit shift op, carry,overflow set in insn */ 4442 n = (rd & 0x8000); 4443 nz = rd & 0xffff; 4444 if (store2 (sd, &code->dst, rd)) 4445 goto end; 4446 goto next; 4447 4448 shift32: 4449 /* Set flags after an 32 bit shift op, carry,overflow set in insn */ 4450 n = (rd & 0x80000000); 4451 nz = rd & 0xffffffff; 4452 if (store2 (sd, &code->dst, rd)) 4453 goto end; 4454 goto next; 4455 4456 log32: 4457 if (store2 (sd, &code->dst, res)) 4458 goto end; 4459 4460 just_flags_log32: 4461 /* flags after a 32bit logical operation */ 4462 n = res & 0x80000000; 4463 nz = res & 0xffffffff; 4464 v = 0; 4465 goto next; 4466 4467 log16: 4468 if (store2 (sd, &code->dst, res)) 4469 goto end; 4470 4471 just_flags_log16: 4472 /* flags after a 16bit logical operation */ 4473 n = res & 0x8000; 4474 nz = res & 0xffff; 4475 v = 0; 4476 goto next; 4477 4478 log8: 4479 if (store2 (sd, &code->dst, res)) 4480 goto end; 4481 4482 just_flags_log8: 4483 n = res & 0x80; 4484 nz = res & 0xff; 4485 v = 0; 4486 goto next; 4487 4488 alu8: 4489 if (store2 (sd, &code->dst, res)) 4490 goto end; 4491 4492 just_flags_alu8: 4493 n = res & 0x80; 4494 nz = res & 0xff; 4495 c = (res & 0x100); 4496 switch (code->opcode / 4) 4497 { 4498 case O_ADD: 4499 case O_ADDX: 4500 v = ((rd & 0x80) == (ea & 0x80) 4501 && (rd & 0x80) != (res & 0x80)); 4502 break; 4503 case O_SUB: 4504 case O_SUBX: 4505 case O_CMP: 4506 v = ((rd & 0x80) != (-ea & 0x80) 4507 && (rd & 0x80) != (res & 0x80)); 4508 break; 4509 case O_NEG: 4510 v = (rd == 0x80); 4511 break; 4512 case O_DAA: 4513 case O_DAS: 4514 break; /* No effect on v flag. */ 4515 } 4516 goto next; 4517 4518 alu16: 4519 if (store2 (sd, &code->dst, res)) 4520 goto end; 4521 4522 just_flags_alu16: 4523 n = res & 0x8000; 4524 nz = res & 0xffff; 4525 c = (res & 0x10000); 4526 switch (code->opcode / 4) 4527 { 4528 case O_ADD: 4529 case O_ADDX: 4530 v = ((rd & 0x8000) == (ea & 0x8000) 4531 && (rd & 0x8000) != (res & 0x8000)); 4532 break; 4533 case O_SUB: 4534 case O_SUBX: 4535 case O_CMP: 4536 v = ((rd & 0x8000) != (-ea & 0x8000) 4537 && (rd & 0x8000) != (res & 0x8000)); 4538 break; 4539 case O_NEG: 4540 v = (rd == 0x8000); 4541 break; 4542 } 4543 goto next; 4544 4545 alu32: 4546 if (store2 (sd, &code->dst, res)) 4547 goto end; 4548 4549 just_flags_alu32: 4550 n = res & 0x80000000; 4551 nz = res & 0xffffffff; 4552 switch (code->opcode / 4) 4553 { 4554 case O_ADD: 4555 case O_ADDX: 4556 v = ((rd & 0x80000000) == (ea & 0x80000000) 4557 && (rd & 0x80000000) != (res & 0x80000000)); 4558 c = ((unsigned) res < (unsigned) rd) || 4559 ((unsigned) res < (unsigned) ea); 4560 break; 4561 case O_SUB: 4562 case O_SUBX: 4563 case O_CMP: 4564 v = ((rd & 0x80000000) != (-ea & 0x80000000) 4565 && (rd & 0x80000000) != (res & 0x80000000)); 4566 c = (unsigned) rd < (unsigned) -ea; 4567 break; 4568 case O_NEG: 4569 v = (rd == 0x80000000); 4570 c = res != 0; 4571 break; 4572 } 4573 goto next; 4574 4575 next: 4576 if ((res = h8_get_delayed_branch (sd)) != 0) 4577 { 4578 pc = res; 4579 h8_set_delayed_branch (sd, 0); 4580 } 4581 else 4582 pc = code->next_pc; 4583 4584 end: 4585 4586 if (--poll_count < 0) 4587 { 4588 poll_count = POLL_QUIT_INTERVAL; 4589 if ((*sim_callback->poll_quit) != NULL 4590 && (*sim_callback->poll_quit) (sim_callback)) 4591 sim_engine_set_run_state (sd, sim_stopped, SIGINT); 4592 } 4593 sim_engine_get_run_state (sd, &reason, &sigrc); 4594 } while (reason == sim_running); 4595 4596 h8_set_ticks (sd, h8_get_ticks (sd) + get_now () - tick_start); 4597 h8_set_cycles (sd, h8_get_cycles (sd) + cycles); 4598 h8_set_insts (sd, h8_get_insts (sd) + insts); 4599 h8_set_pc (sd, pc); 4600 BUILDSR (sd); 4601 4602 if (h8300smode) 4603 h8_set_exr (sd, (trace<<7) | intMask); 4604 4605 h8_set_mask (sd, oldmask); 4606 signal (SIGINT, prev); 4607 } 4608 4609 int 4610 sim_trace (SIM_DESC sd) 4611 { 4612 /* FIXME: Unfinished. */ 4613 (*sim_callback->printf_filtered) (sim_callback, 4614 "sim_trace: trace not supported.\n"); 4615 return 1; /* Done. */ 4616 } 4617 4618 int 4619 sim_write (SIM_DESC sd, SIM_ADDR addr, const unsigned char *buffer, int size) 4620 { 4621 int i; 4622 4623 init_pointers (sd); 4624 if (addr < 0) 4625 return 0; 4626 for (i = 0; i < size; i++) 4627 { 4628 if (addr < memory_size) 4629 { 4630 h8_set_memory (sd, addr + i, buffer[i]); 4631 h8_set_cache_idx (sd, addr + i, 0); 4632 } 4633 else 4634 { 4635 h8_set_eightbit (sd, (addr + i) & 0xff, buffer[i]); 4636 } 4637 } 4638 return size; 4639 } 4640 4641 int 4642 sim_read (SIM_DESC sd, SIM_ADDR addr, unsigned char *buffer, int size) 4643 { 4644 init_pointers (sd); 4645 if (addr < 0) 4646 return 0; 4647 if (addr < memory_size) 4648 memcpy (buffer, h8_get_memory_buf (sd) + addr, size); 4649 else 4650 memcpy (buffer, h8_get_eightbit_buf (sd) + (addr & 0xff), size); 4651 return size; 4652 } 4653 4654 4655 int 4656 sim_store_register (SIM_DESC sd, int rn, unsigned char *value, int length) 4657 { 4658 int longval; 4659 int shortval; 4660 int intval; 4661 longval = (value[0] << 24) | (value[1] << 16) | (value[2] << 8) | value[3]; 4662 shortval = (value[0] << 8) | (value[1]); 4663 intval = h8300hmode ? longval : shortval; 4664 4665 init_pointers (sd); 4666 switch (rn) 4667 { 4668 case PC_REGNUM: 4669 if(h8300_normal_mode) 4670 h8_set_pc (sd, shortval); /* PC for Normal mode is 2 bytes */ 4671 else 4672 h8_set_pc (sd, intval); 4673 break; 4674 default: 4675 (*sim_callback->printf_filtered) (sim_callback, 4676 "sim_store_register: bad regnum %d.\n", 4677 rn); 4678 case R0_REGNUM: 4679 case R1_REGNUM: 4680 case R2_REGNUM: 4681 case R3_REGNUM: 4682 case R4_REGNUM: 4683 case R5_REGNUM: 4684 case R6_REGNUM: 4685 case R7_REGNUM: 4686 h8_set_reg (sd, rn, intval); 4687 break; 4688 case CCR_REGNUM: 4689 h8_set_ccr (sd, intval); 4690 break; 4691 case EXR_REGNUM: 4692 h8_set_exr (sd, intval); 4693 break; 4694 case SBR_REGNUM: 4695 h8_set_sbr (sd, intval); 4696 break; 4697 case VBR_REGNUM: 4698 h8_set_vbr (sd, intval); 4699 break; 4700 case MACH_REGNUM: 4701 h8_set_mach (sd, intval); 4702 break; 4703 case MACL_REGNUM: 4704 h8_set_macl (sd, intval); 4705 break; 4706 case CYCLE_REGNUM: 4707 h8_set_cycles (sd, longval); 4708 break; 4709 4710 case INST_REGNUM: 4711 h8_set_insts (sd, longval); 4712 break; 4713 4714 case TICK_REGNUM: 4715 h8_set_ticks (sd, longval); 4716 break; 4717 } 4718 return length; 4719 } 4720 4721 int 4722 sim_fetch_register (SIM_DESC sd, int rn, unsigned char *buf, int length) 4723 { 4724 int v; 4725 int longreg = 0; 4726 4727 init_pointers (sd); 4728 4729 if (!h8300smode && rn >= EXR_REGNUM) 4730 rn++; 4731 switch (rn) 4732 { 4733 default: 4734 (*sim_callback->printf_filtered) (sim_callback, 4735 "sim_fetch_register: bad regnum %d.\n", 4736 rn); 4737 v = 0; 4738 break; 4739 case CCR_REGNUM: 4740 v = h8_get_ccr (sd); 4741 break; 4742 case EXR_REGNUM: 4743 v = h8_get_exr (sd); 4744 break; 4745 case PC_REGNUM: 4746 v = h8_get_pc (sd); 4747 break; 4748 case SBR_REGNUM: 4749 v = h8_get_sbr (sd); 4750 break; 4751 case VBR_REGNUM: 4752 v = h8_get_vbr (sd); 4753 break; 4754 case MACH_REGNUM: 4755 v = h8_get_mach (sd); 4756 break; 4757 case MACL_REGNUM: 4758 v = h8_get_macl (sd); 4759 break; 4760 case R0_REGNUM: 4761 case R1_REGNUM: 4762 case R2_REGNUM: 4763 case R3_REGNUM: 4764 case R4_REGNUM: 4765 case R5_REGNUM: 4766 case R6_REGNUM: 4767 case R7_REGNUM: 4768 v = h8_get_reg (sd, rn); 4769 break; 4770 case CYCLE_REGNUM: 4771 v = h8_get_cycles (sd); 4772 longreg = 1; 4773 break; 4774 case TICK_REGNUM: 4775 v = h8_get_ticks (sd); 4776 longreg = 1; 4777 break; 4778 case INST_REGNUM: 4779 v = h8_get_insts (sd); 4780 longreg = 1; 4781 break; 4782 } 4783 /* In Normal mode PC is 2 byte, but other registers are 4 byte */ 4784 if ((h8300hmode || longreg) && !(rn == PC_REGNUM && h8300_normal_mode)) 4785 { 4786 buf[0] = v >> 24; 4787 buf[1] = v >> 16; 4788 buf[2] = v >> 8; 4789 buf[3] = v >> 0; 4790 } 4791 else 4792 { 4793 buf[0] = v >> 8; 4794 buf[1] = v; 4795 } 4796 return -1; 4797 } 4798 4799 void 4800 sim_stop_reason (SIM_DESC sd, enum sim_stop *reason, int *sigrc) 4801 { 4802 sim_engine_get_run_state (sd, reason, sigrc); 4803 } 4804 4805 /* FIXME: Rename to sim_set_mem_size. */ 4806 4807 void 4808 sim_size (int n) 4809 { 4810 /* Memory size is fixed. */ 4811 } 4812 4813 static void 4814 set_simcache_size (SIM_DESC sd, int n) 4815 { 4816 if (sd->sim_cache) 4817 free (sd->sim_cache); 4818 if (n < 2) 4819 n = 2; 4820 sd->sim_cache = (decoded_inst *) malloc (sizeof (decoded_inst) * n); 4821 memset (sd->sim_cache, 0, sizeof (decoded_inst) * n); 4822 sd->sim_cache_size = n; 4823 } 4824 4825 4826 void 4827 sim_info (SIM_DESC sd, int verbose) 4828 { 4829 double timetaken = (double) h8_get_ticks (sd) / (double) now_persec (); 4830 double virttime = h8_get_cycles (sd) / 10.0e6; 4831 4832 (*sim_callback->printf_filtered) (sim_callback, 4833 "\n\n#instructions executed %10d\n", 4834 h8_get_insts (sd)); 4835 (*sim_callback->printf_filtered) (sim_callback, 4836 "#cycles (v approximate) %10d\n", 4837 h8_get_cycles (sd)); 4838 (*sim_callback->printf_filtered) (sim_callback, 4839 "#real time taken %10.4f\n", 4840 timetaken); 4841 (*sim_callback->printf_filtered) (sim_callback, 4842 "#virtual time taken %10.4f\n", 4843 virttime); 4844 if (timetaken != 0.0) 4845 (*sim_callback->printf_filtered) (sim_callback, 4846 "#simulation ratio %10.4f\n", 4847 virttime / timetaken); 4848 (*sim_callback->printf_filtered) (sim_callback, 4849 "#compiles %10d\n", 4850 h8_get_compiles (sd)); 4851 (*sim_callback->printf_filtered) (sim_callback, 4852 "#cache size %10d\n", 4853 sd->sim_cache_size); 4854 4855 #ifdef ADEBUG 4856 /* This to be conditional on `what' (aka `verbose'), 4857 however it was never passed as non-zero. */ 4858 if (1) 4859 { 4860 int i; 4861 for (i = 0; i < O_LAST; i++) 4862 { 4863 if (h8_get_stats (sd, i)) 4864 (*sim_callback->printf_filtered) (sim_callback, "%d: %d\n", 4865 i, h8_get_stats (sd, i)); 4866 } 4867 } 4868 #endif 4869 } 4870 4871 /* Indicate whether the cpu is an H8/300 or H8/300H. 4872 FLAG is non-zero for the H8/300H. */ 4873 4874 void 4875 set_h8300h (unsigned long machine) 4876 { 4877 /* FIXME: Much of the code in sim_load can be moved to sim_open. 4878 This function being replaced by a sim_open:ARGV configuration 4879 option. */ 4880 4881 h8300hmode = h8300smode = h8300sxmode = h8300_normal_mode = 0; 4882 4883 if (machine == bfd_mach_h8300sx || machine == bfd_mach_h8300sxn) 4884 h8300sxmode = 1; 4885 4886 if (machine == bfd_mach_h8300s || machine == bfd_mach_h8300sn || h8300sxmode) 4887 h8300smode = 1; 4888 4889 if (machine == bfd_mach_h8300h || machine == bfd_mach_h8300hn || h8300smode) 4890 h8300hmode = 1; 4891 4892 if(machine == bfd_mach_h8300hn || machine == bfd_mach_h8300sn || machine == bfd_mach_h8300sxn) 4893 h8300_normal_mode = 1; 4894 } 4895 4896 /* Cover function of sim_state_free to free the cpu buffers as well. */ 4897 4898 static void 4899 free_state (SIM_DESC sd) 4900 { 4901 if (STATE_MODULES (sd) != NULL) 4902 sim_module_uninstall (sd); 4903 4904 /* Fixme: free buffers in _sim_cpu. */ 4905 sim_state_free (sd); 4906 } 4907 4908 SIM_DESC 4909 sim_open (SIM_OPEN_KIND kind, 4910 struct host_callback_struct *callback, 4911 struct bfd *abfd, 4912 char **argv) 4913 { 4914 SIM_DESC sd; 4915 sim_cpu *cpu; 4916 4917 sd = sim_state_alloc (kind, callback); 4918 sd->cpu = sim_cpu_alloc (sd, 0); 4919 cpu = STATE_CPU (sd, 0); 4920 SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER); 4921 sim_state_initialize (sd, cpu); 4922 /* sim_cpu object is new, so some initialization is needed. */ 4923 init_pointers_needed = 1; 4924 4925 /* For compatibility (FIXME: is this right?). */ 4926 current_alignment = NONSTRICT_ALIGNMENT; 4927 current_target_byte_order = BIG_ENDIAN; 4928 4929 if (sim_pre_argv_init (sd, argv[0]) != SIM_RC_OK) 4930 { 4931 free_state (sd); 4932 return 0; 4933 } 4934 4935 /* getopt will print the error message so we just have to exit if 4936 this fails. FIXME: Hmmm... in the case of gdb we need getopt 4937 to call print_filtered. */ 4938 if (sim_parse_args (sd, argv) != SIM_RC_OK) 4939 { 4940 /* Uninstall the modules to avoid memory leaks, 4941 file descriptor leaks, etc. */ 4942 free_state (sd); 4943 return 0; 4944 } 4945 4946 /* Check for/establish the a reference program image. */ 4947 if (sim_analyze_program (sd, 4948 (STATE_PROG_ARGV (sd) != NULL 4949 ? *STATE_PROG_ARGV (sd) 4950 : NULL), abfd) != SIM_RC_OK) 4951 { 4952 free_state (sd); 4953 return 0; 4954 } 4955 4956 /* Establish any remaining configuration options. */ 4957 if (sim_config (sd) != SIM_RC_OK) 4958 { 4959 free_state (sd); 4960 return 0; 4961 } 4962 4963 if (sim_post_argv_init (sd) != SIM_RC_OK) 4964 { 4965 /* Uninstall the modules to avoid memory leaks, 4966 file descriptor leaks, etc. */ 4967 free_state (sd); 4968 return 0; 4969 } 4970 4971 /* sim_hw_configure (sd); */ 4972 4973 /* FIXME: Much of the code in sim_load can be moved here. */ 4974 4975 sim_kind = kind; 4976 myname = argv[0]; 4977 sim_callback = callback; 4978 return sd; 4979 } 4980 4981 void 4982 sim_close (SIM_DESC sd, int quitting) 4983 { 4984 /* Nothing to do. */ 4985 } 4986 4987 /* Called by gdb to load a program into memory. */ 4988 4989 SIM_RC 4990 sim_load (SIM_DESC sd, char *prog, bfd *abfd, int from_tty) 4991 { 4992 bfd *prog_bfd; 4993 4994 /* FIXME: The code below that sets a specific variant of the H8/300 4995 being simulated should be moved to sim_open(). */ 4996 4997 /* See if the file is for the H8/300 or H8/300H. */ 4998 /* ??? This may not be the most efficient way. The z8k simulator 4999 does this via a different mechanism (INIT_EXTRA_SYMTAB_INFO). */ 5000 if (abfd != NULL) 5001 prog_bfd = abfd; 5002 else 5003 prog_bfd = bfd_openr (prog, NULL); 5004 if (prog_bfd != NULL) 5005 { 5006 /* Set the cpu type. We ignore failure from bfd_check_format 5007 and bfd_openr as sim_load_file checks too. */ 5008 if (bfd_check_format (prog_bfd, bfd_object)) 5009 { 5010 set_h8300h (bfd_get_mach (prog_bfd)); 5011 } 5012 } 5013 5014 /* If we're using gdb attached to the simulator, then we have to 5015 reallocate memory for the simulator. 5016 5017 When gdb first starts, it calls fetch_registers (among other 5018 functions), which in turn calls init_pointers, which allocates 5019 simulator memory. 5020 5021 The problem is when we do that, we don't know whether we're 5022 debugging an H8/300 or H8/300H program. 5023 5024 This is the first point at which we can make that determination, 5025 so we just reallocate memory now; this will also allow us to handle 5026 switching between H8/300 and H8/300H programs without exiting 5027 gdb. */ 5028 5029 if (h8300smode && !h8300_normal_mode) 5030 memory_size = H8300S_MSIZE; 5031 else if (h8300hmode && !h8300_normal_mode) 5032 memory_size = H8300H_MSIZE; 5033 else 5034 memory_size = H8300_MSIZE; 5035 5036 if (h8_get_memory_buf (sd)) 5037 free (h8_get_memory_buf (sd)); 5038 if (h8_get_cache_idx_buf (sd)) 5039 free (h8_get_cache_idx_buf (sd)); 5040 if (h8_get_eightbit_buf (sd)) 5041 free (h8_get_eightbit_buf (sd)); 5042 5043 h8_set_memory_buf (sd, (unsigned char *) 5044 calloc (sizeof (char), memory_size)); 5045 h8_set_cache_idx_buf (sd, (unsigned short *) 5046 calloc (sizeof (short), memory_size)); 5047 sd->memory_size = memory_size; 5048 h8_set_eightbit_buf (sd, (unsigned char *) calloc (sizeof (char), 256)); 5049 5050 /* `msize' must be a power of two. */ 5051 if ((memory_size & (memory_size - 1)) != 0) 5052 { 5053 (*sim_callback->printf_filtered) (sim_callback, 5054 "sim_load: bad memory size.\n"); 5055 return SIM_RC_FAIL; 5056 } 5057 h8_set_mask (sd, memory_size - 1); 5058 5059 if (sim_load_file (sd, myname, sim_callback, prog, prog_bfd, 5060 sim_kind == SIM_OPEN_DEBUG, 5061 0, sim_write) 5062 == NULL) 5063 { 5064 /* Close the bfd if we opened it. */ 5065 if (abfd == NULL && prog_bfd != NULL) 5066 bfd_close (prog_bfd); 5067 return SIM_RC_FAIL; 5068 } 5069 5070 /* Close the bfd if we opened it. */ 5071 if (abfd == NULL && prog_bfd != NULL) 5072 bfd_close (prog_bfd); 5073 return SIM_RC_OK; 5074 } 5075 5076 SIM_RC 5077 sim_create_inferior (SIM_DESC sd, struct bfd *abfd, char **argv, char **env) 5078 { 5079 int i = 0; 5080 int len_arg = 0; 5081 int no_of_args = 0; 5082 5083 if (abfd != NULL) 5084 h8_set_pc (sd, bfd_get_start_address (abfd)); 5085 else 5086 h8_set_pc (sd, 0); 5087 5088 /* Command Line support. */ 5089 if (argv != NULL) 5090 { 5091 /* Counting the no. of commandline arguments. */ 5092 for (no_of_args = 0; argv[no_of_args] != NULL; no_of_args++) 5093 continue; 5094 5095 /* Allocating memory for the argv pointers. */ 5096 h8_set_command_line (sd, (char **) malloc ((sizeof (char *)) 5097 * (no_of_args + 1))); 5098 5099 for (i = 0; i < no_of_args; i++) 5100 { 5101 /* Copying the argument string. */ 5102 h8_set_cmdline_arg (sd, i, (char *) strdup (argv[i])); 5103 } 5104 h8_set_cmdline_arg (sd, i, NULL); 5105 } 5106 5107 return SIM_RC_OK; 5108 } 5109 5110 void 5111 sim_do_command (SIM_DESC sd, char *cmd) 5112 { 5113 (*sim_callback->printf_filtered) (sim_callback, 5114 "This simulator does not accept any commands.\n"); 5115 } 5116 5117 void 5118 sim_set_callbacks (struct host_callback_struct *ptr) 5119 { 5120 sim_callback = ptr; 5121 } 5122