|
|
1.1 root 1: /* @(#)bcmp.s 4.2 1/14/83 */
2: /* bcmp(s1, s2, n) */
3: /* compare exactly 'n' */
4:
5: .globl _bcmp
6: .align 2
7: _bcmp:
8: .word 0x4
9: movl 4(fp),r0
10: movl 8(fp),r1
11: mnegl 12(fp),r2
12: jeql 3f
13: 1:
14: cmpb (r0),(r1)
15: jneq 2f
16: incl r0
17: incl r1
18: aoblss $0,r2,1b
19: 3:
20: clrl r0
21: ret
22: 2:
23: movl $1,r0
24: ret
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.