strings.asm

TC35i收发短信的源代码

; line   161
$DGL	0,16
	xch	a,x						;[INF] 1, 2
	add	a,[hl+2]	; sn 				;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	addc	a,[hl+3]	; sn 				;[INF] 2, 8
	movw	de,ax						;[INF] 1, 4
	mov	a,[de]						;[INF] 1, 4
	cmp	a,#030H	; 48 					;[INF] 2, 4
	bc	$?L0084						;[INF] 2, 6
	mov	a,[hl+10]	; i 				;[INF] 2, 8
	add	a,[hl+2]	; sn 				;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	mov	a,[hl+11]	; i 				;[INF] 2, 8
	addc	a,[hl+3]	; sn 				;[INF] 2, 8
	movw	de,ax						;[INF] 1, 4
	mov	a,[de]						;[INF] 1, 4
	cmp	a,#039H	; 57 					;[INF] 2, 4
	bc	$?L0082						;[INF] 2, 6
	bz	$?L0082						;[INF] 2, 6
?L0084:
	movw	bc,#0FFFFH	; -1 				;[INF] 3, 6
	br	!?L0074						;[INF] 3, 6
?L0082:
; line   162
$DGL	0,17
	mov	a,[hl+10]	; i 				;[INF] 2, 8
	add	a,[hl+2]	; sn 				;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	mov	a,[hl+11]	; i 				;[INF] 2, 8
	addc	a,[hl+3]	; sn 				;[INF] 2, 8
	movw	de,ax						;[INF] 1, 4
	mov	a,[de]						;[INF] 1, 4
	sub	a,#030H	; 48 					;[INF] 2, 4
	mov	c,a						;[INF] 1, 2
	mov	a,[hl+8]	; j 				;[INF] 2, 8
	add	a,[hl]	; sb 					;[INF] 1, 4
	xch	a,x						;[INF] 1, 2
	mov	a,[hl+9]	; j 				;[INF] 2, 8
	addc	a,[hl+1]	; sb 				;[INF] 2, 8
	movw	de,ax						;[INF] 1, 4
	mov	a,c						;[INF] 1, 2
	mov	[de],a						;[INF] 1, 4
; line   163
$DGL	0,18
	mov	a,[hl+10]	; i 				;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	mov	a,[hl+11]	; i 				;[INF] 2, 8
	decw	ax						;[INF] 1, 4
	mov	[hl+11],a	; i 				;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	mov	[hl+10],a	; i 				;[INF] 2, 8
??eb01_Asc2BCD:
?L0080:
; line   166
$DGL	0,21
	mov	a,[hl+10]	; i 				;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	mov	a,[hl+11]	; i 				;[INF] 2, 8
	cmpw	ax,#00H	; 0 					;[INF] 3, 6
	or1	CY,a.7						;[INF] 2, 4
	bc	$?L0085						;[INF] 2, 6
; line   167
$DGL	0,22
??bb02_Asc2BCD:
; line   168
$DGL	0,23
	xch	a,x						;[INF] 1, 2
	add	a,[hl+2]	; sn 				;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	addc	a,[hl+3]	; sn 				;[INF] 2, 8
	movw	de,ax						;[INF] 1, 4
	mov	a,[de]						;[INF] 1, 4
	cmp	a,#030H	; 48 					;[INF] 2, 4
	bc	$?L0089						;[INF] 2, 6
	mov	a,[hl+10]	; i 				;[INF] 2, 8
	add	a,[hl+2]	; sn 				;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	mov	a,[hl+11]	; i 				;[INF] 2, 8
	addc	a,[hl+3]	; sn 				;[INF] 2, 8
	movw	de,ax						;[INF] 1, 4
	mov	a,[de]						;[INF] 1, 4
	cmp	a,#039H	; 57 					;[INF] 2, 4
	bc	$?L0087						;[INF] 2, 6
	bz	$?L0087						;[INF] 2, 6
