NAME  SOD.sit 1.4MB MAC SOD.zip 746K PC 
              BCD.sit 1.2MB MAC BCD.zip 758K PC 
        LOCALS -
;[]------------------------------------------------------------[]
;|      C0.ASM -- start Up Code                                 |
;|                                                              |
;|      Turbo C++ Run Time Library                              |
;|                                                              |
;|      Copyright (c) 1987, 1991 by Borland International Inc.  |
;|      All Rights Reserved.                                    |
;[]------------------------------------------------------------[]

                __C0__ = 1
INCLUDE         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'
                ENDS
IFNDEF __TINY__
_OVERLAY_       SEGMENT PARA PUBLIC 'OVRINFO'
        ENDS
_1STUB_     SEGMENT PARA PUBLIC 'STUBSEG'
        ENDS
ENDIF
_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'
                ENDS
IFNDEF __HUGE__
  _BSS          SEGMENT WORD PUBLIC 'BSS'
                ENDS
  _BSSEND       SEGMENT BYTE PUBLIC 'BSSEND'
                ENDS
ENDIF
IFNDEF __TINY__
  _STACK        SEGMENT STACK 'STACK'
                ENDS
ENDIF

        ASSUME  CS:_TEXT, DS:DGROUP

;       External References

extrn       _main:DIST
extrn       _exit:DIST
extrn       __exit:DIST
extrn       __nfile:word
extrn       __setupio:near          ;required!
extrn       __stklen:word
IF LDATA EQ false
extrn       __heaplen:word
ENDIF

        SUBTTL  start Up Code
        PAGE
;/*                                                     */
;/*-----------------------------------------------------*/
;/*                                                     */
;/*     start Up Code                                   */
;/*     -------------                                   */
;/*                                                     */
;/*-----------------------------------------------------*/
;/*                                                     */
PSPHigh         equ     00002h
PSPEnv          equ     0002ch
PSPCmd          equ     00080h

                PUBLIC  __AHINCR
__AHINCR        equ     1000h
                PUBLIC  __AHSHIFT
__AHSHIFT       equ     12

IFDEF   __NOFLOAT__
MINSTACK        equ     128     ; minimal stack size in words
else
MINSTACK        equ     256     ; minimal stack size in words
ENDIF
;
;       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           SEGMENT
IFDEF           __TINY__
                ORG     100h
ENDIF
startX          PROC    NEAR
;       Save general information, such as :
;               DGROUP SEGMENT address
;               DOS version number
;               Program SEGMENT Prefix address
;               Environment address
;               Top of far heap

IFDEF   __TINY__
				mov     dx, cs          ; DX = GROUP SEGMENT address
else
				mov     dx, DGROUP      ; DX = GROUP SEGMENT address
ENDIF
IFNDEF	__BOSS__
				mov     cs:DGROUP@@, dx ;  __BOSS__
ENDIF
				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

		.286P
IFE	LDATA					
		mov	dx, ds			;
;		LSL	ax, DX			;
;		DEC	ax			;
		mov	ax, 0FFFEh		;
		mov	SP, ax			;
		mov	SS, DX			;
ENDIF						
		.8086
;		JMP	BossSkip

InRealMode	label	near

ENDIF

;       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     InitOK
InitFailed:     jmp     near ptr _abort
InitOK:
ENDIF
     
                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 keep

IFDEF _DSSTACK_
                mov     dx, ds
else
                mov     dx, ss
ENDIF
                sub     bp, dx          ; BP = remaining size in PARAgraphs
IF LDATA
                mov     di, seg __stklen
                mov     es, di
                mov     di, es:__stklen ; DI = Requested stack size
else
                mov     di, __stklen    ; DI = Requested stack size
ENDIF