/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation.  All rights reserved. */
/* time: October 19, 1993 1:00:58 pm PDT */
/* C2C version: April 20, 1993 (sun4) */
/* ref-counting: off */
/* file: TJaMRopeImpl, module: TJaMRopeImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [1054651072,2895913862] TJaMRopeImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
#define SOURCE(p, l) /* source p, l */
static void NoName←Q564();
static void TJaMRopeImpl←P0();
static void ApplySearch←P60();
static void ApplyASearch←P120();
static void ApplyConvertToString←P180();
static void ApplySGet←P240();
static void ApplyConcat←P300();
static void ApplySubstr←P360();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\104\304\000\000"};
static struct {unsigned f; char r[24];} string2 = {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];} string3 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[4];} string4 = {65537, "\001\000\000"};
static struct {unsigned f; char r[4];} string5 = {65540, "\251\000\000"};
static struct {unsigned f; char r[16];} string6 = {851984, "\257\300\243\004\305\073\300\011\303\367\103\100\230\000\000"};
static struct {unsigned f; char r[12];} string7 = {720908, ".ropeconcat"};
static struct {unsigned f; char r[12];} string8 = {655372, ".substring\000"};
static struct {unsigned f; char r[8];} string9 = {262152, ".cvs\000\000\000"};
static struct {unsigned f; char r[12];} string10 = {524300, ".asearch\000\000\000"};
static struct {unsigned f; char r[16];} string11 = {983056, "--nostringval--"};
static struct {unsigned f; char r[8];} string12 = {458760, ".search"};
static struct {unsigned f; char r[16];} string13 = {851984, "\257\300\076\334\262\300\300\254\234\043\206\100\164\000\000"};
static struct {unsigned f; char r[8];} string14 = {262148, "\004\200~\000\000\000\000"};
static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\255\053\300\023\300\142\135\315\105\100\150\000\000"};
static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[16];} string17 = {851984, "\257\300\243\004\305\073\300\011\303\367\103\100\150\000\000"};
static struct {
   word f0[15]; 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[4]; 
   } globalframe = {
   {0}, (word) ApplySubstr←P360, 0, (word) ApplyConcat←P300, 
   0, (word) ApplySGet←P240, 0, (word) ApplyConvertToString←P180, 
   0, (word) ApplyASearch←P120, 0, (word) ApplySearch←P60, 
   0, (word) TJaMRopeImpl←P0, {0}
   };

static void NoName←Q564()
   {
   register ptr gf←c057 =  (ptr) &globalframe;
   word var←c11312;
   (* (( (ptr) gf←c057)+4) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2);
   (* (( (ptr) gf←c057)+5) ) = (word) XR←GetTypeIndex((word) &string3, 0, (word) &string4);
   (* (( (ptr) gf←c057)+7) ) = (word) XR←GetTypeIndexS((word) (&string5));
   (* (( (ptr) gf←c057)+8) ) = (word) XR←GetTypeIndexS((word) (&string6));
   (*  (ptr) (( (bPt) gf←c057)+36) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c057)+5) ), (word) &string7);
   (*  (ptr) (( (bPt) gf←c057)+40) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c057)+5) ), (word) &string8);
   (*  (ptr) (( (bPt) gf←c057)+44) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c057)+5) ), (word) &string9);
   (*  (ptr) (( (bPt) gf←c057)+48) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c057)+5) ), (word) &string10);
   (*  (ptr) (( (bPt) gf←c057)+52) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c057)+5) ), (word) &string11);
   (*  (ptr) (( (bPt) gf←c057)+56) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c057)+5) ), (word) &string12);
   (void) XR←DeclareGlobalFrame((word) "TJaMRopeImpl", &globalframe, (word) XR←GetTypeIndex((word) &string13, 0, (word) &string14)
      , (word) (( (bPt) gf←c057)+108)/* var←c10896 */ );
   var←c11312 = (word) XR←ImportInterface((word) "Convert", (word) XR←GetTypeIndexS((word) (&string15)), 73);
   (* (( (ptr) gf←c057)+31)/* var←c11216 */  ) = var←c11312;
   (void) XR←ImportProcS(var←c11312, 67902211);
   (void) XR←ImportProcS(var←c11312, 67901187);
   var←c11312 = (word) XR←ImportInterface((word) "Rope", (word) XR←GetTypeIndexS((word) (&string16)), 43);
   (* (( (ptr) gf←c057)+30)/* var←c10960 */  ) = var←c11312;
   (void) XR←ImportProcS(var←c11312, 67633666);
   (void) XR←ImportProcS(var←c11312, 67634434);
   (void) XR←ImportProcS(var←c11312, 67896323);
   (void) XR←ImportProcS(var←c11312, 67898627);
   (void) XR←ImportProcS(var←c11312, 68159236);
   (void) XR←ImportProcS(var←c11312, 67373569);
   var←c11312 = (word) XR←ImportInterface((word) "TJaM", (word) XR←GetTypeIndexS((word) (&string17)), 101);
   (* (( (ptr) gf←c057)+29)/* var←c10928 */  ) = var←c11312;
   (void) XR←ImportProcS(var←c11312, 530178);
   (void) XR←ImportProcS(var←c11312, 67379969);
   (void) XR←ImportProcS(var←c11312, 67375361);
   (void) XR←ImportProcS(var←c11312, 285441);
   (void) XR←ImportProcS(var←c11312, 67379457);
   (void) XR←ImportProcS(var←c11312, 529922);
   (void) XR←ImportProcS(var←c11312, 531202);
   (void) XR←ImportProcS(var←c11312, 67380993);
   (void) XR←ImportProcS(var←c11312, 812035);
   }

