home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c082_144 / 1.ddi / WINLBSRC.ZIP / FPINIT.ASM < prev    next >
Encoding:
Assembly Source File  |  1992-06-10  |  3.2 KB  |  99 lines
  1. ;[]-----------------------------------------------------------------[]
  2. ;|      FPINIT.ASM -- Pre/post code for WIN87EM                      |
  3. ;[]-----------------------------------------------------------------[]
  4.  
  5. ;
  6. ;       C/C++ Run Time Library - Version 5.0
  7. ; 
  8. ;       Copyright (c) 1987, 1992 by Borland International
  9. ;       All Rights Reserved.
  10. ; 
  11.  
  12. ;This module is memory model indepedent
  13.  
  14.                 include RULES.ASI
  15.  
  16.                 extrn __FPMATH:far
  17.                 extrn LOADLIBRARY:far
  18.                 extrn __fperr:far
  19.                 extrn __turboFloat
  20.                 extrn __turboCvt
  21.                 extrn __FPVector:dword
  22.                 extrn __LockWIN87EM:word
  23.  
  24.                 public  FIDRQQ          ; wait, esc
  25.                 public  FIARQQ          ; wait, DS:
  26.                 public  FICRQQ          ; wait, CS:
  27.                 public  FIERQQ          ; wait, ES:
  28.                 public  FISRQQ          ; wait, SS:
  29.                 public  FIWRQQ          ; nop, wait
  30.                 public  FJARQQ          ; Esc nn -> DS:nn
  31.                 public  FJCRQQ          ; Esc nn -> CS:nn
  32.                 public  FJSRQQ          ; Esc nn -> ES:nn
  33.  
  34. FIDRQQ          equ     05C32h
  35. FIARQQ          equ     0FE32h
  36. FICRQQ          equ     00E32h
  37. FIERQQ          equ     01632h
  38. FISRQQ          equ     00632h
  39. FIWRQQ          equ     0A23Dh
  40. FJARQQ          equ     04000h
  41. FJCRQQ          equ     0C000h
  42. FJSRQQ          equ     08000h
  43.  
  44. SIGFPE          equ     8
  45. SIG_DFL         equ     0
  46.  
  47.                 public __windowsFloat
  48. __windowsFloat  equ     0
  49.  
  50.                 public  __cvtfak
  51. __cvtfak        equ     0
  52.  
  53. _DATA           segment
  54. LibName         db  'WIN87EM', 0
  55.                 ends
  56.  
  57. _TEXT           segment
  58.                 assume cs:_TEXT,ds:DGROUP
  59.  
  60. __exitfp:       mov     bx,2                    ; close WIN87EM
  61.                 call    __FPMATH
  62.                 ret
  63.  
  64. __initfp:       cmp     __LockWIN87EM, 0        ; lock WIN87EM by forcing load
  65.                 je      NoLock                  ; workaround for DLL unload
  66.                 push    ds                      ;   ordering problem in Windows
  67.                 lea     ax, LibName
  68.                 push    ax
  69.                 call    LOADLIBRARY
  70. NoLock:
  71.                 mov     word ptr __FPVector,offset __FPMATH
  72.                 mov     word ptr __FPVector+2,seg __FPMATH
  73.  
  74.                 xor     bx,bx                   ; init WIN87EM
  75.                 call    __FPMATH
  76.  
  77.                 mov     bx, 3                   ; set exception handler
  78.                 mov     dx, seg    __fperr
  79.                 mov     ax, offset __fperr
  80.                 call    __FPMATH
  81.                 ret
  82.                 ends
  83.  
  84. _INIT_          segment word public 'INITDATA'
  85.                 db      0                       ; near call
  86.                 db      1                       ; priority 1
  87.                 dw      offset __initfp
  88.                 dw      ?
  89.                 ends
  90.  
  91. _EXIT_          segment word public 'EXITDATA'
  92.                 db      0                       ; near call
  93.                 db      1                       ; priority 1
  94.                 dw      offset __exitfp
  95.                 dw      ?
  96.                 ends
  97.  
  98.                 end
  99.