From aa0b9f4e49a0da794e59d2803dc4654ff66824fb Mon Sep 17 00:00:00 2001
From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Mon, 24 May 2021 00:47:37 +1000
Subject: [PATCH] expand DOFORTH to allow multiple ptrs
---
machine.asm | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/machine.asm b/machine.asm
index 6a133a1..4628077 100644
--- a/machine.asm
+++ b/machine.asm
@@ -97,9 +97,12 @@ macro ENDFORTH {
;;; ========================================
;;; The DOFORTH lays out a single FORTH call
-macro DOFORTH label {
+macro DOFORTH [label] {
+common
FORTH
+forward
dq label
+common
ENDFORTH
}
--
2.39.5