LIST P = P16F877A
#INCLUDE <P16F877A.INC>
__config H'3F31'
SAYI EQU 0X20
ADET EQU 0X21
ORG 0X00
GOTO PROGRAM
ORG 0X04
GOTO PROGRAM
PROGRAM
MOVLW .4
MOVWF ADET
MOVLW B'11001001'
MOVWF SAYI
GOTO DONGU
DONGU
BCF STATUS,C
RRF SAYI,F
BTFSC STATUS,C
BSF SAYI,7
DECFSZ ADET,F
GOTO DONGU
END