From c972c70ab1d07099eeec9add941b25a68ef547f0 Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Sat, 4 Apr 2020 08:11:30 -0400
Subject: [PATCH] Use proper RAM addr for CURRENT in IMMEDIATE

---
 forth/z80c.fs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/forth/z80c.fs b/forth/z80c.fs
index cd0f974..46489c6 100644
--- a/forth/z80c.fs
+++ b/forth/z80c.fs
@@ -313,7 +313,8 @@ CODE R>
 ;CODE
 
 CODE IMMEDIATE
-    CURRENT LDHL(nn),
+    ( CURRENT == RAM+2 )
+    RAMSTART 0x02 + LDHL(nn),
     HL DECss,
     7 (HL) SETbr,
 ;CODE