/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation.  All rights reserved. */
/* time: February 21, 1992 11:15:51 pm PST */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: UXIOTestImpl, module: UXIOTestImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [548150096,165317985] UXIOTestImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1;} W2;
typedef struct {word f0, f1, f2, f3, f4, f5;} W6;
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {W8 f; W8 r;} W16;
typedef struct {W16 f; W16 r;} W32;
typedef struct {W32 f; W32 r;} W64;
typedef struct {W64 f; W64 r;} W128;
typedef struct {word f0, f1, f2;} W3;
#define SOURCE(p, l) /* source p, l */
static float fc41 = 1.0;
static void NoName_Q576();
static void UXIOTestImpl_P0();
static void DoStream_P60();
static void DoStandard_P120();
static void DoFile_P180();
static void DoInput_P240();
static word NoName_Q636();
static void DoCopy_P300();
static void DoIndex_P360();
static void DoLength_P420();
static void NoName_Q696();
static struct {unsigned f; char r[16];} string1 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[4];} string2 = {65537, "\001\000\000"};
static struct {unsigned f; char r[12];} string3 = {720908, "a rope: %g\012"};
static struct {unsigned f; char r[8];} string4 = {262152, "rope\000\000\000"};
static struct {unsigned f; char r[12];} string5 = {720908, "an int: %g\012"};
static struct {unsigned f; char r[12];} string6 = {720908, "a char: %g\012"};
static struct {unsigned f; char r[16];} string7 = {786448, "an atom: %g\012\000\000\000"};
static struct {unsigned f; char r[8];} string8 = {262152, "atom\000\000\000"};
static struct {unsigned f; char r[12];} string9 = {720908, "a bool: %g\012"};
static struct {unsigned f; char r[12];} string10 = {720908, "a card: %g\012"};
static struct {unsigned f; char r[12];} string11 = {720908, "a real: %g\012"};
static struct {unsigned f; char r[8];} string12 = {393224, "myfile\000"};
static struct {unsigned f; char r[16];} string13 = {983056, "Type a string: "};
static struct {unsigned f; char r[36];} string14 = {2097188, "The line you just typed was: %g\012\000\000\000"};
static struct {unsigned f; char r[16];} string15 = {851984, "Type an int: \000\000"};
static struct {unsigned f; char r[24];} string16 = {1310744, "\012You just typed: %g\012\000\000\000"};
static struct {unsigned f; char r[16];} string17 = {917520, "\012Caught one. \012\000"};
static struct {unsigned f; char r[32];} string18 = {2031648, "Type an end-of-file or an int: "};
static struct {unsigned f; char r[24];} string19 = {1376280, "Type input filename: \000\000"};
static struct {unsigned f; char r[24];} string20 = {1441816, "Type output filename: \000"};
static struct {unsigned f; char r[28];} string21 = {1638428, "000000000000000000000000\012\000\000"};
static struct {unsigned f; char r[12];} string22 = {524300, "11111111\000\000\000"};
static struct {unsigned f; char r[20];} string23 = {1114132, "final index = %g\012\000\000"};
static struct {unsigned f; char r[20];} string24 = {1245204, "Length of %g is %g\012"};
static struct {unsigned f; char r[40];} string25 = {2424872, "Hello world; Cedar is alive on a Sun\012\000\000"};
static struct {unsigned f; char r[16];} string26 = {851984, "\257\300\040\254\033\120\300\011\332\215\141\100\164\000\000"};
static struct {unsigned f; char r[12];} string27 = {524296, "\006\001\034\010\000\004\027\001\000\000\000"};
static struct {unsigned f; char r[16];} string28 = {851984, "\257\300\055\153\222\376\300\327\164\352\142\100\150\000\000"};
static struct {unsigned f; char r[16];} string29 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"};
static struct {unsigned f; char r[16];} string30 = {851984, "\257\300\241\235\001\025\300\065\011\226\172\100\150\000\000"};
static struct {
   word f0[30]; word f30; word f31; word f32; 
   word f33; word f34; word f35; word f36; 
   word f37; word f38; word f39; word f40; 
   word f41; word f42; word f43; word f44; 
   word f45[4]; 
   } globalframe = {
   {0}, (word) DoLength_P420, 0, (word) DoIndex_P360, 
   0, (word) DoCopy_P300, 0, (word) DoInput_P240, 
   0, (word) DoFile_P180, 0, (word) DoStandard_P120, 
   0, (word) DoStream_P60, 0, (word) UXIOTestImpl_P0, 
   {0}
   };

