home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 181.img / TASM-101.ZIP / OTABNEXT.ASM < prev    next >
Assembly Source File  |  1989-05-02  |  2KB  |  80 lines
  1.  
  2. ;    FILENAME: OTABNEXT.ASM
  3. ;    Copyright (c) 1988, 1989 by Borland International, Inc.
  4. ;
  5. ;    Description: This module implements the routine TabNext. TabNext 
  6. ;    returns the number of spaces to the next tab stop. 
  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 otabnext
  13.  
  14. include globals.inc
  15.  
  16. _TEXT   segment
  17.  
  18.     TabNext  proc
  19.  
  20.     ;    This function returns the number of spaces to the next tab stop.
  21.     ;    The value passed in cx represents the present column number.
  22.     ;    A tab is represented by the number 1 in the tab table.
  23.     ;    Input
  24.     ;        cx - the present column number
  25.     ;        TabTbl - starting location of the tab table
  26.     ;        TabEnd - ending location of the tab table
  27.     ;    Output
  28.     ;        dx - number of spaces to the next tab stop
  29.     ;        cf - set if initially started at a tab stop
  30.     ;    Registers modified
  31.     ;        dx
  32.  
  33.     push    bx
  34.     push    si
  35.     mov     bx, cx                  ;tab column
  36.     add     bx, TabOff              ;add special offset
  37.     lea     bx, [TabTbl + bx]       ;get starting address
  38.     sub     dx, dx
  39.     cmp     bx, TabEnd              ;check if at or past end
  40.     jae     tabnex4                 ;jump if so
  41.  
  42.     mov     si, bx                  ;save starting location
  43.     inc     bx                      ;start at next column
  44.     inc     dx                      ;set count
  45.  
  46. ;--- loop until tab stop is found or end of table
  47.  
  48. tabnex1: 
  49.     cmp     bx, TabEnd              ;check if end
  50.     jae     tabnex2
  51.     cmp     BYTE PTR [bx], 0        ;check if tab
  52.     jne     tabnex2
  53.     inc     bx                      ;next column
  54.     inc     dx                      ;increment count
  55.     jmp     tabnex1                 ;loop back
  56.  
  57. ;--- found tab stop
  58.  
  59. tabnex2:
  60.     cmp     BYTE PTR [si], 0        ;check if started at tab stop
  61.     jne     tabnex3
  62.     pop     si
  63.     pop     bx
  64.     clc
  65.     ret
  66.  
  67. ;--- initial tab stop
  68.  
  69. tabnex3:
  70.     stc
  71. tabnex4:
  72.     pop     si
  73.     pop     bx
  74.     ret
  75.     TabNext endp
  76.  
  77. _TEXT    ends
  78.  
  79. end
  80.