/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation.  All rights reserved. */
/* time: October 29, 1993 1:10:07 pm PDT */
/* C2C version: April 20, 1993 (sun4) */
/* ref-counting: off */
/* file: CIIHalftoneDeviceImpl, module: CIIHalftoneDeviceImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [4047781374,1164815472] CIIHalftoneDeviceImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1, f2, f3;} W4;
typedef W4 *W4Pt;
typedef struct {word f0, f1, f2;} W3;
typedef W3 *W3Pt;
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {W8 f; word r;} W9;
typedef struct {W8 f; W3 r;} W11;
typedef W9 *W9Pt;
typedef struct {word f0, f1;} W2;
static float fc1 = 0.48;
static float fc2 = 45.0;
static float fc3 = 75.0;
static float fc4 = 105.0;
static float fc5 = 90.0;
#define SOURCE(p, l) /* source p, l */
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR_RaiseBoundsFault()) : (idx) )
static float fc35 = 0.05;
static float fc42 = 5.656;
#define SGNCK(i) ((int) (word) (i) < 0 ? XR_RaiseArithmeticFault(): i )
static float fc54 = 1.0;
static void NoName_Q1068();
static void CIIHalftoneDeviceImpl_P0();
static word MakeHalftoneProperties_P60();
static word SetSeparationSingle_P120();
static word NoName_Q1128();
static word SetOutputBuffersSingle_P180();
static word NoName_Q1188();
static word CreateHandleFromRasters_P240();
static word NoName_Q1248();
extern word CII_BWHalftoneDeviceSetup();
extern word CII_CMYKHalftoneDeviceSetup();
extern word CII_CMYKHalftoneSeparationDeviceSetup();
static void NoName_Q1308();
static void NoName_Q1368();
static void NoName_Q1428();
static struct {unsigned f; char r[44];} string6 = {2752556, "\260\006\005\146\151\162\163\164\257\300\236\211\262\021\300\215\235\324\340\101\034\005\004\162\145\163\164\214\257\300\236\211\262\021\300\215\235\324\340\101\034\261\000"};
static struct {unsigned f; char r[4];} string7 = {131074, "\004)\000"};
static struct {unsigned f; char r[16];} string8 = {851984, "\257\300\000\246\143\260\300\265\077\145\155\101\240\000\000"};
static struct {unsigned f; char r[4];} string9 = {196611, "\004\177\377"};
static struct {unsigned f; char r[16];} string10 = {851984, "\257\300\361\104\075\376\300\105\155\254\160\100\200\000\000"};
static struct {unsigned f; char r[4];} string11 = {65540, "\251\000\000"};
static struct {unsigned f; char r[4];} string12 = {131076, "\216\251\000"};
static struct {unsigned f; char r[4];} string13 = {65537, "\001\000\000"};
static struct {unsigned f; char r[16];} string14 = {851984, "\257\300\241\011\366\176\300\127\130\105\301\101\334\000\000"};
static struct {unsigned f; char r[4];} string15 = {131074, "\003\004\000"};
static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\207\334\320\152\300\253\325\361\210\100\200\000\000"};
static struct {unsigned f; char r[8];} string17 = {327688, "Print\000\000"};
static struct {unsigned f; char r[16];} string18 = {851984, "\257\300\361\104\075\376\300\105\155\254\160\100\164\000\000"};
static struct {unsigned f; char r[4];} string19 = {131074, "\003\026\000"};
static struct {unsigned f; char r[16];} string20 = {851984, "\257\300\074\026\324\154\300\201\167\130\113\100\150\000\000"};
static struct {unsigned f; char r[16];} string21 = {851984, "\257\300\000\246\143\260\300\265\077\145\155\100\150\000\000"};
static struct {unsigned f; char r[16];} string22 = {851984, "\257\300\074\177\166\242\300\203\113\217\044\100\150\000\000"};
static struct {unsigned f; char r[16];} string23 = {851984, "\257\300\361\072\110\004\300\054\212\055\367\100\150\000\000"};
static struct {unsigned f; char r[16];} string24 = {851984, "\257\300\151\316\011\300\300\225\037\327\014\100\150\000\000"};
static struct {unsigned f; char r[16];} string25 = {851984, "\257\300\045\370\116\014\300\270\323\074\131\100\150\000\000"};
static struct {unsigned f; char r[16];} string26 = {851984, "\257\300\342\102\054\110\300\232\020\205\150\100\150\000\000"};
static struct {unsigned f; char r[16];} string27 = {851984, "\257\300\350\311\135\367\300\362\215\374\250\100\150\000\000"};
static struct {unsigned f; char r[16];} string28 = {851984, "\257\300\136\344\215\017\300\051\016\154\236\100\150\000\000"};
static struct {unsigned f; char r[16];} string29 = {851984, "\257\300\207\001\021\231\300\362\156\044\006\100\150\000\000"};
static struct {unsigned f; char r[16];} string30 = {851984, "\257\300\067\246\211\216\300\354\224\134\067\100\150\000\000"};
static struct {unsigned f; char r[16];} string31 = {851984, "\257\300\121\117\377\026\300\315\013\026\004\100\150\000\000"};
static struct {unsigned f; char r[16];} string32 = {851984, "\257\300\166\344\362\325\300\124\127\204\375\100\150\000\000"};
static struct {unsigned f; char r[16];} string33 = {851984, "\257\300\275\320\070\317\300\004\110\363\366\100\150\000\000"};
static struct {
   word f0[53]; 
   } globalframe = {
   {0}
   };