static void NoName_Q576()
   {
   register ptr gf_c067 =  (ptr) &globalframe;
   word var_c11560;
   (* (( (ptr) gf_c067)+5) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (*  (ptr) (( (bPt) gf_c067)+28) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c067)+5) ), (word) &string3);
   (*  (ptr) (( (bPt) gf_c067)+32) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c067)+5) ), (word) &string4);
   (*  (ptr) (( (bPt) gf_c067)+36) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c067)+5) ), (word) &string5);
   (*  (ptr) (( (bPt) gf_c067)+40) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c067)+5) ), (word) &string6);
   (*  (ptr) (( (bPt) gf_c067)+44) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c067)+5) ), (word) &string7);
   (*  (ptr) (( (bPt) gf_c067)+48) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c067)+5) ), (word) &string8);
   (*  (ptr) (( (bPt) gf_c067)+52) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c067)+5) ), (word) &string9);
   (*  (ptr) (( (bPt) gf_c067)+56) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c067)+5) ), (word) &string10);
   (*  (ptr) (( (bPt) gf_c067)+60) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c067)+5) ), (word) &string11);
   (*  (ptr) (( (bPt) gf_c067)+64) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c067)+5) ), (word) &string12);
   (*  (ptr) (( (bPt) gf_c067)+68) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c067)+5) ), (word) &string13);
   (*  (ptr) (( (bPt) gf_c067)+72) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c067)+5) ), (word) &string14);
   (*  (ptr) (( (bPt) gf_c067)+76) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c067)+5) ), (word) &string15);
   (*  (ptr) (( (bPt) gf_c067)+80) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c067)+5) ), (word) &string16);
   (*  (ptr) (( (bPt) gf_c067)+84) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c067)+5) ), (word) &string17);
   (*  (ptr) (( (bPt) gf_c067)+88) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c067)+5) ), (word) &string18);
   (*  (ptr) (( (bPt) gf_c067)+92) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c067)+5) ), (word) &string19);
   (*  (ptr) (( (bPt) gf_c067)+96) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c067)+5) ), (word) &string20);
   (*  (ptr) (( (bPt) gf_c067)+100) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c067)+5) ), (word) &string21);
   (*  (ptr) (( (bPt) gf_c067)+104) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c067)+5) ), (word) &string22);
   (*  (ptr) (( (bPt) gf_c067)+108) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c067)+5) ), (word) &string23);
   (*  (ptr) (( (bPt) gf_c067)+112) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c067)+5) ), (word) &string24);
   (*  (ptr) (( (bPt) gf_c067)+116) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c067)+5) ), (word) &string25);
   (void) XR_DeclareGlobalFrame((word) "UXIOTestImpl", &globalframe, (word) XR_GetTypeIndex((word) &string26, 0, (word) &string27)
      , (word) (( (bPt) gf_c067)+176)/* var_c10696 */ );
   var_c11560 = (word) XR_ImportInterface((word) "Atom", (word) XR_GetTypeIndexS((word) (&string28)), 16);
   (* (( (ptr) gf_c067)+47)/* var_c10920 */  ) = var_c11560;
   (void) XR_ImportProcS(var_c11560, 67895555);
   var_c11560 = (word) XR_ImportInterface((word) "IO", (word) XR_GetTypeIndexS((word) (&string29)), 103);
   (* (( (ptr) gf_c067)+46)/* var_c10728 */  ) = var_c11560;
   (void) XR_ImportProcS(var_c11560, 67377921);
   (void) XR_ImportProcS(var_c11560, 2111493);
   (void) XR_ImportProcS(var_c11560, 530434);
   (void) XR_ImportProcS(var_c11560, 67377409);
   (void) XR_ImportProcS(var_c11560, 530946);
   (void) XR_ImportProcS(var_c11560, 1053698);
   (void) XR_ImportProcS(var_c11560, 68160002);
   (void) XR_ImportProcS(var_c11560, 67388417);
   (void) XR_ImportProcS(var_c11560, 67393281);
   (void) XR_ImportProcS(var_c11560, 1063171);
   (void) XR_ImportProcS(var_c11560, 1071364);
   var_c11560 = (word) XR_ImportInterface((word) "UXIO", (word) XR_GetTypeIndexS((word) (&string30)), 7);
   (* (( (ptr) gf_c067)+48)/* var_c11112 */  ) = var_c11560;
   (void) XR_ImportProcS(var_c11560, 67895555);
   (void) XR_ImportProcS(var_c11560, 67371009);
   }

