aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/hardware/i2c-value.frt
blob: 7638be6a308d8b1912f1f3e9db6b4877c85e8af5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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 )
\