home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l224 / 2.img / TAEXMPL2.ZIP / OTABRSET.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-10-29  |  1.4 KB  |  60 lines
  1.  
  2. ;    FILENAME: OTABRSET.ASM
  3. ;    Copyright (c) 1988, 1989 by Borland International, Inc.
  4. ;
  5. ;    Description: This module implements the routine TabReset. TabReset 
  6. ;    sets tap stops every eight columns. 
  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 otabrset
  13.  
  14. include globals.inc
  15.  
  16. _TEXT   segment
  17.  
  18.     TabReset proc
  19.  
  20.     ;    This procedure sets tab stops every 8 columns.   A tab is
  21.     ;    represented by the number 1 in the tab table.
  22.     ;    Input
  23.     ;        TabTbl - starting location of the tab table
  24.     ;        TabEnd - ending location of the tab table
  25.     ;    Output
  26.     ;        TabTbl - cleared and set to null
  27.     ;    Registers modified
  28.     ;        none
  29.  
  30.     call    TabClear        ;clear all tab stops first
  31.  
  32.     push    cx
  33.     push    di
  34.     sub     cx, cx          ;initial column count
  35.     lea     di, TabTbl      ;table location
  36.  
  37. tabres1:
  38.     cmp     di, TabEnd      ;check if at end
  39.     je      tabres3
  40.     cmp     cx, 8           ;check if at tab stop
  41.     je      tabres2
  42.     inc     cx
  43.     inc     di
  44.     jmp    tabres1
  45.  
  46. tabres2:
  47.     mov     BYTE PTR [di], 1
  48.     sub     cx, cx
  49.     jmp    tabres1
  50.  
  51. tabres3:
  52.     pop     di
  53.     pop     cx
  54.     ret
  55.     TabReset  endp
  56.  
  57. _TEXT    ends
  58.  
  59. end
  60.