; #=#=#=#=#=#=#=#=#= PROJECT  NEW TESZTER =#=#=#=#=#=#=#=#=#=#=#
;
;                
; PIC12F629 running at 20MHz  

	processor pic12F629
	#include "p12f629.inc"
__CONFIG _HS_OSC & _WDT_OFF & _BODEN_ON & _PWRTE_ON & _CP_OFF & _MCLRE_OFF
;--------------------------------------------------------------
#define _LASER         GPIO,0 ;KIMENET
;--------------------------------------------------------------
INITRISIO         = b'00111110'        
;---------------------------------------------------------------

NALO        	= H'20'
NAHI	        = H'21'
NBLO  	        = H'22'
NBHI	        = H'23'

W1L             = H'29'
W1H             = H'28'
W2L             = H'2A'
W2H             = H'2B'


     
;-----------------------------------------------------------------------------------
INIC                           ;INICIALIZALAS         

         CLRF    STATUS
         CLRF    WPU               ;FELHUZO ELLENALLASOK KI
         CLRF    GPIO 
         CLRF    TMR0
         MOVLW   0X07              ;KOMPARATOR KI
         MOVWF   CMCON
 
         BSF     STATUS,RP0        ;BANK 1         
 	     MOVLW   INITRISIO         
         MOVWF   TRISIO                   
         BCF     STATUS,RP0         ;BANK 0   

      
;--------------------------------------------------------              
	     CALL PAUSE
  
;--------------------------------------------------------
FOPROGRAM
                                 ;200 PPS 5 mS
        MOVLW   21H
 	    MOVWF   NAHI
	    MOVLW   75H
	    MOVWF   NALO
DELOOP1                
	    DECFSZ  NALO
	    GOTO    DELOOP1
	    DECFSZ  NAHI
	    GOTO    DELOOP1
              
       
        BSF   _LASER
        BCF   _LASER
       
        GOTO   FOPROGRAM

;------------------------------------------------------------------------------------
PAUSE                         ;100 mSEC
  	    MOVLW  01H
	    MOVWF  NBHI
	    MOVLW  03H
	    MOVWF  NBLO
	    MOVLW  8AH
	    MOVWF  NAHI
	    MOVLW  5BH
	    MOVWF  NALO
DELOOP2
	    DECFSZ NALO
	    GOTO   DELOOP2
	    DECFSZ NAHI
	    GOTO   DELOOP2
	    DECFSZ NBLO
	    GOTO   DELOOP2
	    DECFSZ NBHI
	    GOTO   DELOOP2
        RETURN
;------------------------------------------------------------------------------------
       END