curioustorvald/tsvm
1
0
Fork 0
mirror of https://github.com/curioustorvald/tsvm.git synced 2026-03-07 19:51:51 +09:00
Code Issues Packages Projects Releases Wiki Activity

draft of the VCD-programming thing

Browse Source
This commit is contained in:
minjaesong
2020-07-23 15:00:41 +09:00
parent 9aaf6200eb
commit 9ecacb7ece
7 changed files with 330 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
assets/tbas/basic.js
View File

@@ -217,6 +217,7 @@ var basicInterpreterStatus = {};
basicInterpreterStatus.gosubStack = [];
basicInterpreterStatus.variables = {};
basicInterpreterStatus.defuns = {};
basicInterpreterStatus.rnd = 0; // stores mantissa (23 bits long) of single precision floating point number
/*
@param lnum line number
@param args instance of the SyntaxTreeReturnObj
@@ -311,6 +312,8 @@ basicInterpreterStatus.builtin = {
}
var resolvedargs = resolve(args[llll]);
if (resolvedargs === undefined) resolvedargs = "";
if (args[llll].type == "number")
print(" "+resolvedargs+" ");
else
@@ -385,6 +388,12 @@ basicInterpreterStatus.builtin = {
});
return argum[0] || argum[1];
},
"RND" : function(lnum, args) {
if (!(args.length > 0 && args[0].value === 0))
basicInterpreterStatus.rnd = (basicInterpreterStatus.rnd * 214013 + 2531011) % 16777216; // GW-BASIC does this
return (basicInterpreterStatus.rnd) / 16777216;
},
"TEST" : function(lnum, args) {
if (args.length != 1) throw lang.syntaxfehler(lnum, args.length + " arguments were given");
return resolve(args[0]);
@@ -1163,7 +1172,7 @@ function SyntaxTreeReturnObj(type, value, nextLine) {
this.value = value;
this.nextLine = nextLine;
}
basicFunctions._gotoCmds = { GOTO:1, GOSUB:1 };
basicFunctions._gotoCmds = { GOTO:1, GOSUB:1 }; // put nonzero (truthy) value here
basicFunctions._executeSyntaxTree = function(lnum, syntaxTree, recDepth) {
var _debugExec = false;
var recWedge = "> ".repeat(recDepth);