\ TIMING EXAMPLE USING TCFTICKS
\ TCFTICKS is a counter variable which is incremented once per IsoMax cycle.
\ Unless otherwise specified with CYCLES or PERIOD, the default rate is
\ 100 Hz.  TCFTICKS is an unsigned 16-bit value which rolls over from FFFF to 0.

DECIMAL 100 CONSTANT 1-SECOND           \ 100 counts of a 100 Hz clock

: WAIT-1-SECOND ( -- )   
    ISOMAX-START 
    TCFTICKS @     \ starting time
     BEGIN
         TCFTICKS @ OVER -              \ elapsed time since start
     1-SECOND > UNTIL
     DROP ;                             \ discard starting time