add fstatus.inc

git-svn-id: svn://kolibrios.org@702 a494cfbc-eb01-0410-851d-a64ba20cac60
2008-01-24 10:35:28 +00:00
parent 275695e8c3
commit 616f769298
13 changed files with 3584 additions and 2667 deletions
--- a/watcom/trunk/clib/fpu/env387.inc
+++ b/watcom/trunk/clib/fpu/env387.inc
@@ -0,0 +1,50 @@
+;*****************************************************************************
+;*
+;*                            Open Watcom Project
+;*
+;*    Portions Copyright (c) 1983-2002 Sybase, Inc. All Rights Reserved.
+;*
+;*  ========================================================================
+;*
+;*    This file contains Original Code and/or Modifications of Original
+;*    Code as defined in and that are subject to the Sybase Open Watcom
+;*    Public License version 1.0 (the 'License'). You may not use this file
+;*    except in compliance with the License. BY USING THIS FILE YOU AGREE TO
+;*    ALL TERMS AND CONDITIONS OF THE LICENSE. A copy of the License is
+;*    provided with the Original Code and Modifications, and is also
+;*    available at www.sybase.com/developer/opensource.
+;*
+;*    The Original Code and all software distributed under the License are
+;*    distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
+;*    EXPRESS OR IMPLIED, AND SYBASE AND ALL CONTRIBUTORS HEREBY DISCLAIM
+;*    ALL SUCH WARRANTIES, INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF
+;*    MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR
+;*    NON-INFRINGEMENT. Please see the License for the specific language
+;*    governing rights and limitations under the License.
+;*
+;*  ========================================================================
+;*
+;* Description:  WHEN YOU FIGURE OUT WHAT THIS FILE DOES, PLEASE
+;*               DESCRIBE IT HERE!
+;*
+;*****************************************************************************
+
+
+; Define 80387 environment:
+; ========================
+;
+;    ---------------<--- offsets relative  to here
+;    |             | stack grows
+;    |             |  this way
+;    |             |     /|\
+;    |             |      |
+;    |             |
+;    ---------------
+
+ENV_SIZE      equ 28       ; size of buffer required for 80387 environment
+
+ENV_CW        equ 0        ; control word
+ENV_SW        equ 4        ; status word
+ENV_TW        equ 8        ; tag word
+ENV_IP        equ 12       ; instruction pointer
+ENV_OP        equ 20       ; operand pointer