X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=machine.asm;h=a8bfbd8f7652985a63836f81a38165211ec5efbb;hb=69125f1514739aa5dcee13a29eb161a229e47eed;hp=058da153addeb09e5dc0d8248e5059eaa2badf9b;hpb=365af483341a063a1bfba09dcaa03bf2373ad4a8;p=rrq%2Frrqforth.git

diff --git a/machine.asm b/machine.asm
index 058da15..a8bfbd8 100644
--- a/machine.asm
+++ b/machine.asm
@@ -142,7 +142,7 @@ label#_DFA:
 }
 
 ;;; ========================================
-;;; The block macro lays out the length for a subsequent block to the
+;;; The BLOCK macro lays out the length for a subsequent block to the
 ;;; given label.
 macro BLOCK endlabel {
 	local datastart
@@ -150,3 +150,16 @@ macro BLOCK endlabel {
 datastart:
 	}
 
+;;; ========================================
+;;; The STRING macro lays out length byte and data for s short string
+macro STRING [data] {
+common
+	local datastart, dataend
+	db dataend - datastart
+datastart:
+forward
+	db data
+common
+dataend:
+	}
+