V3.5 ABORT messages display I2C address

[fast-forth/master.git] / ADDON / CORE_ANS.asm

diff --git a/ADDON/CORE_ANS.asm b/ADDON/CORE_ANS.asm
index f6402f0..0feb0d2 100644 (file)
--- a/ADDON/CORE_ANS.asm
+++ b/ADDON/CORE_ANS.asm
@@ -21,6 +21,17 @@
     FORTHWORD "{CORE_ANS}"
     MOV @IP+,PC
 
+;-------------------------------------------------------------------------------
+; RETURN from high level word
+;-------------------------------------------------------------------------------
+            FORTHWORD "EXIT"
+; https://forth-standard.org/standard/core/EXIT
+; EXIT     --      exit a colon definition; CALL #EXIT performs ASMtoFORTH (10 cycles)
+;                                           JMP #EXIT performs EXIT
+            MOV @RSP+,IP    ; 2 pop previous IP (or next PC) from return stack
+            MOV @IP+,PC     ; 4 = NEXT
+                            ; 6 (ITC-2)
+
 ;https://forth-standard.org/standard/core/SPACE
 ;C SPACE   --               output a space
             FORTHWORD "SPACE"