pbap_server.xap

藍芽電話簿範本

	leave	#1
;.stabn	192,0,0,?LBB2
;.stabn	224,0,0,?LBE2
$_handleConnectionMessages:
	enter	#6
?LBB_handleConnectionMessages:
	add	AL,#-H'7000
	cmp	AL,#(H'0001+H'0027)
	bcc	?L4
	ld	X,@$XAP_AL
	ld	X,@(?JTBASE17,X)
	brxl
	.SEG	CONST
?JTBASE17:
	.CODE
?L17:
	.SEG	CONST
	dc	?L6-?L17
	dc	?L4-?L17
	dc	?L4-?L17
	dc	?L4-?L17
	dc	?L4-?L17
	dc	?L4-?L17
	dc	?L4-?L17
	dc	?L4-?L17
	dc	?L4-?L17
	dc	?L4-?L17
	dc	?L4-?L17
	dc	?L4-?L17
	dc	?L4-?L17
	dc	?L4-?L17
	dc	?L4-?L17
	dc	?L4-?L17
	dc	?L4-?L17
	dc	?L4-?L17
	dc	?L4-?L17
	dc	?L4-?L17
	dc	?L4-?L17
	dc	?L4-?L17
	dc	?L4-?L17
	dc	?L4-?L17
	dc	?L4-?L17
	dc	?L4-?L17
	dc	?L4-?L17
	dc	?L4-?L17
	dc	?L4-?L17
	dc	?L4-?L17
	dc	?L10-?L17
	dc	?L11-?L17
	dc	?L4-?L17
	dc	?L4-?L17
	dc	?L4-?L17
	dc	?L4-?L17
	dc	?L4-?L17
	dc	?L9-?L17
	dc	?L4-?L17
	dc	?L4-?L17
	.CODE
