JSR $BC0C + TAX + BEQ

Call MOVAF in BASIC + fragment