; ( n1 -- n2 ) ; Arithmetics ; logarithm to base 2 or highest set bitnumber VE_LOG2: .dw $ff04 .db "log2" .dw VE_HEAD .set VE_HEAD = VE_LOG2 XT_LOG2: .dw PFA_LOG2 PFA_LOG2: movw zl, tosl clr tosh ldi tosl, 16 PFA_LOG2_1: dec tosl brmi PFA_LOG2_2 ; wrong data lsl zl rol zh brcc PFA_LOG2_1 jmp_ DO_NEXT PFA_LOG2_2: dec tosh jmp_ DO_NEXT