 SUBT Exported MIDI constants ; => &.Hdr.MIDI

OldOpt SETA {OPT}
 OPT OptNoList+OptNoP1List

 ^ 0

SWIClass SETS "MIDI"
 ^ Module_SWISystemBase + MIDISWI * Module_SWIChunkSize

 AddSWI SoundEnable
 AddSWI SetMode
 AddSWI SetTxChannel
 AddSWI SetTxActiveSensing
 AddSWI InqSongPositionPointer
 AddSWI InqTxBufferSize
 AddSWI InqError
 AddSWI RxByte
 AddSWI RxCommand
 AddSWI TxByte
 AddSWI TxCommand
 AddSWI TxNoteOff
 AddSWI TxNoteOn
 AddSWI TxPolyKeyPressure
 AddSWI TxControlChange
 AddSWI TxLocalControl
 AddSWI TxAllNotesOff
 AddSWI TxOmniModeOff
 AddSWI TxOmniModeOn
 AddSWI TxMonoModeOn
 AddSWI TxPolyModeOn
 AddSWI TxProgramChange
 AddSWI TxChannelPressure
 AddSWI TxPitchWheel
 AddSWI TxSongPositionPointer
 AddSWI TxSongSelect
 AddSWI TxTuneRequest
 AddSWI TxStart
 AddSWI TxContinue
 AddSWI TxStop
 AddSWI TxSystemReset
 AddSWI IgnoreTiming

 OPT OldOpt

 END
