spp_dev_a.xap

蓝牙的spp dun ftp 功能的源代码

	.CODE
$_isupper:
	enter	#1
?LBB_isupper:
	ld	AL,#H'0000
	add	AH,#-H'0041
	cmp	AH,#(H'0001+H'0019)
	bcc	?L2
	ld	AL,#H'0001
?L2:
	ld	AH,@$XAP_AL
?LBE_isupper:
	leave	#1
	ENDMOD

;# Function pattern *movqi2 used[0] = 1 total = 1
;# Function pattern *movqi3 used[0] = 2 total = 2
;# Function pattern *addqi2 used[0] = 1 total = 1
;# Function pattern movstrqi+4 used[1] = 1 total = 1
	MODULE	udivmod
	.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: 
;# -Ic:/src/active/bluelab362/result/image/bluelab_full/tools/include
;# -Ic:/src/active/bluelab362/result/image/bluelab_full/tools/lib/gcc-lib/xap-local-xap/3.3.3/install-tools/include
;# -I. -Ic:/src/active/bluelab362/result/image/bluelab_full/tools/include
;# -iprefix -isystem -D__GNUC__=3 -D__GNUC_MINOR__=3
;# -D__GNUC_PATCHLEVEL__=3 -MD -MQ -mno-leaf-optim -ansi -auxbase-strip -g
;# -g -O -pedantic -Wall -Wmissing-prototypes -Wstrict-prototypes
;# -Wsign-compare -Wredundant-decls -Werror -Wall -W -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 _count_leading_zeros
;# end scan referenced symbols
	.CODE
$__udivmod:
	enter	#6
