home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l224 / 2.img / TAEXMPL2.ZIP / OPROCDOC.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-10-29  |  1.8 KB  |  70 lines
  1.  
  2. ;    FILENAME: OPROCDOC.ASM
  3. ;    Copyright (c) 1988, 1989 by Borland International, Inc.
  4. ;
  5. ;    Description: This module implements the routine ProcDoc. ProcDoc
  6. ;    processes an entire document, one line at a time.
  7. ;
  8. ;    This module uses MASM mode syntax and standard segment directives. 
  9. ; 
  10. ;    ASSEMBLY INSTRUCTIONS: To assemble this module use the following 
  11. ;    TASM command line. 
  12. ; 
  13. ;        TASM oprocdoc
  14.  
  15. include globals.inc
  16.  
  17. _TEXT   segment
  18.  
  19.     ProcDoc proc
  20.  
  21.     ;    This procedure processes an entire document line by line.
  22.     ;
  23.     ;    Input 
  24.     ;       INP_EOF - designates an end-of-file condition
  25.     ;       INP_ERR - designates an input error condition
  26.     ;       OUT_ERR - output error
  27.     ;       Options - the options being used
  28.     ;       SUP_EOF - suppress output EOF
  29.     ;       LinBuf - starting location of the line buffer
  30.     ;       EOF - ASCII 26
  31.     ;       OutBlk - output control block
  32.     ;    Output 
  33.     ;       si - Line buffer updated
  34.     ;    Registers modified 
  35.     ;       bx, cx, si
  36.  
  37. propag1:
  38.     call    ProcLine
  39.     push    ax
  40.     sub     ax, ax
  41.     or      ax, INP_EOF
  42.     or      ax, INP_ERR
  43.     or      ax, OUT_ERR
  44.     test    InpSta, ax
  45.     pop     ax
  46.     jz      propag1
  47.  
  48.     ;--- write EOF
  49.  
  50.     test    Options, SUP_EOF    ;check if suppressed
  51.     jnz     propag2
  52.     test    InpSta, INP_ERR     ;
  53.     jnz     propag2             ;-- check for errors
  54.     test    InpSta, OUT_ERR     ;
  55.     jnz     propag2
  56.  
  57.     mov     cx, 1               ;bytes to write
  58.     lea     si, LinBuf          ;put it in line buffer
  59.     mov     BYTE PTR [si], EOF  ;EOF character
  60.     lea     bx, OutBlk          ;output control block
  61.     call    FileWrite           ;write to file
  62.  
  63. propag2:
  64.     ret
  65.     ProcDoc endp
  66.  
  67. _TEXT    ends
  68.  
  69. end
  70.