KSP/njvm
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added some sht

Browse Source
This commit is contained in:
nilspolek 2024-01-23 16:58:57 +01:00
parent f0d74a7e17
commit e8b4062331
3 changed files with 194 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
njvm.c
View File

@ -8,6 +8,7 @@
#include "SDA.c"
#include "debugMenu.c"
#include "bigint.h"
#include "record.c"
// Debug
int debug = 0;
@ -240,6 +241,19 @@ void execute(struct program program) {
if (debug == 1) printf("pushr");
push(stack, pop(reg));
break;
case NEW:
if (debug == 1) printf("new");
push(stack, newRecord(SIGN_EXTEND(IMMEDIATE(program.program[i]))))
break;
case GETF:
if (debug == 1) printf("getf");
push(stack, getField(pop(stack), SIGN_EXTEND(IMMEDIATE(program.program[i]))))
break;
case PUTF:
if (debug == 1) printf("putf");
tempObj = pop(stack)
setField(pop(stack), SIGN_EXTEND(IMMEDIATE(program.program[i])),tempObj)
break;
}
}
end:

25
record.c Normal file
View File

@ -0,0 +1,25 @@
//
// Created by Nils Polek on 23.01.24.
//
#ifndef RECORD
#define RECORD
#include "stackslot.c"
#include "instruktion.c"
ObjRef newRecord(int size){
ObjRef record;
if((record = malloc(*record + size * sizeof(void *)))== NULL){
perror("malloc")
}
record->size = MSB & size;
for(int i = 0; i < size; i++) {
GET_REFS_PTR(record)[i] = malloc(8)
}
}
ObjRef getField(ObjRef array, int point){
return *(ObjRef *)GET_REFS_PTR(array)[point]->data
}
setField(ObjRef array, int point, ObjRef value){
(ObjRef *)GET_REFS_PTR(array)[point]->data = value
}
#endif

155
test.asm Normal file
View File

@ -0,0 +1,155 @@
//
// version
//
.vers 7
//
// execution framework
//
__start:
call _main
call _exit
__stop:
jmp __stop
//
// Integer readInteger()
//
_readInteger:
asf 0
rdint
popr
rsf
ret
//
// void writeInteger(Integer)
//
_writeInteger:
asf 0
pushl -3
wrint
rsf
ret
//
// Character readCharacter()
//
_readCharacter:
asf 0
rdchr
popr
rsf
ret
//
// void writeCharacter(Character)
//
_writeCharacter:
asf 0
pushl -3
wrchr
rsf
ret
//
// Integer char2int(Character)
//
_char2int:
asf 0
pushl -3
popr
rsf
ret
//
// Character int2char(Integer)
//
_int2char:
asf 0
pushl -3
popr
rsf
ret
//
// void exit()
//
_exit:
asf 0
halt
rsf
ret
//
// void writeString(String)
//
_writeString:
asf 1
pushc 0
popl 0
jmp _writeString_L2
_writeString_L1:
pushl -3
pushl 0
getfa
call _writeCharacter
drop 1
pushl 0
pushc 1
add
popl 0
_writeString_L2:
pushl 0
pushl -3
getsz
lt
brt _writeString_L1
rsf
ret
//
// void main()
//
_main:
asf 2
new 2
popl 1
pushl 1
pushc 5
putf 0
pushl 1
getf 0
popl 0
pushl 1
pushc 2
pushl 0
mul
putf 1
pushl 1
getf 0
call _writeInteger
drop 1
pushc 1
newa
dup
pushc 0
pushc 10
putfa
call _writeString
drop 1
pushl 1
getf 1
call _writeInteger
drop 1
pushc 1
newa
dup
pushc 0
pushc 10
putfa
call _writeString
drop 1
__0:
rsf
ret