bsnes/higan/processor/lr35902/instructions.cpp

auto LR35902::op_xx() {
}

auto LR35902::op_cb() {
  instructionCB();
}

//8-bit load commands

auto LR35902::op_ld_r_r(uint x, uint y) {
  r[x] = r[y];
}

auto LR35902::op_ld_r_n(uint x) {
  r[x] = read(r[PC]++);
}

auto LR35902::op_ld_r_hl(uint x) {
  r[x] = read(r[HL]);
}

auto LR35902::op_ld_hl_r(uint x) {
  write(r[HL], r[x]);
}

auto LR35902::op_ld_hl_n() {
  write(r[HL], read(r[PC]++));
}

auto LR35902::op_ld_a_rr(uint x) {
  r[A] = read(r[x]);
}

auto LR35902::op_ld_a_nn() {
  uint8 lo = read(r[PC]++);
  uint8 hi = read(r[PC]++);
  r[A] = read((hi << 8) | (lo << 0));
}

auto LR35902::op_ld_rr_a(uint x) {
  write(r[x], r[A]);
}

auto LR35902::op_ld_nn_a() {
  uint8 lo = read(r[PC]++);
  uint8 hi = read(r[PC]++);
  write((hi << 8) | (lo << 0), r[A]);
}

auto LR35902::op_ld_a_ffn() {
  r[A] = read(0xff00 + read(r[PC]++));
}

auto LR35902::op_ld_ffn_a() {
  write(0xff00 + read(r[PC]++), r[A]);
}

auto LR35902::op_ld_a_ffc() {
  r[A] = read(0xff00 + r[C]);
}

auto LR35902::op_ld_ffc_a() {
  write(0xff00 + r[C], r[A]);
}

auto LR35902::op_ldi_hl_a() {
  write(r[HL], r[A]);
  r[HL]++;
}

auto LR35902::op_ldi_a_hl() {
  r[A] = read(r[HL]);
  r[HL]++;
}

auto LR35902::op_ldd_hl_a() {
  write(r[HL], r[A]);
  r[HL]--;
}

auto LR35902::op_ldd_a_hl() {
  r[A] = read(r[HL]);
  r[HL]--;
}

//16-bit load commands

auto LR35902::op_ld_rr_nn(uint x) {
  r[x]  = read(r[PC]++) << 0;
  r[x] |= read(r[PC]++) << 8;
}

auto LR35902::op_ld_nn_sp() {
  uint16 addr = read(r[PC]++) << 0;
  addr |= read(r[PC]++) << 8;
  write(addr + 0, r[SP] >> 0);
  write(addr + 1, r[SP] >> 8);
}

auto LR35902::op_ld_sp_hl() {
  r[SP] = r[HL];
  io();
}

auto LR35902::op_push_rr(uint x) {
  io();
  write(--r[SP], r[x] >> 8);
  write(--r[SP], r[x] >> 0);
}

auto LR35902::op_pop_rr(uint x) {
  r[x]  = read(r[SP]++) << 0;
  r[x] |= read(r[SP]++) << 8;
}

//8-bit arithmetic commands

auto LR35902::opi_add_a(uint8 x) {
  uint16 rh = r[A] + x;
  uint16 rl = (r[A] & 0x0f) + (x & 0x0f);
  r[A] = rh;
  r.f.z = (uint8)rh == 0;
  r.f.n = 0;
  r.f.h = rl > 0x0f;
  r.f.c = rh > 0xff;
}

auto LR35902::op_add_a_r(uint x) { opi_add_a(r[x]); }
auto LR35902::op_add_a_n() { opi_add_a(read(r[PC]++)); }
auto LR35902::op_add_a_hl() { opi_add_a(read(r[HL])); }

auto LR35902::opi_adc_a(uint8 x) {
  uint16 rh = r[A] + x + r.f.c;
  uint16 rl = (r[A] & 0x0f) + (x & 0x0f) + r.f.c;
  r[A] = rh;
  r.f.z = (uint8)rh == 0;
  r.f.n = 0;
  r.f.h = rl > 0x0f;
  r.f.c = rh > 0xff;
}

