X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=main.asm;h=4ddb26785e04a419d221f986de7c3ac223321f2a;hb=fbde29458ada2d5943144e3b796339cee43474f3;hp=af84a66631a0d17d5abb5922a220130f9135f8b4;hpb=3e2708b7e8434cc0678c8ee0c315166704c8f31a;p=rrq%2Fjonasforth.git

diff --git a/main.asm b/main.asm
index af84a66..4ddb267 100644
--- a/main.asm
+++ b/main.asm
@@ -155,7 +155,7 @@ READ_WORD:  ; 400170
 
 ;; Takes a string (in the form of a pointer and a length on the stack) and
 ;; prints it to standard output.
-TYPE:
+TELL:
   dq .start
 .start:
   mov rbx, rsi
@@ -213,8 +213,8 @@ MAIN:
   dq READ_WORD
   dq LIT, you_typed_string
   dq LIT, you_typed_string.length
-  dq TYPE
-  dq TYPE
+  dq TELL
+  dq TELL
   dq NEWLINE
   dq HELLO
   dq TERMINATE