X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=main.asm;h=626de1610f6d360e0331ce54ea12338f194bc84e;hb=28f8191da1b2b3131946545a2a62d7ed558ee625;hp=c5758d8b23adfc1104682493de7efebd39634fc3;hpb=affd6abf697ef0d777ed64f005303a482b1b6f75;p=rrq%2Fjonasforth.git

diff --git a/main.asm b/main.asm
index c5758d8..626de16 100644
--- a/main.asm
+++ b/main.asm
@@ -86,13 +86,6 @@ HELLO:
     dq EMIT
     dq exit
 
-PROGRAM:
-    dq docol
-    dq HELLO
-    dq HELLO
-    dq HELLO
-    dq exit
-
 segment readable writable
 
 ;; Return stack