ADC + Schieberegister + PORTA

[Rulexx (Gast)]

Hallo an alle,

Ich bin gerade dabei einen Atmega32 mit LED-Drehzahlanzeige (74HC595) 
und Accelerometer und Sd-karte auszurüsten. Doch nicht alles ist ein 
Poneyhof, und bei mir springt die LED-Anzeige von dem Schiberegister 
jedes mal kurzzeitig auf, wenn es an der sd karte gespeichert wird.

Erstmal dachte es wäre weil die Accelerometer ADC eingänge den PORT.A 
mit dem Schiberegister teilen, deswegen wird der Schiberegister bei jede 
messung gestört. Allerding auch wenn ich die GETADC(x) auskommentiere 
tritt mein Problem weiterhin auf.

Die schaltung ist relativ kompliziert, deswegen poste ich die wichtigste 
Teile davon.

Die anzeige wird bei jede Interrupt von timer2 (prescaler 256) 
aktualsiert und die daten werden jede sekunde gespeichert (natürlich mit 
einem Disable Interrupt davor). Ich wäre für jede Hilfe dankbar!

Ich bin kein Bascom expert, obwohl ich mich in diesem relativ 
aufwendiger Projekt hinein gewagt habe.

Code:

'################################################# ################################################## ##############################
'#
'# Hauptprogramm
'#
'################################################# ################################################## ##############################


Do

Wait 1

Disable Interrupts

Drehzahl1 = Frequenz

Drehzahl2 = Frequenz2

Porta.0 = 0
Porta.1 = 0

Waitms 5

'Xachse = Getadc(6)

Waitms 1

'Yachse = Getadc(5)

Waitms 1

'Zachse = Getadc(4)

Waitms 3

Xachse = Xachse - Ruhelage_x
Yachse = Yachse - Ruhelage_y
Zachse = Zachse - Ruhelage_z

Gosub Getdatetime


'Set Ledvermelho

'~~~ In eine Datei schreiben ~~~

'Datei zum Schreiben öffnen
'Open Datei2 For Output As #10
' 'Altervative:
Open Datei2 For Append As #10
'Output 'schreibt die Datei neu (vorhandene Daten werden gelöscht!)
'append 'fügt Daten an die Datei an (vorhandene Daten bleiben erhalten und werden ergänzt)

'Fehler beim Öffnen der Datei?
If Gbdoserror <> 0 Then
' Fehler beim Öffnen der Datei
Print "Die Datei " ; Datei2 ; " konnte nicht zum Schreiben geöffnet werden! Fehlercode: " ; Gbdoserror

Goto Sd_init
Else
' Datei erfolgreich geöffnet, ein paar Daten schreiben
Print "Schreibe in Datei " ; Datei2 ; " ..."

' Daten schrieben
Print #10 , _day ; "." ; _month ; "." ; _year ; ";" ; _hour ; ":" ; _min ; ":" ; _sec ; ";" ; Drehzahl1 ; ";" ; Drehzahl2 ; ";" ; Xachse ; ";" ; Yachse ; ";" ; Zachse

If Gbdoserror <> 0 Then Print "Fehler beim Schreiben in Datei " ; Datei2 ; "! Fehlercode: " ; Gbdoserror

' Datei wieder schließen
Close #10
End If

'Reset Ledvermelho


'Reset alle variabeln
Drehzahl1 = 0
Drehzahl2 = 0
Xachse = 0
Yachse = 0
Zachse = 0

Enable Interrupts
Loop
End


'################################################# ########################
'#
'# Overflow für RPM-LEDs
'#
'################################################# ########################

Onoverflow2:

Select Case Frequenz2

Case 0:

Rpmwert = &B0000000000000000

Case 1 To 120:

Rpmwert = &B0000000000000001

Case 121 To 240:

Rpmwert = &B0000000000000011

Case 241 To 360:

Rpmwert = &B0000000000000111

Case 361 To 480:

Rpmwert = &B0000000000001111

Case 481 To 620:

Rpmwert = &B0000000000011111

Case 621 To 840:

Rpmwert = &B0000000000111111

Case 841 To 960:

