〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第５０回］
●ＧＯＳＵＢ，ＲＥＴＵＲＮ
今回はＧＯＳＵＢとＲＥＴＵＲＮについて説明をします。
ＧＯＳＵＢはＧＯＴＯと似ていますがＧＯＴＯが「行きっぱなし」であるのに対してＧＯＳＵＢはＲＥＴＵＲＮによってＧＯＳＵＢ文の次のアドレスに戻ってきます。
その動作のためにＧＯＳＵＢ文の次のアドレスがスタックに保存されます。
ＲＥＴＵＲＮ文はスタックから「戻り先」のアドレスを得ることでそのサブルーチンを呼んだＧＯＳＵＢ文の次のアドレスに戻ってそこから続きを実行することができます。
ＧＯＳＵＢ〜ＲＥＴＵＲＮがペアになって使われる限り、多重使用が許されます。
たとえばＧＯＳＵＢでＣＡＬＬした先のサブルーチン内で別のＧＯＳＵＢ文を使うことができます。
しかしＧＯＳＵＢとＲＥＴＵＲＮはペアで使う必要があるため、多重に使用する中でプログラムミスによってＧＯＳＵＢが実行されていないのにＲＥＴＵＲＮ文に遭遇してしまう可能性があります。
ＧＯＳＵＢ文が実行されていないのにＲＥＴＵＲＮ文を実行しようとした場合にはＨＯＷ？メッセージが出されます。
ＧＯＳＵＢ文とＲＥＴＵＲＮ文を多重に使用することができるようにするために、ＧＯＳＵＢ文を実行するときにＲＥＴＵＲＮ文でもとに戻るときに必要な情報、ＧＯＳＵＢ文の次のアドレスポイント（ＤＥに入っている）、そのＧＯＳＵＢ文のある行の先頭アドレス（ＣＵＲＲＮＴに入っている）をスタックに退避します。
そしてその時点でのスタックポインタの値をＳＴＫＧＯＳに入れます。
ＳＴＫＧＯＳはユーザープログラムの実行を開始したときに初期値として０が入れられます。
ＲＥＴＵＲＮが実行されたときにＳＴＫＧＯＳの値が０ならばＧＯＳＵＢが実行されていないことになりますから、そこでＨＯＷ？が表示されます。
ＧＯＳＵＢ文が実行された先のサブルーチン内でまたＧＯＳＵＢ文が実行された場合には、もとのＳＴＫＧＯＳの値がスタックに退避されて、ＳＴＫＧＯＳには新しいその時点でのスタックポインタの値が入れられます。
ＧＯＳＵＢのプログラムの説明です。
最初にＰＵＳＨＡをＣＡＬＬしています。
ＰＵＳＨＡはＰＯＰＡとペアで使われ、本来はＦＯＲ〜ＮＥＸＴのために使われます。
実はＧＯＳＵＢ〜ＲＥＴＵＲＮがスタックを利用して多重使用（ネスティング）ができるのと全く同様にＦＯＲ〜ＮＥＸＴもスタックを利用することで多重に使用することができます。
ＦＯＲ〜ＮＥＸＴとＧＯＳＵＢ〜ＲＥＴＵＲＮはそれぞれがペアで使われる限り両者を混ぜて多重に使用することができます。
たとえばＦＯＲ〜ＮＥＸＴのループの中にＧＯＳＵＢ〜ＲＥＴＵＲＮを置くこともできますし、逆にＧＯＳＵＢ〜ＲＥＴＵＲＮの中にＦＯＲ〜ＮＥＸＴのループを置くこともできます。
しかしともにスタックを使うために、ペアであるための情報をしっかりと管理する必要があります。
おもにＦＯＲ〜ＮＥＸＴのスタック管理のためにＰＵＳＨＡとＰＯＰＡが使われますが、同じようにＧＯＳＵＢ〜ＲＥＴＵＲＮもスタックを利用するために、ＧＯＳＵＢ〜ＲＥＴＵＲＮでもＰＵＳＨＡ、ＰＯＰＡをＣＡＬＬしています。
ＰＵＳＨＡとＰＯＰＡについてはいずれ説明をいたします。
次のＲＳＴ ３は［第１１回］で簡単に説明をしました。
ＲＳＴ ３は数式を計算して結果の値をＨＬに入れます。
ＧＯＳＵＢ文の行番号をＨＬに入れるためにＲＳＴ ３を実行します。
ここまででＧＯＳＵＢ 行番号 の解読が終わり、テキスト行のその位置のアドレスをＰＵＳＨ Ｄでスタックに保存します（ＲＥＴＵＲＮの実行によってその値はＤＥに戻されます）。
ＣＡＬＬ ＦＮＤＬＮでＨＬに入れた行番号の行をサーチします。
ＦＮＤＬＮは［第２８回］で説明をしました。
その行番号の行がみつからなかったときはＨＯＷ？表示ルーチンが実行されます。
みつかったときは現在のＧＯＳＵＢの情報をセットするために、以前のＣＵＲＲＮＴとＳＴＫＧＯＳの値をスタックに保存します。
ＬＯＰＶＡＲは直近でＦＯＲ文が実行されていることを示す変数ですが、それに代わってＧＯＳＵＢが直近で実行されることになるため、それを明示するためＬＯＰＶＡＲに０を入れます。
０１Ｄ２のＬＸＩ Ｈ，０はそのために実行されますが、それによってＨＬ＝０になったことを利用してＤＡＤ ＳＰを実行してＨＬにＳＰの値をいれます。
ＳＨＬＤ ＳＴＫＧＯＳでそのときのＳＰの値をＳＴＫＧＯＳに入れます。
ここまでてＧＯＳＵＢの処理は終わりです。
このあとＪＭＰ ＲＵＮＴＳＬが実行されます。
ＲＵＮＴＳＬは［第３７回］で説明をしました。
ＦＮＤＬＮの実行によってＧＯＳＵＢで指定した行番号の行の先頭アドレスがＤＥに入っています。
ＲＵＮＴＳＬはそのＤＥアドレスの行を実行する処理ルーチンです。
このあとＲＥＴＵＲＮについて説明をするつもりだったのですが時間がなくなってしまいました。
次回に説明をすることにいたします。
復活！ＴＩＮＹ ＢＡＳＩＣ［第５０回］
２０２０．７．２８ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る