\ TIMER1.TXT - TESTING THE HI_RES TIMERS

RCX_INIT
HEX

: TEST_timer ( n idx -- )
  SWAP OVER timer_SET    ( idx -- )
  BEGIN
    DUP timer_GET        ( idx n1 -- )
    3002 OVER 301F LCD_NUMBER LCD_REFRESH
    0=                   ( idx n1 -- ) 
  UNTIL DROP ;           ( -- )

: DELAY ( ticks )
  0 timer_SET
  BEGIN 0 timer_GET 0= UNTIL ;

: TEST_DELAY ( ticks )
  7 1 0 MOTOR_SET
  DELAY
  7 3 0 MOTOR_SET ;

DECIMAL
1000 0 TEST_timer
