include ;      
__config  0F94
    MOVLW B'00000010'
    MOVWF 05H;  1   
    MOVLW   0X07 
    MOVWF  19h
    BSF 83H,5;1 
    MOVLW B'00111000'
    MOVWF 9FH;  ANSEL -, - 
    MOVLW B'00000001'
    MOVWF 8FH; 31  
    MOVLW B'00111000'
    MOVWF 85H;   
    BCF 03H,5 ;  0
    BCF GPIO,1;   
    BSF GPIO,0;    2
    MOVLW .100 ; 100      
    MOVWF 27H; 100   
GEN_5    MOVLW .100;  
    MOVWF 28H ;   28
GEN_6  DECFSZ 28H,F;   1
    GOTO GEN_6;   28
    DECFSZ 27H,F;  27
    GOTO GEN_5 ;   4    
    BSF GPIO,1 ;   
    BCF GPIO,0 ;   2     
START    MOVLW .16; 16  
    MOVWF 26H ; 16   26
    ;  0,5 
pir    MOVLW .35 ; 35      
    MOVWF 25H; 35  25 
GEN_1   MOVLW .35; 35 
    MOVWF 24H ; 35   24H 
GEN_2    DECFSZ 24H,F;   1
    GOTO GEN_2 ;   24
    DECFSZ 25H,F;  25
    GOTO GEN_1 ;   0.5 
    BTFSS GPIO,3;     1, :
    GOTO START;     
    DECFSZ 26H ;  26  1   0, :
    GOTO pir;    0,5 
    NOP ;    
    BTFSS GPIO,2 ;   
    GOTO PIR_1   ; 0  Ĩ  PIR_1 1 , :
    BCF GPIO,2 ;  
    GOTO OFF_1 ;    
    ;    8    
PIR_1    MOVLW .150 ; 150      
    MOVWF 21H; 150   
GEN_3   MOVLW .150; 5 
    MOVWF 20H ;   20
GEN_4    DECFSZ 20H,F;   1
    GOTO GEN_4;   20
    DECFSZ 21H,F;  21
    GOTO GEN_3 ;   8 
    BSF GPIO,2 ;  
    NOP ;   
    ;   
OFF_1  BCF GPIO,1;   
    BCF GPIO,0 ;   2
    MOVLW .50 ; 50      
    MOVWF 27H; 50   
GEN_8    MOVLW .50; 5 
    MOVWF 28H ;   28
GEN_9  DECFSZ 28H,F;   1
    GOTO GEN_9;   20
    DECFSZ 27H,F;  27
    GOTO GEN_8 ;   8    
    BSF GPIO,1 ;  
    BCF GPIO,0 ;   2
    GOTO START ; 
    END ; 
    RETURN; 