# [C (gcc)], 84 bytes

Assumes all caps.

<!-- language-all: lang-c -->

    f(s,r,c)char*s;{for(r=0;*s;r+=("6.7E85$#,!7%$"[c/2]-11>>c%2*3&7)-3)c=*s++-65;s=r>0;}

[Try it online!][TIO-jt4lq87g]

[C (gcc)]: https://gcc.gnu.org/
[TIO-jt4lq87g]: https://tio.run/##NY7NCoJAGEXXzVNMk8aMjuUPajTopoQgwUXLaiGfaC7SmJE24rObBu7O5VwuF6wKYBxLqrjkwOCVS0OJvmwllZEtJpZmREmwC5ODr234OtQ1coe9@7QcJ45Bdw1vGzLLYxAZyjStwBcqkrEthvHb1gWuKLSN6vC8jA3FUI9WH1k3XUmJXuAj1tWjIRxPDxjHigk0IDRp/M7rhv7rFSU3MokZrgtckjTNlnDKzsnMw/gD "C (gcc) – Try It Online"