static void UXIOTestImpl_P0(formal_c017, formal_c016)
   word formal_c017;
   word formal_c016;
   {
   /* UXIOTestImpl: */ 
SOURCE(53, 2942)
SOURCE(2986, 9)
   (void) DoInput_P240();
   }

static void DoStream_P60(s_v2884)
   word s_v2884;
   {
   register ptr gf_c11592 =  (ptr) &globalframe;
   /* DoStream: */ 
SOURCE(113, 539)
SOURCE(147, 55)
   {
      word pd31;
      pd31 = (* (( (ptr) (* (( (ptr) gf_c11592)+46)/* var_c10728 */  ))+93) );
      (void) ( *( (fPt) ((*  (ptr) pd31 ))))(s_v2884, (* (( (ptr) gf_c11592)+29) ), 0, 2147483647, pd31);
      };
SOURCE(204, 43)
   {
      W2 var_c10760;
      var_c10760.f0 = 11;
      var_c10760.f1 = (* (( (ptr) gf_c11592)+8) );
      {
         word pd32;
         pd32 = (* (( (ptr) (* (( (ptr) gf_c11592)+46)/* var_c10728 */  ))+61) );
         (void) ( *( (fPt) ((*  (ptr) pd32 ))))(s_v2884, (* (( (ptr) gf_c11592)+7) ), var_c10760, pd32);
         };
      };
SOURCE(249, 49)
   {
      W2 var_c10792;
      var_c10792.f0 = 5;
      var_c10792.f1 = 2147483647;
      {
         word pd33;
         pd33 = (* (( (ptr) (* (( (ptr) gf_c11592)+46)/* var_c10728 */  ))+61) );
         (void) ( *( (fPt) ((*  (ptr) pd33 ))))(s_v2884, (* (( (ptr) gf_c11592)+9) ), var_c10792, pd33);
         };
      };
SOURCE(300, 50)
   {
      W2 var_c10824;
      var_c10824.f0 = 5;
      var_c10824.f1 = 2147483648;
      {
         word pd34;
         pd34 = (* (( (ptr) (* (( (ptr) gf_c11592)+46)/* var_c10728 */  ))+61) );
         (void) ( *( (fPt) ((*  (ptr) pd34 ))))(s_v2884, (* (( (ptr) gf_c11592)+9) ), var_c10824, pd34);
         };
      };
SOURCE(352, 44)
   {
      W2 var_c10856;
      var_c10856.f0 = 3;
      var_c10856.f1 = 99;
      {
         word pd35;
         pd35 = (* (( (ptr) (* (( (ptr) gf_c11592)+46)/* var_c10728 */  ))+61) );
         (void) ( *( (fPt) ((*  (ptr) pd35 ))))(s_v2884, (* (( (ptr) gf_c11592)+10) ), var_c10856, pd35);
         };
      };
SOURCE(398, 59)
   {
      word var_c10888;
      {
         word pd36;
         pd36 = (* (( (ptr) (* (( (ptr) gf_c11592)+47)/* var_c10920 */  ))+5) );
         var_c10888 = (word) ( *( (fPt) ((*  (ptr) pd36 ))))((* (( (ptr) gf_c11592)+12) ), 0, 2147483647, pd36);
         };
      {
         W2 var_c10952;
         var_c10952.f0 = 1;
         var_c10952.f1 = var_c10888;
         {
            word pd37;
            pd37 = (* (( (ptr) (* (( (ptr) gf_c11592)+46)/* var_c10728 */  ))+61) );
            (void) ( *( (fPt) ((*  (ptr) pd37 ))))(s_v2884, (* (( (ptr) gf_c11592)+11) ), var_c10952, pd37);
            };
         };
      };
SOURCE(459, 44)
   {
      W2 var_c10984;
      var_c10984.f0 = 2;
      var_c10984.f1 = 1;
      {
         word pd38;
         pd38 = (* (( (ptr) (* (( (ptr) gf_c11592)+46)/* var_c10728 */  ))+61) );
         (void) ( *( (fPt) ((*  (ptr) pd38 ))))(s_v2884, (* (( (ptr) gf_c11592)+13) ), var_c10984, pd38);
         };
      };
SOURCE(505, 51)
   {
      W2 var_c11016;
      var_c11016.f0 = 4;
      var_c11016.f1 =  (word) -1;
      {
         word pd39;
         pd39 = (* (( (ptr) (* (( (ptr) gf_c11592)+46)/* var_c10728 */  ))+61) );
         (void) ( *( (fPt) ((*  (ptr) pd39 ))))(s_v2884, (* (( (ptr) gf_c11592)+14) ), var_c11016, pd39);
         };
      };
SOURCE(558, 52)
   {
      W2 var_c11048;
      var_c11048.f0 = 4;
      var_c11048.f1 = 0;
      {
         word pd40;
         pd40 = (* (( (ptr) (* (( (ptr) gf_c11592)+46)/* var_c10728 */  ))+61) );
         (void) ( *( (fPt) ((*  (ptr) pd40 ))))(s_v2884, (* (( (ptr) gf_c11592)+14) ), var_c11048, pd40);
         };
      };
SOURCE(612, 40)
   {
      W2 var_c11080;
      var_c11080.f0 = 8;
      var_c11080.f1 = (*  (ptr) &fc41 );
      {
         word pd42;
         pd42 = (* (( (ptr) (* (( (ptr) gf_c11592)+46)/* var_c10728 */  ))+61) );
         (void) ( *( (fPt) ((*  (ptr) pd42 ))))(s_v2884, (* (( (ptr) gf_c11592)+15) ), var_c11080, pd42);
         };
      };
   }

