#include <SDL2/SDL.h>
#include <SDL2/SDL_image.h>
#include <SDL2/SDL_quit.h>
#include <SDL2/SDL_timer.h>
#include <inttypes.h>
#include <stdio.h>
#include <string.h>
#include <sys/types.h>

#define BASE_ADDR 0x200
#define FONTSET_SIZE 80
#define SCREEN_WIDTH 64
#define SCREEN_HEIGHT 32

struct emu_state {
  uint8_t registers[16];
  uint8_t memory[4096];
  uint16_t index;
  uint16_t program_counter;
  uint16_t stack[16];
  uint8_t stack_pointer;
  uint8_t sound_timer;
  uint8_t delay_timer;
  uint8_t keypad[16];
  uint32_t screen[SCREEN_WIDTH * SCREEN_HEIGHT];
  uint16_t opcode;
};

struct key_event {
    uint8_t keycode;
    uint8_t down;
};

uint8_t fontset[FONTSET_SIZE] = {
    0xF0, 0x90, 0x90, 0x90, 0xF0, // 0
    0x20, 0x60, 0x20, 0x20, 0x70, // 1
    0xF0, 0x10, 0xF0, 0x80, 0xF0, // 2
    0xF0, 0x10, 0xF0, 0x10, 0xF0, // 3
    0x90, 0x90, 0xF0, 0x10, 0x10, // 4
    0xF0, 0x80, 0xF0, 0x10, 0xF0, // 5
    0xF0, 0x80, 0xF0, 0x90, 0xF0, // 6
    0xF0, 0x10, 0x20, 0x40, 0x40, // 7
    0xF0, 0x90, 0xF0, 0x90, 0xF0, // 8
    0xF0, 0x90, 0xF0, 0x10, 0xF0, // 9
    0xF0, 0x90, 0xF0, 0x90, 0x90, // A
    0xE0, 0x90, 0xE0, 0x90, 0xE0, // B
    0xF0, 0x80, 0x80, 0x80, 0xF0, // C
    0xE0, 0x90, 0x90, 0x90, 0xE0, // D
    0xF0, 0x80, 0xF0, 0x80, 0xF0, // E
    0xF0, 0x80, 0xF0, 0x80, 0x80  // F
};

void get_key(struct key_event* kev) {
    SDL_Event event;

    kev->down = 2;
    kev->keycode = 255;
    while(SDL_PollEvent(&event)) {
        switch(event.type) {
            case SDL_KEYDOWN:
                kev->down = 1;
            case SDL_KEYUP: 
                kev->down = kev->down == 1 ? 1 : 0;
                switch(event.key.keysym.sym) {
                    case SDLK_0:
                        kev->keycode = 0;
                        break;
                    case SDLK_1:
                        kev->keycode = 1;
                        break;
                    case SDLK_2:
                        kev->keycode = 2;
                        break;
                    case SDLK_3:
                        kev->keycode = 3;
                        break;
                    case SDLK_4:
                        kev->keycode = 4;
                        break;
                    case SDLK_5:
                        kev->keycode = 5;
                        break;
                    case SDLK_6:
                        kev->keycode = 6;
                        break;
                    case SDLK_7:
                        kev->keycode = 7;
                        break;
                    case SDLK_8:
                        kev->keycode = 8;
                        break;
                    case SDLK_9:
                        kev->keycode = 9;
                        break;
                    case SDLK_a:
                        kev->keycode = 10;
                        break;
                    case SDLK_b:
                        kev->keycode = 11;
                        break;
                    case SDLK_c:
                        kev->keycode = 12;
                        break;
                    case SDLK_d:
                        kev->keycode = 13;
                        break;
                    case SDLK_e:
                        kev->keycode = 14;
                        break;
                    case SDLK_f:
                        kev->keycode = 15;
                        break;
                    case SDLK_p:
                        kev->keycode = 254;
                        break;
                }
                
            
            default:
                break;
        }
    }
}

