/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation.  All rights reserved. */
/* time: October 19, 1993 1:03:48 pm PDT */
/* C2C version: April 20, 1993 (sun4) */
/* ref-counting: off */
/* file: TJaMArrayImpl, module: TJaMArrayImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [2193439576,2020879833] TJaMArrayImpl";
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, f6, f7;} W8;
typedef struct {word f0, f1, f2, f3, f4, f5;} W6;
#define SOURCE(p, l) /* source p, l */
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR_RaiseBoundsFault()) : (idx) )
#define SGNCK(i) ((int) (word) (i) < 0 ? XR_RaiseArithmeticFault(): i )
static void NoName_Q1884();
static void TJaMArrayImpl_P0();
static word NewArray_P60();
static word ACopy_P120();
static void AStore_P180();
static void ALoad_P240();
static void APut_P300();
static word AGet_P360();
static word ASub_P420();
static word AFind_P480();
static void ABind_P540();
static word ArrayForAll_P600();
static void ApplyArray_P660();
static void ApplyAPut_P720();
static void ApplyAGet_P780();
static void ApplySubArray_P840();
static void ApplyAFind_P900();
static void ApplyAStore_P960();
static void ApplyALoad_P1020();
static void ApplyABind_P1080();
static void ApplyArrayForAll_P1140();
static word proc_P1824();
static word NoName_Q1944();
static void NoName_Q2004();
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[4];} string3 = {65540, "\251\000\000"};
static struct {unsigned f; char r[16];} string4 = {851984, "\257\300\243\004\305\073\300\011\303\367\103\101\020\000\000"};
static struct {unsigned f; char r[12];} string5 = {524296, "\011\000\004\000\040\000\004\001\000\000\000"};
static struct {unsigned f; char r[16];} string6 = {851984, "\257\300\243\004\305\073\300\011\303\367\103\101\004\000\000"};
static struct {unsigned f; char r[16];} string7 = {786448, ".arrayforall\000\000\000"};
static struct {unsigned f; char r[8];} string8 = {458760, ".astore"};
static struct {unsigned f; char r[8];} string9 = {393224, ".aload\000"};
static struct {unsigned f; char r[8];} string10 = {393224, ".abind\000"};
static struct {unsigned f; char r[8];} string11 = {393224, ".afind\000"};
static struct {unsigned f; char r[12];} string12 = {589836, ".subarray\000\000"};
static struct {unsigned f; char r[8];} string13 = {327688, ".aput\000\000"};
static struct {unsigned f; char r[8];} string14 = {327688, ".aget\000\000"};
static struct {unsigned f; char r[8];} string15 = {393224, ".array\000"};
static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\202\275\073\130\300\170\164\055\331\100\164\000\000"};
static struct {unsigned f; char r[8];} string17 = {393222, "\006\001(\004A\377\000"};
static struct {unsigned f; char r[4];} string18 = {1414160717, "\000"};
static struct {unsigned f; char r[16];} string19 = {851984, "\257\300\243\004\305\073\300\011\303\367\103\100\150\000\000"};
static struct {
   word f0[19]; 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; 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; word f52; word f53; 
   word f54; word f55; word f56; word f57; 
   word f58[3]; 
   } globalframe = {
   {0}, (word) ApplyArrayForAll_P1140, 0, (word) ApplyABind_P1080, 
   0, (word) ApplyALoad_P1020, 0, (word) ApplyAStore_P960, 
   0, (word) ApplyAFind_P900, 0, (word) ApplySubArray_P840, 
   0, (word) ApplyAGet_P780, 0, (word) ApplyAPut_P720, 
   0, (word) ApplyArray_P660, 0, (word) ArrayForAll_P600, 
   0, (word) ABind_P540, 0, (word) AFind_P480, 
   0, (word) ASub_P420, 0, (word) AGet_P360, 
   0, (word) APut_P300, 0, (word) ALoad_P240, 
   0, (word) AStore_P180, 0, (word) ACopy_P120, 
   0, (word) NewArray_P60, 0, (word) TJaMArrayImpl_P0, 
   {0}
   };

static void NoName_Q1884()
   {
   register ptr gf_c0147 =  (ptr) &globalframe;
   word var_c13904;
   (* (( (ptr) gf_c0147)+5) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (* (( (ptr) gf_c0147)+7) ) = (word) XR_GetTypeIndexS((word) (&string3));
   (* (( (ptr) gf_c0147)+8) ) = (word) XR_GetTypeIndex((word) &string4, 0, (word) &string5);
   (* (( (ptr) gf_c0147)+9) ) = (word) XR_GetTypeIndex((word) &string6, 0, (word) &string2);
   (*  (ptr) (( (bPt) gf_c0147)+40) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0147)+5) ), (word) &string7);
   (*  (ptr) (( (bPt) gf_c0147)+44) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0147)+5) ), (word) &string8);
   (*  (ptr) (( (bPt) gf_c0147)+48) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0147)+5) ), (word) &string9);
   (*  (ptr) (( (bPt) gf_c0147)+52) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0147)+5) ), (word) &string10);
   (*  (ptr) (( (bPt) gf_c0147)+56) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0147)+5) ), (word) &string11);
   (*  (ptr) (( (bPt) gf_c0147)+60) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0147)+5) ), (word) &string12);
   (*  (ptr) (( (bPt) gf_c0147)+64) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0147)+5) ), (word) &string13);
   (*  (ptr) (( (bPt) gf_c0147)+68) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0147)+5) ), (word) &string14);
   (*  (ptr) (( (bPt) gf_c0147)+72) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0147)+5) ), (word) &string15);
   (void) XR_DeclareGlobalFrame((word) "TJaMArrayImpl", &globalframe, (word) XR_GetTypeIndex((word) &string16, 0, (word) &string17)
      , (word) (( (bPt) gf_c0147)+228)/* var_c12816 */ );
   var_c13904 = (word) XR_ImportInterface((word) &string18, (word) XR_GetTypeIndexS((word) (&string19)), 101);
   (* (( (ptr) gf_c0147)+59)/* var_c12848 */  ) = var_c13904;
   (void) XR_ImportProcS(var_c13904, 548610);
   (void) XR_ImportProcS(var_c13904, 67382017);
   (void) XR_ImportProcS(var_c13904, 529922);
   (void) XR_ImportProcS(var_c13904, 530178);
   (void) XR_ImportProcS(var_c13904, 67381761);
   (void) XR_ImportProcS(var_c13904, 531970);
   (void) XR_ImportProcS(var_c13904, 67379969);
   (void) XR_ImportProcS(var_c13904, 134759682);
   (void) XR_ImportProcS(var_c13904, 67633410);
   (void) XR_ImportProcS(var_c13904, 529666);
   (void) XR_ImportProcS(var_c13904, 67379457);
   (void) XR_ImportProcS(var_c13904, 285441);
   (void) XR_ImportProcS(var_c13904, 812035);
   var_c13904 = (word) XR_ExportInterface((word) &string18, (word) XR_GetTypeIndexS((word) (&string19)), 101);
   (* (( (ptr) gf_c0147)+60)/* var_c13936 */  ) = var_c13904;
   (void) XR_ExportProcS(var_c13904, (word) (( (bPt) gf_c0147)+220)/* var_c12784 */ , 67385601, (word) "NewArray");
   (void) XR_ExportProcS(var_c13904, (word) (( (bPt) gf_c0147)+212)/* var_c12752 */ , 67648002, (word) "ACopy");
   (void) XR_ExportProcS(var_c13904, (word) (( (bPt) gf_c0147)+172)/* var_c12592 */ , 67910403, (word) "ASub");
   (void) XR_ExportProcS(var_c13904, (word) (( (bPt) gf_c0147)+188)/* var_c12656 */ , 801795, (word) "APut");
   (void) XR_ExportProcS(var_c13904, (word) (( (bPt) gf_c0147)+180)/* var_c12624 */ , 67648770, (word) "AGet");
   (void) XR_ExportProcS(var_c13904, (word) (( (bPt) gf_c0147)+164)/* var_c12560 */ , 67649026, (word) "AFind");
   (void) XR_ExportProcS(var_c13904, (word) (( (bPt) gf_c0147)+156)/* var_c12528 */ , 540418, (word) "ABind");
   (void) XR_ExportProcS(var_c13904, (word) (( (bPt) gf_c0147)+148)/* var_c12496 */ , 67649538, (word) "ArrayForAll");
   (void) XR_ExportProcS(var_c13904, (word) (( (bPt) gf_c0147)+204)/* var_c12720 */ , 540930, (word) "AStore");
   (void) XR_ExportProcS(var_c13904, (word) (( (bPt) gf_c0147)+196)/* var_c12688 */ , 541186, (word) "ALoad");
   }

static void TJaMArrayImpl_P0(formal_c029, formal_c028)
   word formal_c029;
   word formal_c028;
   {
   register ptr gf_c13968 =  (ptr) &globalframe;
   /* TJaMArrayImpl: */ 
SOURCE(18, 3895)
SOURCE(3530, 39)
   {
      word pd20;
      pd20 = (* (( (ptr) (* (( (ptr) gf_c13968)+59)/* var_c12848 */  ))+104) );
      (void) ( *( (fPt) ((*  (ptr) pd20 ))))((* (( (ptr) gf_c13968)+18) ), (word) (( (bPt) gf_c13968)+140)/* var_c12464 */ , 0, pd20)
      ;
      };
SOURCE(3571, 37)
   {
      word pd21;
      pd21 = (* (( (ptr) (* (( (ptr) gf_c13968)+59)/* var_c12848 */  ))+104) );
      (void) ( *( (fPt) ((*  (ptr) pd21 ))))((* (( (ptr) gf_c13968)+17) ), (word) (( (bPt) gf_c13968)+124)/* var_c12400 */ , 0, pd21)
      ;
      };
SOURCE(3610, 37)
   {
      word pd22;
      pd22 = (* (( (ptr) (* (( (ptr) gf_c13968)+59)/* var_c12848 */  ))+104) );
      (void) ( *( (fPt) ((*  (ptr) pd22 ))))((* (( (ptr) gf_c13968)+16) ), (word) (( (bPt) gf_c13968)+132)/* var_c12432 */ , 0, pd22)
      ;
      };
SOURCE(3649, 45)
   {
      word pd23;
      pd23 = (* (( (ptr) (* (( (ptr) gf_c13968)+59)/* var_c12848 */  ))+104) );
      (void) ( *( (fPt) ((*  (ptr) pd23 ))))((* (( (ptr) gf_c13968)+15) ), (word) (( (bPt) gf_c13968)+116)/* var_c12368 */ , 0, pd23)
      ;
      };
SOURCE(3696, 51)
   {
      word pd24;
      pd24 = (* (( (ptr) (* (( (ptr) gf_c13968)+59)/* var_c12848 */  ))+104) );
      (void) ( *( (fPt) ((*  (ptr) pd24 ))))((* (( (ptr) gf_c13968)+10) ), (word) (( (bPt) gf_c13968)+76)/* var_c12208 */ , 0, pd24)
      ;
      };
SOURCE(3749, 41)
   {
      word pd25;
      pd25 = (* (( (ptr) (* (( (ptr) gf_c13968)+59)/* var_c12848 */  ))+104) );
      (void) ( *( (fPt) ((*  (ptr) pd25 ))))((* (( (ptr) gf_c13968)+11) ), (word) (( (bPt) gf_c13968)+100)/* var_c12304 */ , 0, pd25)
      ;
      };
SOURCE(3792, 39)
   {
      word pd26;
      pd26 = (* (( (ptr) (* (( (ptr) gf_c13968)+59)/* var_c12848 */  ))+104) );
      (void) ( *( (fPt) ((*  (ptr) pd26 ))))((* (( (ptr) gf_c13968)+12) ), (word) (( (bPt) gf_c13968)+92)/* var_c12272 */ , 0, pd26)
      ;
      };
SOURCE(3833, 39)
   {
      word pd27;
      pd27 = (* (( (ptr) (* (( (ptr) gf_c13968)+59)/* var_c12848 */  ))+104) );
      (void) ( *( (fPt) ((*  (ptr) pd27 ))))((* (( (ptr) gf_c13968)+13) ), (word) (( (bPt) gf_c13968)+84)/* var_c12240 */ , 0, pd27)
      ;
      };
SOURCE(3874, 39)
   {
      word pd28;
      pd28 = (* (( (ptr) (* (( (ptr) gf_c13968)+59)/* var_c12848 */  ))+104) );
      (void) ( *( (fPt) ((*  (ptr) pd28 ))))((* (( (ptr) gf_c13968)+14) ), (word) (( (bPt) gf_c13968)+108)/* var_c12336 */ , 0, pd28)
      ;
      };
   }

