home *** CD-ROM | disk | FTP | other *** search
/ PC Media 2 / PC MEDIA CD02.iso / share / prog / realasm1 / ftmuli.asm < prev    next >
Encoding:
Assembly Source File  |  1993-07-18  |  554 b   |  23 lines
  1. .286
  2. ;================================================
  3. ; Returns real *= integer
  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. ftmuli        proc    near real:NPR10, integer:SWORD
  13.               local   t:REAL10
  14.  
  15.               invoke  itoft, addr t, integer
  16.               invoke  ftmul, real, addr t
  17.  
  18.               ret
  19. ftmuli        endp
  20.  
  21. cseg          ends
  22.               end
  23.