標準ＴＴＬだけ（！）でCPUをつくろう！（組立てキットです！）
(ホントは７４ＨＣ、ＣＭＯＳなんだけど…）
［第５４９回］
●ＳＩＮ、ＣＯＳ、ＴＡＮ（倍精度）
前回はＺ８０ＢＡＳＩＣの三角関数の機能を紹介しました。
その前には、ＳＱＲ（平方根）関数を倍精度演算でもご紹介いたしましたので、すると三角関数はどうなの？
という疑問を持たれたかもしれません。
ええ。
三角関数も倍精度で計算させることができるのです。
そこで、今回は倍精度の三角関数の計算についてご紹介申し上げてまいりますけれど、せっかくの機会ですので、前回の単精度実数型の三角関数のサンプルプログラムを倍精度に直しながら、Ｚ８０ＢＡＳＩＣのいろいろな編集機能についてもあわせてご紹介してまいりたいと思います。
実際の作業の過程をログファイルでお見せします。
logfile nd80zlog\07110749.txt open
ＮＤ８０ＺⅢに接続しました
0001 0000 - z1000 00C3 - *** nd80z3 basic ****
>h.
TEXT 8004-8198
ﾍﾝｽｳ DFFB-DFFF
>.
5 ON ERROR GOTO *ERR
10 PRINT "rad","sin","cos","tan"
20 A=0:A$="0":GOSUB *SAN
30 A=PI/6:A$="pai/6":GOSUB *SAN
40 A=PI/4:A$="pai/4":GOSUB *SAN
50 A=PI/3:A$="pai/3":GOSUB *SAN
60 A=PI/2:A$="pai/2":GOSUB *SAN
70 A=PI:A$="pai":GOSUB *SAN
80 A=PI*1.5:A$="1.5pai":GOSUB *SAN
90 A=PI*2:A$="2pai":GOSUB *SAN
100 STOP
110 *SAN
120 PRINT A$,SIN(A),COS(A),TAN(A)
130 RETURN
190 *ERR
200 PRINT "***"
210 RESUME NEXT
ＮＤ８０ＺⅢはメモリ（ＲＡＭ）をボタン電池でバックアップしていますから、
電源を切ってもそれまでに入力したプログラムやデータは消えないで保持されています。
ＢＡＳＩＣのプログラムは、ＢＡＳＩＣの起動時には見かけ上はクリアされたようになっていますがＨＥＬＰコマンドで復活させることができます。
でも、今回はよく見ますと、ｈｅｌｐではなくて、ｈ．と入力しています。
●コマンド、命令の省略形
そうなのです。
Ｚ８０ＢＡＳＩＣは、コマンドやＢＡＳＩＣの命令に省略形が使えるのです。
省略形は最後に ．（ピリオド）をつけて使います。
ｈ．はｈｅｌｐと入力したのと同じ結果を得ることができます。
その下では、なんと ． だけを入力しています。
ｌｉｓｔコマンドはコマンドテーブルの先頭に置いてあるため、綴りを全て省略した場合、ｌｉｓｔコマンドが選択されます。
●ＳＬコマンドとＸＬコマンド
ＳＬはｓｅａｒｃｈ ｌｅｔｔｅｒ、つまり文字列の検索コマンドです。
ＸＬはｅｘｃｈａｎｇｅ ｌｅｔｔｅｒ、文字列の置き換えコマンドです。
こういう機能が使えると、プログラムの変数を一括して置き換えたりするときになかなか便利です。
今回は実数型の計算を倍精度実数型に変更しますから、実数型変数のＡを倍精度実数型変数のＡ＃に置き換えます。
このときに、ただＡと指定すると、Ａを含む文字列のすべてが対象になってしまいますから、工夫が必要です。
それからいきなりＸＬコマンドで不用意に置き換えてしまうと、置き換えてはならないところまで置き換えてしまって、めちゃくちゃになってしまう、ということにもなりかねません。
まずは慎重を期して、ＳＬコマンドで探りを入れてみます。
ただのＡではなくて、Ａ＝でサーチしてみました。
>sl a=
20 A=0:A$="0":GOSUB *SAN
30 A=PI/6:A$="pai/6":GOSUB *SAN
40 A=PI/4:A$="pai/4":GOSUB *SAN
50 A=PI/3:A$="pai/3":GOSUB *SAN
60 A=PI/2:A$="pai/2":GOSUB *SAN
70 A=PI:A$="pai":GOSUB *SAN
80 A=PI*1.5:A$="1.5pai":GOSUB *SAN
90 A=PI*2:A$="2pai":GOSUB *SAN
うまい具合に検出してくれたようです。
それではいよいよ本番です。
ＸＬコマンドで、Ａ＝をＡ＃＝に置き換えます。
>xl a=,a#=
20 A=0:A$="0":GOSUB *SAN
30 A=PI/6:A$="pai/6":GOSUB *SAN
40 A=PI/4:A$="pai/4":GOSUB *SAN
50 A=PI/3:A$="pai/3":GOSUB *SAN
60 A=PI/2:A$="pai/2":GOSUB *SAN
70 A=PI:A$="pai":GOSUB *SAN
80 A=PI*1.5:A$="1.5pai":GOSUB *SAN
90 A=PI*2:A$="2pai":GOSUB *SAN
表示されたリストは置き換える前のものなので、これで本当に置き換えられたのかどうかは、わからないのですけれど、リスト表示された行は置き換えられたことを示していますから、多分大丈夫です。
あとでＬＩＳＴコマンドで確認してみることにしましょう。
置き換えが必要なところはほかにもあります。
そうです。
肝心の三角関数の（ ）の中もＡからＡ＃にしなければ、何にもなりません。
ここもまずＳＬコマンドで確認してみます。
今度は、Ａ）でサーチしてみました。
>sl a) 120 PRINT A$,SIN(A),COS(A),TAN(A)
対象になるのは、この１行だけのようです。
それでは、ＸＬコマンドで置き換えてみます。
Ａ）をＡ＃）に置き換えます。
>xl a),a#) 120 PRINT A$,SIN(A),COS(A),TAN(A) 120 PRINT A$,SIN(A),COS(A),TAN(A) 120 PRINT A$,SIN(A),COS(A),TAN(A)
ＳＬコマンドでは１行表示されただけでしたが、ＸＬコマンドでは同じ行が３回表示されました。
ＸＬコマンドは置き換えを行うごとに、その行を表示します。
行番号１２０には置き換えの必要なところが３箇所ありますから、それで３回表示がおこなわれたのです。
どのように置き換えられたか、ＬＩＳＴコマンドで表示してみましょう。
>list
5 ON ERROR GOTO *ERR
10 PRINT "rad","sin","cos","tan"
20 A#=0:A$="0":GOSUB *SAN
30 A#=PI/6:A$="pai/6":GOSUB *SAN
40 A#=PI/4:A$="pai/4":GOSUB *SAN
50 A#=PI/3:A$="pai/3":GOSUB *SAN
60 A#=PI/2:A$="pai/2":GOSUB *SAN
70 A#=PI:A$="pai":GOSUB *SAN
80 A#=PI*1.5:A$="1.5pai":GOSUB *SAN
90 A#=PI*2:A$="2pai":GOSUB *SAN
100 STOP
110 *SAN
120 PRINT A$,SIN(A#),COS(A#),TAN(A#)
130 RETURN
190 *ERR
200 PRINT "***"
210 RESUME NEXT
どうやらうまく置き換えが行われたようです。
ところで。
Ｚ８０ＢＡＳＩＣでは、プログラムはもとのテキストイメージのままではなくて、コマンドや変数名などを中間コードに置き換えてメモリに格納します、という説明を、以前にいたしました。
すると、いったいＳＬやＸＬで文字列をどのように検索したり、置き換えたりしているのか、疑問になりませんでしょうか？
実は、ＳＬコマンドやＸＬコマンドでは、ＢＡＳＩＣの１行ごとに、中間コードを一旦もとのテキストイメージに復元しながら検索を行っているのです。
簡単な文字列比較などではありません。
裏ではなかなかに複雑なプログラムが実行されているのです。
では実行してみましょう。
>run rad sin cos tan 0 0 1 0 *** pai/6 0 -1 0 *** pai/4 0 -1 0 *** pai/3 0 -1 0 *** pai/2 0 -1 0 *** pai 0 -1 0 *** 1.5pai 0 -1 0 *** 2pai 0 -1 0 break in 100
あれ？
なんだか様子がおかしいです。
よく見ると、＊＊＊が表示されています。
ＯＮ ＥＲＲＯＲ ＧＯＴＯ文が実行されているようです。
でも、このままでは、何のエラーなのかわかりません。
ＯＮ ＥＲＲＯＲ ＧＯＴＯ文をコメント文にしておいてもう一度実行してみましょう。
［注記］行の先頭に ’ をつけると、その行はコメント行になって、実行には関係なくなります。
>list
5 ON ERROR GOTO *ERR
10 PRINT "rad","sin","cos","tan"
20 A#=0:A$="0":GOSUB *SAN
30 A#=PI/6:A$="pai/6":GOSUB *SAN
40 A#=PI/4:A$="pai/4":GOSUB *SAN
50 A#=PI/3:A$="pai/3":GOSUB *SAN
60 A#=PI/2:A$="pai/2":GOSUB *SAN
70 A#=PI:A$="pai":GOSUB *SAN
80 A#=PI*1.5:A$="1.5pai":GOSUB *SAN
90 A#=PI*2:A$="2pai":GOSUB *SAN
100 STOP
110 *SAN
120 PRINT A$,SIN(A#),COS(A#),TAN(A#)
130 RETURN
190 *ERR
200 PRINT "***"
210 RESUME NEXT
> 5'ON ERROR GOTO *ERR
［１０．７．１２注記］
このようにログで見ていますと、行番号５の文をあらためて入力しているように見えてしまいますが、実際に行っている作業では、スクリーンエディタを使って上のｌｉｓｔコマンドで表示された行番号５の位置までカーソルを移動して、そこで ’ だけを入力して、その入力を確定するために［Ｅｎｔｅｒ］を入力しています。
スクリーンエディタは入力したキーの通りのデータを渡すのではなくて、［Ｅｎｔｅｒ］を入力したときに、その行に表示されている通りのデータを渡すように作られています。
つまり画面に表示されている文字データは全て「活きて」いて、いつでも［Ｅｎｔｅｒ］を入力すれば、そのときカーソルが置かれている行の表示データが、「そのときキーから入力されたデータ」になるのです（スクリーンエディタについては［第５３８回］をご参照ください）。
ですから、すでに画面に表示されている行番号５のところにカーソルを移動して、そこで ’ だけを入力しても、そのあとその行位置で［Ｅｎｔｅｒ］キーを押すと、このログにありますように、 ’ が追加された行番号５の文全体がキーボードから入力されたのと同じ結果になるのです。
このような機能は、今日ではｎｏｔｐａｄやＷｏｒｄでごく当たり前のように使っていますから、
これがスクリーンエディタです。どうです。すごいでしょう。
などと言いましても、ふうん。それが、どうしたの？
で終わってしまいそうですけれど、実際に普通のＤＯＳプロンプト画面で、ちょっとキー入力操作をして、それと比べていただければ、その違いをわかっていただけることと思います。
そのように言いますからには、このスクリーンエディタもＷｉｎｄｏｗｓに備わっている機能などではなくて、私が自分で作ったプログラムです。
ええ。
ＷｉｎＡＰＩなど全く使っておりませんです。
ごく普通のＣ＋＋の入出力関数、ｇｅｔｃｈ（）とかｐｒｉｎｔｆ（）を使って、そのような動作をさせているのです。
私はＣ＋＋の達人などではなくて、もうごくごく初心者でありますから、そんなややこしい特殊な関数とかテクニックとかは全く使っておりません（＊）。
皆様もひとつ挑戦してみられたら、いかがでしょうか？
（＊追記の追記です）
実はこのスクリーンエディタは、その昔、オリジナルのＺ８０ＣＰＵマシーン（もちろんＢＡＳＩＣです）で動作していたものを、ＤＯＳプロンプトで動作するようにＣ＋＋で書き直したものなのです。
つまり、スクリーンエディタの動作は、もともとＺ８０のマシン語レベルで記述可能なものだったのです。
（追記の追記の追記です）
ああ。
そうでした。
このスクリーンエディタは、当社のＺＢＫ開発セットに附属しておりますものをもとにして、今回ＮＤ８０ＺⅢ用に書き直したものでありますが、そもそも現在のＺＢＫ開発セットをＷｉｎｄｏｗｓＸＰに対応するためにＵＳＢバージョンとする以前は、Ｗｉｎｄｏｗｓ９５、Ｗｉｎｄｏｗｓ９８で、パラレルポート（プリンタポート）接続で使っておりましたものがもとになっております。
そのパラレルポートバージョンのスクリーンエディタは８０８６アセンブラで書いております。
まあ、Ｚ８０のマシン語で記述できるものならば、当然８０８６のアセンブラでも書けて当たり前なのですが、そういうことをすっかり忘れてしまっておりました。
［１０．７．１２追記ここまで］
>run
rad sin cos tan
0 0 1 0
ERR: 9
30 A#=PI/6:A$="pai/6":GOSUB *SAN
ＯＮ ＥＲＲＯＲ ＧＯＴＯ文をコメントアウトしておいて、再実行してみましたら。
ＥＲＲ：９が表示されました。
文法に合わない式がある、というメッセージです。
ああ。
時間が無くなってしまいました。
説明の途中ですけれど、本日はここまでといたします。
２０１０．７．１１ｕｐｌｏａｄ
２０１０．７．１２追記
前へ
次へ
ホームページトップへ戻る