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/common/lib/hardware/i2c-value.frt | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 amforth-6.5/common/lib/hardware/i2c-value.frt (limited to 'amforth-6.5/common/lib/hardware/i2c-value.frt') diff --git a/amforth-6.5/common/lib/hardware/i2c-value.frt b/amforth-6.5/common/lib/hardware/i2c-value.frt new file mode 100644 index 0000000..7638be6 --- /dev/null +++ b/amforth-6.5/common/lib/hardware/i2c-value.frt @@ -0,0 +1,23 @@ +\ +\ 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 ) +\ -- cgit v1.2.3