Sayaç

INCLUDE "P16F877.INC"
SAYAC  EQU 0X21
SAYAC1  EQU 0X22
SAYAC2 EQU 0X23

ORG 0X00

BANKSEL TRISB
CLRF TRISB

BANKSEL PORTB
CLRF PORTB
MOVLW 0X01
MOVWF SAYAC

ANA
MOVFW SAYAC
MOVWF PORTB
CALL GECIK
INCF SAYAC
INCF SAYAC
GOTO ANA

GECIK
MOVLW 0XFF
MOVWF SAYAC1
DON1
MOVLW 0XFF
MOVWF SAYAC2
DON2
DECFSZ SAYAC2,F
GOTO DON2
DECFSZ SAYAC1,F
GOTO DON1
RETURN
END