home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / MSJV5-3.ZIP / VLB.ZIP / VLB.COM / LMEMMOVE.ASM < prev    next >
Assembly Source File  |  1990-04-20  |  3KB  |  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.