uint16_t load_rom(char *file_name, struct emu_state *emulator_state) {
  printf("Loading ROM %s\n", file_name);

  FILE *file = fopen(file_name, "r");

  if (file == NULL) {
    printf("Error reading ROM file.");
    return -1;
  }

  fseek(file, 0L, SEEK_END);
  uint16_t rom_size = ftell(file);
  fseek(file, 0L, SEEK_SET);

#ifndef NDEBUG
  printf("ROM size is %d bytes\n", rom_size);
#endif

  for (uint16_t i = 0; i < rom_size; i++) {
    emulator_state->memory[BASE_ADDR + i] = (uint8_t)fgetc(file);
  }

  fclose(file);
  return rom_size;
}

// SYS is a deprecated instruction, basically a NOP
void instr_SYS(struct emu_state *emulator_state) {
  emulator_state->program_counter += 2;
}

// CLS instructions clears the screen
// we should zero out the video memory
void instr_CLS(struct emu_state *emulator_state) {
  memset(emulator_state->screen, 0, sizeof(emulator_state->screen));
  emulator_state->program_counter += 2;
}

// RET instruction returns from a function
// we should decrease stack pointer and set
// program_counter to last stack address
void instr_RET(struct emu_state *emulator_state) {
  emulator_state->stack_pointer--;
  emulator_state->program_counter =
      emulator_state->stack[emulator_state->stack_pointer];
  emulator_state->program_counter += 2;
}

// JP instruction jumps to an address without
// modifying the stack
void instr_JP(struct emu_state *emulator_state) {
  emulator_state->program_counter = emulator_state->opcode & 0x0FFFu;
}

// CALL instruction is like JP, but the stack is
// modified, kind of the reverse of RET
void instr_CALL(struct emu_state *emulator_state) {
  emulator_state->stack[emulator_state->stack_pointer] =
      emulator_state->program_counter;
  emulator_state->stack_pointer++;
  emulator_state->program_counter = emulator_state->opcode & 0x0FFFu;
}

// SE instruction skips the next instruction if
// the value in register X is equal to byte KK
void instr_SE(struct emu_state *emulator_state) {
  uint8_t reg = (emulator_state->opcode & 0x0F00U) >> 8;
  uint8_t register_val = emulator_state->registers[reg];
  uint8_t byte_val = emulator_state->opcode & 0x00FFU;

  if (byte_val == register_val) {
    emulator_state->program_counter += 2;
  }

  emulator_state->program_counter += 2;
}

// SNE instruction skips the next instruction if
// the value in register X is not equal to byte KK
void instr_SNE(struct emu_state *emulator_state) {
  uint8_t register_val =
      emulator_state->registers[(emulator_state->opcode & 0x0F00U) >> 8];
  uint8_t byte_val = emulator_state->opcode & 0x00FFU;
  if (byte_val != register_val) {
    emulator_state->program_counter += 2;
  }
  emulator_state->program_counter += 2; 
}

// SE instruction skips the next instruction if
// the value in register X is equal to value in
// register Y
void instr_SE_reg(struct emu_state *emulator_state) {
  uint8_t register_x_val =
      emulator_state->registers[(emulator_state->opcode & 0x0F00U) >> 8];
  uint8_t register_y_val =
      emulator_state->registers[(emulator_state->opcode & 0x00F0U) >> 4];
  if (register_x_val == register_y_val) {
    emulator_state->program_counter += 2;
  }
  emulator_state->program_counter += 2;
}

// SNE instruction skips the next instruction if
// the value in register X is equal to value in
// register Y
void instr_SNE_reg(struct emu_state *emulator_state) {
  uint8_t register_x_val =
      emulator_state->registers[(emulator_state->opcode & 0x0F00U) >> 8];
  uint8_t register_y_val =
      emulator_state->registers[(emulator_state->opcode & 0x00F0U) >> 4];
  if (register_x_val != register_y_val) {
    emulator_state->program_counter += 2;
  }
  emulator_state->program_counter += 2;
}

