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/avr8/lib/hardware/flash-block.frt | 37 --------------------------- 1 file changed, 37 deletions(-) delete mode 100644 amforth-6.5/avr8/lib/hardware/flash-block.frt (limited to 'amforth-6.5/avr8/lib/hardware/flash-block.frt') 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 -; -- cgit v1.2.3