LIST       P=16F84
           INCLUDE              "P16F84.INC"
               
SAYAC1          EQU       H'0C'
SAYAC2          EQU       H'0D'
SAYAC3          EQU       H'0E'
SAYAC4          EQU       H'0F'
               
	       CLRF       PORTB
               BSF        STATUS,5
               CLRF       TRISB
               BCF        STATUS,5
ENG      
               MOVLW      D'8'
               MOVWF      SAYAC1
               CLRF       SAYAC2
ENG1    
               MOVF       SAYAC2,W
               CALL       DISPLAY
               MOVWF      PORTB
               CALL       GECIKME
 	       CALL       GECIKME
               INCF       SAYAC2,F
               DECFSZ     SAYAC1,F
               GOTO       ENG1
               GOTO       ENG
DONGU
               GOTO       DONGU
DISPLAY
               ADDWF      PCL,F
               RETLW      b'01111101'
               RETLW      b'00111110'
               RETLW      b'00111000'
               RETLW      b'01111001'
               RETLW      b'01111101'
               RETLW      b'00111110'
               RETLW      b'00111000'
               RETLW      b'01111001'
GECIKME
               MOVLW      H'FF'
               MOVWF      SAYAC3
DONGU1             
               MOVLW      H'FF'
               MOVWF      SAYAC4
DONGU2
               DECFSZ     SAYAC4,F
               GOTO       DONGU2
               DECFSZ     SAYAC3,F
               GOTO       DONGU1
               RETURN
               END