Hi all,

everybody can try this.
regards, murat seven.



GOTOYX macro y,x ; y[1|2|3|4] and x[1 .. 64] tested
    if y>2
      movlw ((y-1-2) * 0x40 + (x+.20-1)) | 0x80
    else
      movlw ((y-1) * 0x40 + (x-1)) | 0x80
    endif
    call LcdCommand ;uses wreg
  endm

TABLOPRINT macro MX,endtablo
    ;you can put the printing text anywhere in program memory
    local pr,gt
    banksel b1_tb
    clrf b1_tb
pr  call gt
    movf WREG,f,ACCESS
    bz endtablo ; AsciiZ detected
    call LcdChar
    incf b1_tb,f
    bra pr
gt  movlw high ( MX )
    movwf PCLATH,ACCESS
    rlncf b1_tb,w
    addlw low ( MX )
    btfsc STATUS,C,ACCESS
    incf  PCLATH,f,ACCESS
    rlncf b1_tb,w
    addlw low ( MX )
    movwf PCL,ACCESS
  endm


A01 dt " Example2 Text ",0
B01 dt " Another Text ",0

main:

    GOTOYX .2,.1
    TABLOPRINT L01,L02
L01 dt " Example1 Text ",0
L02
    GOTOYX .3,.1
    TABLOPRINT A01,A02
A02
    nop
    nop

    goto main
--=20
http://www.piclist.com PIC/SX FAQ & list archive
View/change your membership options at
http://mailman.mit.edu/mailman/listinfo/piclist
.