/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation.  All rights reserved. */
/* time: November 1, 1993 3:45:04 pm PST */
/* C2C version: April 20, 1993 (sun4) */
/* ref-counting: off */
/* file: CIIHTDImpl, module: CIIHTDImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [1125203234,959776729] CIIHTDImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7;
typedef W7 *W7Pt;
typedef word (*fPt)();
typedef struct {word f0, f1;} W2;
typedef W2 *W2Pt;
typedef struct {word f0, f1, f2, f3;} W4;
typedef W4 *W4Pt;
typedef struct {word f0, f1, f2;} W3;
typedef W3 *W3Pt;
#define SOURCE(p, l) /* source p, l */
static float fc17 = 1.0;
#define SGNCK(i) ((int) (word) (i) < 0 ? XR_RaiseArithmeticFault(): i )
static float fc26 = 5.657;
static void NoName_Q996();
static void CIIHTDImpl_P0();
extern word CII_HTD_SetDefaults();
extern word CII_HTD_Defaults();
extern word CII_HTD_DefaultsDestroy();
extern word CII_HTD_Create();
static word NoName_Q1056();
extern word CII_HTD_Destroy();
extern word CII_HTD_SetBitmap();
static word NoName_Q1116();
static word SetOutputBuffers_P480();
static void NoName_Q1176();
static void NoName_Q1236();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\000\246\143\260\300\265\077\145\155\101\240\000\000"};
static struct {unsigned f; char r[4];} string2 = {196611, "\004\177\377"};
static struct {unsigned f; char r[16];} string3 = {851984, "\257\300\241\011\366\176\300\127\130\105\301\101\334\000\000"};
static struct {unsigned f; char r[4];} string4 = {131074, "\003\004\000"};
static struct {unsigned f; char r[16];} string5 = {851984, "\257\300\207\334\320\152\300\253\325\361\210\100\200\000\000"};
static struct {unsigned f; char r[16];} string6 = {851984, "\257\300\103\021\075\042\300\071\065\007\331\100\164\000\000"};
static struct {unsigned f; char r[16];} string7 = {851984, "\257\300\074\026\324\154\300\201\167\130\113\100\150\000\000"};
static struct {unsigned f; char r[16];} string8 = {851984, "\257\300\000\246\143\260\300\265\077\145\155\100\150\000\000"};
static struct {unsigned f; char r[16];} string9 = {851984, "\257\300\074\177\166\242\300\203\113\217\044\100\150\000\000"};
static struct {unsigned f; char r[16];} string10 = {851984, "\257\300\151\316\011\300\300\225\037\327\014\100\150\000\000"};
static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\350\311\135\367\300\362\215\374\250\100\150\000\000"};
static struct {unsigned f; char r[16];} string12 = {851984, "\257\300\136\344\215\017\300\051\016\154\236\100\150\000\000"};
static struct {unsigned f; char r[16];} string13 = {851984, "\257\300\067\246\211\216\300\354\224\134\067\100\150\000\000"};
static struct {unsigned f; char r[16];} string14 = {851984, "\257\300\121\117\377\026\300\315\013\026\004\100\150\000\000"};
static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\207\001\021\231\300\362\156\044\006\100\150\000\000"};
static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\311\270\056\075\300\372\060\276\203\100\150\000\000"};
static struct {
   word f0[10]; 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[11]; 
   } globalframe = {
   {0}, (word) SetOutputBuffers_P480, 0, (word) CII_HTD_SetBitmap, 
   0, (word) CII_HTD_Destroy, 0, (word) CII_HTD_Create, 
   0, (word) CII_HTD_DefaultsDestroy, 0, (word) CII_HTD_Defaults, 
   0, (word) CII_HTD_SetDefaults, 0, (word) CIIHTDImpl_P0, 
   {0}
   };

