Guru
Joined: 11/02/2018
Location: AustraliaPosts: 3046
| Posted: 12:01pm 13 Jun 2025 |
Also many thanks Peter and Geoff, a major effort!
Gave the patched I2C a workout on an EEPROM.
> dim integer a(4096)
> I2C WRITE I2C.addr, 0, 2, 0, 0 :t=timer : I2C read I2C.addr, 0, 4096, a():?timer-t; " mS"
100.107 mS
> for n=4000 to 4096:? chr$(a(n)); :next
<-ptr A=4000, Page 125, A=4031-><-ptr A=4032, Page 126, A=4063-><-ptr A=4064, Page 127, A=4095->
>
All bytes returned. > I2C WRITE I2C.addr, 0, 2, 0, 0 :t=timer : I2C read I2C.addr, 0, 4096, a():?timer-t; " mS"
100.107 mS
> for n=4000 to 4096:? chr$(a(n)); :next
<-ptr A=4000, Page 125, A=4031-><-ptr A=4032, Page 126, A=4063-><-ptr A=4064, Page 127, A=4095->
>