Rpmwert = &B0000000001111111

Case 961 To 1080:

Rpmwert = &B0000000011111111

Case 1081 To 1200:

Rpmwert = &B0000000111111111

Case 1201 To 1320:

Rpmwert = &B0000001111111111

Case 1321 To 1440:

Rpmwert = &B0000011111111111

Case 1441 To 1560:

Rpmwert = &B0000111111111111

Case 1561 To 1680:

Rpmwert = &B0001111111111111

Case 1681 To 1800:

Rpmwert = &B0011111111111111

Case 1801 To 1920:

Rpmwert = &B0111111111111111

End Select

Gosub Rpm
'
Return

'################################################# ########################
'#
'# Subprogramme für RPM und RPM-LEDs
'#
'################################################# ########################

Rpm: ' *** set initial conditions for I/O ***

' Porta.0 to SCK (Dip pin 11, flat pack pin 14).
' Porta.7 to SER (Dip pin 14, flat pack pin 1.
' Porta.1 to RCK (Dip pin 12, Flat pack pin 15).
'-----------------------------------------------------------------------

'Set Ledamarelo

' send byte array to shift regs
For I = 0 To 16 'Dein Bit-Zaehler

Porta.7 = Rpmwert.15 'Das sind die Datenbits zum reinschieben

'Wenn du also 01101011 im 74595 stehen haben willst,
'dann mußt du das hier in entsprechender Reihenfolge
'so setzten (0 oder 1)
'01101011 <- Bits am Ausgang des 74595
'ABCDEFGH <- Ausgang vom 74595
'12345678 <- Schleifendurchlauf Nr. x

Porta.0 = 1 : Porta.0 = 0 'Damit erzeugst du ne negative Flanke

Rotate Rpmwert , Right

Next I 'naechstes Bit

Porta.1 = 1 : Porta.1 = 0 'Das erzeugt den Impuls zur uebernahme ins Latch

'Reset Ledamarelo

Return

[Rulexx (Gast)]

Und alles mit 16mhz quarz!

[Karl H. (kbuchegg)]

Als erstes würde ich mal feststellen wollen, ob nicht der Wert in 
Frequenz2 schon im A... ist.

Dazu lass ich die Ausgabe mit einem bekannten Wert loslegen und sieh 
nach ob damit das Problem weg ist. Wenn es weg ist, dann ist der Wert in 
Frequenz2 wahrscheinlich fehlerhaft und man muss weiter rumsuchen, wie 
das zu Stande kommen kann. Wenn das Problem nach wie vor da ist, dann 
untersucht man die Ausgabefunktion genauer auf mögliche Nebeneffekt.

Die Änderung zum Testen wäre bei mir erst mal so

Onoverflow2:
  Frequenz2 = 800

Select Case Frequenz2

Case 0:
  ....

[Rulexx (Gast)]

Hallo!

Danke für die antwort!

Wenn ich die frequenz nicht ändern bleibt die LED-anzeige gestoppt. Aber 
wenn ich die Speicherungsabstand ändern z.B. von 1seg zu 200ms tritt 
diesem Phänomen genau so oft ein wie die Speicherung, obwohl die 
SD-karte in sich nichts mit dem PORTA zu tun hat!

[Rulexx (Gast)]

Hat definitiv mit der Speicherung zu tun.

Jetzt aktualisiert er bei jedem overflow die anzeige und gibt das zum 
computer aus. Das sieht dann so aus:


Schreibe in Datei schreib.txt ...
Gespeichert!
733
1502
1502
1502
1502
564
564
564
564
564
564
567
567
567
565
565
565
565
566
566
566
566
566
566
566
566
566
564
564
564
.
.
.
.
hz2: 566
Schreibe in Datei schreib.txt ...
Gespeichert!
1445
1445
1445
836
836
836
564
564
564
.
.
.
.

Also normalerweise ist den ersten Wert noch normal aber dann springt er 
plötzlich in die Höhe! und dabei sind Interrupts Disable während der 
Speicherung.. Bin ein bisschnen Ratlos!

[Rulexx (Gast)]

Hier den ganzen code, vlt. hillft das:

