home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / turbo55 / tdinstal / taexmpl2.arc / OTABSET.ASM < prev    next >
Assembly Source File  |  1989-05-02  |  1KB  |  45 lines
  1.  
  2. ;    FILENAME: OTABSET.ASM
  3. ;    Copyright (c) 1988, 1989 by Borland International, Inc.
  4. ;
  5. ;    Description: This module implements the routine TabSet. TabSet 
  6. ;    sets a tap stop at a specified column 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 otabset
  13.  
  14. include globals.inc
  15.  
  16. _TEXT   segment
  17.  
  18.     TabSet   proc
  19.  
  20.     ;    This procedure sets a tab stop. The value passed in bx
  21.     ;    represents the column number in which the tab is to be placed.
  22.     ;    A tab is represented by the number 1 in the tab table.
  23.     ;    Input
  24.     ;        bx - column number
  25.     ;        TabTbl - starting location of the tab table
  26.     ;        TabEnd - ending location of the tab table
  27.     ;    Output
  28.     ;        TabTbl - cleared and set to null
  29.     ;    Registers modified
  30.     ;        none
  31.  
  32.     push    bx
  33.     lea     bx, [TabTbl + bx]       ;get address
  34.     cmp     bx, TabEnd              ;check if past end
  35.     jae     tabset1
  36.     mov     BYTE PTR [bx], 1        ;set to non-zero
  37. tabset1:
  38.     pop     bx
  39.     ret
  40.     TabSet  endp
  41.  
  42. _TEXT    ends
  43.  
  44. end
  45.