Compare commits

..

11 Commits

Author SHA1 Message Date
nils polek
509dc5e947 Added the correct version to --version funktion 2024-01-14 15:28:46 +00:00
nils polek
c6ae64250d Added a nja and njc goal to Makefile 2024-01-14 15:24:31 +00:00
nils polek
ffc04172ae Added a Makefile for better use 2024-01-14 13:47:08 +00:00
Nils Polek
f5cab7c013 Testing 2023-12-09 17:48:51 +01:00
de248a5943 update x 2023-12-09 17:19:43 +01:00
4994bd6071 add call and ret function
add drop (idk if it is working right)
add prog5 and prog6
2023-12-07 03:01:24 +01:00
0b042fb912 fix jmp not working
fix arithmetic operations
add prog3 and prog4
add debug to instructions
2023-12-07 00:05:36 +01:00
nils polek
77cae7467e Added Instruktions 2023-12-06 18:03:07 +01:00
6ea2a7e735 move programs to a separate folder
fix pushg, popg, pushl and popl
2023-12-04 02:39:23 +01:00
8a89c6bf70 add prog1 and prog2, asm and bin files 2023-12-04 01:21:36 +01:00
88271c91ca fix prog1.bin not working
add debug parameter
add nja-mac
2023-12-04 01:20:41 +01:00
41 changed files with 462 additions and 650 deletions

View File

@@ -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
View File

@@ -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]);
} }
} }

View File

@@ -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];

View File

@@ -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; */

View File

@@ -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 */

View File

@@ -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 */

BIN
nja-mac Executable file

Binary file not shown.

BIN
nja/nja4

Binary file not shown.

BIN
nja/nja5

Binary file not shown.

BIN
nja/nja6

Binary file not shown.

BIN
nja/nja7

Binary file not shown.

BIN
nja/nja8

Binary file not shown.

BIN
njvm-3 Executable file

Binary file not shown.

398
njvm.c
View File

@@ -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 = &current;
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;
} }

BIN
prog.bin

Binary file not shown.

View File

@@ -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;
@@ -86,9 +84,6 @@ void printProgram(struct program program) {
case LT: case LT:
strcpy(c,"lt"); strcpy(c,"lt");
break; break;
case LE:
strcpy(c, "le");
break;
case GT: case GT:
strcpy(c,"gt"); strcpy(c,"gt");
break; break;
@@ -113,20 +108,11 @@ void printProgram(struct program program) {
case DROP: case DROP:
strcpy(c,"drop"); strcpy(c,"drop");
break; break;
case PUSHR:
strcpy(c, "pushr");
break;
case POPR:
strcpy(c, "popr");
break;
case DUP:
strcpy(c, "dup");
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);
} }
} }

Binary file not shown.

11
programs/prog-test-1.asm Normal file
View 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

Binary file not shown.

9
programs/prog-test-2.asm Normal file
View 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

Binary file not shown.

5
programs/prog-test-3.asm Normal file
View File

@@ -0,0 +1,5 @@
rdchr
wrint
pushc '\n'
wrchr
halt

BIN
programs/prog-test-3.bin Normal file

Binary file not shown.

View File

@@ -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

View File

@@ -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

View File

@@ -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.

View File

@@ -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.

View File

@@ -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.

View File

@@ -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.

View File

@@ -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

View File

@@ -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
View File

@@ -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
View File

@@ -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

View File

@@ -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