auto LR35902::op_adc_a_r(uint x) { opi_adc_a(r[x]); }
auto LR35902::op_adc_a_n() { opi_adc_a(read(r[PC]++)); }
auto LR35902::op_adc_a_hl() { opi_adc_a(read(r[HL])); }

auto LR35902::opi_sub_a(uint8 x) {
  uint16 rh = r[A] - x;
  uint16 rl = (r[A] & 0x0f) - (x & 0x0f);
  r[A] = rh;
  r.f.z = (uint8)rh == 0;
  r.f.n = 1;
  r.f.h = rl > 0x0f;
  r.f.c = rh > 0xff;
}

auto LR35902::op_sub_a_r(uint x) { opi_sub_a(r[x]); }
auto LR35902::op_sub_a_n() { opi_sub_a(read(r[PC]++)); }
auto LR35902::op_sub_a_hl() { opi_sub_a(read(r[HL])); }

auto LR35902::opi_sbc_a(uint8 x) {
  uint16 rh = r[A] - x - r.f.c;
  uint16 rl = (r[A] & 0x0f) - (x & 0x0f) - r.f.c;
  r[A] = rh;
  r.f.z = (uint8)rh == 0;
  r.f.n = 1;
  r.f.h = rl > 0x0f;
  r.f.c = rh > 0xff;
}

auto LR35902::op_sbc_a_r(uint x) { opi_sbc_a(r[x]); }
auto LR35902::op_sbc_a_n() { opi_sbc_a(read(r[PC]++)); }
auto LR35902::op_sbc_a_hl() { opi_sbc_a(read(r[HL])); }

auto LR35902::opi_and_a(uint8 x) {
  r[A] &= x;
  r.f.z = r[A] == 0;
  r.f.n = 0;
  r.f.h = 1;
  r.f.c = 0;
}

auto LR35902::op_and_a_r(uint x) { opi_and_a(r[x]); }
auto LR35902::op_and_a_n() { opi_and_a(read(r[PC]++)); }
auto LR35902::op_and_a_hl() { opi_and_a(read(r[HL])); }

auto LR35902::opi_xor_a(uint8 x) {
  r[A] ^= x;
  r.f.z = r[A] == 0;
  r.f.n = 0;
  r.f.h = 0;
  r.f.c = 0;
}

auto LR35902::op_xor_a_r(uint x) { opi_xor_a(r[x]); }
auto LR35902::op_xor_a_n() { opi_xor_a(read(r[PC]++)); }
auto LR35902::op_xor_a_hl() { opi_xor_a(read(r[HL])); }

auto LR35902::opi_or_a(uint8 x) {
  r[A] |= x;
  r.f.z = r[A] == 0;
  r.f.n = 0;
  r.f.h = 0;
  r.f.c = 0;
}

auto LR35902::op_or_a_r(uint x) { opi_or_a(r[x]); }
auto LR35902::op_or_a_n() { opi_or_a(read(r[PC]++)); }
auto LR35902::op_or_a_hl() { opi_or_a(read(r[HL])); }

auto LR35902::opi_cp_a(uint8 x) {
  uint16 rh = r[A] - x;
  uint16 rl = (r[A] & 0x0f) - (x & 0x0f);
  r.f.z = (uint8)rh == 0;
  r.f.n = 1;
  r.f.h = rl > 0x0f;
  r.f.c = rh > 0xff;
}

auto LR35902::op_cp_a_r(uint x) { opi_cp_a(r[x]); }
auto LR35902::op_cp_a_n() { opi_cp_a(read(r[PC]++)); }
auto LR35902::op_cp_a_hl() { opi_cp_a(read(r[HL])); }

auto LR35902::op_inc_r(uint x) {
  r[x]++;
  r.f.z = r[x] == 0;
  r.f.n = 0;
  r.f.h = (r[x] & 0x0f) == 0x00;
}

auto LR35902::op_inc_hl() {
  uint8 n = read(r[HL]);
  write(r[HL], ++n);
  r.f.z = n == 0;
  r.f.n = 0;
  r.f.h = (n & 0x0f) == 0x00;
}

