|
|
1.1 root 1: # "@(#)s_copy_s.s 5.1 (Berkeley) 11/3/86"
2:
3: .data
4: .text
5: LL0:.align 1
6: .globl _s_copy
7: .set MASK__,0x1004 /* save r2, r12 */
8: .data
9: .text
10: _s_copy:.word MASK__
11: movl 4(fp),r1 /* dest addr */
12: movl 8(fp),r0 /* src addr */
13: movl 12(fp),r12 /* dest length */
14: cmpl r12,16(fp) /* if (ldest <= lsrc) */
15: jgtr L16
16: movl r12, r2 /* copy according to ldest */
17: movs3
18: ret
19: L16: /* else */
20: movl 16(fp),r2 /* copy according to lsrc */
21: movs3
22: addl2 4(fp),r12 /* and pad with spaces */
23: L20:movb $32,(r1)
24: incl r1
25: cmpl r1,r12
26: jlssu L20
27: ret
28:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.