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