adding TELL and EMIT

[rrq/rrqforth.git] / machine.asm

diff --git a/machine.asm b/machine.asm
index 058da153addeb09e5dc0d8248e5059eaa2badf9b..a8bfbd8f7652985a63836f81a38165211ec5efbb 100644 (file)
--- 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:
+       }
+