static void DoStandard_P120()
   {
   register ptr gf_c11624 =  (ptr) &globalframe;
   word s_v3008;
   /* DoStandard: */ 
SOURCE(658, 85)
SOURCE(682, 48)
   {
      word pd43;
      pd43 = (* (( (ptr) (* (( (ptr) gf_c11624)+48)/* var_c11112 */  ))+4) );
      s_v3008 = (word) ( *( (fPt) ((*  (ptr) pd43 ))))(1, pd43);
      };
SOURCE(732, 11)
   (void) DoStream_P60(s_v3008);
   }

static void DoFile_P180()
   {
   register ptr gf_c11656 =  (ptr) &globalframe;
   word s_v3052;
   /* DoFile: */ 
SOURCE(749, 86)
SOURCE(769, 53)
   {
      word pd44;
      pd44 = (* (( (ptr) (* (( (ptr) gf_c11656)+48)/* var_c11112 */  ))+5) );
      s_v3052 = (word) ( *( (fPt) ((*  (ptr) pd44 ))))((* (( (ptr) gf_c11656)+16) ), 2, 436, pd44);
      };
SOURCE(824, 11)
   (void) DoStream_P60(s_v3052);
   }

static void DoInput_P240()
   {
   W6 var_c11688;
   register ptr gf_c11720 =  (ptr) &globalframe;
   /* declaration of i_v3096 skipped */ 
   /* declaration of o_v3124 skipped */ 
   /* DoInput: */ 
SOURCE(841, 543)
SOURCE(862, 47)
   {
      word pd45;
      pd45 = (* (( (ptr) (* (( (ptr) gf_c11720)+48)/* var_c11112 */  ))+4) );
      var_c11688.f4/* i_v3096 */  = (word) ( *( (fPt) ((*  (ptr) pd45 ))))(0, pd45);
      };
SOURCE(911, 48)
   {
      word pd46;
      pd46 = (* (( (ptr) (* (( (ptr) gf_c11720)+48)/* var_c11112 */  ))+4) );
      var_c11688.f5/* o_v3124 */  = (word) ( *( (fPt) ((*  (ptr) pd46 ))))(1, pd46);
      };
SOURCE(962, 28)
   {
      word pd47;
      pd47 = (* (( (ptr) (* (( (ptr) gf_c11720)+46)/* var_c10728 */  ))+93) );
      (void) ( *( (fPt) ((*  (ptr) pd47 ))))(var_c11688.f5/* o_v3124 */ , (* (( (ptr) gf_c11720)+17) ), 0, 2147483647, pd47);
      };
SOURCE(992, 69)
   {
      word var_c11144;
      {
         word pd48;
         pd48 = (* (( (ptr) (* (( (ptr) gf_c11720)+46)/* var_c10728 */  ))+91) );
         var_c11144 = (word) ( *( (fPt) ((*  (ptr) pd48 ))))(var_c11688.f4/* i_v3096 */ , pd48);
         };
      {
         W2 var_c11176;
         var_c11176.f0 = 11;
         var_c11176.f1 = var_c11144;
         {
            word pd49;
            pd49 = (* (( (ptr) (* (( (ptr) gf_c11720)+46)/* var_c10728 */  ))+61) );
            (void) ( *( (fPt) ((*  (ptr) pd49 ))))(var_c11688.f5/* o_v3124 */ , (* (( (ptr) gf_c11720)+18) ), var_c11176, pd49);
            };
         };
      };
SOURCE(1063, 26)
   {
      word pd50;
      pd50 = (* (( (ptr) (* (( (ptr) gf_c11720)+46)/* var_c10728 */  ))+93) );
      (void) ( *( (fPt) ((*  (ptr) pd50 ))))(var_c11688.f5/* o_v3124 */ , (* (( (ptr) gf_c11720)+19) ), 0, 2147483647, pd50);
      };
SOURCE(1091, 56)
   {
      word var_c11208;
      {
         word pd51;
         pd51 = (* (( (ptr) (* (( (ptr) gf_c11720)+46)/* var_c10728 */  ))+72) );
         var_c11208 = (word) ( *( (fPt) ((*  (ptr) pd51 ))))(var_c11688.f4/* i_v3096 */ , pd51);
         };
      {
         W2 var_c11240;
         var_c11240.f0 = 5;
         var_c11240.f1 = var_c11208;
         {
            word pd52;
            pd52 = (* (( (ptr) (* (( (ptr) gf_c11720)+46)/* var_c10728 */  ))+61) );
            (void) ( *( (fPt) ((*  (ptr) pd52 ))))(var_c11688.f5/* o_v3124 */ , (* (( (ptr) gf_c11720)+20) ), var_c11240, pd52);
            };
         };
      };
SOURCE(1149, 235)
SOURCE(1152, 202)
   {
      word var_c01;
      {
         word var_c078;
         var_c078 = (word) &var_c11688;
         var_c01 = (word) XR_Enable(( ((word)  (fPt) NoName_Q636) ), ( ((word)  (fPt) NoName_Q696) ), var_c078);
         };
      if ((var_c01 == 2)) {
         goto lab_L100000;
         };
      };
   goto lab_L100006;
   lab_L100000: ;
   lab_L100006: ;
   }