static word NewArray_P60(len_v3052)
   word len_v3052;
   {
   register ptr gf_c14000 =  (ptr) &globalframe;
   word var_c3096;
   /* NewArray: */ 
SOURCE(161, 189)
SOURCE(212, 63)
   if (( (int)len_v3052 <  (int)0) || ( (int)len_v3052 >=  (int)536870910)) {
SOURCE(250, 25)
      {
         word pd29;
         pd29 = (* (( (ptr) (* (( (ptr) gf_c14000)+59)/* var_c12848 */  ))+95) );
         (void) ( *( (fPt) ((*  (ptr) pd29 ))))(3, pd29);
         };
      };
SOURCE(277, 73)
   {
      word var_c12944;
      word var_c12976;
      word var_c13008;
      word var_c12912;
      word var_c13040;
      var_c12944 = BCK(len_v3052, 67108863);
      var_c12976 = ((word) var_c12944 << 2);
      var_c13008 = XR_NewObject((4 + var_c12976), (* (( (ptr) gf_c14000)+8) ));
      (*  (ptr) var_c13008 ) = var_c12944;
      var_c12912 = var_c13008;
      var_c13040 = XR_NewObject(12, (* (( (ptr) gf_c14000)+9) ));
      (*  (ptr) var_c13040 ) = var_c12912;
      (* (( (ptr) var_c13040)+2) ) = SGNCK(len_v3052);
      return(var_c13040);
      };
   }

static word ACopy_P120(array_v3156, expand_v3184)
   word array_v3156;
   word expand_v3184;
   {
   register ptr gf_c14032 =  (ptr) &globalframe;
   word new_v3228;
   word rem_v4192;
   /* ACopy: */ 
SOURCE(356, 269)
SOURCE(356, 269)
   new_v3228 = 0;
SOURCE(430, 35)
   rem_v4192 = (536870910 - (* (( (ptr) array_v3156)+2) ));
SOURCE(467, 55)
   if (( (int)expand_v3184 <  (int)0) || ( (int)expand_v3184 >=  (int)rem_v4192)) {
SOURCE(497, 25)
      {
         word pd30;
         pd30 = (* (( (ptr) (* (( (ptr) gf_c14032)+59)/* var_c12848 */  ))+95) );
         (void) ( *( (fPt) ((*  (ptr) pd30 ))))(3, pd30);
         };
      };
SOURCE(524, 32)
   new_v3228 = (word) NewArray_P60(((* (( (ptr) array_v3156)+2) ) + expand_v3184));
SOURCE(558, 67)
   {
      register word i_v4236 = 0;
      register word noName_c13072;
      noName_c13072 = (* (( (ptr) array_v3156)+2) );
      if ((i_v4236 >= noName_c13072)) {
         goto lab_L100000;
         };
      lab_L100003: ;
SOURCE(589, 36)
      {
         word var_c13104;
         var_c13104 = (word) AGet_P360(array_v3156, i_v4236);
         (void) APut_P300(new_v3228, i_v4236, var_c13104);
         };
      i_v4236 = (i_v4236 + 1);
      if ((i_v4236 < noName_c13072)) {
         goto lab_L100003;
         };
      lab_L100000: ;
      };
SOURCE(356, 269)
   return(new_v3228);
   }

static void AStore_P180(frame_v3288, array_v3316)
   word frame_v3288;
   word array_v3316;
   {
   register ptr gf_c14064 =  (ptr) &globalframe;
   /* AStore: */ 
SOURCE(631, 120)
SOURCE(683, 68)
   {
      register word i_v4280;
      i_v4280 = (* (( (ptr) array_v3316)+2) );
      if ((0 >= i_v4280)) {
         goto lab_L100004;
         };
      i_v4280 = (i_v4280 - 1);
      lab_L100007: ;
SOURCE(725, 26)
      {
         word var_c13136;
         {
            word pd31;
            pd31 = (* (( (ptr) (* (( (ptr) gf_c14064)+59)/* var_c12848 */  ))+37) );
            var_c13136 = (word) ( *( (fPt) ((*  (ptr) pd31 ))))(frame_v3288, pd31);
            };
         (void) APut_P300(array_v3316, i_v4280, var_c13136);
         };
      if ((0 >= i_v4280)) {
         goto lab_L100004;
         };
      i_v4280 = (i_v4280 - 1);
      goto lab_L100007;
      lab_L100004: ;
      };
   }

