「Z80における定数10の除算は、商と余りのどちらを先に求めるべきか」記事へのコメント

後半の前半

[uratan (26577)]

０～９９の数値Ａの１０での余りは、Ａを８での商と余りの
二つにわけて、各々の１０での余りを加算すればいい
　Ａ　　　＝（Ａ／８）＊８　＋　（Ａ％８）
　Ａ％１０＝（（Ａ／８）＊８）％１０　＋　（Ａ％８）％１０
　　　　　　（この加算で１０を越えたらもう一度余りを…）

と

ＤＡＡでは（ざっくり）０～１５の連続数が０～９、１６～２１に
分断される、これを使って割る１０をうまいこと振り分けて・・・？

を
組み合わせて 余りを求めているのではないか？　までわかった、つもり。

で、

（Ａ／８）を足してはＤＡＡ、足してはＤＡＡで８回足し、
最後に（Ａ％８）を足してＤＡＡすれば、
Ａに二進化１０進で商と余りがペアで入る、
（５６→０ｘ５６になる）ような気がする、
けど極端に短くはなりませんでした。
　（商と余りの分割もクロック喰うし）

というところで勘弁してください。

p.s.
　INC A ... は二つ前の日記で触れてありましたね。

Re:後半の前半

[uratan (26577)]

p.s.
　足してはＤＡＡ足してはＤＡＡ…は一つ前の日記に書いてありましたね。
　（他の考察も）

　－＊－＊－

DAA は鬼門なんですよ…。

以下、私が今をさること25年ぐらい前に書いた
Z80シミュレータの DAA の部分です。（たぶん間違っている）

int ans, half_ans, dst;
u_char data;

case 0x27:
#ifdef DEBUG
        fprintf(stdout, "DAA ");
#endif /* DEBUG */
        data = 0x00;
        if(((reg.sing.A & 0xf) > 9) || (reg.flag.H==1)) {
                data = 0x06;
        }
        if((reg.sing.A > 0x90) || (reg.flag.C==1)) {
                data |= 0x60;
        }
        if(reg.flag.N==0) {
                half_ans = (reg.sing.A & 0x0f) + (data & 0x0f);
                reg.sing.A = ans = reg.sing.A + data;
        } else {
                half_ans = (reg.sing.A & 0x0f) - (data & 0x0f);
                reg.sing.A = ans = reg.sing.A - data;
        }
        reg.flag.H = half_ans >> 4;
        reg.flag.C |= ans >> 8; /* is it true ??? */
        reg.flag.S = reg.sing.A >> 7;
        reg.flag.Z = (reg.sing.A==0);
        reg.flag.P = parity(reg.sing.A);
        return(D_OK);

本や解説書には「二進化10進の補正をします」ぐらいしか書いてなくて、
想像と実機でちょろっと確認したぐらいで、書いたものです。
加算を一度しかやっていないので、0x89 + 0x11 → DAA が
0x00 にならないからたぶん間違っているんじゃないかなぁ…。