static void NoName_Q1068()
   {
   register ptr gf_c0116 =  (ptr) &globalframe;
   word var_c20780;
   (* (( (ptr) gf_c0116)+4)/* defaultDotShape_v3476 */  ) = (*  (ptr) &fc1 );
   (* (( (ptr) gf_c0116)+5) ) = (*  (ptr) &fc2 );
   (* (( (ptr) gf_c0116)+6) ) = (*  (ptr) &fc3 );
   (* (( (ptr) gf_c0116)+7) ) = (*  (ptr) &fc4 );
   (* (( (ptr) gf_c0116)+8) ) = (*  (ptr) &fc5 );
   (* (( (ptr) gf_c0116)+37) ) = ( ((word)  (fPt) CIIHalftoneDeviceImpl_P0) );
   (* (( (ptr) gf_c0116)+35) ) = ( ((word)  (fPt) MakeHalftoneProperties_P60) );
   (* (( (ptr) gf_c0116)+33) ) = ( ((word)  (fPt) SetSeparationSingle_P120) );
   (* (( (ptr) gf_c0116)+31) ) = ( ((word)  (fPt) SetOutputBuffersSingle_P180) );
   (* (( (ptr) gf_c0116)+29) ) = ( ((word)  (fPt) CreateHandleFromRasters_P240) );
   (* (( (ptr) gf_c0116)+27) ) = ( ((word)  (fPt) CII_BWHalftoneDeviceSetup) );
   (* (( (ptr) gf_c0116)+25) ) = ( ((word)  (fPt) CII_CMYKHalftoneDeviceSetup) );
   (* (( (ptr) gf_c0116)+23) ) = ( ((word)  (fPt) CII_CMYKHalftoneSeparationDeviceSetup) );
   (* (( (ptr) gf_c0116)+9) ) = (word) XR_GetTypeIndex((word) &string6, 0, (word) &string7);
   (* (( (ptr) gf_c0116)+12) ) = (word) XR_GetTypeIndex((word) &string8, 0, (word) &string9);
   (* (( (ptr) gf_c0116)+13) ) = (word) XR_GetTypeIndexS((word) (&string10));
   (* (( (ptr) gf_c0116)+14) ) = (word) XR_GetTypeIndexS((word) (&string11));
   (* (( (ptr) gf_c0116)+15) ) = (word) XR_GetTypeIndex((word) &string12, 0, (word) &string13);
   (* (( (ptr) gf_c0116)+17) ) = (word) XR_GetTypeIndex((word) &string14, 0, (word) &string15);
   (* (( (ptr) gf_c0116)+18) ) = (word) XR_GetTypeIndexS((word) (&string16));
   (*  (ptr) (( (bPt) gf_c0116)+88) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0116)+15) ), (word) &string17);
   (void) XR_DeclareGlobalFrame((word) "CIIHalftoneDeviceImpl", &globalframe, (word) XR_GetTypeIndex((word) &string18, 0, (word) &string19)
      , (word) (( (bPt) gf_c0116)+148)/* var_c19436 */ );
   var_c20780 = (word) XR_ImportInterface((word) "CII", (word) XR_GetTypeIndexS((word) (&string20)), 69);
   (* (( (ptr) gf_c0116)+45)/* var_c19820 */  ) = var_c20780;
   (void) XR_ImportProcS(var_c20780, 68436741);
   (void) XR_ImportProcS(var_c20780, 69222920);
   (void) XR_ImportProcS(var_c20780, 68436997);
   (void) XR_ImportProcS(var_c20780, 67911683);
   (void) XR_ImportProcS(var_c20780, 67649794);
   var_c20780 = (word) XR_ImportInterface((word) "CIIPrivate", (word) XR_GetTypeIndexS((word) (&string21)), 13);
   (* (( (ptr) gf_c0116)+44)/* var_c19724 */  ) = var_c20780;
   (void) XR_ImportProcS(var_c20780, 68421381);
   (void) XR_ImportProcS(var_c20780, 68158980);
   (void) XR_ImportProcS(var_c20780, 68158724);
   (void) XR_ImportProcS(var_c20780, 68158468);
   (void) XR_ImportProcS(var_c20780, 67896067);
   (void) XR_ImportProcS(var_c20780, 68683782);
   (void) XR_ImportProcS(var_c20780, 264705);
   (void) XR_ImportProcS(var_c20780, 67636226);
   var_c20780 = (word) XR_ImportInterface((word) "Imager", (word) XR_GetTypeIndexS((word) (&string22)), 84);
   (* (( (ptr) gf_c0116)+49)/* var_c20236 */  ) = var_c20780;
   (void) XR_ImportProcS(var_c20780, 67383553);
   var_c20780 = (word) XR_ImportInterface((word) "ImagerBrick", (word) XR_GetTypeIndexS((word) (&string23)), 4);
   (* (( (ptr) gf_c0116)+39)/* var_c19468 */  ) = var_c20780;
   (void) XR_ImportProcS(var_c20780, 203424264);
   var_c20780 = (word) XR_ImportInterface((word) "ImagerDeviceInterchange", (word) XR_GetTypeIndexS((word) (&string24)), 2);
   (* (( (ptr) gf_c0116)+52)/* var_c20556 */  ) = var_c20780;
   (void) XR_ImportProcS(var_c20780, 262401);
   var_c20780 = (word) XR_ImportInterface((word) "ImagerError", (word) XR_GetTypeIndexS((word) (&string25)), 3);
   (* (( (ptr) gf_c0116)+40)/* var_c19532 */  ) = var_c20780;
   var_c20780 = (word) XR_ImportInterface((word) "ImagerFourColorContext", (word) XR_GetTypeIndexS((word) (&string26)), 2);
   (* (( (ptr) gf_c0116)+47)/* var_c20140 */  ) = var_c20780;
   (void) XR_ImportProcS(var_c20780, 70516744);
   var_c20780 = (word) XR_ImportInterface((word) "ImagerManhattan", (word) XR_GetTypeIndexS((word) (&string27)), 24);
   (* (( (ptr) gf_c0116)+51)/* var_c20396 */  ) = var_c20780;
   (void) XR_ImportProcS(var_c20780, 68158209);
   var_c20780 = (word) XR_ImportInterface((word) "ImagerPrintContext", (word) XR_GetTypeIndexS((word) (&string28)), 5);
   (* (( (ptr) gf_c0116)+46)/* var_c20012 */  ) = var_c20780;
   (void) XR_ImportProcS(var_c20780, 525058);
   (void) XR_ImportProcS(var_c20780, 525314);
   (void) XR_ImportProcS(var_c20780, 69992713);
   var_c20780 = (word) XR_ImportInterface((word) "ImagerPrintDevice", (word) XR_GetTypeIndexS((word) (&string29)), 5);
   (* (( (ptr) gf_c0116)+42)/* var_c19628 */  ) = var_c20780;
   (void) XR_ImportProcS(var_c20780, 67634178);
   (void) XR_ImportProcS(var_c20780, 67371265);
   var_c20780 = (word) XR_ImportInterface((word) "ImagerRaster", (word) XR_GetTypeIndexS((word) (&string30)), 13);
   (* (( (ptr) gf_c0116)+48)/* var_c20172 */  ) = var_c20780;
   (void) XR_ImportProcS(var_c20780, 67373569);
   var_c20780 = (word) XR_ImportInterface((word) "ImagerTransformation", (word) XR_GetTypeIndexS((word) (&string31)), 55);
   (* (( (ptr) gf_c0116)+50)/* var_c20300 */  ) = var_c20780;
   (void) XR_ImportProcS(var_c20780, 67371777);
   var_c20780 = (word) XR_ImportInterface((word) "ImagerPrintColor", (word) XR_GetTypeIndexS((word) (&string32)), 4);
   (* (( (ptr) gf_c0116)+43)/* var_c19660 */  ) = var_c20780;
   (void) XR_ImportProcS(var_c20780, 524546);
   var_c20780 = (word) XR_ImportInterface((word) "RuntimeError", (word) XR_GetTypeIndexS((word) (&string33)), 27);
   (* (( (ptr) gf_c0116)+41)/* var_c19596 */  ) = var_c20780;
   }

