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

［第２９回］



●ＧＯＳＵＢ　行番号

前回までのところではＧＯＴＯ文の機能を拡張して　ＧＯＴＯ　行番号　も使えるようにしました。
普通のブログラムの中でも、またダイレクトモードでも　ＧＯＴＯ　ラベル　だけではなくて　ＧＯＴＯ　行番号　も使えるようになりました。
そのように機能を拡張したことに伴って、ＲＥＮコマンドで行番号を変更したときに、関係する　ＧＯＴＯ　行番号　の行番号部分も同時に変更するようにしました。
そこまではＧＯＴＯ文について書いてきたのですが、ＧＯＴＯ　行番号　は使えるようになったけれど、ＧＯＳＵＢ　行番号　は使えないのか？という当然の疑問が出てきてしまいます。
そういうことになるので、当初は行番号に対応するようにはしないでおこうと決めていたのですが、ここまで来てしまいましたので、もうやるしかありません。
ＧＯＳＵＢ文についても行番号が使えるように直しました。
以下はそのように機能拡張したＧＯＳＵＢ文についての動作テストです。

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

もとのプログラムでは５０行に　ＧＯＳＵＢ　＊ＡＢＣ　があります。
そして８０行に　＊ＡＢＣラベル　があってここがサブルーチンの先頭行になっています。
そこのところを　ＧＯＳＵＢ　行番号　に対応するように書き換えます。

スクリーンエディタの機能が使えますからこの程度のプログラムの変更は簡単にできます。
カーソルを５０行に移動してそこで　＊ＡＢＣ　を　８０　に書き換えて［Ｅｎｔｅｒ］を入力するだけで書き換えできます。
８０行はこれもスクリーンエディタの機能を使ってカーソルを８０行まで移動してそこで　＊ＡＢＣ　の前に　’　を書いて行全体をコメント行にしてしまいました。
このように変更したあと／ｃｏｎｖを実行し中間言語型に変更しました。
そのあとｒｕｎコマンドを入力してプログラムを実行しました。

［第１９回］と同じ結果になりました。
これでＧＯＳＵＢ　行番号　が正しく実行されることが確認できました。

ＧＯＴＯ　行番号　のテストではダイレクトモードについてのテストも行ないました。
ＧＯＳＵＢ文をダイレクトモードで実行することは余りないと思いますができないわけではありません。
ＧＯＳＵＢ　行番号　をダイレクトモードで実行してみました。

今回のテストで使ったプログラムでは行番号８０から始まるサブルーチンは画面に”ＳＵＢＲＯＵＴＩＮＥ”と表示したあとＲＥＴＵＲＮするだけの簡単なものです。
上の画面の下から４行目で
ａ＝１２３：ｇｏｓｕｂ　８０：ｃ＝ａ＋Ｂ：ｐｒｉｎｔ　ｃ
と入力したあと［Ｅｎｔｅｒ］を入力しました。
８０行のサブルーチンがＣＡＬＬされそこで　ＳＵＢＲＯＵＴＩＮＥ　と表示されたあとｃ＝ａ＋Ｂの計算結果が表示されました。
ＰＩＣ−ＵＳＢＩＯ用ＢＡＳＩＣではコマンドや命令は英小文字と英大文字は区別されません（どちらも使えます）が変数名は大文字と小文字は区別して認識されます。
上の例ではｃ＝ａ＋Ｂとｃ＝ａ＋ｂとでは異なる計算結果になります。

ＧＯＴＯ文ではＲＥＮでの対応についてのテストも行ないました。
ＧＯＳＵＢ文についても同じようにテストして行番号が正しく変更されるかどうかを確認してみます。

ＲＥＮで行番号が付け直しされるようにプログラムの先頭に
５’
を追加しました。

そのあとＲＥＮコマンドを実行してからＬＩＳＴコマンドを実行しました。

もとのプログラムでは
５０　ＧＯＳＵＢ　８０
だったところがＲＥＮ実行後は
６０　ＧＯＳＵＢ　９０
に変更されました。

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

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

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

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