;************************************************************


        
         call    delay


         movlw H'38'     ;кодова дума  
	 call com_lcd      
         call    delay
         call    delay
         
         movlw H'38'       ;също
    	 call com_lcd      
         call    delay
         call    delay

         movlw H'38'       ;също
	     call com_lcd      
         call    delay
         call    delay         

      
    	 movlw H'0C'       ; също
    	 call com_lcd
         call    delay
         call    delay      
   
	     movlw H'06'       
	     call com_lcd
         call    delay
         call    delay      
        
         movlw H'01'       
	     call com_lcd      
         call    delay
         call    delay
   
         movlw H'02'       
	     call com_lcd
         call    delay
         call    delay      
    
;*************************************************

                        BANKSEL PORTC
                        bsf PORTC,6   ;rs=1
	                movlw A' '
                        call wr_lcd
                        call    delay
                        call    delay

                        movlw A' '
                        call wr_lcd
                        call    delay
                        call    delay

                        movlw A' '
                        call wr_lcd
                        call    delay
                        call    delay

                        movlw A' '
                        call wr_lcd
                        call    delay
                        call    delay

                        movlw A'P'
                        call wr_lcd
                        call    delay
                        call    delay

                        movlw A'R'
                        call wr_lcd
                        call    delay
                        call    delay

                        movlw A'E'
                        call wr_lcd
                        call    delay
                        call    delay

                        movlw A'A'
                        call wr_lcd
                        call    delay
                        call    delay

                        movlw A'S'
                        call wr_lcd
                        call    delay
                        call    delay

                        movlw A'U'
                        call wr_lcd
                        call    delay
                        call    delay

                        movlw A'R'
                        call wr_lcd
                        call    delay
                        call    delay

                        movlw A'E'
                        call wr_lcd
                        call    delay
                        call    delay

                        movlw A' '
                        call wr_lcd
                        call    delay
                        call    delay

                        movlw A' '
                        call wr_lcd
                        call    delay
                        call    delay

                        movlw A' '
                        call wr_lcd
                        call    delay
                        call    delay

                        movlw A' '
		            	call wr_lcd
                        call    delay
                        call    delay

;******************************************

                        MOVLW    H'CB'           
                        call    com_lcd
                       

					    call    delay
                        call    delay
                        movlw   A'B'
                        call    wr_lcd
                        call    delay
                        call    delay

                        movlw   A'a'
                        call    wr_lcd
                        call    delay
                        call    delay

                        movlw   A'r'
                        call    wr_lcd
                        call    delay
                        call    delay


;******************************************

                        MOVLW    H'C0'           
                        call    com_lcd
                        goto     START_1
                     

;************************************************************
com_lcd                 ;send commands
       
                        BANKSEL PORTC                   
                        BCF PORTC,6        ;rs=0
                        BANKSEL PORTB      
                        MOVWF PORTB
                        BANKSEL PORTC       
                        BSF PORTC,7        ;e=0
                        BCF PORTC,7        ;e=1
                        BSF PORTC,6        ;rs=1
                        BANKSEL PORTB     
                        CLRF PORTB         
                        return               
     
;***********************************************************
wr_lcd                  ;send data

                        BANKSEL PORTB                  
                        movwf PORTB  
                        BANKSEL PORTC      
                        bsf PORTC,7        ;e=1
                        bcf PORTC,7        ;e=0
                        BANKSEL PORTB      
                        clrf PORTB         
                        return



;***********************************************************
START_1                       
           
delay          - wait 30ms - program