?LBB__udivmod:
	st	AH,@(0,Y)
	st	AL,@(1,Y)
	ld	AH,@(H'0006,Y)
	ld	AL,@(H'0007,Y)
?LBB2:
	cmp	AH,#hwrd(H'0001+H'0001)
	bcs	?L17
	bne	?L8
	cmp	AL,#lwrd(H'0001+H'0001)
	bcc	?L8
?L17:
	ld	AL,#H'0000
	ld	X,@(H'0008,Y)
	st	AL,@(H'0001,X)
	st	AL,@(0,X)
	ld	AH,@(0,Y)
	ld	AL,@(1,Y)
	bra	(?L7)
?L8:
	ld	AH,@(0,Y)
	ld	AL,@(1,Y)
	cmp	AH,@(H'0006,Y)
	bcs	?L18
	bne	?L10
	cmp	AL,@(H'0007,Y)
	bcc	?L10
?L18:
	ld	X,@(H'0008,Y)
	st	AH,@(0,X)
	st	AL,@(1,X)
	ld	AL,#H'0000
	ld	AH,#H'0000
	bra	(?L7)
?L10:
?LBB3:
	ld	AH,#H'0000
	st	AH,@(H'0003,Y)
	st	AH,@(H'0002,Y)
	ld	AH,@(H'0006,Y)
	ld	AL,@(H'0007,Y)
	bsr	_count_leading_zeros
	st	AH,@(H'0004,Y)
	ld	AH,@(0,Y)
	ld	AL,@(1,Y)
	bsr	_count_leading_zeros
	nadd	AH,@(H'0004,Y)
	st	AH,@(H'0004,Y)
?L12:
?LBB4:
	ld	AH,@(H'0006,Y)
	ld	AL,@(H'0007,Y)
	asl	@(H'0004,Y)
	st	AH,@H'fff8
	st	AL,@H'fff9
	ld	AH,@(0,Y)
	ld	AL,@(1,Y)
	cmp	AH,@H'fff8
	bcs	?L14
	bne	?L19
	cmp	AL,@H'fff9
	bcs	?L14
?L19:
	sub	AL,@H'fff9
	subc	AH,@H'fff8
	st	AH,@(0,Y)
	st	AL,@(1,Y)
	ld	AH,#H'0000
	ld	AL,#H'0001
	asl	@(H'0004,Y)
	add	AL,@(H'0003,Y)
	addc	AH,@(H'0002,Y)
	st	AH,@(H'0002,Y)
	st	AL,@(H'0003,Y)
?L14:
	ld	AL,@(H'0004,Y)
?LBE4:
	add	AL,#-H'0001
	st	AL,@(H'0004,Y)
	cmp	AL,#-H'0001
	bne	?L12
	ld	AH,@(0,Y)
	ld	AL,@(1,Y)
	ld	X,@(H'0008,Y)
	st	AH,@(0,X)
	st	AL,@(1,X)
	ld	AH,@(H'0002,Y)
	ld	AL,@(H'0003,Y)
?L7:
?LBE3:
?LBE2:
?LBE__udivmod:
	leave	#6
;.stabn	192,0,0,?LBB3
;.stabn	192,0,0,?LBB4
;.stabn	224,0,0,?LBE4
;.stabn	224,0,0,?LBE3
;# begin scan referenced symbols
;#(clobber:QI (reg:QI 1 AL))
;#(clobber:QI (reg:QI 1 AL))
;#(clobber:QI (reg:QI 1 AL))
;#(clobber:QI (reg:QI 1 AL))
;# end scan referenced symbols
_count_leading_zeros:
	enter	#1
?LBB_count_leading_zeros:
	st	AH,@H'fff8
	st	AL,@H'fff9
?LBB5:
	lsr	#H'0010
	st	AH,@H'fffa
	st	AL,@H'fffb
	ld	X,@H'fffb
	ld	AL,#H'000F
	st	AL,@(-1,Y)
	tst	@H'fffb
	bne	?L2
	ld	X,@H'fff9
	ld	AL,#H'001F
	st	AL,@(-1,Y)
?L2:
	ld	AH,@$XAP_UXL
	lsr	#H'0008
	cmp	AH,#H'0000
	beq	?L3
	ld	X,@$XAP_AH
	ld	AL,#-H'0008
	add	AL,@(-1,Y)
	st	AL,@(-1,Y)
?L3:
	ld	AH,@$XAP_UXL
	lsr	#H'0004
	cmp	AH,#H'0000
	beq	?L4
	ld	X,@$XAP_AH
	ld	AL,#-H'0004
	add	AL,@(-1,Y)
	st	AL,@(-1,Y)
?L4:
	ld	AH,@$XAP_UXL
	lsr	#H'0002
	cmp	AH,#H'0000
	beq	?L5
	ld	X,@$XAP_AH
	ld	AL,#-H'0002
	add	AL,@(-1,Y)
	st	AL,@(-1,Y)
?L5:
	ld	AH,@$XAP_UXL
	lsr	#H'0001
	cmp	AH,#H'0000
	beq	?L6
	ld	AL,#-H'0001
	add	AL,@(-1,Y)
	st	AL,@(-1,Y)
?L6:
?LBE5:
	ld	AH,@(-1,Y)
?LBE_count_leading_zeros:
	leave	#1
;.stabn	192,0,0,?LBB5
;.stabn	224,0,0,?LBE5
	ENDMOD

;# Function pattern *movqi2 used[0] = 20 used[1] = 3 total = 23
;# Function pattern *movqi3 used[0] = 10 total = 10
;# Function pattern *movhi used[2] = 10 used[3] = 8 total = 18
;# Function pattern *addhi3 used[0] = 1 total = 1
;# Function pattern *subhi3 used[0] = 1 total = 1
;# Function pattern *addqi2 used[0] = 1 used[2] = 4 total = 5
;# Function pattern *subqi3 used[1] = 1 total = 1
;# Function pattern *ashlhi3 used[0] = 2 total = 2
;# Function pattern *lshrqi3 used[0] = 4 total = 4
;# Function pattern *lshrhi3 used[0] = 1 total = 1
;# Function pattern jump used[0] = 2 total = 2
;# Function pattern *call_value1 used[0] = 2 total = 2
;# Function pattern movstrqi+3 used[0] = 4 used[1] = 1 total = 5
;# Function pattern movstrqi+5 used[0] = 1 total = 1
;# Function pattern movstrqi+7 used[0] = 1 used[1] = 2 total = 3
	MODULE	MessageWait
	.ENHANCED
	.CSEG	CODE
	.LARGE
$_MessageWait:
	DC	((256*11)+9)
	rts
trapset_1	EQU	$trapset_1
	ENDMOD	MessageWait
	MODULE	MessageSendConditionally
	.ENHANCED
	.CSEG	CODE
	.LARGE
$_MessageSendConditionally:
	DC	((256*12)+9)
	rts
trapset_1	EQU	$trapset_1
	ENDMOD	MessageSendConditionally
	MODULE	MessageFree
	.ENHANCED
	.CSEG	CODE
	.LARGE
$_MessageFree:
	DC	((256*13)+9)
	rts
trapset_1	EQU	$trapset_1
	ENDMOD	MessageFree
	MODULE	trapset_1
	.CSEG	CODE
	.LARGE
	.ENHANCED
$trapset_1:
	ENDMOD	trapset_1
	MODULE	trapset_11
	.CSEG	CODE
	.LARGE
	.ENHANCED
$trapset_11:
	ENDMOD	trapset_11
	MODULE	trapset_14
	.CSEG	CODE
	.LARGE
	.ENHANCED
$trapset_14:
	ENDMOD	trapset_14
	MODULE	trapset_15
	.CSEG	CODE
	.LARGE
	.ENHANCED
$trapset_15:
	ENDMOD	trapset_15
	MODULE	trapset_16
	.CSEG	CODE
	.LARGE
	.ENHANCED
$trapset_16:
	ENDMOD	trapset_16
	MODULE	trapset_18
	.CSEG	CODE
	.LARGE
	.ENHANCED
$trapset_18:
	ENDMOD	trapset_18
	MODULE	e_t_c

	.ALL
e_t_c:
	ENDMOD
	MODULE	OPPTask
	.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:  -IC:/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
	.SEG	CONST
_folderFile:
	dc	H'5F
	dc	H'64
	dc	H'69
	dc	H'72
	dc	H'2E
	dc	H'78
	dc	H'6D
	dc	H'6C
	dc	H'00
_vCardList:
	dc	H'42
	dc	H'45
	dc	H'47
	dc	H'49
	dc	H'4E
	dc	H'3A
	dc	H'56
	dc	H'43
	dc	H'41
	dc	H'52
	dc	H'44
	dc	H'00
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'000C
	dc	H'03E7
	dc	H'0000
	dc	H'0000
	dc	H'56
	dc	H'45
	dc	H'52
	dc	H'53
	dc	H'49
	dc	H'4F
	dc	H'4E
	dc	H'3A
	dc	H'32
	dc	H'2E
	dc	H'31
	dc	H'00
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'000C
	dc	H'03E7
	dc	H'0000
	dc	H'0000
	dc	H'4E
	dc	H'3A
	dc	H'00
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0003
	dc	H'0023
	dc	H'001E
	dc	H'0001
	dc	H'54
	dc	H'49
	dc	H'54
	dc	H'4C
	dc	H'45
	dc	H'3A
	dc	H'00
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0007
	dc	H'0025
	dc	H'001E
	dc	H'0001
	dc	H'46
	dc	H'4E
	dc	H'3A
	dc	H'00
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0004
	dc	H'0022
	dc	H'001E
	dc	H'0000
	dc	H'4F
	dc	H'52
	dc	H'47
	dc	H'3A
	dc	H'00
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0005
	dc	H'0021
	dc	H'0019
	dc	H'0000
	dc	H'55
	dc	H'52
	dc	H'4C
	dc	H'3A
	dc	H'00
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0005
	dc	H'0020
	dc	H'0019
	dc	H'0000
	dc	H'54
	dc	H'45
	dc	H'4C
	dc	H'3B
	dc	H'56
	dc	H'4F
	dc	H'49
	dc	H'43
	dc	H'45
	dc	H'3A
	dc	H'00
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'000B
	dc	H'001F
	dc	H'0014
	dc	H'0001
	dc	H'45
	dc	H'4D
	dc	H'41
	dc	H'49
	dc	H'4C
	dc	H'3B
	dc	H'49
	dc	H'4E
	dc	H'54
	dc	H'45
	dc	H'52
	dc	H'4E
	dc	H'45
	dc	H'54
	dc	H'3A
	dc	H'00
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0010
	dc	H'001E
	dc	H'0014
	dc	H'0000
	dc	H'54
	dc	H'45
	dc	H'4C
	dc	H'3B
	dc	H'43
	dc	H'45
	dc	H'4C
	dc	H'4C
	dc	H'3A
	dc	H'00
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'000A
	dc	H'0026
	dc	H'0014
	dc	H'0000
	dc	H'52
	dc	H'45
	dc	H'56
	dc	H'3A
	dc	H'00
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0000
	dc	H'0005
	dc	H'0024
	dc	H'0011
	dc	H'0000
	dc	H'45
	dc	H'4E
	dc	H'44