'-----------------------------------------------------------------------------
'-----------------------------------------------------------------------------
'  Project: Automatischer Einschalter
'-----------------------------------------------------------------------------
'-----------------------------------------------------------------------------
'  File:         autoein.BAS
'  Release:      1.0

' ------ Controller -------------
$crystal = 1000000
$regfile = "m8def.dat"


 ' ------ Configuration-----------
' Portrichtung 0 = Eingang, 1 = Ausgang
Ddrb = &B11111111
Ddrc = &B11111111
Ddrd = &B11111111


' ------ Constants --------------

' ------ Variables --------------

' ------ Aliases ----------------

Relais Alias Portd.2

' -----------------------------------------------------------------------------
' ------ Program  ---------------
' -------------------------------

Progstart:

' ------ Initialisierung --------

Portb = &B00000000
Portc = &B00000000
Portd = &B00000000

Wait 5

Relais = 1                                                  ' Relais einschalten

Wait 2

Relais = 0                                                  ' Relais ausschalten


' Endlosschleife
Do

Loop

End