From d80736ab6e8e3cad2f1a30c6eaba2d6883dbe967 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 26 Aug 2017 20:31:40 +0200 Subject: Remove AmForth --- amforth-6.5/common/words/abort-string.asm | 29 ----------------------------- 1 file changed, 29 deletions(-) delete mode 100644 amforth-6.5/common/words/abort-string.asm (limited to 'amforth-6.5/common/words/abort-string.asm') diff --git a/amforth-6.5/common/words/abort-string.asm b/amforth-6.5/common/words/abort-string.asm deleted file mode 100644 index 116b1dc..0000000 --- a/amforth-6.5/common/words/abort-string.asm +++ /dev/null @@ -1,29 +0,0 @@ -;C ABORT" i*x 0 -- i*x R: j*x -- j*x x1=0 -;C i*x x1 -- R: j*x -- x1<>0 -; POSTPONE IS" POSTPONE ?ABORT ; IMMEDIATE - -.if cpu_msp430==1 - ; IMMED(ABORTQUOTE,6,"ABORT"",DOCOLON) - DW link - DB 0FEh ; immediate -.set link = $ - DB 6,"abort",'"' - .align 16 -XT_ABORTQUOTE: - .DW DOCOLON -.endif - -.if cpu_avr8==1 -VE_ABORTQUOTE: - .dw $0006 - .db "abort",'"' - .dw VE_HEAD - .set VE_HEAD = VE_ABORTQUOTE -XT_ABORTQUOTE: - .dw DO_COLON -PFA_ABORTQUOTE: -.endif - .dw XT_SQUOTE - .dw XT_COMPILE - .dw XT_QABORT - .DW XT_EXIT -- cgit v1.2.3