Subversion Repositories svn.mios

Rev

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

Rev 875 Rev 1122
Line 1... Line 1...
1
; $Id: sid_midi_l.inc 875 2009-12-29 13:06:43Z tk $
1
; $Id: sid_midi_l.inc 1122 2013-04-20 12:37:28Z tk $
2
;
2
;
3
; MIDIbox SID
3
; MIDIbox SID
4
; MIDI Interface part for Lead Engine
4
; MIDI Interface part for Lead Engine
5
;
5
;
6
; ==========================================================================
6
; ==========================================================================
Line 359... Line 359...
359
	;; exit if MIDI channel doesn't match (only check for first MIDI voice)
359
	;; exit if MIDI channel doesn't match (only check for first MIDI voice)
360
	movff	SID_MV1_BASE + SID_MVx_MIDI_CHANNEL, WREG
360
	movff	SID_MV1_BASE + SID_MVx_MIDI_CHANNEL, WREG
361
	cpfseq	SID_CURRENT_CHANNEL, BANKED
361
	cpfseq	SID_CURRENT_CHANNEL, BANKED
362
	rgoto	SID_MIDI_L_End
362
	rgoto	SID_MIDI_L_End
363
363
364
	;; if CC#06 (NRPN data LSB) received, forward to parameter handler
364
	;; if CC#06 (NRPN data MSB) received, forward to parameter handler
365
	movlw	0x06
365
	movlw	0x06
366
	cpfseq	SID_MIDI_PARAMETER1, BANKED
366
	cpfseq	SID_MIDI_PARAMETER1, BANKED
367
	rgoto	SID_MIDI_L_CC_NoNRPNDataH
367
	rgoto	SID_MIDI_L_CC_NoNRPNDataH
368
SID_MIDI_L_CC_NRPNDataH
368
SID_MIDI_L_CC_NRPNDataH
369
	;; prepare MIOS_PARAMETER3 (selection options)
369
	;; prepare MIOS_PARAMETER3 (selection options)
Line 435... Line 435...
435
	rgoto	SID_MIDI_L_End
435
	rgoto	SID_MIDI_L_End
436
436
437
SID_MIDI_L_CC_Not64
437
SID_MIDI_L_CC_Not64
438
438
439
	;; handle remaining CCs
439
	;; handle remaining CCs
-
 
440
	movlw	0x03		; modify both channels
-
 
441
	movwf	MIOS_PARAMETER3
440
	call	SID_CC_TABLE_Set
442
	call	SID_CC_TABLE_Set
441
	
443
	
442
SID_MIDI_L_End
444
SID_MIDI_L_End
443
	return
445
	return
444

446