/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation.  All rights reserved. */
/* time: February 21, 1992 11:09:37 pm PST */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: RopeListImpl, module: RopeListImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [1761205209,111216993] RopeListImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {W8 f; W8 r;} W16;
typedef struct {word f0, f1, f2, f3, f4, f5;} W6;
typedef struct {W16 f; W6 r;} W22;
#define SOURCE(p, l) /* source p, l */
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR_RaiseBoundsFault()) : (idx) )
static void NoName_Q960();
static void RopeListImpl_P0();
static word EqualLists_P60();
static word Memb_P120();
static word Cons_P180();
static word Append_P240();
static word CopyTopList_P300();
static word Remove_P360();
static word Reverse_P420();
static word DAppend_P480();
static word DReverse_P540();
static word DRemove_P600();
static word Length_P660();
static void Map_P720();
static word Sort_P780();
static word Compare_P840();
static word IgnoreCase_P900();
static struct {unsigned f; char r[48];} string1 = {2883632, "\260\006\005\146\151\162\163\164\216\257\300\363\223\326\161\300\017\164\046\072\104\350\005\004\162\145\163\164\214\216\257\300\363\223\326\161\300\017\164\046\072\104\350\261\000\000\000"};
static struct {unsigned f; char r[4];} string2 = {131074, "\004\003\000"};
static struct {unsigned f; char r[16];} string3 = {851984, "\257\300\150\371\333\331\300\006\241\011\141\100\164\000\000"};
static struct {unsigned f; char r[16];} string4 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[16];} string5 = {851984, "\257\300\255\220\043\324\300\140\002\100\200\100\150\000\000"};
static struct {
   word f0[5]; word f5; word f6; word f7; 
   word f8; word f9; word f10; word f11; 
   word f12; word f13; word f14; word f15; 
   word f16; word f17; word f18; word f19; 
   word f20; word f21; word f22; word f23; 
   word f24; word f25; word f26; word f27; 
   word f28; word f29; word f30; word f31; 
   word f32; word f33; word f34; word f35; 
   word f36[3]; 
   } globalframe = {
   {0}, (word) IgnoreCase_P900, 0, (word) Compare_P840, 
   0, (word) Sort_P780, 0, (word) Map_P720, 
   0, (word) Length_P660, 0, (word) DRemove_P600, 
   0, (word) DReverse_P540, 0, (word) DAppend_P480, 
   0, (word) Reverse_P420, 0, (word) Remove_P360, 
   0, (word) CopyTopList_P300, 0, (word) Append_P240, 
   0, (word) Cons_P180, 0, (word) Memb_P120, 
   0, (word) EqualLists_P60, 0, (word) RopeListImpl_P0, 
   {0}
   };