static void ALoad_P240(frame_v3376, array_v3404)
   word frame_v3376;
   word array_v3404;
   {
   register ptr gf_c14096 =  (ptr) &globalframe;
   /* ALoad: */ 
SOURCE(766, 109)
SOURCE(817, 58)
   {
      register word i_v4324 = 0;
      register word noName_c13168;
      noName_c13168 = (* (( (ptr) array_v3404)+2) );
      if ((i_v4324 >= noName_c13168)) {
         goto lab_L100008;
         };
      lab_L100011: ;
SOURCE(848, 27)
      {
         word var_c13200;
         var_c13200 = (word) AGet_P360(array_v3404, i_v4324);
         {
            word pd32;
            pd32 = (* (( (ptr) (* (( (ptr) gf_c14096)+59)/* var_c12848 */  ))+25) );
            (void) ( *( (fPt) ((*  (ptr) pd32 ))))(frame_v3376, var_c13200, pd32);
            };
         };
      i_v4324 = (i_v4324 + 1);
      if ((i_v4324 < noName_c13168)) {
         goto lab_L100011;
         };
      lab_L100008: ;
      };
   }

static void APut_P300(array_v3464, i_v3492, val_v3520)
   word array_v3464;
   word i_v3492;
   word val_v3520;
   {
   register ptr gf_c14128 =  (ptr) &globalframe;
   /* APut: */ 
SOURCE(890, 143)
SOURCE(944, 56)
   if (( (int)i_v3492 <  (int)0) || ( (int)i_v3492 >=  (int)(* (( (ptr) array_v3464)+2) ))) {
SOURCE(975, 25)
      {
         word pd33;
         pd33 = (* (( (ptr) (* (( (ptr) gf_c14128)+59)/* var_c12848 */  ))+95) );
         (void) ( *( (fPt) ((*  (ptr) pd33 ))))(3, pd33);
         };
      };
SOURCE(1002, 31)
   {
      word var_c13232;
      word var_c13264;
      var_c13232 = ((* (( (ptr) array_v3464)+1) ) + i_v3492);
      var_c13264 = (*  (ptr) array_v3464 );
      {
         word limit34;
         (* ((( (ptr) var_c13264)+1)+(
               limit34 = (*  (ptr) var_c13264 ),
               BCK(var_c13232, limit34)
               )) ) = val_v3520;
         };
      };
   }

static word AGet_P360(array_v3580, i_v3608)
   word array_v3580;
   word i_v3608;
   {
   register ptr gf_c14160 =  (ptr) &globalframe;
   word var_c3652;
   /* AGet: */ 
SOURCE(1039, 148)
SOURCE(1096, 56)
   if (( (int)i_v3608 <  (int)0) || ( (int)i_v3608 >=  (int)(* (( (ptr) array_v3580)+2) ))) {
SOURCE(1127, 25)
      {
         word pd35;
         pd35 = (* (( (ptr) (* (( (ptr) gf_c14160)+59)/* var_c12848 */  ))+95) );
         (void) ( *( (fPt) ((*  (ptr) pd35 ))))(3, pd35);
         };
      };
SOURCE(1154, 33)
   {
      word var_c13296;
      word var_c13328;
      var_c13296 = ((* (( (ptr) array_v3580)+1) ) + i_v3608);
      var_c13328 = (*  (ptr) array_v3580 );
      {
         word limit36;
         return((* ((( (ptr) var_c13328)+1)+(
               limit36 = (*  (ptr) var_c13328 ),
               BCK(var_c13296, limit36)
               )) ));
         };
      };
   }

static word ASub_P420(array_v3712, start_v3740, len_v3768)
   word array_v3712;
   word start_v3740;
   word len_v3768;
   {
   register ptr gf_c14192 =  (ptr) &globalframe;
   word var_c3812;
   /* ASub: */ 
SOURCE(1193, 242)
SOURCE(1261, 94)
   if ((( (int)start_v3740 <  (int)0) || ( (int)start_v3740 >  (int)(* (( (ptr) array_v3712)+2) ))) ||  ( ( (int)len_v3768 <  (int)0) ? 1 : ( (int)len_v3768 >  (int)((* (
      ( (ptr) array_v3712)+2) ) - start_v3740)) ) ) {
SOURCE(1330, 25)
      {
         word pd37;
         pd37 = (* (( (ptr) (* (( (ptr) gf_c14192)+59)/* var_c12848 */  ))+95) );
         (void) ( *( (fPt) ((*  (ptr) pd37 ))))(3, pd37);
         };
      };
SOURCE(1357, 78)
   {
      word var_c13392;
      var_c13392 = XR_NewObject(12, (* (( (ptr) gf_c14192)+9) ));
      (*  (ptr) var_c13392 ) = (*  (ptr) array_v3712 );
      {
         word idx38;
         (* (( (ptr) var_c13392)+1) ) = (
            idx38 = (word) ((* (( (ptr) array_v3712)+1) ) + start_v3740),
            SGNCK(idx38)
            );
         };
      (* (( (ptr) var_c13392)+2) ) = SGNCK(len_v3768);
      return(var_c13392);
      };
   }

