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