RADIX DEC
__CONFIG _MCLRE_ON & _WDT_ON

LIST P = 10F202
INCLUDE P10f202.inc

ZMIENNA EQU 08H
STAN EQU 09H

ORG 0000H

POCZATEK
MOVLW 01011111B
OPTION

MOVLW 11111000B
MOVWF GPIO
TRIS GPIO
BTFSC STATUS,GPWUF
GOTO PIN_CHANGE ; zmiana na gp0, gp1, lub gp3
BTFSC STATUS, NOT_PD
GOTO BYL_POWER_UP
MOVF STAN,00H
ADDWF PCL,01H
GOTO STAN_0
GOTO STAN_1
GOTO STAN_2
GOTO STAN_3

BYL_POWER_UP ; zasilanie - tak
MOVLW 11111000B
MOVWF GPIO
MOVLW 00000001B
MOVWF STAN
MOVLW 00000011B
MOVWF ZMIENNA
SLEEP
;BSF STATUS,NOT_TO
;GOTO POCZATEK

PIN_CHANGE
BTFSS GPIO,00H
GOTO PIN_CHANGE_GP0
BTFSS GPIO,01H
GOTO PIN_CHANGE_GP1
BTFSS GPIO,03H
GOTO PIN_CHANGE_GP3
SLEEP
PIN_CHANGE_GP0
MOVLW 00000010B
MOVWF STAN
MOVLW 11011111B
OPTION
SLEEP
PIN_CHANGE_GP1
MOVLW 00000011B
MOVWF STAN
MOVLW 11011111B
OPTION
SLEEP
PIN_CHANGE_GP3
MOVLW 00000001B
MOVWF STAN
MOVLW 11011111B
OPTION
SLEEP
STAN_0
MOVLW 01011111B
OPTION
MOVLW 11111111B
TRIS GPIO
SLEEP
STAN_1
MOVF GPIO,00H
XORLW 11111111B
MOVWF GPIO
MOVLW 01011111B
OPTION
SLEEP
STAN_2
BTFSS ZMIENNA,00H
GOTO STAN_2_DWA
BTFSS ZMIENNA,01H
GOTO STAN_2_TRZY
MOVLW 11111110B
MOVWF GPIO
MOVWF ZMIENNA
SLEEP
;GOTO POCZATEK
STAN_2_DWA
MOVLW 11111101B
MOVWF GPIO
MOVWF ZMIENNA
SLEEP
;GOTO POCZATEK
STAN_2_TRZY
MOVLW 11111011B
MOVWF GPIO
MOVWF ZMIENNA
SLEEP
;GOTO POCZATEK

STAN_3
BTFSS ZMIENNA,02H
GOTO STAN_3_DWA
BTFSS ZMIENNA,01H
GOTO STAN_3_TRZY
MOVLW 11111011B
MOVWF GPIO
MOVWF ZMIENNA
SLEEP
;GOTO POCZATEK

STAN_3_DWA
MOVLW 11111101B
MOVWF GPIO
MOVWF ZMIENNA
SLEEP
;GOTO POCZATEK

STAN_3_TRZY
MOVLW 11111110B
MOVWF GPIO
MOVWF ZMIENNA
SLEEP
;GOTO POCZATEK
END