/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation.  All rights reserved. */
/* time: February 21, 1992 11:08:09 pm PST */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: ScaledX, module: ScaledX */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [770320316,1829083746] ScaledX";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
#define SOURCE(p, l) /* source p, l */
#define INEG(x)  ( (word) ( - ((int) (word) (x)) ) )
#define MAX(cast, x, y)  ( ( cast x) > ( cast y) ? (x) : (y) )
#define MIN(cast, x, y)  ( ( cast x) < ( cast y) ? (x) : (y) )
static void NoName_Q2400();
static void ScaledX_P0();
static word FromInt_P60();
static word PLUS_P120();
static word MINUS_P180();
static word UMINUS_P240();
static word GREATER_P300();
static word LESS_P360();
static word Max_P420();
static word Min_P480();
static word Floor_P540();
static word Ceiling_P600();
static word Round_P660();
static word Float_P720();
static word FromReal_P780();
static word Halve_P840();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\055\352\047\274\300\155\005\232\142\100\164\000\000"};
static struct {unsigned f; char r[16];} string2 = {851984, "\257\300\346\312\312\137\300\332\074\046\072\100\150\000\000"};
static struct {
   word f0[4]; word f4; word f5; word f6; 
   word f7; word f8; word f9; word f10; 
   word f11; word f12; word f13; word f14; 
   word f15; word f16; word f17; word f18; 
   word f19; word f20; word f21; word f22; 
   word f23; word f24; word f25; word f26; 
   word f27; word f28; word f29; word f30; 
   word f31; word f32; word f33[2]; 
   } globalframe = {
   {0}, (word) Halve_P840, 0, (word) FromReal_P780, 
   0, (word) Float_P720, 0, (word) Round_P660, 
   0, (word) Ceiling_P600, 0, (word) Floor_P540, 
   0, (word) Min_P480, 0, (word) Max_P420, 
   0, (word) LESS_P360, 0, (word) GREATER_P300, 
   0, (word) UMINUS_P240, 0, (word) MINUS_P180, 
   0, (word) PLUS_P120, 0, (word) FromInt_P60, 
   0, (word) ScaledX_P0, {0}
   };

static void NoName_Q2400()
   {
   register ptr gf_c070 =  (ptr) &globalframe;
   word var_c11876;
   (void) XR_DeclareGlobalFrame((word) "ScaledX", &globalframe, (word) XR_GetTypeIndexS((word) (&string1)), (word) (( (bPt) gf_c070)+128)
      /* var_c11108 */ );
   var_c11876 = (word) XR_ImportInterface((word) "Scaled", (word) XR_GetTypeIndexS((word) (&string2)), 19);
   (* (( (ptr) gf_c070)+34)/* var_c11780 */  ) = var_c11876;
   (void) XR_ImportProcS(var_c11876, 67375617);
   (void) XR_ImportProcS(var_c11876, 67371777);
   (void) XR_ImportProcS(var_c11876, 67375105);
   }

static void ScaledX_P0(formal_c019, formal_c018)
   word formal_c019;
   word formal_c018;
   {
   /* ScaledX: */ 
   }

static word FromInt_P60(int_v2912)
   word int_v2912;
   {
   word var_c2956;
   /* FromInt: */ 
SOURCE(94, 75)
SOURCE(142, 27)
   return((int_v2912 << 16));
   }

static word PLUS_P120(a_v3016, b_v3044)
   word a_v3016;
   word b_v3044;
   {
   word var_c3088;
   /* PLUS: */ 
SOURCE(172, 69)
SOURCE(216, 25)
   {
      word var_c11172;
      {
         word i_v6116;
         i_v6116 = (a_v3016 + b_v3044);
         var_c11172 = i_v6116;
         };
      return(var_c11172);
      };
   }

static word MINUS_P180(a_v3148, b_v3176)
   word a_v3148;
   word b_v3176;
   {
   word var_c3220;
   /* MINUS: */ 
SOURCE(244, 71)
SOURCE(289, 26)
   {
      word var_c11236;
      {
         word i_v6892;
         i_v6892 = (a_v3148 - b_v3176);
         var_c11236 = i_v6892;
         };
      return(var_c11236);
      };
   }

static word UMINUS_P240(a_v3280)
   word a_v3280;
   {
   word var_c3324;
   /* UMINUS: */ 
SOURCE(318, 67)
SOURCE(361, 24)
   {
      word var_c11300;
      {
         word i_v7364;
         i_v7364 = INEG(a_v3280);
         var_c11300 = i_v7364;
         };
      return(var_c11300);
      };
   }