?L6:
	ld	AL,@(H'0006,Y)
	bsr	_handleClInitCfm
	bra	(?L4)
?L9:
	ld	AL,@(H'0006,Y)
	bsr	_handleClSmAuthoriseInf
	bra	(?L4)
?L10:
	ld	AL,@(H'0006,Y)
	bsr	_handleClPinCodeInd
	bra	(?L4)
?L11:
	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,@(H'0006,Y)
	ld	AL,#H'0003
	bsr	$_ConnectionSmIoCapabilityResponse
?L4:
?LBE_handleConnectionMessages:
	leave	#6
_handleClInitCfm:
	enter	#2
?LBB_handleClInitCfm:
	st	AH,@(0,Y)
	ld	X,@$XAP_AH
	tst	@(H'0001,X)
	bne	?L18
	ld	X,@$XAP_AL
	tst	@(0,X)
	bne	?L18
	add	AH,#H'0001
	ld	AL,#H'0001
	bsr	$_setState
	ld	AH,#H'0001
	bsr	$_ConnectionSmSetSdpSecurityIn
	ld	AH,@(0,Y)
	bsr	$_initPbap
?L18:
?LBE_handleClInitCfm:
	leave	#2
_handleClSmAuthoriseInf:
	enter	#7
?LBB_handleClSmAuthoriseInf:
	ld	X,@$XAP_AH
	st	AL,@(H'0004,Y)
?LBB3:
	ld	AH,#H'0000
	st	AH,@(H'0005,Y)
	ld	AL,@(H'0001,X)
	add	AL,#-H'0002
	cmp	AL,#(H'0001+H'0001)
	bcc	?L25
	ld	AH,#H'0001
	add	AH,@$XAP_UXL
	ld	AL,#H'0003
	bsr	$_setState
	ld	AL,#H'0001
	st	AL,@(H'0005,Y)
?L25:
	ld	X,@(H'0004,Y)
	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'0005,Y)
	st	AL,@(H'0003,Y)
	ld	AH,@$XAP_UXL
	ld	AL,@(H'0004,X)
	bsr	$_ConnectionSmAuthoriseResponse
?LBE3:
?LBE_handleClSmAuthoriseInf:
	leave	#7
;.stabn	192,0,0,?LBB3
;.stabn	224,0,0,?LBE3
_handleClPinCodeInd:
	enter	#19
?LBB_handleClPinCodeInd:
	st	AL,@(H'0011,Y)
?LBB4:
	ld	AL,#H'0010
	st	AL,@(0,Y)
	ld	AH,#H'035B
	ld	AL,@$XAP_UY
	add	AL,#H'0001
;	bsr	$_PsFullRetrieve
	DC	((256*21)+9)
	ld	AL,@$XAP_AH
	ld	AH,@$XAP_UY
	add	AH,#H'0001
	st	AH,@(0,Y)
	ld	AH,@(H'0011,Y)
	bsr	$_ConnectionSmPinCodeResponse
?LBE4:
?LBE_handleClPinCodeInd:
	leave	#19
;.stabn	192,0,0,?LBB4
;.stabn	224,0,0,?LBE4
	ENDMOD

;# Function pattern *movqi2 used[0] = 20 used[1] = 6 total = 26
;# Function pattern *movqi3 used[0] = 17 total = 17
;# Function pattern *movhi used[2] = 1 used[3] = 1 total = 2
;# Function pattern *addqi0 used[0] = 2 total = 2
;# Function pattern *addqi2 used[0] = 3 used[2] = 1 total = 4
;# Function pattern jump used[0] = 4 total = 4
;# Function pattern *call1 used[0] = 11 total = 11
;# Function pattern *call_value1 used[0] = 1 total = 1
;# Function pattern tablejump_1 used[0] = 1 total = 1
;# Function pattern movstrqi+3 used[0] = 1 used[1] = 2 total = 3
;# Function pattern movstrqi+4 used[1] = 2 total = 2
	MODULE	handle_pbap
	.LARGE ; really small mode but we need space for debug symbols
; GNU C version 3.3.3 (CSR version 29 for xap)
; 	compiled by GNU C version 3.2.3 (mingw special 20030504-1).
;# options passed:  -IC:/BlueLab41/tools/include/firmware
;# -IC:/BlueLab41/tools/include/standard
;# -IC:/BlueLab41/tools/include/profiles/BlueLab4.1-Release -iprefix
;# -isystem -D__GNUC__=3 -D__GNUC_MINOR__=3 -D__GNUC_PATCHLEVEL__=3
;# -DNO_DEBUG -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 -fpeephole2
;# -fguess-branch-probability -fmath-errno -ftrapping-math -mpeephole
;# -mquiet-mode -minline-block-copy-mode -menhanced-mode -mload-cache-mode
;# -mbitfield-mode -mtest4

	.ENHANCED
	.CODE
$_initPbap:
	enter	#2
?LBB_initPbap:
	ld	AL,#H'0001
	st	AL,@(0,Y)
	bsr	$_PbapsInit
?LBE_initPbap:
	leave	#2
$_handlePbapMessages:
	enter	#1
?LBB_handlePbapMessages:
	add	AL,#-H'6100
	cmp	AL,#(H'0001+H'0011)
	bcc	?L2
	ld	X,@$XAP_AL
	ld	X,@(?JTBASE22,X)
	brxl
	.SEG	CONST
?JTBASE22:
	.CODE
?L22:
	.SEG	CONST
	dc	?L4-?L22
	dc	?L5-?L22
	dc	?L6-?L22
	dc	?L2-?L22
	dc	?L7-?L22
	dc	?L8-?L22
	dc	?L9-?L22
	dc	?L10-?L22
	dc	?L11-?L22
	dc	?L12-?L22
	dc	?L13-?L22
	dc	?L14-?L22
	dc	?L15-?L22
	dc	?L16-?L22
	dc	?L17-?L22
	dc	?L18-?L22
	dc	?L19-?L22
	dc	?L20-?L22
	.CODE
?L4:
	ld	AL,@(H'0001,Y)
	bsr	_handlePbapInitCfm
	bra	(?L2)
?L5:
	ld	AL,@(H'0001,Y)
	bsr	_handlePbapConnectInd
	bra	(?L2)
?L6:
	ld	AL,@(H'0001,Y)
	bsr	_handlePbapConnectCfm
	bra	(?L2)
?L7:
	ld	AL,@(H'0001,Y)
	bsr	_handlePbapDisconnectInd
	bra	(?L2)
?L8:
	ld	AL,@(H'0001,Y)
	bsr	_handlePbapSetRoot
	bra	(?L2)
?L9:
	ld	AL,@(H'0001,Y)
	bsr	_handlePbapSetRepository
	bra	(?L2)
?L10:
	ld	AL,@(H'0001,Y)
	bsr	_handlePbapSetPhoneBook
	bra	(?L2)
?L11:
	ld	AL,@(H'0001,Y)
	bsr	_handlePbapSetParent
	bra	(?L2)
?L12:
	ld	AL,@(H'0001,Y)
	bsr	_handlePbapGetVCardListStartInd
	bra	(?L2)
?L13:
	ld	AL,@(H'0001,Y)
	bsr	_handlePbapGetVCardListNextInd
	bra	(?L2)
?L14:
	ld	AL,@(H'0001,Y)
	bsr	_handlePbapGetVCardListCompleteInd
	bra	(?L2)
?L15:
	ld	AL,@(H'0001,Y)
	bsr	_handlePbapGetVCardEntryStartInd
	bra	(?L2)
?L16:
	ld	AL,@(H'0001,Y)
	bsr	_handlePbapGetVCardEntryNextInd
	bra	(?L2)
?L17:
	ld	AL,@(H'0001,Y)
	bsr	_handlePbapGetVCardEntryCompleteInd
	bra	(?L2)
?L18:
	ld	AL,@(H'0001,Y)
	bsr	_handlePbapGetPhonebookStartInd
	bra	(?L2)
?L19:
	ld	AL,@(H'0001,Y)
	bsr	_handlePbapGetPhonebookNextInd
	bra	(?L2)
?L20:
	ld	AL,@(H'0001,Y)
	bsr	_handlePbapGetPhonebookCompleteInd
?L2:
?LBE_handlePbapMessages:
	leave	#1
_handlePbapInitCfm:
	enter	#2
?LBB_handlePbapInitCfm:
	st	AH,@(0,Y)
	ld	X,@$XAP_AL
	tst	@(H'0001,X)
	bne	?L24
	ld	AL,@(0,X)
	ld	X,@$XAP_AH
	st	AL,@(H'0002,X)
	ld	AH,#H'0001
	bsr	$_conSetDiscoverability
	ld	AH,@(0,Y)
	bsr	$_folderInit
	ld	AH,@(0,Y)
	add	AH,#H'0001
	ld	AL,#H'0002
	bsr	$_setState
	bra	(?L23)
?L24:
;	bsr	$_Panic
	DC	((256*14)+9)
?L23:
?LBE_handlePbapInitCfm:
	leave	#2
_handlePbapConnectInd:
	enter	#2
?LBB_handlePbapConnectInd:
	ld	X,@$XAP_AH
?LBB2:
	ld	AL,#H'0000
	st	AL,@(-1,Y)
	ld	AL,@(H'0001,X)
	cmp	AL,#H'0003
	bne	?L28
	ld	AL,#H'0001
	st	AL,@(-1,Y)
?L28:
	ld	AL,#H'00FF
	st	AL,@(0,Y)
	ld	AH,@(H'0002,X)
	ld	AL,@(-1,Y)
	bsr	$_PbapsConnectResponse
?LBE2:
?LBE_handlePbapConnectInd:
	leave	#2
;.stabn	192,0,0,?LBB2
;.stabn	224,0,0,?LBE2
_handlePbapConnectCfm:
	enter	#3
?LBB_handlePbapConnectCfm:
	st	AH,@(0,Y)
	st	AL,@(H'0001,Y)
	ld	X,@$XAP_AL
	tst	@(H'0001,X)
	bne	?L31
	add	AH,#H'0001
	ld	AL,#H'0004
	bsr	$_setState
	ld	AH,#H'0000
	bsr	$_conSetDiscoverability
	ld	X,@(H'0001,Y)
	ld	AL,@(H'0002,X)
	ld	X,@(0,Y)
	st	AL,@(H'0003,X)
	bra	(?L30)
?L31:
	ld	AH,@(0,Y)
	add	AH,#H'0001
	ld	AL,#H'0002
	bsr	$_setState
?L30:
?LBE_handlePbapConnectCfm:
	leave	#3
_handlePbapDisconnectInd:
	enter	#1
?LBB_handlePbapDisconnectInd:
	add	AH,#H'0001
	ld	AL,#H'0002
	bsr	$_setState
	ld	AH,#H'0001
	bsr	$_conSetDiscoverability
?LBE_handlePbapDisconnectInd:
	leave	#1
_handlePbapSetPhoneBook:
	enter	#2
?LBB_handlePbapSetPhoneBook:
	st	AH,@(0,Y)
	st	AL,@H'fff8
	ld	X,@$XAP_AH
?LBB3:
	ld	AL,@(H'0001,X)
	cmp	AL,#H'0004
	bne	?L35
	ld	X,@H'fff8
	ld	AL,@(H'0001,X)
	bsr	$_folderSetChild
	ld	AL,@$XAP_AH
	ld	X,@(0,Y)
	ld	AH,@(H'0002,X)
	bsr	$_PbapsSetPhonebookBookResponse
	bra	(?L34)
?L35:
;	bsr	$_Panic
	DC	((256*14)+9)
?L34:
?LBE3:
?LBE_handlePbapSetPhoneBook:
	leave	#2
;.stabn	192,0,0,?LBB3
;.stabn	224,0,0,?LBE3
_handlePbapSetParent:
	enter	#2
?LBB_handlePbapSetParent:
	st	AH,@(0,Y)
	ld	X,@$XAP_AH
?LBB4:
	ld	AL,@(H'0001,X)
	cmp	AL,#H'0004
	bne	?L39
	bsr	$_folderSetParent
	ld	AL,@$XAP_AH
	ld	X,@(0,Y)
	ld	AH,@(H'0002,X)
	bsr	$_PbapsSetPhonebookParentResponse
	bra	(?L38)
?L39:
;	bsr	$_Panic
	DC	((256*14)+9)
?L38:
?LBE4:
?LBE_handlePbapSetParent:
	leave	#2
;.stabn	192,0,0,?LBB4
;.stabn	224,0,0,?LBE4
_handlePbapSetRoot:
	enter	#2
?LBB_handlePbapSetRoot:
	st	AH,@(0,Y)
	ld	X,@$XAP_AH
?LBB5:
	ld	AL,@(H'0001,X)
	cmp	AL,#H'0004
	bne	?L43
	bsr	$_folderSetRoot
	ld	AL,@$XAP_AH
	ld	X,@(0,Y)
	ld	AH,@(H'0002,X)
	bsr	$_PbapsSetPhonebookRootResponse
	bra	(?L42)
?L43:
;	bsr	$_Panic
	DC	((256*14)+9)
?L42:
?LBE5:
?LBE_handlePbapSetRoot:
	leave	#2
;.stabn	192,0,0,?LBB5
;.stabn	224,0,0,?LBE5
_handlePbapSetRepository:
	enter	#1
?LBB_handlePbapSetRepository:
	st	AL,@H'fff8
	ld	X,@$XAP_AH
?LBB6:
	ld	AL,@(H'0001,X)
	cmp	AL,#H'0004
	bne	?L47
	ld	X,@H'fff8
	ld	AL,@(H'0001,X)
	cmp	AL,#H'0002
	bne	?L48
	ld	AL,#H'0002
	bra	(?L49)
?L48:
	ld	AL,#H'0000
?L49:
	ld	X,@$XAP_AH
	ld	AH,@(H'0002,X)
	bsr	$_PbapsSetPhonebookRepositoryResponse
	bra	(?L46)
?L47:
;	bsr	$_Panic
	DC	((256*14)+9)
?L46:
?LBE6:
?LBE_handlePbapSetRepository:
	leave	#1
;.stabn	192,0,0,?LBB6
;.stabn	224,0,0,?LBE6
_handlePbapGetVCardListStartInd:
	enter	#8
?LBB_handlePbapGetVCardListStartInd:
	st	AH,@(H'0005,Y)
	st	AL,@(H'0006,Y)
	ld	X,@$XAP_AH
?LBB7:
	ld	AL,@(H'0001,X)
	cmp	AL,#H'0004
	bne	?L54
?LBB8:
	add	AH,#H'0001
	ld	AL,#H'0005
	bsr	$_setState
	ld	X,@(H'0006,Y)
	ld	AL,@(H'0006,X)
	ld	X,@(H'0005,Y)
	st	AL,@(H'000F,X)
	ld	X,@(H'0006,Y)
	ld	AL,@(H'0003,X)
	ld	X,@(H'0005,Y)
	st	AL,@(H'0010,X)
	ld	X,@(H'0006,Y)
	ld	AL,@(H'0007,X)
	ld	X,@(H'0005,Y)
	st	AL,@(H'0011,X)
	ld	AH,@$XAP_UXL
	ld	X,@(H'0006,Y)
	ld	AL,@(H'0008,X)
	bsr	$_folderGetFirstListBuffer
	ld	AL,#H'0000
	st	AL,@(H'0001,Y)
	st	AL,@(0,Y)
	ld	X,@(H'0005,Y)
	ld	AL,@(H'000A,X)
	st	AL,@(H'0002,Y)
	ld	AL,@(H'000E,X)
	st	AL,@(H'0003,Y)
	st	AH,@(H'0004,Y)
	ld	AH,@(H'0002,X)
	ld	AL,#H'0000
	bsr	$_PbapsGetvCardListFirstPacket
?LBE8:
	bra	(?L53)
?L54:
;	bsr	$_Panic
	DC	((256*14)+9)
?L53:
?LBE7:
?LBE_handlePbapGetVCardListStartInd:
	leave	#8
;.stabn	192,0,0,?LBB8
;.stabn	224,0,0,?LBE8
_handlePbapGetVCardListNextInd:
	enter	#4
?LBB_handlePbapGetVCardListNextInd:
	st	AH,@(H'0002,Y)
	ld	X,@$XAP_AH
?LBB9:
	ld	AL,@(H'0001,X)
	cmp	AL,#H'0005
	bne	?L58
?LBB10:
	bsr	$_folderGetNextListBuffer
	ld	X,@(H'0002,Y)
	ld	AL,@(H'000A,X)
	st	AL,@(0,Y)
	st	AH,@(H'0001,Y)
	ld	AH,@(H'0002,X)
	ld	AL,@(H'000E,X)
	bsr	$_PbapsGetvCardListNextPacket
?LBE10:
	bra	(?L57)
?L58:
;	bsr	$_Panic
	DC	((256*14)+9)
?L57:
?LBE9:
?LBE_handlePbapGetVCardListNextInd:
	leave	#4
;.stabn	192,0,0,?LBB10
;.stabn	224,0,0,?LBE10
_handlePbapGetVCardListCompleteInd:
	enter	#2
?LBB_handlePbapGetVCardListCompleteInd:
	st	AH,@(0,Y)
	ld	X,@$XAP_AH
	ld	AL,@(H'0001,X)
	cmp	AL,#H'0005
	bne	?L62
	add	AH,#H'0001
	ld	AL,#H'0004
	bsr	$_setState
	ld	X,@(0,Y)
	ld	AH,@(H'0010,X)
;	bsr	$_free
	DC	((256*4)+9)
	ld	AL,#H'0000
	ld	X,@(0,Y)
	st	AL,@(H'000F,X)
	st	AL,@(H'0010,X)
	st	AL,@(H'0011,X)
	ld	AH,@$XAP_UXL
	bsr	$_folderCleanupListBuffer
	bra	(?L61)
?L62:
;	bsr	$_Panic
	DC	((256*14)+9)
?L61:
?LBE_handlePbapGetVCardListCompleteInd:
	leave	#2
_handlePbapGetVCardEntryStartInd:
	enter	#8
?LBB_handlePbapGetVCardEntryStartInd:
	st	AH,@(H'0005,Y)
	st	AL,@(H'0006,Y)
	ld	X,@$XAP_AH
?LBB11:
	ld	AL,@(H'0001,X)
	cmp	AL,#H'0004
	bne	?L66
?LBB12:
	add	AH,#H'0001
	ld	AL,#H'0006
	bsr	$_setState
	ld	X,@(H'0006,Y)
	ld	AL,@(H'0002,X)
	st	AL,@(0,Y)
	ld	AH,@(H'0005,Y)
	ld	AL,@(H'0001,X)
	bsr	$_vcgGetFirstEntryBuffer
	ld	AL,#H'0000
	st	AL,@(H'0001,Y)
	st	AL,@(0,Y)
	ld	X,@(H'0005,Y)
	ld	AL,@(H'000A,X)
	st	AL,@(H'0002,Y)
	ld	AL,@(H'000E,X)
	st	AL,@(H'0003,Y)
	st	AH,@(H'0004,Y)
	ld	AH,@(H'0002,X)
	ld	AL,#H'0000
	bsr	$_PbapsGetvCardEntryFirstPacket
?LBE12:
	bra	(?L65)
?L66:
;	bsr	$_Panic
	DC	((256*14)+9)
?L65:
?LBE11:
?LBE_handlePbapGetVCardEntryStartInd:
	leave	#8
;.stabn	192,0,0,?LBB12
;.stabn	224,0,0,?LBE12
_handlePbapGetVCardEntryNextInd:
	enter	#4
?LBB_handlePbapGetVCardEntryNextInd:
	st	AH,@(H'0002,Y)
	ld	X,@$XAP_AH
?LBB13:
	ld	AL,@(H'0001,X)
	cmp	AL,#H'0006
	bne	?L70
?LBB14:
	bsr	$_vcgGetNextEntryBuffer
	ld	X,@(H'0002,Y)
	ld	AL,@(H'000A,X)
	st	AL,@(0,Y)
	st	AH,@(H'0001,Y)
	ld	AH,@(H'0002,X)
	ld	AL,@(H'000E,X)
	bsr	$_PbapsGetvCardEntryNextPacket
?LBE14:
	bra	(?L69)
?L70:
;	bsr	$_Panic
	DC	((256*14)+9)
?L69:
?LBE13:
?LBE_handlePbapGetVCardEntryNextInd:
	leave	#4
;.stabn	192,0,0,?LBB14
;.stabn	224,0,0,?LBE14
_handlePbapGetVCardEntryCompleteInd:
	enter	#2
?LBB_handlePbapGetVCardEntryCompleteInd:
	st	AH,@(0,Y)
	ld	X,@$XAP_AH
	ld	AL,@(H'0001,X)
	cmp	AL,#H'0006
	bne	?L74
	add	AH,#H'0001
	ld	AL,#H'0004
	bsr	$_setState
	ld	AH,@(0,Y)
	bsr	$_vcgCleanupListBuffer
	bra	(?L73)
?L74:
;	bsr	$_Panic
	DC	((256*14)+9)
?L73:
?LBE_handlePbapGetVCardEntryCompleteInd:
	leave	#2
_handlePbapGetPhonebookStartInd:
	enter	#8
?LBB_handlePbapGetPhonebookStartInd:
	st	AH,@(H'0005,Y)