;-----------------------------------------------------------------------------             
;    назначение порты все выводы работают на выход 
;-----------------------------------------------------------------------------
;RC0 -шина данных
;RC1 -шина данных 
;RC2 -шина данных
;RC3 -шина данных
;RC4 -шина данных
;RC5 -шина данных
;RC6 -шина данных
;RC7 -шина данных
;RB0 - Е1  ; 1 кристалл  
;RB1 - Е2  ; 2 кристалл
;RB2 - RES ; сброс
;RA3 – RS (AO)   выбор регистра данных / команд 
;RA5 - E  строб разрешение чтения / записи
;=============================================================================================
;        П.П. ВКЛЮЧЕНИЕ ЭКРАНА
;=============================================================================================
DISPLEI_ONL         bsf	       PortB,2              ;Reset LCD OFF
                    call       Pause_10             ;
                    movlw      B'00000111'          ;
                    movwf      PortB                ;        
                    call       Pause_10             ;
                    bcf        PortB,2              ;
                    call       Pause_10             ;
                    bsf        PortB,2              ;
                    call       Pause_10             ;
                    movlw      B'00111111'          ; 
                    movwf      PortC                ; 
                    call       Pause_10             ;
                    bsf        PortA,5              ;
                    call       Pause_10             ;
                    call       Pause_10             ;
                    call       Pause_10             ;
                    call       Pause_10             ;
                    call       Pause_10             ;
                    bcf        PortA,5              ;
                    clrf       PortC                ; 
                    return                          ;
;==================================================================
;---------------------------------------------------------------------------------------------
;                             delay = 10 machine cycles
;---------------------------------------------------------------------------------------------
Pause_10           movlw       .3
                   movwf       Reg_1
wr_10              decfsz      Reg_1, F
                   goto        wr_10
                   return                          ;
;---------------------------------------------------------------------------------------------