〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第８８回］
●ＡＢＳ
今回はＡＢＳ（）について説明します。
とても簡単なプログラムです。
ＡＢＳ：の先頭で
ＣＡＬＬ ＰＡＲＮを実行します。
ＰＡＲＮはＲＮＤ（）でも使っています。
ＰＡＲＮは［第６４回］のＥＸＰＲ４プログラムの中にあります。
（ ）で囲んだ式の値を計算してＨＬに入れます。
そのあと
ＣＡＬＬ ＣＨＫＳＧＮ
を実行してリターンします。
ＣＨＫＳＧＮは［第４８回］で説明しました。
ＣＨＫＳＧＮはＨＬの正負を判定して負数のときはそれを正数に変換します。
正数のときはそのままリターンします。
ところでＣＡＬＬ ＣＨＫＳＧＮの前にＤＣＸ Ｄがあります。
そしてＣＡＬＬ ＣＨＫＳＧＮの後ろにはＩＮＸ Ｄがあります。
どういう目的なのか、いささか気になるところです。
ここでスタックに保存されるＤＥにはその時点でのテキスト行のアドレスが入っています。
ということからすると、おそらくはＣＨＫＳＧＮでエラーが発生したときに表示される”？”の位置に関係しているのでは？と目星をつけました。
そういうときは試してみるのが一番です。
ＣＨＫＳＧＮでのエラーは［第４８回］で書きましたように対象になる負数が８０００Ｈつまり−３２７６８であるときに発生します。
そのときの”？”の表示位置を確認してみました。
Ｘに−３２７６７を入力するとＡＢＳ（Ｘ−１）の（）の中の値が−３２７６８になるので、そこでＨＯＷ？が表示されます。
注目すべきはそのとき”？”が表示される位置です。
Ｘ−１？
と表示されていて、Ｘ−１の計算結果がＡＢＳ（）関数では計算できない値であることを示しています。
このときのＤＥの値に注目です。
こういうときにもＺＢ３ＢＡＳＩＣはとても便利です。
下の画像の左側のプログラムリストは「中日電工版」ＴＩＮＹ ＢＡＳＩＣのＡＢＳプログラムの部分です。
右側ではＡＢＳ（）関数のテストプログラムを実行中ですが、途中にブレークポイントを設定してブレークさせています。
右側のコマンドプロンプトの画面で
ＢＰ ８５１Ａ［Ｅｎｔｅｒ］
を実行してアドレス８５１ＡにブレークポイントをセットしたあとでＴＩＮＹ ＢＡＳＩＣを起動しています。
アドレス８５１ＡはＣＡＬＬ ＰＡＲＮを実行した直後、ＤＣＸ Ｄのところです（ＤＣＸ Ｄの実行直前でブレークします）。
さきほどと同じようにＸに−３２７６７を入力しました。
ブレークして表示されたレジスタダンプを見るとＰＣは８５１Ａになっています。
ＨＬは８０００（−３２７６８）ですからＸ−１が計算されたことがわかります。
この段階ではまだエラーは表示されていません。
ＤＥは９０２Ｂです。
それがテキスト行のどこなのかを確認するために、ＤＭコマンドを実行しました。
アドレス９０２Ｂには２Ｂ（”＋”の文字コード）があります。
その前には２９があります。
２９は”）”の文字コードです。
このあと
ＲＴ［Ｅｎｔｅｒ］
の入力で残りが実行されてエラーが表示されました。
以上でわかったことは、もし８５１５ ＤＣＸ Ｄがなかったとすると、エラー表示は下のようになると考えられます。
２０ Ｙ＝ＡＢＳ（Ｘ−１）？＋１
推測しているだけではだめですね。
これも実際に試してみましょう。
ＣＭコマンドでアドレス８５１Ａとアドレス８５１Ｅを００（ＮＯＰ）に書き換えました。
プログラムがＲＡＭ上にありますからこういうデバッグが簡単にできてしまいます。
そのようにして先ほどと同じテストをしてみました。
上で推測した通りの結果になりました。
”？”がどちらの位置になってもよいようなものですが。
これは考え方の問題のような気がします。
ＨＯＷ？ Ｙ＝ＡＢＳ（Ｘ−１？）＋１
の場合は上で書きましたように、Ｘ−１の値がＡＢＳ（）関数では計算できないという意味になります。
ＨＯＷ？ Ｙ＝ＡＢＳ（Ｘ−１）？＋１
の場合にはＡＢＳ（Ｘ−１）の値がＨＯＷ？です、いう意味になると思います。
そのように考えてみると。
やっぱり前者が正解、でしょうねえ。
復活！ＴＩＮＹ ＢＡＳＩＣ［第８８回］
２０２０．９．１２ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る