home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 3 / 3137 / ldexp.s < prev    next >
Encoding:
Text File  |  1991-03-27  |  360 b   |  30 lines
  1. #NO_APP
  2. gcc_compiled.:
  3. .text
  4.     .even
  5. .globl _ldexp
  6. _ldexp:
  7.     link a6,#-4
  8.     movel a6,a1
  9.     addqw #8,a1
  10.     movel a1,a6@(-4)
  11.     movel a6@(-4),d0
  12.     movel d0,a0
  13.     movew a0@,d0
  14.     lsrw #4,d0
  15.     moveq #0,d1
  16.     movew d0,d1
  17.     movel d1,d0
  18.     andl #2047,d0
  19.     addl a6@(16),d0
  20.     andw #2047,d0
  21.     lslw #4,d0
  22.     andw #32783,a0@
  23.     orw d0,a0@
  24.     movel a6@(8),d0
  25.     movel a6@(12),d1
  26.     jra L1
  27. L1:
  28.     unlk a6
  29.     rts
  30.