spp_dev_a.xap

来自「蓝牙虚拟串口程序1 设备A BLUELAB4.0」· XAP 代码 · 共 3,497 行 · 第 1/5 页

	dc	H'53
	dc	H'74
	dc	H'61
	dc	H'74
	dc	H'65
	dc	H'20
	dc	H'2D
	dc	H'20
	dc	H'43
	dc	H'3D
	dc	H'25
	dc	H'64
	dc	H'20
	dc	H'4E
	dc	H'3D
	dc	H'25
	dc	H'64
	dc	H'0A
	dc	H'00
	.CODE
$_getAppTask:
	enter	#1
?LBB_getAppTask:
	ld	AH,#(_theSppApp)
?LBE_getAppTask:
	leave	#1
_app_handler:
	enter	#13
?LBB_app_handler:
	st	AL,@(H'0009,Y)
?LBB3:
	ld	AH,@_theSppApp+H'0006
	st	AH,@(H'000A,Y)
	cmp	AL,#H'7000
	beq	?L27
	cmp	AL,#(H'0001+H'7000)
	bcc	?L113
	cmp	AL,#H'6F02
	beq	?L71
	cmp	AL,#(H'0001+H'6F02)
	bcc	?L114
	cmp	AL,#H'6F00
	beq	?L30
	cmp	AL,#(H'0001+H'6F00)
	bcc	?L57
	cmp	AL,#H'03E8
	beq	?L101
	bra	(?L111)
?L114:
	ld	AL,@(H'0009,Y)
	cmp	AL,#H'6F04
	beq	?L100
	cmp	AL,#H'6F04
	bcs	?L99
	cmp	AL,#H'6F05
	beq	?L81
	bra	(?L111)
?L113:
	ld	AH,@(H'0009,Y)
	cmp	AH,#H'701F
	beq	?L97
	cmp	AH,#(H'0001+H'701F)
	bcc	?L115
	cmp	AH,#H'701B
	beq	?L95
	cmp	AH,#(H'0001+H'701B)
	bcc	?L116
	cmp	AH,#H'7005
	beq	?L43
	bra	(?L111)
?L116:
	ld	AL,@(H'0009,Y)
	cmp	AL,#H'701E
	beq	?L93
	bra	(?L111)
?L115:
	ld	AH,@(H'0009,Y)
	cmp	AH,#H'7025
	beq	?L94
	cmp	AH,#(H'0001+H'7025)
	bcc	?L117
	cmp	AH,#H'7020
	beq	?L98
	bra	(?L111)
?L117:
	ld	AL,@(H'0009,Y)
	cmp	AL,#H'703A
	beq	?L96
	bra	(?L111)
?L27:
	ld	AH,#(?LC2)
	bsr	$_puts
	ld	X,@(H'000D,Y)
	tst	@(0,X)
	bne	?L28
	bsr	$_sppDevInit
	bra	(?L25)
?L28:
;	bsr	$_Panic
	DC	((256*14)+9)
	bra	(?L25)
?L30:
	ld	AH,#(?LC3)
	bsr	$_puts
	tst	@(H'000A,Y)
	bne	?L91
	ld	X,@(H'000D,Y)
	tst	@(H'0001,X)
	bne	?L25
	bra	(?L85)
?L43:
	ld	AH,#(?LC4)
	bsr	$_puts
	ld	AH,@(H'000A,Y)
	cmp	AH,#(H'0001+H'0005)
	bcc	?L91
	ld	X,@$XAP_AH
	ld	X,@(?JTBASE56,X)
	brxl
	.SEG	CONST
?JTBASE56:
	.CODE
?L56:
	.SEG	CONST
	dc	?L91-?L56
	dc	?L91-?L56
	dc	?L46-?L56
	dc	?L46-?L56
	dc	?L91-?L56
	dc	?L91-?L56
	.CODE
?L46:
	ld	X,@(H'000D,Y)
	tst	@(0,X)
	bne	?L47
	ld	AH,#(?LC5)
	bsr	$_puts
	ld	AH,#(_theSppApp)
	bsr	$_sppDevInquiryComplete
	bra	(?L25)
?L47:
	ld	AH,#(?LC6)
	bsr	$_puts
	ld	AH,@(H'000D,Y)
	add	AH,#H'0001
	bsr	_tried_and_failed
	cmp	AH,#H'0000
	bne	?L49
	ld	AH,#(?LC7)
	bsr	$_puts
	ld	AH,#(_theSppApp)
	ld	AL,@(H'000D,Y)
	bsr	$_sppDevInquiryResult
	bra	(?L25)
?L49:
	ld	AH,#(?LC8)
	bra	(?L118)
?L57:
	ld	X,@(H'000D,Y)
	ld	AL,@(H'0001,X)
	st	AL,@(0,Y)
	ld	AH,#(?LC9)
	bsr	$_printf
	ld	AH,@(H'000A,Y)
	cmp	AH,#(H'0001+H'0005)
	bcc	?L91
	ld	X,@$XAP_AH
	ld	X,@(?JTBASE70,X)
	brxl
	.SEG	CONST
?JTBASE70:
	.CODE
?L70:
	.SEG	CONST
	dc	?L91-?L70
	dc	?L91-?L70
	dc	?L60-?L70
	dc	?L60-?L70
	dc	?L91-?L70
	dc	?L91-?L70
	.CODE
?L60:
	ld	X,@(H'000D,Y)
?LBB4:
	tst	@(H'0001,X)
	bne	?L61
	ld	AH,#(?LC10)
	bsr	$_puts
;	bsr	$_StreamUartSink
	DC	((256*104)+9)
;	bsr	$_StreamSourceFromSink
	DC	((256*74)+9)
	ld	X,@(H'000D,Y)
	ld	AL,@(H'0002,X)
;	bsr	$_StreamConnect
	DC	((256*71)+9)
	ld	X,@(H'000D,Y)
	ld	AH,@(H'0002,X)
;	bsr	$_StreamSourceFromSink
	DC	((256*74)+9)
	st	AH,@(H'000B,Y)
;	bsr	$_StreamUartSink
	DC	((256*104)+9)
	ld	AL,@$XAP_AH
	ld	AH,@(H'000B,Y)
;	bsr	$_StreamConnect
	DC	((256*71)+9)
	ld	X,@(H'000D,Y)
	ld	AL,@(0,X)
	st	AL,@_theSppApp+H'0001
	ld	AH,#H'0004
	bsr	$_setSppState
	ld	AH,#(_theSppApp+H'0002)
	bsr	$_write_far_addr
	bra	(?L25)
?L61:
?LBB5:
	ld	AH,#(?LC11)
	bsr	$_puts
	ld	AH,@$XAP_UY
	add	AH,#H'0005
	bsr	$_read_far_addr
	ld	AH,@(H'0005,Y)
	ld	AL,@(H'0006,Y)
	cmp	AH,@_theSppApp+H'0002
	bne	?L63
	cmp	AL,@_theSppApp+H'0003
	bne	?L63
	ld	X,@$XAP_UY
	add	X,#H'0005
	ld	AL,@(H'0002,X)
	cmp	AL,@_theSppApp+H'0004
	bne	?L63
	ld	AL,@(H'0003,X)
	cmp	AL,@_theSppApp+H'0005
	bne	?L63
	ld	AL,@(H'0005,Y)
	st	AL,@(0,Y)
	ld	AL,@(H'0001,X)
	st	AL,@(H'0001,Y)
	ld	AL,@(H'0002,X)
	st	AL,@(H'0002,Y)
	ld	AL,@(H'0003,X)
	st	AL,@(H'0003,Y)
	bsr	$_know_far_addr
	cmp	AH,#H'0000
	bne	?L119
?L63:
	ld	AL,#H'0000
	st	AL,@_theSppApp+H'0003
	st	AL,@_theSppApp+H'0002
	st	AL,@_theSppApp+H'0005
	st	AL,@_theSppApp+H'0004
	bra	(?L86)
?L71:
?LBE5:
?LBE4:
	ld	AH,#(?LC12)
	bsr	$_puts
	ld	AH,@(H'000A,Y)
	cmp	AH,#(H'0001+H'0005)
	bcc	?L91
	ld	X,@$XAP_AH
	ld	X,@(?JTBASE80,X)
	brxl
	.SEG	CONST
?JTBASE80:
	.CODE
?L80:
	.SEG	CONST
	dc	?L91-?L80
	dc	?L74-?L80
	dc	?L74-?L80
	dc	?L91-?L80
	dc	?L91-?L80
	dc	?L91-?L80
	.CODE
?L74:
	ld	AH,#(_theSppApp)
	ld	AL,@(H'000D,Y)
	bsr	$_sppDevAuthoriseConnectInd
	bra	(?L25)
?L81:
	ld	AH,#(?LC13)
	bsr	$_puts
	ld	AH,@(H'000A,Y)
	cmp	AH,#(H'0001+H'0005)
	bcc	?L91
	ld	X,@$XAP_AH
	ld	X,@(?JTBASE92,X)
	brxl
	.SEG	CONST
?JTBASE92:
	.CODE
?L92:
	.SEG	CONST
	dc	?L91-?L92
	dc	?L85-?L92
	dc	?L91-?L92
	dc	?L91-?L92
	dc	?L85-?L92
	dc	?L85-?L92
	.CODE
?L85:
	ld	AL,@_theSppApp+H'0002
	st	AL,@(0,Y)
	ld	AL,@_theSppApp+H'0003
	st	AL,@(H'0001,Y)
	ld	AL,@_theSppApp+H'0004
	st	AL,@(H'0002,Y)
	ld	AL,@_theSppApp+H'0005
	st	AL,@(H'0003,Y)
	bsr	$_know_far_addr
	cmp	AH,#H'0000
	beq	?L86
?L119:
	ld	AH,#(_theSppApp)
	bsr	$_sppDevConnect
	bra	(?L25)
?L86:
	ld	AH,#(_theSppApp)
	bsr	$_sppDevInquire
	bra	(?L25)
?L91:
	ld	AH,@(H'000A,Y)
	ld	AL,@(H'0009,Y)
	bsr	_unhandledSppState
	bra	(?L25)
?L93:
	ld	AH,#(?LC14)
	bsr	$_puts
	ld	AH,@(H'000D,Y)
	bsr	$_sppDevHandlePinCodeRequest
	bra	(?L25)
?L94:
	ld	AH,#(?LC15)
	bsr	$_puts
	ld	AH,@(H'000D,Y)
	bsr	$_sppDevAuthoriseResponse
	bra	(?L25)
?L95:
	ld	AH,#(?LC16)
	bsr	$_puts
	ld	AH,#(_theSppApp)
	ld	AL,@(H'000D,Y)
	bsr	$_sppDevSetTrustLevel
	bra	(?L25)
?L96:
	ld	AH,#(?LC17)
	bra	(?L118)
?L97:
	ld	AH,#(?LC18)
	bsr	$_puts
	ld	AH,#H'0000
	st	AH,@(0,Y)
	ld	AL,#H'0001
	st	AL,@(H'0001,Y)
	st	AH,@(H'0002,Y)
	st	AH,@(H'0003,Y)
	st	AH,@(H'0004,Y)
	ld	AH,#(_theSppApp+H'0002)
	ld	AL,#H'0003
	bsr	$_ConnectionSmIoCapabilityResponse
	bra	(?L25)
?L98:
?LBB6:
	ld	AH,#(?LC19)
	bsr	$_puts
	ld	X,@(H'000D,Y)
	ld	AL,@(H'0003,X)
	st	AL,@(0,Y)
	ld	AL,@(H'0002,X)
	st	AL,@(H'0001,Y)
	ld	AH,@(0,X)
	ld	AL,@(1,X)
	st	AH,@(H'0002,Y)
	st	AL,@(H'0003,Y)
	ld	AH,#(?LC20)
	bsr	$_printf
?LBE6:
	bra	(?L25)
?L99:
	ld	AH,#(?LC21)
	bra	(?L118)
?L100:
	ld	AH,#(?LC22)
?L118:
	bsr	$_puts
	bra	(?L25)
?L101:
	ld	AH,#(?LC23)
	bsr	$_puts
	ld	AL,@_theSppApp+H'0006
	cmp	AL,#(H'0001+H'0005)
	bcc	?L102
	ld	X,@$XAP_AL
	ld	X,@(?JTBASE109,X)
	brxl
	.SEG	CONST
?JTBASE109:
	.CODE
?L109:
	.SEG	CONST
	dc	?L25-?L109
	dc	?L104-?L109
	dc	?L106-?L109
	dc	?L106-?L109
	dc	?L107-?L109
	dc	?L102-?L109
	.CODE
?L104:
	ld	AH,#(_theSppApp)
	bsr	$_sppDevInquire
	bra	(?L102)
?L106:
	ld	AH,#(?LC24)
	bsr	$_puts
	bsr	$_getAppTask
	bsr	$_ConnectionInquireCancel
	bra	(?L102)
?L107:
	ld	AH,#(?LC25)
	bsr	$_puts
	ld	AH,@_theSppApp+H'0001
	bsr	$_SppDisconnect
?L102:
	ld	AH,#(_theSppApp+H'0002)
	bsr	$_clear_far_addr
	ld	AL,#H'0020
	st	AL,@(0,Y)
	ld	AH,#(_failed_addr)
	ld	AL,#H'0000
	bsr	$_memset
	bra	(?L25)
?L111:
	ld	AH,@(H'0009,Y)
	st	AH,@(0,Y)
	ld	AH,#(?LC26)
	bsr	$_printf
?L25:
?LBE3:
?LBE_app_handler:
	leave	#13
	.SEG	CONST
?LC2:
	dc	H'43
	dc	H'4C
	dc	H'5F
	dc	H'49
	dc	H'4E
	dc	H'49
	dc	H'54
	dc	H'5F
	dc	H'43
	dc	H'46
	dc	H'4D
	dc	H'00
?LC3:
	dc	H'53
	dc	H'50
	dc	H'50
	dc	H'5F
	dc	H'49
	dc	H'4E
	dc	H'49
	dc	H'54
	dc	H'5F
	dc	H'43
	dc	H'46
	dc	H'4D
	dc	H'00
?LC4:
	dc	H'43
	dc	H'4C
	dc	H'5F
	dc	H'44
	dc	H'4D
	dc	H'5F
	dc	H'49
	dc	H'4E
	dc	H'51
	dc	H'55
	dc	H'49
	dc	H'52
	dc	H'45
	dc	H'5F
	dc	H'52
	dc	H'45
	dc	H'53
	dc	H'55
	dc	H'4C
	dc	H'54
	dc	H'00
?LC5:
	dc	H'49
	dc	H'6E
	dc	H'71
	dc	H'75
	dc	H'69
	dc	H'72
	dc	H'79
	dc	H'20
	dc	H'63
	dc	H'6F
	dc	H'6D
	dc	H'70
	dc	H'6C
	dc	H'65
	dc	H'74
	dc	H'65
	dc	H'00
?LC6:
	dc	H'46
	dc	H'6F
	dc	H'75
	dc	H'6E
	dc	H'64
	dc	H'20
	dc	H'64
	dc	H'65
	dc	H'76
	dc	H'69
	dc	H'63
	dc	H'65
	dc	H'00
?LC7:
	dc	H'4E
	dc	H'6F
	dc	H'74
	dc	H'20
	dc	H'61
	dc	H'6C
	dc	H'72
	dc	H'65
	dc	H'61
	dc	H'64
	dc	H'79
	dc	H'20
	dc	H'74
	dc	H'72
	dc	H'69
	dc	H'65
	dc	H'64
	dc	H'20
	dc	H'74
	dc	H'6F
	dc	H'20
	dc	H'63
	dc	H'6F
	dc	H'6E
	dc	H'6E
	dc	H'65
	dc	H'63
	dc	H'74
	dc	H'00
?LC8:
	dc	H'41
	dc	H'6C
	dc	H'72
	dc	H'65
	dc	H'61
	dc	H'64
	dc	H'79
	dc	H'20
	dc	H'74
	dc	H'72
	dc	H'69
	dc	H'65
	dc	H'64
	dc	H'20
	dc	H'74
	dc	H'6F
	dc	H'20
	dc	H'63
	dc	H'6F
	dc	H'6E
	dc	H'6E
	dc	H'65
	dc	H'63
	dc	H'74
	dc	H'00
?LC9:
	dc	H'53
	dc	H'50
	dc	H'50
	dc	H'5F
	dc	H'43
	dc	H'4F
	dc	H'4E
	dc	H'4E
	dc	H'45
	dc	H'43
	dc	H'54
	dc	H'5F
	dc	H'43
	dc	H'46
	dc	H'4D
	dc	H'20
	dc	H'72
	dc	H'65
	dc	H'73
	dc	H'75
	dc	H'6C
	dc	H'74
	dc	H'20
	dc	H'3D
	dc	H'20
	dc	H'25
	dc	H'64
	dc	H'0A
	dc	H'00
?LC10:
	dc	H'44
	dc	H'65
	dc	H'76
	dc	H'69
	dc	H'63
	dc	H'65
	dc	H'20
	dc	H'63
	dc	H'6F
	dc	H'6E
	dc	H'6E
	dc	H'65
	dc	H'63
	dc	H'74
	dc	H'65
	dc	H'64
	dc	H'2E
	dc	H'2E
	dc	H'2E
	dc	H'00
?LC11:
	dc	H'43
	dc	H'6F
	dc	H'6E
	dc	H'6E
	dc	H'65
	dc	H'63
	dc	H'74
	dc	H'69
	dc	H'6F
	dc	H'6E
	dc	H'20
	dc	H'66
	dc	H'61
	dc	H'69
	dc	H'6C
	dc	H'65
	dc	H'64
	dc	H'00
?LC12:
	dc	H'53
	dc	H'50
	dc	H'50
	dc	H'5F
	dc	H'43
	dc	H'4F
	dc	H'4E
	dc	H'4E
	dc	H'45
	dc	H'43
	dc	H'54
	dc	H'5F
	dc	H'49
	dc	H'4E
	dc	H'44
	dc	H'00
?LC13:
	dc	H'53
	dc	H'50
	dc	H'50
	dc	H'5F
	dc	H'44
	dc	H'49
	dc	H'53
	dc	H'43
	dc	H'4F
	dc	H'4E
	dc	H'4E
	dc	H'45
	dc	H'43
	dc	H'54
	dc	H'5F
	dc	H'49
	dc	H'4E
	dc	H'44
	dc	H'00
?LC14:
	dc	H'43
	dc	H'4C
	dc	H'5F
	dc	H'53
	dc	H'4D
	dc	H'5F
	dc	H'50
	dc	H'49
	dc	H'4E
	dc	H'5F
	dc	H'43