HEX
( Use 0C00 for '803,'805 1200 for '807s)
0C00 CONSTANT SYS_BASE   EEWORD 

( TimerC3 158 offset for newer IsoMax
( TimerD3 178 for older 
SYS_BASE 158 + CONSTANT TMRC3_BASE  EEWORD 

TMRC3_BASE     CONSTANT TMR_CMP1    EEWORD
TMRC3_BASE 5 + CONSTANT TMR_CNTR    EEWORD

( Need a Time Offset, to adjust time before and after execution of test word
DECIMAL 28 CONSTANT T0  EEWORD

: T' ( i*x -- j*x n )   ' CFA
    TMR_CNTR @ >R  EXECUTE  TMR_CNTR @ R> ( end start )
    2DUP U< IF - TMR_CMP1 @ + ELSE - THEN   T0 - 
;  EEWORD

( Use on DUP
( Put initial value on stack to be dupped
( follow with T'
( Print result
( Drop original and dupped numbers.
( 1 T' DUP . DROP DROP

( Some other actual examples 
( 1 2 T' + . DROP 8  OK
( 4 2 T' / . DROP 52  OK
( : X 4 2 / ;  OK
( T' X . DROP 88  OK