home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l040 / 13.ddi / RTLSYS.ZIP / WI87.ASM < prev    next >
Encoding:
Assembly Source File  |  1992-10-28  |  786 b   |  49 lines
  1.  
  2. ; *******************************************************
  3. ; *                            *
  4. ; *    Turbo Pascal Runtime Library            *
  5. ; *    Windows Emulator Initialization            *
  6. ; *                            *
  7. ; *    Copyright (C) 1988,92 Borland International    *
  8. ; *                            *
  9. ; *******************************************************
  10.  
  11.     TITLE    WI87
  12.  
  13.     INCLUDE    SE.ASM
  14.  
  15. ; Windows entry points
  16.  
  17.     EXTRN    __FPMath:FAR
  18.  
  19. CODE    SEGMENT    BYTE PUBLIC
  20.  
  21.     ASSUME    CS:CODE
  22.  
  23. ; Externals
  24.  
  25.     EXTRN    Exception:NEAR
  26.  
  27. ; Publics
  28.  
  29.     PUBLIC    InitEM86,InitEM87
  30.  
  31. ; Initialize 8087 emulator. Called right after main startup code
  32. ; by programs compiled in the {$N+} state.
  33.  
  34. InitEM86:
  35. InitEM87:
  36.  
  37.     ENTRY    WINFAR
  38.     XOR    BX,BX
  39.     CALL    __FPMath
  40.     MOV    BX,3
  41.     MOV    AX,OFFSET Exception
  42.     MOV    DX,SEG Exception
  43.     CALL    __FPMath
  44.     EXIT
  45.  
  46. CODE    ENDS
  47.  
  48.     END
  49.