home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / PASCAL / TPMATH.ZIP / TRIG387.ASM < prev    next >
Assembly Source File  |  1989-03-27  |  560b  |  37 lines
  1.        .387
  2.        .model tpascal
  3.        ideal
  4.        %pagesize 59
  5.        Codeseg
  6.  
  7.  
  8.        Proc Cos FAR X: qword
  9.        Public Cos
  10.        fld     [qword ptr x]
  11.        fwait
  12.        fcos
  13.        ret
  14.        endp
  15.  
  16.  
  17.        Proc Sin FAR X: qword
  18.        Public Sin
  19.        fld     [qword ptr x]
  20.        fwait
  21.        fsin
  22.        ret
  23.        endp
  24.  
  25.  
  26.        Proc Tan FAR X: qword   ; This function is not complete!
  27.        Public Tan
  28.        fld     [qword ptr x]
  29.        fwait
  30.        fsincos
  31.        fdiv
  32.        ret
  33.        endp
  34.        end
  35.  
  36.  
  37.