home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / MSJV5-3.ZIP / VLB.ZIP / LMEMMOVE.ASM < prev    next >
Assembly Source File  |  1990-05-01  |  4KB  |  106 lines
  1. ; 
  2. ;  lmemmove.asm           far version of memmove
  3. ; 
  4.  
  5. INCLUDE         SETUP.H
  6.  
  7. CLIB            SEGMENT  WORD PUBLIC 'CODE'
  8. CLIB            ENDS
  9.  
  10. CLIB            SEGMENT
  11. ASSUME          CS: CLIB
  12.  
  13. PUBLIC          lmemmove
  14.  
  15. lmemmove        PROC    FAR
  16.  
  17. Destination     EQU     DWORD   PTR [bp] + 12
  18. Source          EQU     DWORD   PTR [bp] + 8
  19. Count           EQU     WORD    PTR [bp] + 6
  20.  
  21.                 ENTRY   0
  22.  
  23.                 lds     si, Source      ; DS:SI = Source
  24.                 les     di, Destination ; ES:DI = Destination
  25.                 mov     ax, di          ; Dest. in AX for return 
  26.                 mov     cx, Count       ; cx = number bytes to move
  27.                 jcxz    done            ; if cx = 0,  nothing to copy
  28.  
  29. ;
  30. ; Check for overlapping buffers:
  31. ;        If segments are different, assume no overlap
  32. ;                Do normal (Upwards) Copy
  33. ;        Else If (Dest. <= Source) Or (Dest.>= Source + Count) Then
  34. ;                Do normal (Upwards) Copy
  35. ;        Else
  36. ;                Do Downwards Copy to avoid propogation
  37. ;
  38.                 mov     ax, es          ; compare the segments
  39.                 cmp     ax, WORD PTR (Source+2)
  40.                 jne     CopyUp
  41.                 cmp     di, si          ; Source <= Destination ?
  42.                 jbe     CopyUp
  43.  
  44.                 mov     ax, si
  45.                 add     ax, cx
  46.                 cmp     di, ax          ; Dest. >= (Source + Count) ?
  47.                 jae     CopyUp
  48. ;
  49. ; Copy Down to avoid propogation in overlapping buffers
  50. ;
  51.                 mov     ax, di          ; AX = return value (offset)
  52.                 
  53.                 add     si, cx
  54.                 add     di, cx
  55.                 dec     si              ; DS:SI = Source + Count - 1
  56.                 dec     di              ; ES:DI = Dest. + Count - 1
  57.                 std                     ; Set Direction Flag = Down
  58.                 rep     movsb
  59.                 cld                     ; Set Direction Flag = Up
  60.                 jmp     short done
  61.  
  62. CopyUp:
  63.                 mov     ax, di          ; AX = return value (offset)
  64. ;
  65. ; There are 4 types of word alignment of "Source" and "Destination":
  66. ;        1. Source and Destination are both even        (best case)
  67. ;        2. Source is even and Destination is odd
  68. ;        3. Source is odd and Destination is even
  69. ;        4. Source and Destination are both odd        (worst case)
  70. ;
  71. ; Case #4 is much faster if a single byte is copied before the
  72. ; REP MOVSW instruction.  Cases #2 and #3 are effectively unaffected
  73. ; by such an operation.  To maximum the speed of this operation,
  74. ; only DST is checked for alignment.  For cases #2 and #4, the first
  75. ; byte will be copied before the REP MOVSW.
  76. ;
  77.                 test    al, 1      ; fast check for Dest. odd address
  78.                 jz      move
  79.  
  80.                 movsb              ; move a byte to improve alignment
  81.                 dec     cx
  82. ;
  83. ; Now the bulk of the copy is done using REP MOVSW.  This is much
  84. ; faster than a REP MOVSB if the Source and Dest. addresses are both
  85. ; word aligned and the processor has a 16-bit bus.  Depending on
  86. ; the initial alignment and the size of the region moved, there
  87. ; may be an extra byte left over to be moved.  This is handled
  88. ; by the REP MOVSB, which moves either 0 or 1 bytes.
  89. ;
  90. move:
  91.                 shr     cx, 1           ; Shift CX for Count of words
  92.                 rep     movsw           ; CF set if 1 byte left over
  93.                 adc     cx, cx          ; CX = 1 or 0, - Carry Flag
  94.                 rep     movsb           ; possible final byte
  95. ;
  96. ; Return the "Destination" address in AX/DX:AX
  97. ;
  98. done:
  99.                 EXIT    10
  100.  
  101. lmemmove        ENDP
  102.  
  103. CLIB            ENDS
  104.  
  105.                 END
  106.