Implement XON/XOFF

2016-12-09 18:24:33 +09:00
parent 0306a215b0
commit 463556954a
3 changed files with 60 additions and 0 deletions
--- a/SMILEBASIC/VM.d
+++ b/SMILEBASIC/VM.d
@@ -2011,3 +2011,18 @@ class PushVarExpression : Code
        vm.push(vm.currentSlot.global[vmv.index]);
    }
 }
+
+class SetX : Code
+{
+    wstring func;
+    bool value;
+    this(wstring f, bool value)
+    {
+        this.func = f;
+        this.value = value;
+    }
+    override void execute(VM vm)
+    {
+        vm.petitcomputer.setX(func, value);
+    }
+}