LIST       p=12F675    
            __CONFIG     00FH      

OptionR     equ        01h         
Status      equ        03h         
GPIO        equ        05h         
TrisiO      equ        05h
IntCon      equ        0Bh
ANSEL       equ        9Fh
CMCON       equ        19h
SecL        equ        20h         
SecM        equ        21h 
SecH        equ        22h 
F           equ        1        
RP0         equ        5

START       clrf IntCon           
            clrwdt                 
            bcf        Status, RP0 
            clrf       GPIO       
            movlw      0x07
            movwf      CMCON
            bsf        Status, RP0 
            clrf     ANSEL
            ;movlw      .4          
            clrf      TrisiO       
            movlw      .15             
            movwf      OptionR          
            bcf        Status, RP0        
            btfsc      GPIO,3     
            goto       START 
      
cycle       bsf        GPIO,0      ;+
            movlw      .9        
            movwf      SecL        
            movlw      .131       
            movwf      SecM 
PAUSE_1     clrwdt                 
            btfsc      GPIO,3       
            goto       START              
            decfsz     SecL,F      
            goto       PAUSE_1     
            decfsz     SecM,F      
            goto       PAUSE_1                  

            bcf        GPIO,0      ;-
            movlw      .92        
            movlw      .9        
            movwf      SecL        
            movlw      .131       
            movwf      SecM 
PAUSE_2     clrwdt                 
            btfsc      GPIO,3      
            goto       START              
            decfsz     SecL,F      
            goto       PAUSE_2     
            decfsz     SecM,F      
            goto       PAUSE_2
            goto       cycle
            end