home *** CD-ROM | disk | FTP | other *** search
/ Fujiology Archive / fujiology_archive_v1_0.iso / !FALCON / AGGRESSN / MOTION.ZIP / MOTION / SQRT.X < prev    next >
Text File  |  1995-07-12  |  454b  |  41 lines
  1. SQRT    MACRO
  2.     moveq    #0,\2
  3.     bfffo    \1{0:31},\3
  4.     beq.s    .\@zero
  5.     neg.w    \3
  6.     add.w    #31,\3
  7.     lsr.w    #1,\3
  8.     addx.w    \2,\3
  9.  
  10.     move.l    \1,\2
  11.     lsr.l    \3,\2
  12.     beq.s    .\@zero
  13.  
  14.     move.l    \1,\3
  15.     divu.w    \2,\3
  16.     add.w    \3,\2
  17.     lsr.w    #1,\2
  18.     beq.s    .\@zero
  19.  
  20.     move.l    \1,\3
  21.     divu.w    \2,\3
  22.     add.w    \3,\2
  23.     lsr.w    #1,\2
  24.     beq.s    .\@zero
  25.  
  26.     divu.w    \2,\1
  27.     add.w    \2,\1
  28.  
  29.     lsr.w    #1,\1
  30.  
  31. .\@zero
  32.     ENDM
  33.  
  34. ;    move.l    #65536-2,d0
  35. ;    SQRT    d0,d1,d2
  36. ;    and.l    #$ffff,d0
  37. ;    rts
  38.  
  39.  
  40.  
  41.