home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c005 / 5.ddi / UTMOVE.ASM < prev    next >
Encoding:
Assembly Source File  |  1986-08-05  |  2.0 KB  |  96 lines
  1. ; Name        utmove -- move cnt bytes from the source to destination
  2. ;              location.
  3. ;
  4. ; Synopsis    iret = utmove(src_s,src_o,dst_s,dst_o,cnt);
  5. ;        int     iret;    returned value is always 0.
  6. ;        unsigned src_s; Segment address of source location
  7. ;        unsigned src_o; Offset       "    "     "      "
  8. ;        unsigned dst_s; Segment address of destination
  9. ;        unsigned dst_o; Offset       "    "     "
  10. ;        unsigned cnt;    Number of bytes to move from src to dst.
  11. ;
  12. ; Description    This function moves cnt bytes from src to dst.    The source
  13. ;        and destination buffers should not overlap.
  14. ;
  15. ; Version    3.0  (C)Copyright Blaise Computing Inc.  1983, 1984, 1985
  16.  
  17.     name     move
  18.  
  19.     include   compiler.mac          ; Specifies the C compiler
  20.  
  21.     if LAT200 or LAT210 or LAT300
  22.     include  dos.mac
  23.  
  24.     pseg
  25.     public     utmove
  26.     if     LPROG
  27. utmove    proc     far
  28.     x  equ     6               ; offset of arguments
  29.     else
  30. utmove    proc     near
  31.     x equ     4
  32.     endif
  33.     endif
  34.  
  35.     if MSC300
  36.     include  dos.mac
  37.     LONGPROG = LPROG
  38.     LONGDATA = LDATA
  39.  
  40.     pseg     utmove
  41.     public     _utmove
  42.     if     LPROG
  43. _utmove proc     far
  44.     x   equ  6            ; offset of arguments
  45.     else
  46. _utmove proc     near
  47.     x   equ  4
  48.     endif
  49.     endif
  50.  
  51.     push     bp            ; Save the frame pointer
  52.     mov     bp,sp
  53.     if     MSC300
  54.     push     di            ; Save register variables
  55.     push     si
  56.     endif
  57.     push     ds            ; Save DS and ES registers
  58.     push     es
  59.  
  60.     cld                ; Clear the direction flag
  61.     mov     dx,[bp+x+4]        ; Destination segment address
  62.     mov     es,dx
  63.     mov     di,[bp+x+6]        ; Destination offset address
  64.     mov     cx,[bp+x+8]        ; Number of bytes to move
  65.     mov     si,[bp+x+2]        ; Source offset address
  66.     mov     dx,[bp+x]        ; Source segment address
  67.     mov     ds,dx
  68.     rep     movsb            ; Move the strings
  69.  
  70.     xor     ax,ax            ; Return value 0
  71.  
  72.     pop     es            ; Recover ES and DS
  73.     pop     ds
  74.     if     MSC300
  75.     pop     si            ; Recover register variables
  76.     pop     di
  77.     endif
  78.     pop     bp            ; Recover the frame pointer
  79.     ret
  80.  
  81.     if MSC300
  82. _utmove endp
  83.     else
  84. utmove    endp
  85.     endif
  86.  
  87.     if LAT200 or LAT210 or LAT300
  88.     endps
  89.     endif
  90.  
  91.     if MSC300
  92.     endps     utmove
  93.     endif
  94.  
  95.     end
  96.