diff --git a/BIN/SH.S.CORE.txt b/BIN/SH.S.CORE.txt
index cb4860b5..870ce24b 100644
--- a/BIN/SH.S.CORE.txt
+++ b/BIN/SH.S.CORE.txt
@@ -129,6 +129,9 @@ CORE.Run		>LDYA ZPInputBufPtr		Save Actual cmd for looping
 				
 				txa
 				>STA.G CORE.IntCmd
+				cmp #C.EXIT
+				bne .42
+				>DEBUG
 
 .42				jsr CORE.StkGet			
 				bcs .7					no particular context, exec...
@@ -137,6 +140,7 @@ CORE.Run		>LDYA ZPInputBufPtr		Save Actual cmd for looping
 				>LDA.G CORE.IntCmd
 				bmi .45
 				
+				and #$3F
 				cmp #C.FOR				FOR....FI ?
 				bcs .7