strings.asm

TC35i收发短信的源代码

	movw	ax,_@RTARG0					;[INF] 2, 6
	mov	[hl+2],a	; digit 			;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	mov	[hl+1],a	; digit 			;[INF] 2, 8
??eb00_Power:
; line   228
$DGL	0,9
	mov	a,[hl+5]	; i 				;[INF] 2, 8
	inc	a						;[INF] 1, 2
	mov	[hl+5],a	; i 				;[INF] 2, 8
	br	$?L0111						;[INF] 2, 6
?L0112:
; line   230
$DGL	0,11
	mov	a,[hl+3]	; digit 			;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	mov	a,[hl+4]	; digit 			;[INF] 2, 8
	movw	de,ax						;[INF] 1, 4
	mov	a,[hl+1]	; digit 			;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	mov	a,[hl+2]	; digit 			;[INF] 2, 8
	movw	bc,ax						;[INF] 1, 4
; line   231
$DGL	0,12
??ef_Power:
	pop	ax						;[INF] 1, 4
	pop	ax						;[INF] 1, 4
	pop	ax						;[INF] 1, 4
	pop	ax						;[INF] 1, 4
	pop	hl						;[INF] 1, 4
	ret							;[INF] 1, 6
??ee_Power:
; line   235
_Bcd2long:
$DGL	1,206
	push	hl						;[INF] 1, 4
	push	ax						;[INF] 1, 4
	push	ax						;[INF] 1, 4
	push	ax						;[INF] 1, 4
	push	ax						;[INF] 1, 4
	push	ax						;[INF] 1, 4
	movw	ax,sp						;[INF] 2, 8
	movw	hl,ax						;[INF] 1, 4
??bf_Bcd2long:
; line   238
$DGL	0,4
	mov	a,#00H	; 0 					;[INF] 2, 4
	mov	[hl+1],a	; temp 				;[INF] 2, 8
	mov	[hl+2],a	; temp 				;[INF] 2, 8
	mov	[hl+3],a	; temp 				;[INF] 2, 8
	mov	[hl+4],a	; temp 				;[INF] 2, 8
; line   240
$DGL	0,6
	mov	[hl+7],a	; i 				;[INF] 2, 8
?L0116:
	mov	a,[hl+7]	; i 				;[INF] 2, 8
	cmp	a,[hl+8]	; n 				;[INF] 2, 8
	bnc	$?L0117						;[INF] 2, 6
; line   241
$DGL	0,7
??bb00_Bcd2long:
; line   242
$DGL	0,8
	mov	x,#00H	; 0 					;[INF] 2, 4
	add	a,[hl+14]	; bcd 				;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	addc	a,[hl+15]	; bcd 				;[INF] 2, 8
	movw	de,ax						;[INF] 1, 4
	mov	a,[de]						;[INF] 1, 4
	ror	a,1						;[INF] 1, 2
	ror	a,1						;[INF] 1, 2
	ror	a,1						;[INF] 1, 2
	ror	a,1						;[INF] 1, 2
	and	a,#0FH	; 15 					;[INF] 2, 4
	mov	[hl+6],a	; n1 				;[INF] 2, 8
; line   243
$DGL	0,9
	and	a,#0FH	; 15 					;[INF] 2, 4
	mov	[hl+6],a	; n1 				;[INF] 2, 8
; line   244
$DGL	0,10
	mov	a,[hl+7]	; i 				;[INF] 2, 8
	mov	x,#00H	; 0 					;[INF] 2, 4
	add	a,[hl+14]	; bcd 				;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	addc	a,[hl+15]	; bcd 				;[INF] 2, 8
	movw	de,ax						;[INF] 1, 4
	mov	a,[de]						;[INF] 1, 4
	and	a,#0FH	; 15 					;[INF] 2, 4
	mov	[hl+5],a	; n2 				;[INF] 2, 8
