
compiletoflash

\ Cornerstone for 1 kb Flash pages

: cornerstone ( Name ) ( -- )
  <builds begin here $3FF and while 0 , repeat
  does>   begin dup  $3FF and while 4 + repeat
          eraseflashfrom
;

cornerstone eraseflash
