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
|
/* strcasecmp -- strcasecmp(3) -- compare two strings caseindependently
Copyright (C) 2002 Thomas M. Ogrisegg
Created: 09/22/02
Last updated: 09/23/02
Remarks:
none
*/
.LEVEL 1.1
.text
.globl strcasecmp
strcasecmp:
.PROC
.CALLINFO
.ENTRY
ldi 0x7a, %r23
ldi 0x41, %r22
ldi 0x20, %r21
.Lstrcasecmp:
ldb,ma 1(%r26), %r19
ldb,ma 1(%r25), %r20
cmpb,>,n %r22, %r20, .Lno_or
cmpb,<,n %r23, %r20, .Lno_or
or %r21, %r19, %r19
or %r21, %r20, %r20
.Lno_or:
comclr,= %r0, %r19, %r0
cmpb,=,n %r19, %r20, .Lstrcasecmp
nop
.Lret:
bv %r0(%rp)
sub %r19, %r20, %r28
.EXIT
.PROCEND
.EXPORT strcasecmp
|
