home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 2
/
ctrom_ii_b.zip
/
ctrom_ii_b
/
PROGRAM
/
PASCAL
/
ERR87_13
/
DV87
/
DV87.A86
next >
Wrap
Text File
|
1990-08-14
|
777b
|
33 lines
; Program to redirect coprocessor errors from INT 5D (where Desqview
; puts them) to INT 75 (where Turbo Pascal expects them).
; Written by D.J. Murdoch for the public domain
; Assemble with A86, the shareware assembler from Eric Isaacson
code segment
jmp start
int75 dd ?
int5disr:
push ds
push ax
xor ax,ax
mov ds,ax
mov ax,w[075h*4]
cs mov w[offset int75],ax
mov ax,w[075h*4+2]
cs mov w[offset int75][2],ax
pop ax
pop ds
cs jmp int75
start:
mov ah,025h
mov al,05dh
mov dx,offset int5Disr
int 021h
mov dx,start
int 027h
end