Implement BG callback

2016-12-31 13:50:44 +09:00
parent 4eb6a1fc98
commit e4deae3b69
4 changed files with 36 additions and 2 deletions
--- a/SMILEBASIC/VM.d
+++ b/SMILEBASIC/VM.d
@@ -2735,11 +2735,22 @@ class CallBG : Code
 {
    override void execute(VM vm)
    {
+        vm.petitcomputer.callidx++;
        if (!vm.petitcomputer.callback)
        {
-            vm.petitcomputer.callidx++;
            return;
        }
-        vm.petitcomputer.callidx++;
+        if (!vm.petitcomputer.isValidLayer(vm.petitcomputer.callidx))
+        {
+            vm.petitcomputer.callback = false;
+            return;
+        }
+        auto callback = vm.petitcomputer.getBG(vm.petitcomputer.callidx).callback;
+        vm.pc--;
+        if (!callback.isCallable)
+        {
+            return;
+        }
+        callback(vm);
    }
 }