16bit Übergabe von uC zu CPLD

[Full W. (realjey)]

Hallo Mikro-Freaks,

Ich habe wie im Anhang zu sehen einen uC(PIC18F4520) über portd (8bit) 
mit einem CPLD(XC95288XL) verbunden.
Da ich 16bit-Register im CPLD mit diesen Daten füllen möchte ist nun 
mein Plan diesen 8bit-Datenbus auf "virtuelle" 16bit zu erweitern (zmd. 
in uC->CPLD -Richtung). Hierfür lege ich erst eine 8bit-Adresse auf den 
Datenbus (adressCPLD=1 und chip select=1) und nachfolgend 8bit (lower 
byte oder higher byte)(nur chip select=1).

Also folgende Reihenfolge (PIC):

1- Sende Adresse1
2- sende 8bit (lower byte)
3- sende Adresse2
4- sende 8bit (higher byte)

Mein PIC-Programm sieht folgendermaßen aus:

{
void Write_CPLD8(char para, unsigned int adress)

  ////////
  //first adress then byte
  ////////

  //send adress
  trisd=0x0;              //portd=output
  portd=adress;           //8bit-adress on db
  portb.2=1;              //adressCPLD=1
  portc.0=0;              //CS=1
  delay_us(10);           //delay
  portc.0=1;              //CS=0
  portb.2=0;              //adressCPLD=0;
  trisd=0xff;             //portd=input

  //send lower/higher byte
  trisd=0x0;              //portd=output
  portd=para;             //byte on db
  portc.0=0;              //CS=1, adressCPLD=0
  portc.0=1;              //CS=0
  delay_us(10);
  trisd=0xff;             //portd=input

  return;     
}

Die Funktion wird also 2x für ein vollständiges Datenpaket aufgerufen.

Mein CPLD-Code ist noch in Abel geschrieben (musste leider auf einem 
alten Projekt aufbauen), ich hoffe es gibt noch alte Hasen die damit 
klarkommen:)

--chip_select synchronisation
Qhelp.Clk=clock;
Qhelp0.D=!CS;
Qhelp1.D=Qhelp0;
CS_pulse=Qhelp0 & !Qhelp1;

frame[15..0].Clk=clock;

--adress indication
adress[7..0].Clk=clock;
adressCPLD_pulse.clk=clock;
adressCPLD_pulse=strobe_pulse & adressCPLD;

--byte indication
byte_temp.clk=clock;
byteCPLD_pulse.clk=clock;
byteCPLD_pulse=(strobe_pulse & !adressCPLD);

--adresse einlesen
when(adressCPLD_pulse == 1) then adress[7..0]:=[DB7,DB6,DB5,DB4,DB3,DB2,DB1,DB0];
  else adress[7..0]:=adress[7..0].FB;

--byte einlesen
when(byteCPLD_pulse==1) then byte_temp[7..0]:=[DB7,DB6,DB5,DB4,DB3,DB2,DB1,DB0];
  else byte_temp[7..0]:=byte_temp[7..0].FB;

--framerate choice (lower, higher 8 bit)
when(adress[7..0]==[1,1,1,1,1,1,1,1]) then frame[7..0]:=byte_temp[7..0]; 
  else frame[7..0]:=frame[7..0].FB;
when(adress[7..0]==[1,1,1,1,1,1,1,0]) then frame[15..8]:=byte_temp[7..0]; 
  else frame[15..8]:=frame[15..8].FB;

Das ganze scheint eig. auch einwandfrei zu funktionieren, allerdings 
habe ich immer mal wieder Probleme bei der Übergabe. Die Framerate geht 
dann kurzfristig auf 0 und erst danach auf den korrekten von mir 
übergebenen Wert, dies geschieht ca. bei jeder 5. Übergabe. Ich sehe das 
Problem darin, das bei den Zeilen

when(adress[7..0]==[1,1,1,1,1,1,1,1]) then frame[7..0]:=byte_temp[7..0]; 
  else frame[7..0]:=frame[7..0].FB;
when(adress[7..0]==[1,1,1,1,1,1,1,0]) then frame[15..8]:=byte_temp[7..0]; 
  else frame[15..8]:=frame[15..8].FB;

teils schon die Adresse erkannt wird aber noch keine byte-Daten auf dem 
Datenbus liegen und er dadurch eine 0 einliest. Beim nächsten Durchlauf 
liegen dann die Daten korrekt in byte_temp und er nimmt den Wert an.

Leider stehe ich gerade ein auf dem Schlauch wie ich hier eine korekte 
Erkennung der Daten implementieren kann. Wäre nett wenn sich das mal 
kurz jemand anschaut.

DANKE!
jey

[W.S. (Gast)]

Wozu brauchst du denn 8 Bit Adressen? Dein CPLD enthält doch nicht 
einmal annähernd so viele MC wie du damit adressieren kannst.
Ich würde schlichtweg 2 Clocksignale nehmen: mit dem einen stopfst du 
ein Byte in dein CPLD und mit dem anderen das andere Byte. Ferticht.

