\ TIMER2.TXT - WORD RUN_TIME TESTER

0 VALUE WORD_UNDER_TEST

\ REMEMBER - THE WORD YOU ARE TESTING MUST BE STACK NEUTRAL
\            IT CANNOT LEAVE ANYTHING ON THE STACK OR
\            CONSUME ANYTHING

' LCD_REFRESH TO WORD_UNDER_TEST

RCX_INIT
HEX

: WORD_TIME ( n -- )
  0 0 TIMER_SET
  0 DO WORD_UNDER_TEST EXECUTE LOOP
  0 TIMER_GET

  3002 SWAP 301F LCD_NUMBER LCD_REFRESH ;

DECIMAL
1000 WORD_TIME