; command set routine
LCD_Cmd movwf templcd ;send upper nibble
andlw 0x0f0 ;clear lower 4 bits of W
movwf LCD_PORT
bcf LCD_PORT, LCD_RS ;RS line to 0
call Pulse_e ;Pulse the E line high
swapf templcd, w ;send lower nibble
andlw 0x0f0 ;clear lower 4 bits of W
movwf LCD_PORT
bcf LCD_PORT, LCD_RS ;RS line to 0
call Pulse_e ;Pulse the E line high
call Delay5
retlw 0x00
LCD_CharD addlw 0x30
LCD_Char movwf templcd ;send upper nibble
andlw 0x0f0 ;clear lower 4 bits of W
movwf LCD_PORT
bsf LCD_PORT, LCD_RS ;RS line to 1
call Pulse_e ;Pulse the E line high
swapf templcd, w ;send lower nibble
andlw 0x0f0 ;clear lower 4 bits of W
movwf LCD_PORT
bsf LCD_PORT, LCD_RS ;RS line to 1
call Pulse_e ;Pulse the E line high
call Delay5
retlw 0x00