static void TJaMRopeImpl←P0(formal←c015, formal←c014)
   word formal←c015;
   word formal←c014;
   {
   register ptr gf←c11344 =  (ptr) &globalframe;
   /* TJaMRopeImpl: */ 
SOURCE(250, 1879)
SOURCE(1901, 41)
   {
      word pd18;
      pd18 = (* (( (ptr) (* (( (ptr) gf←c11344)+29)/* var←c10928 */  ))+104) );
      (void) ( *( (fPt) ((*  (ptr) pd18 ))))((* (( (ptr) gf←c11344)+14) ), (word) (( (bPt) gf←c11344)+100)/* var←c10864 */ , 0, pd18)
      ;
      };
SOURCE(1944, 43)
   {
      word pd19;
      pd19 = (* (( (ptr) (* (( (ptr) gf←c11344)+29)/* var←c10928 */  ))+104) );
      (void) ( *( (fPt) ((*  (ptr) pd19 ))))((* (( (ptr) gf←c11344)+12) ), (word) (( (bPt) gf←c11344)+92)/* var←c10832 */ , 0, pd19)
      ;
      };
SOURCE(1989, 47)
   {
      word pd20;
      pd20 = (* (( (ptr) (* (( (ptr) gf←c11344)+29)/* var←c10928 */  ))+104) );
      (void) ( *( (fPt) ((*  (ptr) pd20 ))))((* (( (ptr) gf←c11344)+11) ), (word) (( (bPt) gf←c11344)+84)/* var←c10800 */ , 0, pd20)
      ;
      };
SOURCE(2038, 45)
   {
      word pd21;
      pd21 = (* (( (ptr) (* (( (ptr) gf←c11344)+29)/* var←c10928 */  ))+104) );
      (void) ( *( (fPt) ((*  (ptr) pd21 ))))((* (( (ptr) gf←c11344)+9) ), (word) (( (bPt) gf←c11344)+68)/* var←c10736 */ , 0, pd21)
      ;
      };
SOURCE(2085, 44)
   {
      word pd22;
      pd22 = (* (( (ptr) (* (( (ptr) gf←c11344)+29)/* var←c10928 */  ))+104) );
      (void) ( *( (fPt) ((*  (ptr) pd22 ))))((* (( (ptr) gf←c11344)+10) ), (word) (( (bPt) gf←c11344)+60)/* var←c10704 */ , 0, pd22)
      ;
      };
   }

