home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l224 / 2.img / TAEXMPL2.ZIP / OSTORSPC.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-10-29  |  1.2 KB  |  47 lines
  1.  
  2. ;    FILENAME: OSTORSPC.ASM
  3. ;    Copyright (c) 1988, 1989 by Borland International, Inc.
  4. ;
  5. ;    Description: This module implements the routine StoreSpc. StoreSpc
  6. ;    stores any currently stored spaces.
  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 ostorspc
  13.  
  14. include globals.inc
  15.  
  16. _TEXT   segment
  17.  
  18.     StoreSpc proc
  19.  
  20.     ;    Input 
  21.     ;       SpcCnt - flag to determine if there are any spaces to store 
  22.     ;       cx - the current byte count 
  23.     ;       TabOff - offset into the tab table 
  24.     ;    Output 
  25.     ;       TabOff - the column offset is decremented by 1
  26.     ;       SpcCnt - is set to zero 
  27.     ;    Registers modified 
  28.     ;       cx
  29.  
  30.     push     dx
  31.     mov      dx, SpcCnt      ;get number of stored spaces
  32.     or       dx, dx          ;check if any
  33.     jz       stospc1
  34.     call     Spaces          ;store spaces
  35.     add      cx, dx          ;byte count
  36.     sub      TabOff, dx      ;adjust column offset
  37.     mov      SpcCnt, 0       ;reset space count
  38. stospc1:
  39.     pop      dx
  40.     ret
  41.  
  42.     StoreSpc endp
  43.  
  44. _TEXT    ends
  45.  
  46. end
  47.