home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l224 / 2.img / TAEXMPL2.ZIP / OTABCLR.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-10-29  |  1.1 KB  |  46 lines
  1.  
  2. ;    FILENAME: OTABCLR.ASM
  3. ;    Copyright (c) 1988, 1989 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.