home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / source / propgadget.lha / PropGadget / div020.asm < prev    next >
Encoding:
Assembly Source File  |  1989-11-30  |  1.3 KB  |  40 lines
  1. ;  There is not a man that lives, who hath not known his god-like hours.
  2. ;                                                              Wordsworth
  3. ;           Jerry J. Trantow
  4. ;           1560 A East Irving Place
  5. ;           Milwaukee, Wi 53202-1460
  6. ; written especially for Gadget calculation where result is always 32 bits
  7. ; 12 Jan 89 Now does a 64/32 with a 64 bit result
  8. ; 12 Jan 89 64 bit Quotient gets returned in the Dividend
  9. ; 14 Jan 89 passes divisor by value
  10. ; 15 Jan 89 Used Andi, ori to set X Flag
  11. ; 24 Jan 89 Division by 2^31 or larger doesn't seem to work
  12. ;  1 Feb 89 Implemented a 64/32 = 32 bit Quotient Division
  13. ;           NOTE : ONLY USE THE LOWER ULONG i.e. ONLY A 32 bit Quotient
  14. ; 
  15.     IFD LATTICE
  16.      CSECT text
  17.      XDEF _QuadDiv020
  18.     ELSE
  19.          machine MC68020
  20.          public    _QuadDiv020
  21.     ENDC
  22.  
  23. _QuadDiv020:
  24.         link    a5,#0
  25.         movem.l    d2/d3/d5,-(sp)    ; push registers on the stack
  26.  
  27.         move.l    8(a5),a0    ; Points to Dividend  (64 bits)
  28.         move.l  (a0),d0        ; High ULONG of Quad
  29.         move.l  4(a0),d1    ; Low ULONG of Quad
  30.  
  31.         divu.l    12(a5),d0:d1    
  32. ;       move.l  d0,(a0)        ; put Remainder in High ULONG of QUAD
  33.         move.l  d1,4(a0)    ; puts Quotient in Low ULONG of QUAD
  34.  
  35.         movem.l    (sp)+,d2/d3/d5
  36.         unlk    a5
  37.         rts
  38.         end
  39.  
  40.