home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
420.lha
/
kFloat_v1.0
/
TimeFP
< prev
Wrap
Text File
|
1990-09-30
|
2KB
|
71 lines
Include? fp-status? ju:float.ffp
Include? logto ju:logto
Anew task-TimeFP
fpinit
: bwf2 10000 0 do 1.111 7.777 2drop loop ;
: bf+ 10000 0 do 1.111 7.777 f+ drop loop ;
: bf- 10000 0 do 1.111 7.777 f- drop loop ;
: bf* 10000 0 do 1.111 7.777 f* drop loop ;
: bf/ 10000 0 do 1.111 7.777 f/ drop loop ;
: bfloat 10000 0 do 1.111 123 float 2drop loop ;
: bint 10000 0 do 1.111 7.777 int 2drop loop ;
: bfix 10000 0 do 1.111 7.777 fix 2drop loop ;
: bf2* 10000 0 do 1.111 7.777 f2* 2drop loop ;
: bf2/ 10000 0 do 1.111 7.777 f2/ 2drop loop ;
: besin 10000 0 do 1.111 1.111 fsin 2drop loop ;
bench.with bwf2
: tfdelay 50000 0 do loop ;
logto ram:FPTimes
tfdelay
cr ." f+" bench bf+
cr ." f-" bench bf-
cr ." f*" bench bf*
cr ." f/" bench bf/
cr ." float" bench bfloat
cr ." int" bench bint
cr ." fix" bench bfix
cr ." f2*" bench bf2*
cr ." f2/" bench bf2/
logstop
Include kFloat
FP-Status? OFF
: bf+ 10000 0 do 1.111 7.777 f+ drop loop ;
: bf- 10000 0 do 1.111 7.777 f- drop loop ;
: bf* 10000 0 do 1.111 7.777 f* drop loop ;
: bf/ 10000 0 do 1.111 7.777 f/ drop loop ;
: bfloat 10000 0 do 1.111 123 float 2drop loop ;
: bint 10000 0 do 1.111 7.777 int 2drop loop ;
: bfix 10000 0 do 1.111 7.777 fix 2drop loop ;
: bf2* 10000 0 do 1.111 7.777 f2* 2drop loop ;
: bf2/ 10000 0 do 1.111 7.777 f2/ 2drop loop ;
: besin 10000 0 do 1.111 1.111 fsin 2drop loop ;
logstart
tfdelay
cr ." f+" bench bf+
cr ." f-" bench bf-
cr ." f*" bench bf*
cr ." f/" bench bf/
cr ." float" bench bfloat
cr ." int" bench bint
cr ." fix" bench bfix
cr ." f2*" bench bf2*
cr ." f2/" bench bf2/
logend
dos copy ram:FPTimes timesout