home *** CD-ROM | disk | FTP | other *** search
/ Computer Select (Limited Edition) / Computer Select.iso / dobbs / v17n03 / ucrasm.exe / SOURCE.EXE / ETOAM.ASM < prev    next >
Encoding:
Assembly Source File  |  1991-10-12  |  474 b   |  30 lines
  1. StdGrp        group    stdlib,stddata
  2. stddata        segment    para public 'sldata'
  3. stddata        ends
  4. ;
  5. stdlib        segment    para public 'slcode'
  6.         assume    cs:stdgrp
  7. ;
  8.         extrn    sl_malloc:far, sl_etoa:far
  9. ;
  10. ;
  11. ;
  12. ; ETOAM-    Converts floating point accumulator to a string on heap.
  13. ;
  14.         public    sl_etoam
  15. sl_etoam    proc    far
  16.         push    cx
  17.         mov    cl, al
  18.         mov    ch, 0
  19.         inc    cx
  20.         call    sl_malloc
  21.         pop    cx
  22.         jc    BadEtoam
  23.         jmp    near ptr sl_etoa
  24. BadEtoam:    ret
  25. sl_etoam    endp
  26. ;
  27. ;
  28. ;
  29. stdlib        ends
  30.         end