static void CIIHalftoneDeviceImpl_P0(formal_c035, formal_c034)
   word formal_c035;
   word formal_c034;
   {
   /* CIIHalftoneDeviceImpl: */ 
SOURCE(296, 6229)
   /* moved to installation proc */ 
SOURCE(1132, 117)
   /* moved to installation proc */ 
   /* moved to installation proc */ 
   /* moved to installation proc */ 
   /* moved to installation proc */ 
   }

static word MakeHalftoneProperties_P60(logicalDevice_v3904, pixelsPerHalftoneDot_v3932, toners_v3960)
   word logicalDevice_v3904;
   word pixelsPerHalftoneDot_v3932;
   word toners_v3960;
   {
   register ptr gf_c20812 =  (ptr) &globalframe;
   word h_v4004;
   W4 angle_v4828;
   /* MakeHalftoneProperties: */ 
SOURCE(1252, 563)
SOURCE(1252, 563)
   h_v4004 = 0;
SOURCE(1438, 73)
   angle_v4828 = (*  (W4Pt) (( (ptr) gf_c20812)+5)/* defaultScreenAngle_v3504 */  );
SOURCE(1513, 302)
   {
      register word t_v4908 = 0;
      lab_L100003: ;
SOURCE(1575, 240)
      if (((word) toners_v3960 >> (31 - (word) (t_v4908 + 16))) & 1) {
SOURCE(1593, 224)
         {
            word angle_v4952;
            W3 brick_v4980;
SOURCE(1595, 35)
            angle_v4952 = (* ((( (ptr) gf_c20812)+5)/* defaultScreenAngle_v3504 */ +BCK(t_v4908, 4)) );
SOURCE(1632, 133)
            {
               word pd34;
               pd34 = (* (( (ptr) (* (( (ptr) gf_c20812)+39)/* var_c19468 */  ))+6) );
               (void) ( *( (fPt) ((*  (ptr) pd34 ))))((word) &brick_v4980, pixelsPerHalftoneDot_v3932, angle_v4952, (* (( (ptr) gf_c20812)+4)
                  /* defaultDotShape_v3476 */  ), (*  (ptr) &fc35 ), 16
                  , 255, 0, 0, pd34);
               };
SOURCE(1767, 48)
            {
               word var_c19500;
               var_c19500 = XR_NewObject(24, (* (( (ptr) gf_c20812)+9) ));
               (* (( (ptr) var_c19500)+1) ) = t_v4908;
               (*  (W3Pt) (( (ptr) var_c19500)+2) ) = brick_v4980;
               (* (( (ptr) var_c19500)+5) ) = h_v4004;
               h_v4004 = var_c19500;
               };
            };
         };
      if ((t_v4908 >= 3)) {
         goto lab_L100000;
         };
      t_v4908 = (t_v4908 + 1);
      goto lab_L100003;
      lab_L100000: ;
      };
SOURCE(1252, 563)
   return(h_v4004);
   }

static word SetSeparationSingle_P120(formal_c0139, formal_c0140)
   word formal_c0139;
   word formal_c0140;
   {
   W8 var_c20844;
   /* declaration of h_v4064 skipped */ 
   /* declaration of toner_v4092 skipped */ 
   /* declaration of var_c01 skipped */ 
   /* declaration of res_v4136 skipped */ 
   var_c20844.f4/* h_v4064 */  = formal_c0139;
   var_c20844.f5/* toner_v4092 */  = formal_c0140;
   /* SetSeparationSingle: */ 
SOURCE(1833, 601)
SOURCE(1833, 601)
   var_c20844.f7/* res_v4136 */  = 0;
SOURCE(1921, 513)
SOURCE(1921, 513)
   {
      word var_c02;
      {
         word var_c0130;
         var_c0130 = (word) &var_c20844;
         var_c02 = (word) XR_Enable(( ((word)  (fPt) NoName_Q1128) ), ( ((word)  (fPt) NoName_Q1428) ), var_c0130);
         };
      if ((var_c02 == 2)) {
         /* removed tail goto */ 
         }
      else {
         if ((var_c02 == 1)) {
            goto lab_L02;
            };
         };
      };
SOURCE(1833, 601)
   return(var_c20844.f7/* res_v4136 */ );
   lab_L02: ;
   return(var_c20844.f6/* var_c01 */ );
   }

