/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation.  All rights reserved. */
/* time: February 27, 1992 6:01:48 pm PST */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: EditPropertiesImpl, module: EditPropertiesImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [2074787366,3982286363] EditPropertiesImpl";
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 {W16 f; W16 r;} W32;
typedef struct {word f0, f1, f2;} W3;
typedef struct {W32 f; W3 r;} W35;
typedef struct {word f0, f1;} W2;
typedef struct {word f0, f1, f2, f3, f4;} W5;
typedef W5 *W5Pt;
typedef struct {unsigned u1:5, f:1, u2:2;} * P1x5b;
typedef struct {unsigned u1:2, f:1, u2:5;} * P1x2b;
typedef struct {unsigned u1:1, f:1, u2:6;} * P1x1b;
typedef struct {word f0, f1, f2, f3, f4, f5;} W6;
typedef struct {unsigned u1:6, f:1, u2:1;} * P1x6b;
typedef struct {W32 f; word r;} W33;
typedef struct {unsigned f:24, u2:8;} * P24x0w;
typedef W2 *W2Pt;
typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7;
typedef struct {W8 f; W2 r;} W10;
#define SOURCE(p, l) /* source p, l */
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR←RaiseBoundsFault()) : (idx) )
static void NoName←Q2424();
static void EditPropertiesImpl←P0();
static void TranslateToOpenProperties←P60();
static void PutRope←P360();
static void PutOctal←P420();
static void PutPropName←P480();
static void PutKey←P540();
static void PutProperties←P600();
static word action←P828();
static void PutProperty←P660();
static void TranslateNodeContents←P720();
static void TranslateFromOpenProperties←P120();
static void Must←P1128();
static word Match←P1188();
static word MatchBreak←P1248();
static void MustNest←P1308();
static word GetOctal3←P1368();
static word RopeToEnd←P1428();
static void ParseProp←P1488();
static word action←P1836();
static word MakeNodeSelection←P180();
static void OpenPropertiesOp←P240();
static void OpenProperties←P2184();
static void ClosePropertiesOp←P300();
static word NoName←Q2484();
static void CloseProperties←P2244();
static word NoName←Q2544();
static void NoName←Q2604();
static void NoName←Q2664();
static struct {unsigned f; char r[4];} string1 = {131076, "\216\251\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[44];} string4 = {2752556, "\260\006\005\146\151\162\163\164\257\300\240\236\274\171\300\344\000\142\023\100\200\005\004\162\145\163\164\214\257\300\240\236\274\171\300\344\000\142\023\100\200\261\000"};
static struct {unsigned f; char r[4];} string5 = {131074, "\004\007\000"};
static struct {unsigned f; char r[16];} string6 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[16];} string7 = {983056, "BEGIN ROOT NODE"};
static struct {unsigned f; char r[12];} string8 = {655372, "BEGIN NODE\000"};
static struct {unsigned f; char r[12];} string9 = {524300, "CONTENTS\000\000\000"};
static struct {unsigned f; char r[12];} string10 = {655372, "PROPERTIES\000"};
static struct {unsigned f; char r[8];} string11 = {458760, "Comment"};
static struct {unsigned f; char r[8];} string12 = {393224, "Format\000"};
static struct {unsigned f; char r[12];} string13 = {524300, "END NODE\000\000\000"};
static struct {unsigned f; char r[4];} string14 = {131076, ": \000"};
static struct {unsigned f; char r[12];} string15 = {655372, "ClientOnly\000"};
static struct {unsigned f; char r[12];} string16 = {524300, "(opaque)\000\000\000"};
static struct {unsigned f; char r[12];} string17 = {720908, "OpaqueValue"};
static struct {unsigned f; char r[8];} string18 = {262152, "Text\000\000\000"};
static struct {unsigned f; char r[8];} string19 = {262152, "Char\000\000\000"};
static struct {unsigned f; char r[4];} string20 = {65540, "(\000\000"};
static struct {unsigned f; char r[4];} string21 = {65540, "|\000\000"};
static struct {unsigned f; char r[4];} string22 = {65540, ")\000\000"};
static struct {unsigned f; char r[8];} string23 = {327688, "LOOKS\000\000"};
static struct {unsigned f; char r[8];} string24 = {393224, "Text: \000"};
static struct {unsigned f; char r[8];} string25 = {458760, "Char: ("};
static struct {unsigned f; char r[8];} string26 = {393224, "LOOKS(\000"};
static struct {unsigned f; char r[8];} string27 = {262152, "code\000\000\000"};
static struct {unsigned f; char r[16];} string28 = {983056, "CloseProperties"};
static struct {unsigned f; char r[4];} string29 = {65540, " \000\000"};
static struct {unsigned f; char r[16];} string30 = {917520, "OpenProperties\000"};
static struct {unsigned f; char r[16];} string31 = {851984, "\257\300\173\252\276\046\300\355\134\336\033\100\164\000\000"};
static struct {unsigned f; char r[12];} string32 = {524296, "\006\001\054\010\000\004\030\001\000\000\000"};
static struct {unsigned f; char r[16];} string33 = {851984, "\257\300\055\153\222\376\300\327\164\352\142\100\150\000\000"};
static struct {unsigned f; char r[16];} string34 = {851984, "\257\300\314\212\213\004\300\112\342\014\072\100\164\000\000"};
static struct {unsigned f; char r[16];} string35 = {851984, "\257\300\234\060\361\073\300\103\025\207\123\100\150\000\000"};
static struct {unsigned f; char r[16];} string36 = {851984, "\257\300\240\236\274\171\300\344\000\142\023\100\150\000\000"};
static struct {unsigned f; char r[16];} string37 = {851984, "\257\300\332\223\177\020\300\304\076\102\260\100\164\000\000"};
static struct {unsigned f; char r[16];} string38 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[16];} string39 = {851984, "\257\300\275\320\070\317\300\004\110\363\366\100\150\000\000"};
static struct {unsigned f; char r[16];} string40 = {851984, "\257\300\013\141\323\354\300\341\005\243\127\100\150\000\000"};
static struct {unsigned f; char r[16];} string41 = {851984, "\257\300\343\112\327\166\300\041\341\335\211\100\150\000\000"};
static struct {unsigned f; char r[16];} string42 = {851984, "\257\300\040\353\020\254\300\226\145\363\233\100\150\000\000"};
static struct {unsigned f; char r[16];} string43 = {851984, "\257\300\042\224\360\026\300\243\254\175\360\100\150\000\000"};
static struct {unsigned f; char r[16];} string44 = {851984, "\257\300\056\236\052\251\300\206\175\213\250\100\150\000\000"};
static struct {unsigned f; char r[16];} string45 = {851984, "\257\300\160\267\337\115\300\374\200\221\327\100\150\000\000"};
static struct {unsigned f; char r[16];} string46 = {851984, "\257\300\136\253\306\024\300\100\114\357\174\100\150\000\000"};
static struct {unsigned f; char r[16];} string47 = {851984, "\257\300\354\332\367\333\300\361\203\205\173\100\150\000\000"};
static struct {
   word f0[37]; word f37; word f38; word f39; 
   word f40; word f41; word f42; word f43; 
   word f44; word f45; word f46; word f47; 
   word f48[16]; 
   } globalframe = {
   {0}, (word) ClosePropertiesOp←P300, 0, (word) OpenPropertiesOp←P240, 
   0, (word) MakeNodeSelection←P180, 0, (word) TranslateFromOpenProperties←P120, 
   0, (word) TranslateToOpenProperties←P60, 0, (word) EditPropertiesImpl←P0, 
   {0}
   };

static void NoName←Q2424()
   {
   register ptr gf←c0198 =  (ptr) &globalframe;
   word var←c24636;
   (* (( (ptr) gf←c0198)+4) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2);
   (* (( (ptr) gf←c0198)+6) ) = (word) XR←GetTypeIndexS((word) (&string3));
   (* (( (ptr) gf←c0198)+8) ) = (word) XR←GetTypeIndex((word) &string4, 0, (word) &string5);
   (* (( (ptr) gf←c0198)+10) ) = (word) XR←GetTypeIndex((word) &string6, 0, (word) &string2);
   (*  (ptr) (( (bPt) gf←c0198)+44) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+10) ), (word) &string7);
   (*  (ptr) (( (bPt) gf←c0198)+48) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+10) ), (word) &string8);
   (*  (ptr) (( (bPt) gf←c0198)+52) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+10) ), (word) &string9);
   (*  (ptr) (( (bPt) gf←c0198)+56) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+10) ), (word) &string10);
   (*  (ptr) (( (bPt) gf←c0198)+60) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+4) ), (word) &string11);
   (*  (ptr) (( (bPt) gf←c0198)+64) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+4) ), (word) &string12);
   (*  (ptr) (( (bPt) gf←c0198)+68) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+10) ), (word) &string13);
   (*  (ptr) (( (bPt) gf←c0198)+72) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+10) ), (word) &string14);
   (*  (ptr) (( (bPt) gf←c0198)+76) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+4) ), (word) &string15);
   (*  (ptr) (( (bPt) gf←c0198)+80) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+10) ), (word) &string16);
   (*  (ptr) (( (bPt) gf←c0198)+84) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+4) ), (word) &string17);
   (*  (ptr) (( (bPt) gf←c0198)+88) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+4) ), (word) &string18);
   (*  (ptr) (( (bPt) gf←c0198)+92) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+4) ), (word) &string19);
   (*  (ptr) (( (bPt) gf←c0198)+96) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+10) ), (word) &string20);
   (*  (ptr) (( (bPt) gf←c0198)+100) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+10) ), (word) &string21);
   (*  (ptr) (( (bPt) gf←c0198)+104) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+10) ), (word) &string22);
   (*  (ptr) (( (bPt) gf←c0198)+108) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+10) ), (word) &string23);
   (*  (ptr) (( (bPt) gf←c0198)+112) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+10) ), (word) &string24);
   (*  (ptr) (( (bPt) gf←c0198)+116) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+10) ), (word) &string25);
   (*  (ptr) (( (bPt) gf←c0198)+120) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+10) ), (word) &string26);
   (*  (ptr) (( (bPt) gf←c0198)+124) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+4) ), (word) &string27);
   (*  (ptr) (( (bPt) gf←c0198)+128) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+4) ), (word) &string28);
   (*  (ptr) (( (bPt) gf←c0198)+132) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+10) ), (word) &string29);
   (*  (ptr) (( (bPt) gf←c0198)+136) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0198)+4) ), (word) &string30);
   (void) XR←DeclareGlobalFrame((word) "EditPropertiesImpl", &globalframe, (word) XR←GetTypeIndex((word) &string31, 0, (word) &string32)
      , (word) (( (bPt) gf←c0198)+188)/* var←c22172 */ );
   var←c24636 = (word) XR←ImportInterface((word) "Atom", (word) XR←GetTypeIndexS((word) (&string33)), 16);
   (* (( (ptr) gf←c0198)+53)/* var←c22844 */  ) = var←c24636;
   (void) XR←ImportProcS(var←c24636, 67372033);
   (void) XR←ImportProcS(var←c24636, 67372289);
   var←c24636 = (word) XR←ImportInterface((word) "CharOps", (word) XR←GetTypeIndexS((word) (&string34)), 14);
   (* (( (ptr) gf←c0198)+57)/* var←c24156 */  ) = var←c24636;
   var←c24636 = (word) XR←ImportInterface((word) "NodeProps", (word) XR←GetTypeIndexS((word) (&string35)), 28);
   (* (( (ptr) gf←c0198)+51)/* var←c22652 */  ) = var←c24636;
   (void) XR←ImportProcS(var←c24636, 67374337);
   (void) XR←ImportProcS(var←c24636, 67374849);
   (void) XR←ImportProcS(var←c24636, 67639554);
   (void) XR←ImportProcS(var←c24636, 67374593);
   (void) XR←ImportProcS(var←c24636, 67375105);
   var←c24636 = (word) XR←ImportInterface((word) "Prop", (word) XR←GetTypeIndexS((word) (&string36)), 4);
   (* (( (ptr) gf←c0198)+54)/* var←c22908 */  ) = var←c24636;
   (void) XR←ImportProcS(var←c24636, 67633410);
   (void) XR←ImportProcS(var←c24636, 67895299);
   (void) XR←ImportProcS(var←c24636, 67633922);
   var←c24636 = (word) XR←ImportInterface((word) "RefText", (word) XR←GetTypeIndexS((word) (&string37)), 26);
   (* (( (ptr) gf←c0198)+56)/* var←c24124 */  ) = var←c24636;
   (void) XR←ImportProcS(var←c24636, 262913);
   (void) XR←ImportProcS(var←c24636, 67371521);
   var←c24636 = (word) XR←ImportInterface((word) "Rope", (word) XR←GetTypeIndexS((word) (&string38)), 43);
   (* (( (ptr) gf←c0198)+52)/* var←c22748 */  ) = var←c24636;
   (void) XR←ImportProcS(var←c24636, 68686086);
   (void) XR←ImportProcS(var←c24636, 68163076);
   (void) XR←ImportProcS(var←c24636, 67379457);
   (void) XR←ImportProcS(var←c24636, 67634434);
   (void) XR←ImportProcS(var←c24636, 67373825);
   var←c24636 = (word) XR←ImportInterface((word) "RuntimeError", (word) XR←GetTypeIndexS((word) (&string39)), 27);
   (* (( (ptr) gf←c0198)+62)/* var←c24508 */  ) = var←c24636;
   var←c24636 = (word) XR←ImportInterface((word) "TEditInput", (word) XR←GetTypeIndexS((word) (&string40)), 44);
   (* (( (ptr) gf←c0198)+49)/* var←c22204 */  ) = var←c24636;
   (void) XR←ImportProcS(var←c24636, 789507);
   var←c24636 = (word) XR←ImportInterface((word) "TEditSelection", (word) XR←GetTypeIndexS((word) (&string41)), 68);
   (* (( (ptr) gf←c0198)+58)/* var←c24284 */  ) = var←c24636;
   (void) XR←ImportProcS(var←c24636, 1316101);
   (void) XR←ImportProcS(var←c24636, 263937);
   (void) XR←ImportProcS(var←c24636, 526338);
   (void) XR←ImportProcS(var←c24636, 67110400);
   var←c24636 = (word) XR←ImportInterface((word) "TEditSelectionOps", (word) XR←GetTypeIndexS((word) (&string42)), 2);
   (* (( (ptr) gf←c0198)+63)/* var←c24572 */  ) = var←c24636;
   (void) XR←ImportProcS(var←c24636, 786435);
   var←c24636 = (word) XR←ImportInterface((word) "TextNode", (word) XR←GetTypeIndexS((word) (&string43)), 34);
   (* (( (ptr) gf←c0198)+55)/* var←c23324 */  ) = var←c24636;
   (void) XR←ImportProcS(var←c24636, 67379201);
   (void) XR←ImportProcS(var←c24636, 67372545);
   (void) XR←ImportProcS(var←c24636, 67372033);
   var←c24636 = (word) XR←ImportInterface((word) "TiogaAccess", (word) XR←GetTypeIndexS((word) (&string44)), 32);
   (* (( (ptr) gf←c0198)+50)/* var←c22588 */  ) = var←c24636;
   (void) XR←ImportProcS(var←c24636, 67377665);
   (void) XR←ImportProcS(var←c24636, 67111936);
   (void) XR←ImportProcS(var←c24636, 67633410);
   (void) XR←ImportProcS(var←c24636, 67376385);
   (void) XR←ImportProcS(var←c24636, 335808769);
   (void) XR←ImportProcS(var←c24636, 134486785);
   (void) XR←ImportProcS(var←c24636, 67633154);
   (void) XR←ImportProcS(var←c24636, 67901187);
   (void) XR←ImportProcS(var←c24636, 527874);
   (void) XR←ImportProcS(var←c24636, 1576194);
   (void) XR←ImportProcS(var←c24636, 335808513);
   (void) XR←ImportProcS(var←c24636, 67372801);
   var←c24636 = (word) XR←ImportInterface((word) "TiogaAccessViewers", (word) XR←GetTypeIndexS((word) (&string45)), 4);
   (* (( (ptr) gf←c0198)+60)/* var←c24412 */  ) = var←c24636;
   (void) XR←ImportProcS(var←c24636, 262657);
   (void) XR←ImportProcS(var←c24636, 525058);
   (void) XR←ImportProcS(var←c24636, 67108864);
   (void) XR←ImportProcS(var←c24636, 67371265);
   var←c24636 = (word) XR←ImportInterface((word) "TiogaOps", (word) XR←GetTypeIndexS((word) (&string46)), 128);
   (* (( (ptr) gf←c0198)+59)/* var←c24380 */  ) = var←c24636;
   (void) XR←ImportProcS(var←c24636, 553474);
   var←c24636 = (word) XR←ImportInterface((word) "ViewerOps", (word) XR←GetTypeIndexS((word) (&string47)), 43);
   (* (( (ptr) gf←c0198)+61)/* var←c24444 */  ) = var←c24636;
   (void) XR←ImportProcS(var←c24636, 534530);
   (void) XR←ImportProcS(var←c24636, 269569);
   }

