aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/hardware/i2c-eeprom-value.frt
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/common/lib/hardware/i2c-eeprom-value.frt')
-rw-r--r--amforth-6.5/common/lib/hardware/i2c-eeprom-value.frt19
1 files changed, 0 insertions, 19 deletions
diff --git a/amforth-6.5/common/lib/hardware/i2c-eeprom-value.frt b/amforth-6.5/common/lib/hardware/i2c-eeprom-value.frt
deleted file mode 100644
index 50f0941..0000000
--- a/amforth-6.5/common/lib/hardware/i2c-eeprom-value.frt
+++ /dev/null
@@ -1,19 +0,0 @@
-\
-\ A value stored in I2C EEPROM.
-\
-
-#require value.frt
-#require quotations.frt
-#require ms.frt
-#require i2c-eeprom.frt
-
-\ initial addr hwid ...
-\ 17 0 $50 i2c.value "name"
-: i2c.ee.value ( n addr hwid -- )
- (value)
- over , \ store the addr
- [: dup @i ( addr ) swap 3 + @i ( hwid) @i2c.ee ;] ,
- [: dup @i ( addr ) swap 3 + @i ( hwid) !i2c.ee 5 ms ;] ,
- dup , \ store hwid
- !i2c.ee \ store inital data
-;