spp_dev_a.xap

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

	ld	X,@(0,Y)
	st	AL,@(H'0004,X)
	ld	X,@(H'0001,Y)
	ld	AL,@(H'0004,X)
	ld	X,@(0,Y)
	st	AL,@(H'0005,X)
	bsr	$_getAppTask
	bsr	$_ConnectionInquireCancel
	ld	AH,@(0,Y)
	bsr	$_sppDevConnect
?L5:
?LBE_sppDevInquiryResult:
	leave	#3
	ENDMOD

;# Function pattern *movqi2 used[0] = 17 used[1] = 3 total = 20
;# Function pattern *movqi3 used[0] = 24 total = 24
;# Function pattern *movhi used[2] = 1 total = 1
;# Function pattern *andhi3 used[0] = 1 total = 1
;# Function pattern *addqi2 used[0] = 2 total = 2
;# Function pattern *call1 used[0] = 7 total = 7
;# Function pattern *call_value1 used[0] = 4 total = 4
;# Function pattern movstrqi+3 used[0] = 2 total = 2
;# Function pattern movstrqi+6 used[0] = 1 total = 1
	MODULE	spp_dev_led
	.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 $_PioSetDir
;# import $_PioSet
;# end scan referenced symbols
	.CODE
$_sppDevLedInit:
	enter	#1
?LBB_sppDevLedInit:
	ld	AH,#H'0080
	ld	AL,@$XAP_AH
;	bsr	$_PioSetDir
	DC	((256*41)+9)
	ld	AH,#H'0080
	ld	AL,#H'0000
;	bsr	$_PioSet
	DC	((256*39)+9)
?LBE_sppDevLedInit:
	leave	#1
;# begin scan referenced symbols
;# import $_PioGet
;#(clobber:QI (reg:QI 1 AL))
;# import $_getAppTask
;# import $_MessageCancelAll
;#(clobber (reg:QI 3 X))
;# import $_MessageSendLater
;# end scan referenced symbols
$_sppDevUpdateLed:
	enter	#6
?LBB_sppDevUpdateLed:
	st	AH,@(H'0003,Y)
?LBB2:
;	bsr	$_PioGet
	DC	((256*38)+9)
	lsr	#H'0007
	ld	AL,@$XAP_AH
	and	AL,#H'0001
	st	AL,@(H'0004,Y)
	bsr	$_getAppTask
	ld	AL,#H'0000
	bsr	$_MessageCancelAll
	ld	X,@(H'0003,Y)
	cmp	X,#(H'0001+H'0005)
	bcc	?L2
	ld	X,@(?JTBASE17,X)
	brxl
	.SEG	CONST
?JTBASE17:
	.CODE
?L17:
	.SEG	CONST
	dc	?L2-?L17
	dc	?L5-?L17
	dc	?L7-?L17
	dc	?L10-?L17
	dc	?L13-?L17
	dc	?L2-?L17
	.CODE
?L5:
	tst	@(H'0004,Y)
	beq	?L2
	ld	AH,#H'0080
	ld	AL,#H'0000
	bra	(?L21)
?L7:
	tst	@(H'0004,Y)
	beq	?L8
	ld	AH,#H'0080
	ld	AL,#H'0000
	bra	(?L18)
?L8:
	ld	AH,#H'0080
	ld	AL,@$XAP_AH
?L18:
;	bsr	$_PioSet
	DC	((256*39)+9)
	bsr	$_getAppTask
	ld	X,#H'0000
	st	X,@(0,Y)
	ld	AL,#H'0064
	bra	(?L20)
?L10:
	tst	@(H'0004,Y)
	beq	?L11
	ld	AH,#H'0080
	ld	AL,#H'0000
	bra	(?L19)
?L11:
	ld	AH,#H'0080
	ld	AL,@$XAP_AH
?L19:
;	bsr	$_PioSet
	DC	((256*39)+9)
	bsr	$_getAppTask
	ld	X,#H'0000
	st	X,@(0,Y)
	ld	AL,#H'02BC
?L20:
	st	AL,@(H'0002,Y)
	st	X,@(H'0001,Y)
	ld	AL,#H'0000
;	bsr	$_MessageSendLater
	DC	((256*9)+9)
	bra	(?L2)
?L13:
	tst	@(H'0004,Y)
	bne	?L2
	ld	AH,#H'0080
	ld	AL,@$XAP_AH
?L21:
;	bsr	$_PioSet
	DC	((256*39)+9)
?L2:
?LBE2:
?LBE_sppDevUpdateLed:
	leave	#6
;.stabn	192,0,0,?LBB2
;.stabn	224,0,0,?LBE2
	ENDMOD

;# Function pattern *movqi2 used[0] = 9 total = 9
;# Function pattern *movqi3 used[0] = 15 total = 15
;# Function pattern *andqi3 used[0] = 1 total = 1
;# Function pattern *lshrqi3 used[0] = 1 total = 1
;# Function pattern jump used[0] = 5 total = 5
;# Function pattern *call1 used[0] = 6 total = 6
;# Function pattern *call_value1 used[0] = 5 total = 5
;# Function pattern tablejump_1 used[0] = 1 total = 1
;# Function pattern movstrqi+2 used[0] = 2 total = 2
;# Function pattern movstrqi+3 used[1] = 4 total = 4
;# Function pattern movstrqi+4 used[1] = 1 total = 1
	MODULE	spp_dev_store
	.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 $_PsStore
;# import $_PanicNull
;# end scan referenced symbols
	.CODE
$_write_far_addr:
	enter	#2
?LBB_write_far_addr:
	ld	AL,@$XAP_AH
	ld	AH,#H'0004
	st	AH,@(0,Y)
	ld	AH,#H'0000
;	bsr	$_PsStore
	DC	((256*17)+9)
;	bsr	$_PanicNull
	DC	((256*15)+9)
?LBE_write_far_addr:
	leave	#2
;# begin scan referenced symbols
;# end scan referenced symbols
$_clear_far_addr:
	enter	#2
?LBB_clear_far_addr:
	ld	X,@$XAP_AH
	ld	AL,#H'0000
	st	AL,@(H'0001,X)
	st	AL,@(0,X)
	st	AL,@(H'0003,X)
	st	AL,@(H'0002,X)
	st	AL,@(0,Y)
	ld	AH,#H'0000
;	bsr	$_PsStore
	DC	((256*17)+9)
?LBE_clear_far_addr:
	leave	#2
;# begin scan referenced symbols
;# import $_PsRetrieve
;# import $_clear_far_addr
;# end scan referenced symbols
$_read_far_addr:
	enter	#3
?LBB_read_far_addr:
	st	AH,@(H'0001,Y)
	ld	AL,#H'0004
	st	AL,@(0,Y)
	ld	AH,#H'0000
	ld	AL,@(H'0001,Y)
;	bsr	$_PsRetrieve
	DC	((256*18)+9)
	cmp	AH,#H'0000
	bne	?L3
	ld	AH,@(H'0001,Y)
	bsr	$_clear_far_addr
?L3:
?LBE_read_far_addr:
	leave	#3
;# begin scan referenced symbols
;# end scan referenced symbols
$_know_far_addr:
	enter	#1
?LBB_know_far_addr:
	ld	AL,@(H'0001,Y)
	st	AL,@H'fff8
	ld	AL,@(H'0002,Y)
	st	AL,@H'fff9
	ld	AL,@(H'0003,Y)
	st	AL,@H'fffa
	ld	AL,@(H'0004,Y)
	st	AL,@H'fffb
	ld	X,#H'0000
	ld	AH,@H'fff8
	ld	AL,@H'fff9
	cmp	AH,#H'0000
	bne	?L7
	cmp	AL,#H'0000
	bne	?L7
	tst	@H'fffb
	bne	?L7
	tst	@H'fffa
	beq	?L6
?L7:
	ld	X,#H'0001
?L6:
	ld	AH,@$XAP_UXL
?LBE_know_far_addr:
	leave	#1
	ENDMOD

;# Function pattern *movqi2 used[0] = 15 used[1] = 2 total = 17
;# Function pattern *movqi3 used[0] = 12 total = 12
;# Function pattern *movhi used[2] = 1 total = 1
;# Function pattern *call1 used[0] = 1 total = 1
;# Function pattern *call_value1 used[0] = 4 total = 4
;# Function pattern movstrqi+3 used[0] = 1 used[1] = 2 total = 3
;# Function pattern movstrqi+6 used[0] = 1 total = 1
	MODULE	dm_baseband_cod
	.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 $_PanicUnlessMalloc
;# import $_connectionGetCmTask
;# import $_MessageSend
;# end scan referenced symbols
	.CODE
$_ConnectionWriteClassOfDevice:
	enter	#5
?LBB_ConnectionWriteClassOfDevice:
	st	AH,@(H'0001,Y)
	st	AL,@(H'0002,Y)
?LBB2:
	ld	AH,#H'0002
;	bsr	$_PanicUnlessMalloc
	DC	((256*47)+9)
	st	AH,@(H'0003,Y)
	ld	AH,@(H'0001,Y)
	ld	AL,@(H'0002,Y)
	ld	X,@(H'0003,Y)
	st	AH,@(0,X)
	st	AL,@(1,X)
	bsr	$_connectionGetCmTask
	ld	AL,@(H'0003,Y)
	st	AL,@(0,Y)
	ld	AL,#H'001A
	bsr	$_MessageSend
?LBE2:
?LBE_ConnectionWriteClassOfDevice:
	leave	#5
;.stabn	192,0,0,?LBB2
;.stabn	224,0,0,?LBE2
;# begin scan referenced symbols
;# end scan referenced symbols
$_ConnectionReadClassOfDevice:
	enter	#4
?LBB_ConnectionReadClassOfDevice:
	st	AH,@(H'0001,Y)
?LBB3:
	ld	AH,#H'0001
;	bsr	$_PanicUnlessMalloc
	DC	((256*47)+9)
	st	AH,@(H'0002,Y)
	ld	AL,@(H'0001,Y)
	ld	X,@$XAP_AH
	st	AL,@(0,X)
	bsr	$_connectionGetCmTask
	ld	X,@(H'0002,Y)
	st	X,@(0,Y)
	ld	AL,#H'0019
	bsr	$_MessageSend
?LBE3:
?LBE_ConnectionReadClassOfDevice:
	leave	#4
;.stabn	192,0,0,?LBB3
;.stabn	224,0,0,?LBE3
	ENDMOD

;# Function pattern *movqi2 used[0] = 6 total = 6
;# Function pattern *movqi3 used[0] = 6 total = 6
;# Function pattern *movhi used[2] = 1 used[3] = 2 total = 3
;# Function pattern *call1 used[0] = 2 total = 2
;# Function pattern *call_value1 used[0] = 4 total = 4
;# Function pattern movstrqi+2 used[0] = 1 total = 1
	MODULE	dm_inquiry
	.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 $_PanicUnlessMalloc
;# import $_connectionGetCmTask
;# import $_MessageSend
;# end scan referenced symbols
	.CODE
$_ConnectionInquire:
	enter	#4
?LBB_ConnectionInquire:
	st	AH,@(H'0001,Y)
?LBB2:
?LBB3:
	ld	AH,#H'0007
;	bsr	$_PanicUnlessMalloc
	DC	((256*47)+9)
	st	AH,@(H'0002,Y)
	ld	AL,@(H'0001,Y)
	ld	X,@$XAP_AH
	st	AL,@(0,X)
	ld	AH,@(H'0004,Y)
	ld	AL,@(H'0005,Y)
	ld	X,@(H'0002,Y)
	st	AH,@(H'0001,X)
	st	AL,@(H'0002,X)
	ld	AL,@(H'0006,Y)
	st	AL,@(H'0003,X)
	ld	AL,@(H'0007,Y)
	st	AL,@(H'0004,X)
	ld	AH,@(H'0008,Y)
	ld	AL,@(H'0009,Y)
	ld	X,@(H'0002,Y)
	st	AH,@(H'0005,X)
	st	AL,@(H'0006,X)
	bsr	$_connectionGetCmTask
	ld	AL,@(H'0002,Y)
	st	AL,@(0,Y)
	ld	AL,#H'0003
	bsr	$_MessageSend
?LBE3:
?LBE2:
?LBE_ConnectionInquire:
	leave	#4
;.stabn	192,0,0,?LBB3
;.stabn	224,0,0,?LBE3
;# begin scan referenced symbols
;# end scan referenced symbols
$_ConnectionInquireCancel:
	enter	#4
?LBB_ConnectionInquireCancel:
	st	AH,@(H'0001,Y)
?LBB4:
	ld	AH,#H'0001
;	bsr	$_PanicUnlessMalloc
	DC	((256*47)+9)
	st	AH,@(H'0002,Y)
	ld	AL,@(H'0001,Y)
	ld	X,@$XAP_AH
	st	AL,@(0,X)
	bsr	$_connectionGetCmTask
	ld	X,@(H'0002,Y)
	st	X,@(0,Y)
	ld	AL,#H'0004
	bsr	$_MessageSend
?LBE4:
?LBE_ConnectionInquireCancel:
	leave	#4
;.stabn	192,0,0,?LBB4
;.stabn	224,0,0,?LBE4
;# begin scan referenced symbols
;# end scan referenced symbols
$_ConnectionReadRemoteName:
	enter	#5
?LBB_ConnectionReadRemoteName:
	st	AH,@(H'0001,Y)
	st	AL,@(H'0002,Y)
?LBB5:
	ld	AH,#H'0005
;	bsr	$_PanicUnlessMalloc
	DC	((256*47)+9)
	st	AH,@(H'0003,Y)
	ld	AL,@(H'0001,Y)
	ld	X,@$XAP_AH
	st	AL,@(0,X)
	ld	X,@(H'0002,Y)
	ld	AL,@(0,X)
	ld	X,@(H'0003,Y)
	st	AL,@(H'0001,X)
	ld	X,@(H'0002,Y)
	ld	AL,@(H'0001,X)
	ld	X,@(H'0003,Y)
	st	AL,@(H'0002,X)
	ld	X,@(H'0002,Y)
	ld	AL,@(H'0002,X)
	ld	X,@(H'0003,Y)
	st	AL,@(H'0003,X)
	ld	X,@(H'0002,Y)
	ld	AL,@(H'0003,X)
	ld	X,@(H'0003,Y)
	st	AL,@(H'0004,X)
	bsr	$_connectionGetCmTask
	ld	AL,@(H'0003,Y)
	st	AL,@(0,Y)
	ld	AL,#H'0005
	bsr	$_MessageSend
?LBE5:
?LBE_ConnectionReadRemoteName:
	leave	#5
;.stabn	192,0,0,?LBB5
;.stabn	224,0,0,?LBE5
;# begin scan referenced symbols
;# end scan referenced symbols
$_ConnectionReadLocalName:
	enter	#4
?LBB_ConnectionReadLocalName:
	st	AH,@(H'0001,Y)
?LBB6:
	ld	AH,#H'0001
;	bsr	$_PanicUnlessMalloc
	DC	((256*47)+9)
	st	AH,@(H'0002,Y)
	ld	AL,@(H'0001,Y)
	ld	X,@$XAP_AH
	st	AL,@(0,X)
	bsr	$_connectionGetCmTask
	ld	X,@(H'0002,Y)
	st	X,@(0,Y)
	ld	AL,#H'0006
	bsr	$_MessageSend
?LBE6:
?LBE_ConnectionReadLocalName:
	leave	#4
;.stabn	192,