mirror of
https://github.com/mrkite/regs.git
synced 2024-09-07 11:54:25 +00:00
110 lines
1.8 KiB
Plaintext
110 lines
1.8 KiB
Plaintext
SeqCommand enum<int32> {
|
|
pitchBend = $0000,
|
|
tempo = $0001,
|
|
turnNotesOff = $0002,
|
|
jump = $0003,
|
|
setVibratoDepth = $0004,
|
|
programChange = $0005,
|
|
setRegister = $0006,
|
|
ifGo = $0007,
|
|
incRegister = $0008,
|
|
decRegister = $0009,
|
|
midiNoteOff = $000a,
|
|
midiNoteOn = $000b,
|
|
midiPolyKey = $000c,
|
|
midiCtlChange = $000d,
|
|
midiProgChange = $000e,
|
|
midiChnlPress = $000f,
|
|
midiPitchBend = $0010,
|
|
midiSelChnlMode = $0011,
|
|
midiSysExclusive = $0012,
|
|
midiSysCommon = $0013,
|
|
midiSysRealTime = $0014,
|
|
midiSetSysExl = $0015,
|
|
commandMask = $007f,
|
|
chord = $0080,
|
|
toneMask = $7f00,
|
|
noteMask = $8000,
|
|
durationMask = $07ff0000,
|
|
trackMask = $78000000,
|
|
delayMask = $80000000,
|
|
}
|
|
|
|
SeqErr enum<int16> {
|
|
noRoomMidiErr = $1a00,
|
|
noCommandErr = $1a01,
|
|
noRoomErr = $1a02,
|
|
startedErr = $1a03,
|
|
noNoteErr = $1a04,
|
|
noStartErr = $1a05,
|
|
instBndsErr = $1a06,
|
|
nsWrongVer = $1a07,
|
|
}
|
|
|
|
LocRecHndl = ^LocRecPtr;
|
|
LocRecPtr = ^LocRec;
|
|
LocRec struct {
|
|
curPhraseItem: int16;
|
|
curPattItem: int16;
|
|
curLevel: int16;
|
|
}
|
|
|
|
SeqBootInit() {
|
|
$1a, $01
|
|
}
|
|
SeqStartUp(dPageAddr: int16, mode: int16, updateRate: int16, increment: int16) {
|
|
$1a, $02
|
|
}
|
|
SeqShutDown() {
|
|
$1a, $03
|
|
}
|
|
SeqVersion(): int16 {
|
|
$1a, $04
|
|
}
|
|
SeqReset() {
|
|
$1a, $05
|
|
}
|
|
SeqStatus(): bool {
|
|
$1a, $06
|
|
}
|
|
SeqAllNotesOff() {
|
|
$1a, $0d
|
|
}
|
|
ClearIncr() {
|
|
$1a, $0a
|
|
}
|
|
GetLoc(): ^LocRec {
|
|
$1a, $0c
|
|
}
|
|
GetTimer(): int16 {
|
|
$1a, $0b
|
|
}
|
|
SetIncr(increment: int16) {
|
|
$1a, $09
|
|
}
|
|
SetInstTable(instTable: Handle) {
|
|
$1a, $12
|
|
}
|
|
SetTrkInfo(priority: int16, instIndex: int16, trackNum: int16) {
|
|
$1a, $0e
|
|
}
|
|
StartInts() {
|
|
$1a, $13
|
|
}
|
|
StartSeq(errHndlrRoutine: VoidProcPtr, compRoutine: VoidProcPtr,
|
|
sequence: Handle) {
|
|
$1a, $0f
|
|
}
|
|
StepSeq() {
|
|
$1a, $10
|
|
}
|
|
StopInts() {
|
|
$1a, $14
|
|
}
|
|
StopSeq(next: int16) {
|
|
$1a, $11
|
|
}
|
|
StartSeqRel(errHandlerPtr: ProcPtr, compRoutine: ProcPtr, sequence: Handle) {
|
|
$1a, $15
|
|
}
|