ＰＩＣ−ＵＳＢＩＯ　ｕｓｉｎｇ　ＢＡＳＩＣ
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
ＵＳＢインターフェースを内蔵したＰＩＣを使ってＷｉｎｄｏｗｓパソコンで外部回路を制御するための各種Ｉ／Ｏ基板の製作記事です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜

［第３０回］



●ＲＥＳＴＯＲＥ　行番号

前回までのところでＧＯＴＯ文に続いてＧＯＳＵＢ文も行番号に対応するようにしました。
プログラムの行をラベルで指定している命令はＧＯＴＯ文、ＧＯＳＵＢ文のほかにもありました。
ＤＡＴＡ文、ＲＥＡＤ文とあわせて使われるＲＥＳＴＯＲＥ文も現行ではＤＡＴＡ文の行をラベルで指定していますが、ＧＯＴＯ文、ＧＯＳＵＢ文が行番号対応になったのですから、ＲＥＳＴＯＲＥ文も行番号対応にしないわけにはいきませんでしょう。
ということでＲＥＳＴＯＲＥ文についてもラベル指定のほかに行番号も指定できるように機能を拡張しました。
以下はそのように機能拡張したＲＥＳＴＯＲＥ文の動作テストです。

下のプログラムは［第２４回］でテストに使ったサンプルプログラムです。

もとのプログラムでは２０行に　＊ａｂｃラベル　があります。
そして７０行の　ＲＥＳＴＯＲＥ　＊ａｂｃ　でＲＥＡＤ文のカウンタを２０行のＤＡＴＡ文にセットしています。
そこのところを　ＲＥＳＴＯＲＥ　行番号　に対応するように書き換えます。

前回と同様にスクリーンエディタの機能を使うことで簡単にプログラムの変更ができてしまいます。
カーソルを２０行に移動してそこで　＊ａｂｃ　を削除して［Ｅｎｔｅｒ］を入力しました。
７０行はこれもスクリーンエディタの機能を使ってカーソルを７０行まで移動してそこで　＊ａｂｃ　を　２０　に書き換えて［Ｅｎｔｅｒ］を入力しました。

そのように変更したあと／ｃｏｎｖを実行し中間言語型に変更しました。
そのあとｒｕｎコマンドを入力してプログラムを実行しました。

［第２４回］と同じ結果になりました。
これでＲＥＳＴＯＲ　行番号　が正しく実行されることが確認できました。

ＧＯＴＯ文、ＧＯＳＵＢ文のテストではダイレクトモードについてのテストも行ないました。
ＲＥＳＴＯＲＥ文をダイレクトモードで実行することはまずないと思いますができないわけではありません。
ＧＯＴＯ文とあわせてダイレクトモードで実行してみることにしました。
もとのプログラムのままではちょっとテストがしにくいところがありますからプログラムを一部変更してからテストをします。
７０行の　ＲＥＳＴＯＲＥ　２０　を　ＲＥＳＴＯＲＥ　３０　に書き換えてから／ｃｏｎｖ、ｒｕｎを実行しました。

そのように変更したので変数ｉ、ｊ、ｋの値が３０行のＤＡＴＡ文の４、５、６になってそこでプログラムが終了しました。
ＲＥＡＤ文のカウンタはそこで終っています。

そこまで実行したあとダイレクトモードで
ＲＥＳＴＯＲＥ　２０：ＧＯＴＯ　８０
を実行しました。

ＲＥＳＴＯＲＥ　２０　を実行したのでＲＥＡＤ文のカウンタが２０行のＤＡＴＡ文にセットされました。
そのあと８０行以下が実行され、変数ｉ、ｊ、ｋの値が２０行のＤＡＴＡ文の１、２、３になりました。

最後にＧＯＴＯ文、ＧＯＳＵＢ文と同様にＲＥＳＴＯＲＥ文でもＲＥＮで行番号が正しく変更されるかどうかを確認してみました。
今までと同じようにプログラムの先頭に
５’
を追加したあと、ＲＥＮコマンドを実行してからＬＩＳＴコマンドを実行しました。

もとのプログラムでは
７０　ＲＥＳＴＯＲＥ　３０
だったところがＲＥＮ実行後は
８０　ＲＥＳＴＯＲＥ　４０
に変更されました。

念のため／ｃｏｎｖを実行して中間言語型に翻訳したあとｒｕｎコマンドを実行しました。

プログラムが正しく実行されたことが確認できました。

ＰＩＣ−ＵＳＢＩＯ　ｕｓｉｎｇ　ＢＡＳＩＣ［第３０回］
２０２２．７．３１ｕｐｌｏａｄ

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