Added early generation assembler for other people to experiment
This commit is contained in:
Jeremiah Orians
parent
53d32a2ac3
commit
247165986c
|
|
@ -0,0 +1,465 @@
|
|||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
#include <stdint.h>
|
||||
#include <stdbool.h>
|
||||
#include <string.h>
|
||||
#define max_string 255
|
||||
|
||||
FILE* source_file;
|
||||
bool Reached_EOF;
|
||||
uint32_t ip;
|
||||
|
||||
struct Token
|
||||
{
|
||||
char Text[max_string + 1];
|
||||
char Expression[max_string + 1];
|
||||
uint32_t type;
|
||||
uint32_t size;
|
||||
uint32_t address;
|
||||
struct Token* next;
|
||||
struct Token* prev;
|
||||
};
|
||||
|
||||
enum type
|
||||
{
|
||||
EOL = 1,
|
||||
comment = (1 << 1),
|
||||
address = (1 << 2)
|
||||
};
|
||||
|
||||
struct Token* newToken()
|
||||
{
|
||||
struct Token* p;
|
||||
|
||||
p = calloc (1, sizeof (struct Token));
|
||||
if (NULL == p)
|
||||
{
|
||||
fprintf (stderr, "calloc failed.\n");
|
||||
exit (EXIT_FAILURE);
|
||||
}
|
||||
|
||||
p->size = -1;
|
||||
p->address = 0;
|
||||
|
||||
return p;
|
||||
}
|
||||
|
||||
void setText(struct Token* p, char Text[])
|
||||
{
|
||||
strncpy(p->Text, Text, max_string);
|
||||
}
|
||||
|
||||
struct Token* addToken(struct Token* head, struct Token* p)
|
||||
{
|
||||
if(NULL == head)
|
||||
{
|
||||
return p;
|
||||
}
|
||||
if(NULL == head->next)
|
||||
{
|
||||
head->next = p;
|
||||
p->prev = head;
|
||||
}
|
||||
else
|
||||
{
|
||||
addToken(head->next, p);
|
||||
}
|
||||
return head;
|
||||
}
|
||||
|
||||
struct Token* Tokenize_Line(struct Token* head)
|
||||
{
|
||||
char store[max_string + 1] = {0};
|
||||
int32_t c;
|
||||
uint32_t i;
|
||||
struct Token* p = newToken();
|
||||
|
||||
Restart:
|
||||
p->type = p->type & ~(comment);
|
||||
|
||||
for(i = 0; i < max_string; i = i + 1)
|
||||
{
|
||||
c = fgetc(source_file);
|
||||
if(-1 == c)
|
||||
{
|
||||
Reached_EOF = true;
|
||||
goto Token_complete;
|
||||
}
|
||||
else if((10 == c) || (13 == c))
|
||||
{
|
||||
p->type = p->type | EOL;
|
||||
if(1 > i)
|
||||
{
|
||||
goto Restart;
|
||||
}
|
||||
else
|
||||
{
|
||||
goto Token_complete;
|
||||
}
|
||||
}
|
||||
else if((!(p->type & comment)) && ((32 == c) || (9 == c)))
|
||||
{
|
||||
if(2 > i)
|
||||
{
|
||||
goto Restart;
|
||||
}
|
||||
else
|
||||
{
|
||||
goto Token_complete;
|
||||
}
|
||||
}
|
||||
else if((!(p->type & comment )) && ((35 == c) ||(59 == c)))
|
||||
{
|
||||
p->type = p->type | comment;
|
||||
store[i] = (char)c;
|
||||
}
|
||||
else
|
||||
{
|
||||
store[i] = (char)c;
|
||||
}
|
||||
}
|
||||
|
||||
Token_complete:
|
||||
setText(p, store);
|
||||
return addToken(head, p);
|
||||
}
|
||||
|
||||
void setExpression(struct Token* p, char match[], char Exp[], uint32_t size)
|
||||
{
|
||||
if(NULL != p->next)
|
||||
{
|
||||
setExpression(p->next, match, Exp, size);
|
||||
}
|
||||
|
||||
/* Leave Comments alone */
|
||||
if((p->type & comment))
|
||||
{
|
||||
return;
|
||||
}
|
||||
|
||||
/* Only if there is an exact match replace */
|
||||
if(0 == strncmp(p->Text, match, max_string))
|
||||
{
|
||||
strncpy(p->Expression, Exp, max_string);
|
||||
p->size = size;
|
||||
}
|
||||
}
|
||||
|
||||
void assemble(struct Token* p)
|
||||
{
|
||||
/* Registers */
|
||||
setExpression(p, "R0", "0", 0);
|
||||
setExpression(p, "R1", "1", 0);
|
||||
setExpression(p, "R2", "2", 0);
|
||||
setExpression(p, "R3", "3", 0);
|
||||
setExpression(p, "R4", "4", 0);
|
||||
setExpression(p, "R5", "5", 0);
|
||||
setExpression(p, "R6", "6", 0);
|
||||
setExpression(p, "R7", "7", 0);
|
||||
setExpression(p, "R8", "8", 0);
|
||||
setExpression(p, "R9", "9", 0);
|
||||
setExpression(p, "R10", "A", 0);
|
||||
setExpression(p, "R11", "B", 0);
|
||||
setExpression(p, "R12", "C", 0);
|
||||
setExpression(p, "R13", "D", 0);
|
||||
setExpression(p, "R14", "E", 0);
|
||||
setExpression(p, "R15", "F", 0);
|
||||
|
||||
/* 4OP Integer Group */
|
||||
setExpression(p, "ADD.CI", "0100", 4);
|
||||
setExpression(p, "ADD.CO", "0101", 4);
|
||||
setExpression(p, "ADD.CIO", "0102", 4);
|
||||
setExpression(p, "ADDU.CI", "0103", 4);
|
||||
setExpression(p, "ADDU.CO", "0104", 4);
|
||||
setExpression(p, "ADDU.CIO", "0105", 4);
|
||||
setExpression(p, "SUB.BI", "0106", 4);
|
||||
setExpression(p, "SUB.BO", "0107", 4);
|
||||
setExpression(p, "SUB.BIO", "0108", 4);
|
||||
setExpression(p, "SUBU.BI", "0109", 4);
|
||||
setExpression(p, "SUBU.BO", "010A", 4);
|
||||
setExpression(p, "SUBU.BIO", "010B", 4);
|
||||
setExpression(p, "MULTIPLY", "010C", 4);
|
||||
setExpression(p, "MULTIPLYU", "010D", 4);
|
||||
setExpression(p, "DIVIDE", "010E", 4);
|
||||
setExpression(p, "DIVIDEU", "010F", 4);
|
||||
setExpression(p, "MUX", "0110", 4);
|
||||
setExpression(p, "NMUX", "0111", 4);
|
||||
setExpression(p, "SORT", "0112", 4);
|
||||
setExpression(p, "SORTU", "0113", 4);
|
||||
|
||||
/* 3OP Integer Group */
|
||||
setExpression(p, "ADD", "05000", 4);
|
||||
setExpression(p, "ADDU", "05001", 4);
|
||||
setExpression(p, "SUB", "05002", 4);
|
||||
setExpression(p, "SUBU", "05003", 4);
|
||||
setExpression(p, "CMP", "05004", 4);
|
||||
setExpression(p, "CMPU", "05005", 4);
|
||||
setExpression(p, "MUL", "05006", 4);
|
||||
setExpression(p, "MULH", "05007", 4);
|
||||
setExpression(p, "MULU", "05008", 4);
|
||||
setExpression(p, "MULUH", "05009", 4);
|
||||
setExpression(p, "DIV", "0500A", 4);
|
||||
setExpression(p, "MOD", "0500B", 4);
|
||||
setExpression(p, "DIVU", "0500C", 4);
|
||||
setExpression(p, "MODU", "0500D", 4);
|
||||
setExpression(p, "MAX", "05010", 4);
|
||||
setExpression(p, "MAXU", "05011", 4);
|
||||
setExpression(p, "MIN", "05012", 4);
|
||||
setExpression(p, "MINU", "05013", 4);
|
||||
setExpression(p, "PACK", "05014", 4);
|
||||
setExpression(p, "UNPACK", "05015", 4);
|
||||
setExpression(p, "PACK8.CO", "05016", 4);
|
||||
setExpression(p, "PACK8U.CO", "05017", 4);
|
||||
setExpression(p, "PACK16.CO", "05018", 4);
|
||||
setExpression(p, "PACK16U.CO", "05019", 4);
|
||||
setExpression(p, "PACK32.CO", "0501A", 4);
|
||||
setExpression(p, "PACK32U.CO", "0501B", 4);
|
||||
setExpression(p, "AND", "05020", 4);
|
||||
setExpression(p, "OR", "05021", 4);
|
||||
setExpression(p, "XOR", "05022", 4);
|
||||
setExpression(p, "NAND", "05023", 4);
|
||||
setExpression(p, "NOR", "05024", 4);
|
||||
setExpression(p, "XNOR", "05025", 4);
|
||||
setExpression(p, "MPQ", "05026", 4);
|
||||
setExpression(p, "LPQ", "05027", 4);
|
||||
setExpression(p, "CPQ", "05028", 4);
|
||||
setExpression(p, "BPQ", "05029", 4);
|
||||
setExpression(p, "SAL", "05030", 4);
|
||||
setExpression(p, "SAR", "05031", 4);
|
||||
setExpression(p, "SL0", "05032", 4);
|
||||
setExpression(p, "SR0", "05033", 4);
|
||||
setExpression(p, "SL1", "05034", 4);
|
||||
setExpression(p, "SR1", "05035", 4);
|
||||
setExpression(p, "ROL", "05036", 4);
|
||||
setExpression(p, "ROR", "05037", 4);
|
||||
|
||||
/* 2OP Integer Group */
|
||||
setExpression(p, "NEG", "090000", 4);
|
||||
setExpression(p, "ABS", "090001", 4);
|
||||
setExpression(p, "NABS", "090002", 4);
|
||||
setExpression(p, "SWAP", "090003", 4);
|
||||
setExpression(p, "COPY", "090004", 4);
|
||||
setExpression(p, "MOVE", "090005", 4);
|
||||
setExpression(p, "BRANCH", "090100", 4);
|
||||
setExpression(p, "CALL", "090101", 4);
|
||||
|
||||
/* 1OP Group */
|
||||
setExpression(p, "READPC", "0D00000", 4);
|
||||
setExpression(p, "READSCID", "0D00001", 4);
|
||||
setExpression(p, "FALSE", "0D00002", 4);
|
||||
setExpression(p, "TRUE", "0D00003", 4);
|
||||
setExpression(p, "JSR_COROUTINE", "0D01000", 4);
|
||||
setExpression(p, "RET", "0D01001", 4);
|
||||
setExpression(p, "PUSHPC", "0D02000", 4);
|
||||
setExpression(p, "POPPC", "0D02001", 4);
|
||||
|
||||
/* 2OPI Group */
|
||||
setExpression(p, "ADDI", "0E", 4);
|
||||
setExpression(p, "ADDUI", "0F", 4);
|
||||
setExpression(p, "SUBI", "10", 4);
|
||||
setExpression(p, "SUBI", "11", 4);
|
||||
setExpression(p, "CMPI", "12", 4);
|
||||
setExpression(p, "LOAD", "13", 4);
|
||||
setExpression(p, "LOAD8", "14", 4);
|
||||
setExpression(p, "LOADU8", "15", 4);
|
||||
setExpression(p, "LOAD16", "16", 4);
|
||||
setExpression(p, "LOADU16", "17", 4);
|
||||
setExpression(p, "LOAD32", "18", 4);
|
||||
setExpression(p, "LOADU32", "19", 4);
|
||||
setExpression(p, "CMPUI", "1F", 4);
|
||||
setExpression(p, "STORE", "20", 4);
|
||||
setExpression(p, "STORE8", "21", 4);
|
||||
setExpression(p, "STOREU8", "22", 4);
|
||||
setExpression(p, "STORE16", "23", 4);
|
||||
setExpression(p, "STOREU16", "24", 4);
|
||||
setExpression(p, "STORE32", "25", 4);
|
||||
setExpression(p, "STOREU32", "26", 4);
|
||||
|
||||
/* 1OPI Group */
|
||||
setExpression(p, "JUMP.C", "2C0", 4);
|
||||
setExpression(p, "JUMP.B", "2C1", 4);
|
||||
setExpression(p, "JUMP.O", "2C2", 4);
|
||||
setExpression(p, "JUMP.G", "2C3", 4);
|
||||
setExpression(p, "JUMP.GE", "2C4", 4);
|
||||
setExpression(p, "JUMP.E", "2C5", 4);
|
||||
setExpression(p, "JUMP.NE", "2C6", 4);
|
||||
setExpression(p, "JUMP.LE", "2C7", 4);
|
||||
setExpression(p, "JUMP.L", "2C8", 4);
|
||||
setExpression(p, "JUMP.Z", "2C9", 4);
|
||||
setExpression(p, "JUMP.NZ", "2CA", 4);
|
||||
|
||||
/* 0OPI Group */
|
||||
setExpression(p, "JUMP", "3C00", 4);
|
||||
|
||||
/* HALCODE Group */
|
||||
setExpression(p, "FOPEN", "42100000", 4);
|
||||
setExpression(p, "FCLOSE", "42100001", 4);
|
||||
setExpression(p, "FSEEK", "42100002", 4);
|
||||
setExpression(p, "REWIND", "42100003", 4);
|
||||
setExpression(p, "FGETC", "42100100", 4);
|
||||
setExpression(p, "FPUTC", "42100200", 4);
|
||||
|
||||
//setExpression(p, "", "");
|
||||
/* 0OP Group*/
|
||||
setExpression(p, "NOP", "00 00 00 00", 4);
|
||||
setExpression(p, "HALT", "FF FF FF FF", 4);
|
||||
}
|
||||
|
||||
void assign_addresses(struct Token* p)
|
||||
{
|
||||
if(-1 == (int32_t)p->size)
|
||||
{
|
||||
p->address = ip;
|
||||
}
|
||||
else if(0 == p->size)
|
||||
{
|
||||
p->address = p->prev->address;
|
||||
}
|
||||
else
|
||||
{
|
||||
p->address = ip;
|
||||
ip = ip + p->size;
|
||||
}
|
||||
|
||||
if(NULL != p->next)
|
||||
{
|
||||
assign_addresses(p->next);
|
||||
}
|
||||
}
|
||||
|
||||
uint32_t get_address(struct Token* p, char match[])
|
||||
{
|
||||
if(0 == strncmp(p->Text, match, max_string))
|
||||
{
|
||||
return p->address;
|
||||
}
|
||||
|
||||
if(NULL != p->next)
|
||||
{
|
||||
return get_address(p->next, match);
|
||||
}
|
||||
|
||||
return -1;
|
||||
}
|
||||
|
||||
void update_jumps(struct Token* head, struct Token* p)
|
||||
{
|
||||
uint32_t dest = -1;
|
||||
|
||||
if('@' == p->Text[0])
|
||||
{
|
||||
dest = get_address(head, p->Text + 1);
|
||||
}
|
||||
|
||||
if(-1 != (int32_t)dest)
|
||||
{
|
||||
int16_t dist = 0;
|
||||
dist = dest - p->address + 4;
|
||||
sprintf(p->Expression, "%04x", (uint16_t)dist);
|
||||
}
|
||||
|
||||
if(NULL != p->next)
|
||||
{
|
||||
update_jumps(head, p->next);
|
||||
}
|
||||
}
|
||||
|
||||
uint16_t numerate_string(char a[])
|
||||
{
|
||||
char *ptr;
|
||||
return (uint16_t)strtol(a, &ptr, 0);
|
||||
}
|
||||
|
||||
void eval_immediates(struct Token* p)
|
||||
{
|
||||
char tmp[max_string + 1] = {0};
|
||||
|
||||
if(0 == strncmp(p->Expression, tmp, max_string))
|
||||
{
|
||||
uint16_t value;
|
||||
value = numerate_string(p->Text);
|
||||
|
||||
if(0 != value)
|
||||
{
|
||||
sprintf(p->Expression, "%04x", value);
|
||||
}
|
||||
}
|
||||
|
||||
if(NULL != p->next)
|
||||
{
|
||||
eval_immediates(p->next);
|
||||
}
|
||||
}
|
||||
|
||||
void print_text(struct Token* p)
|
||||
{
|
||||
fprintf(stdout, " %s", p->Text);
|
||||
|
||||
if((NULL != p->next) && !((p->type & EOL)))
|
||||
{
|
||||
print_text(p->next);
|
||||
}
|
||||
}
|
||||
|
||||
struct Token* print_Expression(struct Token* p)
|
||||
{
|
||||
if(!(p->type & comment))
|
||||
{
|
||||
fprintf(stdout, "%s", p->Expression);
|
||||
}
|
||||
else
|
||||
{
|
||||
return p->next;
|
||||
}
|
||||
|
||||
if((NULL != p->next) && !((p->type & EOL)))
|
||||
{
|
||||
return print_Expression(p->next);
|
||||
}
|
||||
|
||||
return p->next;
|
||||
}
|
||||
|
||||
void print_hex(struct Token* p)
|
||||
{
|
||||
struct Token* n = NULL;
|
||||
fprintf(stdout, "#");
|
||||
print_text(p);
|
||||
fprintf(stdout, "\n");
|
||||
n = print_Expression(p);
|
||||
fprintf(stdout, "\n");
|
||||
|
||||
if(NULL != n)
|
||||
{
|
||||
print_hex(n);
|
||||
}
|
||||
}
|
||||
|
||||
/* Standard C main program */
|
||||
int main(int argc, char **argv)
|
||||
{
|
||||
/* Make sure we have a program tape to run */
|
||||
if (argc < 2)
|
||||
{
|
||||
fprintf(stderr, "Usage: %s $FileName\nWhere $FileName is the name of the paper tape of the program being run\n", argv[0]);
|
||||
return EXIT_FAILURE;
|
||||
}
|
||||
|
||||
source_file = fopen(argv[1], "r");
|
||||
|
||||
Reached_EOF = false;
|
||||
ip = 0;
|
||||
struct Token* head = NULL;
|
||||
while(!Reached_EOF)
|
||||
{
|
||||
head = Tokenize_Line(head);
|
||||
}
|
||||
|
||||
assemble(head);
|
||||
assign_addresses(head);
|
||||
update_jumps(head, head);
|
||||
eval_immediates(head);
|
||||
print_hex(head);
|
||||
|
||||
return EXIT_SUCCESS;
|
||||
}
|
||||
Loading…
Reference in New Issue