spp_dev_a.xap

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

	ld	X,@(H'000A,Y)
?LBB8:
	ld	AH,@(H'0001,X)
;	bsr	$_SourceMap
	DC	((256*68)+9)
	st	AH,@(H'0004,Y)
	ld	AH,#H'0000
	st	AH,@(H'0005,Y)
	st	AH,@(H'0006,Y)
	ld	X,@(H'000A,Y)
	tst	@(H'0002,X)
	beq	?L29
	ld	AH,@(H'0002,X)
	lsr	#H'0001
;	bsr	$_PanicUnlessMalloc
	DC	((256*47)+9)
	st	AH,@(H'0005,Y)
	ld	X,@(H'000A,Y)
	ld	X,@(H'0003,X)
	st	X,@H'fff8
	ld	AL,@$XAP_UXL
	ld	X,@(H'000A,Y)
	ld	X,@(H'0002,X)
	add	X,@H'fff8
	ld	AH,#-H'0002
	add	AH,@$XAP_UXL
	st	AH,@H'fff8
	ld	AH,#H'0001
	add	AH,@$XAP_AL
	cmp	AH,@H'fff8
	bcc	?L29
?L33:
	ld	AL,@(H'0005,Y)
	add	AL,@(H'0006,Y)
	st	AL,@(H'0008,Y)
	ld	AL,@(H'0004,Y)
	add	AL,@$XAP_AH
	ld	X,@$XAP_AL
	ld	AL,@(0,X)
	ld	X,@(H'0008,Y)
	st	AL,@(0,X)
	ld	AL,@(H'0006,Y)
	add	AL,#H'0001
	st	AL,@(H'0006,Y)
	add	AH,#H'0002
	cmp	AH,@H'fff8
	bcs	?L33
?L29:
	ld	X,@(H'0003,Y)
	ld	AH,@(H'0001,X)
	bsr	$_FtpsPacketComplete
	tst	@(H'0005,Y)
	beq	?L37
	ld	AH,@(H'0006,Y)
?LBB9:
	st	AH,@(0,Y)
	ld	X,@(H'0003,Y)
	ld	AH,@(H'0006,X)
	ld	AL,@(H'0005,Y)
;	bsr	$_FileFind
	DC	((256*125)+9)
	st	AH,@(H'0007,Y)
	ld	AH,@(H'0005,Y)
;	bsr	$_free
	DC	((256*4)+9)
	tst	@(H'0007,Y)
	beq	?L37
	ld	AH,@(H'0007,Y)
;	bsr	$_FileType
	DC	((256*126)+9)
	cmp	AH,#H'0001
	bne	?L36
?L37:
	ld	X,@(H'0003,Y)
	ld	AH,@(H'0001,X)
	ld	AL,#H'0000
	bra	(?L46)
?L36:
	ld	AH,@(H'0007,Y)
;	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	(?L45)
?L39:
	ld	X,@(H'0003,Y)
?LBE9:
?LBE8:
	tst	@(H'0005,X)
	beq	?L40
	ld	AH,@(H'0005,X)
	ld	AL,@(H'0004,X)
;	bsr	$_SourceDrop
	DC	((256*67)+9)
	ld	AH,@(H'0003,Y)
	ld	AL,#H'0000
?L45:
	bsr	_sendGetObject
	bra	(?L1)
?L40:
	ld	X,@(H'0003,Y)
	ld	AH,@(H'0001,X)
	ld	AL,#H'0003
?L46:
	bsr	$_FtpsGetObjectReject
?L1:
?LBE2:
?LBE_ftp_handler:
	leave	#10
;.stabn	192,0,0,?LBB2
;.stabn	192,0,0,?LBB4
;.stabn	224,0,0,?LBE4
;.stabn	192,0,0,?LBB6
;.stabn	224,0,0,?LBE6
;.stabn	192,0,0,?LBB7
;.stabn	224,0,0,?LBE7
;.stabn	192,0,0,?LBB8
;.stabn	192,0,0,?LBB9
;.stabn	224,0,0,?LBE9
;.stabn	224,0,0,?LBE8
;.stabn	224,0,0,?LBE2
;# begin scan referenced symbols
;# import _ftp_handler
;# end scan referenced symbols
$_ftp_initTask:
	enter	#1
?LBB_ftp_initTask:
	ld	X,@$XAP_AH
	ld	AL,#lwrd(_ftp_handler)
	st	AL,@(0,X)
	ld	AL,#H'0000
	st	AL,@(H'0001,X)
	st	AL,@(H'0002,X)
	st	AL,@(H'0003,X)
?LBE_ftp_initTask:
	leave	#1
;# begin scan referenced symbols
;# import $_SourceSize
;# import $_FtpsGetFolderFirstPacketSource
;# import $_FtpsGetFolderNextPacketSource
;# end scan referenced symbols
_sendFolderListing:
	enter	#7
?LBB_sendFolderListing:
	st	AH,@(H'0004,Y)
	st	AL,@(H'0005,Y)
	ld	X,@$XAP_AH
?LBB10:
	ld	AH,@(H'0005,X)
;	bsr	$_SourceSize
	DC	((256*66)+9)
	st	AH,@H'fff8
	ld	X,@(H'0004,Y)
	cmp	AH,@(H'0004,X)
	beq	?L66
	bcc	?L58
?L66:
	tst	@(H'0005,Y)
	beq	?L59
	ld	AL,@(H'0005,X)
	st	AL,@(0,Y)
	ld	AL,@$XAP_AH
	ld	AH,#H'0000
	st	AH,@(H'0001,Y)
	st	AL,@(H'0002,Y)
	ld	AL,#H'0001
	st	AL,@(H'0003,Y)
	ld	AH,@(H'0001,X)
	ld	AL,@H'fff8
	bra	(?L65)
?L59:
	ld	X,@(H'0004,Y)
	ld	AL,@(H'0005,X)
	st	AL,@(0,Y)
	ld	AL,#H'0001
	st	AL,@(H'0001,Y)
	ld	AH,@(H'0001,X)
	ld	AL,@H'fff8
	bra	(?L64)
?L58:
	tst	@(H'0005,Y)
	beq	?L62
	ld	X,@(H'0004,Y)
	ld	AL,@(H'0005,X)
	st	AL,@(0,Y)
	ld	AL,#H'0000
	st	AL,@(H'0002,Y)
	st	AL,@(H'0001,Y)
	st	AL,@(H'0003,Y)
	ld	AH,@(H'0001,X)
	ld	AL,@(H'0004,X)
?L65:
	bsr	$_FtpsGetFolderFirstPacketSource
	bra	(?L57)
?L62:
	ld	X,@(H'0004,Y)
	ld	AL,@(H'0005,X)
	st	AL,@(0,Y)
	ld	AL,#H'0000
	st	AL,@(H'0001,Y)
	ld	AH,@(H'0001,X)
	ld	AL,@(H'0004,X)
?L64:
	bsr	$_FtpsGetFolderNextPacketSource
?L57:
?LBE10:
?LBE_sendFolderListing:
	leave	#7
;.stabn	192,0,0,?LBB10
;.stabn	224,0,0,?LBE10
;# begin scan referenced symbols
;# import $_FtpsGetObjectFirstPacketSource
;# import $_FtpsGetObjectNextPacketSource
;# end scan referenced symbols
_sendGetObject:
	enter	#11
?LBB_sendGetObject:
	st	AH,@(H'0008,Y)
	st	AL,@(H'0009,Y)
	ld	X,@$XAP_AH
?LBB11:
	ld	AH,@(H'0005,X)
;	bsr	$_SourceSize
	DC	((256*66)+9)
	st	AH,@H'fff8
	ld	X,@(H'0008,Y)
	cmp	AH,@(H'0004,X)
	beq	?L76
	bcc	?L68
?L76:
	tst	@(H'0009,Y)
	beq	?L69
	ld	AL,#H'0000
	st	AL,@(0,Y)
	st	AL,@(H'0001,Y)
	st	AL,@(H'0002,Y)
	st	AH,@(H'0003,Y)
	ld	AL,@(H'0005,X)
	st	AL,@(H'0004,Y)
	ld	AL,@$XAP_AH
	ld	AH,#H'0000
	st	AH,@(H'0005,Y)
	st	AL,@(H'0006,Y)
	ld	AL,#H'0001
	st	AL,@(H'0007,Y)
	ld	AH,@(H'0001,X)
	ld	AL,#H'0000
	bra	(?L75)
?L69:
	ld	X,@(H'0008,Y)
	ld	AL,@(H'0005,X)
	st	AL,@(0,Y)
	ld	AL,#H'0001
	st	AL,@(H'0001,Y)
	ld	AH,@(H'0001,X)
	ld	AL,@H'fff8
	bra	(?L74)
?L68:
	tst	@(H'0009,Y)
	beq	?L72
	ld	AL,#H'0000
	st	AL,@(0,Y)
	st	AL,@(H'0001,Y)
	st	AL,@(H'0002,Y)
	ld	X,@(H'0008,Y)
	ld	AH,@(H'0004,X)
	st	AH,@(H'0003,Y)
	ld	AH,@(H'0005,X)
	st	AH,@(H'0004,Y)
	st	AL,@(H'0006,Y)
	st	AL,@(H'0005,Y)
	st	AL,@(H'0007,Y)
	ld	AH,@(H'0001,X)
?L75:
	bsr	$_FtpsGetObjectFirstPacketSource
	bra	(?L67)
?L72:
	ld	X,@(H'0008,Y)
	ld	AL,@(H'0005,X)
	st	AL,@(0,Y)
	ld	AL,#H'0000
	st	AL,@(H'0001,Y)
	ld	AH,@(H'0001,X)
	ld	AL,@(H'0004,X)
?L74:
	bsr	$_FtpsGetObjectNextPacketSource
?L67:
?LBE11:
?LBE_sendGetObject:
	leave	#11
;.stabn	192,0,0,?LBB11
;.stabn	224,0,0,?LBE11
;# begin scan referenced symbols
;#(clobber:QI (reg:QI 1 AL))
;# import $_FtpsSetPathSubFolderResponse
;# end scan referenced symbols
_setPathSubFolder:
	enter	#10
?LBB_setPathSubFolder:
	st	AH,@(H'0001,Y)
	st	AL,@(H'0002,Y)
	ld	X,@$XAP_AL
?LBB12:
	ld	AH,@(H'0001,X)
;	bsr	$_SourceMap
	DC	((256*68)+9)
	st	AH,@(H'0003,Y)
	ld	AH,#H'0000
	st	AH,@(H'0005,Y)
	ld	X,@(H'0002,Y)
	ld	AH,@(H'0003,X)
	lsr	#H'0001
;	bsr	$_PanicUnlessMalloc
	DC	((256*47)+9)
	st	AH,@(H'0004,Y)
	ld	X,@(H'0002,Y)
	tst	@(H'0003,X)
	beq	?L78
	ld	AH,@(H'0002,X)
	ld	AL,@$XAP_AH
	ld	X,@(H'0003,X)
	add	X,@$XAP_AH
	ld	AH,#-H'0002
	add	AH,@$XAP_UXL
	st	AH,@H'fff8
	ld	AH,#H'0001
	add	AH,@$XAP_AL
	cmp	AH,@H'fff8
	bcc	?L78
?L82:
	ld	AL,@(H'0004,Y)
	add	AL,@(H'0005,Y)
	st	AL,@(H'0008,Y)
	ld	AL,@(H'0003,Y)
	add	AL,@$XAP_AH
	ld	X,@$XAP_AL
	ld	AL,@(0,X)
	ld	X,@(H'0008,Y)
	st	AL,@(0,X)
	ld	AL,@(H'0005,Y)
	add	AL,#H'0001
	st	AL,@(H'0005,Y)
	add	AH,#H'0002
	cmp	AH,@H'fff8
	bcs	?L82
?L78:
	ld	X,@(H'0001,Y)
	ld	AH,@(H'0001,X)
	bsr	$_FtpsPacketComplete
	ld	AH,@(H'0005,Y)
	st	AH,@(0,Y)
	ld	X,@(H'0001,Y)
	ld	AH,@(H'0006,X)
	ld	AL,@(H'0004,Y)
;	bsr	$_FileFind
	DC	((256*125)+9)
	st	AH,@(H'0006,Y)
	ld	AH,@(H'0004,Y)
;	bsr	$_free
	DC	((256*4)+9)
	tst	@(H'0006,Y)
	bne	?L83
	ld	X,@(H'0002,Y)
	tst	@(H'0004,X)
	beq	?L83
	ld	X,@(H'0001,Y)
	ld	AH,@(H'0001,X)
	ld	AL,#H'0004
	bra	(?L89)
?L83:
?LBB13:
	ld	AH,#H'0000
	st	AH,@(H'0007,Y)
	tst	@(H'0006,Y)
	beq	?L85
	ld	AH,@(H'0006,Y)
;	bsr	$_FileType
	DC	((256*126)+9)
	cmp	AH,#H'0001
	bne	?L85
	ld	AL,#H'0001
	st	AL,@(H'0007,Y)
?L85:
	tst	@(H'0007,Y)
	beq	?L86
	ld	AH,@(H'0006,Y)
	ld	X,@(H'0001,Y)
	st	AH,@(H'0006,X)
	ld	AH,@(H'0001,X)
	ld	AL,#H'0000
	bra	(?L89)
?L86:
	ld	X,@(H'0001,Y)
	ld	AH,@(H'0001,X)
	ld	AL,#H'0001
?L89:
	bsr	$_FtpsSetPathSubFolderResponse
?LBE13:
?LBE12:
?LBE_setPathSubFolder:
	leave	#10
;.stabn	192,0,0,?LBB12
;.stabn	192,0,0,?LBB13
;.stabn	224,0,0,?LBE13
;.stabn	224,0,0,?LBE12
	ENDMOD

;# Function pattern *movqi2 used[0] = 91 used[1] = 13 total = 104
;# Function pattern *movqi3 used[0] = 146 total = 146
;# Function pattern *movqi8 used[0] = 2 total = 2
;# Function pattern *movhi used[3] = 2 total = 2
;# Function pattern *addqi0 used[0] = 1 total = 1
;# Function pattern *addqi2 used[0] = 9 used[2] = 6 total = 15
;# Function pattern *lshrqi3 used[0] = 2 total = 2
;# Function pattern *zero_extendqihi2_1 used[0] = 2 total = 2
;# Function pattern jump used[0] = 22 total = 22
;# Function pattern *call1 used[0] = 17 total = 17
;# Function pattern *call_value1 used[0] = 16 total = 16
;# Function pattern tablejump_1 used[0] = 1 total = 1
;# Function pattern movstrqi+3 used[0] = 2 used[1] = 16 total = 18
;# Function pattern movstrqi+4 used[1] = 1 used[2] = 2 total = 3
;# Function pattern movstrqi+5 used[0] = 9 total = 9
	MODULE	main
	.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
;# end scan referenced symbols
	.CODE
_unhandledSppState:
	enter	#1
?LBB_unhandledSppState:
?LBE_unhandledSppState:
	leave	#1
	.SEG	CONST
?LC0:
	dc	H'0010
	dc	H'1106
	dc	H'2006
;# begin scan referenced symbols
;# import ?LC0
;# import ?LC0
;# import ?LC0
;#(clobber (reg:QI 0 AH))
;#(clobber (mem:BLK (const_int 0 [0x0]) [0 A16]))
;#(clobber (reg:QI 3 X))
;# import $_ConnectionSmSetSdpSecurityIn
;# import $_PsStore
;# end scan referenced symbols
	.CODE
$_Setfirmware:
	enter	#5
?LBB_Setfirmware:
?LBB2:
	ld	AH,@$XAP_UY
	add	AH,#H'0001
	ld	AL,#H'0003
	ld	X,#(?LC0)
	bc2
	ld	AH,#H'0001
	bsr	$_ConnectionSmSetSdpSecurityIn
	ld	AL,#H'0003
	st	AL,@(0,Y)
	ld	AH,#H'000A
	ld	AL,@$XAP_UY
	add	AL,#H'0001
;	bsr	$_PsStore
	DC	((256*17)+9)
?LBE2:
?LBE_Setfirmware:
	leave	#5
;.stabn	192,0,0,?LBB2
;.stabn	224,0,0,?LBE2
;# begin scan referenced symbols
;# import _theSppApp
;# import $_sppDevUpdateLed
;# end scan referenced symbols
$_setSppState:
	enter	#1
?LBB_setSppState:
	ld	AL,@$XAP_AH
	st	AH,@_theSppApp+H'000E
	ld	AH,#(_theSppApp)
	bsr	$_sppDevUpdateLed
?LBE_setSppState:
	leave	#1
;# begin scan referenced symbols
;# end scan referenced symbols
$_getAppTask:
	enter	#1
?LBB_getAppTask:
	ld	AH,#(_theSppApp)
?LBE_getAppTask:
	leave	#1
;# begin scan referenced symbols
;#(clobber (reg:QI 3 X))
;# import $_sppDevInquire
;# import $_getAppTask
;# import $_ConnectionInquireCancel
;# import $_SppDisconnect
;# import $_clear_far_addr
;# import $_StoredAddr
;# import $_memset
;# end scan referenced symbols
_pioHandler:
	enter	#2
?LBB_pioHandler:
	ld	X,@(H'0002,Y)
?LBB3:
	cmp	AL,#-H'7FDD
	bne	?L5
	ld	AL,@(0,X)
	cmp	AL,#H'0080
	bne	?L5
	ld	AL,@_theSppApp+H'000E
	cmp	AL,#(H'0001+H'0005)
	bcc	?L9
	ld	X,@$XAP_AL
	ld	X,@(?JTBASE16,X)
	brxl
	.SEG	CONST
?JTBASE16:
	.CODE
?L16:
	.SEG	CONST
	dc	?L5-?L16
	dc	?L11-?L16
	dc	?L13-?L16
	dc	?L13-?L16
	dc	?L14-?L16
	dc	?L9-?L16
	.CODE
?L11:
	ld	AH,#(_theSppApp)
	bsr	$_sppDevInquire
	bra	(?L9)
?L13:
	bsr	$_getAppTask
	bsr	$_ConnectionInquireCancel
	bra	(?L9)
?L14:
	ld	AH,@_theSppApp+H'0003
	bsr	$_SppDisconnect
?L9:
	ld	AH,#(_theSppApp+H'000A)
	bsr	$_clear_far_addr
	ld	AL,#H'001C
	st	AL,@(0,Y)
	ld	AH,#($_StoredAddr)
	ld	AL,#H'0000
	bsr	$_memset
?L5:
?LBE3:
?LBE_pioHandler:
	leave	#2
;# begin scan referenced symbols
;# import _pioHandler
;# import $_MessagePioTask
;# import $_PioDebounce
;# end scan referenced symbols
_PioInit:
	enter	#2
?LBB_PioInit: