4 // <insn-word> { "+" <insn-word> }
11 // { <insn-mnemonic> }
16 // IGEN config - mips16
17 // :option:16::insn-bit-size:16
18 // :option:16::hi-bit-nr:15
19 :option:16::insn-specifying-widths:true
20 :option:16::gen-delayed-branch:false
22 // IGEN config - mips32/64..
23 // :option:32::insn-bit-size:32
24 // :option:32::hi-bit-nr:31
25 :option:32::insn-specifying-widths:true
26 :option:32::gen-delayed-branch:false
29 // Generate separate simulators for each target
30 // :option:::multi-sim:true
33 // Models known by this simulator are defined below.
35 // When placing models in the instruction descriptions, please place
36 // them one per line, in the order given here.
40 // Instructions and related functions for these models are included in
42 :model:::mipsI:mips3000:
43 :model:::mipsII:mips6000:
44 :model:::mipsIII:mips4000:
45 :model:::mipsIV:mips8000:
46 :model:::mipsV:mipsisaV:
47 :model:::mips32:mipsisa32:
48 :model:::mips64:mipsisa64:
52 // Standard MIPS ISA instructions used for these models are listed here,
53 // as are functions needed by those standard instructions. Instructions
54 // which are model-dependent and which are not in the standard MIPS ISAs
55 // (or which pre-date or use different encodings than the standard
56 // instructions) are (for the most part) in separate .igen files.
57 :model:::vr4100:mips4100: // vr.igen
58 :model:::vr5000:mips5000:
59 :model:::r3900:mips3900: // tx.igen
61 // MIPS Application Specific Extensions (ASEs)
63 // Instructions for the ASEs are in separate .igen files.
64 :model:::mips16:mips16: // m16.igen (and m16.dc)
67 // Pseudo instructions known by IGEN
70 SignalException (ReservedInstruction, 0);
74 // Pseudo instructions known by interp.c
75 // For grep - RSVD_INSTRUCTION, RSVD_INSTRUCTION_MASK
76 000000,5.*,5.*,5.*,5.OP,000101:SPECIAL:32::RSVD
79 SignalException (ReservedInstruction, instruction_0);
86 // Simulate a 32 bit delayslot instruction
89 :function:::address_word:delayslot32:address_word target
91 instruction_word delay_insn;
92 sim_events_slip (SD, 1);
94 CIA = CIA + 4; /* NOTE not mips16 */
95 STATE |= simDELAYSLOT;
96 delay_insn = IMEM32 (CIA); /* NOTE not mips16 */
97 ENGINE_ISSUE_PREFIX_HOOK();
98 idecode_issue (CPU_, delay_insn, (CIA));
99 STATE &= ~simDELAYSLOT;
103 :function:::address_word:nullify_next_insn32:
105 sim_events_slip (SD, 1);
106 dotrace (SD, CPU, tracefh, 2, CIA + 4, 4, "load instruction");
113 // Calculate an effective address given a base and an offset.
116 :function:::address_word:loadstore_ea:address_word base, address_word offset
127 return base + offset;
130 :function:::address_word:loadstore_ea:address_word base, address_word offset
133 #if 0 /* XXX FIXME: enable this only after some additional testing. */
134 /* If in user mode and UX is not set, use 32-bit compatibility effective
135 address computations as defined in the MIPS64 Architecture for
136 Programmers Volume III, Revision 0.95, section 4.9. */
137 if ((SR & (status_KSU_mask|status_EXL|status_ERL|status_UX))
138 == (ksu_user << status_KSU_shift))
139 return (address_word)((signed32)base + (signed32)offset);
141 return base + offset;
147 // Check that a 32-bit register value is properly sign-extended.
148 // (See NotWordValue in ISA spec.)
151 :function:::int:not_word_value:unsigned_word value
161 /* For historical simulator compatibility (until documentation is
162 found that makes these operations unpredictable on some of these
163 architectures), this check never returns true. */
167 :function:::int:not_word_value:unsigned_word value
170 /* On MIPS32, since registers are 32-bits, there's no check to be done. */
174 :function:::int:not_word_value:unsigned_word value
177 return ((value >> 32) != (value & 0x80000000 ? 0xFFFFFFFF : 0));
183 // Handle UNPREDICTABLE operation behaviour. The goal here is to prevent
184 // theoretically portable code which invokes non-portable behaviour from
185 // running with no indication of the portability issue.
186 // (See definition of UNPREDICTABLE in ISA spec.)
189 :function:::void:unpredictable:
201 :function:::void:unpredictable:
205 unpredictable_action (CPU, CIA);
211 // Check that an access to a HI/LO register meets timing requirements
213 // The following requirements exist:
215 // - A MT {HI,LO} update was not immediatly preceeded by a MF {HI,LO} read
216 // - A OP {HI,LO} update was not immediatly preceeded by a MF {HI,LO} read
217 // - A MF {HI,LO} read was not corrupted by a preceeding MT{LO,HI} update
218 // corruption occures when MT{LO,HI} is preceeded by a OP {HI,LO}.
221 :function:::int:check_mf_cycles:hilo_history *history, signed64 time, const char *new
223 if (history->mf.timestamp + 3 > time)
225 sim_engine_abort (SD, CPU, CIA, "HILO: %s: %s at 0x%08lx too close to MF at 0x%08lx\n",
226 itable[MY_INDEX].name,
228 (long) history->mf.cia);
234 :function:::int:check_mt_hilo:hilo_history *history
243 signed64 time = sim_events_time (SD);
244 int ok = check_mf_cycles (SD_, history, time, "MT");
245 history->mt.timestamp = time;
246 history->mt.cia = CIA;
250 :function:::int:check_mt_hilo:hilo_history *history
255 signed64 time = sim_events_time (SD);
256 history->mt.timestamp = time;
257 history->mt.cia = CIA;
262 :function:::int:check_mf_hilo:hilo_history *history, hilo_history *peer
274 signed64 time = sim_events_time (SD);
277 && peer->mt.timestamp > history->op.timestamp
278 && history->mt.timestamp < history->op.timestamp
279 && ! (history->mf.timestamp > history->op.timestamp
280 && history->mf.timestamp < peer->mt.timestamp)
281 && ! (peer->mf.timestamp > history->op.timestamp
282 && peer->mf.timestamp < peer->mt.timestamp))
284 /* The peer has been written to since the last OP yet we have
286 sim_engine_abort (SD, CPU, CIA, "HILO: %s: MF at 0x%08lx following OP at 0x%08lx corrupted by MT at 0x%08lx\n",
287 itable[MY_INDEX].name,
289 (long) history->op.cia,
290 (long) peer->mt.cia);
293 history->mf.timestamp = time;
294 history->mf.cia = CIA;
300 :function:::int:check_mult_hilo:hilo_history *hi, hilo_history *lo
309 signed64 time = sim_events_time (SD);
310 int ok = (check_mf_cycles (SD_, hi, time, "OP")
311 && check_mf_cycles (SD_, lo, time, "OP"));
312 hi->op.timestamp = time;
313 lo->op.timestamp = time;
319 // The r3900 mult and multu insns _can_ be exectuted immediatly after
321 :function:::int:check_mult_hilo:hilo_history *hi, hilo_history *lo
326 /* FIXME: could record the fact that a stall occured if we want */
327 signed64 time = sim_events_time (SD);
328 hi->op.timestamp = time;
329 lo->op.timestamp = time;
336 :function:::int:check_div_hilo:hilo_history *hi, hilo_history *lo
348 signed64 time = sim_events_time (SD);
349 int ok = (check_mf_cycles (SD_, hi, time, "OP")
350 && check_mf_cycles (SD_, lo, time, "OP"));
351 hi->op.timestamp = time;
352 lo->op.timestamp = time;
361 // Check that the 64-bit instruction can currently be used, and signal
362 // a ReservedInstruction exception if not.
365 :function:::void:check_u64:instruction_word insn
372 // The check should be similar to mips64 for any with PX/UX bit equivalents.
375 :function:::void:check_u64:instruction_word insn
378 #if 0 /* XXX FIXME: enable this only after some additional testing. */
379 if (UserMode && (SR & (status_UX|status_PX)) == 0)
380 SignalException (ReservedInstruction, insn);
387 // MIPS Architecture:
389 // CPU Instruction Set (mipsI - mipsV, mips32, mips64)
394 000000,5.RS,5.RT,5.RD,00000,100000:SPECIAL:32::ADD
395 "add r<RD>, r<RS>, r<RT>"
407 if (NotWordValue (GPR[RS]) || NotWordValue (GPR[RT]))
409 TRACE_ALU_INPUT2 (GPR[RS], GPR[RT]);
411 ALU32_BEGIN (GPR[RS]);
413 ALU32_END (GPR[RD]); /* This checks for overflow. */
415 TRACE_ALU_RESULT (GPR[RD]);
420 001000,5.RS,5.RT,16.IMMEDIATE:NORMAL:32::ADDI
421 "addi r<RT>, r<RS>, <IMMEDIATE>"
433 if (NotWordValue (GPR[RS]))
435 TRACE_ALU_INPUT2 (GPR[RS], EXTEND16 (IMMEDIATE));
437 ALU32_BEGIN (GPR[RS]);
438 ALU32_ADD (EXTEND16 (IMMEDIATE));
439 ALU32_END (GPR[RT]); /* This checks for overflow. */
441 TRACE_ALU_RESULT (GPR[RT]);
446 :function:::void:do_addiu:int rs, int rt, unsigned16 immediate
448 if (NotWordValue (GPR[rs]))
450 TRACE_ALU_INPUT2 (GPR[rs], EXTEND16 (immediate));
451 GPR[rt] = EXTEND32 (GPR[rs] + EXTEND16 (immediate));
452 TRACE_ALU_RESULT (GPR[rt]);
455 001001,5.RS,5.RT,16.IMMEDIATE:NORMAL:32::ADDIU
456 "addiu r<RT>, r<RS>, <IMMEDIATE>"
468 do_addiu (SD_, RS, RT, IMMEDIATE);
473 :function:::void:do_addu:int rs, int rt, int rd
475 if (NotWordValue (GPR[rs]) || NotWordValue (GPR[rt]))
477 TRACE_ALU_INPUT2 (GPR[rs], GPR[rt]);
478 GPR[rd] = EXTEND32 (GPR[rs] + GPR[rt]);
479 TRACE_ALU_RESULT (GPR[rd]);
482 000000,5.RS,5.RT,5.RD,00000,100001:SPECIAL:32::ADDU
483 "addu r<RD>, r<RS>, r<RT>"
495 do_addu (SD_, RS, RT, RD);
500 :function:::void:do_and:int rs, int rt, int rd
502 TRACE_ALU_INPUT2 (GPR[rs], GPR[rt]);
503 GPR[rd] = GPR[rs] & GPR[rt];
504 TRACE_ALU_RESULT (GPR[rd]);
507 000000,5.RS,5.RT,5.RD,00000,100100:SPECIAL:32::AND
508 "and r<RD>, r<RS>, r<RT>"
520 do_and (SD_, RS, RT, RD);
525 001100,5.RS,5.RT,16.IMMEDIATE:NORMAL:32::ANDI
526 "andi r<RT>, r<RS>, %#lx<IMMEDIATE>"
538 TRACE_ALU_INPUT2 (GPR[RS], IMMEDIATE);
539 GPR[RT] = GPR[RS] & IMMEDIATE;
540 TRACE_ALU_RESULT (GPR[RT]);
545 000100,5.RS,5.RT,16.OFFSET:NORMAL:32::BEQ
546 "beq r<RS>, r<RT>, <OFFSET>"
558 address_word offset = EXTEND16 (OFFSET) << 2;
560 if ((signed_word) GPR[RS] == (signed_word) GPR[RT])
562 mark_branch_bug (NIA+offset);
563 DELAY_SLOT (NIA + offset);
569 010100,5.RS,5.RT,16.OFFSET:NORMAL:32::BEQL
570 "beql r<RS>, r<RT>, <OFFSET>"
581 address_word offset = EXTEND16 (OFFSET) << 2;
583 if ((signed_word) GPR[RS] == (signed_word) GPR[RT])
585 mark_branch_bug (NIA+offset);
586 DELAY_SLOT (NIA + offset);
589 NULLIFY_NEXT_INSTRUCTION ();
594 000001,5.RS,00001,16.OFFSET:REGIMM:32::BGEZ
595 "bgez r<RS>, <OFFSET>"
607 address_word offset = EXTEND16 (OFFSET) << 2;
609 if ((signed_word) GPR[RS] >= 0)
611 mark_branch_bug (NIA+offset);
612 DELAY_SLOT (NIA + offset);
618 000001,5.RS!31,10001,16.OFFSET:REGIMM:32::BGEZAL
619 "bgezal r<RS>, <OFFSET>"
631 address_word offset = EXTEND16 (OFFSET) << 2;
636 if ((signed_word) GPR[RS] >= 0)
638 mark_branch_bug (NIA+offset);
639 DELAY_SLOT (NIA + offset);
645 000001,5.RS!31,10011,16.OFFSET:REGIMM:32::BGEZALL
646 "bgezall r<RS>, <OFFSET>"
657 address_word offset = EXTEND16 (OFFSET) << 2;
662 /* NOTE: The branch occurs AFTER the next instruction has been
664 if ((signed_word) GPR[RS] >= 0)
666 mark_branch_bug (NIA+offset);
667 DELAY_SLOT (NIA + offset);
670 NULLIFY_NEXT_INSTRUCTION ();
675 000001,5.RS,00011,16.OFFSET:REGIMM:32::BGEZL
676 "bgezl r<RS>, <OFFSET>"
687 address_word offset = EXTEND16 (OFFSET) << 2;
689 if ((signed_word) GPR[RS] >= 0)
691 mark_branch_bug (NIA+offset);
692 DELAY_SLOT (NIA + offset);
695 NULLIFY_NEXT_INSTRUCTION ();
700 000111,5.RS,00000,16.OFFSET:NORMAL:32::BGTZ
701 "bgtz r<RS>, <OFFSET>"
713 address_word offset = EXTEND16 (OFFSET) << 2;
715 if ((signed_word) GPR[RS] > 0)
717 mark_branch_bug (NIA+offset);
718 DELAY_SLOT (NIA + offset);
724 010111,5.RS,00000,16.OFFSET:NORMAL:32::BGTZL
725 "bgtzl r<RS>, <OFFSET>"
736 address_word offset = EXTEND16 (OFFSET) << 2;
738 /* NOTE: The branch occurs AFTER the next instruction has been
740 if ((signed_word) GPR[RS] > 0)
742 mark_branch_bug (NIA+offset);
743 DELAY_SLOT (NIA + offset);
746 NULLIFY_NEXT_INSTRUCTION ();
751 000110,5.RS,00000,16.OFFSET:NORMAL:32::BLEZ
752 "blez r<RS>, <OFFSET>"
764 address_word offset = EXTEND16 (OFFSET) << 2;
766 /* NOTE: The branch occurs AFTER the next instruction has been
768 if ((signed_word) GPR[RS] <= 0)
770 mark_branch_bug (NIA+offset);
771 DELAY_SLOT (NIA + offset);
777 010110,5.RS,00000,16.OFFSET:NORMAL:32::BLEZL
778 "bgezl r<RS>, <OFFSET>"
789 address_word offset = EXTEND16 (OFFSET) << 2;
791 if ((signed_word) GPR[RS] <= 0)
793 mark_branch_bug (NIA+offset);
794 DELAY_SLOT (NIA + offset);
797 NULLIFY_NEXT_INSTRUCTION ();
802 000001,5.RS,00000,16.OFFSET:REGIMM:32::BLTZ
803 "bltz r<RS>, <OFFSET>"
815 address_word offset = EXTEND16 (OFFSET) << 2;
817 if ((signed_word) GPR[RS] < 0)
819 mark_branch_bug (NIA+offset);
820 DELAY_SLOT (NIA + offset);
826 000001,5.RS!31,10000,16.OFFSET:REGIMM:32::BLTZAL
827 "bltzal r<RS>, <OFFSET>"
839 address_word offset = EXTEND16 (OFFSET) << 2;
844 /* NOTE: The branch occurs AFTER the next instruction has been
846 if ((signed_word) GPR[RS] < 0)
848 mark_branch_bug (NIA+offset);
849 DELAY_SLOT (NIA + offset);
855 000001,5.RS!31,10010,16.OFFSET:REGIMM:32::BLTZALL
856 "bltzall r<RS>, <OFFSET>"
867 address_word offset = EXTEND16 (OFFSET) << 2;
872 if ((signed_word) GPR[RS] < 0)
874 mark_branch_bug (NIA+offset);
875 DELAY_SLOT (NIA + offset);
878 NULLIFY_NEXT_INSTRUCTION ();
883 000001,5.RS,00010,16.OFFSET:REGIMM:32::BLTZL
884 "bltzl r<RS>, <OFFSET>"
895 address_word offset = EXTEND16 (OFFSET) << 2;
897 /* NOTE: The branch occurs AFTER the next instruction has been
899 if ((signed_word) GPR[RS] < 0)
901 mark_branch_bug (NIA+offset);
902 DELAY_SLOT (NIA + offset);
905 NULLIFY_NEXT_INSTRUCTION ();
910 000101,5.RS,5.RT,16.OFFSET:NORMAL:32::BNE
911 "bne r<RS>, r<RT>, <OFFSET>"
923 address_word offset = EXTEND16 (OFFSET) << 2;
925 if ((signed_word) GPR[RS] != (signed_word) GPR[RT])
927 mark_branch_bug (NIA+offset);
928 DELAY_SLOT (NIA + offset);
934 010101,5.RS,5.RT,16.OFFSET:NORMAL:32::BNEL
935 "bnel r<RS>, r<RT>, <OFFSET>"
946 address_word offset = EXTEND16 (OFFSET) << 2;
948 if ((signed_word) GPR[RS] != (signed_word) GPR[RT])
950 mark_branch_bug (NIA+offset);
951 DELAY_SLOT (NIA + offset);
954 NULLIFY_NEXT_INSTRUCTION ();
959 000000,20.CODE,001101:SPECIAL:32::BREAK
972 /* Check for some break instruction which are reserved for use by the simulator. */
973 unsigned int break_code = instruction_0 & HALT_INSTRUCTION_MASK;
974 if (break_code == (HALT_INSTRUCTION & HALT_INSTRUCTION_MASK) ||
975 break_code == (HALT_INSTRUCTION2 & HALT_INSTRUCTION_MASK))
977 sim_engine_halt (SD, CPU, NULL, cia,
978 sim_exited, (unsigned int)(A0 & 0xFFFFFFFF));
980 else if (break_code == (BREAKPOINT_INSTRUCTION & HALT_INSTRUCTION_MASK) ||
981 break_code == (BREAKPOINT_INSTRUCTION2 & HALT_INSTRUCTION_MASK))
983 if (STATE & simDELAYSLOT)
984 PC = cia - 4; /* reference the branch instruction */
987 SignalException (BreakPoint, instruction_0);
992 /* If we get this far, we're not an instruction reserved by the sim. Raise
994 SignalException (BreakPoint, instruction_0);
1000 011100,5.RS,5.RT,5.RD,00000,100001:SPECIAL2:32::CLO
1005 unsigned32 temp = GPR[RS];
1009 if (NotWordValue (GPR[RS]))
1011 TRACE_ALU_INPUT1 (GPR[RS]);
1012 for (mask = ((unsigned32)1<<31), i = 0; i < 32; ++i)
1014 if ((temp & mask) == 0)
1018 GPR[RD] = EXTEND32 (i);
1019 TRACE_ALU_RESULT (GPR[RD]);
1024 011100,5.RS,5.RT,5.RD,00000,100000:SPECIAL2:32::CLZ
1029 unsigned32 temp = GPR[RS];
1033 if (NotWordValue (GPR[RS]))
1035 TRACE_ALU_INPUT1 (GPR[RS]);
1036 for (mask = ((unsigned32)1<<31), i = 0; i < 32; ++i)
1038 if ((temp & mask) != 0)
1042 GPR[RD] = EXTEND32 (i);
1043 TRACE_ALU_RESULT (GPR[RD]);
1048 000000,5.RS,5.RT,5.RD,00000,101100:SPECIAL:64::DADD
1049 "dadd r<RD>, r<RS>, r<RT>"
1057 check_u64 (SD_, instruction_0);
1058 TRACE_ALU_INPUT2 (GPR[RS], GPR[RT]);
1060 ALU64_BEGIN (GPR[RS]);
1061 ALU64_ADD (GPR[RT]);
1062 ALU64_END (GPR[RD]); /* This checks for overflow. */
1064 TRACE_ALU_RESULT (GPR[RD]);
1069 011000,5.RS,5.RT,16.IMMEDIATE:NORMAL:64::DADDI
1070 "daddi r<RT>, r<RS>, <IMMEDIATE>"
1078 check_u64 (SD_, instruction_0);
1079 TRACE_ALU_INPUT2 (GPR[RS], EXTEND16 (IMMEDIATE));
1081 ALU64_BEGIN (GPR[RS]);
1082 ALU64_ADD (EXTEND16 (IMMEDIATE));
1083 ALU64_END (GPR[RT]); /* This checks for overflow. */
1085 TRACE_ALU_RESULT (GPR[RT]);
1090 :function:::void:do_daddiu:int rs, int rt, unsigned16 immediate
1092 TRACE_ALU_INPUT2 (GPR[rs], EXTEND16 (immediate));
1093 GPR[rt] = GPR[rs] + EXTEND16 (immediate);
1094 TRACE_ALU_RESULT (GPR[rt]);
1097 011001,5.RS,5.RT,16.IMMEDIATE:NORMAL:64::DADDIU
1098 "daddiu r<RT>, r<RS>, <IMMEDIATE>"
1106 check_u64 (SD_, instruction_0);
1107 do_daddiu (SD_, RS, RT, IMMEDIATE);
1112 :function:::void:do_daddu:int rs, int rt, int rd
1114 TRACE_ALU_INPUT2 (GPR[rs], GPR[rt]);
1115 GPR[rd] = GPR[rs] + GPR[rt];
1116 TRACE_ALU_RESULT (GPR[rd]);
1119 000000,5.RS,5.RT,5.RD,00000,101101:SPECIAL:64::DADDU
1120 "daddu r<RD>, r<RS>, r<RT>"
1128 check_u64 (SD_, instruction_0);
1129 do_daddu (SD_, RS, RT, RD);
1134 011100,5.RS,5.RT,5.RD,00000,100101:SPECIAL2:64::DCLO
1138 unsigned64 temp = GPR[RS];
1141 check_u64 (SD_, instruction_0);
1144 TRACE_ALU_INPUT1 (GPR[RS]);
1145 for (mask = ((unsigned64)1<<63), i = 0; i < 64; ++i)
1147 if ((temp & mask) == 0)
1151 GPR[RD] = EXTEND32 (i);
1152 TRACE_ALU_RESULT (GPR[RD]);
1157 011100,5.RS,5.RT,5.RD,00000,100100:SPECIAL2:64::DCLZ
1161 unsigned64 temp = GPR[RS];
1164 check_u64 (SD_, instruction_0);
1167 TRACE_ALU_INPUT1 (GPR[RS]);
1168 for (mask = ((unsigned64)1<<63), i = 0; i < 64; ++i)
1170 if ((temp & mask) != 0)
1174 GPR[RD] = EXTEND32 (i);
1175 TRACE_ALU_RESULT (GPR[RD]);
1180 :function:::void:do_ddiv:int rs, int rt
1182 check_div_hilo (SD_, HIHISTORY, LOHISTORY);
1183 TRACE_ALU_INPUT2 (GPR[rs], GPR[rt]);
1185 signed64 n = GPR[rs];
1186 signed64 d = GPR[rt];
1191 lo = SIGNED64 (0x8000000000000000);
1194 else if (d == -1 && n == SIGNED64 (0x8000000000000000))
1196 lo = SIGNED64 (0x8000000000000000);
1207 TRACE_ALU_RESULT2 (HI, LO);
1210 000000,5.RS,5.RT,0000000000,011110:SPECIAL:64::DDIV
1219 check_u64 (SD_, instruction_0);
1220 do_ddiv (SD_, RS, RT);
1225 :function:::void:do_ddivu:int rs, int rt
1227 check_div_hilo (SD_, HIHISTORY, LOHISTORY);
1228 TRACE_ALU_INPUT2 (GPR[rs], GPR[rt]);
1230 unsigned64 n = GPR[rs];
1231 unsigned64 d = GPR[rt];
1236 lo = SIGNED64 (0x8000000000000000);
1247 TRACE_ALU_RESULT2 (HI, LO);
1250 000000,5.RS,5.RT,0000000000,011111:SPECIAL:64::DDIVU
1251 "ddivu r<RS>, r<RT>"
1259 check_u64 (SD_, instruction_0);
1260 do_ddivu (SD_, RS, RT);
1265 :function:::void:do_div:int rs, int rt
1267 check_div_hilo (SD_, HIHISTORY, LOHISTORY);
1268 TRACE_ALU_INPUT2 (GPR[rs], GPR[rt]);
1270 signed32 n = GPR[rs];
1271 signed32 d = GPR[rt];
1274 LO = EXTEND32 (0x80000000);
1277 else if (n == SIGNED32 (0x80000000) && d == -1)
1279 LO = EXTEND32 (0x80000000);
1284 LO = EXTEND32 (n / d);
1285 HI = EXTEND32 (n % d);
1288 TRACE_ALU_RESULT2 (HI, LO);
1291 000000,5.RS,5.RT,0000000000,011010:SPECIAL:32::DIV
1304 do_div (SD_, RS, RT);
1309 :function:::void:do_divu:int rs, int rt
1311 check_div_hilo (SD_, HIHISTORY, LOHISTORY);
1312 TRACE_ALU_INPUT2 (GPR[rs], GPR[rt]);
1314 unsigned32 n = GPR[rs];
1315 unsigned32 d = GPR[rt];
1318 LO = EXTEND32 (0x80000000);
1323 LO = EXTEND32 (n / d);
1324 HI = EXTEND32 (n % d);
1327 TRACE_ALU_RESULT2 (HI, LO);
1330 000000,5.RS,5.RT,0000000000,011011:SPECIAL:32::DIVU
1343 do_divu (SD_, RS, RT);
1348 :function:::void:do_dmultx:int rs, int rt, int rd, int signed_p
1358 unsigned64 op1 = GPR[rs];
1359 unsigned64 op2 = GPR[rt];
1360 check_mult_hilo (SD_, HIHISTORY, LOHISTORY);
1361 TRACE_ALU_INPUT2 (GPR[rs], GPR[rt]);
1362 /* make signed multiply unsigned */
1377 /* multiply out the 4 sub products */
1378 m00 = ((unsigned64) VL4_8 (op1) * (unsigned64) VL4_8 (op2));
1379 m10 = ((unsigned64) VH4_8 (op1) * (unsigned64) VL4_8 (op2));
1380 m01 = ((unsigned64) VL4_8 (op1) * (unsigned64) VH4_8 (op2));
1381 m11 = ((unsigned64) VH4_8 (op1) * (unsigned64) VH4_8 (op2));
1382 /* add the products */
1383 mid = ((unsigned64) VH4_8 (m00)
1384 + (unsigned64) VL4_8 (m10)
1385 + (unsigned64) VL4_8 (m01));
1386 lo = U8_4 (mid, m00);
1388 + (unsigned64) VH4_8 (mid)
1389 + (unsigned64) VH4_8 (m01)
1390 + (unsigned64) VH4_8 (m10));
1400 /* save the result HI/LO (and a gpr) */
1405 TRACE_ALU_RESULT2 (HI, LO);
1408 :function:::void:do_dmult:int rs, int rt, int rd
1410 do_dmultx (SD_, rs, rt, rd, 1);
1413 000000,5.RS,5.RT,0000000000,011100:SPECIAL:64::DMULT
1414 "dmult r<RS>, r<RT>"
1421 check_u64 (SD_, instruction_0);
1422 do_dmult (SD_, RS, RT, 0);
1425 000000,5.RS,5.RT,5.RD,00000,011100:SPECIAL:64::DMULT
1426 "dmult r<RS>, r<RT>":RD == 0
1427 "dmult r<RD>, r<RS>, r<RT>"
1430 check_u64 (SD_, instruction_0);
1431 do_dmult (SD_, RS, RT, RD);
1436 :function:::void:do_dmultu:int rs, int rt, int rd
1438 do_dmultx (SD_, rs, rt, rd, 0);
1441 000000,5.RS,5.RT,0000000000,011101:SPECIAL:64::DMULTU
1442 "dmultu r<RS>, r<RT>"
1449 check_u64 (SD_, instruction_0);
1450 do_dmultu (SD_, RS, RT, 0);
1453 000000,5.RS,5.RT,5.RD,00000,011101:SPECIAL:64::DMULTU
1454 "dmultu r<RD>, r<RS>, r<RT>":RD == 0
1455 "dmultu r<RS>, r<RT>"
1458 check_u64 (SD_, instruction_0);
1459 do_dmultu (SD_, RS, RT, RD);
1462 :function:::void:do_dsll:int rt, int rd, int shift
1464 TRACE_ALU_INPUT2 (GPR[rt], shift);
1465 GPR[rd] = GPR[rt] << shift;
1466 TRACE_ALU_RESULT (GPR[rd]);
1469 000000,00000,5.RT,5.RD,5.SHIFT,111000:SPECIAL:64::DSLL
1470 "dsll r<RD>, r<RT>, <SHIFT>"
1478 check_u64 (SD_, instruction_0);
1479 do_dsll (SD_, RT, RD, SHIFT);
1483 000000,00000,5.RT,5.RD,5.SHIFT,111100:SPECIAL:64::DSLL32
1484 "dsll32 r<RD>, r<RT>, <SHIFT>"
1493 check_u64 (SD_, instruction_0);
1494 TRACE_ALU_INPUT2 (GPR[RT], s);
1495 GPR[RD] = GPR[RT] << s;
1496 TRACE_ALU_RESULT (GPR[RD]);
1499 :function:::void:do_dsllv:int rs, int rt, int rd
1501 int s = MASKED64 (GPR[rs], 5, 0);
1502 TRACE_ALU_INPUT2 (GPR[rt], s);
1503 GPR[rd] = GPR[rt] << s;
1504 TRACE_ALU_RESULT (GPR[rd]);
1507 000000,5.RS,5.RT,5.RD,00000,010100:SPECIAL:64::DSLLV
1508 "dsllv r<RD>, r<RT>, r<RS>"
1516 check_u64 (SD_, instruction_0);
1517 do_dsllv (SD_, RS, RT, RD);
1520 :function:::void:do_dsra:int rt, int rd, int shift
1522 TRACE_ALU_INPUT2 (GPR[rt], shift);
1523 GPR[rd] = ((signed64) GPR[rt]) >> shift;
1524 TRACE_ALU_RESULT (GPR[rd]);
1528 000000,00000,5.RT,5.RD,5.SHIFT,111011:SPECIAL:64::DSRA
1529 "dsra r<RD>, r<RT>, <SHIFT>"
1537 check_u64 (SD_, instruction_0);
1538 do_dsra (SD_, RT, RD, SHIFT);
1542 000000,00000,5.RT,5.RD,5.SHIFT,111111:SPECIAL:64::DSRA32
1543 "dsra32 r<RD>, r<RT>, <SHIFT>"
1552 check_u64 (SD_, instruction_0);
1553 TRACE_ALU_INPUT2 (GPR[RT], s);
1554 GPR[RD] = ((signed64) GPR[RT]) >> s;
1555 TRACE_ALU_RESULT (GPR[RD]);
1559 :function:::void:do_dsrav:int rs, int rt, int rd
1561 int s = MASKED64 (GPR[rs], 5, 0);
1562 TRACE_ALU_INPUT2 (GPR[rt], s);
1563 GPR[rd] = ((signed64) GPR[rt]) >> s;
1564 TRACE_ALU_RESULT (GPR[rd]);
1567 000000,5.RS,5.RT,5.RD,00000,010111:SPECIAL:64::DSRAV
1568 "dsrav r<RD>, r<RT>, r<RS>"
1576 check_u64 (SD_, instruction_0);
1577 do_dsrav (SD_, RS, RT, RD);
1580 :function:::void:do_dsrl:int rt, int rd, int shift
1582 TRACE_ALU_INPUT2 (GPR[rt], shift);
1583 GPR[rd] = (unsigned64) GPR[rt] >> shift;
1584 TRACE_ALU_RESULT (GPR[rd]);
1588 000000,00000,5.RT,5.RD,5.SHIFT,111010:SPECIAL:64::DSRL
1589 "dsrl r<RD>, r<RT>, <SHIFT>"
1597 check_u64 (SD_, instruction_0);
1598 do_dsrl (SD_, RT, RD, SHIFT);
1602 000000,00000,5.RT,5.RD,5.SHIFT,111110:SPECIAL:64::DSRL32
1603 "dsrl32 r<RD>, r<RT>, <SHIFT>"
1612 check_u64 (SD_, instruction_0);
1613 TRACE_ALU_INPUT2 (GPR[RT], s);
1614 GPR[RD] = (unsigned64) GPR[RT] >> s;
1615 TRACE_ALU_RESULT (GPR[RD]);
1619 :function:::void:do_dsrlv:int rs, int rt, int rd
1621 int s = MASKED64 (GPR[rs], 5, 0);
1622 TRACE_ALU_INPUT2 (GPR[rt], s);
1623 GPR[rd] = (unsigned64) GPR[rt] >> s;
1624 TRACE_ALU_RESULT (GPR[rd]);
1629 000000,5.RS,5.RT,5.RD,00000,010110:SPECIAL:64::DSRLV
1630 "dsrlv r<RD>, r<RT>, r<RS>"
1638 check_u64 (SD_, instruction_0);
1639 do_dsrlv (SD_, RS, RT, RD);
1643 000000,5.RS,5.RT,5.RD,00000,101110:SPECIAL:64::DSUB
1644 "dsub r<RD>, r<RS>, r<RT>"
1652 check_u64 (SD_, instruction_0);
1653 TRACE_ALU_INPUT2 (GPR[RS], GPR[RT]);
1655 ALU64_BEGIN (GPR[RS]);
1656 ALU64_SUB (GPR[RT]);
1657 ALU64_END (GPR[RD]); /* This checks for overflow. */
1659 TRACE_ALU_RESULT (GPR[RD]);
1663 :function:::void:do_dsubu:int rs, int rt, int rd
1665 TRACE_ALU_INPUT2 (GPR[rs], GPR[rt]);
1666 GPR[rd] = GPR[rs] - GPR[rt];
1667 TRACE_ALU_RESULT (GPR[rd]);
1670 000000,5.RS,5.RT,5.RD,00000,101111:SPECIAL:64::DSUBU
1671 "dsubu r<RD>, r<RS>, r<RT>"
1679 check_u64 (SD_, instruction_0);
1680 do_dsubu (SD_, RS, RT, RD);
1684 000010,26.INSTR_INDEX:NORMAL:32::J
1697 /* NOTE: The region used is that of the delay slot NIA and NOT the
1698 current instruction */
1699 address_word region = (NIA & MASK (63, 28));
1700 DELAY_SLOT (region | (INSTR_INDEX << 2));
1704 000011,26.INSTR_INDEX:NORMAL:32::JAL
1717 /* NOTE: The region used is that of the delay slot and NOT the
1718 current instruction */
1719 address_word region = (NIA & MASK (63, 28));
1721 DELAY_SLOT (region | (INSTR_INDEX << 2));
1724 000000,5.RS,00000,5.RD,00000,001001:SPECIAL:32::JALR
1725 "jalr r<RS>":RD == 31
1738 address_word temp = GPR[RS];
1744 000000,5.RS,000000000000000,001000:SPECIAL:32::JR
1757 DELAY_SLOT (GPR[RS]);
1761 :function:::unsigned_word:do_load:unsigned access, address_word base, address_word offset
1763 address_word mask = (WITH_TARGET_WORD_BITSIZE == 64 ? 0x7 : 0x3);
1764 address_word reverseendian = (ReverseEndian ? (mask ^ access) : 0);
1765 address_word bigendiancpu = (BigEndianCPU ? (mask ^ access) : 0);
1772 vaddr = loadstore_ea (SD_, base, offset);
1773 if ((vaddr & access) != 0)
1775 SIM_CORE_SIGNAL (SD, STATE_CPU (SD, 0), cia, read_map, access+1, vaddr, read_transfer, sim_core_unaligned_signal);
1777 AddressTranslation (vaddr, isDATA, isLOAD, &paddr, &uncached, isTARGET, isREAL);
1778 paddr = ((paddr & ~mask) | ((paddr & mask) ^ reverseendian));
1779 LoadMemory (&memval, NULL, uncached, access, paddr, vaddr, isDATA, isREAL);
1780 byte = ((vaddr & mask) ^ bigendiancpu);
1781 return (memval >> (8 * byte));
1784 :function:::unsigned_word:do_load_left:unsigned access, address_word base, address_word offset, unsigned_word rt
1786 address_word mask = (WITH_TARGET_WORD_BITSIZE == 64 ? 0x7 : 0x3);
1787 address_word reverseendian = (ReverseEndian ? -1 : 0);
1788 address_word bigendiancpu = (BigEndianCPU ? -1 : 0);
1797 unsigned_word lhs_mask;
1800 vaddr = loadstore_ea (SD_, base, offset);
1801 AddressTranslation (vaddr, isDATA, isLOAD, &paddr, &uncached, isTARGET, isREAL);
1802 paddr = (paddr ^ (reverseendian & mask));
1803 if (BigEndianMem == 0)
1804 paddr = paddr & ~access;
1806 /* compute where within the word/mem we are */
1807 byte = ((vaddr ^ bigendiancpu) & access); /* 0..access */
1808 word = ((vaddr ^ bigendiancpu) & (mask & ~access)) / (access + 1); /* 0..1 */
1809 nr_lhs_bits = 8 * byte + 8;
1810 nr_rhs_bits = 8 * access - 8 * byte;
1811 /* nr_lhs_bits + nr_rhs_bits == 8 * (accesss + 1) */
1813 /* fprintf (stderr, "l[wd]l: 0x%08lx%08lx 0x%08lx%08lx %d:%d %d+%d\n",
1814 (long) ((unsigned64) vaddr >> 32), (long) vaddr,
1815 (long) ((unsigned64) paddr >> 32), (long) paddr,
1816 word, byte, nr_lhs_bits, nr_rhs_bits); */
1818 LoadMemory (&memval, NULL, uncached, byte, paddr, vaddr, isDATA, isREAL);
1821 /* GPR{31..32-NR_LHS_BITS} = memval{NR_LHS_BITS-1..0} */
1822 temp = (memval << nr_rhs_bits);
1826 /* GPR{31..32-NR_LHS_BITS = memval{32+NR_LHS_BITS..32} */
1827 temp = (memval >> nr_lhs_bits);
1829 lhs_mask = LSMASK (nr_lhs_bits + nr_rhs_bits - 1, nr_rhs_bits);
1830 rt = (rt & ~lhs_mask) | (temp & lhs_mask);
1832 /* fprintf (stderr, "l[wd]l: 0x%08lx%08lx -> 0x%08lx%08lx & 0x%08lx%08lx -> 0x%08lx%08lx\n",
1833 (long) ((unsigned64) memval >> 32), (long) memval,
1834 (long) ((unsigned64) temp >> 32), (long) temp,
1835 (long) ((unsigned64) lhs_mask >> 32), (long) lhs_mask,
1836 (long) (rt >> 32), (long) rt); */
1840 :function:::unsigned_word:do_load_right:unsigned access, address_word base, address_word offset, unsigned_word rt
1842 address_word mask = (WITH_TARGET_WORD_BITSIZE == 64 ? 0x7 : 0x3);
1843 address_word reverseendian = (ReverseEndian ? -1 : 0);
1844 address_word bigendiancpu = (BigEndianCPU ? -1 : 0);
1851 vaddr = loadstore_ea (SD_, base, offset);
1852 AddressTranslation (vaddr, isDATA, isLOAD, &paddr, &uncached, isTARGET, isREAL);
1853 /* NOTE: SPEC is wrong, has `BigEndianMem == 0' not `BigEndianMem != 0' */
1854 paddr = (paddr ^ (reverseendian & mask));
1855 if (BigEndianMem != 0)
1856 paddr = paddr & ~access;
1857 byte = ((vaddr & mask) ^ (bigendiancpu & mask));
1858 /* NOTE: SPEC is wrong, had `byte' not `access - byte'. See SW. */
1859 LoadMemory (&memval, NULL, uncached, access - (access & byte), paddr, vaddr, isDATA, isREAL);
1860 /* printf ("lr: 0x%08lx %d@0x%08lx 0x%08lx\n",
1861 (long) paddr, byte, (long) paddr, (long) memval); */
1863 unsigned_word screen = LSMASK (8 * (access - (byte & access) + 1) - 1, 0);
1865 rt |= (memval >> (8 * byte)) & screen;
1871 100000,5.BASE,5.RT,16.OFFSET:NORMAL:32::LB
1872 "lb r<RT>, <OFFSET>(r<BASE>)"
1884 GPR[RT] = EXTEND8 (do_load (SD_, AccessLength_BYTE, GPR[BASE], EXTEND16 (OFFSET)));
1888 100100,5.BASE,5.RT,16.OFFSET:NORMAL:32::LBU
1889 "lbu r<RT>, <OFFSET>(r<BASE>)"
1901 GPR[RT] = do_load (SD_, AccessLength_BYTE, GPR[BASE], EXTEND16 (OFFSET));
1905 110111,5.BASE,5.RT,16.OFFSET:NORMAL:64::LD
1906 "ld r<RT>, <OFFSET>(r<BASE>)"
1914 check_u64 (SD_, instruction_0);
1915 GPR[RT] = EXTEND64 (do_load (SD_, AccessLength_DOUBLEWORD, GPR[BASE], EXTEND16 (OFFSET)));
1919 1101,ZZ!0!1!3,5.BASE,5.RT,16.OFFSET:NORMAL:64::LDCz
1920 "ldc<ZZ> r<RT>, <OFFSET>(r<BASE>)"
1931 COP_LD (ZZ, RT, do_load (SD_, AccessLength_DOUBLEWORD, GPR[BASE], EXTEND16 (OFFSET)));
1937 011010,5.BASE,5.RT,16.OFFSET:NORMAL:64::LDL
1938 "ldl r<RT>, <OFFSET>(r<BASE>)"
1946 check_u64 (SD_, instruction_0);
1947 GPR[RT] = do_load_left (SD_, AccessLength_DOUBLEWORD, GPR[BASE], EXTEND16 (OFFSET), GPR[RT]);
1951 011011,5.BASE,5.RT,16.OFFSET:NORMAL:64::LDR
1952 "ldr r<RT>, <OFFSET>(r<BASE>)"
1960 check_u64 (SD_, instruction_0);
1961 GPR[RT] = do_load_right (SD_, AccessLength_DOUBLEWORD, GPR[BASE], EXTEND16 (OFFSET), GPR[RT]);
1965 100001,5.BASE,5.RT,16.OFFSET:NORMAL:32::LH
1966 "lh r<RT>, <OFFSET>(r<BASE>)"
1978 GPR[RT] = EXTEND16 (do_load (SD_, AccessLength_HALFWORD, GPR[BASE], EXTEND16 (OFFSET)));
1982 100101,5.BASE,5.RT,16.OFFSET:NORMAL:32::LHU
1983 "lhu r<RT>, <OFFSET>(r<BASE>)"
1995 GPR[RT] = do_load (SD_, AccessLength_HALFWORD, GPR[BASE], EXTEND16 (OFFSET));
1999 110000,5.BASE,5.RT,16.OFFSET:NORMAL:32::LL
2000 "ll r<RT>, <OFFSET>(r<BASE>)"
2010 address_word base = GPR[BASE];
2011 address_word offset = EXTEND16 (OFFSET);
2013 address_word vaddr = loadstore_ea (SD_, base, offset);
2016 if ((vaddr & 3) != 0)
2018 SIM_CORE_SIGNAL (SD, CPU, cia, read_map, 4, vaddr, read_transfer, sim_core_unaligned_signal);
2022 if (AddressTranslation(vaddr,isDATA,isLOAD,&paddr,&uncached,isTARGET,isREAL))
2024 unsigned64 memval = 0;
2025 unsigned64 memval1 = 0;
2026 unsigned64 mask = 0x7;
2027 unsigned int shift = 2;
2028 unsigned int reverse = (ReverseEndian ? (mask >> shift) : 0);
2029 unsigned int bigend = (BigEndianCPU ? (mask >> shift) : 0);
2031 paddr = ((paddr & ~mask) | ((paddr & mask) ^ (reverse << shift)));
2032 LoadMemory(&memval,&memval1,uncached,AccessLength_WORD,paddr,vaddr,isDATA,isREAL);
2033 byte = ((vaddr & mask) ^ (bigend << shift));
2034 GPR[RT] = EXTEND32 (memval >> (8 * byte));
2042 110100,5.BASE,5.RT,16.OFFSET:NORMAL:64::LLD
2043 "lld r<RT>, <OFFSET>(r<BASE>)"
2051 address_word base = GPR[BASE];
2052 address_word offset = EXTEND16 (OFFSET);
2053 check_u64 (SD_, instruction_0);
2055 address_word vaddr = loadstore_ea (SD_, base, offset);
2058 if ((vaddr & 7) != 0)
2060 SIM_CORE_SIGNAL (SD, CPU, cia, read_map, 8, vaddr, read_transfer, sim_core_unaligned_signal);
2064 if (AddressTranslation(vaddr,isDATA,isLOAD,&paddr,&uncached,isTARGET,isREAL))
2066 unsigned64 memval = 0;
2067 unsigned64 memval1 = 0;
2068 LoadMemory(&memval,&memval1,uncached,AccessLength_DOUBLEWORD,paddr,vaddr,isDATA,isREAL);
2077 001111,00000,5.RT,16.IMMEDIATE:NORMAL:32::LUI
2078 "lui r<RT>, %#lx<IMMEDIATE>"
2090 TRACE_ALU_INPUT1 (IMMEDIATE);
2091 GPR[RT] = EXTEND32 (IMMEDIATE << 16);
2092 TRACE_ALU_RESULT (GPR[RT]);
2096 100011,5.BASE,5.RT,16.OFFSET:NORMAL:32::LW
2097 "lw r<RT>, <OFFSET>(r<BASE>)"
2109 GPR[RT] = EXTEND32 (do_load (SD_, AccessLength_WORD, GPR[BASE], EXTEND16 (OFFSET)));
2113 1100,ZZ!0!1!3,5.BASE,5.RT,16.OFFSET:NORMAL:32::LWCz
2114 "lwc<ZZ> r<RT>, <OFFSET>(r<BASE>)"
2126 COP_LW (ZZ, RT, do_load (SD_, AccessLength_WORD, GPR[BASE], EXTEND16 (OFFSET)));
2130 100010,5.BASE,5.RT,16.OFFSET:NORMAL:32::LWL
2131 "lwl r<RT>, <OFFSET>(r<BASE>)"
2143 GPR[RT] = EXTEND32 (do_load_left (SD_, AccessLength_WORD, GPR[BASE], EXTEND16 (OFFSET), GPR[RT]));
2147 100110,5.BASE,5.RT,16.OFFSET:NORMAL:32::LWR
2148 "lwr r<RT>, <OFFSET>(r<BASE>)"
2160 GPR[RT] = EXTEND32 (do_load_right (SD_, AccessLength_WORD, GPR[BASE], EXTEND16 (OFFSET), GPR[RT]));
2164 100111,5.BASE,5.RT,16.OFFSET:NORMAL:64::LWU
2165 "lwu r<RT>, <OFFSET>(r<BASE>)"
2173 check_u64 (SD_, instruction_0);
2174 GPR[RT] = do_load (SD_, AccessLength_WORD, GPR[BASE], EXTEND16 (OFFSET));
2179 011100,5.RS,5.RT,00000,00000,000000:SPECIAL2:32::MADD
2185 check_mult_hilo (SD_, HIHISTORY, LOHISTORY);
2186 if (NotWordValue (GPR[RS]) || NotWordValue (GPR[RT]))
2188 TRACE_ALU_INPUT2 (GPR[RS], GPR[RT]);
2189 temp = (U8_4 (VL4_8 (HI), VL4_8 (LO))
2190 + ((signed64) EXTEND32 (GPR[RT]) * (signed64) EXTEND32 (GPR[RS])));
2191 LO = EXTEND32 (temp);
2192 HI = EXTEND32 (VH4_8 (temp));
2193 TRACE_ALU_RESULT2 (HI, LO);
2198 011100,5.RS,5.RT,00000,00000,000001:SPECIAL2:32::MADDU
2199 "maddu r<RS>, r<RT>"
2204 check_mult_hilo (SD_, HIHISTORY, LOHISTORY);
2205 if (NotWordValue (GPR[RS]) || NotWordValue (GPR[RT]))
2207 TRACE_ALU_INPUT2 (GPR[RS], GPR[RT]);
2208 temp = (U8_4 (VL4_8 (HI), VL4_8 (LO))
2209 + ((unsigned64) VL4_8 (GPR[RS]) * (unsigned64) VL4_8 (GPR[RT])));
2210 LO = EXTEND32 (temp);
2211 HI = EXTEND32 (VH4_8 (temp));
2212 TRACE_ALU_RESULT2 (HI, LO);
2216 :function:::void:do_mfhi:int rd
2218 check_mf_hilo (SD_, HIHISTORY, LOHISTORY);
2219 TRACE_ALU_INPUT1 (HI);
2221 TRACE_ALU_RESULT (GPR[rd]);
2224 000000,0000000000,5.RD,00000,010000:SPECIAL:32::MFHI
2242 :function:::void:do_mflo:int rd
2244 check_mf_hilo (SD_, LOHISTORY, HIHISTORY);
2245 TRACE_ALU_INPUT1 (LO);
2247 TRACE_ALU_RESULT (GPR[rd]);
2250 000000,0000000000,5.RD,00000,010010:SPECIAL:32::MFLO
2268 000000,5.RS,5.RT,5.RD,00000,001011:SPECIAL:32::MOVN
2269 "movn r<RD>, r<RS>, r<RT>"
2282 000000,5.RS,5.RT,5.RD,00000,001010:SPECIAL:32::MOVZ
2283 "movz r<RD>, r<RS>, r<RT>"
2296 011100,5.RS,5.RT,00000,00000,000100:SPECIAL2:32::MSUB
2302 check_mult_hilo (SD_, HIHISTORY, LOHISTORY);
2303 if (NotWordValue (GPR[RS]) || NotWordValue (GPR[RT]))
2305 TRACE_ALU_INPUT2 (GPR[RS], GPR[RT]);
2306 temp = (U8_4 (VL4_8 (HI), VL4_8 (LO))
2307 - ((signed64) EXTEND32 (GPR[RT]) * (signed64) EXTEND32 (GPR[RS])));
2308 LO = EXTEND32 (temp);
2309 HI = EXTEND32 (VH4_8 (temp));
2310 TRACE_ALU_RESULT2 (HI, LO);
2315 011100,5.RS,5.RT,00000,00000,000101:SPECIAL2:32::MSUBU
2316 "msubu r<RS>, r<RT>"
2321 check_mult_hilo (SD_, HIHISTORY, LOHISTORY);
2322 if (NotWordValue (GPR[RS]) || NotWordValue (GPR[RT]))
2324 TRACE_ALU_INPUT2 (GPR[RS], GPR[RT]);
2325 temp = (U8_4 (VL4_8 (HI), VL4_8 (LO))
2326 - ((unsigned64) VL4_8 (GPR[RS]) * (unsigned64) VL4_8 (GPR[RT])));
2327 LO = EXTEND32 (temp);
2328 HI = EXTEND32 (VH4_8 (temp));
2329 TRACE_ALU_RESULT2 (HI, LO);
2334 000000,5.RS,000000000000000,010001:SPECIAL:32::MTHI
2347 check_mt_hilo (SD_, HIHISTORY);
2353 000000,5.RS,000000000000000,010011:SPECIAL:32::MTLO
2366 check_mt_hilo (SD_, LOHISTORY);
2372 011100,5.RS,5.RT,5.RD,00000,000010:SPECIAL2:32::MUL
2373 "mul r<RD>, r<RS>, r<RT>"
2378 if (NotWordValue (GPR[RS]) || NotWordValue (GPR[RT]))
2380 TRACE_ALU_INPUT2 (GPR[RS], GPR[RT]);
2381 prod = (((signed64)(signed32) GPR[RS])
2382 * ((signed64)(signed32) GPR[RT]));
2383 GPR[RD] = EXTEND32 (VL4_8 (prod));
2384 TRACE_ALU_RESULT (GPR[RD]);
2389 :function:::void:do_mult:int rs, int rt, int rd
2392 check_mult_hilo (SD_, HIHISTORY, LOHISTORY);
2393 if (NotWordValue (GPR[rs]) || NotWordValue (GPR[rt]))
2395 TRACE_ALU_INPUT2 (GPR[rs], GPR[rt]);
2396 prod = (((signed64)(signed32) GPR[rs])
2397 * ((signed64)(signed32) GPR[rt]));
2398 LO = EXTEND32 (VL4_8 (prod));
2399 HI = EXTEND32 (VH4_8 (prod));
2402 TRACE_ALU_RESULT2 (HI, LO);
2405 000000,5.RS,5.RT,0000000000,011000:SPECIAL:32::MULT
2416 do_mult (SD_, RS, RT, 0);
2420 000000,5.RS,5.RT,5.RD,00000,011000:SPECIAL:32::MULT
2421 "mult r<RS>, r<RT>":RD == 0
2422 "mult r<RD>, r<RS>, r<RT>"
2426 do_mult (SD_, RS, RT, RD);
2430 :function:::void:do_multu:int rs, int rt, int rd
2433 check_mult_hilo (SD_, HIHISTORY, LOHISTORY);
2434 if (NotWordValue (GPR[rs]) || NotWordValue (GPR[rt]))
2436 TRACE_ALU_INPUT2 (GPR[rs], GPR[rt]);
2437 prod = (((unsigned64)(unsigned32) GPR[rs])
2438 * ((unsigned64)(unsigned32) GPR[rt]));
2439 LO = EXTEND32 (VL4_8 (prod));
2440 HI = EXTEND32 (VH4_8 (prod));
2443 TRACE_ALU_RESULT2 (HI, LO);
2446 000000,5.RS,5.RT,0000000000,011001:SPECIAL:32::MULTU
2447 "multu r<RS>, r<RT>"
2457 do_multu (SD_, RS, RT, 0);
2460 000000,5.RS,5.RT,5.RD,00000,011001:SPECIAL:32::MULTU
2461 "multu r<RS>, r<RT>":RD == 0
2462 "multu r<RD>, r<RS>, r<RT>"
2466 do_multu (SD_, RS, RT, RD);
2470 :function:::void:do_nor:int rs, int rt, int rd
2472 TRACE_ALU_INPUT2 (GPR[rs], GPR[rt]);
2473 GPR[rd] = ~ (GPR[rs] | GPR[rt]);
2474 TRACE_ALU_RESULT (GPR[rd]);
2477 000000,5.RS,5.RT,5.RD,00000,100111:SPECIAL:32::NOR
2478 "nor r<RD>, r<RS>, r<RT>"
2490 do_nor (SD_, RS, RT, RD);
2494 :function:::void:do_or:int rs, int rt, int rd
2496 TRACE_ALU_INPUT2 (GPR[rs], GPR[rt]);
2497 GPR[rd] = (GPR[rs] | GPR[rt]);
2498 TRACE_ALU_RESULT (GPR[rd]);
2501 000000,5.RS,5.RT,5.RD,00000,100101:SPECIAL:32::OR
2502 "or r<RD>, r<RS>, r<RT>"
2514 do_or (SD_, RS, RT, RD);
2519 :function:::void:do_ori:int rs, int rt, unsigned immediate
2521 TRACE_ALU_INPUT2 (GPR[rs], immediate);
2522 GPR[rt] = (GPR[rs] | immediate);
2523 TRACE_ALU_RESULT (GPR[rt]);
2526 001101,5.RS,5.RT,16.IMMEDIATE:NORMAL:32::ORI
2527 "ori r<RT>, r<RS>, %#lx<IMMEDIATE>"
2539 do_ori (SD_, RS, RT, IMMEDIATE);
2543 110011,5.BASE,5.HINT,16.OFFSET:NORMAL:32::PREF
2544 "pref <HINT>, <OFFSET>(r<BASE>)"
2551 address_word base = GPR[BASE];
2552 address_word offset = EXTEND16 (OFFSET);
2554 address_word vaddr = loadstore_ea (SD_, base, offset);
2558 if (AddressTranslation(vaddr,isDATA,isLOAD,&paddr,&uncached,isTARGET,isREAL))
2559 Prefetch(uncached,paddr,vaddr,isDATA,HINT);
2565 :function:::void:do_store:unsigned access, address_word base, address_word offset, unsigned_word word
2567 address_word mask = (WITH_TARGET_WORD_BITSIZE == 64 ? 0x7 : 0x3);
2568 address_word reverseendian = (ReverseEndian ? (mask ^ access) : 0);
2569 address_word bigendiancpu = (BigEndianCPU ? (mask ^ access) : 0);
2576 vaddr = loadstore_ea (SD_, base, offset);
2577 if ((vaddr & access) != 0)
2579 SIM_CORE_SIGNAL (SD, STATE_CPU(SD, 0), cia, read_map, access+1, vaddr, write_transfer, sim_core_unaligned_signal);
2581 AddressTranslation (vaddr, isDATA, isSTORE, &paddr, &uncached, isTARGET, isREAL);
2582 paddr = ((paddr & ~mask) | ((paddr & mask) ^ reverseendian));
2583 byte = ((vaddr & mask) ^ bigendiancpu);
2584 memval = (word << (8 * byte));
2585 StoreMemory (uncached, access, memval, 0, paddr, vaddr, isREAL);
2588 :function:::void:do_store_left:unsigned access, address_word base, address_word offset, unsigned_word rt
2590 address_word mask = (WITH_TARGET_WORD_BITSIZE == 64 ? 0x7 : 0x3);
2591 address_word reverseendian = (ReverseEndian ? -1 : 0);
2592 address_word bigendiancpu = (BigEndianCPU ? -1 : 0);
2602 vaddr = loadstore_ea (SD_, base, offset);
2603 AddressTranslation (vaddr, isDATA, isSTORE, &paddr, &uncached, isTARGET, isREAL);
2604 paddr = (paddr ^ (reverseendian & mask));
2605 if (BigEndianMem == 0)
2606 paddr = paddr & ~access;
2608 /* compute where within the word/mem we are */
2609 byte = ((vaddr ^ bigendiancpu) & access); /* 0..access */
2610 word = ((vaddr ^ bigendiancpu) & (mask & ~access)) / (access + 1); /* 0..1 */
2611 nr_lhs_bits = 8 * byte + 8;
2612 nr_rhs_bits = 8 * access - 8 * byte;
2613 /* nr_lhs_bits + nr_rhs_bits == 8 * (accesss + 1) */
2614 /* fprintf (stderr, "s[wd]l: 0x%08lx%08lx 0x%08lx%08lx %d:%d %d+%d\n",
2615 (long) ((unsigned64) vaddr >> 32), (long) vaddr,
2616 (long) ((unsigned64) paddr >> 32), (long) paddr,
2617 word, byte, nr_lhs_bits, nr_rhs_bits); */
2621 memval = (rt >> nr_rhs_bits);
2625 memval = (rt << nr_lhs_bits);
2627 /* fprintf (stderr, "s[wd]l: 0x%08lx%08lx -> 0x%08lx%08lx\n",
2628 (long) ((unsigned64) rt >> 32), (long) rt,
2629 (long) ((unsigned64) memval >> 32), (long) memval); */
2630 StoreMemory (uncached, byte, memval, 0, paddr, vaddr, isREAL);
2633 :function:::void:do_store_right:unsigned access, address_word base, address_word offset, unsigned_word rt
2635 address_word mask = (WITH_TARGET_WORD_BITSIZE == 64 ? 0x7 : 0x3);
2636 address_word reverseendian = (ReverseEndian ? -1 : 0);
2637 address_word bigendiancpu = (BigEndianCPU ? -1 : 0);
2644 vaddr = loadstore_ea (SD_, base, offset);
2645 AddressTranslation (vaddr, isDATA, isSTORE, &paddr, &uncached, isTARGET, isREAL);
2646 paddr = (paddr ^ (reverseendian & mask));
2647 if (BigEndianMem != 0)
2649 byte = ((vaddr & mask) ^ (bigendiancpu & mask));
2650 memval = (rt << (byte * 8));
2651 StoreMemory (uncached, access - (access & byte), memval, 0, paddr, vaddr, isREAL);
2655 101000,5.BASE,5.RT,16.OFFSET:NORMAL:32::SB
2656 "sb r<RT>, <OFFSET>(r<BASE>)"
2668 do_store (SD_, AccessLength_BYTE, GPR[BASE], EXTEND16 (OFFSET), GPR[RT]);
2672 111000,5.BASE,5.RT,16.OFFSET:NORMAL:32::SC
2673 "sc r<RT>, <OFFSET>(r<BASE>)"
2683 unsigned32 instruction = instruction_0;
2684 address_word base = GPR[BASE];
2685 address_word offset = EXTEND16 (OFFSET);
2687 address_word vaddr = loadstore_ea (SD_, base, offset);
2690 if ((vaddr & 3) != 0)
2692 SIM_CORE_SIGNAL (SD, CPU, cia, read_map, 4, vaddr, write_transfer, sim_core_unaligned_signal);
2696 if (AddressTranslation(vaddr,isDATA,isSTORE,&paddr,&uncached,isTARGET,isREAL))
2698 unsigned64 memval = 0;
2699 unsigned64 memval1 = 0;
2700 unsigned64 mask = 0x7;
2702 paddr = ((paddr & ~mask) | ((paddr & mask) ^ (ReverseEndian << 2)));
2703 byte = ((vaddr & mask) ^ (BigEndianCPU << 2));
2704 memval = ((unsigned64) GPR[RT] << (8 * byte));
2707 StoreMemory(uncached,AccessLength_WORD,memval,memval1,paddr,vaddr,isREAL);
2716 111100,5.BASE,5.RT,16.OFFSET:NORMAL:64::SCD
2717 "scd r<RT>, <OFFSET>(r<BASE>)"
2725 address_word base = GPR[BASE];
2726 address_word offset = EXTEND16 (OFFSET);
2727 check_u64 (SD_, instruction_0);
2729 address_word vaddr = loadstore_ea (SD_, base, offset);
2732 if ((vaddr & 7) != 0)
2734 SIM_CORE_SIGNAL (SD, CPU, cia, read_map, 8, vaddr, write_transfer, sim_core_unaligned_signal);
2738 if (AddressTranslation(vaddr,isDATA,isSTORE,&paddr,&uncached,isTARGET,isREAL))
2740 unsigned64 memval = 0;
2741 unsigned64 memval1 = 0;
2745 StoreMemory(uncached,AccessLength_DOUBLEWORD,memval,memval1,paddr,vaddr,isREAL);
2754 111111,5.BASE,5.RT,16.OFFSET:NORMAL:64::SD
2755 "sd r<RT>, <OFFSET>(r<BASE>)"
2763 check_u64 (SD_, instruction_0);
2764 do_store (SD_, AccessLength_DOUBLEWORD, GPR[BASE], EXTEND16 (OFFSET), GPR[RT]);
2768 1111,ZZ!0!1!3,5.BASE,5.RT,16.OFFSET:NORMAL:64::SDCz
2769 "sdc<ZZ> r<RT>, <OFFSET>(r<BASE>)"
2779 do_store (SD_, AccessLength_DOUBLEWORD, GPR[BASE], EXTEND16 (OFFSET), COP_SD (ZZ, RT));
2783 101100,5.BASE,5.RT,16.OFFSET:NORMAL:64::SDL
2784 "sdl r<RT>, <OFFSET>(r<BASE>)"
2792 check_u64 (SD_, instruction_0);
2793 do_store_left (SD_, AccessLength_DOUBLEWORD, GPR[BASE], EXTEND16 (OFFSET), GPR[RT]);
2797 101101,5.BASE,5.RT,16.OFFSET:NORMAL:64::SDR
2798 "sdr r<RT>, <OFFSET>(r<BASE>)"
2806 check_u64 (SD_, instruction_0);
2807 do_store_right (SD_, AccessLength_DOUBLEWORD, GPR[BASE], EXTEND16 (OFFSET), GPR[RT]);
2811 101001,5.BASE,5.RT,16.OFFSET:NORMAL:32::SH
2812 "sh r<RT>, <OFFSET>(r<BASE>)"
2824 do_store (SD_, AccessLength_HALFWORD, GPR[BASE], EXTEND16 (OFFSET), GPR[RT]);
2828 :function:::void:do_sll:int rt, int rd, int shift
2830 unsigned32 temp = (GPR[rt] << shift);
2831 TRACE_ALU_INPUT2 (GPR[rt], shift);
2832 GPR[rd] = EXTEND32 (temp);
2833 TRACE_ALU_RESULT (GPR[rd]);
2836 000000,00000,5.RT,5.RD,5.SHIFT,000000:SPECIAL:32::SLLa
2837 "nop":RD == 0 && RT == 0 && SHIFT == 0
2838 "sll r<RD>, r<RT>, <SHIFT>"
2848 /* Skip shift for NOP, so that there won't be lots of extraneous
2850 if (RD != 0 || RT != 0 || SHIFT != 0)
2851 do_sll (SD_, RT, RD, SHIFT);
2854 000000,00000,5.RT,5.RD,5.SHIFT,000000:SPECIAL:32::SLLb
2855 "nop":RD == 0 && RT == 0 && SHIFT == 0
2856 "ssnop":RD == 0 && RT == 0 && SHIFT == 1
2857 "sll r<RD>, r<RT>, <SHIFT>"
2861 /* Skip shift for NOP and SSNOP, so that there won't be lots of
2862 extraneous trace output. */
2863 if (RD != 0 || RT != 0 || (SHIFT != 0 && SHIFT != 1))
2864 do_sll (SD_, RT, RD, SHIFT);
2868 :function:::void:do_sllv:int rs, int rt, int rd
2870 int s = MASKED (GPR[rs], 4, 0);
2871 unsigned32 temp = (GPR[rt] << s);
2872 TRACE_ALU_INPUT2 (GPR[rt], s);
2873 GPR[rd] = EXTEND32 (temp);
2874 TRACE_ALU_RESULT (GPR[rd]);
2877 000000,5.RS,5.RT,5.RD,00000,000100:SPECIAL:32::SLLV
2878 "sllv r<RD>, r<RT>, r<RS>"
2890 do_sllv (SD_, RS, RT, RD);
2894 :function:::void:do_slt:int rs, int rt, int rd
2896 TRACE_ALU_INPUT2 (GPR[rs], GPR[rt]);
2897 GPR[rd] = ((signed_word) GPR[rs] < (signed_word) GPR[rt]);
2898 TRACE_ALU_RESULT (GPR[rd]);
2901 000000,5.RS,5.RT,5.RD,00000,101010:SPECIAL:32::SLT
2902 "slt r<RD>, r<RS>, r<RT>"
2914 do_slt (SD_, RS, RT, RD);
2918 :function:::void:do_slti:int rs, int rt, unsigned16 immediate
2920 TRACE_ALU_INPUT2 (GPR[rs], EXTEND16 (immediate));
2921 GPR[rt] = ((signed_word) GPR[rs] < (signed_word) EXTEND16 (immediate));
2922 TRACE_ALU_RESULT (GPR[rt]);
2925 001010,5.RS,5.RT,16.IMMEDIATE:NORMAL:32::SLTI
2926 "slti r<RT>, r<RS>, <IMMEDIATE>"
2938 do_slti (SD_, RS, RT, IMMEDIATE);
2942 :function:::void:do_sltiu:int rs, int rt, unsigned16 immediate
2944 TRACE_ALU_INPUT2 (GPR[rs], EXTEND16 (immediate));
2945 GPR[rt] = ((unsigned_word) GPR[rs] < (unsigned_word) EXTEND16 (immediate));
2946 TRACE_ALU_RESULT (GPR[rt]);
2949 001011,5.RS,5.RT,16.IMMEDIATE:NORMAL:32::SLTIU
2950 "sltiu r<RT>, r<RS>, <IMMEDIATE>"
2962 do_sltiu (SD_, RS, RT, IMMEDIATE);
2967 :function:::void:do_sltu:int rs, int rt, int rd
2969 TRACE_ALU_INPUT2 (GPR[rs], GPR[rt]);
2970 GPR[rd] = ((unsigned_word) GPR[rs] < (unsigned_word) GPR[rt]);
2971 TRACE_ALU_RESULT (GPR[rd]);
2974 000000,5.RS,5.RT,5.RD,00000,101011:SPECIAL:32::SLTU
2975 "sltu r<RD>, r<RS>, r<RT>"
2987 do_sltu (SD_, RS, RT, RD);
2991 :function:::void:do_sra:int rt, int rd, int shift
2993 signed32 temp = (signed32) GPR[rt] >> shift;
2994 if (NotWordValue (GPR[rt]))
2996 TRACE_ALU_INPUT2 (GPR[rt], shift);
2997 GPR[rd] = EXTEND32 (temp);
2998 TRACE_ALU_RESULT (GPR[rd]);
3001 000000,00000,5.RT,5.RD,5.SHIFT,000011:SPECIAL:32::SRA
3002 "sra r<RD>, r<RT>, <SHIFT>"
3014 do_sra (SD_, RT, RD, SHIFT);
3019 :function:::void:do_srav:int rs, int rt, int rd
3021 int s = MASKED (GPR[rs], 4, 0);
3022 signed32 temp = (signed32) GPR[rt] >> s;
3023 if (NotWordValue (GPR[rt]))
3025 TRACE_ALU_INPUT2 (GPR[rt], s);
3026 GPR[rd] = EXTEND32 (temp);
3027 TRACE_ALU_RESULT (GPR[rd]);
3030 000000,5.RS,5.RT,5.RD,00000,000111:SPECIAL:32::SRAV
3031 "srav r<RD>, r<RT>, r<RS>"
3043 do_srav (SD_, RS, RT, RD);
3048 :function:::void:do_srl:int rt, int rd, int shift
3050 unsigned32 temp = (unsigned32) GPR[rt] >> shift;
3051 if (NotWordValue (GPR[rt]))
3053 TRACE_ALU_INPUT2 (GPR[rt], shift);
3054 GPR[rd] = EXTEND32 (temp);
3055 TRACE_ALU_RESULT (GPR[rd]);
3058 000000,00000,5.RT,5.RD,5.SHIFT,000010:SPECIAL:32::SRL
3059 "srl r<RD>, r<RT>, <SHIFT>"
3071 do_srl (SD_, RT, RD, SHIFT);
3075 :function:::void:do_srlv:int rs, int rt, int rd
3077 int s = MASKED (GPR[rs], 4, 0);
3078 unsigned32 temp = (unsigned32) GPR[rt] >> s;
3079 if (NotWordValue (GPR[rt]))
3081 TRACE_ALU_INPUT2 (GPR[rt], s);
3082 GPR[rd] = EXTEND32 (temp);
3083 TRACE_ALU_RESULT (GPR[rd]);
3086 000000,5.RS,5.RT,5.RD,00000,000110:SPECIAL:32::SRLV
3087 "srlv r<RD>, r<RT>, r<RS>"
3099 do_srlv (SD_, RS, RT, RD);
3103 000000,5.RS,5.RT,5.RD,00000,100010:SPECIAL:32::SUB
3104 "sub r<RD>, r<RS>, r<RT>"
3116 if (NotWordValue (GPR[RS]) || NotWordValue (GPR[RT]))
3118 TRACE_ALU_INPUT2 (GPR[RS], GPR[RT]);
3120 ALU32_BEGIN (GPR[RS]);
3121 ALU32_SUB (GPR[RT]);
3122 ALU32_END (GPR[RD]); /* This checks for overflow. */
3124 TRACE_ALU_RESULT (GPR[RD]);
3128 :function:::void:do_subu:int rs, int rt, int rd
3130 if (NotWordValue (GPR[rs]) || NotWordValue (GPR[rt]))
3132 TRACE_ALU_INPUT2 (GPR[rs], GPR[rt]);
3133 GPR[rd] = EXTEND32 (GPR[rs] - GPR[rt]);
3134 TRACE_ALU_RESULT (GPR[rd]);
3137 000000,5.RS,5.RT,5.RD,00000,100011:SPECIAL:32::SUBU
3138 "subu r<RD>, r<RS>, r<RT>"
3150 do_subu (SD_, RS, RT, RD);
3154 101011,5.BASE,5.RT,16.OFFSET:NORMAL:32::SW
3155 "sw r<RT>, <OFFSET>(r<BASE>)"
3167 do_store (SD_, AccessLength_WORD, GPR[BASE], EXTEND16 (OFFSET), GPR[RT]);
3171 1110,ZZ!0!1!3,5.BASE,5.RT,16.OFFSET:NORMAL:32::SWCz
3172 "swc<ZZ> r<RT>, <OFFSET>(r<BASE>)"
3184 do_store (SD_, AccessLength_WORD, GPR[BASE], EXTEND16 (OFFSET), COP_SW (ZZ, RT));
3188 101010,5.BASE,5.RT,16.OFFSET:NORMAL:32::SWL
3189 "swl r<RT>, <OFFSET>(r<BASE>)"
3201 do_store_left (SD_, AccessLength_WORD, GPR[BASE], EXTEND16 (OFFSET), GPR[RT]);
3205 101110,5.BASE,5.RT,16.OFFSET:NORMAL:32::SWR
3206 "swr r<RT>, <OFFSET>(r<BASE>)"
3218 do_store_right (SD_, AccessLength_WORD, GPR[BASE], EXTEND16 (OFFSET), GPR[RT]);
3222 000000,000000000000000,5.STYPE,001111:SPECIAL:32::SYNC
3235 SyncOperation (STYPE);
3239 000000,20.CODE,001100:SPECIAL:32::SYSCALL
3240 "syscall %#lx<CODE>"
3252 SignalException (SystemCall, instruction_0);
3256 000000,5.RS,5.RT,10.CODE,110100:SPECIAL:32::TEQ
3267 if ((signed_word) GPR[RS] == (signed_word) GPR[RT])
3268 SignalException (Trap, instruction_0);
3272 000001,5.RS,01100,16.IMMEDIATE:REGIMM:32::TEQI
3273 "teqi r<RS>, <IMMEDIATE>"
3283 if ((signed_word) GPR[RS] == (signed_word) EXTEND16 (IMMEDIATE))
3284 SignalException (Trap, instruction_0);
3288 000000,5.RS,5.RT,10.CODE,110000:SPECIAL:32::TGE
3299 if ((signed_word) GPR[RS] >= (signed_word) GPR[RT])
3300 SignalException (Trap, instruction_0);
3304 000001,5.RS,01000,16.IMMEDIATE:REGIMM:32::TGEI
3305 "tgei r<RS>, <IMMEDIATE>"
3315 if ((signed_word) GPR[RS] >= (signed_word) EXTEND16 (IMMEDIATE))
3316 SignalException (Trap, instruction_0);
3320 000001,5.RS,01001,16.IMMEDIATE:REGIMM:32::TGEIU
3321 "tgeiu r<RS>, <IMMEDIATE>"
3331 if ((unsigned_word) GPR[RS] >= (unsigned_word) EXTEND16 (IMMEDIATE))
3332 SignalException (Trap, instruction_0);
3336 000000,5.RS,5.RT,10.CODE,110001:SPECIAL:32::TGEU
3347 if ((unsigned_word) GPR[RS] >= (unsigned_word) GPR[RT])
3348 SignalException (Trap, instruction_0);
3352 000000,5.RS,5.RT,10.CODE,110010:SPECIAL:32::TLT
3363 if ((signed_word) GPR[RS] < (signed_word) GPR[RT])
3364 SignalException (Trap, instruction_0);
3368 000001,5.RS,01010,16.IMMEDIATE:REGIMM:32::TLTI
3369 "tlti r<RS>, <IMMEDIATE>"
3379 if ((signed_word) GPR[RS] < (signed_word) EXTEND16 (IMMEDIATE))
3380 SignalException (Trap, instruction_0);
3384 000001,5.RS,01011,16.IMMEDIATE:REGIMM:32::TLTIU
3385 "tltiu r<RS>, <IMMEDIATE>"
3395 if ((unsigned_word) GPR[RS] < (unsigned_word) EXTEND16 (IMMEDIATE))
3396 SignalException (Trap, instruction_0);
3400 000000,5.RS,5.RT,10.CODE,110011:SPECIAL:32::TLTU
3411 if ((unsigned_word) GPR[RS] < (unsigned_word) GPR[RT])
3412 SignalException (Trap, instruction_0);
3416 000000,5.RS,5.RT,10.CODE,110110:SPECIAL:32::TNE
3427 if ((signed_word) GPR[RS] != (signed_word) GPR[RT])
3428 SignalException (Trap, instruction_0);
3432 000001,5.RS,01110,16.IMMEDIATE:REGIMM:32::TNEI
3433 "tne r<RS>, <IMMEDIATE>"
3443 if ((signed_word) GPR[RS] != (signed_word) EXTEND16 (IMMEDIATE))
3444 SignalException (Trap, instruction_0);
3448 :function:::void:do_xor:int rs, int rt, int rd
3450 TRACE_ALU_INPUT2 (GPR[rs], GPR[rt]);
3451 GPR[rd] = GPR[rs] ^ GPR[rt];
3452 TRACE_ALU_RESULT (GPR[rd]);
3455 000000,5.RS,5.RT,5.RD,00000,100110:SPECIAL:32::XOR
3456 "xor r<RD>, r<RS>, r<RT>"
3468 do_xor (SD_, RS, RT, RD);
3472 :function:::void:do_xori:int rs, int rt, unsigned16 immediate
3474 TRACE_ALU_INPUT2 (GPR[rs], immediate);
3475 GPR[rt] = GPR[rs] ^ immediate;
3476 TRACE_ALU_RESULT (GPR[rt]);
3479 001110,5.RS,5.RT,16.IMMEDIATE:NORMAL:32::XORI
3480 "xori r<RT>, r<RS>, %#lx<IMMEDIATE>"
3492 do_xori (SD_, RS, RT, IMMEDIATE);
3497 // MIPS Architecture:
3499 // FPU Instruction Set (COP1 & COP1X)
3507 case fmt_single: return "s";
3508 case fmt_double: return "d";
3509 case fmt_word: return "w";
3510 case fmt_long: return "l";
3511 default: return "?";
3521 default: return "?";
3541 :%s::::COND:int cond
3545 case 00: return "f";
3546 case 01: return "un";
3547 case 02: return "eq";
3548 case 03: return "ueq";
3549 case 04: return "olt";
3550 case 05: return "ult";
3551 case 06: return "ole";
3552 case 07: return "ule";
3553 case 010: return "sf";
3554 case 011: return "ngle";
3555 case 012: return "seq";
3556 case 013: return "ngl";
3557 case 014: return "lt";
3558 case 015: return "nge";
3559 case 016: return "le";
3560 case 017: return "ngt";
3561 default: return "?";
3568 // Check that the given FPU format is usable, and signal a
3569 // ReservedInstruction exception if not.
3572 // check_fmt checks that the format is single or double.
3573 :function:::void:check_fmt:int fmt, instruction_word insn
3585 if ((fmt != fmt_single) && (fmt != fmt_double))
3586 SignalException (ReservedInstruction, insn);
3589 // check_fmt_p checks that the format is single, double, or paired single.
3590 :function:::void:check_fmt_p:int fmt, instruction_word insn
3600 /* None of these ISAs support Paired Single, so just fall back to
3601 the single/double check. */
3602 check_fmt (SD_, fmt, insn);
3605 :function:::void:check_fmt_p:int fmt, instruction_word insn
3609 #if 0 /* XXX FIXME: FP code doesn't yet support paired single ops. */
3610 if ((fmt != fmt_single) && (fmt != fmt_double)
3611 && (fmt != fmt_ps || (UserMode && (SR & (status_UX|status_PX)) == 0)))
3612 SignalException (ReservedInstruction, insn);
3614 check_fmt (SD_, fmt, insn);
3621 // Check that the FPU is currently usable, and signal a CoProcessorUnusable
3622 // exception if not.
3625 :function:::void:check_fpu:
3637 if (! COP_Usable (1))
3638 SignalExceptionCoProcessorUnusable (1);
3642 010001,10,3.FMT,00000,5.FS,5.FD,000101:COP1:32,f::ABS.fmt
3643 "abs.%s<FMT> f<FD>, f<FS>"
3657 check_fmt_p (SD_, fmt, instruction_0);
3658 StoreFPR(FD,fmt,AbsoluteValue(ValueFPR(FS,fmt),fmt));
3663 010001,10,3.FMT,5.FT,5.FS,5.FD,000000:COP1:32,f::ADD.fmt
3664 "add.%s<FMT> f<FD>, f<FS>, f<FT>"
3678 check_fmt_p (SD_, fmt, instruction_0);
3679 StoreFPR(FD,fmt,Add(ValueFPR(FS,fmt),ValueFPR(FT,fmt),fmt));
3689 010001,01000,3.0,1.ND,1.TF,16.OFFSET:COP1S:32,f::BC1a
3690 "bc1%s<TF>%s<ND> <OFFSET>"
3696 check_branch_bug ();
3697 TRACE_BRANCH_INPUT (PREVCOC1());
3698 if (PREVCOC1() == TF)
3700 address_word dest = NIA + (EXTEND16 (OFFSET) << 2);
3701 TRACE_BRANCH_RESULT (dest);
3702 mark_branch_bug (dest);
3707 TRACE_BRANCH_RESULT (0);
3708 NULLIFY_NEXT_INSTRUCTION ();
3712 TRACE_BRANCH_RESULT (NIA);
3716 010001,01000,3.CC,1.ND,1.TF,16.OFFSET:COP1S:32,f::BC1b
3717 "bc1%s<TF>%s<ND> <OFFSET>":CC == 0
3718 "bc1%s<TF>%s<ND> <CC>, <OFFSET>"
3728 check_branch_bug ();
3729 if (GETFCC(CC) == TF)
3731 address_word dest = NIA + (EXTEND16 (OFFSET) << 2);
3732 mark_branch_bug (dest);
3737 NULLIFY_NEXT_INSTRUCTION ();
3750 :function:::void:do_c_cond_fmt:int fmt, int ft, int fs, int cc, int cond, instruction_word insn
3756 unsigned64 ofs = ValueFPR (fs, fmt);
3757 unsigned64 oft = ValueFPR (ft, fmt);
3758 if (NaN (ofs, fmt) || NaN (oft, fmt))
3760 if (FCSR & FP_ENABLE (IO))
3762 FCSR |= FP_CAUSE (IO);
3763 SignalExceptionFPE ();
3771 less = Less (ofs, oft, fmt);
3772 equal = Equal (ofs, oft, fmt);
3775 condition = (((cond & (1 << 2)) && less)
3776 || ((cond & (1 << 1)) && equal)
3777 || ((cond & (1 << 0)) && unordered));
3778 SETFCC (cc, condition);
3781 010001,10,3.FMT,5.FT,5.FS,3.0,00,11,4.COND:COP1:32,f::C.cond.fmta
3782 "c.%s<COND>.%s<FMT> f<FS>, f<FT>"
3789 check_fmt_p (SD_, fmt, instruction_0);
3790 do_c_cond_fmt (SD_, fmt, FT, FS, 0, COND, instruction_0);
3793 010001,10,3.FMT,5.FT,5.FS,3.CC,00,11,4.COND:COP1:32,f::C.cond.fmtb
3794 "c.%s<COND>.%s<FMT> f<FS>, f<FT>":CC == 0
3795 "c.%s<COND>.%s<FMT> <CC>, f<FS>, f<FT>"
3806 check_fmt_p (SD_, fmt, instruction_0);
3807 do_c_cond_fmt (SD_, fmt, FT, FS, CC, COND, instruction_0);
3811 010001,10,3.FMT,00000,5.FS,5.FD,001010:COP1:64,f::CEIL.L.fmt
3812 "ceil.l.%s<FMT> f<FD>, f<FS>"
3823 check_fmt (SD_, fmt, instruction_0);
3824 StoreFPR(FD,fmt_long,Convert(FP_RM_TOPINF,ValueFPR(FS,fmt),fmt,fmt_long));
3828 010001,10,3.FMT,00000,5.FS,5.FD,001110:COP1:32,f::CEIL.W
3841 check_fmt (SD_, fmt, instruction_0);
3842 StoreFPR(FD,fmt_word,Convert(FP_RM_TOPINF,ValueFPR(FS,fmt),fmt,fmt_word));
3848 010001,00,X,10,5.RT,5.FS,00000000000:COP1Sa:32,f::CxC1
3849 "c%s<X>c1 r<RT>, f<FS>"
3858 PENDING_FILL(FCR0IDX,VL4_8(GPR[RT]));
3860 PENDING_FILL(FCR31IDX,VL4_8(GPR[RT]));
3862 PENDING_SCHED(FCSR, FCR31 & (1<<23), 1, 23);
3865 { /* control from */
3867 PENDING_FILL(RT, EXTEND32 (FCR0));
3869 PENDING_FILL(RT, EXTEND32 (FCR31));
3873 010001,00,X,10,5.RT,5.FS,00000000000:COP1Sb:32,f::CxC1
3874 "c%s<X>c1 r<RT>, f<FS>"
3887 TRACE_ALU_INPUT1 (GPR[RT]);
3890 FCR0 = VL4_8(GPR[RT]);
3891 TRACE_ALU_RESULT (FCR0);
3895 FCR31 = VL4_8(GPR[RT]);
3896 SETFCC(0,((FCR31 & (1 << 23)) ? 1 : 0));
3897 TRACE_ALU_RESULT (FCR31);
3901 TRACE_ALU_RESULT0 ();
3906 { /* control from */
3909 TRACE_ALU_INPUT1 (FCR0);
3910 GPR[RT] = EXTEND32 (FCR0);
3914 TRACE_ALU_INPUT1 (FCR31);
3915 GPR[RT] = EXTEND32 (FCR31);
3917 TRACE_ALU_RESULT (GPR[RT]);
3924 // FIXME: Does not correctly differentiate between mips*
3926 010001,10,3.FMT,00000,5.FS,5.FD,100001:COP1:32,f::CVT.D.fmt
3927 "cvt.d.%s<FMT> f<FD>, f<FS>"
3942 if ((fmt == fmt_double) | 0)
3943 SignalException (ReservedInstruction, instruction_0);
3945 StoreFPR(FD,fmt_double,Convert(GETRM(),ValueFPR(FS,fmt),fmt,fmt_double));
3950 010001,10,3.FMT,00000,5.FS,5.FD,100101:COP1:64,f::CVT.L.fmt
3951 "cvt.l.%s<FMT> f<FD>, f<FS>"
3963 if ((fmt == fmt_long) | ((fmt == fmt_long) || (fmt == fmt_word)))
3964 SignalException (ReservedInstruction, instruction_0);
3966 StoreFPR(FD,fmt_long,Convert(GETRM(),ValueFPR(FS,fmt),fmt,fmt_long));
3972 // FIXME: Does not correctly differentiate between mips*
3974 010001,10,3.FMT,00000,5.FS,5.FD,100000:COP1:32,f::CVT.S.fmt
3975 "cvt.s.%s<FMT> f<FD>, f<FS>"
3990 if ((fmt == fmt_single) | 0)
3991 SignalException (ReservedInstruction, instruction_0);
3993 StoreFPR(FD,fmt_single,Convert(GETRM(),ValueFPR(FS,fmt),fmt,fmt_single));
3998 010001,10,3.FMT,00000,5.FS,5.FD,100100:COP1:32,f::CVT.W.fmt
3999 "cvt.w.%s<FMT> f<FD>, f<FS>"
4014 if ((fmt == fmt_word) | ((fmt == fmt_long) || (fmt == fmt_word)))
4015 SignalException (ReservedInstruction, instruction_0);
4017 StoreFPR(FD,fmt_word,Convert(GETRM(),ValueFPR(FS,fmt),fmt,fmt_word));
4022 010001,10,3.FMT,5.FT,5.FS,5.FD,000011:COP1:32,f::DIV.fmt
4023 "div.%s<FMT> f<FD>, f<FS>, f<FT>"
4037 check_fmt (SD_, fmt, instruction_0);
4038 StoreFPR(FD,fmt,Divide(ValueFPR(FS,fmt),ValueFPR(FT,fmt),fmt));
4044 010001,00,X,01,5.RT,5.FS,00000000000:COP1Sa:64,f::DMxC1
4045 "dm%s<X>c1 r<RT>, f<FS>"
4049 check_u64 (SD_, instruction_0);
4052 if (SizeFGR() == 64)
4053 PENDING_FILL((FS + FGRIDX),GPR[RT]);
4054 else if ((FS & 0x1) == 0)
4056 PENDING_FILL(((FS + 1) + FGRIDX),VH4_8(GPR[RT]));
4057 PENDING_FILL((FS + FGRIDX),VL4_8(GPR[RT]));
4062 if (SizeFGR() == 64)
4063 PENDING_FILL(RT,FGR[FS]);
4064 else if ((FS & 0x1) == 0)
4065 PENDING_FILL(RT,(SET64HI(FGR[FS+1]) | FGR[FS]));
4068 if (STATE_VERBOSE_P(SD))
4070 "Warning: PC 0x%lx: semantic_DMxC1_COP1Sa 32-bit use of odd FPR number\n",
4072 PENDING_FILL(RT,SET64HI(0xDEADC0DE) | 0xBAD0BAD0);
4076 010001,00,X,01,5.RT,5.FS,00000000000:COP1Sb:64,f::DMxC1
4077 "dm%s<X>c1 r<RT>, f<FS>"
4086 check_u64 (SD_, instruction_0);
4089 if (SizeFGR() == 64)
4090 StoreFPR (FS, fmt_uninterpreted_64, GPR[RT]);
4091 else if ((FS & 0x1) == 0)
4092 StoreFPR (FS, fmt_uninterpreted_64, SET64HI (FGR[FS+1]) | FGR[FS]);
4096 if (SizeFGR() == 64)
4098 else if ((FS & 0x1) == 0)
4099 GPR[RT] = SET64HI (FGR[FS+1]) | FGR[FS];
4102 if (STATE_VERBOSE_P(SD))
4104 "Warning: PC 0x%lx: DMxC1 32-bit use of odd FPR number\n",
4106 GPR[RT] = SET64HI (0xDEADC0DE) | 0xBAD0BAD0;
4112 010001,10,3.FMT,00000,5.FS,5.FD,001011:COP1:64,f::FLOOR.L.fmt
4113 "floor.l.%s<FMT> f<FD>, f<FS>"
4124 check_fmt (SD_, fmt, instruction_0);
4125 StoreFPR(FD,fmt_long,Convert(FP_RM_TOMINF,ValueFPR(FS,fmt),fmt,fmt_long));
4129 010001,10,3.FMT,00000,5.FS,5.FD,001111:COP1:32,f::FLOOR.W.fmt
4130 "floor.w.%s<FMT> f<FD>, f<FS>"
4143 check_fmt (SD_, fmt, instruction_0);
4144 StoreFPR(FD,fmt_word,Convert(FP_RM_TOMINF,ValueFPR(FS,fmt),fmt,fmt_word));
4148 110101,5.BASE,5.FT,16.OFFSET:COP1:32,f::LDC1
4149 "ldc1 f<FT>, <OFFSET>(r<BASE>)"
4161 COP_LD (1, FT, do_load (SD_, AccessLength_DOUBLEWORD, GPR[BASE], EXTEND16 (OFFSET)));
4165 010011,5.BASE,5.INDEX,5.0,5.FD,000001:COP1X:64,f::LDXC1
4166 "ldxc1 f<FD>, r<INDEX>(r<BASE>)"
4173 check_u64 (SD_, instruction_0);
4174 COP_LD (1, FD, do_load (SD_, AccessLength_DOUBLEWORD, GPR[BASE], GPR[INDEX]));
4179 110001,5.BASE,5.FT,16.OFFSET:COP1:32,f::LWC1
4180 "lwc1 f<FT>, <OFFSET>(r<BASE>)"
4193 COP_LW (1, FT, do_load (SD_, AccessLength_WORD, GPR[BASE], EXTEND16 (OFFSET)));
4197 010011,5.BASE,5.INDEX,5.0,5.FD,000000:COP1X:64,f::LWXC1
4198 "lwxc1 f<FD>, r<INDEX>(r<BASE>)"
4205 check_u64 (SD_, instruction_0);
4206 COP_LW (1, FD, do_load (SD_, AccessLength_WORD, GPR[BASE], GPR[INDEX]));
4212 // FIXME: Not correct for mips*
4214 010011,5.FR,5.FT,5.FS,5.FD,100,001:COP1X:32,f::MADD.D
4215 "madd.d f<FD>, f<FR>, f<FS>, f<FT>"
4223 StoreFPR(FD,fmt_double,Add(Multiply(ValueFPR(FS,fmt_double),ValueFPR(FT,fmt_double),fmt_double),ValueFPR(FR,fmt_double),fmt_double));
4228 010011,5.FR,5.FT,5.FS,5.FD,100,000:COP1X:32,f::MADD.S
4229 "madd.s f<FD>, f<FR>, f<FS>, f<FT>"
4237 StoreFPR(FD,fmt_single,Add(Multiply(ValueFPR(FS,fmt_single),ValueFPR(FT,fmt_single),fmt_single),ValueFPR(FR,fmt_single),fmt_single));
4244 010001,00,X,00,5.RT,5.FS,00000000000:COP1Sa:32,f::MxC1
4245 "m%s<X>c1 r<RT>, f<FS>"
4253 if (SizeFGR() == 64)
4255 if (STATE_VERBOSE_P(SD))
4257 "Warning: PC 0x%lx: MTC1 not DMTC1 with 64 bit regs\n",
4259 PENDING_FILL ((FS + FGRIDX), (SET64HI(0xDEADC0DE) | VL4_8(GPR[RT])));
4262 PENDING_FILL ((FS + FGRIDX), VL4_8(GPR[RT]));
4265 PENDING_FILL (RT, EXTEND32 (FGR[FS]));
4267 010001,00,X,00,5.RT,5.FS,00000000000:COP1Sb:32,f::MxC1
4268 "m%s<X>c1 r<RT>, f<FS>"
4281 StoreFPR (FS, fmt_uninterpreted_32, VL4_8 (GPR[RT]));
4283 GPR[RT] = EXTEND32 (FGR[FS]);
4287 010001,10,3.FMT,00000,5.FS,5.FD,000110:COP1:32,f::MOV.fmt
4288 "mov.%s<FMT> f<FD>, f<FS>"
4302 check_fmt_p (SD_, fmt, instruction_0);
4303 StoreFPR(FD,fmt,ValueFPR(FS,fmt));
4309 000000,5.RS,3.CC,0,1.TF,5.RD,00000,000001:SPECIAL:32,f::MOVtf
4310 "mov%s<TF> r<RD>, r<RS>, <CC>"
4318 if (GETFCC(CC) == TF)
4325 010001,10,3.FMT,3.CC,0,1.TF,5.FS,5.FD,010001:COP1:32,f::MOVtf.fmt
4326 "mov%s<TF>.%s<FMT> f<FD>, f<FS>, <CC>"
4336 if (GETFCC(CC) == TF)
4337 StoreFPR (FD, fmt, ValueFPR (FS, fmt));
4339 StoreFPR (FD, fmt, ValueFPR (FD, fmt));
4344 010001,10,3.FMT,5.RT,5.FS,5.FD,010011:COP1:32,f::MOVN.fmt
4345 "movn.%s<FMT> f<FD>, f<FS>, r<RT>"
4354 StoreFPR (FD, FMT, ValueFPR (FS, FMT));
4356 StoreFPR (FD, FMT, ValueFPR (FD, FMT));
4363 // MOVT.fmt see MOVtf.fmt
4367 010001,10,3.FMT,5.RT,5.FS,5.FD,010010:COP1:32,f::MOVZ.fmt
4368 "movz.%s<FMT> f<FD>, f<FS>, r<RT>"
4377 StoreFPR (FD, FMT, ValueFPR (FS, FMT));
4379 StoreFPR (FD, FMT, ValueFPR (FD, FMT));
4384 010011,5.FR,5.FT,5.FS,5.FD,101,001:COP1X:32,f::MSUB.D
4385 "msub.d f<FD>, f<FR>, f<FS>, f<FT>"
4392 StoreFPR(FD,fmt_double,Sub(Multiply(ValueFPR(FS,fmt_double),ValueFPR(FT,fmt_double),fmt_double),ValueFPR(FR,fmt_double),fmt_double));
4397 010011,5.FR,5.FT,5.FS,5.FD,101000:COP1X:32,f::MSUB.S
4398 "msub.s f<FD>, f<FR>, f<FS>, f<FT>"
4405 StoreFPR(FD,fmt_single,Sub(Multiply(ValueFPR(FS,fmt_single),ValueFPR(FT,fmt_single),fmt_single),ValueFPR(FR,fmt_single),fmt_single));
4412 010001,10,3.FMT,5.FT,5.FS,5.FD,000010:COP1:32,f::MUL.fmt
4413 "mul.%s<FMT> f<FD>, f<FS>, f<FT>"
4427 check_fmt_p (SD_, fmt, instruction_0);
4428 StoreFPR(FD,fmt,Multiply(ValueFPR(FS,fmt),ValueFPR(FT,fmt),fmt));
4432 010001,10,3.FMT,00000,5.FS,5.FD,000111:COP1:32,f::NEG.fmt
4433 "neg.%s<FMT> f<FD>, f<FS>"
4447 check_fmt_p (SD_, fmt, instruction_0);
4448 StoreFPR(FD,fmt,Negate(ValueFPR(FS,fmt),fmt));
4453 010011,5.FR,5.FT,5.FS,5.FD,110001:COP1X:32,f::NMADD.D
4454 "nmadd.d f<FD>, f<FR>, f<FS>, f<FT>"
4461 StoreFPR(FD,fmt_double,Negate(Add(Multiply(ValueFPR(FS,fmt_double),ValueFPR(FT,fmt_double),fmt_double),ValueFPR(FR,fmt_double),fmt_double),fmt_double));
4466 010011,5.FR,5.FT,5.FS,5.FD,110000:COP1X:32,f::NMADD.S
4467 "nmadd.s f<FD>, f<FR>, f<FS>, f<FT>"
4474 StoreFPR(FD,fmt_single,Negate(Add(Multiply(ValueFPR(FS,fmt_single),ValueFPR(FT,fmt_single),fmt_single),ValueFPR(FR,fmt_single),fmt_single),fmt_single));
4479 010011,5.FR,5.FT,5.FS,5.FD,111001:COP1X:32,f::NMSUB.D
4480 "nmsub.d f<FD>, f<FR>, f<FS>, f<FT>"
4487 StoreFPR(FD,fmt_double,Negate(Sub(Multiply(ValueFPR(FS,fmt_double),ValueFPR(FT,fmt_double),fmt_double),ValueFPR(FR,fmt_double),fmt_double),fmt_double));
4492 010011,5.FR,5.FT,5.FS,5.FD,111000:COP1X:32,f::NMSUB.S
4493 "nmsub.s f<FD>, f<FR>, f<FS>, f<FT>"
4500 StoreFPR(FD,fmt_single,Negate(Sub(Multiply(ValueFPR(FS,fmt_single),ValueFPR(FT,fmt_single),fmt_single),ValueFPR(FR,fmt_single),fmt_single),fmt_single));
4504 010011,5.BASE,5.INDEX,5.HINT,00000,001111:COP1X:64::PREFX
4505 "prefx <HINT>, r<INDEX>(r<BASE>)"
4511 address_word base = GPR[BASE];
4512 address_word index = GPR[INDEX];
4514 address_word vaddr = loadstore_ea (SD_, base, index);
4517 if (AddressTranslation(vaddr,isDATA,isLOAD,&paddr,&uncached,isTARGET,isREAL))
4518 Prefetch(uncached,paddr,vaddr,isDATA,HINT);
4522 010001,10,3.FMT,00000,5.FS,5.FD,010101:COP1:32,f::RECIP.fmt
4523 "recip.%s<FMT> f<FD>, f<FS>"
4531 check_fmt (SD_, fmt, instruction_0);
4532 StoreFPR(FD,fmt,Recip(ValueFPR(FS,fmt),fmt));
4536 010001,10,3.FMT,00000,5.FS,5.FD,001000:COP1:64,f::ROUND.L.fmt
4537 "round.l.%s<FMT> f<FD>, f<FS>"
4548 check_fmt (SD_, fmt, instruction_0);
4549 StoreFPR(FD,fmt_long,Convert(FP_RM_NEAREST,ValueFPR(FS,fmt),fmt,fmt_long));
4553 010001,10,3.FMT,00000,5.FS,5.FD,001100:COP1:32,f::ROUND.W.fmt
4554 "round.w.%s<FMT> f<FD>, f<FS>"
4567 check_fmt (SD_, fmt, instruction_0);
4568 StoreFPR(FD,fmt_word,Convert(FP_RM_NEAREST,ValueFPR(FS,fmt),fmt,fmt_word));
4572 010001,10,3.FMT,00000,5.FS,5.FD,010110:COP1:32,f::RSQRT.fmt
4576 "rsqrt.%s<FMT> f<FD>, f<FS>"
4581 check_fmt (SD_, fmt, instruction_0);
4582 StoreFPR(FD,fmt,Recip(SquareRoot(ValueFPR(FS,fmt),fmt),fmt));
4586 111101,5.BASE,5.FT,16.OFFSET:COP1:32,f::SDC1
4587 "sdc1 f<FT>, <OFFSET>(r<BASE>)"
4599 do_store (SD_, AccessLength_DOUBLEWORD, GPR[BASE], EXTEND16 (OFFSET), COP_SD (1, FT));
4603 010011,5.BASE,5.INDEX,5.FS,00000001001:COP1X:64,f::SDXC1
4604 "sdxc1 f<FS>, r<INDEX>(r<BASE>)"
4611 check_u64 (SD_, instruction_0);
4612 do_store (SD_, AccessLength_DOUBLEWORD, GPR[BASE], GPR[INDEX], COP_SD (1, FS));
4616 010001,10,3.FMT,00000,5.FS,5.FD,000100:COP1:32,f::SQRT.fmt
4617 "sqrt.%s<FMT> f<FD>, f<FS>"
4630 check_fmt (SD_, fmt, instruction_0);
4631 StoreFPR(FD,fmt,(SquareRoot(ValueFPR(FS,fmt),fmt)));
4635 010001,10,3.FMT,5.FT,5.FS,5.FD,000001:COP1:32,f::SUB.fmt
4636 "sub.%s<FMT> f<FD>, f<FS>, f<FT>"
4650 check_fmt_p (SD_, fmt, instruction_0);
4651 StoreFPR(FD,fmt,Sub(ValueFPR(FS,fmt),ValueFPR(FT,fmt),fmt));
4656 111001,5.BASE,5.FT,16.OFFSET:COP1:32,f::SWC1
4657 "swc1 f<FT>, <OFFSET>(r<BASE>)"
4669 address_word base = GPR[BASE];
4670 address_word offset = EXTEND16 (OFFSET);
4673 address_word vaddr = loadstore_ea (SD_, base, offset);
4676 if ((vaddr & 3) != 0)
4678 SIM_CORE_SIGNAL (SD, CPU, cia, read_map, AccessLength_WORD+1, vaddr, write_transfer, sim_core_unaligned_signal);
4682 if (AddressTranslation(vaddr,isDATA,isSTORE,&paddr,&uncached,isTARGET,isREAL))
4685 uword64 memval1 = 0;
4686 uword64 mask = (WITH_TARGET_WORD_BITSIZE == 64 ? 0x7 : 0x3);
4687 address_word reverseendian = (ReverseEndian ?(mask ^ AccessLength_WORD): 0);
4688 address_word bigendiancpu = (BigEndianCPU ?(mask ^ AccessLength_WORD): 0);
4690 paddr = ((paddr & ~mask) | ((paddr & mask) ^ reverseendian));
4691 byte = ((vaddr & mask) ^ bigendiancpu);
4692 memval = (((uword64)COP_SW(((instruction_0 >> 26) & 0x3),FT)) << (8 * byte));
4693 StoreMemory(uncached,AccessLength_WORD,memval,memval1,paddr,vaddr,isREAL);
4700 010011,5.BASE,5.INDEX,5.FS,00000,001000:COP1X:32,f::SWXC1
4701 "swxc1 f<FS>, r<INDEX>(r<BASE>)"
4708 address_word base = GPR[BASE];
4709 address_word index = GPR[INDEX];
4711 check_u64 (SD_, instruction_0);
4713 address_word vaddr = loadstore_ea (SD_, base, index);
4716 if ((vaddr & 3) != 0)
4718 SIM_CORE_SIGNAL (SD, CPU, cia, read_map, 4, vaddr, write_transfer, sim_core_unaligned_signal);
4722 if (AddressTranslation(vaddr,isDATA,isSTORE,&paddr,&uncached,isTARGET,isREAL))
4724 unsigned64 memval = 0;
4725 unsigned64 memval1 = 0;
4726 unsigned64 mask = 0x7;
4728 paddr = ((paddr & ~mask) | ((paddr & mask) ^ (ReverseEndian << 2)));
4729 byte = ((vaddr & mask) ^ (BigEndianCPU << 2));
4730 memval = (((unsigned64)COP_SW(1,FS)) << (8 * byte));
4732 StoreMemory(uncached,AccessLength_WORD,memval,memval1,paddr,vaddr,isREAL);
4740 010001,10,3.FMT,00000,5.FS,5.FD,001001:COP1:64,f::TRUNC.L.fmt
4741 "trunc.l.%s<FMT> f<FD>, f<FS>"
4752 check_fmt (SD_, fmt, instruction_0);
4753 StoreFPR(FD,fmt_long,Convert(FP_RM_TOZERO,ValueFPR(FS,fmt),fmt,fmt_long));
4757 010001,10,3.FMT,00000,5.FS,5.FD,001101:COP1:32,f::TRUNC.W
4758 "trunc.w.%s<FMT> f<FD>, f<FS>"
4771 check_fmt (SD_, fmt, instruction_0);
4772 StoreFPR(FD,fmt_word,Convert(FP_RM_TOZERO,ValueFPR(FS,fmt),fmt,fmt_word));
4777 // MIPS Architecture:
4779 // System Control Instruction Set (COP0)
4783 010000,01000,00000,16.OFFSET:COP0:32::BC0F
4795 010000,01000,00000,16.OFFSET:COP0:32::BC0F
4797 // stub needed for eCos as tx39 hardware bug workaround
4804 010000,01000,00010,16.OFFSET:COP0:32::BC0FL
4817 010000,01000,00001,16.OFFSET:COP0:32::BC0T
4829 010000,01000,00011,16.OFFSET:COP0:32::BC0TL
4842 101111,5.BASE,5.OP,16.OFFSET:NORMAL:32::CACHE
4843 "cache <OP>, <OFFSET>(r<BASE>)"
4853 address_word base = GPR[BASE];
4854 address_word offset = EXTEND16 (OFFSET);
4856 address_word vaddr = loadstore_ea (SD_, base, offset);
4859 if (AddressTranslation(vaddr,isDATA,isLOAD,&paddr,&uncached,isTARGET,isREAL))
4860 CacheOp(OP,vaddr,paddr,instruction_0);
4865 010000,1,0000000000000000000,111001:COP0:32::DI
4876 010000,00001,5.RT,5.RD,00000000000:COP0:64::DMFC0
4877 "dmfc0 r<RT>, r<RD>"
4883 check_u64 (SD_, instruction_0);
4884 DecodeCoproc (instruction_0);
4888 010000,00101,5.RT,5.RD,00000000000:COP0:64::DMTC0
4889 "dmtc0 r<RT>, r<RD>"
4895 check_u64 (SD_, instruction_0);
4896 DecodeCoproc (instruction_0);
4900 010000,1,0000000000000000000,111000:COP0:32::EI
4912 010000,1,0000000000000000000,011000:COP0:32::ERET
4922 if (SR & status_ERL)
4924 /* Oops, not yet available */
4925 sim_io_printf (SD, "Warning: ERET when SR[ERL] set not supported");
4937 010000,00000,5.RT,5.RD,00000,6.REGX:COP0:32::MFC0
4938 "mfc0 r<RT>, r<RD> # <REGX>"
4950 TRACE_ALU_INPUT0 ();
4951 DecodeCoproc (instruction_0);
4952 TRACE_ALU_RESULT (GPR[RT]);
4955 010000,00100,5.RT,5.RD,00000,6.REGX:COP0:32::MTC0
4956 "mtc0 r<RT>, r<RD> # <REGX>"
4968 DecodeCoproc (instruction_0);
4972 010000,1,0000000000000000000,010000:COP0:32::RFE
4983 DecodeCoproc (instruction_0);
4987 0100,ZZ!0!1!3,5.COP_FUN0!8,5.COP_FUN1,16.COP_FUN2:NORMAL:32::COPz
4988 "cop<ZZ> <COP_FUN0><COP_FUN1><COP_FUN2>"
4999 DecodeCoproc (instruction_0);
5004 010000,1,0000000000000000000,001000:COP0:32::TLBP
5017 010000,1,0000000000000000000,000001:COP0:32::TLBR
5030 010000,1,0000000000000000000,000010:COP0:32::TLBWI
5043 010000,1,0000000000000000000,000110:COP0:32::TLBWR