54 lines
1.5 KiB
ObjectPascal
54 lines
1.5 KiB
ObjectPascal
{$keep 'MIDI'}
|
|
unit MIDI;
|
|
interface
|
|
|
|
{********************************************************
|
|
*
|
|
* MIDI Tool Set Interface File
|
|
*
|
|
* Other USES Files Needed: Common
|
|
*
|
|
* Other Tool Sets Needed: Tool Locator, Memory Manager;
|
|
* Sound Manager, Note Synthesizer,
|
|
* Note Sequencer (if using Synthesizer
|
|
* or Sequencer)
|
|
*
|
|
* Copyright 1987-1990
|
|
* By the Byte Works, Inc.
|
|
* All Rights Reserved
|
|
*
|
|
*********************************************************}
|
|
|
|
uses
|
|
Common;
|
|
|
|
procedure MidiBootInit; tool ($20, $01); (* WARNING: an application should
|
|
NEVER make this call *)
|
|
|
|
procedure MidiStartup (theUserID, directPageAddr: integer); tool ($20, $02);
|
|
|
|
procedure MidiShutdown; tool ($20, $03);
|
|
|
|
function MidiVersion: integer; tool ($20, $04);
|
|
|
|
procedure MidiReset; tool ($20, $05); (* WARNING: an application should
|
|
NEVER make this call *)
|
|
|
|
function MidiStatus: boolean; tool ($20, $06);
|
|
|
|
procedure MidiClock (funcNum: integer; arg: longint); tool ($20, $0B);
|
|
|
|
procedure MidiControl (funcNum: integer; arg: longint); tool ($20, $09);
|
|
|
|
procedure MidiDevice (funcNum: integer; driverInfo: ptr); tool ($20, $0A);
|
|
|
|
function MidiInfo (funcNum: integer): longint; tool ($20, $0C);
|
|
|
|
function MidiReadPacket (bufPtr: ptr; bufSize: integer): integer;
|
|
tool ($20, $0D);
|
|
|
|
function MidiWritePacket (bufPtr: ptr): integer; tool ($20, $0E);
|
|
|
|
implementation
|
|
end.
|