/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation.  All rights reserved. */
/* time: April 21, 1992 12:54:41 pm PDT */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: XlAsciiInputImpl, module: XlAsciiInputImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [3221998953,32288589] XlAsciiInputImpl";
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 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; word r;} W9;
typedef struct {word f0, f1;} W2;
typedef struct {word f0, f1, f2, f3, f4;} W5;
#define SOURCE(p, l) /* source p, l */
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR_RaiseBoundsFault()) : (idx) )
#define IABS(i) ( ((int)(word)(i) > 0) ? (i) : (word)(-(int)(word)(i)) )
#define SGNCK(i) ((int) (word) (i) < 0 ? XR_RaiseArithmeticFault(): i )
static void NoName_Q1788();
static void XlAsciiInputImpl_P0();
static void BroadCast_P60();
static word NoName_Q1848();
static word GetBuffer_P120();
static void DisposeBuffer_P180();
static word EnableAsciiInput_P240();
static void EventProc_P300();
static word NoName_Q1908();
static void TypeIn_P360();
static word NoName_Q1968();
static word EachChar_P1212();
static void QueueChar_P420();
static word NoName_Q2028();
static void InternalQueueChar_P480();
static word CharAvailable_P540();
static void EntryCharAvailable_P1320();
static word NoName_Q2088();
static word GetChar_P600();
static void EntryGetChar_P1380();
static word NoName_Q2148();
static void ResetBuffer_P660();
static word NoName_Q2208();
static void InitCond_P720();
static word NoName_Q2268();
static void NoName_Q2328();
static void NoName_Q2388();
static void NoName_Q2448();
static void NoName_Q2508();
static void NoName_Q2568();
static void NoName_Q2628();
static void NoName_Q2688();
static void NoName_Q2748();
static struct {unsigned f; char r[44];} string1 = {2752556, "\260\006\005\146\151\162\163\164\257\300\233\221\325\046\300\135\160\307\206\100\200\005\004\162\145\163\164\214\257\300\233\221\325\046\300\135\160\307\206\100\200\261\000"};
static struct {unsigned f; char r[4];} string2 = {131074, "\003\001\000"};
static struct {unsigned f; char r[16];} string3 = {851984, "\257\300\300\013\315\151\300\001\354\257\115\100\200\000\000"};
static struct {unsigned f; char r[4];} string4 = {131074, "\003 \000"};
static struct {unsigned f; char r[16];} string5 = {851984, "\257\300\300\013\315\151\300\001\354\257\115\100\214\000\000"};
static struct {unsigned f; char r[4];} string6 = {196611, "\004@\320"};
static struct {unsigned f; char r[16];} string7 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\107\320\000\000"};
static struct {unsigned f; char r[4];} string8 = {131074, "\004\016\000"};
static struct {unsigned f; char r[4];} string9 = {65540, "\243\000\000"};
static struct {unsigned f; char r[16];} string10 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\104\304\000\000"};
static struct {unsigned f; char r[24];} string11 = {1376277, "\007\000\001\002\007\020\001\002\000\007\036\002\004\003\002\004\014\016\015\003\001\000\000"};
static struct {unsigned f; char r[16];} string12 = {851984, "\257\300\300\013\315\151\300\001\354\257\115\100\164\000\000"};
static struct {unsigned f; char r[12];} string13 = {655370, "\006\003\040\001\100\100\001\100\104\001\000"};
static struct {unsigned f; char r[16];} string14 = {851984, "\257\300\240\236\274\315\300\111\163\325\023\100\150\000\000"};
static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\072\360\036\365\300\334\030\146\334\100\150\000\000"};
static struct {unsigned f; char r[16];} string17 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\100\164\000\000"};
static struct {unsigned f; char r[16];} string18 = {851984, "\257\300\130\354\167\377\300\226\325\031\150\100\150\000\000"};
static struct {unsigned f; char r[16];} string19 = {851984, "\257\300\151\002\164\071\300\061\276\320\272\100\150\000\000"};
static struct {
   word f0[26]; word f26; word f27; word f28; 
   word f29; 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; word f46; word f47; word f48; 
   word f49; word f50; word f51[7]; 
   } globalframe = {
   {0}, (word) InitCond_P720, 0, (word) ResetBuffer_P660, 
   0, (word) GetChar_P600, 0, (word) CharAvailable_P540, 
   0, (word) InternalQueueChar_P480, 0, (word) QueueChar_P420, 
   0, (word) TypeIn_P360, 0, (word) EventProc_P300, 
   0, (word) EnableAsciiInput_P240, 0, (word) DisposeBuffer_P180, 
   0, (word) GetBuffer_P120, 0, (word) BroadCast_P60, 
   0, (word) XlAsciiInputImpl_P0, {0}
   };