static void EditPropertiesImpl←P0(formal←c029, formal←c028)
   word formal←c029;
   word formal←c028;
   {
   register ptr gf←c24668 =  (ptr) &globalframe;
   /* EditPropertiesImpl: */ 
SOURCE(221, 11356)
SOURCE(11413, 80)
   {
      word pd48;
      pd48 = (* (( (ptr) (* (( (ptr) gf←c24668)+49)/* var←c22204 */  ))+16) );
      (void) ( *( (fPt) ((*  (ptr) pd48 ))))((* (( (ptr) gf←c24668)+34) ), (word) (( (bPt) gf←c24668)+156)/* var←c22044 */ , 1, pd48)
      ;
      };
SOURCE(11495, 82)
   {
      word pd49;
      pd49 = (* (( (ptr) (* (( (ptr) gf←c24668)+49)/* var←c22204 */  ))+16) );
      (void) ( *( (fPt) ((*  (ptr) pd49 ))))((* (( (ptr) gf←c24668)+32) ), (word) (( (bPt) gf←c24668)+148)/* var←c22012 */ , 1, pd49)
      ;
      };
   }

static void TranslateToOpenProperties←P60(formal←c0257, formal←c0258, rootOnly←v3668)
   word formal←c0257;
   word formal←c0258;
   word rootOnly←v3668;
   {
   W35 var←c24700;
   /* declaration of reader←v3612 skipped */ 
   /* declaration of writer←v3640 skipped */ 
   register ptr gf←c24732 =  (ptr) &globalframe;
   /* declaration of var←c22236 skipped */ 
   /* declaration of var←c22268 skipped */ 
   /* declaration of var←c22300 skipped */ 
   /* declaration of var←c22332 skipped */ 
   /* declaration of var←c22364 skipped */ 
   /* declaration of var←c22396 skipped */ 
   /* declaration of var←c22428 skipped */ 
   /* declaration of t←v3904 skipped */ 
   /* declaration of node←v3932 skipped */ 
   W5 nest←v3960;
   /* declaration of outc←v3988 skipped */ 
   (* (( (ptr) &var←c24700)+4)/* reader←v3612 */  ) = formal←c0257;
   (* (( (ptr) &var←c24700)+5)/* writer←v3640 */  ) = formal←c0258;
   /* TranslateToOpenProperties: */ 
SOURCE(506, 3812)
   {
      word tmpAddr50;
      tmpAddr50 = (word) (( (ptr) &var←c24700)+6)/* var←c22236 */ ;
      (*  (ptr) tmpAddr50 ) = ( ((word)  (fPt) TranslateNodeContents←P720) );
      (* (( (ptr) tmpAddr50) + 1) ) = 1;
      };
   {
      word tmpAddr51;
      tmpAddr51 = (word) (( (ptr) &var←c24700)+8)/* var←c22268 */ ;
      (*  (ptr) tmpAddr51 ) = ( ((word)  (fPt) PutProperty←P660) );
      (* (( (ptr) tmpAddr51) + 1) ) = 1;
      };
   {
      word tmpAddr52;
      tmpAddr52 = (word) (( (ptr) &var←c24700)+10)/* var←c22300 */ ;
      (*  (ptr) tmpAddr52 ) = ( ((word)  (fPt) PutProperties←P600) );
      (* (( (ptr) tmpAddr52) + 1) ) = 1;
      };
   {
      word tmpAddr53;
      tmpAddr53 = (word) (( (ptr) &var←c24700)+12)/* var←c22332 */ ;
      (*  (ptr) tmpAddr53 ) = ( ((word)  (fPt) PutKey←P540) );
      (* (( (ptr) tmpAddr53) + 1) ) = 1;
      };
   {
      word tmpAddr54;
      tmpAddr54 = (word) (( (ptr) &var←c24700)+14)/* var←c22364 */ ;
      (*  (ptr) tmpAddr54 ) = ( ((word)  (fPt) PutPropName←P480) );
      (* (( (ptr) tmpAddr54) + 1) ) = 1;
      };
   {
      word tmpAddr55;
      tmpAddr55 = (word) (( (ptr) &var←c24700)+16)/* var←c22396 */ ;
      (*  (ptr) tmpAddr55 ) = ( ((word)  (fPt) PutOctal←P420) );
      (* (( (ptr) tmpAddr55) + 1) ) = 1;
      };
   {
      word tmpAddr56;
      tmpAddr56 = (word) (( (ptr) &var←c24700)+18)/* var←c22428 */ ;
      (*  (ptr) tmpAddr56 ) = ( ((word)  (fPt) PutRope←P360) );
      (* (( (ptr) tmpAddr56) + 1) ) = 1;
      };
SOURCE(623, 145)
   (* (( (ptr) &var←c24700)+20) ) = 0;
   (* (( (ptr) &var←c24700)+21) ) = 0;
   (* (( (ptr) &var←c24700)+22) ) = 0;
   (* (( (ptr) &var←c24700)+23) ) = 16000;
   (* (( (ptr) &var←c24700)+24) ) = 0;
SOURCE(770, 150)
   (* (( (ptr) &var←c24700)+25) ) = 13;
   (* (( (ptr) &var←c24700)+26) ) = 0;
   (* (( (ptr) &var←c24700)+27) ) = (* (( (ptr) gf←c24732)+31) );
   (* (( (ptr) &var←c24700)+28) ) = 1073757824;
   (* (( (ptr) &var←c24700)+29) ) = 0;
SOURCE(922, 150)
   nest←v3960.f0 = 13;
   nest←v3960.f1 = 0;
   nest←v3960.f2 = (* (( (ptr) gf←c24732)+31) );
   nest←v3960.f3 = 1073757825;
   nest←v3960.f4 = 0;
SOURCE(1074, 148)
   (* (( (ptr) &var←c24700)+30) ) = 0;
   (* (( (ptr) &var←c24700)+31) ) = 0;
   (* (( (ptr) &var←c24700)+32) ) = 0;
   (* (( (ptr) &var←c24700)+33) ) = 16000;
   (* (( (ptr) &var←c24700)+34) ) = 0;
SOURCE(3582, 629)
   lab←L100002: ;
   {
      word pd57;
      pd57 = (* (( (ptr) (* (( (ptr) gf←c24732)+50)/* var←c22588 */  ))+11) );
      if ((0 == (word) ( *( (fPt) ((*  (ptr) pd57 ))))((* ((( (ptr) &var←c24700)+4)/* reader←v3612 */ ) ), pd57))) {
         }
      else {
         goto lab←L100000;
         };
      };
SOURCE(3617, 27)
   {
      word pd58;
      pd58 = (* (( (ptr) (* (( (ptr) gf←c24732)+50)/* var←c22588 */  ))+12) );
      (void) ( *( (fPt) ((*  (ptr) pd58 ))))((word) (( (bPt) &var←c24700)+80)/* t←v3904 */ , (* (( (ptr) &var←c24700)+4)/* reader←v3612 */  ), pd58)
      ;
      };
SOURCE(3646, 60)
   (void) PutKey←P540( ( (0 != rootOnly←v3668) ? (* (( (ptr) gf←c24732)+11) ) : (* (( (ptr) gf←c24732)+12) ) ) , (word) (( (bPt) &var←c24700)+48)
      /* var←c22332 */ );
SOURCE(3708, 29)
   {
      word pd59;
      pd59 = (* (( (ptr) (* (( (ptr) gf←c24732)+50)/* var←c22588 */  ))+17) );
      (void) ( *( (fPt) ((*  (ptr) pd59 ))))((* (( (ptr) &var←c24700)+5)/* writer←v3640 */  ), nest←v3960, pd59);
      };
SOURCE(3739, 131)
   if ( ! ((* (( (bPt) &var←c24700)+92) ) & 0100)) {
SOURCE(3766, 18)
      (void) PutKey←P540((* (( (ptr) gf←c24732)+13) ), (word) (( (bPt) &var←c24700)+48)/* var←c22332 */ );
SOURCE(3786, 29)
      {
         word pd60;
         pd60 = (* (( (ptr) (* (( (ptr) gf←c24732)+50)/* var←c22588 */  ))+17) );
         (void) ( *( (fPt) ((*  (ptr) pd60 ))))((* (( (ptr) &var←c24700)+5)/* writer←v3640 */  ), nest←v3960, pd60);
         };
SOURCE(3817, 23)
      (void) TranslateNodeContents←P720((word) ((( (bPt) &var←c24700)+24)/* var←c22236 */ ));
SOURCE(3842, 28)
      {
         word pd61;
         pd61 = (* (( (ptr) (* (( (ptr) gf←c24732)+50)/* var←c22588 */  ))+18) );
         (void) ( *( (fPt) ((*  (ptr) pd61 ))))((* (( (ptr) &var←c24700)+5)/* writer←v3640 */  ),  (word) -1, pd61);
         };
      };
SOURCE(3875, 20)
   (void) PutKey←P540((* (( (ptr) gf←c24732)+14) ), (word) (( (bPt) &var←c24700)+48)/* var←c22332 */ );
SOURCE(3897, 29)
   {
      word pd62;
      pd62 = (* (( (ptr) (* (( (ptr) gf←c24732)+50)/* var←c22588 */  ))+17) );
      (void) ( *( (fPt) ((*  (ptr) pd62 ))))((* (( (ptr) &var←c24700)+5)/* writer←v3640 */  ), nest←v3960, pd62);
      };
SOURCE(3928, 57)
   {
      word var←c22620;
      {
         word pd63;
         pd63 = (* (( (ptr) (* (( (ptr) gf←c24732)+51)/* var←c22652 */  ))+20) );
         var←c22620 = (word) ( *( (fPt) ((*  (ptr) pd63 ))))(((int)(* (( (ptr) &var←c24700)+23) )<0), pd63);
         };
      (void) PutProperty←P660((* (( (ptr) gf←c24732)+15) ), var←c22620, (word) (( (bPt) &var←c24700)+32)/* var←c22268 */ );
      };
SOURCE(3987, 55)
   {
      word var←c22684;
      {
         word pd64;
         pd64 = (* (( (ptr) (* (( (ptr) gf←c24732)+51)/* var←c22652 */  ))+18) );
         var←c22684 = (word) ( *( (fPt) ((*  (ptr) pd64 ))))((* ((( (ptr) &var←c24700)+22)) ), pd64);
         };
      (void) PutProperty←P660((* (( (ptr) gf←c24732)+16) ), var←c22684, (word) (( (bPt) &var←c24700)+32)/* var←c22268 */ );
      };
SOURCE(4044, 25)
   (void) PutProperties←P600((* (( (ptr) &var←c24700)+24) ), (word) (( (bPt) &var←c24700)+40)/* var←c22300 */ );
SOURCE(4071, 28)
   {
      word pd65;
      pd65 = (* (( (ptr) (* (( (ptr) gf←c24732)+50)/* var←c22588 */  ))+18) );
      (void) ( *( (fPt) ((*  (ptr) pd65 ))))((* (( (ptr) &var←c24700)+5)/* writer←v3640 */  ),  (word) -1, pd65);
      };
SOURCE(4101, 18)
   (void) PutKey←P540((* (( (ptr) gf←c24732)+17) ), (word) (( (bPt) &var←c24700)+48)/* var←c22332 */ );
SOURCE(4121, 29)
   {
      word pd66;
      pd66 = (* (( (ptr) (* (( (ptr) gf←c24732)+50)/* var←c22588 */  ))+17) );
      (void) ( *( (fPt) ((*  (ptr) pd66 ))))((* (( (ptr) &var←c24700)+5)/* writer←v3640 */  ), (*  (W5Pt) (( (ptr) &var←c24700)+25)
         /* node←v3932 */  ), pd66);
      };
SOURCE(4152, 40)
   {
      word pd67;
      pd67 = (* (( (ptr) (* (( (ptr) gf←c24732)+50)/* var←c22588 */  ))+18) );
      (void) ( *( (fPt) ((*  (ptr) pd67 ))))((* (( (ptr) &var←c24700)+5)/* writer←v3640 */  ), ((( (((unsigned)(* (( (ptr) &var←c24700)+23)
          ) << 2) >> 2) ) - 16000) - 1), pd67);
      };
SOURCE(4194, 17)
   if ((0 != rootOnly←v3668)) {
SOURCE(4211, 4)
      goto lab←L100001;
      };
   goto lab←L100002;
   lab←L100000: ;
   lab←L100001: ;
SOURCE(4226, 92)
   lab←L100005: ;
   {
      word pd68;
      pd68 = (* (( (ptr) (* (( (ptr) gf←c24732)+50)/* var←c22588 */  ))+11) );
      if ((0 == (word) ( *( (fPt) ((*  (ptr) pd68 ))))((* ((( (ptr) &var←c24700)+4)/* reader←v3612 */ ) ), pd68))) {
         }
      else {
         goto lab←L100003;
         };
      };
SOURCE(4261, 57)
   {
      word var←c22716;
      word pd69;
      pd69 = (* (( (ptr) (* (( (ptr) gf←c24732)+50)/* var←c22588 */  ))+27) );
      var←c22716 = (word) ( *( (fPt) ((*  (ptr) pd69 ))))((* (( (ptr) &var←c24700)+5)/* writer←v3640 */  ), (* (( (ptr) &var←c24700)+4)
         /* reader←v3612 */  ), 2147483647, pd69);
      };
   goto lab←L100005;
   lab←L100003: ;
   }