static word NoName_Q1128(formal_c0119)
   word formal_c0119;
   {
   register ptr gf_c0118 =  (ptr) &globalframe;
SOURCE(2119, 47)
   {
      word state_v5024;
      word deviceColorData_v5052;
SOURCE(2119, 47)
      state_v5024 = XR_Narrow((*  (ptr) (* (( (ptr) formal_c0119)+4) ) ), (* (( (ptr) gf_c0118)+12) ));
SOURCE(2168, 96)
      {
         word pd36;
         pd36 = (* (( (ptr) (* (( (ptr) gf_c0118)+42)/* var_c19628 */  ))+5) );
         deviceColorData_v5052 = (word) ( *( (fPt) ((*  (ptr) pd36 ))))((* ((( (ptr) state_v5024)+1)) ), pd36);
         };
SOURCE(2266, 48)
      if ((deviceColorData_v5052 == 0)) {
SOURCE(2296, 18)
         (* (( (ptr) formal_c0119)+6) ) = 1070;
         return(1);
         };
SOURCE(2316, 52)
      if (((* (( (ptr) formal_c0119)+5) ) > 3)) {
SOURCE(2353, 15)
         (* (( (ptr) formal_c0119)+6) ) = 1001;
         return(1);
         };
SOURCE(2370, 64)
      {
         word pd37;
         word idx38;
         pd37 = (* (( (ptr) (* (( (ptr) gf_c0118)+43)/* var_c19660 */  ))+5) );
         (void) ( *( (fPt) ((*  (ptr) pd37 ))))(deviceColorData_v5052, (
               idx38 = (* (( (ptr) formal_c0119)+5) ),
               BCK(idx38, 16)
               ), pd37);
         };
      };
   return(0);
   }

static word SetOutputBuffersSingle_P180(formal_c0141, formal_c0142, formal_c0143)
   word formal_c0141;
   word formal_c0142;
   word formal_c0143;
   {
   W9 var_c20876;
   /* declaration of h_v4196 skipped */ 
   /* declaration of nBuffers_v4224 skipped */ 
   /* declaration of outputBuffers_v4252 skipped */ 
   /* declaration of var_c03 skipped */ 
   /* declaration of res_v4344 skipped */ 
   (* (( (ptr) &var_c20876)+4)/* h_v4196 */  ) = formal_c0141;
   (* (( (ptr) &var_c20876)+5)/* nBuffers_v4224 */  ) = formal_c0142;
   (* (( (ptr) &var_c20876)+6)/* outputBuffers_v4252 */  ) = formal_c0143;
   /* SetOutputBuffersSingle: */ 
SOURCE(2440, 657)
SOURCE(2440, 657)
   (* (( (ptr) &var_c20876)+8)/* res_v4344 */  ) = 0;
SOURCE(2587, 510)
SOURCE(2587, 510)
   {
      word var_c04;
      {
         word var_c0131;
         var_c0131 = (word) &var_c20876;
         var_c04 = (word) XR_Enable(( ((word)  (fPt) NoName_Q1188) ), ( ((word)  (fPt) NoName_Q1368) ), var_c0131);
         };
      if ((var_c04 == 3)) {
         /* removed tail goto */ 
         }
      else {
         if ((var_c04 == 1)) {
            goto lab_L04;
            };
         };
      };
SOURCE(2440, 657)
   return((* (( (ptr) &var_c20876)+8)/* res_v4344 */  ));
   lab_L04: ;
   return((* (( (ptr) &var_c20876)+7)/* var_c03 */  ));
   }

static word NoName_Q1188(formal_c0121)
   word formal_c0121;
   {
   register ptr gf_c0120 =  (ptr) &globalframe;
SOURCE(2785, 312)
   if (( (int)(* (( (ptr) formal_c0121)+5) ) !=  (int)1)) {
SOURCE(2806, 48)
      (* (( (ptr) formal_c0121)+7) ) = 1065;
      return(1);
      }
   else {
SOURCE(2854, 248)
      {
         word state_v5108;
         word map_v5136;
SOURCE(2856, 47)
         state_v5108 = XR_Narrow((*  (ptr) (* (( (ptr) formal_c0121)+4) ) ), (* (( (ptr) gf_c0120)+12) ));
SOURCE(2905, 75)
         {
            word pd39;
            pd39 = (* (( (ptr) (* (( (ptr) gf_c0120)+44)/* var_c19724 */  ))+16) );
            map_v5136 = (word) ( *( (fPt) ((*  (ptr) pd39 ))))((* (( (ptr) formal_c0121)+6) ), 0, pd39);
            };
SOURCE(2982, 115)
         {
            word pd40;
            pd40 = (* (( (ptr) (* (( (ptr) gf_c0120)+42)/* var_c19628 */  ))+8) );
            if ((0 != (word) ( *( (fPt) ((*  (ptr) pd40 ))))((* (( (ptr) state_v5108)+1) ), map_v5136, pd40))) {
SOURCE(3064, 33)
               {
                  word pd41;
                  pd41 = (* (( (ptr) (* (( (ptr) gf_c0120)+44)/* var_c19724 */  ))+14) );
                  (void) ( *( (fPt) ((*  (ptr) pd41 ))))(state_v5108, pd41);
                  };
               };
            };
         };
      };
   return(0);
   }

