movlw .0 ;selecciona mensaje 0
call bucle
movlw .1 ;selecciona mensaje 1
call bucle
movlw .2 ;selecciona mensaje 2
call bucle
movlw .n ;selecciona mensaje "n"
call bucle
ORG 0x100
bucle
movwf nro_mensaje
clrf contador
mini_loop
PAGESELW $
movwf PCLATH
bcf STATUS,C
rlf nro_mensaje,0
addwf PCL,F
call tabla0
goto sale
call tabla1
goto sale
call tabla2
goto sale
call tablan
sale
btfsc contador,7 ;si el bit 7 es 0 continúa el bucle
return
incf contador,1
call caracter
goto mini_loop
ORG 0x200
tabla0
PAGESELW $
movwf PCLATH
movf contador,w
addwf PCL,1
DT "horario"
bsf contador,7 ;avisa el fin de la tabla
return
tabla1
PAGESELW $
movwf PCLATH
movf contador,w
addwf PCL,1
DT "entrada"
bsf contador,7
return
tabla2
PAGESELW $
movwf PCLATH
movf contador,w
addwf PCL,1
DT "adios"
bsf contador,7
return
tablan
PAGESELW $
movwf PCLATH
movf contador,w
addwf PCL,1
DT "TABLAN"
bsf contador,7
return
caracter
;W contiene el dato a enviar
;rutina envio dato al LCD aqui!
return