; line   246
$DGL	0,12
	mov	x,#0AH	; 10 					;[INF] 2, 4
	mov	a,[hl+6]	; n1 				;[INF] 2, 8
	mulu	x						;[INF] 2,16
	mov	a,x						;[INF] 1, 2
	add	a,[hl+5]	; n2 				;[INF] 2, 8
	push	ax						;[INF] 1, 4
	mov	a,[hl+8]	; n 				;[INF] 2, 8
	dec	a						;[INF] 1, 2
	sub	a,[hl+7]	; i 				;[INF] 2, 8
	add	a,a						;[INF] 2, 4
	mov	x,#00H	; 0 					;[INF] 2, 4
	xch	a,x						;[INF] 1, 2
	push	ax						;[INF] 1, 4
	mov	x,#0AH	; 10 					;[INF] 2, 4
	call	!_Power						;[INF] 3, 7
	pop	ax						;[INF] 1, 4
	movw	ax,bc						;[INF] 1, 4
	movw	_@RTARG4,ax					;[INF] 2, 6
	movw	ax,de						;[INF] 1, 4
	movw	_@RTARG6,ax					;[INF] 2, 6
	pop	ax						;[INF] 1, 4
	mov	_@RTARG0,a					;[INF] 2, 4
	mov	_@RTARG1,#00H	; 0 				;[INF] 3, 6
	movw	_@RTARG2,#00H	; 0 				;[INF] 4, 8
	movw	ax,_@RTARG6					;[INF] 2, 6
	call	!@@lumul					;[INF] 3, 7
	mov	a,[hl+1]	; temp 				;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	mov	a,[hl+2]	; temp 				;[INF] 2, 8
	movw	_@RTARG4,ax					;[INF] 2, 6
	mov	a,[hl+3]	; temp 				;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	mov	a,[hl+4]	; temp 				;[INF] 2, 8
	call	!@@lsadd					;[INF] 3, 7
	movw	ax,_@RTARG2					;[INF] 2, 6
	mov	[hl+4],a	; temp 				;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	mov	[hl+3],a	; temp 				;[INF] 2, 8
	movw	ax,_@RTARG0					;[INF] 2, 6
	mov	[hl+2],a	; temp 				;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	mov	[hl+1],a	; temp 				;[INF] 2, 8
??eb00_Bcd2long:
; line   247
$DGL	0,13
	mov	a,[hl+7]	; i 				;[INF] 2, 8
	inc	a						;[INF] 1, 2
	mov	[hl+7],a	; i 				;[INF] 2, 8
	br	$?L0116						;[INF] 2, 6
?L0117:
; line   249
$DGL	0,15
	mov	a,[hl+3]	; temp 				;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	mov	a,[hl+4]	; temp 				;[INF] 2, 8
	movw	de,ax						;[INF] 1, 4
	mov	a,[hl+1]	; temp 				;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	mov	a,[hl+2]	; temp 				;[INF] 2, 8
	movw	bc,ax						;[INF] 1, 4
; line   250
$DGL	0,16
??ef_Bcd2long:
	pop	ax						;[INF] 1, 4
	pop	ax						;[INF] 1, 4
	pop	ax						;[INF] 1, 4
	pop	ax						;[INF] 1, 4
	pop	ax						;[INF] 1, 4
	pop	hl						;[INF] 1, 4
	ret							;[INF] 1, 6
??ee_Bcd2long:
; line   253
_H2A:
$DGL	1,222
	push	hl						;[INF] 1, 4
	movw	hl,ax						;[INF] 1, 4
??bf_H2A:
; line   254
$DGL	0,2
	mov	a,l						;[INF] 1, 2
	cmp	a,#00H	; 0 					;[INF] 2, 4
	bc	$?L0121						;[INF] 2, 6
	mov	a,#09H	; 9 					;[INF] 2, 4
	cmp	a,l						;[INF] 2, 4
	bc	$?L0121						;[INF] 2, 6
; line   255
$DGL	0,3
??bb00_H2A:
; line   256
$DGL	0,4
	mov	a,l						;[INF] 1, 2
	add	a,#030H	; 48 					;[INF] 2, 4
	mov	b,#00H	; 0 					;[INF] 2, 4
	xch	a,c						;[INF] 1, 2
	br	$?L0124						;[INF] 2, 6
??eb00_H2A:
?L0121:
; line   258
$DGL	0,6
	mov	a,l						;[INF] 1, 2
	cmp	a,#0AH	; 10 					;[INF] 2, 4
	bc	$?L0123						;[INF] 2, 6
	mov	a,#0FH	; 15 					;[INF] 2, 4
	cmp	a,l						;[INF] 2, 4
	bc	$?L0123						;[INF] 2, 6
; line   259
$DGL	0,7
??bb01_H2A:
; line   260
$DGL	0,8
	mov	a,l						;[INF] 1, 2
	sub	a,#0C9H	; 201 					;[INF] 2, 4
	mov	b,#00H	; 0 					;[INF] 2, 4
	xch	a,c						;[INF] 1, 2
	br	$?L0124						;[INF] 2, 6
??eb01_H2A:
?L0123:
; line   262
$DGL	0,10
	movw	bc,#0FFFFH	; -1 				;[INF] 3, 6
?L0124:
; line   263
$DGL	0,11
??ef_H2A:
	pop	hl						;[INF] 1, 4
	ret							;[INF] 1, 6
??ee_H2A:
; line   267
_A2H:
$DGL	1,237
	push	hl						;[INF] 1, 4
	movw	hl,ax						;[INF] 1, 4
??bf_A2H:
; line   268
$DGL	0,2
	mov	a,l						;[INF] 1, 2
	cmp	a,#030H	; 48 					;[INF] 2, 4
	bc	$?L0127						;[INF] 2, 6
	mov	a,#039H	; 57 					;[INF] 2, 4
	cmp	a,l						;[INF] 2, 4
	bc	$?L0127						;[INF] 2, 6