// LD instruction loads the value of byte kk into register Y
void instr_LD(struct emu_state *emulator_state) {
  emulator_state->registers[(emulator_state->opcode & 0x0F00U) >> 8] =
      emulator_state->opcode & 0x00FFU;
  emulator_state->program_counter += 2;
}

// ADD instruction adds kk to register X
void instr_ADD(struct emu_state *emulator_state) {
  uint8_t reg = (emulator_state->opcode & 0x0F00U) >> 8;
  uint8_t num = emulator_state->opcode & 0x00FFU;

#ifndef NDEBUG
  printf("ADD R[%#x] %d (was: %d, now: %d)\n", reg, num,
         emulator_state->registers[reg], emulator_state->registers[reg] + num);
#endif

  emulator_state->registers[reg] += num;
  emulator_state->program_counter += 2;
}

// LD instruction loads the value of register X into register Y
void instr_LD_reg(struct emu_state *emulator_state) {
  emulator_state->registers[(emulator_state->opcode & 0x0F00U) >> 8] =
      emulator_state->registers[(emulator_state->opcode & 0x00F0U) >> 4];
  emulator_state->program_counter += 2;
}

// OR instruction ors the value of register X with register Y
void instr_OR_reg(struct emu_state *emulator_state) {
  emulator_state->registers[(emulator_state->opcode & 0x0F00U) >> 8] |=
      emulator_state->registers[(emulator_state->opcode & 0x00F0U) >> 4];
  emulator_state->registers[0xF] = 0;
  emulator_state->program_counter += 2;
}

// XOR instruction xors the value of register X with register Y
void instr_XOR_reg(struct emu_state *emulator_state) {
  emulator_state->registers[(emulator_state->opcode & 0x0F00U) >> 8] ^=
      emulator_state->registers[(emulator_state->opcode & 0x00F0U) >> 4];
  emulator_state->registers[0xF] = 0;
  emulator_state->program_counter += 2;
}

// ADD instruction adds the value of register X with register Y
void instr_ADD_reg(struct emu_state *emulator_state) {
  uint8_t prev_value =
      emulator_state->registers[(emulator_state->opcode & 0x0F00U) >> 8];

  emulator_state->registers[(emulator_state->opcode & 0x0F00U) >> 8] +=
      emulator_state->registers[(emulator_state->opcode & 0x00F0U) >> 4];

  emulator_state->registers[0xF] = (prev_value >
       emulator_state->registers[(emulator_state->opcode & 0x0F00U) >> 8])
          ? 1
          : 0;

  emulator_state->program_counter += 2;
}

// SUB instruction subtracts the value of register X with register Y
void instr_SUB_reg(struct emu_state *emulator_state) {
  uint8_t prev_value =
      emulator_state->registers[(emulator_state->opcode & 0x0F00U) >> 8];

  emulator_state->registers[(emulator_state->opcode & 0x0F00U) >> 8] -=
      emulator_state->registers[(emulator_state->opcode & 0x00F0U) >> 4];

  // This doesn't exactly make sense, yet the tests pass....
  emulator_state->registers[0xF] =
      (prev_value <
       emulator_state->registers[(emulator_state->opcode & 0x0F00U) >> 8])
          ? 0
          : 1;
  emulator_state->program_counter += 2;
}

// SHR instruction bit shifts Vx one to the right
void instr_SHR_reg(struct emu_state *emulator_state) {
  uint8_t reg_x_val =
      emulator_state->registers[(emulator_state->opcode & 0x0F00U) >> 8];

  emulator_state->registers[(emulator_state->opcode & 0x0F00U) >> 8] = emulator_state->registers[(emulator_state->opcode & 0x00F0U) >> 4] >> 1;

  if ((reg_x_val & 0x01) == 1) {
    emulator_state->registers[0xF] = 1;
  } else {
    emulator_state->registers[0xF] = 0;
  }

  emulator_state->program_counter += 2;
}

