Код:
;in A - number
;out A - number mod 3
  ld c,#c0
loop:
  sub c
  jz exit
  jnc,nxt
  add a,c
nxt:
  rr c
  jnc,loop
exit:
но надо проверить- могу и наглючить