Code:

$regfile = "m32def.dat"
$crystal = 16000000
$baud = 38400

$hwstack = 200
$swstack = 200
$framesize = 200

Config Adc = Single , Prescaler = Auto , Reference = Aref   'Für Spannungsmessung
Start Adc

Config Porta.2 = Output                                     'LED amarelo                                     '
Config Porta.3 = Output                                     'LED vermelho

Config Portd.3 = Input                                      'Botao Salvar


Config Portb.2 = Input
Config Portd.2 = Input


Portc.2 = 0



Ledamarelo Alias Porta.2
Ledvermelho Alias Porta.3
Botaosalvar Alias Portd.3


Portd.3 = 1


Dim Dummi As Integer

Dim Rpm1 As Integer
Dim Rpm2 As Integer

Dim Drehzahl1 As Integer
Dim Drehzahl2 As Integer

Dim Saveflag As Boolean

Saveflag = 0

Config Debounce = 30

'#################################################################################################################################
'#
'# LCD
'#
'#################################################################################################################################

' Einstellen des LCD Display's von myAVR in BASCOM
'Config Lcdpin = Pin , Db4 = Portc.7 , Db5 = Portc.6 , Db6 = Portc.5 , Db7 = Portc.4 , E = Portc.3 , Rs = Portd.7
'Config Lcd = 16 * 2


'#################################################################################################################################
'#
'# Accelerometer
'#
'#################################################################################################################################

'Acelerometro
Config Portc.2 = Output
Config Portb.0 = Output
Config Portb.1 = Output

Portb.0 = 0
Portb.1 = 0


Config Porta.6 = Input
Config Porta.5 = Input
Config Porta.4 = Input

Dim Xachse As Integer
Dim Yachse As Integer
Dim Zachse As Integer

Dim Ruhelage_x As Integer
Dim Ruhelage_y As Integer
Dim Ruhelage_z As Integer

Const Toleranz_x = 100
Const Toleranz_y = 100
Const Toleranz_z = 100

Waitms 5

Ruhelage_x = Getadc(6)
Waitms 10
Ruhelage_y = Getadc(5)
Waitms 10
Ruhelage_z = Getadc(4)

Waitms 5



'#################################################################################################################################
'#
'# Variabeln für RPM-LEDs
'#
'#################################################################################################################################

' Porta.0 to SRCLK (Dip pin 11, flat pack pin 14).
' Porta.7 to SER (Dip pin 14, flat pack pin 18).
' Porta.1 to RCLK (Dip pin 12, Flat pack pin 15).
'-----------------------------------------------------------------------

Config Porta.0 = Output
Config Porta.1 = Output
Config Porta.7 = Output

Dim Rpmwert As Word
Dim Low_byte As Byte At Rpmwert Overlay
Dim High_byte As Byte At Rpmwert + 1 Overlay

Dim I As Integer
Dim J As Integer

Low_byte = &B10000000
High_byte = &B00000000

'Set Ledamarelo


For J = 0 To 16
' send byte array to shift regs
For I = 0 To 16                                             'Dein Bit-Zaehler

Porta.7 = Rpmwert.6                                         'Das sind die Datenbits zum reinschieben

'Wenn du also 01101011 im 74595 stehen haben willst,
'dann mußt du das hier in entsprechender Reihenfolge
'so setzten (0 oder 1)
'01101011 <- Bits am Ausgang des 74595
'ABCDEFGH <- Ausgang vom 74595
'12345678 <- Schleifendurchlauf Nr. x

Porta.0 = 1 : Porta.0 = 0                                   'Damit erzeugst du ne negative Flanke

Rotate Rpmwert , Right

Next I                                                      'naechstes Bit

Porta.1 = 1 : Porta.1 = 0                                   'Das erzeugt den Impuls zur uebernahme ins Latch

'Reset Ledamarelo

Waitms 50

Next J

Declare Sub Rpm



'#################################################################################################################################
'#
'# Variabeln für die Uhr
'#
'#################################################################################################################################

'configure the scl and sda pins
Config Sda = Portc.1
Config Scl = Portc.0