static void PutRope←P360(rope←v4260, formal←c24796)
   word rope←v4260;
   word formal←c24796;
   {
   register ptr gf←c24764 =  (ptr) &globalframe;
   formal←c24796 = (formal←c24796 - 72);
   /* PutRope: */ 
SOURCE(1224, 131)
SOURCE(1255, 100)
   {
      register word i←v4668 = 0;
      register word noName←c22780;
      {
         word pd70;
         pd70 = (* (( (ptr) (* (( (ptr) gf←c24764)+52)/* var←c22748 */  ))+15) );
         noName←c22780 = (word) ( *( (fPt) ((*  (ptr) pd70 ))))(rope←v4260, pd70);
         };
      if (( (int)i←v4668 >=  (int)noName←c22780)) {
         goto lab←L100006;
         };
      lab←L100009: ;
SOURCE(1293, 31)
      {
         word pd71;
         pd71 = (* (( (ptr) (* (( (ptr) gf←c24764)+52)/* var←c22748 */  ))+9) );
         (* (( (bPt) formal←c24796)+123) ) = (word) ( *( (fPt) ((*  (ptr) pd71 ))))(rope←v4260, i←v4668, pd71);
         };
SOURCE(1326, 29)
      {
         word pd72;
         pd72 = (* (( (ptr) (* (( (ptr) gf←c24764)+50)/* var←c22588 */  ))+17) );
         (void) ( *( (fPt) ((*  (ptr) pd72 ))))((* (( (ptr) formal←c24796)+5) ), (*  (W5Pt) (( (ptr) formal←c24796)+30) ), pd72);
         };
      i←v4668 = (i←v4668 + 1);
      if (( (int)i←v4668 <  (int)noName←c22780)) {
         goto lab←L100009;
         };
      lab←L100006: ;
      };
   }

static void PutOctal←P420(b←v4320, formal←c24860)
   word b←v4320;
   word formal←c24860;
   {
   register ptr gf←c24828 =  (ptr) &globalframe;
   formal←c24860 = (formal←c24860 - 64);
   /* PutOctal: */ 
SOURCE(1369, 197)
SOURCE(1402, 19)
   (* (( (bPt) formal←c24860)+123) ) = ((b←v4320 >> 6) + 48);
SOURCE(1423, 29)
   {
      word pd73;
      pd73 = (* (( (ptr) (* (( (ptr) gf←c24828)+50)/* var←c22588 */  ))+17) );
      (void) ( *( (fPt) ((*  (ptr) pd73 ))))((* (( (ptr) formal←c24860)+5) ), (*  (W5Pt) (( (ptr) formal←c24860)+30) ), pd73);
      };
SOURCE(1454, 26)
   (* (( (bPt) formal←c24860)+123) ) = (((b←v4320 >> 3) & 7) + 48);
SOURCE(1482, 29)
   {
      word pd74;
      pd74 = (* (( (ptr) (* (( (ptr) gf←c24828)+50)/* var←c22588 */  ))+17) );
      (void) ( *( (fPt) ((*  (ptr) pd74 ))))((* (( (ptr) formal←c24860)+5) ), (*  (W5Pt) (( (ptr) formal←c24860)+30) ), pd74);
      };
SOURCE(1513, 22)
   (* (( (bPt) formal←c24860)+123) ) = ((b←v4320 & 7) + 48);
SOURCE(1537, 29)
   {
      word pd75;
      pd75 = (* (( (ptr) (* (( (ptr) gf←c24828)+50)/* var←c22588 */  ))+17) );
      (void) ( *( (fPt) ((*  (ptr) pd75 ))))((* (( (ptr) formal←c24860)+5) ), (*  (W5Pt) (( (ptr) formal←c24860)+30) ), pd75);
      };
   }

static void PutPropName←P480(atom←v4400, formal←c24924)
   word atom←v4400;
   word formal←c24924;
   {
   register ptr gf←c24892 =  (ptr) &globalframe;
   word save←v4712;
   formal←c24924 = (formal←c24924 - 56);
   /* PutPropName: */ 
SOURCE(1571, 152)
SOURCE(1606, 30)
   save←v4712 = (* (( (ptr) formal←c24924)+31) );
SOURCE(1638, 21)
   ((P1x5b) (( (bPt) formal←c24924) + 125))->f = 1;
SOURCE(1661, 28)
   {
      word var←c22812;
      {
         word pd76;
         pd76 = (* (( (ptr) (* (( (ptr) gf←c24892)+53)/* var←c22844 */  ))+9) );
         var←c22812 = (word) ( *( (fPt) ((*  (ptr) pd76 ))))(atom←v4400, pd76);
         };
      (void) PutRope←P360(var←c22812, (word) (( (bPt) formal←c24924)+72));
      };
SOURCE(1691, 17)
   (* (( (ptr) formal←c24924)+31) ) = save←v4712;
SOURCE(1710, 13)
   (void) PutRope←P360((* (( (ptr) gf←c24892)+18) ), (word) (( (bPt) formal←c24924)+72));
   }

static void PutKey←P540(rope←v4460, formal←c24956)
   word rope←v4460;
   word formal←c24956;
   {
   word save←v4756;
   formal←c24956 = (formal←c24956 - 48);
   /* PutKey: */ 
SOURCE(1728, 140)
SOURCE(1758, 30)
   save←v4756 = (* (( (ptr) formal←c24956)+31) );
SOURCE(1790, 21)
   ((P1x2b) (( (bPt) formal←c24956) + 125))->f = 1;
SOURCE(1813, 21)
   ((P1x1b) (( (bPt) formal←c24956) + 124))->f = 1;
SOURCE(1836, 13)
   (void) PutRope←P360(rope←v4460, (word) (( (bPt) formal←c24956)+72));
SOURCE(1851, 17)
   (* (( (ptr) formal←c24956)+31) ) = save←v4756;
   }

static void PutProperties←P600(propList←v4520, formal←c25052)
   word propList←v4520;
   word formal←c25052;
   {
   W6 var←c24988;
   register ptr gf←c25020 =  (ptr) &globalframe;
   /* declaration of var←c22876 skipped */ 
   formal←c25052 = (formal←c25052 - 40);
   var←c24988.f0 = formal←c25052;
   /* PutProperties: */ 
SOURCE(1873, 141)
   {
      word tmpAddr77;
      tmpAddr77 = (word) (( (ptr) &var←c24988)+4)/* var←c22876 */ ;
      (*  (ptr) tmpAddr77 ) = ( ((word)  (fPt) action←P828) );
      (* (( (ptr) tmpAddr77) + 1) ) = 1;
      };
SOURCE(1983, 31)
   {
      word var←c22940;
      word pd78;
      pd78 = (* (( (ptr) (* (( (ptr) gf←c25020)+54)/* var←c22908 */  ))+7) );
      var←c22940 = (word) ( *( (fPt) ((*  (ptr) pd78 ))))(propList←v4520, (word) (( (bPt) &var←c24988)+16)/* var←c22876 */ , pd78)
      ;
      };
   }

static word action←P828(key←v14096, val←v14124, formal←c25116)
   word key←v14096;
   word val←v14124;
   word formal←c25116;
   {
   register ptr gf←c25084 =  (ptr) &globalframe;
   word quit←v14168;
   formal←c25116 = (formal←c25116 - 16);
   /* action: */ 
SOURCE(1923, 57)
SOURCE(1923, 57)
   quit←v14168 = 0;
SOURCE(1950, 30)
   {
      word var←c22972;
      var←c22972 = XR←Narrow(key←v14096, (* (( (ptr) gf←c25084)+6) ));
      (void) PutProperty←P660(var←c22972, val←v14124, (word) (( (bPt) (*  (ptr) formal←c25116 ))+32));
      };
SOURCE(1923, 57)
   return(quit←v14168);
   }

static void PutProperty←P660(key←v4580, value←v4608, formal←c25180)
   word key←v4580;
   word value←v4608;
   word formal←c25180;
   {
   register ptr gf←c25148 =  (ptr) &globalframe;
   formal←c25180 = (formal←c25180 - 32);
   /* PutProperty: */ 
SOURCE(2019, 513)
SOURCE(2065, 467)
   if ((value←v4608 != 0)) {
SOURCE(2085, 452)
      {
         word rope←v4844;
SOURCE(2087, 52)
         {
            word pd79;
            pd79 = (* (( (ptr) (* (( (ptr) gf←c25148)+50)/* var←c22588 */  ))+4) );
            rope←v4844 = (word) ( *( (fPt) ((*  (ptr) pd79 ))))(key←v4580, value←v4608, pd79);
            };
SOURCE(2141, 16)
         (void) PutPropName←P480(key←v4580, (word) (( (bPt) formal←c25180)+56));
SOURCE(2159, 373)
         {
            word pd81;
            if ((rope←v4844 == 0)) { goto then080;};
            pd81 = (* (( (ptr) (* (( (ptr) gf←c25148)+51)/* var←c22652 */  ))+29) );
            if ((0 != (word) ( *( (fPt) ((*  (ptr) pd81 ))))(key←v4580, (* (( (ptr) gf←c25148)+19) ), pd81))) {
               then080: ;
SOURCE(2212, 267)
               {
                  word save←v4888;
                  word savedPropList←v4916;
SOURCE(2214, 30)
                  save←v4888 = (* (( (ptr) formal←c25180)+31) );
SOURCE(2246, 44)
                  savedPropList←v4916 = (* (( (ptr) formal←c25180)+29) );
SOURCE(2292, 21)
                  ((P1x2b) (( (bPt) formal←c25180) + 124))->f = 1;
SOURCE(2315, 19)
                  (void) PutRope←P360((* (( (ptr) gf←c25148)+20) ), (word) (( (bPt) formal←c25180)+72));
SOURCE(2336, 17)
                  (* (( (ptr) formal←c25180)+31) ) = save←v4888;
SOURCE(2355, 60)
                  {
                     word pd82;
                     pd82 = (* (( (ptr) (* (( (ptr) gf←c25148)+54)/* var←c22908 */  ))+4) );
                     (* (( (ptr) formal←c25180)+29) ) = (word) ( *( (fPt) ((*  (ptr) pd82 ))))((* (( (ptr) formal←c25180)+29) ), (* (( (ptr) gf←c25148)+21)
                         ), value←v4608, pd82);
                     };
SOURCE(2417, 29)
                  {
                     word pd83;
                     pd83 = (* (( (ptr) (* (( (ptr) gf←c25148)+50)/* var←c22588 */  ))+17) );
                     (void) ( *( (fPt) ((*  (ptr) pd83 ))))((* (( (ptr) formal←c25180)+5) ), (*  (W5Pt) (( (ptr) formal←c25180)+25) ), pd83);
                     };
SOURCE(2448, 29)
                  (* (( (ptr) formal←c25180)+29) ) = savedPropList←v4916;
                  };
               }
            else {
SOURCE(2488, 13)
               (void) PutRope←P360(rope←v4844, (word) (( (bPt) formal←c25180)+72));
SOURCE(2503, 29)
               {
                  word pd84;
                  pd84 = (* (( (ptr) (* (( (ptr) gf←c25148)+50)/* var←c22588 */  ))+17) );
                  (void) ( *( (fPt) ((*  (ptr) pd84 ))))((* (( (ptr) formal←c25180)+5) ), (*  (W5Pt) (( (ptr) formal←c25180)+25) ), pd84);
                  };
               };
            };
         };
      };
   }

