spp_dev_a.xap

蓝牙虚拟串口程序1 设备A BLUELAB4.0

	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