static word CreateHandleFromRasters_P240(formal_c0144, formal_c0145, formal_c0146, formal_c0147, formal_c0148)
   word formal_c0144;
   word formal_c0145;
   word formal_c0146;
   word formal_c0147;
   word formal_c0148;
   {
   W11 var_c20908;
   /* declaration of s_v4404 skipped */ 
   /* declaration of logicalDevice_v4432 skipped */ 
   /* declaration of nRasters_v4460 skipped */ 
   /* declaration of rasters_v4488 skipped */ 
   /* declaration of handleResult_v4516 skipped */ 
   /* declaration of var_c05 skipped */ 
   /* declaration of res_v4620 skipped */ 
   (* (( (ptr) &var_c20908)+4)/* s_v4404 */  ) = formal_c0144;
   (* (( (ptr) &var_c20908)+5)/* logicalDevice_v4432 */  ) = formal_c0145;
   (* (( (ptr) &var_c20908)+6)/* nRasters_v4460 */  ) = formal_c0146;
   (* (( (ptr) &var_c20908)+7)/* rasters_v4488 */  ) = formal_c0147;
   (* (( (ptr) &var_c20908)+8)/* handleResult_v4516 */  ) = formal_c0148;
   /* CreateHandleFromRasters: */ 
SOURCE(3109, 2536)
SOURCE(3109, 2536)
   (* (( (ptr) &var_c20908)+10)/* res_v4620 */  ) = 0;
SOURCE(3332, 2313)
SOURCE(3332, 2313)
   {
      word var_c06;
      {
         word var_c0132;
         var_c0132 = (word) &var_c20908;
         var_c06 = (word) XR_Enable(( ((word)  (fPt) NoName_Q1248) ), ( ((word)  (fPt) NoName_Q1308) ), var_c0132);
         };
      if ((var_c06 == 4)) {
         /* removed tail goto */ 
         }
      else {
         if ((var_c06 == 1)) {
            goto lab_L06;
            };
         };
      };
SOURCE(3109, 2536)
   return((* (( (ptr) &var_c20908)+10)/* res_v4620 */  ));
   lab_L06: ;
   return((* (( (ptr) &var_c20908)+9)/* var_c05 */  ));
   }