static word AFind_P480(array_v3872, val_v3900)
   word array_v3872;
   word val_v3900;
   {
   register ptr gf_c14224 =  (ptr) &globalframe;
   word var_c3944;
   /* AFind: */ 
SOURCE(1441, 168)
SOURCE(1501, 87)
   {
      register word i_v4368 = 0;
      register word noName_c13424;
      noName_c13424 = (* (( (ptr) array_v3872)+2) );
      if (( (int)i_v4368 >=  (int)noName_c13424)) {
         goto lab_L100012;
         };
      lab_L100015: ;
      {
         word x_v4412;
SOURCE(1532, 23)
         x_v4412 = (word) AGet_P360(array_v3872, i_v4368);
SOURCE(1557, 31)
         {
            word pd39;
            pd39 = (* (( (ptr) (* (( (ptr) gf_c14224)+59)/* var_c12848 */  ))+5) );
            if ((0 != (word) ( *( (fPt) ((*  (ptr) pd39 ))))(x_v4412, val_v3900, pd39))) {
SOURCE(1579, 9)
               return(i_v4368);
               };
            };
         };
      i_v4368 = (i_v4368 + 1);
      if (( (int)i_v4368 <  (int)noName_c13424)) {
         goto lab_L100015;
         };
      lab_L100012: ;
      };
SOURCE(1599, 10)
   return( (word) -1);
   }

static void ABind_P540(array_v4004, dict_v4032)
   word array_v4004;
   word dict_v4032;
   {
   register ptr gf_c14256 =  (ptr) &globalframe;
   /* ABind: */ 
SOURCE(1639, 264)
SOURCE(1688, 215)
   {
      register word i_v4456 = 0;
      register word noName_c13456;
      noName_c13456 = (* (( (ptr) array_v4004)+2) );
      if (( (int)i_v4456 >=  (int)noName_c13456)) {
         goto lab_L100016;
         };
      lab_L100019: ;
      {
         word x_v4500;
SOURCE(1719, 23)
         x_v4500 = (word) AGet_P360(array_v4004, i_v4456);
SOURCE(1744, 159)
         {
            word var_c13488;
            word var_c13520;
            var_c13488 = x_v4500;
            if ((var_c13488 == 0)) {
               goto lab_L100020;
               };
            var_c13520 = XR_GetReferentType(var_c13488);
            if (((* (( (ptr) gf_c14256)+7) ) == var_c13520)) {
               {
                  word x_v4544;
                  x_v4544 = var_c13488;
SOURCE(1774, 100)
                  {
                     word known_v4588;
                     word value_v4616 = 0;
SOURCE(1801, 34)
                     {
                        W2 var_c13552;
                        {
                           word pd40;
                           pd40 = (* (( (ptr) (* (( (ptr) gf_c14256)+59)/* var_c12848 */  ))+73) );
                           (void) ( *( (fPt) ((*  (ptr) pd40 ))))((word) &var_c13552, dict_v4032, x_v4544, pd40);
                           };
                        value_v4616 = var_c13552.f1;
                        known_v4588 = var_c13552.f0;
                        };
SOURCE(1837, 35)
                     if ((0 != known_v4588)) {
SOURCE(1851, 21)
                        (void) APut_P300(array_v4004, i_v4456, value_v4616);
                        };
                     };
                  };
               }
            else {
               if (((* (( (ptr) gf_c14256)+9) ) == var_c13520)) {
                  {
                     word x_v4660;
                     x_v4660 = var_c13488;
SOURCE(1889, 14)
                     (void) ABind_P540(x_v4660, dict_v4032);
                     };
                  }
               else {
                  lab_L100020: ;
                  };
               };
            };
         };
      i_v4456 = (i_v4456 + 1);
      if (( (int)i_v4456 <  (int)noName_c13456)) {
         goto lab_L100019;
         };
      lab_L100016: ;
      };
   }

static word ArrayForAll_P600(array_v4092, action_v4120)
   word array_v4092;
   word action_v4120;
   {
   word var_c4164;
   /* ArrayForAll: */ 
SOURCE(1968, 174)
SOURCE(2044, 74)
   {
      register word i_v4704 = 0;
      register word noName_c13584;
      word var_c13616;
      noName_c13584 = (* (( (ptr) array_v4092)+2) );
      if (( (int)i_v4704 >=  (int)noName_c13584)) {
         goto lab_L100021;
         };
      lab_L100024: ;
SOURCE(2075, 43)
      var_c13616 = (word) AGet_P360(array_v4092, i_v4704);
      if ((0 != (word) ( *( (fPt) ((*  (ptr) action_v4120 ))))(var_c13616, action_v4120))) {
SOURCE(2106, 12)
         return(1);
         };
      i_v4704 = (i_v4704 + 1);
      if (( (int)i_v4704 <  (int)noName_c13584)) {
         goto lab_L100024;
         };
      lab_L100021: ;
      };
SOURCE(2129, 13)
   return(0);
   }

static void ApplyArray_P660(frame_v6528, cmd_v6556)
   word frame_v6528;
   word cmd_v6556;
   {
   register ptr gf_c14288 =  (ptr) &globalframe;
   word n_v4748;
   /* ApplyArray: */ 
SOURCE(2149, 81)
SOURCE(2177, 22)
   {
      word pd41;
      pd41 = (* (( (ptr) (* (( (ptr) gf_c14288)+59)/* var_c12848 */  ))+39) );
      n_v4748 = (word) ( *( (fPt) ((*  (ptr) pd41 ))))(frame_v6528, pd41);
      };
SOURCE(2201, 29)
   {
      word var_c13648;
      var_c13648 = (word) NewArray_P60(n_v4748);
      {
         word pd42;
         pd42 = (* (( (ptr) (* (( (ptr) gf_c14288)+59)/* var_c12848 */  ))+34) );
         (void) ( *( (fPt) ((*  (ptr) pd42 ))))(frame_v6528, var_c13648, pd42);
         };
      };
   }

