otta777さんのものには劣りますが、自分なりに命令・関数化してみました。CPUTCHRで書き込んで、CHKCOL()で参照できます。公開キーは[DANNA3Q4]です