【MSX0】TREE.PAS【Turbo Pascal】

Last updated at 2023-12-23Posted at 2023-12-22

はじめに

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

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

TREE.BAS

◆ノードリスト表示

項目	説明
概要	ノードを再帰的にスキャンしてリスト表示します。
ファイル名	TREE.BAS
対応デバイス
コメント	CALL IOTFIND を利用すると、ノードが持つアイテムの個数や名前のリストを取得できます。リストの内容が動的に変化するものに対してはアイテムの個数を取得したときにリストの更新が行われます。

See also:

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

MSX0 Stack での挙動

TREE.BAS をロードして、

実行してみました。

IoT ノードリストが表示されます。

プログラムは〔Ctrl〕+〔Stop〕(リモートコントロールパネルからは〔Ctrl〕+〔F12〕) で中断できます。

Turbo Pascal へ移植

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

TREE.PAS

program TREE;
{$A-}
type
  LibStr = string[255];
{$I SYSUTILS.LIB}
{$I IOT.LIB}
var
  Flg: Boolean;
  procedure GetNodes(Node: LibStr);
  var
    List, Last, p: PItem;
    CC: Integer;
  begin
    if Flg then
      Exit;
    Writeln(Node);
    List := nil;
    CC := IotFindCount(Node);
    IoTFind(Node, List, Last);
    p := List;
    while (p <> nil) and (not Flg) do
    begin
      GetNodes(Node + '/' + p^.Data);
      p := p^.Next;
      Flg := Flg or KeyPressed;
    end;
    ClearListItem(List);
  end;
begin
  Flg := False;
  GetNodes('host');
  GetNodes('device');
  GetNodes('msx');
  GetNodes('conf');
end.