IS THIS SUBROUTINE CORRECT FOR 4 BIT LCD INITIALISATION
PLEASE TELL ME aSHISH



INIT_LCD:
mov r4, #32h
lcall MS_DELAY ;20 ms delay

mov A, #38h ;(function set)interface is 8 bits long
lcall PUT_LCD_DATA

mov r4, #0ah
lcall MS_DELAY ;5 ms delay

mov A, #38h ;interface is 8 bits long(function set)
lcall PUT_LCD_DATA

mov r4, #02h
lcall MS_DELAY ;1 ms delay

mov A, #38h ;(function set)interface is 8 bits long
lcall PUT_LCD_DATA

mov r4, #06h
lcall MS_DELAY

mov A, #20h ;(function set)set interface to be 4 bits long
lcall PUT_LCD_DATA

mov r4, #05h
lcall MS_DELAY

mov A, #20h ;
lcall PUT_LCD_DATA

mov r4, #05h
lcall MS_DELAY

mov A, #00h ;
lcall PUT_LCD_DATA

mov r4, #05h
lcall MS_DELAY


mov A, #00h ;display off
lcall PUT_LCD_DATA

mov r4, #05h
lcall MS_DELAY

mov A, #80h ;display off
lcall PUT_LCD_DATA

mov r4, #05h
lcall MS_DELAY


mov A, #00h ;clear display
lcall PUT_LCD_DATA

mov r4, #05h
lcall MS_DELAY

mov A, #10h ;clear display
lcall PUT_LCD_DATA

mov r4, #05h
lcall MS_DELAY

mov A, #0fh ;entry mode set
lcall PUT_LCD_DATA

mov r4, #05h
lcall MS_DELAY

mov A, #60h ;entry mode set
lcall PUT_LCD_DATA

mov r4, #05h
lcall MS_DELAY

mov A, #00h ;display on
lcall PUT_LCD_DATA

mov r4, #05h
lcall MS_DELAY

mov A, #0c0h ;display on
lcall PUT_LCD_DATA

mov r4, #05h
lcall MS_DELAY

ret

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