はじめに
『MSX0 Stack』楽しいですね。数十年ぶりに MSX 再入門を果たしました。
CP/M-80 用『Turbo Pascal 3.0』が MSX で使えるのは解って狂喜したのですが、イロイロ触っていると MSX 固有の機能を使うためのライブラリが欲しくなってきます。
MSX-DOS の BDOS は CP/M-80 互換なので Bdos()
で簡単に呼び出せますし、ワークエリアは mem[アドレス]
(や absolute
) で参照できるのですが、肝心の BIOS の機能はインタースロットコールを使わないと呼び出せないので、少々面倒です。折角の Pascal なのに inline 文 (インライン機械語) をゴリゴリ書きたくはないですしね…。
驚いたことに、Turbo Pascal 用の MSX ライブラリはいくつも存在するようです。
MDL-LIB version 2.2
『MDL-LIB version 2.2』 は Martijn Dekker 氏によって作られた『Turbo Pascal 3.0』用 MSX ライブラリです (パブリックドメイン)。すべての BDOS や BIOS が網羅されているわけではありませんが、BDOS や BIOS をあまり意識する事なく MSX の固有機能が使えます。
MDL-LIB はドキュメントやコメントがオランダ語で書かれており、翻訳サイトに通すにしても、そのままテキストエディタで開くと文字化けしてしまうので、ドキュメントを UTF-8 に変換したものを用意しました。ドキュメントは PC で読む前提です (MSX-DOS 上で開かないでください)。
フォルダ | 説明 |
---|---|
DOC | 各ライブラリのドキュメントです |
LIB | ライブラリ (インクルードファイル) です。 Turbo Pascal と同じフォルダにコピーして使います。 |
MDLDEMO | MDL-LIB のデモプログラムです |
leesmij.txt
は英語で言うと README.TXT
です。inleidng.txt
は英語で言うと INTRO.TXT
といったところでしょうか?
MDL-LIB ライブラリの概要
MDL-LIB ライブラリはインクルードファイルの形で用意されています。ファイルの拡張子は *.lib ですが、中身は (Turbo) Pascal のソースファイルです。
program TEST;
{$I MDLLIB.LIB}
{$I VRAM2.LIB}
{$I LOGOROUT.LIB}
begin
...
end;
{$I}
コンパイラ指令を用い、インクルードして使います。
先述のように、MDL-LIB はドキュメントやコメントがオランダ語で書かれているのですが、手続き・関数宣言の仮パラメータがオランダ語で書かれている事があります。例えば色を指定するパラメータの識別子として kleur
が使われています。本記事内では、一瞥して理解できないないようなものは、英語の識別子 (色の例だと Color
) で置き換えてあります。
■ MDLLIB
最初にインクルードすべきライブラリです。他のライブラリで使われるルーチンが含まれています。
ファイル名 | 依存ライブラリ |
---|---|
MDLLIB.LIB |
ルーチン
名前 | 定義 | 説明 |
---|---|---|
Bios() | procedure Bios(adres: integer); | BIOS を呼び出す |
SubRom() | procedure SubRom(adres: integer); | サブ ROM を呼び出す (MSX2 以降) |
BiosMem() | function BiosMem(adres: integer): byte; | 結果を返す BIOS を呼び出す |
CalBas() | procedure CalBas(adres: integer); | BASIC-ROM を呼び出す |
WaitForInt() | procedure WaitForInt; | 次の割り込みまでプログラムを停止 |
型
名前 | 定義 | 説明 |
---|---|---|
LibStr | type LibStr = string[80]; | 文字列描画用。GRAPMSX が使用 |
Reg_pack |
type Reg_pack=record case Boolean of True: AF, BC, DE, HL: integer; False: F, A, C, B, E, D, L, H: byte; end; |
レジスタを定義したレコード |
変数
ワークエリアにマッピングされたシステム変数 (sys_~
) が定義されています。
名前 | 定義 | 説明 |
---|---|---|
LibRegs | var LibRegs : reg_pack absolute $0103; | レジスタ変数 |
sys_textwidth | var sys_textwidth: byte absolute $F3B0; | LINLEN: 現在の画面の 1 行の幅 |
sys_textlines | var sys_textlines: byte absolute $F3B1; | CRTCNT: 現在の画面の行数 |
sys_width0 | var sys_width0: byte absolute $F3AE; | LINL40: SCREEN 0 のときの 1 行の幅 |
sys_width1 | var sys_width1: byte absolute $F3AF; | LINL32: SCREEN 1 のときの 1 行の幅 |
sys_whereX | var sys_whereX: byte absolute $F3DD; | CSRX: カーソルの X 座標 |
sys_whereY | var sys_whereY: byte absolute $F3DC; | CSRY: カーソルの Y 座標 |
sys_timer | var sys_timer: integer absolute $FC9E; | JIFFY: PLAY 文が内部で使用する |
sys_scrmod | var sys_scrmod: byte absolute $FCAF; | SCRMOD: 現在のスクリーンモードの番号 |
sys_forclr | var sys_forclr: byte absolute $F3E9; | FORCLR: 前景色 |
sys_bakclr | var sys_bakclr: byte absolute $F3EA; | BAKCLR: 背景色 |
sys_bdrclr | var sys_bdrclr: byte absolute $F3EB; | BDRCLR: 周辺色 |
sys_cursor | var sys_cursor: boolean absolute $FCA9; | CSRSW: カーソル表示 (0=OFF、0 以外=ON) |
sys_click | var sys_click: :boolean absolute $F3DB; | CLIKSW: キークリックスイッチ (0=OFF、0 以外=ON) |
sys_gxpos | var sys_gxpos: integer absolute $FCB3; | GXPOS: X 座標 |
sys_gypos | var sys_gypos: integer absolute $FCB5; | GYPOS: Y 座標 |
sys_cx | var sys_cx: integer absolute $FCB7; | GRPACX: グラフィックアキュムレータ (X 座標) |
sys_cy | var sys_cy: integer absolute $FCB9; | GRPACY: グラフィックアキュムレータ (Y 座標) |
sys_atrbyt | var sys_atrby: byte absolute $F3F2; | ATRBYT: グラフィック使用時のカラーコード |
sys_dppage | var sys_dppage: byte absolute $FAF5; | DPPAGE: ディスプレイページ番号 (MSX2 以降) |
sys_acpage | var sys_acpage: byte absolute $FAF6; | ACPAGE: アクティブページ番号 (MSX2 以降) |
■ VRAM
VRAM と VDP を操作する基本的なルーチンが含まれています。
ファイル名 | 依存ライブラリ |
---|---|
VRAM1.LIB | MDLLIB.LIB |
VRAM2.LIB (MSX2 以降用) | MDLLIB.LIB |
ルーチン
名前 | 定義 | 説明 |
---|---|---|
ScrMode() | procedure ScrMode(mode: byte); | スクリーンモードを指定する |
TextMode() | procedure TextMode; | 最後に使用したテキスト画面に設定する (SCREEN 0 or 1) |
SetXY() | procedure SetXY(x, y: integer); | グラフィックカーソルを (x, y) に設定する |
SetColor() | procedure SetColor(color: byte); | 文字色を設定する |
Color() | procedure Color(forclr, bakclr, bdrclr: integer); | 前景色、背景色、境界色を設定する |
DefColor() | procedure DefColor(color, R, G, B: byte); | 色を再定義する (MSX2 以降) |
WriteVram() | procedure WriteVram(adres: integer; data: byte); | VRAM に 1 バイト書き込む |
ReadVram() | function ReadVram(adres: integer): byte; | VRAM からに 1 バイト読み出す |
WriteVdp() | procedure WriteVdp(reg, data: byte); | VDP レジスタに書き込む |
ReadVdp() | function ReadVdp(reg: byte): byte; | VDP レジスタから読み出す |
ReadStatus() | function ReadStatus: byte; | VDP ステータスレジスタから読み出す (MSX1) |
ReadStatus() | function ReadStatus(reg: byte): byte; | VDP ステータスレジスタから読み出す (MSX2 以降) |
ReadVramPort() | function ReadVramPort: byte; | VDP 読み取りポートを返す |
WriteVramPort() | function WriteVramPort: byte; | VDP 書き込みポートを返す |
InitCharMode() | procedure InitCharMode(width, char1, char2: byte); | マルチカラー文字モードを設定する |
TranspTable() | function TranspTable: integer; | VRAM アドレスのスプライト透過テーブルを返す |
PattTable() | function PattTable: integer; | VRAM アドレスのスプライトパターンテーブルを返す |
PattTable() | function ColorTable: integer; | VRAM アドレスのスプライトカラーテーブルを返す (MSX2 以降) |
SpriteSize() | procedure SpriteSize(size: byte); | スプライトサイズを設定する |
ClearSprites() | procedure ClearSprites; | すべてのスプライトをクリアする |
変数
名前 | 定義 | 説明 |
---|---|---|
Base | var Base: array [0..19] of integer absolute $F3B3; | VRAM のテーブル |
LeftTextPos | var LeftTextPos: integer absolute $F9F5; | テキスト位置 |
■ GRAPMSX
グラフィック・ルーチンが含まれています。
ファイル名 | 依存ライブラリ |
---|---|
GRAPMSX1.LIB | MDLLIB.LIB |
GRAPMSX2.LIB (MSX2 以降用) | MDLLIB.LIB |
ルーチン
名前 | 定義 | 説明 |
---|---|---|
Draw() | procedure Draw(x1, y1, x2, y2, color: integer); | 線を描画する |
DrawTo() | procedure DrawTo(x, y, color: integer); | 最後の座標から線を描画する |
Plot() | procedure Plot(x, y, color: integer); | 点を描画する |
Ellipse() | procedure Ellipse(x, y, radius, color, startangle, endangle: integer; flattening: real); | 楕円を描画する |
Arc() | procedure Arc(x, y, angle, radius, color: integer); | 円弧を描画する |
Circle() | procedure Circle(x, y, radius, color: integer); | 円を描画する |
GetDotColor() | function GetDotColor(x, y: integer): integer; | 指定された座標の色を得る |
Box() | procedure Box(x1, y1, x2, y2, color: integer); | 四角形を描画する |
FillBox() | procedure FillBox(x1, y1, x2, y2, color: integer); | 四角形を塗りつぶす |
Logical() | procedure Logical(opr: byte); | 描画の際のロジカルオペレーションを指定する (MSX2 以降) |
FillScreen() | procedure FillScreen(color: integer); | 画面全体を塗りつぶす |
Pattern() | procedure Pattern(p : Pattern_Type); | 塗りつぶしパターンを指定する |
FillPattern() | procedure FillPattern(x1, y1, x2, y2, color: integer); | 領域をパターンで塗りつぶす |
Gwrite() | procedure Gwrite(x, y: integer; txt: libstr); | グラフィックス画面にテキストを書き込む |
SetPage() | procedure SetPage(projection, work: byte); | 画面ページを設定する (MSX2 以降) |
GetPic() | procedure GetPic(x1, y1, x2, y2: integer; var buffer); | 領域の画像を変数にコピーする (MSX2 以降) |
PutPic() | procedure PutPic(var buffer; x, y: integer); | 変数に格納された画像を指定座標に描画する (MSX2 以降) |
CopyPic() | procedure CopyPic(x1, y1, x2, y2, sourcepage, xd, yd, destpage:integer); | 指定ページの領域の画像を転送先ページの指定座標に描画する (MSX2 以降) |
Gml() | procedure Gml(commands: libstr); | 任意の図形を描く (グラフィックマクロ言語) |
Logical()
BASIC のものと同じ定数は用意されていないため、値で指定するか、定数を独自に定義します。
BASIC | 値 | 説明 |
---|---|---|
PSET | 0 | 転送する色がそのままの色で表示される。 |
AND | 1 | 転送する色のカラーコードと転送先の色のカラーコードとの間で論理積を行う。 |
OR | 2 | 転送する色のカラーコードと転送先の色のカラーコードとの間で論理和を行う。 |
XOR | 3 | 転送する色のカラーコードと転送先の色のカラーコードとの間で排他的論理和を行う。 |
PRESET (NOT) |
4 | 転送する色のカラーコードの各桁の 0 と 1 を反転させる。転送先のカラーコードは関係しない。 |
TPSET | 8 | 転送する色が、そのままの色で表示される。転送する色に透明があれば透明になる。 |
TAND | 9 | 転送する色のカラーコードと転送先の色のカラーコードとの間で論理積を行う。転送する色に透明があれば透明になる。 |
TOR | 10 | 転送する色のカラーコードと転送先の色のカラーコードとの間で論理和を行う。転送する色に透明があれば透明になる。 |
TXOR | 11 | 転送する色のカラーコードと転送先の色のカラーコードとの間で排他的論理和を行う。転送する色に透明があれば透明になる。 |
TPRESET (TNOT) |
12 | 転送する色のカラーコードの各桁の 0 と 1 を反転させる。転送先のカラーコードは関係しない。転送する色に透明があれば透明になる。 |
型
名前 | 定義 | 説明 |
---|---|---|
Pattern_Type | type Pattern_Type = array [0..7] of byte; | 塗りつぶしパターンを格納する |
■ LOGOROUT
LOGO のタートルグラフィックスルーチンが含まれています。
ファイル名 | 依存ライブラリ |
---|---|
LOGOROUT.LIB | MDLLIB.LIB, VRAM1 (または VRAM2) |
ルーチン
名前 | 定義 | 説明 |
---|---|---|
InitLogo() | procedure InitLogo; | LOGO ルーチンを初期化する |
ClearScreen() | procedure ClearScreen; | 画面を消去し Home() を実行する |
ShowTurtle() | procedure ShowTurtle; | タートルを表示する |
HideTurtle() | procedure HideTurtle; | タートルを非表示にする |
TurtleThere() | function TurtleThere: boolean; | タートルが画面内にいるかを返す |
TurtleDelay() | procedure TurtleDelay(millisec: integer); | 指定ミリ秒待つ |
SetHeading() | procedure SetHeading(angle: integer); | タートルの向きを設定する (0..359) |
Heading() | function Heading: integer; | タートルの向きを返す (0..359) |
TurnLeft() | procedure TurnLeft(angle: integer); | タートルを反時計回りに angle の角度だけ回転させる |
TurnRight() | procedure TurnRight(angle: integer); | タートルを時計回りに angle の角度だけ回転させる |
Home() | procedure Home; | タートルをホームポジションに移動し、北を向かせる |
SetPosition() | procedure SetPosition(x, y: integer); | タートルの位置を設定する |
PenDown() | procedure PenDown; | ペンを下げる |
PenUp() | procedure PenUp; | ペンを上げる |
SetPenColor() | procedure SetPenColor(color: integer); | ペンの色を変える (色は MSX カラーコード) |
ForWd() | procedure ForWd(dist: integer); | タートルを dist の分だけ前進させる |
Back() | procedure Back(dist: integer); | タートルを dist の分だけ後退させる |
定数
名前 | 定義 | 説明 |
---|---|---|
north | const north = 0; | タートルの向き: 北 |
east | const east = 90; | タートルの向き: 東 |
south | const south = 180; | タートルの向き: 南 |
west | const west = 270; | タートルの向き: 西 |
変数
名前 | 定義 | 説明 |
---|---|---|
Correction | var correction: real; | ドットの縦横比を考慮するための補正値 (デフォルト = 1) |
■ GAMEIO
ジョイスティック、パドル、タッチパッド、マウス (MSX2)、ライトペン (MSX2) 用のルーチンが含まれています。
ファイル名 | 依存ライブラリ |
---|---|
GAMEIO.LIB | MDLLIB.LIB |
ルーチン
名前 | 定義 | 説明 |
---|---|---|
Pad() | function Pad(ID: byte): byte; | コントローラの状態を返す |
Strig() | function Strig(ID: byte): boolean; | コントローラのボタンの状態を返す |
Stick() | function Stick(ID: byte): byte; | コントローラの向きの状態を返す |
PAD()
・グラフィックタブレット/タッチパッド
ポート #1 | ポート #2 | 説明 |
---|---|---|
0 | 4 | タッチパッドに触れていれば -1、触れていなければ 0 |
1 | 5 | タッチパッドに触れた時の X 座標 |
2 | 6 | タッチパッドに触れた時の Y 座標 |
3 | 7 | タッチパッドのスイッチが押されていれば -1、押されていなければ 0 |
・マウス/トラックボール
ポート #1 | ポート #2 | 説明 |
---|---|---|
12 | 16 | マウス/トラックボールに対する入力要求 (常に -1 を返す) |
13 | 17 | マウス/トラックボールの X 座標 |
14 | 18 | マウス/トラックボールの Y 座標 |
15 | 19 | 予約 (常に 0 を返す) |
・ライトペン
MSX1 内蔵 または外部 |
MSX2 内蔵 | 説明 |
---|---|---|
8 | 20 | ライトペンの準備ができていれば -1、できていなければ 0 |
9 | 21 | ライトペンの X 座標 |
10 | 22 | ライトペンの Y 座標 |
11 | 23 | ライトペンのスイッチが押されていれば -1、押されていなければ 0 |
Strig()
・パラメータ
ポート #1 | ポート #2 | 説明 |
---|---|---|
1 | 2 | コントローラーのボタン 1 |
3 | 4 | コントローラーのボタン 2 |
※ 0 はスペースキーの状態を返す。
・結果
コントローラーのボタンが押されていれば -1 を、押されていなければ 0 を返す。
Stick()
・パラメータ
ID | 説明 |
---|---|
0 | カーソルキー |
1 | ポート #1 のコントローラー |
2 | ポート #2 のコントローラー |
・結果
結果 | 説明 |
---|---|
0 | ニュートラル |
1 | 上 |
2 | 右上 |
3 | 右 |
4 | 右下 |
5 | 下 |
6 | 左下 |
7 | 左 |
8 | 左上 |
GAME
というより、入力装置関連ですね。
■ SOUNDS
サウンド用のルーチンが含まれています。
ファイル名 | 依存ライブラリ |
---|---|
SOUNDS.LIB | MDLLIB.LIB |
ルーチン
名前 | 定義 | 説明 |
---|---|---|
WritePsg() | procedure WritePsg(reg, data: byte); | PSG レジスタに書き込む |
ReadPsg() | function ReadPsg(reg: byte): byte; | PSG レジスタから読み出す |
Tone() | procedure Tone(channel: byte; Hz: integer); | トーンを設定する (channel = 0..2, Hz >= 28) |
Noise() | procedure Noise(height: byte); | ノイズを設定する (0..31) |
Volume() | procedure Volume(channel, vol: byte); | 音量を設定 (channel = 0..2, vol = 0..15) |
Effect() | procedure Effect(channels: SetOfChannel; Num: byte; time: integer); | チャンネルにエフェクトを設定 |
SwitchSound() | procedure SwitchSound(tchannels, nchannels: SetOfChannel); | トーンとノイズをチャンネル毎に ON/OFF する |
ResetPsg() | procedure ResetPsg; | PSG をリセットする |
SetClick() | procedure SetClick(status: boolean); | 1 ビット I/O ポートのステータスを変更する |
Effect()
型
名前 | 定義 | 説明 |
---|---|---|
SetOfChannel | type SetOfChannel = set of 0..2; | チャンネルの集合 |
■ DISKTOOL
ディスク操作用のルーチンが含まれています。
ファイル名 | 依存ライブラリ |
---|---|
DISKTOOL.LIB | MDLLIB.LIB |
ルーチン
名前 | 定義 | 説明 |
---|---|---|
MsxBdos() | procedure MsxBdos; | MSX-BDOS を呼び出す |
SetDrive() | procedure SetDrive(drive: byte); | ドライブを設定する (0=カレントドライブ) |
LoggedDrive() | procedure LoggedDrive: byte; | カレントドライブ番号を返す |
ReadSector() | procedure ReadSector(drive: byte; start: integer; num: byte; var sectoren); | ディスクからセクタを読み出す |
WriteSector() | procedure WriteSector(drive: byte; start: integer; num: byte; var sectoren); | セクタをディスクに書き込む |
SearchFirst() | function SearchFirst(var FCB; var info): boolean; | 最初のファイルを検索する |
SearchNext() | function SearchNext(var info): boolean; | 次のファイルを検索する |
Dskf() | procedure Dskf(drive: byte): integer; | 指定したドライブ番号の空きディスク容量を KB 単位で返す |
■ TAPE
カセットレコーダー (CMT) 操作用のルーチンが含まれています。
ファイル名 | 依存ライブラリ |
---|---|
TAPE.LIB | MDLLIB.LIB |
ルーチン
名前 | 定義 | 説明 |
---|---|---|
TapeRead() | procedure TapeRead(var buffer; len: integer; var success: boolean); | カセットからブロックを読み出す |
Motor() | procedure Motor(status: byte); | カセットのモーターを制御する (0=停止, 1=巻き戻し, 255=モーター状態の反転) |
Baud() | procedure Baud(rate: integer); | カセットのボーレートを設定する (600 刻みで 600..3600) |
DriveOff() | procedure DriveOff; | |
OpenCasOutput() | procedure OpenCasOutput(name: libstr; var success: boolean); | 出力用に ASCII ファイルを開く |
WriteToCas() | procedure WriteToCas(wrstr: libstr; var success: boolean); | ASCII ファイルに書き込む |
CloseCasOutput() | procedure CloseCasOutput(var success: boolean); | 出力 ASCII ファイルを閉じる |
OpenCasInput() | procedure OpenCasInput(var name: libstr; var success: boolean); | 入力用に ASCII ファイルを開く |
ReadFromCas() | procedure ReadFromCas(var rdstr: libstr; var success: boolean; var eof: boolean); | ASCII ファイルから読み出す |
カセットからファイルを検索する例です。
procedure FindFile(name: libstr; var success: boolean);
{ 'name' という名前の ASCII ファイルをテープから検索します。
見つかった場合は自動的に開きます。}
var
found_name: libstr;
begin
repeat
OpenCasInput(found_name, success);
if success then
if found_name <> name then
write('Skip :')
else
write('Found:');
writeLn(found_name);
until (found_name = name) or (not success);
end;
入力用 ASCII ファイルを閉じる必要はありません。
■ DATA
補助変数なしで 2 つの変数の内容を交換する VarSwap()
と、配列を高速にソートできる Sort()
が含まれています。
ファイル名 | 依存ライブラリ |
---|---|
DATA.LIB | MDLLIB.LIB |
ルーチン
名前 | 定義 | 説明 |
---|---|---|
VarSwap() | procedure VarSwap(var var1; var var2; size: integer); | 2 つの変数の内容を交換する |
Sort() | procedure Sort(var data; NumOfRecords, size, funcaddr: integer); | 配列を高速にソートする |
VarSwap()
の使用例を次に示します。
var a, b: real;
VarSwap(a, b, SizeOf(real));
Sort()
の使用例を次に示します。
var
tabel: array [1..100] of real;
function Compare_real(var var1, var2: real): boolean;
begin
Compare_real := (var1 >= var2)
end; { Compare_real }
begin
...
Sort(tabel, 100, SizeOf(real), Addr(Compare_real));
...
end.
■ MISC
その他の分類しにくいルーチンです。
ファイル名 | 依存ライブラリ |
---|---|
MISC.LIB | MDLLIB.LIB |
ルーチン
名前 | 定義 | 説明 |
---|---|---|
MSXversion() | function MSXversion: byte; | MSX のバージョンを返す |
Beep() | procedure Beep; | Beep を鳴らす |
OnLine() | function OnLine: boolean; | プリンタがオンラインかどうかを返す |
CtrlStop() | function CtrlStop: boolean; | 〔Ctrl〕+〔Stop〕 が押されているかどうかを返す |
Key() | procedure Key(st: boolean); | ファンクションキーの表示を設定する |
DefKey() | procedure DefKey(number: integer; text: LibStr); | ファンクションキーにテキストを割り当てる |
ShowPrompt() | procedure ShowPrompt; | BASIC のプロンプトを表示する (MSX2 以降) |
ResetScreen() | procedure ResetScreen; | BASIC の SET SCREEN で設定した値を元に画面をリセットする (MSX2 以降) |
ClrEos() | procedure ClrEos; | カーソル位置から画面下までをクリアします |
ClrY() | procedure ClrY(y1, y2: byte); | y1 行から y2 行までをクリアします |
KillBuffer() | procedure KillBuffer; | キーボードバッファをクリアします |
Screen() | procedure Screen(st: boolean); | 画面を ON/OFF します |
SetAdjust() | procedure SetAdjust(x, y: integer); | 画面位置を調整します |
FormatNumber() | function FormatNumber(number: real; commas, asterisk, dollar, plus, sign, exp: boolean; digits, decimals: byte): libStr; | 数値をフォーマットした文字列で返す |
MSXversion()
定数は用意されていません。
機種 | 値 |
---|---|
MSX1 | 1 |
MSX2 | 2 |
MSX2+ | 3 |
MSXturboR | 4 |
■ MSXUTILS
個人的に必要そうなものを MSXUTILS.LIB
として別途定義します。アーカイブには含まれていません。
ファイル名 | 依存ライブラリ |
---|---|
MSXUTILS.LIB | MDLLIB.LIB |
(*
MSXUTILS.LIB
*)
type
TQCB = record
POffset: byte;
GOffset: byte;
Backup: byte;
QueLen: byte;
QueAddr: integer;
end;
const
QCBInit: TQCB = (POffset:$ff;GOffset:0;Backup:0;QueLen:$ff;QueAddr:0);
NullPlayData: array [0..1] of byte = ($00, $ff);
var
sys_quetab: array [0..3] of TQCB absolute $F959;
sys_musicf: byte absolute $FB3F;
sys_plycnt: byte absolute $FB40;
sys_oldkey: array [0..10] of byte absolute $FBDA;
sys_newkey: array [0..10] of byte absolute $FBE5;
sys_kanamd: byte absolute $FCAD; { Key layout }
{ Play MML Intermediate Code }
procedure Play(Cnt: byte);
begin
sys_plycnt := Cnt;
Bios($0099);
end;
{ Sense the key matrix }
function SenseKB(row: byte): byte;
begin
libregs.A := row;
Bios($0141);
SenseKB := libregs.A
end;
ルーチン
名前 | 定義 | 説明 |
---|---|---|
SenseKB() | function SenseKB(row: byte): byte; | キースキャンを行う |
Play() | procedure Play(Cnt: byte); | MML 中間形式データを再生する |
型
名前 | 定義 | 説明 |
---|---|---|
TQCB |
type TQCB = record POffset: byte; GOffset: byte; Backup: Byte; QueLen: Byte; QueAddr: Integer; end; |
キューコントロールブロックレコード |
定数
名前 | 定義 | 説明 |
---|---|---|
QCBInit | const QCBInit: TQCB = (POffset:\$ff;GOffset:0;Backup:0;QueLen:\$ff;QueAddr:0); | QCB レコード初期化用定数 |
NullPlayData | const NullPlayData: array [0..1] of byte = (\$00, \$ff); | 空の再生データ |
変数
名前 | 定義 | 説明 |
---|---|---|
sys_quetab | var sys_quetab: array [0..3] of TQCB absolute $F959; | QUETAB: キューテーブル |
sys_musicf | var sys_musicf: byte absolute $FB3F; | KANAMD: 音楽演奏用の割り込みフラグ |
sys_plycnt | var sys_plycnt: byte absolute $FB40; | MUSICF: キューされている PLAY 文の数 |
sys_oldkey | var sys_oldkey: array [0..10] of byte absolute $FBDA; | OLDKEY: 旧キーの状態 |
sys_newkey | var sys_newkey: array [0..10] of byte absolute $FBE5; | NEWKEY: 新キーの状態 |
sys_kanamd | var sys_kanamd: byte absolute $FCAD; | KANAMD: キー配列 (0=五十音配列, 0以外=JIS配列) |
サンプル
ドレミを鳴らします。sys_musicf
を見て再生中でなければキューテーブルに再生データ情報を書き込んで Play()
で鳴らします。再生データは一つだけなのでパラメータに 1 を渡しています。
program PLAYTEST;
{$I MDLLIB.LIB}
{$I MSXUTILS.LIB}
const
PlayData: array [0..16] of byte =
($00,
$60,$1e,$88,$01,$ac,
$60,$1e,$88,$01,$7d,
$60,$1e,$88,$01,$53,
$ff
);
begin
while sys_musicf <> 0 do;
sys_quetab[0] := QCBinit;
sys_quetab[0].QueAddr := Addr(PlayData);
sys_quetab[1] := QCBinit;
sys_quetab[1].QueAddr := Addr(NullPlayData);
sys_quetab[2] := QCBinit;
sys_quetab[2].QueAddr := Addr(NullPlayData);
Play(1);
end.
MSXUTILS.LIB は予告なく変更になる事があります。
■ EXTBIOS
拡張 BIOS 関連を EXTBIOS.LIB
として別途定義します。アーカイブには含まれていません。
ファイル名 | 依存ライブラリ |
---|---|
EXTBIOS.LIB | MDLLIB.LIB |
(*
EXTBIOS.LIB
*)
procedure ExtBios;
var
raf : integer absolute $0103;
rbc : integer absolute $0105;
rde : integer absolute $0107;
rhl : integer absolute $0109;
begin
inline($2A/raf/ { LD HL,(raf) }
$E5/ { PUSH HL }
$F1/ { POP AF }
$ED/$4B/rbc/ { LD BC,(rbc) }
$ED/$5B/rde/ { LD DE,(rde) }
$2A/rhl/ { LD HL,(rhl) }
$CD/$CA/$FF/ { CALL EXTBIO }
$ED/$43/rbc/ { LD (rbc),BC }
$ED/$53/rde/ { LD (rde),DE }
$22/rhl/ { LD (rhl),HL }
$F5/ { PUSH AF }
$E1/ { POP HL }
$22/raf); { LD (raf),HL }
end;
function GetKMode: Byte;
begin
LibRegs.D := $11;
LibRegs.E := $00;
LibRegs.A := $FF;
ExtBios;
GetKMode := LibRegs.A;
end;
procedure SetKMode(Mode: Byte);
begin
if not (Mode in [0..4]) then
Mode := 0;
LibRegs.D := $11;
LibRegs.E := $01;
LibRegs.A := Mode;
ExtBios;
end;
ルーチン
名前 | 定義 | 説明 |
---|---|---|
ExtBios() | procedure ExtBios; | 拡張 BIOS を呼び出す |
GetKMode() | function GetKMode; | 現在の漢字モードを返す。0xFF が返った場合には漢字ドライバが読み込まれていない |
SetKMode() | procedure SetKMode(Mode: byte); | 漢字モードを設定する |
EXTBIOS.LIB は予告なく変更になる事があります。
トランジェントコマンド
本記事にあるライブラリを用いて作られたトランジェントコマンド (外部コマンド) です。アーカイブには実行形式ファイル (*.COM
) とソースファイル (*.PAS
) が含まれています。
MSX-DOS2 上でコンパイルされているため、少なくとも MSX0 上で動作しない事はないと思います (MSX-DOS の方が TPA の空き領域が広いため、MSX-DOS 上でそのままコンパイルすると MSX-DOS2 で動作しない事があり得る)。
記事中のトランジェントコマンドのソースコード/バイナリは GitHub からもダウンロードできます。
■ M0SETCLR
前景色、背景色、ボーダー色を設定する。
Usage: M0SETCLR [/Fnum] [/Bnum] [/Dnum]
- パラメータなしで実行すると、現在の設定を表示します。
- スイッチは
-
でも/
でもよく、大文字/小文字も判断しません。 - 無効なスイッチは無視されます。
Download: M0SetClr_100.zip (ht-deko.com)
おわりに
Delphi 使いはニッコリかもですね。Turbo Pascal 自身が持つルーチンについては次の記事を参考にしてください。
車輪の再発明をせず、アプリケーションのためのコードだけを書けばいいって幸せですね。MDL-LIB の作者に感謝です。
See also: