プチコンmkII 初心者講座サブルーチン
プログラマーからひとこと
これまでいろいろな命令をおぼえてきましたが、そのクライマックスになりそうなのが、これから出てくる「GOSUB」命令です。ここまでおぼえれば初心者のプログラムはもう最後といっていいかもしれません。
英語としてもわりとヘンなんですが、もともとの意味は「
サブルーチンといえば、前にもちょっとだけ出てきましたね。
「行って帰ってくる小さなプログラムのブロック」なんて説明もしましたが、おぼえてましたか？
この「行って帰ってくる」をカンタンにするのがGOSUB命令ですが、くわしくはインテリ君の説明にまかせましょう。
GOSUB命令
ワンパク「サブルーチンのハナシはもう終わったんじゃねェのか？ ヨウするに「行って帰ってくる小さなプログラムのブロック」がサブルーチンなんだろ？」
インテリ「そこまでは合ってるよ。これからおぼえるＧＯＳＵＢ命令は、それをもっとラクにするための命令だね。」
神崎「たしかサブルーチンは、こういうものだったよね。
」
0001#. ’メインルーフ゜
0002#. ＠ＭＡＩＮ
0003#. ＰＲＩＮＴ”ココハ メインルーフ゜ テ゛ス”
0004#. ＧＯＴＯ ＠ＳＵＢ
0005#. ＠ＭＡＩＮ２
0006#. ＧＯＴＯ ＠ＭＡＩＮ
0007#.
0008#. ’サブルーチン
0009#. ＠ＳＵＢ
0010#. ＰＲＩＮＴ”ココハ サフ゛ルーチン テ゛ス”
0011#. ＧＯＴＯ ＠ＭＡＩＮ２
これだとホントにサブルーチンにするイミのない、グルグル回るだけのプログラムだけど……。0002#. ＠ＭＡＩＮ
0003#. ＰＲＩＮＴ”ココハ メインルーフ゜ テ゛ス”
0004#. ＧＯＴＯ ＠ＳＵＢ
0005#. ＠ＭＡＩＮ２
0006#. ＧＯＴＯ ＠ＭＡＩＮ
0007#.
0008#. ’サブルーチン
0009#. ＠ＳＵＢ
0010#. ＰＲＩＮＴ”ココハ サフ゛ルーチン テ゛ス”
0011#. ＧＯＴＯ ＠ＭＡＩＮ２
」
インテリ「うん、でもおさらいとしてはこれでいいんじゃないかな。４行目でサブルーチン＠ＳＵＢに行って、11行目でメインループの中の＠ＭＡＩＮ２に帰るんだね。」
ワンパク「コレをカンタンにするのがＧＯＳＵＢ命令だってのか？ スデにかなりカンタンな気もするが……」
インテリ「まあ見てみようよ。ＧＯＳＵＢ命令を使うと、こういうプログラムになるね。
」
0001#. ’メインルーフ゜
0002#. ＠ＭＡＩＮ
0003#. ＰＲＩＮＴ”ココハ メインルーフ゜ テ゛ス”
0004#. ＧＯＳＵＢ ＠ＳＵＢ
0005#.
0006#. ＧＯＴＯ ＠ＭＡＩＮ
0007#.
0008#. ’サブルーチン
0009#. ＠ＳＵＢ
0010#. ＰＲＩＮＴ”ココハ サフ゛ルーチン テ゛ス”
0011#. ＲＥＴＵＲＮ
４行目でＧＯＳＵＢ命令を使っているのがわかるね。0002#. ＠ＭＡＩＮ
0003#. ＰＲＩＮＴ”ココハ メインルーフ゜ テ゛ス”
0004#. ＧＯＳＵＢ ＠ＳＵＢ
0005#.
0006#. ＧＯＴＯ ＠ＭＡＩＮ
0007#.
0008#. ’サブルーチン
0009#. ＠ＳＵＢ
0010#. ＰＲＩＮＴ”ココハ サフ゛ルーチン テ゛ス”
0011#. ＲＥＴＵＲＮ
」
ワンパク「それだけじゃねェぞ、５行目にあったラベルが消えてんじゃねェか！ これじゃサブルーチンから戻ってこれなく……アレ？」
神崎「サブルーチンの最後が、ＧＯＴＯ命令じゃなくＲＥＴＵＲＮになっているね。」
インテリ「ＧＯＳＵＢ命令は、ＲＥＴＵＲＮ命令とセットで使うんだ。
プログラムを見ればだいたい分かるかな？ ＧＯＳＵＢのあとにＲＥＴＵＲＮがあると、ＧＯＳＵＢしたすぐアトまで自動で帰るんだね。」
プログラムを見ればだいたい分かるかな？ ＧＯＳＵＢのあとにＲＥＴＵＲＮがあると、ＧＯＳＵＢしたすぐアトまで自動で帰るんだね。」
ワンパク「……リクツはワカッたぜ。あんがいカンタンなモンなんだな。」
神崎「サブルーチンに行くたびにラベルを付けなくてよくなるのは、たしかにベンリかな。」
ワンパク「しかしコレ……サブルーチンって、ホントにやらなきゃダメか？ ワザワザＧＯＴＯやＧＯＳＵＢで飛ばさなくても、メインループの中でやればいいコトじゃねェか？」
インテリ「いいトコロに気が付いたね。ジツはここまでで使ったサブルーチンは、たしかにサブルーチンの良さがちゃんと出てないんだな。
そこで、このプログラムを見てもらおうか。
」
そこで、このプログラムを見てもらおうか。
0001#. ’メインルーフ゜
0002#. ＠ＭＡＩＮ
0003#. Ａ＝１
0004#. ＧＯＳＵＢ ＠ＳＵＢ
0005#. Ａ＝２
0006#. ＧＯＳＵＢ ＠ＳＵＢ
0007#. ＧＯＴＯ ＠ＭＡＩＮ
0008#.
0009#. ’サブルーチン
0010#. ＠ＳＵＢ
0011#. ＰＲＩＮＴ Ａ；”カイメ ノ サフ゛ルーチン”
0012#. ＲＥＴＵＲＮ
ドコがポイントか、わかるかな？0002#. ＠ＭＡＩＮ
0003#. Ａ＝１
0004#. ＧＯＳＵＢ ＠ＳＵＢ
0005#. Ａ＝２
0006#. ＧＯＳＵＢ ＠ＳＵＢ
0007#. ＧＯＴＯ ＠ＭＡＩＮ
0008#.
0009#. ’サブルーチン
0010#. ＠ＳＵＢ
0011#. ＰＲＩＮＴ Ａ；”カイメ ノ サフ゛ルーチン”
0012#. ＲＥＴＵＲＮ
」
神崎「サブルーチンに行く前に、変数Ａのナカミを変えているね。それにメインループの中から２回、同じサブルーチンに飛んでいるよ。」
ワンパク「それからサブルーチンの中でも変数Ａを使ってるぜ！ つまり……サッパリわからねーな！」
インテリ「そ、そうなの？
まず同じサブルーチンでも、ＲＥＴＵＲＮで帰る行がちがうというのが１つ目のポイントかな。」
まず同じサブルーチンでも、ＲＥＴＵＲＮで帰る行がちがうというのが１つ目のポイントかな。」
神崎「同じＲＥＴＵＲＮなのに、４行目から飛んできたときは４行目に帰ってきて、６行目から飛んできたときは６行目に帰るんだね。ちゃんとしてるなあ。」
ワンパク「タシカにそれと同じコトをＧＯＴＯでやるのはメンドクセェな……。アチコチから飛ぶんならＧＯＳＵＢを使えってコトか。」
インテリ「もう１つのポイントは、１コだけのサブルーチンでも、ＧＯＳＵＢする前の変数によってＰＲＩＮＴする字が変わるコトだね。」
神崎「ＰＲＩＮＴにかぎらず、変数によってやることを変えられるんだね。」
インテリ「そういうコトだね。いろいろなプログラムを見てみるとわかるけど、決まった動きを、変数のナカミによって変えながらできるのがサブルーチンの良さだね。」
ワンパク「つまりサブルーチンってのは、プログラムのどこから、どんなジョウタイでも、「オイこれやっとけ」って言えば空気を読みながらひととおりのシゴトをこなすってワケだな。」
インテリ「どうしたのワンパク君、よくわかってるじゃないか！」
ワンパク「いや、リソウのパシリってこんなカンジじゃねえかって考えたら……」
インテリ「……」
神崎「……」
- GOSUB～RETURN命令
- ＧＯＳＵＢ ＠（ラベル）
ＲＥＴＵＲＮ
GOSUBで指定したラベルまでジャンプします。その後にRETURNと書いてあれば、GOSUBの直後まで戻ります。
