aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/lib/hardware/flash-block.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/hardware/flash-block.frt
parent530a312ee523a25e5df475341d201e5bb1296c41 (diff)
Remove AmForth
Diffstat (limited to 'amforth-6.5/avr8/lib/hardware/flash-block.frt')
-rw-r--r--amforth-6.5/avr8/lib/hardware/flash-block.frt37
1 files changed, 0 insertions, 37 deletions
diff --git a/amforth-6.5/avr8/lib/hardware/flash-block.frt b/amforth-6.5/avr8/lib/hardware/flash-block.frt
deleted file mode 100644
index 661e3b4..0000000
--- a/amforth-6.5/avr8/lib/hardware/flash-block.frt
+++ /dev/null
@@ -1,37 +0,0 @@
-\
-\ flash-block
-\ contiguous flash region used a block storage
-\
-\ requires blocks.frt (for init and blocksize)
-\
-
-\ start address for blocks.
-\ the block data starts at
-\ flash.base-addr + (blocknum*blocksize)
-\ it could be beyond the 128K limit, if the
-\ !i and @i are replaced by words which take a
-\ doube cell address or handle the block at once
-\ (preferred)
-\
-variable flash.base-addr
-
-\ remember a flash cell contains 2 bytes
-
-: flash.load-buffer ( a-addr u -- )
- 1- blocksize 2/ * flash.base-addr @ +
- blocksize 2/ bounds ?do i @i over ! cell+ loop drop
-;
-
-: flash.save-buffer ( a-addr u -- )
- 1- blocksize 2/ * flash.base-addr @ +
- ." still debugging. no actual flash write!"
- blocksize 2/ bounds ?do dup @ i 2drop ( !i) cell+ loop drop
-;
-
-\ for turnkey
-: flash.init ( -- )
- ['] flash.load-buffer is load-buffer
- ['] flash.save-buffer is save-buffer
- 0 flash.base-addr !
- block:init
-;