home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / turbo55 / tp55 / tasm / ospaces.asm < prev    next >
Assembly Source File  |  1989-05-01  |  1KB  |  46 lines
  1.  
  2. ;    FILENAME: OSPACES.ASM
  3. ;    Copyright (c) 1988, 1989 by Borland International, Inc.
  4. ;
  5. ;    Description: This module implements the routine Spaces.  Spaces 
  6. ;    stores a specified number of spaces at particular location. 
  7. ;    This module uses MASM mode syntax and standard segment directives. 
  8. ; 
  9. ;    ASSEMBLY INSTRUCTIONS: To assemble this module use the following 
  10. ;    TASM command line. 
  11. ;
  12. ;        TASM ospaces
  13.  
  14. include globals.inc
  15.  
  16. _TEXT   segment
  17.  
  18.     Spaces proc
  19.  
  20.     ;    This function inserts the number of spaces (20h) specified in the
  21.     ;    dx register at the value of the location in di and returns the 
  22.     ;    padded result in di.
  23.     ;
  24.     ;    Input
  25.     ;        dx - number of spaces to insert
  26.     ;        di - memory location to insert spaces
  27.     ;    Output
  28.     ;        di - memory location padded with the specified number of
  29.     ;             spaces
  30.     ;    Registers modified
  31.     ;        dx, di
  32.  
  33.     push    ax
  34.     push    cx
  35.     mov     cx, dx          ;load count
  36.     mov     al, ' '         ;space
  37.     rep
  38.     stosb                   ;store bytes
  39.     pop     cx
  40.     pop     ax
  41.     ret
  42.     Spaces  endp
  43. _TEXT    ends
  44.  
  45. end
  46.