#include "lib9.h"
#include "isa.h"
#include "interp.h"
#include "mathi.h"

enum
{
	TOKI0,
	TOKI1,
	TOKI2,
	TOKI3,
	TOKSB,
	TOKFP
};
#include "tab.h"

typedef struct Addr	Addr;
struct Addr
{
	uchar	mode;
	Adr	a;
};

#pragma	varargck	type	"a"	Addr*

char*	opnam[256];
int	iconv(va_list*, Fconv*);
int	aconv(va_list*, Fconv*);

int
aconv(va_list *arg, Fconv *f)
{
	Addr *a;
	char buf[64];

	a = va_arg(*arg, Addr*);

	if(a == nil) {
		strconv("AZ", f);
		return sizeof(a);
	}
	switch(a->mode & AMASK) {
	case AFP:	sprint(buf, "%d(fp)", a->a.ind);	break;
	case AMP:	sprint(buf, "%d(mp)", a->a.ind);	break;
	case AIMM:	sprint(buf, "$%d", a->a.imm);		break;
	case AIND|AFP:	sprint(buf, "%d(%d(fp))", a->a.i.s, a->a.i.f); break;
	case AIND|AMP:	sprint(buf, "%d(%d(mp))", a->a.i.s, a->a.i.f); break;
	}

	strconv(buf, f);
	return sizeof(a);
}

int
Dconv(va_list *arg, Fconv *f)
{
	int j;
	Inst *i;
	Addr s, d;
	char buf[128];
	static int init;

	if(init == 0) {
		for(j = 0; keywds[j].name != nil; j++)
			opnam[keywds[j].op] = keywds[j].name;

		fmtinstall('a', aconv);
		init = 1;
	}

	i = va_arg(*arg, Inst*);
	if(i == nil) {
		strconv("IZ", f);
		return sizeof(i);
	}		

	switch(keywds[i->op].terminal) {
	case TOKI0:
		sprint(buf, "%s", opnam[i->op]);
		break;
	case TOKI1:
		d.a = i->d;
		d.mode = UDST(i->add);
		sprint(buf, "%s\t%a", opnam[i->op], &d);
		break;
	case TOKI3:
		d.a = i->d;
		d.mode = UDST(i->add);
		s.a = i->s;
		s.mode = USRC(i->add);
		switch(i->add&ARM) {
		default:
			sprint(buf, "%s\t%a, %a", opnam[i->op], &s, &d);
			break;
		case AXIMM:
			sprint(buf, "%s\t%a, $%d, %a", opnam[i->op], &s, i->reg, &d);
			break;
		case AXINF:
			sprint(buf, "%s\t%a, %d(fp), %a", opnam[i->op], &s, i->reg, &d);
			break;
		case AXINM:
			sprint(buf, "%s\t%a, %d(mp), %a", opnam[i->op], &s, i->reg, &d);
			break;
		}
		break;
	case TOKI2:
		d.a = i->d;
		d.mode = UDST(i->add);
		s.a = i->s;
		s.mode = USRC(i->add);
		sprint(buf, "%s\t%a, %a", opnam[i->op], &s, &d);
		break;
	}

	strconv(buf, f);
	return sizeof(i);
}