static word NoName_Q636(formal_c073)
   word formal_c073;
   {
   register ptr gf_c072 =  (ptr) &globalframe;
SOURCE(1249, 105)
   lab_L100005: ;
SOURCE(1252, 44)
   {
      word pd53;
      pd53 = (* (( (ptr) (* (( (ptr) gf_c072)+46)/* var_c10728 */  ))+93) );
      (void) ( *( (fPt) ((*  (ptr) pd53 ))))((* (( (ptr) formal_c073)+5) ), (* (( (ptr) gf_c072)+22) ), 0, 2147483647, pd53);
      };
SOURCE(1298, 56)
   {
      word var_c11272;
      {
         word pd54;
         pd54 = (* (( (ptr) (* (( (ptr) gf_c072)+46)/* var_c10728 */  ))+72) );
         var_c11272 = (word) ( *( (fPt) ((*  (ptr) pd54 ))))((* ((( (ptr) formal_c073)+4)) ), pd54);
         };
      {
         W2 var_c11304;
         var_c11304.f0 = 5;
         var_c11304.f1 = var_c11272;
         {
            word pd55;
            pd55 = (* (( (ptr) (* (( (ptr) gf_c072)+46)/* var_c10728 */  ))+61) );
            (void) ( *( (fPt) ((*  (ptr) pd55 ))))((* (( (ptr) formal_c073)+5) ), (* (( (ptr) gf_c072)+20) ), var_c11304, pd55);
            };
         };
      };
   goto lab_L100005;
   /* c2c skipped dead code */ 
   }

