; ( f -- ) ; R( -- ) ; runtime portion of ?branch ;VE_DOCONDBRANCH: ; .db $09, "(?branch)" ; .dw VE_HEAD ; .set VE_HEAD = VE_DOCONDBRANCH XT_DOCONDBRANCH: .dw PFA_DOCONDBRANCH PFA_DOCONDBRANCH: or tosh, tosl loadtos brbs 1, PFA_DOBRANCH ; 1 is z flag; if tos is zero (false), do the branch adiw xl, 1 rjmp DO_NEXT