W.S.

[bko (Gast)]

Was passiert denn genau, evtl. sowas?

> Jey Soon schrieb:
>Also folgende Reihenfolge (PIC): | frame[15:8] [7:0]
------------------------------------------------------
>1- Sende Adresse1                |    alt       alt
>2- sende 8bit (lower byte)       |    alt       neu
>3- sende Adresse2                |    alt       neu
>4- sende 8bit (higher byte)      |    neu       neu

Beispiel
  PIC                 |  frame[15:8] [7:0]
-------------------------------------------
1- Adresse1           |    0x00   0xFF  <-- alter frame
2- low-byte neu 0x00  |    0x00   0x00  <-- autsch
3- Adresse2           |    0x00   0x00 <-- autsch
4- high-byte neu 0x01 |    0x01   0x00 <-- neuer frame

[Full W. (realjey)]

W.S. schrieb:
> Wozu brauchst du denn 8 Bit Adressen? Dein CPLD enthält doch nicht
> einmal annähernd so viele MC wie du damit adressieren kannst.
> Ich würde schlichtweg 2 Clocksignale nehmen: mit dem einen stopfst du
> ein Byte in dein CPLD und mit dem anderen das andere Byte. Ferticht.
>
> W.S.

Richtig es werden wahrscheinlich max. 10 Adressen werden, allerdings 
muss ich ja dem CPLD mitteilen welches Register gerade gefüllt werden 
soll.
Wie meinst du das genau mit 2 Clocksignalen?

bko schrieb:
> Was passiert denn genau, evtl. sowas?
>
>> Jey Soon schrieb:
>>Also folgende Reihenfolge (PIC): | frame[15:8] [7:0]
> ------------------------------------------------------
>>1- Sende Adresse1                |    alt       alt
>>2- sende 8bit (lower byte)       |    alt       neu
>>3- sende Adresse2                |    alt       neu
>>4- sende 8bit (higher byte)      |    neu       neu
>
> Beispiel
>   PIC                 |  frame[15:8] [7:0]
> -------------------------------------------
> 1- Adresse1           |    0x00   0xFF  <-- alter frame
> 2- low-byte neu 0x00  |    0x00   0x00  <-- autsch
> 3- Adresse2           |    0x00   0x00 <-- autsch
> 4- high-byte neu 0x01 |    0x01   0x00 <-- neuer frame

genau das scheint zu passieren :/

[Klaus F. (kfalser)]

when(adress[7..0]==[1,1,1,1,1,1,1,1]) then frame[7..0]:=byte_temp[7..0];
  else frame[7..0]:=frame[7..0].FB;
when(adress[7..0]==[1,1,1,1,1,1,1,0]) then 
frame[15..8]:=byte_temp[7..0];
  else frame[15..8]:=frame[15..8].FB;

Du darfst die Frame-Daten nur übernehmen, wenn CS high ist !

when(adress[7..0]==[1,1,1,1,1,1,1,1] & CS == 1 & AddrCPL == 0) then 
frame[7..0] := DB[7..0];

oder so ähnlich

[Full W. (realjey)]

Genau so habe ich es mir auch gedacht, allerdings scheint Abel die 
Syntax zwar zu akzeptieren, allerdings führt der CPLD die 
UND-Verknüpfung nicht richtig aus, es werden gar keine Daten mehr in 
Frame geschrieben, da

when(adress[7..0]==[1,1,1,1,1,1,1,1] & byteCPLD_pulse==1) then frame[7..0]:=byte_temp[7..0]; 
  else frame[7..0]:=frame[7..0].FB;

nie erfüllt ist.

Wenn jemand weiss wie ich in Abel korrekt ein Register und ein Bit in 
einer when-Anweisung als zwei Bedingungen miteinander verknüpfe wäre das 
super, ich denke damit wäre das Problem erledigt (hoffe ich^^)

[bko (Gast)]

wenn tatsächlich dies passiert:
> Beispiel
>   PIC                 |  frame[15:8] [7:0]
> -------------------------------------------
> 1- Adresse1           |    0x00   0xFF  <-- alter frame
> 2- low-byte neu 0x00  |    0x00   0x00  <-- autsch
> 3- Adresse2           |    0x00   0x00 <-- autsch
> 4- high-byte neu 0x01 |    0x01   0x00 <-- neuer frame

d.h. also wenn die frame [15:0] gleichzeitig anliegen
müssen, dann braucht du noch einen weiteren Zwischenspeicher
für das low-byte:
ich kann kein Abel aber evtl. müsste es so aussehen:

when(adress[7..0]==[1,1,1,1,1,1,1,1]) then temp2[7..0]:=byte_temp[7..0]; 
  else temp2[7..0]:=temp2[7..0].FB;
when(adress[7..0]==[1,1,1,1,1,1,1,0]) 
               then frame[15..0]:=[byte_temp[7..0],temp2[7:0]]; --syntax?
               -- gebe erstes Byte erst aus wenn zweites auch da   
  else frame[15..0]:=frame[15..0].FB;