58 lines
2.2 KiB
C
58 lines
2.2 KiB
C
/* ************************************************************************** */
|
|
/* */
|
|
/* ::: :::::::: */
|
|
/* cw_sti.c :+: :+: :+: */
|
|
/* +:+ +:+ +:+ */
|
|
/* By: tmaze <tmaze@student.42.fr> +#+ +:+ +#+ */
|
|
/* +#+#+#+#+#+ +#+ */
|
|
/* Created: 2019/06/19 20:46:59 by tmaze #+# #+# */
|
|
/* Updated: 2019/07/15 23:59:22 by tmaze ### ########.fr */
|
|
/* */
|
|
/* ************************************************************************** */
|
|
|
|
#include "corewar.h"
|
|
|
|
static int cw_check_sti(t_process *p, t_vm *vm, t_args *ag, int *arg)
|
|
{
|
|
return (ag[0].t == REG_CODE && (arg[0] = check_reg(vm, p->pc + 2))
|
|
&& ((ag[1].t == REG_CODE && (arg[1] = check_reg(vm, p->pc + ag[1].i)))
|
|
|| (ag[1].t != 0 && ag[1].t != REG_CODE))
|
|
&& ((ag[2].t == REG_CODE && (arg[2] = check_reg(vm, p->pc + ag[2].i)))
|
|
|| ag[2].t == DIR_CODE));
|
|
}
|
|
|
|
static void cw_print_sti(t_process *p, int *arg)
|
|
{
|
|
ft_printf("P %4d | sti r%d %d %d\n", p->pid, arg[0], arg[1], arg[2]);
|
|
ft_printf("%7c| -> store to %d + %d = %d (with pc and mod %d)\n", ' '
|
|
, arg[1], arg[2], arg[4], arg[5]);
|
|
}
|
|
|
|
void cw_sti(t_process *p, t_vm *vm)
|
|
{
|
|
t_args ag[4];
|
|
int arg[6];
|
|
|
|
init_args(ag, p, vm);
|
|
arg[3] = cw_ocp(3, ag, 2);
|
|
if (cw_check_sti(p, vm, ag, arg))
|
|
{
|
|
if (ag[1].t == REG_CODE)
|
|
arg[1] = p->regs[arg[1]];
|
|
else if (ag[1].t == IND_CODE)
|
|
arg[1] = read_four(vm, p->pc + (read_two(vm, p->pc + 3) % IDX_MOD));
|
|
else
|
|
arg[1] = read_two(vm, p->pc + 3);
|
|
if (ag[2].t == DIR_CODE)
|
|
arg[2] = read_two(vm, p->pc + ag[2].i);
|
|
else
|
|
arg[2] = p->regs[arg[2]];
|
|
arg[4] = arg[1] + arg[2];
|
|
arg[5] = p->pc + (arg[4] % IDX_MOD);
|
|
if (vm->args & AG_VERB && vm->verb & VB_OPS)
|
|
cw_print_sti(p, arg);
|
|
write_four(vm, ft_mod(arg[5], MEM_SIZE), p->regs[arg[0]], p->pc);
|
|
}
|
|
cw_move_pc(vm, p, arg[3]);
|
|
}
|