en:pfw:i2c_gd32vf_noforth_simple_i2c-ee.f
(* Short I2C 24C02 EEPROM demo
PB6 = SCL
PB7 = SDA
Reading and writing to EEPROM type 24C02
A0 = EEPROM I2C bus address
Load 'GD32VF103 bb-I2C.f' before this file
*)
hex
\ Read data 'x' from EEPROM address 'a'.
: EC@ ( ia -- x )
50 device! 1 {i2c-write bus! i2c}
1 {i2c-read bus@ i2c} ;
\ Write 'x' to EEPROM address 'a'
: EC! ( x ia -- )
50 device! 2 {i2c-write bus! bus! i2c} ;
\ Show stored string from EEPROM
: SHOW ( -- )
i2c-on
begin
cr ." Project-"
0 ec@ 0 ?do
i 1+ ec@ emit
loop
." -Works" 100 ms
key? until ;
i2c-on 0 \ Store string to start of EEPROM
5 over ec! 1+
ch F over ec! 1+
ch o over ec! 1+
ch r over ec! 1+
ch t over ec! 1+
ch h over ec! 1+
drop
' show to app
shield I2C-DEMO\ freeze
\ End ;;;
en/pfw/i2c_gd32vf_noforth_simple_i2c-ee.f.txt · Last modified: 2023-09-04 18:15 by uho