Ansteuerung RTC 72421

[blutengel (Gast)]

Hallo,

nach längerer Zeit bräuchte ich mal wieder Hilfe.

Ich versuche nun schon seit 2 Tagen den RTC 72421 ans laufen zu 
bekommen.

Was ich leider nicht verstehe ist der Rd und der Wr Pin.
Wenn ich z.B eine Adresse anliegen habe, und auf dem Datenbus ein Signal 
habe, was mache ich dann mit den beiden Rd und Wr? Wird der Wr auf 1 
gesetzt und dann werden alle Daten nacheinander mit den passenden 
Adressen auf den Bus gelegt. Oder Müssen Adresse und Daten anliegen und 
Und beide Pin´s werden einmal an und aus geschaltet. Leider verstehe ich 
das nicht ganz. Im Datenblatt steht leider nicht viel darüber drin.


MFG

blutengel

[hp-freund (Gast)]

http://s100computers.com/My%20System%20Pages/PIC&RTC%20Board/Epson%2072421%20manual.pdf

Page-5/6

Ist so wie es früher war.

Adresse, Daten anlegen -> Schreibpuls

bzw.

Adresse anlegen -> Lesepuls -> Daten

[hp-freund (Gast)]

Und ALE nicht vergessen bzw. an VDD.

[Marc V. (Firma: Vescomp) (logarithmus)]

blutengel schrieb:
> Und beide Pin´s werden einmal an und aus geschaltet. Leider verstehe ich
> das nicht ganz. Im Datenblatt steht leider nicht viel darüber drin.

 Adresse anlegen, Daten anlegen, RD=HI, WR auf LOW - Daten
 reinschreiben.

 Adresse anlegen, Daten als Eingang, WR=HI, RD auf LOW - Daten
 rauslesen.

 Und RD und WR immer auf HI wenn IDLE.

[blutengel (Gast)]

Hi,

danke schon mal für die schnelle Antwort.
Wenn ich das richtig verstehe läuft es also so ab:

Daten schreiben

Rd auf H und Rd auf H.

A0,A1,A2,A3 Adresse anlegen
D0,D1,D2,D3 Daten anlegen

Rd auf H und Wr auf L

dann

Rd auf L und Wr auf H

und danach

Rd auf H und Rd auf H.


Daten lesen

Rd auf H und Rd auf H.

A0,A1,A2,A3 Adresse anlegen

Rd auf L und Wr auf H

dann

Rd auf H und Wr auf L

Daten von D0,D1,D2,D3 lesen

und danach

Rd auf H und Rd auf H.

Im datenbaltt steht ja sogar High Impedance (RTC not used)
Rd und Wr auf H oder L. Aber in der Zeile von Wr und Rd steht extra 
"Make sure that Rd and Wr are never low at the same Time. Das 
wiederspricht sich doch oder,

[Marc V. (Firma: Vescomp) (logarithmus)]

blutengel schrieb:
> Daten schreiben
 Falsch. So:

Rd auf Hi und Wr auf Hi.    // IDLE
A0,A1,A2,A3 anlegen         // Adresse anlegen
D0,D1,D2,D3 als Ausgang     // Und natürlich entsprechend Data anlegen
Wr auf Lo
Daten werden geschrieben
Wr auf Hi                   // Fertig, IDLE
D0,D1,D2,D3 als Eingang     // Zur Sicherheit

> Daten lesen
 Falsch. So:

Rd auf Hi und Wr auf Hi.    // IDLE
A0,A1,A2,A3 anlegen         // Adresse anlegen
D0,D1,D2,D3 als Eingang  
Rd auf Lo
Daten lesen
Rd auf Hi

> "Make sure that Rd and Wr are never low at the same Time. Das
> wiederspricht sich doch oder,

 Nein, CS0 ist auch auf H, RTC ist nicht selected.

[blutengel (Gast)]

Cool Danke. Jetzt habe ich es verstanden. Eine Sache frag ich mich aber 
noch. Muss ich jedes mal die 4 Pins D0-D3 als Eingan bzw als Ausgang 
umschalten über das Datenrichtungsregister?

[Georg (Gast)]

blutengel schrieb:
> Muss ich jedes mal die 4 Pins D0-D3 als Eingang bzw als Ausgang
> umschalten über das Datenrichtungsregister?

Ja, wenn du sie zum Schreiben UND zum Lesen benutzen willst, das ist 
praktisch ein bidirektionaler Datenbus.

