X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=main.asm;h=1a41bb9a2c1dc30f1050200a9e724a56885eff47;hb=35d467b9ab869cc9a4f1068b112d5f22ca483afd;hp=cb2e0d5deb2b08c33e1d7ea4a2bfdc100ae39d12;hpb=3e21454c3e1e006a38d2a05d856e4651d099b668;p=rrq%2Fjonasforth.git

diff --git a/main.asm b/main.asm
index cb2e0d5..1a41bb9 100644
--- a/main.asm
+++ b/main.asm
@@ -235,16 +235,6 @@ forth_asm TERMINATE, 'TERMINATE'
   mov rdi, 0
   syscall
 
-forth HELLO, 'HELLO'
-  dq LIT, 'H', EMIT
-  dq LIT, 'e', EMIT
-  dq LIT, 'l', EMIT
-  dq LIT, 'l', EMIT
-  dq LIT, 'o', EMIT
-  dq LIT, '!', EMIT
-  dq NEWLINE
-  dq EXIT
-
 ;; Duplicate a pair of elements.
 forth_asm PAIRDUP, '2DUP'
   pop rbx
@@ -592,7 +582,6 @@ forth_asm EQL, '='
   next
 
 forth MAIN, 'MAIN'
-  dq HELLO
   dq INTERPRET
   dq BRANCH, -8 * 2
   dq TERMINATE