'address of ds1307
Const Ds1307w = &HD0                                        ' Addresses of Ds1307 clock
Const Ds1307r = &HD1

Config Clock = User                                         ' this will dim the bytes automatic
'dim other needed variables
' Datumsformat deutsch Tag.Monat.Jahr und als Trennzeichen den Punkt
Config Date = Dmy , Separator = .

Dim Weekday As Byte

I2cinit

_day = 26
_month = 01
_year = 12
_sec = 59
_min = 05
_hour = 00


Gosub Setdate
Gosub Settime


'#################################################################################################################################
'#
'# Variabeln für die SD-Karte
'#
'#################################################################################################################################


' Variablen festlegen
Dim Fsiniterror As Byte                                     ' Fehlercode beim Dateisysteminit
Dim Temp As String * 100                                    ' Zwischenspeicher für Strings
Dim Z As Integer                                            ' Zählvariable
Const Datei1 = "lesen.txt"                                  ' Datei zum Lesen
Const Datei2 = "schreib.txt"                                ' Datei zum Schreiben
' Achtung:
'  Dateinamen müssen im Format 8.3 sein.
'  Also Maximal 8 Zeichen vor und 3 nach dem .


Const Cmmc_soft = 0


#if Cmmc_soft = 0

' --------- Start of Section for HW-SPI ----------------------------------------

   ' define Chip-Select Pin
' ->
' -> Dieser Pin wird für Chip-Select benutzt.
   Config Pinb.4 = Output                                   ' define here Pin for CS of MMC/SD Card
   Mmc_cs Alias Portb.4
   Set Mmc_cs



   ' Define here SS Pin of HW-SPI of the CPU (f.e. Pinb.0 on M128)
   ' If an other Pin than SS is used for MMC_SS, SS must be set to OUTPUT and high for proper work of SPI
   ' otherwise AVR starts SPI-SLAVE if SS-Pin is INPUT and goes to LOW
' ->
' -> Hier muss der SS-Pin des Hardware-SPI angegeben werden. (Auch wenn ein anderer Pin für Chip-Select benutzt wird.)
' -> Dieser muss als Ausgang konfiguriert sein und auf 1 gehalten werden, da sonst automatisch der SPI-Slave-Modus aktiviert wird.
 Config Pinb.4 = Output                                     ' define here Pin of SPI SS
 Spi_ss Alias Portb.4
 Set Spi_ss                                                 ' Set SPI-SS to Output and High por Proper work of
                                                            ' SPI as Master

   ' HW-SPI is configured to highest Speed

Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = High , Phase = 1 , Clockrate = 4 , Noss = 1
'   Spsr = 1                                       ' Double speed on ATMega128
   Spiinit                                                  ' Init SPI

' --------- End of Section for HW-SPI ------------------------------------------

#else                                                       ' Config here SPI pins, if not using HW SPI

' --------- Start of Section for Soft-SPI --------------------------------------

   ' Chip Select Pin  => Pin 1 of MMC/SD
   Config Pinb.4 = Output
   Mmc_cs Alias Portb.4
   Set Mmc_cs

   ' MOSI - Pin  => Pin 2 of MMC/SD
   Config Pinb.5 = Output
   Set Pinb.5
   Mmc_portmosi Alias Portb
   Bmmc_mosi Alias 5

   ' MISO - Pin  => Pin 7 of MMC/SD
   Config Pinb.6 = Input
   Mmc_portmiso Alias Portb
   Bmmc_miso Alias 6

   ' SCK - Pin  => Pin 1 of MMC/SD
   Config Pinb.7 = Output
   Set Pinb.7
   Mmc_portsck Alias Portb
   Bmmc_sck Alias 7




' --------- End of Section for Soft-SPI ----------------------------------------

#endif

Print "Initialisierung der SD-Card ... " ;

