はじめに

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

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

PERFORMC.BAS

◆負荷測定

項目	説明
概要	仮想 Z80 の周波数を振ってオーバークロック余力を測定します。
ファイル名	PERFORMC.BAS
対応デバイス
コメント	SCREEN モードや、ネットワーク機能利用時など使用状況に影響を受けます。

See also:

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

MSX0 Stack での挙動

PERFORMC.BAS をロードして、

実行してみました。

240% までクロックアップしながら負荷測定を行います。OVER が表示され負荷が 100% を超えると処理が追い付いていない事を意味します。逆に言うと、負荷が 100% を超えない範囲ならクロックアップが可能という事になります。

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

Turbo Pascal へ移植

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

INFO.PAS

program PERFORMC;
{$I MDLLIB.LIB}
{$I VRAM2.LIB}
{$I SYSUTILS.LIB}
{$I IOT.LIB}
label
  JP;
type
  Str4 = string[4];
const
  OVSTR: array [Boolean] of Str4 = ('', 'OVER');
var
  S: Byte;
  I, P, W: Integer;
begin
  S := sys_scrmod;
  ScrMode(1);
  Writeln;
  Writeln('**** PERFORMANCE CHECK ****');
  Writeln;
  I := 0;
  repeat
    I := I + 20;
    IoTPutInt('msx/me/pm/cpu/percent', I);
    write('Z80:', I:3, '% ');
    for W:=0 to 2 do
    begin
      Delay(I * 10);
      if KeyPressed then
        goto JP;
      write('-');
    end;
    P := IoTGetInt('msx/me/pm/cpu/load');
    Writeln(' LOAD:', P:3, '% ', OVSTR[P > 100]);
  until I >= 280;
  Writeln;
  Writeln('Press any key.');
  while not KeyPressed do
    ;
JP:
  IoTPutInt('msx/me/pm/cpu/percent', 100);
  ScrMode(S);
end.