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/parse.asm | 33 --------------------------------- 1 file changed, 33 deletions(-) delete mode 100644 amforth-6.5/common/words/parse.asm (limited to 'amforth-6.5/common/words/parse.asm') diff --git a/amforth-6.5/common/words/parse.asm b/amforth-6.5/common/words/parse.asm deleted file mode 100644 index 0e51c05..0000000 --- a/amforth-6.5/common/words/parse.asm +++ /dev/null @@ -1,33 +0,0 @@ -; ( char "ccc" -- c-addr u ) -; String -; in input buffer parse ccc delimited string by the delimiter char. - -.if cpu_msp430==1 - HEADER(XT_PARSE,5,"parse",DOCOLON) -.endif - -.if cpu_avr8==1 -VE_PARSE: - .dw $ff05 - .db "parse",0 - .dw VE_HEAD - .set VE_HEAD = VE_PARSE -XT_PARSE: - .dw DO_COLON -PFA_PARSE: -.endif - .dw XT_TO_R ; ( -- ) - .dw XT_SOURCE ; ( -- addr len) - .dw XT_TO_IN ; ( -- addr len >in) - .dw XT_FETCH - .dw XT_SLASHSTRING ; ( -- addr' len' ) - - .dw XT_R_FROM ; ( -- addr' len' c) - .dw XT_CSCAN ; ( -- addr' len'') - .dw XT_DUP ; ( -- addr' len'' len'') - .dw XT_1PLUS - .dw XT_TO_IN ; ( -- addr' len'' len'' >in) - .dw XT_PLUSSTORE ; ( -- addr' len') - .dw XT_ONE - .dw XT_SLASHSTRING - .dw XT_EXIT -- cgit v1.2.3