Der inaktive Zustand ist Ax output, Dx input, /RD,/WR,/CS0 hi,
ALE und CS1 braucht man nicht und müssen dann immer hi sein.

Lesen: Ax setzen, /CS0 lo, /RD lo, Dx lesen, /RD hi, /CS0 hi, fertig

Schreiben: Ax setzen, Dx output und setzen, /CS0 lo, /WR lo, /WR hi, 
/CS0 hi, Dx wieder input, fertig

Georg

[blutengel (Gast)]

CS0 ist bei mir fest auf GND. Müsste doch auch gehen oder?

[Marc V. (Firma: Vescomp) (logarithmus)]

blutengel schrieb:
> CS0 ist bei mir fest auf GND. Müsste doch auch gehen oder?

 Wenn CS1 auf Hi ist oder durch einen Pin auf Hi gesetzt werden
 kann, ja.

[blutengel (Gast)]

Zwar blicke ich jetzt durch, aber leider funktioniert gar nichts. An der 
Hardware kann es nicht liegen. Habe alles durchgemessen. Auch die Ports 
sind alles Ok. Hier mal mein Programm:

$regfile = "m64def.dat"                                     ' ATmega168
$crystal = 16000000
$hwstack = 16
$swstack = 128
$include "GLCD_VDI/GLCD_VDI_INIT.BAS"



'Variablen*************************************
Dim H1 As Byte
Dim H10 As Byte
Dim M1 As Byte
Dim M10 As Byte
Dim S1 As Byte
Dim S10 As Byte

Dim H1_str As String * 2
Dim H10_str As String * 2
Dim M1_str As String * 2
Dim M10_str As String * 2
Dim S1_str As String * 2
Dim S10_str As String * 2

'Variablen Zuweisung*************************
H1 = 0
H10 = 0
M1 = 0
M10 = 0
S1 = 0
S10 = 0

'Config**************************************
Declare Sub Lcd_ausgabe()
Declare Sub Convert_to_string()
Declare Sub Init_rtc()
Declare Sub Rtc_bereit()
Declare Sub Rtc_lesen()
Declare Sub Rtc_not_selected()
Declare Sub Rtc_write()
Declare Sub Rtc_read()
Declare Sub Change_port_b_input()
Declare Sub Change_port_b_output()
Config Portb.0 = Output
Config Portb.1 = Output
Config Portb.2 = Output
Config Portb.3 = Output
Config Portb.4 = Output
Config Portb.5 = Output
Config Portb.6 = Output
Config Portb.7 = Output

Config Portd.0 = Output
Config Portd.1 = Output

'Aliasse***************************************

A0 Alias Portb.0
A1 Alias Portb.1
A2 Alias Portb.2
A3 Alias Portb.3
D0 Alias Portb.4
D1 Alias Portb.5
D2 Alias Portb.6
D3 Alias Portb.7
W_r Alias Portd.0
R_d Alias Portd.1

'**********************************************
Lcd_font = Loadlabel(font8x8tt)                             ' Anpassung der Ports/Pins darin vornehmen!
Lcd_cls
Lcd_draw
Waitms 200

Call Init_rtc


Do


Call Rtc_lesen
Call Convert_to_string
Call Lcd_ausgabe
Waitms 100



Loop
End



'Hauptprogramm Ende****************************

'Subroutinen RTC*******************************

Sub Rtc_write()

Waitus 1000
   Reset W_r
   Waitus 120
   Set W_r
End Sub

Sub Rtc_read()

   Reset R_d
   Waitus 120
   S1 = Portb
   Set R_d



End Sub

Sub Rtc_not_selected()

   Set R_d
   Set W_r

End Sub

Sub Rtc_lesen()                                             'Zum Testen nur Sekunde 1er Stelle auslesen


   Call Change_port_b_input()
   Portb = &B00000000            'Adresse Sekunde 1er Stelle
   Call Rtc_read


End Sub

