; picaxe08m2 ;	automatische Compilerauswahl für meine Skripte "1 kontrollieren" und "2 speichern"
; Dateiname:	Signalanlage Bahnübergang.axe
; Funktion:	Signalanlage bei einfahrendem Zug einschalten und bei ausfahrendem Zug ausschalten
; Datum:	Start 19.01.2020, Stand 20.01.2020
; Von:		Naubaddi foto-schubser@arcor.de
;
; PICAXE 08M2 (B.0 nur Ausgang, C.3 nur Eingang)
;
;                               +---v---+
;                            +V |1     8| 0V
;                  RxD/ I   C.5 |2     7| B.0   O /TxD/hserout/DAC
;            Touch/ADC/ I/O C.4 |3     6| B.1 I/O /ADC/Touch/hserin/SRI/hi2c/scl
;                       I   C.3 |4     5| B.2 I/O /ADC/Touch/pwm/tune/SRQ/hi2c sda
;                               +-------+
;
 
output B.1, B.2				; Pin 1 und 2 als Ausgang setzen
input C.3				; Pin 3 als Eingang setzen
 
symbol LED_1 = B.1			; Signalanlage, LED oben
symbol LED_2 = B.2			; Signalanlage, LED unten
symbol Signal = pin3			; Eingang pin3 für den Zug
symbol an = b0				; Signalanlage an/aus, 0 = aus und 1 = an
symbol sv = b1				; eine Variable für swap
 
switch off LED_1			; LED oben aus
switch off LED_2			; LED unten aus
an = 0					; die Signalanlage ist aus
sv = 1					; damit swap was zum wechseln hat für die Variable an ;-)
 
Signalanlage:				; Hauptschleife für die Signalanlage
  if Signal = 1 then			; ein Signal liegt an, der Zug fährt rein oder der Zug fährt raus
    pause 50				; 50ms Entprellzeit für den Kontakt
    do : loop until Signal = 0		; wenn das Signal 0 ist die Warteschleife verlassen
    swap an , sv			; den Zustand der Signalanlage an/aus für das nächste Signal wechseln
  endif
goto Signalanlage
 
end
 
start1:
  if an = 1 then			; die Signalanlage ist an
    switch on LED_1
    switch off LED_2
    Pause 600
    switch on LED_2
    switch off LED_1
    Pause 600
  else					; die Signalanlage ist aus
    switch off LED_1
    switch off LED_2
  endif
goto start1