home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / pascal / err87_13.zip / DV87.ZIP / DV87.A86 next >
Text File  |  1990-08-14  |  777b  |  33 lines
  1. ; Program to redirect coprocessor errors from INT 5D (where Desqview
  2. ; puts them) to INT 75 (where Turbo Pascal expects them).
  3. ; Written by D.J. Murdoch for the public domain
  4. ; Assemble with A86, the shareware assembler from Eric Isaacson
  5.  
  6. code    segment
  7.         jmp     start
  8. int75   dd     ?
  9.  
  10. int5disr:
  11.         push    ds
  12.         push    ax
  13.         xor     ax,ax
  14.         mov     ds,ax
  15.         mov     ax,w[075h*4]
  16.      cs mov     w[offset int75],ax
  17.         mov     ax,w[075h*4+2]
  18.      cs mov     w[offset int75][2],ax
  19.         pop     ax
  20.         pop     ds
  21.      cs jmp     int75
  22.  
  23. start:
  24.         mov     ah,025h
  25.         mov     al,05dh
  26.         mov     dx,offset int5Disr
  27.         int     021h
  28.         mov     dx,start
  29.         int     027h
  30. end
  31.  
  32.  
  33.