static void ApplyAPut_P720(frame_v6616, cmd_v6644)
   word frame_v6616;
   word cmd_v6644;
   {
   register ptr gf_c14320 =  (ptr) &globalframe;
   word x_v4792;
   word i_v4820;
   word array_v4848;
   /* ApplyAPut: */ 
SOURCE(2236, 121)
SOURCE(2263, 19)
   {
      word pd43;
      pd43 = (* (( (ptr) (* (( (ptr) gf_c14320)+59)/* var_c12848 */  ))+37) );
      x_v4792 = (word) ( *( (fPt) ((*  (ptr) pd43 ))))(frame_v6616, pd43);
      };
SOURCE(2284, 22)
   {
      word pd44;
      pd44 = (* (( (ptr) (* (( (ptr) gf_c14320)+59)/* var_c12848 */  ))+39) );
      i_v4820 = (word) ( *( (fPt) ((*  (ptr) pd44 ))))(frame_v6616, pd44);
      };
SOURCE(2308, 30)
   {
      word pd45;
      pd45 = (* (( (ptr) (* (( (ptr) gf_c14320)+59)/* var_c12848 */  ))+46) );
      array_v4848 = (word) ( *( (fPt) ((*  (ptr) pd45 ))))(frame_v6616, pd45);
      };
SOURCE(2340, 17)
   (void) APut_P300(array_v4848, i_v4820, x_v4792);
   }

static void ApplyAGet_P780(frame_v6704, cmd_v6732)
   word frame_v6704;
   word cmd_v6732;
   {
   register ptr gf_c14352 =  (ptr) &globalframe;
   word i_v4892;
   word array_v4920;
   /* ApplyAGet: */ 
SOURCE(2363, 110)
SOURCE(2390, 22)
   {
      word pd46;
      pd46 = (* (( (ptr) (* (( (ptr) gf_c14352)+59)/* var_c12848 */  ))+39) );
      i_v4892 = (word) ( *( (fPt) ((*  (ptr) pd46 ))))(frame_v6704, pd46);
      };
SOURCE(2414, 30)
   {
      word pd47;
      pd47 = (* (( (ptr) (* (( (ptr) gf_c14352)+59)/* var_c12848 */  ))+46) );
      array_v4920 = (word) ( *( (fPt) ((*  (ptr) pd47 ))))(frame_v6704, pd47);
      };
SOURCE(2446, 27)
   {
      word var_c13680;
      var_c13680 = (word) AGet_P360(array_v4920, i_v4892);
      {
         word pd48;
         pd48 = (* (( (ptr) (* (( (ptr) gf_c14352)+59)/* var_c12848 */  ))+25) );
         (void) ( *( (fPt) ((*  (ptr) pd48 ))))(frame_v6704, var_c13680, pd48);
         };
      };
   }

static void ApplySubArray_P840(frame_v6792, cmd_v6820)
   word frame_v6792;
   word cmd_v6820;
   {
   register ptr gf_c14384 =  (ptr) &globalframe;
   word len_v4964;
   word start_v4992;
   word array_v5020;
   /* ApplySubArray: */ 
SOURCE(2479, 158)
SOURCE(2510, 24)
   {
      word pd49;
      pd49 = (* (( (ptr) (* (( (ptr) gf_c14384)+59)/* var_c12848 */  ))+39) );
      len_v4964 = (word) ( *( (fPt) ((*  (ptr) pd49 ))))(frame_v6792, pd49);
      };
SOURCE(2536, 26)
   {
      word pd50;
      pd50 = (* (( (ptr) (* (( (ptr) gf_c14384)+59)/* var_c12848 */  ))+39) );
      start_v4992 = (word) ( *( (fPt) ((*  (ptr) pd50 ))))(frame_v6792, pd50);
      };
SOURCE(2564, 30)
   {
      word pd51;
      pd51 = (* (( (ptr) (* (( (ptr) gf_c14384)+59)/* var_c12848 */  ))+46) );
      array_v5020 = (word) ( *( (fPt) ((*  (ptr) pd51 ))))(frame_v6792, pd51);
      };
SOURCE(2596, 41)
   {
      word var_c13712;
      var_c13712 = (word) ASub_P420(array_v5020, start_v4992, len_v4964);
      {
         word pd52;
         pd52 = (* (( (ptr) (* (( (ptr) gf_c14384)+59)/* var_c12848 */  ))+34) );
         (void) ( *( (fPt) ((*  (ptr) pd52 ))))(frame_v6792, var_c13712, pd52);
         };
      };
   }

