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
|
TEXT memset(SB), $0
MOVL n+8(FP), R0
BLE return
MOVL s1+0(FP), A1
CLRL R1
MOVB c+7(FP), R1
BEQ l1
/*
* create 4 replicated copies
* of the byte in R1
*/
MOVL R1, R2
ASLL $8, R2
ORL R2, R1
MOVL R1, R2
SWAP R2
ORL R2, R1
/*
* byte-at-a-time until alligned
*/
l1:
MOVL A1, R1
ANDL $3, R1
BEQ l2
SUBL $1, R0
BLT return
MOVB R1, (A1)+
BRA l1
/*
* quad-long-at-a-time set
*/
l2:
SUBL $16, R0
BLT l3
MOVL R1, (A1)+
MOVL R1, (A1)+
MOVL R1, (A1)+
MOVL R1, (A1)+
BRA l2
/*
* cleanup byte-at-a-time
*/
l3:
ADDL $15, R0
BLT return
l4:
MOVB R1, (A1)+
SUBL $1, R0
BGE l4
return:
MOVL s1+0(FP),R0
RTS
|
