spp_dev_a.xap

来自「蓝牙的spp dun ftp 功能的源代码」· XAP 代码 · 共 2,977 行 · 第 1/5 页

	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: