〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第８９回］
●ＳＩＺＥ
今回はＳＩＺＥ関数について説明します。
ＳＩＺＥ関数のプログラムも短いプログラムです。
ＳＩＺＥにはテキストエリアの残りバイト数が入ります。
関数というよりは、システム変数というほうが適切でしょう。
先頭の
ＳＩＺＥ：ＬＨＬＤ ＴＸＴＵＮＦ
でＨＬにＴＸＴＵＮＦの値が入ります。
ＴＸＴＵＮＦにはＴＩＮＹ ＢＡＳＩＣの起動時にＩＮＩＴルーチンの中で初期値としてテキストエリアの先頭アドレスＴＸＴＢＧＮ（オリジナルでは１０１７）が入れられます。
またＮＥＷコマンドを実行時にもＴＸＴＵＮＦにはＴＸＴＢＧＮが入れられます。
ＩＮＩＴは［第２５回］で説明しました。
ＮＥＷは［第３７回］で説明をしました。
ユーザーのテキストプログラムはＴＸＴＢＧＮ（１０１７）から後ろに向かって書き込まれていきます。
ＴＸＴＢＧＮは「中日電工版」ＴＩＮＹ ＢＡＳＩＣでは９０１７です。
ユーザープログラムが書き込まれていくのに伴ってＴＸＴＵＮＦの中のアドレス値も後ろに向かって進んでいきます。
ＴＸＴＵＮＦの値はつねに次にテキストプログラムが書き込まれるアドレスを示しています。
アドレス０４５９でＨＬに読み込まれたＴＸＴＵＮＦの値は次の
０４５Ｃ ＰＵＳＨ Ｄ
０４５Ｄ ＸＣＨＧ
でＤＥレジスタに移されます。
そして
０４５Ｅ ＬＸＩ Ｈ，ＶＡＲＢＧＮ
でＨＬにはＶＡＲＢＧＮ（１３６６）が入れられます。
ＶＡＲＢＧＮは変数アドレスの先頭です。
ＶＡＲＢＧＮは＠（０）のアドレスです。
ＶＡＲＢＧＮは「中日電工版」ＴＩＮＹ ＢＡＳＩＣでは９Ｆ６６です。
ユーザーのテキストエリアは１０１７〜１３６５（「中日電工版」ＴＩＮＹ ＢＡＳＩＣでは９０１７〜９Ｆ６６）です。
初期状態ではテキストエリアの空きバイト数は
１３６６Ｈ−１０１７Ｈ＝０３４ＦＨ（８４７）バイトです。
「中日電工版」ＴＩＮＹ ＢＡＳＩＣでは
９Ｆ６６Ｈ−９０１７Ｈ＝０Ｆ４ＦＨ（３９１９）バイトです。
ＳＩＺＥには
ＶＡＲＢＧＮ−ＴＸＴＵＮＦの値
を計算した値が入ることになります。
ＨＬにはＶＡＲＢＧＮが、ＤＥにはＴＸＴＵＮＦの値が入れられています。
０４６１ ＣＡＬＬ ＳＵＢＤＥ
でＨＬ−ＤＥが計算されて結果がＨＬに入ります。
ＳＵＢＤＥは［第４８回］で説明しました。
念のためテストをしてＳＩＺＥの値を確認してみました。
ＴＩＮＹ ＢＡＳＩＣの起動直後にＳＩＺＥの値を確認します。
それから前回と同じＡＢＳのテストプログラムを入力したあとでもう一度ＳＩＺＥの値を確認します。
そのあとＺＢ３ＢＡＳＩＣに戻ってＤＭコマンドでメモリの中身を確認してみます。
ＴＩＮＹ ＢＡＳＩＣの起動直後はＳＩＺＥの値は３９１９です。
前回と同じＡＢＳのテストプログラムを入力したあとのＳＩＺＥの値は３８８８です。
［Ｃｔｒｌ］［Ｚ］でＺＢ３ＢＡＳＩＣに戻りました。
そのあとＤＭコマンドでアドレス９０００〜９０３Ｆのメモリ内容を表示させました。
テキストエリアの先頭アドレスは９０１７です。
アドレス９０１７からは
０Ａ ００ ４９ ４Ｅ ５０ …という値が入っていて、最初の０００Ａが行番号１０の１６進数でそれに続いてＩＮＰの文字コードがありますから、テキストエリアがアドレス９０１７から始まっていることが確認できます。
ＴＸＴＵＮＦはオリジナルのＴＩＮＹＢＡＳＩＣでは１０１５、１０１６ですが「中日電工版」ＴＩＮＹ ＢＡＳＩＣでは９０１５、９０１６です。
メモリダンプリストの９０１５、９０１６を見ると３６ ９０になっています。
ユーザーのテキストプログラムを入力した結果、ＴＸＴＵＮＦの値が９０３６になりました。
メモリダンプリストで確認してみると、アドレス９０３５に０Ｄがあってそこが行番号３０の行の終わりであることがわかります。
その次のアドレスから後ろがテキストエリアの空きエリアですからＴＸＴＵＮＦにはその先頭アドレス９０３６が入ることになります。
そのときのＳＩＺＥの値を検証します。
ＶＡＲＢＧＮは「中日電工版」ＴＩＮＹ ＢＡＳＩＣでは９Ｆ６６です。
９Ｆ６６Ｈ−９０３６Ｈ＝０Ｆ３０Ｈ（３８８８）バイト
計算の結果とＳＩＺＥの値は一致しました。
長々と説明をしてきましたが、今回でやっとオリジナルのＴＩＮＹ ＢＡＳＩＣの説明が完了しました。
次回は最後の締めくくりです。
復活！ＴＩＮＹ ＢＡＳＩＣ［第８９回］
２０２０．９．１３ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る