; ( addr len -- ) Tools ; R( -- ) ; dumps flash memory beginning with address addr and len cells long VE_IDUMP: .db $5, "idump" .dw VE_HEAD .set VE_HEAD = VE_IDUMP XT_IDUMP: .dw DO_COLON PFA_IDUMP: .dw XT_ZERO .dw XT_DODO .dw PFA_IDUMP2 PFA_IDUMP1: .dw XT_I .dw XT_OVER .dw XT_PLUS .dw XT_DUP .dw XT_UDOT .dw XT_IFETCH .dw XT_UDOT .dw XT_CR .dw XT_DOLOOP .dw PFA_IDUMP1 PFA_IDUMP2: .dw XT_DROP .dw XT_EXIT