mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-14 21:09:11 +02:00
Add calls to FPC_HANDLE_I8086_ERROR and add handlers for interrupt $10 and $75
git-svn-id: trunk@36271 -
This commit is contained in:
pierre
parent
ec0dfdc245
commit
8a7de4a4d3
@ -69,8 +69,10 @@
|
|||||||
%endif
|
%endif
|
||||||
|
|
||||||
extern __SaveInt00
|
extern __SaveInt00
|
||||||
|
extern __SaveInt10
|
||||||
|
extern __SaveInt75
|
||||||
|
|
||||||
extern FPC_HANDLEERROR
|
extern FPC_HANDLE_I8086_ERROR
|
||||||
|
|
||||||
%ifdef __TINY__
|
%ifdef __TINY__
|
||||||
resb 0100h
|
resb 0100h
|
||||||
@ -276,6 +278,7 @@ error_msg:
|
|||||||
int 21h
|
int 21h
|
||||||
%endif
|
%endif
|
||||||
|
|
||||||
|
global FPC_INT00_HANDLER
|
||||||
FPC_INT00_HANDLER:
|
FPC_INT00_HANDLER:
|
||||||
sub sp, 4 ; reserve space on the stack for the retf
|
sub sp, 4 ; reserve space on the stack for the retf
|
||||||
|
|
||||||
@ -298,7 +301,7 @@ FPC_INT00_HANDLER:
|
|||||||
; check whether we're running on the same stack
|
; check whether we're running on the same stack
|
||||||
mov cx, ss
|
mov cx, ss
|
||||||
cmp bp, cx
|
cmp bp, cx
|
||||||
jne .call_previous_handler
|
jne .call_previous_handler00
|
||||||
%endif
|
%endif
|
||||||
|
|
||||||
%ifndef __FAR_CODE__
|
%ifndef __FAR_CODE__
|
||||||
@ -307,10 +310,10 @@ FPC_INT00_HANDLER:
|
|||||||
mov cx, [bp + 3*2 + 6] ; get caller segment
|
mov cx, [bp + 3*2 + 6] ; get caller segment
|
||||||
mov bp, cs
|
mov bp, cs
|
||||||
cmp bp, cx
|
cmp bp, cx
|
||||||
jne .call_previous_handler
|
jne .call_previous_handler00
|
||||||
%endif
|
%endif
|
||||||
|
|
||||||
; runerror 200
|
; Call Fpc_Handle_I8086_Error, with err=0
|
||||||
mov bp, sp
|
mov bp, sp
|
||||||
mov cx, [bp + 3*2 + 4] ; get caller offset
|
mov cx, [bp + 3*2 + 4] ; get caller offset
|
||||||
%ifdef __FAR_CODE__
|
%ifdef __FAR_CODE__
|
||||||
@ -320,7 +323,7 @@ FPC_INT00_HANDLER:
|
|||||||
add sp, 2*2 + 4 + 6
|
add sp, 2*2 + 4 + 6
|
||||||
xor ax, ax
|
xor ax, ax
|
||||||
push ax
|
push ax
|
||||||
mov ax, 200
|
mov ax, 0
|
||||||
push ax
|
push ax
|
||||||
%ifdef __FAR_CODE__
|
%ifdef __FAR_CODE__
|
||||||
push dx
|
push dx
|
||||||
@ -328,12 +331,12 @@ FPC_INT00_HANDLER:
|
|||||||
push cx
|
push cx
|
||||||
cld
|
cld
|
||||||
%ifdef __FAR_CODE__
|
%ifdef __FAR_CODE__
|
||||||
jmp far FPC_HANDLEERROR
|
jmp far FPC_HANDLE_I8086_ERROR
|
||||||
%else
|
%else
|
||||||
jmp FPC_HANDLEERROR
|
jmp FPC_HANDLE_I8086_ERROR
|
||||||
%endif
|
%endif
|
||||||
|
|
||||||
.call_previous_handler:
|
.call_previous_handler00:
|
||||||
mov bp, sp
|
mov bp, sp
|
||||||
mov cx, [__SaveInt00]
|
mov cx, [__SaveInt00]
|
||||||
mov [bp + 3*2], cx
|
mov [bp + 3*2], cx
|
||||||
@ -344,6 +347,144 @@ FPC_INT00_HANDLER:
|
|||||||
pop cx
|
pop cx
|
||||||
retf ; jumps to the previous handler with all registers and stack intact
|
retf ; jumps to the previous handler with all registers and stack intact
|
||||||
|
|
||||||
|
global FPC_INT10_HANDLER
|
||||||
|
FPC_INT10_HANDLER:
|
||||||
|
sub sp, 4 ; reserve space on the stack for the retf
|
||||||
|
|
||||||
|
push cx
|
||||||
|
push ds
|
||||||
|
push bp
|
||||||
|
|
||||||
|
; init ds
|
||||||
|
%ifdef __TINY__
|
||||||
|
mov bp, cs
|
||||||
|
%elifdef __HUGE__
|
||||||
|
mov bp, SYSTEM_DATA
|
||||||
|
%else
|
||||||
|
mov bp, DGROUP
|
||||||
|
%endif
|
||||||
|
mov ds, bp
|
||||||
|
|
||||||
|
%ifdef __NEAR_DATA__
|
||||||
|
; in memory models, where SS=DS, also
|
||||||
|
; check whether we're running on the same stack
|
||||||
|
mov cx, ss
|
||||||
|
cmp bp, cx
|
||||||
|
jne .call_previous_handler10
|
||||||
|
%endif
|
||||||
|
|
||||||
|
%ifndef __FAR_CODE__
|
||||||
|
; check whether we're coming from the same code segment
|
||||||
|
mov bp, sp
|
||||||
|
mov cx, [bp + 3*2 + 6] ; get caller segment
|
||||||
|
mov bp, cs
|
||||||
|
cmp bp, cx
|
||||||
|
jne .call_previous_handler10
|
||||||
|
%endif
|
||||||
|
|
||||||
|
; Call Fpc_Handle_I8086_Error, with err=$10
|
||||||
|
mov bp, sp
|
||||||
|
mov cx, [bp + 3*2 + 4] ; get caller offset
|
||||||
|
%ifdef __FAR_CODE__
|
||||||
|
mov dx, [bp + 3*2 + 6] ; get caller segment
|
||||||
|
%endif
|
||||||
|
pop bp
|
||||||
|
add sp, 2*2 + 4 + 6
|
||||||
|
xor ax, ax
|
||||||
|
push ax
|
||||||
|
mov ax, 10h
|
||||||
|
push ax
|
||||||
|
%ifdef __FAR_CODE__
|
||||||
|
push dx
|
||||||
|
%endif
|
||||||
|
push cx
|
||||||
|
cld
|
||||||
|
%ifdef __FAR_CODE__
|
||||||
|
jmp far FPC_HANDLE_I8086_ERROR
|
||||||
|
%else
|
||||||
|
jmp FPC_HANDLE_I8086_ERROR
|
||||||
|
%endif
|
||||||
|
|
||||||
|
.call_previous_handler10:
|
||||||
|
mov bp, sp
|
||||||
|
mov cx, [__SaveInt10]
|
||||||
|
mov [bp + 3*2], cx
|
||||||
|
mov cx, [__SaveInt10+2]
|
||||||
|
mov [bp + 3*2 + 2], cx
|
||||||
|
pop bp
|
||||||
|
pop ds
|
||||||
|
pop cx
|
||||||
|
retf ; jumps to the previous handler with all registers and stack intact
|
||||||
|
|
||||||
|
global FPC_INT75_HANDLER
|
||||||
|
FPC_INT75_HANDLER:
|
||||||
|
sub sp, 4 ; reserve space on the stack for the retf
|
||||||
|
|
||||||
|
push cx
|
||||||
|
push ds
|
||||||
|
push bp
|
||||||
|
|
||||||
|
; init ds
|
||||||
|
%ifdef __TINY__
|
||||||
|
mov bp, cs
|
||||||
|
%elifdef __HUGE__
|
||||||
|
mov bp, SYSTEM_DATA
|
||||||
|
%else
|
||||||
|
mov bp, DGROUP
|
||||||
|
%endif
|
||||||
|
mov ds, bp
|
||||||
|
|
||||||
|
%ifdef __NEAR_DATA__
|
||||||
|
; in memory models, where SS=DS, also
|
||||||
|
; check whether we're running on the same stack
|
||||||
|
mov cx, ss
|
||||||
|
cmp bp, cx
|
||||||
|
jne .call_previous_handler75
|
||||||
|
%endif
|
||||||
|
|
||||||
|
%ifndef __FAR_CODE__
|
||||||
|
; check whether we're coming from the same code segment
|
||||||
|
mov bp, sp
|
||||||
|
mov cx, [bp + 3*2 + 6] ; get caller segment
|
||||||
|
mov bp, cs
|
||||||
|
cmp bp, cx
|
||||||
|
jne .call_previous_handler75
|
||||||
|
%endif
|
||||||
|
|
||||||
|
; Call Fpc_Handle_I8086_Error, with err=$75
|
||||||
|
mov bp, sp
|
||||||
|
mov cx, [bp + 3*2 + 4] ; get caller offset
|
||||||
|
%ifdef __FAR_CODE__
|
||||||
|
mov dx, [bp + 3*2 + 6] ; get caller segment
|
||||||
|
%endif
|
||||||
|
pop bp
|
||||||
|
add sp, 2*2 + 4 + 6
|
||||||
|
xor ax, ax
|
||||||
|
push ax
|
||||||
|
mov ax, 75h
|
||||||
|
push ax
|
||||||
|
%ifdef __FAR_CODE__
|
||||||
|
push dx
|
||||||
|
%endif
|
||||||
|
push cx
|
||||||
|
cld
|
||||||
|
%ifdef __FAR_CODE__
|
||||||
|
jmp far FPC_HANDLE_I8086_ERROR
|
||||||
|
%else
|
||||||
|
jmp FPC_HANDLE_I8086_ERROR
|
||||||
|
%endif
|
||||||
|
|
||||||
|
.call_previous_handler75:
|
||||||
|
mov bp, sp
|
||||||
|
mov cx, [__SaveInt75]
|
||||||
|
mov [bp + 3*2], cx
|
||||||
|
mov cx, [__SaveInt75+2]
|
||||||
|
mov [bp + 3*2 + 2], cx
|
||||||
|
pop bp
|
||||||
|
pop ds
|
||||||
|
pop cx
|
||||||
|
retf ; jumps to the previous handler with all registers and stack intact
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
global FPC_INSTALL_INTERRUPT_HANDLERS
|
global FPC_INSTALL_INTERRUPT_HANDLERS
|
||||||
@ -368,9 +509,46 @@ FPC_INSTALL_INTERRUPT_HANDLERS:
|
|||||||
pop ds
|
pop ds
|
||||||
%endif
|
%endif
|
||||||
mov dx, FPC_INT00_HANDLER
|
mov dx, FPC_INT00_HANDLER
|
||||||
|
pop ds
|
||||||
|
push ds
|
||||||
mov ax, 2500h
|
mov ax, 2500h
|
||||||
int 21h
|
int 21h
|
||||||
|
|
||||||
|
; save old int $10 handler
|
||||||
|
mov ax, 3510h
|
||||||
|
int 21h
|
||||||
|
mov [__SaveInt10], bx
|
||||||
|
mov bx, es
|
||||||
|
mov [__SaveInt10+2], bx
|
||||||
|
|
||||||
|
; install the new int $10 handler
|
||||||
|
%ifndef __TINY__
|
||||||
|
push cs
|
||||||
|
pop ds
|
||||||
|
%endif
|
||||||
|
mov dx, FPC_INT10_HANDLER
|
||||||
|
mov ax, 2510h
|
||||||
|
int 21h
|
||||||
|
pop ds
|
||||||
|
push ds
|
||||||
|
|
||||||
|
; save old int $75 handler
|
||||||
|
mov ax, 3575h
|
||||||
|
int 21h
|
||||||
|
mov [__SaveInt75], bx
|
||||||
|
mov bx, es
|
||||||
|
mov [__SaveInt75+2], bx
|
||||||
|
|
||||||
|
; install the new int $75 handler
|
||||||
|
%ifndef __TINY__
|
||||||
|
push cs
|
||||||
|
pop ds
|
||||||
|
%endif
|
||||||
|
mov dx, FPC_INT75_HANDLER
|
||||||
|
mov ax, 2575h
|
||||||
|
int 21h
|
||||||
|
|
||||||
|
|
||||||
pop ds
|
pop ds
|
||||||
%ifdef __FAR_CODE__
|
%ifdef __FAR_CODE__
|
||||||
retf
|
retf
|
||||||
@ -392,6 +570,14 @@ FPC_RESTORE_INTERRUPT_HANDLERS:
|
|||||||
lds dx, [__SaveInt00]
|
lds dx, [__SaveInt00]
|
||||||
int 21h
|
int 21h
|
||||||
|
|
||||||
|
mov ax, 2510h
|
||||||
|
lds dx, [__SaveInt10]
|
||||||
|
int 21h
|
||||||
|
|
||||||
|
mov ax, 2575h
|
||||||
|
lds dx, [__SaveInt75]
|
||||||
|
int 21h
|
||||||
|
|
||||||
pop ds
|
pop ds
|
||||||
%ifdef __FAR_CODE__
|
%ifdef __FAR_CODE__
|
||||||
retf
|
retf
|
||||||
@ -446,12 +632,12 @@ FPC_INTR:
|
|||||||
mov bp, word [si + 8]
|
mov bp, word [si + 8]
|
||||||
mov di, word [si + 12]
|
mov di, word [si + 12]
|
||||||
mov si, word [si + 10]
|
mov si, word [si + 10]
|
||||||
|
|
||||||
pop ds
|
pop ds
|
||||||
db 0CDh ; opcode of INT xx
|
db 0CDh ; opcode of INT xx
|
||||||
int_number:
|
int_number:
|
||||||
db 255
|
db 255
|
||||||
|
|
||||||
pushf
|
pushf
|
||||||
push ds
|
push ds
|
||||||
push si
|
push si
|
||||||
@ -479,7 +665,7 @@ int_number:
|
|||||||
mov word [si + 14], ax
|
mov word [si + 14], ax
|
||||||
pop ax
|
pop ax
|
||||||
mov word [si + 18], ax
|
mov word [si + 18], ax
|
||||||
|
|
||||||
pop ds
|
pop ds
|
||||||
pop bp
|
pop bp
|
||||||
%ifdef __FAR_CODE__
|
%ifdef __FAR_CODE__
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user