ＰＩＣ−ＵＳＢＩＯ ｕｓｉｎｇ ＢＡＳＩＣ
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
ＵＳＢインターフェースを内蔵したＰＩＣを使ってＷｉｎｄｏｗｓパソコンで外部回路を制御するための各種Ｉ／Ｏ基板の製作記事です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第３２回］
●ＲＥＳＵＭＥ 行番号
前回はＯＮ ＥＲＲＯＲ ＧＯＴＯ文を行番号に対応するように機能を拡張しました。
今回はＲＥＳＵＭＥ文です。
ＲＥＳＵＭＥ文はＯＮ ＥＲＲＯＲ ＧＯＴＯ文と対になる命令です。
プログラムの実行中にエラーが発生してＯＮ ＥＲＲＯＲ ＧＯＴＯ文が指定する行が実行されたあとの戻り先を指定します。
ＲＥＳＵＭＥ文については［第２５回］で説明しました。
ＲＥＳＵＭＥだけのときはエラーが発生した行に戻ります。
ＲＥＳＵＭＥ ＮＥＸＴ はエラーが発生した行の次の行に戻ります。
そのほかの行に戻りたいときにはその戻り先の行をラベルで指定します。
今回はそのところを行番号でも指定することができるように機能を拡張しました。
以下はそのように機能拡張したＲＥＳＵＭＥ文の動作テストです。
下のプログラムは［第２５回］でテストに使ったサンプルプログラムです。
もとのプログラムでは最初の１０行にＯＮ ＥＲＲＯＲ ＧＯＴＯ ＊ｅｒｒ があります。
そして６０行に ＊ｅｒｒラベル があります。
この部分もついでに行番号で指定するように変更しておきます。
この変更は前回で行なったのと同じです。
今回のＲＥＳＵＭＥ文に対しては７０行の ｒｅｓｕｍｅ ＊ｌ３０ のところを行番号に直します。
小文字の ｌ（Ｌ）が数字の１に見えてしまいますが１３０ではなくてｌ３０です。
ＲＥＳＵＭＥ文で指定する戻り先は３０行です。
そこに＊ｌ３０ラベルがあります。
そのところを ＲＥＳＵＭＥ 行番号 に対応するように書き換えます。
今までと同様にスクリーンエディタの機能を使うことで簡単にプログラムの変更ができます。
カーソルを１０行に移動してそこで ＊ｅｒｒ を ６０ に書き換えて［Ｅｎｔｅｒ］を入力しました。
６０行はこれもスクリーンエディタの機能を使ってカーソルを６０行まで移動してそこで ＊ｅｒｒラベル を削除して［Ｅｎｔｅｒ］を入力しました。
その次の７０行は ＊ｌ３０ のところを ３０ に書き換えて［Ｅｎｔｅｒ］を入力しました。
そしてカーソルを３０行に移動してそこで ＊ｌ３０ラベル を削除して［Ｅｎｔｅｒ］を入力しました。
そのように変更したあと／ｃｏｎｖを実行し中間言語型に変更しました。
そのあとｒｕｎコマンドを入力してプログラムを実行しました。
［第２５回］と同じ結果になりました。
これで ＲＥＳＵＭＥ 行番号 が正しく実行されることが確認できました。
ＯＮ ＥＲＲＯＲ ＧＯＴＯ文は特殊なのでダイレクトモードでは実行できません。
しかしＲＥＳＵＭＥ文はＯＮ ＥＲＲＯＲ ＧＯＴＯ文が実行されてエラー処理のところでそのままブレークした場合には、その直後ならダイレクトモードでも使うことができます。
下はダイレクトモードでのＲＥＳＵＭＥ文の実行例です。
上で使ったプログラムを一部書き換えます。
エラー処理後にブレークするように７０行のＲＥＳＵＭＥ文を削除しました。
そのようにしておいて／ｃｏｎｖ、ｒｕｎを実行しました。
ちょっとわかりにくいですけれどｒｕｎのあと
ａ＝１２３４５ ｂ＝０ ｃ＝４５６
が表示されたあとでエラーが発生して ｏｎ ｅｒｒｏｒ ｇｏｔｏ ６０ が実行された結果
６０行のｐｒｉｎｔ文が実行されて
ＥＲＣ＝１２ ＥＲＬ＝４
が表示されたあと、そこでブレークしました。
その下の
＞ｂ＝１０：ｒｅｓｕｍｅ ３０
がダイレクトモードでキーボードから入力した文です（最後に［Ｅｎｔｅｒ］を入力しました）。
ｂ＝１０ と ｒｅｓｕｍｅ ３０ が直ちに実行され、３０行〜５０行が実行されて、そこでブレークしました。
最後にＲＥＮで行番号が正しく変更されるかどうかを確認してみました。
今までと同じようにプログラムの先頭に
５’
を追加したあと、ＲＥＮコマンドを実行してからＬＩＳＴコマンドを実行しました。
もとのプログラムでは
１０ ｏｎ ｅｒｒｏｒ ｇｏｔｏ ６０
だったところがＲＥＮ実行後は
２０ ｏｎ ｅｒｒｏｒ ｇｏｔｏ ７０
に変更されました。
また
７０ ｂ＝ｂ＋２：ｒｅｓｕｍｅ ３０
だったところが
８０ ｂ＝ｂ＋２：ｒｅｓｕｍｅ ４０
に変更されました。
念のため／ｃｏｎｖを実行して中間言語型に翻訳したあとｒｕｎコマンドを実行しました。
プログラムが正しく実行されたことが確認できました。
ＲＥＮを実行する前のプログラムではエラーが発生したときの行Ｎｏ．が４でしたが、１行を追加してＲＥＮを実行しましたからエラーが発生したときの行Ｎｏ．が５になりました。
そのあとＲＥＳＵＭＥ文も正しく実行されたことが表示からわかります。
ＰＩＣ−ＵＳＢＩＯ ｕｓｉｎｇ ＢＡＳＩＣ［第３２回］
２０２２．８．４ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る