basic interpreter wip

assets/JS_INIT.js

@@ -0,0 +1,40 @@
+// standard print functions
+function print(s) {
+    vm.print(s);
+}
+function println(s) {
+    if (typeof s == "undefined")
+        vm.print("\n");
+    else
+        vm.println(s);
+}
+function read() {
+    return vm.read();
+}
+// ncurses-like terminal control
+var con = new Object();
+con.getch = function() {
+    return vm.readKey();
+};
+con.move = function(y, x) {
+    print(String.fromCharCode(27,91)+y+";"+x+"H");
+};
+con.addch = function(c) {
+    graphics.putSymbol(c);
+};
+con.mvaddch = function(y, x, c) {
+    move(y, x); addch(c);
+};
+con.getmaxyx = function() {
+    return graphics.getTermDimension();
+};
+con.getyx = function() {
+    return graphics.getCursorYX();
+};
+Object.freeze(con);
+// system management  function
+var sys = new Object();
+sys.maxmem = function() {
+    return vm.peek(-65) | (vm.peek(-66) << 8) | (vm.peek(-67) << 16) | (vm.peek(-68) << 24);
+};
+Object.freeze(sys);

assets/jscon.js

@@ -1,68 +1,70 @@
 println("JS Console");
-var cmdHistory = []; // zeroth element is the oldest
-var cmdHistoryScroll = 0; // 0 for outside-of-buffer, 1 for most recent
+var _cmdHistory = []; // zeroth element is the oldest
+var _cmdHistoryScroll = 0; // 0 for outside-of-buffer, 1 for most recent
 while (true) {
     print("JS> ");
 
-    var cmdbuf = "";
+    var _cmdbuf = "";
 
     while (true) {
-        var key = vm.readKey();
+        var key = con.getch();
 
         // printable chars
         if (key >= 32 && key <= 126) {
-            var s = String.fromCharCode(key);
-            cmdbuf += s;
-            print(s);
+            var __sss = String.fromCharCode(key);
+            _cmdbuf += __sss;
+            print(__sss);
         }
         // backspace
-        else if (key === 8 && cmdbuf.length > 0) {
-            cmdbuf = cmdbuf.substring(0, cmdbuf.length - 1);
+        else if (key === 8 && _cmdbuf.length > 0) {
+            _cmdbuf = _cmdbuf.substring(0, _cmdbuf.length - 1);
             print(String.fromCharCode(key));
         }
         // enter
         else if (key === 10 || key === 13) {
             println();
             try {
-                println(eval(cmdbuf));
+                println(eval(_cmdbuf));
             }
             catch (e) {
                 println(e);
             }
             finally {
-                if (cmdbuf.trim().length > 0)
-                    cmdHistory.push(cmdbuf);
+                if (_cmdbuf.trim().length > 0)
+                    _cmdHistory.push(_cmdbuf);
 
-                cmdHistoryScroll = 0;
+                _cmdHistoryScroll = 0;
                 break;
             }
         }
         // up arrow
-        else if (key === 19 && cmdHistory.length > 0 && cmdHistoryScroll < cmdHistory.length) {
-            cmdHistoryScroll += 1;
+        else if (key === 19 && _cmdHistory.length > 0 && _cmdHistoryScroll < _cmdHistory.length) {
+            _cmdHistoryScroll += 1;
 
             // back the cursor in order to type new cmd
-            for (xx = 0; xx < cmdbuf.length; xx++) print(String.fromCharCode(8));
-            cmdbuf = cmdHistory[cmdHistory.length - cmdHistoryScroll];
+            var __xx = 0;
+            for (__xx = 0; __xx < _cmdbuf.length; __xx++) print(String.fromCharCode(8));
+            _cmdbuf = _cmdHistory[_cmdHistory.length - _cmdHistoryScroll];
             // re-type the new command
-            print(cmdbuf);
+            print(_cmdbuf);
 
         }
         // down arrow
         else if (key === 20) {
-            if (cmdHistoryScroll > 0) {
+            if (_cmdHistoryScroll > 0) {
                 // back the cursor in order to type new cmd
-                for (xx = 0; xx < cmdbuf.length; xx++) print(String.fromCharCode(8));
-                cmdbuf = cmdHistory[cmdHistory.length - cmdHistoryScroll];
+                var __xx = 0;
+                for (__xx = 0; __xx < _cmdbuf.length; __xx++) print(String.fromCharCode(8));
+                _cmdbuf = _cmdHistory[_cmdHistory.length - _cmdHistoryScroll];
                 // re-type the new command
-                print(cmdbuf);
+                print(_cmdbuf);
 
-                cmdHistoryScroll -= 1;
+                _cmdHistoryScroll -= 1;
             }
             else {
                 // back the cursor in order to type new cmd
-                for (xx = 0; xx < cmdbuf.length; xx++) print(String.fromCharCode(8));
-                cmdbuf = "";
+                for (__xx = 0; __xx < _cmdbuf.length; __xx++) print(String.fromCharCode(8));
+                _cmdbuf = "";
             }
         }
     }

assets/tbas/basic.js

@@ -0,0 +1,56 @@
+var vmemsize = 60300;
+var vmemused = 0;
+var cmdbuf = []; // index: line number
+var prompt = "Ok";
+
+var linenumRe = /^[0-9]+ +[^0-9]/;
+
+println("Terran BASIC 1.0  "+vmemsize+" bytes free");
+println(prompt);
+
+var basicFunctions = new Object();
+basicFunctions._basicList = function(v, i, arr) {
+    if (i < 100) print(" ");
+    print(i);
+    print(" ");
+    println(v);
+};
+basicFunctions.list = function(args) {
+    if (args.length == 1) {
+        cmdbuf.forEach(basicFunctions._basicList);
+    }
+    else if (args.length == 2) {
+        if (typeof cmdbuf[args[1]] != "undefined")
+            basicFunctions._basicList(cmdbuf[args[1]], args[1], undefined);
+    }
+    else {
+        var lastIndex = (args[2] === ".") ? cmdbuf.length - 1 : (args[2] | 0);
+        var i = 0;
+        for (i = args[1]; i <= lastIndex; i++) {
+            var cmd = cmdbuf[i];
+            if (typeof cmd != "undefined") {
+                basicFunctions._basicList(cmd, i, cmdbuf);
+            }
+        }
+    }
+};
+
+while (true) {
+    var line = vm.read();
+    line = line.trim();
+
+    if (linenumRe.test(line)) {
+        var i = line.indexOf(" ");
+        cmdbuf[line.slice(0, i)] = line.slice(i + 1, line.length);
+    }
+    else if (line.length > 0) {
+        try {
+            var cmd = line.split(" ");
+            basicFunctions[cmd[0]](cmd);
+        }
+        catch (e) {
+            println("Syntax error");
+        }
+        println(prompt);
+    }
+}