home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30B / STR30.ASM < prev    next >
Assembly Source File  |  1994-10-15  |  1KB  |  54 lines
  1.     page    66,132
  2. ;******************************** STR30.ASM  *********************************
  3.  
  4. LIBSEG           segment byte public "LIB"
  5.         assume cs:LIBSEG , ds:nothing
  6.  
  7. ;----------------------------------------------------------------------------
  8. .xlist
  9.     include  mac.inc
  10.     include  common.inc
  11. .list
  12. ;----------------------------------------------------------------------------
  13.     extrn    strlen1:far
  14. comment 
  15. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -( STRING  )
  16. STR_SET - sets all bytes of string to a specified character
  17. ;
  18. ; inputs:    DS:[SI] pointing to a string
  19. ;            AL = character
  20. ;            
  21. ; output:    none
  22. ;* * * * * * * * * * * * * *
  23. 
  24.     PUBLIC    STR_SET
  25. STR_SET    PROC    FAR
  26.     call    strlen1
  27. STR_SET    ENDP
  28.  
  29. comment 
  30. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -( STRING  )
  31. STR_SETC - sets n bytes of string to a specified character
  32. ;
  33. ; inputs:    DS:[SI] points to string
  34. ;            AL = character
  35. ;            CX = number of bytes to set
  36. ;            
  37. ; output:    none
  38. ;* * * * * * * * * * * * * *
  39. 
  40.     PUBLIC    STR_SETC
  41. STR_SETC    PROC    FAR
  42.     CLD
  43.     APUSH   CX,DI,ES
  44.     MOV     DI,DS
  45.     MOV     ES,DI
  46.     MOV     DI,SI
  47.     REPZ    STOSB
  48.     APOP    ES,DI,CX
  49.     RETF
  50. STR_SETC ENDP
  51.  
  52. LIBSEG    ENDS
  53.     end
  54.