home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l224 / 2.img / TAEXMPL2.ZIP / OPRCBYTE.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-10-29  |  2.6 KB  |  111 lines
  1.  
  2. ;    FILENAME: OPRCBYTE.ASM
  3. ;    Copyright (c) 1988, 1989 by Borland International, Inc.
  4. ;
  5. ;    Description: This module implements the routine ProcByte. ProcByte
  6. ;    processes a byte.
  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 oprcbyte
  13.  
  14. include globals.inc
  15.  
  16. _TEXT   segment
  17.  
  18.     ProcByte proc
  19.  
  20.     ;    This procedure processes an ASCII character. 
  21.     ;    ProcByte performs the following tasks
  22.     ;       reads the byte
  23.     ;       determines the type of character
  24.     ;       and checks whether or not an error has occurred
  25.     ;
  26.     ;    Input 
  27.     ;       al - an ASCII character
  28.     ;       di - the buffer location
  29.     ;       InpBlk - input control block
  30.     ;       InpBuf - input buffer
  31.     ;       cx - bytes in the buffer
  32.     ;       Options - the options being used
  33.     ;       STR_BIT - constant set to strip high bits
  34.     ;       INP_EOF - designates the end of the input file
  35.     ;       InpSta - input status
  36.     ;       INP_ERR - constant set to designate an input error
  37.     ;       INP_EOL - constant set to designate an end-of-line condition
  38.     ;    Output 
  39.     ;       di - the buffer is updated
  40.     ;       cx - updated
  41.     ;       ax - byte processed
  42.     ;    Registers modified 
  43.     ;       ax
  44.  
  45.     ;--- read byte
  46.  
  47.     push    cx
  48.     push    di
  49.     lea     bx, InpBlk      ;input control block
  50.     mov     cx, 1           ;bytes to read
  51.     lea     di, InpBuf      ;input buffer
  52.     call    FileRead        ;read byte
  53.     pop     di
  54.     pop     cx
  55.     jc      probyt5         ;jump if error or EOF
  56.  
  57.     ;--- check type of character
  58.  
  59.     mov     al, InpBuf      ;load byte
  60. probyt1:
  61.     cmp     al, 32
  62.     jb      probyt2
  63.     cmp     al, 127
  64.     ja      probyt3
  65.  
  66.     ;--- normal byte, 31 < AL < 128
  67.  
  68.     call    ByteNorm
  69.     ret
  70.  
  71.     ;--- low byte, AL < 32
  72.  
  73. probyt2:
  74.     call    ByteLow
  75.     ret
  76.  
  77.     ;--- high byte, AL > 127
  78.  
  79. probyt3:
  80.     test    Options, STR_BIT ;check if strip high bit
  81.     jnz     probyt4
  82.     call    ByteHigh
  83.     ret
  84.  
  85. probyt4:
  86.     and     al, 7fh         ;clear bit
  87.     jmp     probyt1         ;loop back
  88.  
  89.     ;--- error reading
  90.  
  91. probyt5:
  92.     cmp     ax, 0           ;check if EOF
  93.     jne     probyt7
  94.     or      InpSta, INP_EOF ;set end of file flag
  95.     or      cx, cx          ;check if any bytes remaining
  96.     jz      probyt6
  97.     or      InpSta, INP_EOL ;set end of line also
  98. probyt6:
  99.     ret
  100.     ret
  101.  
  102. probyt7:
  103.     or      InpSta, INP_ERR ;set error flag
  104.     ret
  105.  
  106.     ProcByte endp
  107.  
  108. _TEXT    ends
  109.  
  110. end
  111.