;
;         "hd_lds.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
    movwf PORTA
    banksel TRISA
    movwf TRISA ;  RA "  "   
    movlw ~(1<<L_RI | 1<<L_GI | 1<<L_BI) ; L_RI=L_GI=L_BI 
    movwf TRISB ;  1   ( )
    banksel 0
;-------- mark- ------------------
; - 1      Fosc/4
;  1:1,  
    bcf STATUS,RP0 ; sel rb0
		clrf T1CON
    bsf STATUS,RP0 ; sel rb1
    bsf PIE1,TMR1IE
    bcf STATUS,RP0 ; sel rb0
    bcf PIR1,TMR1IF
    bsf INTCON,PEIE ;  ,   
              ;   
;