read( R, $char, 1 ) or die "Failed to read 1 char from @{[SRC]}: $!\n";
vec($char, 7 , 1) = 0;  # map high-bit ascii to low-bit ascii