home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / DOS / Programa / CCDL122.ZIP / CLIBS / COMPLIB / 68K / 68DIVU.SRC < prev    next >
Encoding:
Text File  |  1996-08-02  |  505 b   |  40 lines
  1.     section code
  2.     XDEF __divu,lludiv
  3. __divu:
  4.     move    (8,A7),D1
  5.     move    (4,A7),D0
  6. lludiv:
  7.     cmp.l    d1,d0
  8.     beq.b    retone
  9.     bpl.b    retzer
  10.     movem.l    d3/d4,-(A7)
  11.     clr.l    d3
  12.     moveq    #1,d4
  13. lp1:
  14.     asl.l    #1,d0
  15.     asl.l    #1,d4
  16.     cmp.l    d1,d0
  17.     bmi.b    lp1
  18. lp2:
  19.     lsr.l    #1,d0
  20.     lsr.l    #1,d4
  21.         beq.b    done
  22.     sub.l    d0,d1
  23.     bmi.b    nosub
  24.     or.l    d4,d3
  25.     bra.b    lp2
  26. nosub:
  27.     add.l    d0,d1
  28.     bra.b    lp2
  29. done:
  30.     move.l    d3,d0        
  31.     movem.l    (a7)+,d3/d4
  32.     rts
  33. retzer:
  34.     clr.l    d0
  35.     rts
  36. retone:
  37.     clr.l    d0
  38.     clr.l    d1
  39.     addq.l    #1,d0
  40.     rts