home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l040 / 13.ddi / RTLSYS.ZIP / MEMH.ASM < prev    next >
Encoding:
Assembly Source File  |  1992-10-28  |  841 b   |  60 lines
  1.  
  2. ; *******************************************************
  3. ; *                            *
  4. ; *     Turbo Pascal Run-time Library                   *
  5. ; *    Block Move and Fill Routines            *
  6. ; *                            *
  7. ; *     Copyright (c) 1988,92 Borland International     *
  8. ; *                            *
  9. ; *******************************************************
  10.  
  11.     TITLE    MEMH
  12.  
  13.     INCLUDE    SE.ASM
  14.  
  15. CODE    SEGMENT    BYTE PUBLIC
  16.  
  17.     ASSUME    CS:CODE
  18.  
  19. ; Publics
  20.  
  21.     PUBLIC    MoveMem,FillMem
  22.  
  23. ; Move standard procedure
  24.  
  25. MoveMem:
  26.  
  27.     MOV    BX,SP
  28.     MOV    DX,DS
  29.     LDS    SI,SS:[BX+10]
  30.     LES    DI,SS:[BX+6]
  31.     MOV    CX,SS:[BX+4]
  32.     CLD
  33.     CMP    SI,DI
  34.     JAE    @@1
  35.     ADD    SI,CX
  36.     ADD    DI,CX
  37.     DEC    SI
  38.     DEC    DI
  39.     STD
  40. @@1:    REP    MOVSB
  41.     CLD
  42.     MOV    DS,DX
  43.     RETF    10
  44.  
  45. ; Fill standard procedure
  46.  
  47. FillMem:
  48.  
  49.     MOV    BX,SP
  50.     LES    DI,SS:[BX+8]
  51.     MOV    CX,SS:[BX+6]
  52.     MOV    AL,SS:[BX+4]
  53.     CLD
  54.     REP    STOSB
  55.     RETF    8
  56.  
  57. CODE    ENDS
  58.  
  59.     END
  60.