home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l224 / 2.img / TAEXMPL2.ZIP / OSTORTAB.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-10-29  |  1.3 KB  |  48 lines
  1.  
  2. ;    FILENAME: OSTORTAB.ASM
  3. ;    Copyright (c) 1988, 1989 by Borland International, Inc.
  4. ;
  5. ;    Description: This module implements the routine StoreTab. StoreTab
  6. ;    stores a tab character if there are any spaces to compress.
  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 ostortab
  13.  
  14. include globals.inc
  15.  
  16. _TEXT   segment
  17.  
  18.     StoreTab proc
  19.  
  20.     ;    Input 
  21.     ;       SpcCnt - flag to determine if there are any spaces to compress 
  22.     ;       TAB - tab character defined to be ASCII 09 
  23.     ;       cx - the current byte count 
  24.     ;       TabOff - offset into the tab table 
  25.     ;    Output 
  26.     ;       TabOff - is decremented 
  27.     ;       SpcCnt - is set to zero 
  28.     ;    Registers modified 
  29.     ;       cx
  30.  
  31.     cmp     SpcCnt, 0       ;check if any spaces to compress
  32.     je      stotab1         ;jump if not
  33.     push    ax
  34.     mov     al, TAB         ;load tab
  35.     stosb                   ;store
  36.     inc     cx              ;increment byte count
  37.     dec     TabOff          ;adjust column
  38.     mov     SpcCnt, 0       ;reset space count
  39.     pop     ax
  40. stotab1:
  41.     ret
  42.  
  43.     StoreTab endp
  44.  
  45. _TEXT    ends
  46.  
  47. end
  48.