⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 libcvcdsp.a

📁 bluelab 3.52 里面的立体声程序源代码
💻 A
📖 第 1 页 / 共 2 页
字号:
	st	X,@(H'0002,Y)
	ld	AH,#H'1004
	bsr	$_KalimbaSendMessage
	cmp	AH,#H'0000
	beq	?L143
	ld	AH,@(H'000B,Y)
	add	AH,#H'0001
	st	AH,@(H'000B,Y)
	cmp	AH,#H'0008
	bcz	?L43
	bra	(?L20)
?L30:
	ld	AL,@(H'000A,Y)
	cmp	AL,#H'003C
	bne	?L45
	ld	X,#H'0000
	st	X,@(H'000B,Y)
?L51:
	ld	AL,@(H'000C,Y)
	ld	AH,@$XAP_AL
	add	AH,#H'0001
	st	AH,@(H'000C,Y)
	ld	AH,@(H'0006,Y)
	st	AH,@(0,Y)
	ld	X,@(H'0007,Y)
	st	X,@(H'0001,Y)
	ld	AH,#H'0000
	st	AH,@(H'0002,Y)
	ld	AH,#H'1004
	bsr	$_KalimbaSendMessage
	cmp	AH,#H'0000
	beq	?L143
	ld	AL,@(H'000B,Y)
	add	AL,#H'0001
	st	AL,@(H'000B,Y)
	cmp	AL,#H'0008
	bcz	?L51
	ld	X,#H'0000
	st	X,@(H'000B,Y)
?L57:
	ld	AL,@(H'000C,Y)
	ld	AH,@$XAP_AL
	add	AH,#H'0001
	st	AH,@(H'000C,Y)
	ld	X,@(H'0008,Y)
	st	X,@(0,Y)
	ld	AH,@(H'0009,Y)
	st	AH,@(H'0001,Y)
	ld	X,#H'0000
	st	X,@(H'0002,Y)
	ld	AH,#H'1004
	bsr	$_KalimbaSendMessage
	cmp	AH,#H'0000
	beq	?L143
	ld	AH,@(H'000B,Y)
	add	AH,#H'0001
	st	AH,@(H'000B,Y)
	cmp	AH,#H'0008
	bcz	?L57
	bra	(?L20)
?L45:
	ld	AL,@(H'000A,Y)
	cmp	AL,#H'003F
	bne	?L59
	ld	X,#H'0000
	st	X,@(H'000B,Y)
?L65:
	ld	AL,@(H'000C,Y)
	ld	AH,@$XAP_AL
	add	AH,#H'0001
	st	AH,@(H'000C,Y)
	ld	AH,@(H'0006,Y)
	st	AH,@(0,Y)
	ld	X,@(H'0007,Y)
	st	X,@(H'0001,Y)
	ld	AH,#H'0000
	st	AH,@(H'0002,Y)
	ld	AH,#H'1004
	bsr	$_KalimbaSendMessage
	cmp	AH,#H'0000
	beq	?L143
	ld	AL,@(H'000B,Y)
	add	AL,#H'0001
	st	AL,@(H'000B,Y)
	cmp	AL,#H'0008
	bcz	?L65
	ld	X,#H'0000
	st	X,@(H'000B,Y)
?L71:
	ld	AL,@(H'000C,Y)
	ld	AH,@$XAP_AL
	add	AH,#H'0001
	st	AH,@(H'000C,Y)
	ld	X,@(H'0008,Y)
	st	X,@(0,Y)
	ld	AH,@(H'0009,Y)
	st	AH,@(H'0001,Y)
	ld	X,#H'0000
	st	X,@(H'0002,Y)
	ld	AH,#H'1004
	bsr	$_KalimbaSendMessage
	cmp	AH,#H'0000
	beq	?L143
	ld	AH,@(H'000B,Y)
	add	AH,#H'0001
	st	AH,@(H'000B,Y)
	cmp	AH,#H'0008
	bcz	?L71
	bra	(?L20)
?L59:
	ld	AL,@(H'000A,Y)
	cmp	AL,#H'0042
	bne	?L73
	ld	X,#H'0000
	st	X,@(H'000B,Y)
?L79:
	ld	AL,@(H'000C,Y)
	ld	AH,@$XAP_AL
	add	AH,#H'0001
	st	AH,@(H'000C,Y)
	ld	AH,@(H'0006,Y)
	st	AH,@(0,Y)
	ld	X,@(H'0007,Y)
	st	X,@(H'0001,Y)
	ld	AH,#H'0000
	st	AH,@(H'0002,Y)
	ld	AH,#H'1004
	bsr	$_KalimbaSendMessage
	cmp	AH,#H'0000
	beq	?L143
	ld	AL,@(H'000B,Y)
	add	AL,#H'0001
	st	AL,@(H'000B,Y)
	cmp	AL,#H'0008
	bcz	?L79
	ld	AL,@(H'000C,Y)
	ld	X,@$XAP_AL
	add	X,#H'0001
	st	X,@(H'000C,Y)
	ld	AH,#H'0000
	st	AH,@(0,Y)
	st	AH,@(H'0001,Y)
	st	AH,@(H'0002,Y)
	ld	AH,#H'1004
	bsr	$_KalimbaSendMessage
	cmp	AH,#H'0000
	beq	?L143
	ld	AL,@(H'000C,Y)
	ld	X,@$XAP_AL
	add	X,#H'0001
	st	X,@(H'000C,Y)
	ld	AH,@(H'0008,Y)
	st	AH,@(0,Y)
	ld	X,@(H'0009,Y)
?L150:
	st	X,@(H'0001,Y)
	ld	AH,#H'0000
	bra	(?L149)
?L73:
	ld	AL,@(H'000A,Y)
	cmp	AL,#H'0045
	bne	?L83
	ld	X,@(H'001B,Y)
	st	X,@(H'0008,Y)
	ld	AL,@(H'000C,Y)
	ld	AH,@$XAP_AL
	add	AH,#H'0001
	st	AH,@(H'000C,Y)
	ld	X,#H'0000
	st	X,@(0,Y)
	ld	AH,@(H'0003,Y)
	st	AH,@(H'0001,Y)
	st	X,@(H'0002,Y)
	ld	AH,#H'1004
	bsr	$_KalimbaSendMessage
	cmp	AH,#H'0000
	beq	?L143
	ld	AL,@(H'000C,Y)
	ld	X,@$XAP_AL
	add	X,#H'0001
	st	X,@(H'000C,Y)
	ld	AH,#H'0000
	st	AH,@(0,Y)
	ld	X,@(H'0008,Y)
	st	X,@(H'0001,Y)
?L149:
	st	AH,@(H'0002,Y)
?L148:
	ld	AH,#H'1004
	bsr	$_KalimbaSendMessage
	cmp	AH,#H'0000
	bne	?L20
	bra	(?L143)
?L83:
	ld	AL,@(H'000C,Y)
	ld	AH,@$XAP_AL
	add	AH,#H'0001
	st	AH,@(H'000C,Y)
	ld	AH,@(H'0006,Y)
	st	AH,@(0,Y)
	ld	X,@(H'0007,Y)
	st	X,@(H'0001,Y)
	ld	AH,#H'0000
	st	AH,@(H'0002,Y)
	ld	AH,#H'1004
	bsr	$_KalimbaSendMessage
	cmp	AH,#H'0000
	beq	?L143
	ld	AL,@(H'000C,Y)
	cmp	AL,#(H'0001+H'0079)
	bcc	?L15
	ld	X,@$XAP_AL
	add	X,#H'0001
	st	X,@(H'000C,Y)
	ld	AH,@(H'0008,Y)
	st	AH,@(0,Y)
	ld	X,@(H'0009,Y)
	st	X,@(H'0001,Y)
	ld	AH,#H'0000
	st	AH,@(H'0002,Y)
	ld	AH,#H'1004
	bsr	$_KalimbaSendMessage
	cmp	AH,#H'0000
	beq	?L143
	ld	AL,@(H'000C,Y)
	cmp	AL,#(H'0001+H'0079)
	bcc	?L15
?L20:
	ld	X,@(H'000A,Y)
	add	X,#H'0003
	st	X,@(H'000A,Y)
	cmp	X,#H'004B
	bcz	?L91
?L15:
	tst	@(H'001C,Y)
	beq	?L93
	ld	AH,@(H'001D,Y)
	cmp	AH,#H'0030
	bcc	?L94
	ld	AH,#H'0007
	bra	(?L1)
?L94:
	ld	AL,@(H'001C,Y)
	st	AL,@(H'0005,Y)
	bra	(?L95)
?L93:
	tst	@_lpCvcPsBufeq
	beq	?L96
	ld	X,@_lpCvcPsBufeq
	st	X,@(H'0005,Y)
	bra	(?L95)
?L96:
	ld	AH,#H'0030
	bsr	$_malloc
	st	AH,@_lpCvcPsBufeq
	cmp	AH,#H'0000
	bne	?L98
?L145:
	ld	AH,#H'0004
	bra	(?L1)
?L98:
	ld	AH,#H'0030
	st	AH,@(0,Y)
	ld	AH,@(H'001B,Y)
	ld	AL,@_lpCvcPsBufeq
	bsr	$_PsRetrieve
	cmp	AH,#H'0000
	beq	?L10
	ld	AL,@_lpCvcPsBufeq
	st	AL,@(H'0005,Y)
	bra	(?L100)
?L95:
	ld	X,@(H'001B,Y)
	cmp	X,@$_lasteqkeyused
	beq	?L100
	ld	AH,#H'0030
	st	AH,@(0,Y)
	ld	AH,@$XAP_UXL
	ld	AL,@_lpCvcPsBufeq
	bsr	$_PsRetrieve
	cmp	AH,#H'0000
	beq	?L10
	ld	AL,@_lpCvcPsBufeq
	st	AL,@(H'0005,Y)
	ld	X,@(H'001B,Y)
	st	X,@$_lasteqkeyused
?L100:
	ld	AH,#H'0000
	st	AH,@(H'000A,Y)
?L109:
	ld	X,@(H'0005,Y)
	ld	AH,@(0,X)
	lsr	#H'0008
	and	AH,#H'00FF
	st	AH,@(H'0006,Y)
	ld	AL,@(0,X)
	and	AL,#H'00FF
	st	AL,@(H'0008,Y)
	add	X,#H'0001
	st	X,@(H'0005,Y)
	ld	X,@(0,X)
	st	X,@(H'0007,Y)
	ld	AH,@(H'0005,Y)
	add	AH,#H'0001
	st	AH,@(H'0005,Y)
	ld	X,@$XAP_AH
	ld	X,@(0,X)
	st	X,@(H'0009,Y)
	add	AH,#H'0001
	st	AH,@(H'0005,Y)
	ld	AL,@(H'000C,Y)
	ld	AH,@$XAP_AL
	add	AH,#H'0001
	st	AH,@(H'000C,Y)
	ld	AH,@(H'0006,Y)
	st	AH,@(0,Y)
	ld	X,@(H'0007,Y)
	st	X,@(H'0001,Y)
	ld	AH,#H'0000
	st	AH,@(H'0002,Y)
	ld	AH,#H'1004
	bsr	$_KalimbaSendMessage
	cmp	AH,#H'0000
	beq	?L143
	ld	AL,@(H'000C,Y)
	ld	X,@$XAP_AL
	add	X,#H'0001
	st	X,@(H'000C,Y)
	ld	AH,@(H'0008,Y)
	st	AH,@(0,Y)
	ld	X,@(H'0009,Y)
	st	X,@(H'0001,Y)
	ld	AH,#H'0000
	st	AH,@(H'0002,Y)
	ld	AH,#H'1004
	bsr	$_KalimbaSendMessage
	cmp	AH,#H'0000
	beq	?L143
	ld	AL,@(H'000A,Y)
	add	AL,#H'0003
	st	AL,@(H'000A,Y)
	cmp	AL,#H'0030
	bcz	?L109
?L10:
	ld	AL,#H'0000
	st	AL,@(0,Y)
	st	AL,@(H'0001,Y)
	ld	AL,#H'0001
	st	AL,@(H'0002,Y)
	ld	AH,#H'1004
	ld	AL,#H'0099
	bsr	$_KalimbaSendMessage
	cmp	AH,#H'0000
	bne	?L110
?L143:
	ld	AH,#H'0005
	bra	(?L1)
?L110:
	ld	AH,#H'0001
?L1:
?LBE_CvcConfigureDsp:
	leave	#26
	ENDMOD

;LIF .DECLARED
;LIF $_lastkeyused
;LIF $_lasteqkeyused
;LIF $_CvcConfigureDsp
;LIF .UNDECLARED
;LIF $_malloc
;LIF $_PsRetrieve
;LIF $_KalimbaSendMessage
;LIF .END
;LIF 
;# Function pattern *movqi2 used[0] = 162 used[1] = 45 used[3] = 1 total = 208
;# Function pattern *movqi3 used[0] = 113 total = 113
;# Function pattern *movqi8 used[0] = 16 total = 16
;# Function pattern *movhi used[0] = 1 used[2] = 4 used[3] = 21 total = 26
;# Function pattern *addhi3 used[0] = 6 total = 6
;# Function pattern *iorhi3 used[0] = 2 total = 2
;# Function pattern *subhi3 used[0] = 1 total = 1
;# Function pattern *addqi2 used[0] = 47 total = 47
;# Function pattern *andqi3 used[0] = 6 total = 6
;# Function pattern *mulqihi3 used[0] = 18 total = 18
;# Function pattern *umulqihi3 used[0] = 6 total = 6
;# Function pattern *ashlhi3 used[0] = 7 total = 7
;# Function pattern *ashrhi3 used[0] = 10 total = 10
;# Function pattern *extendqihi2 used[0] = 1 used[1] = 1 total = 2
;# Function pattern *lshrqi3 used[0] = 2 total = 2
;# Function pattern one_cmplqi2 used[0] = 1 total = 1
;# Function pattern *zero_extendqihi2_1 used[0] = 2 used[1] = 1 total = 3
;# Function pattern jump used[0] = 16 total = 16
;# Function pattern *call_value1 used[0] = 23 total = 23
;# Function pattern zero_extendqihi2+1 used[0] = 2 total = 2
;# Function pattern movstrqi+2 used[0] = 7 total = 7
;# Function pattern movstrqi+3 used[0] = 24 used[1] = 3 total = 27
;# Function pattern movstrqi+4 used[1] = 2 total = 2
;# Function pattern movstrqi+5 used[0] = 21 total = 21
;LIF .DECLARED
;LIF $_lastkeyused
;LIF $_lasteqkeyused
;LIF $_CvcConfigureDsp
;LIF .UNDECLARED
;LIF $_malloc
;LIF $_PsRetrieve
;LIF $XAP_AL
;LIF $XAP_AH
;LIF $XAP_UXL
;LIF $_KalimbaSendMessage
;LIF .END

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -