diff options
| author | Taru Karttunen <taruti@taruti.net> | 2011-03-30 15:46:40 +0300 |
|---|---|---|
| committer | Taru Karttunen <taruti@taruti.net> | 2011-03-30 15:46:40 +0300 |
| commit | e5888a1ffdae813d7575f5fb02275c6bb07e5199 (patch) | |
| tree | d8d51eac403f07814b9e936eed0c9a79195e2450 /sys/src/libc/68000/memset.s | |
Import sources from 2011-03-30 iso image
Diffstat (limited to 'sys/src/libc/68000/memset.s')
| -rwxr-xr-x | sys/src/libc/68000/memset.s | 57 |
1 files changed, 57 insertions, 0 deletions
diff --git a/sys/src/libc/68000/memset.s b/sys/src/libc/68000/memset.s new file mode 100755 index 000000000..318f61a7c --- /dev/null +++ b/sys/src/libc/68000/memset.s @@ -0,0 +1,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 |