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/msp430/words/does.asm | 20 -------------------- 1 file changed, 20 deletions(-) delete mode 100644 amforth-6.5/msp430/words/does.asm (limited to 'amforth-6.5/msp430/words/does.asm') diff --git a/amforth-6.5/msp430/words/does.asm b/amforth-6.5/msp430/words/does.asm deleted file mode 100644 index 235fae7..0000000 --- a/amforth-6.5/msp430/words/does.asm +++ /dev/null @@ -1,20 +0,0 @@ -;C DOES> -- change action of latest def'n -; COMPILE (DOES>) -; dodoes ,JMP ; IMMEDIATE -; Note that MSP430 uses a JMP, not a CALL, to DODOES. - IMMED(XT_DOES,5,"does>",DOCOLON) - DW XT_COMPILE,XT_DODOES - DW XT_COMPILE,4030h ; compile a machine jump instruction - DW XT_COMPILE,dodoes - DW XT_EXIT - -; runtime part of does> - HEADLESS(XT_DODOES,DOCOLON) - DW XT_R_FROM - DW XT_NEWEST - DW XT_CELLPLUS - DW XT_FETCH - DW XT_FETCH - DW XT_NFA2CFA - DW XT_STOREI - DW XT_EXIT -- cgit v1.2.3