?L0089:
	movw	bc,#0FFFFH	; -1 				;[INF] 3, 6
	br	$?L0074						;[INF] 2, 6
?L0087:
; line   169
$DGL	0,24
	mov	a,[hl+10]	; i 				;[INF] 2, 8
	add	a,[hl+2]	; sn 				;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	mov	a,[hl+11]	; i 				;[INF] 2, 8
	addc	a,[hl+3]	; sn 				;[INF] 2, 8
	movw	de,ax						;[INF] 1, 4
	mov	a,[de]						;[INF] 1, 4
	sub	a,#030H	; 48 					;[INF] 2, 4
	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	c,a						;[INF] 1, 2
	mov	a,[hl+8]	; j 				;[INF] 2, 8
	add	a,[hl]	; sb 					;[INF] 1, 4
	xch	a,x						;[INF] 1, 2
	mov	a,[hl+9]	; j 				;[INF] 2, 8
	addc	a,[hl+1]	; sb 				;[INF] 2, 8
	movw	de,ax						;[INF] 1, 4
	mov	a,[de]						;[INF] 1, 4
	or	c,a						;[INF] 2, 4
	mov	a,[hl+8]	; j 				;[INF] 2, 8
	add	a,[hl]	; sb 					;[INF] 1, 4
	xch	a,x						;[INF] 1, 2
	mov	a,[hl+9]	; j 				;[INF] 2, 8
	addc	a,[hl+1]	; sb 				;[INF] 2, 8
	movw	de,ax						;[INF] 1, 4
	mov	a,c						;[INF] 1, 2
	mov	[de],a						;[INF] 1, 4
; line   170
$DGL	0,25
	mov	a,[hl+10]	; i 				;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	mov	a,[hl+11]	; i 				;[INF] 2, 8
	decw	ax						;[INF] 1, 4
	mov	[hl+11],a	; i 				;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	mov	[hl+10],a	; i 				;[INF] 2, 8
??eb02_Asc2BCD:
?L0085:
??eb00_Asc2BCD:
; line   172
$DGL	0,27
	mov	a,[hl+8]	; j 				;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	mov	a,[hl+9]	; j 				;[INF] 2, 8
	decw	ax						;[INF] 1, 4
	mov	[hl+9],a	; j 				;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	mov	[hl+8],a	; j 				;[INF] 2, 8
	br	!?L0077						;[INF] 3, 6
?L0078:
; line   173
$DGL	0,28
	mov	a,[hl+6]	; n 				;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	mov	a,[hl+7]	; n 				;[INF] 2, 8
	movw	bc,ax						;[INF] 1, 4
?L0074:
; line   174
$DGL	0,29
??ef_Asc2BCD:
	movw	ax,hl						;[INF] 1, 4
	addw	ax,#0CH						;[INF] 3, 6
	movw	sp,ax						;[INF] 2, 8
	pop	ax						;[INF] 1, 4
	pop	hl						;[INF] 1, 4
	ret							;[INF] 1, 6
??ee_Asc2BCD:
; line   178
_Bcd2Asc:
$DGL	1,162
	push	hl						;[INF] 1, 4
	push	ax						;[INF] 1, 4
	movw	ax,sp						;[INF] 2, 8
	subw	ax,#0EH						;[INF] 3, 6
	movw	sp,ax						;[INF] 2, 8
	movw	hl,ax						;[INF] 1, 4
??bf_Bcd2Asc:
; line   182
$DGL	0,5
	mov	a,#00H	; 0 					;[INF] 2, 4
	mov	[hl+13],a	; i 				;[INF] 2, 8
?L0092:
	mov	a,[hl+13]	; i 				;[INF] 2, 8
	cmp	a,[hl+14]	; n 				;[INF] 2, 8
	bnc	$?L0093						;[INF] 2, 6
