home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / MAXONC3_6OF8.DMS / in.adf / LIBSRC.LHA / LIBSRC / stream_float.asm < prev    next >
Encoding:
Assembly Source File  |  1994-04-15  |  426 b   |  25 lines
  1.  
  2. *    Maxon C++:
  3. *    Library-Modul "stream_float"
  4. *    Jens Gelhar 08.09.91, 15.04.94
  5.  
  6.  
  7.     xdef    op__leftshift__ostream__Tf
  8.  
  9.     xref    op__leftshift__ostream__TPCc,_floattostr
  10.  
  11. op__leftshift__ostream__Tf:    ; Stack-Parameter: ostream*, float
  12.     lea    -80(a7),a7
  13.     clr.w    -(a7)
  14.     pea    2(a7)
  15.     move.l    6+80+4+4(a7),-(a7)
  16.     jsr    _floattostr
  17.     lea    10(a7),a7
  18.     move.l    d0,-(a7)
  19.     move.l    4+80+4(a7),-(a7)
  20.     jsr    op__leftshift__ostream__TPCc
  21.     lea    88(a7),a7
  22.     rts
  23.  
  24.     end
  25.