auto LR35902::op_dec_r(uint x) {
  r[x]--;
  r.f.z = r[x] == 0;
  r.f.n = 1;
  r.f.h = (r[x] & 0x0f) == 0x0f;
}

auto LR35902::op_dec_hl() {
  uint8 n = read(r[HL]);
  write(r[HL], --n);
  r.f.z = n == 0;
  r.f.n = 1;
  r.f.h = (n & 0x0f) == 0x0f;
}

auto LR35902::op_daa() {
  uint16 a = r[A];
  if(r.f.n == 0) {
    if(r.f.h || (a & 0x0f) > 0x09) a += 0x06;
    if(r.f.c || (a       ) > 0x9f) a += 0x60;
  } else {
    if(r.f.h) {
      a -= 0x06;
      if(r.f.c == 0) a &= 0xff;
    }
    if(r.f.c) a -= 0x60;
  }
  r[A] = a;
  r.f.z = r[A] == 0;
  r.f.h = 0;
  r.f.c |= a & 0x100;
}

auto LR35902::op_cpl() {
  r[A] ^= 0xff;
  r.f.n = 1;
  r.f.h = 1;
}

//16-bit arithmetic commands

auto LR35902::op_add_hl_rr(uint x) {
  io();
  uint32 rb = (r[HL] + r[x]);
  uint32 rn = (r[HL] & 0xfff) + (r[x] & 0xfff);
  r[HL] = rb;
  r.f.n = 0;
  r.f.h = rn > 0x0fff;
  r.f.c = rb > 0xffff;
}

auto LR35902::op_inc_rr(uint x) {
  io();
  r[x]++;
}

auto LR35902::op_dec_rr(uint x) {
  io();
  r[x]--;
}

auto LR35902::op_add_sp_n() {
  int n = (int8)read(r[PC]++);
  r.f.z = 0;
  r.f.n = 0;
  r.f.h = ((r[SP] & 0x0f) + (n & 0x0f)) > 0x0f;
  r.f.c = ((r[SP] & 0xff) + (n & 0xff)) > 0xff;
  r[SP] += n;
  io();
  io();
}

auto LR35902::op_ld_hl_sp_n() {
  int n = (int8)read(r[PC]++);
  r.f.z = 0;
  r.f.n = 0;
  r.f.h = ((r[SP] & 0x0f) + (n & 0x0f)) > 0x0f;
  r.f.c = ((r[SP] & 0xff) + (n & 0xff)) > 0xff;
  r[HL] = r[SP] + n;
  io();
}

//rotate/shift commands

auto LR35902::op_rlca() {
  r[A] = (r[A] << 1) | (r[A] >> 7);
  r.f.z = 0;
  r.f.n = 0;
  r.f.h = 0;
  r.f.c = r[A] & 0x01;
}

auto LR35902::op_rla() {
  bool c = r[A] & 0x80;
  r[A] = (r[A] << 1) | (r.f.c << 0);
  r.f.z = 0;
  r.f.n = 0;
  r.f.h = 0;
  r.f.c = c;
}

auto LR35902::op_rrca() {
  r[A] = (r[A] >> 1) | (r[A] << 7);
  r.f.z = 0;
  r.f.n = 0;
  r.f.h = 0;
  r.f.c = r[A] & 0x80;
}

auto LR35902::op_rra() {
  bool c = r[A] & 0x01;
  r[A] = (r[A] >> 1) | (r.f.c << 7);
  r.f.z = 0;
  r.f.n = 0;
  r.f.h = 0;
  r.f.c = c;
}

auto LR35902::op_rlc_r(uint x) {
  r[x] = (r[x] << 1) | (r[x] >> 7);
  r.f.z = r[x] == 0;
  r.f.n = 0;
  r.f.h = 0;
  r.f.c = r[x] & 0x01;
}

auto LR35902::op_rlc_hl() {
  uint8 n = read(r[HL]);
  n = (n << 1) | (n >> 7);
  write(r[HL], n);
  r.f.z = n == 0;
  r.f.n = 0;
  r.f.h = 0;
  r.f.c = n & 0x01;
}

