DEVICE=16F84A
CONFIG XT_OSC , WDT_OFF , PWRTE_OFF
XTAL = 4
SYMBOL BUTON1=PORTA.3
SYMBOL BUTON2=PORTA.2
SYMBOL BUTON3=PORTA.1
SYMBOL BUTON4=PORTA.0
DIM SAYAC AS BYTE
DIM BUTON AS BYTE
DIM KONTROL AS BYTE
DIM KONTROL2 AS BYTE
DIM KONTROL3 AS BYTE
DIM KONTROL4 AS BYTE
TRISB=0
TRISA=255
SAYAC=0
OPTION_REG=%01010101
INTCON=%10100000
ON INTERRUPT GOTO KESME
MAIN:
KONTROL=0
KONTROL2=%10000000
KONTROL3=%10101010
KONTROL4=0
ANA_DONGU:
GOSUB BUTONKONTROL
IF BUTON=1 THEN
IF KONTROL=1 THEN
PORTB=%10000001
ELSEIF KONTROL=2 THEN
PORTB=%01000010
ELSEIF KONTROL=3 THEN
PORTB=%00100100
ELSEIF KONTROL=4 THEN
PORTB=%00011000
ELSEIF KONTROL=5 THEN
PORTB=%00100100
ELSEIF KONTROL=6 THEN
PORTB=%01000010
KONTROL=0
ENDIF
ELSEIF BUTON=2 THEN
PORTB=KONTROL2
ELSEIF BUTON=3 THEN
PORTB=KONTROL3
ELSEIF BUTON=4 THEN
IF KONTROL4=1 THEN
PORTB=%01010101
ELSEIF KONTROL4=2 THEN
PORTB=%10101010
KONTROL4=0
ENDIF
ENDIF
GOTO ANA_DONGU
DISABLE
BUTONKONTROL:
IF BUTON1=0 THEN
BUTON=1
ELSEIF BUTON2=0 THEN
BUTON=2
ELSEIF BUTON3=0 THEN
BUTON=3
ELSEIF BUTON4=0 THEN
BUTON=4
ENDIF
RETURN
KESME:
SAYAC=SAYAC+1
IF SAYAC<30 THEN GOTO KESME_CIKIS
SAYAC=0
IF BUTON=1 THEN
KONTROL=KONTROL+1
ELSEIF BUTON=2 THEN
KONTROL2=KONTROL2>>1
IF KONTROL2=0 THEN GOTO MAIN
ELSEIF BUTON=3 THEN
KONTROL3=KONTROL3>>1
IF KONTROL3=0 THEN GOTO MAIN
ELSEIF BUTON=4 THEN
KONTROL4=KONTROL4+1
ENDIF
KESME_CIKIS:
INTCON.2=0
RESUME
END