PAGE ,132

;  Install an Interrupt 24 (DOS critical error exception) handler

;

;  Public domain by Bob Stout

;

;  Requires MASM 5.1 or later or equivalent

;

;  Assemble with:       MASM /Mx /z ...

;                       TASM /jMASM /mx /z ...


%       .MODEL  memodel,C               ;Add model support via command

                                        ;line macros, e.g.

                                        ;MASM /Dmemodel=LARGE


        .DATA?

        PUBLIC cedevdvr, cetype, ceerror, cereturn
_origvec        dd      ?
_newvec         dd      ?
cedevdvr        dd      ?
cetype          dw      ?
ceerror         dw      ?
cereturn        db      ?

        .CODE

;

;  This is our actual ISR

;

myint24:
        push    ds                      ;save registers which may be

        push    es                      ;required in case "Retry" is

        push    bx                      ;selected

        push    cx
        push    dx
        push    si
        push    di
        push    bp
        mov     word PTR cedevdvr,si    ;save device driver header address

        mov     word PTR cedevdvr+2,bp
        mov     cetype,ax               ;save error type information

        mov     ceerror,di              ;save error code information

        call    far PTR _newvec         ;call our handler

        mov     al,cereturn             ;set up return code (abort, retry...)

        pop     bp                      ;restore necessary registers

        pop     di
        pop     si
        pop     dx
        pop     cx
        pop     bx
        pop     es
        pop     ds
        iret

;

;  Call this to install  our ISR

;

;  void (_far *)() ins24(unsigned short segm, unsigned short offs);

;  void (_far *)() ins24((void _far *handler)());

;

;  Paramters (option 1) - 1 : Segment of handler

;                         2 : Offset of handler

;

;  Paramters (option 2) - 1 : Address of handler

;

;  Returns pointer to old handler

;

ins24   PROC    USES AX BX DS ES, segm:WORD, offs:WORD
        mov     ax,3524h                ;get old vector...

        int     21h
        mov     word PTR _origvec,bx
        mov     word PTR _origvec+2,es  ;...and save it

        mov     ax,offs                 ;load handler offset...

        mov     word PTR _newvec,ax
        mov     ax,segm                 ; & segment into _newvec

        mov     word PTR _newvec+2,ax
        push    cs                      ;get myint24 segment in DS

        pop     ds
        mov     dx, OFFSET myint24      ;install myint24 in int 24h

        mov     ax,2524h                ;  into Interrupt 24h

        int     21h
        mov     ax,word PTR _origvec
        mov     dx,word PTR _origvec+2
ins24   ENDP

;

;  Call this to uninstall our ISR

;

;  void redo24(void);

;

redo24  PROC    USES AX BX DS
        mov     dx, word PTR _origvec   ;restore original vector

        mov     ds, word PTR _origvec+2
        mov     ax,2524h
        int     21h
        ret
redo24  ENDP

        end


syntax highlighted by Code2HTML, v. 0.9.1