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/do-create.asm | 22 ---------------------- 1 file changed, 22 deletions(-) delete mode 100644 amforth-6.5/common/words/do-create.asm (limited to 'amforth-6.5/common/words/do-create.asm') diff --git a/amforth-6.5/common/words/do-create.asm b/amforth-6.5/common/words/do-create.asm deleted file mode 100644 index 3f78729..0000000 --- a/amforth-6.5/common/words/do-create.asm +++ /dev/null @@ -1,22 +0,0 @@ -; ( -- ) (C: "name" -- ) -; Compiler -; parse the input and create an empty vocabulary entry without XT and data field (PF) - -.if cpu_msp430==1 - HEADER(XT_DOCREATE,8,"(create)",DOCOLON) -.endif - -.if cpu_avr8==1 -VE_DOCREATE: - .dw $ff08 - .db "(create)" - .dw VE_HEAD - .set VE_HEAD = VE_DOCREATE -XT_DOCREATE: - .dw DO_COLON -PFA_DOCREATE: -.endif - .DW XT_PARSENAME,XT_WLSCOPE ; ( -- addr len wid) - .DW XT_DUP,XT_NEWEST,XT_CELLPLUS,XT_STORE ; save the wid - .DW XT_HEADER,XT_NEWEST,XT_STORE ; save the nt - .DW XT_EXIT -- cgit v1.2.3