From edbf715e7c803582905f6014272c6f9f3e162edc Mon Sep 17 00:00:00 2001 From: Ralph Ronnquist Date: Sat, 22 May 2021 21:34:30 +1000 Subject: [PATCH] added STREAM macro --- machine.asm | 12 ++++++++++++ 1 file changed, 12 insertions(+) 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: + } -- 2.39.2