Subversion Repositories SvarDOS

Rev

Rev 1866 | Rev 1868 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1866 Rev 1867
Line 399... Line 399...
399 
; * INT 24H HANDLER                                                          *
 399 
; * INT 24H HANDLER                                                          *
400 
; *                                                                          *
 400 
; *                                                                          *
401 
; ****************************************************************************
 401 
; ****************************************************************************
402 
;
 402 
;
403 
; this is an executable image that can be set up as the critical error handler
 403 
; this is an executable image that can be set up as the critical error handler
404 
; interrupt (int 24h). It displays the usual "Abort, retry, fail" prompt.
 404 
; interrupt (int 24h). It displays the usual "Abort, Retry, Fail..." prompt.
405 
;
 405 
;
406 
; documentation:
 406 
; documentation:
407 
; http://www.techhelpmanual.com/564-int_24h__critical_error_handler.html
 407 
; http://www.techhelpmanual.com/564-int_24h__critical_error_handler.html
408 
;
 408 
;
409 
; === CRIT HANDLER DETAILS ====================================================
 409 
; === CRIT HANDLER DETAILS ====================================================
Line 580... Line 580...
580 
int 0x21
 580 
int 0x21
581 
 
 581 
 
582 
; was it abort?
 582 
; was it abort?
583 
cmp cl, [CRITERR_KEYS]
 583 
cmp cl, [CRITERR_KEYS]
584 
jne SKIP_ABORT
 584 
jne SKIP_ABORT
585 
mov ah, 0x09
 - 
 
586 
mov dx, CRITERRSYST
 - 
 
587 
int 0x21
 - 
 
588 
mov al, 2     ; AL=2 -> "abort"
 585 
mov al, 2     ; AL=2 -> "abort"
589 
iret
 586 
iret
590 
SKIP_ABORT:
 587 
SKIP_ABORT:
591 
; if retry is allowed - was it retry?
 588 
; if retry is allowed - was it retry?
592 
test ch, 0x10
 589 
test ch, 0x10