static void NoName_Q960()
   {
   register ptr gf_c087 =  (ptr) &globalframe;
   word var_c9844;
   (* (( (ptr) gf_c087)+4) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (void) XR_DeclareGlobalFrame((word) "RopeListImpl", &globalframe, (word) XR_GetTypeIndexS((word) (&string3)), (word) (( (bPt) gf_c087)+140)
      /* var_c9396 */ );
   var_c9844 = (word) XR_ImportInterface((word) "Rope", (word) XR_GetTypeIndexS((word) (&string4)), 43);
   (* (( (ptr) gf_c087)+37)/* var_c9428 */  ) = var_c9844;
   (void) XR_ImportProcS(var_c9844, 67896067);
   (void) XR_ImportProcS(var_c9844, 67896323);
   var_c9844 = (word) XR_ExportInterface((word) "RopeList", (word) XR_GetTypeIndexS((word) (&string5)), 15);
   (* (( (ptr) gf_c087)+38)/* var_c9876 */  ) = var_c9844;
   (void) XR_ExportProcS(var_c9844, (word) (( (bPt) gf_c087)+132)/* var_c9364 */ , 67895299);
   (void) XR_ExportProcS(var_c9844, (word) (( (bPt) gf_c087)+124)/* var_c9332 */ , 67895555);
   (void) XR_ExportProcS(var_c9844, (word) (( (bPt) gf_c087)+116)/* var_c9300 */ , 67633666);
   (void) XR_ExportProcS(var_c9844, (word) (( (bPt) gf_c087)+108)/* var_c9268 */ , 67633922);
   (void) XR_ExportProcS(var_c9844, (word) (( (bPt) gf_c087)+100)/* var_c9236 */ , 67372033);
   (void) XR_ExportProcS(var_c9844, (word) (( (bPt) gf_c087)+92)/* var_c9204 */ , 67896579);
   (void) XR_ExportProcS(var_c9844, (word) (( (bPt) gf_c087)+84)/* var_c9172 */ , 67372545);
   (void) XR_ExportProcS(var_c9844, (word) (( (bPt) gf_c087)+76)/* var_c9140 */ , 67634946);
   (void) XR_ExportProcS(var_c9844, (word) (( (bPt) gf_c087)+60)/* var_c9076 */ , 67897347);
   (void) XR_ExportProcS(var_c9844, (word) (( (bPt) gf_c087)+68)/* var_c9108 */ , 67373313);
   (void) XR_ExportProcS(var_c9844, (word) (( (bPt) gf_c087)+52)/* var_c9044 */ , 67373569);
   (void) XR_ExportProcS(var_c9844, (word) (( (bPt) gf_c087)+44)/* var_c9012 */ , 527106);
   (void) XR_ExportProcS(var_c9844, (word) (( (bPt) gf_c087)+36)/* var_c8980 */ , 67636226);
   (void) XR_ExportProcS(var_c9844, (word) (( (bPt) gf_c087)+28)/* var_c8948 */ , 67636482);
   (void) XR_ExportProcS(var_c9844, (word) (( (bPt) gf_c087)+20)/* var_c8916 */ , 67636738);
   }

static void RopeListImpl_P0(formal_c022, formal_c021)
   word formal_c022;
   word formal_c021;
   {
   /* RopeListImpl: */ 
   }

static word EqualLists_P60(l1_v2968, l2_v2996, case_v3024)
   word l1_v2968;
   word l2_v2996;
   word case_v3024;
   {
   register ptr gf_c9908 =  (ptr) &globalframe;
   word var_c3152;
   /* EqualLists: */ 
SOURCE(163, 338)
SOURCE(253, 28)
   if ((l1_v2968 == l2_v2996)) {
SOURCE(269, 12)
      return(1);
      };
SOURCE(283, 42)
   if ((l1_v2968 == 0) || (l2_v2996 == 0)) {
SOURCE(312, 13)
      return(0);
      };
SOURCE(327, 147)
   lab_L100002: ;
   if ((l1_v2968 != 0)) {
      }
   else {
      goto lab_L100000;
      };
SOURCE(346, 30)
   if ((l2_v2996 == 0)) {
SOURCE(363, 13)
      return(0);
      };
SOURCE(378, 68)
   {
      word pd6;
      pd6 = (* (( (ptr) (* (( (ptr) gf_c9908)+37)/* var_c9428 */  ))+8) );
      if ((0 != (word) ( *( (fPt) ((*  (ptr) pd6 ))))((*  (ptr) l1_v2968 ), (*  (ptr) l2_v2996 ), case_v3024, pd6))) {
         }
      else {
SOURCE(433, 13)
         return(0);
         };
      };
SOURCE(448, 12)
   l1_v2968 = (* (( (ptr) l1_v2968)+1) );
SOURCE(462, 12)
   l2_v2996 = (* (( (ptr) l2_v2996)+1) );
   goto lab_L100002;
   lab_L100000: ;
SOURCE(485, 16)
   return((l2_v2996 == 0));
   }

static word Memb_P120(list_v3212, r_v3240, case_v3268)
   word list_v3212;
   word r_v3240;
   word case_v3268;
   {
   register ptr gf_c9940 =  (ptr) &globalframe;
   word var_c3396;
   /* Memb: */ 
SOURCE(506, 210)
SOURCE(602, 90)
   lab_L100005: ;
   if ((list_v3212 != 0)) {
      }
   else {
      goto lab_L100003;
      };
SOURCE(622, 52)
   {
      word pd7;
      pd7 = (* (( (ptr) (* (( (ptr) gf_c9940)+37)/* var_c9428 */  ))+8) );
      if ((0 != (word) ( *( (fPt) ((*  (ptr) pd7 ))))((*  (ptr) list_v3212 ), r_v3240, case_v3268, pd7))) {
SOURCE(662, 12)
         return(1);
         };
      };
SOURCE(676, 16)
   list_v3212 = (* (( (ptr) list_v3212)+1) );
   goto lab_L100005;
   lab_L100003: ;
SOURCE(703, 13)
   return(0);
   }

static word Cons_P180(list_v3456, r_v3484)
   word list_v3456;
   word r_v3484;
   {
   register ptr gf_c9972 =  (ptr) &globalframe;
   word var_c3612;
   /* Cons: */ 
SOURCE(721, 111)
SOURCE(811, 21)
   {
      word var_c9492;
      var_c9492 = XR_NewObject(8, (* (( (ptr) gf_c9972)+4) ));
      (*  (ptr) var_c9492 ) = r_v3484;
      (* (( (ptr) var_c9492)+1) ) = list_v3456;
      return(var_c9492);
      };
   }

static word Append_P240(l1_v3756, l2_v3784)
   word l1_v3756;
   word l2_v3784;
   {
   register ptr gf_c10004 =  (ptr) &globalframe;
   word val_v3912;
   word z_v6516 = 0;
   /* Append: */ 
SOURCE(837, 284)
SOURCE(837, 284)
   val_v3912 = 0;
SOURCE(950, 8)
   val_v3912 = l2_v3784;
SOURCE(960, 28)
   if ((l1_v3756 == 0)) {
SOURCE(977, 11)
      return(val_v3912);
      };
SOURCE(990, 25)
   {
      word var_c9524;
      var_c9524 = XR_NewObject(8, (* (( (ptr) gf_c10004)+4) ));
      (*  (ptr) var_c9524 ) = (*  (ptr) l1_v3756 );
      (* (( (ptr) var_c9524)+1) ) = val_v3912;
      val_v3912 = var_c9524;
      };
SOURCE(1017, 7)
   z_v6516 = val_v3912;
SOURCE(1026, 73)
   lab_L100008: ;
   l1_v3756 = (* (( (ptr) l1_v3756)+1) );
   if ((l1_v3756 != 0)) {
      }
   else {
      goto lab_L100006;
      };
SOURCE(1056, 31)
   {
      word var_c9556;
      var_c9556 = XR_NewObject(8, (* (( (ptr) gf_c10004)+4) ));
      (*  (ptr) var_c9556 ) = (*  (ptr) l1_v3756 );
      (* (( (ptr) var_c9556)+1) ) = (* (( (ptr) z_v6516)+1) );
      (* (( (ptr) z_v6516)+1) ) = var_c9556;
      };
SOURCE(1089, 10)
   z_v6516 = (* (( (ptr) z_v6516)+1) );
   goto lab_L100008;
   lab_L100006: ;
SOURCE(1110, 11)
   return(val_v3912);
   }

static word CopyTopList_P300(list_v4056)
   word list_v4056;
   {
   word var_c4184;
   /* CopyTopList: */ 
SOURCE(1126, 108)
SOURCE(1209, 25)
   return((word) Append_P240(list_v4056, 0));
   }

static word Remove_P360(list_v4328, r_v4356, case_v4384)
   word list_v4328;
   word r_v4356;
   word case_v4384;
   {
   register ptr gf_c10036 =  (ptr) &globalframe;
   word val_v4512;
   word z_v6644 = 0;
   /* Remove: */ 
SOURCE(1239, 352)
SOURCE(1239, 352)
   val_v4512 = 0;
SOURCE(1389, 202)
   lab_L100011: ;
   if ((list_v4328 != 0)) {
      }
   else {
      goto lab_L100009;
      };
SOURCE(1409, 158)
   {
      word pd8;
      pd8 = (* (( (ptr) (* (( (ptr) gf_c10036)+37)/* var_c9428 */  ))+8) );
      if ((0 == (word) ( *( (fPt) ((*  (ptr) pd8 ))))((*  (ptr) list_v4328 ), r_v4356, case_v4384, pd8))) {
SOURCE(1455, 112)
         if ((val_v4512 == 0)) {
SOURCE(1475, 27)
            {
               word var_c9620;
               var_c9620 = XR_NewObject(8, (* (( (ptr) gf_c10036)+4) ));
               (*  (ptr) var_c9620 ) = (*  (ptr) list_v4328 );
               val_v4512 = var_c9620;
               };
SOURCE(1504, 7)
            z_v6644 = val_v4512;
            }
         else {
SOURCE(1522, 33)
            {
               word var_c9652;
               var_c9652 = XR_NewObject(8, (* (( (ptr) gf_c10036)+4) ));
               (*  (ptr) var_c9652 ) = (*  (ptr) list_v4328 );
               (* (( (ptr) var_c9652)+1) ) = (* (( (ptr) z_v6644)+1) );
               (* (( (ptr) z_v6644)+1) ) = var_c9652;
               };
SOURCE(1557, 10)
            z_v6644 = (* (( (ptr) z_v6644)+1) );
            };
         };
      };
SOURCE(1575, 16)
   list_v4328 = (* (( (ptr) list_v4328)+1) );
   goto lab_L100011;
   lab_L100009: ;
SOURCE(1239, 352)
   return(val_v4512);
   }

static word Reverse_P420(list_v4656)
   word list_v4656;
   {
   register ptr gf_c10068 =  (ptr) &globalframe;
   word val_v4784;
   /* Reverse: */ 
SOURCE(1622, 155)
SOURCE(1622, 155)
   val_v4784 = 0;
SOURCE(1712, 65)
   lab_L100014: ;
   if ((list_v4656 != 0)) {
      }
   else {
      goto lab_L100012;
      };
SOURCE(1732, 27)
   {
      word var_c9684;
      var_c9684 = XR_NewObject(8, (* (( (ptr) gf_c10068)+4) ));
      (*  (ptr) var_c9684 ) = (*  (ptr) list_v4656 );
      (* (( (ptr) var_c9684)+1) ) = val_v4784;
      val_v4784 = var_c9684;
      };
SOURCE(1761, 16)
   list_v4656 = (* (( (ptr) list_v4656)+1) );
   goto lab_L100014;
   lab_L100012: ;
SOURCE(1622, 155)
   return(val_v4784);
   }

static word DAppend_P480(l1_v4928, l2_v4956)
   word l1_v4928;
   word l2_v4956;
   {
   word val_v5084;
   /* DAppend: */ 
SOURCE(1791, 212)
SOURCE(1791, 212)
   val_v5084 = 0;
SOURCE(1877, 27)
   if ((l1_v4928 == 0)) {
SOURCE(1894, 10)
      return(l2_v4956);
      };
SOURCE(1906, 27)
   if ((l2_v4956 == 0)) {
SOURCE(1923, 10)
      return(l1_v4928);
      };
SOURCE(1935, 8)
   val_v5084 = l1_v4928;
SOURCE(1945, 35)
   lab_L100017: ;
   if (((* (( (ptr) l1_v4928)+1) ) != 0)) {
      }
   else {
      goto lab_L100015;
      };
SOURCE(1968, 12)
   l1_v4928 = (* (( (ptr) l1_v4928)+1) );
   goto lab_L100017;
   lab_L100015: ;
SOURCE(1991, 12)
   (* (( (ptr) l1_v4928)+1) ) = l2_v4956;
SOURCE(1791, 212)
   return(val_v5084);
   }

static word DReverse_P540(list_v5228)
   word list_v5228;
   {
   word var_c5356;
   word l1_v6772 = 0;
   word l2_v6800 = 0;
   word l3_v6828 = 0;
   /* DReverse: */ 
SOURCE(2008, 241)
SOURCE(2125, 30)
   if ((list_v5228 == 0)) {
SOURCE(2144, 11)
      return(0);
      };
SOURCE(2157, 9)
   l3_v6828 = list_v5228;
SOURCE(2168, 60)
   lab_L100020: ;
   l1_v6772 = l3_v6828;
   if ((l3_v6828 != 0)) {
      }
   else {
      goto lab_L100018;
      };
SOURCE(2193, 12)
   l3_v6828 = (* (( (ptr) l3_v6828)+1) );
SOURCE(2207, 12)
   (* (( (ptr) l1_v6772)+1) ) = l2_v6800;
SOURCE(2221, 7)
   l2_v6800 = l1_v6772;
   goto lab_L100020;
   lab_L100018: ;
SOURCE(2239, 10)
   return(l2_v6800);
   }

static word DRemove_P600(list_v5500, r_v5528, case_v5556)
   word list_v5500;
   word r_v5528;
   word case_v5556;
   {
   register ptr gf_c10100 =  (ptr) &globalframe;
   word var_c5684;
   word l_v6956 = 0;
   word l1_v6984 = 0;
   /* DRemove: */ 
SOURCE(2254, 352)
SOURCE(2398, 8)
   l_v6956 = list_v5500;
SOURCE(2408, 174)
   lab_L100023: ;
   if ((l_v6956 != 0)) {
      }
   else {
      goto lab_L100021;
      };
SOURCE(2425, 134)
   {
      word pd9;
      pd9 = (* (( (ptr) (* (( (ptr) gf_c10100)+37)/* var_c9428 */  ))+8) );
      if ((0 != (word) ( *( (fPt) ((*  (ptr) pd9 ))))((*  (ptr) l_v6956 ), r_v5528, case_v5556, pd9))) {
SOURCE(2464, 31)
         if ((l1_v6984 == 0)) {
SOURCE(2481, 14)
            return((* (( (ptr) l_v6956)+1) ));
            };
SOURCE(2529, 16)
         (* (( (ptr) l1_v6984)+1) ) = (* (( (ptr) l_v6956)+1) );
SOURCE(2547, 12)
         return(list_v5500);
         };
      };
SOURCE(2564, 6)
   l1_v6984 = l_v6956;
SOURCE(2572, 10)
   l_v6956 = (* (( (ptr) l_v6956)+1) );
   goto lab_L100023;
   lab_L100021: ;
SOURCE(2593, 13)
   return(list_v5500);
   }

static word Length_P660(list_v5828)
   word list_v5828;
   {
   word length_v5956;
   /* Length: */ 
SOURCE(2611, 158)
SOURCE(2611, 158)
   length_v5956 = 0;
SOURCE(2687, 57)
   lab_L100026: ;
   if ((list_v5828 != 0)) {
      }
   else {
      goto lab_L100024;
      };
SOURCE(2707, 19)
   length_v5956 = (length_v5956 + 1);
SOURCE(2728, 16)
   list_v5828 = (* (( (ptr) list_v5828)+1) );
   goto lab_L100026;
   lab_L100024: ;
SOURCE(2755, 14)
   return(length_v5956);
   }

static void Map_P720(list_v6016, proc_v6044)
   word list_v6016;
   word proc_v6044;
   {
   /* Map: */ 
SOURCE(2774, 125)
SOURCE(2845, 54)
   lab_L100029: ;
   if ((list_v6016 != 0)) {
      }
   else {
      goto lab_L100027;
      };
SOURCE(2865, 16)
   (void) ( *( (fPt) ((*  (ptr) proc_v6044 ))))((*  (ptr) (list_v6016) ), proc_v6044);
SOURCE(2883, 16)
   list_v6016 = (* (( (ptr) list_v6016)+1) );
   goto lab_L100029;
   lab_L100027: ;
   }

static word Sort_P780(list_v6248, compareProc_v6276)
   word list_v6248;
   word compareProc_v6276;
   {
   register ptr gf_c10132 =  (ptr) &globalframe;
   word var_c6404;
   word a_v7112 = 0;
   word b_v7140 = 0;
   word mergeTo_v7168 = 0;
   word mergeToCons_v7196;
   W22 lists_v7252;
   word x_v7280;
   word xMax_v7308 = 0;
   /* Sort: */ 
SOURCE(2913, 1558)
SOURCE(3049, 13)
   mergeToCons_v7196 = XR_NewObject(8, (* (( (ptr) gf_c10132)+4) ));
SOURCE(3165, 25)
   XR_FillWords(&lists_v7252, 22, 0);
SOURCE(3277, 660)
   lab_L100032: ;
   {
      word tc10;
      a_v7112 = list_v6248;
      if ((list_v6248 != 0)) {
         b_v7140 = (* (( (ptr) a_v7112)+1) );
         tc10 =  (word) (b_v7140 != 0);
         }
      else {
         tc10 =  (word) 0;
         };
      if (tc10) {
         }
      else {
         goto lab_L100030;
         };
      };
SOURCE(3325, 13)
   list_v6248 = (* (( (ptr) b_v7140)+1) );
SOURCE(3340, 113)
   if (((word) ( *( (fPt) ((*  (ptr) compareProc_v6276 ))))((*  (ptr) a_v7112 ), (*  (ptr) b_v7140 ), compareProc_v6276) == 0)) {
SOURCE(3387, 10)
      (* (( (ptr) a_v7112)+1) ) = b_v7140;
SOURCE(3399, 12)
      (* (( (ptr) b_v7140)+1) ) = 0;
      }
   else {
SOURCE(3422, 10)
      (* (( (ptr) b_v7140)+1) ) = a_v7112;
SOURCE(3434, 12)
      (* (( (ptr) a_v7112)+1) ) = 0;
SOURCE(3448, 5)
      a_v7112 = b_v7140;
      };
SOURCE(3458, 5)
   x_v7280 = 0;
SOURCE(3465, 472)
   lab_L100035: ;
SOURCE(3468, 469)
   b_v7140 = (* (( (ptr) &lists_v7252)+BCK(x_v7280, 22)) );
   if ((b_v7140 == 0)) {
SOURCE(3499, 12)
      (* (( (ptr) &lists_v7252)+BCK(x_v7280, 22)) ) = a_v7112;
SOURCE(3513, 5)
      goto lab_L100034;
      }
   else {
SOURCE(3564, 14)
      (* (( (ptr) &lists_v7252)+BCK(x_v7280, 22)) ) = 0;
SOURCE(3580, 21)
      mergeTo_v7168 = mergeToCons_v7196;
SOURCE(3603, 245)
      lab_L100038: ;
SOURCE(3628, 220)
      if (((word) ( *( (fPt) ((*  (ptr) compareProc_v6276 ))))((*  (ptr) a_v7112 ), (*  (ptr) b_v7140 ), compareProc_v6276) == 0)) {
SOURCE(3675, 16)
         (* (( (ptr) mergeTo_v7168)+1) ) = a_v7112;
SOURCE(3694, 11)
         mergeTo_v7168 = a_v7112;
SOURCE(3707, 45)
         a_v7112 = (* (( (ptr) a_v7112)+1) );
         if ((a_v7112 == 0)) {
SOURCE(3736, 16)
            (* (( (ptr) mergeTo_v7168)+1) ) = b_v7140;
SOURCE(3754, 5)
            goto lab_L100037;
            };
         }
      else {
SOURCE(3771, 16)
         (* (( (ptr) mergeTo_v7168)+1) ) = b_v7140;
SOURCE(3790, 11)
         mergeTo_v7168 = b_v7140;
SOURCE(3803, 45)
         b_v7140 = (* (( (ptr) b_v7140)+1) );
         if ((b_v7140 == 0)) {
SOURCE(3832, 16)
            (* (( (ptr) mergeTo_v7168)+1) ) = a_v7112;
SOURCE(3850, 5)
            goto lab_L100037;
            };
         };
      goto lab_L100038;
      lab_L100037: ;
SOURCE(3868, 20)
      a_v7112 = (* (( (ptr) mergeToCons_v7196)+1) );
SOURCE(3890, 7)
      x_v7280 = (x_v7280 + 1);
SOURCE(3899, 38)
      {
         word tc11;
         if ((x_v7280 > xMax_v7308)) {
            xMax_v7308 = x_v7280;
            tc11 =  (word) (x_v7280 == 22);
            }
         else {
            tc11 =  (word) 0;
            };
         if (tc11) {
SOURCE(3937, 6)
            (void) XR_RaiseUnnamedError();
            };
         };
      };
   goto lab_L100035;
   lab_L100034: ;
   goto lab_L100032;
   lab_L100030: ;
SOURCE(3964, 5)
   x_v7280 = 0;
SOURCE(3971, 113)
   if ((a_v7112 == 0)) {
SOURCE(3989, 53)
      lab_L100041: ;
      if ( ( ((* (( (ptr) &lists_v7252)+BCK(x_v7280, 22)) ) == 0) ? (x_v7280 != xMax_v7308) : 0 ) ) {
         }
      else {
         goto lab_L100039;
         };
SOURCE(4027, 15)
      x_v7280 = (x_v7280 + 1);
      goto lab_L100041;
      lab_L100039: ;
SOURCE(4044, 12)
      a_v7112 = (* (( (ptr) &lists_v7252)+BCK(x_v7280, 22)) );
SOURCE(4059, 14)
      (* (( (ptr) &lists_v7252)+BCK(x_v7280, 22)) ) = 0;
SOURCE(4076, 8)
      x_v7280 = (x_v7280 + 1);
      };
SOURCE(4087, 362)
   lab_L100044: ;
   if ((x_v7280 <= xMax_v7308)) {
      }
   else {
      goto lab_L100042;
      };
SOURCE(4105, 334)
   b_v7140 = (* (( (ptr) &lists_v7252)+BCK(x_v7280, 22)) );
   if ((b_v7140 != 0)) {
SOURCE(4136, 14)
      (* (( (ptr) &lists_v7252)+BCK(x_v7280, 22)) ) = 0;
SOURCE(4152, 21)
      mergeTo_v7168 = mergeToCons_v7196;
SOURCE(4175, 223)
      lab_L100047: ;
SOURCE(4178, 220)
      if (((word) ( *( (fPt) ((*  (ptr) compareProc_v6276 ))))((*  (ptr) a_v7112 ), (*  (ptr) b_v7140 ), compareProc_v6276) == 0)) {
SOURCE(4225, 16)
         (* (( (ptr) mergeTo_v7168)+1) ) = a_v7112;
SOURCE(4244, 11)
         mergeTo_v7168 = a_v7112;
SOURCE(4257, 45)
         a_v7112 = (* (( (ptr) a_v7112)+1) );
         if ((a_v7112 == 0)) {
SOURCE(4286, 16)
            (* (( (ptr) mergeTo_v7168)+1) ) = b_v7140;
SOURCE(4304, 5)
            goto lab_L100046;
            };
         }
      else {
SOURCE(4321, 16)
         (* (( (ptr) mergeTo_v7168)+1) ) = b_v7140;
SOURCE(4340, 11)
         mergeTo_v7168 = b_v7140;
SOURCE(4353, 45)
         b_v7140 = (* (( (ptr) b_v7140)+1) );
         if ((b_v7140 == 0)) {
SOURCE(4382, 16)
            (* (( (ptr) mergeTo_v7168)+1) ) = a_v7112;
SOURCE(4400, 5)
            goto lab_L100046;
            };
         };
      goto lab_L100047;
      lab_L100046: ;
SOURCE(4418, 21)
      a_v7112 = (* (( (ptr) mergeToCons_v7196)+1) );
      };
SOURCE(4442, 7)
   x_v7280 = (x_v7280 + 1);
   goto lab_L100044;
   lab_L100042: ;
SOURCE(4460, 11)
   return(a_v7112);
   }

static word Compare_P840(r1_v8568, r2_v8596)
   word r1_v8568;
   word r2_v8596;
   {
   register ptr gf_c10164 =  (ptr) &globalframe;
   word var_c8640;
   /* Compare: */ 
SOURCE(4474, 81)
SOURCE(4506, 49)
   {
      word pd12;
      pd12 = (* (( (ptr) (* (( (ptr) gf_c10164)+37)/* var_c9428 */  ))+7) );
      return((word) ( *( (fPt) ((*  (ptr) pd12 ))))(r1_v8568, r2_v8596, 1, pd12));
      };
   }

static word IgnoreCase_P900(r1_v8700, r2_v8728)
   word r1_v8700;
   word r2_v8728;
   {
   register ptr gf_c10196 =  (ptr) &globalframe;
   word var_c8772;
   /* IgnoreCase: */ 
SOURCE(4560, 84)
SOURCE(4594, 50)
   {
      word pd13;
      pd13 = (* (( (ptr) (* (( (ptr) gf_c10196)+37)/* var_c9428 */  ))+7) );
      return((word) ( *( (fPt) ((*  (ptr) pd13 ))))(r1_v8700, r2_v8728, 0, pd13));
      };
   }

/* file: RopeListImpl, module: RopeListImpl, compiled at: February 21, 1992 11:09:36 pm PST */ 
extern void XR_install_RopeListImpl() {
   NoName_Q960();
   }
extern void XR_run_RopeListImpl() { XR_Start(&globalframe); }