static void TranslateNodeContents←P720(formal←c25244)
   word formal←c25244;
   {
   register ptr gf←c25212 =  (ptr) &globalframe;
   formal←c25244 = (formal←c25244 - 24);
   /* TranslateNodeContents: */ 
SOURCE(2543, 1022)
SOURCE(2575, 990)
   lab←L100012: ;
   if ( ! ((* (( (bPt) formal←c25244)+92) ) & 0100)) {
      }
   else {
      goto lab←L100010;
      };
   {
      word looks←v4960;
      word propList←v4988;
SOURCE(2596, 28)
      looks←v4960 = (* (( (ptr) formal←c25244)+21) );
SOURCE(2626, 36)
      propList←v4988 = (* (( (ptr) formal←c25244)+24) );
SOURCE(2664, 482)
      {
         word tc85;
         if ((( * (ptr) (( (ptr) formal←c25244)+20) >> 8) == 0)) {
            tc85 =  (word) (((* (( (bPt) formal←c25244)+83) ) - 32) <= 94);
            }
         else {
            tc85 =  (word) 0;
            };
         if (tc85) {
SOURCE(2711, 18)
            (void) PutPropName←P480((* (( (ptr) gf←c25212)+22) ), (word) (( (bPt) formal←c25244)+56));
SOURCE(2731, 262)
            lab←L100015: ;
            {
               word tc86;
               word tc87;
               word tc88;
               word tc89;
               if ( ! ((* (( (bPt) formal←c25244)+92) ) & 0100)) {
                  tc89 =  (word) (( * (ptr) (( (ptr) formal←c25244)+20) >> 8) == 0);
                  }
               else {
                  tc89 =  (word) 0;
                  };
               if (tc89) {
                  tc88 =  (word) (((* (( (bPt) formal←c25244)+83) ) - 32) <= 94);
                  }
               else {
                  tc88 =  (word) 0;
                  };
               if (tc88) {
                  tc87 =  (word) ((* (( (ptr) formal←c25244)+21) ) == looks←v4960);
                  }
               else {
                  tc87 =  (word) 0;
                  };
               if (tc87) {
                  tc86 =  (word) ((* (( (ptr) formal←c25244)+24) ) == propList←v4988);
                  }
               else {
                  tc86 =  (word) 0;
                  };
               if (tc86) {
                  }
               else {
                  goto lab←L100013;
                  };
               };
            {
               word save←v5032;
SOURCE(2841, 30)
               save←v5032 = (* (( (ptr) formal←c25244)+31) );
SOURCE(2873, 18)
               (* (( (bPt) formal←c25244)+123) ) = (* (( (bPt) formal←c25244)+83) );
SOURCE(2893, 21)
               ((P1x6b) (( (bPt) formal←c25244) + 125))->f = 1;
SOURCE(2916, 29)
               {
                  word pd90;
                  pd90 = (* (( (ptr) (* (( (ptr) gf←c25212)+50)/* var←c22588 */  ))+17) );
                  (void) ( *( (fPt) ((*  (ptr) pd90 ))))((* (( (ptr) formal←c25244)+5) ), (*  (W5Pt) (( (ptr) formal←c25244)+30) ), pd90);
                  };
SOURCE(2947, 17)
               (* (( (ptr) formal←c25244)+31) ) = save←v5032;
SOURCE(2966, 27)
               {
                  word pd91;
                  pd91 = (* (( (ptr) (* (( (ptr) gf←c25212)+50)/* var←c22588 */  ))+12) );
                  (void) ( *( (fPt) ((*  (ptr) pd91 ))))((word) (( (bPt) formal←c25244)+80), (* (( (ptr) formal←c25244)+4) ), pd91);
                  };
               };
            goto lab←L100015;
            lab←L100013: ;
            }
         else {
SOURCE(3013, 18)
            (void) PutPropName←P480((* (( (ptr) gf←c25212)+23) ), (word) (( (bPt) formal←c25244)+56));
SOURCE(3033, 12)
            (void) PutRope←P360((* (( (ptr) gf←c25212)+24) ), (word) (( (bPt) formal←c25244)+72));
SOURCE(3047, 19)
            {
               word idx92;
               (void) PutOctal←P420((
                     idx92 = (word) ( * (ptr) (( (ptr) formal←c25244)+20) >> 8),
                     BCK(idx92, 256)
                     ), (word) (( (bPt) formal←c25244)+64));
               };
SOURCE(3068, 12)
            (void) PutRope←P360((* (( (ptr) gf←c25212)+25) ), (word) (( (bPt) formal←c25244)+72));
SOURCE(3082, 21)
            (void) PutOctal←P420((* (( (bPt) formal←c25244)+83) ), (word) (( (bPt) formal←c25244)+64));
SOURCE(3105, 12)
            (void) PutRope←P360((* (( (ptr) gf←c25212)+26) ), (word) (( (bPt) formal←c25244)+72));
SOURCE(3119, 27)
            {
               word pd93;
               pd93 = (* (( (ptr) (* (( (ptr) gf←c25212)+50)/* var←c22588 */  ))+12) );
               (void) ( *( (fPt) ((*  (ptr) pd93 ))))((word) (( (bPt) formal←c25244)+80), (* (( (ptr) formal←c25244)+4) ), pd93);
               };
            };
         };
SOURCE(3151, 29)
      {
         word pd94;
         pd94 = (* (( (ptr) (* (( (ptr) gf←c25212)+50)/* var←c22588 */  ))+17) );
         (void) ( *( (fPt) ((*  (ptr) pd94 ))))((* (( (ptr) formal←c25244)+5) ), (*  (W5Pt) (( (ptr) formal←c25244)+25) ), pd94);
         };
SOURCE(3182, 271)
      if ((looks←v4960 != 0)) {
SOURCE(3211, 27)
         {
            word pd95;
            pd95 = (* (( (ptr) (* (( (ptr) gf←c25212)+50)/* var←c22588 */  ))+18) );
            (void) ( *( (fPt) ((*  (ptr) pd95 ))))((* (( (ptr) formal←c25244)+5) ), 1, pd95);
            };
SOURCE(3240, 15)
         (void) PutKey←P540((* (( (ptr) gf←c25212)+27) ), (word) (( (bPt) formal←c25244)+48));
SOURCE(3257, 12)
         (void) PutRope←P360((* (( (ptr) gf←c25212)+24) ), (word) (( (bPt) formal←c25244)+72));
SOURCE(3271, 97)
         {
            register word noName←c23004 = 97;
            register word c←v5076;
            lab←L100019: ;
            c←v5076 = (noName←c23004 - 97);
SOURCE(3306, 62)
            if (((word) looks←v4960 >> (31 - c←v5076)) & 1) {
SOURCE(3324, 13)
               (* (( (bPt) formal←c25244)+123) ) = (c←v5076 + 97);
SOURCE(3339, 29)
               {
                  word pd96;
                  pd96 = (* (( (ptr) (* (( (ptr) gf←c25212)+50)/* var←c22588 */  ))+17) );
                  (void) ( *( (fPt) ((*  (ptr) pd96 ))))((* (( (ptr) formal←c25244)+5) ), (*  (W5Pt) (( (ptr) formal←c25244)+30) ), pd96);
                  };
               };
            if ((noName←c23004 >= 128)) {
               goto lab←L100016;
               };
            noName←c23004 = (noName←c23004 + 1);
            goto lab←L100019;
            lab←L100016: ;
            };
SOURCE(3380, 12)
         (void) PutRope←P360((* (( (ptr) gf←c25212)+26) ), (word) (( (bPt) formal←c25244)+72));
SOURCE(3394, 29)
         {
            word pd97;
            pd97 = (* (( (ptr) (* (( (ptr) gf←c25212)+50)/* var←c22588 */  ))+17) );
            (void) ( *( (fPt) ((*  (ptr) pd97 ))))((* (( (ptr) formal←c25244)+5) ), (*  (W5Pt) (( (ptr) formal←c25244)+25) ), pd97);
            };
SOURCE(3425, 28)
         {
            word pd98;
            pd98 = (* (( (ptr) (* (( (ptr) gf←c25212)+50)/* var←c22588 */  ))+18) );
            (void) ( *( (fPt) ((*  (ptr) pd98 ))))((* (( (ptr) formal←c25244)+5) ),  (word) -1, pd98);
            };
         };
SOURCE(3458, 107)
      if ((propList←v4988 != 0)) {
SOURCE(3483, 27)
         {
            word pd99;
            pd99 = (* (( (ptr) (* (( (ptr) gf←c25212)+50)/* var←c22588 */  ))+18) );
            (void) ( *( (fPt) ((*  (ptr) pd99 ))))((* (( (ptr) formal←c25244)+5) ), 1, pd99);
            };
SOURCE(3512, 23)
         (void) PutProperties←P600(propList←v4988, (word) (( (bPt) formal←c25244)+40));
SOURCE(3537, 28)
         {
            word pd100;
            pd100 = (* (( (ptr) (* (( (ptr) gf←c25212)+50)/* var←c22588 */  ))+18) );
            (void) ( *( (fPt) ((*  (ptr) pd100 ))))((* (( (ptr) formal←c25244)+5) ),  (word) -1, pd100);
            };
         };
      };
   goto lab←L100012;
   lab←L100010: ;
   }

