From: Jonas Hvid <mail@johv.dk>
Date: Mon, 18 Nov 2019 17:08:20 +0000 (+0100)
Subject: Remove unused code
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=28f8191da1b2b3131946545a2a62d7ed558ee625;p=rrq%2Fjonasforth.git

Remove unused code
---

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