' 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