home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Sound Sensations!
/
sound_sensations.iso
/
midifile
/
edit201
/
mt32pat.tem
< prev
next >
Wrap
Text File
|
1991-01-06
|
3KB
|
108 lines
; Edit 2.0
; Template for Roland MT-32 - Preset Patch
;
; Screen definition
.SCREEN
.VIDEO
;@MODE 0 ;Remove the comment on this line for monochrome monitors
.ENDVIDEO
.LITERALS
03,01,"Preset Number...:"
04,01,"Timbre Group....:"
05,01,"Timbre Number...:"
06,01,"Key Shift.......:"
07,01,"Fine Tune.......:"
08,01,"Bender Range....:"
09,01,"Assign Mode.....:"
10,01,"Reverb Mode.....:"
.ENDLITERALS
.FIELDS
001,03,20,D,03,01,00,0,127 ; Preset Number
002,04,22,D,01,02,00,0,3 ; Timbre Group
@VALID 04,20,0,0:"A PROM",1:"B PROM",2:"Memory",3:"Rhythm"
003,05,21,D,02,03,00,0,63 ; Timbre Number
004,06,21,D,02,04,00,0,48 ; Key Shift
005,07,20,D,03,05,00,0,100 ; Fine Tune
006,08,21,D,02,06,00,0,24 ; Bender Range
007,09,22,D,01,07,00,0,3 ; Assign Mode
@VALID 09,20,0,0:"poly 1",1:"poly 2",2:"poly 3",3:"poly 4"
008,10,22,D,01,08,00,0,1 ; Reverb Mode
@VALID 10,20,0,0:"No reverb",1:"Reverb"
.ENDFIELDS
.MESSAGES
01,"Preset Number (0 to 127)"
02,"Timbre Group (0 to 3)"
03,"Timbre Number (0 to 63)"
04,"Key Shift (0 to 48)"
05,"Fine Tune (0 to 100)"
06,"Bender Range (0 to 24)"
07,"Assign Mode (0 to 3)"
08,"Reverb Mode (0 to 1)"
.ENDMESSAGES
.ENDSCREEN
; Data Definition
.DATA
.FILE
18,SYX
.ENDFILE
.RECORD
@LENGTH 18
000,CO,01,240 ; $F0
001,CO,01,065 ; $41
002,CO,01,016 ; $10 ; Device number - forced to 17 for now
003,CO,01,022 ; $16
004,CO,01,018 ; $12
005,CO,01,005 ; $05
006,HX,02,001,5,3 ; Preset Number (shifted left 3 to get address)
008,HX,01,002 ; Timbre Group
009,HX,01,003 ; Timbre Number
010,HX,01,004 ; Key Shift
011,HX,01,005 ; Fine Tune
012,HX,01,006 ; Bender Range
013,HX,01,007 ; Assign Mode
014,HX,01,008 ; Reverb Mode
015,CO,01,000 ; $00
016,CS,01,02,005,015,128 ; Checksum: Type 2, from 5 to 15, root = 128
017,CO,01,247 ; $F7
.ENDRECORD
.ENDDATA
; MIDI Definition
.MIDI
.DUMPREQ
@LENGTH 13
000,CO,01,240 ; $F0
001,CO,01,065 ; $41
002,HX,01,000,031,"Device ID (0 to 31)"
003,CO,01,022 ; $16
004,CO,01,017 ; $11
005,CO,01,005 ; $05
006,HX,02,000,127,"Patch Number",5,3 ; (shifted left 3)
008,CO,01,000 ; $00
009,CO,01,000 ; $00
010,CO,01,008 ; $08
011,CS,01,02,005,010,128 ; Checksum: Type 2, from 5 to 10, root = 128
012,CO,01,247 ; $F7
.ENDDUMPREQ
.ENDMIDI