From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Sun, 23 May 2021 14:47:37 +0000 (+1000)
Subject: expand DOFORTH to allow multiple ptrs
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=aa0b9f4e49a0da794e59d2803dc4654ff66824fb;p=rrq%2Frrqforth.git

expand DOFORTH to allow multiple ptrs
---

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
 }