summaryrefslogtreecommitdiff
path: root/strings/strings-x86.s
blob: 5d7cbde1b383df8ed7b8c79e80eefa52306b2d9a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
/* Copyright (C) 2000 MySQL AB & MySQL Finland AB & TCX DataKonsult AB
   
   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2 of the License, or
   (at your option) any later version.
   
   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.
   
   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA */

/* Optimized string functions Intel 80x86  (gcc/gas syntax) */

		.file	"strings.s"
	.version "1.00"

.text

	/*  Move a alligned, not overlapped, by (long) divided memory area */
	/*  Args: to,from,length */

.globl bmove_allign
	.type	 bmove_allign,@function
bmove_allign:	
	movl	%edi,%edx
	movl	%esi,%eax
	movl	4(%esp),%edi		/* to */
	movl	8(%esp),%esi		/* from */
	movl	12(%esp),%ecx		/* length */
	addw	$3,%cx			/* fix if not divisible with long */
	shrw	$2,%cx
	rep
	movsl
	movl	%eax,%esi
	movl	%edx,%edi
	ret
.end:
	.size	 bmove_allign,.end-bmove_allign

	/* Move a string from higher to lower */
	/* Arg from+1,to+1,length */

.globl bmove_upp
	.type bmove_upp,@function
bmove_upp:	
	std				/*  Work downward */
	movl	%edi,%edx
	movl	%esi,%eax
	movl	4(%esp),%edi		/* p1 */
	movl	8(%esp),%esi		/* p2 */
	movl	12(%esp),%ecx		/* length */
	decl	%edi			/*  Don't move last arg */
	decl	%esi
	rep
	movsb				/*  One byte a time because overlap */
	cld				/*  C library wants cld */
	movl	%eax,%esi
	movl	%edx,%edi
	ret
.bmove_upp_end:	
	.size bmove_upp,.bmove_upp_end-bmove_upp

	/* Append fillchars to string */
	/* Args: dest,len,fill */

.globl strappend
	.type strappend,@function
strappend:	
	pushl	%edi
	movl	8(%esp),%edi		/*  Memory pointer */
	movl	12(%esp),%ecx		/*  Length */
	clrl	%eax			/*  Find end of string */
	repne
	scasb
	jnz	sa_99			/*  String to long, shorten it */
	movzb	16(%esp),%eax		/*  Fillchar */
	decl	%edi			/*  Point at end null */
	incl	%ecx			/*  rep made one dec for null-char */

	movb	%al,%ah			/* (2) Set up a 32 bit pattern. */
	movw	%ax,%dx			/* (2) */
	shll	$16,%eax		/* (3) */
	movw	%dx,%ax			/* (2) %eax has the 32 bit pattern. */

	movl	%ecx,%edx		/* (2) Save the count of bytes. */
	shrl	$2,%ecx			/* (2) Number of dwords. */
	rep
	stosl				/* (5 + 5n) */
	movb	$3,%cl			/* (2) */
	and	%edx,%ecx		/* (2) Fill in the odd bytes*/
	rep
	stosb				/*  Move last bytes if any */

sa_99:	movb	$0,(%edi)		/*  End of string */
	popl	%edi
	ret
.strappend_end:	
	.size strappend,.strappend_end-strappend

	/* Find if string contains any char in another string */
	/* Arg: str,set */
	/* Ret: Pointer to first found char in str */

.globl strcont
	.type strcont,@function
strcont:	
	movl	%edi,%edx
	pushl	%esi
	movl	8(%esp),%esi		/*  str */
	movl	12(%esp),%ecx		/*  set */
	clrb	%ah			/*  For endtest */
	jmp	sc_60

sc_10:	scasb
	jz	sc_fo			/*  Found char */
sc_20:	cmp	(%edi),%ah		/*  Test if null */
	jnz	sc_10			/*  Not end of set yet */
	incl	%esi			/*  Next char in str */
sc_60:	movl	%ecx,%edi		/*  %edi = Set */
	movb	(%esi),%al		/*  Test if this char exist */
	andb	%al,%al
	jnz	sc_20			/*  Not end of string */
	clrl	%esi			/*  Return Null */
sc_fo:	movl	%esi,%eax		/*  Char found here */
	movl	%edx,%edi		/*  Restore */
	popl	%esi
	ret
.strcont_end:	
	.size strcont,.strcont_end-strcont

	/* Find end of string */
	/* Arg: str */
	/* ret: Pointer to end null */

.globl strend
	.type strend,@function