static void ApplyAFind_P900(frame_v6880, cmd_v6908)
   word frame_v6880;
   word cmd_v6908;
   {
   register ptr gf_c14416 =  (ptr) &globalframe;
   word x_v5064;
   word array_v5092;
   word i_v5120;
   word found_v5148;
   /* ApplyAFind: */ 
SOURCE(2643, 182)
SOURCE(2671, 19)
   {
      word pd53;
      pd53 = (* (( (ptr) (* (( (ptr) gf_c14416)+59)/* var_c12848 */  ))+37) );
      x_v5064 = (word) ( *( (fPt) ((*  (ptr) pd53 ))))(frame_v6880, pd53);
      };
SOURCE(2692, 30)
   {
      word pd54;
      pd54 = (* (( (ptr) (* (( (ptr) gf_c14416)+59)/* var_c12848 */  ))+46) );
      array_v5092 = (word) ( *( (fPt) ((*  (ptr) pd54 ))))(frame_v6880, pd54);
      };
SOURCE(2724, 24)
   i_v5120 = (word) AFind_P480(array_v5092, x_v5064);
SOURCE(2750, 18)
   found_v5148 =  (unsigned) ( (int)i_v5120 >=  (int)0);
SOURCE(2770, 31)
   if ((0 != found_v5148)) {
SOURCE(2784, 17)
      {
         word pd55;
         pd55 = (* (( (ptr) (* (( (ptr) gf_c14416)+59)/* var_c12848 */  ))+27) );
         (void) ( *( (fPt) ((*  (ptr) pd55 ))))(frame_v6880, i_v5120, pd55);
         };
      };
SOURCE(2803, 22)
   {
      word pd56;
      pd56 = (* (( (ptr) (* (( (ptr) gf_c14416)+59)/* var_c12848 */  ))+26) );
      (void) ( *( (fPt) ((*  (ptr) pd56 ))))(frame_v6880, found_v5148, pd56);
      };
   }

static void ApplyAStore_P960(frame_v6968, cmd_v6996)
   word frame_v6968;
   word cmd_v6996;
   {
   register ptr gf_c14448 =  (ptr) &globalframe;
   word array_v5192;
   /* ApplyAStore: */ 
SOURCE(2831, 162)
SOURCE(2860, 30)
   {
      word pd57;
      pd57 = (* (( (ptr) (* (( (ptr) gf_c14448)+59)/* var_c12848 */  ))+46) );
      array_v5192 = (word) ( *( (fPt) ((*  (ptr) pd57 ))))(frame_v6968, pd57);
      };
SOURCE(2892, 76)
   {
      register word i_v5236;
      i_v5236 = (* (( (ptr) array_v5192)+2) );
      if (( (int)0 >=  (int)i_v5236)) {
         goto lab_L100025;
         };
      i_v5236 = (i_v5236 - 1);
      lab_L100028: ;
SOURCE(2934, 34)
      {
         word var_c13744;
         {
            word pd58;
            pd58 = (* (( (ptr) (* (( (ptr) gf_c14448)+59)/* var_c12848 */  ))+37) );
            var_c13744 = (word) ( *( (fPt) ((*  (ptr) pd58 ))))(frame_v6968, pd58);
            };
         (void) APut_P300(array_v5192, i_v5236, var_c13744);
         };
      if (( (int)0 >=  (int)i_v5236)) {
         goto lab_L100025;
         };
      i_v5236 = (i_v5236 - 1);
      goto lab_L100028;
      lab_L100025: ;
      };
SOURCE(2970, 23)
   {
      word pd59;
      pd59 = (* (( (ptr) (* (( (ptr) gf_c14448)+59)/* var_c12848 */  ))+34) );
      (void) ( *( (fPt) ((*  (ptr) pd59 ))))(frame_v6968, array_v5192, pd59);
      };
   }

static void ApplyALoad_P1020(frame_v7056, cmd_v7084)
   word frame_v7056;
   word cmd_v7084;
   {
   register ptr gf_c14480 =  (ptr) &globalframe;
   word array_v5280;
   /* ApplyALoad: */ 
SOURCE(2999, 151)
SOURCE(3027, 30)
   {
      word pd60;
      pd60 = (* (( (ptr) (* (( (ptr) gf_c14480)+59)/* var_c12848 */  ))+46) );
      array_v5280 = (word) ( *( (fPt) ((*  (ptr) pd60 ))))(frame_v7056, pd60);
      };
SOURCE(3059, 66)
   {
      register word i_v5324 = 0;
      register word noName_c13776;
      noName_c13776 = (* (( (ptr) array_v5280)+2) );
      if (( (int)i_v5324 >=  (int)noName_c13776)) {
         goto lab_L100029;
         };
      lab_L100032: ;
SOURCE(3090, 35)
      {
         word var_c13808;
         var_c13808 = (word) AGet_P360(array_v5280, i_v5324);
         {
            word pd61;
            pd61 = (* (( (ptr) (* (( (ptr) gf_c14480)+59)/* var_c12848 */  ))+25) );
            (void) ( *( (fPt) ((*  (ptr) pd61 ))))(frame_v7056, var_c13808, pd61);
            };
         };
      i_v5324 = (i_v5324 + 1);
      if (( (int)i_v5324 <  (int)noName_c13776)) {
         goto lab_L100032;
         };
      lab_L100029: ;
      };
SOURCE(3127, 23)
   {
      word pd62;
      pd62 = (* (( (ptr) (* (( (ptr) gf_c14480)+59)/* var_c12848 */  ))+34) );
      (void) ( *( (fPt) ((*  (ptr) pd62 ))))(frame_v7056, array_v5280, pd62);
      };
   }

static void ApplyABind_P1080(frame_v7144, cmd_v7172)
   word frame_v7144;
   word cmd_v7172;
   {
   register ptr gf_c14512 =  (ptr) &globalframe;
   word dict_v5368;
   word array_v5396;
   /* ApplyABind: */ 
SOURCE(3156, 107)
SOURCE(3184, 27)
   {
      word pd63;
      pd63 = (* (( (ptr) (* (( (ptr) gf_c14512)+59)/* var_c12848 */  ))+47) );
      dict_v5368 = (word) ( *( (fPt) ((*  (ptr) pd63 ))))(frame_v7144, pd63);
      };
SOURCE(3213, 30)
   {
      word pd64;
      pd64 = (* (( (ptr) (* (( (ptr) gf_c14512)+59)/* var_c12848 */  ))+46) );
      array_v5396 = (word) ( *( (fPt) ((*  (ptr) pd64 ))))(frame_v7144, pd64);
      };
SOURCE(3245, 18)
   (void) ABind_P540(array_v5396, dict_v5368);
   }

