aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/hardware/i2c-value.frt
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/common/lib/hardware/i2c-value.frt')
-rw-r--r--amforth-6.5/common/lib/hardware/i2c-value.frt23
1 files changed, 0 insertions, 23 deletions
diff --git a/amforth-6.5/common/lib/hardware/i2c-value.frt b/amforth-6.5/common/lib/hardware/i2c-value.frt
deleted file mode 100644
index 7638be6..0000000
--- a/amforth-6.5/common/lib/hardware/i2c-value.frt
+++ /dev/null
@@ -1,23 +0,0 @@
-\
-\ an I2C value
-\
-
-#require values.frt
-#require quotations.frt
-#require i2c.frt
-
-\ initial hwid ...
-\ 17 $3D i2c.cvalue "name"
-: i2c.cvalue ( n addr hwid -- )
- (value)
- dup , \ store the hwid
- [: dup @i ( hwid) i2c.c@ ;] ,
- [: dup @i ( hwid) i2c.c! ;] ,
- i2c.c! \ store inital data
-;
-
-\ use case: port extender
-\ $ff $3d i2c.cvalue keys
-\ $00 to keys ( turn all off )
-\ keys $01 and if ( if key 1 is pressed )
-\