Subversion Repositories svn.mios

Rev

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

Rev 878 Rev 1122
Line 1... Line 1...
1
; $Id: sid_parin.inc 878 2010-01-02 15:40:58Z tk $
1
; $Id: sid_parin.inc 1122 2013-04-20 12:37:28Z tk $
2
;
2
;
3
; MIDIbox SID
3
; MIDIbox SID
4
; Parameter Input Handling
4
; Parameter Input Handling
5
;
5
;
6
; ==========================================================================
6
; ==========================================================================
Line 1284... Line 1284...
1284
	bz	SID_PARIN_Hlp_GetVoices_Cur
1284
	bz	SID_PARIN_Hlp_GetVoices_Cur
1285
SID_PARIN_Hlp_GetVoices_Single
1285
SID_PARIN_Hlp_GetVoices_Single
1286
	addlw	-1
1286
	addlw	-1
1287
SID_PARIN_Hlp_GetVoices_Cur_Cont
1287
SID_PARIN_Hlp_GetVoices_Cur_Cont
1288
	;; final voice selection in PRODH
1288
	;; final voice selection in PRODH
1289
	clrf	PRODH
-
 
1290
	SET_BSR	SIDL_V1_BASE
-
 
1291
	cpfseq	SIDL_V1_BASE + SID_Vx_ASSIGNED_MV, BANKED
-
 
1292
	rgoto	SID_PARIN_Hlp_GetVoices_Not0
-
 
1293
SID_PARIN_Hlp_GetVoices_0
-
 
1294
	bsf	PRODH, 0
-
 
1295
SID_PARIN_Hlp_GetVoices_Not0
1289
	call	MIOS_HLP_GetBitORMask
1296
	cpfseq	SIDL_V2_BASE + SID_Vx_ASSIGNED_MV, BANKED
-
 
1297
	rgoto	SID_PARIN_Hlp_GetVoices_Not1
-
 
1298
SID_PARIN_Hlp_GetVoices_1
-
 
1299
	bsf	PRODH, 1
-
 
1300
SID_PARIN_Hlp_GetVoices_Not1
-
 
1301
	cpfseq	SIDL_V3_BASE + SID_Vx_ASSIGNED_MV, BANKED
-
 
1302
	rgoto	SID_PARIN_Hlp_GetVoices_Not2
-
 
1303
SID_PARIN_Hlp_GetVoices_2
-
 
1304
	bsf	PRODH, 2
-
 
1305
SID_PARIN_Hlp_GetVoices_Not2
-
 
1306
	cpfseq	SIDR_V1_BASE + SID_Vx_ASSIGNED_MV, BANKED
-
 
1307
	rgoto	SID_PARIN_Hlp_GetVoices_Not3
-
 
1308
SID_PARIN_Hlp_GetVoices_3
-
 
1309
	bsf	PRODH, 3
-
 
1310
SID_PARIN_Hlp_GetVoices_Not3
-
 
1311
	cpfseq	SIDR_V2_BASE + SID_Vx_ASSIGNED_MV, BANKED
-
 
1312
	rgoto	SID_PARIN_Hlp_GetVoices_Not4
-
 
1313
SID_PARIN_Hlp_GetVoices_4
-
 
1314
	bsf	PRODH, 4
-
 
1315
SID_PARIN_Hlp_GetVoices_Not4
-
 
1316
	cpfseq	SIDR_V3_BASE + SID_Vx_ASSIGNED_MV, BANKED
-
 
1317
	rgoto	SID_PARIN_Hlp_GetVoices_Not5
-
 
1318
SID_PARIN_Hlp_GetVoices_5
-
 
1319
	bsf	PRODH, 5
1290
	movwf	PRODH
1320
SID_PARIN_Hlp_GetVoices_Not5
-
 
1321
	SET_BSR	SID_BASE
-
 
1322
	return
1291
	return
1323

1292

1324
SID_PARIN_Hlp_GetVoices_All
1293
SID_PARIN_Hlp_GetVoices_All
1325
	movlw	0x3f
1294
	movlw	0x3f
1326
	movwf	PRODH
1295
	movwf	PRODH