PIC16F1503: In Internen Flash schreiben

[Seppi (Gast)]

Hallo Leute,

Möchte gerne in den internen Flash des PIC16F1503 schreiben.
NEIN es ist kein PIC18
NEIN nicht in den EEPROM (hat keinen)
Compiler ist Mikrobasic Pro 6.0

Nun habe ich mir folgende Idee ausgedacht:

module EEPROM_Operationen  'Eigentlich Flash_Operationen
include "Variabel_Definitionen"

Const Flashmemmorystart = 0x7FF     'Höchste Addresse beim PIC16F1503

dim Sub Procedure LoadSettings
dim Sub Procedure Speichere_Einschaltpunkt_Relais1
dim Sub Procedure Speichere_Ausschaltpunkt_Relais1
dim Sub Procedure Speichere_Einschaltpunkt_Relais2
dim Sub Procedure Speichere_Ausschaltpunkt_Relais2

implements

sub Procedure WaitForWrite
    delay_ms(10)
end sub

sub procedure Write_LongWord(dim Flash_start as word, dim byref val_LongWord as LongWord)
'Write 4 words in Flash memory
dim counter as byte
    data_ as word
    dataAR as word[4][4]
    
 'First read the actual values from the flash memory, to avoid, to overwirte it.
  dataAR[0][0]= FLASH_Read(Flash_start)
  dataAR[0][1]= FLASH_Read(Flash_start +1)
  dataAR[0][2]= FLASH_Read(Flash_start +2)
  dataAR[0][3]= FLASH_Read(Flash_start +3)
  dataAR[1][0]= FLASH_Read(Flash_start +4)
  dataAR[1][1]= FLASH_Read(Flash_start +5)
  dataAR[1][2]= FLASH_Read(Flash_start +6)
  dataAR[1][3]= FLASH_Read(Flash_start +7)
  dataAR[2][0]= FLASH_Read(Flash_start +8)
  dataAR[2][1]= FLASH_Read(Flash_start +9)
  dataAR[2][2]= FLASH_Read(Flash_start +10)
  dataAR[2][3]= FLASH_Read(Flash_start +11)
  dataAR[3][0]= FLASH_Read(Flash_start +12)
  dataAR[3][1]= FLASH_Read(Flash_start +13)
  dataAR[3][2]= FLASH_Read(Flash_start +14)
  dataAR[3][3]= FLASH_Read(Flash_start +15)
  
  'Now move the value to the buffer
  dataAR[0][0]= Lo(val_LongWord)
  dataAR[0][1]= Hi(val_LongWord)
  dataAR[0][2]= Higher(val_LongWord)
  dataAR[0][3]= Highest(val_LongWord)
  
  'Now write the buffer to the internal Flash
  for counter = 0 to 3
    Delay_ms(100)
    FLASH_Write(Flash_start+counter*4, dataAR[counter])
  next counter
  Delay_ms(500)
end sub

sub function Read_LongWord(dim Flash_start as word) as LongWord 'read 4 words from Flash memory
dim Helper as longword
    Lo(Helper) = FLASH_Read(Flash_start)
    Hi(Helper) = FLASH_Read(Flash_start + 1)
    Higher(Helper) = FLASH_Read(Flash_start + 2)
    Highest(Helper) = FLASH_Read(Flash_start + 3)
    Read_LongWord = Helper
end sub

Sub Procedure LoadSettings
dim Flashmemmorystart as word
    Einschaltpunkt_Relais1 = Read_LongWord(Flashmemmorystart - 16)
    Ausschaltpunkt_Relais1 = Read_LongWord(Flashmemmorystart - 32)
    Einschaltpunkt_Relais2 = Read_LongWord(Flashmemmorystart - 48)
    Ausschaltpunkt_Relais2 = Read_LongWord(Flashmemmorystart - 64)
end sub

Sub Procedure Speichere_Einschaltpunkt_Relais1
    Write_LongWord(Flashmemmorystart - 16,Einschaltpunkt_Relais1)
end sub

Sub Procedure Speichere_Ausschaltpunkt_Relais1
    Write_LongWord(Flashmemmorystart - 32,Ausschaltpunkt_Relais1)
end sub

Sub Procedure Speichere_Einschaltpunkt_Relais2
    Write_LongWord(Flashmemmorystart -48,Einschaltpunkt_Relais2)
end sub

Sub Procedure Speichere_Ausschaltpunkt_Relais2
    Write_LongWord(Flashmemmorystart - 64,Ausschaltpunkt_Relais2)
end sub

end.

Kann das in dieser Form funktionieren?
Wer hat da Erfahrung damit?

[Gerald S. (geralds)]

>
> Kann das in dieser Form funktionieren?
> Wer hat da Erfahrung damit?

---
Hi,

So auf die Schnelle gesehen, nein, kann nicht funktionieren.
Im Manual des Bauteils steht die Routine, das Protokoll, wie das
Flash sich angesprochen fühlt.

Es fehlt noch was - zB: 55,AA; ... als Hinweis,
-- siehe bitte im Manual nach, wie es genau geht.

Grüße
Gerald

[chris (Gast)]

Nein, funktioniert auf keinem Falle.

Du musst FLASH_Read_N sowie FLASH_Write_16 benutzten.

Emulation hat Pages, Sectors .
Bei dieser Architektur kann man maximal 64 bytes EEprom emulieren.
Dies weil das Flash 14bit hat, also low 8 bit = EEprom Data, high 6 bit 
=
Adresse
Also je Sector 64 bytes. Sprich willst du 256 bytes emulieren, dann gibt 
es
4 Sektoren. Jeder Sector hat N Pages, mindestens jedoch zwei, besser 3.
Wenn mehr als zwei Pages, so hat jede Page einen Write counter.
Normalerweise können max zwei Pages aktive sein, oft auch nur eine.
Bei 14bit flash wird meistens auch die Anzahl der der Tabelle 
gespeichert,
also bei z.B. 256 bytes page size je 8 Eintraege ein bit. Damit geht
das Lesen und Schreiben dann schneller.

Beispiel 1K flash als EEprom Ersatz mit 1 Sector zu je 4 Pages

Wenn du asm code einbinden kannst, dann wäre das der einfachste Weg, 
ansonsten musst du dir dies zu Fuß programmieren.
AN gibt es diesbezüglich auch von Microchip.