Compare commits
11 Commits
37843d9356
...
old
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
509dc5e947 | ||
|
|
c6ae64250d | ||
|
|
ffc04172ae | ||
|
|
f5cab7c013 | ||
| de248a5943 | |||
| 4994bd6071 | |||
| 0b042fb912 | |||
|
|
77cae7467e | ||
| 6ea2a7e735 | |||
| 8a89c6bf70 | |||
| 88271c91ca |
8
Makefile
8
Makefile
@@ -3,9 +3,6 @@
|
|||||||
# Compiler
|
# Compiler
|
||||||
CC = gcc
|
CC = gcc
|
||||||
|
|
||||||
# program to Run
|
|
||||||
F = prog.bin
|
|
||||||
|
|
||||||
# Compiler flags
|
# Compiler flags
|
||||||
CFLAGS = -g -Wall -std=c99 -pedantic
|
CFLAGS = -g -Wall -std=c99 -pedantic
|
||||||
|
|
||||||
@@ -22,11 +19,8 @@ all:
|
|||||||
clean:
|
clean:
|
||||||
rm -f $(OBJ) $(TARGET)
|
rm -f $(OBJ) $(TARGET)
|
||||||
|
|
||||||
debug: all
|
|
||||||
./$(TARGET) --debug $(F)
|
|
||||||
|
|
||||||
run: all
|
run: all
|
||||||
./$(TARGET) $(F)
|
./$(TARGET)
|
||||||
|
|
||||||
nja: ./nja/nja$(V)
|
nja: ./nja/nja$(V)
|
||||||
./nja/nja$(V) $(IN) $(OUT)
|
./nja/nja$(V) $(IN) $(OUT)
|
||||||
|
|||||||
21
SDA.c
21
SDA.c
@@ -4,23 +4,24 @@
|
|||||||
#ifndef SDA
|
#ifndef SDA
|
||||||
#define SDA
|
#define SDA
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
#include "stackslot.c"
|
|
||||||
struct sda {
|
struct sda {
|
||||||
int *size;
|
unsigned int *sda;
|
||||||
ObjRef *sda;
|
int size;
|
||||||
};
|
};
|
||||||
|
|
||||||
ObjRef getSDA(int i, struct sda s) {
|
int getSDA(unsigned int offset, struct sda *sda) {
|
||||||
return s.sda[i];
|
return sda->sda[offset];
|
||||||
}
|
}
|
||||||
|
|
||||||
void setSDA(int point, ObjRef val, struct sda s) {
|
void setSDA(unsigned int offset, int value, struct sda *sda) {
|
||||||
s.sda[point] = val;
|
sda->sda[offset] = value;
|
||||||
}
|
}
|
||||||
|
|
||||||
void printSDA(struct sda s) {
|
void printSDA(struct sda *sda) {
|
||||||
for (int i = 0; i < *s.size; i++) {
|
printf("SDA:\n");
|
||||||
printf("%i\n", *(int *)getSDA(i, s)->data);
|
for (int i = 0; i < sda->size; ++i) {
|
||||||
|
printf("[%d] = %d\n", i, sda->sda[i]);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|||||||
@@ -6,13 +6,13 @@
|
|||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
#include "program.c"
|
#include "program.c"
|
||||||
|
|
||||||
unsigned int fromFile(char *path, struct program program) {
|
unsigned int fromFile(char *path, struct program *program) {
|
||||||
unsigned int countInstructions;
|
unsigned int countInstructions;
|
||||||
unsigned int staticVars;
|
unsigned int staticVars;
|
||||||
FILE *fptr;
|
FILE *fptr;
|
||||||
fptr = fopen(path, "r");
|
fptr = fopen(path, "r");
|
||||||
if (fptr == NULL) {
|
if (fptr == NULL) {
|
||||||
printf("Error: cannot open code file %s", path);
|
printf("Error: cannot open code file %s\n", path);
|
||||||
exit(EXIT_FAILURE);
|
exit(EXIT_FAILURE);
|
||||||
}
|
}
|
||||||
unsigned int buffer[4];
|
unsigned int buffer[4];
|
||||||
|
|||||||
6
consts.c
6
consts.c
@@ -1,7 +1,5 @@
|
|||||||
#ifndef CONSTS
|
#ifndef CONSTS
|
||||||
#define CONSTS
|
#define CONSTS
|
||||||
#define VERSION 5
|
#define VERSION 4
|
||||||
|
|
||||||
#endif /* ifndef CONSTS
|
#endif
|
||||||
#define CONSTS
|
|
||||||
#define VERSION 2; */
|
|
||||||
|
|||||||
40
debugMenu.c
40
debugMenu.c
@@ -1,40 +0,0 @@
|
|||||||
#ifndef DEBUGMENU
|
|
||||||
#define DEBUGMENU
|
|
||||||
#include <stdio.h>
|
|
||||||
#include <stdlib.h>
|
|
||||||
#include <string.h>
|
|
||||||
#include "stack.c"
|
|
||||||
#include "stack.c"
|
|
||||||
|
|
||||||
void inspect(struct stack s, int fp){
|
|
||||||
char input[20];
|
|
||||||
printf("DEBUG [inspect]: stack, datam object?");
|
|
||||||
fgets(input,20,stdin);
|
|
||||||
if (input[0] == 's') printStack(s, fp);
|
|
||||||
if (input[0] == 'd'){/* todo */ }
|
|
||||||
if (input[0] == 'o'){/* todo */}
|
|
||||||
}
|
|
||||||
void list(){
|
|
||||||
//todo
|
|
||||||
}
|
|
||||||
void breakpoint(){
|
|
||||||
//todo
|
|
||||||
}
|
|
||||||
|
|
||||||
void debugMenu(int fp, struct stack stack, int* debug){
|
|
||||||
char input[20];
|
|
||||||
while (true) {
|
|
||||||
printf("DEBUG: inspect, list, breakpoint, run, step, quit?");
|
|
||||||
fgets(input, 20, stdin);
|
|
||||||
printf("%s",input);
|
|
||||||
if(input[0] == 'i') {inspect(stack,fp);}
|
|
||||||
if(input[0] == 'l') list();
|
|
||||||
if(input[0] == 'b') breakpoint();
|
|
||||||
if(input[0] == 's') break;
|
|
||||||
if(input[0] == 'r') {*debug = 0; break;};
|
|
||||||
if(input[0] == 'q') exit(0);
|
|
||||||
strcpy(input, "");
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
#endif /* ifndef DEBUGMENU */
|
|
||||||
@@ -34,8 +34,5 @@
|
|||||||
#define CALL 26
|
#define CALL 26
|
||||||
#define RET 27
|
#define RET 27
|
||||||
#define DROP 28
|
#define DROP 28
|
||||||
#define PUSHR 29
|
|
||||||
#define POPR 30
|
|
||||||
#define DUP 31
|
|
||||||
|
|
||||||
#endif /* ifndef INSREUKTION */
|
#endif /* ifndef INSREUKTION */
|
||||||
|
|||||||
398
njvm.c
398
njvm.c
@@ -1,251 +1,303 @@
|
|||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
#include <stdlib.h>
|
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
|
#include "consts.c"
|
||||||
#include "instruktion.c"
|
#include "instruktion.c"
|
||||||
#include "code.c"
|
#include "code.c"
|
||||||
#include "stack.c"
|
#include "stack.c"
|
||||||
#include "program.c"
|
#include "program.c"
|
||||||
#include "codeReader.c"
|
#include "codeReader.c"
|
||||||
#include "SDA.c"
|
#include "SDA.c"
|
||||||
#include "reg.c"
|
|
||||||
#include "debugMenu.c"
|
|
||||||
|
|
||||||
// Debug
|
|
||||||
int debug = 0;
|
|
||||||
|
|
||||||
// Stack
|
|
||||||
struct stack stack;
|
|
||||||
#define SIZE 1000
|
|
||||||
|
|
||||||
//Register
|
|
||||||
struct reg reg;
|
|
||||||
|
|
||||||
// Program
|
// Program
|
||||||
struct program program;
|
struct program *program;
|
||||||
|
|
||||||
// SDA
|
// SDA
|
||||||
struct sda sda;
|
int fp;
|
||||||
unsigned fp;
|
int debug = 0;
|
||||||
|
|
||||||
void version(void) {
|
void version(void) {
|
||||||
printf("Ninja Virtual Machine version %i (compiled %s, %s)\n", 0, __DATE__, __TIME__);
|
printf("Ninja Virtual Machine version %i (compiled %s, %s)\n", VERSION, __DATE__, __TIME__);
|
||||||
}
|
}
|
||||||
|
|
||||||
void help(void) {
|
void help(void) {
|
||||||
printf("Usage: ./njvm [options] <code file>\n\t--debug\tstart virtual machine in debug mode\n\t--version\tshow version and exit\n\t--help\t\tshow this help and exit\n");
|
printf("Usage: ./njvm [options] <code file>\n\t--debug\tstart virtual machine in debug mode\n\t--version\tshow version and exit\n\t--help\t\tshow this help and exit\n");
|
||||||
}
|
}
|
||||||
|
|
||||||
void execute(struct program program) {
|
void execute(struct program *program, struct sda *sda) {
|
||||||
int i;
|
struct stack stack;
|
||||||
|
stack.size = 1000;
|
||||||
|
stack.currentFrame = 0;
|
||||||
|
struct stack callStack;
|
||||||
|
callStack.size = 1000;
|
||||||
|
callStack.currentFrame = 0;
|
||||||
|
|
||||||
|
for (int i = 0; i < stack.size; ++i) {
|
||||||
|
struct stackFrame *frame = malloc(sizeof(struct stackFrame));
|
||||||
|
frame->fp = malloc(sizeof(int) * stack.size);
|
||||||
|
frame->sp = malloc(sizeof(int) * stack.size);
|
||||||
|
frame->bp = NULL;
|
||||||
|
stack.frames[i] = frame;
|
||||||
|
}
|
||||||
|
|
||||||
|
for (int i = 0; i < callStack.size; ++i) {
|
||||||
|
struct stackFrame *frame = malloc(sizeof(struct stackFrame));
|
||||||
|
frame->fp = malloc(sizeof(int) * stack.size);
|
||||||
|
frame->sp = malloc(sizeof(int) * stack.size);
|
||||||
|
frame->bp = NULL;
|
||||||
|
callStack.frames[i] = frame;
|
||||||
|
}
|
||||||
|
|
||||||
|
struct stackFrame *currentFrame = NULL;
|
||||||
|
//struct stackFrame *currentCallFrame = NULL;
|
||||||
|
unsigned int tmp;
|
||||||
int intInput;
|
int intInput;
|
||||||
unsigned int temp;
|
|
||||||
char charInput;
|
char charInput;
|
||||||
StackSlot tempSlot;
|
|
||||||
for (i = 0; i < *program.size; ++i) {
|
for (int i = 0; i < program->size; ++i) {
|
||||||
if (debug == 1) debugMenu(fp,stack,&debug);
|
unsigned int instruction = program->program[i];
|
||||||
switch (program.program[i] >> 24) {
|
if (i >= program->size) {
|
||||||
|
printf("Error: Jump out of program memory\n");
|
||||||
|
goto end;
|
||||||
|
}
|
||||||
|
|
||||||
|
switch (instruction >> 24) {
|
||||||
case HALT:
|
case HALT:
|
||||||
if (debug == 1) printf("halt\n");
|
|
||||||
goto end;
|
goto end;
|
||||||
case PUSHC:
|
case PUSHC:
|
||||||
if (debug == 1) printf("pushc: %i\n", IMMEDIATE(program.program[i]));
|
if (debug == 1) printf("PUSHC %d\n", SIGN_EXTEND(IMMEDIATE(instruction)));
|
||||||
push(stack, stackSlotWithObjRef(getIntObj(SIGN_EXTEND(IMMEDIATE(program.program[i])))));
|
push(&stack, SIGN_EXTEND(IMMEDIATE(instruction)));
|
||||||
break;
|
break;
|
||||||
case ADD:
|
case ADD:
|
||||||
if (debug == 1) printf("add: %i + %i\n",peek(stack, 2),peek(stack, 1));
|
if (debug == 1) printf("ADD\n");
|
||||||
push(stack, stackSlotWithObjRef(getIntObj(getIntValfromStackSlot(pop(stack)) + getIntValfromStackSlot(pop(stack)))));
|
push(&stack, pop(&stack) + pop(&stack));
|
||||||
break;
|
break;
|
||||||
case SUB:
|
case SUB:
|
||||||
if (debug == 1) printf("sub: %i - %i\n", peek(stack, 2), peek(stack, 1));
|
tmp = pop(&stack);
|
||||||
temp = getIntValfromStackSlot(pop(stack));
|
if (debug == 1) printf("SUB\n");
|
||||||
push(stack, stackSlotWithObjRef(getIntObj(getIntValfromStackSlot(pop(stack)) - temp)));
|
if (debug == 1) printf("tmp: %d\n", tmp);
|
||||||
|
push(&stack, pop(&stack) - tmp);
|
||||||
break;
|
break;
|
||||||
case MUL:
|
case MUL:
|
||||||
if (debug == 1) printf("mul: %i * %i\n", peek(stack, 2), peek(stack, 1));
|
if (debug == 1) printf("MUL\n");
|
||||||
push(stack, stackSlotWithObjRef(getIntObj(getIntValfromStackSlot(pop(stack)) * getIntValfromStackSlot(pop(stack)))));
|
push(&stack, pop(&stack) * pop(&stack));
|
||||||
break;
|
break;
|
||||||
case DIV:
|
case DIV:
|
||||||
if (debug == 1) printf("div: %i / %i\n", peek(stack, 2), peek(stack, 1));
|
tmp = pop(&stack);
|
||||||
temp = getIntValfromStackSlot(pop(stack));
|
if (debug == 1) printf("DIV\n");
|
||||||
push(stack, stackSlotWithObjRef(getIntObj(getIntValfromStackSlot(pop(stack)) / temp)));
|
if (debug == 1) printf("tmp: %d\n", tmp);
|
||||||
|
push(&stack, pop(&stack) / tmp);
|
||||||
break;
|
break;
|
||||||
case MOD:
|
case MOD:
|
||||||
if (debug == 1) printf("mod: %i %% %i\n", peek(stack, 2), peek(stack, 1));
|
tmp = pop(&stack);
|
||||||
temp = getIntValfromStackSlot(pop(stack));
|
if (debug == 1) printf("MOD\n");
|
||||||
push(stack, stackSlotWithObjRef(getIntObj(getIntValfromStackSlot(pop(stack)))));
|
if (debug == 1) printf("tmp: %d\n", tmp);
|
||||||
|
push(&stack, pop(&stack) % tmp);
|
||||||
break;
|
break;
|
||||||
case RDINT:
|
case RDINT:
|
||||||
if (debug == 1) printf("rdint\n");
|
|
||||||
scanf("%i", &intInput);
|
scanf("%i", &intInput);
|
||||||
push(stack, stackSlotWithObjRef(getIntObj(intInput)));
|
if (debug == 1) printf("RDINT %d\n", intInput);
|
||||||
if (debug == 1) printf("pushed %i\n", intInput);
|
push(&stack, intInput);
|
||||||
break;
|
break;
|
||||||
case WRINT:
|
case WRINT:
|
||||||
if (debug == 1) printf("wrint: %i\n", peek(stack, 1));
|
if (debug == 1) printf("WRINT\n");
|
||||||
printf("%i", getIntValfromStackSlot(pop(stack)));
|
printf("%i", pop(&stack));
|
||||||
break;
|
break;
|
||||||
case RDCHR:
|
case RDCHR:
|
||||||
if (debug == 1) printf("rdchr\n");
|
|
||||||
scanf("%c", &charInput);
|
scanf("%c", &charInput);
|
||||||
push(stack, stackSlotWithObjRef(getIntObj(charInput)));
|
if (debug == 1) printf("RDCHR %c\n", charInput);
|
||||||
if (debug == 1) printf("pushed %c\n", charInput);
|
push(&stack, charInput);
|
||||||
break;
|
break;
|
||||||
case WRCHR:
|
case WRCHR:
|
||||||
if (debug == 1) printf("wrchr: %c\n", peek(stack, 1));
|
if (debug == 1) printf("WRCHR\n");
|
||||||
printf("%c", getIntValfromStackSlot(pop(stack)));
|
printf("%c", pop(&stack));
|
||||||
break;
|
break;
|
||||||
case PUSHG:
|
case PUSHG:
|
||||||
if (debug == 1) printf("pushg: %i\n", SIGN_EXTEND(IMMEDIATE(program.program[i])));
|
if (debug == 1) printf("PUSHG %d\n", SIGN_EXTEND(IMMEDIATE(instruction)));
|
||||||
push(stack, stackSlotWithObjRef(getSDA(SIGN_EXTEND(IMMEDIATE(program.program[i])), sda)));
|
currentFrame = stack.frames[stack.currentFrame];
|
||||||
|
currentFrame->bp = currentFrame->sp;
|
||||||
|
|
||||||
|
*currentFrame->sp++ = getSDA(SIGN_EXTEND(IMMEDIATE(instruction)), sda);
|
||||||
break;
|
break;
|
||||||
case POPG:
|
case POPG:
|
||||||
if (debug == 1) printf("popg: %i\n", SIGN_EXTEND(IMMEDIATE(program.program[i])));
|
if (debug == 1) printf("POPG %d\n", SIGN_EXTEND(IMMEDIATE(instruction)));
|
||||||
setSDA(SIGN_EXTEND(IMMEDIATE(program.program[i])), pop(stack).u.objRef, sda);
|
currentFrame = stack.frames[stack.currentFrame];
|
||||||
|
currentFrame->bp = currentFrame->sp;
|
||||||
|
|
||||||
|
setSDA(SIGN_EXTEND(IMMEDIATE(instruction)), pop(&stack), sda);
|
||||||
break;
|
break;
|
||||||
case ASF:
|
case ASF:
|
||||||
if (debug == 1) printf("asf: %i\n", SIGN_EXTEND(IMMEDIATE(program.program[i])));
|
if (debug == 1) printf("ASF %d\n", SIGN_EXTEND(IMMEDIATE(instruction)));
|
||||||
push(stack, stackSlotWitchNumber(fp));
|
currentFrame = stack.frames[stack.currentFrame];
|
||||||
fp = *stack.current;
|
push(&stack, *currentFrame->sp);
|
||||||
*stack.current = *stack.current + SIGN_EXTEND(IMMEDIATE(program.program[i]));
|
*currentFrame->sp = stack.currentFrame;
|
||||||
|
currentFrame->bp = currentFrame->sp;
|
||||||
|
|
||||||
|
stack.currentFrame += SIGN_EXTEND(IMMEDIATE(instruction));
|
||||||
break;
|
break;
|
||||||
case RSF:
|
case RSF:
|
||||||
if (debug == 1) printf("rsf: %i\n", SIGN_EXTEND(IMMEDIATE(program.program[i])));
|
if (debug == 1) printf("RSF\n");
|
||||||
*stack.current = fp;
|
stack.currentFrame = pop(&stack);
|
||||||
if (debug == 1) printf("pop: %i\n", peek(stack, 1));
|
currentFrame = stack.frames[stack.currentFrame];
|
||||||
tempSlot = pop(stack) ;
|
currentFrame->bp = NULL;
|
||||||
fp = getIntValfromStackSlot(tempSlot);
|
|
||||||
break;
|
|
||||||
case POPL:
|
|
||||||
if (debug == 1) printf("popl: %i\n", SIGN_EXTEND(IMMEDIATE(program.program[i])));
|
|
||||||
stack.stack[fp + SIGN_EXTEND(IMMEDIATE(program.program[i]))] = pop(stack);
|
|
||||||
break;
|
break;
|
||||||
case PUSHL:
|
case PUSHL:
|
||||||
if (debug == 1) printf("pushl: %i\n", SIGN_EXTEND(IMMEDIATE(program.program[i])));
|
printf("PUSHL %d\n", SIGN_EXTEND(IMMEDIATE(instruction)));
|
||||||
push(stack, stack.stack[fp + SIGN_EXTEND(IMMEDIATE(program.program[i]))]);
|
currentFrame = stack.frames[stack.currentFrame];
|
||||||
|
currentFrame->bp = currentFrame->sp;
|
||||||
|
int x = SIGN_EXTEND(IMMEDIATE(instruction));
|
||||||
|
push(&stack, currentFrame->fp[x]);
|
||||||
break;
|
break;
|
||||||
case NE:
|
case POPL:
|
||||||
if (debug == 1) printf("ne: %i != %i\n", peek(stack, 2), peek(stack, 1));
|
if (debug == 1) printf("POPL %d\n", SIGN_EXTEND(IMMEDIATE(instruction)));
|
||||||
if (getIntValfromStackSlot(pop(stack)) != getIntValfromStackSlot(pop(stack))) push(stack, stackSlotWitchNumber(1));
|
currentFrame = stack.frames[stack.currentFrame];
|
||||||
else push(stack, stackSlotWitchNumber(0));
|
currentFrame->fp[SIGN_EXTEND(IMMEDIATE(instruction))] = pop(&stack);
|
||||||
break;
|
break;
|
||||||
case EQ:
|
case EQ:
|
||||||
if (debug == 1) printf("eq: %i == %i\n", peek(stack, 2), peek(stack, 1));
|
if (debug == 1) printf("EQ\n");
|
||||||
if (getIntValfromStackSlot(pop(stack)) == getIntValfromStackSlot(pop(stack))) push(stack, stackSlotWitchNumber(1));
|
if (pop(&stack) == pop(&stack)) {
|
||||||
else push(stack, stackSlotWitchNumber(0));
|
push(&stack, 1);
|
||||||
break;
|
} else {
|
||||||
case LT:
|
push(&stack, 0);
|
||||||
if (debug == 1) printf("lt: %i < %i\n", peek(stack, 2), peek(stack, 1));
|
|
||||||
temp = getIntValfromStackSlot(pop(stack));
|
|
||||||
if (getIntValfromStackSlot(pop(stack)) < temp) push(stack, stackSlotWitchNumber(1));
|
|
||||||
else push(stack, stackSlotWitchNumber(0));
|
|
||||||
break;
|
|
||||||
case LE:
|
|
||||||
if (debug == 1) printf("le: %i <= %i\n", peek(stack, 2), peek(stack, 1));
|
|
||||||
temp = getIntValfromStackSlot(pop(stack));
|
|
||||||
if (getIntValfromStackSlot(pop(stack)) <= temp) push(stack, stackSlotWitchNumber(1));
|
|
||||||
else push(stack, stackSlotWitchNumber(0));
|
|
||||||
break;
|
|
||||||
case GT:
|
|
||||||
if (debug == 1) printf("gt: %i > %i\n", peek(stack, 2), peek(stack, 1));
|
|
||||||
temp = getIntValfromStackSlot(pop(stack));
|
|
||||||
if (getIntValfromStackSlot(pop(stack)) > temp) push(stack, stackSlotWitchNumber(1));
|
|
||||||
else push(stack, stackSlotWitchNumber(0));
|
|
||||||
break;
|
|
||||||
case GE:
|
|
||||||
if (debug == 1) printf("ge: %i >= %i\n", peek(stack, 2), peek(stack, 1));
|
|
||||||
temp = getIntValfromStackSlot(pop(stack));
|
|
||||||
if (getIntValfromStackSlot(pop(stack)) >= temp) push(stack, stackSlotWitchNumber(1));
|
|
||||||
else push(stack, stackSlotWitchNumber(0));
|
|
||||||
break;
|
|
||||||
case BRF:
|
|
||||||
if (debug == 1) printf("brf: %i\n", SIGN_EXTEND(IMMEDIATE(program.program[i])));
|
|
||||||
if (debug == 1) printf("pop: %i\n", peek(stack, 1));
|
|
||||||
if (getIntValfromStackSlot(pop(stack)) == 0) {
|
|
||||||
i = SIGN_EXTEND(IMMEDIATE(program.program[i])) - 1;
|
|
||||||
if (debug == 1) printf("new i: %i\n", i);
|
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
case BRT:
|
case NE:
|
||||||
if (debug == 1) printf("brt: %i\n", SIGN_EXTEND(IMMEDIATE(program.program[i])));
|
if (debug == 1) printf("NE\n");
|
||||||
if (debug == 1) printf("pop: %i\n", peek(stack, 1));
|
if (pop(&stack) != pop(&stack)) {
|
||||||
if (getIntValfromStackSlot(pop(stack)) == 1) {
|
push(&stack, 1);
|
||||||
i = SIGN_EXTEND(IMMEDIATE(program.program[i])) - 1;
|
} else {
|
||||||
if (debug == 1) printf("new i: %i\n", i);
|
push(&stack, 0);
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case LT:
|
||||||
|
if (debug == 1) printf("LT\n");
|
||||||
|
tmp = pop(&stack);
|
||||||
|
if (pop(&stack) < tmp) {
|
||||||
|
push(&stack, 1);
|
||||||
|
} else {
|
||||||
|
push(&stack, 0);
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case LE:
|
||||||
|
if (debug == 1) printf("LE\n");
|
||||||
|
tmp = pop(&stack);
|
||||||
|
if (pop(&stack) <= tmp) {
|
||||||
|
push(&stack, 1);
|
||||||
|
} else {
|
||||||
|
push(&stack, 0);
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case GT:
|
||||||
|
if (debug == 1) printf("GT\n");
|
||||||
|
if (debug == 1) printf("peek(1): %d\n", peek(&stack, 1));
|
||||||
|
if (debug == 1) printf("peek(2): %d\n", peek(&stack, 2));
|
||||||
|
if (debug == 1) printf("peek(1) > peek(2): %d\n", peek(&stack, 2) > peek(&stack, 1));
|
||||||
|
tmp = pop(&stack);
|
||||||
|
if (pop(&stack) > tmp) {
|
||||||
|
push(&stack, 1);
|
||||||
|
} else {
|
||||||
|
push(&stack, 0);
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case GE:
|
||||||
|
if (debug == 1) printf("GE\n");
|
||||||
|
tmp = pop(&stack);
|
||||||
|
if (pop(&stack) >= tmp) {
|
||||||
|
push(&stack, 1);
|
||||||
|
} else {
|
||||||
|
push(&stack, 0);
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
case JMP:
|
case JMP:
|
||||||
if (debug == 1) printf("jmp: %i\n", SIGN_EXTEND(IMMEDIATE(program.program[i])));
|
if (debug == 1) printf("JMP %d\n", SIGN_EXTEND(IMMEDIATE(instruction)));
|
||||||
i = SIGN_EXTEND(IMMEDIATE(program.program[i])) - 1;
|
int j = SIGN_EXTEND(IMMEDIATE(program->program[i]));
|
||||||
if (debug == 1) printf("new i: %i\n", i);
|
if (debug == 1) printf("JMP %d\n", j);
|
||||||
|
if (j-- >= program->size) {
|
||||||
|
printf("Error: Jump out of program memory\n");
|
||||||
|
goto end;
|
||||||
|
}
|
||||||
|
i = j;
|
||||||
|
break;
|
||||||
|
case BRF: // branch on false
|
||||||
|
if (debug == 1) printf("BRF %d\nStack: %d\n", SIGN_EXTEND(IMMEDIATE(instruction)), pop(&stack));
|
||||||
|
if (pop(&stack) == 0) {
|
||||||
|
int j = SIGN_EXTEND(IMMEDIATE(program->program[i]));
|
||||||
|
if (j-- >= program->size) {
|
||||||
|
printf("Error: BRF out of program memory\n");
|
||||||
|
goto end;
|
||||||
|
}
|
||||||
|
i = j;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case BRT:
|
||||||
|
if (debug == 1) printf("BRT %d\n", SIGN_EXTEND(IMMEDIATE(instruction)));
|
||||||
|
if (pop(&stack) == 1) {
|
||||||
|
int j = SIGN_EXTEND(IMMEDIATE(program->program[i]));
|
||||||
|
if (j-- >= program->size) {
|
||||||
|
printf("Error: BRT out of program memory\n");
|
||||||
|
goto end;
|
||||||
|
}
|
||||||
|
i = j;
|
||||||
|
}
|
||||||
break;
|
break;
|
||||||
case CALL:
|
case CALL:
|
||||||
if (debug == 1) printf("call: %i\n", SIGN_EXTEND(IMMEDIATE(program.program[i])));
|
tmp = SIGN_EXTEND(IMMEDIATE(program->program[i]));
|
||||||
push(stack, stackSlotWitchNumber(i));
|
if (j-- >= program->size) {
|
||||||
if (debug == 1) printf("push: %i\n", i + 1);
|
printf("Error: Call out of program memory\n");
|
||||||
i = SIGN_EXTEND(IMMEDIATE(program.program[i])) - 1;
|
goto end;
|
||||||
if (debug == 1) printf("new i: %i\n", i);
|
}
|
||||||
|
push(&callStack, i + 1);
|
||||||
|
i = tmp;
|
||||||
break;
|
break;
|
||||||
case RET:
|
case RET:
|
||||||
if (debug == 1) printf("ret\n");
|
if (debug == 1) printf("RET\n");
|
||||||
if (debug == 1) printf("pop: %i\n", peek(stack, 1));
|
tmp = pop(&callStack);
|
||||||
i = getIntValfromStackSlot(pop(stack));
|
if (tmp-- >= program->size) {
|
||||||
if (debug == 1) printf("new i: %i\n", i);
|
printf("Error: Return out of program memory\n");
|
||||||
|
goto end;
|
||||||
|
}
|
||||||
|
i = tmp;
|
||||||
break;
|
break;
|
||||||
case DROP:
|
case DROP:
|
||||||
if(debug ==1) printf("drop\n");
|
tmp = SIGN_EXTEND(IMMEDIATE(instruction));
|
||||||
*stack.current = *stack.current - SIGN_EXTEND(IMMEDIATE(program.program[i]));
|
if (debug == 1) printf("DROP %d\n", tmp);
|
||||||
break;
|
for (int b = 0; b < tmp; ++b) {
|
||||||
case DUP:
|
pop(&stack);
|
||||||
if (debug==1) printf("dup\n");
|
}
|
||||||
temp = getIntValfromStackSlot(pop(stack));
|
|
||||||
push(stack, stackSlotWitchNumber(temp));
|
|
||||||
push(stack, stackSlotWitchNumber(temp));
|
|
||||||
break;
|
|
||||||
case POPR:
|
|
||||||
if (debug==1) printf("popr") ;
|
|
||||||
pushR(reg, getIntValfromStackSlot(pop(stack)));
|
|
||||||
if(debug == 1) printStackR(reg);
|
|
||||||
break;
|
|
||||||
case PUSHR:
|
|
||||||
if(debug == 1) printf("pushr");
|
|
||||||
push(stack, stackSlotWitchNumber(popR(reg)));
|
|
||||||
if(debug == 1) printStackR(reg);
|
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
end:
|
end:
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
// run prog2.bin
|
||||||
void tests(void) {
|
void tests(void) {
|
||||||
|
printf("Test started\n");
|
||||||
|
/*struct sda *sda = malloc(sizeof(struct sda));
|
||||||
|
unsigned int s[1000];
|
||||||
|
sda->size = 1000;
|
||||||
|
sda->sda = s;
|
||||||
|
fromFile("prog2.bin", program);
|
||||||
|
execute(program, (struct sda *) &sda);*/
|
||||||
|
printf("Test finished\n");
|
||||||
}
|
}
|
||||||
|
|
||||||
int main(int argc, char *argv[]) {
|
int main(int argc, char *argv[]) {
|
||||||
// Initialize the Stack
|
// Initialize the Stack
|
||||||
|
struct stack stack;
|
||||||
int size = SIZE;
|
int size = SIZE;
|
||||||
int current = 0;
|
stack.size = size;
|
||||||
StackSlot s[SIZE];
|
stack.currentFrame = 0;
|
||||||
stack.size = &size;
|
|
||||||
stack.current = ¤t;
|
|
||||||
stack.stack = s;
|
|
||||||
|
|
||||||
// Initialize the registery
|
|
||||||
int rSize = SIZE;
|
|
||||||
int rCurrent = 0;
|
|
||||||
unsigned int r[SIZE];
|
|
||||||
reg.size = &rSize;
|
|
||||||
reg.current = &rCurrent;
|
|
||||||
reg.stack = r;
|
|
||||||
|
|
||||||
// Initialize ProgrammSpeicher
|
// Initialize ProgrammSpeicher
|
||||||
int psize = 1000;
|
int psize = SIZE;
|
||||||
int saveProgram = 0;
|
|
||||||
unsigned int p[1000];
|
unsigned int p[1000];
|
||||||
program.size = &psize;
|
program = malloc(sizeof(struct program));
|
||||||
program.program = p;
|
program->size = psize;
|
||||||
program.saveProgram = &saveProgram;
|
program->program = p;
|
||||||
|
|
||||||
|
// Initialize runtime variables
|
||||||
int run = 0;
|
int run = 0;
|
||||||
int sizeSDA;
|
int sizeSDA;
|
||||||
|
|
||||||
@@ -259,12 +311,6 @@ int main(int argc, char *argv[]) {
|
|||||||
} else if (strcmp(argv[i], "--help") == 0) {
|
} else if (strcmp(argv[i], "--help") == 0) {
|
||||||
help();
|
help();
|
||||||
return 0;
|
return 0;
|
||||||
} else if (strcmp(argv[i], "--stack") == 0) {
|
|
||||||
i++;
|
|
||||||
// TODO: implement stack size
|
|
||||||
} else if(strcmp(argv[i], "--heap") == 0) {
|
|
||||||
i++;
|
|
||||||
// TODO: implement heap size
|
|
||||||
} else {
|
} else {
|
||||||
sizeSDA = fromFile(argv[i], program);
|
sizeSDA = fromFile(argv[i], program);
|
||||||
run = 1;
|
run = 1;
|
||||||
@@ -272,20 +318,28 @@ int main(int argc, char *argv[]) {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Debug mode
|
||||||
|
*/
|
||||||
if (debug) {
|
if (debug) {
|
||||||
tests();
|
tests();
|
||||||
}
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Run program
|
||||||
|
*/
|
||||||
if (run) {
|
if (run) {
|
||||||
printf("Ninja Virtual Machine started\n");
|
printf("Ninja Virtual Machine started\n");
|
||||||
ObjRef s[sizeSDA];
|
struct sda *sda = malloc(sizeof(struct sda));
|
||||||
sda.size = &sizeSDA;
|
unsigned int s[sizeSDA];
|
||||||
sda.sda = s;
|
sda->size = sizeSDA;
|
||||||
|
sda->sda = s;
|
||||||
if (debug == 1) printProgram(program);
|
if (debug == 1) printProgram(program);
|
||||||
execute(program);
|
execute(program, (struct sda *) &sda);
|
||||||
printf("Ninja Virtual Machine stopped\n");
|
printf("Ninja Virtual Machine stopped\n");
|
||||||
} else {
|
} else {
|
||||||
printf("Error: no code file specified\n");
|
printf("Error: no code file specified\n");
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
|
return 0;
|
||||||
}
|
}
|
||||||
|
|||||||
50
program.c
50
program.c
@@ -9,23 +9,21 @@
|
|||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
|
|
||||||
struct program {
|
struct program {
|
||||||
int *size;
|
|
||||||
unsigned int *program;
|
unsigned int *program;
|
||||||
int *saveProgram;
|
int size;
|
||||||
};
|
};
|
||||||
|
|
||||||
void copyToProgram(const unsigned int codeToCopy[], int size, struct program program) {
|
void copyToProgram(const unsigned int codeToCopy[], int size, struct program *program) {
|
||||||
for (int i = 0; i < size; ++i) {
|
for (int i = 0; i < size; ++i) {
|
||||||
program.program[i] = codeToCopy[i];
|
program->program[i] = codeToCopy[i];
|
||||||
}
|
}
|
||||||
*program.size = size;
|
program->size = size;
|
||||||
*program.saveProgram = 1;
|
|
||||||
}
|
}
|
||||||
|
|
||||||
void printProgram(struct program program) {
|
void printProgram(struct program *program) {
|
||||||
char c[10];
|
char c[10];
|
||||||
for (int i = 0; i < *program.size; i++) {
|
for (int i = 0; i < program->size; i++) {
|
||||||
switch (program.program[i] >> 24) {
|
switch (program->program[i] >> 24) {
|
||||||
case PUSHC:
|
case PUSHC:
|
||||||
strcpy(c, "pushc");
|
strcpy(c, "pushc");
|
||||||
break;
|
break;
|
||||||
@@ -78,55 +76,43 @@ void printProgram(struct program program) {
|
|||||||
strcpy(c, "popl");
|
strcpy(c, "popl");
|
||||||
break;
|
break;
|
||||||
case EQ:
|
case EQ:
|
||||||
strcpy(c, "eq");
|
strcpy(c,"eq");
|
||||||
break;
|
break;
|
||||||
case NE:
|
case NE:
|
||||||
strcpy(c, "ne");
|
strcpy(c,"ne");
|
||||||
break;
|
break;
|
||||||
case LT:
|
case LT:
|
||||||
strcpy(c, "lt");
|
strcpy(c,"lt");
|
||||||
break;
|
|
||||||
case LE:
|
|
||||||
strcpy(c, "le");
|
|
||||||
break;
|
break;
|
||||||
case GT:
|
case GT:
|
||||||
strcpy(c, "gt");
|
strcpy(c,"gt");
|
||||||
break;
|
break;
|
||||||
case GE:
|
case GE:
|
||||||
strcpy(c, "ge");
|
strcpy(c,"ge");
|
||||||
break;
|
break;
|
||||||
case JMP:
|
case JMP:
|
||||||
strcpy(c, "jmp");
|
strcpy(c,"jmp");
|
||||||
break;
|
break;
|
||||||
case BRF:
|
case BRF:
|
||||||
strcpy(c, "brf");
|
strcpy(c, "brf");
|
||||||
break;
|
break;
|
||||||
case BRT:
|
case BRT:
|
||||||
strcpy(c, "brt");
|
strcpy(c,"brt");
|
||||||
break;
|
break;
|
||||||
case CALL:
|
case CALL:
|
||||||
strcpy(c, "call");
|
strcpy(c,"call");
|
||||||
break;
|
break;
|
||||||
case RET:
|
case RET:
|
||||||
strcpy(c, "ret");
|
strcpy(c,"ret");
|
||||||
break;
|
break;
|
||||||
case DROP:
|
case DROP:
|
||||||
strcpy(c, "drop");
|
strcpy(c,"drop");
|
||||||
break;
|
|
||||||
case PUSHR:
|
|
||||||
strcpy(c, "pushr");
|
|
||||||
break;
|
|
||||||
case POPR:
|
|
||||||
strcpy(c, "popr");
|
|
||||||
break;
|
|
||||||
case DUP:
|
|
||||||
strcpy(c, "dup");
|
|
||||||
break;
|
break;
|
||||||
default:
|
default:
|
||||||
strcpy(c, "ERROR");
|
strcpy(c, "ERROR");
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
IMMEDIATE(program.program[i]) ? printf("%03i:\t%s\t%i\n", i, c, SIGN_EXTEND(IMMEDIATE(program.program[i]))) : printf(
|
IMMEDIATE(program->program[i]) ? printf("%03i:\t%s\t%i\n", i, c, SIGN_EXTEND(IMMEDIATE(program->program[i]))) : printf(
|
||||||
"%03i:\t%s\n", i, c);
|
"%03i:\t%s\n", i, c);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|||||||
BIN
programs/nja
BIN
programs/nja
Binary file not shown.
11
programs/prog-test-1.asm
Normal file
11
programs/prog-test-1.asm
Normal file
@@ -0,0 +1,11 @@
|
|||||||
|
pushc 3
|
||||||
|
pushc 4
|
||||||
|
add
|
||||||
|
pushc 10
|
||||||
|
pushc 6
|
||||||
|
sub
|
||||||
|
mul
|
||||||
|
wrint
|
||||||
|
pushc 10
|
||||||
|
wrchr
|
||||||
|
halt
|
||||||
BIN
programs/prog-test-1.bin
Normal file
BIN
programs/prog-test-1.bin
Normal file
Binary file not shown.
9
programs/prog-test-2.asm
Normal file
9
programs/prog-test-2.asm
Normal file
@@ -0,0 +1,9 @@
|
|||||||
|
pushc -2
|
||||||
|
rdint
|
||||||
|
mul
|
||||||
|
pushc 3
|
||||||
|
add
|
||||||
|
wrint
|
||||||
|
pushc '\n'
|
||||||
|
wrchr
|
||||||
|
halt
|
||||||
BIN
programs/prog-test-2.bin
Normal file
BIN
programs/prog-test-2.bin
Normal file
Binary file not shown.
5
programs/prog-test-3.asm
Normal file
5
programs/prog-test-3.asm
Normal file
@@ -0,0 +1,5 @@
|
|||||||
|
rdchr
|
||||||
|
wrint
|
||||||
|
pushc '\n'
|
||||||
|
wrchr
|
||||||
|
halt
|
||||||
BIN
programs/prog-test-3.bin
Normal file
BIN
programs/prog-test-3.bin
Normal file
Binary file not shown.
@@ -1,28 +0,0 @@
|
|||||||
//
|
|
||||||
// prog02.asm -- call/ret with args, but without ret value
|
|
||||||
//
|
|
||||||
|
|
||||||
asf 3
|
|
||||||
pushc 11
|
|
||||||
pushc 33
|
|
||||||
call proc
|
|
||||||
drop 2
|
|
||||||
rsf
|
|
||||||
halt
|
|
||||||
|
|
||||||
proc:
|
|
||||||
asf 2
|
|
||||||
pushl -4
|
|
||||||
wrint
|
|
||||||
pushc '\n'
|
|
||||||
wrchr
|
|
||||||
pushc 22
|
|
||||||
wrint
|
|
||||||
pushc '\n'
|
|
||||||
wrchr
|
|
||||||
pushl -3
|
|
||||||
wrint
|
|
||||||
pushc '\n'
|
|
||||||
wrchr
|
|
||||||
rsf
|
|
||||||
ret
|
|
||||||
@@ -1,32 +0,0 @@
|
|||||||
//
|
|
||||||
// prog04.asm -- call/ret with args, and with ret value
|
|
||||||
//
|
|
||||||
|
|
||||||
asf 3
|
|
||||||
pushc 11
|
|
||||||
wrint
|
|
||||||
pushc '\n'
|
|
||||||
wrchr
|
|
||||||
pushc 11
|
|
||||||
pushc 33
|
|
||||||
call proc
|
|
||||||
drop 2
|
|
||||||
pushr
|
|
||||||
wrint
|
|
||||||
pushc '\n'
|
|
||||||
wrchr
|
|
||||||
pushc 33
|
|
||||||
wrint
|
|
||||||
pushc '\n'
|
|
||||||
wrchr
|
|
||||||
rsf
|
|
||||||
halt
|
|
||||||
|
|
||||||
proc:
|
|
||||||
asf 2
|
|
||||||
pushl -3
|
|
||||||
pushl -4
|
|
||||||
sub
|
|
||||||
popr
|
|
||||||
rsf
|
|
||||||
ret
|
|
||||||
@@ -1,31 +0,0 @@
|
|||||||
//
|
|
||||||
// prog1.asm -- an assembler example with global variables
|
|
||||||
//
|
|
||||||
|
|
||||||
// global Integer x;
|
|
||||||
// global Integer y;
|
|
||||||
// x = 2;
|
|
||||||
// y = x + 3;
|
|
||||||
// x = 7 * y + x;
|
|
||||||
// writeInteger(x + -33);
|
|
||||||
// writeCharacter('\n');
|
|
||||||
|
|
||||||
pushc 2
|
|
||||||
popg 0
|
|
||||||
pushg 0
|
|
||||||
pushc 3
|
|
||||||
add
|
|
||||||
popg 1
|
|
||||||
pushc 7
|
|
||||||
pushg 1
|
|
||||||
mul
|
|
||||||
pushg 0
|
|
||||||
add
|
|
||||||
popg 0
|
|
||||||
pushg 0
|
|
||||||
pushc -33
|
|
||||||
add
|
|
||||||
wrint
|
|
||||||
pushc '\n'
|
|
||||||
wrchr
|
|
||||||
halt
|
|
||||||
Binary file not shown.
Binary file not shown.
@@ -1,9 +1,61 @@
|
|||||||
pushc 1
|
//
|
||||||
asf 2
|
// prog1.asm -- an assembler example with global variables
|
||||||
asf 4
|
//
|
||||||
pushc 23
|
|
||||||
asf 3
|
//
|
||||||
rsf
|
// compute the gcd of two positive numbers
|
||||||
rsf
|
//
|
||||||
rsf
|
// global Integer x;
|
||||||
|
// global Integer y;
|
||||||
|
// x = readInteger();
|
||||||
|
// y = readInteger();
|
||||||
|
// while (x != y) {
|
||||||
|
// if (x > y) {
|
||||||
|
// x = x - y;
|
||||||
|
// } else {
|
||||||
|
// y = y - x;
|
||||||
|
// }
|
||||||
|
// }
|
||||||
|
// writeInteger(x);
|
||||||
|
// writeCharacter('\n');
|
||||||
|
|
||||||
|
// x = readInteger();
|
||||||
|
rdint
|
||||||
|
popg 0
|
||||||
|
// y = readInteger();
|
||||||
|
rdint
|
||||||
|
popg 1
|
||||||
|
// while ...
|
||||||
|
L1:
|
||||||
|
// x != y
|
||||||
|
pushg 0 // 4
|
||||||
|
pushg 1
|
||||||
|
ne
|
||||||
|
brf L2
|
||||||
|
// if ...
|
||||||
|
pushg 0
|
||||||
|
pushg 1
|
||||||
|
gt
|
||||||
|
brf L3
|
||||||
|
// x = x - y
|
||||||
|
pushg 0
|
||||||
|
pushg 1
|
||||||
|
sub
|
||||||
|
popg 0
|
||||||
|
jmp L4
|
||||||
|
L3:
|
||||||
|
// y = y - x
|
||||||
|
pushg 1 // 17
|
||||||
|
pushg 0
|
||||||
|
sub
|
||||||
|
popg 1
|
||||||
|
L4:
|
||||||
|
jmp L1 // 21
|
||||||
|
L2:
|
||||||
|
// writeInteger(x);
|
||||||
|
pushg 0 // 22
|
||||||
|
wrint
|
||||||
|
// writeCharacter('\n');
|
||||||
|
pushc '\n'
|
||||||
|
wrchr
|
||||||
halt
|
halt
|
||||||
|
|||||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
|||||||
//
|
//
|
||||||
// prog1.asm -- an assembler example with global variables
|
// prog2.asm -- an assembler example with local variables
|
||||||
//
|
//
|
||||||
|
|
||||||
//
|
//
|
||||||
// compute the gcd of two positive numbers
|
// compute the gcd of two positive numbers
|
||||||
//
|
//
|
||||||
// global Integer x;
|
// local Integer x;
|
||||||
// global Integer y;
|
// local Integer y;
|
||||||
// x = readInteger();
|
// x = readInteger();
|
||||||
// y = readInteger();
|
// y = readInteger();
|
||||||
// while (x != y) {
|
// while (x != y) {
|
||||||
@@ -19,43 +19,45 @@
|
|||||||
// writeInteger(x);
|
// writeInteger(x);
|
||||||
// writeCharacter('\n');
|
// writeCharacter('\n');
|
||||||
|
|
||||||
|
asf 2
|
||||||
// x = readInteger();
|
// x = readInteger();
|
||||||
rdint
|
rdint
|
||||||
popg 0
|
popl 0
|
||||||
// y = readInteger();
|
// y = readInteger();
|
||||||
rdint
|
rdint
|
||||||
popg 1
|
popl 1
|
||||||
// while ...
|
// while ...
|
||||||
L1:
|
L1:
|
||||||
// x != y
|
// x != y
|
||||||
pushg 0
|
pushl 0
|
||||||
pushg 1
|
pushl 1
|
||||||
ne
|
ne
|
||||||
brf L2
|
brf L2
|
||||||
// if ...
|
// if ...
|
||||||
pushg 0
|
pushl 0
|
||||||
pushg 1
|
pushl 1
|
||||||
gt
|
gt
|
||||||
brf L3
|
brf L3
|
||||||
// x = x - y
|
// x = x - y
|
||||||
pushg 0
|
pushl 0
|
||||||
pushg 1
|
pushl 1
|
||||||
sub
|
sub
|
||||||
popg 0
|
popl 0
|
||||||
jmp L4
|
jmp L4
|
||||||
L3:
|
L3:
|
||||||
// y = y - x
|
// y = y - x
|
||||||
pushg 1
|
pushl 1
|
||||||
pushg 0
|
pushl 0
|
||||||
sub
|
sub
|
||||||
popg 1
|
popl 1
|
||||||
L4:
|
L4:
|
||||||
jmp L1
|
jmp L1
|
||||||
L2:
|
L2:
|
||||||
// writeInteger(x);
|
// writeInteger(x);
|
||||||
pushg 0
|
pushl 0
|
||||||
wrint
|
wrint
|
||||||
// writeCharacter('\n');
|
// writeCharacter('\n');
|
||||||
pushc '\n'
|
pushc '\n'
|
||||||
wrchr
|
wrchr
|
||||||
|
rsf
|
||||||
halt
|
halt
|
||||||
|
|||||||
Binary file not shown.
@@ -1,63 +1,35 @@
|
|||||||
//
|
//
|
||||||
// prog2.asm -- an assembler example with local variables
|
// prog01.asm -- call/ret without args, and without ret value
|
||||||
//
|
//
|
||||||
|
|
||||||
//
|
asf 3
|
||||||
// compute the gcd of two positive numbers
|
pushc 11
|
||||||
//
|
wrint
|
||||||
// local Integer x;
|
pushc '\n'
|
||||||
// local Integer y;
|
wrchr
|
||||||
// x = readInteger();
|
call proc
|
||||||
// y = readInteger();
|
pushc 44
|
||||||
// while (x != y) {
|
|
||||||
// if (x > y) {
|
|
||||||
// x = x - y;
|
|
||||||
// } else {
|
|
||||||
// y = y - x;
|
|
||||||
// }
|
|
||||||
// }
|
|
||||||
// writeInteger(x);
|
|
||||||
// writeCharacter('\n');
|
|
||||||
|
|
||||||
asf 2
|
|
||||||
// x = readInteger();
|
|
||||||
rdint
|
|
||||||
popl 0
|
|
||||||
// y = readInteger();
|
|
||||||
rdint
|
|
||||||
popl 1
|
|
||||||
// while ...
|
|
||||||
L1:
|
|
||||||
// x != y
|
|
||||||
pushl 0
|
|
||||||
pushl 1
|
|
||||||
ne
|
|
||||||
brf L2
|
|
||||||
// if ...
|
|
||||||
pushl 0
|
|
||||||
pushl 1
|
|
||||||
gt
|
|
||||||
brf L3
|
|
||||||
// x = x - y
|
|
||||||
pushl 0
|
|
||||||
pushl 1
|
|
||||||
sub
|
|
||||||
popl 0
|
|
||||||
jmp L4
|
|
||||||
L3:
|
|
||||||
// y = y - x
|
|
||||||
pushl 1
|
|
||||||
pushl 0
|
|
||||||
sub
|
|
||||||
popl 1
|
|
||||||
L4:
|
|
||||||
jmp L1
|
|
||||||
L2:
|
|
||||||
// writeInteger(x);
|
|
||||||
pushl 0
|
|
||||||
wrint
|
wrint
|
||||||
// writeCharacter('\n');
|
|
||||||
pushc '\n'
|
pushc '\n'
|
||||||
wrchr
|
wrchr
|
||||||
rsf
|
rsf
|
||||||
halt
|
halt
|
||||||
|
|
||||||
|
proc:
|
||||||
|
asf 2
|
||||||
|
pushc 22
|
||||||
|
wrint
|
||||||
|
pushc '\n'
|
||||||
|
wrchr
|
||||||
|
call proctwo
|
||||||
|
rsf
|
||||||
|
ret
|
||||||
|
|
||||||
|
proctwo:
|
||||||
|
asf 2
|
||||||
|
pushc 33
|
||||||
|
wrint
|
||||||
|
pushc '\n'
|
||||||
|
wrchr
|
||||||
|
rsf
|
||||||
|
ret
|
||||||
|
|||||||
Binary file not shown.
@@ -1,61 +1,28 @@
|
|||||||
//
|
//
|
||||||
// prog1.asm -- an assembler example with global variables
|
// prog02.asm -- call/ret with args, but without ret value
|
||||||
//
|
//
|
||||||
|
|
||||||
//
|
asf 3
|
||||||
// compute the gcd of two positive numbers
|
pushc 11
|
||||||
//
|
pushc 33
|
||||||
// global Integer x;
|
call proc
|
||||||
// global Integer y;
|
drop 2
|
||||||
// x = readInteger();
|
rsf
|
||||||
// y = readInteger();
|
halt
|
||||||
// while (x != y) {
|
|
||||||
// if (x > y) {
|
|
||||||
// x = x - y;
|
|
||||||
// } else {
|
|
||||||
// y = y - x;
|
|
||||||
// }
|
|
||||||
// }
|
|
||||||
// writeInteger(x);
|
|
||||||
// writeCharacter('\n');
|
|
||||||
|
|
||||||
// x = readInteger();
|
proc:
|
||||||
rdint
|
asf 2
|
||||||
popg 0
|
pushl -4
|
||||||
// y = readInteger();
|
|
||||||
rdint
|
|
||||||
popg 1
|
|
||||||
// while ...
|
|
||||||
L1:
|
|
||||||
// x != y
|
|
||||||
pushg 0
|
|
||||||
pushg 1
|
|
||||||
ne
|
|
||||||
brf L2
|
|
||||||
// if ...
|
|
||||||
pushg 0
|
|
||||||
pushg 1
|
|
||||||
gt
|
|
||||||
brf L3
|
|
||||||
// x = x - y
|
|
||||||
pushg 0
|
|
||||||
pushg 1
|
|
||||||
sub
|
|
||||||
popg 0
|
|
||||||
jmp L4
|
|
||||||
L3:
|
|
||||||
// y = y - x
|
|
||||||
pushg 1
|
|
||||||
pushg 0
|
|
||||||
sub
|
|
||||||
popg 1
|
|
||||||
L4:
|
|
||||||
jmp L1
|
|
||||||
L2:
|
|
||||||
// writeInteger(x);
|
|
||||||
pushg 0
|
|
||||||
wrint
|
wrint
|
||||||
// writeCharacter('\n');
|
|
||||||
pushc '\n'
|
pushc '\n'
|
||||||
wrchr
|
wrchr
|
||||||
halt
|
pushc 22
|
||||||
|
wrint
|
||||||
|
pushc '\n'
|
||||||
|
wrchr
|
||||||
|
pushl -3
|
||||||
|
wrint
|
||||||
|
pushc '\n'
|
||||||
|
wrchr
|
||||||
|
rsf
|
||||||
|
ret
|
||||||
|
|||||||
@@ -1,16 +1,27 @@
|
|||||||
//
|
//
|
||||||
// prog04.asm -- call/ret with args, and with ret value
|
// prog02.asm -- call/ret with args, but without ret value
|
||||||
//
|
//
|
||||||
|
|
||||||
pushc 12
|
asf 3
|
||||||
rdint
|
pushc 11
|
||||||
mul
|
pushc 33
|
||||||
wrint
|
|
||||||
call proc
|
call proc
|
||||||
|
drop 2
|
||||||
|
rsf
|
||||||
halt
|
halt
|
||||||
|
|
||||||
proc:
|
proc:
|
||||||
asf 1
|
asf 2
|
||||||
|
pushl 4
|
||||||
|
wrint
|
||||||
|
pushc '\n'
|
||||||
|
wrchr
|
||||||
|
pushc 22
|
||||||
|
wrint
|
||||||
|
pushc '\n'
|
||||||
|
wrchr
|
||||||
|
pushl 3
|
||||||
|
wrint
|
||||||
pushc '\n'
|
pushc '\n'
|
||||||
wrchr
|
wrchr
|
||||||
rsf
|
rsf
|
||||||
|
|||||||
Binary file not shown.
48
reg.c
48
reg.c
@@ -1,48 +0,0 @@
|
|||||||
//
|
|
||||||
// Created by Nils on 29.10.2023.
|
|
||||||
//
|
|
||||||
#ifndef REG
|
|
||||||
#define REG
|
|
||||||
|
|
||||||
#include <stdio.h>
|
|
||||||
#include <stdlib.h>
|
|
||||||
|
|
||||||
struct reg {
|
|
||||||
int* size;
|
|
||||||
int* current;
|
|
||||||
unsigned int *stack;
|
|
||||||
};
|
|
||||||
|
|
||||||
void printStackR(struct reg stack) {
|
|
||||||
printf("Regurn reg\nSize:\t\t%i\nCurrent:\t%i\n", *stack.size, *stack.current);
|
|
||||||
for (int i = *stack.current-1; i > 0; --i) {
|
|
||||||
printf("||%i||\n", stack.stack[i]);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
void pushR(struct reg s, unsigned int value) {
|
|
||||||
if (*s.current >= *s.size) {
|
|
||||||
printf("Stack Overflow\n");
|
|
||||||
exit(EXIT_FAILURE);
|
|
||||||
}
|
|
||||||
s.stack[*s.current] = value;
|
|
||||||
*s.current=*s.current + 1;
|
|
||||||
}
|
|
||||||
|
|
||||||
unsigned int popR(struct reg s) {
|
|
||||||
if (*s.current == 0) {
|
|
||||||
printf("Stack Underflow\n");
|
|
||||||
exit(EXIT_FAILURE);
|
|
||||||
}
|
|
||||||
*s.current = *s.current -1;
|
|
||||||
return s.stack[*s.current];
|
|
||||||
}
|
|
||||||
|
|
||||||
unsigned int peekR(struct reg s, int steps) {
|
|
||||||
if (*s.current - steps < 0) {
|
|
||||||
printf("Stack Underflow\n");
|
|
||||||
exit(EXIT_FAILURE);
|
|
||||||
}
|
|
||||||
return s.stack[*s.current - steps];
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
67
stack.c
67
stack.c
@@ -3,57 +3,46 @@
|
|||||||
//
|
//
|
||||||
#ifndef STACK
|
#ifndef STACK
|
||||||
#define STACK
|
#define STACK
|
||||||
|
#define SIZE 1000
|
||||||
|
|
||||||
|
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
#include "stackslot.c"
|
|
||||||
|
|
||||||
struct stack {
|
struct stackFrame {
|
||||||
int* size;
|
int *fp; // Frame pointer
|
||||||
int* current;
|
int *sp; // Stack pointer
|
||||||
StackSlot *stack;
|
int *bp; // Base pointer
|
||||||
};
|
};
|
||||||
|
|
||||||
void printStack(struct stack stack, int fp) {
|
struct stack {
|
||||||
printf("Stack\nSize:\t\t%i\nCurrent:\t%i\n", *stack.size, *stack.current);
|
int size;
|
||||||
for (int i = *stack.current -1; i >= 0; --i) {
|
int currentFrame;
|
||||||
printf("%i\t",i);
|
struct stackFrame *frames[SIZE];
|
||||||
if(stack.stack[i].isObjRef){
|
};
|
||||||
printf("|%p|", stack.stack[i].u.objRef);
|
|
||||||
if(stack.stack[i].u.objRef->size == sizeof(int))
|
void printStack(struct stack *stack) {
|
||||||
printf("(%i)",*(int *)stack.stack[i].u.objRef->data);
|
printf("Stack:\n");
|
||||||
}else {
|
for (int i = 0; i < stack->size; ++i) {
|
||||||
printf("|%i|", getIntValfromStackSlot(stack.stack[i]));
|
printf("[%d] = %d\n", i, stack->frames[stack->currentFrame]->sp[i]);
|
||||||
}
|
|
||||||
if(fp == i) printf("<-\tFP\n");
|
|
||||||
else if(*stack.current == i) printf("<-\tSP\n");
|
|
||||||
else printf("\n");
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
void push(struct stack s, StackSlot value) {
|
void push(struct stack *stack, unsigned int value) {
|
||||||
if (*s.current >= *s.size) {
|
struct stackFrame *currentFrame = stack->frames[stack->currentFrame];
|
||||||
printf("Stack Overflow\n");
|
*(currentFrame->sp) = value;
|
||||||
exit(EXIT_FAILURE);
|
currentFrame->sp++;
|
||||||
}
|
|
||||||
s.stack[*s.current] = value;
|
|
||||||
*s.current=*s.current + 1;
|
|
||||||
}
|
}
|
||||||
|
|
||||||
StackSlot pop(struct stack s) {
|
int pop(struct stack *stack) {
|
||||||
if (*s.current == 0) {
|
struct stackFrame *currentFrame = stack->frames[stack->currentFrame];
|
||||||
printf("Stack Underflow\n");
|
currentFrame->sp--;
|
||||||
exit(EXIT_FAILURE);
|
return *(currentFrame->sp);
|
||||||
}
|
|
||||||
*s.current = *s.current -1;
|
|
||||||
return s.stack[*s.current];
|
|
||||||
}
|
}
|
||||||
|
|
||||||
int peek(struct stack s, int steps) {
|
int peek(struct stack *stack, int steps) { // peek is pop without removing the value
|
||||||
if (*s.current - steps < 0) {
|
struct stackFrame *currentFrame = stack->frames[stack->currentFrame];
|
||||||
printf("Stack Underflow\n");
|
return *(currentFrame->sp - steps);
|
||||||
exit(EXIT_FAILURE);
|
|
||||||
}
|
|
||||||
return getIntValfromStackSlot(s.stack[*s.current - steps]);
|
|
||||||
}
|
}
|
||||||
|
|
||||||
#endif
|
#endif
|
||||||
|
|||||||
57
stackslot.c
57
stackslot.c
@@ -1,57 +0,0 @@
|
|||||||
#include <stdbool.h>
|
|
||||||
#include <stdio.h>
|
|
||||||
#include <stdlib.h>
|
|
||||||
#ifndef STACKSLOT
|
|
||||||
#define STACKSLOT
|
|
||||||
typedef int Object;
|
|
||||||
typedef struct {
|
|
||||||
unsigned int size;
|
|
||||||
unsigned char data[1];
|
|
||||||
} *ObjRef;
|
|
||||||
|
|
||||||
typedef struct{
|
|
||||||
bool isObjRef;
|
|
||||||
union {
|
|
||||||
ObjRef objRef;
|
|
||||||
int number;
|
|
||||||
} u;
|
|
||||||
} StackSlot;
|
|
||||||
|
|
||||||
ObjRef getIntObj(int val){
|
|
||||||
ObjRef intObject;
|
|
||||||
unsigned int objSize = sizeof(unsigned int) + sizeof(int);
|
|
||||||
if ((intObject = malloc(objSize)) == NULL) {
|
|
||||||
perror("malloc");
|
|
||||||
}
|
|
||||||
*(int *)intObject->data=val;
|
|
||||||
intObject->size=sizeof(int);
|
|
||||||
return intObject;
|
|
||||||
}
|
|
||||||
int getValFromIntObj(ObjRef iref){
|
|
||||||
return *(int *)iref->data;
|
|
||||||
}
|
|
||||||
int getIntValfromStackSlot(StackSlot s){
|
|
||||||
if(s.isObjRef){
|
|
||||||
return *(int *)s.u.objRef->data;
|
|
||||||
}
|
|
||||||
return s.u.number;
|
|
||||||
}
|
|
||||||
void setValIntObj(ObjRef iref, int val){
|
|
||||||
iref->size=sizeof(int);
|
|
||||||
*(int *)iref->data=val;
|
|
||||||
}
|
|
||||||
StackSlot stackSlotWithObjRef(ObjRef val){
|
|
||||||
StackSlot *stackSlot;
|
|
||||||
stackSlot=malloc(sizeof(StackSlot));
|
|
||||||
stackSlot->isObjRef=true;
|
|
||||||
stackSlot->u.objRef=val;
|
|
||||||
return *stackSlot;
|
|
||||||
}
|
|
||||||
StackSlot stackSlotWitchNumber(int val){
|
|
||||||
StackSlot *stackSlot;
|
|
||||||
stackSlot= malloc(sizeof(StackSlot));
|
|
||||||
stackSlot->isObjRef=false;
|
|
||||||
stackSlot->u.number=val;
|
|
||||||
return *stackSlot;
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
Reference in New Issue
Block a user