http://baze.au.com/misc/z80bits.html#2.1
Не знает ли кто-нибудь похожую процедуру, но попроще?
Нужно деление на 3 с получением остатка.