sim/fr30/sem.c

   1 // OBSOLETE /* Simulator instruction semantics for fr30bf.
   2 // OBSOLETE
   3 // OBSOLETE THIS FILE IS MACHINE GENERATED WITH CGEN.
   4 // OBSOLETE
   5 // OBSOLETE Copyright 1996, 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
   6 // OBSOLETE
   7 // OBSOLETE This file is part of the GNU simulators.
   8 // OBSOLETE
   9 // OBSOLETE This program is free software; you can redistribute it and/or modify
  10 // OBSOLETE it under the terms of the GNU General Public License as published by
  11 // OBSOLETE the Free Software Foundation; either version 2, or (at your option)
  12 // OBSOLETE any later version.
  13 // OBSOLETE
  14 // OBSOLETE This program is distributed in the hope that it will be useful,
  15 // OBSOLETE but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 // OBSOLETE MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 // OBSOLETE GNU General Public License for more details.
  18 // OBSOLETE
  19 // OBSOLETE You should have received a copy of the GNU General Public License along
  20 // OBSOLETE with this program; if not, write to the Free Software Foundation, Inc.,
  21 // OBSOLETE 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  22 // OBSOLETE
  23 // OBSOLETE */
  24 // OBSOLETE
  25 // OBSOLETE #define WANT_CPU fr30bf
  26 // OBSOLETE #define WANT_CPU_FR30BF
  27 // OBSOLETE
  28 // OBSOLETE #include "sim-main.h"
  29 // OBSOLETE #include "cgen-mem.h"
  30 // OBSOLETE #include "cgen-ops.h"
  31 // OBSOLETE
  32 // OBSOLETE #undef GET_ATTR
  33 // OBSOLETE #if defined (__STDC__) || defined (ALMOST_STDC) || defined (HAVE_STRINGIZE)
  34 // OBSOLETE #define GET_ATTR(cpu, num, attr) CGEN_ATTR_VALUE (NULL, abuf->idesc->attrs, CGEN_INSN_##attr)
  35 // OBSOLETE #else
  36 // OBSOLETE #define GET_ATTR(cpu, num, attr) CGEN_ATTR_VALUE (NULL, abuf->idesc->attrs, CGEN_INSN_/**/attr)
  37 // OBSOLETE #endif
  38 // OBSOLETE
  39 // OBSOLETE /* This is used so that we can compile two copies of the semantic code,
  40 // OBSOLETE    one with full feature support and one without that runs fast(er).
  41 // OBSOLETE    FAST_P, when desired, is defined on the command line, -DFAST_P=1.  */
  42 // OBSOLETE #if FAST_P
  43 // OBSOLETE #define SEM_FN_NAME(cpu,fn) XCONCAT3 (cpu,_semf_,fn)
  44 // OBSOLETE #undef TRACE_RESULT
  45 // OBSOLETE #define TRACE_RESULT(cpu, abuf, name, type, val)
  46 // OBSOLETE #else
  47 // OBSOLETE #define SEM_FN_NAME(cpu,fn) XCONCAT3 (cpu,_sem_,fn)
  48 // OBSOLETE #endif
  49 // OBSOLETE
  50 // OBSOLETE /* x-invalid: --invalid-- */
  51 // OBSOLETE
  52 // OBSOLETE static SEM_PC
  53 // OBSOLETE SEM_FN_NAME (fr30bf,x_invalid) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
  54 // OBSOLETE {
  55 // OBSOLETE #define FLD(f) abuf->fields.fmt_empty.f
  56 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
  57 // OBSOLETE   int UNUSED written = 0;
  58 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
  59 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 0);
  60 // OBSOLETE
  61 // OBSOLETE   {
  62 // OBSOLETE     /* Update the recorded pc in the cpu state struct.
  63 // OBSOLETE        Only necessary for WITH_SCACHE case, but to avoid the
  64 // OBSOLETE        conditional compilation ....  */
  65 // OBSOLETE     SET_H_PC (pc);
  66 // OBSOLETE     /* Virtual insns have zero size.  Overwrite vpc with address of next insn
  67 // OBSOLETE        using the default-insn-bitsize spec.  When executing insns in parallel
  68 // OBSOLETE        we may want to queue the fault and continue execution.  */
  69 // OBSOLETE     vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
  70 // OBSOLETE     vpc = sim_engine_invalid_insn (current_cpu, pc, vpc);
  71 // OBSOLETE   }
  72 // OBSOLETE
  73 // OBSOLETE   return vpc;
  74 // OBSOLETE #undef FLD
  75 // OBSOLETE }
  76 // OBSOLETE
  77 // OBSOLETE /* x-after: --after-- */
  78 // OBSOLETE
  79 // OBSOLETE static SEM_PC
  80 // OBSOLETE SEM_FN_NAME (fr30bf,x_after) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
  81 // OBSOLETE {
  82 // OBSOLETE #define FLD(f) abuf->fields.fmt_empty.f
  83 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
  84 // OBSOLETE   int UNUSED written = 0;
  85 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
  86 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 0);
  87 // OBSOLETE
  88 // OBSOLETE   {
  89 // OBSOLETE #if WITH_SCACHE_PBB_FR30BF
  90 // OBSOLETE     fr30bf_pbb_after (current_cpu, sem_arg);
  91 // OBSOLETE #endif
  92 // OBSOLETE   }
  93 // OBSOLETE
  94 // OBSOLETE   return vpc;
  95 // OBSOLETE #undef FLD
  96 // OBSOLETE }
  97 // OBSOLETE
  98 // OBSOLETE /* x-before: --before-- */
  99 // OBSOLETE
 100 // OBSOLETE static SEM_PC
 101 // OBSOLETE SEM_FN_NAME (fr30bf,x_before) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
 102 // OBSOLETE {
 103 // OBSOLETE #define FLD(f) abuf->fields.fmt_empty.f
 104 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
 105 // OBSOLETE   int UNUSED written = 0;
 106 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
 107 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 0);
 108 // OBSOLETE
 109 // OBSOLETE   {
 110 // OBSOLETE #if WITH_SCACHE_PBB_FR30BF
 111 // OBSOLETE     fr30bf_pbb_before (current_cpu, sem_arg);
 112 // OBSOLETE #endif
 113 // OBSOLETE   }
 114 // OBSOLETE
 115 // OBSOLETE   return vpc;
 116 // OBSOLETE #undef FLD
 117 // OBSOLETE }
 118 // OBSOLETE
 119 // OBSOLETE /* x-cti-chain: --cti-chain-- */
 120 // OBSOLETE
 121 // OBSOLETE static SEM_PC
 122 // OBSOLETE SEM_FN_NAME (fr30bf,x_cti_chain) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
 123 // OBSOLETE {
 124 // OBSOLETE #define FLD(f) abuf->fields.fmt_empty.f
 125 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
 126 // OBSOLETE   int UNUSED written = 0;
 127 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
 128 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 0);
 129 // OBSOLETE
 130 // OBSOLETE   {
 131 // OBSOLETE #if WITH_SCACHE_PBB_FR30BF
 132 // OBSOLETE #ifdef DEFINE_SWITCH
 133 // OBSOLETE     vpc = fr30bf_pbb_cti_chain (current_cpu, sem_arg,
 134 // OBSOLETE                            pbb_br_type, pbb_br_npc);
 135 // OBSOLETE     BREAK (sem);
 136 // OBSOLETE #else
 137 // OBSOLETE     /* FIXME: Allow provision of explicit ifmt spec in insn spec.  */
 138 // OBSOLETE     vpc = fr30bf_pbb_cti_chain (current_cpu, sem_arg,
 139 // OBSOLETE                            CPU_PBB_BR_TYPE (current_cpu),
 140 // OBSOLETE                            CPU_PBB_BR_NPC (current_cpu));
 141 // OBSOLETE #endif
 142 // OBSOLETE #endif
 143 // OBSOLETE   }
 144 // OBSOLETE
 145 // OBSOLETE   return vpc;
 146 // OBSOLETE #undef FLD
 147 // OBSOLETE }
 148 // OBSOLETE
 149 // OBSOLETE /* x-chain: --chain-- */
 150 // OBSOLETE
 151 // OBSOLETE static SEM_PC
 152 // OBSOLETE SEM_FN_NAME (fr30bf,x_chain) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
 153 // OBSOLETE {
 154 // OBSOLETE #define FLD(f) abuf->fields.fmt_empty.f
 155 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
 156 // OBSOLETE   int UNUSED written = 0;
 157 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
 158 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 0);
 159 // OBSOLETE
 160 // OBSOLETE   {
 161 // OBSOLETE #if WITH_SCACHE_PBB_FR30BF
 162 // OBSOLETE     vpc = fr30bf_pbb_chain (current_cpu, sem_arg);
 163 // OBSOLETE #ifdef DEFINE_SWITCH
 164 // OBSOLETE     BREAK (sem);
 165 // OBSOLETE #endif
 166 // OBSOLETE #endif
 167 // OBSOLETE   }
 168 // OBSOLETE
 169 // OBSOLETE   return vpc;
 170 // OBSOLETE #undef FLD
 171 // OBSOLETE }
 172 // OBSOLETE
 173 // OBSOLETE /* x-begin: --begin-- */
 174 // OBSOLETE
 175 // OBSOLETE static SEM_PC
 176 // OBSOLETE SEM_FN_NAME (fr30bf,x_begin) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
 177 // OBSOLETE {
 178 // OBSOLETE #define FLD(f) abuf->fields.fmt_empty.f
 179 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
 180 // OBSOLETE   int UNUSED written = 0;
 181 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
 182 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 0);
 183 // OBSOLETE
 184 // OBSOLETE   {
 185 // OBSOLETE #if WITH_SCACHE_PBB_FR30BF
 186 // OBSOLETE #if defined DEFINE_SWITCH || defined FAST_P
 187 // OBSOLETE     /* In the switch case FAST_P is a constant, allowing several optimizations
 188 // OBSOLETE        in any called inline functions.  */
 189 // OBSOLETE     vpc = fr30bf_pbb_begin (current_cpu, FAST_P);
 190 // OBSOLETE #else
 191 // OBSOLETE #if 0 /* cgen engine can't handle dynamic fast/full switching yet.  */
 192 // OBSOLETE     vpc = fr30bf_pbb_begin (current_cpu, STATE_RUN_FAST_P (CPU_STATE (current_cpu)));
 193 // OBSOLETE #else
 194 // OBSOLETE     vpc = fr30bf_pbb_begin (current_cpu, 0);
 195 // OBSOLETE #endif
 196 // OBSOLETE #endif
 197 // OBSOLETE #endif
 198 // OBSOLETE   }
 199 // OBSOLETE
 200 // OBSOLETE   return vpc;
 201 // OBSOLETE #undef FLD
 202 // OBSOLETE }
 203 // OBSOLETE
 204 // OBSOLETE /* add: add $Rj,$Ri */
 205 // OBSOLETE
 206 // OBSOLETE static SEM_PC
 207 // OBSOLETE SEM_FN_NAME (fr30bf,add) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
 208 // OBSOLETE {
 209 // OBSOLETE #define FLD(f) abuf->fields.sfmt_add.f
 210 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
 211 // OBSOLETE   int UNUSED written = 0;
 212 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
 213 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
 214 // OBSOLETE
 215 // OBSOLETE {
 216 // OBSOLETE   {
 217 // OBSOLETE     BI opval = ADDOFSI (* FLD (i_Ri), * FLD (i_Rj), 0);
 218 // OBSOLETE     CPU (h_vbit) = opval;
 219 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "vbit", 'x', opval);
 220 // OBSOLETE   }
 221 // OBSOLETE   {
 222 // OBSOLETE     BI opval = ADDCFSI (* FLD (i_Ri), * FLD (i_Rj), 0);
 223 // OBSOLETE     CPU (h_cbit) = opval;
 224 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
 225 // OBSOLETE   }
 226 // OBSOLETE   {
 227 // OBSOLETE     SI opval = ADDSI (* FLD (i_Ri), * FLD (i_Rj));
 228 // OBSOLETE     * FLD (i_Ri) = opval;
 229 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
 230 // OBSOLETE   }
 231 // OBSOLETE {
 232 // OBSOLETE   {
 233 // OBSOLETE     BI opval = EQSI (* FLD (i_Ri), 0);
 234 // OBSOLETE     CPU (h_zbit) = opval;
 235 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
 236 // OBSOLETE   }
 237 // OBSOLETE   {
 238 // OBSOLETE     BI opval = LTSI (* FLD (i_Ri), 0);
 239 // OBSOLETE     CPU (h_nbit) = opval;
 240 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
 241 // OBSOLETE   }
 242 // OBSOLETE }
 243 // OBSOLETE }
 244 // OBSOLETE
 245 // OBSOLETE   return vpc;
 246 // OBSOLETE #undef FLD
 247 // OBSOLETE }
 248 // OBSOLETE
 249 // OBSOLETE /* addi: add $u4,$Ri */
 250 // OBSOLETE
 251 // OBSOLETE static SEM_PC
 252 // OBSOLETE SEM_FN_NAME (fr30bf,addi) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
 253 // OBSOLETE {
 254 // OBSOLETE #define FLD(f) abuf->fields.sfmt_addi.f
 255 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
 256 // OBSOLETE   int UNUSED written = 0;
 257 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
 258 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
 259 // OBSOLETE
 260 // OBSOLETE {
 261 // OBSOLETE   {
 262 // OBSOLETE     BI opval = ADDOFSI (* FLD (i_Ri), FLD (f_u4), 0);
 263 // OBSOLETE     CPU (h_vbit) = opval;
 264 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "vbit", 'x', opval);
 265 // OBSOLETE   }
 266 // OBSOLETE   {
 267 // OBSOLETE     BI opval = ADDCFSI (* FLD (i_Ri), FLD (f_u4), 0);
 268 // OBSOLETE     CPU (h_cbit) = opval;
 269 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
 270 // OBSOLETE   }
 271 // OBSOLETE   {
 272 // OBSOLETE     SI opval = ADDSI (* FLD (i_Ri), FLD (f_u4));
 273 // OBSOLETE     * FLD (i_Ri) = opval;
 274 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
 275 // OBSOLETE   }
 276 // OBSOLETE {
 277 // OBSOLETE   {
 278 // OBSOLETE     BI opval = EQSI (* FLD (i_Ri), 0);
 279 // OBSOLETE     CPU (h_zbit) = opval;
 280 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
 281 // OBSOLETE   }
 282 // OBSOLETE   {
 283 // OBSOLETE     BI opval = LTSI (* FLD (i_Ri), 0);
 284 // OBSOLETE     CPU (h_nbit) = opval;
 285 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
 286 // OBSOLETE   }
 287 // OBSOLETE }
 288 // OBSOLETE }
 289 // OBSOLETE
 290 // OBSOLETE   return vpc;
 291 // OBSOLETE #undef FLD
 292 // OBSOLETE }
 293 // OBSOLETE
 294 // OBSOLETE /* add2: add2 $m4,$Ri */
 295 // OBSOLETE
 296 // OBSOLETE static SEM_PC
 297 // OBSOLETE SEM_FN_NAME (fr30bf,add2) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
 298 // OBSOLETE {
 299 // OBSOLETE #define FLD(f) abuf->fields.sfmt_add2.f
 300 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
 301 // OBSOLETE   int UNUSED written = 0;
 302 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
 303 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
 304 // OBSOLETE
 305 // OBSOLETE {
 306 // OBSOLETE   {
 307 // OBSOLETE     BI opval = ADDOFSI (* FLD (i_Ri), FLD (f_m4), 0);
 308 // OBSOLETE     CPU (h_vbit) = opval;
 309 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "vbit", 'x', opval);
 310 // OBSOLETE   }
 311 // OBSOLETE   {
 312 // OBSOLETE     BI opval = ADDCFSI (* FLD (i_Ri), FLD (f_m4), 0);
 313 // OBSOLETE     CPU (h_cbit) = opval;
 314 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
 315 // OBSOLETE   }
 316 // OBSOLETE   {
 317 // OBSOLETE     SI opval = ADDSI (* FLD (i_Ri), FLD (f_m4));
 318 // OBSOLETE     * FLD (i_Ri) = opval;
 319 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
 320 // OBSOLETE   }
 321 // OBSOLETE {
 322 // OBSOLETE   {
 323 // OBSOLETE     BI opval = EQSI (* FLD (i_Ri), 0);
 324 // OBSOLETE     CPU (h_zbit) = opval;
 325 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
 326 // OBSOLETE   }
 327 // OBSOLETE   {
 328 // OBSOLETE     BI opval = LTSI (* FLD (i_Ri), 0);
 329 // OBSOLETE     CPU (h_nbit) = opval;
 330 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
 331 // OBSOLETE   }
 332 // OBSOLETE }
 333 // OBSOLETE }
 334 // OBSOLETE
 335 // OBSOLETE   return vpc;
 336 // OBSOLETE #undef FLD
 337 // OBSOLETE }
 338 // OBSOLETE
 339 // OBSOLETE /* addc: addc $Rj,$Ri */
 340 // OBSOLETE
 341 // OBSOLETE static SEM_PC
 342 // OBSOLETE SEM_FN_NAME (fr30bf,addc) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
 343 // OBSOLETE {
 344 // OBSOLETE #define FLD(f) abuf->fields.sfmt_add.f
 345 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
 346 // OBSOLETE   int UNUSED written = 0;
 347 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
 348 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
 349 // OBSOLETE
 350 // OBSOLETE {
 351 // OBSOLETE   SI tmp_tmp;
 352 // OBSOLETE   tmp_tmp = ADDCSI (* FLD (i_Ri), * FLD (i_Rj), CPU (h_cbit));
 353 // OBSOLETE   {
 354 // OBSOLETE     BI opval = ADDOFSI (* FLD (i_Ri), * FLD (i_Rj), CPU (h_cbit));
 355 // OBSOLETE     CPU (h_vbit) = opval;
 356 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "vbit", 'x', opval);
 357 // OBSOLETE   }
 358 // OBSOLETE   {
 359 // OBSOLETE     BI opval = ADDCFSI (* FLD (i_Ri), * FLD (i_Rj), CPU (h_cbit));
 360 // OBSOLETE     CPU (h_cbit) = opval;
 361 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
 362 // OBSOLETE   }
 363 // OBSOLETE   {
 364 // OBSOLETE     SI opval = tmp_tmp;
 365 // OBSOLETE     * FLD (i_Ri) = opval;
 366 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
 367 // OBSOLETE   }
 368 // OBSOLETE {
 369 // OBSOLETE   {
 370 // OBSOLETE     BI opval = EQSI (* FLD (i_Ri), 0);
 371 // OBSOLETE     CPU (h_zbit) = opval;
 372 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
 373 // OBSOLETE   }
 374 // OBSOLETE   {
 375 // OBSOLETE     BI opval = LTSI (* FLD (i_Ri), 0);
 376 // OBSOLETE     CPU (h_nbit) = opval;
 377 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
 378 // OBSOLETE   }
 379 // OBSOLETE }
 380 // OBSOLETE }
 381 // OBSOLETE
 382 // OBSOLETE   return vpc;
 383 // OBSOLETE #undef FLD
 384 // OBSOLETE }
 385 // OBSOLETE
 386 // OBSOLETE /* addn: addn $Rj,$Ri */
 387 // OBSOLETE
 388 // OBSOLETE static SEM_PC
 389 // OBSOLETE SEM_FN_NAME (fr30bf,addn) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
 390 // OBSOLETE {
 391 // OBSOLETE #define FLD(f) abuf->fields.sfmt_add.f
 392 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
 393 // OBSOLETE   int UNUSED written = 0;
 394 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
 395 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
 396 // OBSOLETE
 397 // OBSOLETE   {
 398 // OBSOLETE     SI opval = ADDSI (* FLD (i_Ri), * FLD (i_Rj));
 399 // OBSOLETE     * FLD (i_Ri) = opval;
 400 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
 401 // OBSOLETE   }
 402 // OBSOLETE
 403 // OBSOLETE   return vpc;
 404 // OBSOLETE #undef FLD
 405 // OBSOLETE }
 406 // OBSOLETE
 407 // OBSOLETE /* addni: addn $u4,$Ri */
 408 // OBSOLETE
 409 // OBSOLETE static SEM_PC
 410 // OBSOLETE SEM_FN_NAME (fr30bf,addni) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
 411 // OBSOLETE {
 412 // OBSOLETE #define FLD(f) abuf->fields.sfmt_addi.f
 413 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
 414 // OBSOLETE   int UNUSED written = 0;
 415 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
 416 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
 417 // OBSOLETE
 418 // OBSOLETE   {
 419 // OBSOLETE     SI opval = ADDSI (* FLD (i_Ri), FLD (f_u4));
 420 // OBSOLETE     * FLD (i_Ri) = opval;
 421 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
 422 // OBSOLETE   }
 423 // OBSOLETE
 424 // OBSOLETE   return vpc;
 425 // OBSOLETE #undef FLD
 426 // OBSOLETE }
 427 // OBSOLETE
 428 // OBSOLETE /* addn2: addn2 $m4,$Ri */
 429 // OBSOLETE
 430 // OBSOLETE static SEM_PC
 431 // OBSOLETE SEM_FN_NAME (fr30bf,addn2) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
 432 // OBSOLETE {
 433 // OBSOLETE #define FLD(f) abuf->fields.sfmt_add2.f
 434 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
 435 // OBSOLETE   int UNUSED written = 0;
 436 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
 437 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
 438 // OBSOLETE
 439 // OBSOLETE   {
 440 // OBSOLETE     SI opval = ADDSI (* FLD (i_Ri), FLD (f_m4));
 441 // OBSOLETE     * FLD (i_Ri) = opval;
 442 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
 443 // OBSOLETE   }
 444 // OBSOLETE
 445 // OBSOLETE   return vpc;
 446 // OBSOLETE #undef FLD
 447 // OBSOLETE }
 448 // OBSOLETE
 449 // OBSOLETE /* sub: sub $Rj,$Ri */
 450 // OBSOLETE
 451 // OBSOLETE static SEM_PC
 452 // OBSOLETE SEM_FN_NAME (fr30bf,sub) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
 453 // OBSOLETE {
 454 // OBSOLETE #define FLD(f) abuf->fields.sfmt_add.f
 455 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
 456 // OBSOLETE   int UNUSED written = 0;
 457 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
 458 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
 459 // OBSOLETE
 460 // OBSOLETE {
 461 // OBSOLETE   {
 462 // OBSOLETE     BI opval = SUBOFSI (* FLD (i_Ri), * FLD (i_Rj), 0);
 463 // OBSOLETE     CPU (h_vbit) = opval;
 464 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "vbit", 'x', opval);
 465 // OBSOLETE   }
 466 // OBSOLETE   {
 467 // OBSOLETE     BI opval = SUBCFSI (* FLD (i_Ri), * FLD (i_Rj), 0);
 468 // OBSOLETE     CPU (h_cbit) = opval;
 469 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
 470 // OBSOLETE   }
 471 // OBSOLETE   {
 472 // OBSOLETE     SI opval = SUBSI (* FLD (i_Ri), * FLD (i_Rj));
 473 // OBSOLETE     * FLD (i_Ri) = opval;
 474 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
 475 // OBSOLETE   }
 476 // OBSOLETE {
 477 // OBSOLETE   {
 478 // OBSOLETE     BI opval = EQSI (* FLD (i_Ri), 0);
 479 // OBSOLETE     CPU (h_zbit) = opval;
 480 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
 481 // OBSOLETE   }
 482 // OBSOLETE   {
 483 // OBSOLETE     BI opval = LTSI (* FLD (i_Ri), 0);
 484 // OBSOLETE     CPU (h_nbit) = opval;
 485 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
 486 // OBSOLETE   }
 487 // OBSOLETE }
 488 // OBSOLETE }
 489 // OBSOLETE
 490 // OBSOLETE   return vpc;
 491 // OBSOLETE #undef FLD
 492 // OBSOLETE }
 493 // OBSOLETE
 494 // OBSOLETE /* subc: subc $Rj,$Ri */
 495 // OBSOLETE
 496 // OBSOLETE static SEM_PC
 497 // OBSOLETE SEM_FN_NAME (fr30bf,subc) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
 498 // OBSOLETE {
 499 // OBSOLETE #define FLD(f) abuf->fields.sfmt_add.f
 500 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
 501 // OBSOLETE   int UNUSED written = 0;
 502 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
 503 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
 504 // OBSOLETE
 505 // OBSOLETE {
 506 // OBSOLETE   SI tmp_tmp;
 507 // OBSOLETE   tmp_tmp = SUBCSI (* FLD (i_Ri), * FLD (i_Rj), CPU (h_cbit));
 508 // OBSOLETE   {
 509 // OBSOLETE     BI opval = SUBOFSI (* FLD (i_Ri), * FLD (i_Rj), CPU (h_cbit));
 510 // OBSOLETE     CPU (h_vbit) = opval;
 511 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "vbit", 'x', opval);
 512 // OBSOLETE   }
 513 // OBSOLETE   {
 514 // OBSOLETE     BI opval = SUBCFSI (* FLD (i_Ri), * FLD (i_Rj), CPU (h_cbit));
 515 // OBSOLETE     CPU (h_cbit) = opval;
 516 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
 517 // OBSOLETE   }
 518 // OBSOLETE   {
 519 // OBSOLETE     SI opval = tmp_tmp;
 520 // OBSOLETE     * FLD (i_Ri) = opval;
 521 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
 522 // OBSOLETE   }
 523 // OBSOLETE {
 524 // OBSOLETE   {
 525 // OBSOLETE     BI opval = EQSI (* FLD (i_Ri), 0);
 526 // OBSOLETE     CPU (h_zbit) = opval;
 527 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
 528 // OBSOLETE   }
 529 // OBSOLETE   {
 530 // OBSOLETE     BI opval = LTSI (* FLD (i_Ri), 0);
 531 // OBSOLETE     CPU (h_nbit) = opval;
 532 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
 533 // OBSOLETE   }
 534 // OBSOLETE }
 535 // OBSOLETE }
 536 // OBSOLETE
 537 // OBSOLETE   return vpc;
 538 // OBSOLETE #undef FLD
 539 // OBSOLETE }
 540 // OBSOLETE
 541 // OBSOLETE /* subn: subn $Rj,$Ri */
 542 // OBSOLETE
 543 // OBSOLETE static SEM_PC
 544 // OBSOLETE SEM_FN_NAME (fr30bf,subn) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
 545 // OBSOLETE {
 546 // OBSOLETE #define FLD(f) abuf->fields.sfmt_add.f
 547 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
 548 // OBSOLETE   int UNUSED written = 0;
 549 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
 550 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
 551 // OBSOLETE
 552 // OBSOLETE   {
 553 // OBSOLETE     SI opval = SUBSI (* FLD (i_Ri), * FLD (i_Rj));
 554 // OBSOLETE     * FLD (i_Ri) = opval;
 555 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
 556 // OBSOLETE   }
 557 // OBSOLETE
 558 // OBSOLETE   return vpc;
 559 // OBSOLETE #undef FLD
 560 // OBSOLETE }
 561 // OBSOLETE
 562 // OBSOLETE /* cmp: cmp $Rj,$Ri */
 563 // OBSOLETE
 564 // OBSOLETE static SEM_PC
 565 // OBSOLETE SEM_FN_NAME (fr30bf,cmp) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
 566 // OBSOLETE {
 567 // OBSOLETE #define FLD(f) abuf->fields.sfmt_str13.f
 568 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
 569 // OBSOLETE   int UNUSED written = 0;
 570 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
 571 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
 572 // OBSOLETE
 573 // OBSOLETE {
 574 // OBSOLETE   SI tmp_tmp1;
 575 // OBSOLETE   {
 576 // OBSOLETE     BI opval = SUBOFSI (* FLD (i_Ri), * FLD (i_Rj), 0);
 577 // OBSOLETE     CPU (h_vbit) = opval;
 578 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "vbit", 'x', opval);
 579 // OBSOLETE   }
 580 // OBSOLETE   {
 581 // OBSOLETE     BI opval = SUBCFSI (* FLD (i_Ri), * FLD (i_Rj), 0);
 582 // OBSOLETE     CPU (h_cbit) = opval;
 583 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
 584 // OBSOLETE   }
 585 // OBSOLETE   tmp_tmp1 = SUBSI (* FLD (i_Ri), * FLD (i_Rj));
 586 // OBSOLETE {
 587 // OBSOLETE   {
 588 // OBSOLETE     BI opval = EQSI (tmp_tmp1, 0);
 589 // OBSOLETE     CPU (h_zbit) = opval;
 590 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
 591 // OBSOLETE   }
 592 // OBSOLETE   {
 593 // OBSOLETE     BI opval = LTSI (tmp_tmp1, 0);
 594 // OBSOLETE     CPU (h_nbit) = opval;
 595 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
 596 // OBSOLETE   }
 597 // OBSOLETE }
 598 // OBSOLETE }
 599 // OBSOLETE
 600 // OBSOLETE   return vpc;
 601 // OBSOLETE #undef FLD
 602 // OBSOLETE }
 603 // OBSOLETE
 604 // OBSOLETE /* cmpi: cmp $u4,$Ri */
 605 // OBSOLETE
 606 // OBSOLETE static SEM_PC
 607 // OBSOLETE SEM_FN_NAME (fr30bf,cmpi) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
 608 // OBSOLETE {
 609 // OBSOLETE #define FLD(f) abuf->fields.sfmt_addi.f
 610 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
 611 // OBSOLETE   int UNUSED written = 0;
 612 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
 613 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
 614 // OBSOLETE
 615 // OBSOLETE {
 616 // OBSOLETE   SI tmp_tmp1;
 617 // OBSOLETE   {
 618 // OBSOLETE     BI opval = SUBOFSI (* FLD (i_Ri), FLD (f_u4), 0);
 619 // OBSOLETE     CPU (h_vbit) = opval;
 620 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "vbit", 'x', opval);
 621 // OBSOLETE   }
 622 // OBSOLETE   {
 623 // OBSOLETE     BI opval = SUBCFSI (* FLD (i_Ri), FLD (f_u4), 0);
 624 // OBSOLETE     CPU (h_cbit) = opval;
 625 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
 626 // OBSOLETE   }
 627 // OBSOLETE   tmp_tmp1 = SUBSI (* FLD (i_Ri), FLD (f_u4));
 628 // OBSOLETE {
 629 // OBSOLETE   {
 630 // OBSOLETE     BI opval = EQSI (tmp_tmp1, 0);
 631 // OBSOLETE     CPU (h_zbit) = opval;
 632 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
 633 // OBSOLETE   }
 634 // OBSOLETE   {
 635 // OBSOLETE     BI opval = LTSI (tmp_tmp1, 0);
 636 // OBSOLETE     CPU (h_nbit) = opval;
 637 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
 638 // OBSOLETE   }
 639 // OBSOLETE }
 640 // OBSOLETE }
 641 // OBSOLETE
 642 // OBSOLETE   return vpc;
 643 // OBSOLETE #undef FLD
 644 // OBSOLETE }
 645 // OBSOLETE
 646 // OBSOLETE /* cmp2: cmp2 $m4,$Ri */
 647 // OBSOLETE
 648 // OBSOLETE static SEM_PC
 649 // OBSOLETE SEM_FN_NAME (fr30bf,cmp2) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
 650 // OBSOLETE {
 651 // OBSOLETE #define FLD(f) abuf->fields.sfmt_add2.f
 652 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
 653 // OBSOLETE   int UNUSED written = 0;
 654 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
 655 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
 656 // OBSOLETE
 657 // OBSOLETE {
 658 // OBSOLETE   SI tmp_tmp1;
 659 // OBSOLETE   {
 660 // OBSOLETE     BI opval = SUBOFSI (* FLD (i_Ri), FLD (f_m4), 0);
 661 // OBSOLETE     CPU (h_vbit) = opval;
 662 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "vbit", 'x', opval);
 663 // OBSOLETE   }
 664 // OBSOLETE   {
 665 // OBSOLETE     BI opval = SUBCFSI (* FLD (i_Ri), FLD (f_m4), 0);
 666 // OBSOLETE     CPU (h_cbit) = opval;
 667 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
 668 // OBSOLETE   }
 669 // OBSOLETE   tmp_tmp1 = SUBSI (* FLD (i_Ri), FLD (f_m4));
 670 // OBSOLETE {
 671 // OBSOLETE   {
 672 // OBSOLETE     BI opval = EQSI (tmp_tmp1, 0);
 673 // OBSOLETE     CPU (h_zbit) = opval;
 674 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
 675 // OBSOLETE   }
 676 // OBSOLETE   {
 677 // OBSOLETE     BI opval = LTSI (tmp_tmp1, 0);
 678 // OBSOLETE     CPU (h_nbit) = opval;
 679 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
 680 // OBSOLETE   }
 681 // OBSOLETE }
 682 // OBSOLETE }
 683 // OBSOLETE
 684 // OBSOLETE   return vpc;
 685 // OBSOLETE #undef FLD
 686 // OBSOLETE }
 687 // OBSOLETE
 688 // OBSOLETE /* and: and $Rj,$Ri */
 689 // OBSOLETE
 690 // OBSOLETE static SEM_PC
 691 // OBSOLETE SEM_FN_NAME (fr30bf,and) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
 692 // OBSOLETE {
 693 // OBSOLETE #define FLD(f) abuf->fields.sfmt_add.f
 694 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
 695 // OBSOLETE   int UNUSED written = 0;
 696 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
 697 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
 698 // OBSOLETE
 699 // OBSOLETE {
 700 // OBSOLETE   {
 701 // OBSOLETE     SI opval = ANDSI (* FLD (i_Ri), * FLD (i_Rj));
 702 // OBSOLETE     * FLD (i_Ri) = opval;
 703 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
 704 // OBSOLETE   }
 705 // OBSOLETE {
 706 // OBSOLETE   {
 707 // OBSOLETE     BI opval = EQSI (* FLD (i_Ri), 0);
 708 // OBSOLETE     CPU (h_zbit) = opval;
 709 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
 710 // OBSOLETE   }
 711 // OBSOLETE   {
 712 // OBSOLETE     BI opval = LTSI (* FLD (i_Ri), 0);
 713 // OBSOLETE     CPU (h_nbit) = opval;
 714 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
 715 // OBSOLETE   }
 716 // OBSOLETE }
 717 // OBSOLETE }
 718 // OBSOLETE
 719 // OBSOLETE   return vpc;
 720 // OBSOLETE #undef FLD
 721 // OBSOLETE }
 722 // OBSOLETE
 723 // OBSOLETE /* or: or $Rj,$Ri */
 724 // OBSOLETE
 725 // OBSOLETE static SEM_PC
 726 // OBSOLETE SEM_FN_NAME (fr30bf,or) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
 727 // OBSOLETE {
 728 // OBSOLETE #define FLD(f) abuf->fields.sfmt_add.f
 729 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
 730 // OBSOLETE   int UNUSED written = 0;
 731 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
 732 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
 733 // OBSOLETE
 734 // OBSOLETE {
 735 // OBSOLETE   {
 736 // OBSOLETE     SI opval = ORSI (* FLD (i_Ri), * FLD (i_Rj));
 737 // OBSOLETE     * FLD (i_Ri) = opval;
 738 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
 739 // OBSOLETE   }
 740 // OBSOLETE {
 741 // OBSOLETE   {
 742 // OBSOLETE     BI opval = EQSI (* FLD (i_Ri), 0);
 743 // OBSOLETE     CPU (h_zbit) = opval;
 744 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
 745 // OBSOLETE   }
 746 // OBSOLETE   {
 747 // OBSOLETE     BI opval = LTSI (* FLD (i_Ri), 0);
 748 // OBSOLETE     CPU (h_nbit) = opval;
 749 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
 750 // OBSOLETE   }
 751 // OBSOLETE }
 752 // OBSOLETE }
 753 // OBSOLETE
 754 // OBSOLETE   return vpc;
 755 // OBSOLETE #undef FLD
 756 // OBSOLETE }
 757 // OBSOLETE
 758 // OBSOLETE /* eor: eor $Rj,$Ri */
 759 // OBSOLETE
 760 // OBSOLETE static SEM_PC
 761 // OBSOLETE SEM_FN_NAME (fr30bf,eor) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
 762 // OBSOLETE {
 763 // OBSOLETE #define FLD(f) abuf->fields.sfmt_add.f
 764 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
 765 // OBSOLETE   int UNUSED written = 0;
 766 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
 767 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
 768 // OBSOLETE
 769 // OBSOLETE {
 770 // OBSOLETE   {
 771 // OBSOLETE     SI opval = XORSI (* FLD (i_Ri), * FLD (i_Rj));
 772 // OBSOLETE     * FLD (i_Ri) = opval;
 773 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
 774 // OBSOLETE   }
 775 // OBSOLETE {
 776 // OBSOLETE   {
 777 // OBSOLETE     BI opval = EQSI (* FLD (i_Ri), 0);
 778 // OBSOLETE     CPU (h_zbit) = opval;
 779 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
 780 // OBSOLETE   }
 781 // OBSOLETE   {
 782 // OBSOLETE     BI opval = LTSI (* FLD (i_Ri), 0);
 783 // OBSOLETE     CPU (h_nbit) = opval;
 784 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
 785 // OBSOLETE   }
 786 // OBSOLETE }
 787 // OBSOLETE }
 788 // OBSOLETE
 789 // OBSOLETE   return vpc;
 790 // OBSOLETE #undef FLD
 791 // OBSOLETE }
 792 // OBSOLETE
 793 // OBSOLETE /* andm: and $Rj,@$Ri */
 794 // OBSOLETE
 795 // OBSOLETE static SEM_PC
 796 // OBSOLETE SEM_FN_NAME (fr30bf,andm) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
 797 // OBSOLETE {
 798 // OBSOLETE #define FLD(f) abuf->fields.sfmt_str13.f
 799 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
 800 // OBSOLETE   int UNUSED written = 0;
 801 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
 802 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
 803 // OBSOLETE
 804 // OBSOLETE {
 805 // OBSOLETE   SI tmp_tmp;
 806 // OBSOLETE   tmp_tmp = ANDSI (GETMEMSI (current_cpu, pc, * FLD (i_Ri)), * FLD (i_Rj));
 807 // OBSOLETE {
 808 // OBSOLETE   {
 809 // OBSOLETE     BI opval = EQSI (tmp_tmp, 0);
 810 // OBSOLETE     CPU (h_zbit) = opval;
 811 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
 812 // OBSOLETE   }
 813 // OBSOLETE   {
 814 // OBSOLETE     BI opval = LTSI (tmp_tmp, 0);
 815 // OBSOLETE     CPU (h_nbit) = opval;
 816 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
 817 // OBSOLETE   }
 818 // OBSOLETE }
 819 // OBSOLETE   {
 820 // OBSOLETE     SI opval = tmp_tmp;
 821 // OBSOLETE     SETMEMSI (current_cpu, pc, * FLD (i_Ri), opval);
 822 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
 823 // OBSOLETE   }
 824 // OBSOLETE }
 825 // OBSOLETE
 826 // OBSOLETE   return vpc;
 827 // OBSOLETE #undef FLD
 828 // OBSOLETE }
 829 // OBSOLETE
 830 // OBSOLETE /* andh: andh $Rj,@$Ri */
 831 // OBSOLETE
 832 // OBSOLETE static SEM_PC
 833 // OBSOLETE SEM_FN_NAME (fr30bf,andh) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
 834 // OBSOLETE {
 835 // OBSOLETE #define FLD(f) abuf->fields.sfmt_str13.f
 836 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
 837 // OBSOLETE   int UNUSED written = 0;
 838 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
 839 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
 840 // OBSOLETE
 841 // OBSOLETE {
 842 // OBSOLETE   HI tmp_tmp;
 843 // OBSOLETE   tmp_tmp = ANDHI (GETMEMHI (current_cpu, pc, * FLD (i_Ri)), * FLD (i_Rj));
 844 // OBSOLETE {
 845 // OBSOLETE   {
 846 // OBSOLETE     BI opval = EQHI (tmp_tmp, 0);
 847 // OBSOLETE     CPU (h_zbit) = opval;
 848 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
 849 // OBSOLETE   }
 850 // OBSOLETE   {
 851 // OBSOLETE     BI opval = LTHI (tmp_tmp, 0);
 852 // OBSOLETE     CPU (h_nbit) = opval;
 853 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
 854 // OBSOLETE   }
 855 // OBSOLETE }
 856 // OBSOLETE   {
 857 // OBSOLETE     HI opval = tmp_tmp;
 858 // OBSOLETE     SETMEMHI (current_cpu, pc, * FLD (i_Ri), opval);
 859 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
 860 // OBSOLETE   }
 861 // OBSOLETE }
 862 // OBSOLETE
 863 // OBSOLETE   return vpc;
 864 // OBSOLETE #undef FLD
 865 // OBSOLETE }
 866 // OBSOLETE
 867 // OBSOLETE /* andb: andb $Rj,@$Ri */
 868 // OBSOLETE
 869 // OBSOLETE static SEM_PC
 870 // OBSOLETE SEM_FN_NAME (fr30bf,andb) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
 871 // OBSOLETE {
 872 // OBSOLETE #define FLD(f) abuf->fields.sfmt_str13.f
 873 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
 874 // OBSOLETE   int UNUSED written = 0;
 875 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
 876 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
 877 // OBSOLETE
 878 // OBSOLETE {
 879 // OBSOLETE   QI tmp_tmp;
 880 // OBSOLETE   tmp_tmp = ANDQI (GETMEMQI (current_cpu, pc, * FLD (i_Ri)), * FLD (i_Rj));
 881 // OBSOLETE {
 882 // OBSOLETE   {
 883 // OBSOLETE     BI opval = EQQI (tmp_tmp, 0);
 884 // OBSOLETE     CPU (h_zbit) = opval;
 885 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
 886 // OBSOLETE   }
 887 // OBSOLETE   {
 888 // OBSOLETE     BI opval = LTQI (tmp_tmp, 0);
 889 // OBSOLETE     CPU (h_nbit) = opval;
 890 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
 891 // OBSOLETE   }
 892 // OBSOLETE }
 893 // OBSOLETE   {
 894 // OBSOLETE     QI opval = tmp_tmp;
 895 // OBSOLETE     SETMEMQI (current_cpu, pc, * FLD (i_Ri), opval);
 896 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
 897 // OBSOLETE   }
 898 // OBSOLETE }
 899 // OBSOLETE
 900 // OBSOLETE   return vpc;
 901 // OBSOLETE #undef FLD
 902 // OBSOLETE }
 903 // OBSOLETE
 904 // OBSOLETE /* orm: or $Rj,@$Ri */
 905 // OBSOLETE
 906 // OBSOLETE static SEM_PC
 907 // OBSOLETE SEM_FN_NAME (fr30bf,orm) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
 908 // OBSOLETE {
 909 // OBSOLETE #define FLD(f) abuf->fields.sfmt_str13.f
 910 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
 911 // OBSOLETE   int UNUSED written = 0;
 912 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
 913 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
 914 // OBSOLETE
 915 // OBSOLETE {
 916 // OBSOLETE   SI tmp_tmp;
 917 // OBSOLETE   tmp_tmp = ORSI (GETMEMSI (current_cpu, pc, * FLD (i_Ri)), * FLD (i_Rj));
 918 // OBSOLETE {
 919 // OBSOLETE   {
 920 // OBSOLETE     BI opval = EQSI (tmp_tmp, 0);
 921 // OBSOLETE     CPU (h_zbit) = opval;
 922 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
 923 // OBSOLETE   }
 924 // OBSOLETE   {
 925 // OBSOLETE     BI opval = LTSI (tmp_tmp, 0);
 926 // OBSOLETE     CPU (h_nbit) = opval;
 927 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
 928 // OBSOLETE   }
 929 // OBSOLETE }
 930 // OBSOLETE   {
 931 // OBSOLETE     SI opval = tmp_tmp;
 932 // OBSOLETE     SETMEMSI (current_cpu, pc, * FLD (i_Ri), opval);
 933 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
 934 // OBSOLETE   }
 935 // OBSOLETE }
 936 // OBSOLETE
 937 // OBSOLETE   return vpc;
 938 // OBSOLETE #undef FLD
 939 // OBSOLETE }
 940 // OBSOLETE
 941 // OBSOLETE /* orh: orh $Rj,@$Ri */
 942 // OBSOLETE
 943 // OBSOLETE static SEM_PC
 944 // OBSOLETE SEM_FN_NAME (fr30bf,orh) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
 945 // OBSOLETE {
 946 // OBSOLETE #define FLD(f) abuf->fields.sfmt_str13.f
 947 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
 948 // OBSOLETE   int UNUSED written = 0;
 949 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
 950 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
 951 // OBSOLETE
 952 // OBSOLETE {
 953 // OBSOLETE   HI tmp_tmp;
 954 // OBSOLETE   tmp_tmp = ORHI (GETMEMHI (current_cpu, pc, * FLD (i_Ri)), * FLD (i_Rj));
 955 // OBSOLETE {
 956 // OBSOLETE   {
 957 // OBSOLETE     BI opval = EQHI (tmp_tmp, 0);
 958 // OBSOLETE     CPU (h_zbit) = opval;
 959 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
 960 // OBSOLETE   }
 961 // OBSOLETE   {
 962 // OBSOLETE     BI opval = LTHI (tmp_tmp, 0);
 963 // OBSOLETE     CPU (h_nbit) = opval;
 964 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
 965 // OBSOLETE   }
 966 // OBSOLETE }
 967 // OBSOLETE   {
 968 // OBSOLETE     HI opval = tmp_tmp;
 969 // OBSOLETE     SETMEMHI (current_cpu, pc, * FLD (i_Ri), opval);
 970 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
 971 // OBSOLETE   }
 972 // OBSOLETE }
 973 // OBSOLETE
 974 // OBSOLETE   return vpc;
 975 // OBSOLETE #undef FLD
 976 // OBSOLETE }
 977 // OBSOLETE
 978 // OBSOLETE /* orb: orb $Rj,@$Ri */
 979 // OBSOLETE
 980 // OBSOLETE static SEM_PC
 981 // OBSOLETE SEM_FN_NAME (fr30bf,orb) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
 982 // OBSOLETE {
 983 // OBSOLETE #define FLD(f) abuf->fields.sfmt_str13.f
 984 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
 985 // OBSOLETE   int UNUSED written = 0;
 986 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
 987 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
 988 // OBSOLETE
 989 // OBSOLETE {
 990 // OBSOLETE   QI tmp_tmp;
 991 // OBSOLETE   tmp_tmp = ORQI (GETMEMQI (current_cpu, pc, * FLD (i_Ri)), * FLD (i_Rj));
 992 // OBSOLETE {
 993 // OBSOLETE   {
 994 // OBSOLETE     BI opval = EQQI (tmp_tmp, 0);
 995 // OBSOLETE     CPU (h_zbit) = opval;
 996 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
 997 // OBSOLETE   }
 998 // OBSOLETE   {
 999 // OBSOLETE     BI opval = LTQI (tmp_tmp, 0);