static void ApplySearch←P60(frame←v7232, cmd←v7260)
   word frame←v7232;
   word cmd←v7260;
   {
   register ptr gf←c11376 =  (ptr) &globalframe;
   word s←v2768;
   word t←v2796;
   word slen←v2824;
   word i←v2852;
   /* ApplySearch: */ 
SOURCE(351, 409)
SOURCE(380, 24)
   {
      word pd23;
      pd23 = (* (( (ptr) (* (( (ptr) gf←c11376)+29)/* var←c10928 */  ))+43) );
      s←v2768 = (word) ( *( (fPt) ((*  (ptr) pd23 ))))(frame←v7232, pd23);
      };
SOURCE(406, 24)
   {
      word pd24;
      pd24 = (* (( (ptr) (* (( (ptr) gf←c11376)+29)/* var←c10928 */  ))+43) );
      t←v2796 = (word) ( *( (fPt) ((*  (ptr) pd24 ))))(frame←v7232, pd24);
      };
SOURCE(432, 22)
   {
      word pd25;
      pd25 = (* (( (ptr) (* (( (ptr) gf←c11376)+30)/* var←c10960 */  ))+14) );
      slen←v2824 = (word) ( *( (fPt) ((*  (ptr) pd25 ))))(s←v2768, pd25);
      };
SOURCE(456, 18)
   {
      word pd26;
      pd26 = (* (( (ptr) (* (( (ptr) gf←c11376)+30)/* var←c10960 */  ))+11) );
      i←v2852 = (word) ( *( (fPt) ((*  (ptr) pd26 ))))(t←v2796, s←v2768, 0, 1, pd26);
      };
SOURCE(476, 284)
   if (( (int)i←v2852 >=  (int)0)) {
SOURCE(491, 33)
      {
         word var←c10992;
         {
            word pd27;
            pd27 = (* (( (ptr) (* (( (ptr) gf←c11376)+30)/* var←c10960 */  ))+17) );
            var←c10992 = (word) ( *( (fPt) ((*  (ptr) pd27 ))))(t←v2796, (i←v2852 + slen←v2824), 2147483647, pd27);
            };
         {
            word pd28;
            pd28 = (* (( (ptr) (* (( (ptr) gf←c11376)+29)/* var←c10928 */  ))+31) );
            (void) ( *( (fPt) ((*  (ptr) pd28 ))))(frame←v7232, var←c10992, pd28);
            };
         };
SOURCE(555, 18)
      {
         word pd29;
         pd29 = (* (( (ptr) (* (( (ptr) gf←c11376)+29)/* var←c10928 */  ))+31) );
         (void) ( *( (fPt) ((*  (ptr) pd29 ))))(frame←v7232, s←v2768, pd29);
         };
SOURCE(599, 31)
      {
         word var←c11024;
         {
            word pd30;
            pd30 = (* (( (ptr) (* (( (ptr) gf←c11376)+30)/* var←c10960 */  ))+17) );
            var←c11024 = (word) ( *( (fPt) ((*  (ptr) pd30 ))))(t←v2796, 0, i←v2852, pd30);
            };
         {
            word pd31;
            pd31 = (* (( (ptr) (* (( (ptr) gf←c11376)+29)/* var←c10928 */  ))+31) );
            (void) ( *( (fPt) ((*  (ptr) pd31 ))))(frame←v7232, var←c11024, pd31);
            };
         };
SOURCE(661, 21)
      {
         word pd32;
         pd32 = (* (( (ptr) (* (( (ptr) gf←c11376)+29)/* var←c10928 */  ))+26) );
         (void) ( *( (fPt) ((*  (ptr) pd32 ))))(frame←v7232, 1, pd32);
         };
      }
   else {
SOURCE(693, 18)
      {
         word pd33;
         pd33 = (* (( (ptr) (* (( (ptr) gf←c11376)+29)/* var←c10928 */  ))+31) );
         (void) ( *( (fPt) ((*  (ptr) pd33 ))))(frame←v7232, t←v2796, pd33);
         };
SOURCE(738, 22)
      {
         word pd34;
         pd34 = (* (( (ptr) (* (( (ptr) gf←c11376)+29)/* var←c10928 */  ))+26) );
         (void) ( *( (fPt) ((*  (ptr) pd34 ))))(frame←v7232, 0, pd34);
         };
      };
   }