Const Cperrdrivereset = 225                                 ' Error response Byte at Reset command
Const Cperrdriveinit = 226                                  ' Error response Byte at Init Command
Const Cperrdrivereadcommand = 227                           ' Error response Byte at Read Command
Const Cperrdrivewritecommand = 228                          ' Error response Byte at Write Command
Const Cperrdrivereadresponse = 229                          ' No Data response Byte from MMC at Read
Const Cperrdrivewriteresponse = 230                         ' No Data response Byte from MMC at Write
Const Cperrdrive = 231
Const Cperrdrivenotsupported = 232                          ' return code for DriveGetIdentity, not supported yet

Waitms 1                                                    ' Wait some time before initialising MMC/SD
Dim Gbdriveerror As Byte                                    ' General Driver Error register
Dim Gbdriveerrorreg As Byte                                 ' Driver load Error-Register of HD in case of error
Dim Gbdrivestatusreg As Byte                                ' Driver load Status-Register of HD on case of error
Dim Gbdrivedebug As Byte
$lib "MMC.LIB"                                              ' link driver library
$external _mmc
Gbdriveerror = Driveinit()                                  ' Init MMC/SD Card

' 'Fehler beim init?
If Gbdriveerror = 0 Then
   Print "ok"

   ' 'Config_AVR-DOS einbinden
' 'Puffergrößen, Anzahl von Datei-Handles usw. müssen in dieser Datei angepasst werden!
Print "Initialisierung des Dateisystems ..." ;
$include "config_avr-dos.bas"

 'Dateisystem starten
Fsiniterror = Initfilesystem(1)
If Fsiniterror = 0 Then
   Print "ok"

Else
   Print "Fehler bei der Initialisierung des Dateisystems! Fehlercode: " ; Fsiniterror

End If

' 'SD-Card erfolgreich gestartet
Print "SD-Card wurde erfolgreich gestartet!"
Print

Else

   Print "Fehler bei der Initialisierung der SD-Card! Fehlercode: " ; Gbdriveerror

End If


'#################################################################################################################################
'#
'# Interrupt für RPM
'#
'#################################################################################################################################

'Rpm2
Dim Icount As Long
Dim Wcountlo As Word At Icount Overlay
Dim Wcounthi As Word At Icount + 2 Overlay
Dim Zahl1 As Long
Dim Zahl2 As Long
Dim Zahl As Long
Dim Frequenz As Long

Config Timer1 = Timer , Prescale = 1 , Capture Edge = Rising

Config Int2 = Falling

On Int2 Oncapture
Enable Int2

On Ovf1 Onoverflow1

Enable Ovf1


'Rpm1
Dim Icount2 As Long
Dim Wcount2_high As Word At Icount2 Overlay
Dim Wcount2_low As Word At Icount2 + 2 Overlay
Dim Conta1 As Long
Dim Conta2 As Long
Dim Conta As Long
Dim Frequenz2 As Long
Const Interval = 156

Config Timer0 = Timer , Prescale = 1

Config Int0 = Falling

On Int0 Oncapture2
Enable Int0

On Ovf0 Onoverflow0

Enable Ovf0



'Speichern
Dim Overflowcount As Long
Config Timer2 = Timer , Prescale = 1024

On Ovf2 Onoverflow2

Config Int1 = Falling
On Int1 Save
Enable Int1

Enable Timer2

Enable Interrupts





'#################################################################################################################################
'#
'# Hauptprogramm
'#
'#################################################################################################################################


Do

Waitms 250

Disable Interrupts

Waitms 5

'Xachse = Getadc(6)

Waitms 1

'Yachse = Getadc(5)

Waitms 1

'Zachse = Getadc(4)

Waitms 3

Xachse = Xachse - Ruhelage_x
Yachse = Yachse - Ruhelage_y
Zachse = Zachse - Ruhelage_z

Gosub Getdatetime


 '~~~ In eine Datei schreiben ~~~

 'Datei zum Schreiben öffnen
'Open Datei2 For Output As #10
' 'Altervative:
 Open Datei2 For Append As #10
 'Output                                                     'schreibt die Datei neu (vorhandene Daten werden gelöscht!)
 'append                                                    'fügt Daten an die Datei an (vorhandene Daten bleiben erhalten und werden ergänzt)

 'Fehler beim Öffnen der Datei?