// SHL instruction bit shifts Vx one to the left
void instr_SHL_reg(struct emu_state *emulator_state) {
  uint8_t reg_x_val =
      emulator_state->registers[(emulator_state->opcode & 0x0F00U) >> 8];

  emulator_state->registers[(emulator_state->opcode & 0x0F00U) >> 8] = emulator_state->registers[(emulator_state->opcode & 0x00F0U) >> 4] << 1;

  if (((reg_x_val & 0xA0) >> 7) == 1) {
    emulator_state->registers[0xF] = 1;
  } else {
    emulator_state->registers[0xF] = 0;
  }

  emulator_state->program_counter += 2;
}

// SUBN sets Vx to Vy - Vx
void instr_SUBN_reg(struct emu_state *emulator_state) {
  uint8_t reg_x_val =
      emulator_state->registers[(emulator_state->opcode & 0x0F00U) >> 8];
  uint8_t reg_y_val =
      emulator_state->registers[(emulator_state->opcode & 0x00F0U) >> 4];

  emulator_state->registers[(emulator_state->opcode & 0x0F00U) >> 8] =
      reg_y_val - reg_x_val;

  if (reg_y_val >= reg_x_val) {
    emulator_state->registers[0xF] = 1;
  } else {
    emulator_state->registers[0xF] = 0;
  }

  emulator_state->program_counter += 2;
}

void instr_LD_I(struct emu_state *emulator_state) {
  emulator_state->index = emulator_state->opcode & 0x0FFFU;
  emulator_state->program_counter += 2;
}

void instr_LD_reg_I(struct emu_state *emulator_state) {
  unsigned int reg = (emulator_state->opcode & 0x0F00U) >> 8;
  for (unsigned int i = 0; i <= reg; i++) {
    emulator_state->registers[i] =
        emulator_state->memory[emulator_state->index + i];
  }
  emulator_state->index++;
  emulator_state->program_counter += 2;
}

void instr_LD_I_reg(struct emu_state *emulator_state) {
  unsigned int reg = (emulator_state->opcode & 0x0F00U) >> 8;
  for (unsigned int i = 0; i <= reg; i++) {
    emulator_state->memory[emulator_state->index + i] =
        emulator_state->registers[i];
  }
  emulator_state->index++;
  emulator_state->program_counter += 2;
}

void instr_LD_B_reg(struct emu_state *emulator_state) {
  unsigned int val =
      emulator_state->registers[(emulator_state->opcode & 0x0F00U) >> 8];
  emulator_state->memory[emulator_state->index + 2] = val % 10;
  val /= 10;
  emulator_state->memory[emulator_state->index + 1] = val % 10;
  val /= 10;
  emulator_state->memory[emulator_state->index + 0] = val % 10;
  emulator_state->program_counter += 2;
}

void instr_AND_reg(struct emu_state *emulator_state) {
  emulator_state->registers[(emulator_state->opcode & 0x0F00U) >> 8] &=
      emulator_state->registers[(emulator_state->opcode & 0x00F0U) >> 4];
  emulator_state->registers[0xF] = 0;
  emulator_state->program_counter += 2;
}

void instr_ADD_I_reg(struct emu_state *emulator_state) {
  emulator_state->index +=
      emulator_state->registers[(emulator_state->opcode & 0x0F00U) >> 8];
  emulator_state->program_counter += 2;
}