static void TranslateFromOpenProperties←P120(formal←c0259, formal←c0260, doRoot←v3800)
   word formal←c0259;
   word formal←c0260;
   word doRoot←v3800;
   {
   W33 var←c25276;
   /* declaration of reader←v3744 skipped */ 
   /* declaration of writer←v3772 skipped */ 
   register ptr gf←c25308 =  (ptr) &globalframe;
   /* declaration of var←c23036 skipped */ 
   /* declaration of var←c23068 skipped */ 
   /* declaration of var←c23100 skipped */ 
   /* declaration of var←c23132 skipped */ 
   /* declaration of var←c23164 skipped */ 
   /* declaration of var←c23196 skipped */ 
   /* declaration of var←c23228 skipped */ 
   /* declaration of var←c23260 skipped */ 
   /* declaration of break←v5148 skipped */ 
   /* declaration of level←v5204 skipped */ 
   word first←v5372 = 1;
   (* (( (ptr) &var←c25276)+4)/* reader←v3744 */  ) = formal←c0259;
   (* (( (ptr) &var←c25276)+5)/* writer←v3772 */  ) = formal←c0260;
   /* TranslateFromOpenProperties: */ 
SOURCE(4353, 4341)
   {
      word tmpAddr101;
      tmpAddr101 = (word) (( (ptr) &var←c25276)+6)/* var←c23036 */ ;
      (*  (ptr) tmpAddr101 ) = ( ((word)  (fPt) action←P1836) );
      (* (( (ptr) tmpAddr101) + 1) ) = 1;
      };
   {
      word tmpAddr102;
      tmpAddr102 = (word) (( (ptr) &var←c25276)+8)/* var←c23068 */ ;
      (*  (ptr) tmpAddr102 ) = ( ((word)  (fPt) ParseProp←P1488) );
      (* (( (ptr) tmpAddr102) + 1) ) = 1;
      };
   {
      word tmpAddr103;
      tmpAddr103 = (word) (( (ptr) &var←c25276)+10)/* var←c23100 */ ;
      (*  (ptr) tmpAddr103 ) = ( ((word)  (fPt) RopeToEnd←P1428) );
      (* (( (ptr) tmpAddr103) + 1) ) = 1;
      };
   {
      word tmpAddr104;
      tmpAddr104 = (word) (( (ptr) &var←c25276)+12)/* var←c23132 */ ;
      (*  (ptr) tmpAddr104 ) = ( ((word)  (fPt) GetOctal3←P1368) );
      (* (( (ptr) tmpAddr104) + 1) ) = 1;
      };
   {
      word tmpAddr105;
      tmpAddr105 = (word) (( (ptr) &var←c25276)+14)/* var←c23164 */ ;
      (*  (ptr) tmpAddr105 ) = ( ((word)  (fPt) MustNest←P1308) );
      (* (( (ptr) tmpAddr105) + 1) ) = 1;
      };
   {
      word tmpAddr106;
      tmpAddr106 = (word) (( (ptr) &var←c25276)+16)/* var←c23196 */ ;
      (*  (ptr) tmpAddr106 ) = ( ((word)  (fPt) MatchBreak←P1248) );
      (* (( (ptr) tmpAddr106) + 1) ) = 1;
      };
   {
      word tmpAddr107;
      tmpAddr107 = (word) (( (ptr) &var←c25276)+18)/* var←c23228 */ ;
      (*  (ptr) tmpAddr107 ) = ( ((word)  (fPt) Match←P1188) );
      (* (( (ptr) tmpAddr107) + 1) ) = 1;
      };
   {
      word tmpAddr108;
      tmpAddr108 = (word) (( (ptr) &var←c25276)+20)/* var←c23260 */ ;
      (*  (ptr) tmpAddr108 ) = ( ((word)  (fPt) Must←P1128) );
      (* (( (ptr) tmpAddr108) + 1) ) = 1;
      };
SOURCE(4525, 149)
   (* (( (ptr) &var←c25276)+22) ) = 0;
   (* (( (ptr) &var←c25276)+23) ) = 0;
   (* (( (ptr) &var←c25276)+24) ) = 0;
   (* (( (ptr) &var←c25276)+25) ) = 16000;
   (* (( (ptr) &var←c25276)+26) ) = 0;
SOURCE(4993, 14)
   (* (( (ptr) &var←c25276)+27)/* level←v5204 */  ) = 0;
SOURCE(6435, 183)
   if ((0 != doRoot←v3800)) {
SOURCE(6450, 194)
      {
         word node←v5856;
         W2 var←c091;
         word parent←v5884;
SOURCE(6452, 57)
         {
            word pd109;
            pd109 = (* (( (ptr) (* (( (ptr) gf←c25308)+50)/* var←c22588 */  ))+31) );
            (void) ( *( (fPt) ((*  (ptr) pd109 ))))((word) &var←c091, (* (( (ptr) &var←c25276)+4)/* reader←v3744 */  ), pd109);
            };
         node←v5856 = var←c091.f0;
SOURCE(6511, 44)
         {
            word pd110;
            pd110 = (* (( (ptr) (* (( (ptr) gf←c25308)+55)/* var←c23324 */  ))+8) );
            parent←v5884 = (word) ( *( (fPt) ((*  (ptr) pd110 ))))(node←v5856, pd110);
            };
SOURCE(6557, 61)
         {
            word var←c23356;
            {
               word pd111;
               word pd112;
               pd111 = (* (( (ptr) (* (( (ptr) gf←c25308)+55)/* var←c23324 */  ))+8) );
               if (((word) ( *( (fPt) ((*  (ptr) pd111 ))))(parent←v5884, pd111) == 0)) {
                  pd112 = (* (( (ptr) (* (( (ptr) gf←c25308)+55)/* var←c23324 */  ))+10) );
                  var←c23356 = ((word) ( *( (fPt) ((*  (ptr) pd112 ))))(node←v5856, pd112) == 0);
                  }
               else {
                  var←c23356 = 0;
                  };
               };
            (void) Must←P1128(var←c23356, (word) (( (bPt) &var←c25276)+80)/* var←c23260 */ );
            };
         };
      };
SOURCE(6647, 2047)
   lab←L100022: ;
   {
      word pd113;
      pd113 = (* (( (ptr) (* (( (ptr) gf←c25308)+50)/* var←c22588 */  ))+11) );
      if ((0 == (word) ( *( (fPt) ((*  (ptr) pd113 ))))((* ((( (ptr) &var←c25276)+4)/* reader←v3744 */ ) ), pd113))) {
         }
      else {
         goto lab←L100020;
         };
      };
SOURCE(6682, 1994)
   if ( ( (0 == doRoot←v3800) ? (0 != (word) Match←P1188((* (( (ptr) gf←c25308)+12) ), (word) (( (bPt) &var←c25276)+72)/* var←c23228 */ )
   ) : 0 )  ||  ( (0 != doRoot←v3800) ? (0 != (word) Match←P1188((* (( (ptr) gf←c25308)+11) ), (word) (( (bPt) &var←c25276)+72)
      /* var←c23228 */ )) : 0 ) ) {
SOURCE(6768, 1832)
      {
         W5 node←v5928;
         word nodeTail←v5956 = 0;
SOURCE(6770, 148)
         node←v5928.f0 = 13;
         node←v5928.f1 = 0;
         node←v5928.f2 = 0;
         node←v5928.f3 = 1073757824;
         node←v5928.f4 = 0;
SOURCE(6951, 9)
         (* (( (ptr) &var←c25276)+27)/* level←v5204 */  ) = 0;
SOURCE(6962, 10)
         (void) MustNest←P1308((word) ((( (bPt) &var←c25276)+56)/* var←c23164 */ ));
SOURCE(6974, 1084)
         if ((0 != (word) Match←P1188((* (( (ptr) gf←c25308)+13) ), (word) (( (bPt) &var←c25276)+72)/* var←c23228 */ ))) {
SOURCE(7002, 10)
            (void) MustNest←P1308((word) ((( (bPt) &var←c25276)+56)/* var←c23164 */ ));
SOURCE(7014, 1044)
            lab←L100025: ;
            if (( (int)(* (( (ptr) &var←c25276)+27)/* level←v5204 */  ) >=  (int)2)) {
               }
            else {
               goto lab←L100023;
               };
            {
               /* declaration of outc←v6000 skipped */ 
               word outcTail←v6028 = 0;
               word rope←v6056 = 0;
SOURCE(7034, 148)
               (* (( (ptr) &var←c25276)+28) ) = 0;
               (* (( (ptr) &var←c25276)+29) ) = 0;
               (* (( (ptr) &var←c25276)+30) ) = 0;
               (* (( (ptr) &var←c25276)+31) ) = 16000;
               (* (( (ptr) &var←c25276)+32) ) = 0;
SOURCE(7233, 15)
               (void) Must←P1128(( (int)(* (( (ptr) &var←c25276)+27)/* level←v5204 */  ) ==  (int)2), (word) (( (bPt) &var←c25276)+80)/* var←c23260 */ )
               ;
SOURCE(7250, 176)
               if ((0 != (word) Match←P1188((* (( (ptr) gf←c25308)+28) ), (word) (( (bPt) &var←c25276)+72)/* var←c23228 */ ))) {
SOURCE(7274, 24)
                  rope←v6056 = (word) RopeToEnd←P1428((word) ((( (bPt) &var←c25276)+40)/* var←c23100 */ ));
                  }
               else {
SOURCE(7300, 22)
                  {
                     word var←c23452;
                     var←c23452 = (word) Match←P1188((* (( (ptr) gf←c25308)+29) ), (word) (( (bPt) &var←c25276)+72)/* var←c23228 */ );
                     (void) Must←P1128(var←c23452, (word) (( (bPt) &var←c25276)+80)/* var←c23260 */ );
                     };
SOURCE(7324, 26)
                  ((P24x0w) (( (ptr) &var←c25276) + 28))->f = ( (((unsigned)(word) GetOctal3←P1368((word) ((( (bPt) &var←c25276)+48)/* var←c23132 */ ))
                   << 8) >> 8) );
SOURCE(7352, 16)
                  {
                     word var←c23484;
                     var←c23484 = (word) Match←P1188((* (( (ptr) gf←c25308)+25) ), (word) (( (bPt) &var←c25276)+72)/* var←c23228 */ );
                     (void) Must←P1128(var←c23484, (word) (( (bPt) &var←c25276)+80)/* var←c23260 */ );
                     };
SOURCE(7370, 38)
                  {
                     word var←c23516;
                     var←c23516 = (word) GetOctal3←P1368((word) ((( (bPt) &var←c25276)+48)/* var←c23132 */ ));
                     {
                        word pd114;
                        pd114 = (* (( (ptr) (* (( (ptr) gf←c25308)+52)/* var←c22748 */  ))+37) );
                        rope←v6056 = (word) ( *( (fPt) ((*  (ptr) pd114 ))))(var←c23516, pd114);
                        };
                     };
SOURCE(7410, 16)
                  {
                     word var←c23548;
                     var←c23548 = (word) Match←P1188((* (( (ptr) gf←c25308)+26) ), (word) (( (bPt) &var←c25276)+72)/* var←c23228 */ );
                     (void) Must←P1128(var←c23548, (word) (( (bPt) &var←c25276)+80)/* var←c23260 */ );
                     };
                  };
SOURCE(7431, 18)
               {
                  word var←c23580;
                  var←c23580 = (word) MatchBreak←P1248((word) ((( (bPt) &var←c25276)+64)/* var←c23196 */ ));
                  (void) Must←P1128(var←c23580, (word) (( (bPt) &var←c25276)+80)/* var←c23260 */ );
                  };
SOURCE(7451, 455)
               lab←L100028: ;
               if (( (int)(* (( (ptr) &var←c25276)+27)/* level←v5204 */  ) >=  (int)3)) {
                  }
               else {
                  goto lab←L100026;
                  };
SOURCE(7471, 15)
               (void) Must←P1128(( (int)(* (( (ptr) &var←c25276)+27)/* level←v5204 */  ) ==  (int)3), (word) (( (bPt) &var←c25276)+80)/* var←c23260 */ )
               ;
SOURCE(7488, 418)
               if ((0 != (word) Match←P1188((* (( (ptr) gf←c25308)+30) ), (word) (( (bPt) &var←c25276)+72)/* var←c23228 */ ))) {
SOURCE(7512, 236)
                  {
                     W5 t←v6100;
SOURCE(7514, 51)
                     {
                        word pd115;
                        pd115 = (* (( (ptr) (* (( (ptr) gf←c25308)+50)/* var←c22588 */  ))+13) );
                        (void) ( *( (fPt) ((*  (ptr) pd115 ))))((word) &t←v6100, (* (( (ptr) &var←c25276)+4)/* reader←v3744 */  ), pd115);
                        };
SOURCE(7567, 132)
                     lab←L100031: ;
                     {
                        word tc116;
                        if ((( * (ptr) &t←v6100 >> 8) == 0)) {
                           tc116 =  (word) (((* (( (bPt) &t←v6100)+3) ) - 97) <= 31);
                           }
                        else {
                           tc116 =  (word) 0;
                           };
                        if (tc116) {
                           }
                        else {
                           goto lab←L100029;
                           };
                        };
SOURCE(7615, 27)
                     {
                        word pd117;
                        pd117 = (* (( (ptr) (* (( (ptr) gf←c25308)+50)/* var←c22588 */  ))+12) );
                        (void) ( *( (fPt) ((*  (ptr) pd117 ))))((word) &t←v6100, (* (( (ptr) &var←c25276)+4)/* reader←v3744 */  ), pd117);
                        };
SOURCE(7644, 25)
                     {
                        word idx118;
                        word x119;
                        word x120;
                        x119 = (word) (
                           idx118 = (word) ((* (( (bPt) &t←v6100)+3) ) - 97),
                           BCK(idx118, 32)
                           );
                        x120 = (word) (( (bPt) &var←c25276)+116);
                        x119 = 32 - (x119+1);
                        (*  (ptr) x120 ) = ((*  (ptr) x120 ) & ( ~ (1 << x119))) | (((1)) << x119);
                        };
SOURCE(7671, 28)
                     {
                        word pd121;
                        pd121 = (* (( (ptr) (* (( (ptr) gf←c25308)+50)/* var←c22588 */  ))+13) );
                        (void) ( *( (fPt) ((*  (ptr) pd121 ))))((word) &t←v6100, (* (( (ptr) &var←c25276)+4)/* reader←v3744 */  ), pd121);
                        };
                     goto lab←L100031;
                     lab←L100029: ;
SOURCE(7710, 16)
                     {
                        word var←c23612;
                        var←c23612 = (word) Match←P1188((* (( (ptr) gf←c25308)+26) ), (word) (( (bPt) &var←c25276)+72)/* var←c23228 */ );
                        (void) Must←P1128(var←c23612, (word) (( (bPt) &var←c25276)+80)/* var←c23260 */ );
                        };
SOURCE(7728, 18)
                     {
                        word var←c23644;
                        var←c23644 = (word) MatchBreak←P1248((word) ((( (bPt) &var←c25276)+64)/* var←c23196 */ ));
                        (void) Must←P1128(var←c23644, (word) (( (bPt) &var←c25276)+80)/* var←c23260 */ );
                        };
                     };
                  }
               else {
SOURCE(7755, 153)
                  {
                     W2 pair←v6144;
                     word last←v6172;
SOURCE(7757, 29)
                     (void) ParseProp←P1488((word) &pair←v6144, (word) (( (bPt) &var←c25276)+32)/* var←c23068 */ );
SOURCE(7788, 32)
                     last←v6172 = XR←NewObject(12, (* (( (ptr) gf←c25308)+8) ));
                     {
                        word var←c23708;
                        var←c23708 = last←v6172;
                        (*  (W2Pt) var←c23708 ) = pair←v6144;
                        };
SOURCE(7822, 67)
                     if ((outcTail←v6028 == 0)) {
SOURCE(7843, 26)
                        (* (( (ptr) &var←c25276)+32) ) = last←v6172;
                        }
                     else {
SOURCE(7869, 20)
                        (* (( (ptr) outcTail←v6028)+2) ) = last←v6172;
                        };
SOURCE(7891, 15)
                     outcTail←v6028 = last←v6172;
                     };
                  };
               goto lab←L100028;
               lab←L100026: ;
SOURCE(7920, 138)
               if ((rope←v6056 != 0)) {
SOURCE(7939, 121)
SOURCE(8017, 41)
                  {
                     word var←c23740;
                     word pd122;
                     pd122 = (* (( (ptr) (* (( (ptr) gf←c25308)+52)/* var←c22748 */  ))+26) );
                     var←c23740 = (word) ( *( (fPt) ((*  (ptr) pd122 ))))(rope←v6056, 0, 2147483647, (word) (( (bPt) &var←c25276)+24)/* var←c23036 */ , pd122)
                     ;
                     };
                  };
               };
            goto lab←L100025;
            lab←L100023: ;
            };
SOURCE(8075, 390)
         if ((0 != (word) Match←P1188((* (( (ptr) gf←c25308)+14) ), (word) (( (bPt) &var←c25276)+72)/* var←c23228 */ ))) {
SOURCE(8105, 10)
            (void) MustNest←P1308((word) ((( (bPt) &var←c25276)+56)/* var←c23164 */ ));
SOURCE(8117, 348)
            lab←L100034: ;
            if (( (int)(* (( (ptr) &var←c25276)+27)/* level←v5204 */  ) >=  (int)2)) {
               }
            else {
               goto lab←L100032;
               };
            {
               W2 pair←v6260;
SOURCE(8137, 15)
               pair←v6260.f0 = 0;
               pair←v6260.f1 = 0;
SOURCE(8154, 15)
               (void) Must←P1128(( (int)(* (( (ptr) &var←c25276)+27)/* level←v5204 */  ) ==  (int)2), (word) (( (bPt) &var←c25276)+80)/* var←c23260 */ )
               ;
SOURCE(8171, 18)
               (void) ParseProp←P1488((word) &pair←v6260, (word) (( (bPt) &var←c25276)+32)/* var←c23068 */ );
SOURCE(8191, 274)
               {
                  word var←c23804;
                  var←c23804 = pair←v6260.f0;
                  if ((var←c23804 == (* (( (ptr) gf←c25308)+15) ))) {
SOURCE(8224, 48)
                     {
                        word pd123;
                        pd123 = (* (( (ptr) (* (( (ptr) gf←c25308)+51)/* var←c22652 */  ))+19) );
                        node←v5928.f3 = (node←v5928.f3 & 2147483647) | ((((word) ( *( (fPt) ((*  (ptr) pd123 ))))(pair←v6260.f1, pd123) & 1)) << 31)
                        ;
                        };
                     }
                  else {
                     if ((var←c23804 == (* (( (ptr) gf←c25308)+16) ))) {
SOURCE(8285, 47)
                        {
                           word pd124;
                           pd124 = (* (( (ptr) (* (( (ptr) gf←c25308)+51)/* var←c22652 */  ))+17) );
                           node←v5928.f2 = (word) ( *( (fPt) ((*  (ptr) pd124 ))))(pair←v6260.f1, pd124);
                           };
                        }
                     else {
SOURCE(8345, 122)
                        {
                           word last←v6304;
SOURCE(8347, 32)
                           last←v6304 = XR←NewObject(12, (* (( (ptr) gf←c25308)+8) ));
                           {
/*1*/   word var←c23868;
/*1*/   var←c23868 = last←v6304;
/*1*/   (*  (W2Pt) var←c23868 ) = pair←v6260;
/*1*/   };
SOURCE(8381, 67)
                           if ((nodeTail←v5956 == 0)) {
SOURCE(8402, 26)
/*1*/   node←v5928.f4 = last←v6304;
/*1*/   }
                           else {
SOURCE(8428, 20)
/*1*/   (* (( (ptr) nodeTail←v5956)+2) ) = last←v6304;
/*1*/   };
SOURCE(8450, 15)
                           nodeTail←v5956 = last←v6304;
                           };
                        };
                     };
                  };
               };
            goto lab←L100034;
            lab←L100032: ;
            };
SOURCE(8482, 15)
         (void) Must←P1128(( (int)(* (( (ptr) &var←c25276)+27)/* level←v5204 */  ) ==  (int)1), (word) (( (bPt) &var←c25276)+80)/* var←c23260 */ )
         ;
SOURCE(8499, 23)
         {
            word var←c23900;
            var←c23900 = (word) Match←P1188((* (( (ptr) gf←c25308)+17) ), (word) (( (bPt) &var←c25276)+72)/* var←c23228 */ );
            (void) Must←P1128(var←c23900, (word) (( (bPt) &var←c25276)+80)/* var←c23260 */ );
            };
SOURCE(8524, 18)
         {
            word var←c23932;
            var←c23932 = (word) MatchBreak←P1248((word) ((( (bPt) &var←c25276)+64)/* var←c23196 */ ));
            (void) Must←P1128(var←c23932, (word) (( (bPt) &var←c25276)+80)/* var←c23260 */ );
            };
SOURCE(8544, 23)
         {
            word idx125;
            node←v5928.f3 = (node←v5928.f3 & 3221225472) | ((
                  idx125 = (word) ((* (( (ptr) &var←c25276)+27)/* level←v5204 */  ) + 16000),
                  BCK(idx125, 16002)
                  ));
            };
SOURCE(8569, 29)
         {
            word pd126;
            pd126 = (* (( (ptr) (* (( (ptr) gf←c25308)+50)/* var←c22588 */  ))+17) );
            (void) ( *( (fPt) ((*  (ptr) pd126 ))))((* (( (ptr) &var←c25276)+5)/* writer←v3772 */  ), node←v5928, pd126);
            };
         };
      }
   else {
SOURCE(8609, 15)
      (void) Must←P1128((0 == first←v5372), (word) (( (bPt) &var←c25276)+80)/* var←c23260 */ );
SOURCE(8626, 50)
      {
         word var←c23964;
         {
            word pd127;
            pd127 = (* (( (ptr) (* (( (ptr) gf←c25308)+50)/* var←c22588 */  ))+27) );
            var←c23964 = (word) ( *( (fPt) ((*  (ptr) pd127 ))))((* (( (ptr) &var←c25276)+5)/* writer←v3772 */  ), (* (( (ptr) &var←c25276)+4)
               /* reader←v3744 */  ), 2147483647, pd127);
            };
         (void) Must←P1128(var←c23964, (word) (( (bPt) &var←c25276)+80)/* var←c23260 */ );
         };
      };
SOURCE(8681, 13)
   first←v5372 = 0;
   goto lab←L100022;
   lab←L100020: ;
   }

