sensorLedSet bcf PORTB,6 ; ist de r 1. HAL Sensor aktiv ? wenn ja setze OUT2 btfsc PORTA,2 goto SetzeLedOut2Nicht bsf PORTB,6 SetzeLedOut2Nicht bcf PORTB,7 ; ist de r 2. HAL Sensor aktiv ? wenn ja setze OUT1 btfsc PORTA,3 goto SetzeLedOut1Nicht bsf PORTB,7 SetzeLedOut1Nicht return startupLED clrf PORTB ; Port B auf 0 setzen ; Alle LEDs an bsf PORTB,4 ; IN 2 bsf PORTB,5 ; IN 1 bsf PORTB,6 ; OUT2 bsf PORTB,7 ; OUT1 ; und der Reihe nach wiede r ausschalten "Lampentest" ;-) call Wait bcf PORTB,4 call Wait bcf PORTB,5 call Wait bcf PORTB,6 call Wait bcf PORTB,7 return ;********************************************************** ; Schaltet den Optokoppler - wartet kurz und setzt den Ausgang wiede r zurück ; Status LED wird mit de m Impuls gesetz AktorImpuls bsf PORTB,5 ; LED Schalten bsf PORTA,1 ; Optokoppler schalten call Wait bcf PORTA,1 bcf PORTB,5 return