LIST P=16F84A INCLUDE "P16F84A.INC" SAYAC1 EQU H'0C' SAYAC2 EQU H'0D' BSF STATUS,5 CLRF TRISA MOVLW B'00011' MOVWF PORTA MOVLW B'00000000' MOVWF PORTB BCF STATUS,5 CLRF PORTA CLRF PORTB BASLA UST BTFSC PORTA,0 GOTO ALT ;******************* MOVLW H'09' XORWF PORTB,W BTFSC STATUS,2 GOTO BASLA MOVLW H'01' ADDWF PORTB CALL BEKLE ;******************* GOTO BASLA ALT BTFSC PORTA,1 GOTO BASLA ;******************* MOVLW H'00' XORWF PORTB,W BTFSC STATUS,2 GOTO BASLA MOVLW H'01' SUBWF PORTB CALL BEKLE ;******************* GOTO BASLA BEKLE MOVLW H'F5' MOVWF SAYAC1 DONGU1 MOVLW H'F5' MOVWF SAYAC2 DONGU2 DECFSZ SAYAC2,F GOTO DONGU2 DECFSZ SAYAC1,F GOTO DONGU1 RETURN END