; line   269
$DGL	0,3
??bb00_A2H:
; line   270
$DGL	0,4
	mov	a,l						;[INF] 1, 2
	sub	a,#030H	; 48 					;[INF] 2, 4
	mov	b,#00H	; 0 					;[INF] 2, 4
	xch	a,c						;[INF] 1, 2
	br	$?L0130						;[INF] 2, 6
??eb00_A2H:
?L0127:
; line   272
$DGL	0,6
	mov	a,l						;[INF] 1, 2
	cmp	a,#061H	; 97 					;[INF] 2, 4
	bc	$?L0129						;[INF] 2, 6
	mov	a,#066H	; 102 					;[INF] 2, 4
	cmp	a,l						;[INF] 2, 4
	bc	$?L0129						;[INF] 2, 6
; line   273
$DGL	0,7
??bb01_A2H:
; line   274
$DGL	0,8
	mov	a,l						;[INF] 1, 2
	sub	a,#057H	; 87 					;[INF] 2, 4
	mov	b,#00H	; 0 					;[INF] 2, 4
	xch	a,c						;[INF] 1, 2
	br	$?L0130						;[INF] 2, 6
??eb01_A2H:
?L0129:
; line   276
$DGL	0,10
	mov	a,l						;[INF] 1, 2
	cmp	a,#041H	; 65 					;[INF] 2, 4
	bc	$?L0131						;[INF] 2, 6
	mov	a,#046H	; 70 					;[INF] 2, 4
	cmp	a,l						;[INF] 2, 4
	bc	$?L0131						;[INF] 2, 6
; line   277
$DGL	0,11
??bb02_A2H:
; line   278
$DGL	0,12
	mov	a,l						;[INF] 1, 2
	sub	a,#037H	; 55 					;[INF] 2, 4
	mov	b,#00H	; 0 					;[INF] 2, 4
	xch	a,c						;[INF] 1, 2
	br	$?L0130						;[INF] 2, 6
??eb02_A2H:
?L0131:
; line   280
$DGL	0,14
	movw	bc,#0FFFFH	; -1 				;[INF] 3, 6
?L0130:
; line   281
$DGL	0,15
??ef_A2H:
	pop	hl						;[INF] 1, 4
	ret							;[INF] 1, 6
??ee_A2H:
; line   284
_Asc2Hex:
$DGL	1,256
	push	hl						;[INF] 1, 4
	push	ax						;[INF] 1, 4
	push	ax						;[INF] 1, 4
	movw	ax,sp						;[INF] 2, 8
	movw	hl,ax						;[INF] 1, 4
??bf_Asc2Hex:
; line   288
$DGL	0,5
	mov	a,#00H	; 0 					;[INF] 2, 4
	mov	[hl],a	; i 					;[INF] 1, 4
?L0135:
	mov	a,[hl+2]	; n 				;[INF] 2, 8
	clr1	CY						;[INF] 1, 2
	rorc	a,1						;[INF] 1, 2
	cmp	a,[hl]	; i 					;[INF] 1, 4
	bc	$?L0136						;[INF] 2, 6
	bz	$?L0136						;[INF] 2, 6
; line   289
$DGL	0,6
??bb00_Asc2Hex:
; line   291
$DGL	0,8
	mov	a,[hl]	; i 					;[INF] 1, 4
	add	a,a						;[INF] 2, 4
	mov	x,#00H	; 0 					;[INF] 2, 4
	add	a,[hl+8]	; src 				;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	addc	a,[hl+9]	; src 				;[INF] 2, 8
	movw	de,ax						;[INF] 1, 4
	mov	a,[de]						;[INF] 1, 4
	mov	x,#00H	; 0 					;[INF] 2, 4
	xch	a,x						;[INF] 1, 2
	call	!_A2H						;[INF] 3, 7
	mov	a,c						;[INF] 1, 2
	mov	[hl+1],a	; tmp 				;[INF] 2, 8
; line   292
$DGL	0,9
	cmp	a,#00H	; 0 					;[INF] 2, 4
	or1	CY,a.7						;[INF] 2, 4
	bnc	$?L0138						;[INF] 2, 6
	movw	bc,#0FFFFH	; -1 				;[INF] 3, 6
	br	$?L0134						;[INF] 2, 6
?L0138:
; line   293
$DGL	0,10
	mov	a,[hl+1]	; tmp 				;[INF] 2, 8
	rol	a,1						;[INF] 1, 2
	rol	a,1						;[INF] 1, 2
	rol	a,1						;[INF] 1, 2
	rol	a,1						;[INF] 1, 2
	and	a,#0F0H	; 240 					;[INF] 2, 4
	mov	[hl+1],a	; tmp 				;[INF] 2, 8
