Subversion Repositories svn.mios

Rev

Rev 880 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 880 Rev 1122
Line 1... Line 1...
1
; $Id: sid_midi_m.inc 880 2010-01-03 20:59:49Z tk $
1
; $Id: sid_midi_m.inc 1122 2013-04-20 12:37:28Z tk $
2
;
2
;
3
; MIDIbox SID
3
; MIDIbox SID
4
; MIDI Interface part for Multi Engine
4
; MIDI Interface part for Multi Engine
5
;
5
;
6
; ==========================================================================
6
; ==========================================================================
Line 269... Line 269...
269
	movlw	SID_MVx_MIDI_CHANNEL
269
	movlw	SID_MVx_MIDI_CHANNEL
270
	movf	PLUSW0, W
270
	movf	PLUSW0, W
271
	cpfseq	SID_CURRENT_CHANNEL, BANKED
271
	cpfseq	SID_CURRENT_CHANNEL, BANKED
272
	rgoto SID_MIDI_M_CC_Loop_Next
272
	rgoto SID_MIDI_M_CC_Loop_Next
273
273
274
	;; if CC#06 (NRPN data LSB) received, forward to parameter handler
274
	;; if CC#06 (NRPN data MSB) received, forward to parameter handler
275
	movlw	0x06
275
	movlw	0x06
276
	cpfseq	SID_MIDI_PARAMETER1, BANKED
276
	cpfseq	SID_MIDI_PARAMETER1, BANKED
277
	rgoto SID_MIDI_M_CC_NoNRPNDataH
277
	rgoto SID_MIDI_M_CC_NoNRPNDataH
278
SID_MIDI_M_CC_NRPNDataH
278
SID_MIDI_M_CC_NRPNDataH
279
	;; prepare MIOS_PARAMETER3 (selection options)
279
	;; prepare MIOS_PARAMETER3 (selection options)
Line 288... Line 288...
288
	cpfseq	SID_MIDI_PARAMETER1, BANKED
288
	cpfseq	SID_MIDI_PARAMETER1, BANKED
289
	rgoto SID_MIDI_M_CC_Not64
289
	rgoto SID_MIDI_M_CC_Not64
290
SID_MIDI_M_CC_64
290
SID_MIDI_M_CC_64
291
	;; TODO: not supported yet
291
	;; TODO: not supported yet
292
SID_MIDI_M_CC_Not64
292
SID_MIDI_M_CC_Not64
-
 
293

-
 
294
	;; handle remaining CCs
-
 
295
	swapf	SID_CURRENT_MIDIVOICE, W, BANKED	; expecting instrument in MIOS_PARAMETER3[6:4]
-
 
296
	andlw	0xf0
-
 
297
	movwf	MIOS_PARAMETER3
-
 
298
	call	SID_CC_TABLE_Set
293

299
294
SID_MIDI_M_CC_Loop_Next
300
SID_MIDI_M_CC_Loop_Next
295
	movlw	SID_MVx_RECORD_LEN
301
	movlw	SID_MVx_RECORD_LEN
296
	addwf	FSR0L, F
302
	addwf	FSR0L, F
297
	incf	SID_CURRENT_MIDIVOICE, F, BANKED
303
	incf	SID_CURRENT_MIDIVOICE, F, BANKED