Ok, as promised, here is the code and the result that I described earlier:

CODE:

INIT: HSEROUt [$0D,$0A,$0D,$0A] 'Make space between display dumps
FOR I = 0 TO 255 step 16 'Dump 512 memory locations to screen
hserout [hex4(i), ":: "]
for j = 0 to 15 '16 bytes per line
READCODE (i+J),X
hserout [":", HEX2(X)," "]
next j
hserout [$0A, $0D] 'Line break after each line
next i
HSERin [x] 'Start on "L" from keyboard
if x="L" then
Goto Loader
ENDIF
'************************************************* ******************************
Loader:
for j = 0 to 255 step 64 'Erasecode does 64 bytes per block
erasecode j 'Erase a block
for i = 0 to 63 'Write 64 bytes
writecode i+j,i+j 'Write the block that was just erased
next i
next j 'Keep going until done

goto INIT 'Print out the result and wait




and here is a partial of the screen dump:

0000:: :00 :01 :02 :03 :04 :05 :06 :00 :08 :09 :0A :0B :0C :0D :0E :00
0010:: :10 :11 :12 :13 :14 :15 :16 :00 :18 :19 :1A :1B :1C :1D :1E :00
0020:: :20 :21 :22 :23 :24 :25 :26 :00 :28 :29 :2A :2B :2C :2D :2E :00
0030:: :30 :31 :32 :33 :34 :35 :36 :00 :38 :39 :3A :3B :3C :3D :3E :00
0040:: :40 :41 :42 :43 :44 :45 :46 :00 :48 :49 :4A :4B :4C :4D :4E :00
0050:: :50 :51 :52 :53 :54 :55 :56 :00 :58 :59 :5A :5B :5C :5D :5E :00