From 67d25d837ac55f28a366c0a3b262e439a6e75fc3 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 19 Aug 2017 12:15:28 +0200 Subject: Add AmForth --- amforth-6.5/avr8/lib/2evalue.frt | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create 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 new file mode 100644 index 0000000..6a1d3aa --- /dev/null +++ b/amforth-6.5/avr8/lib/2evalue.frt @@ -0,0 +1,30 @@ +\ 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