From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Sat, 22 May 2021 11:34:30 +0000 (+1000)
Subject: added STREAM macro
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=edbf715e7c803582905f6014272c6f9f3e162edc;p=rrq%2Frrqforth.git

added STREAM macro
---

diff --git a/machine.asm b/machine.asm
index 7f65bbe..6a133a1 100644
--- a/machine.asm
+++ b/machine.asm
@@ -234,3 +234,15 @@ macro BRANCH zero,label {
 	end if
 	dq label - $ - 8
 }
+
+;;; ========================================
+;;; The STREAM macro starts an in-core FORTH STREAM area. See WORD
+;;; STREAM for details.
+	macro STREAM endlabel {
+	local datastart
+	dq $+32
+	dq -1
+	dq endlabel - datastart
+	dq 0
+datastart:
+	}