static void NoName_Q996()
   {
   register ptr gf_c086 =  (ptr) &globalframe;
   word var_c15784;
   (* (( (ptr) gf_c086)+4) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (* (( (ptr) gf_c086)+5) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4);
   (* (( (ptr) gf_c086)+6) ) = (word) XR_GetTypeIndexS((word) (&string5));
   (void) XR_DeclareGlobalFrame((word) "CIIHTDImpl", &globalframe, (word) XR_GetTypeIndexS((word) (&string6)), (word) (( (bPt) gf_c086)+96)
      /* var_c14664 */ );
   var_c15784 = (word) XR_ImportInterface((word) "CII", (word) XR_GetTypeIndexS((word) (&string7)), 69);
   (* (( (ptr) gf_c086)+34)/* var_c15592 */  ) = var_c15784;
   (void) XR_ImportProcS(var_c15784, 68436741);
   (void) XR_ImportProcS(var_c15784, 69222920);
   (void) XR_ImportProcS(var_c15784, 67649794);
   (void) XR_ImportProcS(var_c15784, 67911683);
   (void) XR_ImportProcS(var_c15784, 68436997);
   var_c15784 = (word) XR_ImportInterface((word) "CIIPrivate", (word) XR_GetTypeIndexS((word) (&string8)), 13);
   (* (( (ptr) gf_c086)+28)/* var_c15016 */  ) = var_c15784;
   (void) XR_ImportProcS(var_c15784, 67636226);
   (void) XR_ImportProcS(var_c15784, 67373313);
   var_c15784 = (word) XR_ImportInterface((word) "Imager", (word) XR_GetTypeIndexS((word) (&string9)), 84);
   (* (( (ptr) gf_c086)+27)/* var_c14920 */  ) = var_c15784;
   (void) XR_ImportProcS(var_c15784, 67383553);
   var_c15784 = (word) XR_ImportInterface((word) "ImagerDeviceInterchange", (word) XR_GetTypeIndexS((word) (&string10)), 2);
   (* (( (ptr) gf_c086)+33)/* var_c15560 */  ) = var_c15784;
   (void) XR_ImportProcS(var_c15784, 262401);
   var_c15784 = (word) XR_ImportInterface((word) "ImagerManhattan", (word) XR_GetTypeIndexS((word) (&string11)), 24);
   (* (( (ptr) gf_c086)+32)/* var_c15400 */  ) = var_c15784;
   (void) XR_ImportProcS(var_c15784, 68158209);
   var_c15784 = (word) XR_ImportInterface((word) "ImagerPrintContext", (word) XR_GetTypeIndexS((word) (&string12)), 5);
   (* (( (ptr) gf_c086)+29)/* var_c15144 */  ) = var_c15784;
   (void) XR_ImportProcS(var_c15784, 525058);
   (void) XR_ImportProcS(var_c15784, 525314);
   (void) XR_ImportProcS(var_c15784, 69206534);
   var_c15784 = (word) XR_ImportInterface((word) "ImagerRaster", (word) XR_GetTypeIndexS((word) (&string13)), 13);
   (* (( (ptr) gf_c086)+30)/* var_c15208 */  ) = var_c15784;
   (void) XR_ImportProcS(var_c15784, 67373569);
   var_c15784 = (word) XR_ImportInterface((word) "ImagerTransformation", (word) XR_GetTypeIndexS((word) (&string14)), 55);
   (* (( (ptr) gf_c086)+31)/* var_c15304 */  ) = var_c15784;
   (void) XR_ImportProcS(var_c15784, 67371777);
   var_c15784 = (word) XR_ImportInterface((word) "ImagerPrintDevice", (word) XR_GetTypeIndexS((word) (&string15)), 5);
   (* (( (ptr) gf_c086)+35)/* var_c15688 */  ) = var_c15784;
   (void) XR_ImportProcS(var_c15784, 67371777);
   (void) XR_ImportProcS(var_c15784, 67634178);
   var_c15784 = (word) XR_ImportInterface((word) "UnsafeStorage", (word) XR_GetTypeIndexS((word) (&string16)), 4);
   (* (( (ptr) gf_c086)+26)/* var_c14760 */  ) = var_c15784;
   (void) XR_ImportProcS(var_c15784, 67109120);
   }

static void CIIHTDImpl_P0(formal_c024, formal_c023)
   word formal_c024;
   word formal_c023;
   {
   /* CIIHTDImpl: */ 
   }

extern word CII_HTD_SetDefaults(paramRepResult_v3684)
   word paramRepResult_v3684;
   {
   word res_v3740;
   /* SetDefaults: */ 
SOURCE(969, 116)
SOURCE(969, 116)
   res_v3740 = 0;
SOURCE(1065, 20)
   XR_FillWords(&(* (W7Pt) (paramRepResult_v3684)), 7, 0);
   (* (( (ptr) paramRepResult_v3684)+3) ) = (*  (ptr) &fc17 );
   (* (( (ptr) paramRepResult_v3684)+4) ) = (*  (ptr) &fc17 );
SOURCE(969, 116)
   return(res_v3740);
   }

extern word CII_HTD_Defaults(paramResult_v3800)
   word paramResult_v3800;
   {
   register ptr gf_c15816 =  (ptr) &globalframe;
   word res_v3868;
   /* Defaults: */ 
SOURCE(1091, 179)
SOURCE(1189, 81)
   {
      word var_c14696;
      {
         word var_c14728;
         {
            word var_c14824;
            {
               word var_c14792;
               {
                  word pd18;
                  pd18 = (* (( (ptr) (* (( (ptr) gf_c15816)+26)/* var_c14760 */  ))+5) );
                  var_c14792 = (word) ( *( (fPt) ((*  (ptr) pd18 ))))(pd18);
                  };
               {
                  word pd19;
                  pd19 = (*  (ptr) var_c14792 );
                  var_c14824 = (word) ( *( (fPt) ((*  (ptr) pd19 ))))(var_c14792, 28, pd19);
                  };
               };
            XR_FillWords(&(* (W7Pt) (var_c14824)), 7, 0);
            (* (( (ptr) var_c14824)+3) ) = (*  (ptr) &fc17 );
            (* (( (ptr) var_c14824)+4) ) = (*  (ptr) &fc17 );
            var_c14728 = var_c14824;
            };
         (*  (ptr) paramResult_v3800 ) = var_c14728;
         var_c14696 = var_c14728;
         };
      res_v3868 = (word) CII_HTD_SetDefaults(var_c14696);
      };
SOURCE(1091, 179)
   return(res_v3868);
   }

extern word CII_HTD_DefaultsDestroy(p_v3928)
   word p_v3928;
   {
   register ptr gf_c15848 =  (ptr) &globalframe;
   word res_v3984;
   /* DefaultsDestroy: */ 
SOURCE(1276, 128)
SOURCE(1276, 128)
   res_v3984 = 0;
SOURCE(1365, 39)
   {
      word var_c14856;
      word var_c14888;
      {
         word pd20;
         pd20 = (* (( (ptr) (* (( (ptr) gf_c15848)+26)/* var_c14760 */  ))+5) );
         var_c14856 = (word) ( *( (fPt) ((*  (ptr) pd20 ))))(pd20);
         };
      var_c14888 = p_v3928;
      p_v3928 = 0;
      {
         word pd21;
         pd21 = (* (( (ptr) var_c14856)+1) );
         (void) ( *( (fPt) ((*  (ptr) pd21 ))))(var_c14856, var_c14888, pd21);
         };
      };
SOURCE(1276, 128)
   return(res_v3984);
   }

extern word CII_HTD_Create(formal_c0102, formal_c0103)
   word formal_c0102;
   word formal_c0103;
   {
   W7 var_c15880;
   /* declaration of param_v4104 skipped */ 
   /* declaration of hResult_v4132 skipped */ 
   /* declaration of res_v4200 skipped */ 
   var_c15880.f4/* param_v4104 */  = formal_c0102;
   var_c15880.f5/* hResult_v4132 */  = formal_c0103;
   /* Create: */ 
SOURCE(1542, 1326)
SOURCE(1542, 1326)
   var_c15880.f6/* res_v4200 */  = 0;
SOURCE(1652, 1216)
SOURCE(1652, 1216)
   {
      word var_c01;
      {
         word var_c096;
         var_c096 = (word) &var_c15880;
         var_c01 = (word) XR_Enable(( ((word)  (fPt) NoName_Q1056) ), ( ((word)  (fPt) NoName_Q1236) ), var_c096);
         };
      /* removed trivial cond node */ 
      };
SOURCE(1542, 1326)
   return(var_c15880.f6/* res_v4200 */ );
   }

static word NoName_Q1056(formal_c090)
   word formal_c090;
   {
   register ptr gf_c089 =  (ptr) &globalframe;
SOURCE(1727, 14)
   (*  (ptr) (* (( (ptr) formal_c090)+5) ) ) = 0;
SOURCE(1743, 1130)
   {
      word context_v4712;
SOURCE(1745, 316)
      {
         word var_c14984;
         word var_c15048;
         {
            word pd22;
            pd22 = (* (( (ptr) (* (( (ptr) gf_c089)+28)/* var_c15016 */  ))+13) );
            var_c14984 = (word) ( *( (fPt) ((*  (ptr) pd22 ))))((* ((( (ptr) (* (( (ptr) formal_c090)+4) ))+2)) ), pd22);
            };
         {
            word u_v4684 = 0;
SOURCE(1510, 15)
            u_v4684 |= 32768;
SOURCE(1527, 11)
            var_c15048 = u_v4684;
            };
         {
            W2 var_c15112;
            {
               word idx23;
               var_c15112.f0 = (
                  idx23 = (*  (ptr) (* (( (ptr) formal_c090)+4) ) ),
                  SGNCK(idx23)
                  );
               };
            {
               word idx24;
               var_c15112.f1 = (
                  idx24 = (* (( (ptr) (* (( (ptr) formal_c090)+4) ))+1) ),
                  SGNCK(idx24)
                  );
               };
            {
               word pd25;
               pd25 = (* (( (ptr) (* (( (ptr) gf_c089)+29)/* var_c15144 */  ))+6) );
               context_v4712 = (word) ( *( (fPt) ((*  (ptr) pd25 ))))(var_c15112, var_c14984, (*  (W2Pt) (( (ptr) (* (( (ptr) formal_c090)+4)
                      ))+3) ), (* (( (ptr) (* (( (ptr) formal_c090)+4) ))+5) ), (*  (ptr) &fc26 ), var_c15048, pd25);
               };
            };
         };
SOURCE(2063, 49)
      {
         word pd27;
         pd27 = (* (( (ptr) (* (( (ptr) gf_c089)+29)/* var_c15144 */  ))+8) );
         (void) ( *( (fPt) ((*  (ptr) pd27 ))))(context_v4712, 0, pd27);
         };
SOURCE(2114, 82)
      {
         word var_c15176;
         {
            word pd28;
            pd28 = (* (( (ptr) (* (( (ptr) gf_c089)+28)/* var_c15016 */  ))+16) );
            var_c15176 = (word) ( *( (fPt) ((*  (ptr) pd28 ))))((* (( (ptr) (* (( (ptr) formal_c090)+4) ))+6) ), 0, pd28);
            };
         {
            word pd29;
            pd29 = (* (( (ptr) (* (( (ptr) gf_c089)+29)/* var_c15144 */  ))+7) );
            (void) ( *( (fPt) ((*  (ptr) pd29 ))))(context_v4712, var_c15176, pd29);
            };
         };
SOURCE(2198, 672)
      {
         word iState_v4756;
         word device_v4784;
         word state_v4812;
SOURCE(2200, 92)
         {
            word pd30;
            pd30 = (* (( (ptr) (* (( (ptr) gf_c089)+30)/* var_c15208 */  ))+14) );
            iState_v4756 = (word) ( *( (fPt) ((*  (ptr) pd30 ))))(context_v4712, pd30);
            };
SOURCE(2294, 43)
         device_v4784 = (*  (ptr) iState_v4756 );
SOURCE(2339, 375)
         {
            word var_c15240;
            word var_c15272;
            word var_c15336;
            word var_c15464;
            word var_c15528;
            {
               word pd31;
               pd31 = (* (( (ptr) (* (( (ptr) gf_c089)+27)/* var_c14920 */  ))+53) );
               var_c15240 = (word) ( *( (fPt) ((*  (ptr) pd31 ))))((*  (ptr) (&fc17) ), pd31);
               };
            {
               word pd32;
               pd32 = (* (( (ptr) (* (( (ptr) gf_c089)+31)/* var_c15304 */  ))+7) );
               var_c15272 = (word) ( *( (fPt) ((*  (ptr) pd32 ))))((*  (ptr) (&fc17) ), pd32);
               };
            {
               word var_c15368;
               word var_c15432;
               {
                  word pd33;
                  pd33 = (* (( (ptr) (* (( (ptr) gf_c089)+32)/* var_c15400 */  ))+7) );
                  var_c15368 = (word) ( *( (fPt) ((*  (ptr) pd33 ))))((*  (W4Pt) ((( (ptr) (* (( (ptr) device_v4784)+6) ))+1)) ), pd33);
                  };
               var_c15432 = XR_NewObject(20, (* (( (ptr) gf_c089)+5) ));
               (*  (W4Pt) var_c15432 ) = (*  (W4Pt) (( (ptr) (* (( (ptr) device_v4784)+6) ))+1) );
               (* (( (ptr) var_c15432)+4) ) = var_c15368;
               var_c15336 = var_c15432;
               };
            var_c15464 = XR_NewObject(20, (* (( (ptr) gf_c089)+6) ));
            var_c15528 = XR_NewObject(56, (* (( (ptr) gf_c089)+4) ));
            (* (( (ptr) var_c15528)+1) ) = (*  (ptr) iState_v4756 );
            (* (( (ptr) var_c15528)+4) ) = var_c15240;
            (* (( (ptr) var_c15528)+6) ) = var_c15272;
            (* (( (ptr) var_c15528)+7) ) = var_c15336;
            (* (( (ptr) var_c15528)+11) ) = var_c15464;
            state_v4812 = var_c15528;
            };
SOURCE(2716, 19)
         (*  (ptr) iState_v4756 ) = 0;
SOURCE(2737, 55)
         {
            word pd34;
            pd34 = (* (( (ptr) (* (( (ptr) gf_c089)+33)/* var_c15560 */  ))+5) );
            (void) ( *( (fPt) ((*  (ptr) pd34 ))))(iState_v4756, pd34);
            };
SOURCE(2794, 74)
         {
            word pd35;
            pd35 = (* (( (ptr) (* (( (ptr) gf_c089)+34)/* var_c15592 */  ))+72) );
            (*  (ptr) (* (( (ptr) formal_c090)+5) ) ) = (word) ( *( (fPt) ((*  (ptr) pd35 ))))(state_v4812, (word) (( (bPt) gf_c089)+40)
               /* var_c14440 */ , (* (( (ptr) (* (( (ptr) gf_c089)+34)/* var_c15592 */  ))+69) ), (* (( (ptr) (* (( (ptr) gf_c089)+34)/* var_c15592 */  ))+70)
                ), (* (( (ptr) (* (( (ptr) gf_c089)+34)/* var_c15592 */  ))+71) ), pd35);
            };
         };
      };
   return(0);
   }

extern word CII_HTD_Destroy(h_v4260)
   word h_v4260;
   {
   word res_v4304;
   /* Destroy: */ 
SOURCE(2880, 22)
SOURCE(2880, 22)
   res_v4304 = 0;
SOURCE(2880, 22)
   return(res_v4304);
   }

extern word CII_HTD_SetBitmap(formal_c0104, formal_c0105)
   word formal_c0104;
   word formal_c0105;
   {
   W7 var_c15912;
   /* declaration of h_v4364 skipped */ 
   /* declaration of raster_v4392 skipped */ 
   /* declaration of res_v4448 skipped */ 
   var_c15912.f4/* h_v4364 */  = formal_c0104;
   var_c15912.f5/* raster_v4392 */  = formal_c0105;
   /* SetBitmap: */ 
SOURCE(2950, 302)
SOURCE(2950, 302)
   var_c15912.f6/* res_v4448 */  = 0;
SOURCE(3042, 210)
SOURCE(3042, 210)
   {
      word var_c02;
      {
         word var_c097;
         var_c097 = (word) &var_c15912;
         var_c02 = (word) XR_Enable(( ((word)  (fPt) NoName_Q1116) ), ( ((word)  (fPt) NoName_Q1176) ), var_c097);
         };
      /* removed trivial cond node */ 
      };
SOURCE(2950, 302)
   return(var_c15912.f6/* res_v4448 */ );
   }

static word NoName_Q1116(formal_c092)
   word formal_c092;
   {
   register ptr gf_c091 =  (ptr) &globalframe;
SOURCE(3117, 47)
   {
      word state_v4868;
SOURCE(3117, 47)
      state_v4868 = XR_Narrow((*  (ptr) (* (( (ptr) formal_c092)+4) ) ), (* (( (ptr) gf_c091)+4) ));
SOURCE(3166, 86)
      {
         word var_c15720;
         {
            word var_c15656;
            {
               word pd36;
               pd36 = (* (( (ptr) (* (( (ptr) gf_c091)+28)/* var_c15016 */  ))+16) );
               var_c15656 = (word) ( *( (fPt) ((*  (ptr) pd36 ))))((* (( (ptr) formal_c092)+5) ), 0, pd36);
               };
            {
               word pd37;
               pd37 = (* (( (ptr) (* (( (ptr) gf_c091)+35)/* var_c15688 */  ))+8) );
               var_c15720 = (word) ( *( (fPt) ((*  (ptr) pd37 ))))((* (( (ptr) state_v4868)+1) ), var_c15656, pd37);
               };
            };
         };
      };
   return(0);
   }

static word SetOutputBuffers_P480(h_v4508, nBuffers_v4536, outputBuffers_v4564)
   word h_v4508;
   word nBuffers_v4536;
   word outputBuffers_v4564;
   {
   register ptr gf_c15944 =  (ptr) &globalframe;
   word res_v4656;
   /* SetOutputBuffers: */ 
SOURCE(3258, 559)
SOURCE(3258, 559)
   res_v4656 = 0;
SOURCE(3395, 422)
   if (( (int)nBuffers_v4536 !=  (int)1)) {
SOURCE(3416, 48)
      return(1065);
      }
   else {
SOURCE(3464, 355)
      {
         word state_v4924;
         word old_v4952;
         word new_v4980;
SOURCE(3466, 47)
         state_v4924 = XR_Narrow((*  (ptr) h_v4508 ), (* (( (ptr) gf_c15944)+4) ));
SOURCE(3515, 77)
         {
            word pd38;
            pd38 = (* (( (ptr) (* (( (ptr) gf_c15944)+35)/* var_c15688 */  ))+7) );
            old_v4952 = (word) ( *( (fPt) ((*  (ptr) pd38 ))))((* ((( (ptr) state_v4924)+1)) ), pd38);
            };
SOURCE(3594, 75)
         {
            word pd39;
            pd39 = (* (( (ptr) (* (( (ptr) gf_c15944)+28)/* var_c15016 */  ))+16) );
            new_v4980 = (word) ( *( (fPt) ((*  (ptr) pd39 ))))((word) outputBuffers_v4564, 0, pd39);
            };
SOURCE(3671, 87)
         if ((old_v4952 == 0) ||  ! XR_EqualWords(old_v4952, new_v4980, 4)) {
SOURCE(3716, 42)
            return(1065);
            };
SOURCE(3760, 57)
         {
            word var_c15752;
            word pd40;
            pd40 = (* (( (ptr) (* (( (ptr) gf_c15944)+35)/* var_c15688 */  ))+8) );
            var_c15752 = (word) ( *( (fPt) ((*  (ptr) pd40 ))))((* (( (ptr) state_v4924)+1) ), new_v4980, pd40);
            };
         };
      };
SOURCE(3258, 559)
   return(res_v4656);
   }

static void NoName_Q1176(formal_c078, formal_c200004, formal_c200005, formal_c200006, formal_c200007)
   word formal_c078;
   word formal_c200004;
   word formal_c200005;
   word formal_c200006;
   word formal_c200007;
   {
   register ptr gf_c094 =  (ptr) &globalframe;
   if ((formal_c200005 == (*  (ptr) (* (( (ptr) (* (( (ptr) gf_c094)+27)/* var_c14920 */  ))+6) ) ))) {
      {
         W3 error_v13252;
         error_v13252 = (*  (W3Pt) formal_c200007 );
SOURCE(3066, 38)
         {
            word code_v14344;
            code_v14344 = error_v13252.f0;
            if ((code_v14344 == 0)) {
               (* (( (ptr) formal_c200004)+6) ) = 0;
               }
            else {
               (* (( (ptr) formal_c200004)+6) ) = (code_v14344 + 1000);
               };
            };
SOURCE(3106, 8)
         (*  (ptr) formal_c078 ) = 2;
         (* (( (ptr) formal_c078)+1) ) = 3;
         return;
         };
      };
   (*  (ptr) formal_c078 ) = 0;
   (* (( (ptr) formal_c078)+1) ) = 0;
   return;
   }

static void NoName_Q1236(formal_c085, formal_c200000, formal_c200001, formal_c200002, formal_c200003)
   word formal_c085;
   word formal_c200000;
   word formal_c200001;
   word formal_c200002;
   word formal_c200003;
   {
   register ptr gf_c095 =  (ptr) &globalframe;
   if ((formal_c200001 == (*  (ptr) (* (( (ptr) (* (( (ptr) gf_c095)+27)/* var_c14920 */  ))+6) ) ))) {
      {
         W3 error_v6232;
         error_v6232 = (*  (W3Pt) formal_c200003 );
SOURCE(1676, 38)
         {
            word code_v14392;
            code_v14392 = error_v6232.f0;
            if ((code_v14392 == 0)) {
               (* (( (ptr) formal_c200000)+6) ) = 0;
               }
            else {
               (* (( (ptr) formal_c200000)+6) ) = (code_v14392 + 1000);
               };
            };
SOURCE(1716, 8)
         (*  (ptr) formal_c085 ) = 2;
         (* (( (ptr) formal_c085)+1) ) = 2;
         return;
         };
      };
   (*  (ptr) formal_c085 ) = 0;
   (* (( (ptr) formal_c085)+1) ) = 0;
   return;
   }

/* file: CIIHTDImpl, module: CIIHTDImpl, compiled at: November 1, 1993 3:45:03 pm PST */ 
extern void XR_install_CIIHTDImpl() {
   NoName_Q996();
   }
extern void XR_run_CIIHTDImpl() { XR_Start(&globalframe); }