static word NoName_Q1248(formal_c0123)
   word formal_c0123;
   {
   register ptr gf_c0122 =  (ptr) &globalframe;
SOURCE(3530, 40)
   {
      word shd_v5192;
      word data_v5220;
      W4 sm_v5248;
SOURCE(3530, 40)
      shd_v5192 = (*  (ptr) (* (( (ptr) formal_c0123)+4) ) );
SOURCE(3572, 41)
      data_v5220 = XR_Narrow((*  (ptr) shd_v5192 ), (* (( (ptr) gf_c0122)+13) ));
SOURCE(3615, 59)
      XR_FillWords(&sm_v5248, 4, 0);
SOURCE(3676, 1969)
      if (((* (( (ptr) formal_c0123)+6) ) != (*  (ptr) data_v5220 ))) {
SOURCE(3709, 25)
         (* (( (ptr) formal_c0123)+9) ) = 1065;
         return(1);
         }
      else {
SOURCE(3734, 1916)
         {
            word setSeparation_v5340;
            word setOutputBuffers_v5368;
            word context_v5396 = 0;
            word halftoneProperties_v5424;
SOURCE(3736, 63)
            setSeparation_v5340 = (* (( (ptr) (* (( (ptr) gf_c0122)+45)/* var_c19820 */  ))+69) );
SOURCE(3801, 72)
            setOutputBuffers_v5368 = (* (( (ptr) (* (( (ptr) gf_c0122)+45)/* var_c19820 */  ))+68) );
SOURCE(3906, 109)
            halftoneProperties_v5424 = (word) MakeHalftoneProperties_P60((* (( (ptr) formal_c0123)+5) ), (*  (ptr) &fc42 ),  (unsigned) (* (
                  ( (hPt) data_v5220)+3) ));
SOURCE(4017, 78)
            {
               register word i_v5468 = 0;
               register word noName_c19852;
               noName_c19852 = (* (( (ptr) formal_c0123)+6) );
               if ((i_v5468 >= noName_c19852)) {
                  goto lab_L100019;
                  };
               lab_L100022: ;
SOURCE(4048, 47)
               {
                  word var_c19884;
                  {
                     word pd43;
                     pd43 = (* (( (ptr) (* (( (ptr) gf_c0122)+44)/* var_c19724 */  ))+16) );
                     var_c19884 = (word) ( *( (fPt) ((*  (ptr) pd43 ))))((word) (( (W9Pt) (* (( (ptr) formal_c0123)+7) ))+i_v5468), 0, pd43);
                     };
                  (* (( (ptr) &sm_v5248)+BCK(i_v5468, 4)) ) = var_c19884;
                  };
               i_v5468 = (i_v5468 + 1);
               if ((i_v5468 < noName_c19852)) {
                  goto lab_L100022;
                  };
               lab_L100019: ;
               };
SOURCE(4106, 811)
            {
               word var_c19916;
               var_c19916 = (* (( (ptr) formal_c0123)+6) );
               if ((var_c19916 == 1)) {
SOURCE(4134, 257)
                  {
                     W2 var_c19948;
                     W2 var_c19980;
                     {
                        word idx44;
                        var_c19948.f0 = (
                           idx44 = (* (( (ptr) shd_v5192)+1) ),
                           SGNCK(idx44)
                           );
                        };
                     {
                        word idx45;
                        var_c19948.f1 = (
                           idx45 = (* (( (ptr) shd_v5192)+2) ),
                           SGNCK(idx45)
                           );
                        };
                     var_c19980.f0 = (* (( (ptr) shd_v5192)+4) );
                     var_c19980.f1 = (* (( (ptr) shd_v5192)+5) );
                     {
                        word pd46;
                        pd46 = (* (( (ptr) (* (( (ptr) gf_c0122)+46)/* var_c20012 */  ))+5) );
                        context_v5396 = (word) ( *( (fPt) ((*  (ptr) pd46 ))))(var_c19948,  (unsigned) ((* (( (bPt) shd_v5192)+15) ) & 017), var_c19980, (* (
/*1*/   ( (ptr) formal_c0123)+5) ), halftoneProperties_v5424, 0
                           , 0, (* (( (ptr) gf_c0122)+22) ), 0, pd46);
                        };
                     };
SOURCE(4393, 49)
                  {
                     word pd47;
                     pd47 = (* (( (ptr) (* (( (ptr) gf_c0122)+46)/* var_c20012 */  ))+8) );
                     (void) ( *( (fPt) ((*  (ptr) pd47 ))))(context_v5396, 0, pd47);
                     };
SOURCE(4444, 44)
                  {
                     word pd48;
                     pd48 = (* (( (ptr) (* (( (ptr) gf_c0122)+46)/* var_c20012 */  ))+7) );
                     (void) ( *( (fPt) ((*  (ptr) pd48 ))))(context_v5396, sm_v5248.f0, pd48);
                     };
SOURCE(4490, 35)
                  setSeparation_v5340 = (word) (( (bPt) gf_c0122)+132)/* var_c19372 */ ;
SOURCE(4527, 41)
                  setOutputBuffers_v5368 = (word) (( (bPt) gf_c0122)+124)/* var_c19340 */ ;
                  }
               else {
                  if ((var_c19916 == 4)) {
SOURCE(4580, 337)
                     {
                        W2 var_c20044;
                        W2 var_c20076;
                        W4 var_c20108;
                        {
                           word idx49;
                           var_c20044.f0 = (
/*1*/   idx49 = (* (( (ptr) shd_v5192)+1) ),
/*1*/   SGNCK(idx49)
/*1*/   );
                           };
                        {
                           word idx50;
                           var_c20044.f1 = (
/*1*/   idx50 = (* (( (ptr) shd_v5192)+2) ),
/*1*/   SGNCK(idx50)
/*1*/   );
                           };
                        var_c20076.f0 = (* (( (ptr) shd_v5192)+4) );
                        var_c20076.f1 = (* (( (ptr) shd_v5192)+5) );
                        var_c20108.f0 = sm_v5248.f0;
                        var_c20108.f1 = sm_v5248.f1;
                        var_c20108.f2 = sm_v5248.f2;
                        var_c20108.f3 = sm_v5248.f3;
                        {
                           word pd51;
                           pd51 = (* (( (ptr) (* (( (ptr) gf_c0122)+47)/* var_c20140 */  ))+4) );
                           context_v5396 = (word) ( *( (fPt) ((*  (ptr) pd51 ))))(var_c20044,  (unsigned) ((* (( (bPt) shd_v5192)+15) ) & 017), var_c20076, (* (
/*1*/      ( (ptr) formal_c0123)+5) ), halftoneProperties_v5424, 0
/*1*/   , 0, var_c20108, pd51);
                           };
                        };
                     }
                  else {
SOURCE(4933, 5)
                     (void) XR_RaiseUnnamedError();
                     };
                  };
               };
SOURCE(4940, 707)
            {
               word iState_v5512;
               word device_v5540;
               word state_v5568;
SOURCE(4942, 92)
               {
                  word pd52;
                  pd52 = (* (( (ptr) (* (( (ptr) gf_c0122)+48)/* var_c20172 */  ))+14) );
                  iState_v5512 = (word) ( *( (fPt) ((*  (ptr) pd52 ))))(context_v5396, pd52);
                  };
SOURCE(5036, 43)
               device_v5540 = (*  (ptr) iState_v5512 );
SOURCE(5081, 375)
               {
                  word var_c20204;
                  word var_c20268;
                  word var_c20332;
                  word var_c20460;
                  word var_c20524;
                  {
                     word pd53;
                     pd53 = (* (( (ptr) (* (( (ptr) gf_c0122)+49)/* var_c20236 */  ))+53) );
                     var_c20204 = (word) ( *( (fPt) ((*  (ptr) pd53 ))))((*  (ptr) (&fc54) ), pd53);
                     };
                  {
                     word pd55;
                     pd55 = (* (( (ptr) (* (( (ptr) gf_c0122)+50)/* var_c20300 */  ))+7) );
                     var_c20268 = (word) ( *( (fPt) ((*  (ptr) pd55 ))))((*  (ptr) (&fc54) ), pd55);
                     };
                  {
                     word var_c20364;
                     word var_c20428;
                     {
                        word pd56;
                        pd56 = (* (( (ptr) (* (( (ptr) gf_c0122)+51)/* var_c20396 */  ))+7) );
                        var_c20364 = (word) ( *( (fPt) ((*  (ptr) pd56 ))))((*  (W4Pt) ((( (ptr) (* (( (ptr) device_v5540)+6) ))+1)) ), pd56);
                        };
                     var_c20428 = XR_NewObject(20, (* (( (ptr) gf_c0122)+17) ));
                     (*  (W4Pt) var_c20428 ) = (*  (W4Pt) (( (ptr) (* (( (ptr) device_v5540)+6) ))+1) );
                     (* (( (ptr) var_c20428)+4) ) = var_c20364;
                     var_c20332 = var_c20428;
                     };
                  var_c20460 = XR_NewObject(20, (* (( (ptr) gf_c0122)+18) ));
                  var_c20524 = XR_NewObject(56, (* (( (ptr) gf_c0122)+12) ));
                  (* (( (ptr) var_c20524)+1) ) = (*  (ptr) iState_v5512 );
                  (* (( (ptr) var_c20524)+4) ) = var_c20204;
                  (* (( (ptr) var_c20524)+6) ) = var_c20268;
                  (* (( (ptr) var_c20524)+7) ) = var_c20332;
                  (* (( (ptr) var_c20524)+11) ) = var_c20460;
                  state_v5568 = var_c20524;
                  };
SOURCE(5458, 19)
               (*  (ptr) iState_v5512 ) = 0;
SOURCE(5479, 55)
               {
                  word pd57;
                  pd57 = (* (( (ptr) (* (( (ptr) gf_c0122)+52)/* var_c20556 */  ))+5) );
                  (void) ( *( (fPt) ((*  (ptr) pd57 ))))(iState_v5512, pd57);
                  };
SOURCE(5536, 109)
               {
                  word pd58;
                  pd58 = (* (( (ptr) (* (( (ptr) gf_c0122)+45)/* var_c19820 */  ))+72) );
                  (*  (ptr) (* (( (ptr) formal_c0123)+8) ) ) = (word) ( *( (fPt) ((*  (ptr) pd58 ))))(state_v5568, setOutputBuffers_v5368, setSeparation_v5340, (* (
                        ( (ptr) (* (( (ptr) gf_c0122)+45)/* var_c19820 */  ))+70) ), (* (( (ptr) (* (( (ptr) gf_c0122)+45)/* var_c19820 */  ))+71)
                      ), pd58);
                  };
               };
            };
         };
      };
   return(0);
   }

