FunkCompiler/Writer.cpp at master · NanoWar/FunkCompiler · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
#include "Global.h"
#include "Register.h"

#include "Writer.h"

char *S_LOAD = "\tld\t%s, %s";
char *S_ADD = "\tadd\t%s, %s";
char *S_ADD_A = "\tadd\ta, %s";
char *S_DEFINE = "#define %s %s";


void Write(const char* format, ...)
{
	va_list args;
	va_start(args, format);
	vfprintf(output_file, format, args);
	va_end(args);
}

void WriteLn(const char* format, ...)
{
	va_list args;
	va_start(args, format);
	vfprintf(output_file, format, args);
	va_end(args);
	fprintf(output_file, "\n");
}

// ld reg, reg
void WriteLoad(ERegister target, ERegister source)
{
	if (target == source) {
		return;
	}
	if (IS_BIG(target) && IS_BIG(source)) {
		if (target == ERegister::IX || target == ERegister::IY
			|| source == ERegister::IX || source == ERegister::IY) {
			WriteLn("\tpush\t%s\n\tpop\t%s",
				RSMx(source),
				RSMx(target));
		}
		else {
			WriteLn(S_LOAD,
				RSMx(HI_REG(target)),
				RSMx(HI_REG(source)));
			WriteLn(S_LOAD,
				RSMx(LO_REG(target)),
				RSMx(LO_REG(source)));
		}
	}
	else {
		WriteLn(S_LOAD,
			RSMx(target),
			RSMx(source));
	}
}

// ld reg, name
void WriteLoad(ERegister target, string value)
{
	WriteLn(S_LOAD,
		RSMx(target),
		value.c_str());
}

// ld reg, num
void WriteLoad(ERegister target, int value)
{
	WriteLn(S_LOAD,
		RSMx(target),
		to_string(value).c_str());
}

// #define name name
void WriteDefine(string target, string value)
{
	WriteLn(S_DEFINE,
		target.c_str(),
		value.c_str());
}

// Register alias: #define name reg
void WriteDefine(string target, ERegister source)
{
	WriteLn(S_DEFINE,
		target.c_str(),
		RSMx(source));
}

void WriteProgStart()
{
	WriteLn("\t.org 4000h");
}