75 lines
2.5 KiB
C
75 lines
2.5 KiB
C
/* ************************************************************************** */
|
|
/* */
|
|
/* ::: :::::::: */
|
|
/* cw_ldi_lldi.c :+: :+: :+: */
|
|
/* +:+ +:+ +:+ */
|
|
/* By: tmaze <tmaze@student.42.fr> +#+ +:+ +#+ */
|
|
/* +#+#+#+#+#+ +#+ */
|
|
/* Created: 2019/06/19 20:43:31 by tmaze #+# #+# */
|
|
/* Updated: 2019/07/16 14:20:24 by igarbuz ### ########.fr */
|
|
/* */
|
|
/* ************************************************************************** */
|
|
|
|
#include "corewar.h"
|
|
|
|
void print_ldi(t_process *p, char *name, int *arg)
|
|
{
|
|
ft_printf("P %4d | %s %d %d r%d\n", \
|
|
p->pid, name, arg[0], arg[1], arg[2]);
|
|
if (name[1] == 'd')
|
|
ft_printf("%7c| -> load from %d + %d = %d (with pc and mod %d)\n"
|
|
, ' ', arg[0], arg[1], arg[4], arg[5]);
|
|
else
|
|
ft_printf("%7c| -> load from %d + %d = %d (with pc %d)\n"
|
|
, ' ', arg[0], arg[1], arg[4], arg[5]);
|
|
}
|
|
|
|
int cw_ldi_args(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[0].t != 0 && ag[0].t != REG_CODE))
|
|
&& ((ag[1].t == REG_CODE
|
|
&& (arg[1] = check_reg(vm, p->pc + ag[1].i)))
|
|
|| ag[1].t == DIR_CODE) && ag[2].t == REG_CODE
|
|
&& (arg[2] = check_reg(vm, p->pc + ag[2].i)));
|
|
}
|
|
|
|
void cw_ldi_common(t_process *p, t_vm *vm, char *n)
|
|
{
|
|
t_args ag[4];
|
|
int arg[6];
|
|
|
|
init_args(ag, p, vm);
|
|
arg[3] = cw_ocp(3, ag, 2);
|
|
if (cw_ldi_args(p, vm, ag, arg))
|
|
{
|
|
if (ag[0].t == DIR_CODE)
|
|
arg[0] = read_two(vm, p->pc + 2);
|
|
else if (ag[0].t == IND_CODE)
|
|
arg[0] = read_four(vm, p->pc + (read_two(vm, p->pc + 2) % IDX_MOD));
|
|
else
|
|
arg[0] = p->regs[arg[0]];
|
|
if (ag[1].t == DIR_CODE)
|
|
arg[1] = read_two(vm, p->pc + ag[1].i);
|
|
else
|
|
arg[1] = p->regs[arg[1]];
|
|
arg[4] = arg[0] + arg[1];
|
|
arg[5] = (n[1] != 'd') ? (p->pc + arg[4]) % MEM_SIZE
|
|
: (p->pc + (arg[4] % IDX_MOD)) % MEM_SIZE;
|
|
if (vm->args & AG_VERB && vm->verb & VB_OPS)
|
|
print_ldi(p, n, arg);
|
|
p->regs[arg[2]] = read_four(vm, arg[5]);
|
|
}
|
|
cw_move_pc(vm, p, arg[3]);
|
|
}
|
|
|
|
void cw_ldi(t_process *p, t_vm *vm)
|
|
{
|
|
cw_ldi_common(p, vm, "ldi");
|
|
}
|
|
|
|
void cw_lldi(t_process *p, t_vm *vm)
|
|
{
|
|
cw_ldi_common(p, vm, "lldi");
|
|
}
|