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/2evalue.frt | 30 ------------------------------ 1 file changed, 30 deletions(-) delete mode 100644 amforth-6.5/avr8/lib/2evalue.frt (limited to 'amforth-6.5/avr8/lib/2evalue.frt') diff --git a/amforth-6.5/avr8/lib/2evalue.frt b/amforth-6.5/avr8/lib/2evalue.frt deleted file mode 100644 index 6a1d3aa..0000000 --- a/amforth-6.5/avr8/lib/2evalue.frt +++ /dev/null @@ -1,30 +0,0 @@ -\ use 2 cells of EEPROM -\ Author: Erich Wälde -\ Date: oct 2015 - -\ #require quotations.frt -\ #require eallot.frt - -: 2@e ( eaddr -- n2 n1 ) - dup \ -- addr addr - cell+ \ -- addr addr+2 - @e \ -- addr n2 - swap \ -- n2 addr - @e \ -- n2 n1 -; -: 2!e ( n1 n2 eaddr -- ) - rot \ -- n2 eaddr n1 - over \ -- n2 eaddr n1 eaddr - cell+ \ -- n2 eaddr n1 eaddr+2 - !e \ -- n2 eaddr - !e \ -- -; - -: 2Evalue ( d -- ) - (value) - ehere , - [: @i 2@e ;] , - [: @i 2!e ;] , - ehere 2!e 2 cells eallot -; - -- cgit v1.2.3