Subversion Repositories svn.mios

Rev

Rev 679 | Rev 878 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 679 Rev 869
Line 1... Line 1...
1
; $Id: sid_parin.inc 679 2009-02-07 22:19:22Z tk $
1
; $Id: sid_parin.inc 869 2009-12-08 21:52:43Z tk $
2
;
2
;
3
; MIDIbox SID
3
; MIDIbox SID
4
; Parameter Input Handling
4
; Parameter Input Handling
5
;
5
;
6
; ==========================================================================
6
; ==========================================================================
Line 45... Line 45...
45
	movlw	HIGH(SID_PATCH_BUFFER_SHADOW)
45
	movlw	HIGH(SID_PATCH_BUFFER_SHADOW)
46
	movwf	FSR1H
46
	movwf	FSR1H
47
47
48
	;; jump depending on mod ID
48
	;; jump depending on mod ID
49
	movf	PRODL, W
49
	movf	PRODL, W
50
	JUMPTABLE_2BYTES 0x3c+1 ; entries
50
	JUMPTABLE_2BYTES 0x3d+1 ; entries
51
	rgoto	SID_PARIN_Set_NOP
51
	rgoto	SID_PARIN_Set_NOP
52
	rgoto	SID_PARIN_Set_7
52
	rgoto	SID_PARIN_Set_7
53
	rgoto	SID_PARIN_Set_8
53
	rgoto	SID_PARIN_Set_8
54
	rgoto	SID_PARIN_Set_PM8
54
	rgoto	SID_PARIN_Set_PM8
55
	rgoto	SID_PARIN_Set_4L
55
	rgoto	SID_PARIN_Set_4L
Line 57... Line 57...
57
	rgoto	SID_PARIN_Set_PAR12
57
	rgoto	SID_PARIN_Set_PAR12
58
	rgoto	SID_PARIN_Set_CUSTOM_SW
58
	rgoto	SID_PARIN_Set_CUSTOM_SW
59
	rgoto	SID_PARIN_Set_FIL4L
59
	rgoto	SID_PARIN_Set_FIL4L
60
	rgoto	SID_PARIN_Set_FIL4U
60
	rgoto	SID_PARIN_Set_FIL4U
61
	rgoto	SID_PARIN_Set_FIL12
61
	rgoto	SID_PARIN_Set_FIL12
-
 
62
	rgoto	SID_PARIN_Set_FIL12_DIRECT
62
	rgoto	SID_PARIN_Set_FIL8
63
	rgoto	SID_PARIN_Set_FIL8
63
	rgoto	SID_PARIN_Set_OSC123_PM7
64
	rgoto	SID_PARIN_Set_OSC123_PM7
64
	rgoto	SID_PARIN_Set_OSC123_PM8
65
	rgoto	SID_PARIN_Set_OSC123_PM8
65
	rgoto	SID_PARIN_Set_OSC123_7
66
	rgoto	SID_PARIN_Set_OSC123_7
66
	rgoto	SID_PARIN_Set_OSC123_8
67
	rgoto	SID_PARIN_Set_OSC123_8
Line 277... Line 278...
277
	andlw	0xf0
278
	andlw	0xf0
278
	iorwf	INDF1, F
279
	iorwf	INDF1, F
279
	return
280
	return
280

281

281
SID_PARIN_Set_FIL12
282
SID_PARIN_Set_FIL12
282
	SID_PARIN_SID_FIL_MACRO		; select SIDL/SIDR filter
283
	SID_PARIN_SID_FIL_MACRO		; for selected SIDL/SIDR filter
-
 
284
SID_PARIN_Set_FIL12_DIRECT		; for direct writes to SIDL/SIDR Filter
283
	movff	MIOS_PARAMETER1, POSTINC1
285
	movff	MIOS_PARAMETER1, POSTINC1
284
	movf	MIOS_PARAMETER2, W
286
	movf	MIOS_PARAMETER2, W
285
	andlw	0x0f
287
	andlw	0x0f
286
	movwf	POSTDEC1
288
	movwf	POSTDEC1
287
	return
289
	return
Line 843... Line 845...
843
	tblrd*+			; skip right string
845
	tblrd*+			; skip right string
844
	tblrd*+			; now TABLAT contains mod ID
846
	tblrd*+			; now TABLAT contains mod ID
845

847

846
	;; store MAX value in SID_PAR_MAX_[LH]
848
	;; store MAX value in SID_PAR_MAX_[LH]
847
	movf	TABLAT, W	; (mod ID)
849
	movf	TABLAT, W	; (mod ID)
848
	JUMPTABLE_2BYTES 0x3c+1 ; entries
850
	JUMPTABLE_2BYTES 0x3d+1 ; entries
849
	rgoto	SID_PARIN_Scale_0	;NOP
851
	rgoto	SID_PARIN_Scale_0	;NOP
850
	rgoto	SID_PARIN_Scale_7	;7
852
	rgoto	SID_PARIN_Scale_7	;7
851
	rgoto	SID_PARIN_Scale_8	;8
853
	rgoto	SID_PARIN_Scale_8	;8
852
	rgoto	SID_PARIN_Scale_8	;PM8
854
	rgoto	SID_PARIN_Scale_8	;PM8
853
	rgoto	SID_PARIN_Scale_4	;4L
855
	rgoto	SID_PARIN_Scale_4	;4L
Line 855... Line 857...
855
	rgoto	SID_PARIN_Scale_12	;PAR12
857
	rgoto	SID_PARIN_Scale_12	;PAR12
856
	rgoto	SID_PARIN_Scale_1	;CUSTOM_SW
858
	rgoto	SID_PARIN_Scale_1	;CUSTOM_SW
857
	rgoto	SID_PARIN_Scale_4	;FIL4L
859
	rgoto	SID_PARIN_Scale_4	;FIL4L
858
	rgoto	SID_PARIN_Scale_4	;FIL4U
860
	rgoto	SID_PARIN_Scale_4	;FIL4U
859
	rgoto	SID_PARIN_Scale_12	;FIL12
861
	rgoto	SID_PARIN_Scale_12	;FIL12
-
 
862
	rgoto	SID_PARIN_Scale_12	;FIL12_DIRECT
860
	rgoto	SID_PARIN_Scale_8	;FIL8
863
	rgoto	SID_PARIN_Scale_8	;FIL8
861
	rgoto	SID_PARIN_Scale_7	;OSC123_PM7
864
	rgoto	SID_PARIN_Scale_7	;OSC123_PM7
862
	rgoto	SID_PARIN_Scale_8	;OSC123_PM8
865
	rgoto	SID_PARIN_Scale_8	;OSC123_PM8
863
	rgoto	SID_PARIN_Scale_7	;OSC123_7
866
	rgoto	SID_PARIN_Scale_7	;OSC123_7
864
	rgoto	SID_PARIN_Scale_8	;OSC123_8
867
	rgoto	SID_PARIN_Scale_8	;OSC123_8