static void DoCopy_P300()
   {
   register ptr gf_c11752 =  (ptr) &globalframe;
   word i_v3168;
   word o_v3196;
   word infile_v3224 = 0;
   word outfile_v3252 = 0;
   /* DoCopy: */ 
SOURCE(1391, 786)
SOURCE(1411, 47)
   {
      word pd56;
      pd56 = (* (( (ptr) (* (( (ptr) gf_c11752)+48)/* var_c11112 */  ))+4) );
      i_v3168 = (word) ( *( (fPt) ((*  (ptr) pd56 ))))(0, pd56);
      };
SOURCE(1460, 48)
   {
      word pd57;
      pd57 = (* (( (ptr) (* (( (ptr) gf_c11752)+48)/* var_c11112 */  ))+4) );
      o_v3196 = (word) ( *( (fPt) ((*  (ptr) pd57 ))))(1, pd57);
      };
SOURCE(1539, 34)
   {
      word pd58;
      pd58 = (* (( (ptr) (* (( (ptr) gf_c11752)+46)/* var_c10728 */  ))+93) );
      (void) ( *( (fPt) ((*  (ptr) pd58 ))))(o_v3196, (* (( (ptr) gf_c11752)+23) ), 0, 2147483647, pd58);
      };
SOURCE(1575, 24)
   {
      word pd59;
      pd59 = (* (( (ptr) (* (( (ptr) gf_c11752)+46)/* var_c10728 */  ))+91) );
      infile_v3224 = (word) ( *( (fPt) ((*  (ptr) pd59 ))))(i_v3168, pd59);
      };
SOURCE(1601, 35)
   {
      word pd60;
      pd60 = (* (( (ptr) (* (( (ptr) gf_c11752)+46)/* var_c10728 */  ))+93) );
      (void) ( *( (fPt) ((*  (ptr) pd60 ))))(o_v3196, (* (( (ptr) gf_c11752)+24) ), 0, 2147483647, pd60);
      };
SOURCE(1638, 25)
   {
      word pd61;
      pd61 = (* (( (ptr) (* (( (ptr) gf_c11752)+46)/* var_c10728 */  ))+91) );
      outfile_v3252 = (word) ( *( (fPt) ((*  (ptr) pd61 ))))(i_v3168, pd61);
      };
SOURCE(1665, 515)
   {
      word source_v3296;
      word dest_v3324;
      W128 buffer_v3352;
      W3 bufferblock_v3380;
SOURCE(1667, 69)
      {
         word pd62;
         pd62 = (* (( (ptr) (* (( (ptr) gf_c11752)+48)/* var_c11112 */  ))+5) );
         source_v3296 = (word) ( *( (fPt) ((*  (ptr) pd62 ))))(infile_v3224, 0, 436, pd62);
         };
SOURCE(1738, 69)
      {
         word pd63;
         pd63 = (* (( (ptr) (* (( (ptr) gf_c11752)+48)/* var_c11112 */  ))+5) );
         dest_v3324 = (word) ( *( (fPt) ((*  (ptr) pd63 ))))(outfile_v3252, 2, 436, pd63);
         };
SOURCE(1847, 72)
      bufferblock_v3380.f0 = 0;
      bufferblock_v3380.f1 = 0;
      bufferblock_v3380.f2 = 512;
SOURCE(1929, 248)
SOURCE(1931, 36)
      bufferblock_v3380.f0 = (word) &buffer_v3352;
SOURCE(1969, 205)
      {
         word bytesread_v3460;
SOURCE(1971, 51)
         {
            word pd64;
            pd64 = (* (( (ptr) (* (( (ptr) gf_c11752)+46)/* var_c10728 */  ))+14) );
            bytesread_v3460 = (word) ( *( (fPt) ((*  (ptr) pd64 ))))(source_v3296, bufferblock_v3380, pd64);
            };
SOURCE(2024, 139)
         lab_L100009: ;
         if (( (int)bytesread_v3460 >  (int)0)) {
            }
         else {
            goto lab_L100007;
            };
SOURCE(2047, 29)
         bufferblock_v3380.f2 = bytesread_v3460;
SOURCE(2078, 37)
         {
            word pd65;
            pd65 = (* (( (ptr) (* (( (ptr) gf_c11752)+46)/* var_c10728 */  ))+24) );
            (void) ( *( (fPt) ((*  (ptr) pd65 ))))(dest_v3324, bufferblock_v3380, pd65);
            };
SOURCE(2117, 46)
         {
            word pd66;
            pd66 = (* (( (ptr) (* (( (ptr) gf_c11752)+46)/* var_c10728 */  ))+14) );
            bytesread_v3460 = (word) ( *( (fPt) ((*  (ptr) pd66 ))))(source_v3296, bufferblock_v3380, pd66);
            };
         goto lab_L100009;
         lab_L100007: ;
         };
      };
   }

