fill

 Fill u bytes memory beginning at a-addr with character c

Stackeffects

( c-addr u c -- )
R( -- )


: fill

   rot    rot    0    (?do) 

PFA_FILL1:

   over    over    c!    1+ 

 (loop) PFA_FILL1



PFA_FILL2:

   drop    drop 

;