aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/lib/imove.frt
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2017-08-26 20:31:40 +0200
committerDimitri Sokolyuk <demon@dim13.org>2017-08-26 20:31:40 +0200
commitd80736ab6e8e3cad2f1a30c6eaba2d6883dbe967 (patch)
tree15962f3d8542ae182d88ac5913a3c4bfce6f2b03 /amforth-6.5/avr8/lib/imove.frt
parent530a312ee523a25e5df475341d201e5bb1296c41 (diff)
Remove AmForth
Diffstat (limited to 'amforth-6.5/avr8/lib/imove.frt')
-rw-r--r--amforth-6.5/avr8/lib/imove.frt12
1 files changed, 0 insertions, 12 deletions
diff --git a/amforth-6.5/avr8/lib/imove.frt b/amforth-6.5/avr8/lib/imove.frt
deleted file mode 100644
index bf33697..0000000
--- a/amforth-6.5/avr8/lib/imove.frt
+++ /dev/null
@@ -1,12 +0,0 @@
-\ copy a string from flash to RAM
-\
-\ i->d on the msp430, and the same stack as cmove
-\
-: imove ( i-addr len ram -- )
- rot rot dup 1 and >r \ ( ram i-addr len ) ( r: odd )
- 2/ over + dup >r \ ( ram i-addr i-addr' ) ( r: odd i-addr' )
- swap \ ( ram i-addr' i-addr )
- ?do i @i over ! cell+ loop \ ( ram' )
- r> r> \ ( ram' i-addr' odd )
- if @i swap c! else 2drop then
-;