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