static void DoIndex_P360()
   {
   register ptr gf_c11784 =  (ptr) &globalframe;
   word i_v3504;
   word o_v3532;
   word s_v3560 = 0;
   word outfile_v3588 = 0;
   /* DoIndex: */ 
SOURCE(2187, 432)
SOURCE(2208, 47)
   {
      word pd67;
      pd67 = (* (( (ptr) (* (( (ptr) gf_c11784)+48)/* var_c11112 */  ))+4) );
      i_v3504 = (word) ( *( (fPt) ((*  (ptr) pd67 ))))(0, pd67);
      };
SOURCE(2257, 48)
   {
      word pd68;
      pd68 = (* (( (ptr) (* (( (ptr) gf_c11784)+48)/* var_c11112 */  ))+4) );
      o_v3532 = (word) ( *( (fPt) ((*  (ptr) pd68 ))))(1, pd68);
      };
SOURCE(2348, 35)
   {
      word pd69;
      pd69 = (* (( (ptr) (* (( (ptr) gf_c11784)+46)/* var_c10728 */  ))+93) );
      (void) ( *( (fPt) ((*  (ptr) pd69 ))))(o_v3532, (* (( (ptr) gf_c11784)+24) ), 0, 2147483647, pd69);
      };
SOURCE(2385, 25)
   {
      word pd70;
      pd70 = (* (( (ptr) (* (( (ptr) gf_c11784)+46)/* var_c10728 */  ))+91) );
      outfile_v3588 = (word) ( *( (fPt) ((*  (ptr) pd70 ))))(i_v3504, pd70);
      };
SOURCE(2412, 41)
   {
      word pd71;
      pd71 = (* (( (ptr) (* (( (ptr) gf_c11784)+48)/* var_c11112 */  ))+5) );
      s_v3560 = (word) ( *( (fPt) ((*  (ptr) pd71 ))))(outfile_v3588, 2, 436, pd71);
      };
SOURCE(2455, 43)
   {
      word pd72;
      pd72 = (* (( (ptr) (* (( (ptr) gf_c11784)+46)/* var_c10728 */  ))+93) );
      (void) ( *( (fPt) ((*  (ptr) pd72 ))))(s_v3560, (* (( (ptr) gf_c11784)+25) ), 0, 2147483647, pd72);
      };
SOURCE(2500, 17)
   {
      word pd73;
      pd73 = (* (( (ptr) (* (( (ptr) gf_c11784)+46)/* var_c10728 */  ))+30) );
      (void) ( *( (fPt) ((*  (ptr) pd73 ))))(s_v3560, 8, pd73);
      };
SOURCE(2519, 25)
   {
      word pd74;
      pd74 = (* (( (ptr) (* (( (ptr) gf_c11784)+46)/* var_c10728 */  ))+93) );
      (void) ( *( (fPt) ((*  (ptr) pd74 ))))(s_v3560, (* (( (ptr) gf_c11784)+26) ), 0, 2147483647, pd74);
      };
SOURCE(2546, 60)
   {
      word var_c11368;
      {
         word pd75;
         pd75 = (* (( (ptr) (* (( (ptr) gf_c11784)+46)/* var_c10728 */  ))+29) );
         var_c11368 = (word) ( *( (fPt) ((*  (ptr) pd75 ))))(s_v3560, pd75);
         };
      {
         W2 var_c11400;
         var_c11400.f0 = 5;
         var_c11400.f1 = var_c11368;
         {
            word pd76;
            pd76 = (* (( (ptr) (* (( (ptr) gf_c11784)+46)/* var_c10728 */  ))+61) );
            (void) ( *( (fPt) ((*  (ptr) pd76 ))))(o_v3532, (* (( (ptr) gf_c11784)+27) ), var_c11400, pd76);
            };
         };
      };
SOURCE(2608, 11)
   {
      word pd77;
      pd77 = (* (( (ptr) (* (( (ptr) gf_c11784)+46)/* var_c10728 */  ))+28) );
      (void) ( *( (fPt) ((*  (ptr) pd77 ))))(s_v3560, 0, pd77);
      };
   }

