home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / tasm / otabclr.asm < prev    next >
Assembly Source File  |  1988-08-28  |  1KB  |  46 lines
  1.  
  2. ;    FILENAME: OTABCLR.ASM
  3. ;    Copyright (c) 1988 by Borland International, Inc.
  4. ;
  5. ;    Description: This module implements the routine TabClear. TabClear 
  6. ;    clears all tab stops. 
  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 otabclr
  13.  
  14. include globals.inc
  15.  
  16. _TEXT   segment
  17.  
  18.     TabClear proc
  19.  
  20.     ;    This procedure clears all tab stops contained in the input file.
  21.     ;
  22.     ;    Input
  23.     ;        TabTbl - starting location of the TAB table
  24.     ;        MAXLIN - maximum line length
  25.     ;    Output
  26.     ;        TabTbl - cleared and set to null
  27.     ;    Registers modified
  28.     ;        none
  29.  
  30.     push      ax
  31.     push      cx
  32.     push      di
  33.     sub       al, al          ;zero
  34.                               ;number of entries
  35.     mov       cx, MAXLIN      
  36.     lea       di, TabTbl      ;table location
  37.     rep       stosb           ;fill table
  38.     pop       di
  39.     pop       cx
  40.     pop       ax
  41.     ret
  42.     TabClear  endp
  43. _TEXT    ends
  44.  
  45. end
  46.