auto LR35902::op_rl_r(uint x) {
  bool c = r[x] & 0x80;
  r[x] = (r[x] << 1) | (r.f.c << 0);
  r.f.z = r[x] == 0;
  r.f.n = 0;
  r.f.h = 0;
  r.f.c = c;
}

auto LR35902::op_rl_hl() {
  uint8 n = read(r[HL]);
  bool c = n & 0x80;
  n = (n << 1) | (r.f.c << 0);
  write(r[HL], n);
  r.f.z = n == 0;
  r.f.n = 0;
  r.f.h = 0;
  r.f.c = c;
}

auto LR35902::op_rrc_r(uint x) {
  r[x] = (r[x] >> 1) | (r[x] << 7);
  r.f.z = r[x] == 0;
  r.f.n = 0;
  r.f.h = 0;
  r.f.c = r[x] & 0x80;
}

auto LR35902::op_rrc_hl() {
  uint8 n = read(r[HL]);
  n = (n >> 1) | (n << 7);
  write(r[HL], n);
  r.f.z = n == 0;
  r.f.n = 0;
  r.f.h = 0;
  r.f.c = n & 0x80;
}

auto LR35902::op_rr_r(uint x) {
  bool c = r[x] & 0x01;
  r[x] = (r[x] >> 1) | (r.f.c << 7);
  r.f.z = r[x] == 0;
  r.f.n = 0;
  r.f.h = 0;
  r.f.c = c;
}

auto LR35902::op_rr_hl() {
  uint8 n = read(r[HL]);
  bool c = n & 0x01;
  n = (n >> 1) | (r.f.c << 7);
  write(r[HL], n);
  r.f.z = n == 0;
  r.f.n = 0;
  r.f.h = 0;
  r.f.c = c;
}

auto LR35902::op_sla_r(uint x) {
  bool c = r[x] & 0x80;
  r[x] <<= 1;
  r.f.z = r[x] == 0;
  r.f.n = 0;
  r.f.h = 0;
  r.f.c = c;
}

auto LR35902::op_sla_hl() {
  uint8 n = read(r[HL]);
  bool c = n & 0x80;
  n <<= 1;
  write(r[HL], n);
  r.f.z = n == 0;
  r.f.n = 0;
  r.f.h = 0;
  r.f.c = c;
}

auto LR35902::op_swap_r(uint x) {
  r[x] = (r[x] << 4) | (r[x] >> 4);
  r.f.z = r[x] == 0;
  r.f.n = 0;
  r.f.h = 0;
  r.f.c = 0;
}

auto LR35902::op_swap_hl() {
  uint8 n = read(r[HL]);
  n = (n << 4) | (n >> 4);
  write(r[HL], n);
  r.f.z = n == 0;
  r.f.n = 0;
  r.f.h = 0;
  r.f.c = 0;
}

auto LR35902::op_sra_r(uint x) {
  bool c = r[x] & 0x01;
  r[x] = (int8)r[x] >> 1;
  r.f.z = r[x] == 0;
  r.f.n = 0;
  r.f.h = 0;
  r.f.c = c;
}

auto LR35902::op_sra_hl() {
  uint8 n = read(r[HL]);
  bool c = n & 0x01;
  n = (int8)n >> 1;
  write(r[HL], n);
  r.f.z = n == 0;
  r.f.n = 0;
  r.f.h = 0;
  r.f.c = c;
}

auto LR35902::op_srl_r(uint x) {
  bool c = r[x] & 0x01;
  r[x] >>= 1;
  r.f.z = r[x] == 0;
  r.f.n = 0;
  r.f.h = 0;
  r.f.c = c;
}

auto LR35902::op_srl_hl() {
  uint8 n = read(r[HL]);
  bool c = n & 0x01;
  n >>= 1;
  write(r[HL], n);
  r.f.z = n == 0;
  r.f.n = 0;
  r.f.h = 0;
  r.f.c = c;
}

//single-bit commands

