; ( -- n1 ) ; R( -- ) ; runtime of literal ;VE_DOLITERAL: ; .db $09, "(literal)" ; .dw VE_HEAD ; .set VE_HEAD = VE_DOLITERAL XT_DOLITERAL: .dw DO_COLON PFA_DOLITERAL: .dw XT_R_FROM .dw XT_DUP .dw XT_1PLUS .dw XT_TO_R .dw XT_IFETCH .dw XT_EXIT ; .dw PFA_DOLITERAL ;PFA_DOLITERAL: ; savetos ; movw zl, xl ; lsl zl ; rol zh ; lpm tosl, Z+ ; lpm tosh, Z ; adiw xl, 1 ; rjmp DO_NEXT