list  p=16F628A  
               #include <p16F628A.inc>
               __CONFIG   _CP_OFF & _DATA_CP_OFF & _LVP_OFF & _BOREN_OFF & _MCLRE_ON & _WDT_OFF & _PWRTE_ON & _INTRC_OSC_NOCLKOUT

 cblock 0x0C
 W_TEMP			
STATUS_TEMP			
TEMP_0					
ENDC
	
INIT_OPTION        EQU    b'00000111'               
INIT_INTCON       EQU     b'10100000'            
                
                   
                    ;		--- ПУСК ---

		ORG	0			
							
Reset		goto	BEGIN
		ORG 	4
		
DELAY_1SEC	movwf	W_TEMP			
			movf	STATUS,W	
			movwf	STATUS_TEMP    
			 
				CLRF TMR0						
				MOVLW		B'00001111'
				MOVWF TMR0

			movf	STATUS_TEMP,W		
			movwf	STATUS	
			swapf	W_TEMP,F		
			swapf	W_TEMP,W
			retfie				
			
BEGIN		BCF STATUS,RP1
			BCF STATUS,RP0
			CLRF	PORTA
			 movlw 07h			;отключить
			movwf CMCON		;компараторы
               	 bsf	STATUS,RP0
               	 movlw b'00000000'
               	 movwf TRISA