はじめに

『MSX0 Stack』付属の IoT BASIC サンプルを『Turbo Pascal』へ移植してみます。

【MSX0】IoT BASIC サンプルの移植【Turbo Pascal】(Qiita)

INFO.BAS

◆MSX0 Stack 情報表示

項目	説明
概要	システムメニューにある [MSX0 Stack 情報] と同等のプログラムです。
ファイル名	INFO.BAS
対応デバイス
コメント

ファイルは存在するのですが、DOC\SAMPLES.TXT には説明がありません。SYSMENU.BAS と差し替えられたのでしょうか？

See also:

『MSX0 Stack』の操作方法 - ハードウェア (Qiita)

MSX0 Stack での挙動

INFO.BAS をロードして、

実行してみました。

ホスト名、内部ソフトウェアバージョン、IP アドレス、ヒープメモリ、バッテリーレベルが表示されます。ディスク内に SYSMENU.BAS が存在すれば、終了時に実行されます。

プログラムは〔Ctrl〕+〔Stop〕(リモートコントロールパネルからは〔Ctrl〕+〔F12〕) または画面タッチ (リモートコントロールパネルならマウスクリック) で中断できます。

Turbo Pascal へ移植

別途、MDL-LIB と SYSUTILS.LIB、IOT.LIB が必要です。

INFO.PAS

program INFO;
{$I MDLLIB.LIB}
{$I VRAM2.LIB}
{$I GAMEIO.LIB}
{$I SYSUTILS.LIB}
{$I IOT.LIB}
var
  I: Integer;
begin
  ClrScr;
  ScrMode(1);
  GoToXY(1, 2);
  Writeln('name : ', IoTGetStr('host/name')      );
  Writeln('sw   : ', IoTGetStr('host/sw_version'));
  Writeln('ip   : ', IoTGetStr('host/ip')        );
  while True do
  begin
    GoToXY(1, 6);
    Writeln('heap : ', IoTGetInt('host/heap'         ):4 , ' KB');
    Writeln('batt : ', IoTGetInt('host/battery/level'):4 , ' %' );
    for I:=1 to 32 do
      begin
        if Keypressed or (Pad(4) <> 0) then
          Exit;
        Delay(100);  
      end;
  end;
end.

実行してみました。

ホスト名、内部ソフトウェアバージョン、IP アドレス、ヒープメモリ、バッテリーレベルが表示されます。ファンクションキーの表示がないので、ちゃんと Turbo Pascal での実行結果です。SYSMENU.BAS に相当するものはないので、プログラムを抜けると単純に終了します。

任意のキーまたは画面タッチで中断できます。

解説

Pad()

Pad(4) は汎用 I/O ポート (ジョイスティックポート) #2 に接続されたタッチパッドの押下を検出しています。汎用 I/O ポート #2 に何を接続するかは [Setup Utility] で変更可能なので、タッチパッドを JOY2 に設定していないと、画面タッチでは抜けられなくなります。

更新頻度

BASIC では 100 回の FOR ループ内でタッチを待ち、FOR 文実行の 20 回毎に、ヒープメモリとバッテリーレベルを更新しています。実測すると 4 秒くらいで更新されているようでしたので、Turbo Pascal のコードでも大体同じくらいの頻度で更新されるようになっています。

スクリーンモード

オリジナルの通りに移植したので、スクリーンモードを変更して元に戻していません。ちょっとお行儀がよくないですね。