Update of /cvsroot/win32forth/win32forth-stc/demos
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv2950/demos
Added Files:
bench.f
Log Message:
win32forth-stc base comit
--- NEW FILE: bench.f ---
\ IN-SYSTEM
create TIME-BUF
here
0 w, \ +0 year
0 w, \ +2 month
0 w, \ +4 day of week
0 w, \ +6 day of month
0 w, \ +8 hour
0 w, \ +10 minute
0 w, \ +12 second
0 w, \ +14 milliseconds
here swap - constant TIME-LEN
create date$ 32 allot
create time$ 32 allot
: get-local-time ( -- ) \ get the local computer date and time
[...1054 lines suppressed...]
cr cr
.ann ." This system's application performance" .specifics CR
.header
[$
$SIEVE$ $FIB$ $SORT$ $RAND$ $CODE77$ $DHRY$
\ [ ANSSYSTEM ] [IF] $DHRY$ [THEN]
CR ." Total:" 1 $]
;
decimal
cr cr .( Benchmark code size = ) code-here start-here - . .( bytes.) cr
BENCHMARK
CR CR .( To run the benchmark program again, type BENCHMARK )
|
