Device 16F876                                              ;pic is PIC16F876
Config INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON
ALL_DIGITAL TRUE
Symbol tijd = 500                                           ;tijd is ...                        tijd dat uitgang actief is

PORTA.5 = 0                                                 ;led 1 = 0                          I
PORTC.0 = 0                                                 ;led 2 = 0                          I
PORTA.5 = 0                                                 ;led 3 = 0                          I RESET POORTEN 
PORTC.2 = 0                                                 ;led 4 = 0                          I 
PORTC.3 = 0                                                 ;led 5 = 0                          I
                                                                                   
begin:                                                      ;begin                                  

If PORTA.0 = 1 Then                                         ;ingang 1  = 1                      I
Toggle PORTA.5                                              ;led 1 impuls                       I
EndIf                                                       ;                                   I
If PORTA.5 = 1 And PORTA.0 = 1 Then                         ;led 1 = 1 en ingang 1 = 1          I
High PORTC.1                                                ;triac 1 = 1                        I WISSEL 1
DelayMS tijd                                                ;=tijd                              I
Low PORTC.1                                                 ;triac 1 = 0                        I
EndIf                                                       ;                                   I
If PORTA.5 = 0 And PORTA.0 = 1 Then                         ;led 1 = 0 en ingang 1 = 1          I
High PORTC.5                                                ;triac 2 = 1                        I
DelayMS tijd                                                ;=tijd                              I
Low PORTC.5                                                 ;triac 2 = 0                        I
EndIf 
                                 
If PORTA.1 = 1 Then                                         ;ingang 2  = 1                      I
Toggle PORTC.0                                              ;led 2 impuls                       I
EndIf                                                       ;                                   I
If PORTC.0 = 1 And PORTA.1 = 1 Then                         ;led 2 = 1 en ingang 2 = 1          I
High PORTC.6                                                ;triac 3 = 1                        I
DelayMS tijd                                                ;=tijd                              I WISSEL 2
Low PORTC.6                                                 ;triac 3 = 0                        I
EndIf                                                       ;                                   I
If PORTC.0 = 0 And PORTA.1 = 1 Then                         ;led 2 = 0 en ingang 2 = 1          I
High PORTC.7                                                ;triac 4 = 1                        I
DelayMS tijd                                                ;=tijd                              I
Low PORTC.7                                                 ;triac 4 = 0                        I
EndIf 

If PORTA.0 = 1 Then                                         ;ingang 3  = 1                      I
Toggle PORTA.5                                              ;led 3 impuls                       I
EndIf                                                       ;                                   I 
If PORTA.5 = 1 And PORTA.2 = 1 Then                         ;led 3 = 1 en ingang 3 = 1          I
High PORTB.2                                                ;triac 5 = 1                        I
DelayMS tijd                                                ;=tijd                              I WISSEL 3
Low PORTB.2                                                 ;triac 5 = 0                        I
EndIf                                                       ;                                   I
If PORTA.5 = 0 And PORTA.2 = 1 Then                         ;led 3 = 0 en ingang 3 = 1          I
High PORTB.3                                                ;triac 6 = 1                        I
DelayMS tijd                                                ;=tijd                              I
Low PORTB.3                                                 ;triac 6 = 0                        I
EndIf  

If PORTA.3 = 1 Then                                         ;ingang 4  = 1                      I
Toggle PORTC.2                                              ;led 4 impuls                       I
EndIf                                                       ;                                   I
If PORTC.2 = 1 And PORTA.3 = 1 Then                         ;led 4 = 1 en ingang 4 = 1          I
High PORTB.4                                                ;triac 7 = 1                        I
DelayMS tijd                                                ;=tijd                              I WISSEL 4
Low PORTB.4                                                 ;triac 7 = 0                        I
EndIf                                                       ;                                   I
If PORTA.5 = 0 And PORTA.2 = 1 Then                         ;led 4 = 0 en ingang 4 = 1          I
High PORTB.5                                                ;triac 8 = 1                        I
DelayMS tijd                                                ;=tijd                              I
Low PORTB.5                                                 ;triac 8 = 0                        I
EndIf    

If PORTA.4 = 1 Then                                         ;ingang 5  = 1                      I
Toggle PORTC.3                                              ;led 5 impuls                       I
EndIf                                                       ;                                   I
If PORTC.3 = 1 And PORTA.4 = 1 Then                         ;led 5 = 1 en ingang 5 = 1          I
High PORTB.6                                                ;triac 9 = 1                        I
DelayMS tijd                                                ;=tijd                              I WISSEL 5
Low PORTB.6                                                 ;triac 9 = 0                        I
EndIf                                                       ;                                   I
If PORTA.5 = 0 And PORTA.2 = 1 Then                         ;led 5 = 0 en ingang 5 = 1          I
High PORTB.7                                                ;triac 10 = 1                       I
DelayMS tijd                                                ;=tijd                              I
Low PORTB.7                                                 ;triac 10 = 0                       I
EndIf 
      
GoTo begin                                                  ;ga naar begin