Return to quickzer.s CVS log

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

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

1.1     ! root        1: |
        !             2: 
        !             3: | quickzero(char *place, long size): zero an area of memory. "size" is
        !             4: 
        !             5: | the number of 256 byte blocks in the area, and must be > 0.
        !             6: 
        !             7: | registers changed: d0 and a0
        !             8: 
        !             9: |
        !            10: 
        !            11:        .globl  _quickzero
        !            12: 
        !            13: _quickzero:
        !            14: 
        !            15:        movel   sp@(4), a0      | place to zero at
        !            16: 
        !            17:        movel   sp@(8), d0      | number of blocks
        !            18: 
        !            19:        moveml  d1-d7/a1, sp@-  | save registers
        !            20: 
        !            21:        clrl    d1              | zero them out
        !            22: 
        !            23:        movel   d1, d2
        !            24: 
        !            25:        movel   d1, d3
        !            26: 
        !            27:        movel   d1, d4
        !            28: 
        !            29:        movel   d1, d5
        !            30: 
        !            31:        movel   d1, d6
        !            32: 
        !            33:        movel   d1, d7
        !            34: 
        !            35:        movel   d1, a1
        !            36: 
        !            37:        subql   #1, d0          | adjust for dbra loop
        !            38: 
        !            39: loop:
        !            40: 
        !            41:        moveml  d1-d7/a1, a0@   | zero the memory, 32 bytes at a time
        !            42: 
        !            43:        moveml  d1-d7/a1, a0@(32)
        !            44: 
        !            45:        moveml  d1-d7/a1, a0@(64)
        !            46: 
        !            47:        moveml  d1-d7/a1, a0@(96)
        !            48: 
        !            49:        moveml  d1-d7/a1, a0@(128)
        !            50: 
        !            51:        moveml  d1-d7/a1, a0@(160)
        !            52: 
        !            53:        moveml  d1-d7/a1, a0@(192)
        !            54: 
        !            55:        moveml  d1-d7/a1, a0@(224)
        !            56: 
        !            57:        lea     a0@(256), a0
        !            58: 
        !            59:        dbra    d0, loop
        !            60: 
        !            61: |
        !            62: 
        !            63:        moveml  sp@+, d1-d7/a1  | restore regs
        !            64: 
        !            65:        rts                     | and leave
        !            66: 

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