MYCPU80でCP/Mを!
超巨大基板の8080互換HCMOS・CPUでCP/Mを走らせてしまおうという、なんとも狂気なプロジェクトです!
[第69回]
●倍精度実数演算プログラムの組込み(2)
前にも書きましたように現在MYCPU80にZB3BASICを移植する作業を行なっております。
倍精度演算プログラムを除いては大体のところは出来上がったのですが、最後の倍精度演算プログラムのところで足踏みしております。
着手前から予想はしていたのですが、予想を上回る複雑さにこのところ作業が難航しています。
遅々としてはかどりません。
その間に急ぎの注文などがあったりしてなかなか続けて作業することもままなりません。
気にはしているのですけれどついHPの更新が後回しになってしまいます。
今回の記事もなんとか時間をみつけてもうこれで2日ほど書き足しながら時間切れでUPできずに来てしまいました。
ですので以下に書きました内容も2日ほど前の組込み状況についての説明になっています。
現在はもう少し進んでいるのですがそれについてはまた時間をみつけて整理しながら書くことにいたします。
最良近似式についても最後の詰めの部分の肝心の説明ができておりません。
そちらのほうも時間をみつけて書きたいと思っております。
昨日と今日と2日を費やしてやっと少し進展いたしました(上に書きましたように11月20日頃の状況です)。
まだ倍精度演算のほんの入口のところが出来ただけです。
倍精度変数に倍精度定数を代入する部分です。
たったそれだけのところが実に難物だったのです。
下は2日間の成果です。
>list 10 A#= 123.45# 20 B#= 123.45 30 PRINT A#,B# >run 123.45 123.4499969482422 |
>help TEXT 8004-8062 ヘンスウ DFEB-DFFF >dm 8000,806f 8000 4C F3 0B 3F 28 32 ED 4A-9A 32 4C F3 0B 3F 28 32 L..?(2.J.2L..?(2 8010 FC DF 41 00 00 0B 3F 28-0A 00 04 00 F4 DF 41 23 .゚A...?(.....゚A# 8020 00 0B 3F 28 0A 00 08 00-EC DF 42 23 00 0B 3F 28 ..?(.....゚B#..?( 8030 14 00 08 00 0A 00 0F F1-18 00 9A F9 33 33 33 33 ............3333 8040 33 73 7B 07 23 0D 12 14-00 0A F1 24 00 9A F8 33 3s{.#......$...3 8050 73 7B 07 0D 0D 1E 00 09-81 F1 18 00 2C F1 24 00 s{..........,.$. 8060 0D 0C 81 22 2A 2A 2A 22-0D 0A 2A 2A 22 0D 0A 0A ..."***"..**"... > |