home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l224 / 2.img / TAEXMPL2.ZIP / OPROCLIN.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-10-29  |  5.3 KB  |  194 lines
  1.  
  2. ;    FILENAME: OPROCLIN.ASM
  3. ;    Copyright (c) 1988, 1989 by Borland International, Inc.
  4. ;
  5. ;    Description: This module implements the routine ProcLine. ProcLine
  6. ;    processes a line.
  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 oproclin
  13.  
  14. include globals.inc
  15.  
  16. _TEXT   segment
  17.  
  18.     ProcLine proc
  19.  
  20.     ;    This procedure processes a normal byte character 
  21.     ;    (31 < ASCII value < 128) in al.
  22.     ;
  23.     ;    Input 
  24.     ;       cx - number of bytes in buffer
  25.     ;       LinBuf - starting location of the line buffer
  26.     ;       SpcCnt - space count (for compressing spaces)
  27.     ;       TabOff - tab offset (decrements the tab column number)
  28.     ;       LAS_LET - designates the last character was a letter
  29.     ;       INP_EOL - designates an end-of-line condition
  30.     ;       INP_EOF - designates an end-of-file condition
  31.     ;       INP_ERR - designates an input error condition
  32.     ;       Options - the options being used
  33.     ;       MAK_CAP - designates character is to be capitalized
  34.     ;       LeftMar - left margin
  35.     ;       LeftDel - left characters to delete
  36.     ;       Trunc - truncate line length (truncate if non-zero)
  37.     ;       REM_SPC - delete trailing spaces
  38.     ;       REP_SPC - replace spaces with tabs
  39.     ;       TAB - ASCII 09
  40.     ;       CR - ASCII 13
  41.     ;       LF - ASCII 10
  42.     ;       OutBlk - output control block
  43.     ;       OUT_ERR - output error
  44.     ;    Output 
  45.     ;       InpSta - input status updated
  46.     ;       di - line buffer location updated
  47.     ;       cx - byte count updated
  48.     ;       si - start of line data
  49.     ;    Registers modified 
  50.     ;       ax, cx, di, si
  51.  
  52.     ; Process a line.
  53.  
  54.     sub     cx, cx                  ;clear bytes in buffer
  55.     lea     di, LinBuf              ;buffer location
  56.     mov     SpcCnt, 0               ;initial space count
  57.     mov     TabOff, 0               ;column offset
  58.  
  59.     push    ax
  60.     or      ax, LAS_LET
  61.     or      ax, INP_EOL
  62.     not     ax
  63.     and     InpSta, ax
  64.     pop     ax
  65.  
  66.     ;--- loop for each byte in line
  67.  
  68. prolin1:
  69.     call    ProcByte                       ;process byte
  70.  
  71.     push    ax
  72.     sub     ax, ax
  73.     or      ax, INP_EOL
  74.     or      ax, INP_EOF
  75.     or      ax, INP_ERR
  76.     test    InpSta, ax
  77.     pop     ax
  78.  
  79.     jnz     prolin2
  80.  
  81.     test    Options, MAK_CAP                ;test if capitalize
  82.     jz      prolin1
  83.     or      cx, cx                          ;check if any input
  84.     jz      prolin1
  85.  
  86.     push    ax
  87.     sub     ax, ax
  88.     mov     ax, LAS_LET
  89.     not     ax
  90.     and     InpSta, ax                      ;clear letter bit
  91.     pop     ax
  92.  
  93.     mov     al, [di-1]                      ;get last character
  94.     call    LoCase                          ;make lower case
  95.     cmp     al, 'a'                         ;check if below a
  96.     jb      prolin1
  97.     cmp     al, 'z'                         ;check if above z
  98.     ja      prolin1
  99.     or      InpSta, LAS_LET                 ;set letter bit
  100.     jmp     prolin1
  101.  
  102.     ;--- end of line
  103.  
  104. prolin2:
  105.     test    InpSta, INP_EOL ;check if any line returned
  106.     jnz     prolin3
  107.     ret
  108.  
  109.     ;--- extra trailing spaces
  110.  
  111. prolin3:
  112.     lea     si, LinBuf      ;start of line data
  113.  
  114.     call    TabNext         ;get next tab stop
  115.     jnc     prolin4         ;jump if not at stop
  116.     call    StoreTab        ;store a tab
  117.     jmp     SHORT prolin5
  118.  
  119. prolin4:
  120.     call    StoreSpc       ;store any spaces
  121.  
  122.     ;--- left margin
  123.  
  124. prolin5:
  125.     mov     ax, LeftMar     ;get left margin
  126.     add     cx, ax          ;add to byte count
  127.     sub     si, ax          ;add margin
  128.  
  129.     ;--- delete left margin characters
  130.  
  131.     mov     ax, LeftDel     ;margin remove
  132.     add     si, ax          ;skip beginning characters
  133.     sub     cx, ax          ;reduce count
  134.     jnc     prolin6         ;jump if okay (CX >= AX)
  135.     sub     cx, cx          ;set cx to zero
  136.  
  137.     ;--- truncate line
  138.  
  139. prolin6:
  140.     mov     ax, Trunc       ;truncate length
  141.     or      ax, ax          ;check if set
  142.     jz      prolin7
  143.     cmp     cx, ax
  144.     jbe     prolin7
  145.     mov     di, si          ;start of buffer
  146.     add     di, ax          ;line length
  147.     mov     cx, ax          ;byte count
  148.  
  149.     ;--- remove trailing spaces
  150.  
  151. prolin7:
  152.     test    Options, REM_SPC        ;check if remove
  153.     jz      prolin10
  154.  
  155. prolin8:
  156.     or      cx, cx                  ;see if no bytes left
  157.     jz      prolin10
  158.     cmp     BYTE PTR [di-1], ' '    ;check if space
  159.     je      prolin9
  160.     test    Options, REP_SPC        ;check if also delete tabs
  161.     jz      prolin10
  162.     cmp     BYTE PTR [di-1], TAB    ;check if tab
  163.     jne     prolin10
  164.  
  165. prolin9:
  166.     dec     di                      ;reduce pointer
  167.     dec     cx                      ;reduce count
  168.     jmp     prolin8
  169.  
  170.     ;--- append CR+LF
  171.  
  172. prolin10:
  173.     mov     al, CR
  174.     stosb                   ;store CR
  175.     inc     cx
  176.     mov     al, LF
  177.     stosb                   ;store LF
  178.     inc     cx              ;increment
  179.  
  180.     ;--- write line
  181.  
  182.     lea     bx, OutBlk      ;output control block
  183.     call    FileWrite       ;write to file
  184.     jnc     prolin11
  185.     or      InpSta, OUT_ERR ;set error flag
  186.  
  187. prolin11:
  188.     ret
  189.     ProcLine endp
  190.  
  191. _TEXT    ends
  192.  
  193. end
  194.