Return to quickmov.s CVS log

Up to [Atari MiNT] / MiNT / src / gas

Annotation of MiNT/src/gas/quickmov.s, revision 1.1

1.1     ! root        1: |
        !             2: 
        !             3: | quickmove(char *dst, char *src, long nbytes):
        !             4: 
        !             5: | quickly copy "nbytes" bytes from src to dst. Assumes that both
        !             6: 
        !             7: | src and dst are word aligned.
        !             8: 
        !             9: |
        !            10: 
        !            11:        .text
        !            12: 
        !            13:        .globl  _quickmove
        !            14: 
        !            15: _quickmove:
        !            16: 
        !            17:        movel   sp@(4), a0              | get dst
        !            18: 
        !            19:        movel   sp@(8), a1              | get src
        !            20: 
        !            21:        movel   sp@(12), d0             | get nbytes
        !            22: 
        !            23:        lsrl    #8, d0                  | 
        !            24: 
        !            25:        lsrl    #1, d0                  | d0 = nbytes / 512
        !            26: 
        !            27:        subql   #1, d0                  | prepare for dbra loop
        !            28: 
        !            29:        bmi     Leftover                | if < 0, skip
        !            30: 
        !            31:        moveml  d1-d7/a2-a6, sp@-       | save regs
        !            32: 
        !            33: L1:
        !            34: 
        !            35:        moveml  a1@+, d1-d7/a2-a6       | read 12*4 = 48 bytes
        !            36: 
        !            37:        moveml  d1-d7/a2-a6, a0@        |
        !            38: 
        !            39:        moveml  a1@+, d1-d7/a2-a6       | 2nd read
        !            40: 
        !            41:        moveml  d1-d7/a2-a6, a0@(48)    |
        !            42: 
        !            43:        moveml  a1@+, d1-d7/a2-a6       | 3rd read
        !            44: 
        !            45:        moveml  d1-d7/a2-a6, a0@(96)    |
        !            46: 
        !            47:        moveml  a1@+, d1-d7/a2-a6       | 4th read
        !            48: 
        !            49:        moveml  d1-d7/a2-a6, a0@(144)   |
        !            50: 
        !            51:        moveml  a1@+, d1-d7/a2-a6       | 5th
        !            52: 
        !            53:        moveml  d1-d7/a2-a6, a0@(192)   |
        !            54: 
        !            55:        moveml  a1@+, d1-d7/a2-a6       | 6th
        !            56: 
        !            57:        moveml  d1-d7/a2-a6, a0@(240)   |
        !            58: 
        !            59:        moveml  a1@+, d1-d7/a2-a6       | 7th
        !            60: 
        !            61:        moveml  d1-d7/a2-a6, a0@(288)   |
        !            62: 
        !            63:        moveml  a1@+, d1-d7/a2-a6       | 8th
        !            64: 
        !            65:        moveml  d1-d7/a2-a6, a0@(336)   |
        !            66: 
        !            67:        moveml  a1@+, d1-d7/a2-a6       | 9th
        !            68: 
        !            69:        moveml  d1-d7/a2-a6, a0@(384)   |
        !            70: 
        !            71:        moveml  a1@+, d1-d7/a2-a6       | 10th
        !            72: 
        !            73:        moveml  d1-d7/a2-a6, a0@(432)   | At this point, 480 bytes done
        !            74: 
        !            75:        moveml  a1@+, d1-d7/a2          | Only do 32 more bytes
        !            76: 
        !            77:        moveml  d1-d7/a2, a0@(480)      | for a total of 512
        !            78: 
        !            79: 
        !            80: 
        !            81:        lea     a0@(512), a0
        !            82: 
        !            83:        subql   #1, d0
        !            84: 
        !            85:        bge     L1
        !            86: 
        !            87: 
        !            88: 
        !            89:        moveml  sp@+, d1-d7/a2-a6       | pop registers
        !            90: 
        !            91: 
        !            92: 
        !            93: Leftover:                              | do the remaining bytes
        !            94: 
        !            95:        movel   sp@(12), d1
        !            96: 
        !            97:        andl    #0x01ff, d1             | d1 = nbytes % 512
        !            98: 
        !            99:        subql   #1, d1                  | prepare for dbra loop
        !           100: 
        !           101:        bmi     Ldone
        !           102: 
        !           103: L2:
        !           104: 
        !           105:        moveb   a1@+, a0@+
        !           106: 
        !           107:        dbra    d1, L2
        !           108: 
        !           109: Ldone:
        !           110: 
        !           111:        rts                             | return
        !           112: 

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