Print "EEPROM Test"
Print

Const SPI_CS = 2

Pin(SPI_CS) = 1   'deselect SPI EEPROM
SetPin SPI_CS, dout

SPI open 100000,0,8

Print "Read electronic signature:";
Pin(SPI_CS) = 0
dummy = SPI(&b10101011)
dummy = SPI(0)
dummy = SPI(0)
result = SPI(0)
Pin(SPI_CS) = 1
Print result
Print

Print "EEPROM Satus:";SPI_EE_Read_Status()

Print "old EEPROM contents:"
Print SPI_EE_Read_String(0,45)  ' read 45 bytes starting from address 0

' write some stuff to EEPROM
SPI_EE_Write_String 10, "This is a test!"
SPI_EE_Write_String 30, Time$ + "     "   ' spaces to blank out previous data
SPI_EE_Write_String 40, Date$

Print "new EEPROM contents:"
Print SPI_EE_Read_String(0,45)  ' read 45 bytes starting from address 0

SPI close

End

Sub SPI_EE_Enable_Write
 Pin(SPI_CS) = 0
 dummy = SPI(&b00000110)   ' enable writes
 Pin(SPI_CS) = 1
End Sub

Sub SPI_EE_Disable_Write
 Pin(SPI_CS) = 0
 dummy = SPI(&b00000100)   ' disable writes
 Pin(SPI_CS) = 1
End Sub

' Write a string to EEPROM
' WARNING - dumb code doesn't know about page boundaries!
Sub SPI_EE_Write_String addr,d$
 Local integer dummy

 If Len(d$) > 0 Then
   SPI_EE_Enable_Write

   Pin(SPI_CS) = 0
   dummy = SPI(&b00000010)     ' write instruction
   dummy = SPI(addr \ 256)     ' high byte of address
   dummy = SPI(addr Mod 256)   ' low byte of address
   SPI write Len(d$), d$
   Pause 1
   Pin(SPI_CS) = 1
   Pause 500   ' wait for write to finish - should check STATUS instead
   SPI_EE_Disable_Write
 EndIf

End Sub

' Read n bytes from EEPROM, return as a string
Function SPI_EE_Read_String(addr,n) As string
 Local integer i,dummy,v
 Local d$ = ""

 Pin(SPI_CS) = 0
 dummy = SPI(&b00000011)     ' read instruction
 dummy = SPI(addr \ 256)     ' high byte of address
 dummy = SPI(addr Mod 256)   ' low byte of address

 For i = 1 To n              ' loop through and read each byte
   v = SPI(0)                ' dummy output to get input
   If v <  32 Then v = 32     ' WARNING - turn unprintable into space
   If v > 127 Then v = 32     ' WARNING - turn unprintable into space
   d$ = d$ + Chr$(v)
 Next i

 SPI_EE_Read_String = d$
 Pin(SPI_CS) = 1

End Function

' read the status register
Function SPI_EE_Read_Status()
 Pin(SPI_CS) = 0
 dummy = SPI(&b00000101)
 Read_SPI_EE_Status = SPI(0)
 Pin(SPI_CS) = 1
End Function