static word GREATER_P300(a_v3384, b_v3412)
   word a_v3384;
   word b_v3412;
   {
   word var_c3456;
   /* GREATER: */ 
SOURCE(388, 77)
SOURCE(437, 28)
   return(( (int)a_v3384 >  (int)b_v3412));
   }

static word LESS_P360(a_v3516, b_v3544)
   word a_v3516;
   word b_v3544;
   {
   word var_c3588;
   /* LESS: */ 
SOURCE(468, 71)
SOURCE(514, 25)
   return(( (int)a_v3516 <  (int)b_v3544));
   }

static word Max_P420(a_v3648, b_v3676)
   word a_v3648;
   word b_v3676;
   {
   word var_c3720;
   /* Max: */ 
SOURCE(542, 67)
SOURCE(585, 24)
   {
      word var_c11364;
      {
         word i_v8300;
         i_v8300 = (MAX((int)(word), a_v3648, b_v3676));
         var_c11364 = i_v8300;
         };
      return(var_c11364);
      };
   }

static word Min_P480(a_v3780, b_v3808)
   word a_v3780;
   word b_v3808;
   {
   word var_c3852;
   /* Min: */ 
SOURCE(612, 67)
SOURCE(655, 24)
   {
      word var_c11428;
      {
         word i_v8644;
         i_v8644 = (MIN((int)(word), a_v3780, b_v3808));
         var_c11428 = i_v8644;
         };
      return(var_c11428);
      };
   }

static word Floor_P540(a_v3912)
   word a_v3912;
   {
   word var_c3956;
   /* Floor: */ 
SOURCE(682, 67)
SOURCE(726, 23)
   return( (word)( (int)a_v3912 >> 16));
   }

static word Ceiling_P600(a_v4016)
   word a_v4016;
   {
   word var_c4060;
   /* Ceiling: */ 
SOURCE(752, 71)
SOURCE(798, 25)
   {
      word var_c11492;
      {
         word a_v9356;
         {
            word i_v9624;
            i_v9624 = (a_v4016 + 65535);
            a_v9356 = i_v9624;
            };
         var_c11492 =  (word)( (int)a_v9356 >> 16);
         };
      return(var_c11492);
      };
   }

static word Round_P660(a_v4120)
   word a_v4120;
   {
   word var_c4164;
   /* Round: */ 
SOURCE(826, 67)
SOURCE(870, 23)
   {
      word var_c11620;
      {
         word a_v9980;
         {
            word i_v10012;
            i_v10012 = (a_v4120 + 32768);
            a_v9980 = i_v10012;
            };
         var_c11620 =  (word)( (int)a_v9980 >> 16);
         };
      return(var_c11620);
      };
   }

static word Float_P720(a_v4224)
   word a_v4224;
   {
   register ptr gf_c11908 =  (ptr) &globalframe;
   word var_c4268;
   /* Float: */ 
SOURCE(896, 64)
SOURCE(937, 23)
   {
      word pd3;
      pd3 = (* (( (ptr) (* (( (ptr) gf_c11908)+34)/* var_c11780 */  ))+20) );
      return((word) ( *( (fPt) ((*  (ptr) pd3 ))))(a_v4224, pd3));
      };
   }

static word FromReal_P780(real_v4328)
   word real_v4328;
   {
   register ptr gf_c11940 =  (ptr) &globalframe;
   word var_c4372;
   /* FromReal: */ 
SOURCE(963, 76)
SOURCE(1010, 29)
   {
      word pd4;
      pd4 = (* (( (ptr) (* (( (ptr) gf_c11940)+34)/* var_c11780 */  ))+7) );
      return((word) ( *( (fPt) ((*  (ptr) pd4 ))))(real_v4328, pd4));
      };
   }

static word Halve_P840(a_v4432)
   word a_v4432;
   {
   register ptr gf_c11972 =  (ptr) &globalframe;
   word var_c4476;
   /* Halve: */ 
SOURCE(1042, 65)
SOURCE(1084, 23)
   {
      word pd5;
      pd5 = (* (( (ptr) (* (( (ptr) gf_c11972)+34)/* var_c11780 */  ))+22) );
      return((word) ( *( (fPt) ((*  (ptr) pd5 ))))(a_v4432, pd5));
      };
   }

/* file: ScaledX, module: ScaledX, compiled at: February 21, 1992 11:08:09 pm PST */ 
extern void XR_install_ScaledX() {
   NoName_Q2400();
   }
extern void XR_run_ScaledX() { XR_Start(&globalframe); }