736852, вот Вам пример с сайта Протона для 93C46.
.
Код
' ee2 pin Assignments
Symbol CS = PORTA.5 ' Chip select pin
Symbol CLK = PORTC.3 ' Clock pin
Symbol DI = PORTC.4 ' Data in pin
Symbol DO = PORTC.5 ' Data out pin
Dim Addr As Byte ' Address
Dim W0 As Word ' Data
' Subroutine to read data from addr in serial EEPROM
ee_read: CS = 1 ' Enable serial EEPROM
SHOut DI, CLK, msbfirst, [%1100\3, Addr] ' Send read command and address
SHIn DO, CLK, msbpost, [W0] ' Read data
CS = 0 ' Disable
Return
' Subroutine to write data at addr in serial EEPROM
ee_write:
CS = 1 ' Enable serial EEPROM
SHOut DI, CLK, msbfirst, [%101\3, Addr, W0] ' Send write command, address and data
CS = 0 ' Disable
Return
' Subroutine to enable writes to serial EEPROM
ee_enable:
CS = 1 ' Enable serial EEPROM
SHOut DI, CLK, msbfirst, [%10011\5, 0\4] ' Send write enable command and dummy clocks
CS = 0 ' Disable
Return
' Subroutine to enable writes to serial EEPROM
ee_disable:
CS = 1 ' Disable serial EEPROM
SHOut DI, CLK, msbfirst, [%10000\5, 0\4] ' Send write disable command and dummy clocks
CS = 0 ' Disable
Return