; se hace uso del TBLRD para el manejo de tablas
; se crea un tabla > 255 datos y se vá llamando
; de a un nibble a la vez que se guarda en dato
;
; Pedro - PalitroqueZ 21-Mar-2006 08:23PM
LIST P=18F4550 ;directive to define processor
#include <P18F4550.INC> ;processor specific variable definitions
CBLOCK 0x0
dato
ENDC
org 0
goto inicio
inicio:
clrf dato
MOVLW 0 ; limpia TBLPTRU
MOVWF TBLPTRU
MOVLW 0
MOVWF TBLPTRH ; limpia TBLPTRU
MOVLW 0x82
MOVWF TBLPTRL ; carga a 82 en TBLPTRL
ciclo:
TBLRD*+ ; TABLAT++
MOVF TABLAT, W ; W <- TABLAT
movwf dato ; dato <- W
goto ciclo ; bucle eterno
; se crea la tabla
org 0x82
db 0x1,0x2,0x3,0x4,0x5,0x6,0x7,0x8
db 0x9,0x1,0x2,0x3,0x4,0x5,0x6,0x7
db 0x1,0x2,0x3,0x4,0x5,0x6,0x7,0x8
db 0x9,0x1,0x2,0x3,0x4,0x5,0x6,0x7
db 0x1,0x2,0x3,0x4,0x5,0x6,0x7,0x8
db 0x9,0x1,0x2,0x3,0x4,0x5,0x6,0x7
db 0x1,0x2,0x3,0x4,0x5,0x6,0x7,0x8
db 0x9,0x1,0x2,0x3,0x4,0x5,0x6,0x7
db 0x1,0x2,0x3,0x4,0x5,0x6,0x7,0x8
db 0x9,0x1,0x2,0x3,0x4,0x5,0x6,0x7
db 0x1,0x2,0x3,0x4,0x5,0x6,0x7,0x8
db 0x9,0x1,0x2,0x3,0x4,0x5,0x6,0x7
db 0x1,0x2,0x3,0x4,0x5,0x6,0x7,0x8
db 0x9,0x1,0x2,0x3,0x4,0x5,0x6,0x7
db 0x1,0x2,0x3,0x4,0x5,0x6,0x7,0x8
db 0x9,0x1,0x2,0x3,0x4,0x5,0x6,0x7
db 0x1,0x2,0x3,0x4,0x5,0x6,0x7,0x8
db 0x9,0x1,0x2,0x3,0x4,0x5,0x6,0x7
db 0x1,0x2,0x3,0x4,0x5,0x6,0x7,0x8
db 0x9,0x1,0x2,0x3,0x4,0x5,0x6,0x7
db 0x1,0x2,0x3,0x4,0x5,0x6,0x7,0x8
db 0x9,0x1,0x2,0x3,0x4,0x5,0x6,0x7
db 0x1,0x2,0x3,0x4,0x5,0x6,0x7,0x8
db 0x9,0x1,0x2,0x3,0x4,0x5,0x6,0x7
db 0x1,0x2,0x3,0x4,0x5,0x6,0x7,0x8
db 0x9,0x1,0x2,0x3,0x4,0x5,0x6,0x7
db 0x1,0x2,0x3,0x4,0x5,0x6,0x7,0x8
db 0x9,0x1,0x2,0x3,0x4,0x5,0x6,0x7
db 0x1,0x2,0x3,0x4,0x5,0x6,0x7,0x8
db 0x9,0x1,0x2,0x3,0x4,0x5,0x6,0x7
db 0x1,0x2,0x3,0x4,0x5,0x6,0x7,0x8
db 0x9,0x1,0x2,0x3,0x4,0x5,0x6,0x7
; offset= 256
db "llego"
end