home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c082_122 / 7.ddi / STARTUP.ZIP / C0W.ASM < prev    next >
Encoding:
Assembly Source File  |  1992-06-10  |  12.5 KB  |  372 lines
  1. ;[]------------------------------------------------------------[]
  2. ;|      C0W.ASM -- Start Up Code For Windows                    |
  3. ;[]------------------------------------------------------------[]
  4.  
  5. ;
  6. ;       C/C++ Run Time Library - Version 5.0
  7. ; 
  8. ;       Copyright (c) 1991, 1992 by Borland International
  9. ;       All Rights Reserved.
  10. ; 
  11.  
  12.                 locals
  13.  
  14.                 __C0__ = 1
  15. include         RULES.ASI
  16.  
  17.                 ASSUME CS:_TEXT, DS:DGROUP
  18.  
  19.                 public  __acrtused              ;satisfy MS for now
  20. __acrtused      equ     0
  21.  
  22. extrn           WINMAIN:DIST
  23. extrn           INITAPP:far
  24. extrn           INITTASK:far
  25. extrn           FATALEXIT:far
  26. extrn           WAITEVENT:far
  27. extrn           LOCKSEGMENT:far
  28. extrn           UNLOCKSEGMENT:far
  29. extrn           GETWINFLAGS:far
  30. extrn           _exit:DIST
  31. extrn           __exitbuf:DIST
  32. extrn           __exitfopen:DIST
  33. extrn           __exitopen:DIST
  34. extrn           __setupio:near                  ;required!
  35.  
  36. NULL            segment
  37.                 db      16 dup (?)
  38.                 ends
  39.  
  40. _CVTSEG         segment
  41.                 public __RealCvtVector
  42. __RealCvtVector label word
  43.                 ends
  44.  
  45. _SCNSEG         segment
  46.                 public __ScanTodVector
  47. __ScanTodVector label word
  48.                 ends
  49.  
  50. _FPSEG          segment
  51.                 public __FPVector
  52. __FPVector      dd      0
  53.                 ends
  54.  
  55. _DATA           segment
  56.                 public _errno
  57. _errno          dw      0
  58.                 public __protected
  59. __protected     dw      0
  60.                 public __8087
  61. __8087          dw      0
  62.                 public __psp
  63. __psp           dw      0
  64.                 public __hInstance
  65. __hInstance     dw      0
  66.                 public __hPrev
  67. __hPrev         dw      0
  68.                 public __pszCmdline
  69. __pszCmdline    dw      0
  70.                 public __cmdShow
  71. __cmdShow       dw      0
  72.                 public __StartTime
  73. __StartTime     dd      0
  74.                 public __version
  75. __version       label word
  76.                 public __osversion
  77. __osversion     label word
  78.                 public __osmajor
  79. __osmajor       db      0
  80.                 public __osminor
  81. __osminor       db      0
  82.                 public __osmode         ;Used for OS/2 protected mode by MS,
  83. __osmode        db      0               ;currently set to 0 under Windows
  84.                 public __WinAllocFlag   ;Used by malloc to get additional flags
  85. __WinAllocFlag  dw      0               ;to pass to GlobalAlloc (for DLL use)
  86.                 public __LockWIN87EM    ;Used do lock down WIN87EM to avoid
  87. __LockWIN87EM   dw      1               ;DLL unload ordering problem
  88.  
  89. CopyRight       db      'Borland C++ - Copyright 1991 Borland Intl.',0
  90.                 ends
  91.  
  92. _TEXT           segment
  93.  
  94. Main            proc near
  95.  
  96. ;Windows initialization.  Sets up registers and stack.
  97.  
  98.                 ;INITTASK returns:
  99.                 ;  'Failure:
  100.                 ;    AX = zero if it failed
  101.                 ;  Success:
  102.                 ;    AX = 1
  103.                 ;    CX = stack limit
  104.                 ;    DX = cmdShow parameter to CreateWindow
  105.                 ;    ES:BX = -> DOS format command line (ES = PSP address)
  106.                 ;    SI = hPrevinstance
  107.                 ;    DI = hinstance
  108.                 call    INITTASK
  109.                 or      ax,ax
  110.                 jnz     @@OK
  111.                 jmp     @@Fail
  112. @@OK:           mov     __psp,es
  113.                 mov     word ptr __pszCmdline,bx
  114.                 mov     __hPrev,si
  115.                 mov     __hInstance,di
  116.                 mov     __cmdShow,dx
  117.  
  118. IF LDATA EQ false
  119.                 mov     ax,-1
  120.                 push    ax
  121.                 call    LOCKSEGMENT
  122. ENDIF
  123.  
  124. ;Clear _BSS, uninitialized data area
  125.  
  126. IFNDEF  __HUGE__
  127.                 xor     ax, ax
  128.                 push    ds
  129.                 pop     es
  130.                 mov     di,offset DGROUP:BeginBSS
  131.                 mov     cx,offset DGROUP:EndBSS
  132.                 sub     cx,di
  133.                 cld
  134.                 rep
  135.                 stosb
  136. ENDIF
  137.  
  138. ;Init the Windows App
  139.  
  140.                 xor     ax,ax
  141.                 push    ax
  142.                 call    WAITEVENT
  143.                 push    __hInstance
  144.                 call    INITAPP
  145.                 or      ax,ax
  146.                 jnz     @@InitOK
  147.                 jmp     @@Fail
  148. @@InitOK:
  149.  
  150. ;Save start time of App
  151.  
  152.                 mov     ah, 0
  153.                 int     1ah             ; get current BIOS time in ticks
  154.                 mov     word ptr __StartTime,dx ; save it for clock() fn
  155.                 mov     word ptr __StartTime+2,cx
  156.                 or      al,al                   ; was midnight flag set?
  157.                 jz      @@NotMidnight
  158.                 mov     ax,40h                  ; set BIOS midnight flag
  159.                 mov     es,ax                   ;  at 40:70
  160.                 mov     bx,70h
  161.                 mov     byte ptr es:[bx],1
  162. @@NotMidnight:
  163.  
  164. ;Determine DOS version
  165.  
  166.                 mov     ah, 30h
  167.                 int     21h
  168.                 mov     __version, ax   ; save minor and major revision
  169.  
  170. ;Determine whether we are in protected mode
  171.  
  172.                 call    GETWINFLAGS
  173.                 test    ax,1            ; WF_PMODE = 1
  174.                 jz      @@realmode      ; Note:  GETWINFLAGS returns a long,
  175.                                         ; so if WF_PMODE changed it could be
  176.                                         ; in the high word.
  177.                 mov     __protected, 8  ; Eight is for convenience.
  178. @@realmode:
  179.  
  180. ;Test for 8087 presence
  181.  
  182.                 test    dx,04h          ; WF_8087 = 0x0400
  183.                 jz      @@no8087
  184.                 mov     __8087, 1
  185. @@no8087:
  186.  
  187. ;Call our initialization functions, including C++ static constructors.
  188.  
  189.                 mov     ax,ds
  190.                 mov     es,ax
  191.                 mov     si,offset DGROUP:InitStart      ;si = start of table
  192.                 mov     di,offset DGROUP:InitEnd        ;di = end of table
  193.                 call    Initialize
  194.  
  195. ;Set up and call WinMain
  196.  
  197.                 push    __hInstance
  198.                 push    __hPrev
  199.                 push    __psp
  200.                 push    word ptr __pszCmdline
  201.                 push    __cmdShow
  202.                 call    WINMAIN
  203.                 push    ax
  204.                 call    _exit
  205.  
  206. ;---------------------------------------------------------------------------
  207. ;       _cleanup()      call all #pragma exit cleanup routines.
  208. ;       _checknull()    check for null pointer zapping copyright message
  209. ;       _terminate(int) exit program with error code
  210. ;       _restorezero()  restore interrupt vectors
  211. ;
  212. ;       These functions are called by exit(), _exit(), _cexit(),
  213. ;       and _c_exit().
  214. ;---------------------------------------------------------------------------
  215.  
  216. ;       Call cleanup routines
  217.  
  218. __cleanup       PROC    DIST
  219.                 PUBLIC  __cleanup
  220.  
  221.                 mov     ax,ds
  222.                 mov     es,ax
  223.                 push    si
  224.                 push    di
  225.                 mov     si,offset DGROUP:ExitStart
  226.                 mov     di,offset DGROUP:ExitEnd
  227.                 call    Cleanup
  228.                 pop     di
  229.                 pop     si
  230.                 ret
  231. __cleanup       ENDP
  232.  
  233. ;       Check for null pointers before exit.  NO-OP on Windows.
  234.  
  235. __checknull     PROC    DIST
  236.                 PUBLIC  __checknull
  237.                 ret
  238. __checknull     ENDP
  239.  
  240. ;       Restore grabbed interrupt vectors.  NO-OP on Windows.
  241.  
  242. __restorezero     PROC    DIST
  243.                 PUBLIC  __restorezero
  244.                 ret
  245. __restorezero     ENDP
  246.  
  247. ;       Exit to DOS
  248.  
  249. __terminate     PROC    DIST
  250.                 PUBLIC  __terminate
  251.  
  252. IF LDATA EQ false
  253.                 mov     ax,-1
  254.                 push    ax
  255.                 call    UNLOCKSEGMENT
  256. ENDIF
  257.                 mov     bp,sp
  258.                 mov     al,[bp+cPtrSize]
  259.                 mov     ah,4ch                  ;exit
  260.                 int     21h
  261. __terminate     ENDP
  262.  
  263. @@Fail:         mov     al,0ffh
  264.                 push    ax
  265.                 call    _exit
  266.  
  267.                 mov     ah,4ch                  ;exit
  268.                 int     21h
  269.                 endp
  270.  
  271. ;       Return default data segment in AX
  272.  
  273. __GetDGROUP     PROC    FAR
  274.                 PUBLIC  __GetDGROUP
  275.                 mov     ax, ss
  276.                 ret
  277.                 endp
  278.  
  279. ;------------------------------------------------------------------
  280. ;  Loop through a startup/exit (SE) table,
  281. ;  calling functions in order of priority.
  282. ;  ES:SI is assumed to point to the beginning of the SE table
  283. ;  ES:DI is assumed to point to the end of the SE table
  284. ;  First 64 priorities are reserved by Borland
  285. ;------------------------------------------------------------------
  286. PNEAR           EQU     0
  287. PFAR            EQU     1
  288. NOTUSED         EQU     0ffh
  289.  
  290. SE              STRUC
  291. calltype        db      ?                       ; 0=near,1=far,ff=not used
  292. priority        db      ?                       ; 0=highest,ff=lowest
  293. addrlow         dw      ?
  294. addrhigh        dw      ?
  295. SE              ENDS
  296.  
  297. Initialize      proc near
  298. @@Start:        mov     ax,100h                 ;start with lowest priority
  299.                 mov     dx,di                   ;set sentinel to end of table
  300.                 mov     bx,si                   ;bx = start of table
  301.  
  302. @@TopOfTable:   cmp     bx,di                   ;and the end of the table?
  303.                 je      @@EndOfTable            ;yes, exit the loop
  304.                 cmp     es:[bx.calltype],NOTUSED;check the call type
  305.                 je      @@Next
  306.                 mov     cl, es:[bx.priority]    ;move priority to CX
  307.                 xor     ch, ch
  308.                 cmp     cx,ax                   ;check the priority
  309.                 jae     @@Next                  ;too high?  skip
  310.                 mov     ax,cx                   ;keep priority
  311.                 mov     dx,bx                   ;keep index in dx
  312. @@Next:         add     bx,SIZE SE              ;bx = next item in table
  313.                 jmp     @@TopOfTable
  314.  
  315. @@EndOfTable:   cmp     dx,di                   ;did we exhaust the table?
  316.                 je      @@Done                  ;yes, quit
  317.                 mov     bx,dx                   ;bx = highest priority item
  318.                 cmp     es:[bx.calltype],PNEAR  ;is it near or far?
  319.                 mov     es:[bx.calltype],NOTUSED;wipe the call type
  320.                 push    es                      ;save es
  321.                 je      @@NearCall
  322.  
  323. @@FarCall:      call    DWORD PTR es:[bx.addrlow]
  324.                 pop     es                      ;restore es
  325.                 jmp     short @@Start
  326.  
  327. @@NearCall:     call    WORD PTR es:[bx.addrlow]
  328.                 pop     es                      ;restore es
  329.                 jmp     short @@Start
  330.  
  331. @@Done:         ret
  332.                 endp
  333.  
  334. Cleanup         proc near
  335. @@Start:        mov     ah,0                    ;start with highest priority
  336.                 mov     dx,di                   ;set sentinel to end of table
  337.                 mov     bx,si                   ;bx = start of table
  338.  
  339. @@TopOfTable:   cmp     bx,di                   ;and the end of the table?
  340.                 je      @@EndOfTable            ;yes, exit the loop
  341.                 cmp     es:[bx.calltype],NOTUSED;check the call type
  342.                 je      @@Next
  343.                 cmp     es:[bx.priority],ah     ;check the priority
  344.                 jb      @@Next                  ;too low?  skip
  345.                 mov     ah,es:[bx.priority]     ;keep priority
  346.                 mov     dx,bx                   ;keep index in dx
  347. @@Next:         add     bx,SIZE SE              ;bx = next item in table
  348.                 jmp     @@TopOfTable
  349.  
  350. @@EndOfTable:   cmp     dx,di                   ;did we exhaust the table?
  351.                 je      @@Done                  ;yes, quit
  352.                 mov     bx,dx                   ;bx = highest priority item
  353.                 cmp     es:[bx.calltype],PNEAR  ;is it near or far?
  354.                 mov     es:[bx.calltype],NOTUSED;wipe the call type
  355.                 push    es                      ;save es
  356.                 je      @@NearCall
  357.  
  358. @@FarCall:      call    DWORD PTR es:[bx.addrlow]
  359.                 pop     es                      ;restore es
  360.                 jmp     short @@Start
  361.  
  362. @@NearCall:     call    WORD PTR es:[bx.addrlow]
  363.                 pop     es                      ;restore es
  364.                 jmp     short @@Start
  365.  
  366. @@Done:         ret
  367.                 endp
  368.  
  369.                 ends
  370.  
  371.                 end Main
  372.