If Gbdoserror <> 0 Then
   ' Fehler beim Öffnen der Datei
   Print "Die Datei " ; Datei2 ; " konnte nicht zum Schreiben geöffnet werden! Fehlercode: " ; Gbdoserror

   Goto Sd_init
Else
   ' Datei erfolgreich geöffnet, ein paar Daten schreiben
   Print "Schreibe in Datei " ; Datei2 ; " ..."

   ' Daten schrieben
    Print #10 , _day ; "." ; _month ; "." ; _year ; ";" ; _hour ; ":" ; _min ; ":" ; _sec ; ";" ; Frequenz ; ";" ; Frequenz2 ; ";" ; Xachse ; ";" ; Yachse ; ";" ; Zachse

   If Gbdoserror <> 0 Then Print "Fehler beim Schreiben in Datei " ; Datei2 ; "! Fehlercode: " ; Gbdoserror

   ' Datei wieder schließen
   Close #10


End If

'Reset Ledvermelho


'Reset alle variabeln

Xachse = 0
Yachse = 0
Zachse = 0

Print "Gespeichert!"


Enable Interrupts

Waitms 250



Loop

End

'#################################################################################################################################
'#
'# Subprogramme für Interrupt
'#
'#################################################################################################################################


Save:

Gosub Sd_init

Print "Saved"

Return


Oncapture:

      Disable Interrupts

      Wcountlo = Timer1
      Timer1 = 0
      Zahl1 = Wcounthi
      Zahl2 = Wcountlo
      Wcounthi = 0
      Zahl = Zahl1 * 65536
      Zahl = Zahl + Zahl2
      Frequenz = 480000000 / Zahl

      Enable Interrupts

Return




Oncapture2:

      Disable Interrupts
      Wcount2_low = Timer0
      Timer0 = 0
      Conta1 = Wcount2_high
      Conta2 = Wcount2_low
      Wcount2_high = 0
      Conta = Conta1 * 255
      Conta = Conta + Conta2
      Frequenz2 = 480000000 / Conta

      Print "Rpm1:" ; Frequenz2

      Enable Interrupts

Return


Onoverflow1:

Incr Wcounthi

Return


Onoverflow0:

Incr Wcount2_high

Return


Onoverflow2:

Disable Interrupts

Rpmwert = Frequenz

Print Rpmwert

Select Case Rpmwert

Case 0:

Rpmwert = &B0000000000000000

Case 1 To 120:

Rpmwert = &B0000000000000001

Case 121 To 240:

Rpmwert = &B0000000000000011

Case 241 To 360:

Rpmwert = &B0000000000000111

Case 361 To 480:

Rpmwert = &B0000000000001111

Case 481 To 620:

Rpmwert = &B0000000000011111

Case 621 To 840:

Rpmwert = &B0000000000111111

Case 841 To 960:

Rpmwert = &B0000000001111111

Case 961 To 1080:

Rpmwert = &B0000000011111111

Case 1081 To 1200:

Rpmwert = &B0000000111111111

Case 1201 To 1320:

Rpmwert = &B0000001111111111

Case 1321 To 1440:

Rpmwert = &B0000011111111111

Case 1441 To 1560:

Rpmwert = &B0000111111111111

Case 1561 To 1680:

Rpmwert = &B0001111111111111

Case 1681 To 1800:

Rpmwert = &B0011111111111111

Case 1801 To 1920:

Rpmwert = &B0111111111111111

End Select


Gosub Rpm
                                              '
Return


'#################################################################################################################################
'#
'# Subprogramme RS-232 Kummunikation
'#
'#################################################################################################################################


''''''''''''''';called from ds1307clock.lib
Getdatetime:
I2cstart                                                    '''''''''''''''; Generate start code
I2cwbyte Ds1307w                                            '''''''''''''''; send address
I2cwbyte 0                                                  '''''''''''''''; start address in 1307