; line   183
$DGL	0,6
??bb00_Bcd2Asc:
; line   184
$DGL	0,7
	mov	x,#00H	; 0 					;[INF] 2, 4
	add	a,[hl+20]	; bcd 				;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	addc	a,[hl+21]	; bcd 				;[INF] 2, 8
	movw	de,ax						;[INF] 1, 4
	mov	a,[de]						;[INF] 1, 4
	mov	[hl+11],a	; temp 				;[INF] 2, 8
; line   185
$DGL	0,8
	and	a,#0FH	; 15 					;[INF] 2, 4
	cmp	a,#09H	; 9 					;[INF] 2, 4
	bc	$$+4						;[INF] 2, 6
	bnz	$?L0097						;[INF] 2, 6
	mov	a,[hl+11]	; temp 				;[INF] 2, 8
	and	a,#0F0H	; 240 					;[INF] 2, 4
	cmp	a,#090H	; 144 					;[INF] 2, 4
	bc	$?L0095						;[INF] 2, 6
	bz	$?L0095						;[INF] 2, 6
?L0097:
	movw	bc,#0FFFFH	; -1 				;[INF] 3, 6
	br	!?L0091						;[INF] 3, 6
?L0095:
??eb00_Bcd2Asc:
; line   186
$DGL	0,9
	mov	a,[hl+13]	; i 				;[INF] 2, 8
	inc	a						;[INF] 1, 2
	mov	[hl+13],a	; i 				;[INF] 2, 8
	br	$?L0092						;[INF] 2, 6
?L0093:
; line   188
$DGL	0,11
	mov	a,#00H	; 0 					;[INF] 2, 4
	mov	[hl+13],a	; i 				;[INF] 2, 8
?L0098:
	mov	a,[hl+13]	; i 				;[INF] 2, 8
	cmp	a,[hl+14]	; n 				;[INF] 2, 8
	bnc	$?L0099						;[INF] 2, 6
; line   189
$DGL	0,12
??bb01_Bcd2Asc:
; line   190
$DGL	0,13
	mov	x,#00H	; 0 					;[INF] 2, 4
	add	a,[hl+20]	; bcd 				;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	addc	a,[hl+21]	; bcd 				;[INF] 2, 8
	movw	de,ax						;[INF] 1, 4
	mov	a,[de]						;[INF] 1, 4
	and	a,#0FH	; 15 					;[INF] 2, 4
	add	a,#030H	; 48 					;[INF] 2, 4
	mov	c,a						;[INF] 1, 2
	mov	a,[hl+13]	; i 				;[INF] 2, 8
	add	a,a						;[INF] 2, 4
	inc	a						;[INF] 1, 2
	mov	x,#00H	; 0 					;[INF] 2, 4
	add	a,l						;[INF] 2, 4
	xch	a,x						;[INF] 1, 2
	addc	a,h						;[INF] 2, 4
	incw	ax						;[INF] 1, 4
	movw	de,ax						;[INF] 1, 4
	mov	a,c						;[INF] 1, 2
	mov	[de],a						;[INF] 1, 4
; line   191
$DGL	0,14
	mov	a,[hl+13]	; i 				;[INF] 2, 8
	mov	x,#00H	; 0 					;[INF] 2, 4
	add	a,[hl+20]	; bcd 				;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	addc	a,[hl+21]	; bcd 				;[INF] 2, 8
	movw	de,ax						;[INF] 1, 4
	mov	a,[de]						;[INF] 1, 4
	and	a,#0F0H	; 240 					;[INF] 2, 4
	mov	[hl+11],a	; temp 				;[INF] 2, 8
; line   192
$DGL	0,15
	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+11],a	; temp 				;[INF] 2, 8
; line   193
$DGL	0,16
	and	a,#0FH	; 15 					;[INF] 2, 4
	mov	[hl+11],a	; temp 				;[INF] 2, 8
