1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
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
|