home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / PJ_9_6.ZIP / ALIB.ZIP / FATAL.ASM < prev    next >
Encoding:
Assembly Source File  |  1991-08-23  |  435 b   |  30 lines
  1.     title    fatal applications exit
  2.     include    asm.inc
  3.  
  4.     public    fatal_app_exit
  5.  
  6.     .const
  7. ertx_fatal        db    'fatal',0
  8.  
  9.     .code
  10.     extn    set_strerror,perror,exit_with_failure
  11.  
  12.  
  13. ;;    fatal app exit
  14. ;
  15. ;    entry    AX    offset of DGROUP error string
  16. ;    note        this function never returns
  17. ;
  18. fatal_app_exit proc
  19.     call    set_strerror
  20.  
  21.     mov    ax,@data
  22.     mov    ds,ax
  23.     lea    si,ertx_fatal
  24.     call    perror
  25.  
  26.     jmp    exit_with_failure
  27. fatal_app_exit endp
  28.  
  29.     end
  30.