V308

[fast-forth/master.git] / inc / FastForthREGtoTI.pat

diff --git a/inc/FastForthREGtoTI.pat b/inc/FastForthREGtoTI.pat
index 4f6645f..94d81ca 100644 (file)
--- a/inc/FastForthREGtoTI.pat
+++ b/inc/FastForthREGtoTI.pat
@@ -152,3 +152,7 @@ NOP2=\$3C00 ,!      \ compile JMP 0  one word two cycles
 NOP3=MOV R0,R0!     \ MOV PC,PC      one word three cycles
 NEXT=MOV \@R13+,R0! \ MOV @IP+,PC   
 
+ABORT=ALLOT\+8!             Empty the data stack and perform the function of QUIT
+QUIT=ALLOT\+\$0E!           interpret line by line the input stream
+ABORT\"=ABORT\"!
+