X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=main.asm;h=67e9a7b6a96a1225d9fc37ca322b3bd6030528b3;hb=c4dd16293a71e782e36f795d302bf944056ffd4c;hp=2e880d9b36871b250057378f14c6b62b1c6c7d87;hpb=423e2197f05d6af11aa75a7a15aa3f8e3be78cbf;p=rrq%2Fjonasforth.git

diff --git a/main.asm b/main.asm
index 2e880d9..67e9a7b 100644
--- a/main.asm
+++ b/main.asm
@@ -527,7 +527,7 @@ forth IMMEDIATE, 'IMMEDIATE', 1
   dq LIT, 1
   dq LATEST, GET
   dq LIT, 8, PLUS
-  dq PUT
+  dq PUT_BYTE
   dq EXIT
 
 ;; Given the address of a word, return 0 if the given word is not immediate.