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