pic - smiw

    #include p18f87k22.inc

    bcf INTCON2, RBPU ;rezystory ustawiane indywidualnie
    clrf PORTB
    bsf TRISB, RB0 ; rezystor podciagajacy dla przycisku - PB0 jako wejscie

    bcf TRISB, RB5  ;gaszenie nieuzywanych LED
    bcf TRISB, RB4
    bcf PORTB, RB5
    bcf PORTB, RB4

    clrf PORTE
    bcf TRISE, RE7 ; porte re7 wyjscie

on_off: btfsc PORTB, RB0
       goto on_off
       negf PORTE, RE7

wait_for_release:
      btfss PORTB, RB0
      goto wait_for_release
      goto on_off
    end