static void ApplyASearch←P120(frame←v7320, cmd←v7348)
   word frame←v7320;
   word cmd←v7348;
   {
   register ptr gf←c11408 =  (ptr) &globalframe;
   word s←v2896;
   word t←v2924;
   word slen←v2952;
   word var←c11056;
   /* ApplyASearch: */ 
SOURCE(769, 348)
SOURCE(799, 24)
   {
      word pd35;
      pd35 = (* (( (ptr) (* (( (ptr) gf←c11408)+29)/* var←c10928 */  ))+43) );
      s←v2896 = (word) ( *( (fPt) ((*  (ptr) pd35 ))))(frame←v7320, pd35);
      };
SOURCE(825, 24)
   {
      word pd36;
      pd36 = (* (( (ptr) (* (( (ptr) gf←c11408)+29)/* var←c10928 */  ))+43) );
      t←v2924 = (word) ( *( (fPt) ((*  (ptr) pd36 ))))(frame←v7320, pd36);
      };
SOURCE(851, 22)
   {
      word pd37;
      pd37 = (* (( (ptr) (* (( (ptr) gf←c11408)+30)/* var←c10960 */  ))+14) );
      slen←v2952 = (word) ( *( (fPt) ((*  (ptr) pd37 ))))(s←v2896, pd37);
      };
SOURCE(875, 242)
   {
      word pd39;
      {
         word pd38;
         pd38 = (* (( (ptr) (* (( (ptr) gf←c11408)+30)/* var←c10960 */  ))+17) );
         var←c11056 = (word) ( *( (fPt) ((*  (ptr) pd38 ))))(t←v2924, 0, slen←v2952, pd38);
         };
      pd39 = (* (( (ptr) (* (( (ptr) gf←c11408)+30)/* var←c10960 */  ))+8) );
      if ((0 != (word) ( *( (fPt) ((*  (ptr) pd39 ))))(s←v2896, var←c11056, 1, pd39))) {
SOURCE(912, 31)
         {
            word var←c11088;
            {
               word pd40;
               pd40 = (* (( (ptr) (* (( (ptr) gf←c11408)+30)/* var←c10960 */  ))+17) );
               var←c11088 = (word) ( *( (fPt) ((*  (ptr) pd40 ))))(t←v2924, slen←v2952, 2147483647, pd40);
               };
            {
               word pd41;
               pd41 = (* (( (ptr) (* (( (ptr) gf←c11408)+29)/* var←c10928 */  ))+31) );
               (void) ( *( (fPt) ((*  (ptr) pd41 ))))(frame←v7320, var←c11088, pd41);
               };
            };
SOURCE(974, 18)
         {
            word pd42;
            pd42 = (* (( (ptr) (* (( (ptr) gf←c11408)+29)/* var←c10928 */  ))+31) );
            (void) ( *( (fPt) ((*  (ptr) pd42 ))))(frame←v7320, s←v2896, pd42);
            };
SOURCE(1018, 21)
         {
            word pd43;
            pd43 = (* (( (ptr) (* (( (ptr) gf←c11408)+29)/* var←c10928 */  ))+26) );
            (void) ( *( (fPt) ((*  (ptr) pd43 ))))(frame←v7320, 1, pd43);
            };
         }
      else {
SOURCE(1050, 18)
         {
            word pd44;
            pd44 = (* (( (ptr) (* (( (ptr) gf←c11408)+29)/* var←c10928 */  ))+31) );
            (void) ( *( (fPt) ((*  (ptr) pd44 ))))(frame←v7320, t←v2924, pd44);
            };
SOURCE(1095, 22)
         {
            word pd45;
            pd45 = (* (( (ptr) (* (( (ptr) gf←c11408)+29)/* var←c10928 */  ))+26) );
            (void) ( *( (fPt) ((*  (ptr) pd45 ))))(frame←v7320, 0, pd45);
            };
         };
      };
   }

