WRITECODE and BLOCKSIZE on 18F26J50

[proximo]

Hi Darrel, thank you very much for your reply!
I tried your sub and of course it works, perfectly!
By the way, before you replied, I tried a small program (with block size = 2) and it seemed to work for the first 64 bytes under a cycle of 256, not from the 65th to the end;
So, the solution for my thread is definitely the assembly, however I'm posting the code and the result:

CONTAW VAR WORD
ERASECODE $3000                                    '1k from $3000 will be erased
FOR CONTAW=0 TO 255 STEP 2                  'writes 256 bytes, 1 word for address
    WRITECODE $3000+CONTAW,CONTAW     'On each address, wrties a word containing the cycle index
NEXT CONTAW

Thank you again!