; ( xt1 xt2 -- ) System ; R( -- ) ; does the real defer! for eeprom defers ;VE_EDEFERSTORE: ; .db $07, "Edefer!" ; .dw VE_HEAD ; .set VE_HEAD = VE_EDEFERSTORE XT_EDEFERSTORE: .dw DO_COLON PFA_EDEFERSTORE: .dw XT_1PLUS .dw XT_IFETCH .dw XT_ESTORE .dw XT_EXIT