home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
forth
/
compiler
/
fpc
/
source
/
timeit.seq
< prev
next >
Wrap
Text File
|
1991-03-14
|
1KB
|
40 lines
\\ TIMEIT.SEQ A DOS command performance measurer by Tom Zimmer
This simple little program can be used to measure the amount of time
it takes for various DOS operations or commands to execute. Use TIMEIT
as follows:
C:>TIMEIT <DOS_command_line> <enter>
You can time programs, batch files, or anything that executes and
returns to DOS. The execution time is measured in Hours, Minutes,
Seconds, and hundreths. The program load time is also included.
TIMEIT compiles to around 3.5k, and uses only about 4k of your DOS
program memory, so its no memory hog.
Compile TIMEIT with the following command line:
TCOM TIMEIT /OPT /NOINIT <enter>
{
: main ( -- )
DECIMAL \ always select decimal
CAPS ON \ ignore cAsE
?DS: SSEG ! \ init search segment
DOSIO_INIT \ init EMIT, TYPE & SPACES
PAD 100 + SET_MEMORY \ minimize memory usage
DOS_TO_TIB \ move command tail to TIB
COMSPEC_INIT \ init command specification
.time
time-reset
0 word dup c@
if $sys drop
else drop
then
cr .time
.elapsed ;
}