Add: PUT instruction, Assembler separation

assembler/das.c

@@ -0,0 +1,192 @@
+/*
+ * Dumb8 code assembler
+ * Made by github.com/xamidev
+ *
+ * This is free and unencumbered software released into the public domain.
+ * For more information, please refer to <http://unlicense.org/>
+*/
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <stdint.h>
+#include <stdbool.h>
+#include <string.h>
+#include "../cpu.h"
+
+/*
+ * Reading the assembly file and writing its instructions in
+ * opcode format in a binary file
+*/
+
+// The code is not optimized at all. But remember: it is a DUMB assembler!
+
+void assemble(char* filename)
+{
+	FILE* fp = fopen(filename, "r");
+
+	if (!fp)
+	{
+		printf("Cannot read file '%s'\n", filename);
+		exit(1);
+	}
+
+	char* binary_file = strtok(filename, ".");
+	binary_file = strcat(binary_file, ".bin");
+
+	FILE* bin_fp = fopen(binary_file, "wb");
+
+	if (!bin_fp)
+	{
+		printf("Cannot open file '%s' for writing.\n", binary_file);
+		fclose(fp);
+		exit(1);
+	}
+
+	char line[256] = {0};
+	uint8_t buffer[BUF_MAX] = {0};
+	size_t i = 0;
+
+	while (fgets(line, sizeof(line), fp))
+	{
+		char instruction[10] = {0};
+		char reg1[10] = {0};
+		char reg2[10] = {0};
+		int addr = 0;
+		int value = 0;
+
+		if (strncmp(line, ";", 1) == 0)
+		{
+			continue;
+		}
+		else if (strncmp(line, "\n", 1) == 0)
+		{
+			continue;
+		}
+		else if (strncmp(line, "HLT", 3) == 0)
+		{
+			buffer[i++] = HLT;
+		}
+		else if (strncmp(line, "NOP", 3) == 0)
+		{
+			buffer[i++] = NOP;
+		}
+		else if (strncmp(line, "MOV", 3) == 0)
+		{
+			sscanf(line, "%s %[^,], %s", instruction, reg1, reg2);
+			int reg1_n = reg1[1] - '0';
+			int reg2_n = reg2[1] - '0';
+			buffer[i++] = MOV;
+			buffer[i++] = reg1_n;
+			buffer[i++] = reg2_n;
+		}
+		else if (strncmp(line, "ADD", 3) == 0)
+		{
+			sscanf(line, "%s %[^,], %s", instruction, reg1, reg2);	
+			int reg1_n = reg1[1] - '0';
+			int reg2_n = reg2[1] - '0';
+			buffer[i++] = ADD;
+			buffer[i++] = reg1_n;
+			buffer[i++] = reg2_n;
+		}
+		else if (strncmp(line, "CMP", 3) == 0)
+		{
+			sscanf(line, "%s %[^,], %s", instruction, reg1, reg2);	
+			int reg1_n = reg1[1] - '0';
+			int reg2_n = reg2[1] - '0';
+			buffer[i++] = CMP;
+			buffer[i++] = reg1_n;
+			buffer[i++] = reg2_n;
+		}
+		else if (strncmp(line, "SUB", 3) == 0)
+		{
+			sscanf(line, "%s %[^,], %s", instruction, reg1, reg2);	
+			int reg1_n = reg1[1] - '0';
+			int reg2_n = reg2[1] - '0';
+			buffer[i++] = SUB;
+			buffer[i++] = reg1_n;
+			buffer[i++] = reg2_n;
+		}
+		else if (strncmp(line, "OR", 3) == 0)
+		{
+			sscanf(line, "%s %[^,], %s", instruction, reg1, reg2);	
+			int reg1_n = reg1[1] - '0';
+			int reg2_n = reg2[1] - '0';
+			buffer[i++] = OR;
+			buffer[i++] = reg1_n;
+			buffer[i++] = reg2_n;
+		}
+		else if (strncmp(line, "AND", 3) == 0)
+		{
+			sscanf(line, "%s %[^,], %s", instruction, reg1, reg2);	
+			int reg1_n = reg1[1] - '0';
+			int reg2_n = reg2[1] - '0';
+			buffer[i++] = AND;
+			buffer[i++] = reg1_n;
+			buffer[i++] = reg2_n;
+		}
+		else if (strncmp(line, "XOR", 3) == 0)
+		{
+			sscanf(line, "%s %[^,], %s", instruction, reg1, reg2);	
+			int reg1_n = reg1[1] - '0';
+			int reg2_n = reg2[1] - '0';
+			buffer[i++] = XOR;
+			buffer[i++] = reg1_n;
+			buffer[i++] = reg2_n;
+		}
+		else if (strncmp(line, "JEQ", 3) == 0)
+		{
+			sscanf(line, "%s %[^,], %d", instruction, reg1, &addr);
+			int reg1_n = reg1[1] - '0';
+			buffer[i++] = JEQ;
+			buffer[i++] = reg1_n;
+			buffer[i++] = addr;
+		}
+		else if (strncmp(line, "JMP", 3) == 0)
+		{
+			sscanf(line, "%s %d", instruction, &addr);	
+			buffer[i++] = JMP;
+			buffer[i++] = addr;
+		}
+		else if (strncmp(line, "OUT", 3) == 0)
+		{
+			sscanf(line, "%s %s", instruction, reg1);
+			int reg1_n = reg1[1] - '0';
+			buffer[i++] = OUT;
+			buffer[i++] = reg1_n;
+		}
+		else if (strncmp(line, "IN", 2) == 0)
+		{
+			sscanf(line, "%s %s", instruction, reg1);
+			int reg1_n = reg1[1] - '0';
+			buffer[i++] = IN;
+			buffer[i++] = reg1_n;
+		}
+		else if (strncmp(line, "PUT", 3) == 0)
+		{
+			sscanf(line, "%s %[^,], %d", instruction, reg1, &value);
+			int reg1_n = reg1[1] - '0';
+			buffer[i++] = PUT;
+			buffer[i++] = reg1_n;
+			buffer[i++] = value;
+		}
+		else {
+			printf("Unknown instruction '%s'\n", line);
+		}
+	}
+
+	fwrite(buffer, sizeof(uint8_t), i, bin_fp);
+
+	fclose(fp);
+	fclose(bin_fp);
+}
+
+int main(int argc, char* argv[])
+{
+	if (argc < 2)
+	{
+		printf("Usage: %s <assembly file>\n", argv[0]);
+		exit(1);
+	}
+	assemble(argv[1]);
+	return 0;
+}