home *** CD-ROM | disk | FTP | other *** search
/ PC Media 2 / PC MEDIA CD02.iso / share / prog / realasm1 / ftaddi.asm < prev    next >
Encoding:
Assembly Source File  |  1993-07-18  |  696 b   |  28 lines
  1. .286
  2. ;=======================================
  3. ; Floating point without a coprocessor
  4. ;
  5. ;---------------------------------------
  6. cseg          segment word public 'code'
  7.               assume  cs:cseg,ss:cseg
  8.               assume  ds:cseg,es:cseg
  9.  
  10.               include math.inc
  11.  
  12. ;=======================================
  13. ; invoke ftaddi, real, integer
  14. ;
  15. ; Returns real += integer
  16. ;---------------------------------------
  17. ftaddi        proc    near  real:NPR10, integer:SWORD
  18.               local   t:REAL10
  19.  
  20.               invoke  itoft, addr t, integer
  21.               invoke  ftadd, real, addr t
  22.  
  23.               ret
  24. ftaddi        endp
  25.  
  26. cseg          ends
  27.               end
  28.