２０２０．９．１６
前へ
次へ
ホームページトップへ戻る

［新連載］復活！ＴＩＮＹ　ＢＡＳＩＣ
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜



［第９２回］


●ファイルＳＡＶＥ／ＬＯＡＤ（２）

前回からの続きです。
ＴＩＮＹ　ＢＡＳＩＣのテキストプログラムをＳＡＶＥ、ＬＯＡＤする方法についてあれこれ検討してみたのですが、結局テキストエリアをそのままバイナリファイルとして保存してしまう、という方法しかありませんでした。
ＺＢ３ＢＡＳＩＣのマシン語データのＳＡＶＥ、ＬＯＡＤ機能、／ＳＶ、／ＬＤを使うという方法です。
「中日電工版」ＴＩＮＹ　ＢＡＳＩＣのテキストエリアは９０１７〜９Ｆ６６です。
現在のプログラムエンドのアドレスはＴＸＴＵＮＦ（アドレス９０１５、９０１６）を見ればわかるのですが、ＳＡＶＥする前に毎回それを見るのも面倒な話です。
プログラムでそのアドレスを参照してＳＡＶＥする範囲を指定することができればいいのですが、とにかく前回書きましたように現在のＷｉｎｄｏｗｓ側のＣ＋＋プログラム（ＺＢ３．ＥＸＥ）にはそのようにする機能はついていませんので、マニュアルでＳＡＶＥするアドレスを指定するしかありません。
余り面倒なことはしたくありませんから、テキストプログラムだけではなくて、ＴＩＮＹ　ＢＡＳＩＣのワークエリアも含めてざっくりと９０００〜９ＦＦＦまでＳＡＶＥしてしまいます。

一旦ＴＩＮＹ　ＢＡＳＩＣを終了してＺＢ３ＢＡＳＩＣに戻ってから
／ＳＶ　ＴＥＳＴ１．ＴＢＦ，９０００，９ＦＦＦ［Ｅｎｔｅｒ］
のように操作します。
ＳＡＶＥされるファイルはＢＩＮファイルなのですが、ＴＩＮＹ　ＢＡＳＩＣ専用のデータファイルですから拡張子はＴＢＦのようにするといいのではと思います。
上のアドレスの指定の場合作成されるファイルのサイズは４ＫＢですが、ちょいとした短いプログラムの場合でしたら、たとえば
／ＳＶ　ＳＭＰＬ１．ＴＢＦ，９０００，９２ＦＦ［Ｅｎｔｅｒ］
などのように終わりのアドレスは適当かつ十分な値にしてもよいと思います。
開始アドレスは必要なのは９０１５からなのですが、９０００を指定するようにしてください（理由は後で説明します）。

ＳＡＶＥについてはＴＩＮＹ　ＢＡＳＩＣのプログラムに手を加えるところはありません。
しかしＬＯＡＤについては少し工夫が必要です。
上のようにしてＳＡＶＥしたバイナリファイルを（ＺＢ３ＢＡＳＩＣのモードで）
／ＬＤ　ＴＥＳＴ１．ＴＢＦ，９０００［Ｅｎｔｅｒ］
と操作してメモリにＬＯＡＤすると、ＲＡＭはＳＡＶＥしたときと同じ内容になるため、ＴＩＮＹ　ＢＡＳＩＣを起動すればそのまま以前と同じテキストプログラムを実行したりＬＩＳＴ表示したりすることができるはずなのですが、残念ながらＴＩＮＹ　ＢＡＳＩＣは起動時にテキストプログラムのエンドアドレスを管理しているＴＸＴＵＮＦをクリアしてしまうため、せっかくテキストプログラムを再ロードしても見かけ上はＮＥＷを実行したのと同じ結果になってしまってプログラムがクリアされてしまった状態になってしまいます。
ということは。
／ＬＤコマンドでＴＢＦファイルをロードしたときにはＴＩＮＹ　ＢＡＳＩＣにエントリするときに、通常とは別のエントリアドレスにジャンプするようにして、そのときはＴＸＴＵＮＦをクリアしないようにすればよいことになります。

