;
ini_out:
    acall ini_out1  ;output high nibble of a
    swap a          ;arrange for output of low nibble
ini_out1:
    rlc a
    mov p0.0,c
    rlc a
    mov p0.1,c
    rlc a
    mov p0.2,c
    rlc a
    mov p0.3,c
    setb en
    acall delay_5ms
    clr en
    ret
;
;
ini_lcd:
    clr rs
    clr en
;
    mov a,#03h
    acall ini_out
;
    mov a,#03h
    acall ini_out
;
    mov a,#03h
    acall ini_out
;
    mov a,#02h
    acall ini_out
;
    mov a,#28h
    acall ini_out
;
    mov a,#0Ch
    acall ini_out
;
    mov a,#06h
    acall ini_out
;
    mov a,#06h
    acall ini_out
;
    mov a,#01h
    acall ini_out
;
    ret