LIST     p=16f84
INCLUDE "P16f84A.INC"
__CONFIG  _WDT_OFF &_XT_OSC &_PWRTE_OFF &_CP_OFF

ORG	0X00
SAYAC1  EQU     H'21' 
SAYAC2  EQU     H'22' 
SAYAC3  EQU     H'23' 
SAYICI	EQU	H'24'

BASLA
        CLRF    PORTB 
	CLRF	SAYICI
        BSF     STATUS,5 
        CLRF    TRISB 
        BCF     STATUS,5 
SAY
	MOVLW   B'00000001'  
        MOVWF   PORTB
	CALL    GECIKME
	MOVLW   B'00000000'
	MOVWF	PORTB
	CALL    GECIKME
	GOTO	SAY

GECIKME 
        MOVLW   D'5' 
        MOVWF   SAYAC1 
DON1 
        MOVLW   D'250' 
        MOVWF   SAYAC2 
DON2 
        MOVLW   D'250' 
        MOVWF   SAYAC3 
DON3  
        DECFSZ  SAYAC3,F 
        GOTO    DON3 
        DECFSZ  SAYAC2,F 
        GOTO    DON2 
        DECFSZ  SAYAC1,F 
        GOTO    DON1
RETURN
END