auto LR35902::op_bit_n_r(uint b, uint x) {
  r.f.z = (r[x] & (1 << b)) == 0;
  r.f.n = 0;
  r.f.h = 1;
}

auto LR35902::op_bit_n_hl(uint b) {
  uint8 n = read(r[HL]);
  r.f.z = (n & (1 << b)) == 0;
  r.f.n = 0;
  r.f.h = 1;
}

auto LR35902::op_set_n_r(uint b, uint x) {
  r[x] |= 1 << b;
}

auto LR35902::op_set_n_hl(uint b) {
  uint8 n = read(r[HL]);
  n |= 1 << b;
  write(r[HL], n);
}

auto LR35902::op_res_n_r(uint b, uint x) {
  r[x] &= ~(1 << b);
}

auto LR35902::op_res_n_hl(uint b) {
  uint n = read(r[HL]);
  n &= ~(1 << b);
  write(r[HL], n);
}

//control commands

auto LR35902::op_ccf() {
  r.f.n = 0;
  r.f.h = 0;
  r.f.c = !r.f.c;
}

auto LR35902::op_scf() {
  r.f.n = 0;
  r.f.h = 0;
  r.f.c = 1;
}

auto LR35902::op_nop() {
}

auto LR35902::op_halt() {
  r.halt = true;
  while(r.halt) io();
}

auto LR35902::op_stop() {
  if(stop()) return;
  r.stop = true;
  while(r.stop) io();
}

auto LR35902::op_di() {
  r.ime = 0;
}

auto LR35902::op_ei() {
  r.ei = true;
//r.ime = 1;
}

//jump commands

auto LR35902::op_jp_nn() {
  uint8 lo = read(r[PC]++);
  uint8 hi = read(r[PC]++);
  r[PC] = (hi << 8) | (lo << 0);
  io();
}

auto LR35902::op_jp_hl() {
  r[PC] = r[HL];
}

auto LR35902::op_jp_f_nn(uint x, bool y) {
  uint8 lo = read(r[PC]++);
  uint8 hi = read(r[PC]++);
  if(r.f[x] == y) {
    r[PC] = (hi << 8) | (lo << 0);
    io();
  }
}

auto LR35902::op_jr_n() {
  int8 n = read(r[PC]++);
  r[PC] += n;
  io();
}

auto LR35902::op_jr_f_n(uint x, bool y) {
  int8 n = read(r[PC]++);
  if(r.f[x] == y) {
    r[PC] += n;
    io();
  }
}

auto LR35902::op_call_nn() {
  uint8 lo = read(r[PC]++);
  uint8 hi = read(r[PC]++);
  io();
  write(--r[SP], r[PC] >> 8);
  write(--r[SP], r[PC] >> 0);
  r[PC] = (hi << 8) | (lo << 0);
}

auto LR35902::op_call_f_nn(uint x, bool y) {
  uint8 lo = read(r[PC]++);
  uint8 hi = read(r[PC]++);
  if(r.f[x] == y) {
    io();
    write(--r[SP], r[PC] >> 8);
    write(--r[SP], r[PC] >> 0);
    r[PC] = (hi << 8) | (lo << 0);
  }
}

auto LR35902::op_ret() {
  uint8 lo = read(r[SP]++);
  uint8 hi = read(r[SP]++);
  r[PC] = (hi << 8) | (lo << 0);
  io();
}

auto LR35902::op_ret_f(uint x, bool y) {
  io();
  if(r.f[x] == y) {
    uint8 lo = read(r[SP]++);
    uint8 hi = read(r[SP]++);
    r[PC] = (hi << 8) | (lo << 0);
    io();
  }
}

auto LR35902::op_reti() {
  uint8 lo = read(r[SP]++);
  uint8 hi = read(r[SP]++);
  r[PC] = (hi << 8) | (lo << 0);
  io();
  r.ime = 1;
}

auto LR35902::op_rst_n(uint n) {
  io();
  write(--r[SP], r[PC] >> 8);
  write(--r[SP], r[PC] >> 0);
  r[PC] = n;
}