static void DoLength_P420()
   {
   register ptr gf_c11816 =  (ptr) &globalframe;
   word i_v3632;
   word o_v3660;
   word s_v3688 = 0;
   word infile_v3716 = 0;
   /* DoLength: */ 
SOURCE(2625, 355)
SOURCE(2647, 47)
   {
      word pd78;
      pd78 = (* (( (ptr) (* (( (ptr) gf_c11816)+48)/* var_c11112 */  ))+4) );
      i_v3632 = (word) ( *( (fPt) ((*  (ptr) pd78 ))))(0, pd78);
      };
SOURCE(2696, 48)
   {
      word pd79;
      pd79 = (* (( (ptr) (* (( (ptr) gf_c11816)+48)/* var_c11112 */  ))+4) );
      o_v3660 = (word) ( *( (fPt) ((*  (ptr) pd79 ))))(1, pd79);
      };
SOURCE(2786, 34)
   {
      word pd80;
      pd80 = (* (( (ptr) (* (( (ptr) gf_c11816)+46)/* var_c10728 */  ))+93) );
      (void) ( *( (fPt) ((*  (ptr) pd80 ))))(o_v3660, (* (( (ptr) gf_c11816)+23) ), 0, 2147483647, pd80);
      };
SOURCE(2822, 24)
   {
      word pd81;
      pd81 = (* (( (ptr) (* (( (ptr) gf_c11816)+46)/* var_c10728 */  ))+91) );
      infile_v3716 = (word) ( *( (fPt) ((*  (ptr) pd81 ))))(i_v3632, pd81);
      };
SOURCE(2848, 39)
   {
      word pd82;
      pd82 = (* (( (ptr) (* (( (ptr) gf_c11816)+48)/* var_c11112 */  ))+5) );
      s_v3688 = (word) ( *( (fPt) ((*  (ptr) pd82 ))))(infile_v3716, 0, 436, pd82);
      };
SOURCE(2889, 78)
   {
      word var_c11432;
      {
         word pd83;
         pd83 = (* (( (ptr) (* (( (ptr) gf_c11816)+46)/* var_c10728 */  ))+31) );
         var_c11432 = (word) ( *( (fPt) ((*  (ptr) pd83 ))))(s_v3688, pd83);
         };
      {
         W2 var_c11464;
         W2 var_c11496;
         W2 var_c079;
         var_c11464.f0 = 11;
         var_c11464.f1 = infile_v3716;
         var_c11496.f0 = 5;
         var_c11496.f1 = var_c11432;
         (*  (ptr) (word) &var_c079 ) = 0;
         (* (( (ptr) (word) &var_c079) + 1) ) = 0;
         {
            word pd84;
            pd84 = (* (( (ptr) (* (( (ptr) gf_c11816)+46)/* var_c10728 */  ))+60) );
            (void) ( *( (fPt) ((*  (ptr) pd84 ))))(o_v3660, (* (( (ptr) gf_c11816)+28) ), var_c11464, var_c11496, var_c079, pd84);
            };
         };
      };
SOURCE(2969, 11)
   {
      word pd85;
      pd85 = (* (( (ptr) (* (( (ptr) gf_c11816)+46)/* var_c10728 */  ))+28) );
      (void) ( *( (fPt) ((*  (ptr) pd85 ))))(s_v3688, 0, pd85);
      };
   }

static void NoName_Q696(formal_c066, formal_c200000, formal_c200001, formal_c200002, formal_c200003)
   word formal_c066;
   word formal_c200000;
   word formal_c200001;
   word formal_c200002;
   word formal_c200003;
   {
   register ptr gf_c077 =  (ptr) &globalframe;
   if ((formal_c200001 == (* (( (ptr) (* (( (ptr) gf_c077)+46)/* var_c10728 */  ))+4) ))) {
      {
         word stream_v8992;
         stream_v8992 = (*  (ptr) formal_c200003 );
SOURCE(1181, 29)
         {
            word pd86;
            pd86 = (* (( (ptr) (* (( (ptr) gf_c077)+46)/* var_c10728 */  ))+93) );
            (void) ( *( (fPt) ((*  (ptr) pd86 ))))((* (( (ptr) formal_c200000)+5) ), (* (( (ptr) gf_c077)+21) ), 0, 2147483647, pd86)
            ;
            };
SOURCE(1212, 9)
         (*  (ptr) formal_c066 ) = 2;
         (* (( (ptr) formal_c066)+1) ) = 2;
         return;
         };
      }
   else {
      if ((formal_c200001 == XR_Uncaught)) {
SOURCE(1236, 8)
         (*  (ptr) formal_c066 ) = 2;
         (* (( (ptr) formal_c066)+1) ) = 2;
         return;
         };
      };
   (*  (ptr) formal_c066 ) = 0;
   (* (( (ptr) formal_c066)+1) ) = 0;
   return;
   }

/* file: UXIOTestImpl, module: UXIOTestImpl, compiled at: February 21, 1992 11:15:50 pm PST */ 
extern void XR_install_UXIOTestImpl() {
   NoName_Q576();
   }
extern void XR_run_UXIOTestImpl() { XR_Start(&globalframe); }