void instr_DRW(struct emu_state *emulator_state) {
  uint8_t x_cord =
      emulator_state->registers[(emulator_state->opcode & 0x0F00U) >> 8];
  uint8_t y_cord =
      emulator_state->registers[(emulator_state->opcode & 0x00F0U) >> 4];
  uint8_t size = emulator_state->opcode & 0x000FU;
  y_cord %= SCREEN_HEIGHT;
  x_cord %= SCREEN_WIDTH;

  emulator_state->registers[0xF] = 0;
  for (unsigned int r = 0; r < size; r++) {
    for (unsigned int c = 0; c < 8; c++) {
      uint32_t *screen_pixel =
          &emulator_state->screen[(r + y_cord) * SCREEN_WIDTH + (x_cord + c)];
      if(r+y_cord >= SCREEN_HEIGHT || x_cord + c >= SCREEN_WIDTH) continue;
      uint8_t sprite_pixel =
          emulator_state->memory[emulator_state->index + r] & (0x80U >> c);
      if (sprite_pixel) {
        if (*screen_pixel == 0xFFFFFFFF) {
          emulator_state->registers[0xF] = 1;
        }
        *screen_pixel ^= 0xFFFFFFFF;
      }
    }
  }

  emulator_state->program_counter += 2;
}

void instr_RND_reg(struct emu_state *emulator_state) {
  uint8_t rand_num = rand() % 256;
  emulator_state->registers[(emulator_state->opcode & 0x0F00U) >> 8] =
      (emulator_state->opcode & 0x00FFU) & rand_num;
  emulator_state->program_counter += 2;
}

void instr_NOP(struct emu_state *emulator_state) {
  emulator_state->program_counter += 2;
}

void instr_SKP_reg(struct emu_state *emulator_state) {
  uint8_t wanted_key = emulator_state->registers[(emulator_state->opcode & 0x0F00U) >> 8];
  if (emulator_state->keypad[wanted_key] == 1) {
    emulator_state->program_counter += 2;
  }
  emulator_state->program_counter += 2;
}

void instr_SKNP_reg(struct emu_state *emulator_state) {
  uint8_t unwanted_key = emulator_state->registers[(emulator_state->opcode & 0x0F00U) >> 8];
  if (emulator_state->keypad[unwanted_key] == 0) {
    emulator_state->program_counter += 2;
  }
  emulator_state->program_counter += 2;
}

void instr_LD_DT_reg(struct emu_state *emulator_state) {
  emulator_state->delay_timer = emulator_state->registers[(emulator_state->opcode & 0x0F00U) >> 8];
  emulator_state->program_counter += 2;
}

void instr_LD_ST_reg(struct emu_state *emulator_state) {
  emulator_state->sound_timer = emulator_state->registers[(emulator_state->opcode & 0x0F00U) >> 8];
  emulator_state->program_counter += 2;
}

void instr_LD_reg_DT(struct emu_state *emulator_state) {
  emulator_state->registers[(emulator_state->opcode & 0x0F00U) >> 8] = emulator_state->delay_timer;
  emulator_state->program_counter += 2;
}

void instr_LD_F_reg(struct emu_state *emulator_state) {
  emulator_state->index = fontset[emulator_state->registers[(emulator_state->opcode & 0x0F00U) >> 8] = emulator_state->delay_timer];
  emulator_state->program_counter += 2;
}

void instr_JP_reg0(struct emu_state *emulator_state) {
  emulator_state->program_counter = emulator_state->opcode & 0x0FFFU;
}

void instr_LD_reg_K(struct emu_state *emulator_state) {
  struct key_event kev;
  kev.keycode = 255;
  kev.down = 2;
  while(kev.keycode >= 254U && kev.down == 2) {
    SDL_FlushEvents(SDL_KEYDOWN, SDL_KEYUP);
    get_key(&kev);
  }
  emulator_state->delay_timer = 0;
  emulator_state->registers[(emulator_state->opcode & 0x0F00U) >> 8] = kev.keycode;
  emulator_state->program_counter += 2;
}