; line   194
$DGL	0,17
	add	a,#030H	; 48 					;[INF] 2, 4
	mov	c,a						;[INF] 1, 2
	mov	a,[hl+13]	; i 				;[INF] 2, 8
	add	a,a						;[INF] 2, 4
	mov	x,#00H	; 0 					;[INF] 2, 4
	add	a,l						;[INF] 2, 4
	xch	a,x						;[INF] 1, 2
	addc	a,h						;[INF] 2, 4
	incw	ax						;[INF] 1, 4
	movw	de,ax						;[INF] 1, 4
	mov	a,c						;[INF] 1, 2
	mov	[de],a						;[INF] 1, 4
??eb01_Bcd2Asc:
; line   195
$DGL	0,18
	mov	a,[hl+13]	; i 				;[INF] 2, 8
	inc	a						;[INF] 1, 2
	mov	[hl+13],a	; i 				;[INF] 2, 8
	br	$?L0098						;[INF] 2, 6
?L0099:
; line   196
$DGL	0,19
	mov	a,[hl+14]	; n 				;[INF] 2, 8
	add	a,a						;[INF] 2, 4
	mov	x,#00H	; 0 					;[INF] 2, 4
	add	a,l						;[INF] 2, 4
	xch	a,x						;[INF] 1, 2
	addc	a,h						;[INF] 2, 4
	incw	ax						;[INF] 1, 4
	movw	de,ax						;[INF] 1, 4
	mov	a,#00H	; 0 					;[INF] 2, 4
	mov	[de],a						;[INF] 1, 4
; line   199
$DGL	0,22
	mov	[hl+13],a	; i 				;[INF] 2, 8
?L0101:
	mov	a,[hl+14]	; n 				;[INF] 2, 8
	add	a,a						;[INF] 2, 4
	dec	a						;[INF] 1, 2
	cmp	a,[hl+13]	; i 				;[INF] 2, 8
	bc	$?L0102						;[INF] 2, 6
	bz	$?L0102						;[INF] 2, 6
; line   200
$DGL	0,23
??bb02_Bcd2Asc:
; line   201
$DGL	0,24
	mov	a,[hl+13]	; i 				;[INF] 2, 8
	mov	x,#00H	; 0 					;[INF] 2, 4
	add	a,l						;[INF] 2, 4
	xch	a,x						;[INF] 1, 2
	addc	a,h						;[INF] 2, 4
	incw	ax						;[INF] 1, 4
	movw	de,ax						;[INF] 1, 4
	mov	a,[de]						;[INF] 1, 4
	cmp	a,#030H	; 48 					;[INF] 2, 4
	bnz	$?L0102						;[INF] 2, 6
??eb02_Bcd2Asc:
; line   202
$DGL	0,25
	mov	a,[hl+13]	; i 				;[INF] 2, 8
	inc	a						;[INF] 1, 2
	mov	[hl+13],a	; i 				;[INF] 2, 8
	br	$?L0101						;[INF] 2, 6
?L0102:
; line   204
$DGL	0,27
	mov	a,#00H	; 0 					;[INF] 2, 4
	mov	[hl+12],a	; j 				;[INF] 2, 8
?L0106:
	mov	a,[hl+14]	; n 				;[INF] 2, 8
	add	a,a						;[INF] 2, 4
	sub	a,[hl+13]	; i 				;[INF] 2, 8
	cmp	a,[hl+12]	; j 				;[INF] 2, 8
	bc	$?L0107						;[INF] 2, 6
	bz	$?L0107						;[INF] 2, 6
; line   205
$DGL	0,28
??bb03_Bcd2Asc:
; line   206
$DGL	0,29
	mov	a,[hl+12]	; j 				;[INF] 2, 8
	add	a,[hl+13]	; i 				;[INF] 2, 8
	mov	x,#00H	; 0 					;[INF] 2, 4
	add	a,l						;[INF] 2, 4
	xch	a,x						;[INF] 1, 2
	addc	a,h						;[INF] 2, 4
	incw	ax						;[INF] 1, 4
	movw	de,ax						;[INF] 1, 4
	mov	a,[de]						;[INF] 1, 4
	mov	c,a						;[INF] 1, 2
	mov	a,[hl+12]	; j 				;[INF] 2, 8
	mov	x,#00H	; 0 					;[INF] 2, 4
	add	a,[hl+22]	; asc 				;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	addc	a,[hl+23]	; asc 				;[INF] 2, 8
	movw	de,ax						;[INF] 1, 4
	mov	a,c						;[INF] 1, 2
	mov	[de],a						;[INF] 1, 4
