home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c081_7 / 7.ddi / TAEXMPL2.ZIP / OERREXIT.ASM < prev    next >
Encoding:
Assembly Source File  |  1991-02-13  |  1.7 KB  |  65 lines
  1.  
  2. ;    FILENAME: OERREXIT.ASM
  3. ;    Copyright (c) 1988, 1989 by Borland International, Inc.
  4. ;
  5. ;    Description: This module implements the routine ErrorExit. ErrorExit
  6. ;    handles the printing of error messages.
  7. ; 
  8. ;    ASSEMBLY INSTRUCTIONS:  To assemble this module use the following  
  9. ;    TASM command line.     
  10. ;  
  11. ;        TASM oerrexit
  12.  
  13. include globals.inc
  14.  
  15. _TEXT   segment
  16.  
  17.     ErrorExit proc
  18.  
  19.     ;    Input 
  20.     ;        al - error number
  21.     ;        ErrTbl - starting location of the error table
  22.     ;        si - address of start of command line
  23.     ;        OptTab - Option Table
  24.     ;        Options - designates user set options
  25.     ;    Output
  26.     ;        command line processed
  27.     ;    Registers modified
  28.     ;        none
  29.  
  30.  
  31.  
  32.     ;    get error table entry
  33.  
  34.     sub     ah, ah
  35.     mov     bx, ax
  36.     shl     ax, 1
  37.     add     bx, ax                  ;error number times three
  38.     lea     si, [ErrTbl + bx]       ;get location of error data
  39.  
  40.     lodsb                           ;load return code
  41.     push    ax
  42.  
  43.     ;    write message
  44.  
  45.     lodsw                           ;load offset of message
  46.     mov     si, ax
  47.     lodsb                           ;load length of message
  48.     sub     ah, ah
  49.     mov     cx, ax                  ;length in CX
  50.     mov     bx, 2                   ;error device
  51.     mov     dx, si                  ;offset in DX
  52.     mov     ah, 40h                 ;function
  53.     int     21h                     ;execute
  54.  
  55.     ;    exit
  56.  
  57.     pop     ax                      ;restore error code
  58.     mov     ah, 4ch                 ;exit function
  59.     int     21h                     ;execute
  60.  
  61.     ErrorExit endp
  62. _TEXT    ends
  63.  
  64. end
  65.