void *get_op_func(uint16_t opcode) {
  // TODO: Move to lookup table
  if (opcode == 0x00E0U) {
    return &instr_CLS;
  } else if (opcode == 0x00EEU) {
    return &instr_RET;
  } else if ((opcode & 0xF000U) == 0) {
    // "This instruction is only used on the old computers on which Chip-8 was originally implemented. It is ignored by modern interpreters."
    return &instr_NOP;
  } else if ((opcode & 0xF000U) == 0x1000U) {
    return &instr_JP;
  } else if ((opcode & 0xF000U) == 0x2000U) {
    return &instr_CALL;
  } else if ((opcode & 0xF000U) == 0x3000U) {
    return &instr_SE;
  } else if ((opcode & 0xF000U) == 0x4000U) {
    return &instr_SNE;
  } else if ((opcode & 0xF00FU) == 0x5000U) {
    return &instr_SE_reg;
  } else if ((opcode & 0xF00FU) == 0x9000U) {
    return &instr_SNE_reg;
  } else if ((opcode & 0xF00FU) == 0x8000U) {
    return &instr_LD_reg;
  } else if ((opcode & 0xF00FU) == 0x8001U) {
    return &instr_OR_reg;
  } else if ((opcode & 0xF00FU) == 0x8002U) {
    return &instr_AND_reg;
  } else if ((opcode & 0xF00FU) == 0x8003U) {
    return &instr_XOR_reg;
  } else if ((opcode & 0xF00FU) == 0x8004U) {
    return &instr_ADD_reg;
  } else if ((opcode & 0xF00FU) == 0x8005U) {
    return &instr_SUB_reg;
  } else if ((opcode & 0xF00FU) == 0x8006U) {
    return &instr_SHR_reg;
  } else if ((opcode & 0xF00FU) == 0x8007U) {
    return &instr_SUBN_reg;
  } else if ((opcode & 0xF00FU) == 0x800EU) {
    return &instr_SHL_reg;
  } else if ((opcode & 0xF0FFU) == 0xf065U) {
    return &instr_LD_reg_I;
  } else if ((opcode & 0xF0FFU) == 0xf033U) {
    return &instr_LD_B_reg;
  } else if ((opcode & 0xF0FFU) == 0xf055U) {
    return &instr_LD_I_reg;
  } else if ((opcode & 0xF0FFU) == 0xf01EU) {
    return &instr_ADD_I_reg;
  } else if ((opcode & 0xF000U) == 0xA000U) {
    return &instr_LD_I;
  } else if ((opcode & 0xF000U) == 0x6000U) {
    return &instr_LD;
  } else if ((opcode & 0xF000U) == 0x7000U) {
    return &instr_ADD;
  } else if ((opcode & 0xF000U) == 0xD000U) {
    return &instr_DRW;
  } else if ((opcode & 0xF00FU) == 0x8002U) {
    return &instr_AND_reg;
  } else if ((opcode & 0xF000U) == 0xC000U) {
    return &instr_RND_reg;
  } else if ((opcode & 0xF0FFU) == 0xE09EU) {
    return &instr_SKP_reg;
  } else if ((opcode & 0xF0FFU) == 0xE0A1U) {
    return &instr_SKNP_reg;
  } else if ((opcode & 0xF0FFU) == 0xF015U) {
    return &instr_LD_DT_reg;
  } else if ((opcode & 0xF0FFU) == 0xF007U) {
    return &instr_LD_reg_DT;
  } else if ((opcode & 0xF0FFU) == 0xF029U) {
    return &instr_LD_F_reg;
  } else if ((opcode & 0xF000U) == 0xB000U) {
    return &instr_JP_reg0;
  } else if ((opcode & 0xF0FFU) == 0xF00AU) {
    return &instr_LD_reg_K;
  } else if ((opcode & 0xF0FFU) == 0xF018U) {
    return &instr_LD_ST_reg;
  }

  return NULL;
}



