\ \\\\\\\\\\\\\\\\\\\\\ SENSOR FUNCTIONS \\\\\\\\\\\\\\\\\\\\\\\\
\ Requires RTXEB patches (rtxeb_patches.fs) loaded first
HEX                          \ All numerical values are in hexidecimal format
: TEST-SENSOR ( bit_select_value -- )
    CREATE
    ,                        \ Save the bit select value
  DOES> ( -- flag )
    @                        \ Load the bit select value
    19 G@                    \ Read ASIC bus port 0x19
    AND                      \ Isolate the appropriate bit value
    0<>                      \ Convert bit value to a flag value
;

20 TEST-SENSOR BATTERY-LOW?
10 TEST-SENSOR TURRET-ON-INDEX?
08 TEST-SENSOR BUMP-REAR-LEFT?
04 TEST-SENSOR BUMP-REAR-RIGHT?
02 TEST-SENSOR BUMP-FRONT-LEFT?
01 TEST-SENSOR BUMP-FRONT-RIGHT?
\ \\\\\\\\\\\\\\\\\\\\ END OF SENSOR FUNCTIONS \\\\\\\\\\\\\\\\\\\\