Return to quickmov.spp CVS log

Up to [Atari MiNT] / MiNT / src

Annotation of MiNT/src/quickmov.spp, revision 1.1.1.2

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

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