I2cstart                                                    '''''''''''''''; Generate start code
I2cwbyte Ds1307r                                            '''''''''''''''; send address
I2crbyte _sec , Ack
I2crbyte _min , Ack                                         '''''''''''''''; MINUTES
I2crbyte _hour , Ack                                        '''''''''''''''; Hours
I2crbyte Weekday , Ack                                      '''''''''''''''; Day of Week
I2crbyte _day , Ack                                         '''''''''''''''; Day of Month
I2crbyte _month , Ack                                       '''''''''''''''; Month of Year
I2crbyte _year , Nack                                       '''''''''''''''; Year
I2cstop
_sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour)
_day = Makedec(_day) : _month = Makedec(_month) : _year = Makedec(_year)
Return

Setdate:
_day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year)
I2cstart                                                    '''''''''''''''; Generate start code
I2cwbyte Ds1307w                                            '''''''''''''''; send address
I2cwbyte 4                                                  '''''''''''''''; starting address in 1307
I2cwbyte _day                                               '''''''''''''''; Send Data to SECONDS
I2cwbyte _month                                             '''''''''''''''; MINUTES
I2cwbyte _year                                              '''''''''''''''; Hours
I2cstop
Return

Settime:
_sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour)
I2cstart                                                    '''''''''''''''; Generate start code
I2cwbyte Ds1307w                                            '''''''''''''''; send address
I2cwbyte 0                                                  '''''''''''''''; starting address in 1307
I2cwbyte _sec                                               '''''''''''''''; Send Data to SECONDS
I2cwbyte _min                                               '''''''''''''''; MINUTES
I2cwbyte _hour                                              '''''''''''''''; Hours
I2cstop
Return


'#################################################################################################################################
'#
'# Subprogramme für die SD-Karte
'#
'#################################################################################################################################

Sd_init:


Print "Initialisierung der SD-Card ... " ;

$external _mmc
Gbdriveerror = Driveinit()                                  ' Init MMC/SD Card

' 'Fehler beim init?
If Gbdriveerror = 0 Then
   Print "ok"

   ' 'Config_AVR-DOS einbinden
' 'Puffergrößen, Anzahl von Datei-Handles usw. müssen in dieser Datei angepasst werden!
Print "Initialisierung des Dateisystems ..." ;
$include "config_avr-dos.bas"

 'Dateisystem starten
Fsiniterror = Initfilesystem(1)
If Fsiniterror = 0 Then
   Print "ok"

Else
   Print "Fehler bei der Initialisierung des Dateisystems! Fehlercode: " ; Fsiniterror
      Do
      Waitms 500
      Saveflag = 0
      Goto Sd_init
      Loop
End If

' 'SD-Card erfolgreich gestartet
Print "SD-Card wurde erfolgreich gestartet!"
Print
   Saveflag = 1
   Print "saveflag aktiviert"
Else

   Print "Fehler bei der Initialisierung der SD-Card! Fehlercode: " ; Gbdriveerror
      Do
      Waitms 500
      Saveflag = 0
      Goto Sd_init
      Loop
End If


Return


'#################################################################################################################################
'#
'# Subprogramme für RPM und RPM-LEDs
'#
'#################################################################################################################################

Rpm:                                                        ' *** set initial conditions for I/O ***


' Porta.0 to SCK (Dip pin 11, flat pack pin 14).
' Porta.7 to SER (Dip pin 14, flat pack pin 18).
' Porta.1 to RCK (Dip pin 12, Flat pack pin 15).
'-----------------------------------------------------------------------

'Set Ledamarelo



' send byte array to shift regs
For I = 0 To 16                                             'Dein Bit-Zaehler

Porta.7 = Rpmwert.15                                        'Das sind die Datenbits zum reinschieben

'Wenn du also 01101011 im 74595 stehen haben willst,
'dann mußt du das hier in entsprechender Reihenfolge
'so setzten (0 oder 1)
'01101011 <- Bits am Ausgang des 74595
'ABCDEFGH <- Ausgang vom 74595
'12345678 <- Schleifendurchlauf Nr. x

Porta.0 = 1 : Porta.0 = 0                                   'Damit erzeugst du ne negative Flanke

Rotate Rpmwert , Right

Next I                                                      'naechstes Bit

Porta.1 = 1 : Porta.1 = 0                                   'Das erzeugt den Impuls zur uebernahme ins Latch


'Reset Ledamarelo
Enable Interrupts

Return