1 files changed, 100 insertions, 0 deletions
diff --git a/reference/C/CONTRIB/SNIP/cerrinst.asm b/reference/C/CONTRIB/SNIP/cerrinst.asm
new file mode 100755
index 0000000..385ccd2
--- /dev/null
+++ b/reference/C/CONTRIB/SNIP/cerrinst.asm
@@ -0,0 +1,100 @@
+        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