Use proper RAM addr for CURRENT in IMMEDIATE

2020-04-04 08:11:30 -04:00 · 2020-04-04 08:11:30 -04:00 · c972c70ab1
commit c972c70ab1
parent 41cefb7460
1 changed files with 2 additions and 1 deletions
--- 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