static void ApplyArrayForAll_P1140(formal_c0176, cmd_v7260)
   word formal_c0176;
   word cmd_v7260;
   {
   W8 var_c14544;
   /* declaration of frame_v7232 skipped */ 
   register ptr gf_c14576 =  (ptr) &globalframe;
   /* declaration of var_c13840 skipped */ 
   /* declaration of action_v5440 skipped */ 
   word array_v5468;
   var_c14544.f4/* frame_v7232 */  = formal_c0176;
   /* ApplyArrayForAll: */ 
SOURCE(3269, 255)
   {
      word tmpAddr65;
      tmpAddr65 = (word) (( (ptr) &var_c14544)+5)/* var_c13840 */ ;
      (*  (ptr) tmpAddr65 ) = ( ((word)  (fPt) proc_P1824) );
      (* (( (ptr) tmpAddr65) + 1) ) = 1;
      };
SOURCE(3303, 24)
   {
      word pd66;
      pd66 = (* (( (ptr) (* (( (ptr) gf_c14576)+59)/* var_c12848 */  ))+37) );
      var_c14544.f7/* action_v5440 */  = (word) ( *( (fPt) ((*  (ptr) pd66 ))))(var_c14544.f4/* frame_v7232 */ , pd66);
      };
SOURCE(3329, 30)
   {
      word pd67;
      pd67 = (* (( (ptr) (* (( (ptr) gf_c14576)+59)/* var_c12848 */  ))+46) );
      array_v5468 = (word) ( *( (fPt) ((*  (ptr) pd67 ))))(var_c14544.f4/* frame_v7232 */ , pd67);
      };
SOURCE(3495, 29)
   {
      word var_c13872;
      var_c13872 = (word) ArrayForAll_P600(array_v5468, (word) (( (bPt) &var_c14544)+20)/* var_c13840 */ );
      };
   }

static word proc_P1824(val_v5572, formal_c14672)
   word val_v5572;
   word formal_c14672;
   {
   W6 var_c14608;
   register ptr gf_c14640 =  (ptr) &globalframe;
   /* declaration of quit_v5616 skipped */ 
   formal_c14672 = (formal_c14672 - 20);
   var_c14608.f0 = formal_c14672;
   /* proc: */ 
SOURCE(3361, 116)
SOURCE(3361, 116)
   var_c14608.f4/* quit_v5616 */  = 0;
SOURCE(3414, 16)
   {
      word pd68;
      pd68 = (* (( (ptr) (* (( (ptr) gf_c14640)+59)/* var_c12848 */  ))+25) );
      (void) ( *( (fPt) ((*  (ptr) pd68 ))))((* (( (ptr) formal_c14672)+4) ), val_v5572, pd68);
      };
SOURCE(3432, 45)
SOURCE(3432, 45)
   {
      /* declaration of var_c01 skipped */ 
      var_c14608.f5/* var_c01 */  = (* (( (ptr) (* (( (ptr) gf_c14640)+59)/* var_c12848 */  ))+99) );
      {
         word var_c02;
         {
            word var_c0171;
            var_c0171 = (word) &var_c14608;
            var_c02 = (word) XR_Enable(( ((word)  (fPt) NoName_Q1944) ), ( ((word)  (fPt) NoName_Q2004) ), var_c0171);
            };
         /* removed trivial cond node */ 
         };
      };
SOURCE(3361, 116)
   return(var_c14608.f4/* quit_v5616 */ );
   }

static word NoName_Q1944(formal_c0169)
   word formal_c0169;
   {
SOURCE(3432, 45)
   {
      word pd69;
      pd69 = (* (( (ptr) formal_c0169)+5) );
      (void) ( *( (fPt) ((*  (ptr) pd69 ))))((* (( (ptr) (*  (ptr) formal_c0169 ))+4) ), (* (( (ptr) (*  (ptr) formal_c0169 ))+7)
          ), pd69);
      };
   return(0);
   }

static void NoName_Q2004(formal_c0146, formal_c200000, formal_c200001, formal_c200002, formal_c200003)
   word formal_c0146;
   word formal_c200000;
   word formal_c200001;
   word formal_c200002;
   word formal_c200003;
   {
   register ptr gf_c0170 =  (ptr) &globalframe;
   if ((formal_c200001 == (* (( (ptr) (* (( (ptr) gf_c0170)+59)/* var_c12848 */  ))+93) ))) {
SOURCE(3466, 11)
      (* (( (ptr) formal_c200000)+4) ) = 1;
SOURCE(3479, 9)
      (*  (ptr) formal_c0146 ) = 2;
      (* (( (ptr) formal_c0146)+1) ) = 2;
      return;
      };
   (*  (ptr) formal_c0146 ) = 0;
   (* (( (ptr) formal_c0146)+1) ) = 0;
   return;
   }

/* file: TJaMArrayImpl, module: TJaMArrayImpl, compiled at: October 19, 1993 1:03:48 pm PDT */ 
extern void XR_install_TJaMArrayImpl() {
   NoName_Q1884();
   }
extern void XR_run_TJaMArrayImpl() { XR_Start(&globalframe); }