spp_dev_a.xap

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

	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'0000
	dc	H'0000
	dc	H'000A
	dc	H'03E7
	dc	H'0000
	dc	H'0000
;# begin scan referenced symbols
;#(clobber (reg:QI 3 X))
;# import $_PsRetrieve
;# import $_OppsConnectResponse
;# import $_OppsPacketComplete
;# import $_OppsGetNextPutPacket
;# import _vCardList
;# import $_vGenInit
;# import $_vGenGetBuffer
;# import $_OppsPushBusinessCardStart
;# import $_OppsPushBusinessCardNext
;# import $_vGenDeInit
;# end scan referenced symbols
	.CODE
_opp_handler:
	enter	#15
?LBB_opp_handler:
?LBB2:
	st	AH,@(H'0009,Y)
	add	AL,#-H'6600
	cmp	AL,#(H'0001+H'000D)
	bcc	?L1
	ld	X,@$XAP_AL
	ld	X,@(?JTBASE25,X)
	brxl
	.SEG	CONST
?JTBASE25:
	.CODE
?L25:
	.SEG	CONST
	dc	?L3-?L25
	dc	?L5-?L25
	dc	?L7-?L25
	dc	?L1-?L25
	dc	?L1-?L25
	dc	?L11-?L25
	dc	?L14-?L25
	dc	?L1-?L25
	dc	?L12-?L25
	dc	?L14-?L25
	dc	?L1-?L25
	dc	?L15-?L25
	dc	?L19-?L25
	dc	?L1-?L25
	.CODE
?L3:
	ld	X,@(H'000F,Y)
?LBB3:
	tst	@(H'0001,X)
	bne	?L1
	ld	AL,@(0,X)
	ld	X,@(H'0009,Y)
	st	AL,@(H'0001,X)
	bra	(?L1)
?L5:
?LBE3:
?LBB4:
	ld	AL,#H'0000
	st	AL,@(H'0006,Y)
	ld	AL,#H'0001
	st	AL,@(0,Y)
	ld	AH,#H'000A
	ld	AL,@$XAP_UY
	add	AL,#H'0006
;	bsr	$_PsRetrieve
	DC	((256*18)+9)
	ld	AL,@(H'0006,Y)
	cmp	AL,#H'00FF
	bcc	?L6
	ld	AL,#H'00FF
?L6:
	st	AL,@(H'0006,Y)
	st	AL,@(0,Y)
	ld	X,@(H'0009,Y)
	ld	AH,@(H'0001,X)
	ld	AL,#H'0001
	bsr	$_OppsConnectResponse
	bra	(?L1)
?L7:
	ld	X,@(H'000F,Y)
?LBE4:
?LBB5:
	tst	@(H'0001,X)
	bne	?L1
	ld	AL,@(H'0002,X)
	ld	X,@(H'0009,Y)
	st	AL,@(H'0004,X)
	bra	(?L1)
?L11:
	ld	X,@(H'0009,Y)
?LBE5:
?LBB6:
	ld	AH,@(H'0001,X)
	bsr	$_OppsPacketComplete
	ld	X,@(H'0009,Y)
	ld	AH,@(H'0001,X)
	ld	X,@(H'000F,Y)
	ld	AL,@(H'000A,X)
	bra	(?L27)
?L12:
	ld	X,@(H'0009,Y)
?LBE6:
?LBB7:
	ld	AH,@(H'0001,X)
	bsr	$_OppsPacketComplete
	ld	X,@(H'0009,Y)
	ld	AH,@(H'0001,X)
	ld	X,@(H'000F,Y)
	ld	AL,@(H'0008,X)
	bra	(?L27)
?L14:
	ld	X,@(H'0009,Y)
?LBE7:
?LBB8:
	ld	AH,@(H'0001,X)
	bsr	$_OppsPacketComplete
	ld	X,@(H'0009,Y)
	ld	AH,@(H'0001,X)
	ld	X,@(H'000F,Y)
	ld	AL,@(H'0004,X)
?L27:
	bsr	$_OppsGetNextPutPacket
	bra	(?L1)
?L15:
?LBE8:
?LBB9:
	ld	AL,#H'0028
	st	AL,@(0,Y)
	ld	AH,#(_vCardList)
	ld	AL,#H'000C
	bsr	$_vGenInit
	ld	X,@(H'0009,Y)
	st	AH,@(H'0005,X)
	cmp	AH,#H'0000
	beq	?L1
	add	X,#H'0006
	st	X,@(H'000B,Y)
	ld	AL,@$XAP_UY
	add	AL,#H'0007
	st	AL,@(0,Y)
	ld	AL,@$XAP_UXL
	bsr	$_vGenGetBuffer
	st	AH,@(H'000A,Y)
	ld	AH,#H'0000
	st	AH,@(0,Y)
	ld	AL,@(H'0007,Y)
	st	AL,@(H'0001,Y)
	ld	AL,@(H'000B,Y)
	st	AL,@(H'0002,Y)
	st	AH,@(H'0004,Y)
	st	AH,@(H'0003,Y)
	ld	AL,@(H'000A,Y)
	st	AL,@(H'0005,Y)
	ld	X,@(H'0009,Y)
	ld	AH,@(H'0001,X)
	ld	AL,#H'0000
	bsr	$_OppsPushBusinessCardStart
	tst	@(H'000A,Y)
	beq	?L1
	bra	(?L26)
?L19:
	ld	X,@(H'0009,Y)
?LBE9:
?LBB10:
	tst	@(H'0005,X)
	beq	?L1
	add	X,#H'0006
	st	X,@(H'000D,Y)
	ld	AL,@$XAP_UY
	add	AL,#H'0008
	st	AL,@(0,Y)
	ld	X,@(H'0009,Y)
	ld	AH,@(H'0005,X)
	ld	AL,@(H'000D,Y)
	bsr	$_vGenGetBuffer
	st	AH,@(H'000C,Y)
	ld	AL,@(H'000D,Y)
	st	AL,@(0,Y)
	st	AH,@(H'0001,Y)
	ld	X,@(H'0009,Y)
	ld	AH,@(H'0001,X)
	ld	AL,@(H'0008,Y)
	bsr	$_OppsPushBusinessCardNext
	tst	@(H'000C,Y)
	beq	?L1
?L26:
	ld	X,@(H'0009,Y)
	ld	AH,@(H'0005,X)
	bsr	$_vGenDeInit
?L1:
?LBE10:
?LBE2:
?LBE_opp_handler:
	leave	#15
;.stabn	192,0,0,?LBB2
;.stabn	192,0,0,?LBB4
;.stabn	224,0,0,?LBE4
;.stabn	192,0,0,?LBB9
;.stabn	224,0,0,?LBE9
;.stabn	192,0,0,?LBB10
;.stabn	224,0,0,?LBE10
;.stabn	224,0,0,?LBE2
;# begin scan referenced symbols
;# import _opp_handler
;# end scan referenced symbols
$_opp_initTask:
	enter	#1
?LBB_opp_initTask:
	ld	X,@$XAP_AH
	ld	AL,#lwrd(_opp_handler)
	st	AL,@(0,X)
	ld	AL,#H'0000
	st	AL,@(H'0001,X)
	st	AL,@(H'0002,X)
	st	AL,@(H'0003,X)
	st	AL,@(H'0005,X)
?LBE_opp_initTask:
	leave	#1
	ENDMOD

;# Function pattern *movqi2 used[0] = 31 used[1] = 1 total = 32
;# Function pattern *movqi3 used[0] = 54 total = 54
;# Function pattern *addqi0 used[0] = 3 total = 3
;# Function pattern *addqi2 used[0] = 3 total = 3
;# Function pattern jump used[0] = 7 total = 7
;# Function pattern *call1 used[0] = 8 total = 8
;# Function pattern *call_value1 used[0] = 4 total = 4
;# Function pattern tablejump_1 used[0] = 1 total = 1
;# Function pattern movstrqi+3 used[0] = 1 used[1] = 5 total = 6
;# Function pattern movstrqi+4 used[1] = 1 total = 1
;# Function pattern movstrqi+5 used[0] = 1 total = 1
	MODULE	dun_task
	.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
;# begin scan referenced symbols
;#(clobber (reg:QI 3 X))
;# import $_DunConnectResponse
;# import $_DunDisconnect
;# end scan referenced symbols
	.CODE
_dun_handler:
	enter	#2
?LBB_dun_handler:
?LBB2:
	st	AH,@H'fff8
	add	AL,#-H'5F00
	cmp	AL,#(H'0001+H'0005)
	bcc	?L1
	ld	X,@$XAP_AL
	ld	X,@(?JTBASE16,X)
	brxl
	.SEG	CONST
?JTBASE16:
	.CODE
?L16:
	.SEG	CONST
	dc	?L3-?L16
	dc	?L1-?L16
	dc	?L6-?L16
	dc	?L10-?L16
	dc	?L1-?L16
	dc	?L1-?L16
	.CODE
?L3:
	ld	X,@(H'0002,Y)
?LBB3:
	tst	@(H'0001,X)
	bne	?L1
	ld	AL,@(0,X)
	ld	X,@$XAP_AH
	st	AL,@(H'0001,X)
	bra	(?L1)
?L6:
	ld	X,@(H'0002,Y)
?LBE3:
?LBB4:
	ld	AH,@(0,X)
	ld	X,@H'fff8
	st	AH,@(H'0001,X)
	ld	AL,@(H'0002,Y)
	add	AL,#H'0001
	st	AL,@(0,Y)
	ld	AL,#H'0001
	bsr	$_DunConnectResponse
	bra	(?L1)
?L10:
	ld	X,@(H'0002,Y)
?LBE4:
?LBB5:
	tst	@(H'0001,X)
	bne	?L1
	ld	X,@$XAP_AH
	ld	AH,@(H'0001,X)
	bsr	$_DunDisconnect
?L1:
?LBE5:
?LBE2:
?LBE_dun_handler:
	leave	#2
;.stabn	192,0,0,?LBB2
;.stabn	224,0,0,?LBE2
;# begin scan referenced symbols
;# import _dun_handler
;# end scan referenced symbols
$_dun_initTask:
	enter	#1
?LBB_dun_initTask:
	ld	X,@$XAP_AH
	ld	AL,#lwrd(_dun_handler)
	st	AL,@(0,X)
?LBE_dun_initTask:
	leave	#1
	ENDMOD

;# Function pattern *movqi2 used[0] = 9 used[1] = 1 total = 10
;# Function pattern *movqi3 used[0] = 9 total = 9
;# Function pattern *addqi2 used[0] = 2 total = 2
;# Function pattern jump used[0] = 2 total = 2
;# Function pattern *call1 used[0] = 2 total = 2
;# Function pattern tablejump_1 used[0] = 1 total = 1
;# Function pattern movstrqi+3 used[1] = 2 total = 2
;# Function pattern movstrqi+4 used[1] = 1 total = 1
	MODULE	ftp_task
	.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
;# begin scan referenced symbols
;#(clobber (reg:QI 3 X))
;# import $_PsRetrieve
;# import $_FtpsConnectResponse
;# import _folderFile
;# import $_FileFind
;# import $_StreamFileSource
;# import _sendFolderListing
;# import $_StreamConnectDispose
;# import _setPathSubFolder
;# import $_FtpsSetPathRootResponse
;# import $_FileParent
;# import $_FtpsSetPathParentResponse
;# import $_SourceMap
;#(clobber:QI (reg:QI 1 AL))
;# import $_PanicUnlessMalloc
;# import $_FtpsPacketComplete
;# import $_free
;# import $_FileType
;# import $_SourceDrop
;# import _sendGetObject
;# import $_FtpsGetObjectReject
;# end scan referenced symbols
	.CODE
_ftp_handler:
	enter	#10
?LBB_ftp_handler:
?LBB2:
	st	AH,@(H'0003,Y)
	add	AL,#-H'6500
	cmp	AL,#(H'0001+H'0011)
	bcc	?L1
	ld	X,@$XAP_AL
	ld	X,@(?JTBASE43,X)
	brxl
	.SEG	CONST
?JTBASE43:
	.CODE
?L43:
	.SEG	CONST
	dc	?L3-?L43
	dc	?L5-?L43
	dc	?L7-?L43
	dc	?L1-?L43
	dc	?L1-?L43
	dc	?L11-?L43
	dc	?L14-?L43
	dc	?L18-?L43
	dc	?L28-?L43
	dc	?L39-?L43
	dc	?L18-?L43
	dc	?L1-?L43
	dc	?L1-?L43
	dc	?L1-?L43
	dc	?L1-?L43
	dc	?L19-?L43
	dc	?L20-?L43
	dc	?L23-?L43
	.CODE
?L3:
	ld	X,@(H'000A,Y)
?LBB3:
	tst	@(H'0001,X)
	bne	?L1
	ld	AL,@(0,X)
	ld	X,@(H'0003,Y)
	st	AL,@(H'0001,X)
	bra	(?L1)
?L5:
?LBE3:
?LBB4:
	ld	AL,#H'0000
	st	AL,@(H'0002,Y)
	ld	AL,#H'0001
	st	AL,@(0,Y)
	ld	AH,#H'000B
	ld	AL,@$XAP_UY
	add	AL,#H'0002
;	bsr	$_PsRetrieve
	DC	((256*18)+9)
	ld	AL,@(H'0002,Y)
	cmp	AL,#H'00FF
	bcc	?L6
	ld	AL,#H'00FF
?L6:
	st	AL,@(H'0002,Y)
	st	AL,@(0,Y)
	ld	AL,#H'0000
	st	AL,@(H'0001,Y)
	ld	X,@(H'0003,Y)
	ld	AH,@(H'0001,X)
	ld	AL,#H'0001
	bsr	$_FtpsConnectResponse
	bra	(?L1)
?L7:
	ld	X,@(H'000A,Y)
?LBE4:
?LBB5:
	tst	@(H'0001,X)
	bne	?L1
	ld	AL,@(H'0002,X)
	ld	X,@(H'0003,Y)
	st	AL,@(H'0004,X)
	ld	AL,#H'0000
	st	AL,@(H'0005,X)
	ld	AL,#H'0001
	st	AL,@(H'0006,X)
	bra	(?L1)
?L11:
?LBE5:
?LBB6:
	ld	AL,#H'0008
	st	AL,@(0,Y)
	ld	X,@(H'0003,Y)
	ld	AH,@(H'0006,X)
	ld	AL,#(_folderFile)
;	bsr	$_FileFind
	DC	((256*125)+9)
	cmp	AH,#H'0000
	beq	?L1
;	bsr	$_StreamFileSource
	DC	((256*124)+9)
	ld	X,@(H'0003,Y)
	st	AH,@(H'0005,X)
	ld	AH,@$XAP_UXL
	ld	AL,#H'0001
	bra	(?L49)
?L14:
	ld	X,@(H'0003,Y)
?LBE6:
	tst	@(H'0005,X)
	beq	?L40
	ld	AH,@$XAP_UXL
	ld	AL,#H'0000
?L49:
	bsr	_sendFolderListing
	bra	(?L1)
?L18:
	ld	X,@(H'0003,Y)
	ld	AH,@(H'0005,X)
;	bsr	$_StreamConnectDispose
	DC	((256*90)+9)
	ld	AL,#H'0000
	ld	X,@(H'0003,Y)
	st	AL,@(H'0005,X)
	bra	(?L1)
?L19:
	ld	AH,@(H'0003,Y)
	ld	AL,@(H'000A,Y)
	bsr	_setPathSubFolder
	bra	(?L1)
?L20:
	ld	X,@(H'0003,Y)
	ld	AL,@(H'0006,X)
	cmp	AL,#H'0001
	beq	?L48
	ld	AL,#H'0001
	ld	X,@(H'0003,Y)
	st	AL,@(H'0006,X)
?L48:
	ld	AH,@(H'0001,X)
	ld	AL,#H'0000
	bsr	$_FtpsSetPathRootResponse
	bra	(?L1)
?L23:
	ld	X,@(H'0003,Y)
	ld	AL,@(H'0006,X)
	cmp	AL,#H'0001
	bne	?L24
	ld	AH,@(H'0001,X)
	ld	AL,#H'0003
	bra	(?L47)
?L24:
	ld	X,@(H'0003,Y)
?LBB7:
	ld	AH,@(H'0006,X)
;	bsr	$_FileParent
	DC	((256*127)+9)
	cmp	AH,#H'0000
	bne	?L26
	ld	X,@(H'0003,Y)
	ld	AH,@(H'0001,X)
	ld	AL,#H'0001
	bra	(?L47)
?L26:
	ld	X,@(H'0003,Y)
	st	AH,@(H'0006,X)
	ld	AH,@(H'0001,X)
	ld	AL,#H'0000
?L47:
	bsr	$_FtpsSetPathParentResponse
?LBE7:
	bra	(?L1)
?L28: