Return to bcopy.s CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / sys / tahoe

Annotation of cci/sys/tahoe/bcopy.s, revision 1.1

1.1     ! root        1: /* @(#)bcopy.s 4.4 3/23/84 */
        !             2: /* bcopy(from, to, size) */
        !             3: 
        !             4:        .globl  _bcopy
        !             5: _bcopy:
        !             6:        .word   0x001c
        !             7:        movl    4(fp),r0
        !             8:        movl    8(fp),r1
        !             9:        movl    12(fp),r2
        !            10:        cmpl    r0,r1
        !            11:        bgtru   1f              # normal forward case
        !            12:        beql    2f              # equal, nothing to do
        !            13:        addl2   r2,r0           # may be overlapping
        !            14:        cmpl    r0,r1
        !            15:        bgtru   3f
        !            16:        subl2   r2,r0           # normal forward case
        !            17: 1:
        !            18:        movblk
        !            19: 2:
        !            20:        ret
        !            21: 3:
        !            22:        addl2   r2,r1           # overlapping, must do backwards
        !            23:        subl3   r0,r1,r3
        !            24:        movl    r2,r4
        !            25:        jbr     5f
        !            26: 4:
        !            27:        subl2   r3,r0
        !            28:        subl2   r3,r1
        !            29:        movl    r3,r2
        !            30:        movblk
        !            31:        subl2   r3,r0
        !            32:        subl2   r3,r1
        !            33:        subl2   r3,r4
        !            34: 5:
        !            35:        cmpl    r4,r3
        !            36:        jgtr    4b
        !            37:        movl    r4,r2
        !            38:        subl2   r2,r0
        !            39:        subl2   r2,r1
        !            40:        movblk
        !            41:        ret

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.