alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

More asm.js

Browse Source
This commit is contained in:
Brad Nelson
2021-01-14 01:05:40 -08:00
parent ac5bcbe9e7
commit dcdf7f0079
1 changed files with 42 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

64
ueforth/web/web.template.js
View File

@ -85,11 +85,20 @@ function Find(name) {
function create(name, opcode) {
i32[g_heap>>2] = Load(i32[g_heap>>2], name); // name
g_heap = (g_heap + 3) & ~3;
i32[g_heap>>2] = name.length; // length
i32[g_heap>>2] = i32[g_last>>2]; // link
i32[g_heap>>2] = 0; // flags
i32[i32[g_heap>>2]>>2] = name.length; // length
i32[g_heap>>2] += 4;
i32[i32[g_heap>>2]>>2] = i32[g_last>>2]; // link
i32[g_heap>>2] += 4;
i32[i32[g_heap>>2]>>2] = 0; // flags
i32[g_heap>>2] += 4;
i32[g_last>>2] = i32[g_heap>>2];
i32[g_last>>2] = opcode; // code
i32[i32[g_last>>2]>>2] = opcode; // code
i32[g_heap>>2] += 4;
}
function InitDictionary() {
@ -102,7 +111,6 @@ function Init() {
i32[g_heap>>2] = Load(i32[g_heap>>2], boot);
var source_len = g_heap - source;
i32[g_ip>>2] = 0;
InitDictionary();
i32[g_sp>>2] = i32[g_heap>>2] + 1;
i32[g_heap>>2] += STACK_SIZE;
@ -112,11 +120,12 @@ function Init() {
// Do not need DOLIT_XT, DOEXIT_XT, YIELD_XT (do by convention)
i32[g_notfound>>2] = Find('DROP');
i32[g_ip>>2] = i32[g_heap>>2];
i32[g_heap>>2] = Find('EVALUATE1');
i32[i32[g_heap>>2]>>2] = Find('EVALUATE1');
i32[g_heap>>2] += 4;
i32[g_heap>>2] = Find('BRANCH');
i32[i32[g_heap>>2]>>2] = Find('BRANCH');
i32[g_heap>>2] += 4;
i32[i32[g_heap>>2]>>2] = g_ip;
i32[g_heap>>2] += 4;
i32[g_heap>>2] = g_ip;
// argc, argv would have gone here.
i32[g_heap>>2] += 4;
i32[g_base>>2] = 10;
@ -141,6 +150,7 @@ function VM(stdlib, foreign, heap) {
var memmove = foreign.memmove;
var convert = foreign.convert;
var evaluate1 = foreign.evaluate1;
var log = foreign.log;
var u8 = new stdlib.Uint8Array(heap);
var i32 = new stdlib.Int32Array(heap);
@ -163,9 +173,11 @@ function VM(stdlib, foreign, heap) {
tos = i32[sp>>2]|0; sp = (sp - 4)|0;
for (;;) {
w = i32[ip>>2]|0;
log(ip|0);
ip = (ip + 4)|0;
decode: for (;;) {
ir = u8[w]|0;
ip = (ip + 4)|0;
log(ir|0);
switch (ir&0xff) {
case 0: // OP_DOCOLON
rp = (rp + 4) | 0;
@ -186,7 +198,10 @@ function VM(stdlib, foreign, heap) {
ip = i32[(w + 4)>>2] | 0;
break;
{{cases}}
default:
return;
}
break;
}
}
}
@ -195,23 +210,28 @@ function VM(stdlib, foreign, heap) {
var ffi = {
Call: Call,
create: function() {},
parse: function() {},
COMMA: function() {},
SSMOD: function() {},
DOES: function() {},
IMMEDIATE: function() {},
parse: function() {},
find: function() {},
memset: function() {},
memmove: function() {},
convert: function() {},
evaluate1: function() {},
create: function() { console.log('create'); },
parse: function() { console.log('parse'); },
COMMA: function(n) { i32[i32[g_heap>>2]] = n; i32[g_heap>>2] += 4; console.log('comma'); },
SSMOD: function() { console.log('ssmod'); },
DOES: function() { console.log('does'); },
IMMEDIATE: function() { console.log('immediate'); },
parse: function() { console.log('parse'); },
find: function() { console.log('find'); },
convert: function() { console.log('convert'); },
evaluate1: function() { console.log('evaluate1'); },
log: function(n) { console.log(n); }
};
heap[128 + 6] = 256 * 4; // set g_sys.heap = 256 * 4;
var module = VM(window, ffi, heap);
var globalObj;
if (typeof window === 'undefined') {
globalObj = global;
} else {
globalObj = window;
}
var module = VM(globalObj, ffi, heap);
Init();
setTimeout(function() {
module.run();