static void Must←P1128(assertion←v5448, formal←c25372)
   word assertion←v5448;
   word formal←c25372;
   {
   register ptr gf←c25340 =  (ptr) &globalframe;
   formal←c25372 = (formal←c25372 - 80);
   /* Must: */ 
SOURCE(4462, 60)
SOURCE(4494, 28)
   if ((0 == assertion←v5448)) {
SOURCE(4516, 6)
      (void) XR←RaiseError((word) (( (bPt) gf←c25340)+140), 0);
      };
   }

static word Match←P1188(rope←v5508, formal←c25436)
   word rope←v5508;
   word formal←c25436;
   {
   register ptr gf←c25404 =  (ptr) &globalframe;
   word var←c5552;
   word targetLen←v6348;
   word input←v6376;
   word matchLen←v6404;
   formal←c25436 = (formal←c25436 - 72);
   /* Match: */ 
SOURCE(4676, 312)
SOURCE(4720, 32)
   {
      word pd128;
      pd128 = (* (( (ptr) (* (( (ptr) gf←c25404)+52)/* var←c22748 */  ))+15) );
      targetLen←v6348 = (word) ( *( (fPt) ((*  (ptr) pd128 ))))(rope←v5508, pd128);
      };
SOURCE(4754, 42)
   {
      word pd129;
      pd129 = (* (( (ptr) (* (( (ptr) gf←c25404)+50)/* var←c22588 */  ))+25) );
      input←v6376 = (word) ( *( (fPt) ((*  (ptr) pd129 ))))((* ((( (ptr) formal←c25436)+4)) ), pd129);
      };
SOURCE(4798, 57)
   {
      word pd130;
      pd130 = (* (( (ptr) (* (( (ptr) gf←c25404)+52)/* var←c22748 */  ))+21) );
      matchLen←v6404 = (word) ( *( (fPt) ((*  (ptr) pd130 ))))(rope←v5508, 0, input←v6376, 0, 1, 2147483647, pd130);
      };
SOURCE(4857, 112)
   if (( (int)matchLen←v6404 ==  (int)targetLen←v6348)) {
SOURCE(4886, 68)
      {
         register word i←v6448 = 0;
         if (( (int)i←v6448 >=  (int)targetLen←v6348)) {
            goto lab←L100035;
            };
         lab←L100038: ;
SOURCE(4918, 36)
         {
            W5 var←c23996;
            {
               word pd131;
               pd131 = (* (( (ptr) (* (( (ptr) gf←c25404)+50)/* var←c22588 */  ))+12) );
               (void) ( *( (fPt) ((*  (ptr) pd131 ))))((word) &var←c23996, (* (( (ptr) formal←c25436)+4) ), pd131);
               };
            };
         i←v6448 = (i←v6448 + 1);
         if (( (int)i←v6448 <  (int)targetLen←v6348)) {
            goto lab←L100038;
            };
         lab←L100035: ;
         };
SOURCE(4956, 13)
      return(1);
      };
SOURCE(4974, 14)
   return(0);
   }

static word MatchBreak←P1248(formal←c25500)
   word formal←c25500;
   {
   register ptr gf←c25468 =  (ptr) &globalframe;
   word var←c5612;
   W5 var←c0133;
   formal←c25500 = (formal←c25500 - 64);
   /* MatchBreak: */ 
SOURCE(5009, 180)
SOURCE(5045, 125)
   {
      word pd132;
      pd132 = (* (( (ptr) (* (( (ptr) gf←c25468)+50)/* var←c22588 */  ))+13) );
      (void) ( *( (fPt) ((*  (ptr) pd132 ))))((word) &var←c0133, (* (( (ptr) formal←c25500)+4) ), pd132);
      };
   if ((* (( (bPt) &var←c0133)+12) ) & 0100) {
SOURCE(5090, 31)
      {
         word pd133;
         pd133 = (* (( (ptr) (* (( (ptr) gf←c25468)+50)/* var←c22588 */  ))+12) );
         (void) ( *( (fPt) ((*  (ptr) pd133 ))))((word) (( (bPt) formal←c25500)+88), (* (( (ptr) formal←c25500)+4) ), pd133);
         };
SOURCE(5123, 32)
      (* (( (ptr) formal←c25500)+27) ) = ((* (( (ptr) formal←c25500)+27) ) + (( (((unsigned)(* (( (ptr) formal←c25500)+25) ) << 2) >> 2) ) - 16000));
SOURCE(5157, 13)
      return(1);
      };
SOURCE(5175, 14)
   return(0);
   }

static void MustNest←P1308(formal←c25532)
   word formal←c25532;
   {
   formal←c25532 = (formal←c25532 - 56);
   /* MustNest: */ 
SOURCE(5194, 61)
SOURCE(5212, 43)
   {
      word var←c24028;
      if ((0 != (word) MatchBreak←P1248((word) ((( (bPt) formal←c25532)+64))))) {
         var←c24028 = ( (int)(( (((unsigned)(* (( (ptr) formal←c25532)+25) ) << 2) >> 2) ) - 16000) ==  (int)1);
         }
      else {
         var←c24028 = 0;
         };
      (void) Must←P1128(var←c24028, (word) (( (bPt) formal←c25532)+80));
      };
   }

static word GetOctal3←P1368(formal←c25596)
   word formal←c25596;
   {
   register ptr gf←c25564 =  (ptr) &globalframe;
   word var←c5688;
   word v←v6492 = 0;
   formal←c25596 = (formal←c25596 - 48);
   /* GetOctal3: */ 
SOURCE(5258, 239)
SOURCE(5314, 141)
   {
      register word i←v6536 = 0;
      lab←L100042: ;
      {
         W5 t←v6580;
SOURCE(5338, 50)
         {
            word pd134;
            pd134 = (* (( (ptr) (* (( (ptr) gf←c25564)+50)/* var←c22588 */  ))+12) );
            (void) ( *( (fPt) ((*  (ptr) pd134 ))))((word) &t←v6580, (* (( (ptr) formal←c25596)+4) ), pd134);
            };
SOURCE(5390, 42)
         {
            word tc135;
            if ((((* (( (bPt) &t←v6580)+3) ) - 48) <= 7)) {
               tc135 =  (word) (( * (ptr) &t←v6580 >> 8) == 0);
               }
            else {
               tc135 =  (word) 0;
               };
            (void) Must←P1128(tc135, (word) (( (bPt) formal←c25596)+80));
            };
SOURCE(5434, 21)
         v←v6492 = ((v←v6492 << 3) + ((* (( (bPt) &t←v6580)+3) ) - 48));
         };
      if ((i←v6536 >= 2)) {
         goto lab←L100039;
         };
      i←v6536 = (i←v6536 + 1);
      goto lab←L100042;
      lab←L100039: ;
      };
SOURCE(5466, 19)
   (void) Must←P1128((v←v6492 <= 255), (word) (( (bPt) formal←c25596)+80));
SOURCE(5487, 10)
   return(BCK(v←v6492, 256));
   }

static word RopeToEnd←P1428(formal←c25660)
   word formal←c25660;
   {
   register ptr gf←c25628 =  (ptr) &globalframe;
   word var←c5768;
   word rope←v6624;
   formal←c25660 = (formal←c25660 - 40);
   /* RopeToEnd: */ 
SOURCE(5502, 167)
SOURCE(5537, 41)
   {
      word pd136;
      pd136 = (* (( (ptr) (* (( (ptr) gf←c25628)+50)/* var←c22588 */  ))+25) );
      rope←v6624 = (word) ( *( (fPt) ((*  (ptr) pd136 ))))((* ((( (ptr) formal←c25660)+4)) ), pd136);
      };
SOURCE(5580, 74)
   {
      register word i←v6668 = 0;
      register word noName←c24060;
      {
         word pd137;
         pd137 = (* (( (ptr) (* (( (ptr) gf←c25628)+52)/* var←c22748 */  ))+15) );
         noName←c24060 = (word) ( *( (fPt) ((*  (ptr) pd137 ))))(rope←v6624, pd137);
         };
      if (( (int)i←v6668 >=  (int)noName←c24060)) {
         goto lab←L100043;
         };
      lab←L100046: ;
SOURCE(5618, 36)
      {
         W5 var←c24092;
         {
            word pd138;
            pd138 = (* (( (ptr) (* (( (ptr) gf←c25628)+50)/* var←c22588 */  ))+12) );
            (void) ( *( (fPt) ((*  (ptr) pd138 ))))((word) &var←c24092, (* (( (ptr) formal←c25660)+4) ), pd138);
            };
         };
      i←v6668 = (i←v6668 + 1);
      if (( (int)i←v6668 <  (int)noName←c24060)) {
         goto lab←L100046;
         };
      lab←L100043: ;
      };
SOURCE(5656, 13)
   return(rope←v6624);
   }

