LIST P=16F877A
#INCLUDE <P16F877A.INC>
__config _CP_OFF &_WDT_OFF &_HS_OSC &_PWRTE_OFF &_LVP_OFF
SAY0 EQU 0X21
SAY1 EQU 0X22
SAY2 EQU 0X23
ORG 0X00
GOTO MAIN
ORG 0X04
GOTO MAIN
MAIN
BANKSEL TRISB
CLRF TRISB
BANKSEL PORTB
MOVLW .1
MOVWF PORTB
BCF STATUS,C
BCF STATUS,Z
GOTO SOLA
SOLA
RLF PORTB,F
CALL BEKLE
BTFSC PORTB,7
GOTO SAGA
GOTO SOLA
SAGA
RRF PORTB,F
CALL BEKLE
BTFSC PORTB,0
GOTO SOLA
GOTO SAGA
BEKLE
MOVLW .50
MOVWF SAY0
BEKLE1
MOVLW .50
MOVWF SAY1
BEKLE2
MOVLW .50
MOVWF SAY2
BEKLE3
DECFSZ SAY2,F
GOTO BEKLE3
DECFSZ SAY1,F
GOTO BEKLE2
DECFSZ SAY0,F
GOTO BEKLE1
RETURN
END