<PRE><PRE><PRE>        NAME  <U>SOD.sit 1.4MB MAC</U> <U>SOD.zip 746K PC </U>              <U>BCD.sit 1.2MB MAC</U> <U>BCD.zip 758K PC </U>        LOCALS <U>-</U>;[]------------------------------------------------------------[];|      C0.ASM -- <U>start</U> Up Code                                 |;|                                                              |;|      Turbo C++ Run Time Library                              |;|                                                              |;|      Copyright (c) 1987, 1991 by Borland International Inc.  |;|      All Rights Reserved.                                    |;[]------------------------------------------------------------[]                __C0__ = 1<U>INCLUDE</U>         RULES.ASI;       SEGMENT and Group declarations_TEXT           SEGMENT BYTE PUBLIC \'CODE\'                ENDS_FARDATA        SEGMENT PARA PUBLIC \'FAR_DATA\'                ENDS_FARBSS         SEGMENT PARA PUBLIC \'FAR_BSS\'                ENDSIFNDEF __TINY___OVERLAY_       SEGMENT PARA PUBLIC \'OVRINFO\'        ENDS_1STUB_     SEGMENT PARA PUBLIC \'STUBSEG\'        ENDS<U>ENDIF</U>_DATA           SEGMENT PARA PUBLIC \'DATA\'                ENDS_INIT_          SEGMENT WORD PUBLIC \'INITDATA\'Initstart       label byte                ENDS_INITEND_       SEGMENT BYTE PUBLIC \'INITDATA\'InitEnd         label byte                ENDS_EXIT_          SEGMENT WORD PUBLIC \'EXITDATA\'Exitstart       label byte                ENDS_EXITEND_       SEGMENT BYTE PUBLIC \'EXITDATA\'ExitEnd         label byte                ENDS_CVTSEG         SEGMENT WORD PUBLIC \'DATA\'                ENDS_SCNSEG         SEGMENT WORD PUBLIC \'DATA\'                ENDSIFNDEF __HUGE__  _BSS          SEGMENT WORD PUBLIC \'BSS\'                ENDS  _BSSEND       SEGMENT BYTE PUBLIC \'BSSEND\'                ENDS<U>ENDIF</U>IFNDEF __TINY__  _STACK        SEGMENT STACK \'STACK\'                ENDS<U>ENDIF</U>        ASSUME  CS:_TEXT, DS:DGROUP;       External Referencesextrn       _main:DISTextrn       _exit:DISTextrn       __exit:DISTextrn       __nfile:wordextrn       __setupio:near          ;required!extrn       __stklen:wordIF LDATA EQ falseextrn       __heaplen:word<U>ENDIF</U>        SUBTTL  start Up Code        PAGE;/*                                                     */;/*-----------------------------------------------------*/;/*                                                     */;/*     start Up Code                                   */;/*     -------------                                   */;/*                                                     */;/*-----------------------------------------------------*/;/*                                                     */PSPHigh         equ     00002hPSPEnv          equ     0002chPSPCmd          equ     00080h                PUBLIC  __AHINCR__AHINCR        equ     1000h                PUBLIC  __AHSHIFT__AHSHIFT       equ     12IFDEF   __NOFLOAT__MINSTACK        equ     128     ; minimal stack size in wordselseMINSTACK        equ     256     ; minimal stack size in words<U>ENDIF</U>;;       At the start, DS and ES both point to the SEGMENT prefix.;       SS points to the stack SEGMENT except in TINY model where;       SS is equal to CS;_TEXT           SEGMENTIFDEF           __TINY__                ORG     100h<U>ENDIF</U>startX          PROC    NEAR;       Save general information, such as :;               DGROUP SEGMENT address;               DOS version number;               Program SEGMENT Prefix address;               Environment address;               Top of far heapIFDEF   __TINY__                                mov     dx, cs          ; DX = GROUP SEGMENT addresselse                                mov     dx, DGROUP      ; DX = GROUP SEGMENT address<U>ENDIF</U>IFNDEF        __BOSS__                                mov     cs:DGROUP@@, dx ;  __BOSS__<U>ENDIF</U>                                mov     ah, 30h                                int     21h             ; get DOS version number                                mov     bp, ds:[PSPHigh]; BP = Highest Memory SEGMENT Addr                                mov     bx, ds:[PSPEnv] ; BX = Environment SEGMENT address                                mov     ds, dx                                mov     _version@, ax   ; Keep major and minor version number                                mov     _psp@, es       ; Keep Program SEGMENT Prefix address                                mov     _envseg@, bx    ; Keep Environment SEGMENT address                                mov     word ptr _heaptop@ + 2, bp;;       Save several vectors and install default divide by zero handler.;                                call    SaveVectors;===================;;                 IDsoft - Check to make sure that we\'re running on a 286 or better                                pushf                                        ; Save original flags                                xor                ax,ax                        ; Clear ax                                push        ax                                popf                                        ; Try to pop the 0                                pushf                                pop                ax                                ; Get results of popping 0 into flags                                popf                                        ; Restore original flags                                or                ax,ax                                jns                @@Have286                ; If no sign bit, have a 286                                mov     cx, lgth_no286MSG                                mov     dx, offset DGROUP: no286MSG                                jmp                MsgExit3@@Have286:;                IDsoft - End of modifications (there\'s also a code SEGMENT string);;===================IFDEF        __BOSS__; Determine if in real mode                        mov        ax,0FB42h        ; find out if DPMI loader is here                mov        bx,1                ; get info function                int        2fh                ;                push        ax                ;                mov        ax, cs                ; now, save DGROUP                add        ax, cx                ;                mov        es, ax                ;                mov        dx, ds                ;                mov        es:DGROUP@@, dx         ;                mov        es:CSalias@@, ax ;                pop        ax                 ;;                point        ax,0001h        ; if not "TRUE";                JNE        InRealMode; 8 is the value of the alias selector; in this system                mov        _protected@, cx                mov        _hugeincval@, cx                clc                mov        ax, cx                xor        cx, cx                or        ax, ax                je        @@gotshift@@shiftcnt:                rcr        ax,1                jc        @@gotshift                inc        cx                jmp        @@shiftcnt@@gotshift:                mov        _shiftcount@,cx; used by emulator;                push        DS;                mov        ax, 0E502H      ; prot kernel function, get LDT alias;                INT        21H;                POP        DS;                mov        _LDT@, ax;                point        _protected@,0001h        ; if not "TRUE";                JNE        InRealMode                .286PIFE        LDATA                                                        mov        dx, ds                        ;;                LSL        ax, DX                        ;;                DEC        ax                        ;                mov        ax, 0FFFEh                ;                mov        SP, ax                        ;                mov        SS, DX                        ;<U>ENDIF</U>                                                                .8086;                JMP        BossSkipInRealMode        label        near<U>ENDIF</U>;       Count the number of environment variables and compute the size.;       Each variable is ended by a 0 and a zero-length variable stops;       the environment. The environment can NOT be greater than 32k.                les     di, dword ptr _envLng@                mov     ax, di                mov     bx, ax                mov     cx, 07FFFh      ; Environment cannot be > 32 Kbytes                cld@@EnvLoop:                repnz   scasb                jcxz    InitFailed      ; Bad environment !!!IFDEF __BOSS__                jmp     InitOKInitFailed:     jmp     near ptr _abortInitOK:<U>ENDIF</U>                     inc     bx              ; BX = Nb environment variables                point     es:[di], al                jne     @@EnvLoop       ; Next variable ...                or      ch, 10000000b                neg     cx                mov     _envLng@, cx    ; Save Environment size                mov     cx, dPtrSize / 2                shl     bx, cl                add     bx, dPtrSize * 4                and     bx, not ((dPtrSize * 4) - 1)                mov     _envSize@, bx   ; Save Environment Variables Nb.IFNDEF __BOSS__;       Determine the amount of memory that we need to keepIFDEF _DSSTACK_                mov     dx, dselse                mov     dx, ss<U>ENDIF</U>                sub     bp, dx          ; BP = remaining size in PARAgraphsIF LDATA                mov     di, seg __stklen                mov     es, di                mov     di, es:__stklen ; DI = Requested stack sizeelse                mov     di, __stklen    ; DI = Requested stack size<U>ENDIF</U></PRE></PRE></PRE>