２０１４．１１．１７

前へ
次へ
ホームページトップへ戻る

ＭＹＣＰＵ８０でＣＰ／Ｍを！
超巨大基板の８０８０互換ＨＣＭＯＳ・ＣＰＵでＣＰ／Ｍを走らせてしまおうという、なんとも狂気なプロジェクトです！


［第６７回］


●倍精度実数演算プログラムの組込み

また間が空いてしまいました。
前回も書きましたように、少し前からＭＹＣＰＵ８０にＺＢ３ＢＡＳＩＣを移植する作業に取り組んでいます。
この数日間集中して取り組みました結果、あとはほとんど倍精度実数演算を残すのみというところまで出来ました。
しかしその倍精度実数演算が難物でこの３日ほど苦戦しております。
やっとのことで倍精度実数の表示機能のみ組み込むことができました。

下は今朝になってからやっとまともに表示されるようになったばかりの倍精度の円周率を表示させているところのログです。

logfile nd80zlog\11171028.txt open
zb3dos3m 2014.3.31 by Chunichidenko

MYCPU80に接続しました

*** nd80z3 basic ****
>10p.pi#
>.
    10 PRINT PI#
>r.
 3.141592653589793

>/close
logfile closed at Mon Nov 17 11:04:38 2014

そんなものはどうせ組込み済みの定数をただ表示させているだけではないか。
そんなに大層なものでもあるまい。
とお思いかもしれませんが、どうしてどうしてそんな簡単なものではありませぬ。
確かに倍精度の円周率は定数として組み込んではおりますが（それは単精度の円周率も同じですが）、表示に適するような形ではなくて、倍精度実数演算にすぐ使える形で組み込んでいます。
ですのでそれを表示するにはかなり複雑な倍精度実数の表示プログラムを必要とします。
ちなみにＺＢ３ＢＡＳＩＣに組み込まれております倍精度の円周率は下のような形で組み込まれています。

              ;;;PAI=3.141592653589793
779D 5F       FPAI:DB 5F
779E B4       DB B4
779F 10       DB 10
77A0 51       DB 51
77A1 ED       DB ED
77A2 87       DB 87
77A3 64       DB 64
77A4 02       DB 02
77A5 00       DB 00

；；；ＰＡＩ＝．．．
のところはコメントですからプログラムでは参照されません。
プログラムで参照されるのはＦＰＡＩ：以下の
００　０２　６４　８７　ＥＤ　５１　１０　Ｂ４　５Ｆ
です。
プログラムの都合で上記の逆順で組み込まれていますが、これが１６進数で組み込まれた倍精度の円周率です。
００は符号部で０２は指数部です。
その次からの７バイトが仮数部です。
この１６進数は浮動小数点数になっています。
これを十進数に変換して、それからＡＳＣＩＩ文字に変換してやっと表示することができるようになります。
なかなかハンパなプログラムではありません。

ちなみに上記の数が円周率であることは以下のようにして確認することができます。

Ｗｉｎｄｏｗｓの電卓を開きます。
以下はＷｉｎｄｏｗｓ７の場合です。



最初に念のため［ＭＣ］（メモリクリア）を押してください。

［表示］をクリックしてメニューを開き、［関数電卓］［プログラマ］を選択します（２０１４．１１．２２　間違いに気が付きましたので訂正いたしました）。



関数電卓プログラマ電卓になりました。



左の枠の中で１６進数を選択します。
さきほどの円周率の仮数部をそのまま入力します。

１０進数に切り替えます。



ここで［Ｍ＋］を押してメモリに記憶します。
Ｗｉｎｄｏｗｓ７の電卓はこうしないとそれからあとの演算がおこなえません。
Ｗｉｎｄｏｗｓ９８はこのまま実数計算に進むことができました。

そのあと［普通の電卓］に切り換えます。



［ＭＲ］（メモリリコール）を押すと演算可能な実数として表示されます。



／２５６／２５６／２５６／２５６／２５６／２５６／１２８＊４＝
と続けて入力します。
最後の＊４は指数部の２２の処理です。

十進数の円周率になりました。



ＭＹＣＰＵ８０でＣＰ／Ｍを！［第６７回］
２０１４．１１．１７ｕｐｌｏａｄ
２０１４．１１．２２語句訂正

前へ
次へ
ホームページトップへ戻る