static void ParseProp←P1488(formal←c0157, formal←c25724)
   word formal←c0157;
   word formal←c25724;
   {
   register ptr gf←c25692 =  (ptr) &globalframe;
   W2 var←c5828;
   word keyText←v6712;
   W5 t←v6740;
   word key←v6768 = 0;
   word rope←v6796 = 0;
   word value←v6824 = 0;
   formal←c25724 = (formal←c25724 - 32);
   /* ParseProp: */ 
SOURCE(5674, 736)
SOURCE(5714, 46)
   {
      word pd139;
      pd139 = (* (( (ptr) (* (( (ptr) gf←c25692)+56)/* var←c24124 */  ))+6) );
      keyText←v6712 = (word) ( *( (fPt) ((*  (ptr) pd139 ))))(100, pd139);
      };
SOURCE(5762, 50)
   {
      word pd140;
      pd140 = (* (( (ptr) (* (( (ptr) gf←c25692)+50)/* var←c22588 */  ))+12) );
      (void) ( *( (fPt) ((*  (ptr) pd140 ))))((word) &t←v6740, (* (( (ptr) formal←c25724)+4) ), pd140);
      };
SOURCE(5861, 196)
   lab←L100050: ;
   {
      word tc141;
      if ((( * (ptr) &t←v6740 >> 8) == 0)) {
         tc141 =  (word) ((word) (* (( (bPt) (*  (ptr) (* (( (ptr) (* (( (ptr) gf←c25692)+57)/* var←c24156 */  ))+4) ) ))+(* (( (bPt) &t←v6740)+3)
             )) ) == 2);
         }
      else {
         tc141 =  (word) 0;
         };
      if (tc141) {
         }
      else {
         goto lab←L100048;
         };
      };
SOURCE(5917, 40)
   (void) Must←P1128(((*  (hPt) keyText←v6712 ) < (* (( (hPt) keyText←v6712)+1) )), (word) (( (bPt) formal←c25724)+80));
SOURCE(5959, 32)
   {
      word idx142;
      word limit143;
      (* ((( (bPt) keyText←v6712)+4)+(
            idx142 = (word) (*  (hPt) keyText←v6712 ),
            limit143 = (word) (* (( (hPt) keyText←v6712)+1) ),
            BCK(idx142, limit143)
            )) ) = (* (( (bPt) &t←v6740)+3) );
      };
SOURCE(5993, 35)
   {
      word idx144;
      (*  (hPt) keyText←v6712 ) = (
         idx144 = (word) ((*  (hPt) keyText←v6712 ) + 1),
         BCK(idx144, 32768)
         );
      };
SOURCE(6030, 27)
   {
      word pd145;
      pd145 = (* (( (ptr) (* (( (ptr) gf←c25692)+50)/* var←c22588 */  ))+12) );
      (void) ( *( (fPt) ((*  (ptr) pd145 ))))((word) &t←v6740, (* (( (ptr) formal←c25724)+4) ), pd145);
      };
   goto lab←L100050;
   lab←L100048: ;
SOURCE(6068, 24)
   (void) Must←P1128(((*  (hPt) keyText←v6712 ) > 0), (word) (( (bPt) formal←c25724)+80));
SOURCE(6094, 35)
   {
      word tc146;
      if ((( * (ptr) &t←v6740 >> 8) == 0)) {
         tc146 =  (word) ((* (( (bPt) &t←v6740)+3) ) == 58);
         }
      else {
         tc146 =  (word) 0;
         };
      (void) Must←P1128(tc146, (word) (( (bPt) formal←c25724)+80));
      };
SOURCE(6131, 16)
   {
      word var←c24188;
      var←c24188 = (word) Match←P1188((* (( (ptr) gf←c25692)+33) ), (word) (( (bPt) formal←c25724)+72));
      (void) Must←P1128(var←c24188, (word) (( (bPt) formal←c25724)+80));
      };
SOURCE(6149, 18)
   rope←v6796 = (word) RopeToEnd←P1428((word) ((( (bPt) formal←c25724)+40)));
SOURCE(6169, 18)
   {
      word var←c24220;
      var←c24220 = (word) MatchBreak←P1248((word) ((( (bPt) formal←c25724)+64)));
      (void) Must←P1128(var←c24220, (word) (( (bPt) formal←c25724)+80));
      };
SOURCE(6189, 39)
   {
      word pd147;
      pd147 = (* (( (ptr) (* (( (ptr) gf←c25692)+53)/* var←c22844 */  ))+8) );
      key←v6768 = (word) ( *( (fPt) ((*  (ptr) pd147 ))))(keyText←v6712, pd147);
      };
SOURCE(6230, 46)
   {
      word pd148;
      pd148 = (* (( (ptr) (* (( (ptr) gf←c25692)+54)/* var←c22908 */  ))+5) );
      value←v6824 = (word) ( *( (fPt) ((*  (ptr) pd148 ))))((* (( (ptr) formal←c25724)+26) ), (* (( (ptr) gf←c25692)+21) ), pd148)
      ;
      };
SOURCE(6278, 66)
   if ((value←v6824 == 0)) {
SOURCE(6298, 46)
      {
         word pd149;
         pd149 = (* (( (ptr) (* (( (ptr) gf←c25692)+50)/* var←c22588 */  ))+5) );
         value←v6824 = (word) ( *( (fPt) ((*  (ptr) pd149 ))))(key←v6768, rope←v6796, pd149);
         };
      };
SOURCE(6346, 31)
   {
      word pd150;
      pd150 = (* (( (ptr) (* (( (ptr) gf←c25692)+56)/* var←c24124 */  ))+7) );
      (void) ( *( (fPt) ((*  (ptr) pd150 ))))(keyText←v6712, pd150);
      };
SOURCE(6379, 31)
   var←c5828.f0 = key←v6768;
   var←c5828.f1 = value←v6824;
   /* removed tail goto */ 
   (*  (W2Pt) formal←c0157 ) = var←c5828;
   return;
   }

static word action←P1836(c←v15988, formal←c25788)
   word c←v15988;
   word formal←c25788;
   {
   register ptr gf←c25756 =  (ptr) &globalframe;
   word quit←v16032;
   formal←c25788 = (formal←c25788 - 24);
   /* action: */ 
SOURCE(7941, 26)
SOURCE(7941, 26)
   quit←v16032 = 0;
SOURCE(7969, 13)
   (* (( (bPt) formal←c25788)+115) ) = c←v15988;
SOURCE(7984, 30)
   {
      word pd151;
      pd151 = (* (( (ptr) (* (( (ptr) gf←c25756)+50)/* var←c22588 */  ))+17) );
      (void) ( *( (fPt) ((*  (ptr) pd151 ))))((* (( (ptr) formal←c25788)+5) ), (*  (W5Pt) (( (ptr) formal←c25788)+28) ), pd151)
      ;
      };
SOURCE(7941, 26)
   return(quit←v16032);
   }

static word MakeNodeSelection←P180()
   {
   register ptr gf←c25820 =  (ptr) &globalframe;
   word useRootViewer←v3860;
   word tSel←v6892 = 0;
   /* MakeNodeSelection: */ 
SOURCE(8709, 688)
SOURCE(8709, 688)
   useRootViewer←v3860 = 0;
SOURCE(8806, 72)
   if (((*  (ptr) (* (( (ptr) (* (( (ptr) gf←c25820)+58)/* var←c24284 */  ))+4) ) ) == 0) || ((*  (ptr) (*  (ptr) (* (( (ptr) (* (
         ( (ptr) gf←c25820)+58)/* var←c24284 */  ))+4) ) ) ) == 0)) {
SOURCE(8872, 6)
      return(useRootViewer←v3860);
      };
SOURCE(8880, 29)
   {
      word pd152;
      pd152 = (* (( (ptr) (* (( (ptr) gf←c25820)+58)/* var←c24284 */  ))+10) );
      tSel←v6892 = (word) ( *( (fPt) ((*  (ptr) pd152 ))))(pd152);
      };
SOURCE(8911, 60)
   {
      word pd153;
      pd153 = (* (( (ptr) (* (( (ptr) gf←c25820)+58)/* var←c24284 */  ))+12) );
      (void) ( *( (fPt) ((*  (ptr) pd153 ))))((*  (ptr) (* (( (ptr) (* (( (ptr) gf←c25820)+58)/* var←c24284 */  ))+4) ) ), tSel←v6892, pd153)
      ;
      };
SOURCE(8973, 172)
   if ( (  ( ((* (( (ptr) tSel←v6892)+2) ) == (* (( (ptr) (*  (ptr) (* (( (ptr) tSel←v6892)+1) ) ))+2) )) ? ( (int)(* (( (ptr) tSel←v6892)+3)
    ) ==  (int)0) : 0 )  ? ((* (( (ptr) tSel←v6892)+24) ) == 0) : 0 ) ) {
SOURCE(9083, 27)
      useRootViewer←v3860 = (*  (ptr) tSel←v6892 );
SOURCE(9112, 25)
      {
         word pd154;
         pd154 = (* (( (ptr) (* (( (ptr) gf←c25820)+58)/* var←c24284 */  ))+11) );
         (void) ( *( (fPt) ((*  (ptr) pd154 ))))(tSel←v6892, pd154);
         };
SOURCE(9139, 6)
      return(useRootViewer←v3860);
      };
SOURCE(9150, 158)
   {
      word var←c24316;
      var←c24316 = (* (( (ptr) tSel←v6892)+22) );
      switch (var←c24316) {
         case 0: case 1: case 2: 
SOURCE(9202, 24)
            (* (( (ptr) tSel←v6892)+3) ) = 0;
SOURCE(9228, 55)
            {
               word pd155;
               pd155 = (* (( (ptr) (* (( (ptr) gf←c25820)+55)/* var←c23324 */  ))+36) );
               (* (( (ptr) tSel←v6892)+12) ) = (word) ( *( (fPt) ((*  (ptr) pd155 ))))((* ((( (ptr) tSel←v6892)+11)) ), pd155);
               };
SOURCE(9285, 23)
            (* (( (ptr) tSel←v6892)+22) ) = 3;
            break;
         default: 
            break;
         };
      };
SOURCE(9330, 39)
   {
      word pd156;
      pd156 = (* (( (ptr) (* (( (ptr) gf←c25820)+58)/* var←c24284 */  ))+25) );
      (void) ( *( (fPt) ((*  (ptr) pd156 ))))(tSel←v6892, 0, 0, 0, 1, pd156);
      };
SOURCE(9371, 26)
   {
      word pd157;
      pd157 = (* (( (ptr) (* (( (ptr) gf←c25820)+58)/* var←c24284 */  ))+11) );
      (void) ( *( (fPt) ((*  (ptr) pd157 ))))(tSel←v6892, pd157);
      };
SOURCE(8709, 688)
   return(useRootViewer←v3860);
   }

static void OpenPropertiesOp←P240(formal←c0167, formal←c0261)
   word formal←c0167;
   word formal←c0261;
   {
   W7 var←c25852;
   /* declaration of viewer←v8536 skipped */ 
   register ptr gf←c25884 =  (ptr) &globalframe;
   word recordAtom←v8580;
   word quit←v8608;
   /* declaration of var←c24348 skipped */ 
   var←c25852.f4/* viewer←v8536 */  = formal←c0261;
   /* OpenPropertiesOp: */ 
SOURCE(9401, 654)
   {
      word tmpAddr158;
      tmpAddr158 = (word) (( (ptr) &var←c25852)+5)/* var←c24348 */ ;
      (*  (ptr) tmpAddr158 ) = ( ((word)  (fPt) OpenProperties←P2184) );
      (* (( (ptr) tmpAddr158) + 1) ) = 1;
      };
SOURCE(9401, 654)
   recordAtom←v8580 = 1;
SOURCE(9401, 654)
   quit←v8608 = 0;
SOURCE(10004, 38)
   {
      word pd159;
      pd159 = (* (( (ptr) (* (( (ptr) gf←c25884)+59)/* var←c24380 */  ))+118) );
      (void) ( *( (fPt) ((*  (ptr) pd159 ))))((word) (( (bPt) &var←c25852)+20)/* var←c24348 */ , 0, pd159);
      };
SOURCE(10044, 11)
   quit←v8608 = 1;
   /* removed tail goto */ 
   (*  (ptr) formal←c0167 ) = recordAtom←v8580;
   (* (( (ptr) formal←c0167)+1) ) = quit←v8608;
   return;
   }