ということで、ＴＩＮＹ　ＢＡＳＩＣのエントリ部分をそのように書き換えて、通常の起動のときには
ＪＰ　８０００［Ｅｎｔｅｒ］
でＴＩＮＹ　ＢＡＳＩＣを起動しますが、／ＬＤでＴＢＦファイルをＬＯＡＤしたときには、
ＪＰ　８０６０［Ｅｎｔｅｒ］
でＴＩＮＹ　ＢＡＳＩＣを起動するようにしました。
下はそのように変更した「中日電工版」ＴＩＮＹ　ＢＡＳＩＣでテスト中のログです。

/ld tinybstd.bin,8000
loading TINYBSTD.BIN ...0857(2135)bytes loaded,from 8000 to 8856
>jp 8000

TINYBASIC

OK
)10FOR A=0 TO 10
)20P.A,
)30N.A
).
  10 FOR A=0 TO 10
  20 P.A,
  30 N.A

OK
)R.
     0     1     2     3     4     5     6     7     8     9    10
OK
)END of TINYBASIC
>/sv test2.tbf,9000,9fff
1000(4096)bytes saved
>jp 8000

TINYBASIC

OK
).

OK
)END of TINYBASIC
>/ld test2.tbf,9000
loading TEST2.TBF ...1000(4096)bytes loaded,from 9000 to 9FFF
>jp 8060

TINYBASIC

OK
).
  10 FOR A=0 TO 10
  20 P.A,
  30 N.A

OK
)R.
     0     1     2     3     4     5     6     7     8     9    10
OK
)END of TINYBASIC
>/exit
0000 00C3 - 
リモート接続を終了しました
logfile closed at Sun Sep 13 18:15:37 2020
OK


最初は普通にＴＩＮＹ　ＢＡＳＩＣを起動してサンプルプログラムを入力して実行しました。
そのあと［Ｃｔｒｌ］［Ｚ］でＺＢ３ＢＡＳＩＣに戻りました。
ＥＮＤ　ｏｆ　ＴＩＮＹＢＡＳＩＣ
と表示されているところです。
そのあと
／ＳＶ　ＴＥＳＴ２．ＴＢＦ，９０００，９ＦＦＦ［Ｅｎｔｅｒ］
と入力し、再び
ＪＰ　８０００［Ｅｎｔｅｒ］
でＴＩＮＹ　ＢＡＳＩＣに再エントリしました。
上で書きましたように普通にＴＩＮＹ　ＢＡＳＩＣにエントリするとＴＸＴＵＮＦがクリアされてしまうためＬＩＳＴコマンド（ＬＩＳＴコマンドは’．’だけでもよい）を入力してもプログラムリストは表示されません。
そこでもう一度ＴＩＮＹ　ＢＡＳＩＣを終了してＺＢ３ＢＡＳＩＣに戻ったあと、
／ＬＤ　ＴＥＳＴ２．ＢＴＦ，９０００［Ｅｎｔｅｒ］
と入力しました。
さきほど保存したＴＥＳＴ２．ＴＢＦの中身が９０００〜９ＦＦＦにロードされました。
そのあともう一度ＴＩＮＹ　ＢＡＳＩＣにエントリしますが、そのときに
ＪＰ　８０００［Ｅｎｔｅｒ］
と入力してしまうとせっかくロードしたＴＸＴＵＮＦの値が消えてしまいます。
ここは
ＪＰ　８０６０［Ｅｎｔｅｒ］
と入力します。
見かけ上は通常と同じようにＴＩＮＹ　ＢＡＳＩＣが起動しますが、そのあとＬＩＳＴコマンド（’．’）やＲＵＮコマンド（’Ｒ．’）を入力したところ、プログラムが正しくリスト表示され、また正常にプログラムが実行されました。

ちょっと面倒なところもありますが、これでＴＩＮＹ　ＢＡＳＩＣにＳＡＶＥ、ＬＯＡＤの機能が追加できました。
ＳＡＶＥ、ＬＯＡＤについてはまだ続きがあります。
次回に続きます。

復活！ＴＩＮＹ　ＢＡＳＩＣ［第９２回］
２０２０．９．１６ｕｐｌｏａｄ

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