home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 3 / 3137 / frexp.s < prev    next >
Encoding:
Text File  |  1991-03-27  |  922 b   |  70 lines
  1. #NO_APP
  2. gcc_compiled.:
  3. .text
  4.     .even
  5. LC0:
  6.     .double 0r0.00000000000000000000e+00
  7.     .even
  8. .globl _frexp
  9. _frexp:
  10.     link a6,#-12
  11.     movel d2,sp@-
  12.     movel a6,d2
  13.     addql #8,d2
  14.     movel d2,a6@(-4)
  15.     movel a6@(-4),a0
  16.     movew a0@,d0
  17.     lsrw #4,d0
  18.     moveq #0,d1
  19.     movew d0,d1
  20.     movel d1,d2
  21.     andl #2047,d2
  22.     movel d2,a6@(-8)
  23.     movel a6@(-4),a0
  24.     moveb a0@,d0
  25.     lsrb #7,d0
  26.     moveq #0,d1
  27.     moveb d0,d1
  28.     movel d1,a6@(-12)
  29.     movel a6@(-4),a0
  30.     andw #32783,a0@
  31.     movel a6@(-4),a0
  32.     andb #127,a0@
  33.     movel a6@(16),a0
  34.     movel a6@(-8),d2
  35.     addl #-1022,d2
  36.     movel d2,a0@
  37.     tstl a6@(-8)
  38.     jeq L2
  39.     movel a6@(-4),a0
  40.     andw #32783,a0@
  41.     orw #16,a0@
  42.     jra L3
  43. L2:
  44.     movel a6@(-4),a0
  45.     movel a0@,d0
  46.     andl #1048575,d0
  47.     tstl d0
  48.     jne L4
  49.     movel a6@(-4),a0
  50.     tstl a0@(4)
  51.     jne L4
  52.     movel a6@(16),a0
  53.     clrl a0@
  54.     movel LC0,d0
  55.     movel LC0+4,d1
  56.     jra L1
  57. L4:
  58. L3:
  59.     clrl sp@-
  60.     movel a6@(-12),sp@-
  61.     pea 1022:w
  62.     movel a6@(12),sp@-
  63.     movel a6@(8),sp@-
  64.     jbsr _norm
  65.     jra L1
  66. L1:
  67.     movel a6@(-16),d2
  68.     unlk a6
  69.     rts
  70.