static void OpenProperties←P2184(root←v7012, formal←c25948)
   word root←v7012;
   word formal←c25948;
   {
   register ptr gf←c25916 =  (ptr) &globalframe;
   word reader←v7040 = 0;
   word writer←v7068 = 0;
   word useRootViewer←v7096;
   formal←c25948 = (formal←c25948 - 20);
   /* OpenProperties: */ 
SOURCE(9446, 553)
SOURCE(9560, 43)
   useRootViewer←v7096 = (word) MakeNodeSelection←P180();
SOURCE(9605, 119)
   {
      word pd160;
      word pd161;
      if ((useRootViewer←v7096 != 0)) {
         pd160 = (* (( (ptr) (* (( (ptr) gf←c25916)+60)/* var←c24412 */  ))+5) );
         reader←v7040 = (word) ( *( (fPt) ((*  (ptr) pd160 ))))(useRootViewer←v7096, pd160);
         }
      else {
         pd161 = (* (( (ptr) (* (( (ptr) gf←c25916)+60)/* var←c24412 */  ))+4) );
         reader←v7040 = (word) ( *( (fPt) ((*  (ptr) pd161 ))))(pd161);
         };
      };
SOURCE(9726, 29)
   {
      word pd162;
      pd162 = (* (( (ptr) (* (( (ptr) gf←c25916)+50)/* var←c22588 */  ))+16) );
      writer←v7068 = (word) ( *( (fPt) ((*  (ptr) pd162 ))))(pd162);
      };
SOURCE(9757, 60)
   (void) TranslateToOpenProperties←P60(reader←v7040, writer←v7068, (useRootViewer←v7096 != 0));
SOURCE(9819, 180)
   if ((useRootViewer←v7096 != 0)) {
SOURCE(9847, 69)
      {
         word pd163;
         pd163 = (* (( (ptr) (* (( (ptr) gf←c25916)+60)/* var←c24412 */  ))+7) );
         (void) ( *( (fPt) ((*  (ptr) pd163 ))))(writer←v7068, useRootViewer←v7096, pd163);
         };
SOURCE(9918, 31)
      {
         word pd164;
         if ( ( ( ! ((* (( (bPt) (* (( (ptr) formal←c25948)+4) ))+76) ) & 04)) ?  ! ((* (( (bPt) (* (( (ptr) formal←c25948)+4) ))+76)
          ) & 02) : 0 ) ) {
            pd164 = (* (( (ptr) (* (( (ptr) gf←c25916)+61)/* var←c24444 */  ))+33) );
            (void) ( *( (fPt) ((*  (ptr) pd164 ))))((* ((( (ptr) formal←c25948)+4)) ), pd164);
            };
         };
      }
   else {
SOURCE(9958, 41)
      {
         word pd165;
         pd165 = (* (( (ptr) (* (( (ptr) gf←c25916)+60)/* var←c24412 */  ))+6) );
         (void) ( *( (fPt) ((*  (ptr) pd165 ))))(writer←v7068, pd165);
         };
      };
   }

static void ClosePropertiesOp←P300(formal←c0179, formal←c0262)
   word formal←c0179;
   word formal←c0262;
   {
   W10 var←c25980;
   /* declaration of viewer←v8668 skipped */ 
   register ptr gf←c26012 =  (ptr) &globalframe;
   word recordAtom←v8712;
   word quit←v8740;
   /* declaration of var←c24476 skipped */ 
   /* declaration of errorPosition←v7140 skipped */ 
   /* declaration of error←v7196 skipped */ 
   (* (( (ptr) &var←c25980)+4)/* viewer←v8668 */  ) = formal←c0262;
   /* ClosePropertiesOp: */ 
SOURCE(10112, 1295)
   {
      word tmpAddr166;
      tmpAddr166 = (word) (( (ptr) &var←c25980)+5)/* var←c24476 */ ;
      (*  (ptr) tmpAddr166 ) = ( ((word)  (fPt) CloseProperties←P2244) );
      (* (( (ptr) tmpAddr166) + 1) ) = 1;
      };
SOURCE(10112, 1295)
   recordAtom←v8712 = 1;
SOURCE(10112, 1295)
   quit←v8740 = 0;
SOURCE(10158, 23)
   (* (( (ptr) &var←c25980)+7)/* errorPosition←v7140 */  ) =  (word) -1;
SOURCE(10876, 7)
   (* (( (ptr) &var←c25980)+8)/* error←v7196 */  ) = 0;
SOURCE(10914, 117)
SOURCE(10914, 117)
   {
      /* declaration of var←c01 skipped */ 
      (* (( (ptr) &var←c25980)+9)/* var←c01 */  ) = (* (( (ptr) (* (( (ptr) gf←c26012)+59)/* var←c24380 */  ))+118) );
      {
         word var←c02;
         {
            word var←c0243;
            var←c0243 = (word) &var←c25980;
            var←c02 = (word) XR←Enable(( ((word)  (fPt) NoName←Q2484) ), ( ((word)  (fPt) NoName←Q2664) ), var←c0243);
            };
         /* removed trivial cond node */ 
         };
      };
SOURCE(11047, 283)
   {
      word var←c24540;
      var←c24540 = (* (( (ptr) &var←c25980)+8)/* error←v7196 */  );
      switch (var←c24540) {
         case 0: 
SOURCE(11073, 27)
            if (( (int)(* (( (ptr) &var←c25980)+7)/* errorPosition←v7140 */  ) !=  (int) (word) -1)) {
SOURCE(11100, 5)
               (void) XR←RaiseUnnamedError();
               };
            break;
         case 1: 
SOURCE(11117, 95)
            {
               word pd167;
               pd167 = (* (( (ptr) (* (( (ptr) gf←c26012)+63)/* var←c24572 */  ))+4) );
               (void) ( *( (fPt) ((*  (ptr) pd167 ))))((* (( (ptr) &var←c25980)+4)/* viewer←v8668 */  ), (* (( (ptr) &var←c25980)+7)/* errorPosition←v7140 */  ), 1, pd167)
               ;
               };
SOURCE(11214, 34)
            {
               word pd168;
               pd168 = (* (( (ptr) (* (( (ptr) gf←c26012)+61)/* var←c24444 */  ))+44) );
               (void) ( *( (fPt) ((*  (ptr) pd168 ))))((* (( (ptr) &var←c25980)+4)/* viewer←v8668 */  ), 200, pd168);
               };
            break;
         case 2: 
SOURCE(11267, 41)
            (void) (XR←RaiseSignal((word) (( (bPt) gf←c26012)+144), 0, 0));
SOURCE(11310, 20)
            (void) CloseProperties←P2244(0, (word) (( (bPt) &var←c25980)+20)/* var←c24476 */ );
            break;
         default: 
SOURCE(11389, 5)
            (void) XR←RaiseUnnamedError();
            break;
         };
      };
SOURCE(11396, 11)
   quit←v8740 = 1;
   /* removed tail goto */ 
   (*  (ptr) formal←c0179 ) = recordAtom←v8712;
   (* (( (ptr) formal←c0179)+1) ) = quit←v8740;
   return;
   }

static word NoName←Q2484(formal←c0237)
   word formal←c0237;
   {
SOURCE(10914, 117)
   {
      word pd169;
      pd169 = (* (( (ptr) formal←c0237)+9) );
      (void) ( *( (fPt) ((*  (ptr) pd169 ))))((word) (( (bPt) formal←c0237)+20), 0, pd169);
      };
   return(0);
   }

static void CloseProperties←P2244(root←v7272, formal←c26108)
   word root←v7272;
   word formal←c26108;
   {
   W7 var←c26044;
   register ptr gf←c26076 =  (ptr) &globalframe;
   /* declaration of reader←v7400 skipped */ 
   /* declaration of writer←v7428 skipped */ 
   /* declaration of useRootViewer←v7456 skipped */ 
   formal←c26108 = (formal←c26108 - 20);
   var←c26044.f0 = formal←c26108;
   /* CloseProperties: */ 
SOURCE(10183, 688)
SOURCE(10230, 32)
   var←c26044.f4/* reader←v7400 */  = 0;
SOURCE(10264, 32)
   var←c26044.f5/* writer←v7428 */  = 0;
SOURCE(10298, 43)
   var←c26044.f6/* useRootViewer←v7456 */  = (word) MakeNodeSelection←P180();
SOURCE(10343, 189)
   if ((var←c26044.f6/* useRootViewer←v7456 */  != 0)) {
SOURCE(10371, 53)
      {
         word pd170;
         pd170 = (* (( (ptr) (* (( (ptr) gf←c26076)+60)/* var←c24412 */  ))+5) );
         var←c26044.f4/* reader←v7400 */  = (word) ( *( (fPt) ((*  (ptr) pd170 ))))(var←c26044.f6/* useRootViewer←v7456 */ , pd170)
         ;
         };
SOURCE(10426, 28)
      {
         W5 var←c24604;
         {
            word pd171;
            pd171 = (* (( (ptr) (* (( (ptr) gf←c26076)+50)/* var←c22588 */  ))+12) );
            (void) ( *( (fPt) ((*  (ptr) pd171 ))))((word) &var←c24604, var←c26044.f4/* reader←v7400 */ , pd171);
            };
         };
      }
   else {
SOURCE(10488, 44)
      {
         word pd172;
         pd172 = (* (( (ptr) (* (( (ptr) gf←c26076)+60)/* var←c24412 */  ))+4) );
         var←c26044.f4/* reader←v7400 */  = (word) ( *( (fPt) ((*  (ptr) pd172 ))))(pd172);
         };
      };
SOURCE(10535, 29)
   {
      word pd173;
      pd173 = (* (( (ptr) (* (( (ptr) gf←c26076)+50)/* var←c22588 */  ))+16) );
      var←c26044.f5/* writer←v7428 */  = (word) ( *( (fPt) ((*  (ptr) pd173 ))))(pd173);
      };
SOURCE(10566, 120)
   {
      word var←c0244;
      var←c0244 = (word) &var←c26044;
       (void) (word) XR←Enable(( ((word)  (fPt) NoName←Q2544) ), ( ((word)  (fPt) NoName←Q2604) ), var←c0244);
      };
SOURCE(10691, 180)
   if ((var←c26044.f6/* useRootViewer←v7456 */  != 0)) {
SOURCE(10719, 69)
      {
         word pd174;
         pd174 = (* (( (ptr) (* (( (ptr) gf←c26076)+60)/* var←c24412 */  ))+7) );
         (void) ( *( (fPt) ((*  (ptr) pd174 ))))(var←c26044.f5/* writer←v7428 */ , var←c26044.f6/* useRootViewer←v7456 */ , pd174)
         ;
         };
SOURCE(10790, 31)
      {
         word pd175;
         if ( ( ( ! ((* (( (bPt) (* (( (ptr) formal←c26108)+4) ))+76) ) & 04)) ?  ! ((* (( (bPt) (* (( (ptr) formal←c26108)+4) ))+76)
          ) & 02) : 0 ) ) {
            pd175 = (* (( (ptr) (* (( (ptr) gf←c26076)+61)/* var←c24444 */  ))+33) );
            (void) ( *( (fPt) ((*  (ptr) pd175 ))))((* ((( (ptr) formal←c26108)+4)) ), pd175);
            };
         };
      }
   else {
SOURCE(10830, 41)
      {
         word pd176;
         pd176 = (* (( (ptr) (* (( (ptr) gf←c26076)+60)/* var←c24412 */  ))+6) );
         (void) ( *( (fPt) ((*  (ptr) pd176 ))))(var←c26044.f5/* writer←v7428 */ , pd176);
         };
      };
   }

static word NoName←Q2544(formal←c0240)
   word formal←c0240;
   {
SOURCE(10566, 120)
   (void) TranslateFromOpenProperties←P120((* (( (ptr) formal←c0240)+4) ), (* (( (ptr) formal←c0240)+5) ), ((* (( (ptr) formal←c0240)+6)
       ) != 0));
   return(0);
   }

static void NoName←Q2604(formal←c0190, formal←c200004, formal←c200005, formal←c200006, formal←c200007)
   word formal←c0190;
   word formal←c200004;
   word formal←c200005;
   word formal←c200006;
   word formal←c200007;
   {
   register ptr gf←c0241 =  (ptr) &globalframe;
   if ((formal←c200005 == (word) (( (bPt) gf←c0241)+140))) {
SOURCE(10639, 47)
      {
         word pd177;
         pd177 = (* (( (ptr) (* (( (ptr) gf←c0241)+50)/* var←c22588 */  ))+30) );
         (* (( (ptr) (*  (ptr) formal←c200004 ))+7) ) = (word) ( *( (fPt) ((*  (ptr) pd177 ))))((* ((( (ptr) formal←c200004)+4)) ), pd177)
         ;
         };
      };
   (*  (ptr) formal←c0190 ) = 0;
   (* (( (ptr) formal←c0190)+1) ) = 0;
   return;
   }

static void NoName←Q2664(formal←c0197, formal←c200000, formal←c200001, formal←c200002, formal←c200003)
   word formal←c0197;
   word formal←c200000;
   word formal←c200001;
   word formal←c200002;
   word formal←c200003;
   {
   register ptr gf←c0242 =  (ptr) &globalframe;
   if ((formal←c200001 == (word) (( (bPt) gf←c0242)+140))) {
SOURCE(10964, 12)
      (* (( (ptr) formal←c200000)+8) ) = 1;
SOURCE(10978, 8)
      (*  (ptr) formal←c0197 ) = 2;
      (* (( (ptr) formal←c0197)+1) ) = 2;
      return;
      }
   else {
      if ((formal←c200001 == (* (( (ptr) (* (( (ptr) gf←c0242)+62)/* var←c24508 */  ))+22) ))) {
         {
            word signal←v21320;
            word parameters←v21348;
            signal←v21320 = (*  (ptr) formal←c200003 );
            parameters←v21348 = (* (( (ptr) formal←c200003)+1) );
SOURCE(11015, 16)
            (* (( (ptr) formal←c200000)+8) ) = 2;
SOURCE(11033, 8)
            (*  (ptr) formal←c0197 ) = 2;
            (* (( (ptr) formal←c0197)+1) ) = 2;
            return;
            };
         };
      };
   (*  (ptr) formal←c0197 ) = 0;
   (* (( (ptr) formal←c0197)+1) ) = 0;
   return;
   }

/* file: EditPropertiesImpl, module: EditPropertiesImpl, compiled at: February 27, 1992 6:01:47 pm PST */ 
extern void XR←install←EditPropertiesImpl() {
   NoName←Q2424();
   }
extern void XR←run←EditPropertiesImpl() { XR←Start(&globalframe); }