quickdev16/tools/bsnes/cpu/core/opcode_write.bpp

@macro op_store_addr(name, r)
  void {class}::op_{name}_addr_b() {
    aa.l = op_readpc();
    aa.h = op_readpc();
{lc}op_writedbr(aa.w, {r});
  }

  void {class}::op_{name}_addr_w() {
    aa.l = op_readpc();
    aa.h = op_readpc();
    op_writedbr(aa.w + 0, {r} >> 0);
{lc}op_writedbr(aa.w + 1, {r} >> 8);
  }
@endmacro

@macro op_store_addrr(name, suffix, r, index)
  void {class}::op_{name}_addr{suffix}_b() {
    aa.l = op_readpc();
    aa.h = op_readpc();
    op_io();
{lc}op_writedbr(aa.w + {index}, {r});
  }

  void {class}::op_{name}_addr{suffix}_w() {
    aa.l = op_readpc();
    aa.h = op_readpc();
    op_io();
    op_writedbr(aa.w + {index} + 0, {r} >> 0);
{lc}op_writedbr(aa.w + {index} + 1, {r} >> 8);
  }
@endmacro

@macro op_store_longr(name, suffix, index)
  void {class}::op_{name}_long{suffix}_b() {
    aa.l = op_readpc();
    aa.h = op_readpc();
    aa.b = op_readpc();
{lc}op_writelong(aa.d + {index}, regs.a.l);
  }

  void {class}::op_{name}_long{suffix}_w() {
    aa.l = op_readpc();
    aa.h = op_readpc();
    aa.b = op_readpc();
    op_writelong(aa.d + {index} + 0, regs.a.l);
{lc}op_writelong(aa.d + {index} + 1, regs.a.h);
  }
@endmacro

@macro op_store_dp(name, r)
  void {class}::op_{name}_dp_b() {
    dp = op_readpc();
    op_io_cond2();
{lc}op_writedp(dp, {r});
  }

  void {class}::op_{name}_dp_w() {
    dp = op_readpc();
    op_io_cond2();
    op_writedp(dp + 0, {r} >> 0);
{lc}op_writedp(dp + 1, {r} >> 8);
  }
@endmacro

@macro op_store_dpr(name, r, index)
  void {class}::op_{name}_dpr_b() {
    dp = op_readpc();
    op_io_cond2();
    op_io();
{lc}op_writedp(dp + regs.{index}.w, {r});
  }

  void {class}::op_{name}_dpr_w() {
    dp = op_readpc();
    op_io_cond2();
    op_io();
    op_writedp(dp + regs.{index}.w + 0, {r} >> 0);
{lc}op_writedp(dp + regs.{index}.w + 1, {r} >> 8);
  }
@endmacro

@macro op_sta_idp()
  void {class}::op_sta_idp_b() {
    dp = op_readpc();
    op_io_cond2();
    aa.l = op_readdp(dp + 0);
    aa.h = op_readdp(dp + 1);
{lc}op_writedbr(aa.w, regs.a.l);
  }

  void {class}::op_sta_idp_w() {
    dp = op_readpc();
    op_io_cond2();
    aa.l = op_readdp(dp + 0);
    aa.h = op_readdp(dp + 1);
    op_writedbr(aa.w + 0, regs.a.l);
{lc}op_writedbr(aa.w + 1, regs.a.h);
  }
@endmacro

@macro op_sta_ildp()
  void {class}::op_sta_ildp_b() {
    dp = op_readpc();
    op_io_cond2();
    aa.l = op_readdp(dp + 0);
    aa.h = op_readdp(dp + 1);
    aa.b = op_readdp(dp + 2);
{lc}op_writelong(aa.d, regs.a.l);
  }

  void {class}::op_sta_ildp_w() {
    dp = op_readpc();
    op_io_cond2();
    aa.l = op_readdp(dp + 0);
    aa.h = op_readdp(dp + 1);
    aa.b = op_readdp(dp + 2);
    op_writelong(aa.d + 0, regs.a.l);
{lc}op_writelong(aa.d + 1, regs.a.h);
  }
@endmacro

@macro op_sta_idpx()
  void {class}::op_sta_idpx_b() {
    dp = op_readpc();
    op_io_cond2();
    op_io();
    aa.l = op_readdp(dp + regs.x.w + 0);
    aa.h = op_readdp(dp + regs.x.w + 1);
{lc}op_writedbr(aa.w, regs.a.l);
  }

  void {class}::op_sta_idpx_w() {
    dp = op_readpc();
    op_io_cond2();
    op_io();
    aa.l = op_readdp(dp + regs.x.w + 0);
    aa.h = op_readdp(dp + regs.x.w + 1);
    op_writedbr(aa.w + 0, regs.a.l);
{lc}op_writedbr(aa.w + 1, regs.a.h);
  }
@endmacro

@macro op_sta_idpy()
  void {class}::op_sta_idpy_b() {
    dp = op_readpc();
    op_io_cond2();
    aa.l = op_readdp(dp + 0);
    aa.h = op_readdp(dp + 1);
    op_io();
{lc}op_writedbr(aa.w + regs.y.w, regs.a.l);
  }

  void {class}::op_sta_idpy_w() {
    dp = op_readpc();
    op_io_cond2();
    aa.l = op_readdp(dp + 0);
    aa.h = op_readdp(dp + 1);
    op_io();
    op_writedbr(aa.w + regs.y.w + 0, regs.a.l);
{lc}op_writedbr(aa.w + regs.y.w + 1, regs.a.h);
  }
@endmacro

@macro op_sta_ildpy()
  void {class}::op_sta_ildpy_b() {
    dp = op_readpc();
    op_io_cond2();
    aa.l = op_readdp(dp + 0);
    aa.h = op_readdp(dp + 1);
    aa.b = op_readdp(dp + 2);
{lc}op_writelong(aa.d + regs.y.w, regs.a.l);
  }

  void {class}::op_sta_ildpy_w() {
    dp = op_readpc();
    op_io_cond2();
    aa.l = op_readdp(dp + 0);
    aa.h = op_readdp(dp + 1);
    aa.b = op_readdp(dp + 2);
    op_writelong(aa.d + regs.y.w + 0, regs.a.l);
{lc}op_writelong(aa.d + regs.y.w + 1, regs.a.h);
  }
@endmacro

@macro op_sta_sr()
  void {class}::op_sta_sr_b() {
    sp = op_readpc();
    op_io();
{lc}op_writesp(sp, regs.a.l);
  }

  void {class}::op_sta_sr_w() {
    sp = op_readpc();
    op_io();
    op_writesp(sp + 0, regs.a.l);
{lc}op_writesp(sp + 1, regs.a.h);
  }
@endmacro

@macro op_sta_isry()
  void {class}::op_sta_isry_b() {
    sp = op_readpc();
    op_io();
    aa.l = op_readsp(sp + 0);
    aa.h = op_readsp(sp + 1);
    op_io();
{lc}op_writedbr(aa.w + regs.y.w, regs.a.l);
  }

  void {class}::op_sta_isry_w() {
    sp = op_readpc();
    op_io();
    aa.l = op_readsp(sp + 0);
    aa.h = op_readsp(sp + 1);
    op_io();
    op_writedbr(aa.w + regs.y.w + 0, regs.a.l);
{lc}op_writedbr(aa.w + regs.y.w + 1, regs.a.h);
  }
@endmacro