spp_dev_a.xap

蓝牙串口适配器主方程序, 可以实现串口传输

	cmp	AH,#(H'0001+H'0005)
	bcc	?L102
	ld	X,@(-1,Y)
	ld	X,@(?JTBASE81,X)
	brxl
	.SEG	CONST
?JTBASE81:
	.CODE
?L81:
	.SEG	CONST
	dc	?L102-?L81
	dc	?L102-?L81
	dc	?L71-?L81
	dc	?L71-?L81
	dc	?L102-?L81
	dc	?L102-?L81
	.CODE
?L71:
	ld	X,@(H'000A,Y)
	tst	@(H'0001,X)
	bne	?L72
;	bsr	$_StreamUartSink
	DC	((256*104)+9)
;	bsr	$_StreamSourceFromSink
	DC	((256*74)+9)
	ld	X,@(H'000A,Y)
	ld	AL,@(H'0002,X)
;	bsr	$_StreamConnect
	DC	((256*71)+9)
	ld	X,@(H'000A,Y)
	ld	AH,@(H'0002,X)
;	bsr	$_StreamSourceFromSink
	DC	((256*74)+9)
	st	AH,@(H'0008,Y)
;	bsr	$_StreamUartSink
	DC	((256*104)+9)
	ld	AL,@$XAP_AH
	ld	AH,@(H'0008,Y)
;	bsr	$_StreamConnect
	DC	((256*71)+9)
	ld	AH,#H'0004
	bsr	$_setSppState
	ld	AH,#(_theSppApp+H'0002)
	bsr	$_write_far_addr
	bra	(?L37)
?L72:
?LBB5:
	ld	AH,@$XAP_UY
	add	AH,#H'0004
	bsr	$_read_far_addr
	ld	AH,@(H'0004,Y)
	ld	AL,@(H'0005,Y)
	cmp	AH,@_theSppApp+H'0002
	bne	?L74
	cmp	AL,@_theSppApp+H'0003
	bne	?L74
	ld	X,@$XAP_UY
	add	X,#H'0004
	ld	AL,@(H'0002,X)
	cmp	AL,@_theSppApp+H'0004
	bne	?L74
	ld	AL,@(H'0003,X)
	cmp	AL,@_theSppApp+H'0005
	bne	?L74
	ld	AL,@(H'0004,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	?L117
?L74:
	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	(?L97)
?L82:
?LBE5:
	cmp	AH,#(H'0001+H'0005)
	bcc	?L102
	ld	X,@(-1,Y)
	ld	X,@(?JTBASE91,X)
	brxl
	.SEG	CONST
?JTBASE91:
	.CODE
?L91:
	.SEG	CONST
	dc	?L102-?L91
	dc	?L85-?L91
	dc	?L85-?L91
	dc	?L102-?L91
	dc	?L102-?L91
	dc	?L102-?L91
	.CODE
?L85:
	ld	AH,#(_theSppApp)
	ld	AL,@(H'000A,Y)
	bsr	$_sppDevAuthoriseConnectInd
	bra	(?L37)
?L92:
	cmp	AH,#(H'0001+H'0005)
	bcc	?L102
	ld	X,@(-1,Y)
	ld	X,@(?JTBASE103,X)
	brxl
	.SEG	CONST
?JTBASE103:
	.CODE
?L103:
	.SEG	CONST
	dc	?L102-?L103
	dc	?L96-?L103
	dc	?L102-?L103
	dc	?L102-?L103
	dc	?L96-?L103
	dc	?L96-?L103
	.CODE
?L96:
	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	?L97
?L117:
	ld	AH,#(_theSppApp)
	bsr	$_sppDevConnect
	bra	(?L37)
?L97:
	ld	AH,#(_theSppApp)
	bsr	$_sppDevInquire
	bra	(?L37)
?L102:
	ld	AH,@(-1,Y)
	bsr	_unhandledSppState
	bra	(?L37)
?L104:
	ld	AH,@_theSppApp+H'0006
	bsr	$_sppDevUpdateLed
	bra	(?L37)
?L105:
	ld	AH,@(H'000A,Y)
	bsr	$_sppDevHandlePinCodeRequest
	bra	(?L37)
?L106:
	ld	AH,@(H'000A,Y)
	bsr	$_sppDevAuthoriseResponse
	bra	(?L37)
?L107:
	ld	AH,#(_theSppApp)
	ld	AL,@(H'000A,Y)
	bsr	$_sppDevSetTrustLevel
?L37:
?LBE4:
?LBE_app_handler:
	leave	#10
;.stabn	192,0,0,?LBB4
;.stabn	192,0,0,?LBB5
;.stabn	224,0,0,?LBE5
;.stabn	224,0,0,?LBE4
;# begin scan referenced symbols
;# import _app_handler
;# import _PioInit
;# import $_sppDevLedInit
;# import $_ConnectionInit
;# import $_MessageLoop
;# end scan referenced symbols
$_main:
	enter	#2
?LBB_main:
?LBB6:
;	bsr	$_StreamUartSink
	DC	((256*104)+9)
;	bsr	$_StreamSourceFromSink
	DC	((256*74)+9)
	cmp	AH,#H'0000
	beq	?L131
	ld	AL,#lwrd(_app_handler)
	st	AL,@_theSppApp
	ld	AH,#H'0000
	bsr	$_setSppState
	ld	AH,#(_theSppApp+H'0002)
	bsr	$_read_far_addr
	ld	AH,@$XAP_UY
	bsr	_PioInit
	bsr	$_sppDevLedInit
	ld	AH,#(_theSppApp)
	bsr	$_ConnectionInit
	bsr	$_MessageLoop
?L131:
?LBE6:
	ld	AH,#H'0000
?LBE_main:
	leave	#2
;.stabn	192,0,0,?LBB6
;.stabn	224,0,0,?LBE6
	.SEG	VAR
_theSppApp:
	DS	7
_failed_addr:
	DS	32
	ENDMOD

;# Function pattern *movqi2 used[0] = 41 used[1] = 20 total = 61
;# Function pattern *movqi3 used[0] = 60 total = 60
;# Function pattern *movqi8 used[0] = 3 total = 3
;# Function pattern *movhi used[2] = 2 total = 2
;# Function pattern *addqi0 used[0] = 2 total = 2
;# Function pattern *addqi2 used[0] = 2 used[2] = 3 total = 5
;# Function pattern *mulqi3_const used[0] = 2 total = 2
;# Function pattern jump used[0] = 21 total = 21
;# Function pattern *call1 used[0] = 27 total = 27
;# Function pattern *call_value1 used[0] = 14 total = 14
;# Function pattern tablejump_1 used[0] = 5 total = 5
;# Function pattern movstrqi+3 used[0] = 6 used[1] = 4 total = 10
;# Function pattern movstrqi+4 used[1] = 9 total = 9
;# Function pattern movstrqi+5 used[0] = 17 total = 17
;# Function pattern movstrqi+7 used[1] = 2 total = 2
	MODULE	spp_dev_auth
	.LARGE ; really small mode but we need space for debug symbols
; GNU C version 3.3.3 (BlueLab 3.6.2-release)
; 	compiled by GNU C version 3.2.3 (mingw special 20030504-1).
;# options passed:  -ID:/BlueLab/tools/include -iprefix -isystem
;# -D__GNUC__=3 -D__GNUC_MINOR__=3 -D__GNUC_PATCHLEVEL__=3 -MD -MQ
;# -mno-leaf-optim -ansi -auxbase-strip -g -O -pedantic -Wall
;# -Wmissing-prototypes -Wstrict-prototypes -Wsign-compare
;# -Wredundant-decls -Werror -ansi -fno-builtin-memcpy
;# options enabled:  -fdefer-pop -fthread-jumps -fpeephole -ffunction-cse
;# -fkeep-static-consts -fpcc-struct-return -fgcse-lm -fgcse-sm
;# -floop-optimize -fcrossjumping -fif-conversion -fif-conversion2
;# -fsched-interblock -fsched-spec -fbranch-count-reg -fcprop-registers
;# -fcommon -fgnu-linker -fargument-alias -fmerge-constants
;# -fzero-initialized-in-bss -fleading-underscore -fident
;# -fguess-branch-probability -fmath-errno -ftrapping-math -mpeephole
;# -mquiet-mode -minline-block-copy-mode -menhanced-mode -mload-cache-mode
;# -mbitfield-mode -mtest4

	.ENHANCED
;# begin scan referenced symbols
;# import ?LC0
;# import ?LC0
;# import $_ConnectionSmPinCodeResponse
;# end scan referenced symbols
	.CODE
$_sppDevHandlePinCodeRequest:
	enter	#2
?LBB_sppDevHandlePinCodeRequest:
	ld	AL,#(?LC0)
	st	AL,@(0,Y)
	ld	AL,#H'0004
	bsr	$_ConnectionSmPinCodeResponse
?LBE_sppDevHandlePinCodeRequest:
	leave	#2
	.SEG	CONST
?LC0:
	dc	H'31
	dc	H'32
	dc	H'33
	dc	H'34
	dc	H'00
	.CODE
;# begin scan referenced symbols
;# import $_ConnectionSmAuthoriseResponse
;# end scan referenced symbols
$_sppDevAuthoriseResponse:
	enter	#5
?LBB_sppDevAuthoriseResponse:
	ld	X,@$XAP_AH
	ld	AH,@(H'0005,X)
	ld	AL,@(H'0006,X)
	st	AH,@(0,Y)
	st	AL,@(1,Y)
	ld	AL,@(H'0007,X)
	st	AL,@(H'0002,Y)
	ld	AL,#H'0001
	st	AL,@(H'0003,Y)
	ld	AH,@$XAP_UXL
	ld	AL,@(H'0004,X)
	bsr	$_ConnectionSmAuthoriseResponse
?LBE_sppDevAuthoriseResponse:
	leave	#5
;# begin scan referenced symbols
;# import $_SppConnectResponse
;# end scan referenced symbols
$_sppDevAuthoriseConnectInd:
	enter	#2
?LBB_sppDevAuthoriseConnectInd:
	ld	X,@$XAP_AL
	add	AL,#H'0001
	st	AL,@(0,Y)
	ld	AH,@(0,X)
	ld	AL,#H'0001
	bsr	$_SppConnectResponse
?LBE_sppDevAuthoriseConnectInd:
	leave	#2
;# begin scan referenced symbols
;# import $_ConnectionSmSetTrustLevel
;# end scan referenced symbols
$_sppDevSetTrustLevel:
	enter	#1
?LBB_sppDevSetTrustLevel:
	ld	X,@$XAP_AL
	tst	@(0,X)
	bne	?L4
	ld	AH,#H'0001
	add	AH,@$XAP_AL
	ld	AL,#H'0001
	bsr	$_ConnectionSmSetTrustLevel
?L4:
?LBE_sppDevSetTrustLevel:
	leave	#1
	ENDMOD

;# Function pattern *movqi2 used[0] = 8 total = 8
;# Function pattern *movqi3 used[0] = 8 total = 8
;# Function pattern *movhi used[2] = 1 used[3] = 1 total = 2
;# Function pattern *addqi2 used[0] = 1 used[2] = 1 total = 2
;# Function pattern *call1 used[0] = 4 total = 4
;# Function pattern movstrqi+3 used[1] = 1 total = 1
	MODULE	spp_dev_connect
	.LARGE ; really small mode but we need space for debug symbols
; GNU C version 3.3.3 (BlueLab 3.6.2-release)
; 	compiled by GNU C version 3.2.3 (mingw special 20030504-1).
;# options passed:  -ID:/BlueLab/tools/include -iprefix -isystem
;# -D__GNUC__=3 -D__GNUC_MINOR__=3 -D__GNUC_PATCHLEVEL__=3 -MD -MQ
;# -mno-leaf-optim -ansi -auxbase-strip -g -O -pedantic -Wall
;# -Wmissing-prototypes -Wstrict-prototypes -Wsign-compare
;# -Wredundant-decls -Werror -ansi -fno-builtin-memcpy
;# options enabled:  -fdefer-pop -fthread-jumps -fpeephole -ffunction-cse
;# -fkeep-static-consts -fpcc-struct-return -fgcse-lm -fgcse-sm
;# -floop-optimize -fcrossjumping -fif-conversion -fif-conversion2
;# -fsched-interblock -fsched-spec -fbranch-count-reg -fcprop-registers
;# -fcommon -fgnu-linker -fargument-alias -fmerge-constants
;# -fzero-initialized-in-bss -fleading-underscore -fident
;# -fguess-branch-probability -fmath-errno -ftrapping-math -mpeephole
;# -mquiet-mode -minline-block-copy-mode -menhanced-mode -mload-cache-mode
;# -mbitfield-mode -mtest4

	.ENHANCED
;# begin scan referenced symbols
;# import $_setSppState
;# import $_SppConnect
;# end scan referenced symbols
	.CODE
$_sppDevConnect:
	enter	#2
?LBB_sppDevConnect:
	st	AH,@(0,Y)
	ld	AH,#H'0003
	bsr	$_setSppState
	ld	AL,@(0,Y)
	add	AL,#H'0002
	ld	X,@(0,Y)
	ld	AH,@(H'0001,X)
	bsr	$_SppConnect
?LBE_sppDevConnect:
	leave	#2
	ENDMOD

;# Function pattern *movqi2 used[0] = 1 total = 1
;# Function pattern *movqi3 used[0] = 4 total = 4
;# Function pattern *addqi2 used[0] = 1 total = 1
;# Function pattern *call1 used[0] = 2 total = 2
	MODULE	spp_dev_init
	.LARGE ; really small mode but we need space for debug symbols
; GNU C version 3.3.3 (BlueLab 3.6.2-release)
; 	compiled by GNU C version 3.2.3 (mingw special 20030504-1).
;# options passed:  -ID:/BlueLab/tools/include -iprefix -isystem
;# -D__GNUC__=3 -D__GNUC_MINOR__=3 -D__GNUC_PATCHLEVEL__=3 -MD -MQ
;# -mno-leaf-optim -ansi -auxbase-strip -g -O -pedantic -Wall
;# -Wmissing-prototypes -Wstrict-prototypes -Wsign-compare
;# -Wredundant-decls -Werror -ansi -fno-builtin-memcpy
;# options enabled:  -fdefer-pop -fthread-jumps -fpeephole -ffunction-cse
;# -fkeep-static-consts -fpcc-struct-return -fgcse-lm -fgcse-sm
;# -floop-optimize -fcrossjumping -fif-conversion -fif-conversion2
;# -fsched-interblock -fsched-spec -fbranch-count-reg -fcprop-registers
;# -fcommon -fgnu-linker -fargument-alias -fmerge-constants
;# -fzero-initialized-in-bss -fleading-underscore -fident
;# -fguess-branch-probability -fmath-errno -ftrapping-math -mpeephole
;# -mquiet-mode -minline-block-copy-mode -menhanced-mode -mload-cache-mode
;# -mbitfield-mode -mtest4

	.ENHANCED
;# begin scan referenced symbols
;# import $_getAppTask
;# import $_SppInit
;# end scan referenced symbols
	.CODE
$_sppDevInit:
	enter	#2
?LBB_sppDevInit:
	bsr	$_getAppTask
	ld	AL,#H'00FF
	st	AL,@(0,Y)
	ld	AL,#H'0000
	bsr	$_SppInit
?LBE_sppDevInit:
	leave	#2
	ENDMOD

;# Function pattern *movqi2 used[0] = 1 total = 1
;# Function pattern *movqi3 used[0] = 2 total = 2
;# Function pattern *call1 used[0] = 1 total = 1
;# Function pattern *call_value1 used[0] = 1 total = 1
	MODULE	spp_dev_inquire
	.LARGE ; really small mode but we need space for debug symbols
; GNU C version 3.3.3 (BlueLab 3.6.2-release)
; 	compiled by GNU C version 3.2.3 (mingw special 20030504-1).
;# options passed:  -ID:/BlueLab/tools/include -iprefix -isystem
;# -D__GNUC__=3 -D__GNUC_MINOR__=3 -D__GNUC_PATCHLEVEL__=3 -MD -MQ
;# -mno-leaf-optim -ansi -auxbase-strip -g -O -pedantic -Wall
;# -Wmissing-prototypes -Wstrict-prototypes -Wsign-compare
;# -Wredundant-decls -Werror -ansi -fno-builtin-memcpy
;# options enabled:  -fdefer-pop -fthread-jumps -fpeephole -ffunction-cse
;# -fkeep-static-consts -fpcc-struct-return -fgcse-lm -fgcse-sm
;# -floop-optimize -fcrossjumping -fif-conversion -fif-conversion2
;# -fsched-interblock -fsched-spec -fbranch-count-reg -fcprop-registers
;# -fcommon -fgnu-linker -fargument-alias -fmerge-constants
;# -fzero-initialized-in-bss -fleading-underscore -fident
;# -fguess-branch-probability -fmath-errno -ftrapping-math -mpeephole
;# -mquiet-mode -minline-block-copy-mode -menhanced-mode -mload-cache-mode
;# -mbitfield-mode -mtest4

	.ENHANCED
;# begin scan referenced symbols
;# import $_ConnectionSmRegisterIncomingService
;# import $_ConnectionWriteClassOfDevice
;# import $_setSppState
;# import $_getAppTask
;# import $_ConnectionInquire
;# end scan referenced symbols
	.CODE
$_sppDevInquire:
	enter	#7
?LBB_sppDevInquire:
	ld	AL,#H'0001
	st	AL,@(H'0001,Y)
	ld	AL,#H'0000
	st	AL,@(0,Y)
	st	AL,@(H'0002,Y)
	ld	AH,#H'0000
	bsr	$_ConnectionSmRegisterIncomingService
	ld	AL,#H'1F00
	ld	AH,#H'0000
	bsr	$_ConnectionWriteClassOfDevice
	ld	AH,#H'0002
	bsr	$_setSppState
	bsr	$_getAppTask
	ld	AL,#-H'74CD
	st	AL,@(H'0001,Y)
	ld	AL,#H'009E
	st	AL,@(0,Y)
	ld	AL,#H'0009
	st	AL,@(H'0002,Y)
	ld	AL,#H'0030
	st	AL,@(H'0003,Y)
	ld	AL,#H'1F00
	st	AL,@(H'0005,Y)
	ld	AL,#H'0000
	st	AL,@(H'0004,Y)
	bsr	$_ConnectionInquire
?LBE_sppDevInquire:
	leave	#7
;# begin scan referenced symbols
;# import $_BdaddrIsZero
;# import $_sppDevInquire
;# end scan referenced symbols
$_sppDevInquiryComplete:
	enter	#2
?LBB_sppDevInquiryComplete:
	st	AH,@(0,Y)
	add	AH,#H'0002
	bsr	$_BdaddrIsZero
	cmp	AH,#H'0000
	beq	?L2
	ld	AH,@(0,Y)
	bsr	$_sppDevInquire
?L2:
?LBE_sppDevInquiryComplete:
	leave	#2
;# begin scan referenced symbols
;# import $_ConnectionInquireCancel
;# import $_sppDevConnect
;# end scan referenced symbols
$_sppDevInquiryResult:
	enter	#3
?LBB_sppDevInquiryResult:
	st	AH,@(0,Y)
	st	AL,@(H'0001,Y)
	ld	X,@$XAP_AL
	ld	AH,@(H'0005,X)
	ld	AL,@(H'0006,X)
	and	AL,#H'1F00
	and	AH,#H'0000
	cmp	AH,#H'0000
	bne	?L7
	cmp	AL,#H'0000
	beq	?L5
?L7:
	ld	AH,@(0,Y)
	add	AH,#H'0002
	bsr	$_BdaddrIsZero
	cmp	AH,#H'0000
	beq	?L5
	ld	X,@(H'0001,Y)
	ld	AL,@(H'0001,X)
	ld	X,@(0,Y)
	st	AL,@(H'0002,X)
	ld	X,@(H'0001,Y)
	ld	AL,@(H'0002,X)
	ld	X,@(0,Y)
	st	AL,@(H'0003,X)
	ld	X,@(H'0001,Y)
	ld	AL,@(H'0003,X)