\ Here is a bit of code to read an ADXL202 accelerometer on a timer pin. 
\ The use is to allow you to check if a pulse has been measured without waiting for it 


MACHINE GETTILT2 EEWORD ( CHECK ACCELEROMETER AS OFTEN AS POSIBLE
ON-MACHINE GETTILT2 
APPEND-STATE CHECKHIGH EEWORD
APPEND-STATE CHECKLOW EEWORD

IN-STATE
CHECKHIGH
CONDITION
TD1 CHK-PWM-IN DUP THIGH !
CAUSES
TD1 ACTIVE-LOW
TD1 SET-PWM-IN
THEN-STATE
CHECKLOW 
TO-HAPPEN IN-EE

IN-STATE
CHECKLOW
CONDITION
TD1 CHK-PWM-IN DUP TLOW !
CAUSES
THIGH @ TLOW @ + 1000 TLOW @ */ TRES ! 
TD1 ACTIVE-HIGH
TD1 SET-PWM-IN
THEN-STATE
CHECKHIGH 
TO-HAPPEN IN-EE

: ACCELINIT

TD1 ACTIVE-HIGH
TD1 SET-PWM-IN
CHECKHIGH SET-STATE
; EEWORD