$regfile = "m328pdef.dat"                                   ' specify the used micro
$crystal = 11059200                                         'this crystal allows the max bootloader speed of 115200 baud as all baud rates have zero error

$baud = 115200                                              '115200 baud rate for hardware serial communication
$hwstack = 256
$swstack = 256
$framesize = 24

Waitms 200

Config Spi = Hard , Interrupt = Off , Data Order = Msb , Clockrate = 16 , Master = Yes , Polarity = Low , Phase = 0 , Noss = 1
Spiinit

Dim Spi_control_write As Byte
Dim Spi_control_read As Byte
Dim Spi_address As Word
Dim Spi_data As Byte
Dim Spi_result As Byte
Dim Spi_write_enable As Byte

Spi_write_enable = &B0000_0110
Spi_control_write = &B0000_0010                             'write command
Spi_control_read = &B0000_0011                              'read command
Spi_address = 0
Rotate Spi_address , Left , 8                               'fix address bytes
Spi_data = 64                                               'test data

Mycs Alias Portd.7
Config Mycs = output
Set Mycs
Spi_result = 0

Do
   Incr Spi_address
   Rotate Spi_address , Left , 8
   Incr Spi_data

   Reset Mycs
   Spiout Spi_write_enable , 1
   Set Mycs
   Waitms 10 'Note, changing this value to zero or higher doesn't solve the issue
   Reset Mycs
   Spiout Spi_control_write , 1
   Spiout Spi_address , 2
   Spiout Spi_data , 1
   Set Mycs

   Print "Written to EEPROM : " ; Spi_data

   Waitms 100

   Reset Mycs
   Spiout Spi_control_read , 1
   Spiout Spi_address , 2
   Spiin Spi_result , 1
   Set Mycs

   Print "Read from EEPROM ; " ; Spi_result

   Waitms 500

Loop

End

$regfile = "m328pdef.dat"                                   ' specify the used micro
$crystal = 11059200                                         'this crystal allows the max bootloader speed of 115200 baud as all baud rates have zero error

$baud = 115200                                              '115200 baud rate for hardware serial communication
$hwstack = 256
$swstack = 256
$framesize = 24

Waitms 200

Config Spi = Hard , Interrupt = Off , Data Order = Msb , Clockrate = 16 , Master = Yes , Polarity = Low , Phase = 0 , Noss = 1
Spiinit

Dim Spi_control_write As Byte
Dim Spi_control_read As Byte
Dim Spi_address As Word
Dim Spi_data As Byte
Dim Spi_result As Byte
Dim Spi_write_enable As Byte
Dim Adress As Dword
Dim Adre(4) As Byte At Adress Overlay

Spi_write_enable = &B0000_0110
Spi_control_write = &B0000_0010                             'write command
Spi_control_read = &B0000_0011                              'read command                                               'test data

Mycs Alias Portd.7
Config Mycs = output
Set Mycs

Spi_result = 0
Adress = 0
Spi_data = 0

Do
   Incr Adress
   Incr Spi_data

   Reset Mycs
   Spiout Spi_write_enable , 1
   Set Mycs
'   Waitms 10
   Reset Mycs
   Spiout Spi_control_write , 1
   Spiout Adre(3) , 1                                       'send the write address (in 3 bytes)
   Spiout Adre(2) , 1
   Spiout Adre(1) , 1
   Spiout Spi_data , 1
   Set Mycs

   Print "Written to EEPROM : " ; Spi_data ; "  at address " ; Adress

   Waitms 100

   Reset Mycs
   Spiout Spi_control_read , 1
   Spiout Adre(3) , 1                                       'send the write address (in 3 bytes)
   Spiout Adre(2) , 1
   Spiout Adre(1) , 1
   Spiin Spi_result , 1
   Set Mycs

   Print "Read from EEPROM ; " ; Spi_result ; "  at address " ; Adress

   Waitms 500

Loop

End