; Division 56 / 24 bit ;------------------------------------------------------------------------- ;input: a6..0: Divident ; b2..0; Divisor ; ;output: a6..0: Quotient ; t2..0: Remainder ; T = 1: Quotient > 0 ; div56: clt clr t0 clr t1 clr t2 ldi i0, 56 _div1: lsl a0 rol a1 rol a2 rol a3 rol a4 rol a5 rol a6 rol t0 rol t1 rol t2 brcs _div2 cp t0, b0 cpc t1, b1 cpc t2, b2 brcs _div3 _div2: sub t0, b0 sbc t1, b1 sbc t2, b2 inc a0 set ;Quotient not zero _div3: dec i0 brne _div1 ret ;------------------------------------------------------------------------