home *** CD-ROM | disk | FTP | other *** search
/ PC Media 2 / PC MEDIA CD02.iso / share / prog / realasm1 / ftsub.asm < prev    next >
Encoding:
Assembly Source File  |  1993-07-17  |  667 b   |  24 lines
  1. .286
  2. ;================================================
  3. ; Subtracts REAL10's dst, src
  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. ftsub         proc    near  dst:NPR10, src:NPR10
  13.               local   t:REAL10
  14.  
  15.               invoke  movx, addr t, src, 5     ; copy src to t
  16.               invoke  ftsign, addr t           ; change sign of t...
  17.               invoke  ftadd, dst, addr t       ; ...and add to dst
  18.  
  19.               ret
  20. ftsub         endp
  21.  
  22. cseg          ends
  23.               end
  24.