??eb03_Bcd2Asc:
; line   207
$DGL	0,30
	mov	a,[hl+12]	; j 				;[INF] 2, 8
	inc	a						;[INF] 1, 2
	mov	[hl+12],a	; j 				;[INF] 2, 8
	br	$?L0106						;[INF] 2, 6
?L0107:
; line   208
$DGL	0,31
	mov	a,[hl+14]	; n 				;[INF] 2, 8
	add	a,a						;[INF] 2, 4
	sub	a,[hl+13]	; i 				;[INF] 2, 8
	mov	x,#00H	; 0 					;[INF] 2, 4
	add	a,[hl+22]	; asc 				;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	addc	a,[hl+23]	; asc 				;[INF] 2, 8
	movw	de,ax						;[INF] 1, 4
	mov	a,#00H	; 0 					;[INF] 2, 4
	mov	[de],a						;[INF] 1, 4
; line   210
$DGL	0,33
	mov	a,[hl+14]	; n 				;[INF] 2, 8
	add	a,a						;[INF] 2, 4
	sub	a,[hl+13]	; i 				;[INF] 2, 8
	mov	b,#00H	; 0 					;[INF] 2, 4
	xch	a,c						;[INF] 1, 2
?L0091:
; line   211
$DGL	0,34
??ef_Bcd2Asc:
	movw	ax,hl						;[INF] 1, 4
	addw	ax,#0EH						;[INF] 3, 6
	movw	sp,ax						;[INF] 2, 8
	pop	ax						;[INF] 1, 4
	pop	hl						;[INF] 1, 4
	ret							;[INF] 1, 6
??ee_Bcd2Asc:
; line   220
_Power:
$DGL	1,192
	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_Power:
; line   224
$DGL	0,5
	movw	ax,#01H	; 1 					;[INF] 3, 6
	mov	[hl+2],a	; digit 			;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	mov	[hl+1],a	; digit 			;[INF] 2, 8
	mov	a,#00H	; 0 					;[INF] 2, 4
	mov	[hl+4],a	; digit 			;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	mov	[hl+3],a	; digit 			;[INF] 2, 8
; line   225
$DGL	0,6
	mov	[hl+5],a	; i 				;[INF] 2, 8
?L0111:
	mov	a,[hl+5]	; i 				;[INF] 2, 8
	cmp	a,[hl+12]	; index 			;[INF] 2, 8
	bnc	$?L0112						;[INF] 2, 6
; line   226
$DGL	0,7
??bb00_Power:
; line   227
$DGL	0,8
	mov	a,[hl+6]	; base 				;[INF] 2, 8
	mov	_@RTARG4,a					;[INF] 2, 4
	mov	_@RTARG5,#00H	; 0 				;[INF] 3, 6
	movw	_@RTARG6,#00H	; 0 				;[INF] 4, 8
	mov	a,[hl+1]	; digit 			;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	mov	a,[hl+2]	; digit 			;[INF] 2, 8
	movw	_@RTARG0,ax					;[INF] 2, 6
	mov	a,[hl+3]	; digit 			;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	mov	a,[hl+4]	; digit 			;[INF] 2, 8
	movw	_@RTARG2,ax					;[INF] 2, 6
	movw	ax,_@RTARG6					;[INF] 2, 6
	call	!@@lumul					;[INF] 3, 7
	movw	ax,_@RTARG2					;[INF] 2, 6
	mov	[hl+4],a	; digit 			;[INF] 2, 8
	xch	a,x						;[INF] 1, 2
	mov	[hl+3],a	; digit 			;[INF] 2, 8