strend:	
	movl	%edi,%edx		/*  Save */
	movl	4(%esp),%edi		/*  str */
	clrl	%eax			/*  Find end of string */
	movl	%eax,%ecx
	decl	%ecx			/*  ECX = -1 */
	repne
	scasb
	movl	%edi,%eax
	decl	%eax			/*  End of string */
	movl	%edx,%edi		/*  Restore */
	ret
.strend_end:	
	.size strend,.strend_end-strend

	/* Make a string with len fill-chars and endnull */
	/* Args: dest,len,fill */
	/* Ret:  dest+len */

.globl strfill
	.type strfill,@function
strfill:
	pushl	%edi
	movl	8(%esp),%edi		/*  Memory pointer */
	movl	12(%esp),%ecx		/*  Length */
	movzb	16(%esp),%eax		/*  Fill */

	movb	%al,%ah			/* (2) Set up a 32 bit pattern */
	movw	%ax,%dx			/* (2) */
	shll	$16,%eax		/* (3) */
	movw	%dx,%ax			/* (2) %eax has the 32 bit pattern. */

	movl	%ecx,%edx		/* (2) Save the count of bytes. */
	shrl	$2,%ecx			/* (2) Number of dwords. */
	rep
	stosl				/* (5 + 5n) */
	movb	$3,%cl			/* (2) */
	and	%edx,%ecx		/* (2) Fill in the odd bytes */
	rep
	stosb				/*  Move last bytes if any */

	movb	%cl,(%edi)		/*  End NULL */
	movl	%edi,%eax		/*  End i %eax */
	popl	%edi
	ret
.strfill_end:	
	.size strfill,.strfill_end-strfill


	/* Find a char in or end of a string */
	/* Arg: str,char */
	/* Ret: pointer to found char or NullS */

.globl strcend
	.type strcend,@function
strcend:
	movl	%edi,%edx
	movl	4(%esp),%edi		/* str */
	movb	8(%esp),%ah		/* search */
	clrb	%al			/* for scasb to find end */

se_10:	cmpb	(%edi),%ah
	jz	se_20			/* Found char */
	scasb
	jnz	se_10			/* Not end */
	dec 	%edi			/* Not found, point at end of string */
se_20:	movl	%edi,%eax
	movl	%edx,%edi		/* Restore */
	ret
.strcend_end:	
	.size strcend,.strcend_end-strcend

	/* Test if string has a given suffix */

.globl is_prefix
	.type is_prefix,@function
is_prefix:	
	movl	%edi,%edx		/* Save %edi */
	pushl	%esi			/* and %esi */
	movl	12(%esp),%esi		/* get suffix */
	movl	8(%esp),%edi		/* s1 */
	movl	$1,%eax			/* Ok and zero-test */
ip_10:	cmpb	(%esi),%ah
	jz	suf_ok			/* End of string/ found suffix */
	cmpsb				/* Compare strings */
	jz	ip_10			/* Same, possible prefix */
	xor	%eax,%eax		/* Not suffix */
suf_ok:	popl	%esi
	movl	%edx,%edi
	ret
.is_prefix_end:	
	.size is_prefix,.is_prefix_end-is_prefix

	/* Find a substring in string */
	/* Arg: str,search */

.globl strstr
	.type strstr,@function

strstr:	
	pushl	%edi
	pushl	%esi
	movl	12(%esp),%esi		/*  str */
	movl	16(%esp),%edi		/*  search */
	movl	%edi,%ecx
	incl	%ecx			/*  %ecx = search+1 */
	movb	(%edi),%ah		/*  %ah = First char in search */
	jmp	sf_10

sf_00:	movl	%edx,%esi		/*  si = Current str-pos */
sf_10:	movb	(%esi),%al		/*  Test if this char exist */
	andb	%al,%al
	jz	sf_90			/*  End of string, didn't find search */
	incl	%esi
	cmpb	%al,%ah
	jnz	sf_10			/*  Didn't find first char, continue */
	movl	%esi,%edx		/*  Save str-pos in %edx */
	movl	%ecx,%edi
sf_20:	cmpb	$0,(%edi)
	jz	sf_fo			/*  Found substring */
	cmpsb
	jz	sf_20			/*  Char ok */
	jmp	sf_00			/*  Next str-pos */

sf_90:	movl	$1,%edx			/*  Return Null */
sf_fo:	movl	%edx,%eax		/*  Char found here */
	decl	%eax			/*  Pointed one after */
	popl	%esi
	popl	%edi
	ret