Sub Init_rtc()

   Call Rtc_not_selected
   Call Change_port_b_output



   Portb = &B01001111                                       'Adresse REG F Daten ausgeben Test=0 24h,Uhr Start,Reset inaktiv
   Call Rtc_write
   Portb = &B00001110                                       'Adresse REG E Daten ausgeben
   Call Rtc_write
   Portb = &B00001101                                       'Adresse REG D Daten ausgeben Hold auf 0
   Call Rtc_write

   Call Rtc_bereit                                          'Abfrage Busy Bit

   Portb = &B01111111                                       'Adresse REG F Daten ausgeben Test=0 24h,Uhr Stop,Reset aktiv
   Call Rtc_write
   Portb = &B01101110                                       'Adresse REG F Daten ausgeben Test=0 24h,Uhr Stop,Reset inaktiv
   Call Rtc_write
   Portb = &B00000000                                       'Adresse Sekunden 1er Stelle  Sekunden Wert bei 0
   Call Rtc_write
   Portb = &B00000001                                       'Adresse Sekunden 10er Stelle Sekunden Wert bei 0
   Call Rtc_write
   Portb = &B00000010                                       'Adresse Minuten 1er StelleM inuten Wert bei 0
   Call Rtc_write
   Portb = &B00000011                                       'Adresse Minuten 10er Stelle Minuten Wert bei 0
   Call Rtc_write
   Portb = &B00000100                                       'Adresse Stunden 1er Stelle Stunden Wert bei 0
   Call Rtc_write
   Portb = &B00000101                                       'Adresse Stunden 10er Stelle Stunden Wert bei 0
   Call Rtc_write
   Portb = &B01001111                                       'Adresse REG F Daten ausgeben Test=0 24h,Uhr aktiv,Reset inaktiv
   Call Rtc_write
   Portb = &B00001110                                       'Adresse REG E Daten ausgeben
   Call Rtc_write
   Portb = &B01001101                                       'Adresse REG D Daten ausgeben Hold auf 0
   Call Rtc_write

   Call Change_port_b_input

End Sub



Sub Rtc_bereit()


   Waitus 250


End Sub
'Subroutinen allgemein*************************

Sub Change_port_b_input()

   Config Pinb.4 = Input
   Config Pinb.5 = Input
   Config Pinb.6 = Input
   Config Pinb.7 = Input

End Sub

Sub Change_port_b_output()

   Config Portb.4 = Output
   Config Portb.5 = Output
   Config Portb.6 = Output
   Config Portb.7 = Output

End Sub

Sub Convert_to_string()

   H1_str = Str(h1)
   H10_str = Str(h10)
   M1_str = Str(m1)
   M10_str = Str(m10)
   S1_str = Str(s1)
   S10_str = Str(s10)
End Sub

Sub Lcd_ausgabe()

   Lcd_text 20 , 1 , 1 , 0 , "Aktuelle Uhrzeit"
   Lcd_text 7 , 12 , 1 , 0 , H1_str
   Lcd_text 0 , 12 , 1 , 0 , H10_str
   Lcd_text 13 , 12 , 1 , 0 , ":"
   Lcd_text 17 , 12 , 1 , 0 , M10_str
   Lcd_text 28 , 12 , 1 , 0 , ":"
   Lcd_text 32 , 12 , 1 , 0 , S10_str
   Lcd_text 40 , 12 , 1 , 0 , S1_str
   Lcd_draw


End Sub



'Subroutinen Ende******************************

$include "GLCD_VDI/GLCD_VDI_MAIN.BAS"
$data
'Fonts Einbinden
$include "font8x8tt.font"
'$include "font16x16.font"

Es passier mal so rein gar nichts.
Wenn ich die Adresse für die Sekunde 1er Stelle ausgebe, und den Lese 
Impuls aktiviere kommt leider nichts dabei raus. Auch eine änderung ist 
nicht festzustellen. Sollte die Uhr laufen müsste sich der Wert ja 
irgendwann ändern. Ich weiss einfach nicht mehr weiter. Vielleicht bin 
ich auch auf dem total falschen Weg. Vielleicht findet von euch jemand 
was.

[Georg (Gast)]

blutengel schrieb:
> Es passier mal so rein gar nichts.

CS ignorierst du völlig?

Georg

[Marc V. (Firma: Vescomp) (logarithmus)]

blutengel schrieb:
> irgendwann ändern. Ich weiss einfach nicht mehr weiter. Vielleicht bin
> ich auch auf dem total falschen Weg. Vielleicht findet von euch jemand
> was.

 Also:
 1) Lesen tut man mit PinB und nicht mit PortB.
 2) So etwas nennt man Spaghetti Code. Versuche mal irgendwie Blocks
    mit zusammenhängenden Code zu bilden.

 Hier, deine LCD-Routinen kannst du selber dazuschreiben:

$regfile = "m64def.dat"                                     ' ATmega168
$crystal = 16000000
$hwstack = 16
$swstack = 128

Dim Rbyt As Byte , Wbyt As Byte
Dim La As Byte , Lb As Byte

'Config**************************************
Declare Sub Setup_rtc()
Declare Sub Rtc_write(byval Adr As Byte , Byval Daten As Byte)
Declare Function Rtc_read(byval Adr As Byte) As Byte

'Aliasse***************************************
W_r Alias Portd.0
R_d Alias Portd.1

Const Dmask = $f0
Const Amask = $0f

'Hauptprogramm ****************************
Call Setup_rtc
Waitms 200

Do
  For Wbyt = 0 To 11
    Rbyt = Rtc_read(wbyt)
'    Call Convert_to_string
'    Call Lcd_ausgabe
'    Call Rtc_write(wbyt , Wbyt)
    Waitms 100
  Next
Loop
End

'Subroutinen RTC*******************************
Sub Setup_rtc()
   Ddrb = Amask
   Portb = Dmask
   DDRD = $03
   Set R_d
   Set W_r
End Sub

Sub Rtc_write(adr As Byte , Daten As Byte)
   Ddrb = $ff
   La = Adr And Amask
   Lb = Daten
   Shift Lb , Left , 4
   La = La Or Lb
   Portb = La
   Waitus 1
   Reset W_r
   Waitus 1
   Set W_r
   Ddrb = Amask
End Sub

Function Rtc_read(byval Adr As Byte) As Byte
   La = Adr And Amask
   La = La Or Dmask
   Portb = La
   Waitus 1
   Reset R_d
   Waitus 1
   La = Pinb
   Shift La , Right , 4
   Set R_d
   Rtc_read = La
End Function

 Nicht ausprobiert, sollte aber OK sein.

EDIT:
Georg schrieb:
> CS ignorierst du völlig?

 Vorausgesetzt, die Steuerleitungen stimmen.

[blutengel (Gast)]

Cs1 liegt bei mir dauerhaft auf High. Das hätte ich erwähnen sollen

[blutengel (Gast)]

Super danke funktioniert auf Anhieb. Ist auch leicht verständlich. 
Manchmal hat man ein Brett vorm Kopf. An den Shift Befehl habe ich gar 
nicht gedacht. Benutzte ich so gut wie gar nicht

[blutengel (Gast)]

EIn kleines Problem habe ich da noch. Ich möchte das ganze für einen 
Countdown Timer nutzen bzw. für einen Belichtungstimer. Wie bekomme ich 
es hin das die Zeit von einer eingestellten Zeit auf Null läuft. Ich 
dachte da an sowas wie umkehren sowie z.B 10 - die 1er Sekunde.

[Marc V. (Firma: Vescomp) (logarithmus)]

blutengel schrieb:
> EIn kleines Problem habe ich da noch. Ich möchte das ganze für einen
> Countdown Timer nutzen bzw. für einen Belichtungstimer. Wie bekomme ich
> es hin das die Zeit von einer eingestellten Zeit auf Null läuft. Ich
> dachte da an sowas wie umkehren sowie z.B 10 - die 1er Sekunde.

 So viel ich gesehen habe, kann man es nur als Uhr laufen lassen, also
 Zeit auf 00:00:00 setzen und den gewünschten Period abwarten.

 Beim auslesen der Zeit immer zuerst Busy in Register 0x0D abfragen.

 Hast du es schon geschafft, Zeit bzw. Datum zu stellen ?

[Georg (Gast)]

blutengel schrieb:
> Wie bekomme ich
> es hin das die Zeit von einer eingestellten Zeit auf Null läuft

Wieviel Zeit? Sekunden oder ganze Jahre?

Da die Uhr nur vorwärts zählt, brauchst du eine Zeit-Arithmetik - du 
ziehst die aktuelle Zeit ab vom Zielzeitpunkt.

Wenn du z.B. 100 Sek belichten willst, rechnest du zum Start JETZT + 100 
Sek und merkst dir diesen Wert. Davon subtrahierst du jede Sekunde JETZT 
und zeigst den Wert an. So kann der Chip auch weiterhin als Echtzeituhr 
dienen, ihn auf 0 zurückzustellen lohnt sich nicht, rechnen musst du so 
oder so, also lieber gleich einmal richtig, d.h. eine Routine schreiben, 
die 2 Zeiten addiert oder subtrahiert.

Georg