movlw 0x0A ;Cursor low address setting
call Send_CMD
movlw 0x06 ;Low address start
call Send_DAT ;Data complete
movlw 0x0B ;Cursor high address setting
call Send_CMD
movlw 0x00 ;High address start from 00H
call Send_DAT ;Data complete
clrf J
banksel PCL
GetDat movf J,W
call Txt_MPPal
movwf TxtDat ;Pone el dato recibido en W en TxtDat
movlw 0x0C ;Write Display Data
call Send_CMD
movf TxtDat,W
call Send_DAT
incf J,1
movlw 0x0E
xorwf J,W
btfss STATUS,Z ;Si XOR entre J y W dió cero, son iguales y salta Z=1
goto GetDat
;****************************************************************************
movlw 0x0A ;Cursor low address setting
call Send_CMD
movlw 0x63 ;Low address start
call Send_DAT ;Data complete
movlw 0x0B ;Cursor high address setting
call Send_CMD
movlw 0x00 ;High address start from 00H
call Send_DAT ;Data complete
clrf J
banksel PCL
GetDat1 movf J,W
call Txt_MPPal_1
movwf TxtDat ;Pone el dato recibido en W en TxtDat
movlw 0x0C ;Write Display Data
call Send_CMD
movf TxtDat,W
call Send_DAT
incf J,1
movlw 0x10
xorwf J,W
btfss STATUS,Z ;Si XOR entre J y W dió cero, son iguales y salta Z=1
goto GetDat1
;****************************************************************************
movlw 0x0A ;Cursor low address setting
call Send_CMD
movlw 0x83 ;Low address start
call Send_DAT ;Data complete
movlw 0x0B ;Cursor high address setting
call Send_CMD
movlw 0x00 ;High address start from 00H
call Send_DAT ;Data complete
clrf J
banksel PCL
GetDat2 movf J,W
call Txt_MPPal_2
movwf TxtDat ;Pone el dato recibido en W en TxtDat
movlw 0x0C ;Write Display Data
call Send_CMD
movf TxtDat,W
call Send_DAT
incf J,1
movlw 0x15
xorwf J,W
btfss STATUS,Z ;Si XOR entre J y W dió cero, son iguales y salta Z=1
goto GetDat2
;****************************************************************************
movlw 0x0A ;Cursor low address setting
call Send_CMD
movlw 0xA3 ;Low address start
call Send_DAT ;Data complete
movlw 0x0B ;Cursor high address setting
call Send_CMD
movlw 0x00 ;High address start from 00H
call Send_DAT ;Data complete
clrf J
banksel PCL
GetDat3 movf J,W
call Txt_MPPal_3
movwf TxtDat ;Pone el dato recibido en W en TxtDat
movlw 0x0C ;Write Display Data
call Send_CMD
movf TxtDat,W
call Send_DAT
incf J,1
movlw 0x19
xorwf J,W
btfss STATUS,Z ;Si XOR entre J y W dió cero, son iguales y salta Z=1
goto GetDat3
Txt_MPPal:
addwf PCL, f
dt 0x4D,0x65,0x6E,0x75,0x20,0x50,0x72,0x69,0x6E,0x63,0x69,0x70,0x61,0x6C
Txt_MPPal_1:
addwf PCL, f
dt 0x31,0x2D,0x54,0x6F,0x6D,0x61,0x72,0x20,0x4C,0x65,0x63,0x74,0x75,0x72,0x61,0x73
Txt_MPPal_2:
addwf PCL, f
dt 0x32,0x2D,0x43,0x61,0x72,0x67,0x61,0x72,0x20,0x44,0x61,0x74,0x6F,0x73,0x20,0x64,0x65,0x20,0x4D,0x65,0x6D
Txt_MPPal_3:
addwf PCL, f
dt 0x33,0x2D,0x42,0x6F,0x72,0x72,0x61,0x72,0x20,0x44,0x61,0x74,0x6F,0x73,0x20,0x64,0x65,0x20,0x4D,0x65,0x6D,0x34,0x2D,0x45,0x6E