static void ApplyConvertToString←P180(frame←v7408, cmd←v7436)
   word frame←v7408;
   word cmd←v7436;
   {
   register ptr gf←c11440 =  (ptr) &globalframe;
   word x←v2996;
   word rope←v3024 = 0;
   /* ApplyConvertToString: */ 
SOURCE(1126, 356)
SOURCE(1164, 19)
   {
      word pd46;
      pd46 = (* (( (ptr) (* (( (ptr) gf←c11440)+29)/* var←c10928 */  ))+37) );
      x←v2996 = (word) ( *( (fPt) ((*  (ptr) pd46 ))))(frame←v7408, pd46);
      };
SOURCE(1197, 262)
   {
      word var←c11120;
      word var←c11152;
      var←c11120 = x←v2996;
      if ((var←c11120 == 0)) {
         goto lab←L100000;
         };
      var←c11152 = XR←GetReferentType(var←c11120);
      {
         word tc51;
         if (((* (( (ptr) gf←c11440)+8) ) == var←c11152)) {
            {
               word x←v3084;
               x←v3084 = var←c11120;
SOURCE(1229, 137)
               {
                  word var←c11184;
                  var←c11184 = (*  (ptr) x←v3084 );
                  if ((var←c11184 == 0)) {
SOURCE(1258, 33)
                     {
                        word pd48;
                        pd48 = (* (( (ptr) (* (( (ptr) gf←c11440)+31)/* var←c11216 */  ))+27) );
                        rope←v3024 = (word) ( *( (fPt) ((*  (ptr) pd48 ))))((* (( (ptr) x←v3084)+1) ), 8, 1, pd48);
                        };
                     }
                  else {
                     if ((var←c11184 == 1)) {
SOURCE(1301, 35)
                        {
                           word pd49;
                           pd49 = (* (( (ptr) (* (( (ptr) gf←c11440)+31)/* var←c11216 */  ))+31) );
                           rope←v3024 = (word) ( *( (fPt) ((*  (ptr) pd49 ))))((* (( (ptr) x←v3084)+1) ), 7, 0, pd49);
                           };
                        }
                     else {
SOURCE(1349, 17)
                        {
                           word pd50;
                           pd50 = (* (( (ptr) (* (( (ptr) gf←c11440)+29)/* var←c10928 */  ))+95) );
                           (void) ( *( (fPt) ((*  (ptr) pd50 ))))(14, pd50);
                           };
                        };
                     };
                  };
               };
            goto endif047;
            };
         if (((* (( (ptr) gf←c11440)+4) ) == var←c11152)) {
            tc51 =  (word) ( (unsigned) (*(int*)var←c11120<0) == 0);
            }
         else {
            tc51 =  (word) 0;
            };
         if (tc51) {
            {
               word x←v3128;
               x←v3128 = var←c11120;
SOURCE(1379, 8)
               rope←v3024 = x←v3128;
               };
            goto endif047;
            };
         if (((* (( (ptr) gf←c11440)+7) ) == var←c11152)) {
            {
               word x←v3172;
               x←v3172 = var←c11120;
SOURCE(1400, 22)
               {
                  word pd52;
                  pd52 = (* (( (ptr) (* (( (ptr) gf←c11440)+29)/* var←c10928 */  ))+21) );
                  rope←v3024 = (word) ( *( (fPt) ((*  (ptr) pd52 ))))(x←v3172, pd52);
                  };
               };
            goto endif047;
            };
         lab←L100000: ;
SOURCE(1435, 24)
         rope←v3024 = (* (( (ptr) gf←c11440)+13) );
         goto endif047;
         endif047: ;
         };
      };
SOURCE(1461, 21)
   {
      word pd53;
      pd53 = (* (( (ptr) (* (( (ptr) gf←c11440)+29)/* var←c10928 */  ))+31) );
      (void) ( *( (fPt) ((*  (ptr) pd53 ))))(frame←v7408, rope←v3024, pd53);
      };
   }

static void ApplySGet←P240(frame←v7496, cmd←v7524)
   word frame←v7496;
   word cmd←v7524;
   {
   register ptr gf←c11472 =  (ptr) &globalframe;
   word i←v3216;
   word rope←v3244;
   word c←v3272;
   /* ApplySGet: */ 
SOURCE(1488, 127)
SOURCE(1515, 22)
   {
      word pd54;
      pd54 = (* (( (ptr) (* (( (ptr) gf←c11472)+29)/* var←c10928 */  ))+39) );
      i←v3216 = (word) ( *( (fPt) ((*  (ptr) pd54 ))))(frame←v7496, pd54);
      };
SOURCE(1539, 27)
   {
      word pd55;
      pd55 = (* (( (ptr) (* (( (ptr) gf←c11472)+29)/* var←c10928 */  ))+43) );
      rope←v3244 = (word) ( *( (fPt) ((*  (ptr) pd55 ))))(frame←v7496, pd55);
      };
SOURCE(1568, 23)
   {
      word pd56;
      pd56 = (* (( (ptr) (* (( (ptr) gf←c11472)+30)/* var←c10960 */  ))+9) );
      c←v3272 = (word) ( *( (fPt) ((*  (ptr) pd56 ))))(rope←v3244, i←v3216, pd56);
      };
SOURCE(1593, 22)
   {
      word pd57;
      pd57 = (* (( (ptr) (* (( (ptr) gf←c11472)+29)/* var←c10928 */  ))+27) );
      (void) ( *( (fPt) ((*  (ptr) pd57 ))))(frame←v7496, c←v3272, pd57);
      };
   }

