home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 420.lha / kFloat_v1.0 / TimeFP < prev   
Encoding:
Text File  |  1990-09-30  |  1.8 KB  |  71 lines
  1. Include?  fp-status?  ju:float.ffp
  2. Include?  logto       ju:logto
  3.  
  4. Anew task-TimeFP
  5.  
  6.  
  7. fpinit
  8.  
  9. : bwf2   10000 0  do  1.111  7.777  2drop      loop ;
  10.  
  11. : bf+    10000 0  do  1.111  7.777  f+ drop    loop ;
  12. : bf-    10000 0  do  1.111  7.777  f- drop    loop ;
  13. : bf*    10000 0  do  1.111  7.777  f* drop    loop ;
  14. : bf/    10000 0  do  1.111  7.777  f/ drop    loop ;
  15. : bfloat 10000 0  do  1.111  123  float 2drop  loop ;
  16. : bint   10000 0  do  1.111  7.777  int 2drop  loop ;
  17. : bfix   10000 0  do  1.111  7.777  fix 2drop  loop ;
  18. : bf2*   10000 0  do  1.111  7.777  f2* 2drop  loop ;
  19. : bf2/   10000 0  do  1.111  7.777  f2/ 2drop  loop ;
  20. : besin  10000 0  do  1.111  1.111  fsin 2drop loop ;
  21.  
  22. bench.with bwf2
  23.  
  24. : tfdelay 50000 0 do loop ;
  25.  
  26. logto ram:FPTimes
  27. tfdelay
  28.  
  29. cr ." f+"    bench bf+
  30. cr ." f-"    bench bf-
  31. cr ." f*"    bench bf*
  32. cr ." f/"    bench bf/
  33. cr ." float" bench bfloat
  34. cr ." int"   bench bint
  35. cr ." fix"   bench bfix
  36. cr ." f2*"   bench bf2*
  37. cr ." f2/"   bench bf2/
  38.  
  39. logstop
  40. Include kFloat
  41.  
  42. FP-Status? OFF
  43.  
  44. : bf+    10000 0  do  1.111  7.777  f+ drop    loop ;
  45. : bf-    10000 0  do  1.111  7.777  f- drop    loop ;
  46. : bf*    10000 0  do  1.111  7.777  f* drop    loop ;
  47. : bf/    10000 0  do  1.111  7.777  f/ drop    loop ;
  48. : bfloat 10000 0  do  1.111  123  float 2drop  loop ;
  49. : bint   10000 0  do  1.111  7.777  int 2drop  loop ;
  50. : bfix   10000 0  do  1.111  7.777  fix 2drop  loop ;
  51. : bf2*   10000 0  do  1.111  7.777  f2* 2drop  loop ;
  52. : bf2/   10000 0  do  1.111  7.777  f2/ 2drop  loop ;
  53. : besin  10000 0  do  1.111  1.111  fsin 2drop loop ;
  54.  
  55. logstart
  56. tfdelay
  57.  
  58. cr ." f+"    bench bf+
  59. cr ." f-"    bench bf-
  60. cr ." f*"    bench bf*
  61. cr ." f/"    bench bf/
  62. cr ." float" bench bfloat
  63. cr ." int"   bench bint
  64. cr ." fix"   bench bfix
  65. cr ." f2*"   bench bf2*
  66. cr ." f2/"   bench bf2/
  67.  
  68. logend
  69.  
  70. dos copy ram:FPTimes timesout
  71.