\def\save#1{\gdef\tmp{#1}}
\def\chr#1{\begingroup\uccode65=#1\relax
\uppercase{\save A}\endgroup}