( ==== Tools ==== )
: T?SCI0 0F02 @ 8000 AND 8000 = ; EEWORD
: T?SCI1 0F12 @ 8000 AND 8000 = ; EEWORD
: TE?SCI0 0F02 @ 4000 AND 4000 = ; EEWORD
: TE?SCI1 0F12 @ 4000 AND 4000 = ; EEWORD
: R?SCI0 0F02 @ DUP 0F02 ! 2000 AND 2000 = ; EEWORD
: R?SCI1 0F12 @ DUP 0F12 ! 2000 AND 2000 = ; EEWORD
: RI?SCI0 0F02 @ DUP 0F02 ! 1000 AND 1000 = ; EEWORD
: RI?SCI1 0F12 @ DUP 0F12 ! 1000 AND 1000 = ; EEWORD
: SCI0INIT 9600BAUD  0F00 ! C 0F01 ! ; EEWORD
: SCI1INIT 9600BAUD  0F10 ! C 0F11 ! ; EEWORD
: EMITSCI0 BEGIN T?SCI0 UNTIL 0F03 ! ; EEWORD
: EMITSCI1 BEGIN T?SCI1 UNTIL 0F13 ! ; EEWORD
: KEY0 BEGIN R?SCI0 UNTIL 0F13 @ ; EEWORD
: KEY1 BEGIN R?SCI1 UNTIL 0F13 @ ; EEWORD

: 485XMTV1 TD1 ON ; EEWORD  ( enable RS-485 transmitter IsoPod_V1 
: 485XMTV2 PD3 ON ; EEWORD  ( enable RS-485 transmitter IsoPod_V2
: 485RCVV1 TD1 OFF ; EEWORD ( enable RS-485 receiver IsoPod_V1
: 485RCVV2 PD3 OFF ; EEWORD ( enable RS-485 receiver IsoPod_V2