67 lines
1.5 KiB
C
67 lines
1.5 KiB
C
#include "../../../vm/vm.h"
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
|
|
#define CODE_SIZE 8192
|
|
#define MEMORY_SIZE 65536
|
|
u8 lmem[MEMORY_SIZE] = {0};
|
|
u32 lcode[CODE_SIZE] = {0};
|
|
|
|
bool init_vm() {
|
|
mem = lmem;
|
|
memset(mem, 0, MEMORY_SIZE*sizeof(u8));
|
|
code = lcode;
|
|
mp = 0;
|
|
cp = 0;
|
|
pc = 0;
|
|
interrupt = 0;
|
|
return true;
|
|
}
|
|
|
|
u32 syscall(u32 id, u32 args, u32 mem_ptr) {
|
|
USED(args);
|
|
switch(id) {
|
|
case SYSCALL_DBG_PRINT: {
|
|
printf("%d\n", mem[mem_ptr]);
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
return 1; // generic error
|
|
}
|
|
|
|
i32 main() {
|
|
init_vm();
|
|
|
|
code[cp++] = ENCODE_B(OP_LOAD_IMM, 0, 35);
|
|
code[cp++] = ENCODE_B(OP_PUSH, 0, 0);
|
|
int fib = cp + 3;
|
|
code[cp++] = ENCODE_A(OP_CALL, fib, 7, 1);
|
|
code[cp++] = ENCODE_A(OP_SYSCALL, SYSCALL_DBG_PRINT, 1, 0);
|
|
code[cp++] = ENCODE_A(OP_HALT, 0, 0, 0);
|
|
|
|
int base_case_if_false = cp + 2;
|
|
code[cp++] = ENCODE_B(OP_LOAD_IMM, 1, 2);
|
|
code[cp++] = ENCODE_A(OP_JLT_INT, base_case_if_false, 0, 1);
|
|
code[cp++] = ENCODE_B(OP_RETURN, 0, 0);
|
|
code[cp++] = ENCODE_B(OP_LOAD_IMM, 3, 2);
|
|
code[cp++] = ENCODE_A(OP_SUB_INT, 4, 0, 3);
|
|
code[cp++] = ENCODE_B(OP_PUSH, 4, 0);
|
|
code[cp++] = ENCODE_A(OP_CALL, fib, 7, 5);
|
|
|
|
code[cp++] = ENCODE_B(OP_LOAD_IMM, 3, 1);
|
|
code[cp++] = ENCODE_A(OP_SUB_INT, 4, 0, 3);
|
|
code[cp++] = ENCODE_B(OP_PUSH, 4, 0);
|
|
code[cp++] = ENCODE_A(OP_CALL, fib, 7, 6);
|
|
|
|
code[cp++] = ENCODE_A(OP_ADD_INT, 7, 6, 5);
|
|
code[cp++] = ENCODE_B(OP_RETURN, 7, 0);
|
|
|
|
while(step_vm()) {
|
|
// do stuff
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
|