%#!uptex, euptex
\ifnum\jis"2121="3000 \else \expandafter\end \fi

\kcatcode"D8=16\relax
\font in jis\x=jis \x
\font\y=cmtt10 \y

\newlinechar`^^J

\shipout\vbox{}
\def\TEST{\message{^^J\string\tracinglostchars=\the\tracinglostchars}\shipout\vbox{ó \char"A1}}

\TEST
\tracinglostchars0 \TEST
\tracinglostchars1 \TEST
\tracinglostchars2 \TEST
\tracinglostchars3 \TEST

\tracingonline1
\tracinglostchars0 \TEST
\tracinglostchars1 \TEST
\tracinglostchars2 \TEST
\tracinglostchars3 \TEST

\end