home *** CD-ROM | disk | FTP | other *** search
/ Best Objectech Shareware Selections / UNTITLED.iso / boss / word / text / 024 / int24.asm < prev    next >
Assembly Source File  |  1993-06-04  |  13KB  |  297 lines
  1. ;
  2. ; Sometimes, things may go wrong that are outside the control of an application
  3. ; program.  When an application program needs to access system resources, lots
  4. ; of things can go wrong:  hard disk errors, lost network connections, printing
  5. ; a file before turning on the printer, etc....  These types of errors are
  6. ; known as Critical Errors.  The operating system doesn't know what to do in
  7. ; these situations, so it asks the application program for advice.  Ideally,
  8. ; the application program should be prepared to handle these situations.  After
  9. ; a critical error occurs in MSDOS, an application program will be asked to
  10. ; Abort, Retry, or Fail the operation.
  11. ;
  12. ; In this critical error handler (CEH), we never let the user return
  13. ; the Abort choice for the standard Abort, Retry, Fail prompt.  When the
  14. ; user selects Abort, all pending work and the application program are
  15. ; terminated.  Users can get very frustrated when they can't save their work
  16. ; or if they loose everything because an application can't recover from
  17. ; a critical error.
  18. ;
  19. ;------------------------  special case in 2.21  -------------------------
  20. ; A couple of days ago, I tried to edit a file on our network drive
  21. ; running Novell 3.11.  The file was corrupt and there was no way to
  22. ; get out of the TDE critical error handler except by Ctrl-Alt-Del,
  23. ; AKA Vulcan nerve pinch.  I added the Abort choice to the CEH to keep
  24. ; TDE out of an infinite loop.  Don't returning Abort as a critical
  25. ; error leave the workstation in an unstable state or something?
  26. ; I still lose all pending work with Abort, but at least I can exit TDE.
  27. ; Shouldn't Novell recognize the Fail option in addition to Abort and Retry?
  28. ;---------------------------------  end  ---------------------------------
  29. ;
  30. ; The simple critical error handler (CEH) in TDE is designed to be memory
  31. ; model independent.  When we first install this CEH, pass in the FAR address
  32. ; of a CEH structure.  Save the address of CEH structure in the code segment
  33. ; of our assembly CEH replacement.  When a critical error occurs, load in the
  34. ; address of our CEH structure and save the return codes in the structure.
  35. ; Call the prompt functions in criterr.c, then return from interrupt.
  36. ;
  37. ; Let's set the error flag only if a Fail or Ignore condition is input by
  38. ; the user.  The Ignore option is not explicity supported by this algorithm,
  39. ; but it is returned for DOS versions less than 3.0.  The Fail option is
  40. ; not available for DOS versions less than 3.0.  If the user selects the
  41. ; Retry option, set the ceh.flag to OK, because there is no error.  By
  42. ; selecting Retry, the user just wants to retry the DOS operation, which is
  43. ; not necessarily an error condition.
  44. ;
  45. ; See:
  46. ;
  47. ;   Programmer's Reference Manual, Microsoft Corporation, Redmond,
  48. ;     Washington, 1986, Document No. 410630014-320-003-1285, pp. 1-20 thru
  49. ;     1-21, pp. 1-34 thru 1-38, p 1-99, pp. 1-121 thru 1-124, pp. 1-216 thru
  50. ;     1-218, pp. 2-1 thru 2-30.
  51. ;
  52. ;   Ray Duncan, _Advanced MS-DOS_, Microsoft Press, Redmond, Washington,
  53. ;     1986, ISBN 0-914845-77-2, pp 89-97, pp 130-133.
  54. ;
  55. ;
  56. ; Assembler flags:
  57. ;
  58. ;      QuickAssembler:   qcl /c int24.asm
  59. ;            MASM 6.0:   ml /c /Cp /Zm int24.asm
  60. ;
  61. ; Editor name:   TDE, the Thomson-Davis Editor.
  62. ; Author:        Frank Davis
  63. ; Date:          June 5, 1991, version 1.0
  64. ; Date:          July 29, 1991, version 1.1
  65. ; Date:          October 5, 1991, version 1.2
  66. ; Date:          January 20, 1992, version 1.3
  67. ; Date:          February 17, 1992, version 1.4
  68. ; Date:          April 1, 1992, version 1.5
  69. ; Date:          June 5, 1992, version 2.0
  70. ; Date:          October 31, 1992, version 2.1
  71. ;
  72. ; This code is released into the public domain, Frank Davis.  You may
  73. ; distribute it freely.
  74.  
  75. ;typedef struct {         typedef from tdestr.h
  76. ;   int  flag;
  77. ;   int  ecode;
  78. ;   int  rw;
  79. ;   int  drive;
  80. ;   int  extended;
  81. ;   int  class;
  82. ;   int  action;
  83. ;   int  locus;
  84. ;   int  dattr;
  85. ;   char dname[10];
  86. ;} CEH;
  87.  
  88. flag            EQU     0
  89. ecode           EQU     2
  90. rw              EQU     4
  91. drive           EQU     6
  92. extended        EQU     8
  93. class           EQU     10
  94. action          EQU     12
  95. locus           EQU     14
  96. dattr           EQU     16
  97. dname           EQU     18
  98.  
  99. ; see any DOS tech ref manual for the format of device headers.
  100. ;
  101. dev_attr_word   EQU     4
  102. char_dev_name   EQU     10
  103.  
  104. ;
  105. ; external C routine in criterr.c
  106. ;
  107.         EXTRN   _crit_err_handler:FAR
  108.  
  109.  
  110. _TEXT   SEGMENT WORD PUBLIC 'CODE'
  111.         ASSUME  cs:_TEXT, ds:NOTHING, es:NOTHING
  112.         public  _install_ceh
  113.  
  114.  
  115. ;
  116. ; Prototype this function as far in the C header file so it may be used easily
  117. ; with any memory model.  See the last section in tdefunc.h for more info.
  118. ;
  119. _install_ceh    PROC    FAR
  120.         jmp     initialize
  121.  
  122. ceh_pointer     DW      ?,?     ; pointer to critical error handler structure
  123. dos_version     DW      ?       ; what version of DOS are we working with?
  124.  
  125. start:
  126. ;
  127. ;  the first thing we need to do is turn interrupts back on.  interrupts
  128. ;  are disabled when the handler receives control.
  129. ;
  130. ;  segment register strategy:
  131. ;      use ds to access variables in the code segment and the device header
  132. ;      use es to access the ceh structure.
  133. ;
  134.         sti                     ; turn interrupts back on
  135.         push    bx              ; push required registers
  136.         push    cx
  137.         push    dx
  138.         push    ds
  139.         push    es
  140.  
  141.         ASSUME  ds:_TEXT, es:NOTHING    ; put cs in ds and tell assembler
  142.                                         ; ds references code, _TEXT seg
  143.         mov     dx, cs
  144.         mov     ds, dx
  145.  
  146.         mov     dx, di                          ; put error code in dx
  147.         xor     dh, dh                          ; high part of di is undef'ed
  148.         mov     bx, WORD PTR ceh_pointer+2      ; get SEGMENT of ceh struc
  149.         mov     es, bx                          ; put it in es
  150.         mov     di, WORD PTR ceh_pointer        ; get OFFSET of ceh struc
  151.         mov     WORD PTR es:[di].ecode, dx      ; save error code
  152.         mov     dl, ah                          ; move error stuff to dl
  153.         and     dl, 1                           ; 1 == write error
  154.         mov     WORD PTR es:[di].rw, dx         ; save read/write error code
  155.  
  156.         mov     dl, al                          ; put drive letter in dl
  157.         mov     WORD PTR es:[di].drive, dx      ; save drive number
  158.         test    ah, 80h                 ; was this a character or block dev
  159.         jz      drive_err               ; if fail, then block error
  160.         mov     ds, bp                  ; put SEGMENT of device header in ds
  161.         mov     dx, WORD PTR [si].dev_attr_word ; see DOS tech ref, get dev attr
  162.         test    dx, 8000h               ; was there a prob w/ FAT
  163.         jz      drive_err               ; if bit 15 == 0, drive error - FAT prob
  164.         mov     WORD PTR es:[di].dattr, 1       ; 1 == character device
  165.         mov     bx, di                  ; save OFFSET of CEH struct in bx
  166.         add     di, dname               ; load destination of char dev name
  167.         add     si, char_dev_name       ; char dev
  168.         mov     cx, 8                   ; char name is 8 bytes
  169.         rep     movsb                   ; move 8 bytes of driver name
  170.         xor     al, al                  ; zero out al
  171.         stosb                           ; store a terminating NULL
  172.         mov     di, bx                  ; get back the OFFSET of CEH struct
  173.         jmp     SHORT get_extended_error
  174.         ALIGN   2
  175. drive_err:
  176.         mov     WORD PTR es:[di].dattr, 0       ; 0 == disk drive
  177. get_extended_error:
  178.         mov     dx, cs                  ; put cs back into ds
  179.         mov     ds, dx
  180.         mov     ax, WORD PTR ds:dos_version     ; get DOS version
  181.         or      ax, ax                  ; is it 0?
  182.         jz      no_ext_avail            ; skip extended error
  183.  
  184. ;
  185. ; page 1-216, Programmer's Ref Man, 1986, function 59h pretty much wipes
  186. ; out all registers that don't return info.  function 59h is available
  187. ; for DOS >= 3.
  188. ;