extern word CII_BWHalftoneDeviceSetup()
   {
   register ptr gf_c20940 =  (ptr) &globalframe;
   word var_c4680;
   word data_v5624;
   /* BWHalftoneDeviceSetup: */ 
SOURCE(5658, 248)
SOURCE(5723, 81)
   data_v5624 = XR_NewObject(8, (* (( (ptr) gf_c20940)+13) ));
   (*  (ptr) data_v5624 ) = 1;
   (* (( (ptr) data_v5624)+1) ) = 32768;
SOURCE(5806, 100)
   {
      word pd59;
      pd59 = (* (( (ptr) (* (( (ptr) gf_c20940)+44)/* var_c19724 */  ))+12) );
      return((word) ( *( (fPt) ((*  (ptr) pd59 ))))(data_v5624, (* (( (ptr) (* (( (ptr) gf_c20940)+44)/* var_c19724 */  ))+7) ), (* (
            ( (ptr) (* (( (ptr) gf_c20940)+44)/* var_c19724 */  ))+8) ), (* (( (ptr) (* (( (ptr) gf_c20940)+44)/* var_c19724 */  ))+9)
          ), (* (( (ptr) (* (( (ptr) gf_c20940)+44)/* var_c19724 */  ))+10) ), (word) (( (bPt) gf_c20940)+116)/* var_c19308 */ , pd59)
      );
      };
   }

extern word CII_CMYKHalftoneDeviceSetup()
   {
   register ptr gf_c20972 =  (ptr) &globalframe;
   word var_c4740;
   word data_v5680;
   /* CMYKHalftoneDeviceSetup: */ 
SOURCE(5910, 291)
SOURCE(5977, 122)
   data_v5680 = XR_NewObject(8, (* (( (ptr) gf_c20972)+13) ));
   (*  (ptr) data_v5680 ) = 4;
   (* (( (ptr) data_v5680)+1) ) = 61440;
SOURCE(6101, 100)
   {
      word pd60;
      pd60 = (* (( (ptr) (* (( (ptr) gf_c20972)+44)/* var_c19724 */  ))+12) );
      return((word) ( *( (fPt) ((*  (ptr) pd60 ))))(data_v5680, (* (( (ptr) (* (( (ptr) gf_c20972)+44)/* var_c19724 */  ))+7) ), (* (
            ( (ptr) (* (( (ptr) gf_c20972)+44)/* var_c19724 */  ))+8) ), (* (( (ptr) (* (( (ptr) gf_c20972)+44)/* var_c19724 */  ))+9)
          ), (* (( (ptr) (* (( (ptr) gf_c20972)+44)/* var_c19724 */  ))+10) ), (word) (( (bPt) gf_c20972)+116)/* var_c19308 */ , pd60)
      );
      };
   }

extern word CII_CMYKHalftoneSeparationDeviceSetup()
   {
   register ptr gf_c21004 =  (ptr) &globalframe;
   word var_c4800;
   word data_v5736;
   /* CMYKHalftoneSeparationDeviceSetup: */ 
SOURCE(6205, 301)
SOURCE(6282, 122)
   data_v5736 = XR_NewObject(8, (* (( (ptr) gf_c21004)+13) ));
   (*  (ptr) data_v5736 ) = 1;
   (* (( (ptr) data_v5736)+1) ) = 61440;
SOURCE(6406, 100)
   {
      word pd61;
      pd61 = (* (( (ptr) (* (( (ptr) gf_c21004)+44)/* var_c19724 */  ))+12) );
      return((word) ( *( (fPt) ((*  (ptr) pd61 ))))(data_v5736, (* (( (ptr) (* (( (ptr) gf_c21004)+44)/* var_c19724 */  ))+7) ), (* (
            ( (ptr) (* (( (ptr) gf_c21004)+44)/* var_c19724 */  ))+8) ), (* (( (ptr) (* (( (ptr) gf_c21004)+44)/* var_c19724 */  ))+9)
          ), (* (( (ptr) (* (( (ptr) gf_c21004)+44)/* var_c19724 */  ))+10) ), (word) (( (bPt) gf_c21004)+116)/* var_c19308 */ , pd61)
      );
      };
   }