static void NoName_Q1788()
   {
   register ptr gf_c0146 =  (ptr) &globalframe;
   word var_c16492;
   (* (( (ptr) gf_c0146)+18) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (* (( (ptr) gf_c0146)+20) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4);
   (* (( (ptr) gf_c0146)+21) ) = (word) XR_GetTypeIndex((word) &string5, 0, (word) &string6);
   (* (( (ptr) gf_c0146)+22) ) = (word) XR_GetTypeIndex((word) &string7, 0, (word) &string8);
   (* (( (ptr) gf_c0146)+23) ) = (word) XR_GetTypeIndexS((word) (&string9));
   (* (( (ptr) gf_c0146)+24) ) = (word) XR_GetTypeIndex((word) &string10, 0, (word) &string11);
   (void) XR_DeclareGlobalFrame((word) "XlAsciiInputImpl", &globalframe, (word) XR_GetTypeIndex((word) &string12, 0, (word) &string13)
      , (word) (( (bPt) gf_c0146)+200)/* var_c15436 */ );
   var_c16492 = (word) XR_ImportInterface((word) "Process", (word) XR_GetTypeIndexS((word) (&string14)), 22);
   (* (( (ptr) gf_c0146)+56)/* var_c16204 */  ) = var_c16492;
   (void) XR_ImportProcS(var_c16492, 67371521);
   (void) XR_ImportProcS(var_c16492, 524546);
   (void) XR_ImportProcS(var_c16492, 3584);
   var_c16492 = (word) XR_ImportInterface((word) "Rope", (word) XR_GetTypeIndexS((word) (&string15)), 43);
   (* (( (ptr) gf_c0146)+55)/* var_c15980 */  ) = var_c16492;
   (void) XR_ImportProcS(var_c16492, 68163076);
   var_c16492 = (word) XR_ImportInterface((word) "XlAscii", (word) XR_GetTypeIndexS((word) (&string16)), 3);
   (* (( (ptr) gf_c0146)+53)/* var_c15724 */  ) = var_c16492;
   (void) XR_ImportProcS(var_c16492, 269484036);
   var_c16492 = (word) XR_ImportInterface((word) "Xl", (word) XR_GetTypeIndexS((word) (&string17)), 218);
   (* (( (ptr) gf_c0146)+52)/* var_c15468 */  ) = var_c16492;
   (void) XR_ImportProcS(var_c16492, 1329157);
   (void) XR_ImportProcS(var_c16492, 67910403);
   (void) XR_ImportProcS(var_c16492, 68207876);
   var_c16492 = (word) XR_ImportInterface((word) "XlCutBuffers", (word) XR_GetTypeIndexS((word) (&string18)), 2);
   (* (( (ptr) gf_c0146)+54)/* var_c15788 */  ) = var_c16492;
   (void) XR_ImportProcS(var_c16492, 67633154);
   var_c16492 = (word) XR_ExportInterface((word) "XlAsciiInput", (word) XR_GetTypeIndexS((word) (&string19)), 6);
   (* (( (ptr) gf_c0146)+57)/* var_c16524 */  ) = var_c16492;
   (void) XR_ExportVar(var_c16492, 0, (word) (( (bPt) gf_c0146)+100)/* var_c15020 */ );
   (void) XR_ExportProcS(var_c16492, (word) (( (bPt) gf_c0146)+168)/* var_c15308 */ , 67633410);
   (void) XR_ExportProcS(var_c16492, (word) (( (bPt) gf_c0146)+128)/* var_c15148 */ , 67633666);
   (void) XR_ExportProcS(var_c16492, (word) (( (bPt) gf_c0146)+120)/* var_c15116 */ , 67633922);
   (void) XR_ExportProcS(var_c16492, (word) (( (bPt) gf_c0146)+152)/* var_c15244 */ , 525314);
   (void) XR_ExportProcS(var_c16492, (word) (( (bPt) gf_c0146)+112)/* var_c15084 */ , 263425);
   }

static void XlAsciiInputImpl_P0(formal_c035, formal_c032)
   word formal_c035;
   word formal_c032;
   {
   register ptr gf_c16556 =  (ptr) &globalframe;
   /* XlAsciiInputImpl: */ 
SOURCE(104, 4975)
SOURCE(239, 64)
   {
      word pd20;
      pd20 = (* (( (ptr) (* (( (ptr) gf_c16556)+52)/* var_c15468 */  ))+201) );
      (* (( (ptr) gf_c16556)+8)/* events_v2804 */  ) = (word) ( *( (fPt) ((*  (ptr) pd20 ))))(17, 2, 35, 35, pd20);
      };
SOURCE(1473, 15)
   {
      word var_c15500;
      word var_c15532;
      var_c15500 = XR_NewObject(8, (* (( (ptr) gf_c16556)+18) ));
      var_c15532 = var_c15500;
      (*  (ptr) var_c15532 ) = 268828532;
      (* (( (ptr) var_c15532)+1) ) = XR_NewObject(8, (* (( (ptr) gf_c16556)+18) ));
      var_c15532 = (* (( (ptr) var_c15532)+1) );
      (*  (ptr) var_c15532 ) = 268762884;
      (* (( (ptr) var_c15532)+1) ) = XR_NewObject(8, (* (( (ptr) gf_c16556)+18) ));
      var_c15532 = (* (( (ptr) var_c15532)+1) );
      (*  (ptr) var_c15532 ) = 268500740;
      (* (( (ptr) gf_c16556)+17)/* listWithPaste_v3140 */  ) = var_c15500;
      };
SOURCE(5069, 10)
   (void) InitCond_P720();
   }

static void BroadCast_P60()
   {
   W4 var_c16588;
   register ptr gf_c16620 =  (ptr) &globalframe;
   /* BroadCast: */ 
SOURCE(325, 66)
   (void) (XR_MonitorEntry((word) (( (bPt) gf_c16620)+16)/* LOCK_v2776 */ ));
SOURCE(353, 38)
   {
      word var_c0187;
      var_c0187 = (word) &var_c16588;
       (void) (word) XR_Enable(( ((word)  (fPt) NoName_Q1848) ), ( ((word)  (fPt) NoName_Q2748) ), var_c0187);
      };
SOURCE(325, 66)
   (void) (XR_MonitorExit((word) (( (bPt) gf_c16620)+16)/* LOCK_v2776 */ ));
   return;
   }

static word NoName_Q1848(formal_c0150)
   word formal_c0150;
   {
   register ptr gf_c0149 =  (ptr) &globalframe;
SOURCE(376, 15)
   (void) (XR_Broadcast((word) (( (bPt) gf_c0149)+36)/* check_v2832 */ ));
   return(0);
   }

static word GetBuffer_P120()
   {
   register ptr gf_c16652 =  (ptr) &globalframe;
   word buff_v3872;
   /* GetBuffer: */ 
SOURCE(793, 191)
SOURCE(793, 191)
   buff_v3872 = 0;
SOURCE(852, 132)
   if (((* (( (ptr) gf_c16652)+16)/* unused_v3028 */  ) == 0)) {
SOURCE(871, 24)
      buff_v3872 = XR_NewObject(132, (* (( (ptr) gf_c16652)+20) ));
      }
   else {
SOURCE(897, 13)
      buff_v3872 = (* (( (ptr) gf_c16652)+16)/* unused_v3028 */  );
SOURCE(912, 18)
      (* (( (ptr) gf_c16652)+16)/* unused_v3028 */  ) = (* (( (ptr) buff_v3872)+32) );
SOURCE(932, 22)
      (* (( (ptr) buff_v3872)+1) ) = 0;
      (*  (ptr) buff_v3872 ) = 0;
SOURCE(956, 15)
      (* (( (ptr) buff_v3872)+32) ) = 0;
SOURCE(973, 11)
      (* (( (ptr) gf_c16652)+15)/* cnt_v3000 */  ) = ((* (( (ptr) gf_c16652)+15)/* cnt_v3000 */  ) - 1);
      };
SOURCE(793, 191)
   return(buff_v3872);
   }

static void DisposeBuffer_P180(buff_v3944)
   word buff_v3944;
   {
   register ptr gf_c16684 =  (ptr) &globalframe;
   /* DisposeBuffer: */ 
SOURCE(993, 126)
SOURCE(1045, 74)
   if ( ( (buff_v3944 != 0) ? ( (int)(* (( (ptr) gf_c16684)+15)/* cnt_v3000 */  ) <  (int)4) : 0 ) ) {
SOURCE(1073, 11)
      (* (( (ptr) gf_c16684)+15)/* cnt_v3000 */  ) = ((* (( (ptr) gf_c16684)+15)/* cnt_v3000 */  ) + 1);
SOURCE(1086, 18)
      (* (( (ptr) buff_v3944)+32) ) = (* (( (ptr) gf_c16684)+16)/* unused_v3028 */  );
SOURCE(1106, 13)
      (* (( (ptr) gf_c16684)+16)/* unused_v3028 */  ) = buff_v3944;
      };
   }

static word EnableAsciiInput_P240(c_v4016, w_v4044)
   word c_v4016;
   word w_v4044;
   {
   register ptr gf_c16716 =  (ptr) &globalframe;
   word var_c4088;
   word h_v4844;
   word match_v4872;
   /* EnableAsciiInput: */ 
SOURCE(1129, 338)
SOURCE(1213, 62)
   h_v4844 = XR_NewObject(36, (* (( (ptr) gf_c16716)+21) ));
   (* (( (ptr) h_v4844)+4) ) = c_v4016;
   (* (( (ptr) h_v4844)+5) ) = w_v4044;
   (* (( (ptr) h_v4844)+8) ) = 1;
SOURCE(1277, 90)
   {
      word var_c15628;
      word var_c15660;
      {
         word pd21;
         pd21 = (* (( (ptr) (* (( (ptr) gf_c16716)+52)/* var_c15468 */  ))+63) );
         var_c15628 = (word) ( *( (fPt) ((*  (ptr) pd21 ))))(0, 0, 0, pd21);
         };
      var_c15660 = XR_NewObject(16, (* (( (ptr) gf_c16716)+22) ));
      (*  (ptr) var_c15660 ) = (word) (( (bPt) gf_c16716)+160)/* var_c15276 */ ;
      (* (( (ptr) var_c15660)+1) ) = (* (( (ptr) gf_c16716)+8)/* events_v2804 */  );
      (* (( (ptr) var_c15660)+2) ) = var_c15628;
      (* (( (ptr) var_c15660)+3) ) = h_v4844;
      match_v4872 = var_c15660;
      };
SOURCE(1369, 86)
   {
      word pd22;
      pd22 = (* (( (ptr) (* (( (ptr) gf_c16716)+52)/* var_c15468 */  ))+76) );
      (void) ( *( (fPt) ((*  (ptr) pd22 ))))(c_v4016, w_v4044, match_v4872, 131075, 0, pd22);
      };
SOURCE(1457, 10)
   return(h_v4844);
   }

static void EventProc_P300(formal_c0215, formal_c0216, tq_v7356)
   word formal_c0215;
   word formal_c0216;
   word tq_v7356;
   {
   W6 var_c16748;
   /* declaration of event_v7300 skipped */ 
   /* declaration of clientData_v7328 skipped */ 
   var_c16748.f4/* event_v7300 */  = formal_c0215;
   var_c16748.f5/* clientData_v7328 */  = formal_c0216;
   /* EventProc: */ 
SOURCE(1568, 756)
SOURCE(1595, 729)
SOURCE(1597, 687)
   {
      word var_c01;
      {
         word var_c0188;
         var_c0188 = (word) &var_c16748;
         var_c01 = (word) XR_Enable(( ((word)  (fPt) NoName_Q1908) ), ( ((word)  (fPt) NoName_Q2688) ), var_c0188);
         };
      if ((var_c01 == 2)) {
         goto lab_L100002;
         }
      else {
         if ((var_c01 == 1)) {
            goto lab_L03;
            };
         };
      };
   goto lab_L100006;
   lab_L100002: ;
   lab_L100006: ;
   lab_L03: ;
   return;
   }

static word NoName_Q1908(formal_c0155)
   word formal_c0155;
   {
   register ptr gf_c0154 =  (ptr) &globalframe;
SOURCE(1628, 37)
   {
      word h_v4928;
SOURCE(1628, 37)
      h_v4928 = XR_Narrow((* (( (ptr) formal_c0155)+5) ), (* (( (ptr) gf_c0154)+21) ));
SOURCE(1667, 617)
      {
         word var_c15692;
         var_c15692 = (* (( (ptr) formal_c0155)+4) );
         if ((var_c15692 == 0)) {
            goto lab_L100005;
            };
         {
            word var_c15820;
            var_c15820 = (* (( (ptr) var_c15692)+4) );
            if ((var_c15820 == 2)) {
               {
                  word keyPress_v4984;
                  keyPress_v4984 = var_c15692;
SOURCE(1717, 457)
                  {
                     word char_v5028;
                     word keysym_v5056;
                     word matched_v5084;
                     word isModifier_v5112;
SOURCE(1788, 155)
                     {
                        W4 var_c15756;
                        {
                           word pd23;
                           pd23 = (* (( (ptr) (* (( (ptr) gf_c0154)+53)/* var_c15724 */  ))+4) );
                           (void) ( *( (fPt) ((*  (ptr) pd23 ))))((word) &var_c15756, (* (( (ptr) (* (( (ptr) formal_c0155)+4) ))+2) ), (* (( (ptr) keyPress_v4984)+5)
/*1*/    ), (* (( (ptr) keyPress_v4984)+15) ), (* (( (ptr) gf_c0154)+17)/* listWithPaste_v3140 */  ), pd23);
                           };
                        isModifier_v5112 = var_c15756.f3;
                        matched_v5084 = var_c15756.f2;
                        keysym_v5056 = var_c15756.f1;
                        char_v5028 = var_c15756.f0;
                        };
SOURCE(1945, 25)
                     if ((0 != isModifier_v5112)) {
SOURCE(1964, 6)
                        return(1);
                        };
SOURCE(1972, 163)
                     switch (matched_v5084) {
                        case 268828532: case 268762884: case 268500740: 
SOURCE(2066, 69)
                           {
/*1*/   word r_v5156;
SOURCE(2068, 44)
/*1*/   {
/*1*/      word pd24;
/*1*/      pd24 = (* (( (ptr) (* (( (ptr) gf_c0154)+54)/* var_c15788 */  ))+4) );
/*1*/      r_v5156 = (word) ( *( (fPt) ((*  (ptr) pd24 ))))((* (( (ptr) (* (( (ptr) formal_c0155)+4) ))+2) ), 0, pd24);
/*1*/      };
SOURCE(2114, 12)
/*1*/   (void) TypeIn_P360(h_v4928, r_v5156);
SOURCE(2128, 7)
/*1*/   return(1);
/*1*/   };
                        };
SOURCE(2138, 34)
                     if ((char_v5028 != 0)) {
SOURCE(2154, 18)
                        (void) QueueChar_P420(h_v4928, char_v5028);
                        };
                     };
                  };
               }
            else {
               if ((var_c15820 == 17)) {
                  {
                     word destroyNotify_v5200;
                     destroyNotify_v5200 = var_c15692;
SOURCE(2216, 68)
                     if (((* (( (ptr) destroyNotify_v5200)+7) ) == (* (( (ptr) h_v4928)+5) ))) {
SOURCE(2256, 15)
                        (* (( (ptr) h_v4928)+8) ) = 0;
SOURCE(2273, 11)
                        (void) BroadCast_P60();
                        };
                     };
                  }
               else {
                  lab_L100005: ;
                  };
               };
            };
         };
      };
   return(0);
   }

static void TypeIn_P360(formal_c0217, formal_c0218)
   word formal_c0217;
   word formal_c0218;
   {
   W9 var_c16780;
   /* declaration of handle_v4232 skipped */ 
   /* declaration of chars_v4260 skipped */ 
   register ptr gf_c16812 =  (ptr) &globalframe;
   /* declaration of var_c15852 skipped */ 
   (* (( (ptr) &var_c16780)+4)/* handle_v4232 */  ) = formal_c0217;
   (* (( (ptr) &var_c16780)+5)/* chars_v4260 */  ) = formal_c0218;
   /* TypeIn: */ 
SOURCE(2329, 316)
   {
      word tmpAddr25;
      tmpAddr25 = (word) (( (ptr) &var_c16780)+6)/* var_c15852 */ ;
      (*  (ptr) tmpAddr25 ) = ( ((word)  (fPt) EachChar_P1212) );
      (* (( (ptr) tmpAddr25) + 1) ) = 1;
      };
   (void) (XR_MonitorEntry((word) (( (bPt) gf_c16812)+16)/* LOCK_v2776 */ ));
SOURCE(2388, 257)
   {
      /* declaration of h_v5244 skipped */ 
      {
         word var_c0189;
         var_c0189 = (word) &var_c16780;
          (void) (word) XR_Enable(( ((word)  (fPt) NoName_Q1968) ), ( ((word)  (fPt) NoName_Q2628) ), var_c0189);
         };
      };
SOURCE(2329, 316)
   (void) (XR_MonitorExit((word) (( (bPt) gf_c16812)+16)/* LOCK_v2776 */ ));
   return;
   }

static word NoName_Q1968(formal_c0158)
   word formal_c0158;
   {
   register ptr gf_c0157 =  (ptr) &globalframe;
SOURCE(2411, 234)
   {
      word var_c15884;
      var_c15884 = (* (( (ptr) formal_c0158)+4) );
      if ((var_c15884 == 0)) {
         goto lab_L100009;
         };
      if (((* (( (ptr) gf_c0157)+21) ) == XR_GetReferentType(var_c15884))) {
         (* (( (ptr) formal_c0158)+8) ) = var_c15884;
SOURCE(2457, 188)
         {
            word var_c15916;
            word var_c15948;
            var_c15916 = (* (( (ptr) formal_c0158)+5) );
            if ((var_c15916 == 0)) {
               goto lab_L100010;
               };
            var_c15948 = XR_GetReferentType(var_c15916);
            {
               word tc26;
               if (((* (( (ptr) gf_c0157)+23) ) == var_c15948)) {
                  {
                     word ch_v5300;
                     ch_v5300 = var_c15916;
SOURCE(2496, 25)
                     (void) InternalQueueChar_P480((* (( (ptr) formal_c0158)+8) ), (*  (ptr) ch_v5300 ));
                     };
                  }
               else {
                  if (((* (( (ptr) gf_c0157)+24) ) == var_c15948)) {
                     tc26 =  (word) ((*(int*)var_c15916<0) == 0);
                     }
                  else {
                     tc26 =  (word) 0;
                     };
                  if (tc26) {
                     {
                        word r_v5356;
                        r_v5356 = var_c15916;
SOURCE(2539, 108)
SOURCE(2605, 40)
                        {
                           word var_c16012;
                           word pd27;
                           pd27 = (* (( (ptr) (* (( (ptr) gf_c0157)+55)/* var_c15980 */  ))+26) );
                           var_c16012 = (word) ( *( (fPt) ((*  (ptr) pd27 ))))(r_v5356, 0, 2147483647, (word) (( (bPt) formal_c0158)+24), pd27);
                           };
                        };
                     }
                  else {
                     lab_L100010: ;
                     };
                  };
               };
            };
         }
      else {
         lab_L100009: ;
         };
      };
   return(0);
   }

static word EachChar_P1212(c_v11204, formal_c16844)
   word c_v11204;
   word formal_c16844;
   {
   word quit_v11248;
   formal_c16844 = (formal_c16844 - 24);
   /* EachChar: */ 
SOURCE(2541, 37)
SOURCE(2541, 37)
   quit_v11248 = 0;
SOURCE(2579, 23)
   (void) InternalQueueChar_P480((* (( (ptr) formal_c16844)+8) ), c_v11204);
SOURCE(2541, 37)
   return(quit_v11248);
   }

static void QueueChar_P420(formal_c0219, formal_c0220)
   word formal_c0219;
   word formal_c0220;
   {
   W6 var_c16876;
   /* declaration of h_v4336 skipped */ 
   /* declaration of ch_v4364 skipped */ 
   register ptr gf_c16908 =  (ptr) &globalframe;
   var_c16876.f4/* h_v4336 */  = formal_c0219;
   var_c16876.f5/* ch_v4364 */  = formal_c0220;
   /* QueueChar: */ 
SOURCE(2687, 103)
   (void) (XR_MonitorEntry((word) (( (bPt) gf_c16908)+16)/* LOCK_v2776 */ ));
SOURCE(2742, 48)
   {
      word var_c0190;
      var_c0190 = (word) &var_c16876;
       (void) (word) XR_Enable(( ((word)  (fPt) NoName_Q2028) ), ( ((word)  (fPt) NoName_Q2568) ), var_c0190);
      };
SOURCE(2687, 103)
   (void) (XR_MonitorExit((word) (( (bPt) gf_c16908)+16)/* LOCK_v2776 */ ));
   return;
   }

static word NoName_Q2028(formal_c0161)
   word formal_c0161;
   {
SOURCE(2765, 25)
   (void) InternalQueueChar_P480((* (( (ptr) formal_c0161)+4) ), (* (( (ptr) formal_c0161)+5) ));
   return(0);
   }

static void InternalQueueChar_P480(h_v4436, ch_v4464)
   word h_v4436;
   word ch_v4464;
   {
   register ptr gf_c16940 =  (ptr) &globalframe;
   /* InternalQueueChar: */ 
SOURCE(2794, 402)
SOURCE(2860, 42)
   if ((ch_v4464 == 0)) {
SOURCE(2879, 15)
      (void) (XR_Broadcast((word) (( (bPt) gf_c16940)+36)/* check_v2832 */ ));
SOURCE(2896, 6)
      return;
      };
SOURCE(2905, 85)
   if (((* (( (ptr) h_v4436)+6) ) == 0)) {
SOURCE(2926, 66)
      {
         word buff_v5444;
SOURCE(2928, 30)
         buff_v5444 = (word) GetBuffer_P120();
SOURCE(2960, 30)
         (* (( (ptr) h_v4436)+7) ) = buff_v5444;
         (* (( (ptr) h_v4436)+6) ) = buff_v5444;
         };
      };
SOURCE(2995, 103)
   if (( (int)(*  (ptr) (* (( (ptr) h_v4436)+7) ) ) >=  (int)120)) {
SOURCE(3033, 31)
      (* (( (ptr) (* (( (ptr) h_v4436)+7) ))+32) ) = (word) GetBuffer_P120();
SOURCE(3066, 32)
      (* (( (ptr) h_v4436)+7) ) = (* (( (ptr) (* (( (ptr) h_v4436)+7) ))+32) );
      };
SOURCE(3103, 39)
   {
      word idx28;
      (* ((( (bPt) (* (( (ptr) h_v4436)+7) ))+8)+(
            idx28 = (*  (ptr) (* (( (ptr) h_v4436)+7) ) ),
            BCK(idx28, 120)
            )) ) = ch_v4464;
      };
SOURCE(3144, 35)
   (*  (ptr) (* (( (ptr) h_v4436)+7) ) ) = ((*  (ptr) (* (( (ptr) h_v4436)+7) ) ) + 1);
SOURCE(3181, 15)
   (void) (XR_Broadcast((word) (( (bPt) gf_c16940)+36)/* check_v2832 */ ));
   }

static word CharAvailable_P540(handle_v4536, formal_c0221)
   word handle_v4536;
   word formal_c0221;
   {
   W9 var_c16972;
   /* declaration of wait_v4564 skipped */ 
   register ptr gf_c17004 =  (ptr) &globalframe;
   /* declaration of n_v4608 skipped */ 
   /* declaration of var_c16076 skipped */ 
   /* declaration of h_v5528 skipped */ 
   (* (( (ptr) &var_c16972)+4)/* wait_v4564 */  ) = formal_c0221;
   /* CharAvailable: */ 
SOURCE(3202, 725)
   {
      word tmpAddr29;
      tmpAddr29 = (word) (( (ptr) &var_c16972)+6)/* var_c16076 */ ;
      (*  (ptr) tmpAddr29 ) = ( ((word)  (fPt) EntryCharAvailable_P1320) );
      (* (( (ptr) tmpAddr29) + 1) ) = 1;
      };
SOURCE(3202, 725)
   (* (( (ptr) &var_c16972)+5)/* n_v4608 */  ) = 0;
SOURCE(3761, 33)
   (* (( (ptr) &var_c16972)+8)/* h_v5528 */  ) = XR_Narrow(handle_v4536, (* (( (ptr) gf_c17004)+21) ));
   {
      word var_c16108;
      word c_v14972;
SOURCE(3796, 65)
      if ((0 == (* (( (ptr) (* (( (ptr) &var_c16972)+8)/* h_v5528 */  ))+8) ))) { goto then030;};
      c_v14972 = (* (( (ptr) (* (( (ptr) &var_c16972)+8)/* h_v5528 */  ))+4) );
      if ((c_v14972 != 0)) {
         var_c16108 = (0 != (* (( (ptr) c_v14972)+15) ));
         }
      else {
         var_c16108 = 0;
         };
      if ((0 == var_c16108)) {
         then030: ;
SOURCE(3840, 21)
         (void) XR_RaiseError((word) (( (bPt) gf_c17004)+100)/* var_c15020 */ , 0);
         };
SOURCE(3863, 41)
      if ( ( ((* (( (ptr) (* (( (ptr) &var_c16972)+8)/* h_v5528 */  ))+6) ) == 0) ? (0 == (* (( (ptr) &var_c16972)+4)/* wait_v4564 */  )) : 0 ) ) {
SOURCE(3894, 10)
         return(0);
         };
SOURCE(3906, 21)
      (void) EntryCharAvailable_P1320((word) ((( (bPt) &var_c16972)+24)/* var_c16076 */ ));
      };
SOURCE(3202, 725)
   return((* (( (ptr) &var_c16972)+5)/* n_v4608 */  ));
   }

static void EntryCharAvailable_P1320(formal_c17100)
   word formal_c17100;
   {
   W5 var_c17036;
   register ptr gf_c17068 =  (ptr) &globalframe;
   /* declaration of var_c16172 skipped */ 
   word var_c16236;
   formal_c17100 = (formal_c17100 - 24);
   var_c17036.f0 = formal_c17100;
   /* EntryCharAvailable: */ 
SOURCE(3291, 467)
   (void) (XR_MonitorEntry((word) (( (bPt) gf_c17068)+16)/* LOCK_v2776 */ ));
SOURCE(3327, 431)
SOURCE(3329, 382)
   {
      word var_c02;
      {
         word var_c0191;
         var_c0191 = (word) &var_c17036;
         var_c02 = (word) XR_Enable(( ((word)  (fPt) NoName_Q2088) ), ( ((word)  (fPt) NoName_Q2508) ), var_c0191);
         };
      if ((var_c02 == 4)) {
         goto lab_L100014;
         }
      else {
         if ((var_c02 == 3)) {
            goto lab_L100021;
            };
         };
      };
   goto lab_L100022;
   lab_L100014: ;
SOURCE(3731, 25)
   var_c16236 = XR_Aborted;
   (void) (XR_MonitorExit((word) (( (bPt) gf_c17068)+16)/* LOCK_v2776 */ ));
   goto lab_L100023;
   lab_L100022: ;
SOURCE(3291, 467)
   (void) (XR_MonitorExit((word) (( (bPt) gf_c17068)+16)/* LOCK_v2776 */ ));
   return;
   /* c2c skipped dead code */ 
   lab_L100021: ;
SOURCE(3502, 33)
   (void) XR_RaiseError(var_c17036.f4/* var_c16172 */ , 0);
   lab_L100023: ;
SOURCE(3731, 25)
   (void) XR_RaiseError(var_c16236, 0);
   }

static word NoName_Q2088(formal_c0167)
   word formal_c0167;
   {
   register ptr gf_c0166 =  (ptr) &globalframe;
SOURCE(3379, 332)
   if ((0 != (* (( (ptr) (*  (ptr) formal_c0167 ))+4) ))) {
SOURCE(3395, 165)
      lab_L100019: ;
      if (((* (( (ptr) (* (( (ptr) (*  (ptr) formal_c0167 ))+8) ))+6) ) == 0) || ( (int)(* (( (ptr) (* (( (ptr) (* (( (ptr) (*  (ptr) formal_c0167 ))+8)
             ))+6) ))+1) ) >=  (int)(*  (ptr) (* (( (ptr) (* (( (ptr) (*  (ptr) formal_c0167 ))+8) ))+6) ) ))) {
         }
      else {
         goto lab_L100017;
         };
      {
         word var_c16140;
         word c_v14924;
SOURCE(3446, 10)
         (void) (XR_Wait((word) (( (bPt) gf_c0166)+16)/* LOCK_v2776 */ , (word) (( (bPt) gf_c0166)+36)/* check_v2832 */ ));
SOURCE(3458, 77)
         if ((0 == (* (( (ptr) (* (( (ptr) (*  (ptr) formal_c0167 ))+8) ))+8) ))) { goto then031;};
         c_v14924 = (* (( (ptr) (* (( (ptr) (*  (ptr) formal_c0167 ))+8) ))+4) );
         if ((c_v14924 != 0)) {
            var_c16140 = (0 != (* (( (ptr) c_v14924)+15) ));
            }
         else {
            var_c16140 = 0;
            };
         if ((0 == var_c16140)) {
            then031: ;
SOURCE(3502, 33)
            (* (( (ptr) formal_c0167)+4) ) = (word) (( (bPt) gf_c0166)+100)/* var_c15020 */ ;
            (void) (XR_MonitorExit((word) (( (bPt) gf_c0166)+16)/* LOCK_v2776 */ ));
            return(3);
            };
SOURCE(3537, 23)
         {
            word pd32;
            pd32 = (* (( (ptr) (* (( (ptr) gf_c0166)+56)/* var_c16204 */  ))+18) );
            (void) ( *( (fPt) ((*  (ptr) pd32 ))))(pd32);
            };
         };
      goto lab_L100019;
      lab_L100017: ;
SOURCE(3571, 33)
      {
         word x33;
         word idx34;
         (* (( (ptr) (*  (ptr) formal_c0167 ))+5) ) = (
            idx34 = (word) (
               x33 = ((*  (ptr) (* (( (ptr) (* (( (ptr) (*  (ptr) formal_c0167 ))+8) ))+6) ) ) - (* (( (ptr) (* (( (ptr) (* (( (ptr) (*  (ptr) formal_c0167 ))+8)
                      ))+6) ))+1) )),
               IABS(x33)
               ),
            SGNCK(idx34)
            );
         };
      }
   else {
SOURCE(3615, 96)
      if (((* (( (ptr) (* (( (ptr) (*  (ptr) formal_c0167 ))+8) ))+6) ) == 0) || ( (int)(* (( (ptr) (* (( (ptr) (* (( (ptr) (*  (ptr) formal_c0167 ))+8)
             ))+6) ))+1) ) >=  (int)(*  (ptr) (* (( (ptr) (* (( (ptr) (*  (ptr) formal_c0167 ))+8) ))+6) ) ))) {
SOURCE(3666, 12)
         (* (( (ptr) (*  (ptr) formal_c0167 ))+5) ) = 0;
         }
      else {
SOURCE(3678, 33)
         {
            word x35;
            word idx36;
            (* (( (ptr) (*  (ptr) formal_c0167 ))+5) ) = (
               idx36 = (word) (
                  x35 = ((*  (ptr) (* (( (ptr) (* (( (ptr) (*  (ptr) formal_c0167 ))+8) ))+6) ) ) - (* (( (ptr) (* (( (ptr) (* (( (ptr) (*  (ptr) formal_c0167 ))+8)
                         ))+6) ))+1) )),
                  IABS(x35)
                  ),
               SGNCK(idx36)
               );
            };
         };
      };
   return(0);
   }

static word GetChar_P600(handle_v4668, formal_c0222)
   word handle_v4668;
   word formal_c0222;
   {
   W9 var_c17132;
   /* declaration of wait_v4696 skipped */ 
   register ptr gf_c17164 =  (ptr) &globalframe;
   /* declaration of ch_v4740 skipped */ 
   /* declaration of var_c16268 skipped */ 
   /* declaration of h_v5628 skipped */ 
   (* (( (ptr) &var_c17132)+4)/* wait_v4696 */  ) = formal_c0222;
   /* GetChar: */ 
SOURCE(3931, 805)
   {
      word tmpAddr37;
      tmpAddr37 = (word) (( (ptr) &var_c17132)+6)/* var_c16268 */ ;
      (*  (ptr) tmpAddr37 ) = ( ((word)  (fPt) EntryGetChar_P1380) );
      (* (( (ptr) tmpAddr37) + 1) ) = 1;
      };
SOURCE(3931, 805)
   (* (( (ptr) &var_c17132)+5)/* ch_v4740 */  ) = 0;
SOURCE(4620, 33)
   (* (( (ptr) &var_c17132)+8)/* h_v5628 */  ) = XR_Narrow(handle_v4668, (* (( (ptr) gf_c17164)+21) ));
   {
      word var_c16300;
      word c_v14876;
SOURCE(4655, 65)
      if ((0 == (* (( (ptr) (* (( (ptr) &var_c17132)+8)/* h_v5628 */  ))+8) ))) { goto then038;};
      c_v14876 = (* (( (ptr) (* (( (ptr) &var_c17132)+8)/* h_v5628 */  ))+4) );
      if ((c_v14876 != 0)) {
         var_c16300 = (0 != (* (( (ptr) c_v14876)+15) ));
         }
      else {
         var_c16300 = 0;
         };
      if ((0 == var_c16300)) {
         then038: ;
SOURCE(4699, 21)
         (void) XR_RaiseError((word) (( (bPt) gf_c17164)+100)/* var_c15020 */ , 0);
         };
SOURCE(4722, 14)
      (void) EntryGetChar_P1380((word) ((( (bPt) &var_c17132)+24)/* var_c16268 */ ));
      };
SOURCE(3931, 805)
   return((* (( (ptr) &var_c17132)+5)/* ch_v4740 */  ));
   }

static void EntryGetChar_P1380(formal_c17260)
   word formal_c17260;
   {
   W5 var_c17196;
   register ptr gf_c17228 =  (ptr) &globalframe;
   /* declaration of var_c16364 skipped */ 
   word var_c16396;
   formal_c17260 = (formal_c17260 - 24);
   var_c17196.f0 = formal_c17260;
   /* EntryGetChar: */ 
SOURCE(4014, 603)
   (void) (XR_MonitorEntry((word) (( (bPt) gf_c17228)+16)/* LOCK_v2776 */ ));
SOURCE(4044, 573)
SOURCE(4046, 525)
   {
      word var_c03;
      {
         word var_c0192;
         var_c0192 = (word) &var_c17196;
         var_c03 = (word) XR_Enable(( ((word)  (fPt) NoName_Q2148) ), ( ((word)  (fPt) NoName_Q2448) ), var_c0192);
         };
      switch (var_c03) {
         case 6: 
            goto lab_L100026;
         case 5: 
            goto lab_L100033;
         case 1: 
            goto lab_L08;
         };
      };
   goto lab_L100034;
   lab_L100026: ;
SOURCE(4590, 25)
   var_c16396 = XR_Aborted;
   (void) (XR_MonitorExit((word) (( (bPt) gf_c17228)+16)/* LOCK_v2776 */ ));
   goto lab_L100035;
   lab_L100034: ;
SOURCE(4014, 603)
   (void) (XR_MonitorExit((word) (( (bPt) gf_c17228)+16)/* LOCK_v2776 */ ));
   return;
   /* c2c skipped dead code */ 
   lab_L100033: ;
SOURCE(4219, 33)
   (void) XR_RaiseError(var_c17196.f4/* var_c16364 */ , 0);
   lab_L100035: ;
SOURCE(4590, 25)
   (void) XR_RaiseError(var_c16396, 0);
   lab_L08: ;
   return;
   }

static word NoName_Q2148(formal_c0172)
   word formal_c0172;
   {
   register ptr gf_c0171 =  (ptr) &globalframe;
SOURCE(4096, 256)
   if ((0 != (* (( (ptr) (*  (ptr) formal_c0172 ))+4) ))) {
SOURCE(4112, 165)
      lab_L100031: ;
      if (((* (( (ptr) (* (( (ptr) (*  (ptr) formal_c0172 ))+8) ))+6) ) == 0) || ( (int)(* (( (ptr) (* (( (ptr) (* (( (ptr) (*  (ptr) formal_c0172 ))+8)
             ))+6) ))+1) ) >=  (int)(*  (ptr) (* (( (ptr) (* (( (ptr) (*  (ptr) formal_c0172 ))+8) ))+6) ) ))) {
         }
      else {
         goto lab_L100029;
         };
      {
         word var_c16332;
         word c_v14828;
SOURCE(4163, 10)
         (void) (XR_Wait((word) (( (bPt) gf_c0171)+16)/* LOCK_v2776 */ , (word) (( (bPt) gf_c0171)+36)/* check_v2832 */ ));
SOURCE(4175, 77)
         if ((0 == (* (( (ptr) (* (( (ptr) (*  (ptr) formal_c0172 ))+8) ))+8) ))) { goto then039;};
         c_v14828 = (* (( (ptr) (* (( (ptr) (*  (ptr) formal_c0172 ))+8) ))+4) );
         if ((c_v14828 != 0)) {
            var_c16332 = (0 != (* (( (ptr) c_v14828)+15) ));
            }
         else {
            var_c16332 = 0;
            };
         if ((0 == var_c16332)) {
            then039: ;
SOURCE(4219, 33)
            (* (( (ptr) formal_c0172)+4) ) = (word) (( (bPt) gf_c0171)+100)/* var_c15020 */ ;
            (void) (XR_MonitorExit((word) (( (bPt) gf_c0171)+16)/* LOCK_v2776 */ ));
            return(5);
            };
SOURCE(4254, 23)
         {
            word pd40;
            pd40 = (* (( (ptr) (* (( (ptr) gf_c0171)+56)/* var_c16204 */  ))+18) );
            (void) ( *( (fPt) ((*  (ptr) pd40 ))))(pd40);
            };
         };
      goto lab_L100031;
      lab_L100029: ;
      }
   else {
SOURCE(4296, 56)
      if (((* (( (ptr) (* (( (ptr) (*  (ptr) formal_c0172 ))+8) ))+6) ) == 0) || ( (int)(* (( (ptr) (* (( (ptr) (* (( (ptr) (*  (ptr) formal_c0172 ))+8)
             ))+6) ))+1) ) >=  (int)(*  (ptr) (* (( (ptr) (* (( (ptr) (*  (ptr) formal_c0172 ))+8) ))+6) ) ))) {
SOURCE(4346, 6)
         (void) (XR_MonitorExit((word) (( (bPt) gf_c0171)+16)/* LOCK_v2776 */ ));
         return(1);
         };
      };
SOURCE(4358, 32)
   {
      word idx41;
      (* (( (ptr) (*  (ptr) formal_c0172 ))+5) ) = (word) (* ((( (bPt) (* (( (ptr) (* (( (ptr) (*  (ptr) formal_c0172 ))+8) ))+6)
             ))+8)+(
            idx41 = (* (( (ptr) (* (( (ptr) (* (( (ptr) (*  (ptr) formal_c0172 ))+8) ))+6) ))+1) ),
            BCK(idx41, 120)
            )) );
      };
SOURCE(4392, 29)
   (* (( (ptr) (* (( (ptr) (* (( (ptr) (*  (ptr) formal_c0172 ))+8) ))+6) ))+1) ) = ((* (( (ptr) (* (( (ptr) (* (( (ptr) (*  (ptr) formal_c0172 ))+8)
          ))+6) ))+1) ) + 1);
SOURCE(4423, 148)
   if (( (int)(* (( (ptr) (* (( (ptr) (* (( (ptr) (*  (ptr) formal_c0172 ))+8) ))+6) ))+1) ) >=  (int)120)) {
SOURCE(4456, 117)
      {
         word buf_v5700;
SOURCE(4458, 26)
         buf_v5700 = (* (( (ptr) (* (( (ptr) (*  (ptr) formal_c0172 ))+8) ))+6) );
SOURCE(4486, 24)
         (* (( (ptr) (* (( (ptr) (*  (ptr) formal_c0172 ))+8) ))+6) ) = (* (( (ptr) (* (( (ptr) (* (( (ptr) (*  (ptr) formal_c0172 ))+8)
                ))+6) ))+32) );
SOURCE(4512, 39)
         if (((* (( (ptr) (* (( (ptr) (*  (ptr) formal_c0172 ))+8) ))+6) ) == 0)) {
SOURCE(4533, 18)
            (* (( (ptr) (* (( (ptr) (*  (ptr) formal_c0172 ))+8) ))+7) ) = 0;
            };
SOURCE(4553, 18)
         (void) DisposeBuffer_P180(buf_v5700);
         };
      };
   return(0);
   }

static void ResetBuffer_P660(formal_c0223)
   word formal_c0223;
   {
   W5 var_c17292;
   /* declaration of handle_v4800 skipped */ 
   register ptr gf_c17324 =  (ptr) &globalframe;
   var_c17292.f4/* handle_v4800 */  = formal_c0223;
   /* ResetBuffer: */ 
SOURCE(4742, 175)
   (void) (XR_MonitorEntry((word) (( (bPt) gf_c17324)+16)/* LOCK_v2776 */ ));
SOURCE(4794, 123)
   {
      word var_c0193;
      var_c0193 = (word) &var_c17292;
       (void) (word) XR_Enable(( ((word)  (fPt) NoName_Q2208) ), ( ((word)  (fPt) NoName_Q2388) ), var_c0193);
      };
SOURCE(4742, 175)
   (void) (XR_MonitorExit((word) (( (bPt) gf_c17324)+16)/* LOCK_v2776 */ ));
   return;
   }

static word NoName_Q2208(formal_c0175)
   word formal_c0175;
   {
   register ptr gf_c0174 =  (ptr) &globalframe;
SOURCE(4817, 100)
   {
      word var_c16428;
      var_c16428 = (* (( (ptr) formal_c0175)+4) );
      if ((var_c16428 == 0)) {
         goto lab_L100039;
         };
      if (((* (( (ptr) gf_c0174)+21) ) == XR_GetReferentType(var_c16428))) {
         {
            word h_v5756;
            h_v5756 = var_c16428;
SOURCE(4863, 23)
            (void) DisposeBuffer_P180((* ((( (ptr) h_v5756)+6)) ));
SOURCE(4888, 29)
            (* (( (ptr) h_v5756)+7) ) = 0;
            (* (( (ptr) h_v5756)+6) ) = 0;
            };
         }
      else {
         lab_L100039: ;
         };
      };
   return(0);
   }

static void InitCond_P720()
   {
   W4 var_c17356;
   register ptr gf_c17388 =  (ptr) &globalframe;
   /* InitCond: */ 
SOURCE(4941, 122)
   (void) (XR_MonitorEntry((word) (( (bPt) gf_c17388)+16)/* LOCK_v2776 */ ));
SOURCE(4977, 86)
   {
      word var_c0194;
      var_c0194 = (word) &var_c17356;
       (void) (word) XR_Enable(( ((word)  (fPt) NoName_Q2268) ), ( ((word)  (fPt) NoName_Q2328) ), var_c0194);
      };
SOURCE(4941, 122)
   (void) (XR_MonitorExit((word) (( (bPt) gf_c17388)+16)/* LOCK_v2776 */ ));
   return;
   }

static word NoName_Q2268(formal_c0178)
   word formal_c0178;
   {
   register ptr gf_c0177 =  (ptr) &globalframe;
SOURCE(5000, 63)
   {
      word var_c16460;
      {
         word pd42;
         pd42 = (* (( (ptr) (* (( (ptr) gf_c0177)+56)/* var_c16204 */  ))+6) );
         var_c16460 = (word) ( *( (fPt) ((*  (ptr) pd42 ))))(10000, pd42);
         };
      {
         word pd43;
         pd43 = (* (( (ptr) (* (( (ptr) gf_c0177)+56)/* var_c16204 */  ))+5) );
         (void) ( *( (fPt) ((*  (ptr) pd43 ))))((word) (( (bPt) gf_c0177)+36)/* check_v2832 */ , var_c16460, pd43);
         };
      };
   return(0);
   }

static void NoName_Q2328(formal_c0109, formal_c200028, formal_c200029, formal_c200030, formal_c200031)
   word formal_c0109;
   word formal_c200028;
   word formal_c200029;
   word formal_c200030;
   word formal_c200031;
   {
   register ptr gf_c0179 =  (ptr) &globalframe;
   if ((formal_c200029 == XR_Unwind)) {
      (void) (XR_MonitorExit((word) (( (bPt) gf_c0179)+16)/* LOCK_v2776 */ ));
      };
   (*  (ptr) formal_c0109 ) = 0;
   (* (( (ptr) formal_c0109)+1) ) = 0;
   return;
   }

static void NoName_Q2388(formal_c0114, formal_c200024, formal_c200025, formal_c200026, formal_c200027)
   word formal_c0114;
   word formal_c200024;
   word formal_c200025;
   word formal_c200026;
   word formal_c200027;
   {
   register ptr gf_c0180 =  (ptr) &globalframe;
   if ((formal_c200025 == XR_Unwind)) {
      (void) (XR_MonitorExit((word) (( (bPt) gf_c0180)+16)/* LOCK_v2776 */ ));
      };
   (*  (ptr) formal_c0114 ) = 0;
   (* (( (ptr) formal_c0114)+1) ) = 0;
   return;
   }

static void NoName_Q2448(formal_c0119, formal_c200020, formal_c200021, formal_c200022, formal_c200023)
   word formal_c0119;
   word formal_c200020;
   word formal_c200021;
   word formal_c200022;
   word formal_c200023;
   {
   register ptr gf_c0181 =  (ptr) &globalframe;
   if ((formal_c200021 == XR_Unwind)) {
      (void) (XR_MonitorExit((word) (( (bPt) gf_c0181)+16)/* LOCK_v2776 */ ));
      }
   else {
      if ((formal_c200021 == XR_Aborted)) {
SOURCE(4082, 9)
         (*  (ptr) formal_c0119 ) = 2;
         (* (( (ptr) formal_c0119)+1) ) = 6;
         return;
         };
      };
   (*  (ptr) formal_c0119 ) = 0;
   (* (( (ptr) formal_c0119)+1) ) = 0;
   return;
   }

static void NoName_Q2508(formal_c0124, formal_c200016, formal_c200017, formal_c200018, formal_c200019)
   word formal_c0124;
   word formal_c200016;
   word formal_c200017;
   word formal_c200018;
   word formal_c200019;
   {
   register ptr gf_c0182 =  (ptr) &globalframe;
   if ((formal_c200017 == XR_Unwind)) {
      (void) (XR_MonitorExit((word) (( (bPt) gf_c0182)+16)/* LOCK_v2776 */ ));
      }
   else {
      if ((formal_c200017 == XR_Aborted)) {
SOURCE(3365, 9)
         (*  (ptr) formal_c0124 ) = 2;
         (* (( (ptr) formal_c0124)+1) ) = 4;
         return;
         };
      };
   (*  (ptr) formal_c0124 ) = 0;
   (* (( (ptr) formal_c0124)+1) ) = 0;
   return;
   }

static void NoName_Q2568(formal_c0129, formal_c200012, formal_c200013, formal_c200014, formal_c200015)
   word formal_c0129;
   word formal_c200012;
   word formal_c200013;
   word formal_c200014;
   word formal_c200015;
   {
   register ptr gf_c0183 =  (ptr) &globalframe;
   if ((formal_c200013 == XR_Unwind)) {
      (void) (XR_MonitorExit((word) (( (bPt) gf_c0183)+16)/* LOCK_v2776 */ ));
      };
   (*  (ptr) formal_c0129 ) = 0;
   (* (( (ptr) formal_c0129)+1) ) = 0;
   return;
   }

static void NoName_Q2628(formal_c0134, formal_c200008, formal_c200009, formal_c200010, formal_c200011)
   word formal_c0134;
   word formal_c200008;
   word formal_c200009;
   word formal_c200010;
   word formal_c200011;
   {
   register ptr gf_c0184 =  (ptr) &globalframe;
   if ((formal_c200009 == XR_Unwind)) {
      (void) (XR_MonitorExit((word) (( (bPt) gf_c0184)+16)/* LOCK_v2776 */ ));
      };
   (*  (ptr) formal_c0134 ) = 0;
   (* (( (ptr) formal_c0134)+1) ) = 0;
   return;
   }

static void NoName_Q2688(formal_c0140, formal_c200004, formal_c200005, formal_c200006, formal_c200007)
   word formal_c0140;
   word formal_c200004;
   word formal_c200005;
   word formal_c200006;
   word formal_c200007;
   {
   register ptr gf_c0185 =  (ptr) &globalframe;
   if ((formal_c200005 == (* (( (ptr) (* (( (ptr) gf_c0185)+52)/* var_c15468 */  ))+4) ))) {
      {
         word err_v9488;
         err_v9488 = (*  (ptr) formal_c200007 );
SOURCE(1617, 9)
         (*  (ptr) formal_c0140 ) = 2;
         (* (( (ptr) formal_c0140)+1) ) = 2;
         return;
         };
      };
   (*  (ptr) formal_c0140 ) = 0;
   (* (( (ptr) formal_c0140)+1) ) = 0;
   return;
   }

static void NoName_Q2748(formal_c0145, formal_c200000, formal_c200001, formal_c200002, formal_c200003)
   word formal_c0145;
   word formal_c200000;
   word formal_c200001;
   word formal_c200002;
   word formal_c200003;
   {
   register ptr gf_c0186 =  (ptr) &globalframe;
   if ((formal_c200001 == XR_Unwind)) {
      (void) (XR_MonitorExit((word) (( (bPt) gf_c0186)+16)/* LOCK_v2776 */ ));
      };
   (*  (ptr) formal_c0145 ) = 0;
   (* (( (ptr) formal_c0145)+1) ) = 0;
   return;
   }

/* file: XlAsciiInputImpl, module: XlAsciiInputImpl, compiled at: April 21, 1992 12:54:39 pm PDT */ 
extern void XR_install_XlAsciiInputImpl() {
   NoName_Q1788();
   }
extern void XR_run_XlAsciiInputImpl() { XR_Start(&globalframe); }