( CTRLTB0 MAKE A PULSE TO INITIATE
(        0005 or 000D
( BASE + 7




( CTRL TB1 MEASURE LENGTH OF ECHO PULSE

( Count rising edges of primary source while secondary input high active
(       011 ( COUNT MODE
(          1100 ( PRIMARY COUNT SOURCE IP/16
(              01 ( SECONDARY COUNT Counter # 1 input
(                1 ( COUNT ONCE - REPEATEDLY
(                 1 ( COUNT LENGTH COUNT AND REINITIALIZE
(                  0 ( DIR COUNT UP
(                   0 ( COINIT NO FORCE BY OTHER CHANNELS
(                    000 ( OUPUT MODE, Active while counter is active

(       011 1100 01 1 1 0 0 000
(       0111 1000 1110 0000
(       78E0

( STATUS 00 TCF, TCFIE
(          00 TOF, TOFIE
(            00 IEF, IEFIE
(              0 IPS
(               0 INPUT
(                10 CAPTURE REGISTER OPERATION CAP ON FALLING EDGE
(                  0 MASTER
(                   0 EEOF
(                    0 VAL
(                     0 FORCE
(                      0 OPS
(                       0 OEN
(        0080
( BASE + F


( CMP1   VALUE
( BASE + 0

( CMP2   VALUE
( BASE + 1

( TMRA 0D00
( TMRB 0D20
( TMRC 0D40
( TMRD 0D60

 
HEX
: PLS
  D D47 ! ( TMRC0 HIGH
  0 D46 ! ( ZERO TMRC0 CNTR REG. AND WASTE 10uS
  5 D47 ! ( TMRB0 LOW
  0 D4D ! ( ZERO TMRB1 CNTR REG. AND WASTE 10uS
  0080 D4F ! (
  7880  D4E ! (
;

 EVERY C350 CYCLES SCHEDULE-RUNS PLS

: RANGE D4A @ 127 / . ."  in." ;

: Z DECIMAL BEGIN D EMIT RANGE ?TERMINAL UNTIL ;