.strstr_end:	
	.size strstr,.strstr_end-strstr


	/* Find a substring in string, return index */
	/* Arg: str,search */

.globl strinstr
	.type strinstr,@function

strinstr:
	pushl	%ebp
	movl	%esp,%ebp
	pushl	12(%ebp)		/*  search */
	pushl	8(%ebp)			/*  str */
	call	strstr
	add	$8,%esp
	or	%eax,%eax
	jz	si_99			/*  Not found, return NULL */
	sub	8(%ebp),%eax		/*  Pos from start */
	inc	%eax			/*  And first pos = 1 */
si_99:	popl	%ebp
	ret
.strinstr_end:	
	.size strinstr,.strinstr_end-strinstr

	/* Make a string of len length from another string */
	/* Arg: dst,src,length */
	/* ret: end of dst */

.globl strmake
	.type strmake,@function

strmake:	
	pushl	%edi
	pushl	%esi
	movl	12(%esp),%edi		/*  dst */
	movl	16(%esp),%esi		/*  src */
	movl	20(%esp),%ecx		/*  Length of memory-area */
	clrb	%al			/*  For test of end-null */
	jecxz	sm_90			/*  Nothing to move, put zero at end. */

sm_10:	cmpb	(%esi),%al		/*  Next char to move */
	movsb				/*  move arg */
	jz	sm_99			/*  last char, we are ready */
	loop	sm_10			/*  Continue moving */
sm_90:	movb	%al,(%edi)		/*  Set end pos */
	incl	%edi			/*  Fix that di points at end null */
sm_99:	decl	%edi			/*  di points now at end null */
	movl	%edi,%eax		/*  Ret value.p $ */
	popl	%esi
	popl	%edi
	ret
.strmake_end:	
	.size strmake,.strmake_end-strmake

	/* Move a string with max len chars */
	/* arg: dst,src,len */
	/* ret: pos to first null or dst+len */

.globl strnmov
	.type strnmov,@function
strnmov:	
	pushl	%edi
	pushl	%esi
	movl	12(%esp),%edi		/*  dst */
	movl	16(%esp),%esi		/*  src */
	movl	20(%esp),%ecx		/*  Length of memory-area */
	jecxz	snm_99			/*  Nothing to do */
	clrb	%al			/*  For test of end-null */

snm_10:	cmpb	(%esi),%al		/*  Next char to move */
	movsb				/*  move arg */
	jz	snm_20			/*  last char, fill with null */
	loop	snm_10			/*  Continue moving */
	incl	%edi			/*  Point two after last */
snm_20:	decl	%edi			/*  Point at first null (or last+1) */
snm_99:	movl	%edi,%eax		/*  Pointer at last char */
	popl	%esi
	popl	%edi
	ret
.strnmov_end:	
	.size strnmov,.strnmov_end-strnmov

	
.globl strmov
	.type strmov,@function
strmov:	
	movl	%esi,%ecx		/*  Save old %esi and %edi */
	movl	%edi,%edx
	movl	8(%esp),%esi		/*  get source pointer (s2) */
	movl	4(%esp),%edi		/*  %edi -> s1 */
smo_10:	movb	(%esi),%al
	movsb				/*  move arg */
	andb	%al,%al
	jnz	smo_10			/*  Not last */
	movl	%edi,%eax
	dec	%eax
	movl	%ecx,%esi		/*  Restore */
	movl	%edx,%edi
	ret
.strmov_end:	
	.size strmov,.strmov_end-strmov

.globl strxmov
	.type	 strxmov,@function
strxmov:
	movl	%ebx,%edx		/*  Save %ebx, %esi and %edi */
	mov	%esi,%ecx
	push	%edi
	leal	8(%esp),%ebx		/*  Get destination */
	movl	(%ebx),%edi
	xorb	%al,%al
	jmp	next_str		/*  Handle source ebx+4 */

start_str:
	movsb
	cmpb	-1(%edi),%al
	jne	start_str
	decl	%edi			/*  Don't copy last null */

next_str:
	addl	$4,%ebx
	movl	(%ebx),%esi
	orl	%esi,%esi
	jne	start_str
	movb	%al,0(%edi)		/*  Force last to ASCII 0 */

	movl	%edi,%eax		/*  Return ptr to ASCII 0 */
	pop	%edi			/*  Restore registers */
	movl	%ecx,%esi
	movl	%edx,%ebx
	ret
.strxmov_end:
	.size	 strxmov,strxmov_end-strxmov