home *** CD-ROM | disk | FTP | other *** search
/ Mega CD-ROM 1 / megacd_rom_1.zip / megacd_rom_1 / MAGAZINE / MSJOURNA / MSJV5_3.ZIP / VLB.ZIP / LMEMSET.ASM < prev    next >
Assembly Source File  |  1990-05-01  |  2KB  |  56 lines
  1. ;
  2. ;  lmemset      far version of memset
  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          lmemset
  14.  
  15. lmemset         PROC    FAR
  16.  
  17. Destination     EQU     DWORD   PTR [bp] + 10
  18. FillChar        EQU     BYTE    PTR [bp] + 8
  19. Count           EQU     WORD    PTR [bp] + 6
  20.  
  21.                 ENTRY   0
  22.  
  23.  
  24.                 les     di, Destination ; ES:DI = Destination
  25.                 mov     bx, di          ; save a copy of DST
  26.  
  27.                 mov     cx, Count
  28.                 jcxz    toend           ; if no work to do
  29.  
  30.                 mov     al, FillChar    ; the byte FillChar to store
  31.                 mov     ah, al          ; store it as a word
  32.  
  33.                 test    di, 1           ; is Destination address odd?
  34.                 jz      dowords         ;   yes: proceed
  35.  
  36.                 stosb                   ; store byte for word align
  37.                 dec     cx
  38. dowords:
  39.                 shr     cx, 1
  40.                 rep     stosw           ; store word at a time
  41.                 adc     cx, cx
  42.                 rep     stosb           ; store final ("odd") byte
  43. toend:
  44.                 mov     di, dx          ; Restore DI
  45.  
  46.                 xchg    ax, bx          ; AX = Destination
  47.                 mov     dx, es          ; segment part of addr
  48.  
  49.                 EXIT    8
  50.  
  51. lmemset         ENDP
  52.  
  53. CLIB            ENDS
  54.  
  55.                 END
  56.