home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / turbo55 / tp55 / tasm / obytehi.asm < prev    next >
Assembly Source File  |  1989-05-01  |  1KB  |  63 lines
  1.  
  2. ;    FILENAME: OBYTEHI.ASM
  3. ;    Copyright (c) 1988, 1989 by Borland International, Inc.
  4. ;
  5. ;    Description: This module implements the routine ByteHigh. ByteHigh
  6. ;    processes the current high byte value in al.
  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 obytehi
  13.  
  14. include globals.inc
  15.  
  16. _TEXT   segment
  17.  
  18.     ByteHigh proc
  19.  
  20.     ;    This procedure processes a high byte character 
  21.     ;    (ASCII value > 127) in al.
  22.     ;
  23.     ;    Input 
  24.     ;       al - high byte character
  25.     ;       EOL -  defined to be the end of line character
  26.     ;       InpSta - input status
  27.     ;       INP_EOL - designates an end-of-line condition
  28.     ;       Options - the options being used
  29.     ;       STR_HIB - designates high byte to be stripped
  30.     ;    Output 
  31.     ;       al - high byte processed
  32.     ;       cx - byte count incremented
  33.     ;    Registers modified 
  34.     ;       ax, cx
  35.  
  36.     ; Process high byte
  37.  
  38.     ;--- end of line
  39.  
  40.     cmp      al, EOL         ;check if end of line
  41.     jne      bythi1
  42.     or       InpSta, INP_EOL
  43.     ret
  44.  
  45.     ;--- remove high bytes
  46.  
  47. bythi1:
  48.     test     Options, STR_HIB ;test if remove high bytes
  49.     jz       bythi2
  50.     ret
  51.  
  52.     ;--- write byte
  53.  
  54. bythi2:
  55.     stosb
  56.     inc      cx
  57.     ret
  58.     ByteHigh endp
  59.  
  60. _TEXT    ends
  61.  
  62. end
  63.