;
;         "hd_ktp.txt" ;   
;
;
MAIN_PROG       CODE

; these first 4 instructions are not required if the internal oscillator is not used
START
    bsf STATUS,RP0 ; sel rb1
    bcf OPTION_REG,NOT_RBPU ; pull-up enable
    movlw (1<<NOT_POR | 1<<NOT_BOR)
    iorwf PCON,f
    bcf STATUS,RP0 ; sel rb0
    movlw 7
    movwf CMCON ;  
    movlw mrak
    movwf PORTB
    andlw ~(1<<L_INH)
    andlw blok_ra
    movwf PORTA
    bsf STATUS,RP0 ; sel rb1
    movlw mrak
    movwf TRISB ;  RB "  "   
    clrw
    movwf TRISA ;  RA "  "   1
           ;   L_INH=0  RESET
;-------- - ------------------
    bcf STATUS,RP0 ; sel rb0
    movwf TMR1L
    movwf TMR1H
    bsf TMR1H,7
    movlw (1<<T1OSCEN | 1<<NOT_T1SYNC | 1<<TMR1CS)
    movwf T1CON
    bsf STATUS,RP0 ; sel rb1
    bsf PIE1,TMR1IE
    bcf STATUS,RP0 ; sel rb0
    bcf PIR1,TMR1IF
    bsf INTCON,PEIE ;  ,   
              ;   
;