;
Lcdout Routine
LC01: MOVWF R4L
BSF 0x05,4
BCF 0x05,6
SWAPF R4L,F
MOVLW 0xF0
ANDWF 0x05,F
MOVF R4L,W
ANDLW 0x0F
IORWF 0x05,F
CALL LCX1
SWAPF R4L,F
MOVLW 0xF0
ANDWF 0x05,F
MOVF R4L,W
ANDLW 0x0F
IORWF 0x05,F
CALL LCX1
MOVLW 0x64
MOVWF R4L
CALL X001
RETURN
LCX1: BSF 0x05,7
NOP
BCF 0x05,7
NOP
RETURN
; Lcdcmdout Routine
LC02: MOVWF R4L
BCF 0x05,4
BCF 0x05,6
SWAPF R4L,F
MOVLW 0xF0
ANDWF 0x05,F
MOVF R4L,W
ANDLW 0x0F
IORWF 0x05,F
CALL LCX1
SWAPF R4L,F
MOVLW 0xF0
ANDWF 0x05,F
MOVF R4L,W
ANDLW 0x0F
IORWF 0x05,F
CALL LCX1
MOVLW 0x88
MOVWF R4L
MOVLW 0x13
MOVWF R4H
CALL Y001
RETURN
; End of listin