;#####################################
;#             RC-Stopper            #
;#####################################

    #INCLUDE<P16F819.INC>
    ERRORLEVEL 0, -302
A   EQU     20    
    ORG     0
    BANKSEL INTCON
    MOVLW   B'11010010'
    MOVWF   INTCON
    BANKSEL OPTION_REG
    MOVLW   B'01000000'
    MOVWF   OPTION_REG
    GOTO    Beállítások

    ORG     0Bh
    GOTO    Megszakítás

Beállítások
   
    CLRF    PORTB
    BANKSEL TRISB
    MOVLW   B'00000001'
    MOVWF   TRISB
    BANKSEL PORTB
    GOTO    Főprogram

Főprogram

    MOVLW   B'00000010'
    MOVWF   PORTB
    CALL    Időzítés
    CLRF    PORTB
    CALL    Időzítés
    GOTO    Főprogram

Időzítés

    MOVLW   D'255'
    MOVWF   A
Ide DECFSZ  A,F
    GOTO    Ide
    RETURN

Megszakítás

    BCF     INTCON,INTF
    MOVLW   B'11111110'
    MOVWF   PORTB
    CALL    Időzítés
    CLRF    PORTB
    CALL    Időzítés
    MOVLW   B'11111110'
    MOVWF   PORTB
    CALL    Időzítés
    CLRF    PORTB
    CALL    Időzítés
    MOVLW   B'11111110'
    MOVWF   PORTB
    CALL    Időzítés
    CLRF    PORTB
    CALL    Időzítés
    MOVLW   B'11111110'
    MOVWF   PORTB
    CALL    Időzítés
    CLRF    PORTB
    RETFIE
    END