; line   294
$DGL	0,11
	mov	x,a						;[INF] 1, 2
	rolc	a,1						;[INF] 1, 2
	subc	a,a						;[INF] 2, 4
	and	a,#00H	; 0 					;[INF] 2, 4
	xch	a,x						;[INF] 1, 2
	and	a,#0F0H	; 240 					;[INF] 2, 4
	mov	c,a						;[INF] 1, 2
	mov	a,[hl]	; i 					;[INF] 1, 4
	mov	x,#00H	; 0 					;[INF] 2, 4
	add	a,[hl+10]	; dest 				;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	addc	a,[hl+11]	; dest 				;[INF] 2, 8
	movw	de,ax						;[INF] 1, 4
	mov	a,c						;[INF] 1, 2
	mov	[de],a						;[INF] 1, 4
; line   297
$DGL	0,14
	mov	a,[hl]	; i 					;[INF] 1, 4
	add	a,a						;[INF] 2, 4
	inc	a						;[INF] 1, 2
	mov	x,#00H	; 0 					;[INF] 2, 4
	add	a,[hl+8]	; src 				;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	addc	a,[hl+9]	; src 				;[INF] 2, 8
	movw	de,ax						;[INF] 1, 4
	mov	a,[de]						;[INF] 1, 4
	mov	x,#00H	; 0 					;[INF] 2, 4
	xch	a,x						;[INF] 1, 2
	call	!_A2H						;[INF] 3, 7
	mov	a,c						;[INF] 1, 2
	mov	[hl+1],a	; tmp 				;[INF] 2, 8
; line   298
$DGL	0,15
	cmp	a,#00H	; 0 					;[INF] 2, 4
	or1	CY,a.7						;[INF] 2, 4
	bnc	$?L0141						;[INF] 2, 6
	movw	bc,#0FFFFH	; -1 				;[INF] 3, 6
	br	$?L0134						;[INF] 2, 6
?L0141:
; line   299
$DGL	0,16
	mov	a,[hl+1]	; tmp 				;[INF] 2, 8
	and	a,#0FH	; 15 					;[INF] 2, 4
	mov	c,a						;[INF] 1, 2
	mov	a,[hl]	; i 					;[INF] 1, 4
	mov	x,#00H	; 0 					;[INF] 2, 4
	add	a,[hl+10]	; dest 				;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	addc	a,[hl+11]	; dest 				;[INF] 2, 8
	movw	de,ax						;[INF] 1, 4
	mov	a,[de]						;[INF] 1, 4
	or	a,c						;[INF] 2, 4
	mov	[de],a						;[INF] 1, 4
??eb00_Asc2Hex:
; line   300
$DGL	0,17
	mov	a,[hl]	; i 					;[INF] 1, 4
	inc	a						;[INF] 1, 2
	mov	[hl],a	; i 					;[INF] 1, 4
	br	!?L0135						;[INF] 3, 6
?L0136:
; line   301
$DGL	0,18
	movw	bc,#01H	; 1 					;[INF] 3, 6
?L0134:
; line   302
$DGL	0,19
??ef_Asc2Hex:
	pop	ax						;[INF] 1, 4
	pop	ax						;[INF] 1, 4
	pop	hl						;[INF] 1, 4
	ret							;[INF] 1, 6
??ee_Asc2Hex:
; line   332
_gsmInvertNumbers:
$DGL	1,271
	push	hl						;[INF] 1, 4
	push	ax						;[INF] 1, 4
	push	ax						;[INF] 1, 4
	push	ax						;[INF] 1, 4
	push	ax						;[INF] 1, 4
	movw	ax,sp						;[INF] 2, 8
	movw	hl,ax						;[INF] 1, 4
??bf_gsmInvertNumbers:
; line   338
$DGL	0,7
	mov	a,[hl+14]	; nSrcLength 			;[INF] 2, 8
	mov	[hl+2],a	; nDstLength 			;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	mov	a,[hl+15]	; nSrcLength 			;[INF] 2, 8
	mov	[hl+3],a	; nDstLength 			;[INF] 2, 8
; line   341
$DGL	0,10
	mov	a,#00H	; 0 					;[INF] 2, 4
	mov	[hl+4],a	; i 				;[INF] 2, 8
	mov	[hl+5],a	; i 				;[INF] 2, 8
?L0145:
	mov	a,[hl+4]	; i 				;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	mov	a,[hl+5]	; i 				;[INF] 2, 8
	movw	_@RTARG0,ax					;[INF] 2, 6
	mov	a,[hl+14]	; nSrcLength 			;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	mov	a,[hl+15]	; nSrcLength 			;[INF] 2, 8
	call	!@@iscmp					;[INF] 3, 7
	bnc	$?L0146						;[INF] 2, 6