Petition to rename the Spa Room.

Ungatt Trunn II · October 03, 2009, 11:20:40 PM

Weak is for the weak.

Briar · October 03, 2009, 11:24:53 PM

Mp3

AoU · October 03, 2009, 11:25:48 PM

MP3n15

Briar · October 03, 2009, 11:27:01 PM

Code

Ungatt Trunn II · October 03, 2009, 11:29:13 PM

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

AoU · October 03, 2009, 11:29:29 PM

A very complex code at that.

Briar · October 03, 2009, 11:30:45 PM

Not really

AoU · October 04, 2009, 12:03:23 AM

It was the most complex one I ever wrote.

Briar · October 04, 2009, 12:04:01 AM

You write code?

AoU · October 04, 2009, 12:07:54 AM

if (Briar is being mean) then
execute Briar
else
execute Briar

Briar · October 04, 2009, 12:09:09 AM

*claps*

AoU · October 04, 2009, 12:19:47 AM

I code Actionscript and since my keyboard has reverted to French I cannot find the proper symbols or I`d write something better.

Briar · October 04, 2009, 12:26:09 AM

Why did your keyboard become weak?

AoU · October 04, 2009, 12:27:40 AM

Some sort of defect with laptops that come from Quebec.

Briar · October 04, 2009, 12:29:16 AM

Interesting.