שתשת move.l #60000,d0 ; Number to divide moveq.l #21,d1 ; Number to divide by move.l #135,d2 ; Number of decimals lea.l fan(pc),a0 ; String to store everything in bsr.s floatdiv rts ;-------------------------------------------------------------------------- ; Inputs: D0 = Number to divide ; D1 = Number to divide by ; D2 = Number of decimals ; A0 = Address of storage ; Result: First word of specified address = Integer part of result ; the other bytes of the buffer contains the fractals in ; ASCII format ;-------------------------------------------------------------------------- floatdiv: subq.l #1,d2 ; Adjust for DBcc divu d1,d0 ; Divide move.w d0,(a0)+ ; Save integer part clr.w d0 swap d0 mulu #10,d0 beq.s .slut .div divu d1,d0 add.b #$30,d0 ; Convert decimal to ASCII move.b d0,(a0)+ ; Save ASCII digit clr.w d0 swap d0 mulu #10,d0 beq.s .slut dbra d2,.div .slut rts ;----------------------------------- fan: blk.b 150,0