static void ApplyConcat←P300(frame←v7584, cmd←v7612)
   word frame←v7584;
   word cmd←v7612;
   {
   register ptr gf←c11504 =  (ptr) &globalframe;
   word b←v3316;
   word a←v3344;
   /* ApplyConcat: */ 
SOURCE(1621, 115)
SOURCE(1650, 24)
   {
      word pd58;
      pd58 = (* (( (ptr) (* (( (ptr) gf←c11504)+29)/* var←c10928 */  ))+43) );
      b←v3316 = (word) ( *( (fPt) ((*  (ptr) pd58 ))))(frame←v7584, pd58);
      };
SOURCE(1676, 24)
   {
      word pd59;
      pd59 = (* (( (ptr) (* (( (ptr) gf←c11504)+29)/* var←c10928 */  ))+43) );
      a←v3344 = (word) ( *( (fPt) ((*  (ptr) pd59 ))))(frame←v7584, pd59);
      };
SOURCE(1702, 34)
   {
      word var←c11248;
      {
         word pd60;
         pd60 = (* (( (ptr) (* (( (ptr) gf←c11504)+30)/* var←c10960 */  ))+6) );
         var←c11248 = (word) ( *( (fPt) ((*  (ptr) pd60 ))))(a←v3344, b←v3316, pd60);
         };
      {
         word pd61;
         pd61 = (* (( (ptr) (* (( (ptr) gf←c11504)+29)/* var←c10928 */  ))+31) );
         (void) ( *( (fPt) ((*  (ptr) pd61 ))))(frame←v7584, var←c11248, pd61);
         };
      };
   }

static void ApplySubstr←P360(frame←v7672, cmd←v7700)
   word frame←v7672;
   word cmd←v7700;
   {
   register ptr gf←c11536 =  (ptr) &globalframe;
   word len←v3388;
   word start←v3416;
   word rope←v3444;
   /* ApplySubstr: */ 
SOURCE(1742, 152)
SOURCE(1771, 24)
   {
      word pd62;
      pd62 = (* (( (ptr) (* (( (ptr) gf←c11536)+29)/* var←c10928 */  ))+39) );
      len←v3388 = (word) ( *( (fPt) ((*  (ptr) pd62 ))))(frame←v7672, pd62);
      };
SOURCE(1797, 26)
   {
      word pd63;
      pd63 = (* (( (ptr) (* (( (ptr) gf←c11536)+29)/* var←c10928 */  ))+39) );
      start←v3416 = (word) ( *( (fPt) ((*  (ptr) pd63 ))))(frame←v7672, pd63);
      };
SOURCE(1825, 27)
   {
      word pd64;
      pd64 = (* (( (ptr) (* (( (ptr) gf←c11536)+29)/* var←c10928 */  ))+43) );
      rope←v3444 = (word) ( *( (fPt) ((*  (ptr) pd64 ))))(frame←v7672, pd64);
      };
SOURCE(1854, 40)
   {
      word var←c11280;
      {
         word pd65;
         pd65 = (* (( (ptr) (* (( (ptr) gf←c11536)+30)/* var←c10960 */  ))+17) );
         var←c11280 = (word) ( *( (fPt) ((*  (ptr) pd65 ))))(rope←v3444, start←v3416, len←v3388, pd65);
         };
      {
         word pd66;
         pd66 = (* (( (ptr) (* (( (ptr) gf←c11536)+29)/* var←c10928 */  ))+31) );
         (void) ( *( (fPt) ((*  (ptr) pd66 ))))(frame←v7672, var←c11280, pd66);
         };
      };
   }

/* file: TJaMRopeImpl, module: TJaMRopeImpl, compiled at: October 19, 1993 1:00:57 pm PDT */ 
extern void XR←install←TJaMRopeImpl() {
   NoName←Q564();
   }
extern void XR←run←TJaMRopeImpl() { XR←Start(&globalframe); }