static void NoName_Q1308(formal_c0101, formal_c200008, formal_c200009, formal_c200010, formal_c200011)
   word formal_c0101;
   word formal_c200008;
   word formal_c200009;
   word formal_c200010;
   word formal_c200011;
   {
   register ptr gf_c0127 =  (ptr) &globalframe;
   if ((formal_c200009 == (* (( (ptr) (* (( (ptr) gf_c0127)+40)/* var_c19532 */  ))+4) ))) {
      {
         W3 error_v11604;
         error_v11604 = (*  (W3Pt) formal_c200011 );
SOURCE(3364, 38)
         {
            word code_v19068;
            code_v19068 = error_v11604.f0;
            if ((code_v19068 == 0)) {
               (* (( (ptr) formal_c200008)+10) ) = 0;
               }
            else {
               (* (( (ptr) formal_c200008)+10) ) = (code_v19068 + 1000);
               };
            };
SOURCE(3404, 9)
         (*  (ptr) formal_c0101 ) = 2;
         (* (( (ptr) formal_c0101)+1) ) = 4;
         return;
         };
      }
   else {
      if ((formal_c200009 == (* (( (ptr) (* (( (ptr) gf_c0127)+41)/* var_c19596 */  ))+8) ))) {
SOURCE(3446, 12)
         (* (( (ptr) formal_c200008)+10) ) = 1001;
SOURCE(3460, 9)
         (*  (ptr) formal_c0101 ) = 2;
         (* (( (ptr) formal_c0101)+1) ) = 4;
         return;
         }
      else {
         if ((formal_c200009 == (* (( (ptr) (* (( (ptr) gf_c0127)+41)/* var_c19596 */  ))+14) ))) {
SOURCE(3499, 14)
            (* (( (ptr) formal_c200008)+10) ) = 1004;
SOURCE(3515, 9)
            (*  (ptr) formal_c0101 ) = 2;
            (* (( (ptr) formal_c0101)+1) ) = 4;
            return;
            };
         };
      };
   (*  (ptr) formal_c0101 ) = 0;
   (* (( (ptr) formal_c0101)+1) ) = 0;
   return;
   }

static void NoName_Q1368(formal_c0108, formal_c200004, formal_c200005, formal_c200006, formal_c200007)
   word formal_c0108;
   word formal_c200004;
   word formal_c200005;
   word formal_c200006;
   word formal_c200007;
   {
   register ptr gf_c0128 =  (ptr) &globalframe;
   if ((formal_c200005 == (* (( (ptr) (* (( (ptr) gf_c0128)+40)/* var_c19532 */  ))+4) ))) {
      {
         W3 error_v11068;
         error_v11068 = (*  (W3Pt) formal_c200007 );
SOURCE(2619, 38)
         {
            word code_v19116;
            code_v19116 = error_v11068.f0;
            if ((code_v19116 == 0)) {
               (* (( (ptr) formal_c200004)+8) ) = 0;
               }
            else {
               (* (( (ptr) formal_c200004)+8) ) = (code_v19116 + 1000);
               };
            };
SOURCE(2659, 9)
         (*  (ptr) formal_c0108 ) = 2;
         (* (( (ptr) formal_c0108)+1) ) = 3;
         return;
         };
      }
   else {
      if ((formal_c200005 == (* (( (ptr) (* (( (ptr) gf_c0128)+41)/* var_c19596 */  ))+8) ))) {
SOURCE(2701, 12)
         (* (( (ptr) formal_c200004)+8) ) = 1001;
SOURCE(2715, 9)
         (*  (ptr) formal_c0108 ) = 2;
         (* (( (ptr) formal_c0108)+1) ) = 3;
         return;
         }
      else {
         if ((formal_c200005 == (* (( (ptr) (* (( (ptr) gf_c0128)+41)/* var_c19596 */  ))+14) ))) {
SOURCE(2754, 14)
            (* (( (ptr) formal_c200004)+8) ) = 1004;
SOURCE(2770, 9)
            (*  (ptr) formal_c0108 ) = 2;
            (* (( (ptr) formal_c0108)+1) ) = 3;
            return;
            };
         };
      };
   (*  (ptr) formal_c0108 ) = 0;
   (* (( (ptr) formal_c0108)+1) ) = 0;
   return;
   }

static void NoName_Q1428(formal_c0115, formal_c200000, formal_c200001, formal_c200002, formal_c200003)
   word formal_c0115;
   word formal_c200000;
   word formal_c200001;
   word formal_c200002;
   word formal_c200003;
   {
   register ptr gf_c0129 =  (ptr) &globalframe;
   if ((formal_c200001 == (* (( (ptr) (* (( (ptr) gf_c0129)+40)/* var_c19532 */  ))+4) ))) {
      {
         W3 error_v8572;
         error_v8572 = (*  (W3Pt) formal_c200003 );
SOURCE(1953, 38)
         {
            word code_v19164;
            code_v19164 = error_v8572.f0;
            if ((code_v19164 == 0)) {
               (* (( (ptr) formal_c200000)+7) ) = 0;
               }
            else {
               (* (( (ptr) formal_c200000)+7) ) = (code_v19164 + 1000);
               };
            };
SOURCE(1993, 9)
         (*  (ptr) formal_c0115 ) = 2;
         (* (( (ptr) formal_c0115)+1) ) = 2;
         return;
         };
      }
   else {
      if ((formal_c200001 == (* (( (ptr) (* (( (ptr) gf_c0129)+41)/* var_c19596 */  ))+8) ))) {
SOURCE(2035, 12)
         (* (( (ptr) formal_c200000)+7) ) = 1001;
SOURCE(2049, 9)
         (*  (ptr) formal_c0115 ) = 2;
         (* (( (ptr) formal_c0115)+1) ) = 2;
         return;
         }
      else {
         if ((formal_c200001 == (* (( (ptr) (* (( (ptr) gf_c0129)+41)/* var_c19596 */  ))+14) ))) {
SOURCE(2088, 14)
            (* (( (ptr) formal_c200000)+7) ) = 1004;
SOURCE(2104, 9)
            (*  (ptr) formal_c0115 ) = 2;
            (* (( (ptr) formal_c0115)+1) ) = 2;
            return;
            };
         };
      };
   (*  (ptr) formal_c0115 ) = 0;
   (* (( (ptr) formal_c0115)+1) ) = 0;
   return;
   }

/* file: CIIHalftoneDeviceImpl, module: CIIHalftoneDeviceImpl, compiled at: October 29, 1993 1:10:07 pm PDT */ 
extern void XR_install_CIIHalftoneDeviceImpl() {
   NoName_Q1068();
   }
extern void XR_run_CIIHalftoneDeviceImpl() { XR_Start(&globalframe); }