home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / BC_502 / START16.PAK / C0D.ASM < prev    next >
Encoding:
Assembly Source File  |  1997-05-06  |  15.7 KB  |  465 lines
  1. ;[]------------------------------------------------------------[]
  2. ;|      C0D.ASM -- Start Up Code For Windows DLLs               |
  3. ;[]------------------------------------------------------------[]
  4.  
  5. ;
  6. ;       C/C++ Run Time Library - Version 8.0
  7. ; 
  8. ;       Copyright (c) 1991, 1997 by Borland International
  9. ;       All Rights Reserved.
  10. ; 
  11. ; $Revision:   8.2  $
  12.  
  13.                 locals
  14.  
  15.                 __C0__ = 1
  16. include         RULES.ASI
  17.  
  18.                 ASSUME CS:_TEXT, DS:DGROUP
  19.  
  20.                 public  __acrtused              ;satisfy MS for now
  21. __acrtused      equ     0
  22.  
  23.  
  24.                 extrn LIBMAIN:far       ;the C routine to be called
  25.                 extrn LOCALINIT:far     ;Windows heap init routine
  26.                 extrn LOCKSEGMENT:far
  27.                 extrn UNLOCKSEGMENT:far
  28.                 extrn GETWINFLAGS:far
  29.                 extrn __WEP:far
  30.                 extrn __cexit:DIST
  31. ifdef    __LARGE__
  32. ifndef    _BUILDRTLDLL
  33.                 extrn GETMODULEHANDLE:far
  34.                 extrn GETPROCADDRESS:far
  35.                 extrn __LockDLL:DIST
  36. else
  37.         extrn ___cg_init:DIST
  38.         extrn ___cg_exit:DIST
  39.         extrn __CG_QUIET:DIST
  40. endif
  41. endif
  42.                 extrn __setupio:near    ;required!
  43.  
  44.                 public LibEntry         ;Entry point for the DLL
  45.                 publicdll WEP
  46.  
  47. NULL            segment
  48.                 db      16 dup (0)              ;Windows
  49.                 db       4 dup (0)              ;destructor count
  50.                 db       2 dup (0)              ;exception list
  51.                 db       4 dup (0)              ;exception vptr
  52.                 db       6 dup (0)              ;reserved
  53.                 db       2 dup (0)              ;VBX control jump vector
  54.                                                 ;MUST be at SS:20h
  55.                 db       2 dup (0)              ;reserved
  56.                 ends
  57.  
  58. _CVTSEG         segment
  59.                 public __RealCvtVector
  60. __RealCvtVector label word
  61.                 ends
  62.  
  63. _SCNSEG         segment
  64.                 public __ScanTodVector
  65. __ScanTodVector label word
  66.                 ends
  67.  
  68. _FPSEG          segment
  69.                 public __FPVector
  70. __FPVector      dd      0
  71.                 ends
  72.  
  73. _DATA           segment
  74.                 public _errno
  75. _errno          dw      0
  76.                 public __protected
  77. __protected     dw      0
  78.                 public __8086
  79. __8086          dw      0
  80.                 public __8087
  81. __8087          dw      0
  82.                 public __version
  83. __version       label word
  84.                 public __osversion
  85. __osversion     label word
  86.                 public __osmajor
  87. __osmajor       db      0
  88.                 public __osminor
  89. __osminor       db      0
  90.                 public __osmode         ;Used for OS/2 protected mode by MS,
  91. __osmode        db      0               ;currently set to 0 under Windows
  92.                 public __hInstance
  93. __hInstance     dw      0
  94.                 public __WinAllocFlag   ;Used by malloc for additional flags
  95. __WinAllocFlag  dw      2000h           ;to pass to GlobalAlloc (used in DLLs)
  96.                                         ;default value is GMEM_SHARE
  97.                 public __LockWIN87EM    ;Used do lock down WIN87EM to avoid
  98. __LockWIN87EM   dw      1               ;DLL unload ordering problem
  99.  
  100. ifdef    __LARGE__
  101. ifndef    _BUILDRTLDLL
  102.                 public __LockRTLHandle
  103. __LockRTLHandle dw      0               ;Handle of RTLDLL (locked)
  104. FREELIBRARYPROC    dd    0        ;True address of FreeLibrary
  105. KERNELSTRING    db    "KERNEL", 0    ;Name of KERNEL.EXE
  106. FREELIBRARYSTRING db    "FREELIBRARY", 0;Name of FreeLibrary procedure
  107. endif
  108. endif
  109.  
  110.             public  __abend
  111. __abend        label   word
  112. _abend          dw      1               ;If LibEntry is called gets set to
  113.                                         ;normal state (0).  If it is 1 then
  114.                                         ;exit routines are not performed
  115.                                         ;Gets set to 1 if DLL is terminated
  116.                                         ;by a call to abort() or _exit().
  117.  
  118. CopyRight       db      'Borland C++ - Copyright 1995 Borland Intl.',0
  119.                 ends
  120.  
  121. _TEXT           segment
  122.  
  123. LibEntry        proc far
  124.                 mov     __hInstance, di ;save SI and DI
  125.                 push    si
  126.  
  127.                 push    di              ;handle of the module instance
  128.                 push    ds              ;library data segment
  129.                 push    cx              ;heap size
  130.                 push    es              ;command line segment
  131.                 push    si              ;command line offset
  132.  
  133.                 ;if we have some heap then initialize it
  134.                 jcxz    @@Init          ;jump if no heap specified
  135.  
  136.                 ;call the Windows function LocalInit() to set up the heap
  137.                 ;LocalInit(uint segment, uint startOffset, uint endOffset)
  138.  
  139.                 push    ds              ;Heap segment
  140.                 xor     ax,ax
  141.                 push    ax              ;Heap start offset in segment
  142.                 push    cx              ;Heap end offset in segment
  143.                 call    LOCALINIT
  144.                 xchg    ax,cx
  145.                 jcxz    @@JmpExit       ;quit if it failed
  146.                 jmp     short @@Init
  147. @@JmpExit:      jmp     @@Exit
  148.  
  149. @@Init:
  150.  
  151. IF LDATA EQ false
  152.                 mov     ax,-1
  153.                 push    ax
  154.                 call    LOCKSEGMENT
  155. ENDIF
  156.  
  157.                 ;Clear _BSS, uninitialized data area
  158.  
  159.                 xor     ax, ax
  160.                 push    ds
  161.                 pop     es
  162.                 mov     di,offset DGROUP:BeginBSS
  163.                 mov     cx,offset DGROUP:EndBSS
  164.                 sub     cx,di
  165.                 cld
  166.                 rep
  167.                 stosb
  168.  
  169. ;Determine DOS version
  170.  
  171.                 mov     ah, 30h
  172.                 int     21h
  173.                 mov     __version, ax   ; save minor and major revision
  174.  
  175. ;Determine whether we are in protected mode
  176.  
  177.                 call    GETWINFLAGS
  178.                 test    ax,1            ; WF_PMODE = 1
  179.                 jz      @@realmode      ; Note:  GETWINFLAGS returns a long,
  180.                                         ; so if WF_PMODE changed it could be
  181.                                         ; in the high word.
  182.                 mov     __protected, 8  ; Eight is for convenience.
  183. @@realmode:
  184.  
  185. ;Test for 8087 presence
  186.  
  187.                 test    ax,0400h        ; WF_8087 = 0x0400
  188.                 jz      @@no8087
  189.                 mov     __8087, 1
  190. @@no8087:
  191.                 and     ax,08h+04h+02h  ; WF_CPU486|WF_CPU386|WF_CPU286
  192.                 shr     ax,1            ; Convert to 4 or 2 or 1 or 0
  193.                 test    ax,0004h        ; Have 4, 486 done
  194.                 jnz     @@NoAdjust
  195.                 or      ax,ax           ; Have 0, 8086 done
  196.                 jz      @@NoAdjust
  197.                 inc     ax              ; Have 2 or 1, need 3 or 2
  198. @@NoAdjust:
  199.                 mov     __8086,ax       ; Set CPU Type
  200.  
  201. ifdef    _BUILDRTLDLL
  202. ;Init CG
  203.         call    ___cg_init
  204.         test    ax,ax
  205.         jnz    @@Exit
  206. endif
  207.         
  208. ;Call our initialization functions, including C++ static constructors.
  209.  
  210.                 mov     ax,ds
  211.                 mov     es,ax
  212.                 mov     si,offset DGROUP:InitStart      ;si = start of table
  213.                 mov     di,offset DGROUP:InitEnd        ;di = end of table
  214.  
  215.                 call    Initialize
  216.                 mov     _abend, 0                       ; Set LibEntry called
  217.  
  218.                 ;invoke the C routine to do any special initialization
  219. @@Main:         call    LIBMAIN         ;invoke the 'C' routine (result in AX)
  220.                 or  ax, ax
  221.  
  222. ifdef    __LARGE__
  223. ifndef    _BUILDRTLDLL
  224.                 jz  @@LibMainRet
  225.  
  226.                 push    ax
  227.                 call    __LockDLL
  228.                 mov     __LockRTLHandle, ax
  229.                 push    ds
  230.         mov    ax, OFFSET KERNELSTRING
  231.         push    ax
  232.                 call    GETMODULEHANDLE
  233.                 push    ax
  234.                 push    ds
  235.         mov     ax, OFFSET FREELIBRARYSTRING
  236.                 push    ax
  237.                 call    GETPROCADDRESS
  238.                 mov    word ptr [FREELIBRARYPROC + 0], ax
  239.                 mov    word ptr [FREELIBRARYPROC + 2], dx
  240.                 pop ax
  241. @@LibMainRet:
  242. endif
  243. endif
  244.                 mov     di, __hInstance ;restore SI and DI
  245.                 pop     si
  246.                 ret
  247.  
  248. @@Exit:         mov ax, 0               ;set return code
  249.                 pop si                  ;remove arguments to LIBMAIN
  250.                 pop es                  ;  since we didn't call it.
  251.                 pop cx
  252.                 pop ds
  253.                 pop di
  254.                 pop si                  ;restore saved SI.  DI is restored
  255.                 ret                     ;  by removing arguments to LIBMAIN
  256.                 endp
  257.  
  258. ;---------------------------------------------------------------------------
  259. ;       _cleanup()      call all #pragma exit cleanup routines.
  260. ;       _checknull()    check for null pointer zapping copyright message
  261. ;       _terminate(exitcode, quick)     exit program with error code
  262. ;       _restorezero()  restore interrupt vectors
  263. ;
  264. ;       These functions are called by exit(), _exit(), _cexit(),
  265. ;       and _c_exit().
  266. ;---------------------------------------------------------------------------
  267.  
  268. ;       Call cleanup routines
  269.  
  270. __cleanup       PROC    DIST
  271.                 PUBLIC  __cleanup
  272.  
  273.                 mov     ax,ds
  274.                 mov     es,ax
  275.                 push    si
  276.                 push    di
  277.                 mov     si,offset DGROUP:ExitStart
  278.                 mov     di,offset DGROUP:ExitEnd
  279.                 call    Cleanup
  280.                 pop     di
  281.                 pop     si
  282.                 ret
  283. __cleanup       ENDP
  284.  
  285. ;       Check for null pointers before exit.  NO-OP on Windows.
  286.  
  287. __checknull     PROC    DIST
  288.                 PUBLIC  __checknull
  289.                 ret
  290. __checknull     ENDP
  291.  
  292. ;       Restore grabbed interrupt vectors.  NO-OP on Windows.
  293.  
  294. __restorezero     PROC    DIST
  295.                 PUBLIC  __restorezero
  296.                 ret
  297. __restorezero     ENDP
  298.  
  299. ;       Exit to DOS
  300. ;
  301. ; Usage:        void _terminate(int exitcode, int quick);
  302.  
  303. __terminate     PROC    DIST
  304.                 PUBLIC  __terminate
  305.  
  306.                 mov     bp,sp
  307.                 mov     al,[bp+cPtrSize]        ; get exitcode
  308.                 mov     ah,4ch
  309.                 int     21h
  310.                 ret
  311.                 endp
  312.  
  313. WEP             proc    windows pascal far nParam:WORD
  314.                 push    si
  315.                 push    di
  316.  
  317.                 cmp     _abend, 0
  318.                 jne     @@error
  319.  
  320. ifdef    _BUILDRTLDLL
  321. ;Tell CG not to display message box
  322.         call    __CG_QUIET
  323. endif
  324.  
  325.                 push    nParam
  326.                 call    __WEP
  327.                 push    ax
  328.                 call    __cexit         ; perform cleanup without exiting
  329.  
  330. @@unlock:
  331.  
  332. ifdef    __LARGE__
  333. ifndef    _BUILDRTLDLL
  334.         mov    ax, __LockRTLHandle
  335.         or    ax, ax
  336.         jz    @@RTLNotLocked
  337.         push    ax
  338.         call    dword ptr [FREELIBRARYPROC]
  339. @@RTLNotLocked:
  340. endif
  341. endif
  342.  
  343. ifdef    _BUILDRTLDLL
  344. ;Init CG
  345.         call    ___cg_exit
  346. endif
  347.  
  348. IF LDATA EQ false
  349.                 mov     ax,-1
  350.                 push    ax
  351.                 call    UNLOCKSEGMENT
  352. ENDIF
  353.  
  354.                 pop     ax
  355.                 pop     di
  356.                 pop     si
  357.                 ret
  358.  
  359. @@error:
  360.                 push    1
  361.                 jmp     @@unlock
  362.  
  363.                 endp
  364.  
  365. ;       Return default data segment in AX
  366.  
  367. __GetDGROUP     PROC    FAR
  368.                 PUBLIC  __GetDGROUP
  369.                 mov     ax, DGROUP
  370.                 ret
  371.                 endp
  372.  
  373. ;------------------------------------------------------------------
  374. ;  Loop through a startup/exit (SE) table,
  375. ;  calling functions in order of priority.
  376. ;  ES:SI is assumed to point to the beginning of the SE table
  377. ;  ES:DI is assumed to point to the end of the SE table
  378. ;  First 64 priorities are reserved by Borland
  379. ;------------------------------------------------------------------
  380. PNEAR           EQU     0
  381. PFAR            EQU     1
  382. NOTUSED         EQU     0ffh
  383.  
  384. SE              STRUC
  385. calltype        db      ?                       ; 0=near,1=far,ff=not used
  386. priority        db      ?                       ; 0=highest,ff=lowest
  387. addrlow         dw      ?
  388. addrhigh        dw      ?
  389. SE              ENDS
  390.  
  391. Initialize      proc near
  392. @@Start:        mov     ax,100h                 ;start with lowest priority
  393.                 mov     dx,di                   ;set sentinel to end of table
  394.                 mov     bx,si                   ;bx = start of table
  395.  
  396. @@TopOfTable:   cmp     bx,di                   ;and the end of the table?
  397.                 je      @@EndOfTable            ;yes, exit the loop
  398.                 cmp     es:[bx.calltype],NOTUSED;check the call type
  399.                 je      @@Next
  400.                 mov     cl, es:[bx.priority]    ;move priority to CX
  401.                 xor     ch, ch
  402.                 cmp     cx,ax                   ;check the priority
  403.                 jae     @@Next                  ;too high?  skip
  404.                 mov     ax,cx                   ;keep priority
  405.                 mov     dx,bx                   ;keep index in dx
  406. @@Next:         add     bx,SIZE SE              ;bx = next item in table
  407.                 jmp     @@TopOfTable
  408.  
  409. @@EndOfTable:   cmp     dx,di                   ;did we exhaust the table?
  410.                 je      @@Done                  ;yes, quit
  411.                 mov     bx,dx                   ;bx = highest priority item
  412.                 cmp     es:[bx.calltype],PNEAR  ;is it near or far?
  413.                 mov     es:[bx.calltype],NOTUSED;wipe the call type
  414.                 push    es                      ;save es
  415.                 je      @@NearCall
  416.  
  417. @@FarCall:      call    DWORD PTR es:[bx.addrlow]
  418.                 pop     es                      ;restore es
  419.                 jmp     short @@Start
  420.  
  421. @@NearCall:     call    WORD PTR es:[bx.addrlow]
  422.                 pop     es                      ;restore es
  423.                 jmp     short @@Start
  424.  
  425. @@Done:         ret
  426.                 endp
  427.  
  428. Cleanup         proc near
  429. @@Start:        mov     ah,0                    ;start with highest priority
  430.                 mov     dx,di                   ;set sentinel to end of table
  431.                 mov     bx,si                   ;bx = start of table
  432.  
  433. @@TopOfTable:   cmp     bx,di                   ;and the end of the table?
  434.                 je      @@EndOfTable            ;yes, exit the loop
  435.                 cmp     es:[bx.calltype],NOTUSED;check the call type
  436.                 je      @@Next
  437.                 cmp     es:[bx.priority],ah     ;check the priority
  438.                 jb      @@Next                  ;too low?  skip
  439.                 mov     ah,es:[bx.priority]     ;keep priority
  440.                 mov     dx,bx                   ;keep index in dx
  441. @@Next:         add     bx,SIZE SE              ;bx = next item in table
  442.                 jmp     @@TopOfTable
  443.  
  444. @@EndOfTable:   cmp     dx,di                   ;did we exhaust the table?
  445.                 je      @@Done                  ;yes, quit
  446.                 mov     bx,dx                   ;bx = highest priority item
  447.                 cmp     es:[bx.calltype],PNEAR  ;is it near or far?
  448.                 mov     es:[bx.calltype],NOTUSED;wipe the call type
  449.                 push    es                      ;save es
  450.                 je      @@NearCall
  451.  
  452. @@FarCall:      call    DWORD PTR es:[bx.addrlow]
  453.                 pop     es                      ;restore es
  454.                 jmp     short @@Start
  455.  
  456. @@NearCall:     call    WORD PTR es:[bx.addrlow]
  457.                 pop     es                      ;restore es
  458.                 jmp     short @@Start
  459.  
  460. @@Done:         ret
  461.                 endp
  462.  
  463.                 ends
  464.                 end LibEntry
  465.