int main(int argc, char *argv[]) {
  struct emu_state state;
  uint16_t rom_size = load_rom(argv[1], &state);
  state.program_counter = BASE_ADDR;
  memset(state.screen, 0, sizeof(state.screen));

  SDL_Init(SDL_INIT_EVERYTHING);
  SDL_Window *window =
      SDL_CreateWindow("Yet Another Chip-8 Emulator", // creates a window
                       SDL_WINDOWPOS_CENTERED, SDL_WINDOWPOS_CENTERED,
                       SCREEN_WIDTH * 10, SCREEN_HEIGHT * 10, 0);
  SDL_Renderer *renderer =
      SDL_CreateRenderer(window, -1, SDL_RENDERER_ACCELERATED);

  SDL_Texture *texture = SDL_CreateTexture(renderer, SDL_PIXELFORMAT_RGBA8888,
                                           SDL_TEXTUREACCESS_STREAMING,
                                           SCREEN_WIDTH, SCREEN_HEIGHT);

  int turbo_mode = argc == 3 && strcmp(argv[2], "turbo") == 0;

  if (turbo_mode) {
    printf("WARNING: Turbo mode has been enabled. Interpereter will run "
           "extremely fast!\n");
  }
 
  int is_supported = 1;
  for (uint16_t i = 0; i < rom_size ; i+=2) {
    uint16_t op = (((uint16_t)state.memory[BASE_ADDR + i]) << 8) |
                   (uint16_t)state.memory[BASE_ADDR + i + 1];
    void (*op_func)(struct emu_state *) = get_op_func(op);
    if (op_func == NULL) {
        is_supported = 0;
        printf("Invalid ROM (Unsupported Instruction 0x%04X) at byte %d\n", op, i);
    }
  }

  if(!is_supported && 0) {
      return 1;
  }

  int pause = 0;

  struct timeval last, cur;
  gettimeofday(&cur, NULL);
  for (long i = 0; i != -1; i++) {
    if (state.delay_timer > 0 || state.sound_timer > 0) {
        gettimeofday(&cur, NULL);
        long msec = (cur.tv_sec - last.tv_sec) * 1000000 + cur.tv_usec - last.tv_usec; 
        if (msec > 16666) {
            last = cur;
            if (state.sound_timer > 0) {
                uint8_t old = state.sound_timer;
                state.sound_timer -= 1 * (msec/16666);
                state.sound_timer = state.sound_timer > old ? 0 : state.sound_timer;
            }
            if (state.delay_timer > 0){
                uint8_t old = state.delay_timer;
                state.delay_timer -= 1 * (msec/16666); 
                state.delay_timer = state.delay_timer > old ? 0 : state.delay_timer;
            }
        }
    }

    struct key_event kev;
    get_key(&kev);

    if (kev.keycode == 254 && !kev.down) {
        pause = !pause;
    }
    if(pause) {
        i--;
        continue;
    }

    if (kev.keycode != 255) {
        printf("%d: %d / \n", kev.keycode, kev.down);
        state.keypad[kev.keycode] = kev.down;
    }

    for(int i = 0; i < 16; i++) {
        printf("%d: %d / ", i, state.keypad[i]);
    }
    printf("\n");


    state.opcode = (((uint16_t)state.memory[state.program_counter]) << 8) |
                   (uint16_t)state.memory[state.program_counter + 1];
    void (*op_func)(struct emu_state *) = get_op_func(state.opcode);

    printf("\n[%d] | PC: %#x / OPCODE: %#x / SOUND TIMER: %d/ DELAY TIMER: %d\n", i, state.program_counter,
           state.opcode, state.sound_timer, state.delay_timer);

    if (op_func == NULL) {
      printf("Illegal Instruction.\n");
      return 1;
    }

    op_func(&state);

    if (state.sound_timer > 0)
        SDL_SetTextureColorMod(texture, 255, 0, 0);
    else
        SDL_SetTextureColorMod(texture, 255, 255, 255);
    
    SDL_UpdateTexture(texture, NULL, state.screen,
                          sizeof(state.screen[0]) * SCREEN_WIDTH);
    SDL_RenderClear(renderer);
    SDL_RenderCopy(renderer, texture, NULL, NULL);
    SDL_RenderPresent(renderer);

    usleep(turbo_mode ? 100 : 2000);

    if (SDL_QuitRequested()) {
      printf("Received Quit from SDL. Goodbye!");
      break;
    }
  }

  return 0;
}