69 lines
1.8 KiB
ObjectPascal
69 lines
1.8 KiB
ObjectPascal
{$keep 'Sequencer'}
|
|
unit Sequencer;
|
|
interface
|
|
|
|
{********************************************************
|
|
*
|
|
* Note Sequencer Interface File
|
|
*
|
|
* Other USES Files Needed: Common
|
|
*
|
|
* Other Tool Sets Needed: Tool Locator, Memory Manager
|
|
*
|
|
* Copyright 1987-1992
|
|
* By the Byte Works, Inc.
|
|
* All Rights Reserved
|
|
*
|
|
*********************************************************}
|
|
|
|
uses
|
|
Common;
|
|
|
|
procedure SeqBootInit; tool ($1A, $01); (* WARNING: an application should
|
|
NEVER make this call *)
|
|
|
|
procedure SeqStartup (dPageAddr, mode, updateRate, increment: integer);
|
|
tool ($1A, $02);
|
|
|
|
procedure SeqShutdown; tool ($1A, $03);
|
|
|
|
function SeqVersion: integer; tool ($1A, $04);
|
|
|
|
procedure SeqReset; tool ($1A, $05); (* WARNING: an application should
|
|
NEVER make this call *)
|
|
|
|
function SeqStatus: boolean; tool ($1A, $06);
|
|
|
|
function ClearIncr: integer; tool ($1A, $0A);
|
|
|
|
(* The function GetLoc returns 3 words: *)
|
|
(* curPhraseItem, curPattItem, and curLevel *)
|
|
(* function GetLoc: 3 words; tool ($1A, $0C); *)
|
|
|
|
function GetTimer: integer; tool ($1A, $0B);
|
|
|
|
procedure SeqAllNotesOff; tool ($1A, $0D);
|
|
|
|
procedure SetIncr (increment: integer); tool ($1A, $09);
|
|
|
|
procedure SetInstTable (instTable: handle); tool ($1A, $12);
|
|
|
|
procedure SetTrkInfo (priority, instIndex, trackNum: integer); tool ($1A, $0E);
|
|
|
|
procedure StartInts; tool ($1A, $13);
|
|
|
|
procedure StartSeq (errHndlrRoutine, compRoutine: procPtr; sequence: univ handle);
|
|
tool ($1A, $0F);
|
|
|
|
procedure StartSeqRel (errHndlrRtn, compRtn: procPtr; sequence: univ handle);
|
|
tool ($1A, $15);
|
|
|
|
procedure StepSeq; tool ($1A, $10);
|
|
|
|
procedure StopInts; tool ($1A, $14);
|
|
|
|
procedure StopSeq (next: boolean); tool ($1A, $11);
|
|
|
|
implementation
|
|
end.
|