$regfile = "m8def.dat"                                      'Atmega8 ist definiert'
$crystal = 3686400                                          'Taktfrequenz 3,6864MHz'

'Eingänge Anschläge
Ddrd.0 = 0                                                  'A0 Schirm eingefahren'                                                 '
Ddrd.1 = 0                                                  'A1 Schirm ausgefahren'
Ddrd.2 = 0                                                  'A2 Klammern/Stanze eingefahren'
Ddrd.3 = 0                                                  'A3 Klammern/Stanze ausgefahren'

'Eingänge Taster
Ddrd.4 = 0                                                  'T0 Schirm einfahren'
Ddrd.5 = 0                                                  'T1 Schirm ausfahren'
Ddrd.6 = 0                                                  'T2 Klammern/Stanze einfahren'
Ddrd.7 = 0                                                  'T3 Klammern/Stanze ausfahren'
Portd = &B11111111

'Ausgänge Motor
Ddrb.0 = 1                                                  'M0 Schirmmotor einfahren'
Ddrb.1 = 1                                                  'M1 Schirmmotor ausfahren'
Ddrb.2 = 1                                                  'M2 Klammermotor einfahren'
Ddrb.3 = 1                                                  'M3 Klammermotor ausfahren
Portb = &B11110000

'Ausgänge LED
Ddrc.0 = 1                                                  'LED0 Schirm eingefahren'                                               '
Ddrc.1 = 1                                                  'LED1 Schirm ausgefahren'
Ddrc.2 = 1                                                  'LED2 Klammern/Stanze eingefahren'
Ddrc.3 = 1                                                  'LED3 Klammern/Stanze ausgefahren'
Portc = &B11110000


Do

'------------------
'Schirm einfahren
If Pind.0 = 1 And Pind.4 = 0 Then                           'Nur wenn A0=1 und T0=1 fährt Schirm ein, sonst stopp'
Portb.0 = 1
Else
Portb.0 = 0
End If

'Klammern/Stanze einfahren
If Pind.2 = 1 And Pind.6 = 0 Then                           'Nur wenn A2=1 und T2=1 fahren Klammern/Stanze ein, sonst stopp'
Portb.2 = 1
Else
Portb.2 = 0
End If

'Schirm ausfahren
If Pind.1 = 1 And Pind.5 = 0 Then                           'Nur wenn A1=1 und T1=1 fährt Schirm aus, sonst stopp'
Portb.1 = 1
Else
Portb.1 = 0
End If

'Klammern/Stanze ausfahren
If Pind.3 = 1 And Pind.7 = 0 Then                           'Nur wenn A3=1 und T3=1 fahren Klammern/Stanze aus, sonst stopp'
Portb.3 = 1
Else
Portb.3 = 0
End If
'------------------
'LED0
If Pind.0 = 0 Then
Portc.0 = 1
Else
Portc.0 = 0
End If

'LED1
If Pind.1 = 0 Then
Portc.1 = 1
Else
Portc.1 = 0
End If

'LED2
If Pind.2 = 0 Then
Portc.2 = 1
Else
Portc.2 = 0
End If

'LED3
If Pind.3 = 0 Then
Portc.3 = 1
Else
Portc.3 = 0
End If
'------------------


Loop
End