home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / unix / unixlib36d / src / sys / s / _math < prev    next >
Text File  |  1994-02-26  |  3KB  |  175 lines
  1. ;       /* _math.s (c) Copyright 1990 H.Rogers */
  2.  
  3.         GET     @.src.sys.s.asm_dec
  4.  
  5.         AREA    |C$$code|,CODE,READONLY
  6.  
  7.         EXPORT  acos
  8.  
  9.         NAME    acos
  10. acos
  11.         STMFD   sp!,{a1,a2}
  12.         LDFD    f0,[sp],#8
  13.         ACSD    f0,f0
  14.         MOVS    pc,lr
  15.  
  16.         EXPORT  asin
  17.  
  18.         NAME   asin
  19. asin
  20.         STMFD   sp!,{a1,a2}
  21.         LDFD    f0,[sp],#8
  22.         ASND    f0,f0
  23.         MOVS    pc,lr
  24.  
  25.         EXPORT  atan
  26.  
  27.         NAME   atan
  28. atan
  29.         STMFD   sp!,{a1,a2}
  30.         LDFD    f0,[sp],#8
  31.         ATND    f0,f0
  32.         MOVS    pc,lr
  33.  
  34.         EXPORT  atan2
  35.  
  36.         NAME   atan2
  37. atan2
  38.         STMFD   sp!,{a1,a2,a3,a4}
  39.         LDFD    f0,[sp],#8
  40.         LDFD    f1,[sp],#8
  41.         DVFD    f0,f1,f0
  42.         ATND    f0,f0
  43.         MOVS    pc,lr
  44.  
  45.         EXPORT  cos
  46.  
  47.         NAME   cos
  48. cos
  49.         STMFD   sp!,{a1,a2}
  50.         LDFD    f0,[sp],#8
  51.         COSD    f0,f0
  52.         MOVS    pc,lr
  53.  
  54.         EXPORT  sin
  55.  
  56.         NAME   sin
  57. sin
  58.         STMFD   sp!,{a1,a2}
  59.         LDFD    f0,[sp],#8
  60.         SIND    f0,f0
  61.         MOVS    pc,lr
  62.  
  63.         EXPORT  tan
  64.  
  65.         NAME   tan
  66. tan
  67.         STMFD   sp!,{a1,a2}
  68.         LDFD    f0,[sp],#8
  69.         TAND    f0,f0
  70.         MOVS    pc,lr
  71.  
  72.         EXPORT  exp
  73.  
  74.         NAME   exp
  75. exp
  76.         STMFD   sp!,{a1,a2}
  77.         LDFD    f0,[sp],#8
  78.         EXPD    f0,f0
  79.         MOVS    pc,lr
  80.  
  81.         EXPORT  log
  82.  
  83.         NAME   log
  84. log
  85.         STMFD   sp!,{a1,a2}
  86.         LDFD    f0,[sp],#8
  87.         LGND    f0,f0
  88.         MOVS    pc,lr
  89.  
  90.         EXPORT  log10
  91.  
  92.         NAME   log10
  93. log10
  94.         STMFD   sp!,{a1,a2}
  95.         LDFD    f0,[sp],#8
  96.         LOGD    f0,f0
  97.         MOVS    pc,lr
  98.  
  99.         EXPORT  modf
  100.  
  101.         NAME   modf
  102. modf
  103.         STMFD   sp!,{a1,a2}
  104.         LDFD    f0,[sp],#8
  105.         RNDD    f1,f0
  106.         STFD    f1,[a3,#0]
  107.         SUFD    f0,f0,f1
  108.         MOVS    pc,lr
  109.  
  110.         EXPORT  pow
  111.  
  112.         NAME   pow
  113. pow
  114.         STMFD   sp!,{a1,a2,a3,a4}
  115.         LDFD    f0,[sp],#8
  116.         LDFD    f1,[sp],#8
  117.         POWD    f0,f0,f1
  118.         MOVS    pc,lr
  119.  
  120.         EXPORT  sqrt
  121.  
  122.         NAME   sqrt
  123. sqrt
  124.         STMFD   sp!,{a1,a2}
  125.         LDFD    f0,[sp],#8
  126.         SQTD    f0,f0
  127.         MOVS    pc,lr
  128.  
  129.         EXPORT  ceil
  130.  
  131.         NAME   ceil
  132. ceil
  133.         STMFD   sp!,{a1,a2}
  134.         LDFD    f0,[sp],#8
  135.         FIXD    a1,f0
  136.         FLTD    f1,a1
  137.         CMFE    f1,f0
  138.         ADDLT   a1,a1,#1
  139.         FLTD    f0,a1
  140.         MOVS    pc,lr
  141.  
  142.         EXPORT  fabs
  143.  
  144.         NAME   fabs
  145. fabs
  146.         STMFD   sp!,{a1,a2}
  147.         LDFD    f0,[sp],#8
  148.         ABSD    f0,f0
  149.         MOVS    pc,lr
  150.  
  151.         EXPORT  floor
  152.  
  153.         NAME   floor
  154. floor
  155.         STMFD   sp!,{a1,a2}
  156.         LDFD    f0,[sp],#8
  157.         FIXD    a1,f0
  158.         FLTD    f1,a1
  159.         CMFE    f1,f0
  160.         SUBGT   a1,a1,#1
  161.         FLTD    f0,a1
  162.         MOVS    pc,lr
  163.  
  164.         EXPORT  fmod
  165.  
  166.         NAME   fmod
  167. fmod
  168.         STMFD   sp!,{a1,a2,a3,a4}
  169.         LDFD    f0,[sp],#8
  170.         LDFD    f1,[sp],#8
  171.         RMFD    f0,f0,f1
  172.         MOVS    pc,lr
  173.  
  174.         END
  175.