Subversion Repositories svn.mios

Rev

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

Rev 881 Rev 1122
Line 1... Line 1...
1
; $Id: sid_midi_d.inc 881 2010-01-09 17:39:42Z tk $
1
; $Id: sid_midi_d.inc 1122 2013-04-20 12:37:28Z tk $
2
;
2
;
3
; MIDIbox SID
3
; MIDIbox SID
4
; MIDI Interface part for Drum Engine
4
; MIDI Interface part for Drum Engine
5
;
5
;
6
; ==========================================================================
6
; ==========================================================================
Line 228... Line 228...
228
	;; exit if MIDI channel doesn't match (only check for first MIDI voice)
228
	;; exit if MIDI channel doesn't match (only check for first MIDI voice)
229
	movff	SID_MV1_BASE + SID_MVx_MIDI_CHANNEL, WREG
229
	movff	SID_MV1_BASE + SID_MVx_MIDI_CHANNEL, WREG
230
	cpfseq	SID_CURRENT_CHANNEL, BANKED
230
	cpfseq	SID_CURRENT_CHANNEL, BANKED
231
	rgoto SID_MIDI_D_End
231
	rgoto SID_MIDI_D_End
232
232
233
	;; if CC#06 (NRPN data LSB) received, forward to parameter handler
233
	;; if CC#06 (NRPN data MSB) received, forward to parameter handler
234
	movlw	0x06
234
	movlw	0x06
235
	cpfseq	SID_MIDI_PARAMETER1, BANKED
235
	cpfseq	SID_MIDI_PARAMETER1, BANKED
236
	rgoto SID_MIDI_D_CC_NoNRPNDataH
236
	rgoto SID_MIDI_D_CC_NoNRPNDataH
237
SID_MIDI_D_CC_NRPNDataH
237
SID_MIDI_D_CC_NRPNDataH
238
	;; prepare MIOS_PARAMETER3 (selection options)
238
	;; prepare MIOS_PARAMETER3 (selection options)
239
	clrf	MIOS_PARAMETER3		; (L/R selection done in NRPN function)
239
	clrf	MIOS_PARAMETER3		; (L/R selection done in NRPN function)
240
	;; (current instrument in MIOS_PARAMETER3[7:4] always 0 - thats ok, as all parameters are accessible with alternative number
240
	;; (current instrument in MIOS_PARAMETER3[7:4] always 0 - thats ok, as all parameters are accessible with alternative number
241
	call	SID_PARIN_SetNRPN
241
	call	SID_PARIN_SetNRPN
242
	rgoto	SID_MIDI_D_End
242
	rgoto	SID_MIDI_D_End
243
SID_MIDI_D_CC_NoNRPNDataH
243
SID_MIDI_D_CC_NoNRPNDataH
-
 
244
-
 
245
	;; handle remaining CCs
-
 
246
	clrf	MIOS_PARAMETER3
-
 
247
	call	SID_CC_TABLE_Set
244
248
245
SID_MIDI_D_End
249
SID_MIDI_D_End
246
	return
250
	return
247

251

248
252