Return to ctrl87.c CVS log

Up to [local] / OpenXM_contrib / gnuplot

Annotation of OpenXM_contrib/gnuplot/ctrl87.c, Revision 1.1

1.1     ! maekawa     1: /* $Id: ctrl87.c,v 1.2 1998/03/22 22:31:27 drd Exp $ */
        !             2:
        !             3:
        !             4: /* GNUPLOT - ctrl87.c */
        !             5:
        !             6: /*[
        !             7:  * Copyright 1986 - 1993, 1998   Thomas Williams, Colin Kelley
        !             8:  *
        !             9:  * Permission to use, copy, and distribute this software and its
        !            10:  * documentation for any purpose with or without fee is hereby granted,
        !            11:  * provided that the above copyright notice appear in all copies and
        !            12:  * that both that copyright notice and this permission notice appear
        !            13:  * in supporting documentation.
        !            14:  *
        !            15:  * Permission to modify the software is granted, but not the right to
        !            16:  * distribute the complete modified source code.  Modifications are to
        !            17:  * be distributed as patches to the released version.  Permission to
        !            18:  * distribute binaries produced by compiling modified sources is granted,
        !            19:  * provided you
        !            20:  *   1. distribute the corresponding source modifications from the
        !            21:  *    released version in the form of a patch file along with the binaries,
        !            22:  *   2. add special version identification to distinguish your version
        !            23:  *    in addition to the base release version number,
        !            24:  *   3. provide your name and address as the primary contact for the
        !            25:  *    support of your modified version, and
        !            26:  *   4. retain our contact information in regard to use of the base
        !            27:  *    software.
        !            28:  * Permission to distribute the released version of the source code along
        !            29:  * with corresponding source modifications in the form of a patch file is
        !            30:  * granted with same provisions 2 through 4 for binary distributions.
        !            31:  *
        !            32:  * This software is provided "as is" without express or implied warranty
        !            33:  * to the extent permitted by applicable law.
        !            34: ]*/
        !            35:
        !            36:
        !            37: #define __CONTROL87_C__
        !            38:
        !            39:
        !            40: #include "ctrl87.h"
        !            41:
        !            42:
        !            43: /***** _control87 *****/
        !            44: unsigned short _control87(unsigned short newcw, unsigned short mask)
        !            45: {
        !            46:   unsigned short cw;
        !            47:
        !            48:   asm volatile("                                                    \n\
        !            49:       wait                                                          \n\
        !            50:       fstcw  %0                                                       "
        !            51:       : /* outputs */   "=g" (cw)
        !            52:       : /* inputs */
        !            53:   );
        !            54:
        !            55:   if(mask) { /* mask is not 0 */
        !            56:     asm volatile("                                                  \n\
        !            57:         mov    %2, %%ax                                             \n\
        !            58:         mov    %3, %%bx                                             \n\
        !            59:         and    %%bx, %%ax                                           \n\
        !            60:         not    %%bx                                                 \n\
        !            61:         nop                                                         \n\
        !            62:         wait                                                        \n\
        !            63:         mov    %1, %%dx                                             \n\
        !            64:         and    %%bx, %%dx                                           \n\
        !            65:         or     %%ax, %%dx                                           \n\
        !            66:         mov    %%dx, %0                                             \n\
        !            67:         wait                                                        \n\
        !            68:         fldcw  %1                                                     "
        !            69:         : /* outputs */   "=g" (cw)
        !            70:         : /* inputs */    "g" (cw), "g" (newcw), "g" (mask)
        !            71:         : /* registers */ "ax", "bx", "dx"
        !            72:     );
        !            73:   }
        !            74:
        !            75:   return cw;
        !            76: } /* _control87 */