1000 // OBSOLETE     CPU (h_nbit) = opval;
1001 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
1002 // OBSOLETE   }
1003 // OBSOLETE }
1004 // OBSOLETE   {
1005 // OBSOLETE     QI opval = tmp_tmp;
1006 // OBSOLETE     SETMEMQI (current_cpu, pc, * FLD (i_Ri), opval);
1007 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
1008 // OBSOLETE   }
1009 // OBSOLETE }
1010 // OBSOLETE
1011 // OBSOLETE   return vpc;
1012 // OBSOLETE #undef FLD
1013 // OBSOLETE }
1014 // OBSOLETE
1015 // OBSOLETE /* eorm: eor $Rj,@$Ri */
1016 // OBSOLETE
1017 // OBSOLETE static SEM_PC
1018 // OBSOLETE SEM_FN_NAME (fr30bf,eorm) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
1019 // OBSOLETE {
1020 // OBSOLETE #define FLD(f) abuf->fields.sfmt_str13.f
1021 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
1022 // OBSOLETE   int UNUSED written = 0;
1023 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
1024 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
1025 // OBSOLETE
1026 // OBSOLETE {
1027 // OBSOLETE   SI tmp_tmp;
1028 // OBSOLETE   tmp_tmp = XORSI (GETMEMSI (current_cpu, pc, * FLD (i_Ri)), * FLD (i_Rj));
1029 // OBSOLETE {
1030 // OBSOLETE   {
1031 // OBSOLETE     BI opval = EQSI (tmp_tmp, 0);
1032 // OBSOLETE     CPU (h_zbit) = opval;
1033 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
1034 // OBSOLETE   }
1035 // OBSOLETE   {
1036 // OBSOLETE     BI opval = LTSI (tmp_tmp, 0);
1037 // OBSOLETE     CPU (h_nbit) = opval;
1038 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
1039 // OBSOLETE   }
1040 // OBSOLETE }
1041 // OBSOLETE   {
1042 // OBSOLETE     SI opval = tmp_tmp;
1043 // OBSOLETE     SETMEMSI (current_cpu, pc, * FLD (i_Ri), opval);
1044 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
1045 // OBSOLETE   }
1046 // OBSOLETE }
1047 // OBSOLETE
1048 // OBSOLETE   return vpc;
1049 // OBSOLETE #undef FLD
1050 // OBSOLETE }
1051 // OBSOLETE
1052 // OBSOLETE /* eorh: eorh $Rj,@$Ri */
1053 // OBSOLETE
1054 // OBSOLETE static SEM_PC
1055 // OBSOLETE SEM_FN_NAME (fr30bf,eorh) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
1056 // OBSOLETE {
1057 // OBSOLETE #define FLD(f) abuf->fields.sfmt_str13.f
1058 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
1059 // OBSOLETE   int UNUSED written = 0;
1060 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
1061 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
1062 // OBSOLETE
1063 // OBSOLETE {
1064 // OBSOLETE   HI tmp_tmp;
1065 // OBSOLETE   tmp_tmp = XORHI (GETMEMHI (current_cpu, pc, * FLD (i_Ri)), * FLD (i_Rj));
1066 // OBSOLETE {
1067 // OBSOLETE   {
1068 // OBSOLETE     BI opval = EQHI (tmp_tmp, 0);
1069 // OBSOLETE     CPU (h_zbit) = opval;
1070 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
1071 // OBSOLETE   }
1072 // OBSOLETE   {
1073 // OBSOLETE     BI opval = LTHI (tmp_tmp, 0);
1074 // OBSOLETE     CPU (h_nbit) = opval;
1075 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
1076 // OBSOLETE   }
1077 // OBSOLETE }
1078 // OBSOLETE   {
1079 // OBSOLETE     HI opval = tmp_tmp;
1080 // OBSOLETE     SETMEMHI (current_cpu, pc, * FLD (i_Ri), opval);
1081 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
1082 // OBSOLETE   }
1083 // OBSOLETE }
1084 // OBSOLETE
1085 // OBSOLETE   return vpc;
1086 // OBSOLETE #undef FLD
1087 // OBSOLETE }
1088 // OBSOLETE
1089 // OBSOLETE /* eorb: eorb $Rj,@$Ri */
1090 // OBSOLETE
1091 // OBSOLETE static SEM_PC
1092 // OBSOLETE SEM_FN_NAME (fr30bf,eorb) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
1093 // OBSOLETE {
1094 // OBSOLETE #define FLD(f) abuf->fields.sfmt_str13.f
1095 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
1096 // OBSOLETE   int UNUSED written = 0;
1097 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
1098 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
1099 // OBSOLETE
1100 // OBSOLETE {
1101 // OBSOLETE   QI tmp_tmp;
1102 // OBSOLETE   tmp_tmp = XORQI (GETMEMQI (current_cpu, pc, * FLD (i_Ri)), * FLD (i_Rj));
1103 // OBSOLETE {
1104 // OBSOLETE   {
1105 // OBSOLETE     BI opval = EQQI (tmp_tmp, 0);
1106 // OBSOLETE     CPU (h_zbit) = opval;
1107 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
1108 // OBSOLETE   }
1109 // OBSOLETE   {
1110 // OBSOLETE     BI opval = LTQI (tmp_tmp, 0);
1111 // OBSOLETE     CPU (h_nbit) = opval;
1112 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
1113 // OBSOLETE   }
1114 // OBSOLETE }
1115 // OBSOLETE   {
1116 // OBSOLETE     QI opval = tmp_tmp;
1117 // OBSOLETE     SETMEMQI (current_cpu, pc, * FLD (i_Ri), opval);
1118 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
1119 // OBSOLETE   }
1120 // OBSOLETE }
1121 // OBSOLETE
1122 // OBSOLETE   return vpc;
1123 // OBSOLETE #undef FLD
1124 // OBSOLETE }
1125 // OBSOLETE
1126 // OBSOLETE /* bandl: bandl $u4,@$Ri */
1127 // OBSOLETE
1128 // OBSOLETE static SEM_PC
1129 // OBSOLETE SEM_FN_NAME (fr30bf,bandl) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
1130 // OBSOLETE {
1131 // OBSOLETE #define FLD(f) abuf->fields.sfmt_addi.f
1132 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
1133 // OBSOLETE   int UNUSED written = 0;
1134 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
1135 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
1136 // OBSOLETE
1137 // OBSOLETE   {
1138 // OBSOLETE     QI opval = ANDQI (ORQI (FLD (f_u4), 240), GETMEMQI (current_cpu, pc, * FLD (i_Ri)));
1139 // OBSOLETE     SETMEMQI (current_cpu, pc, * FLD (i_Ri), opval);
1140 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
1141 // OBSOLETE   }
1142 // OBSOLETE
1143 // OBSOLETE   return vpc;
1144 // OBSOLETE #undef FLD
1145 // OBSOLETE }
1146 // OBSOLETE
1147 // OBSOLETE /* borl: borl $u4,@$Ri */
1148 // OBSOLETE
1149 // OBSOLETE static SEM_PC
1150 // OBSOLETE SEM_FN_NAME (fr30bf,borl) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
1151 // OBSOLETE {
1152 // OBSOLETE #define FLD(f) abuf->fields.sfmt_addi.f
1153 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
1154 // OBSOLETE   int UNUSED written = 0;
1155 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
1156 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
1157 // OBSOLETE
1158 // OBSOLETE   {
1159 // OBSOLETE     QI opval = ORQI (FLD (f_u4), GETMEMQI (current_cpu, pc, * FLD (i_Ri)));
1160 // OBSOLETE     SETMEMQI (current_cpu, pc, * FLD (i_Ri), opval);
1161 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
1162 // OBSOLETE   }
1163 // OBSOLETE
1164 // OBSOLETE   return vpc;
1165 // OBSOLETE #undef FLD
1166 // OBSOLETE }
1167 // OBSOLETE
1168 // OBSOLETE /* beorl: beorl $u4,@$Ri */
1169 // OBSOLETE
1170 // OBSOLETE static SEM_PC
1171 // OBSOLETE SEM_FN_NAME (fr30bf,beorl) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
1172 // OBSOLETE {
1173 // OBSOLETE #define FLD(f) abuf->fields.sfmt_addi.f
1174 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
1175 // OBSOLETE   int UNUSED written = 0;
1176 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
1177 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
1178 // OBSOLETE
1179 // OBSOLETE   {
1180 // OBSOLETE     QI opval = XORQI (FLD (f_u4), GETMEMQI (current_cpu, pc, * FLD (i_Ri)));
1181 // OBSOLETE     SETMEMQI (current_cpu, pc, * FLD (i_Ri), opval);
1182 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
1183 // OBSOLETE   }
1184 // OBSOLETE
1185 // OBSOLETE   return vpc;
1186 // OBSOLETE #undef FLD
1187 // OBSOLETE }
1188 // OBSOLETE
1189 // OBSOLETE /* bandh: bandh $u4,@$Ri */
1190 // OBSOLETE
1191 // OBSOLETE static SEM_PC
1192 // OBSOLETE SEM_FN_NAME (fr30bf,bandh) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
1193 // OBSOLETE {
1194 // OBSOLETE #define FLD(f) abuf->fields.sfmt_addi.f
1195 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
1196 // OBSOLETE   int UNUSED written = 0;
1197 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
1198 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
1199 // OBSOLETE
1200 // OBSOLETE   {
1201 // OBSOLETE     QI opval = ANDQI (ORQI (SLLQI (FLD (f_u4), 4), 15), GETMEMQI (current_cpu, pc, * FLD (i_Ri)));
1202 // OBSOLETE     SETMEMQI (current_cpu, pc, * FLD (i_Ri), opval);
1203 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
1204 // OBSOLETE   }
1205 // OBSOLETE
1206 // OBSOLETE   return vpc;
1207 // OBSOLETE #undef FLD
1208 // OBSOLETE }
1209 // OBSOLETE
1210 // OBSOLETE /* borh: borh $u4,@$Ri */
1211 // OBSOLETE
1212 // OBSOLETE static SEM_PC
1213 // OBSOLETE SEM_FN_NAME (fr30bf,borh) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
1214 // OBSOLETE {
1215 // OBSOLETE #define FLD(f) abuf->fields.sfmt_addi.f
1216 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
1217 // OBSOLETE   int UNUSED written = 0;
1218 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
1219 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
1220 // OBSOLETE
1221 // OBSOLETE   {
1222 // OBSOLETE     QI opval = ORQI (SLLQI (FLD (f_u4), 4), GETMEMQI (current_cpu, pc, * FLD (i_Ri)));
1223 // OBSOLETE     SETMEMQI (current_cpu, pc, * FLD (i_Ri), opval);
1224 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
1225 // OBSOLETE   }
1226 // OBSOLETE
1227 // OBSOLETE   return vpc;
1228 // OBSOLETE #undef FLD
1229 // OBSOLETE }
1230 // OBSOLETE
1231 // OBSOLETE /* beorh: beorh $u4,@$Ri */
1232 // OBSOLETE
1233 // OBSOLETE static SEM_PC
1234 // OBSOLETE SEM_FN_NAME (fr30bf,beorh) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
1235 // OBSOLETE {
1236 // OBSOLETE #define FLD(f) abuf->fields.sfmt_addi.f
1237 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
1238 // OBSOLETE   int UNUSED written = 0;
1239 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
1240 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
1241 // OBSOLETE
1242 // OBSOLETE   {
1243 // OBSOLETE     QI opval = XORQI (SLLQI (FLD (f_u4), 4), GETMEMQI (current_cpu, pc, * FLD (i_Ri)));
1244 // OBSOLETE     SETMEMQI (current_cpu, pc, * FLD (i_Ri), opval);
1245 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
1246 // OBSOLETE   }
1247 // OBSOLETE
1248 // OBSOLETE   return vpc;
1249 // OBSOLETE #undef FLD
1250 // OBSOLETE }
1251 // OBSOLETE
1252 // OBSOLETE /* btstl: btstl $u4,@$Ri */
1253 // OBSOLETE
1254 // OBSOLETE static SEM_PC
1255 // OBSOLETE SEM_FN_NAME (fr30bf,btstl) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
1256 // OBSOLETE {
1257 // OBSOLETE #define FLD(f) abuf->fields.sfmt_addi.f
1258 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
1259 // OBSOLETE   int UNUSED written = 0;
1260 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
1261 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
1262 // OBSOLETE
1263 // OBSOLETE {
1264 // OBSOLETE   QI tmp_tmp;
1265 // OBSOLETE   tmp_tmp = ANDQI (FLD (f_u4), GETMEMQI (current_cpu, pc, * FLD (i_Ri)));
1266 // OBSOLETE   {
1267 // OBSOLETE     BI opval = EQQI (tmp_tmp, 0);
1268 // OBSOLETE     CPU (h_zbit) = opval;
1269 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
1270 // OBSOLETE   }
1271 // OBSOLETE   {
1272 // OBSOLETE     BI opval = 0;
1273 // OBSOLETE     CPU (h_nbit) = opval;
1274 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
1275 // OBSOLETE   }
1276 // OBSOLETE }
1277 // OBSOLETE
1278 // OBSOLETE   return vpc;
1279 // OBSOLETE #undef FLD
1280 // OBSOLETE }
1281 // OBSOLETE
1282 // OBSOLETE /* btsth: btsth $u4,@$Ri */
1283 // OBSOLETE
1284 // OBSOLETE static SEM_PC
1285 // OBSOLETE SEM_FN_NAME (fr30bf,btsth) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
1286 // OBSOLETE {
1287 // OBSOLETE #define FLD(f) abuf->fields.sfmt_addi.f
1288 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
1289 // OBSOLETE   int UNUSED written = 0;
1290 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
1291 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
1292 // OBSOLETE
1293 // OBSOLETE {
1294 // OBSOLETE   QI tmp_tmp;
1295 // OBSOLETE   tmp_tmp = ANDQI (SLLQI (FLD (f_u4), 4), GETMEMQI (current_cpu, pc, * FLD (i_Ri)));
1296 // OBSOLETE   {
1297 // OBSOLETE     BI opval = EQQI (tmp_tmp, 0);
1298 // OBSOLETE     CPU (h_zbit) = opval;
1299 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
1300 // OBSOLETE   }
1301 // OBSOLETE   {
1302 // OBSOLETE     BI opval = LTQI (tmp_tmp, 0);
1303 // OBSOLETE     CPU (h_nbit) = opval;
1304 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
1305 // OBSOLETE   }
1306 // OBSOLETE }
1307 // OBSOLETE
1308 // OBSOLETE   return vpc;
1309 // OBSOLETE #undef FLD
1310 // OBSOLETE }
1311 // OBSOLETE
1312 // OBSOLETE /* mul: mul $Rj,$Ri */
1313 // OBSOLETE
1314 // OBSOLETE static SEM_PC
1315 // OBSOLETE SEM_FN_NAME (fr30bf,mul) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
1316 // OBSOLETE {
1317 // OBSOLETE #define FLD(f) abuf->fields.sfmt_str13.f
1318 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
1319 // OBSOLETE   int UNUSED written = 0;
1320 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
1321 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
1322 // OBSOLETE
1323 // OBSOLETE {
1324 // OBSOLETE   DI tmp_tmp;
1325 // OBSOLETE   tmp_tmp = MULDI (EXTSIDI (* FLD (i_Rj)), EXTSIDI (* FLD (i_Ri)));
1326 // OBSOLETE   {
1327 // OBSOLETE     SI opval = TRUNCDISI (tmp_tmp);
1328 // OBSOLETE     SET_H_DR (((UINT) 5), opval);
1329 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
1330 // OBSOLETE   }
1331 // OBSOLETE   {
1332 // OBSOLETE     SI opval = TRUNCDISI (SRLDI (tmp_tmp, 32));
1333 // OBSOLETE     SET_H_DR (((UINT) 4), opval);
1334 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
1335 // OBSOLETE   }
1336 // OBSOLETE   {
1337 // OBSOLETE     BI opval = LTSI (GET_H_DR (((UINT) 5)), 0);
1338 // OBSOLETE     CPU (h_nbit) = opval;
1339 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
1340 // OBSOLETE   }
1341 // OBSOLETE   {
1342 // OBSOLETE     BI opval = EQDI (tmp_tmp, MAKEDI (0, 0));
1343 // OBSOLETE     CPU (h_zbit) = opval;
1344 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
1345 // OBSOLETE   }
1346 // OBSOLETE   {
1347 // OBSOLETE     BI opval = ORIF (GTDI (tmp_tmp, MAKEDI (0, 2147483647)), LTDI (tmp_tmp, NEGDI (MAKEDI (0, 0x80000000))));
1348 // OBSOLETE     CPU (h_vbit) = opval;
1349 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "vbit", 'x', opval);
1350 // OBSOLETE   }
1351 // OBSOLETE }
1352 // OBSOLETE
1353 // OBSOLETE   return vpc;
1354 // OBSOLETE #undef FLD
1355 // OBSOLETE }
1356 // OBSOLETE
1357 // OBSOLETE /* mulu: mulu $Rj,$Ri */
1358 // OBSOLETE
1359 // OBSOLETE static SEM_PC
1360 // OBSOLETE SEM_FN_NAME (fr30bf,mulu) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
1361 // OBSOLETE {
1362 // OBSOLETE #define FLD(f) abuf->fields.sfmt_str13.f
1363 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
1364 // OBSOLETE   int UNUSED written = 0;
1365 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
1366 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
1367 // OBSOLETE
1368 // OBSOLETE {
1369 // OBSOLETE   DI tmp_tmp;
1370 // OBSOLETE   tmp_tmp = MULDI (ZEXTSIDI (* FLD (i_Rj)), ZEXTSIDI (* FLD (i_Ri)));
1371 // OBSOLETE   {
1372 // OBSOLETE     SI opval = TRUNCDISI (tmp_tmp);
1373 // OBSOLETE     SET_H_DR (((UINT) 5), opval);
1374 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
1375 // OBSOLETE   }
1376 // OBSOLETE   {
1377 // OBSOLETE     SI opval = TRUNCDISI (SRLDI (tmp_tmp, 32));
1378 // OBSOLETE     SET_H_DR (((UINT) 4), opval);
1379 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
1380 // OBSOLETE   }
1381 // OBSOLETE   {
1382 // OBSOLETE     BI opval = LTSI (GET_H_DR (((UINT) 4)), 0);
1383 // OBSOLETE     CPU (h_nbit) = opval;
1384 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
1385 // OBSOLETE   }
1386 // OBSOLETE   {
1387 // OBSOLETE     BI opval = EQSI (GET_H_DR (((UINT) 5)), 0);
1388 // OBSOLETE     CPU (h_zbit) = opval;
1389 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
1390 // OBSOLETE   }
1391 // OBSOLETE   {
1392 // OBSOLETE     BI opval = NESI (GET_H_DR (((UINT) 4)), 0);
1393 // OBSOLETE     CPU (h_vbit) = opval;
1394 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "vbit", 'x', opval);
1395 // OBSOLETE   }
1396 // OBSOLETE }
1397 // OBSOLETE
1398 // OBSOLETE   return vpc;
1399 // OBSOLETE #undef FLD
1400 // OBSOLETE }
1401 // OBSOLETE
1402 // OBSOLETE /* mulh: mulh $Rj,$Ri */
1403 // OBSOLETE
1404 // OBSOLETE static SEM_PC
1405 // OBSOLETE SEM_FN_NAME (fr30bf,mulh) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
1406 // OBSOLETE {
1407 // OBSOLETE #define FLD(f) abuf->fields.sfmt_str13.f
1408 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
1409 // OBSOLETE   int UNUSED written = 0;
1410 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
1411 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
1412 // OBSOLETE
1413 // OBSOLETE {
1414 // OBSOLETE   {
1415 // OBSOLETE     SI opval = MULHI (TRUNCSIHI (* FLD (i_Rj)), TRUNCSIHI (* FLD (i_Ri)));
1416 // OBSOLETE     SET_H_DR (((UINT) 5), opval);
1417 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
1418 // OBSOLETE   }
1419 // OBSOLETE   {
1420 // OBSOLETE     BI opval = LTSI (GET_H_DR (((UINT) 5)), 0);
1421 // OBSOLETE     CPU (h_nbit) = opval;
1422 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
1423 // OBSOLETE   }
1424 // OBSOLETE   {
1425 // OBSOLETE     BI opval = GESI (GET_H_DR (((UINT) 5)), 0);
1426 // OBSOLETE     CPU (h_zbit) = opval;
1427 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
1428 // OBSOLETE   }
1429 // OBSOLETE }
1430 // OBSOLETE
1431 // OBSOLETE   return vpc;
1432 // OBSOLETE #undef FLD
1433 // OBSOLETE }
1434 // OBSOLETE
1435 // OBSOLETE /* muluh: muluh $Rj,$Ri */
1436 // OBSOLETE
1437 // OBSOLETE static SEM_PC
1438 // OBSOLETE SEM_FN_NAME (fr30bf,muluh) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
1439 // OBSOLETE {
1440 // OBSOLETE #define FLD(f) abuf->fields.sfmt_str13.f
1441 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
1442 // OBSOLETE   int UNUSED written = 0;
1443 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
1444 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
1445 // OBSOLETE
1446 // OBSOLETE {
1447 // OBSOLETE   {
1448 // OBSOLETE     SI opval = MULSI (ANDSI (* FLD (i_Rj), 65535), ANDSI (* FLD (i_Ri), 65535));
1449 // OBSOLETE     SET_H_DR (((UINT) 5), opval);
1450 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
1451 // OBSOLETE   }
1452 // OBSOLETE   {
1453 // OBSOLETE     BI opval = LTSI (GET_H_DR (((UINT) 5)), 0);
1454 // OBSOLETE     CPU (h_nbit) = opval;
1455 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
1456 // OBSOLETE   }
1457 // OBSOLETE   {
1458 // OBSOLETE     BI opval = GESI (GET_H_DR (((UINT) 5)), 0);
1459 // OBSOLETE     CPU (h_zbit) = opval;
1460 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
1461 // OBSOLETE   }
1462 // OBSOLETE }
1463 // OBSOLETE
1464 // OBSOLETE   return vpc;
1465 // OBSOLETE #undef FLD
1466 // OBSOLETE }
1467 // OBSOLETE
1468 // OBSOLETE /* div0s: div0s $Ri */
1469 // OBSOLETE
1470 // OBSOLETE static SEM_PC
1471 // OBSOLETE SEM_FN_NAME (fr30bf,div0s) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
1472 // OBSOLETE {
1473 // OBSOLETE #define FLD(f) abuf->fields.sfmt_mov2dr.f
1474 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
1475 // OBSOLETE   int UNUSED written = 0;
1476 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
1477 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
1478 // OBSOLETE
1479 // OBSOLETE {
1480 // OBSOLETE   {
1481 // OBSOLETE     BI opval = LTSI (GET_H_DR (((UINT) 5)), 0);
1482 // OBSOLETE     CPU (h_d0bit) = opval;
1483 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "d0bit", 'x', opval);
1484 // OBSOLETE   }
1485 // OBSOLETE   {
1486 // OBSOLETE     BI opval = XORBI (CPU (h_d0bit), LTSI (* FLD (i_Ri), 0));
1487 // OBSOLETE     CPU (h_d1bit) = opval;
1488 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "d1bit", 'x', opval);
1489 // OBSOLETE   }
1490 // OBSOLETE if (NEBI (CPU (h_d0bit), 0)) {
1491 // OBSOLETE   {
1492 // OBSOLETE     SI opval = 0xffffffff;
1493 // OBSOLETE     SET_H_DR (((UINT) 4), opval);
1494 // OBSOLETE     written |= (1 << 5);
1495 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
1496 // OBSOLETE   }
1497 // OBSOLETE } else {
1498 // OBSOLETE   {
1499 // OBSOLETE     SI opval = 0;
1500 // OBSOLETE     SET_H_DR (((UINT) 4), opval);
1501 // OBSOLETE     written |= (1 << 5);
1502 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
1503 // OBSOLETE   }
1504 // OBSOLETE }
1505 // OBSOLETE }
1506 // OBSOLETE
1507 // OBSOLETE   abuf->written = written;
1508 // OBSOLETE   return vpc;
1509 // OBSOLETE #undef FLD
1510 // OBSOLETE }
1511 // OBSOLETE
1512 // OBSOLETE /* div0u: div0u $Ri */
1513 // OBSOLETE
1514 // OBSOLETE static SEM_PC
1515 // OBSOLETE SEM_FN_NAME (fr30bf,div0u) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
1516 // OBSOLETE {
1517 // OBSOLETE #define FLD(f) abuf->fields.fmt_empty.f
1518 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
1519 // OBSOLETE   int UNUSED written = 0;
1520 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
1521 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
1522 // OBSOLETE
1523 // OBSOLETE {
1524 // OBSOLETE   {
1525 // OBSOLETE     BI opval = 0;
1526 // OBSOLETE     CPU (h_d0bit) = opval;
1527 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "d0bit", 'x', opval);
1528 // OBSOLETE   }
1529 // OBSOLETE   {
1530 // OBSOLETE     BI opval = 0;
1531 // OBSOLETE     CPU (h_d1bit) = opval;
1532 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "d1bit", 'x', opval);
1533 // OBSOLETE   }
1534 // OBSOLETE   {
1535 // OBSOLETE     SI opval = 0;
1536 // OBSOLETE     SET_H_DR (((UINT) 4), opval);
1537 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
1538 // OBSOLETE   }
1539 // OBSOLETE }
1540 // OBSOLETE
1541 // OBSOLETE   return vpc;
1542 // OBSOLETE #undef FLD
1543 // OBSOLETE }
1544 // OBSOLETE
1545 // OBSOLETE /* div1: div1 $Ri */
1546 // OBSOLETE
1547 // OBSOLETE static SEM_PC
1548 // OBSOLETE SEM_FN_NAME (fr30bf,div1) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
1549 // OBSOLETE {
1550 // OBSOLETE #define FLD(f) abuf->fields.sfmt_mov2dr.f
1551 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
1552 // OBSOLETE   int UNUSED written = 0;
1553 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
1554 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
1555 // OBSOLETE
1556 // OBSOLETE {
1557 // OBSOLETE   SI tmp_tmp;
1558 // OBSOLETE   {
1559 // OBSOLETE     SI opval = SLLSI (GET_H_DR (((UINT) 4)), 1);
1560 // OBSOLETE     SET_H_DR (((UINT) 4), opval);
1561 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
1562 // OBSOLETE   }
1563 // OBSOLETE if (LTSI (GET_H_DR (((UINT) 5)), 0)) {
1564 // OBSOLETE   {
1565 // OBSOLETE     SI opval = ADDSI (GET_H_DR (((UINT) 4)), 1);
1566 // OBSOLETE     SET_H_DR (((UINT) 4), opval);
1567 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
1568 // OBSOLETE   }
1569 // OBSOLETE }
1570 // OBSOLETE   {
1571 // OBSOLETE     SI opval = SLLSI (GET_H_DR (((UINT) 5)), 1);
1572 // OBSOLETE     SET_H_DR (((UINT) 5), opval);
1573 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
1574 // OBSOLETE   }
1575 // OBSOLETE if (EQBI (CPU (h_d1bit), 1)) {
1576 // OBSOLETE {
1577 // OBSOLETE   tmp_tmp = ADDSI (GET_H_DR (((UINT) 4)), * FLD (i_Ri));
1578 // OBSOLETE   {
1579 // OBSOLETE     BI opval = ADDCFSI (GET_H_DR (((UINT) 4)), * FLD (i_Ri), 0);
1580 // OBSOLETE     CPU (h_cbit) = opval;
1581 // OBSOLETE     written |= (1 << 6);
1582 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
1583 // OBSOLETE   }
1584 // OBSOLETE }
1585 // OBSOLETE } else {
1586 // OBSOLETE {
1587 // OBSOLETE   tmp_tmp = SUBSI (GET_H_DR (((UINT) 4)), * FLD (i_Ri));
1588 // OBSOLETE   {
1589 // OBSOLETE     BI opval = SUBCFSI (GET_H_DR (((UINT) 4)), * FLD (i_Ri), 0);
1590 // OBSOLETE     CPU (h_cbit) = opval;
1591 // OBSOLETE     written |= (1 << 6);
1592 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
1593 // OBSOLETE   }
1594 // OBSOLETE }
1595 // OBSOLETE }
1596 // OBSOLETE if (NOTBI (XORBI (XORBI (CPU (h_d0bit), CPU (h_d1bit)), CPU (h_cbit)))) {
1597 // OBSOLETE {
1598 // OBSOLETE   {
1599 // OBSOLETE     SI opval = tmp_tmp;
1600 // OBSOLETE     SET_H_DR (((UINT) 4), opval);
1601 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
1602 // OBSOLETE   }
1603 // OBSOLETE   {
1604 // OBSOLETE     SI opval = ORSI (GET_H_DR (((UINT) 5)), 1);
1605 // OBSOLETE     SET_H_DR (((UINT) 5), opval);
1606 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
1607 // OBSOLETE   }
1608 // OBSOLETE }
1609 // OBSOLETE }
1610 // OBSOLETE   {
1611 // OBSOLETE     BI opval = EQSI (GET_H_DR (((UINT) 4)), 0);
1612 // OBSOLETE     CPU (h_zbit) = opval;
1613 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
1614 // OBSOLETE   }
1615 // OBSOLETE }
1616 // OBSOLETE
1617 // OBSOLETE   abuf->written = written;
1618 // OBSOLETE   return vpc;
1619 // OBSOLETE #undef FLD
1620 // OBSOLETE }
1621 // OBSOLETE
1622 // OBSOLETE /* div2: div2 $Ri */
1623 // OBSOLETE
1624 // OBSOLETE static SEM_PC
1625 // OBSOLETE SEM_FN_NAME (fr30bf,div2) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
1626 // OBSOLETE {
1627 // OBSOLETE #define FLD(f) abuf->fields.sfmt_mov2dr.f
1628 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
1629 // OBSOLETE   int UNUSED written = 0;
1630 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
1631 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
1632 // OBSOLETE
1633 // OBSOLETE {
1634 // OBSOLETE   SI tmp_tmp;
1635 // OBSOLETE if (EQBI (CPU (h_d1bit), 1)) {
1636 // OBSOLETE {
1637 // OBSOLETE   tmp_tmp = ADDSI (GET_H_DR (((UINT) 4)), * FLD (i_Ri));
1638 // OBSOLETE   {
1639 // OBSOLETE     BI opval = ADDCFSI (GET_H_DR (((UINT) 4)), * FLD (i_Ri), 0);
1640 // OBSOLETE     CPU (h_cbit) = opval;
1641 // OBSOLETE     written |= (1 << 3);
1642 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
1643 // OBSOLETE   }
1644 // OBSOLETE }
1645 // OBSOLETE } else {
1646 // OBSOLETE {
1647 // OBSOLETE   tmp_tmp = SUBSI (GET_H_DR (((UINT) 4)), * FLD (i_Ri));
1648 // OBSOLETE   {
1649 // OBSOLETE     BI opval = SUBCFSI (GET_H_DR (((UINT) 4)), * FLD (i_Ri), 0);
1650 // OBSOLETE     CPU (h_cbit) = opval;
1651 // OBSOLETE     written |= (1 << 3);
1652 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
1653 // OBSOLETE   }
1654 // OBSOLETE }
1655 // OBSOLETE }
1656 // OBSOLETE if (EQSI (tmp_tmp, 0)) {
1657 // OBSOLETE {
1658 // OBSOLETE   {
1659 // OBSOLETE     BI opval = 1;
1660 // OBSOLETE     CPU (h_zbit) = opval;
1661 // OBSOLETE     written |= (1 << 5);
1662 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
1663 // OBSOLETE   }
1664 // OBSOLETE   {
1665 // OBSOLETE     SI opval = 0;
1666 // OBSOLETE     SET_H_DR (((UINT) 4), opval);
1667 // OBSOLETE     written |= (1 << 4);
1668 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
1669 // OBSOLETE   }
1670 // OBSOLETE }
1671 // OBSOLETE } else {
1672 // OBSOLETE   {
1673 // OBSOLETE     BI opval = 0;
1674 // OBSOLETE     CPU (h_zbit) = opval;
1675 // OBSOLETE     written |= (1 << 5);
1676 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
1677 // OBSOLETE   }
1678 // OBSOLETE }
1679 // OBSOLETE }
1680 // OBSOLETE
1681 // OBSOLETE   abuf->written = written;
1682 // OBSOLETE   return vpc;
1683 // OBSOLETE #undef FLD
1684 // OBSOLETE }
1685 // OBSOLETE
1686 // OBSOLETE /* div3: div3 */
1687 // OBSOLETE
1688 // OBSOLETE static SEM_PC
1689 // OBSOLETE SEM_FN_NAME (fr30bf,div3) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
1690 // OBSOLETE {
1691 // OBSOLETE #define FLD(f) abuf->fields.fmt_empty.f
1692 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
1693 // OBSOLETE   int UNUSED written = 0;
1694 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
1695 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
1696 // OBSOLETE
1697 // OBSOLETE if (EQBI (CPU (h_zbit), 1)) {
1698 // OBSOLETE   {
1699 // OBSOLETE     SI opval = ADDSI (GET_H_DR (((UINT) 5)), 1);
1700 // OBSOLETE     SET_H_DR (((UINT) 5), opval);
1701 // OBSOLETE     written |= (1 << 2);
1702 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
1703 // OBSOLETE   }
1704 // OBSOLETE }
1705 // OBSOLETE
1706 // OBSOLETE   abuf->written = written;
1707 // OBSOLETE   return vpc;
1708 // OBSOLETE #undef FLD
1709 // OBSOLETE }
1710 // OBSOLETE
1711 // OBSOLETE /* div4s: div4s */
1712 // OBSOLETE
1713 // OBSOLETE static SEM_PC
1714 // OBSOLETE SEM_FN_NAME (fr30bf,div4s) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
1715 // OBSOLETE {
1716 // OBSOLETE #define FLD(f) abuf->fields.fmt_empty.f
1717 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
1718 // OBSOLETE   int UNUSED written = 0;
1719 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
1720 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
1721 // OBSOLETE
1722 // OBSOLETE if (EQBI (CPU (h_d1bit), 1)) {
1723 // OBSOLETE   {
1724 // OBSOLETE     SI opval = NEGSI (GET_H_DR (((UINT) 5)));
1725 // OBSOLETE     SET_H_DR (((UINT) 5), opval);
1726 // OBSOLETE     written |= (1 << 2);
1727 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
1728 // OBSOLETE   }
1729 // OBSOLETE }
1730 // OBSOLETE
1731 // OBSOLETE   abuf->written = written;
1732 // OBSOLETE   return vpc;
1733 // OBSOLETE #undef FLD
1734 // OBSOLETE }
1735 // OBSOLETE
1736 // OBSOLETE /* lsl: lsl $Rj,$Ri */
1737 // OBSOLETE
1738 // OBSOLETE static SEM_PC
1739 // OBSOLETE SEM_FN_NAME (fr30bf,lsl) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
1740 // OBSOLETE {
1741 // OBSOLETE #define FLD(f) abuf->fields.sfmt_add.f
1742 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
1743 // OBSOLETE   int UNUSED written = 0;
1744 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
1745 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
1746 // OBSOLETE
1747 // OBSOLETE {
1748 // OBSOLETE   SI tmp_shift;
1749 // OBSOLETE   tmp_shift = ANDSI (* FLD (i_Rj), 31);
1750 // OBSOLETE if (NESI (tmp_shift, 0)) {
1751 // OBSOLETE {
1752 // OBSOLETE   {
1753 // OBSOLETE     BI opval = NESI (ANDSI (* FLD (i_Ri), SLLSI (1, SUBSI (32, tmp_shift))), 0);
1754 // OBSOLETE     CPU (h_cbit) = opval;
1755 // OBSOLETE     written |= (1 << 3);
1756 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
1757 // OBSOLETE   }
1758 // OBSOLETE   {
1759 // OBSOLETE     SI opval = SLLSI (* FLD (i_Ri), tmp_shift);
1760 // OBSOLETE     * FLD (i_Ri) = opval;
1761 // OBSOLETE     written |= (1 << 2);
1762 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
1763 // OBSOLETE   }
1764 // OBSOLETE }
1765 // OBSOLETE } else {
1766 // OBSOLETE   {
1767 // OBSOLETE     BI opval = 0;
1768 // OBSOLETE     CPU (h_cbit) = opval;
1769 // OBSOLETE     written |= (1 << 3);
1770 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
1771 // OBSOLETE   }
1772 // OBSOLETE }
1773 // OBSOLETE   {
1774 // OBSOLETE     BI opval = LTSI (* FLD (i_Ri), 0);
1775 // OBSOLETE     CPU (h_nbit) = opval;
1776 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
1777 // OBSOLETE   }
1778 // OBSOLETE   {
1779 // OBSOLETE     BI opval = EQSI (* FLD (i_Ri), 0);
1780 // OBSOLETE     CPU (h_zbit) = opval;
1781 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
1782 // OBSOLETE   }
1783 // OBSOLETE }
1784 // OBSOLETE
1785 // OBSOLETE   abuf->written = written;
1786 // OBSOLETE   return vpc;
1787 // OBSOLETE #undef FLD
1788 // OBSOLETE }
1789 // OBSOLETE
1790 // OBSOLETE /* lsli: lsl $u4,$Ri */
1791 // OBSOLETE
1792 // OBSOLETE static SEM_PC
1793 // OBSOLETE SEM_FN_NAME (fr30bf,lsli) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
1794 // OBSOLETE {
1795 // OBSOLETE #define FLD(f) abuf->fields.sfmt_addi.f
1796 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
1797 // OBSOLETE   int UNUSED written = 0;
1798 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
1799 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
1800 // OBSOLETE
1801 // OBSOLETE {
1802 // OBSOLETE   SI tmp_shift;
1803 // OBSOLETE   tmp_shift = FLD (f_u4);
1804 // OBSOLETE if (NESI (tmp_shift, 0)) {
1805 // OBSOLETE {
1806 // OBSOLETE   {
1807 // OBSOLETE     BI opval = NESI (ANDSI (* FLD (i_Ri), SLLSI (1, SUBSI (32, tmp_shift))), 0);
1808 // OBSOLETE     CPU (h_cbit) = opval;
1809 // OBSOLETE     written |= (1 << 3);
1810 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
1811 // OBSOLETE   }
1812 // OBSOLETE   {
1813 // OBSOLETE     SI opval = SLLSI (* FLD (i_Ri), tmp_shift);
1814 // OBSOLETE     * FLD (i_Ri) = opval;
1815 // OBSOLETE     written |= (1 << 2);
1816 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
1817 // OBSOLETE   }
1818 // OBSOLETE }
1819 // OBSOLETE } else {
1820 // OBSOLETE   {
1821 // OBSOLETE     BI opval = 0;
1822 // OBSOLETE     CPU (h_cbit) = opval;
1823 // OBSOLETE     written |= (1 << 3);
1824 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
1825 // OBSOLETE   }
1826 // OBSOLETE }
1827 // OBSOLETE   {
1828 // OBSOLETE     BI opval = LTSI (* FLD (i_Ri), 0);
1829 // OBSOLETE     CPU (h_nbit) = opval;
1830 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
1831 // OBSOLETE   }
1832 // OBSOLETE   {
1833 // OBSOLETE     BI opval = EQSI (* FLD (i_Ri), 0);
1834 // OBSOLETE     CPU (h_zbit) = opval;
1835 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
1836 // OBSOLETE   }
1837 // OBSOLETE }
1838 // OBSOLETE
1839 // OBSOLETE   abuf->written = written;
1840 // OBSOLETE   return vpc;
1841 // OBSOLETE #undef FLD
1842 // OBSOLETE }
1843 // OBSOLETE
1844 // OBSOLETE /* lsl2: lsl2 $u4,$Ri */
1845 // OBSOLETE
1846 // OBSOLETE static SEM_PC
1847 // OBSOLETE SEM_FN_NAME (fr30bf,lsl2) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
1848 // OBSOLETE {
1849 // OBSOLETE #define FLD(f) abuf->fields.sfmt_addi.f
1850 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
1851 // OBSOLETE   int UNUSED written = 0;
1852 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
1853 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
1854 // OBSOLETE
1855 // OBSOLETE {
1856 // OBSOLETE   SI tmp_shift;
1857 // OBSOLETE   tmp_shift = ADDSI (FLD (f_u4), 16);
1858 // OBSOLETE if (NESI (tmp_shift, 0)) {
1859 // OBSOLETE {
1860 // OBSOLETE   {
1861 // OBSOLETE     BI opval = NESI (ANDSI (* FLD (i_Ri), SLLSI (1, SUBSI (32, tmp_shift))), 0);
1862 // OBSOLETE     CPU (h_cbit) = opval;
1863 // OBSOLETE     written |= (1 << 3);
1864 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
1865 // OBSOLETE   }
1866 // OBSOLETE   {
1867 // OBSOLETE     SI opval = SLLSI (* FLD (i_Ri), tmp_shift);
1868 // OBSOLETE     * FLD (i_Ri) = opval;
1869 // OBSOLETE     written |= (1 << 2);
1870 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
1871 // OBSOLETE   }
1872 // OBSOLETE }
1873 // OBSOLETE } else {
1874 // OBSOLETE   {
1875 // OBSOLETE     BI opval = 0;
1876 // OBSOLETE     CPU (h_cbit) = opval;
1877 // OBSOLETE     written |= (1 << 3);
1878 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
1879 // OBSOLETE   }
1880 // OBSOLETE }
1881 // OBSOLETE   {
1882 // OBSOLETE     BI opval = LTSI (* FLD (i_Ri), 0);
1883 // OBSOLETE     CPU (h_nbit) = opval;
1884 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
1885 // OBSOLETE   }
1886 // OBSOLETE   {
1887 // OBSOLETE     BI opval = EQSI (* FLD (i_Ri), 0);
1888 // OBSOLETE     CPU (h_zbit) = opval;
1889 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
1890 // OBSOLETE   }
1891 // OBSOLETE }
1892 // OBSOLETE
1893 // OBSOLETE   abuf->written = written;
1894 // OBSOLETE   return vpc;
1895 // OBSOLETE #undef FLD
1896 // OBSOLETE }
1897 // OBSOLETE
1898 // OBSOLETE /* lsr: lsr $Rj,$Ri */
1899 // OBSOLETE
1900 // OBSOLETE static SEM_PC
1901 // OBSOLETE SEM_FN_NAME (fr30bf,lsr) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
1902 // OBSOLETE {
1903 // OBSOLETE #define FLD(f) abuf->fields.sfmt_add.f
1904 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
1905 // OBSOLETE   int UNUSED written = 0;
1906 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
1907 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
1908 // OBSOLETE
1909 // OBSOLETE {
1910 // OBSOLETE   SI tmp_shift;
1911 // OBSOLETE   tmp_shift = ANDSI (* FLD (i_Rj), 31);
1912 // OBSOLETE if (NESI (tmp_shift, 0)) {
1913 // OBSOLETE {
1914 // OBSOLETE   {
1915 // OBSOLETE     BI opval = NESI (ANDSI (* FLD (i_Ri), SLLSI (1, SUBSI (tmp_shift, 1))), 0);
1916 // OBSOLETE     CPU (h_cbit) = opval;
1917 // OBSOLETE     written |= (1 << 3);
1918 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
1919 // OBSOLETE   }
1920 // OBSOLETE   {
1921 // OBSOLETE     SI opval = SRLSI (* FLD (i_Ri), tmp_shift);
1922 // OBSOLETE     * FLD (i_Ri) = opval;
1923 // OBSOLETE     written |= (1 << 2);
1924 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
1925 // OBSOLETE   }
1926 // OBSOLETE }
1927 // OBSOLETE } else {
1928 // OBSOLETE   {
1929 // OBSOLETE     BI opval = 0;
1930 // OBSOLETE     CPU (h_cbit) = opval;
1931 // OBSOLETE     written |= (1 << 3);
1932 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
1933 // OBSOLETE   }
1934 // OBSOLETE }
1935 // OBSOLETE   {
1936 // OBSOLETE     BI opval = LTSI (* FLD (i_Ri), 0);
1937 // OBSOLETE     CPU (h_nbit) = opval;
1938 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
1939 // OBSOLETE   }
1940 // OBSOLETE   {
1941 // OBSOLETE     BI opval = EQSI (* FLD (i_Ri), 0);
1942 // OBSOLETE     CPU (h_zbit) = opval;
1943 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
1944 // OBSOLETE   }
1945 // OBSOLETE }
1946 // OBSOLETE
1947 // OBSOLETE   abuf->written = written;
1948 // OBSOLETE   return vpc;
1949 // OBSOLETE #undef FLD
1950 // OBSOLETE }
1951 // OBSOLETE
1952 // OBSOLETE /* lsri: lsr $u4,$Ri */
1953 // OBSOLETE
1954 // OBSOLETE static SEM_PC
1955 // OBSOLETE SEM_FN_NAME (fr30bf,lsri) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
1956 // OBSOLETE {
1957 // OBSOLETE #define FLD(f) abuf->fields.sfmt_addi.f
1958 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
1959 // OBSOLETE   int UNUSED written = 0;
1960 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
1961 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
1962 // OBSOLETE
1963 // OBSOLETE {
1964 // OBSOLETE   SI tmp_shift;
1965 // OBSOLETE   tmp_shift = FLD (f_u4);
1966 // OBSOLETE if (NESI (tmp_shift, 0)) {
1967 // OBSOLETE {
1968 // OBSOLETE   {
1969 // OBSOLETE     BI opval = NESI (ANDSI (* FLD (i_Ri), SLLSI (1, SUBSI (tmp_shift, 1))), 0);
1970 // OBSOLETE     CPU (h_cbit) = opval;
1971 // OBSOLETE     written |= (1 << 3);
1972 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
1973 // OBSOLETE   }
1974 // OBSOLETE   {
1975 // OBSOLETE     SI opval = SRLSI (* FLD (i_Ri), tmp_shift);
1976 // OBSOLETE     * FLD (i_Ri) = opval;
1977 // OBSOLETE     written |= (1 << 2);
1978 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
1979 // OBSOLETE   }
1980 // OBSOLETE }
1981 // OBSOLETE } else {
1982 // OBSOLETE   {
1983 // OBSOLETE     BI opval = 0;
1984 // OBSOLETE     CPU (h_cbit) = opval;
1985 // OBSOLETE     written |= (1 << 3);
1986 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
1987 // OBSOLETE   }
1988 // OBSOLETE }
1989 // OBSOLETE   {
1990 // OBSOLETE     BI opval = LTSI (* FLD (i_Ri), 0);
1991 // OBSOLETE     CPU (h_nbit) = opval;
1992 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
1993 // OBSOLETE   }
1994 // OBSOLETE   {
1995 // OBSOLETE     BI opval = EQSI (* FLD (i_Ri), 0);
1996 // OBSOLETE     CPU (h_zbit) = opval;
1997 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
1998 // OBSOLETE   }
1999 // OBSOLETE }
2000 // OBSOLETE
2001 // OBSOLETE   abuf->written = written;
2002 // OBSOLETE   return vpc;
2003 // OBSOLETE #undef FLD
2004 // OBSOLETE }
2005 // OBSOLETE
2006 // OBSOLETE /* lsr2: lsr2 $u4,$Ri */
2007 // OBSOLETE
2008 // OBSOLETE static SEM_PC
2009 // OBSOLETE SEM_FN_NAME (fr30bf,lsr2) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2010 // OBSOLETE {
2011 // OBSOLETE #define FLD(f) abuf->fields.sfmt_addi.f
2012 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2013 // OBSOLETE   int UNUSED written = 0;
2014 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2015 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2016 // OBSOLETE
2017 // OBSOLETE {
2018 // OBSOLETE   SI tmp_shift;
2019 // OBSOLETE   tmp_shift = ADDSI (FLD (f_u4), 16);
2020 // OBSOLETE if (NESI (tmp_shift, 0)) {
2021 // OBSOLETE {
2022 // OBSOLETE   {
2023 // OBSOLETE     BI opval = NESI (ANDSI (* FLD (i_Ri), SLLSI (1, SUBSI (tmp_shift, 1))), 0);
2024 // OBSOLETE     CPU (h_cbit) = opval;
2025 // OBSOLETE     written |= (1 << 3);
2026 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
2027 // OBSOLETE   }
2028 // OBSOLETE   {
2029 // OBSOLETE     SI opval = SRLSI (* FLD (i_Ri), tmp_shift);
2030 // OBSOLETE     * FLD (i_Ri) = opval;
2031 // OBSOLETE     written |= (1 << 2);
2032 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
2033 // OBSOLETE   }
2034 // OBSOLETE }
2035 // OBSOLETE } else {
2036 // OBSOLETE   {
2037 // OBSOLETE     BI opval = 0;
2038 // OBSOLETE     CPU (h_cbit) = opval;
2039 // OBSOLETE     written |= (1 << 3);
2040 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
2041 // OBSOLETE   }
2042 // OBSOLETE }
2043 // OBSOLETE   {
2044 // OBSOLETE     BI opval = LTSI (* FLD (i_Ri), 0);
2045 // OBSOLETE     CPU (h_nbit) = opval;
2046 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
2047 // OBSOLETE   }
2048 // OBSOLETE   {
2049 // OBSOLETE     BI opval = EQSI (* FLD (i_Ri), 0);
2050 // OBSOLETE     CPU (h_zbit) = opval;
2051 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
2052 // OBSOLETE   }
2053 // OBSOLETE }
2054 // OBSOLETE
2055 // OBSOLETE   abuf->written = written;
2056 // OBSOLETE   return vpc;
2057 // OBSOLETE #undef FLD
2058 // OBSOLETE }
2059 // OBSOLETE
2060 // OBSOLETE /* asr: asr $Rj,$Ri */
2061 // OBSOLETE
2062 // OBSOLETE static SEM_PC
2063 // OBSOLETE SEM_FN_NAME (fr30bf,asr) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2064 // OBSOLETE {
2065 // OBSOLETE #define FLD(f) abuf->fields.sfmt_add.f
2066 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2067 // OBSOLETE   int UNUSED written = 0;
2068 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2069 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2070 // OBSOLETE
2071 // OBSOLETE {
2072 // OBSOLETE   SI tmp_shift;
2073 // OBSOLETE   tmp_shift = ANDSI (* FLD (i_Rj), 31);
2074 // OBSOLETE if (NESI (tmp_shift, 0)) {
2075 // OBSOLETE {
2076 // OBSOLETE   {
2077 // OBSOLETE     BI opval = NESI (ANDSI (* FLD (i_Ri), SLLSI (1, SUBSI (tmp_shift, 1))), 0);
2078 // OBSOLETE     CPU (h_cbit) = opval;
2079 // OBSOLETE     written |= (1 << 3);
2080 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
2081 // OBSOLETE   }
2082 // OBSOLETE   {
2083 // OBSOLETE     SI opval = SRASI (* FLD (i_Ri), tmp_shift);
2084 // OBSOLETE     * FLD (i_Ri) = opval;
2085 // OBSOLETE     written |= (1 << 2);
2086 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
2087 // OBSOLETE   }
2088 // OBSOLETE }
2089 // OBSOLETE } else {
2090 // OBSOLETE   {
2091 // OBSOLETE     BI opval = 0;
2092 // OBSOLETE     CPU (h_cbit) = opval;
2093 // OBSOLETE     written |= (1 << 3);
2094 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
2095 // OBSOLETE   }
2096 // OBSOLETE }
2097 // OBSOLETE   {
2098 // OBSOLETE     BI opval = LTSI (* FLD (i_Ri), 0);
2099 // OBSOLETE     CPU (h_nbit) = opval;
2100 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
2101 // OBSOLETE   }
2102 // OBSOLETE   {
2103 // OBSOLETE     BI opval = EQSI (* FLD (i_Ri), 0);
2104 // OBSOLETE     CPU (h_zbit) = opval;
2105 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
2106 // OBSOLETE   }
2107 // OBSOLETE }
2108 // OBSOLETE
2109 // OBSOLETE   abuf->written = written;
2110 // OBSOLETE   return vpc;
2111 // OBSOLETE #undef FLD
2112 // OBSOLETE }
2113 // OBSOLETE
2114 // OBSOLETE /* asri: asr $u4,$Ri */
2115 // OBSOLETE
2116 // OBSOLETE static SEM_PC
2117 // OBSOLETE SEM_FN_NAME (fr30bf,asri) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2118 // OBSOLETE {
2119 // OBSOLETE #define FLD(f) abuf->fields.sfmt_addi.f
2120 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2121 // OBSOLETE   int UNUSED written = 0;
2122 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2123 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2124 // OBSOLETE
2125 // OBSOLETE {
2126 // OBSOLETE   SI tmp_shift;
2127 // OBSOLETE   tmp_shift = FLD (f_u4);
2128 // OBSOLETE if (NESI (tmp_shift, 0)) {
2129 // OBSOLETE {
2130 // OBSOLETE   {
2131 // OBSOLETE     BI opval = NESI (ANDSI (* FLD (i_Ri), SLLSI (1, SUBSI (tmp_shift, 1))), 0);
2132 // OBSOLETE     CPU (h_cbit) = opval;
2133 // OBSOLETE     written |= (1 << 3);
2134 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
2135 // OBSOLETE   }
2136 // OBSOLETE   {
2137 // OBSOLETE     SI opval = SRASI (* FLD (i_Ri), tmp_shift);
2138 // OBSOLETE     * FLD (i_Ri) = opval;
2139 // OBSOLETE     written |= (1 << 2);
2140 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
2141 // OBSOLETE   }
2142 // OBSOLETE }
2143 // OBSOLETE } else {
2144 // OBSOLETE   {
2145 // OBSOLETE     BI opval = 0;
2146 // OBSOLETE     CPU (h_cbit) = opval;
2147 // OBSOLETE     written |= (1 << 3);
2148 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
2149 // OBSOLETE   }
2150 // OBSOLETE }
2151 // OBSOLETE   {
2152 // OBSOLETE     BI opval = LTSI (* FLD (i_Ri), 0);
2153 // OBSOLETE     CPU (h_nbit) = opval;
2154 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
2155 // OBSOLETE   }
2156 // OBSOLETE   {
2157 // OBSOLETE     BI opval = EQSI (* FLD (i_Ri), 0);
2158 // OBSOLETE     CPU (h_zbit) = opval;
2159 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
2160 // OBSOLETE   }
2161 // OBSOLETE }
2162 // OBSOLETE
2163 // OBSOLETE   abuf->written = written;
2164 // OBSOLETE   return vpc;
2165 // OBSOLETE #undef FLD
2166 // OBSOLETE }
2167 // OBSOLETE
2168 // OBSOLETE /* asr2: asr2 $u4,$Ri */
2169 // OBSOLETE
2170 // OBSOLETE static SEM_PC
2171 // OBSOLETE SEM_FN_NAME (fr30bf,asr2) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2172 // OBSOLETE {
2173 // OBSOLETE #define FLD(f) abuf->fields.sfmt_addi.f
2174 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2175 // OBSOLETE   int UNUSED written = 0;
2176 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2177 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2178 // OBSOLETE
2179 // OBSOLETE {
2180 // OBSOLETE   SI tmp_shift;
2181 // OBSOLETE   tmp_shift = ADDSI (FLD (f_u4), 16);
2182 // OBSOLETE if (NESI (tmp_shift, 0)) {
2183 // OBSOLETE {
2184 // OBSOLETE   {
2185 // OBSOLETE     BI opval = NESI (ANDSI (* FLD (i_Ri), SLLSI (1, SUBSI (tmp_shift, 1))), 0);
2186 // OBSOLETE     CPU (h_cbit) = opval;
2187 // OBSOLETE     written |= (1 << 3);
2188 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
2189 // OBSOLETE   }
2190 // OBSOLETE   {
2191 // OBSOLETE     SI opval = SRASI (* FLD (i_Ri), tmp_shift);
2192 // OBSOLETE     * FLD (i_Ri) = opval;
2193 // OBSOLETE     written |= (1 << 2);
2194 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
2195 // OBSOLETE   }
2196 // OBSOLETE }
2197 // OBSOLETE } else {
2198 // OBSOLETE   {
2199 // OBSOLETE     BI opval = 0;
2200 // OBSOLETE     CPU (h_cbit) = opval;
2201 // OBSOLETE     written |= (1 << 3);
2202 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
2203 // OBSOLETE   }
2204 // OBSOLETE }
2205 // OBSOLETE   {
2206 // OBSOLETE     BI opval = LTSI (* FLD (i_Ri), 0);
2207 // OBSOLETE     CPU (h_nbit) = opval;
2208 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
2209 // OBSOLETE   }
2210 // OBSOLETE   {
2211 // OBSOLETE     BI opval = EQSI (* FLD (i_Ri), 0);
2212 // OBSOLETE     CPU (h_zbit) = opval;
2213 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
2214 // OBSOLETE   }
2215 // OBSOLETE }
2216 // OBSOLETE
2217 // OBSOLETE   abuf->written = written;
2218 // OBSOLETE   return vpc;
2219 // OBSOLETE #undef FLD
2220 // OBSOLETE }
2221 // OBSOLETE
2222 // OBSOLETE /* ldi8: ldi:8 $i8,$Ri */
2223 // OBSOLETE
2224 // OBSOLETE static SEM_PC
2225 // OBSOLETE SEM_FN_NAME (fr30bf,ldi8) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2226 // OBSOLETE {
2227 // OBSOLETE #define FLD(f) abuf->fields.sfmt_ldi8.f
2228 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2229 // OBSOLETE   int UNUSED written = 0;
2230 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2231 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2232 // OBSOLETE
2233 // OBSOLETE   {
2234 // OBSOLETE     SI opval = FLD (f_i8);
2235 // OBSOLETE     * FLD (i_Ri) = opval;
2236 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
2237 // OBSOLETE   }
2238 // OBSOLETE
2239 // OBSOLETE   return vpc;
2240 // OBSOLETE #undef FLD
2241 // OBSOLETE }
2242 // OBSOLETE
2243 // OBSOLETE /* ldi20: ldi:20 $i20,$Ri */
2244 // OBSOLETE
2245 // OBSOLETE static SEM_PC
2246 // OBSOLETE SEM_FN_NAME (fr30bf,ldi20) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2247 // OBSOLETE {
2248 // OBSOLETE #define FLD(f) abuf->fields.sfmt_ldi20.f
2249 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2250 // OBSOLETE   int UNUSED written = 0;
2251 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2252 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 4);
2253 // OBSOLETE
2254 // OBSOLETE   {
2255 // OBSOLETE     SI opval = FLD (f_i20);
2256 // OBSOLETE     * FLD (i_Ri) = opval;
2257 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
2258 // OBSOLETE   }
2259 // OBSOLETE
2260 // OBSOLETE   return vpc;
2261 // OBSOLETE #undef FLD
2262 // OBSOLETE }
2263 // OBSOLETE
2264 // OBSOLETE /* ldi32: ldi:32 $i32,$Ri */
2265 // OBSOLETE
2266 // OBSOLETE static SEM_PC
2267 // OBSOLETE SEM_FN_NAME (fr30bf,ldi32) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2268 // OBSOLETE {
2269 // OBSOLETE #define FLD(f) abuf->fields.sfmt_ldi32.f
2270 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2271 // OBSOLETE   int UNUSED written = 0;
2272 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2273 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 6);
2274 // OBSOLETE
2275 // OBSOLETE   {
2276 // OBSOLETE     SI opval = FLD (f_i32);
2277 // OBSOLETE     * FLD (i_Ri) = opval;
2278 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
2279 // OBSOLETE   }
2280 // OBSOLETE
2281 // OBSOLETE   return vpc;
2282 // OBSOLETE #undef FLD
2283 // OBSOLETE }
2284 // OBSOLETE
2285 // OBSOLETE /* ld: ld @$Rj,$Ri */
2286 // OBSOLETE
2287 // OBSOLETE static SEM_PC
2288 // OBSOLETE SEM_FN_NAME (fr30bf,ld) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2289 // OBSOLETE {
2290 // OBSOLETE #define FLD(f) abuf->fields.sfmt_ldr13.f
2291 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2292 // OBSOLETE   int UNUSED written = 0;
2293 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2294 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2295 // OBSOLETE
2296 // OBSOLETE   {
2297 // OBSOLETE     SI opval = GETMEMSI (current_cpu, pc, * FLD (i_Rj));
2298 // OBSOLETE     * FLD (i_Ri) = opval;
2299 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
2300 // OBSOLETE   }
2301 // OBSOLETE
2302 // OBSOLETE   return vpc;
2303 // OBSOLETE #undef FLD
2304 // OBSOLETE }
2305 // OBSOLETE
2306 // OBSOLETE /* lduh: lduh @$Rj,$Ri */
2307 // OBSOLETE
2308 // OBSOLETE static SEM_PC
2309 // OBSOLETE SEM_FN_NAME (fr30bf,lduh) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2310 // OBSOLETE {
2311 // OBSOLETE #define FLD(f) abuf->fields.sfmt_ldr13.f
2312 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2313 // OBSOLETE   int UNUSED written = 0;
2314 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2315 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2316 // OBSOLETE
2317 // OBSOLETE   {
2318 // OBSOLETE     SI opval = GETMEMUHI (current_cpu, pc, * FLD (i_Rj));
2319 // OBSOLETE     * FLD (i_Ri) = opval;
2320 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
2321 // OBSOLETE   }
2322 // OBSOLETE
2323 // OBSOLETE   return vpc;
2324 // OBSOLETE #undef FLD
2325 // OBSOLETE }
2326 // OBSOLETE
2327 // OBSOLETE /* ldub: ldub @$Rj,$Ri */
2328 // OBSOLETE
2329 // OBSOLETE static SEM_PC
2330 // OBSOLETE SEM_FN_NAME (fr30bf,ldub) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2331 // OBSOLETE {
2332 // OBSOLETE #define FLD(f) abuf->fields.sfmt_ldr13.f
2333 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2334 // OBSOLETE   int UNUSED written = 0;
2335 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2336 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2337 // OBSOLETE
2338 // OBSOLETE   {
2339 // OBSOLETE     SI opval = GETMEMUQI (current_cpu, pc, * FLD (i_Rj));
2340 // OBSOLETE     * FLD (i_Ri) = opval;
2341 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
2342 // OBSOLETE   }
2343 // OBSOLETE
2344 // OBSOLETE   return vpc;
2345 // OBSOLETE #undef FLD
2346 // OBSOLETE }
2347 // OBSOLETE
2348 // OBSOLETE /* ldr13: ld @($R13,$Rj),$Ri */
2349 // OBSOLETE
2350 // OBSOLETE static SEM_PC
2351 // OBSOLETE SEM_FN_NAME (fr30bf,ldr13) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2352 // OBSOLETE {
2353 // OBSOLETE #define FLD(f) abuf->fields.sfmt_ldr13.f
2354 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2355 // OBSOLETE   int UNUSED written = 0;
2356 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2357 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2358 // OBSOLETE
2359 // OBSOLETE   {
2360 // OBSOLETE     SI opval = GETMEMSI (current_cpu, pc, ADDSI (* FLD (i_Rj), CPU (h_gr[((UINT) 13)])));
2361 // OBSOLETE     * FLD (i_Ri) = opval;
2362 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
2363 // OBSOLETE   }
2364 // OBSOLETE
2365 // OBSOLETE   return vpc;
2366 // OBSOLETE #undef FLD
2367 // OBSOLETE }
2368 // OBSOLETE
2369 // OBSOLETE /* ldr13uh: lduh @($R13,$Rj),$Ri */
2370 // OBSOLETE
2371 // OBSOLETE static SEM_PC
2372 // OBSOLETE SEM_FN_NAME (fr30bf,ldr13uh) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2373 // OBSOLETE {
2374 // OBSOLETE #define FLD(f) abuf->fields.sfmt_ldr13.f
2375 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2376 // OBSOLETE   int UNUSED written = 0;
2377 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2378 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2379 // OBSOLETE
2380 // OBSOLETE   {
2381 // OBSOLETE     SI opval = GETMEMUHI (current_cpu, pc, ADDSI (* FLD (i_Rj), CPU (h_gr[((UINT) 13)])));
2382 // OBSOLETE     * FLD (i_Ri) = opval;
2383 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
2384 // OBSOLETE   }
2385 // OBSOLETE
2386 // OBSOLETE   return vpc;
2387 // OBSOLETE #undef FLD
2388 // OBSOLETE }
2389 // OBSOLETE
2390 // OBSOLETE /* ldr13ub: ldub @($R13,$Rj),$Ri */
2391 // OBSOLETE
2392 // OBSOLETE static SEM_PC
2393 // OBSOLETE SEM_FN_NAME (fr30bf,ldr13ub) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2394 // OBSOLETE {
2395 // OBSOLETE #define FLD(f) abuf->fields.sfmt_ldr13.f
2396 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2397 // OBSOLETE   int UNUSED written = 0;
2398 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2399 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2400 // OBSOLETE
2401 // OBSOLETE   {
2402 // OBSOLETE     SI opval = GETMEMUQI (current_cpu, pc, ADDSI (* FLD (i_Rj), CPU (h_gr[((UINT) 13)])));
2403 // OBSOLETE     * FLD (i_Ri) = opval;
2404 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
2405 // OBSOLETE   }
2406 // OBSOLETE
2407 // OBSOLETE   return vpc;
2408 // OBSOLETE #undef FLD
2409 // OBSOLETE }
2410 // OBSOLETE
2411 // OBSOLETE /* ldr14: ld @($R14,$disp10),$Ri */
2412 // OBSOLETE
2413 // OBSOLETE static SEM_PC
2414 // OBSOLETE SEM_FN_NAME (fr30bf,ldr14) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2415 // OBSOLETE {
2416 // OBSOLETE #define FLD(f) abuf->fields.sfmt_ldr14.f
2417 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2418 // OBSOLETE   int UNUSED written = 0;
2419 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2420 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2421 // OBSOLETE
2422 // OBSOLETE   {
2423 // OBSOLETE     SI opval = GETMEMSI (current_cpu, pc, ADDSI (FLD (f_disp10), CPU (h_gr[((UINT) 14)])));
2424 // OBSOLETE     * FLD (i_Ri) = opval;
2425 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
2426 // OBSOLETE   }
2427 // OBSOLETE
2428 // OBSOLETE   return vpc;
2429 // OBSOLETE #undef FLD
2430 // OBSOLETE }
2431 // OBSOLETE
2432 // OBSOLETE /* ldr14uh: lduh @($R14,$disp9),$Ri */
2433 // OBSOLETE
2434 // OBSOLETE static SEM_PC
2435 // OBSOLETE SEM_FN_NAME (fr30bf,ldr14uh) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2436 // OBSOLETE {
2437 // OBSOLETE #define FLD(f) abuf->fields.sfmt_ldr14uh.f
2438 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2439 // OBSOLETE   int UNUSED written = 0;
2440 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2441 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2442 // OBSOLETE
2443 // OBSOLETE   {
2444 // OBSOLETE     SI opval = GETMEMUHI (current_cpu, pc, ADDSI (FLD (f_disp9), CPU (h_gr[((UINT) 14)])));
2445 // OBSOLETE     * FLD (i_Ri) = opval;
2446 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
2447 // OBSOLETE   }
2448 // OBSOLETE
2449 // OBSOLETE   return vpc;
2450 // OBSOLETE #undef FLD
2451 // OBSOLETE }
2452 // OBSOLETE
2453 // OBSOLETE /* ldr14ub: ldub @($R14,$disp8),$Ri */
2454 // OBSOLETE
2455 // OBSOLETE static SEM_PC
2456 // OBSOLETE SEM_FN_NAME (fr30bf,ldr14ub) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2457 // OBSOLETE {
2458 // OBSOLETE #define FLD(f) abuf->fields.sfmt_ldr14ub.f
2459 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2460 // OBSOLETE   int UNUSED written = 0;
2461 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2462 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2463 // OBSOLETE
2464 // OBSOLETE   {
2465 // OBSOLETE     SI opval = GETMEMUQI (current_cpu, pc, ADDSI (FLD (f_disp8), CPU (h_gr[((UINT) 14)])));
2466 // OBSOLETE     * FLD (i_Ri) = opval;
2467 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
2468 // OBSOLETE   }
2469 // OBSOLETE
2470 // OBSOLETE   return vpc;
2471 // OBSOLETE #undef FLD
2472 // OBSOLETE }
2473 // OBSOLETE
2474 // OBSOLETE /* ldr15: ld @($R15,$udisp6),$Ri */
2475 // OBSOLETE
2476 // OBSOLETE static SEM_PC
2477 // OBSOLETE SEM_FN_NAME (fr30bf,ldr15) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2478 // OBSOLETE {
2479 // OBSOLETE #define FLD(f) abuf->fields.sfmt_ldr15.f
2480 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2481 // OBSOLETE   int UNUSED written = 0;
2482 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2483 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2484 // OBSOLETE
2485 // OBSOLETE   {
2486 // OBSOLETE     SI opval = GETMEMSI (current_cpu, pc, ADDSI (FLD (f_udisp6), CPU (h_gr[((UINT) 15)])));
2487 // OBSOLETE     * FLD (i_Ri) = opval;
2488 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
2489 // OBSOLETE   }
2490 // OBSOLETE
2491 // OBSOLETE   return vpc;
2492 // OBSOLETE #undef FLD
2493 // OBSOLETE }
2494 // OBSOLETE
2495 // OBSOLETE /* ldr15gr: ld @$R15+,$Ri */
2496 // OBSOLETE
2497 // OBSOLETE static SEM_PC
2498 // OBSOLETE SEM_FN_NAME (fr30bf,ldr15gr) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2499 // OBSOLETE {
2500 // OBSOLETE #define FLD(f) abuf->fields.sfmt_ldr15gr.f
2501 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2502 // OBSOLETE   int UNUSED written = 0;
2503 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2504 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2505 // OBSOLETE
2506 // OBSOLETE {
2507 // OBSOLETE   {
2508 // OBSOLETE     SI opval = GETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]));
2509 // OBSOLETE     * FLD (i_Ri) = opval;
2510 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
2511 // OBSOLETE   }
2512 // OBSOLETE if (NESI (FLD (f_Ri), 15)) {
2513 // OBSOLETE   {
2514 // OBSOLETE     SI opval = ADDSI (CPU (h_gr[((UINT) 15)]), 4);
2515 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
2516 // OBSOLETE     written |= (1 << 4);
2517 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
2518 // OBSOLETE   }
2519 // OBSOLETE }
2520 // OBSOLETE }
2521 // OBSOLETE
2522 // OBSOLETE   abuf->written = written;
2523 // OBSOLETE   return vpc;
2524 // OBSOLETE #undef FLD
2525 // OBSOLETE }
2526 // OBSOLETE
2527 // OBSOLETE /* ldr15dr: ld @$R15+,$Rs2 */
2528 // OBSOLETE
2529 // OBSOLETE static SEM_PC
2530 // OBSOLETE SEM_FN_NAME (fr30bf,ldr15dr) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2531 // OBSOLETE {
2532 // OBSOLETE #define FLD(f) abuf->fields.sfmt_ldr15dr.f
2533 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2534 // OBSOLETE   int UNUSED written = 0;
2535 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2536 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2537 // OBSOLETE
2538 // OBSOLETE {
2539 // OBSOLETE   SI tmp_tmp;
2540 // OBSOLETE   tmp_tmp = GETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]));
2541 // OBSOLETE   {
2542 // OBSOLETE     SI opval = ADDSI (CPU (h_gr[((UINT) 15)]), 4);
2543 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
2544 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
2545 // OBSOLETE   }
2546 // OBSOLETE   {
2547 // OBSOLETE     SI opval = tmp_tmp;
2548 // OBSOLETE     SET_H_DR (FLD (f_Rs2), opval);
2549 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
2550 // OBSOLETE   }
2551 // OBSOLETE }
2552 // OBSOLETE
2553 // OBSOLETE   return vpc;
2554 // OBSOLETE #undef FLD
2555 // OBSOLETE }
2556 // OBSOLETE
2557 // OBSOLETE /* ldr15ps: ld @$R15+,$ps */
2558 // OBSOLETE
2559 // OBSOLETE static SEM_PC
2560 // OBSOLETE SEM_FN_NAME (fr30bf,ldr15ps) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2561 // OBSOLETE {
2562 // OBSOLETE #define FLD(f) abuf->fields.sfmt_addsp.f
2563 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2564 // OBSOLETE   int UNUSED written = 0;
2565 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2566 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2567 // OBSOLETE
2568 // OBSOLETE {
2569 // OBSOLETE   {
2570 // OBSOLETE     USI opval = GETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]));
2571 // OBSOLETE     SET_H_PS (opval);
2572 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "ps", 'x', opval);
2573 // OBSOLETE   }
2574 // OBSOLETE   {
2575 // OBSOLETE     SI opval = ADDSI (CPU (h_gr[((UINT) 15)]), 4);
2576 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
2577 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
2578 // OBSOLETE   }
2579 // OBSOLETE }
2580 // OBSOLETE
2581 // OBSOLETE   return vpc;
2582 // OBSOLETE #undef FLD
2583 // OBSOLETE }
2584 // OBSOLETE
2585 // OBSOLETE /* st: st $Ri,@$Rj */
2586 // OBSOLETE
2587 // OBSOLETE static SEM_PC
2588 // OBSOLETE SEM_FN_NAME (fr30bf,st) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2589 // OBSOLETE {
2590 // OBSOLETE #define FLD(f) abuf->fields.sfmt_str13.f
2591 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2592 // OBSOLETE   int UNUSED written = 0;
2593 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2594 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2595 // OBSOLETE
2596 // OBSOLETE   {
2597 // OBSOLETE     SI opval = * FLD (i_Ri);
2598 // OBSOLETE     SETMEMSI (current_cpu, pc, * FLD (i_Rj), opval);
2599 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
2600 // OBSOLETE   }
2601 // OBSOLETE
2602 // OBSOLETE   return vpc;
2603 // OBSOLETE #undef FLD
2604 // OBSOLETE }
2605 // OBSOLETE
2606 // OBSOLETE /* sth: sth $Ri,@$Rj */
2607 // OBSOLETE
2608 // OBSOLETE static SEM_PC
2609 // OBSOLETE SEM_FN_NAME (fr30bf,sth) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2610 // OBSOLETE {
2611 // OBSOLETE #define FLD(f) abuf->fields.sfmt_str13.f
2612 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2613 // OBSOLETE   int UNUSED written = 0;
2614 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2615 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2616 // OBSOLETE
2617 // OBSOLETE   {
2618 // OBSOLETE     HI opval = * FLD (i_Ri);
2619 // OBSOLETE     SETMEMHI (current_cpu, pc, * FLD (i_Rj), opval);
2620 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
2621 // OBSOLETE   }
2622 // OBSOLETE
2623 // OBSOLETE   return vpc;
2624 // OBSOLETE #undef FLD
2625 // OBSOLETE }
2626 // OBSOLETE
2627 // OBSOLETE /* stb: stb $Ri,@$Rj */
2628 // OBSOLETE
2629 // OBSOLETE static SEM_PC
2630 // OBSOLETE SEM_FN_NAME (fr30bf,stb) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2631 // OBSOLETE {
2632 // OBSOLETE #define FLD(f) abuf->fields.sfmt_str13.f
2633 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2634 // OBSOLETE   int UNUSED written = 0;
2635 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2636 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2637 // OBSOLETE
2638 // OBSOLETE   {
2639 // OBSOLETE     QI opval = * FLD (i_Ri);
2640 // OBSOLETE     SETMEMQI (current_cpu, pc, * FLD (i_Rj), opval);
2641 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
2642 // OBSOLETE   }
2643 // OBSOLETE
2644 // OBSOLETE   return vpc;
2645 // OBSOLETE #undef FLD
2646 // OBSOLETE }
2647 // OBSOLETE
2648 // OBSOLETE /* str13: st $Ri,@($R13,$Rj) */
2649 // OBSOLETE
2650 // OBSOLETE static SEM_PC
2651 // OBSOLETE SEM_FN_NAME (fr30bf,str13) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2652 // OBSOLETE {
2653 // OBSOLETE #define FLD(f) abuf->fields.sfmt_str13.f
2654 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2655 // OBSOLETE   int UNUSED written = 0;
2656 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2657 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2658 // OBSOLETE
2659 // OBSOLETE   {
2660 // OBSOLETE     SI opval = * FLD (i_Ri);
2661 // OBSOLETE     SETMEMSI (current_cpu, pc, ADDSI (* FLD (i_Rj), CPU (h_gr[((UINT) 13)])), opval);
2662 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
2663 // OBSOLETE   }
2664 // OBSOLETE
2665 // OBSOLETE   return vpc;
2666 // OBSOLETE #undef FLD
2667 // OBSOLETE }
2668 // OBSOLETE
2669 // OBSOLETE /* str13h: sth $Ri,@($R13,$Rj) */
2670 // OBSOLETE
2671 // OBSOLETE static SEM_PC
2672 // OBSOLETE SEM_FN_NAME (fr30bf,str13h) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2673 // OBSOLETE {
2674 // OBSOLETE #define FLD(f) abuf->fields.sfmt_str13.f
2675 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2676 // OBSOLETE   int UNUSED written = 0;
2677 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2678 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2679 // OBSOLETE
2680 // OBSOLETE   {
2681 // OBSOLETE     HI opval = * FLD (i_Ri);
2682 // OBSOLETE     SETMEMHI (current_cpu, pc, ADDSI (* FLD (i_Rj), CPU (h_gr[((UINT) 13)])), opval);
2683 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
2684 // OBSOLETE   }
2685 // OBSOLETE
2686 // OBSOLETE   return vpc;
2687 // OBSOLETE #undef FLD
2688 // OBSOLETE }
2689 // OBSOLETE
2690 // OBSOLETE /* str13b: stb $Ri,@($R13,$Rj) */
2691 // OBSOLETE
2692 // OBSOLETE static SEM_PC
2693 // OBSOLETE SEM_FN_NAME (fr30bf,str13b) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2694 // OBSOLETE {
2695 // OBSOLETE #define FLD(f) abuf->fields.sfmt_str13.f
2696 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2697 // OBSOLETE   int UNUSED written = 0;
2698 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2699 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2700 // OBSOLETE
2701 // OBSOLETE   {
2702 // OBSOLETE     QI opval = * FLD (i_Ri);
2703 // OBSOLETE     SETMEMQI (current_cpu, pc, ADDSI (* FLD (i_Rj), CPU (h_gr[((UINT) 13)])), opval);
2704 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
2705 // OBSOLETE   }
2706 // OBSOLETE
2707 // OBSOLETE   return vpc;
2708 // OBSOLETE #undef FLD
2709 // OBSOLETE }
2710 // OBSOLETE
2711 // OBSOLETE /* str14: st $Ri,@($R14,$disp10) */
2712 // OBSOLETE
2713 // OBSOLETE static SEM_PC
2714 // OBSOLETE SEM_FN_NAME (fr30bf,str14) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2715 // OBSOLETE {
2716 // OBSOLETE #define FLD(f) abuf->fields.sfmt_str14.f
2717 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2718 // OBSOLETE   int UNUSED written = 0;
2719 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2720 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2721 // OBSOLETE
2722 // OBSOLETE   {
2723 // OBSOLETE     SI opval = * FLD (i_Ri);
2724 // OBSOLETE     SETMEMSI (current_cpu, pc, ADDSI (FLD (f_disp10), CPU (h_gr[((UINT) 14)])), opval);
2725 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
2726 // OBSOLETE   }
2727 // OBSOLETE
2728 // OBSOLETE   return vpc;
2729 // OBSOLETE #undef FLD
2730 // OBSOLETE }
2731 // OBSOLETE
2732 // OBSOLETE /* str14h: sth $Ri,@($R14,$disp9) */
2733 // OBSOLETE
2734 // OBSOLETE static SEM_PC
2735 // OBSOLETE SEM_FN_NAME (fr30bf,str14h) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2736 // OBSOLETE {
2737 // OBSOLETE #define FLD(f) abuf->fields.sfmt_str14h.f
2738 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2739 // OBSOLETE   int UNUSED written = 0;
2740 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2741 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2742 // OBSOLETE
2743 // OBSOLETE   {
2744 // OBSOLETE     HI opval = * FLD (i_Ri);
2745 // OBSOLETE     SETMEMHI (current_cpu, pc, ADDSI (FLD (f_disp9), CPU (h_gr[((UINT) 14)])), opval);
2746 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
2747 // OBSOLETE   }
2748 // OBSOLETE
2749 // OBSOLETE   return vpc;
2750 // OBSOLETE #undef FLD
2751 // OBSOLETE }
2752 // OBSOLETE
2753 // OBSOLETE /* str14b: stb $Ri,@($R14,$disp8) */
2754 // OBSOLETE
2755 // OBSOLETE static SEM_PC
2756 // OBSOLETE SEM_FN_NAME (fr30bf,str14b) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2757 // OBSOLETE {
2758 // OBSOLETE #define FLD(f) abuf->fields.sfmt_str14b.f
2759 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2760 // OBSOLETE   int UNUSED written = 0;
2761 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2762 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2763 // OBSOLETE
2764 // OBSOLETE   {
2765 // OBSOLETE     QI opval = * FLD (i_Ri);
2766 // OBSOLETE     SETMEMQI (current_cpu, pc, ADDSI (FLD (f_disp8), CPU (h_gr[((UINT) 14)])), opval);
2767 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
2768 // OBSOLETE   }
2769 // OBSOLETE
2770 // OBSOLETE   return vpc;
2771 // OBSOLETE #undef FLD
2772 // OBSOLETE }
2773 // OBSOLETE
2774 // OBSOLETE /* str15: st $Ri,@($R15,$udisp6) */
2775 // OBSOLETE
2776 // OBSOLETE static SEM_PC
2777 // OBSOLETE SEM_FN_NAME (fr30bf,str15) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2778 // OBSOLETE {
2779 // OBSOLETE #define FLD(f) abuf->fields.sfmt_str15.f
2780 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2781 // OBSOLETE   int UNUSED written = 0;
2782 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2783 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2784 // OBSOLETE
2785 // OBSOLETE   {
2786 // OBSOLETE     SI opval = * FLD (i_Ri);
2787 // OBSOLETE     SETMEMSI (current_cpu, pc, ADDSI (CPU (h_gr[((UINT) 15)]), FLD (f_udisp6)), opval);
2788 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
2789 // OBSOLETE   }
2790 // OBSOLETE
2791 // OBSOLETE   return vpc;
2792 // OBSOLETE #undef FLD
2793 // OBSOLETE }
2794 // OBSOLETE
2795 // OBSOLETE /* str15gr: st $Ri,@-$R15 */
2796 // OBSOLETE
2797 // OBSOLETE static SEM_PC
2798 // OBSOLETE SEM_FN_NAME (fr30bf,str15gr) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2799 // OBSOLETE {
2800 // OBSOLETE #define FLD(f) abuf->fields.sfmt_str15gr.f
2801 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2802 // OBSOLETE   int UNUSED written = 0;
2803 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2804 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2805 // OBSOLETE
2806 // OBSOLETE {
2807 // OBSOLETE   SI tmp_tmp;
2808 // OBSOLETE   tmp_tmp = * FLD (i_Ri);
2809 // OBSOLETE   {
2810 // OBSOLETE     SI opval = SUBSI (CPU (h_gr[((UINT) 15)]), 4);
2811 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
2812 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
2813 // OBSOLETE   }
2814 // OBSOLETE   {
2815 // OBSOLETE     SI opval = tmp_tmp;
2816 // OBSOLETE     SETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]), opval);
2817 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
2818 // OBSOLETE   }
2819 // OBSOLETE }
2820 // OBSOLETE
2821 // OBSOLETE   return vpc;
2822 // OBSOLETE #undef FLD
2823 // OBSOLETE }
2824 // OBSOLETE
2825 // OBSOLETE /* str15dr: st $Rs2,@-$R15 */
2826 // OBSOLETE
2827 // OBSOLETE static SEM_PC
2828 // OBSOLETE SEM_FN_NAME (fr30bf,str15dr) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2829 // OBSOLETE {
2830 // OBSOLETE #define FLD(f) abuf->fields.sfmt_ldr15dr.f
2831 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2832 // OBSOLETE   int UNUSED written = 0;
2833 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2834 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2835 // OBSOLETE
2836 // OBSOLETE {
2837 // OBSOLETE   SI tmp_tmp;
2838 // OBSOLETE   tmp_tmp = GET_H_DR (FLD (f_Rs2));
2839 // OBSOLETE   {
2840 // OBSOLETE     SI opval = SUBSI (CPU (h_gr[((UINT) 15)]), 4);
2841 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
2842 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
2843 // OBSOLETE   }
2844 // OBSOLETE   {
2845 // OBSOLETE     SI opval = tmp_tmp;
2846 // OBSOLETE     SETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]), opval);
2847 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
2848 // OBSOLETE   }
2849 // OBSOLETE }
2850 // OBSOLETE
2851 // OBSOLETE   return vpc;
2852 // OBSOLETE #undef FLD
2853 // OBSOLETE }
2854 // OBSOLETE
2855 // OBSOLETE /* str15ps: st $ps,@-$R15 */
2856 // OBSOLETE
2857 // OBSOLETE static SEM_PC
2858 // OBSOLETE SEM_FN_NAME (fr30bf,str15ps) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2859 // OBSOLETE {
2860 // OBSOLETE #define FLD(f) abuf->fields.sfmt_addsp.f
2861 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2862 // OBSOLETE   int UNUSED written = 0;
2863 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2864 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2865 // OBSOLETE
2866 // OBSOLETE {
2867 // OBSOLETE   {
2868 // OBSOLETE     SI opval = SUBSI (CPU (h_gr[((UINT) 15)]), 4);
2869 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
2870 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
2871 // OBSOLETE   }
2872 // OBSOLETE   {
2873 // OBSOLETE     SI opval = GET_H_PS ();
2874 // OBSOLETE     SETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]), opval);
2875 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
2876 // OBSOLETE   }
2877 // OBSOLETE }
2878 // OBSOLETE
2879 // OBSOLETE   return vpc;
2880 // OBSOLETE #undef FLD
2881 // OBSOLETE }
2882 // OBSOLETE
2883 // OBSOLETE /* mov: mov $Rj,$Ri */
2884 // OBSOLETE
2885 // OBSOLETE static SEM_PC
2886 // OBSOLETE SEM_FN_NAME (fr30bf,mov) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2887 // OBSOLETE {
2888 // OBSOLETE #define FLD(f) abuf->fields.sfmt_ldr13.f
2889 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2890 // OBSOLETE   int UNUSED written = 0;
2891 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2892 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2893 // OBSOLETE
2894 // OBSOLETE   {
2895 // OBSOLETE     SI opval = * FLD (i_Rj);
2896 // OBSOLETE     * FLD (i_Ri) = opval;
2897 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
2898 // OBSOLETE   }
2899 // OBSOLETE
2900 // OBSOLETE   return vpc;
2901 // OBSOLETE #undef FLD
2902 // OBSOLETE }
2903 // OBSOLETE
2904 // OBSOLETE /* movdr: mov $Rs1,$Ri */
2905 // OBSOLETE
2906 // OBSOLETE static SEM_PC
2907 // OBSOLETE SEM_FN_NAME (fr30bf,movdr) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2908 // OBSOLETE {
2909 // OBSOLETE #define FLD(f) abuf->fields.sfmt_movdr.f
2910 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2911 // OBSOLETE   int UNUSED written = 0;
2912 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2913 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2914 // OBSOLETE
2915 // OBSOLETE   {
2916 // OBSOLETE     SI opval = GET_H_DR (FLD (f_Rs1));
2917 // OBSOLETE     * FLD (i_Ri) = opval;
2918 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
2919 // OBSOLETE   }
2920 // OBSOLETE
2921 // OBSOLETE   return vpc;
2922 // OBSOLETE #undef FLD
2923 // OBSOLETE }
2924 // OBSOLETE
2925 // OBSOLETE /* movps: mov $ps,$Ri */
2926 // OBSOLETE
2927 // OBSOLETE static SEM_PC
2928 // OBSOLETE SEM_FN_NAME (fr30bf,movps) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2929 // OBSOLETE {
2930 // OBSOLETE #define FLD(f) abuf->fields.sfmt_movdr.f
2931 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2932 // OBSOLETE   int UNUSED written = 0;
2933 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2934 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2935 // OBSOLETE
2936 // OBSOLETE   {
2937 // OBSOLETE     SI opval = GET_H_PS ();
2938 // OBSOLETE     * FLD (i_Ri) = opval;
2939 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
2940 // OBSOLETE   }
2941 // OBSOLETE
2942 // OBSOLETE   return vpc;
2943 // OBSOLETE #undef FLD
2944 // OBSOLETE }
2945 // OBSOLETE
2946 // OBSOLETE /* mov2dr: mov $Ri,$Rs1 */
2947 // OBSOLETE
2948 // OBSOLETE static SEM_PC
2949 // OBSOLETE SEM_FN_NAME (fr30bf,mov2dr) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2950 // OBSOLETE {
2951 // OBSOLETE #define FLD(f) abuf->fields.sfmt_mov2dr.f
2952 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2953 // OBSOLETE   int UNUSED written = 0;
2954 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2955 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2956 // OBSOLETE
2957 // OBSOLETE   {
2958 // OBSOLETE     SI opval = * FLD (i_Ri);
2959 // OBSOLETE     SET_H_DR (FLD (f_Rs1), opval);
2960 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
2961 // OBSOLETE   }
2962 // OBSOLETE
2963 // OBSOLETE   return vpc;
2964 // OBSOLETE #undef FLD
2965 // OBSOLETE }
2966 // OBSOLETE
2967 // OBSOLETE /* mov2ps: mov $Ri,$ps */
2968 // OBSOLETE
2969 // OBSOLETE static SEM_PC
2970 // OBSOLETE SEM_FN_NAME (fr30bf,mov2ps) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2971 // OBSOLETE {
2972 // OBSOLETE #define FLD(f) abuf->fields.sfmt_mov2dr.f
2973 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2974 // OBSOLETE   int UNUSED written = 0;
2975 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2976 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2977 // OBSOLETE
2978 // OBSOLETE   {
2979 // OBSOLETE     USI opval = * FLD (i_Ri);
2980 // OBSOLETE     SET_H_PS (opval);
2981 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "ps", 'x', opval);
2982 // OBSOLETE   }
2983 // OBSOLETE
2984 // OBSOLETE   return vpc;
2985 // OBSOLETE #undef FLD
2986 // OBSOLETE }
2987 // OBSOLETE
2988 // OBSOLETE /* jmp: jmp @$Ri */
2989 // OBSOLETE
2990 // OBSOLETE static SEM_PC
2991 // OBSOLETE SEM_FN_NAME (fr30bf,jmp) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
2992 // OBSOLETE {
2993 // OBSOLETE #define FLD(f) abuf->fields.sfmt_mov2dr.f
2994 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
2995 // OBSOLETE   int UNUSED written = 0;
2996 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
2997 // OBSOLETE   SEM_BRANCH_INIT
2998 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
2999 // OBSOLETE
3000 // OBSOLETE   {
3001 // OBSOLETE     USI opval = * FLD (i_Ri);
3002 // OBSOLETE     SEM_BRANCH_VIA_ADDR (current_cpu, sem_arg, opval, vpc);
3003 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3004 // OBSOLETE   }
3005 // OBSOLETE
3006 // OBSOLETE   SEM_BRANCH_FINI (vpc);
3007 // OBSOLETE   return vpc;
3008 // OBSOLETE #undef FLD
3009 // OBSOLETE }
3010 // OBSOLETE
3011 // OBSOLETE /* jmpd: jmp:d @$Ri */
3012 // OBSOLETE
3013 // OBSOLETE static SEM_PC
3014 // OBSOLETE SEM_FN_NAME (fr30bf,jmpd) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3015 // OBSOLETE {
3016 // OBSOLETE #define FLD(f) abuf->fields.sfmt_mov2dr.f
3017 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3018 // OBSOLETE   int UNUSED written = 0;
3019 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3020 // OBSOLETE   SEM_BRANCH_INIT
3021 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3022 // OBSOLETE
3023 // OBSOLETE {
3024 // OBSOLETE   {
3025 // OBSOLETE     USI opval = * FLD (i_Ri);
3026 // OBSOLETE     SEM_BRANCH_VIA_ADDR (current_cpu, sem_arg, opval, vpc);
3027 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3028 // OBSOLETE   }
3029 // OBSOLETE }
3030 // OBSOLETE
3031 // OBSOLETE   SEM_BRANCH_FINI (vpc);
3032 // OBSOLETE   return vpc;
3033 // OBSOLETE #undef FLD
3034 // OBSOLETE }
3035 // OBSOLETE
3036 // OBSOLETE /* callr: call @$Ri */
3037 // OBSOLETE
3038 // OBSOLETE static SEM_PC
3039 // OBSOLETE SEM_FN_NAME (fr30bf,callr) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3040 // OBSOLETE {
3041 // OBSOLETE #define FLD(f) abuf->fields.sfmt_mov2dr.f
3042 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3043 // OBSOLETE   int UNUSED written = 0;
3044 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3045 // OBSOLETE   SEM_BRANCH_INIT
3046 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3047 // OBSOLETE
3048 // OBSOLETE {
3049 // OBSOLETE   {
3050 // OBSOLETE     SI opval = ADDSI (pc, 2);
3051 // OBSOLETE     SET_H_DR (((UINT) 1), opval);
3052 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
3053 // OBSOLETE   }
3054 // OBSOLETE   {
3055 // OBSOLETE     USI opval = * FLD (i_Ri);
3056 // OBSOLETE     SEM_BRANCH_VIA_ADDR (current_cpu, sem_arg, opval, vpc);
3057 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3058 // OBSOLETE   }
3059 // OBSOLETE }
3060 // OBSOLETE
3061 // OBSOLETE   SEM_BRANCH_FINI (vpc);
3062 // OBSOLETE   return vpc;
3063 // OBSOLETE #undef FLD
3064 // OBSOLETE }
3065 // OBSOLETE
3066 // OBSOLETE /* callrd: call:d @$Ri */
3067 // OBSOLETE
3068 // OBSOLETE static SEM_PC
3069 // OBSOLETE SEM_FN_NAME (fr30bf,callrd) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3070 // OBSOLETE {
3071 // OBSOLETE #define FLD(f) abuf->fields.sfmt_mov2dr.f
3072 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3073 // OBSOLETE   int UNUSED written = 0;
3074 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3075 // OBSOLETE   SEM_BRANCH_INIT
3076 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3077 // OBSOLETE
3078 // OBSOLETE {
3079 // OBSOLETE {
3080 // OBSOLETE   {
3081 // OBSOLETE     SI opval = ADDSI (pc, 4);
3082 // OBSOLETE     SET_H_DR (((UINT) 1), opval);
3083 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
3084 // OBSOLETE   }
3085 // OBSOLETE   {
3086 // OBSOLETE     USI opval = * FLD (i_Ri);
3087 // OBSOLETE     SEM_BRANCH_VIA_ADDR (current_cpu, sem_arg, opval, vpc);
3088 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3089 // OBSOLETE   }
3090 // OBSOLETE }
3091 // OBSOLETE }
3092 // OBSOLETE
3093 // OBSOLETE   SEM_BRANCH_FINI (vpc);
3094 // OBSOLETE   return vpc;
3095 // OBSOLETE #undef FLD
3096 // OBSOLETE }
3097 // OBSOLETE
3098 // OBSOLETE /* call: call $label12 */
3099 // OBSOLETE
3100 // OBSOLETE static SEM_PC
3101 // OBSOLETE SEM_FN_NAME (fr30bf,call) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3102 // OBSOLETE {
3103 // OBSOLETE #define FLD(f) abuf->fields.sfmt_call.f
3104 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3105 // OBSOLETE   int UNUSED written = 0;
3106 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3107 // OBSOLETE   SEM_BRANCH_INIT
3108 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3109 // OBSOLETE
3110 // OBSOLETE {
3111 // OBSOLETE   {
3112 // OBSOLETE     SI opval = ADDSI (pc, 2);
3113 // OBSOLETE     SET_H_DR (((UINT) 1), opval);
3114 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
3115 // OBSOLETE   }
3116 // OBSOLETE   {
3117 // OBSOLETE     USI opval = FLD (i_label12);
3118 // OBSOLETE     SEM_BRANCH_VIA_CACHE (current_cpu, sem_arg, opval, vpc);
3119 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3120 // OBSOLETE   }
3121 // OBSOLETE }
3122 // OBSOLETE
3123 // OBSOLETE   SEM_BRANCH_FINI (vpc);
3124 // OBSOLETE   return vpc;
3125 // OBSOLETE #undef FLD
3126 // OBSOLETE }
3127 // OBSOLETE
3128 // OBSOLETE /* calld: call:d $label12 */
3129 // OBSOLETE
3130 // OBSOLETE static SEM_PC
3131 // OBSOLETE SEM_FN_NAME (fr30bf,calld) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3132 // OBSOLETE {
3133 // OBSOLETE #define FLD(f) abuf->fields.sfmt_call.f
3134 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3135 // OBSOLETE   int UNUSED written = 0;
3136 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3137 // OBSOLETE   SEM_BRANCH_INIT
3138 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3139 // OBSOLETE
3140 // OBSOLETE {
3141 // OBSOLETE {
3142 // OBSOLETE   {
3143 // OBSOLETE     SI opval = ADDSI (pc, 4);
3144 // OBSOLETE     SET_H_DR (((UINT) 1), opval);
3145 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
3146 // OBSOLETE   }
3147 // OBSOLETE   {
3148 // OBSOLETE     USI opval = FLD (i_label12);
3149 // OBSOLETE     SEM_BRANCH_VIA_CACHE (current_cpu, sem_arg, opval, vpc);
3150 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3151 // OBSOLETE   }
3152 // OBSOLETE }
3153 // OBSOLETE }
3154 // OBSOLETE
3155 // OBSOLETE   SEM_BRANCH_FINI (vpc);
3156 // OBSOLETE   return vpc;
3157 // OBSOLETE #undef FLD
3158 // OBSOLETE }
3159 // OBSOLETE
3160 // OBSOLETE /* ret: ret */
3161 // OBSOLETE
3162 // OBSOLETE static SEM_PC
3163 // OBSOLETE SEM_FN_NAME (fr30bf,ret) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3164 // OBSOLETE {
3165 // OBSOLETE #define FLD(f) abuf->fields.fmt_empty.f
3166 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3167 // OBSOLETE   int UNUSED written = 0;
3168 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3169 // OBSOLETE   SEM_BRANCH_INIT
3170 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3171 // OBSOLETE
3172 // OBSOLETE   {
3173 // OBSOLETE     USI opval = GET_H_DR (((UINT) 1));
3174 // OBSOLETE     SEM_BRANCH_VIA_ADDR (current_cpu, sem_arg, opval, vpc);
3175 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3176 // OBSOLETE   }
3177 // OBSOLETE
3178 // OBSOLETE   SEM_BRANCH_FINI (vpc);
3179 // OBSOLETE   return vpc;
3180 // OBSOLETE #undef FLD
3181 // OBSOLETE }
3182 // OBSOLETE
3183 // OBSOLETE /* ret:d: ret:d */
3184 // OBSOLETE
3185 // OBSOLETE static SEM_PC
3186 // OBSOLETE SEM_FN_NAME (fr30bf,ret_d) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3187 // OBSOLETE {
3188 // OBSOLETE #define FLD(f) abuf->fields.fmt_empty.f
3189 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3190 // OBSOLETE   int UNUSED written = 0;
3191 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3192 // OBSOLETE   SEM_BRANCH_INIT
3193 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3194 // OBSOLETE
3195 // OBSOLETE {
3196 // OBSOLETE   {
3197 // OBSOLETE     USI opval = GET_H_DR (((UINT) 1));
3198 // OBSOLETE     SEM_BRANCH_VIA_ADDR (current_cpu, sem_arg, opval, vpc);
3199 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3200 // OBSOLETE   }
3201 // OBSOLETE }
3202 // OBSOLETE
3203 // OBSOLETE   SEM_BRANCH_FINI (vpc);
3204 // OBSOLETE   return vpc;
3205 // OBSOLETE #undef FLD
3206 // OBSOLETE }
3207 // OBSOLETE
3208 // OBSOLETE /* int: int $u8 */
3209 // OBSOLETE
3210 // OBSOLETE static SEM_PC
3211 // OBSOLETE SEM_FN_NAME (fr30bf,int) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3212 // OBSOLETE {
3213 // OBSOLETE #define FLD(f) abuf->fields.sfmt_int.f
3214 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3215 // OBSOLETE   int UNUSED written = 0;
3216 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3217 // OBSOLETE   SEM_BRANCH_INIT
3218 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3219 // OBSOLETE
3220 // OBSOLETE {
3221 // OBSOLETE ; /*clobber*/
3222 // OBSOLETE ; /*clobber*/
3223 // OBSOLETE ; /*clobber*/
3224 // OBSOLETE   {
3225 // OBSOLETE     SI opval = fr30_int (current_cpu, pc, FLD (f_u8));
3226 // OBSOLETE     SEM_BRANCH_VIA_ADDR (current_cpu, sem_arg, opval, vpc);
3227 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3228 // OBSOLETE   }
3229 // OBSOLETE }
3230 // OBSOLETE
3231 // OBSOLETE   SEM_BRANCH_FINI (vpc);
3232 // OBSOLETE   return vpc;
3233 // OBSOLETE #undef FLD
3234 // OBSOLETE }
3235 // OBSOLETE
3236 // OBSOLETE /* inte: inte */
3237 // OBSOLETE
3238 // OBSOLETE static SEM_PC
3239 // OBSOLETE SEM_FN_NAME (fr30bf,inte) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3240 // OBSOLETE {
3241 // OBSOLETE #define FLD(f) abuf->fields.fmt_empty.f
3242 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3243 // OBSOLETE   int UNUSED written = 0;
3244 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3245 // OBSOLETE   SEM_BRANCH_INIT
3246 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3247 // OBSOLETE
3248 // OBSOLETE {
3249 // OBSOLETE ; /*clobber*/
3250 // OBSOLETE ; /*clobber*/
3251 // OBSOLETE ; /*clobber*/
3252 // OBSOLETE   {
3253 // OBSOLETE     SI opval = fr30_inte (current_cpu, pc);
3254 // OBSOLETE     SEM_BRANCH_VIA_ADDR (current_cpu, sem_arg, opval, vpc);
3255 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3256 // OBSOLETE   }
3257 // OBSOLETE }
3258 // OBSOLETE
3259 // OBSOLETE   SEM_BRANCH_FINI (vpc);
3260 // OBSOLETE   return vpc;
3261 // OBSOLETE #undef FLD
3262 // OBSOLETE }
3263 // OBSOLETE
3264 // OBSOLETE /* reti: reti */
3265 // OBSOLETE
3266 // OBSOLETE static SEM_PC
3267 // OBSOLETE SEM_FN_NAME (fr30bf,reti) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3268 // OBSOLETE {
3269 // OBSOLETE #define FLD(f) abuf->fields.fmt_empty.f
3270 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3271 // OBSOLETE   int UNUSED written = 0;
3272 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3273 // OBSOLETE   SEM_BRANCH_INIT
3274 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3275 // OBSOLETE
3276 // OBSOLETE if (EQBI (GET_H_SBIT (), 0)) {
3277 // OBSOLETE {
3278 // OBSOLETE   {
3279 // OBSOLETE     SI opval = GETMEMSI (current_cpu, pc, GET_H_DR (((UINT) 2)));
3280 // OBSOLETE     SEM_BRANCH_VIA_ADDR (current_cpu, sem_arg, opval, vpc);
3281 // OBSOLETE     written |= (1 << 7);
3282 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3283 // OBSOLETE   }
3284 // OBSOLETE   {
3285 // OBSOLETE     SI opval = ADDSI (GET_H_DR (((UINT) 2)), 4);
3286 // OBSOLETE     SET_H_DR (((UINT) 2), opval);
3287 // OBSOLETE     written |= (1 << 5);
3288 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
3289 // OBSOLETE   }
3290 // OBSOLETE   {
3291 // OBSOLETE     SI opval = GETMEMSI (current_cpu, pc, GET_H_DR (((UINT) 2)));
3292 // OBSOLETE     SET_H_PS (opval);
3293 // OBSOLETE     written |= (1 << 8);
3294 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "ps", 'x', opval);
3295 // OBSOLETE   }
3296 // OBSOLETE   {
3297 // OBSOLETE     SI opval = ADDSI (GET_H_DR (((UINT) 2)), 4);
3298 // OBSOLETE     SET_H_DR (((UINT) 2), opval);
3299 // OBSOLETE     written |= (1 << 5);
3300 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
3301 // OBSOLETE   }
3302 // OBSOLETE }
3303 // OBSOLETE } else {
3304 // OBSOLETE {
3305 // OBSOLETE   {
3306 // OBSOLETE     SI opval = GETMEMSI (current_cpu, pc, GET_H_DR (((UINT) 3)));
3307 // OBSOLETE     SEM_BRANCH_VIA_ADDR (current_cpu, sem_arg, opval, vpc);
3308 // OBSOLETE     written |= (1 << 7);
3309 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3310 // OBSOLETE   }
3311 // OBSOLETE   {
3312 // OBSOLETE     SI opval = ADDSI (GET_H_DR (((UINT) 3)), 4);
3313 // OBSOLETE     SET_H_DR (((UINT) 3), opval);
3314 // OBSOLETE     written |= (1 << 6);
3315 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
3316 // OBSOLETE   }
3317 // OBSOLETE   {
3318 // OBSOLETE     SI opval = GETMEMSI (current_cpu, pc, GET_H_DR (((UINT) 3)));
3319 // OBSOLETE     SET_H_PS (opval);
3320 // OBSOLETE     written |= (1 << 8);
3321 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "ps", 'x', opval);
3322 // OBSOLETE   }
3323 // OBSOLETE   {
3324 // OBSOLETE     SI opval = ADDSI (GET_H_DR (((UINT) 3)), 4);
3325 // OBSOLETE     SET_H_DR (((UINT) 3), opval);
3326 // OBSOLETE     written |= (1 << 6);
3327 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
3328 // OBSOLETE   }
3329 // OBSOLETE }
3330 // OBSOLETE }
3331 // OBSOLETE
3332 // OBSOLETE   abuf->written = written;
3333 // OBSOLETE   SEM_BRANCH_FINI (vpc);
3334 // OBSOLETE   return vpc;
3335 // OBSOLETE #undef FLD
3336 // OBSOLETE }
3337 // OBSOLETE
3338 // OBSOLETE /* brad: bra:d $label9 */
3339 // OBSOLETE
3340 // OBSOLETE static SEM_PC
3341 // OBSOLETE SEM_FN_NAME (fr30bf,brad) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3342 // OBSOLETE {
3343 // OBSOLETE #define FLD(f) abuf->fields.sfmt_brad.f
3344 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3345 // OBSOLETE   int UNUSED written = 0;
3346 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3347 // OBSOLETE   SEM_BRANCH_INIT
3348 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3349 // OBSOLETE
3350 // OBSOLETE {
3351 // OBSOLETE   {
3352 // OBSOLETE     USI opval = FLD (i_label9);
3353 // OBSOLETE     SEM_BRANCH_VIA_CACHE (current_cpu, sem_arg, opval, vpc);
3354 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3355 // OBSOLETE   }
3356 // OBSOLETE }
3357 // OBSOLETE
3358 // OBSOLETE   SEM_BRANCH_FINI (vpc);
3359 // OBSOLETE   return vpc;
3360 // OBSOLETE #undef FLD
3361 // OBSOLETE }
3362 // OBSOLETE
3363 // OBSOLETE /* bra: bra $label9 */
3364 // OBSOLETE
3365 // OBSOLETE static SEM_PC
3366 // OBSOLETE SEM_FN_NAME (fr30bf,bra) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3367 // OBSOLETE {
3368 // OBSOLETE #define FLD(f) abuf->fields.sfmt_brad.f
3369 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3370 // OBSOLETE   int UNUSED written = 0;
3371 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3372 // OBSOLETE   SEM_BRANCH_INIT
3373 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3374 // OBSOLETE
3375 // OBSOLETE   {
3376 // OBSOLETE     USI opval = FLD (i_label9);
3377 // OBSOLETE     SEM_BRANCH_VIA_CACHE (current_cpu, sem_arg, opval, vpc);
3378 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3379 // OBSOLETE   }
3380 // OBSOLETE
3381 // OBSOLETE   SEM_BRANCH_FINI (vpc);
3382 // OBSOLETE   return vpc;
3383 // OBSOLETE #undef FLD
3384 // OBSOLETE }
3385 // OBSOLETE
3386 // OBSOLETE /* bnod: bno:d $label9 */
3387 // OBSOLETE
3388 // OBSOLETE static SEM_PC
3389 // OBSOLETE SEM_FN_NAME (fr30bf,bnod) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3390 // OBSOLETE {
3391 // OBSOLETE #define FLD(f) abuf->fields.fmt_empty.f
3392 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3393 // OBSOLETE   int UNUSED written = 0;
3394 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3395 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3396 // OBSOLETE
3397 // OBSOLETE {
3398 // OBSOLETE ((void) 0); /*nop*/
3399 // OBSOLETE }
3400 // OBSOLETE
3401 // OBSOLETE   return vpc;
3402 // OBSOLETE #undef FLD
3403 // OBSOLETE }
3404 // OBSOLETE
3405 // OBSOLETE /* bno: bno $label9 */
3406 // OBSOLETE
3407 // OBSOLETE static SEM_PC
3408 // OBSOLETE SEM_FN_NAME (fr30bf,bno) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3409 // OBSOLETE {
3410 // OBSOLETE #define FLD(f) abuf->fields.fmt_empty.f
3411 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3412 // OBSOLETE   int UNUSED written = 0;
3413 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3414 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3415 // OBSOLETE
3416 // OBSOLETE ((void) 0); /*nop*/
3417 // OBSOLETE
3418 // OBSOLETE   return vpc;
3419 // OBSOLETE #undef FLD
3420 // OBSOLETE }
3421 // OBSOLETE
3422 // OBSOLETE /* beqd: beq:d $label9 */
3423 // OBSOLETE
3424 // OBSOLETE static SEM_PC
3425 // OBSOLETE SEM_FN_NAME (fr30bf,beqd) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3426 // OBSOLETE {
3427 // OBSOLETE #define FLD(f) abuf->fields.sfmt_brad.f
3428 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3429 // OBSOLETE   int UNUSED written = 0;
3430 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3431 // OBSOLETE   SEM_BRANCH_INIT
3432 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3433 // OBSOLETE
3434 // OBSOLETE {
3435 // OBSOLETE if (CPU (h_zbit)) {
3436 // OBSOLETE   {
3437 // OBSOLETE     USI opval = FLD (i_label9);
3438 // OBSOLETE     SEM_BRANCH_VIA_CACHE (current_cpu, sem_arg, opval, vpc);
3439 // OBSOLETE     written |= (1 << 2);
3440 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3441 // OBSOLETE   }
3442 // OBSOLETE }
3443 // OBSOLETE }
3444 // OBSOLETE
3445 // OBSOLETE   abuf->written = written;
3446 // OBSOLETE   SEM_BRANCH_FINI (vpc);
3447 // OBSOLETE   return vpc;
3448 // OBSOLETE #undef FLD
3449 // OBSOLETE }
3450 // OBSOLETE
3451 // OBSOLETE /* beq: beq $label9 */
3452 // OBSOLETE
3453 // OBSOLETE static SEM_PC
3454 // OBSOLETE SEM_FN_NAME (fr30bf,beq) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3455 // OBSOLETE {
3456 // OBSOLETE #define FLD(f) abuf->fields.sfmt_brad.f
3457 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3458 // OBSOLETE   int UNUSED written = 0;
3459 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3460 // OBSOLETE   SEM_BRANCH_INIT
3461 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3462 // OBSOLETE
3463 // OBSOLETE if (CPU (h_zbit)) {
3464 // OBSOLETE   {
3465 // OBSOLETE     USI opval = FLD (i_label9);
3466 // OBSOLETE     SEM_BRANCH_VIA_CACHE (current_cpu, sem_arg, opval, vpc);
3467 // OBSOLETE     written |= (1 << 2);
3468 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3469 // OBSOLETE   }
3470 // OBSOLETE }
3471 // OBSOLETE
3472 // OBSOLETE   abuf->written = written;
3473 // OBSOLETE   SEM_BRANCH_FINI (vpc);
3474 // OBSOLETE   return vpc;
3475 // OBSOLETE #undef FLD
3476 // OBSOLETE }
3477 // OBSOLETE
3478 // OBSOLETE /* bned: bne:d $label9 */
3479 // OBSOLETE
3480 // OBSOLETE static SEM_PC
3481 // OBSOLETE SEM_FN_NAME (fr30bf,bned) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3482 // OBSOLETE {
3483 // OBSOLETE #define FLD(f) abuf->fields.sfmt_brad.f
3484 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3485 // OBSOLETE   int UNUSED written = 0;
3486 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3487 // OBSOLETE   SEM_BRANCH_INIT
3488 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3489 // OBSOLETE
3490 // OBSOLETE {
3491 // OBSOLETE if (NOTBI (CPU (h_zbit))) {
3492 // OBSOLETE   {
3493 // OBSOLETE     USI opval = FLD (i_label9);
3494 // OBSOLETE     SEM_BRANCH_VIA_CACHE (current_cpu, sem_arg, opval, vpc);
3495 // OBSOLETE     written |= (1 << 2);
3496 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3497 // OBSOLETE   }
3498 // OBSOLETE }
3499 // OBSOLETE }
3500 // OBSOLETE
3501 // OBSOLETE   abuf->written = written;
3502 // OBSOLETE   SEM_BRANCH_FINI (vpc);
3503 // OBSOLETE   return vpc;
3504 // OBSOLETE #undef FLD
3505 // OBSOLETE }
3506 // OBSOLETE
3507 // OBSOLETE /* bne: bne $label9 */
3508 // OBSOLETE
3509 // OBSOLETE static SEM_PC
3510 // OBSOLETE SEM_FN_NAME (fr30bf,bne) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3511 // OBSOLETE {
3512 // OBSOLETE #define FLD(f) abuf->fields.sfmt_brad.f
3513 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3514 // OBSOLETE   int UNUSED written = 0;
3515 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3516 // OBSOLETE   SEM_BRANCH_INIT
3517 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3518 // OBSOLETE
3519 // OBSOLETE if (NOTBI (CPU (h_zbit))) {
3520 // OBSOLETE   {
3521 // OBSOLETE     USI opval = FLD (i_label9);
3522 // OBSOLETE     SEM_BRANCH_VIA_CACHE (current_cpu, sem_arg, opval, vpc);
3523 // OBSOLETE     written |= (1 << 2);
3524 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3525 // OBSOLETE   }
3526 // OBSOLETE }
3527 // OBSOLETE
3528 // OBSOLETE   abuf->written = written;
3529 // OBSOLETE   SEM_BRANCH_FINI (vpc);
3530 // OBSOLETE   return vpc;
3531 // OBSOLETE #undef FLD
3532 // OBSOLETE }
3533 // OBSOLETE
3534 // OBSOLETE /* bcd: bc:d $label9 */
3535 // OBSOLETE
3536 // OBSOLETE static SEM_PC
3537 // OBSOLETE SEM_FN_NAME (fr30bf,bcd) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3538 // OBSOLETE {
3539 // OBSOLETE #define FLD(f) abuf->fields.sfmt_brad.f
3540 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3541 // OBSOLETE   int UNUSED written = 0;
3542 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3543 // OBSOLETE   SEM_BRANCH_INIT
3544 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3545 // OBSOLETE
3546 // OBSOLETE {
3547 // OBSOLETE if (CPU (h_cbit)) {
3548 // OBSOLETE   {
3549 // OBSOLETE     USI opval = FLD (i_label9);
3550 // OBSOLETE     SEM_BRANCH_VIA_CACHE (current_cpu, sem_arg, opval, vpc);
3551 // OBSOLETE     written |= (1 << 2);
3552 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3553 // OBSOLETE   }
3554 // OBSOLETE }
3555 // OBSOLETE }
3556 // OBSOLETE
3557 // OBSOLETE   abuf->written = written;
3558 // OBSOLETE   SEM_BRANCH_FINI (vpc);
3559 // OBSOLETE   return vpc;
3560 // OBSOLETE #undef FLD
3561 // OBSOLETE }
3562 // OBSOLETE
3563 // OBSOLETE /* bc: bc $label9 */
3564 // OBSOLETE
3565 // OBSOLETE static SEM_PC
3566 // OBSOLETE SEM_FN_NAME (fr30bf,bc) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3567 // OBSOLETE {
3568 // OBSOLETE #define FLD(f) abuf->fields.sfmt_brad.f
3569 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3570 // OBSOLETE   int UNUSED written = 0;
3571 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3572 // OBSOLETE   SEM_BRANCH_INIT
3573 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3574 // OBSOLETE
3575 // OBSOLETE if (CPU (h_cbit)) {
3576 // OBSOLETE   {
3577 // OBSOLETE     USI opval = FLD (i_label9);
3578 // OBSOLETE     SEM_BRANCH_VIA_CACHE (current_cpu, sem_arg, opval, vpc);
3579 // OBSOLETE     written |= (1 << 2);
3580 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3581 // OBSOLETE   }
3582 // OBSOLETE }
3583 // OBSOLETE
3584 // OBSOLETE   abuf->written = written;
3585 // OBSOLETE   SEM_BRANCH_FINI (vpc);
3586 // OBSOLETE   return vpc;
3587 // OBSOLETE #undef FLD
3588 // OBSOLETE }
3589 // OBSOLETE
3590 // OBSOLETE /* bncd: bnc:d $label9 */
3591 // OBSOLETE
3592 // OBSOLETE static SEM_PC
3593 // OBSOLETE SEM_FN_NAME (fr30bf,bncd) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3594 // OBSOLETE {
3595 // OBSOLETE #define FLD(f) abuf->fields.sfmt_brad.f
3596 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3597 // OBSOLETE   int UNUSED written = 0;
3598 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3599 // OBSOLETE   SEM_BRANCH_INIT
3600 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3601 // OBSOLETE
3602 // OBSOLETE {
3603 // OBSOLETE if (NOTBI (CPU (h_cbit))) {
3604 // OBSOLETE   {
3605 // OBSOLETE     USI opval = FLD (i_label9);
3606 // OBSOLETE     SEM_BRANCH_VIA_CACHE (current_cpu, sem_arg, opval, vpc);
3607 // OBSOLETE     written |= (1 << 2);
3608 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3609 // OBSOLETE   }
3610 // OBSOLETE }
3611 // OBSOLETE }
3612 // OBSOLETE
3613 // OBSOLETE   abuf->written = written;
3614 // OBSOLETE   SEM_BRANCH_FINI (vpc);
3615 // OBSOLETE   return vpc;
3616 // OBSOLETE #undef FLD
3617 // OBSOLETE }
3618 // OBSOLETE
3619 // OBSOLETE /* bnc: bnc $label9 */
3620 // OBSOLETE
3621 // OBSOLETE static SEM_PC
3622 // OBSOLETE SEM_FN_NAME (fr30bf,bnc) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3623 // OBSOLETE {
3624 // OBSOLETE #define FLD(f) abuf->fields.sfmt_brad.f
3625 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3626 // OBSOLETE   int UNUSED written = 0;
3627 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3628 // OBSOLETE   SEM_BRANCH_INIT
3629 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3630 // OBSOLETE
3631 // OBSOLETE if (NOTBI (CPU (h_cbit))) {
3632 // OBSOLETE   {
3633 // OBSOLETE     USI opval = FLD (i_label9);
3634 // OBSOLETE     SEM_BRANCH_VIA_CACHE (current_cpu, sem_arg, opval, vpc);
3635 // OBSOLETE     written |= (1 << 2);
3636 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3637 // OBSOLETE   }
3638 // OBSOLETE }
3639 // OBSOLETE
3640 // OBSOLETE   abuf->written = written;
3641 // OBSOLETE   SEM_BRANCH_FINI (vpc);
3642 // OBSOLETE   return vpc;
3643 // OBSOLETE #undef FLD
3644 // OBSOLETE }
3645 // OBSOLETE
3646 // OBSOLETE /* bnd: bn:d $label9 */
3647 // OBSOLETE
3648 // OBSOLETE static SEM_PC
3649 // OBSOLETE SEM_FN_NAME (fr30bf,bnd) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3650 // OBSOLETE {
3651 // OBSOLETE #define FLD(f) abuf->fields.sfmt_brad.f
3652 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3653 // OBSOLETE   int UNUSED written = 0;
3654 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3655 // OBSOLETE   SEM_BRANCH_INIT
3656 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3657 // OBSOLETE
3658 // OBSOLETE {
3659 // OBSOLETE if (CPU (h_nbit)) {
3660 // OBSOLETE   {
3661 // OBSOLETE     USI opval = FLD (i_label9);
3662 // OBSOLETE     SEM_BRANCH_VIA_CACHE (current_cpu, sem_arg, opval, vpc);
3663 // OBSOLETE     written |= (1 << 2);
3664 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3665 // OBSOLETE   }
3666 // OBSOLETE }
3667 // OBSOLETE }
3668 // OBSOLETE
3669 // OBSOLETE   abuf->written = written;
3670 // OBSOLETE   SEM_BRANCH_FINI (vpc);
3671 // OBSOLETE   return vpc;
3672 // OBSOLETE #undef FLD
3673 // OBSOLETE }
3674 // OBSOLETE
3675 // OBSOLETE /* bn: bn $label9 */
3676 // OBSOLETE
3677 // OBSOLETE static SEM_PC
3678 // OBSOLETE SEM_FN_NAME (fr30bf,bn) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3679 // OBSOLETE {
3680 // OBSOLETE #define FLD(f) abuf->fields.sfmt_brad.f
3681 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3682 // OBSOLETE   int UNUSED written = 0;
3683 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3684 // OBSOLETE   SEM_BRANCH_INIT
3685 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3686 // OBSOLETE
3687 // OBSOLETE if (CPU (h_nbit)) {
3688 // OBSOLETE   {
3689 // OBSOLETE     USI opval = FLD (i_label9);
3690 // OBSOLETE     SEM_BRANCH_VIA_CACHE (current_cpu, sem_arg, opval, vpc);
3691 // OBSOLETE     written |= (1 << 2);
3692 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3693 // OBSOLETE   }
3694 // OBSOLETE }
3695 // OBSOLETE
3696 // OBSOLETE   abuf->written = written;
3697 // OBSOLETE   SEM_BRANCH_FINI (vpc);
3698 // OBSOLETE   return vpc;
3699 // OBSOLETE #undef FLD
3700 // OBSOLETE }
3701 // OBSOLETE
3702 // OBSOLETE /* bpd: bp:d $label9 */
3703 // OBSOLETE
3704 // OBSOLETE static SEM_PC
3705 // OBSOLETE SEM_FN_NAME (fr30bf,bpd) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3706 // OBSOLETE {
3707 // OBSOLETE #define FLD(f) abuf->fields.sfmt_brad.f
3708 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3709 // OBSOLETE   int UNUSED written = 0;
3710 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3711 // OBSOLETE   SEM_BRANCH_INIT
3712 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3713 // OBSOLETE
3714 // OBSOLETE {
3715 // OBSOLETE if (NOTBI (CPU (h_nbit))) {
3716 // OBSOLETE   {
3717 // OBSOLETE     USI opval = FLD (i_label9);
3718 // OBSOLETE     SEM_BRANCH_VIA_CACHE (current_cpu, sem_arg, opval, vpc);
3719 // OBSOLETE     written |= (1 << 2);
3720 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3721 // OBSOLETE   }
3722 // OBSOLETE }
3723 // OBSOLETE }
3724 // OBSOLETE
3725 // OBSOLETE   abuf->written = written;
3726 // OBSOLETE   SEM_BRANCH_FINI (vpc);
3727 // OBSOLETE   return vpc;
3728 // OBSOLETE #undef FLD
3729 // OBSOLETE }
3730 // OBSOLETE
3731 // OBSOLETE /* bp: bp $label9 */
3732 // OBSOLETE
3733 // OBSOLETE static SEM_PC
3734 // OBSOLETE SEM_FN_NAME (fr30bf,bp) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3735 // OBSOLETE {
3736 // OBSOLETE #define FLD(f) abuf->fields.sfmt_brad.f
3737 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3738 // OBSOLETE   int UNUSED written = 0;
3739 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3740 // OBSOLETE   SEM_BRANCH_INIT
3741 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3742 // OBSOLETE
3743 // OBSOLETE if (NOTBI (CPU (h_nbit))) {
3744 // OBSOLETE   {
3745 // OBSOLETE     USI opval = FLD (i_label9);
3746 // OBSOLETE     SEM_BRANCH_VIA_CACHE (current_cpu, sem_arg, opval, vpc);
3747 // OBSOLETE     written |= (1 << 2);
3748 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3749 // OBSOLETE   }
3750 // OBSOLETE }
3751 // OBSOLETE
3752 // OBSOLETE   abuf->written = written;
3753 // OBSOLETE   SEM_BRANCH_FINI (vpc);
3754 // OBSOLETE   return vpc;
3755 // OBSOLETE #undef FLD
3756 // OBSOLETE }
3757 // OBSOLETE
3758 // OBSOLETE /* bvd: bv:d $label9 */
3759 // OBSOLETE
3760 // OBSOLETE static SEM_PC
3761 // OBSOLETE SEM_FN_NAME (fr30bf,bvd) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3762 // OBSOLETE {
3763 // OBSOLETE #define FLD(f) abuf->fields.sfmt_brad.f
3764 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3765 // OBSOLETE   int UNUSED written = 0;
3766 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3767 // OBSOLETE   SEM_BRANCH_INIT
3768 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3769 // OBSOLETE
3770 // OBSOLETE {
3771 // OBSOLETE if (CPU (h_vbit)) {
3772 // OBSOLETE   {
3773 // OBSOLETE     USI opval = FLD (i_label9);
3774 // OBSOLETE     SEM_BRANCH_VIA_CACHE (current_cpu, sem_arg, opval, vpc);
3775 // OBSOLETE     written |= (1 << 2);
3776 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3777 // OBSOLETE   }
3778 // OBSOLETE }
3779 // OBSOLETE }
3780 // OBSOLETE
3781 // OBSOLETE   abuf->written = written;
3782 // OBSOLETE   SEM_BRANCH_FINI (vpc);
3783 // OBSOLETE   return vpc;
3784 // OBSOLETE #undef FLD
3785 // OBSOLETE }
3786 // OBSOLETE
3787 // OBSOLETE /* bv: bv $label9 */
3788 // OBSOLETE
3789 // OBSOLETE static SEM_PC
3790 // OBSOLETE SEM_FN_NAME (fr30bf,bv) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3791 // OBSOLETE {
3792 // OBSOLETE #define FLD(f) abuf->fields.sfmt_brad.f
3793 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3794 // OBSOLETE   int UNUSED written = 0;
3795 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3796 // OBSOLETE   SEM_BRANCH_INIT
3797 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3798 // OBSOLETE
3799 // OBSOLETE if (CPU (h_vbit)) {
3800 // OBSOLETE   {
3801 // OBSOLETE     USI opval = FLD (i_label9);
3802 // OBSOLETE     SEM_BRANCH_VIA_CACHE (current_cpu, sem_arg, opval, vpc);
3803 // OBSOLETE     written |= (1 << 2);
3804 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3805 // OBSOLETE   }
3806 // OBSOLETE }
3807 // OBSOLETE
3808 // OBSOLETE   abuf->written = written;
3809 // OBSOLETE   SEM_BRANCH_FINI (vpc);
3810 // OBSOLETE   return vpc;
3811 // OBSOLETE #undef FLD
3812 // OBSOLETE }
3813 // OBSOLETE
3814 // OBSOLETE /* bnvd: bnv:d $label9 */
3815 // OBSOLETE
3816 // OBSOLETE static SEM_PC
3817 // OBSOLETE SEM_FN_NAME (fr30bf,bnvd) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3818 // OBSOLETE {
3819 // OBSOLETE #define FLD(f) abuf->fields.sfmt_brad.f
3820 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3821 // OBSOLETE   int UNUSED written = 0;
3822 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3823 // OBSOLETE   SEM_BRANCH_INIT
3824 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3825 // OBSOLETE
3826 // OBSOLETE {
3827 // OBSOLETE if (NOTBI (CPU (h_vbit))) {
3828 // OBSOLETE   {
3829 // OBSOLETE     USI opval = FLD (i_label9);
3830 // OBSOLETE     SEM_BRANCH_VIA_CACHE (current_cpu, sem_arg, opval, vpc);
3831 // OBSOLETE     written |= (1 << 2);
3832 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3833 // OBSOLETE   }
3834 // OBSOLETE }
3835 // OBSOLETE }
3836 // OBSOLETE
3837 // OBSOLETE   abuf->written = written;
3838 // OBSOLETE   SEM_BRANCH_FINI (vpc);
3839 // OBSOLETE   return vpc;
3840 // OBSOLETE #undef FLD
3841 // OBSOLETE }
3842 // OBSOLETE
3843 // OBSOLETE /* bnv: bnv $label9 */
3844 // OBSOLETE
3845 // OBSOLETE static SEM_PC
3846 // OBSOLETE SEM_FN_NAME (fr30bf,bnv) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3847 // OBSOLETE {
3848 // OBSOLETE #define FLD(f) abuf->fields.sfmt_brad.f
3849 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3850 // OBSOLETE   int UNUSED written = 0;
3851 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3852 // OBSOLETE   SEM_BRANCH_INIT
3853 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3854 // OBSOLETE
3855 // OBSOLETE if (NOTBI (CPU (h_vbit))) {
3856 // OBSOLETE   {
3857 // OBSOLETE     USI opval = FLD (i_label9);
3858 // OBSOLETE     SEM_BRANCH_VIA_CACHE (current_cpu, sem_arg, opval, vpc);
3859 // OBSOLETE     written |= (1 << 2);
3860 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3861 // OBSOLETE   }
3862 // OBSOLETE }
3863 // OBSOLETE
3864 // OBSOLETE   abuf->written = written;
3865 // OBSOLETE   SEM_BRANCH_FINI (vpc);
3866 // OBSOLETE   return vpc;
3867 // OBSOLETE #undef FLD
3868 // OBSOLETE }
3869 // OBSOLETE
3870 // OBSOLETE /* bltd: blt:d $label9 */
3871 // OBSOLETE
3872 // OBSOLETE static SEM_PC
3873 // OBSOLETE SEM_FN_NAME (fr30bf,bltd) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3874 // OBSOLETE {
3875 // OBSOLETE #define FLD(f) abuf->fields.sfmt_brad.f
3876 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3877 // OBSOLETE   int UNUSED written = 0;
3878 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3879 // OBSOLETE   SEM_BRANCH_INIT
3880 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3881 // OBSOLETE
3882 // OBSOLETE {
3883 // OBSOLETE if (XORBI (CPU (h_vbit), CPU (h_nbit))) {
3884 // OBSOLETE   {
3885 // OBSOLETE     USI opval = FLD (i_label9);
3886 // OBSOLETE     SEM_BRANCH_VIA_CACHE (current_cpu, sem_arg, opval, vpc);
3887 // OBSOLETE     written |= (1 << 3);
3888 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3889 // OBSOLETE   }
3890 // OBSOLETE }
3891 // OBSOLETE }
3892 // OBSOLETE
3893 // OBSOLETE   abuf->written = written;
3894 // OBSOLETE   SEM_BRANCH_FINI (vpc);
3895 // OBSOLETE   return vpc;
3896 // OBSOLETE #undef FLD
3897 // OBSOLETE }
3898 // OBSOLETE
3899 // OBSOLETE /* blt: blt $label9 */
3900 // OBSOLETE
3901 // OBSOLETE static SEM_PC
3902 // OBSOLETE SEM_FN_NAME (fr30bf,blt) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3903 // OBSOLETE {
3904 // OBSOLETE #define FLD(f) abuf->fields.sfmt_brad.f
3905 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3906 // OBSOLETE   int UNUSED written = 0;
3907 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3908 // OBSOLETE   SEM_BRANCH_INIT
3909 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3910 // OBSOLETE
3911 // OBSOLETE if (XORBI (CPU (h_vbit), CPU (h_nbit))) {
3912 // OBSOLETE   {
3913 // OBSOLETE     USI opval = FLD (i_label9);
3914 // OBSOLETE     SEM_BRANCH_VIA_CACHE (current_cpu, sem_arg, opval, vpc);
3915 // OBSOLETE     written |= (1 << 3);
3916 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3917 // OBSOLETE   }
3918 // OBSOLETE }
3919 // OBSOLETE
3920 // OBSOLETE   abuf->written = written;
3921 // OBSOLETE   SEM_BRANCH_FINI (vpc);
3922 // OBSOLETE   return vpc;
3923 // OBSOLETE #undef FLD
3924 // OBSOLETE }
3925 // OBSOLETE
3926 // OBSOLETE /* bged: bge:d $label9 */
3927 // OBSOLETE
3928 // OBSOLETE static SEM_PC
3929 // OBSOLETE SEM_FN_NAME (fr30bf,bged) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3930 // OBSOLETE {
3931 // OBSOLETE #define FLD(f) abuf->fields.sfmt_brad.f
3932 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3933 // OBSOLETE   int UNUSED written = 0;
3934 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3935 // OBSOLETE   SEM_BRANCH_INIT
3936 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3937 // OBSOLETE
3938 // OBSOLETE {
3939 // OBSOLETE if (NOTBI (XORBI (CPU (h_vbit), CPU (h_nbit)))) {
3940 // OBSOLETE   {
3941 // OBSOLETE     USI opval = FLD (i_label9);
3942 // OBSOLETE     SEM_BRANCH_VIA_CACHE (current_cpu, sem_arg, opval, vpc);
3943 // OBSOLETE     written |= (1 << 3);
3944 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3945 // OBSOLETE   }
3946 // OBSOLETE }
3947 // OBSOLETE }
3948 // OBSOLETE
3949 // OBSOLETE   abuf->written = written;
3950 // OBSOLETE   SEM_BRANCH_FINI (vpc);
3951 // OBSOLETE   return vpc;
3952 // OBSOLETE #undef FLD
3953 // OBSOLETE }
3954 // OBSOLETE
3955 // OBSOLETE /* bge: bge $label9 */
3956 // OBSOLETE
3957 // OBSOLETE static SEM_PC
3958 // OBSOLETE SEM_FN_NAME (fr30bf,bge) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3959 // OBSOLETE {
3960 // OBSOLETE #define FLD(f) abuf->fields.sfmt_brad.f
3961 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3962 // OBSOLETE   int UNUSED written = 0;
3963 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3964 // OBSOLETE   SEM_BRANCH_INIT
3965 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3966 // OBSOLETE
3967 // OBSOLETE if (NOTBI (XORBI (CPU (h_vbit), CPU (h_nbit)))) {
3968 // OBSOLETE   {
3969 // OBSOLETE     USI opval = FLD (i_label9);
3970 // OBSOLETE     SEM_BRANCH_VIA_CACHE (current_cpu, sem_arg, opval, vpc);
3971 // OBSOLETE     written |= (1 << 3);
3972 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
3973 // OBSOLETE   }
3974 // OBSOLETE }
3975 // OBSOLETE
3976 // OBSOLETE   abuf->written = written;
3977 // OBSOLETE   SEM_BRANCH_FINI (vpc);
3978 // OBSOLETE   return vpc;
3979 // OBSOLETE #undef FLD
3980 // OBSOLETE }
3981 // OBSOLETE
3982 // OBSOLETE /* bled: ble:d $label9 */
3983 // OBSOLETE
3984 // OBSOLETE static SEM_PC
3985 // OBSOLETE SEM_FN_NAME (fr30bf,bled) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
3986 // OBSOLETE {
3987 // OBSOLETE #define FLD(f) abuf->fields.sfmt_brad.f
3988 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
3989 // OBSOLETE   int UNUSED written = 0;
3990 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
3991 // OBSOLETE   SEM_BRANCH_INIT
3992 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
3993 // OBSOLETE
3994 // OBSOLETE {
3995 // OBSOLETE if (ORBI (XORBI (CPU (h_vbit), CPU (h_nbit)), CPU (h_zbit))) {
3996 // OBSOLETE   {
3997 // OBSOLETE     USI opval = FLD (i_label9);
3998 // OBSOLETE     SEM_BRANCH_VIA_CACHE (current_cpu, sem_arg, opval, vpc);
3999 // OBSOLETE     written |= (1 << 4);
4000 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
4001 // OBSOLETE   }
4002 // OBSOLETE }
4003 // OBSOLETE }
4004 // OBSOLETE
4005 // OBSOLETE   abuf->written = written;
4006 // OBSOLETE   SEM_BRANCH_FINI (vpc);
4007 // OBSOLETE   return vpc;
4008 // OBSOLETE #undef FLD
4009 // OBSOLETE }
4010 // OBSOLETE
4011 // OBSOLETE /* ble: ble $label9 */
4012 // OBSOLETE
4013 // OBSOLETE static SEM_PC
4014 // OBSOLETE SEM_FN_NAME (fr30bf,ble) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4015 // OBSOLETE {
4016 // OBSOLETE #define FLD(f) abuf->fields.sfmt_brad.f
4017 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4018 // OBSOLETE   int UNUSED written = 0;
4019 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4020 // OBSOLETE   SEM_BRANCH_INIT
4021 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
4022 // OBSOLETE
4023 // OBSOLETE if (ORBI (XORBI (CPU (h_vbit), CPU (h_nbit)), CPU (h_zbit))) {
4024 // OBSOLETE   {
4025 // OBSOLETE     USI opval = FLD (i_label9);
4026 // OBSOLETE     SEM_BRANCH_VIA_CACHE (current_cpu, sem_arg, opval, vpc);
4027 // OBSOLETE     written |= (1 << 4);
4028 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
4029 // OBSOLETE   }
4030 // OBSOLETE }
4031 // OBSOLETE
4032 // OBSOLETE   abuf->written = written;
4033 // OBSOLETE   SEM_BRANCH_FINI (vpc);
4034 // OBSOLETE   return vpc;
4035 // OBSOLETE #undef FLD
4036 // OBSOLETE }
4037 // OBSOLETE
4038 // OBSOLETE /* bgtd: bgt:d $label9 */
4039 // OBSOLETE
4040 // OBSOLETE static SEM_PC
4041 // OBSOLETE SEM_FN_NAME (fr30bf,bgtd) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4042 // OBSOLETE {
4043 // OBSOLETE #define FLD(f) abuf->fields.sfmt_brad.f
4044 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4045 // OBSOLETE   int UNUSED written = 0;
4046 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4047 // OBSOLETE   SEM_BRANCH_INIT
4048 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
4049 // OBSOLETE
4050 // OBSOLETE {
4051 // OBSOLETE if (NOTBI (ORBI (XORBI (CPU (h_vbit), CPU (h_nbit)), CPU (h_zbit)))) {
4052 // OBSOLETE   {
4053 // OBSOLETE     USI opval = FLD (i_label9);
4054 // OBSOLETE     SEM_BRANCH_VIA_CACHE (current_cpu, sem_arg, opval, vpc);
4055 // OBSOLETE     written |= (1 << 4);
4056 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
4057 // OBSOLETE   }
4058 // OBSOLETE }
4059 // OBSOLETE }
4060 // OBSOLETE
4061 // OBSOLETE   abuf->written = written;
4062 // OBSOLETE   SEM_BRANCH_FINI (vpc);
4063 // OBSOLETE   return vpc;
4064 // OBSOLETE #undef FLD
4065 // OBSOLETE }
4066 // OBSOLETE
4067 // OBSOLETE /* bgt: bgt $label9 */
4068 // OBSOLETE
4069 // OBSOLETE static SEM_PC
4070 // OBSOLETE SEM_FN_NAME (fr30bf,bgt) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4071 // OBSOLETE {
4072 // OBSOLETE #define FLD(f) abuf->fields.sfmt_brad.f
4073 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4074 // OBSOLETE   int UNUSED written = 0;
4075 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4076 // OBSOLETE   SEM_BRANCH_INIT
4077 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
4078 // OBSOLETE
4079 // OBSOLETE if (NOTBI (ORBI (XORBI (CPU (h_vbit), CPU (h_nbit)), CPU (h_zbit)))) {
4080 // OBSOLETE   {
4081 // OBSOLETE     USI opval = FLD (i_label9);
4082 // OBSOLETE     SEM_BRANCH_VIA_CACHE (current_cpu, sem_arg, opval, vpc);
4083 // OBSOLETE     written |= (1 << 4);
4084 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
4085 // OBSOLETE   }
4086 // OBSOLETE }
4087 // OBSOLETE
4088 // OBSOLETE   abuf->written = written;
4089 // OBSOLETE   SEM_BRANCH_FINI (vpc);
4090 // OBSOLETE   return vpc;
4091 // OBSOLETE #undef FLD
4092 // OBSOLETE }
4093 // OBSOLETE
4094 // OBSOLETE /* blsd: bls:d $label9 */
4095 // OBSOLETE
4096 // OBSOLETE static SEM_PC
4097 // OBSOLETE SEM_FN_NAME (fr30bf,blsd) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4098 // OBSOLETE {
4099 // OBSOLETE #define FLD(f) abuf->fields.sfmt_brad.f
4100 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4101 // OBSOLETE   int UNUSED written = 0;
4102 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4103 // OBSOLETE   SEM_BRANCH_INIT
4104 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
4105 // OBSOLETE
4106 // OBSOLETE {
4107 // OBSOLETE if (ORBI (CPU (h_cbit), CPU (h_zbit))) {
4108 // OBSOLETE   {
4109 // OBSOLETE     USI opval = FLD (i_label9);
4110 // OBSOLETE     SEM_BRANCH_VIA_CACHE (current_cpu, sem_arg, opval, vpc);
4111 // OBSOLETE     written |= (1 << 3);
4112 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
4113 // OBSOLETE   }
4114 // OBSOLETE }
4115 // OBSOLETE }
4116 // OBSOLETE
4117 // OBSOLETE   abuf->written = written;
4118 // OBSOLETE   SEM_BRANCH_FINI (vpc);
4119 // OBSOLETE   return vpc;
4120 // OBSOLETE #undef FLD
4121 // OBSOLETE }
4122 // OBSOLETE
4123 // OBSOLETE /* bls: bls $label9 */
4124 // OBSOLETE
4125 // OBSOLETE static SEM_PC
4126 // OBSOLETE SEM_FN_NAME (fr30bf,bls) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4127 // OBSOLETE {
4128 // OBSOLETE #define FLD(f) abuf->fields.sfmt_brad.f
4129 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4130 // OBSOLETE   int UNUSED written = 0;
4131 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4132 // OBSOLETE   SEM_BRANCH_INIT
4133 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
4134 // OBSOLETE
4135 // OBSOLETE if (ORBI (CPU (h_cbit), CPU (h_zbit))) {
4136 // OBSOLETE   {
4137 // OBSOLETE     USI opval = FLD (i_label9);
4138 // OBSOLETE     SEM_BRANCH_VIA_CACHE (current_cpu, sem_arg, opval, vpc);
4139 // OBSOLETE     written |= (1 << 3);
4140 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
4141 // OBSOLETE   }
4142 // OBSOLETE }
4143 // OBSOLETE
4144 // OBSOLETE   abuf->written = written;
4145 // OBSOLETE   SEM_BRANCH_FINI (vpc);
4146 // OBSOLETE   return vpc;
4147 // OBSOLETE #undef FLD
4148 // OBSOLETE }
4149 // OBSOLETE
4150 // OBSOLETE /* bhid: bhi:d $label9 */
4151 // OBSOLETE
4152 // OBSOLETE static SEM_PC
4153 // OBSOLETE SEM_FN_NAME (fr30bf,bhid) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4154 // OBSOLETE {
4155 // OBSOLETE #define FLD(f) abuf->fields.sfmt_brad.f
4156 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4157 // OBSOLETE   int UNUSED written = 0;
4158 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4159 // OBSOLETE   SEM_BRANCH_INIT
4160 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
4161 // OBSOLETE
4162 // OBSOLETE {
4163 // OBSOLETE if (NOTBI (ORBI (CPU (h_cbit), CPU (h_zbit)))) {
4164 // OBSOLETE   {
4165 // OBSOLETE     USI opval = FLD (i_label9);
4166 // OBSOLETE     SEM_BRANCH_VIA_CACHE (current_cpu, sem_arg, opval, vpc);
4167 // OBSOLETE     written |= (1 << 3);
4168 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
4169 // OBSOLETE   }
4170 // OBSOLETE }
4171 // OBSOLETE }
4172 // OBSOLETE
4173 // OBSOLETE   abuf->written = written;
4174 // OBSOLETE   SEM_BRANCH_FINI (vpc);
4175 // OBSOLETE   return vpc;
4176 // OBSOLETE #undef FLD
4177 // OBSOLETE }
4178 // OBSOLETE
4179 // OBSOLETE /* bhi: bhi $label9 */
4180 // OBSOLETE
4181 // OBSOLETE static SEM_PC
4182 // OBSOLETE SEM_FN_NAME (fr30bf,bhi) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4183 // OBSOLETE {
4184 // OBSOLETE #define FLD(f) abuf->fields.sfmt_brad.f
4185 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4186 // OBSOLETE   int UNUSED written = 0;
4187 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4188 // OBSOLETE   SEM_BRANCH_INIT
4189 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
4190 // OBSOLETE
4191 // OBSOLETE if (NOTBI (ORBI (CPU (h_cbit), CPU (h_zbit)))) {
4192 // OBSOLETE   {
4193 // OBSOLETE     USI opval = FLD (i_label9);
4194 // OBSOLETE     SEM_BRANCH_VIA_CACHE (current_cpu, sem_arg, opval, vpc);
4195 // OBSOLETE     written |= (1 << 3);
4196 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "pc", 'x', opval);
4197 // OBSOLETE   }
4198 // OBSOLETE }
4199 // OBSOLETE
4200 // OBSOLETE   abuf->written = written;
4201 // OBSOLETE   SEM_BRANCH_FINI (vpc);
4202 // OBSOLETE   return vpc;
4203 // OBSOLETE #undef FLD
4204 // OBSOLETE }
4205 // OBSOLETE
4206 // OBSOLETE /* dmovr13: dmov $R13,@$dir10 */
4207 // OBSOLETE
4208 // OBSOLETE static SEM_PC
4209 // OBSOLETE SEM_FN_NAME (fr30bf,dmovr13) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4210 // OBSOLETE {
4211 // OBSOLETE #define FLD(f) abuf->fields.sfmt_dmovr13pi.f
4212 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4213 // OBSOLETE   int UNUSED written = 0;
4214 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4215 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
4216 // OBSOLETE
4217 // OBSOLETE   {
4218 // OBSOLETE     SI opval = CPU (h_gr[((UINT) 13)]);
4219 // OBSOLETE     SETMEMSI (current_cpu, pc, FLD (f_dir10), opval);
4220 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
4221 // OBSOLETE   }
4222 // OBSOLETE
4223 // OBSOLETE   return vpc;
4224 // OBSOLETE #undef FLD
4225 // OBSOLETE }
4226 // OBSOLETE
4227 // OBSOLETE /* dmovr13h: dmovh $R13,@$dir9 */
4228 // OBSOLETE
4229 // OBSOLETE static SEM_PC
4230 // OBSOLETE SEM_FN_NAME (fr30bf,dmovr13h) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4231 // OBSOLETE {
4232 // OBSOLETE #define FLD(f) abuf->fields.sfmt_dmovr13pih.f
4233 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4234 // OBSOLETE   int UNUSED written = 0;
4235 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4236 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
4237 // OBSOLETE
4238 // OBSOLETE   {
4239 // OBSOLETE     HI opval = CPU (h_gr[((UINT) 13)]);
4240 // OBSOLETE     SETMEMHI (current_cpu, pc, FLD (f_dir9), opval);
4241 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
4242 // OBSOLETE   }
4243 // OBSOLETE
4244 // OBSOLETE   return vpc;
4245 // OBSOLETE #undef FLD
4246 // OBSOLETE }
4247 // OBSOLETE
4248 // OBSOLETE /* dmovr13b: dmovb $R13,@$dir8 */
4249 // OBSOLETE
4250 // OBSOLETE static SEM_PC
4251 // OBSOLETE SEM_FN_NAME (fr30bf,dmovr13b) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4252 // OBSOLETE {
4253 // OBSOLETE #define FLD(f) abuf->fields.sfmt_dmovr13pib.f
4254 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4255 // OBSOLETE   int UNUSED written = 0;
4256 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4257 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
4258 // OBSOLETE
4259 // OBSOLETE   {
4260 // OBSOLETE     QI opval = CPU (h_gr[((UINT) 13)]);
4261 // OBSOLETE     SETMEMQI (current_cpu, pc, FLD (f_dir8), opval);
4262 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
4263 // OBSOLETE   }
4264 // OBSOLETE
4265 // OBSOLETE   return vpc;
4266 // OBSOLETE #undef FLD
4267 // OBSOLETE }
4268 // OBSOLETE
4269 // OBSOLETE /* dmovr13pi: dmov @$R13+,@$dir10 */
4270 // OBSOLETE
4271 // OBSOLETE static SEM_PC
4272 // OBSOLETE SEM_FN_NAME (fr30bf,dmovr13pi) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4273 // OBSOLETE {
4274 // OBSOLETE #define FLD(f) abuf->fields.sfmt_dmovr13pi.f
4275 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4276 // OBSOLETE   int UNUSED written = 0;
4277 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4278 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
4279 // OBSOLETE
4280 // OBSOLETE {
4281 // OBSOLETE   {
4282 // OBSOLETE     SI opval = GETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 13)]));
4283 // OBSOLETE     SETMEMSI (current_cpu, pc, FLD (f_dir10), opval);
4284 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
4285 // OBSOLETE   }
4286 // OBSOLETE   {
4287 // OBSOLETE     SI opval = ADDSI (CPU (h_gr[((UINT) 13)]), 4);
4288 // OBSOLETE     CPU (h_gr[((UINT) 13)]) = opval;
4289 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4290 // OBSOLETE   }
4291 // OBSOLETE }
4292 // OBSOLETE
4293 // OBSOLETE   return vpc;
4294 // OBSOLETE #undef FLD
4295 // OBSOLETE }
4296 // OBSOLETE
4297 // OBSOLETE /* dmovr13pih: dmovh @$R13+,@$dir9 */
4298 // OBSOLETE
4299 // OBSOLETE static SEM_PC
4300 // OBSOLETE SEM_FN_NAME (fr30bf,dmovr13pih) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4301 // OBSOLETE {
4302 // OBSOLETE #define FLD(f) abuf->fields.sfmt_dmovr13pih.f
4303 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4304 // OBSOLETE   int UNUSED written = 0;
4305 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4306 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
4307 // OBSOLETE
4308 // OBSOLETE {
4309 // OBSOLETE   {
4310 // OBSOLETE     HI opval = GETMEMHI (current_cpu, pc, CPU (h_gr[((UINT) 13)]));
4311 // OBSOLETE     SETMEMHI (current_cpu, pc, FLD (f_dir9), opval);
4312 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
4313 // OBSOLETE   }
4314 // OBSOLETE   {
4315 // OBSOLETE     SI opval = ADDSI (CPU (h_gr[((UINT) 13)]), 2);
4316 // OBSOLETE     CPU (h_gr[((UINT) 13)]) = opval;
4317 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4318 // OBSOLETE   }
4319 // OBSOLETE }
4320 // OBSOLETE
4321 // OBSOLETE   return vpc;
4322 // OBSOLETE #undef FLD
4323 // OBSOLETE }
4324 // OBSOLETE
4325 // OBSOLETE /* dmovr13pib: dmovb @$R13+,@$dir8 */
4326 // OBSOLETE
4327 // OBSOLETE static SEM_PC
4328 // OBSOLETE SEM_FN_NAME (fr30bf,dmovr13pib) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4329 // OBSOLETE {
4330 // OBSOLETE #define FLD(f) abuf->fields.sfmt_dmovr13pib.f
4331 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4332 // OBSOLETE   int UNUSED written = 0;
4333 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4334 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
4335 // OBSOLETE
4336 // OBSOLETE {
4337 // OBSOLETE   {
4338 // OBSOLETE     QI opval = GETMEMQI (current_cpu, pc, CPU (h_gr[((UINT) 13)]));
4339 // OBSOLETE     SETMEMQI (current_cpu, pc, FLD (f_dir8), opval);
4340 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
4341 // OBSOLETE   }
4342 // OBSOLETE   {
4343 // OBSOLETE     SI opval = ADDSI (CPU (h_gr[((UINT) 13)]), 1);
4344 // OBSOLETE     CPU (h_gr[((UINT) 13)]) = opval;
4345 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4346 // OBSOLETE   }
4347 // OBSOLETE }
4348 // OBSOLETE
4349 // OBSOLETE   return vpc;
4350 // OBSOLETE #undef FLD
4351 // OBSOLETE }
4352 // OBSOLETE
4353 // OBSOLETE /* dmovr15pi: dmov @$R15+,@$dir10 */
4354 // OBSOLETE
4355 // OBSOLETE static SEM_PC
4356 // OBSOLETE SEM_FN_NAME (fr30bf,dmovr15pi) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4357 // OBSOLETE {
4358 // OBSOLETE #define FLD(f) abuf->fields.sfmt_dmovr15pi.f
4359 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4360 // OBSOLETE   int UNUSED written = 0;
4361 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4362 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
4363 // OBSOLETE
4364 // OBSOLETE {
4365 // OBSOLETE   {
4366 // OBSOLETE     SI opval = GETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]));
4367 // OBSOLETE     SETMEMSI (current_cpu, pc, FLD (f_dir10), opval);
4368 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
4369 // OBSOLETE   }
4370 // OBSOLETE   {
4371 // OBSOLETE     SI opval = ADDSI (CPU (h_gr[((UINT) 15)]), 4);
4372 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
4373 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4374 // OBSOLETE   }
4375 // OBSOLETE }
4376 // OBSOLETE
4377 // OBSOLETE   return vpc;
4378 // OBSOLETE #undef FLD
4379 // OBSOLETE }
4380 // OBSOLETE
4381 // OBSOLETE /* dmov2r13: dmov @$dir10,$R13 */
4382 // OBSOLETE
4383 // OBSOLETE static SEM_PC
4384 // OBSOLETE SEM_FN_NAME (fr30bf,dmov2r13) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4385 // OBSOLETE {
4386 // OBSOLETE #define FLD(f) abuf->fields.sfmt_dmovr13pi.f
4387 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4388 // OBSOLETE   int UNUSED written = 0;
4389 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4390 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
4391 // OBSOLETE
4392 // OBSOLETE   {
4393 // OBSOLETE     SI opval = GETMEMSI (current_cpu, pc, FLD (f_dir10));
4394 // OBSOLETE     CPU (h_gr[((UINT) 13)]) = opval;
4395 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4396 // OBSOLETE   }
4397 // OBSOLETE
4398 // OBSOLETE   return vpc;
4399 // OBSOLETE #undef FLD
4400 // OBSOLETE }
4401 // OBSOLETE
4402 // OBSOLETE /* dmov2r13h: dmovh @$dir9,$R13 */
4403 // OBSOLETE
4404 // OBSOLETE static SEM_PC
4405 // OBSOLETE SEM_FN_NAME (fr30bf,dmov2r13h) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4406 // OBSOLETE {
4407 // OBSOLETE #define FLD(f) abuf->fields.sfmt_dmovr13pih.f
4408 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4409 // OBSOLETE   int UNUSED written = 0;
4410 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4411 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
4412 // OBSOLETE
4413 // OBSOLETE   {
4414 // OBSOLETE     SI opval = GETMEMHI (current_cpu, pc, FLD (f_dir9));
4415 // OBSOLETE     CPU (h_gr[((UINT) 13)]) = opval;
4416 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4417 // OBSOLETE   }
4418 // OBSOLETE
4419 // OBSOLETE   return vpc;
4420 // OBSOLETE #undef FLD
4421 // OBSOLETE }
4422 // OBSOLETE
4423 // OBSOLETE /* dmov2r13b: dmovb @$dir8,$R13 */
4424 // OBSOLETE
4425 // OBSOLETE static SEM_PC
4426 // OBSOLETE SEM_FN_NAME (fr30bf,dmov2r13b) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4427 // OBSOLETE {
4428 // OBSOLETE #define FLD(f) abuf->fields.sfmt_dmovr13pib.f
4429 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4430 // OBSOLETE   int UNUSED written = 0;
4431 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4432 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
4433 // OBSOLETE
4434 // OBSOLETE   {
4435 // OBSOLETE     SI opval = GETMEMQI (current_cpu, pc, FLD (f_dir8));
4436 // OBSOLETE     CPU (h_gr[((UINT) 13)]) = opval;
4437 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4438 // OBSOLETE   }
4439 // OBSOLETE
4440 // OBSOLETE   return vpc;
4441 // OBSOLETE #undef FLD
4442 // OBSOLETE }
4443 // OBSOLETE
4444 // OBSOLETE /* dmov2r13pi: dmov @$dir10,@$R13+ */
4445 // OBSOLETE
4446 // OBSOLETE static SEM_PC
4447 // OBSOLETE SEM_FN_NAME (fr30bf,dmov2r13pi) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4448 // OBSOLETE {
4449 // OBSOLETE #define FLD(f) abuf->fields.sfmt_dmovr13pi.f
4450 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4451 // OBSOLETE   int UNUSED written = 0;
4452 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4453 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
4454 // OBSOLETE
4455 // OBSOLETE {
4456 // OBSOLETE   {
4457 // OBSOLETE     SI opval = GETMEMSI (current_cpu, pc, FLD (f_dir10));
4458 // OBSOLETE     SETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 13)]), opval);
4459 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
4460 // OBSOLETE   }
4461 // OBSOLETE   {
4462 // OBSOLETE     SI opval = ADDSI (CPU (h_gr[((UINT) 13)]), 4);
4463 // OBSOLETE     CPU (h_gr[((UINT) 13)]) = opval;
4464 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4465 // OBSOLETE   }
4466 // OBSOLETE }
4467 // OBSOLETE
4468 // OBSOLETE   return vpc;
4469 // OBSOLETE #undef FLD
4470 // OBSOLETE }
4471 // OBSOLETE
4472 // OBSOLETE /* dmov2r13pih: dmovh @$dir9,@$R13+ */
4473 // OBSOLETE
4474 // OBSOLETE static SEM_PC
4475 // OBSOLETE SEM_FN_NAME (fr30bf,dmov2r13pih) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4476 // OBSOLETE {
4477 // OBSOLETE #define FLD(f) abuf->fields.sfmt_dmovr13pih.f
4478 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4479 // OBSOLETE   int UNUSED written = 0;
4480 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4481 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
4482 // OBSOLETE
4483 // OBSOLETE {
4484 // OBSOLETE   {
4485 // OBSOLETE     HI opval = GETMEMHI (current_cpu, pc, FLD (f_dir9));
4486 // OBSOLETE     SETMEMHI (current_cpu, pc, CPU (h_gr[((UINT) 13)]), opval);
4487 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
4488 // OBSOLETE   }
4489 // OBSOLETE   {
4490 // OBSOLETE     SI opval = ADDSI (CPU (h_gr[((UINT) 13)]), 2);
4491 // OBSOLETE     CPU (h_gr[((UINT) 13)]) = opval;
4492 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4493 // OBSOLETE   }
4494 // OBSOLETE }
4495 // OBSOLETE
4496 // OBSOLETE   return vpc;
4497 // OBSOLETE #undef FLD
4498 // OBSOLETE }
4499 // OBSOLETE
4500 // OBSOLETE /* dmov2r13pib: dmovb @$dir8,@$R13+ */
4501 // OBSOLETE
4502 // OBSOLETE static SEM_PC
4503 // OBSOLETE SEM_FN_NAME (fr30bf,dmov2r13pib) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4504 // OBSOLETE {
4505 // OBSOLETE #define FLD(f) abuf->fields.sfmt_dmovr13pib.f
4506 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4507 // OBSOLETE   int UNUSED written = 0;
4508 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4509 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
4510 // OBSOLETE
4511 // OBSOLETE {
4512 // OBSOLETE   {
4513 // OBSOLETE     QI opval = GETMEMQI (current_cpu, pc, FLD (f_dir8));
4514 // OBSOLETE     SETMEMQI (current_cpu, pc, CPU (h_gr[((UINT) 13)]), opval);
4515 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
4516 // OBSOLETE   }
4517 // OBSOLETE   {
4518 // OBSOLETE     SI opval = ADDSI (CPU (h_gr[((UINT) 13)]), 1);
4519 // OBSOLETE     CPU (h_gr[((UINT) 13)]) = opval;
4520 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4521 // OBSOLETE   }
4522 // OBSOLETE }
4523 // OBSOLETE
4524 // OBSOLETE   return vpc;
4525 // OBSOLETE #undef FLD
4526 // OBSOLETE }
4527 // OBSOLETE
4528 // OBSOLETE /* dmov2r15pd: dmov @$dir10,@-$R15 */
4529 // OBSOLETE
4530 // OBSOLETE static SEM_PC
4531 // OBSOLETE SEM_FN_NAME (fr30bf,dmov2r15pd) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4532 // OBSOLETE {
4533 // OBSOLETE #define FLD(f) abuf->fields.sfmt_dmovr15pi.f
4534 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4535 // OBSOLETE   int UNUSED written = 0;
4536 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4537 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
4538 // OBSOLETE
4539 // OBSOLETE {
4540 // OBSOLETE   {
4541 // OBSOLETE     SI opval = SUBSI (CPU (h_gr[((UINT) 15)]), 4);
4542 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
4543 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4544 // OBSOLETE   }
4545 // OBSOLETE   {
4546 // OBSOLETE     SI opval = GETMEMSI (current_cpu, pc, FLD (f_dir10));
4547 // OBSOLETE     SETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]), opval);
4548 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
4549 // OBSOLETE   }
4550 // OBSOLETE }
4551 // OBSOLETE
4552 // OBSOLETE   return vpc;
4553 // OBSOLETE #undef FLD
4554 // OBSOLETE }
4555 // OBSOLETE
4556 // OBSOLETE /* ldres: ldres @$Ri+,$u4 */
4557 // OBSOLETE
4558 // OBSOLETE static SEM_PC
4559 // OBSOLETE SEM_FN_NAME (fr30bf,ldres) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4560 // OBSOLETE {
4561 // OBSOLETE #define FLD(f) abuf->fields.sfmt_add2.f
4562 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4563 // OBSOLETE   int UNUSED written = 0;
4564 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4565 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
4566 // OBSOLETE
4567 // OBSOLETE   {
4568 // OBSOLETE     SI opval = ADDSI (* FLD (i_Ri), 4);
4569 // OBSOLETE     * FLD (i_Ri) = opval;
4570 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4571 // OBSOLETE   }
4572 // OBSOLETE
4573 // OBSOLETE   return vpc;
4574 // OBSOLETE #undef FLD
4575 // OBSOLETE }
4576 // OBSOLETE
4577 // OBSOLETE /* stres: stres $u4,@$Ri+ */
4578 // OBSOLETE
4579 // OBSOLETE static SEM_PC
4580 // OBSOLETE SEM_FN_NAME (fr30bf,stres) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4581 // OBSOLETE {
4582 // OBSOLETE #define FLD(f) abuf->fields.sfmt_add2.f
4583 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4584 // OBSOLETE   int UNUSED written = 0;
4585 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4586 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
4587 // OBSOLETE
4588 // OBSOLETE   {
4589 // OBSOLETE     SI opval = ADDSI (* FLD (i_Ri), 4);
4590 // OBSOLETE     * FLD (i_Ri) = opval;
4591 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4592 // OBSOLETE   }
4593 // OBSOLETE
4594 // OBSOLETE   return vpc;
4595 // OBSOLETE #undef FLD
4596 // OBSOLETE }
4597 // OBSOLETE
4598 // OBSOLETE /* copop: copop $u4c,$ccc,$CRj,$CRi */
4599 // OBSOLETE
4600 // OBSOLETE static SEM_PC
4601 // OBSOLETE SEM_FN_NAME (fr30bf,copop) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4602 // OBSOLETE {
4603 // OBSOLETE #define FLD(f) abuf->fields.fmt_empty.f
4604 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4605 // OBSOLETE   int UNUSED written = 0;
4606 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4607 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 4);
4608 // OBSOLETE
4609 // OBSOLETE ((void) 0); /*nop*/
4610 // OBSOLETE
4611 // OBSOLETE   return vpc;
4612 // OBSOLETE #undef FLD
4613 // OBSOLETE }
4614 // OBSOLETE
4615 // OBSOLETE /* copld: copld $u4c,$ccc,$Rjc,$CRi */
4616 // OBSOLETE
4617 // OBSOLETE static SEM_PC
4618 // OBSOLETE SEM_FN_NAME (fr30bf,copld) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4619 // OBSOLETE {
4620 // OBSOLETE #define FLD(f) abuf->fields.fmt_empty.f
4621 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4622 // OBSOLETE   int UNUSED written = 0;
4623 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4624 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 4);
4625 // OBSOLETE
4626 // OBSOLETE ((void) 0); /*nop*/
4627 // OBSOLETE
4628 // OBSOLETE   return vpc;
4629 // OBSOLETE #undef FLD
4630 // OBSOLETE }
4631 // OBSOLETE
4632 // OBSOLETE /* copst: copst $u4c,$ccc,$CRj,$Ric */
4633 // OBSOLETE
4634 // OBSOLETE static SEM_PC
4635 // OBSOLETE SEM_FN_NAME (fr30bf,copst) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4636 // OBSOLETE {
4637 // OBSOLETE #define FLD(f) abuf->fields.fmt_empty.f
4638 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4639 // OBSOLETE   int UNUSED written = 0;
4640 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4641 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 4);
4642 // OBSOLETE
4643 // OBSOLETE ((void) 0); /*nop*/
4644 // OBSOLETE
4645 // OBSOLETE   return vpc;
4646 // OBSOLETE #undef FLD
4647 // OBSOLETE }
4648 // OBSOLETE
4649 // OBSOLETE /* copsv: copsv $u4c,$ccc,$CRj,$Ric */
4650 // OBSOLETE
4651 // OBSOLETE static SEM_PC
4652 // OBSOLETE SEM_FN_NAME (fr30bf,copsv) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4653 // OBSOLETE {
4654 // OBSOLETE #define FLD(f) abuf->fields.fmt_empty.f
4655 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4656 // OBSOLETE   int UNUSED written = 0;
4657 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4658 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 4);
4659 // OBSOLETE
4660 // OBSOLETE ((void) 0); /*nop*/
4661 // OBSOLETE
4662 // OBSOLETE   return vpc;
4663 // OBSOLETE #undef FLD
4664 // OBSOLETE }
4665 // OBSOLETE
4666 // OBSOLETE /* nop: nop */
4667 // OBSOLETE
4668 // OBSOLETE static SEM_PC
4669 // OBSOLETE SEM_FN_NAME (fr30bf,nop) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4670 // OBSOLETE {
4671 // OBSOLETE #define FLD(f) abuf->fields.fmt_empty.f
4672 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4673 // OBSOLETE   int UNUSED written = 0;
4674 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4675 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
4676 // OBSOLETE
4677 // OBSOLETE ((void) 0); /*nop*/
4678 // OBSOLETE
4679 // OBSOLETE   return vpc;
4680 // OBSOLETE #undef FLD
4681 // OBSOLETE }
4682 // OBSOLETE
4683 // OBSOLETE /* andccr: andccr $u8 */
4684 // OBSOLETE
4685 // OBSOLETE static SEM_PC
4686 // OBSOLETE SEM_FN_NAME (fr30bf,andccr) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4687 // OBSOLETE {
4688 // OBSOLETE #define FLD(f) abuf->fields.sfmt_int.f
4689 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4690 // OBSOLETE   int UNUSED written = 0;
4691 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4692 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
4693 // OBSOLETE
4694 // OBSOLETE   {
4695 // OBSOLETE     UQI opval = ANDQI (GET_H_CCR (), FLD (f_u8));
4696 // OBSOLETE     SET_H_CCR (opval);
4697 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "ccr", 'x', opval);
4698 // OBSOLETE   }
4699 // OBSOLETE
4700 // OBSOLETE   return vpc;
4701 // OBSOLETE #undef FLD
4702 // OBSOLETE }
4703 // OBSOLETE
4704 // OBSOLETE /* orccr: orccr $u8 */
4705 // OBSOLETE
4706 // OBSOLETE static SEM_PC
4707 // OBSOLETE SEM_FN_NAME (fr30bf,orccr) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4708 // OBSOLETE {
4709 // OBSOLETE #define FLD(f) abuf->fields.sfmt_int.f
4710 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4711 // OBSOLETE   int UNUSED written = 0;
4712 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4713 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
4714 // OBSOLETE
4715 // OBSOLETE   {
4716 // OBSOLETE     UQI opval = ORQI (GET_H_CCR (), FLD (f_u8));
4717 // OBSOLETE     SET_H_CCR (opval);
4718 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "ccr", 'x', opval);
4719 // OBSOLETE   }
4720 // OBSOLETE
4721 // OBSOLETE   return vpc;
4722 // OBSOLETE #undef FLD
4723 // OBSOLETE }
4724 // OBSOLETE
4725 // OBSOLETE /* stilm: stilm $u8 */
4726 // OBSOLETE
4727 // OBSOLETE static SEM_PC
4728 // OBSOLETE SEM_FN_NAME (fr30bf,stilm) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4729 // OBSOLETE {
4730 // OBSOLETE #define FLD(f) abuf->fields.sfmt_int.f
4731 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4732 // OBSOLETE   int UNUSED written = 0;
4733 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4734 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
4735 // OBSOLETE
4736 // OBSOLETE   {
4737 // OBSOLETE     UQI opval = ANDSI (FLD (f_u8), 31);
4738 // OBSOLETE     SET_H_ILM (opval);
4739 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "ilm", 'x', opval);
4740 // OBSOLETE   }
4741 // OBSOLETE
4742 // OBSOLETE   return vpc;
4743 // OBSOLETE #undef FLD
4744 // OBSOLETE }
4745 // OBSOLETE
4746 // OBSOLETE /* addsp: addsp $s10 */
4747 // OBSOLETE
4748 // OBSOLETE static SEM_PC
4749 // OBSOLETE SEM_FN_NAME (fr30bf,addsp) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4750 // OBSOLETE {
4751 // OBSOLETE #define FLD(f) abuf->fields.sfmt_addsp.f
4752 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4753 // OBSOLETE   int UNUSED written = 0;
4754 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4755 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
4756 // OBSOLETE
4757 // OBSOLETE   {
4758 // OBSOLETE     SI opval = ADDSI (CPU (h_gr[((UINT) 15)]), FLD (f_s10));
4759 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
4760 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4761 // OBSOLETE   }
4762 // OBSOLETE
4763 // OBSOLETE   return vpc;
4764 // OBSOLETE #undef FLD
4765 // OBSOLETE }
4766 // OBSOLETE
4767 // OBSOLETE /* extsb: extsb $Ri */
4768 // OBSOLETE
4769 // OBSOLETE static SEM_PC
4770 // OBSOLETE SEM_FN_NAME (fr30bf,extsb) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4771 // OBSOLETE {
4772 // OBSOLETE #define FLD(f) abuf->fields.sfmt_add2.f
4773 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4774 // OBSOLETE   int UNUSED written = 0;
4775 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4776 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
4777 // OBSOLETE
4778 // OBSOLETE   {
4779 // OBSOLETE     SI opval = EXTQISI (ANDQI (* FLD (i_Ri), 255));
4780 // OBSOLETE     * FLD (i_Ri) = opval;
4781 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4782 // OBSOLETE   }
4783 // OBSOLETE
4784 // OBSOLETE   return vpc;
4785 // OBSOLETE #undef FLD
4786 // OBSOLETE }
4787 // OBSOLETE
4788 // OBSOLETE /* extub: extub $Ri */
4789 // OBSOLETE
4790 // OBSOLETE static SEM_PC
4791 // OBSOLETE SEM_FN_NAME (fr30bf,extub) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4792 // OBSOLETE {
4793 // OBSOLETE #define FLD(f) abuf->fields.sfmt_add2.f
4794 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4795 // OBSOLETE   int UNUSED written = 0;
4796 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4797 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
4798 // OBSOLETE
4799 // OBSOLETE   {
4800 // OBSOLETE     SI opval = ZEXTQISI (ANDQI (* FLD (i_Ri), 255));
4801 // OBSOLETE     * FLD (i_Ri) = opval;
4802 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4803 // OBSOLETE   }
4804 // OBSOLETE
4805 // OBSOLETE   return vpc;
4806 // OBSOLETE #undef FLD
4807 // OBSOLETE }
4808 // OBSOLETE
4809 // OBSOLETE /* extsh: extsh $Ri */
4810 // OBSOLETE
4811 // OBSOLETE static SEM_PC
4812 // OBSOLETE SEM_FN_NAME (fr30bf,extsh) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4813 // OBSOLETE {
4814 // OBSOLETE #define FLD(f) abuf->fields.sfmt_add2.f
4815 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4816 // OBSOLETE   int UNUSED written = 0;
4817 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4818 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
4819 // OBSOLETE
4820 // OBSOLETE   {
4821 // OBSOLETE     SI opval = EXTHISI (ANDHI (* FLD (i_Ri), 65535));
4822 // OBSOLETE     * FLD (i_Ri) = opval;
4823 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4824 // OBSOLETE   }
4825 // OBSOLETE
4826 // OBSOLETE   return vpc;
4827 // OBSOLETE #undef FLD
4828 // OBSOLETE }
4829 // OBSOLETE
4830 // OBSOLETE /* extuh: extuh $Ri */
4831 // OBSOLETE
4832 // OBSOLETE static SEM_PC
4833 // OBSOLETE SEM_FN_NAME (fr30bf,extuh) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4834 // OBSOLETE {
4835 // OBSOLETE #define FLD(f) abuf->fields.sfmt_add2.f
4836 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4837 // OBSOLETE   int UNUSED written = 0;
4838 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4839 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
4840 // OBSOLETE
4841 // OBSOLETE   {
4842 // OBSOLETE     SI opval = ZEXTHISI (ANDHI (* FLD (i_Ri), 65535));
4843 // OBSOLETE     * FLD (i_Ri) = opval;
4844 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4845 // OBSOLETE   }
4846 // OBSOLETE
4847 // OBSOLETE   return vpc;
4848 // OBSOLETE #undef FLD
4849 // OBSOLETE }
4850 // OBSOLETE
4851 // OBSOLETE /* ldm0: ldm0 ($reglist_low_ld) */
4852 // OBSOLETE
4853 // OBSOLETE static SEM_PC
4854 // OBSOLETE SEM_FN_NAME (fr30bf,ldm0) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
4855 // OBSOLETE {
4856 // OBSOLETE #define FLD(f) abuf->fields.sfmt_ldm0.f
4857 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
4858 // OBSOLETE   int UNUSED written = 0;
4859 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
4860 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
4861 // OBSOLETE
4862 // OBSOLETE {
4863 // OBSOLETE if (ANDSI (FLD (f_reglist_low_ld), 1)) {
4864 // OBSOLETE {
4865 // OBSOLETE   {
4866 // OBSOLETE     SI opval = GETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]));
4867 // OBSOLETE     CPU (h_gr[((UINT) 0)]) = opval;
4868 // OBSOLETE     written |= (1 << 3);
4869 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4870 // OBSOLETE   }
4871 // OBSOLETE   {
4872 // OBSOLETE     SI opval = ADDSI (CPU (h_gr[((UINT) 15)]), 4);
4873 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
4874 // OBSOLETE     written |= (1 << 5);
4875 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4876 // OBSOLETE   }
4877 // OBSOLETE }
4878 // OBSOLETE }
4879 // OBSOLETE if (ANDSI (FLD (f_reglist_low_ld), 2)) {
4880 // OBSOLETE {
4881 // OBSOLETE   {
4882 // OBSOLETE     SI opval = GETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]));
4883 // OBSOLETE     CPU (h_gr[((UINT) 1)]) = opval;
4884 // OBSOLETE     written |= (1 << 4);
4885 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4886 // OBSOLETE   }
4887 // OBSOLETE   {
4888 // OBSOLETE     SI opval = ADDSI (CPU (h_gr[((UINT) 15)]), 4);
4889 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
4890 // OBSOLETE     written |= (1 << 5);
4891 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4892 // OBSOLETE   }
4893 // OBSOLETE }
4894 // OBSOLETE }
4895 // OBSOLETE if (ANDSI (FLD (f_reglist_low_ld), 4)) {
4896 // OBSOLETE {
4897 // OBSOLETE   {
4898 // OBSOLETE     SI opval = GETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]));
4899 // OBSOLETE     CPU (h_gr[((UINT) 2)]) = opval;
4900 // OBSOLETE     written |= (1 << 6);
4901 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4902 // OBSOLETE   }
4903 // OBSOLETE   {
4904 // OBSOLETE     SI opval = ADDSI (CPU (h_gr[((UINT) 15)]), 4);
4905 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
4906 // OBSOLETE     written |= (1 << 5);
4907 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4908 // OBSOLETE   }
4909 // OBSOLETE }
4910 // OBSOLETE }
4911 // OBSOLETE if (ANDSI (FLD (f_reglist_low_ld), 8)) {
4912 // OBSOLETE {
4913 // OBSOLETE   {
4914 // OBSOLETE     SI opval = GETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]));
4915 // OBSOLETE     CPU (h_gr[((UINT) 3)]) = opval;
4916 // OBSOLETE     written |= (1 << 7);
4917 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4918 // OBSOLETE   }
4919 // OBSOLETE   {
4920 // OBSOLETE     SI opval = ADDSI (CPU (h_gr[((UINT) 15)]), 4);
4921 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
4922 // OBSOLETE     written |= (1 << 5);
4923 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4924 // OBSOLETE   }
4925 // OBSOLETE }
4926 // OBSOLETE }
4927 // OBSOLETE if (ANDSI (FLD (f_reglist_low_ld), 16)) {
4928 // OBSOLETE {
4929 // OBSOLETE   {
4930 // OBSOLETE     SI opval = GETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]));
4931 // OBSOLETE     CPU (h_gr[((UINT) 4)]) = opval;
4932 // OBSOLETE     written |= (1 << 8);
4933 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4934 // OBSOLETE   }
4935 // OBSOLETE   {
4936 // OBSOLETE     SI opval = ADDSI (CPU (h_gr[((UINT) 15)]), 4);
4937 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
4938 // OBSOLETE     written |= (1 << 5);
4939 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4940 // OBSOLETE   }
4941 // OBSOLETE }
4942 // OBSOLETE }
4943 // OBSOLETE if (ANDSI (FLD (f_reglist_low_ld), 32)) {
4944 // OBSOLETE {
4945 // OBSOLETE   {
4946 // OBSOLETE     SI opval = GETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]));
4947 // OBSOLETE     CPU (h_gr[((UINT) 5)]) = opval;
4948 // OBSOLETE     written |= (1 << 9);
4949 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4950 // OBSOLETE   }
4951 // OBSOLETE   {
4952 // OBSOLETE     SI opval = ADDSI (CPU (h_gr[((UINT) 15)]), 4);
4953 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
4954 // OBSOLETE     written |= (1 << 5);
4955 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4956 // OBSOLETE   }
4957 // OBSOLETE }
4958 // OBSOLETE }
4959 // OBSOLETE if (ANDSI (FLD (f_reglist_low_ld), 64)) {
4960 // OBSOLETE {
4961 // OBSOLETE   {
4962 // OBSOLETE     SI opval = GETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]));
4963 // OBSOLETE     CPU (h_gr[((UINT) 6)]) = opval;
4964 // OBSOLETE     written |= (1 << 10);
4965 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4966 // OBSOLETE   }
4967 // OBSOLETE   {
4968 // OBSOLETE     SI opval = ADDSI (CPU (h_gr[((UINT) 15)]), 4);
4969 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
4970 // OBSOLETE     written |= (1 << 5);
4971 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4972 // OBSOLETE   }
4973 // OBSOLETE }
4974 // OBSOLETE }
4975 // OBSOLETE if (ANDSI (FLD (f_reglist_low_ld), 128)) {
4976 // OBSOLETE {
4977 // OBSOLETE   {
4978 // OBSOLETE     SI opval = GETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]));
4979 // OBSOLETE     CPU (h_gr[((UINT) 7)]) = opval;
4980 // OBSOLETE     written |= (1 << 11);
4981 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4982 // OBSOLETE   }
4983 // OBSOLETE   {
4984 // OBSOLETE     SI opval = ADDSI (CPU (h_gr[((UINT) 15)]), 4);
4985 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
4986 // OBSOLETE     written |= (1 << 5);
4987 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
4988 // OBSOLETE   }
4989 // OBSOLETE }
4990 // OBSOLETE }
4991 // OBSOLETE }
4992 // OBSOLETE
4993 // OBSOLETE   abuf->written = written;
4994 // OBSOLETE   return vpc;
4995 // OBSOLETE #undef FLD
4996 // OBSOLETE }
4997 // OBSOLETE
4998 // OBSOLETE /* ldm1: ldm1 ($reglist_hi_ld) */
4999 // OBSOLETE
5000 // OBSOLETE static SEM_PC
5001 // OBSOLETE SEM_FN_NAME (fr30bf,ldm1) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
5002 // OBSOLETE {
5003 // OBSOLETE #define FLD(f) abuf->fields.sfmt_ldm1.f
5004 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
5005 // OBSOLETE   int UNUSED written = 0;
5006 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
5007 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
5008 // OBSOLETE
5009 // OBSOLETE {
5010 // OBSOLETE if (ANDSI (FLD (f_reglist_hi_ld), 1)) {
5011 // OBSOLETE {
5012 // OBSOLETE   {
5013 // OBSOLETE     SI opval = GETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]));
5014 // OBSOLETE     CPU (h_gr[((UINT) 8)]) = opval;
5015 // OBSOLETE     written |= (1 << 9);
5016 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5017 // OBSOLETE   }
5018 // OBSOLETE   {
5019 // OBSOLETE     SI opval = ADDSI (CPU (h_gr[((UINT) 15)]), 4);
5020 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
5021 // OBSOLETE     written |= (1 << 8);
5022 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5023 // OBSOLETE   }
5024 // OBSOLETE }
5025 // OBSOLETE }
5026 // OBSOLETE if (ANDSI (FLD (f_reglist_hi_ld), 2)) {
5027 // OBSOLETE {
5028 // OBSOLETE   {
5029 // OBSOLETE     SI opval = GETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]));
5030 // OBSOLETE     CPU (h_gr[((UINT) 9)]) = opval;
5031 // OBSOLETE     written |= (1 << 10);
5032 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5033 // OBSOLETE   }
5034 // OBSOLETE   {
5035 // OBSOLETE     SI opval = ADDSI (CPU (h_gr[((UINT) 15)]), 4);
5036 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
5037 // OBSOLETE     written |= (1 << 8);
5038 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5039 // OBSOLETE   }
5040 // OBSOLETE }
5041 // OBSOLETE }
5042 // OBSOLETE if (ANDSI (FLD (f_reglist_hi_ld), 4)) {
5043 // OBSOLETE {
5044 // OBSOLETE   {
5045 // OBSOLETE     SI opval = GETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]));
5046 // OBSOLETE     CPU (h_gr[((UINT) 10)]) = opval;
5047 // OBSOLETE     written |= (1 << 3);
5048 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5049 // OBSOLETE   }
5050 // OBSOLETE   {
5051 // OBSOLETE     SI opval = ADDSI (CPU (h_gr[((UINT) 15)]), 4);
5052 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
5053 // OBSOLETE     written |= (1 << 8);
5054 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5055 // OBSOLETE   }
5056 // OBSOLETE }
5057 // OBSOLETE }
5058 // OBSOLETE if (ANDSI (FLD (f_reglist_hi_ld), 8)) {
5059 // OBSOLETE {
5060 // OBSOLETE   {
5061 // OBSOLETE     SI opval = GETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]));
5062 // OBSOLETE     CPU (h_gr[((UINT) 11)]) = opval;
5063 // OBSOLETE     written |= (1 << 4);
5064 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5065 // OBSOLETE   }
5066 // OBSOLETE   {
5067 // OBSOLETE     SI opval = ADDSI (CPU (h_gr[((UINT) 15)]), 4);
5068 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
5069 // OBSOLETE     written |= (1 << 8);
5070 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5071 // OBSOLETE   }
5072 // OBSOLETE }
5073 // OBSOLETE }
5074 // OBSOLETE if (ANDSI (FLD (f_reglist_hi_ld), 16)) {
5075 // OBSOLETE {
5076 // OBSOLETE   {
5077 // OBSOLETE     SI opval = GETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]));
5078 // OBSOLETE     CPU (h_gr[((UINT) 12)]) = opval;
5079 // OBSOLETE     written |= (1 << 5);
5080 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5081 // OBSOLETE   }
5082 // OBSOLETE   {
5083 // OBSOLETE     SI opval = ADDSI (CPU (h_gr[((UINT) 15)]), 4);
5084 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
5085 // OBSOLETE     written |= (1 << 8);
5086 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5087 // OBSOLETE   }
5088 // OBSOLETE }
5089 // OBSOLETE }
5090 // OBSOLETE if (ANDSI (FLD (f_reglist_hi_ld), 32)) {
5091 // OBSOLETE {
5092 // OBSOLETE   {
5093 // OBSOLETE     SI opval = GETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]));
5094 // OBSOLETE     CPU (h_gr[((UINT) 13)]) = opval;
5095 // OBSOLETE     written |= (1 << 6);
5096 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5097 // OBSOLETE   }
5098 // OBSOLETE   {
5099 // OBSOLETE     SI opval = ADDSI (CPU (h_gr[((UINT) 15)]), 4);
5100 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
5101 // OBSOLETE     written |= (1 << 8);
5102 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5103 // OBSOLETE   }
5104 // OBSOLETE }
5105 // OBSOLETE }
5106 // OBSOLETE if (ANDSI (FLD (f_reglist_hi_ld), 64)) {
5107 // OBSOLETE {
5108 // OBSOLETE   {
5109 // OBSOLETE     SI opval = GETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]));
5110 // OBSOLETE     CPU (h_gr[((UINT) 14)]) = opval;
5111 // OBSOLETE     written |= (1 << 7);
5112 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5113 // OBSOLETE   }
5114 // OBSOLETE   {
5115 // OBSOLETE     SI opval = ADDSI (CPU (h_gr[((UINT) 15)]), 4);
5116 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
5117 // OBSOLETE     written |= (1 << 8);
5118 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5119 // OBSOLETE   }
5120 // OBSOLETE }
5121 // OBSOLETE }
5122 // OBSOLETE if (ANDSI (FLD (f_reglist_hi_ld), 128)) {
5123 // OBSOLETE   {
5124 // OBSOLETE     SI opval = GETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]));
5125 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
5126 // OBSOLETE     written |= (1 << 8);
5127 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5128 // OBSOLETE   }
5129 // OBSOLETE }
5130 // OBSOLETE }
5131 // OBSOLETE
5132 // OBSOLETE   abuf->written = written;
5133 // OBSOLETE   return vpc;
5134 // OBSOLETE #undef FLD
5135 // OBSOLETE }
5136 // OBSOLETE
5137 // OBSOLETE /* stm0: stm0 ($reglist_low_st) */
5138 // OBSOLETE
5139 // OBSOLETE static SEM_PC
5140 // OBSOLETE SEM_FN_NAME (fr30bf,stm0) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
5141 // OBSOLETE {
5142 // OBSOLETE #define FLD(f) abuf->fields.sfmt_stm0.f
5143 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
5144 // OBSOLETE   int UNUSED written = 0;
5145 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
5146 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
5147 // OBSOLETE
5148 // OBSOLETE {
5149 // OBSOLETE if (ANDSI (FLD (f_reglist_low_st), 1)) {
5150 // OBSOLETE {
5151 // OBSOLETE   {
5152 // OBSOLETE     SI opval = SUBSI (CPU (h_gr[((UINT) 15)]), 4);
5153 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
5154 // OBSOLETE     written |= (1 << 10);
5155 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5156 // OBSOLETE   }
5157 // OBSOLETE   {
5158 // OBSOLETE     SI opval = CPU (h_gr[((UINT) 7)]);
5159 // OBSOLETE     SETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]), opval);
5160 // OBSOLETE     written |= (1 << 11);
5161 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
5162 // OBSOLETE   }
5163 // OBSOLETE }
5164 // OBSOLETE }
5165 // OBSOLETE if (ANDSI (FLD (f_reglist_low_st), 2)) {
5166 // OBSOLETE {
5167 // OBSOLETE   {
5168 // OBSOLETE     SI opval = SUBSI (CPU (h_gr[((UINT) 15)]), 4);
5169 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
5170 // OBSOLETE     written |= (1 << 10);
5171 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5172 // OBSOLETE   }
5173 // OBSOLETE   {
5174 // OBSOLETE     SI opval = CPU (h_gr[((UINT) 6)]);
5175 // OBSOLETE     SETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]), opval);
5176 // OBSOLETE     written |= (1 << 11);
5177 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
5178 // OBSOLETE   }
5179 // OBSOLETE }
5180 // OBSOLETE }
5181 // OBSOLETE if (ANDSI (FLD (f_reglist_low_st), 4)) {
5182 // OBSOLETE {
5183 // OBSOLETE   {
5184 // OBSOLETE     SI opval = SUBSI (CPU (h_gr[((UINT) 15)]), 4);
5185 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
5186 // OBSOLETE     written |= (1 << 10);
5187 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5188 // OBSOLETE   }
5189 // OBSOLETE   {
5190 // OBSOLETE     SI opval = CPU (h_gr[((UINT) 5)]);
5191 // OBSOLETE     SETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]), opval);
5192 // OBSOLETE     written |= (1 << 11);
5193 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
5194 // OBSOLETE   }
5195 // OBSOLETE }
5196 // OBSOLETE }
5197 // OBSOLETE if (ANDSI (FLD (f_reglist_low_st), 8)) {
5198 // OBSOLETE {
5199 // OBSOLETE   {
5200 // OBSOLETE     SI opval = SUBSI (CPU (h_gr[((UINT) 15)]), 4);
5201 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
5202 // OBSOLETE     written |= (1 << 10);
5203 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5204 // OBSOLETE   }
5205 // OBSOLETE   {
5206 // OBSOLETE     SI opval = CPU (h_gr[((UINT) 4)]);
5207 // OBSOLETE     SETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]), opval);
5208 // OBSOLETE     written |= (1 << 11);
5209 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
5210 // OBSOLETE   }
5211 // OBSOLETE }
5212 // OBSOLETE }
5213 // OBSOLETE if (ANDSI (FLD (f_reglist_low_st), 16)) {
5214 // OBSOLETE {
5215 // OBSOLETE   {
5216 // OBSOLETE     SI opval = SUBSI (CPU (h_gr[((UINT) 15)]), 4);
5217 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
5218 // OBSOLETE     written |= (1 << 10);
5219 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5220 // OBSOLETE   }
5221 // OBSOLETE   {
5222 // OBSOLETE     SI opval = CPU (h_gr[((UINT) 3)]);
5223 // OBSOLETE     SETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]), opval);
5224 // OBSOLETE     written |= (1 << 11);
5225 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
5226 // OBSOLETE   }
5227 // OBSOLETE }
5228 // OBSOLETE }
5229 // OBSOLETE if (ANDSI (FLD (f_reglist_low_st), 32)) {
5230 // OBSOLETE {
5231 // OBSOLETE   {
5232 // OBSOLETE     SI opval = SUBSI (CPU (h_gr[((UINT) 15)]), 4);
5233 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
5234 // OBSOLETE     written |= (1 << 10);
5235 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5236 // OBSOLETE   }
5237 // OBSOLETE   {
5238 // OBSOLETE     SI opval = CPU (h_gr[((UINT) 2)]);
5239 // OBSOLETE     SETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]), opval);
5240 // OBSOLETE     written |= (1 << 11);
5241 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
5242 // OBSOLETE   }
5243 // OBSOLETE }
5244 // OBSOLETE }
5245 // OBSOLETE if (ANDSI (FLD (f_reglist_low_st), 64)) {
5246 // OBSOLETE {
5247 // OBSOLETE   {
5248 // OBSOLETE     SI opval = SUBSI (CPU (h_gr[((UINT) 15)]), 4);
5249 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
5250 // OBSOLETE     written |= (1 << 10);
5251 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5252 // OBSOLETE   }
5253 // OBSOLETE   {
5254 // OBSOLETE     SI opval = CPU (h_gr[((UINT) 1)]);
5255 // OBSOLETE     SETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]), opval);
5256 // OBSOLETE     written |= (1 << 11);
5257 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
5258 // OBSOLETE   }
5259 // OBSOLETE }
5260 // OBSOLETE }
5261 // OBSOLETE if (ANDSI (FLD (f_reglist_low_st), 128)) {
5262 // OBSOLETE {
5263 // OBSOLETE   {
5264 // OBSOLETE     SI opval = SUBSI (CPU (h_gr[((UINT) 15)]), 4);
5265 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
5266 // OBSOLETE     written |= (1 << 10);
5267 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5268 // OBSOLETE   }
5269 // OBSOLETE   {
5270 // OBSOLETE     SI opval = CPU (h_gr[((UINT) 0)]);
5271 // OBSOLETE     SETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]), opval);
5272 // OBSOLETE     written |= (1 << 11);
5273 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
5274 // OBSOLETE   }
5275 // OBSOLETE }
5276 // OBSOLETE }
5277 // OBSOLETE }
5278 // OBSOLETE
5279 // OBSOLETE   abuf->written = written;
5280 // OBSOLETE   return vpc;
5281 // OBSOLETE #undef FLD
5282 // OBSOLETE }
5283 // OBSOLETE
5284 // OBSOLETE /* stm1: stm1 ($reglist_hi_st) */
5285 // OBSOLETE
5286 // OBSOLETE static SEM_PC
5287 // OBSOLETE SEM_FN_NAME (fr30bf,stm1) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
5288 // OBSOLETE {
5289 // OBSOLETE #define FLD(f) abuf->fields.sfmt_stm1.f
5290 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
5291 // OBSOLETE   int UNUSED written = 0;
5292 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
5293 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
5294 // OBSOLETE
5295 // OBSOLETE {
5296 // OBSOLETE if (ANDSI (FLD (f_reglist_hi_st), 1)) {
5297 // OBSOLETE {
5298 // OBSOLETE   SI tmp_save_r15;
5299 // OBSOLETE   tmp_save_r15 = CPU (h_gr[((UINT) 15)]);
5300 // OBSOLETE   {
5301 // OBSOLETE     SI opval = SUBSI (CPU (h_gr[((UINT) 15)]), 4);
5302 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
5303 // OBSOLETE     written |= (1 << 9);
5304 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5305 // OBSOLETE   }
5306 // OBSOLETE   {
5307 // OBSOLETE     SI opval = tmp_save_r15;
5308 // OBSOLETE     SETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]), opval);
5309 // OBSOLETE     written |= (1 << 10);
5310 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
5311 // OBSOLETE   }
5312 // OBSOLETE }
5313 // OBSOLETE }
5314 // OBSOLETE if (ANDSI (FLD (f_reglist_hi_st), 2)) {
5315 // OBSOLETE {
5316 // OBSOLETE   {
5317 // OBSOLETE     SI opval = SUBSI (CPU (h_gr[((UINT) 15)]), 4);
5318 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
5319 // OBSOLETE     written |= (1 << 9);
5320 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5321 // OBSOLETE   }
5322 // OBSOLETE   {
5323 // OBSOLETE     SI opval = CPU (h_gr[((UINT) 14)]);
5324 // OBSOLETE     SETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]), opval);
5325 // OBSOLETE     written |= (1 << 10);
5326 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
5327 // OBSOLETE   }
5328 // OBSOLETE }
5329 // OBSOLETE }
5330 // OBSOLETE if (ANDSI (FLD (f_reglist_hi_st), 4)) {
5331 // OBSOLETE {
5332 // OBSOLETE   {
5333 // OBSOLETE     SI opval = SUBSI (CPU (h_gr[((UINT) 15)]), 4);
5334 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
5335 // OBSOLETE     written |= (1 << 9);
5336 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5337 // OBSOLETE   }
5338 // OBSOLETE   {
5339 // OBSOLETE     SI opval = CPU (h_gr[((UINT) 13)]);
5340 // OBSOLETE     SETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]), opval);
5341 // OBSOLETE     written |= (1 << 10);
5342 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
5343 // OBSOLETE   }
5344 // OBSOLETE }
5345 // OBSOLETE }
5346 // OBSOLETE if (ANDSI (FLD (f_reglist_hi_st), 8)) {
5347 // OBSOLETE {
5348 // OBSOLETE   {
5349 // OBSOLETE     SI opval = SUBSI (CPU (h_gr[((UINT) 15)]), 4);
5350 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
5351 // OBSOLETE     written |= (1 << 9);
5352 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5353 // OBSOLETE   }
5354 // OBSOLETE   {
5355 // OBSOLETE     SI opval = CPU (h_gr[((UINT) 12)]);
5356 // OBSOLETE     SETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]), opval);
5357 // OBSOLETE     written |= (1 << 10);
5358 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
5359 // OBSOLETE   }
5360 // OBSOLETE }
5361 // OBSOLETE }
5362 // OBSOLETE if (ANDSI (FLD (f_reglist_hi_st), 16)) {
5363 // OBSOLETE {
5364 // OBSOLETE   {
5365 // OBSOLETE     SI opval = SUBSI (CPU (h_gr[((UINT) 15)]), 4);
5366 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
5367 // OBSOLETE     written |= (1 << 9);
5368 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5369 // OBSOLETE   }
5370 // OBSOLETE   {
5371 // OBSOLETE     SI opval = CPU (h_gr[((UINT) 11)]);
5372 // OBSOLETE     SETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]), opval);
5373 // OBSOLETE     written |= (1 << 10);
5374 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
5375 // OBSOLETE   }
5376 // OBSOLETE }
5377 // OBSOLETE }
5378 // OBSOLETE if (ANDSI (FLD (f_reglist_hi_st), 32)) {
5379 // OBSOLETE {
5380 // OBSOLETE   {
5381 // OBSOLETE     SI opval = SUBSI (CPU (h_gr[((UINT) 15)]), 4);
5382 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
5383 // OBSOLETE     written |= (1 << 9);
5384 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5385 // OBSOLETE   }
5386 // OBSOLETE   {
5387 // OBSOLETE     SI opval = CPU (h_gr[((UINT) 10)]);
5388 // OBSOLETE     SETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]), opval);
5389 // OBSOLETE     written |= (1 << 10);
5390 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
5391 // OBSOLETE   }
5392 // OBSOLETE }
5393 // OBSOLETE }
5394 // OBSOLETE if (ANDSI (FLD (f_reglist_hi_st), 64)) {
5395 // OBSOLETE {
5396 // OBSOLETE   {
5397 // OBSOLETE     SI opval = SUBSI (CPU (h_gr[((UINT) 15)]), 4);
5398 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
5399 // OBSOLETE     written |= (1 << 9);
5400 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5401 // OBSOLETE   }
5402 // OBSOLETE   {
5403 // OBSOLETE     SI opval = CPU (h_gr[((UINT) 9)]);
5404 // OBSOLETE     SETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]), opval);
5405 // OBSOLETE     written |= (1 << 10);
5406 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
5407 // OBSOLETE   }
5408 // OBSOLETE }
5409 // OBSOLETE }
5410 // OBSOLETE if (ANDSI (FLD (f_reglist_hi_st), 128)) {
5411 // OBSOLETE {
5412 // OBSOLETE   {
5413 // OBSOLETE     SI opval = SUBSI (CPU (h_gr[((UINT) 15)]), 4);
5414 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
5415 // OBSOLETE     written |= (1 << 9);
5416 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5417 // OBSOLETE   }
5418 // OBSOLETE   {
5419 // OBSOLETE     SI opval = CPU (h_gr[((UINT) 8)]);
5420 // OBSOLETE     SETMEMSI (current_cpu, pc, CPU (h_gr[((UINT) 15)]), opval);
5421 // OBSOLETE     written |= (1 << 10);
5422 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
5423 // OBSOLETE   }
5424 // OBSOLETE }
5425 // OBSOLETE }
5426 // OBSOLETE }
5427 // OBSOLETE
5428 // OBSOLETE   abuf->written = written;
5429 // OBSOLETE   return vpc;
5430 // OBSOLETE #undef FLD
5431 // OBSOLETE }
5432 // OBSOLETE
5433 // OBSOLETE /* enter: enter $u10 */
5434 // OBSOLETE
5435 // OBSOLETE static SEM_PC
5436 // OBSOLETE SEM_FN_NAME (fr30bf,enter) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
5437 // OBSOLETE {
5438 // OBSOLETE #define FLD(f) abuf->fields.sfmt_enter.f
5439 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
5440 // OBSOLETE   int UNUSED written = 0;
5441 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
5442 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
5443 // OBSOLETE
5444 // OBSOLETE {
5445 // OBSOLETE   SI tmp_tmp;
5446 // OBSOLETE   tmp_tmp = SUBSI (CPU (h_gr[((UINT) 15)]), 4);
5447 // OBSOLETE   {
5448 // OBSOLETE     SI opval = CPU (h_gr[((UINT) 14)]);
5449 // OBSOLETE     SETMEMSI (current_cpu, pc, tmp_tmp, opval);
5450 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
5451 // OBSOLETE   }
5452 // OBSOLETE   {
5453 // OBSOLETE     SI opval = tmp_tmp;
5454 // OBSOLETE     CPU (h_gr[((UINT) 14)]) = opval;
5455 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5456 // OBSOLETE   }
5457 // OBSOLETE   {
5458 // OBSOLETE     SI opval = SUBSI (CPU (h_gr[((UINT) 15)]), FLD (f_u10));
5459 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
5460 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5461 // OBSOLETE   }
5462 // OBSOLETE }
5463 // OBSOLETE
5464 // OBSOLETE   return vpc;
5465 // OBSOLETE #undef FLD
5466 // OBSOLETE }
5467 // OBSOLETE
5468 // OBSOLETE /* leave: leave */
5469 // OBSOLETE
5470 // OBSOLETE static SEM_PC
5471 // OBSOLETE SEM_FN_NAME (fr30bf,leave) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
5472 // OBSOLETE {
5473 // OBSOLETE #define FLD(f) abuf->fields.sfmt_enter.f
5474 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
5475 // OBSOLETE   int UNUSED written = 0;
5476 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
5477 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
5478 // OBSOLETE
5479 // OBSOLETE {
5480 // OBSOLETE   {
5481 // OBSOLETE     SI opval = ADDSI (CPU (h_gr[((UINT) 14)]), 4);
5482 // OBSOLETE     CPU (h_gr[((UINT) 15)]) = opval;
5483 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5484 // OBSOLETE   }
5485 // OBSOLETE   {
5486 // OBSOLETE     SI opval = GETMEMSI (current_cpu, pc, SUBSI (CPU (h_gr[((UINT) 15)]), 4));
5487 // OBSOLETE     CPU (h_gr[((UINT) 14)]) = opval;
5488 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5489 // OBSOLETE   }
5490 // OBSOLETE }
5491 // OBSOLETE
5492 // OBSOLETE   return vpc;
5493 // OBSOLETE #undef FLD
5494 // OBSOLETE }
5495 // OBSOLETE
5496 // OBSOLETE /* xchb: xchb @$Rj,$Ri */
5497 // OBSOLETE
5498 // OBSOLETE static SEM_PC
5499 // OBSOLETE SEM_FN_NAME (fr30bf,xchb) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
5500 // OBSOLETE {
5501 // OBSOLETE #define FLD(f) abuf->fields.sfmt_add.f
5502 // OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
5503 // OBSOLETE   int UNUSED written = 0;
5504 // OBSOLETE   IADDR UNUSED pc = abuf->addr;
5505 // OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
5506 // OBSOLETE
5507 // OBSOLETE {
5508 // OBSOLETE   SI tmp_tmp;
5509 // OBSOLETE   tmp_tmp = * FLD (i_Ri);
5510 // OBSOLETE   {
5511 // OBSOLETE     SI opval = GETMEMUQI (current_cpu, pc, * FLD (i_Rj));
5512 // OBSOLETE     * FLD (i_Ri) = opval;
5513 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
5514 // OBSOLETE   }
5515 // OBSOLETE   {
5516 // OBSOLETE     UQI opval = tmp_tmp;
5517 // OBSOLETE     SETMEMUQI (current_cpu, pc, * FLD (i_Rj), opval);
5518 // OBSOLETE     TRACE_RESULT (current_cpu, abuf, "memory", 'x', opval);
5519 // OBSOLETE   }
5520 // OBSOLETE }
5521 // OBSOLETE
5522 // OBSOLETE   return vpc;
5523 // OBSOLETE #undef FLD
5524 // OBSOLETE }
5525 // OBSOLETE
5526 // OBSOLETE /* Table of all semantic fns.  */
5527 // OBSOLETE
5528 // OBSOLETE static const struct sem_fn_desc sem_fns[] = {
5529 // OBSOLETE   { FR30BF_INSN_X_INVALID, SEM_FN_NAME (fr30bf,x_invalid) },
5530 // OBSOLETE   { FR30BF_INSN_X_AFTER, SEM_FN_NAME (fr30bf,x_after) },
5531 // OBSOLETE   { FR30BF_INSN_X_BEFORE, SEM_FN_NAME (fr30bf,x_before) },
5532 // OBSOLETE   { FR30BF_INSN_X_CTI_CHAIN, SEM_FN_NAME (fr30bf,x_cti_chain) },
5533 // OBSOLETE   { FR30BF_INSN_X_CHAIN, SEM_FN_NAME (fr30bf,x_chain) },
5534 // OBSOLETE   { FR30BF_INSN_X_BEGIN, SEM_FN_NAME (fr30bf,x_begin) },
5535 // OBSOLETE   { FR30BF_INSN_ADD, SEM_FN_NAME (fr30bf,add) },
5536 // OBSOLETE   { FR30BF_INSN_ADDI, SEM_FN_NAME (fr30bf,addi) },
5537 // OBSOLETE   { FR30BF_INSN_ADD2, SEM_FN_NAME (fr30bf,add2) },
5538 // OBSOLETE   { FR30BF_INSN_ADDC, SEM_FN_NAME (fr30bf,addc) },
5539 // OBSOLETE   { FR30BF_INSN_ADDN, SEM_FN_NAME (fr30bf,addn) },
5540 // OBSOLETE   { FR30BF_INSN_ADDNI, SEM_FN_NAME (fr30bf,addni) },
5541 // OBSOLETE   { FR30BF_INSN_ADDN2, SEM_FN_NAME (fr30bf,addn2) },
5542 // OBSOLETE   { FR30BF_INSN_SUB, SEM_FN_NAME (fr30bf,sub) },
5543 // OBSOLETE   { FR30BF_INSN_SUBC, SEM_FN_NAME (fr30bf,subc) },
5544 // OBSOLETE   { FR30BF_INSN_SUBN, SEM_FN_NAME (fr30bf,subn) },
5545 // OBSOLETE   { FR30BF_INSN_CMP, SEM_FN_NAME (fr30bf,cmp) },
5546 // OBSOLETE   { FR30BF_INSN_CMPI, SEM_FN_NAME (fr30bf,cmpi) },
5547 // OBSOLETE   { FR30BF_INSN_CMP2, SEM_FN_NAME (fr30bf,cmp2) },
5548 // OBSOLETE   { FR30BF_INSN_AND, SEM_FN_NAME (fr30bf,and) },
5549 // OBSOLETE   { FR30BF_INSN_OR, SEM_FN_NAME (fr30bf,or) },
5550 // OBSOLETE   { FR30BF_INSN_EOR, SEM_FN_NAME (fr30bf,eor) },
5551 // OBSOLETE   { FR30BF_INSN_ANDM, SEM_FN_NAME (fr30bf,andm) },
5552 // OBSOLETE   { FR30BF_INSN_ANDH, SEM_FN_NAME (fr30bf,andh) },
5553 // OBSOLETE   { FR30BF_INSN_ANDB, SEM_FN_NAME (fr30bf,andb) },
5554 // OBSOLETE   { FR30BF_INSN_ORM, SEM_FN_NAME (fr30bf,orm) },
5555 // OBSOLETE   { FR30BF_INSN_ORH, SEM_FN_NAME (fr30bf,orh) },
5556 // OBSOLETE   { FR30BF_INSN_ORB, SEM_FN_NAME (fr30bf,orb) },
5557 // OBSOLETE   { FR30BF_INSN_EORM, SEM_FN_NAME (fr30bf,eorm) },
5558 // OBSOLETE   { FR30BF_INSN_EORH, SEM_FN_NAME (fr30bf,eorh) },
5559 // OBSOLETE   { FR30BF_INSN_EORB, SEM_FN_NAME (fr30bf,eorb) },
5560 // OBSOLETE   { FR30BF_INSN_BANDL, SEM_FN_NAME (fr30bf,bandl) },
5561 // OBSOLETE   { FR30BF_INSN_BORL, SEM_FN_NAME (fr30bf,borl) },
5562 // OBSOLETE   { FR30BF_INSN_BEORL, SEM_FN_NAME (fr30bf,beorl) },
5563 // OBSOLETE   { FR30BF_INSN_BANDH, SEM_FN_NAME (fr30bf,bandh) },
5564 // OBSOLETE   { FR30BF_INSN_BORH, SEM_FN_NAME (fr30bf,borh) },
5565 // OBSOLETE   { FR30BF_INSN_BEORH, SEM_FN_NAME (fr30bf,beorh) },
5566 // OBSOLETE   { FR30BF_INSN_BTSTL, SEM_FN_NAME (fr30bf,btstl) },
5567 // OBSOLETE   { FR30BF_INSN_BTSTH, SEM_FN_NAME (fr30bf,btsth) },
5568 // OBSOLETE   { FR30BF_INSN_MUL, SEM_FN_NAME (fr30bf,mul) },
5569 // OBSOLETE   { FR30BF_INSN_MULU, SEM_FN_NAME (fr30bf,mulu) },
5570 // OBSOLETE   { FR30BF_INSN_MULH, SEM_FN_NAME (fr30bf,mulh) },
5571 // OBSOLETE   { FR30BF_INSN_MULUH, SEM_FN_NAME (fr30bf,muluh) },
5572 // OBSOLETE   { FR30BF_INSN_DIV0S, SEM_FN_NAME (fr30bf,div0s) },
5573 // OBSOLETE   { FR30BF_INSN_DIV0U, SEM_FN_NAME (fr30bf,div0u) },
5574 // OBSOLETE   { FR30BF_INSN_DIV1, SEM_FN_NAME (fr30bf,div1) },
5575 // OBSOLETE   { FR30BF_INSN_DIV2, SEM_FN_NAME (fr30bf,div2) },
5576 // OBSOLETE   { FR30BF_INSN_DIV3, SEM_FN_NAME (fr30bf,div3) },
5577 // OBSOLETE   { FR30BF_INSN_DIV4S, SEM_FN_NAME (fr30bf,div4s) },
5578 // OBSOLETE   { FR30BF_INSN_LSL, SEM_FN_NAME (fr30bf,lsl) },
5579 // OBSOLETE   { FR30BF_INSN_LSLI, SEM_FN_NAME (fr30bf,lsli) },
5580 // OBSOLETE   { FR30BF_INSN_LSL2, SEM_FN_NAME (fr30bf,lsl2) },
5581 // OBSOLETE   { FR30BF_INSN_LSR, SEM_FN_NAME (fr30bf,lsr) },
5582 // OBSOLETE   { FR30BF_INSN_LSRI, SEM_FN_NAME (fr30bf,lsri) },
5583 // OBSOLETE   { FR30BF_INSN_LSR2, SEM_FN_NAME (fr30bf,lsr2) },
5584 // OBSOLETE   { FR30BF_INSN_ASR, SEM_FN_NAME (fr30bf,asr) },
5585 // OBSOLETE   { FR30BF_INSN_ASRI, SEM_FN_NAME (fr30bf,asri) },
5586 // OBSOLETE   { FR30BF_INSN_ASR2, SEM_FN_NAME (fr30bf,asr2) },
5587 // OBSOLETE   { FR30BF_INSN_LDI8, SEM_FN_NAME (fr30bf,ldi8) },
5588 // OBSOLETE   { FR30BF_INSN_LDI20, SEM_FN_NAME (fr30bf,ldi20) },
5589 // OBSOLETE   { FR30BF_INSN_LDI32, SEM_FN_NAME (fr30bf,ldi32) },
5590 // OBSOLETE   { FR30BF_INSN_LD, SEM_FN_NAME (fr30bf,ld) },
5591 // OBSOLETE   { FR30BF_INSN_LDUH, SEM_FN_NAME (fr30bf,lduh) },
5592 // OBSOLETE   { FR30BF_INSN_LDUB, SEM_FN_NAME (fr30bf,ldub) },
5593 // OBSOLETE   { FR30BF_INSN_LDR13, SEM_FN_NAME (fr30bf,ldr13) },
5594 // OBSOLETE   { FR30BF_INSN_LDR13UH, SEM_FN_NAME (fr30bf,ldr13uh) },
5595 // OBSOLETE   { FR30BF_INSN_LDR13UB, SEM_FN_NAME (fr30bf,ldr13ub) },
5596 // OBSOLETE   { FR30BF_INSN_LDR14, SEM_FN_NAME (fr30bf,ldr14) },
5597 // OBSOLETE   { FR30BF_INSN_LDR14UH, SEM_FN_NAME (fr30bf,ldr14uh) },
5598 // OBSOLETE   { FR30BF_INSN_LDR14UB, SEM_FN_NAME (fr30bf,ldr14ub) },
5599 // OBSOLETE   { FR30BF_INSN_LDR15, SEM_FN_NAME (fr30bf,ldr15) },
5600 // OBSOLETE   { FR30BF_INSN_LDR15GR, SEM_FN_NAME (fr30bf,ldr15gr) },
5601 // OBSOLETE   { FR30BF_INSN_LDR15DR, SEM_FN_NAME (fr30bf,ldr15dr) },
5602 // OBSOLETE   { FR30BF_INSN_LDR15PS, SEM_FN_NAME (fr30bf,ldr15ps) },
5603 // OBSOLETE   { FR30BF_INSN_ST, SEM_FN_NAME (fr30bf,st) },
5604 // OBSOLETE   { FR30BF_INSN_STH, SEM_FN_NAME (fr30bf,sth) },
5605 // OBSOLETE   { FR30BF_INSN_STB, SEM_FN_NAME (fr30bf,stb) },
5606 // OBSOLETE   { FR30BF_INSN_STR13, SEM_FN_NAME (fr30bf,str13) },
5607 // OBSOLETE   { FR30BF_INSN_STR13H, SEM_FN_NAME (fr30bf,str13h) },
5608 // OBSOLETE   { FR30BF_INSN_STR13B, SEM_FN_NAME (fr30bf,str13b) },
5609 // OBSOLETE   { FR30BF_INSN_STR14, SEM_FN_NAME (fr30bf,str14) },
5610 // OBSOLETE   { FR30BF_INSN_STR14H, SEM_FN_NAME (fr30bf,str14h) },
5611 // OBSOLETE   { FR30BF_INSN_STR14B, SEM_FN_NAME (fr30bf,str14b) },
5612 // OBSOLETE   { FR30BF_INSN_STR15, SEM_FN_NAME (fr30bf,str15) },
5613 // OBSOLETE   { FR30BF_INSN_STR15GR, SEM_FN_NAME (fr30bf,str15gr) },
5614 // OBSOLETE   { FR30BF_INSN_STR15DR, SEM_FN_NAME (fr30bf,str15dr) },
5615 // OBSOLETE   { FR30BF_INSN_STR15PS, SEM_FN_NAME (fr30bf,str15ps) },
5616 // OBSOLETE   { FR30BF_INSN_MOV, SEM_FN_NAME (fr30bf,mov) },
5617 // OBSOLETE   { FR30BF_INSN_MOVDR, SEM_FN_NAME (fr30bf,movdr) },
5618 // OBSOLETE   { FR30BF_INSN_MOVPS, SEM_FN_NAME (fr30bf,movps) },
5619 // OBSOLETE   { FR30BF_INSN_MOV2DR, SEM_FN_NAME (fr30bf,mov2dr) },
5620 // OBSOLETE   { FR30BF_INSN_MOV2PS, SEM_FN_NAME (fr30bf,mov2ps) },
5621 // OBSOLETE   { FR30BF_INSN_JMP, SEM_FN_NAME (fr30bf,jmp) },
5622 // OBSOLETE   { FR30BF_INSN_JMPD, SEM_FN_NAME (fr30bf,jmpd) },
5623 // OBSOLETE   { FR30BF_INSN_CALLR, SEM_FN_NAME (fr30bf,callr) },
5624 // OBSOLETE   { FR30BF_INSN_CALLRD, SEM_FN_NAME (fr30bf,callrd) },
5625 // OBSOLETE   { FR30BF_INSN_CALL, SEM_FN_NAME (fr30bf,call) },
5626 // OBSOLETE   { FR30BF_INSN_CALLD, SEM_FN_NAME (fr30bf,calld) },
5627 // OBSOLETE   { FR30BF_INSN_RET, SEM_FN_NAME (fr30bf,ret) },
5628 // OBSOLETE   { FR30BF_INSN_RET_D, SEM_FN_NAME (fr30bf,ret_d) },
5629 // OBSOLETE   { FR30BF_INSN_INT, SEM_FN_NAME (fr30bf,int) },
5630 // OBSOLETE   { FR30BF_INSN_INTE, SEM_FN_NAME (fr30bf,inte) },
5631 // OBSOLETE   { FR30BF_INSN_RETI, SEM_FN_NAME (fr30bf,reti) },
5632 // OBSOLETE   { FR30BF_INSN_BRAD, SEM_FN_NAME (fr30bf,brad) },
5633 // OBSOLETE   { FR30BF_INSN_BRA, SEM_FN_NAME (fr30bf,bra) },
5634 // OBSOLETE   { FR30BF_INSN_BNOD, SEM_FN_NAME (fr30bf,bnod) },
5635 // OBSOLETE   { FR30BF_INSN_BNO, SEM_FN_NAME (fr30bf,bno) },
5636 // OBSOLETE   { FR30BF_INSN_BEQD, SEM_FN_NAME (fr30bf,beqd) },
5637 // OBSOLETE   { FR30BF_INSN_BEQ, SEM_FN_NAME (fr30bf,beq) },
5638 // OBSOLETE   { FR30BF_INSN_BNED, SEM_FN_NAME (fr30bf,bned) },
5639 // OBSOLETE   { FR30BF_INSN_BNE, SEM_FN_NAME (fr30bf,bne) },
5640 // OBSOLETE   { FR30BF_INSN_BCD, SEM_FN_NAME (fr30bf,bcd) },
5641 // OBSOLETE   { FR30BF_INSN_BC, SEM_FN_NAME (fr30bf,bc) },
5642 // OBSOLETE   { FR30BF_INSN_BNCD, SEM_FN_NAME (fr30bf,bncd) },
5643 // OBSOLETE   { FR30BF_INSN_BNC, SEM_FN_NAME (fr30bf,bnc) },
5644 // OBSOLETE   { FR30BF_INSN_BND, SEM_FN_NAME (fr30bf,bnd) },
5645 // OBSOLETE   { FR30BF_INSN_BN, SEM_FN_NAME (fr30bf,bn) },
5646 // OBSOLETE   { FR30BF_INSN_BPD, SEM_FN_NAME (fr30bf,bpd) },
5647 // OBSOLETE   { FR30BF_INSN_BP, SEM_FN_NAME (fr30bf,bp) },
5648 // OBSOLETE   { FR30BF_INSN_BVD, SEM_FN_NAME (fr30bf,bvd) },
5649 // OBSOLETE   { FR30BF_INSN_BV, SEM_FN_NAME (fr30bf,bv) },
5650 // OBSOLETE   { FR30BF_INSN_BNVD, SEM_FN_NAME (fr30bf,bnvd) },
5651 // OBSOLETE   { FR30BF_INSN_BNV, SEM_FN_NAME (fr30bf,bnv) },
5652 // OBSOLETE   { FR30BF_INSN_BLTD, SEM_FN_NAME (fr30bf,bltd) },
5653 // OBSOLETE   { FR30BF_INSN_BLT, SEM_FN_NAME (fr30bf,blt) },
5654 // OBSOLETE   { FR30BF_INSN_BGED, SEM_FN_NAME (fr30bf,bged) },
5655 // OBSOLETE   { FR30BF_INSN_BGE, SEM_FN_NAME (fr30bf,bge) },
5656 // OBSOLETE   { FR30BF_INSN_BLED, SEM_FN_NAME (fr30bf,bled) },
5657 // OBSOLETE   { FR30BF_INSN_BLE, SEM_FN_NAME (fr30bf,ble) },
5658 // OBSOLETE   { FR30BF_INSN_BGTD, SEM_FN_NAME (fr30bf,bgtd) },
5659 // OBSOLETE   { FR30BF_INSN_BGT, SEM_FN_NAME (fr30bf,bgt) },
5660 // OBSOLETE   { FR30BF_INSN_BLSD, SEM_FN_NAME (fr30bf,blsd) },
5661 // OBSOLETE   { FR30BF_INSN_BLS, SEM_FN_NAME (fr30bf,bls) },
5662 // OBSOLETE   { FR30BF_INSN_BHID, SEM_FN_NAME (fr30bf,bhid) },
5663 // OBSOLETE   { FR30BF_INSN_BHI, SEM_FN_NAME (fr30bf,bhi) },
5664 // OBSOLETE   { FR30BF_INSN_DMOVR13, SEM_FN_NAME (fr30bf,dmovr13) },
5665 // OBSOLETE   { FR30BF_INSN_DMOVR13H, SEM_FN_NAME (fr30bf,dmovr13h) },
5666 // OBSOLETE   { FR30BF_INSN_DMOVR13B, SEM_FN_NAME (fr30bf,dmovr13b) },
5667 // OBSOLETE   { FR30BF_INSN_DMOVR13PI, SEM_FN_NAME (fr30bf,dmovr13pi) },
5668 // OBSOLETE   { FR30BF_INSN_DMOVR13PIH, SEM_FN_NAME (fr30bf,dmovr13pih) },
5669 // OBSOLETE   { FR30BF_INSN_DMOVR13PIB, SEM_FN_NAME (fr30bf,dmovr13pib) },
5670 // OBSOLETE   { FR30BF_INSN_DMOVR15PI, SEM_FN_NAME (fr30bf,dmovr15pi) },
5671 // OBSOLETE   { FR30BF_INSN_DMOV2R13, SEM_FN_NAME (fr30bf,dmov2r13) },
5672 // OBSOLETE   { FR30BF_INSN_DMOV2R13H, SEM_FN_NAME (fr30bf,dmov2r13h) },
5673 // OBSOLETE   { FR30BF_INSN_DMOV2R13B, SEM_FN_NAME (fr30bf,dmov2r13b) },
5674 // OBSOLETE   { FR30BF_INSN_DMOV2R13PI, SEM_FN_NAME (fr30bf,dmov2r13pi) },
5675 // OBSOLETE   { FR30BF_INSN_DMOV2R13PIH, SEM_FN_NAME (fr30bf,dmov2r13pih) },
5676 // OBSOLETE   { FR30BF_INSN_DMOV2R13PIB, SEM_FN_NAME (fr30bf,dmov2r13pib) },
5677 // OBSOLETE   { FR30BF_INSN_DMOV2R15PD, SEM_FN_NAME (fr30bf,dmov2r15pd) },
5678 // OBSOLETE   { FR30BF_INSN_LDRES, SEM_FN_NAME (fr30bf,ldres) },
5679 // OBSOLETE   { FR30BF_INSN_STRES, SEM_FN_NAME (fr30bf,stres) },
5680 // OBSOLETE   { FR30BF_INSN_COPOP, SEM_FN_NAME (fr30bf,copop) },
5681 // OBSOLETE   { FR30BF_INSN_COPLD, SEM_FN_NAME (fr30bf,copld) },
5682 // OBSOLETE   { FR30BF_INSN_COPST, SEM_FN_NAME (fr30bf,copst) },
5683 // OBSOLETE   { FR30BF_INSN_COPSV, SEM_FN_NAME (fr30bf,copsv) },
5684 // OBSOLETE   { FR30BF_INSN_NOP, SEM_FN_NAME (fr30bf,nop) },
5685 // OBSOLETE   { FR30BF_INSN_ANDCCR, SEM_FN_NAME (fr30bf,andccr) },
5686 // OBSOLETE   { FR30BF_INSN_ORCCR, SEM_FN_NAME (fr30bf,orccr) },
5687 // OBSOLETE   { FR30BF_INSN_STILM, SEM_FN_NAME (fr30bf,stilm) },
5688 // OBSOLETE   { FR30BF_INSN_ADDSP, SEM_FN_NAME (fr30bf,addsp) },
5689 // OBSOLETE   { FR30BF_INSN_EXTSB, SEM_FN_NAME (fr30bf,extsb) },
5690 // OBSOLETE   { FR30BF_INSN_EXTUB, SEM_FN_NAME (fr30bf,extub) },
5691 // OBSOLETE   { FR30BF_INSN_EXTSH, SEM_FN_NAME (fr30bf,extsh) },
5692 // OBSOLETE   { FR30BF_INSN_EXTUH, SEM_FN_NAME (fr30bf,extuh) },
5693 // OBSOLETE   { FR30BF_INSN_LDM0, SEM_FN_NAME (fr30bf,ldm0) },
5694 // OBSOLETE   { FR30BF_INSN_LDM1, SEM_FN_NAME (fr30bf,ldm1) },
5695 // OBSOLETE   { FR30BF_INSN_STM0, SEM_FN_NAME (fr30bf,stm0) },
5696 // OBSOLETE   { FR30BF_INSN_STM1, SEM_FN_NAME (fr30bf,stm1) },
5697 // OBSOLETE   { FR30BF_INSN_ENTER, SEM_FN_NAME (fr30bf,enter) },
5698 // OBSOLETE   { FR30BF_INSN_LEAVE, SEM_FN_NAME (fr30bf,leave) },
5699 // OBSOLETE   { FR30BF_INSN_XCHB, SEM_FN_NAME (fr30bf,xchb) },
5700 // OBSOLETE   { 0, 0 }
5701 // OBSOLETE };
5702 // OBSOLETE
5703 // OBSOLETE /* Add the semantic fns to IDESC_TABLE.  */
5704 // OBSOLETE
5705 // OBSOLETE void
5706 // OBSOLETE SEM_FN_NAME (fr30bf,init_idesc_table) (SIM_CPU *current_cpu)
5707 // OBSOLETE {
5708 // OBSOLETE   IDESC *idesc_table = CPU_IDESC (current_cpu);
5709 // OBSOLETE   const struct sem_fn_desc *sf;
5710 // OBSOLETE   int mach_num = MACH_NUM (CPU_MACH (current_cpu));
5711 // OBSOLETE
5712 // OBSOLETE   for (sf = &sem_fns[0]; sf->fn != 0; ++sf)
5713 // OBSOLETE     {
5714 // OBSOLETE       const CGEN_INSN *insn = idesc_table[sf->index].idata;
5715 // OBSOLETE       int valid_p = (CGEN_INSN_VIRTUAL_P (insn)
5716 // OBSOLETE                  || CGEN_INSN_MACH_HAS_P (insn, mach_num));
5717 // OBSOLETE #if FAST_P
5718 // OBSOLETE       if (valid_p)
5719 // OBSOLETE     idesc_table[sf->index].sem_fast = sf->fn;
5720 // OBSOLETE       else
5721 // OBSOLETE     idesc_table[sf->index].sem_fast = SEM_FN_NAME (fr30bf,x_invalid);
5722 // OBSOLETE #else
5723 // OBSOLETE       if (valid_p)
5724 // OBSOLETE     idesc_table[sf->index].sem_full = sf->fn;
5725 // OBSOLETE       else
5726 // OBSOLETE     idesc_table[sf->index].sem_full = SEM_FN_NAME (fr30bf,x_invalid);
5727 // OBSOLETE #endif
5728 // OBSOLETE     }
5729 // OBSOLETE }