-
Notifications
You must be signed in to change notification settings - Fork 1
/
HICRITCL.ASM
124 lines (102 loc) · 5.2 KB
/
HICRITCL.ASM
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
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
;
; hicritcl.asm - the effective critical handler for this application.
; Copyright (C) 2000, 2001 Imre Leber
;
; This program is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU General Public License for more details.
;
; You should have received a copy of the GNU General Public License
; along with this program; if not, write to the Free Software
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
;
; If you have any questions, comments, suggestions, or fixes please
; email me at: [email protected]
;
%assign FAIL 3 ;; fail on critical error.
extern _SetCriticalHandler
segment _DATA class=DATA
CriterrOccured DB 0 ;; has there been a critical error.
status DB 0 ;; status byte.
cause DB 0 ;; cause of error.
segment _TEXT class=CODE
;***********************************************************************
;*** criticalhandler ***
;***********************************************************************
;*** Our critical error handler. ***
;*** ***
;*** Remembers status and cause of critical error. ***
;***********************************************************************
criticalhandler:
mov bx, sp
mov ax, [ss:bx+02h]
mov [status], ah ;; Save status byte.
mov [cause], al ;; Save cause of error.
mov [CriterrOccured], byte 1 ;; Remember that a critical
;; error has occured.
mov ax, FAIL
ret
;***********************************************************************
;*** CriticalHandlerOn ***
;***********************************************************************
;*** void CriticalHandlerOn(void); ***
;*** ***
;*** Installs our critical error handler. ***
;***********************************************************************
global _CriticalHandlerOn
_CriticalHandlerOn:
mov ax, criticalhandler ;; Point the real critical handler
push ax ;; to our handler.
call _SetCriticalHandler
pop ax
mov [CriterrOccured], byte 0 ;; Make sure that there is no pending
;; critical error.
ret
;***********************************************************************
;*** CriticalErrorOccured ***
;***********************************************************************
;*** int CriticalErrorOccured(void); ***
;*** ***
;*** Returns wether there has been a critical error. ***
;*** ***
;*** Remark: can only be called once. ***
;***********************************************************************
global _CriticalErrorOccured
_CriticalErrorOccured:
xor ax, ax
mov al, [CriterrOccured] ;; See if there hasn't been a critical
;; error.
mov [CriterrOccured], byte 0
ret
%if 0
;***********************************************************************
;*** GetCriticalCause ***
;***********************************************************************
;*** int GetCriticalCause(void); ***
;*** ***
;*** Returns the cause of the critical error. ***
;***********************************************************************
global _GetCriticalCause
_GetCriticalCause:
xor ax, ax ;; Return critical error cause.
mov al, [cause]
ret
;***********************************************************************
;*** GetCriticalStatus ***
;***********************************************************************
;*** int GetCriticalStatus(void); ***
;*** ***
;*** Returns the status byte for the critical error. ***
;***********************************************************************
global _GetCriticalStatus
_GetCriticalStatus:
xor ax, ax
mov al, [status] ;; Return status byte.
ret
%endif