basic: (fix) define A0 also in step2

asarhaddon · Nov 14, 2024 · ef318ff · ef318ff
1 parent 2d71f99
commit ef318ff
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/impls/basic/step2_eval.in.bas b/impls/basic/step2_eval.in.bas
@@ -106,6 +106,8 @@ SUB EVAL
     GOSUB EMPTY_Q
     IF R THEN R=A:GOSUB INC_REF_R:GOTO EVAL_RETURN
 
+    A0=Z%(A+2)
+
     EVAL_INVOKE:
 
       REM evaluate A0