; ( a-addr u c -- ) ; Memory ; fill u bytes memory beginning at a-addr with character c VE_FILL: .dw $ff04 .db "fill" .dw VE_HEAD .set VE_HEAD = VE_FILL XT_FILL: .dw DO_COLON PFA_FILL: .dw XT_ROT .dw XT_ROT .dw XT_QDUP,XT_DOCONDBRANCH DEST(PFA_FILL2) .dw XT_BOUNDS .dw XT_DODO PFA_FILL1: .dw XT_DUP .dw XT_I .dw XT_CSTORE ; ( -- c c-addr) .dw XT_DOLOOP .dw PFA_FILL1 PFA_FILL2: .dw XT_DROP .dw XT_EXIT