ramtron FM33xx & krystal 32kHz

[RV]

Dd,

snad vam pomuze aspon kus kodu z unitu (mikroPascal), ktery jsem si 
narychlo napsal kdyz jsem testoval FM31256. Trapil jsem se s tim take 
dost a figl byl v tom, ze je treba obsah registru, ktere naplnite 
prenest dovnitr RTC. Neptejte se mne ale na detaily - delal jsem to dost 
narychlo a uz si z toho prd pamatuji - nicmene to fungovalo bezproblemu. 
A krystalu jsem zkousel docela dost (take jsem to na ne svadel), ale 
funguje to skoro se vsim.

unit fm31;
var
     a_rtc       :array[1..8] of byte;

implementation

const
      adr_fm31_rtc_rd=%11010011;      //adresa FM31 rtc pro cteni
      adr_fm31_rtc_wr=%11010010;      //adresa FM31 rtc pro zapis
      adr_fm31_mem_rd=%10100011;      //adresa FM31 mem pro cteni
      adr_fm31_mem_wr=%10100010;      //adresa FM31 mem pro zapis

      adr_fm31_rtc_tmk_ok=%00000000;
      adr_fm31_rtc_tmk_rd=%00000001;
      adr_fm31_rtc_tmk_wr=%00000010;

procedure RTC_write;
begin
   //zapisu do Flag registru 1 aby se mi prepsalo RTC do registru
   I2C_Start;                    // Issue I2C start signal
   I2C_Wr(adr_fm31_rtc_wr);           // Send byte via I2C
   I2C_Wr(0);                    // Send byte via I2C to flag
   I2C_Wr(adr_fm31_rtc_tmk_wr);       // Send byte via I2C
   I2C_Stop;                     // Issue I2C stop signal

   I2C_Start;                    // Issue I2C start signal
   I2C_Wr(adr_fm31_rtc_wr);           // Send byte via I2C
   I2C_Wr(1);                    // Send byte via I2C to flag
   I2C_Wr(%00000000);           // Send byte via I2C
   I2C_Wr(0*16+0);           // Send byte via I2C
   I2C_Wr(1*16+5);           // Send byte via I2C
   I2C_Wr(1*16+2);           // Send byte via I2C
   I2C_Wr(6);           // Send byte via I2C
   I2C_Wr(0*16+8);           // Send byte via I2C
   I2C_Wr(0*16+9);           // Send byte via I2C
   I2C_Wr(0*16+7);           // Send byte via I2C
   I2C_Stop;                   // Issue I2C stop signal

   //zapisu do Flag registru 0 - vratim to zpet
   I2C_Start;                    // Issue I2C start signal
   I2C_Wr(adr_fm31_rtc_wr);           // Send byte via I2C
   I2C_Wr(0);                    // Send byte via I2C to flag
   I2C_Wr(adr_fm31_rtc_tmk_ok);     // Send byte via I2C
   I2C_Stop;                    // Issue I2C stop signal

end;

Radek Vicek

Tomas Mainzer napsal(a):
> Dobry den, nepouziva zde nekdo FM33256, FM3316 (nebo i jiny typ RTC+FRAM) od
> Ramotronu?
> Mam problem s RTC - nekmita mi oscilator (zkousel jsem uz asi 4 typy
> krystalu 32.768kHz (s i bez zatezovych kapacit).
> (co se tyka SW: nuluji bit 7(OSCEN) a nastavuji bit 2 (CAL) na adr.00
> (=start oscilatoru a vystup frekvence na pin ACS).
> nejake napady kde muze byt zakopan pes ci co vyzkouset? pripadne typ na
> krystal ktery je pozitivne funkcni.
> Diky.
> T.Mainzer
> 
> 
> 
> 
> _______________________________________________
> HW-list mailing list  -  sponsored by www.HW.cz
> Hw-list@list.hw.cz
> http://list.hw.cz/mailman/listinfo/hw-list
> 
> 
>