/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation. All rights reserved. */
/* time: April 23, 1992 11:45:13 am PDT */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: TEditInputImpl, module: TEditInputImpl */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [2500044446,1111044565] TEditInputImpl";
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;} W7;
typedef struct {word f0, f1, f2;} W3;
typedef W3 *W3Pt;
typedef struct {word f0, f1, f2, f3, f4, f5;} W6;
typedef W2 *W2Pt;
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {W8 f; W6 r;} W14;
typedef struct {W8 f; W8 r;} W16;
typedef struct {W16 f; W14 r;} W30;
typedef struct {word f0, f1, f2, f3;} W4;
typedef struct {W8 f; W4 r;} W12;
typedef struct {W16 f; W12 r;} W28;
typedef struct {W8 f; W3 r;} W11;
typedef struct {W16 f; W11 r;} W27;
typedef W27 *W27Pt;
typedef W28 *W28Pt;
typedef struct {unsigned u1:5, f:1, u2:2;} * P1x5b;
typedef struct {unsigned u1:6, f:1, u2:1;} * P1x6b;
typedef struct {W8 f; word r;} W9;
typedef W9 *W9Pt;
#define SOURCE(p, l) /* source p, l */
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR←RaiseBoundsFault()) : (idx) )
#define MAX(cast, x, y) ( ( cast x) > ( cast y) ? (x) : (y) )
#define INEG(x) ( (word) ( - ((int) (word) (x)) ) )
static void NoName←Q7080();
static void TEditInputImpl←P0();
static void SetTraceProcs←P60();
static word GetInternalCommandCounts←P120();
static void EditMessage←P180();
static void Interpret←P240();
static void InterpretAtom←P300();
static void TEditNotifyProc←P360();
static void InterpAtom←P420();
static void ResetInputStuff←P480();
static void SaveCoords←P540();
static void InterpInput←P600();
static word NoName←Q7140();
static word NoName←Q7200();
static word NumberToLook←P660();
static void Normalize←P720();
static void DoIt←P4308();
static void RestoreSelectionA←P780();
static void SaveSelectionA←P840();
static void RestoreSelectionB←P900();
static void SaveSelectionB←P960();
static void AllLevels←P1020();
static void FirstLevelOnly←P1080();
static void MoreLevels←P1140();
static word NoName←Q7260();
static void FewerLevels←P1200();
static word NoName←Q7320();
static void DoEdit←P1260();
static void MakePointSelection←P1320();
static void Split←P1380();
static void inner←P4812();
static void UpdateSavedSelections←P1440();
static word CheckSelection←P1500();
static void NormalizeViewer←P1560();
static void AbortSecondary←P1620();
static void Extend←P1680();
static void ForkPaint←P1800();
static void CheckFirstLevel←P1860();
static word MaxLevelShown←P1920();
static void ReadTipTables←P1980();
static void SetCommand←P2040();
static word GetCommand←P2100();
static void DoCommand←P2160();
static void RegisterInternal←P2220();
static void CopyToWorld←P2280();
static void DoSelChars←P5220();
static word SelConcat←P5280();
static void PasteFromWorld←P2340();
static void DispatchInternalCommand←P2400();
static void DoIt←P5532();
static void DoIt←P5640();
static void DispatchCommandProc←P2460();
static void Register←P2520();
static void UnRegister←P2580();
static word Match←P6036();
static word IsRegistered←P2640();
static word NoName←Q7380();
static void RegisterClosure←P2700();
static word NoName←Q7440();
static void UnRegisterClosure←P2760();
static word NoName←Q7500();
static word GetCommandNames←P2820();
static word NoName←Q7560();
static word EachPair←P6528();
static void RegisterCommandAtoms←P2880();
static void ProfileChanged←P2940();
static void NoName←Q7620();
static void NoName←Q7680();
static void NoName←Q7740();
static void NoName←Q7800();
static void NoName←Q7860();
static void NoName←Q7920();
static void NoName←Q7980();
static void NoName←Q8040();
static struct {unsigned f; char r[16];} string1 = {983056, "\205\257\300\144\151\072\034\300\012\070\102\254\100\164\242"};
static struct {unsigned f; char r[16];} string2 = {851984, "\257\300\343\357\262\137\300\144\166\356\317\100\274\000\000"};
static struct {unsigned f; char r[4];} string3 = {196611, "\004H\007"};
static struct {unsigned f; char r[4];} string4 = {65540, "\242\000\000"};
static struct {unsigned f; char r[4];} string5 = {65540, "\232\000\000"};
static struct {unsigned f; char r[8];} string6 = {458760, "\205\210\242\000\011\214\217"};
static struct {unsigned f; char r[4];} string7 = {196611, "\004C\377"};
static struct {unsigned f; char r[20];} string8 = {1179668, "\260\006\005\146\151\162\163\164\217\005\004\162\145\163\164\214\217\261\000"};
static struct {unsigned f; char r[4];} string9 = {131074, "\004\003\000"};
static struct {unsigned f; char r[4];} string10 = {131076, "\216\251\000"};
static struct {unsigned f; char r[4];} string11 = {65537, "\001\000\000"};
static struct {unsigned f; char r[24];} string12 = {1310744, "\260\006\005\146\151\162\163\164\216\251\005\004\162\145\163\164\214\216\251\261\000\000\000"};
static struct {unsigned f; char r[4];} string13 = {65540, "\251\000\000"};
static struct {unsigned f; char r[48];} string14 = {3080240, "\262\260\007\006\166\151\145\167\145\162\216\257\300\113\175\243\331\300\252\247\212\133\100\164\261\260\013\012\162\145\143\157\162\144\101\164\157\155\232\005\004\161\165\151\164\232\261"};
static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\144\151\072\034\300\012\070\102\254\100\164\000\000"};
static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\104\304\000\000"};
static struct {unsigned f; char r[24];} string17 = {1376277, "\007\000\001\002\007\020\001\002\000\007\036\002\004\003\002\004\014\016\015\003\001\000\000"};
static struct {unsigned f; char r[16];} string18 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[16];} string19 = {851984, "\257\300\343\357\262\137\300\144\166\356\317\100\164\000\000"};
static struct {unsigned f; char r[16];} string20 = {851981, "\006\005\000\001\004\001\054\001\070\001\100\114\001\000\000"};
static struct {unsigned f; char r[16];} string21 = {851984, "\257\300\015\104\150\367\300\043\046\347\073\100\164\000\000"};
static struct {unsigned f; char r[44];} string22 = {2752556, "\260\007\006\154\145\156\147\164\150\210\241\000\200\177\377\005\004\164\145\170\164\254\206\012\011\155\141\170\114\145\156\147\164\150\210\241\000\200\177\377\243\261\000"};
static struct {unsigned f; char r[4];} string23 = {65540, "\243\000\000"};
static struct {unsigned f; char r[44];} string24 = {2752556, "\260\006\005\146\151\162\163\164\257\300\310\055\154\027\300\364\263\217\120\100\164\005\004\162\145\163\164\214\257\300\310\055\154\027\300\364\263\217\120\100\164\261\000"};
static struct {unsigned f; char r[4];} string25 = {131074, "\004\015\000"};
static struct {unsigned f; char r[24];} string26 = {1310744, "Select looks to copy\000\000\000"};
static struct {unsigned f; char r[24];} string27 = {1376280, "Select format to copy\000\000"};
static struct {unsigned f; char r[28];} string28 = {1769500, "Select destination for copy"};
static struct {unsigned f; char r[24];} string29 = {1441816, "Select for replacement\000"};
static struct {unsigned f; char r[28];} string30 = {1769500, "Select destination for move"};
static struct {unsigned f; char r[36];} string31 = {2097188, "Select destination for move onto\000\000\000"};
static struct {unsigned f; char r[36];} string32 = {2162724, "Select destination for copy looks\000\000"};
static struct {unsigned f; char r[36];} string33 = {2228260, "Select destination for copy format\000"};
static struct {unsigned f; char r[24];} string34 = {1310744, "Select for transpose\000\000\000"};
static struct {unsigned f; char r[28];} string35 = {1703964, "Select for transpose looks\000"};
static struct {unsigned f; char r[28];} string36 = {1769500, "Select for transpose format"};
static struct {unsigned f; char r[24];} string37 = {1310744, "Select for move onto\000\000\000"};
static struct {unsigned f; char r[32];} string38 = {1900576, "Unknown atom given to Tioga: \000\000"};
static struct {unsigned f; char r[20];} string39 = {1179668, "Select replacement\000"};
static struct {unsigned f; char r[28];} string40 = {1572892, "Select for move to caret\000\000\000"};
static struct {unsigned f; char r[8];} string41 = {327688, "PARAM\000\000"};
static struct {unsigned f; char r[28];} string42 = {1572892, "Select for copy to caret\000\000\000"};
static struct {unsigned f; char r[32];} string43 = {1900576, "Unknown input given to Tioga.\000\000"};
static struct {unsigned f; char r[36];} string44 = {2293796, "Illegal PARAM input given to Tioga."};
static struct {unsigned f; char r[12];} string45 = {720908, "InterpInput"};
static struct {unsigned f; char r[12];} string46 = {589836, "AllLevels\000\000"};
static struct {unsigned f; char r[20];} string47 = {1114132, "Select for delete\000\000"};
static struct {unsigned f; char r[16];} string48 = {917520, "FirstLevelOnly\000"};
static struct {unsigned f; char r[12];} string49 = {655372, "MoreLevels\000"};
static struct {unsigned f; char r[12];} string50 = {720908, "FewerLevels"};
static struct {unsigned f; char r[8];} string51 = {393224, "Delete\000"};
static struct {unsigned f; char r[16];} string52 = {786448, "GetSecondary\000\000\000"};
static struct {unsigned f; char r[12];} string53 = {589836, "ToPrimary\000\000"};
static struct {unsigned f; char r[12];} string54 = {524300, "MakePDel\000\000\000"};
static struct {unsigned f; char r[12];} string55 = {720908, "ToSecondary"};
static struct {unsigned f; char r[8];} string56 = {393224, "ToBoth\000"};
static struct {unsigned f; char r[12];} string57 = {524300, "EditText\000\000\000"};
static struct {unsigned f; char r[12];} string58 = {589836, "EditLooks\000\000"};
static struct {unsigned f; char r[12];} string59 = {655372, "EditFormat\000"};
static struct {unsigned f; char r[20];} string60 = {1179668, "MakePointSelection\000"};
static struct {unsigned f; char r[20];} string61 = {1048596, "SelectionHistory\000\000\000"};
static struct {unsigned f; char r[8];} string62 = {327688, "Split\000\000"};
static struct {unsigned f; char r[32];} string63 = {2031648, "Make a primary selection first."};
static struct {unsigned f; char r[16];} string64 = {983056, "CheckFirstLevel"};
static struct {unsigned f; char r[24];} string65 = {1310744, "SelectMatchingParens\000\000\000"};
static struct {unsigned f; char r[8];} string66 = {327688, "Ascii\000\000"};
static struct {unsigned f; char r[4];} string67 = {4, "\000\000\000"};
static struct {unsigned f; char r[4];} string68 = {65540, "\012\000\000"};
static struct {unsigned f; char r[8];} string69 = {327688, "Abort\000\000"};
static struct {unsigned f; char r[12];} string70 = {589836, "Cancelled\000\000"};
static struct {unsigned f; char r[24];} string71 = {1310744, "Current position is \000\000\000"};
static struct {unsigned f; char r[8];} string72 = {458760, "Default"};
static struct {unsigned f; char r[12];} string73 = {655372, "CaretAfter\000"};
static struct {unsigned f; char r[16];} string74 = {851984, "ParenBrackets\000\000"};
static struct {unsigned f; char r[16];} string75 = {917520, "ApplyCaretLook\000"};
static struct {unsigned f; char r[12];} string76 = {589836, "ApplyLook\000\000"};
static struct {unsigned f; char r[16];} string77 = {983056, "ClearCaretLooks"};
static struct {unsigned f; char r[12];} string78 = {655372, "ClearLooks\000"};
static struct {unsigned f; char r[12];} string79 = {589836, "BackSpace\000\000"};
static struct {unsigned f; char r[12];} string80 = {524300, "BackWord\000\000\000"};
static struct {unsigned f; char r[16];} string81 = {917520, "DeleteNextChar\000"};
static struct {unsigned f; char r[16];} string82 = {917520, "DeleteNextWord\000"};
static struct {unsigned f; char r[20];} string83 = {1048596, "GoToPreviousWord\000\000\000"};
static struct {unsigned f; char r[16];} string84 = {786448, "GoToNextWord\000\000\000"};
static struct {unsigned f; char r[20];} string85 = {1048596, "GoToPreviousChar\000\000\000"};
static struct {unsigned f; char r[16];} string86 = {786448, "GoToNextChar\000\000\000"};
static struct {unsigned f; char r[20];} string87 = {1048596, "GoToPreviousNode\000\000\000"};
static struct {unsigned f; char r[16];} string88 = {786448, "GoToNextNode\000\000\000"};
static struct {unsigned f; char r[16];} string89 = {851984, "GoToEndOfNode\000\000"};
static struct {unsigned f; char r[20];} string90 = {1245204, "GoToBeginningOfNode"};
static struct {unsigned f; char r[8];} string91 = {262152, "Copy\000\000\000"};
static struct {unsigned f; char r[8];} string92 = {393224, "DoEdit\000"};
static struct {unsigned f; char r[16];} string93 = {786448, "ExpandAbbrev\000\000\000"};
static struct {unsigned f; char r[8];} string94 = {262152, "Move\000\000\000"};
static struct {unsigned f; char r[20];} string95 = {1048596, "NormalizeToStart\000\000\000"};
static struct {unsigned f; char r[20];} string96 = {1048596, "NormalizeToCaret\000\000\000"};
static struct {unsigned f; char r[16];} string97 = {917520, "NormalizeToEnd\000"};
static struct {unsigned f; char r[16];} string98 = {983056, "RemoveCaretLook"};
static struct {unsigned f; char r[12];} string99 = {655372, "RemoveLook\000"};
static struct {unsigned f; char r[12];} string100 = {524300, "SetStyle\000\000\000"};
static struct {unsigned f; char r[8];} string101 = {262152, "Time\000\000\000"};
static struct {unsigned f; char r[12];} string102 = {524300, "RedSplit\000\000\000"};
static struct {unsigned f; char r[12];} string103 = {720908, "YellowSplit"};
static struct {unsigned f; char r[12];} string104 = {589836, "BlueSplit\000\000"};
static struct {unsigned f; char r[12];} string105 = {589836, "Transpose\000\000"};
static struct {unsigned f; char r[8];} string106 = {458760, "ToLimbo"};
static struct {unsigned f; char r[12];} string107 = {655372, "CutToWorld\000"};
static struct {unsigned f; char r[20];} string108 = {1245204, "CutToWorldFormatted"};
static struct {unsigned f; char r[12];} string109 = {720908, "CopyToWorld"};
static struct {unsigned f; char r[24];} string110 = {1310744, "CopyToWorldFormatted\000\000\000"};
static struct {unsigned f; char r[8];} string111 = {327688, "Paste\000\000"};
static struct {unsigned f; char r[16];} string112 = {917520, "PasteFromWorld\000"};
static struct {unsigned f; char r[24];} string113 = {1507352, "PasteFromWorldFormatted"};
static struct {unsigned f; char r[12];} string114 = {589836, "EditReset\000\000"};
static struct {unsigned f; char r[12];} string115 = {589836, "EditAbort\000\000"};
static struct {unsigned f; char r[12];} string116 = {524300, "EditType\000\000\000"};
static struct {unsigned f; char r[12];} string117 = {524300, "FindNext\000\000\000"};
static struct {unsigned f; char r[8];} string118 = {458760, "FindAny"};
static struct {unsigned f; char r[12];} string119 = {524300, "FindPrev\000\000\000"};
static struct {unsigned f; char r[12];} string120 = {720908, "FindNextDef"};
static struct {unsigned f; char r[12];} string121 = {655372, "FindAnyDef\000"};
static struct {unsigned f; char r[12];} string122 = {720908, "FindPrevDef"};
static struct {unsigned f; char r[16];} string123 = {786448, "FindNextWord\000\000\000"};
static struct {unsigned f; char r[12];} string124 = {720908, "FindAnyWord"};
static struct {unsigned f; char r[16];} string125 = {786448, "FindPrevWord\000\000\000"};
static struct {unsigned f; char r[20];} string126 = {1048596, "FindNextCaseless\000\000\000"};
static struct {unsigned f; char r[16];} string127 = {983056, "FindAnyCaseless"};
static struct {unsigned f; char r[20];} string128 = {1048596, "FindPrevCaseless\000\000\000"};
static struct {unsigned f; char r[20];} string129 = {1245204, "FindNextDefCaseless"};
static struct {unsigned f; char r[20];} string130 = {1179668, "FindAnyDefCaseless\000"};
static struct {unsigned f; char r[20];} string131 = {1245204, "FindPrevDefCaseless"};
static struct {unsigned f; char r[24];} string132 = {1310744, "FindNextWordCaseless\000\000\000"};
static struct {unsigned f; char r[20];} string133 = {1245204, "FindAnyWordCaseless"};
static struct {unsigned f; char r[24];} string134 = {1310744, "FindPrevWordCaseless\000\000\000"};
static struct {unsigned f; char r[16];} string135 = {851984, "PushSelection\000\000"};
static struct {unsigned f; char r[16];} string136 = {786448, "PopSelection\000\000\000"};
static struct {unsigned f; char r[16];} string137 = {851984, "SaveSelection\000\000"};
static struct {unsigned f; char r[20];} string138 = {1048596, "RestoreSelection\000\000\000"};
static struct {unsigned f; char r[16];} string139 = {917520, "SaveSelectionA\000"};
static struct {unsigned f; char r[20];} string140 = {1114132, "RestoreSelectionA\000\000"};
static struct {unsigned f; char r[16];} string141 = {917520, "SaveSelectionB\000"};
static struct {unsigned f; char r[20];} string142 = {1114132, "RestoreSelectionB\000\000"};
static struct {unsigned f; char r[12];} string143 = {524300, "Position\000\000\000"};
static struct {unsigned f; char r[28];} string144 = {1638428, "PositionIncludingComments\000\000"};
static struct {unsigned f; char r[12];} string145 = {720908, "MsgPosition"};
static struct {unsigned f; char r[32];} string146 = {1835040, "MsgPositionIncludingComments\000\000\000"};
static struct {unsigned f; char r[16];} string147 = {851984, "StuffPosition\000\000"};
static struct {unsigned f; char r[32];} string148 = {1966112, "StuffPositionIncludingComments\000"};
static struct {unsigned f; char r[12];} string149 = {524300, "RedMouse\000\000\000"};
static struct {unsigned f; char r[12];} string150 = {720908, "YellowMouse"};
static struct {unsigned f; char r[12];} string151 = {589836, "BlueMouse\000\000"};
static struct {unsigned f; char r[8];} string152 = {458760, "RedDown"};
static struct {unsigned f; char r[12];} string153 = {655372, "YellowDown\000"};
static struct {unsigned f; char r[12];} string154 = {524300, "BlueDown\000\000\000"};
static struct {unsigned f; char r[12];} string155 = {589836, "SelBranch\000\000"};
static struct {unsigned f; char r[8];} string156 = {458760, "SelChar"};
static struct {unsigned f; char r[12];} string157 = {589836, "SelExpand\000\000"};
static struct {unsigned f; char r[12];} string158 = {589836, "SelExtend\000\000"};
static struct {unsigned f; char r[16];} string159 = {917520, "SelStartExtend\000"};
static struct {unsigned f; char r[8];} string160 = {458760, "SelNode"};
static struct {unsigned f; char r[16];} string161 = {851984, "SelNotPendDel\000\000"};
static struct {unsigned f; char r[12];} string162 = {655372, "SelPendDel\000"};
static struct {unsigned f; char r[16];} string163 = {983056, "ForceSelPendDel"};
static struct {unsigned f; char r[20];} string164 = {1179668, "ForceSelNotPendDel\000"};
static struct {unsigned f; char r[16];} string165 = {917520, "SelSamePendDel\000"};
static struct {unsigned f; char r[12];} string166 = {655372, "SelPrimary\000"};
static struct {unsigned f; char r[12];} string167 = {589836, "SelReduce\000\000"};
static struct {unsigned f; char r[8];} string168 = {458760, "SelSame"};
static struct {unsigned f; char r[12];} string169 = {655372, "SelSameEnd\000"};
static struct {unsigned f; char r[16];} string170 = {786448, "SelSecondary\000\000\000"};
static struct {unsigned f; char r[12];} string171 = {589836, "SelUpdate\000\000"};
static struct {unsigned f; char r[8];} string172 = {458760, "SelWord"};
static struct {unsigned f; char r[20];} string173 = {1048596, "IntermediateUser\000\000\000"};
static struct {unsigned f; char r[16];} string174 = {786448, "AdvancedUser\000\000\000"};
static struct {unsigned f; char r[12];} string175 = {655372, "ExpertUser\000"};
static struct {unsigned f; char r[8];} string176 = {327688, "Break\000\000"};
static struct {unsigned f; char r[8];} string177 = {262152, "Join\000\000\000"};
static struct {unsigned f; char r[8];} string178 = {262152, "Nest\000\000\000"};
static struct {unsigned f; char r[16];} string179 = {786448, "SaveForPaste\000\000\000"};
static struct {unsigned f; char r[12];} string180 = {589836, "SetFormat\000\000"};
static struct {unsigned f; char r[8];} string181 = {458760, "SetType"};
static struct {unsigned f; char r[12];} string182 = {589836, "GetFormat\000\000"};
static struct {unsigned f; char r[8];} string183 = {458760, "GetType"};
static struct {unsigned f; char r[8];} string184 = {393224, "UnNest\000"};
static struct {unsigned f; char r[8];} string185 = {458760, "AllCaps"};
static struct {unsigned f; char r[12];} string186 = {524300, "AllLower\000\000\000"};
static struct {unsigned f; char r[12];} string187 = {524300, "FirstCap\000\000\000"};
static struct {unsigned f; char r[12];} string188 = {720908, "InitialCaps"};
static struct {unsigned f; char r[12];} string189 = {720908, "CaretBefore"};
static struct {unsigned f; char r[12];} string190 = {655372, "Everything\000"};
static struct {unsigned f; char r[16];} string191 = {851984, "GrowSelection\000\000"};
static struct {unsigned f; char r[24];} string192 = {1376280, "GrowSelectionToBlanks\000\000"};
static struct {unsigned f; char r[16];} string193 = {983056, "InsertLineBreak"};
static struct {unsigned f; char r[16];} string194 = {851984, "InsertNewline\000\000"};
static struct {unsigned f; char r[24];} string195 = {1310744, "MakeNotPendingDelete\000\000\000"};
static struct {unsigned f; char r[20];} string196 = {1114132, "MakePendingDelete\000\000"};
static struct {unsigned f; char r[24];} string197 = {1310744, "MakeControlCharacter\000\000\000"};
static struct {unsigned f; char r[20];} string198 = {1179668, "MakeOctalCharacter\000"};
static struct {unsigned f; char r[24];} string199 = {1441816, "UnMakeControlCharacter\000"};
static struct {unsigned f; char r[24];} string200 = {1310744, "UnMakeOctalCharacter\000\000\000"};
static struct {unsigned f; char r[12];} string201 = {720908, "MakePrimary"};
static struct {unsigned f; char r[16];} string202 = {851984, "MakeSecondary\000\000"};
static struct {unsigned f; char r[16];} string203 = {851984, "CancelPrimary\000\000"};
static struct {unsigned f; char r[16];} string204 = {983056, "CancelSecondary"};
static struct {unsigned f; char r[8];} string205 = {327688, "Paint\000\000"};
static struct {unsigned f; char r[20];} string206 = {1245204, "PlaceholderBrackets"};
static struct {unsigned f; char r[20];} string207 = {1245204, "PreviousPlaceholder"};
static struct {unsigned f; char r[16];} string208 = {917520, "PreviousViewer\000"};
static struct {unsigned f; char r[12];} string209 = {720908, "ReadProfile"};
static struct {unsigned f; char r[12];} string210 = {720908, "ReloadStyle"};
static struct {unsigned f; char r[36];} string211 = {2162724, "SelectMatchingPlaceholderBrackets\000\000"};
static struct {unsigned f; char r[16];} string212 = {983056, "NextPlaceholder"};
static struct {unsigned f; char r[12];} string213 = {655372, "NextViewer\000"};
static struct {unsigned f; char r[20];} string214 = {1114132, "ReadAbbreviations\000\000"};
static struct {unsigned f; char r[28];} string215 = {1769500, "SelectMatchingAngleBrackets"};
static struct {unsigned f; char r[28];} string216 = {1769500, "SelectMatchingCurlyBrackets"};
static struct {unsigned f; char r[32];} string217 = {1835040, "SelectMatchingSquareBrackets\000\000\000"};
static struct {unsigned f; char r[28];} string218 = {1703964, "SelectMatchingSingleQuotes\000"};
static struct {unsigned f; char r[28];} string219 = {1703964, "SelectMatchingDoubleQuotes\000"};
static struct {unsigned f; char r[28];} string220 = {1703964, "SelectMatchingDashBrackets\000"};
static struct {unsigned f; char r[16];} string221 = {786448, "DashBrackets\000\000\000"};
static struct {unsigned f; char r[16];} string222 = {851984, "AngleBrackets\000\000"};
static struct {unsigned f; char r[20];} string223 = {1245204, "DoubleQuoteBrackets"};
static struct {unsigned f; char r[20];} string224 = {1245204, "SingleQuoteBrackets"};
static struct {unsigned f; char r[16];} string225 = {851984, "CurlyBrackets\000\000"};
static struct {unsigned f; char r[16];} string226 = {917520, "SquareBrackets\000"};
static struct {unsigned f; char r[12];} string227 = {524300, "Command0\000\000\000"};
static struct {unsigned f; char r[12];} string228 = {524300, "Command1\000\000\000"};
static struct {unsigned f; char r[12];} string229 = {524300, "Command2\000\000\000"};
static struct {unsigned f; char r[12];} string230 = {524300, "Command3\000\000\000"};
static struct {unsigned f; char r[12];} string231 = {524300, "Command4\000\000\000"};
static struct {unsigned f; char r[12];} string232 = {524300, "Command5\000\000\000"};
static struct {unsigned f; char r[12];} string233 = {524300, "Command6\000\000\000"};
static struct {unsigned f; char r[12];} string234 = {524300, "Command7\000\000\000"};
static struct {unsigned f; char r[12];} string235 = {524300, "Command8\000\000\000"};
static struct {unsigned f; char r[12];} string236 = {524300, "Command9\000\000\000"};
static struct {unsigned f; char r[12];} string237 = {655372, "SetComment\000"};
static struct {unsigned f; char r[16];} string238 = {851984, "SetNotComment\000\000"};
static struct {unsigned f; char r[16];} string239 = {851984, "\257\300\225\003\246\236\300\102\071\061\325\100\164\000\000"};
static struct {unsigned f; char r[40];} string240 = {2424869, "\006\013\040\001\044\001\050\001\100\124\001\100\130\001\100\134\001\100\140\001\100\150\001\100\154\001\100\160\001\100\330\010\000\004\100\332\001\000\000"};
static struct {unsigned f; char r[16];} string241 = {851984, "\257\300\055\153\222\376\300\327\164\352\142\100\150\000\000"};
static struct {unsigned f; char r[16];} string242 = {851984, "\257\300\004\173\141\246\300\255\256\170\002\100\150\000\000"};
static struct {unsigned f; char r[16];} string243 = {851984, "\257\300\355\261\315\203\300\373\164\347\341\100\150\000\000"};
static struct {unsigned f; char r[16];} string244 = {851984, "\257\300\263\272\165\301\300\364\117\256\374\100\150\000\000"};
static struct {unsigned f; char r[16];} string245 = {851984, "\257\300\074\270\063\045\300\023\342\016\224\100\150\000\000"};
static struct {unsigned f; char r[16];} string246 = {851984, "\257\300\115\072\344\261\300\127\050\323\372\100\150\000\000"};
static struct {unsigned f; char r[16];} string247 = {851984, "\257\300\242\221\264\046\300\105\142\142\023\100\150\000\000"};
static struct {unsigned f; char r[16];} string248 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[16];} string249 = {851984, "\257\300\320\263\152\354\300\340\215\053\236\100\150\000\000"};
static struct {unsigned f; char r[16];} string250 = {851984, "\257\300\343\357\262\137\300\144\166\356\317\100\150\000\000"};
static struct {unsigned f; char r[8];} string251 = {1413833833, "tInput"};
static struct {unsigned f; char r[16];} string252 = {851984, "\257\300\013\141\323\354\300\341\005\243\127\100\150\000\000"};
static struct {unsigned f; char r[16];} string253 = {851984, "\257\300\146\107\314\260\300\352\117\305\000\100\150\000\000"};
static struct {unsigned f; char r[16];} string254 = {851984, "\257\300\351\360\047\051\300\272\273\201\332\100\150\000\000"};
static struct {unsigned f; char r[12];} string255 = {1413833833, "tPrivate"};
static struct {unsigned f; char r[16];} string256 = {851984, "\257\300\016\126\010\321\300\354\015\363\112\100\150\000\000"};
static struct {unsigned f; char r[16];} string257 = {851984, "\257\300R-\356\251\300YX]$@h\000\000"};
static struct {unsigned f; char r[16];} string258 = {851984, "\257\300\255\037\131\057\300\313\250\372\104\100\150\000\000"};
static struct {unsigned f; char r[16];} string259 = {851984, "\257\300\343\112\327\166\300\041\341\335\211\100\150\000\000"};
static struct {unsigned f; char r[16];} string260 = {851984, "\257\300\161\363\331\216\300\223\304\230\020\100\150\000\000"};
static struct {unsigned f; char r[16];} string261 = {851984, "\257\300\174\107\267\236\300\027\127\205\140\100\150\000\000"};
static struct {unsigned f; char r[16];} string262 = {851984, "\257\300\261\010\310\246\300\337\340\027\051\100\150\000\000"};
static struct {unsigned f; char r[16];} string263 = {851984, "\257\300\042\224\360\026\300\243\254\175\360\100\150\000\000"};
static struct {unsigned f; char r[16];} string264 = {851984, "\257\300\134\353\367\206\300\202\044\112\356\100\150\000\000"};
static struct {unsigned f; char r[16];} string265 = {851984, "\257\300\312\253\314\243\300\267\126\271\104\100\150\000\000"};
static struct {unsigned f; char r[16];} string266 = {851984, "\257\300\254\253\350\355\300\233\126\335\104\100\150\000\000"};
static struct {unsigned f; char r[16];} string267 = {851984, "\257\300\354\332\367\333\300\361\203\205\173\100\150\000\000"};
static struct {unsigned f; char r[16];} string268 = {851984, "\257\300\271\306\277\300\300\056\100\244\210\100\150\000\000"};
static struct {unsigned f; char r[16];} string269 = {851984, "\257\300\006\114\211\170\300\041\050\350\270\100\150\000\000"};
static struct {unsigned f; char r[16];} string270 = {851984, "\257\300\306\227\367\035\300\335\164\342\360\100\150\000\000"};
static struct {unsigned f; char r[16];} string271 = {851984, "\257\300\153\373\113\366\300\006\007\301\116\100\150\000\000"};
static struct {unsigned f; char r[16];} string272 = {851984, "\257\300\310\055\154\027\300\364\263\217\120\100\150\000\000"};
static struct {unsigned f; char r[16];} string273 = {851984, "\257\300\144\151\072\034\300\012\070\102\254\100\150\000\000"};
static struct {unsigned f; char r[16];} string274 = {851984, "\257\300\260\055\255\331\300\364\235\265\062\100\150\000\000"};
static struct {unsigned f; char r[16];} string275 = {851984, "\257\300\136\253\306\024\300\100\114\357\174\100\150\000\000"};
static struct {
word f0[274]; word f274; word f275; word f276;
word f277; word f278; word f279; word f280;
word f281; word f282; word f283; word f284;
word f285; word f286; word f287; word f288;
word f289; word f290; word f291; word f292;
word f293; word f294; word f295; word f296;
word f297; word f298; word f299; word f300;
word f301; word f302; word f303; word f304;
word f305; word f306; word f307; word f308;
word f309; word f310; word f311; word f312;
word f313; word f314; word f315; word f316;
word f317; word f318; word f319; word f320;
word f321; word f322; word f323; word f324;
word f325; word f326; word f327; word f328;
word f329; word f330; word f331; word f332;
word f333; word f334; word f335; word f336;
word f337; word f338; word f339; word f340;
word f341; word f342; word f343; word f344;
word f345; word f346; word f347; word f348;
word f349; word f350; word f351; word f352;
word f353; word f354; word f355; word f356;
word f357; word f358; word f359; word f360;
word f361; word f362; word f363; word f364;
word f365; word f366; word f367; word f368;
word f369; word f370; word f371[30];
} globalframe = {
{0}, (word) ProfileChanged←P2940, 0, (word) RegisterCommandAtoms←P2880,
0, (word) GetCommandNames←P2820, 0, (word) UnRegisterClosure←P2760,
0, (word) RegisterClosure←P2700, 0, (word) IsRegistered←P2640,
0, (word) UnRegister←P2580, 0, (word) Register←P2520,
0, (word) DispatchCommandProc←P2460, 0, (word) DispatchInternalCommand←P2400,
0, (word) PasteFromWorld←P2340, 0, (word) CopyToWorld←P2280,
0, (word) RegisterInternal←P2220, 0, (word) DoCommand←P2160,
0, (word) GetCommand←P2100, 0, (word) SetCommand←P2040,
0, (word) ReadTipTables←P1980, 0, (word) MaxLevelShown←P1920,
0, (word) CheckFirstLevel←P1860, 0, (word) ForkPaint←P1800,
0, (word) Extend←P1680, 0, (word) AbortSecondary←P1620,
0, (word) NormalizeViewer←P1560, 0, (word) CheckSelection←P1500,
0, (word) UpdateSavedSelections←P1440, 0, (word) Split←P1380,
0, (word) MakePointSelection←P1320, 0, (word) DoEdit←P1260,
0, (word) FewerLevels←P1200, 0, (word) MoreLevels←P1140,
0, (word) FirstLevelOnly←P1080, 0, (word) AllLevels←P1020,
0, (word) SaveSelectionB←P960, 0, (word) RestoreSelectionB←P900,
0, (word) SaveSelectionA←P840, 0, (word) RestoreSelectionA←P780,
0, (word) Normalize←P720, 0, (word) NumberToLook←P660,
0, (word) InterpInput←P600, 0, (word) SaveCoords←P540,
0, (word) ResetInputStuff←P480, 0, (word) InterpAtom←P420,
0, (word) TEditNotifyProc←P360, 0, (word) InterpretAtom←P300,
0, (word) Interpret←P240, 0, (word) EditMessage←P180,
0, (word) GetInternalCommandCounts←P120, 0, (word) SetTraceProcs←P60,
0, (word) TEditInputImpl←P0, {0}
};
static void NoName←Q7080()
{
register ptr gf←c0525 = (ptr) &globalframe;
word var←c62876;
(* (( (ptr) gf←c0525)+30) ) = (word) XR←GetTypeIndexS((word) (&string1));
(* (( (ptr) gf←c0525)+31) ) = (word) XR←GetTypeIndex((word) &string2, 0, (word) &string3);
(* (( (ptr) gf←c0525)+34) ) = (word) XR←GetTypeIndexS((word) (&string4));
(* (( (ptr) gf←c0525)+36) ) = (word) XR←GetTypeIndexS((word) (&string5));
(* (( (ptr) gf←c0525)+37) ) = (word) XR←GetTypeIndex((word) &string6, 0, (word) &string7);
(* (( (ptr) gf←c0525)+40) ) = (word) XR←GetTypeIndex((word) &string8, 0, (word) &string9);
(* (( (ptr) gf←c0525)+41) ) = (word) XR←GetTypeIndex((word) &string10, 0, (word) &string11);
(* (( (ptr) gf←c0525)+42) ) = (word) XR←GetTypeIndex((word) &string12, 0, (word) &string9);
(* (( (ptr) gf←c0525)+43) ) = (word) XR←GetTypeIndexS((word) (&string13));
(* (( (ptr) gf←c0525)+45) ) = (word) XR←GetTypeIndexS((word) (&string14));
(* (( (ptr) gf←c0525)+46) ) = (word) XR←GetTypeIndexS((word) (&string15));
(* (( (ptr) gf←c0525)+47) ) = (word) XR←GetTypeIndex((word) &string16, 0, (word) &string17);
(* (( (ptr) gf←c0525)+48) ) = (word) XR←GetTypeIndex((word) &string18, 0, (word) &string11);
(* (( (ptr) gf←c0525)+49) ) = (word) XR←GetTypeIndex((word) &string19, 0, (word) &string20);
(* (( (ptr) gf←c0525)+50) ) = (word) XR←GetTypeIndexS((word) (&string21));
(* (( (ptr) gf←c0525)+51) ) = (word) XR←GetTypeIndexS((word) (&string22));
(* (( (ptr) gf←c0525)+52) ) = (word) XR←GetTypeIndexS((word) (&string23));
(* (( (ptr) gf←c0525)+53) ) = (word) XR←GetTypeIndex((word) &string24, 0, (word) &string25);
(* (ptr) (( (bPt) gf←c0525)+216) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+48) ), (word) &string26);
(* (ptr) (( (bPt) gf←c0525)+220) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+48) ), (word) &string27);
(* (ptr) (( (bPt) gf←c0525)+224) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+48) ), (word) &string28);
(* (ptr) (( (bPt) gf←c0525)+228) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+48) ), (word) &string29);
(* (ptr) (( (bPt) gf←c0525)+232) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+48) ), (word) &string30);
(* (ptr) (( (bPt) gf←c0525)+236) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+48) ), (word) &string31);
(* (ptr) (( (bPt) gf←c0525)+240) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+48) ), (word) &string32);
(* (ptr) (( (bPt) gf←c0525)+244) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+48) ), (word) &string33);
(* (ptr) (( (bPt) gf←c0525)+248) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+48) ), (word) &string34);
(* (ptr) (( (bPt) gf←c0525)+252) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+48) ), (word) &string35);
(* (ptr) (( (bPt) gf←c0525)+256) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+48) ), (word) &string36);
(* (ptr) (( (bPt) gf←c0525)+260) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+48) ), (word) &string37);
(* (ptr) (( (bPt) gf←c0525)+264) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+48) ), (word) &string38);
(* (ptr) (( (bPt) gf←c0525)+268) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+48) ), (word) &string39);
(* (ptr) (( (bPt) gf←c0525)+272) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+48) ), (word) &string40);
(* (ptr) (( (bPt) gf←c0525)+276) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string41);
(* (ptr) (( (bPt) gf←c0525)+280) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+48) ), (word) &string42);
(* (ptr) (( (bPt) gf←c0525)+284) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+48) ), (word) &string43);
(* (ptr) (( (bPt) gf←c0525)+288) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+48) ), (word) &string44);
(* (ptr) (( (bPt) gf←c0525)+292) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+48) ), (word) &string45);
(* (ptr) (( (bPt) gf←c0525)+296) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+48) ), (word) &string46);
(* (ptr) (( (bPt) gf←c0525)+300) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+48) ), (word) &string47);
(* (ptr) (( (bPt) gf←c0525)+304) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+48) ), (word) &string48);
(* (ptr) (( (bPt) gf←c0525)+308) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+48) ), (word) &string49);
(* (ptr) (( (bPt) gf←c0525)+312) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+48) ), (word) &string50);
(* (ptr) (( (bPt) gf←c0525)+316) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string51);
(* (ptr) (( (bPt) gf←c0525)+320) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string52);
(* (ptr) (( (bPt) gf←c0525)+324) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string53);
(* (ptr) (( (bPt) gf←c0525)+328) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string54);
(* (ptr) (( (bPt) gf←c0525)+332) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string55);
(* (ptr) (( (bPt) gf←c0525)+336) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string56);
(* (ptr) (( (bPt) gf←c0525)+340) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string57);
(* (ptr) (( (bPt) gf←c0525)+344) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string58);
(* (ptr) (( (bPt) gf←c0525)+348) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string59);
(* (ptr) (( (bPt) gf←c0525)+352) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+48) ), (word) &string60);
(* (ptr) (( (bPt) gf←c0525)+356) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string61);
(* (ptr) (( (bPt) gf←c0525)+360) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+48) ), (word) &string62);
(* (ptr) (( (bPt) gf←c0525)+364) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+48) ), (word) &string63);
(* (ptr) (( (bPt) gf←c0525)+368) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+48) ), (word) &string64);
(* (ptr) (( (bPt) gf←c0525)+372) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string65);
(* (ptr) (( (bPt) gf←c0525)+376) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string66);
(* (ptr) (( (bPt) gf←c0525)+380) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+48) ), (word) &string67);
(* (ptr) (( (bPt) gf←c0525)+384) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+48) ), (word) &string68);
(* (ptr) (( (bPt) gf←c0525)+388) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string69);
(* (ptr) (( (bPt) gf←c0525)+392) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+48) ), (word) &string70);
(* (ptr) (( (bPt) gf←c0525)+396) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+48) ), (word) &string71);
(* (ptr) (( (bPt) gf←c0525)+400) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+48) ), (word) &string72);
(* (ptr) (( (bPt) gf←c0525)+404) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string73);
(* (ptr) (( (bPt) gf←c0525)+408) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string60);
(* (ptr) (( (bPt) gf←c0525)+412) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string74);
(* (ptr) (( (bPt) gf←c0525)+416) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string75);
(* (ptr) (( (bPt) gf←c0525)+420) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string76);
(* (ptr) (( (bPt) gf←c0525)+424) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string77);
(* (ptr) (( (bPt) gf←c0525)+428) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string78);
(* (ptr) (( (bPt) gf←c0525)+432) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string79);
(* (ptr) (( (bPt) gf←c0525)+436) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string80);
(* (ptr) (( (bPt) gf←c0525)+440) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string81);
(* (ptr) (( (bPt) gf←c0525)+444) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string82);
(* (ptr) (( (bPt) gf←c0525)+448) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string83);
(* (ptr) (( (bPt) gf←c0525)+452) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string84);
(* (ptr) (( (bPt) gf←c0525)+456) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string85);
(* (ptr) (( (bPt) gf←c0525)+460) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string86);
(* (ptr) (( (bPt) gf←c0525)+464) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string87);
(* (ptr) (( (bPt) gf←c0525)+468) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string88);
(* (ptr) (( (bPt) gf←c0525)+472) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string89);
(* (ptr) (( (bPt) gf←c0525)+476) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string90);
(* (ptr) (( (bPt) gf←c0525)+480) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string91);
(* (ptr) (( (bPt) gf←c0525)+484) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string92);
(* (ptr) (( (bPt) gf←c0525)+488) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string93);
(* (ptr) (( (bPt) gf←c0525)+492) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string94);
(* (ptr) (( (bPt) gf←c0525)+496) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string95);
(* (ptr) (( (bPt) gf←c0525)+500) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string96);
(* (ptr) (( (bPt) gf←c0525)+504) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string97);
(* (ptr) (( (bPt) gf←c0525)+508) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string98);
(* (ptr) (( (bPt) gf←c0525)+512) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string99);
(* (ptr) (( (bPt) gf←c0525)+516) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string100);
(* (ptr) (( (bPt) gf←c0525)+520) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string101);
(* (ptr) (( (bPt) gf←c0525)+524) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string102);
(* (ptr) (( (bPt) gf←c0525)+528) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string103);
(* (ptr) (( (bPt) gf←c0525)+532) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string104);
(* (ptr) (( (bPt) gf←c0525)+536) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string105);
(* (ptr) (( (bPt) gf←c0525)+540) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string106);
(* (ptr) (( (bPt) gf←c0525)+544) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string107);
(* (ptr) (( (bPt) gf←c0525)+548) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string108);
(* (ptr) (( (bPt) gf←c0525)+552) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string109);
(* (ptr) (( (bPt) gf←c0525)+556) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string110);
(* (ptr) (( (bPt) gf←c0525)+560) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string111);
(* (ptr) (( (bPt) gf←c0525)+564) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string112);
(* (ptr) (( (bPt) gf←c0525)+568) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string113);
(* (ptr) (( (bPt) gf←c0525)+572) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string114);
(* (ptr) (( (bPt) gf←c0525)+576) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string115);
(* (ptr) (( (bPt) gf←c0525)+580) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string116);
(* (ptr) (( (bPt) gf←c0525)+584) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string117);
(* (ptr) (( (bPt) gf←c0525)+588) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string118);
(* (ptr) (( (bPt) gf←c0525)+592) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string119);
(* (ptr) (( (bPt) gf←c0525)+596) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string120);
(* (ptr) (( (bPt) gf←c0525)+600) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string121);
(* (ptr) (( (bPt) gf←c0525)+604) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string122);
(* (ptr) (( (bPt) gf←c0525)+608) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string123);
(* (ptr) (( (bPt) gf←c0525)+612) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string124);
(* (ptr) (( (bPt) gf←c0525)+616) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string125);
(* (ptr) (( (bPt) gf←c0525)+620) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string126);
(* (ptr) (( (bPt) gf←c0525)+624) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string127);
(* (ptr) (( (bPt) gf←c0525)+628) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string128);
(* (ptr) (( (bPt) gf←c0525)+632) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string129);
(* (ptr) (( (bPt) gf←c0525)+636) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string130);
(* (ptr) (( (bPt) gf←c0525)+640) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string131);
(* (ptr) (( (bPt) gf←c0525)+644) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string132);
(* (ptr) (( (bPt) gf←c0525)+648) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string133);
(* (ptr) (( (bPt) gf←c0525)+652) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string134);
(* (ptr) (( (bPt) gf←c0525)+656) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string135);
(* (ptr) (( (bPt) gf←c0525)+660) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string136);
(* (ptr) (( (bPt) gf←c0525)+664) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string137);
(* (ptr) (( (bPt) gf←c0525)+668) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string138);
(* (ptr) (( (bPt) gf←c0525)+672) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string139);
(* (ptr) (( (bPt) gf←c0525)+676) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string140);
(* (ptr) (( (bPt) gf←c0525)+680) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string141);
(* (ptr) (( (bPt) gf←c0525)+684) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string142);
(* (ptr) (( (bPt) gf←c0525)+688) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string143);
(* (ptr) (( (bPt) gf←c0525)+692) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string144);
(* (ptr) (( (bPt) gf←c0525)+696) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string145);
(* (ptr) (( (bPt) gf←c0525)+700) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string146);
(* (ptr) (( (bPt) gf←c0525)+704) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string147);
(* (ptr) (( (bPt) gf←c0525)+708) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string148);
(* (ptr) (( (bPt) gf←c0525)+712) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string149);
(* (ptr) (( (bPt) gf←c0525)+716) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string150);
(* (ptr) (( (bPt) gf←c0525)+720) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string151);
(* (ptr) (( (bPt) gf←c0525)+724) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string152);
(* (ptr) (( (bPt) gf←c0525)+728) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string153);
(* (ptr) (( (bPt) gf←c0525)+732) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string154);
(* (ptr) (( (bPt) gf←c0525)+736) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string155);
(* (ptr) (( (bPt) gf←c0525)+740) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string156);
(* (ptr) (( (bPt) gf←c0525)+744) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string157);
(* (ptr) (( (bPt) gf←c0525)+748) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string158);
(* (ptr) (( (bPt) gf←c0525)+752) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string159);
(* (ptr) (( (bPt) gf←c0525)+756) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string160);
(* (ptr) (( (bPt) gf←c0525)+760) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string161);
(* (ptr) (( (bPt) gf←c0525)+764) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string162);
(* (ptr) (( (bPt) gf←c0525)+768) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string163);
(* (ptr) (( (bPt) gf←c0525)+772) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string164);
(* (ptr) (( (bPt) gf←c0525)+776) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string165);
(* (ptr) (( (bPt) gf←c0525)+780) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string166);
(* (ptr) (( (bPt) gf←c0525)+784) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string167);
(* (ptr) (( (bPt) gf←c0525)+788) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string168);
(* (ptr) (( (bPt) gf←c0525)+792) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string169);
(* (ptr) (( (bPt) gf←c0525)+796) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string170);
(* (ptr) (( (bPt) gf←c0525)+800) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string171);
(* (ptr) (( (bPt) gf←c0525)+804) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string172);
(* (ptr) (( (bPt) gf←c0525)+808) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string173);
(* (ptr) (( (bPt) gf←c0525)+812) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string174);
(* (ptr) (( (bPt) gf←c0525)+816) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string175);
(* (ptr) (( (bPt) gf←c0525)+820) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string176);
(* (ptr) (( (bPt) gf←c0525)+824) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string177);
(* (ptr) (( (bPt) gf←c0525)+828) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string178);
(* (ptr) (( (bPt) gf←c0525)+832) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string179);
(* (ptr) (( (bPt) gf←c0525)+836) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string180);
(* (ptr) (( (bPt) gf←c0525)+840) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string181);
(* (ptr) (( (bPt) gf←c0525)+844) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string182);
(* (ptr) (( (bPt) gf←c0525)+848) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string183);
(* (ptr) (( (bPt) gf←c0525)+852) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string184);
(* (ptr) (( (bPt) gf←c0525)+856) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string185);
(* (ptr) (( (bPt) gf←c0525)+860) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string186);
(* (ptr) (( (bPt) gf←c0525)+864) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string187);
(* (ptr) (( (bPt) gf←c0525)+868) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string188);
(* (ptr) (( (bPt) gf←c0525)+872) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string46);
(* (ptr) (( (bPt) gf←c0525)+876) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string50);
(* (ptr) (( (bPt) gf←c0525)+880) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string49);
(* (ptr) (( (bPt) gf←c0525)+884) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string48);
(* (ptr) (( (bPt) gf←c0525)+888) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string189);
(* (ptr) (( (bPt) gf←c0525)+892) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string190);
(* (ptr) (( (bPt) gf←c0525)+896) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string191);
(* (ptr) (( (bPt) gf←c0525)+900) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string192);
(* (ptr) (( (bPt) gf←c0525)+904) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string193);
(* (ptr) (( (bPt) gf←c0525)+908) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string194);
(* (ptr) (( (bPt) gf←c0525)+912) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string195);
(* (ptr) (( (bPt) gf←c0525)+916) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string196);
(* (ptr) (( (bPt) gf←c0525)+920) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string197);
(* (ptr) (( (bPt) gf←c0525)+924) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string198);
(* (ptr) (( (bPt) gf←c0525)+928) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string199);
(* (ptr) (( (bPt) gf←c0525)+932) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string200);
(* (ptr) (( (bPt) gf←c0525)+936) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string201);
(* (ptr) (( (bPt) gf←c0525)+940) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string202);
(* (ptr) (( (bPt) gf←c0525)+944) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string203);
(* (ptr) (( (bPt) gf←c0525)+948) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string204);
(* (ptr) (( (bPt) gf←c0525)+952) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string205);
(* (ptr) (( (bPt) gf←c0525)+956) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string206);
(* (ptr) (( (bPt) gf←c0525)+960) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string207);
(* (ptr) (( (bPt) gf←c0525)+964) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string208);
(* (ptr) (( (bPt) gf←c0525)+968) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string209);
(* (ptr) (( (bPt) gf←c0525)+972) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string210);
(* (ptr) (( (bPt) gf←c0525)+976) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string211);
(* (ptr) (( (bPt) gf←c0525)+980) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string212);
(* (ptr) (( (bPt) gf←c0525)+984) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string213);
(* (ptr) (( (bPt) gf←c0525)+988) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string214);
(* (ptr) (( (bPt) gf←c0525)+992) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string215);
(* (ptr) (( (bPt) gf←c0525)+996) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string216);
(* (ptr) (( (bPt) gf←c0525)+1000) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string217);
(* (ptr) (( (bPt) gf←c0525)+1004) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string218);
(* (ptr) (( (bPt) gf←c0525)+1008) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string219);
(* (ptr) (( (bPt) gf←c0525)+1012) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string220);
(* (ptr) (( (bPt) gf←c0525)+1016) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string221);
(* (ptr) (( (bPt) gf←c0525)+1020) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string222);
(* (ptr) (( (bPt) gf←c0525)+1024) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string223);
(* (ptr) (( (bPt) gf←c0525)+1028) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string224);
(* (ptr) (( (bPt) gf←c0525)+1032) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string225);
(* (ptr) (( (bPt) gf←c0525)+1036) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string226);
(* (ptr) (( (bPt) gf←c0525)+1040) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string227);
(* (ptr) (( (bPt) gf←c0525)+1044) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string228);
(* (ptr) (( (bPt) gf←c0525)+1048) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string229);
(* (ptr) (( (bPt) gf←c0525)+1052) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string230);
(* (ptr) (( (bPt) gf←c0525)+1056) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string231);
(* (ptr) (( (bPt) gf←c0525)+1060) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string232);
(* (ptr) (( (bPt) gf←c0525)+1064) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string233);
(* (ptr) (( (bPt) gf←c0525)+1068) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string234);
(* (ptr) (( (bPt) gf←c0525)+1072) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string235);
(* (ptr) (( (bPt) gf←c0525)+1076) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string236);
(* (ptr) (( (bPt) gf←c0525)+1080) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string237);
(* (ptr) (( (bPt) gf←c0525)+1084) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0525)+41) ), (word) &string238);
(void) XR←DeclareGlobalFrame((word) "TEditInputImpl", &globalframe, (word) XR←GetTypeIndex((word) &string239, 0, (word) &string240)
, (word) (( (bPt) gf←c0525)+1480)/* var←c57276 */ );
var←c62876 = (word) XR←ImportInterface((word) "Atom", (word) XR←GetTypeIndexS((word) (&string241)), 16);
(* (( (ptr) gf←c0525)+377)/* var←c58172 */ ) = var←c62876;
(void) XR←ImportProcS(var←c62876, 67372289);
var←c62876 = (word) XR←ImportInterface((word) "EditSpan", (word) XR←GetTypeIndexS((word) (&string242)), 23);
(* (( (ptr) gf←c0525)+389)/* var←c60796 */ ) = var←c62876;
(void) XR←ImportProcS(var←c62876, 67637762);
var←c62876 = (word) XR←ImportInterface((word) "EditSpanSupport", (word) XR←GetTypeIndexS((word) (&string243)), 27);
(* (( (ptr) gf←c0525)+397)/* var←c61564 */ ) = var←c62876;
(void) XR←ImportProcS(var←c62876, 1316354);
var←c62876 = (word) XR←ImportInterface((word) "InputFocus", (word) XR←GetTypeIndexS((word) (&string244)), 6);
(* (( (ptr) gf←c0525)+394)/* var←c61276 */ ) = var←c62876;
(void) XR←ImportProcS(var←c62876, 524546);
var←c62876 = (word) XR←ImportInterface((word) "MessageWindow", (word) XR←GetTypeIndexS((word) (&string245)), 7);
(* (( (ptr) gf←c0525)+376)/* var←c58076 */ ) = var←c62876;
(void) XR←ImportProcS(var←c62876, 512);
(void) XR←ImportProcS(var←c62876, 0);
(void) XR←ImportProcS(var←c62876, 524546);
var←c62876 = (word) XR←ImportInterface((word) "NodeAddrs", (word) XR←GetTypeIndexS((word) (&string246)), 15);
(* (( (ptr) gf←c0525)+374)/* var←c57500 */ ) = var←c62876;
(void) XR←ImportProcS(var←c62876, 264961);
var←c62876 = (word) XR←ImportInterface((word) "RefTab", (word) XR←GetTypeIndexS((word) (&string247)), 16);
(* (( (ptr) gf←c0525)+372)/* var←c57340 */ ) = var←c62876;
(void) XR←ImportProcS(var←c62876, 67635458);
(void) XR←ImportProcS(var←c62876, 67634946);
(void) XR←ImportProcS(var←c62876, 67896579);
(void) XR←ImportProcS(var←c62876, 134742786);
(void) XR←ImportProcS(var←c62876, 67895555);
var←c62876 = (word) XR←ImportInterface((word) "Rope", (word) XR←GetTypeIndexS((word) (&string248)), 43);
(* (( (ptr) gf←c0525)+378)/* var←c58204 */ ) = var←c62876;
(void) XR←ImportProcS(var←c62876, 68419845);
(void) XR←ImportProcS(var←c62876, 67898627);
(void) XR←ImportProcS(var←c62876, 67903235);
(void) XR←ImportProcS(var←c62876, 67633666);
var←c62876 = (word) XR←ImportInterface((word) "TEditDisplay", (word) XR←GetTypeIndexS((word) (&string249)), 4);
(* (( (ptr) gf←c0525)+385)/* var←c59804 */ ) = var←c62876;
(void) XR←ImportProcS(var←c62876, 1048579);
var←c62876 = (word) XR←ImportInterface((word) "TEditDocument", (word) XR←GetTypeIndexS((word) (&string250)), 6);
(* (( (ptr) gf←c0525)+381)/* var←c59004 */ ) = var←c62876;
(void) XR←ImportProcS(var←c62876, 262657);
(void) XR←ImportProcS(var←c62876, 68157700);
var←c62876 = (word) XR←ImportInterface((word) &string251, (word) XR←GetTypeIndexS((word) (&string252)), 44);
(* (( (ptr) gf←c0525)+380)/* var←c58300 */ ) = var←c62876;
(void) XR←ImportProcS(var←c62876, 2816);
(void) XR←ImportProcS(var←c62876, 266241);
(void) XR←ImportProcS(var←c62876, 266497);
var←c62876 = (word) XR←ImportInterface((word) "TEditInputOps", (word) XR←GetTypeIndexS((word) (&string253)), 66);
(* (( (ptr) gf←c0525)+379)/* var←c58236 */ ) = var←c62876;
(void) XR←ImportProcS(var←c62876, 277761);
(void) XR←ImportProcS(var←c62876, 278529);
(void) XR←ImportProcS(var←c62876, 273409);
(void) XR←ImportProcS(var←c62876, 273921);
(void) XR←ImportProcS(var←c62876, 535042);
(void) XR←ImportProcS(var←c62876, 14336);
(void) XR←ImportProcS(var←c62876, 534786);
(void) XR←ImportProcS(var←c62876, 5888);
(void) XR←ImportProcS(var←c62876, 5376);
(void) XR←ImportProcS(var←c62876, 5632);
(void) XR←ImportProcS(var←c62876, 5120);
(void) XR←ImportProcS(var←c62876, 1024);
(void) XR←ImportProcS(var←c62876, 274689);
(void) XR←ImportProcS(var←c62876, 8192);
(void) XR←ImportProcS(var←c62876, 15104);
(void) XR←ImportProcS(var←c62876, 14848);
(void) XR←ImportProcS(var←c62876, 6912);
(void) XR←ImportProcS(var←c62876, 6656);
(void) XR←ImportProcS(var←c62876, 7936);
(void) XR←ImportProcS(var←c62876, 7680);
(void) XR←ImportProcS(var←c62876, 7424);
(void) XR←ImportProcS(var←c62876, 12288);
(void) XR←ImportProcS(var←c62876, 13824);
(void) XR←ImportProcS(var←c62876, 270593);
(void) XR←ImportProcS(var←c62876, 16128);
(void) XR←ImportProcS(var←c62876, 266241);
(void) XR←ImportProcS(var←c62876, 266497);
(void) XR←ImportProcS(var←c62876, 265217);
(void) XR←ImportProcS(var←c62876, 265473);
(void) XR←ImportProcS(var←c62876, 265729);
(void) XR←ImportProcS(var←c62876, 265985);
(void) XR←ImportProcS(var←c62876, 264961);
(void) XR←ImportProcS(var←c62876, 264705);
(void) XR←ImportProcS(var←c62876, 264449);
(void) XR←ImportProcS(var←c62876, 264193);
(void) XR←ImportProcS(var←c62876, 537602);
(void) XR←ImportProcS(var←c62876, 537858);
(void) XR←ImportProcS(var←c62876, 537090);
(void) XR←ImportProcS(var←c62876, 537346);
(void) XR←ImportProcS(var←c62876, 524290);
(void) XR←ImportProcS(var←c62876, 272385);
(void) XR←ImportProcS(var←c62876, 272129);
(void) XR←ImportProcS(var←c62876, 271873);
(void) XR←ImportProcS(var←c62876, 271617);
(void) XR←ImportProcS(var←c62876, 271361);
(void) XR←ImportProcS(var←c62876, 271105);
(void) XR←ImportProcS(var←c62876, 268545);
(void) XR←ImportProcS(var←c62876, 6144);
(void) XR←ImportProcS(var←c62876, 262913);
(void) XR←ImportProcS(var←c62876, 262657);
(void) XR←ImportProcS(var←c62876, 263681);
(void) XR←ImportProcS(var←c62876, 263425);
(void) XR←ImportProcS(var←c62876, 1792);
var←c62876 = (word) XR←ImportInterface((word) "TEditOps", (word) XR←GetTypeIndexS((word) (&string254)), 12);
(* (( (ptr) gf←c0525)+387)/* var←c59932 */ ) = var←c62876;
(void) XR←ImportProcS(var←c62876, 263681);
(void) XR←ImportProcS(var←c62876, 526338);
(void) XR←ImportProcS(var←c62876, 526082);
var←c62876 = (word) XR←ImportInterface((word) &string255, (word) XR←GetTypeIndexS((word) (&string256)), 12);
(* (( (ptr) gf←c0525)+393)/* var←c61244 */ ) = var←c62876;
(void) XR←ImportProcS(var←c62876, 2560);
(void) XR←ImportProcS(var←c62876, 2048);
(void) XR←ImportProcS(var←c62876, 1792);
var←c62876 = (word) XR←ImportInterface((word) "TEditProfile", (word) XR←GetTypeIndexS((word) (&string257)), 19);
(* (( (ptr) gf←c0525)+399)/* var←c62108 */ ) = var←c62876;
(void) XR←ImportProcS(var←c62876, 768);
var←c62876 = (word) XR←ImportInterface((word) "TEditScrolling", (word) XR←GetTypeIndexS((word) (&string258)), 3);
(* (( (ptr) gf←c0525)+391)/* var←c60924 */ ) = var←c62876;
(void) XR←ImportProcS(var←c62876, 1048835);
var←c62876 = (word) XR←ImportInterface((word) "TEditSelection", (word) XR←GetTypeIndexS((word) (&string259)), 68);
(* (( (ptr) gf←c0525)+373)/* var←c57436 */ ) = var←c62876;
(void) XR←ImportProcS(var←c62876, 3328);
(void) XR←ImportProcS(var←c62876, 3072);
(void) XR←ImportProcS(var←c62876, 2816);
(void) XR←ImportProcS(var←c62876, 2560);
(void) XR←ImportProcS(var←c62876, 12288);
(void) XR←ImportProcS(var←c62876, 12544);
(void) XR←ImportProcS(var←c62876, 11520);
(void) XR←ImportProcS(var←c62876, 12032);
(void) XR←ImportProcS(var←c62876, 11264);
(void) XR←ImportProcS(var←c62876, 12800);
(void) XR←ImportProcS(var←c62876, 13056);
(void) XR←ImportProcS(var←c62876, 1586694);
(void) XR←ImportProcS(var←c62876, 1587462);
(void) XR←ImportProcS(var←c62876, 1586950);
(void) XR←ImportProcS(var←c62876, 1586438);
(void) XR←ImportProcS(var←c62876, 1587206);
(void) XR←ImportProcS(var←c62876, 541442);
(void) XR←ImportProcS(var←c62876, 1588998);
(void) XR←ImportProcS(var←c62876, 270081);
(void) XR←ImportProcS(var←c62876, 2112008);
(void) XR←ImportProcS(var←c62876, 526338);
(void) XR←ImportProcS(var←c62876, 1316101);
(void) XR←ImportProcS(var←c62876, 790275);
(void) XR←ImportProcS(var←c62876, 134495233);
(void) XR←ImportProcS(var←c62876, 797186);
(void) XR←ImportProcS(var←c62876, 266753);
(void) XR←ImportProcS(var←c62876, 528642);
(void) XR←ImportProcS(var←c62876, 67110144);
var←c62876 = (word) XR←ImportInterface((word) "TEditSelectionOpsExtras", (word) XR←GetTypeIndexS((word) (&string260)), 2)
;
(* (( (ptr) gf←c0525)+398)/* var←c61852 */ ) = var←c62876;
(void) XR←ImportProcS(var←c62876, 67633154);
(void) XR←ImportProcS(var←c62876, 262401);
var←c62876 = (word) XR←ImportInterface((word) "TEditTouchup", (word) XR←GetTypeIndexS((word) (&string261)), 6);
(* (( (ptr) gf←c0525)+382)/* var←c59164 */ ) = var←c62876;
(void) XR←ImportProcS(var←c62876, 67633922);
(void) XR←ImportProcS(var←c62876, 263425);
var←c62876 = (word) XR←ImportInterface((word) "TextEdit", (word) XR←GetTypeIndexS((word) (&string262)), 39);
(* (( (ptr) gf←c0525)+390)/* var←c60828 */ ) = var←c62876;
(void) XR←ImportProcS(var←c62876, 67380481);
(void) XR←ImportProcS(var←c62876, 67371521);
var←c62876 = (word) XR←ImportInterface((word) "TextNode", (word) XR←GetTypeIndexS((word) (&string263)), 34);
(* (( (ptr) gf←c0525)+388)/* var←c60764 */ ) = var←c62876;
(void) XR←ImportProcS(var←c62876, 135007491);
(void) XR←ImportProcS(var←c62876, 67372033);
(void) XR←ImportProcS(var←c62876, 67374081);
(void) XR←ImportProcS(var←c62876, 67377153);
(void) XR←ImportProcS(var←c62876, 67372289);
var←c62876 = (word) XR←ImportInterface((word) "UserProfile", (word) XR←GetTypeIndexS((word) (&string264)), 11);
(* (( (ptr) gf←c0525)+375)/* var←c57532 */ ) = var←c62876;
(void) XR←ImportProcS(var←c62876, 264193);
var←c62876 = (word) XR←ImportInterface((word) "ViewerForkers", (word) XR←GetTypeIndexS((word) (&string265)), 2);
(* (( (ptr) gf←c0525)+386)/* var←c59836 */ ) = var←c62876;
(void) XR←ImportProcS(var←c62876, 1310725);
var←c62876 = (word) XR←ImportInterface((word) "ViewerLocks", (word) XR←GetTypeIndexS((word) (&string266)), 9);
(* (( (ptr) gf←c0525)+384)/* var←c59772 */ ) = var←c62876;
(void) XR←ImportProcS(var←c62876, 1048836);
var←c62876 = (word) XR←ImportInterface((word) "ViewerOps", (word) XR←GetTypeIndexS((word) (&string267)), 43);
(* (( (ptr) gf←c0525)+383)/* var←c59740 */ ) = var←c62876;
(void) XR←ImportProcS(var←c62876, 527106);
(void) XR←ImportProcS(var←c62876, 792579);
(void) XR←ImportProcS(var←c62876, 793603);
(void) XR←ImportProcS(var←c62876, 532994);
(void) XR←ImportProcS(var←c62876, 67639554);
(void) XR←ImportProcS(var←c62876, 788739);
(void) XR←ImportProcS(var←c62876, 1049348);
(void) XR←ImportProcS(var←c62876, 74973699);
var←c62876 = (word) XR←ImportInterface((word) "ViewersWorld", (word) XR←GetTypeIndexS((word) (&string268)), 26);
(* (( (ptr) gf←c0525)+396)/* var←c61468 */ ) = var←c62876;
(void) XR←ImportProcS(var←c62876, 67636482);
(void) XR←ImportProcS(var←c62876, 789507);
var←c62876 = (word) XR←ImportInterface((word) "ViewersWorldInstance", (word) XR←GetTypeIndexS((word) (&string269)), 2);
(* (( (ptr) gf←c0525)+395)/* var←c61436 */ ) = var←c62876;
(void) XR←ImportProcS(var←c62876, 67108864);
var←c62876 = (word) XR←ImportInterface((word) "WindowManager", (word) XR←GetTypeIndexS((word) (&string270)), 7);
(* (( (ptr) gf←c0525)+392)/* var←c61212 */ ) = var←c62876;
(void) XR←ImportProcS(var←c62876, 256);
(void) XR←ImportProcS(var←c62876, 262145);
var←c62876 = (word) XR←ExportInterface((word) &string251, (word) XR←GetTypeIndexS((word) (&string252)), 44);
(* (( (ptr) gf←c0525)+400)/* var←c62908 */ ) = var←c62876;
(void) XR←ExportVar(var←c62876, 0, (word) (( (bPt) gf←c0525)+100)/* interpreterNesting←v5212 */ );
(void) XR←ExportVar(var←c62876, 1, (word) (( (bPt) gf←c0525)+88)/* interrupt←v4932 */ );
(void) XR←ExportVar(var←c62876, 3, (word) (( (bPt) gf←c0525)+72)/* editState←v4764 */ );
(void) XR←ExportProcS(var←c62876, (word) (( (bPt) gf←c0525)+1152)/* var←c55964 */ , 789507);
(void) XR←ExportProcS(var←c62876, (word) (( (bPt) gf←c0525)+1144)/* var←c55932 */ , 527618);
(void) XR←ExportProcS(var←c62876, (word) (( (bPt) gf←c0525)+1136)/* var←c55900 */ , 67636738);
(void) XR←ExportProcS(var←c62876, (word) (( (bPt) gf←c0525)+1216)/* var←c56220 */ , 529154);
(void) XR←ExportProcS(var←c62876, (word) (( (bPt) gf←c0525)+1208)/* var←c56188 */ , 67376129);
(void) XR←ExportProcS(var←c62876, (word) (( (bPt) gf←c0525)+1400)/* var←c56956 */ , 791811);
(void) XR←ExportProcS(var←c62876, (word) (( (bPt) gf←c0525)+1448)/* var←c57148 */ , 529922);
(void) XR←ExportVar(var←c62876, 23, (word) (( (bPt) gf←c0525)+1092));
(void) XR←ExportVar(var←c62876, 24, (word) (( (bPt) gf←c0525)+1088));
(void) XR←ExportProcS(var←c62876, (word) (( (bPt) gf←c0525)+1440)/* var←c57116 */ , 530690);
(void) XR←ExportProcS(var←c62876, (word) (( (bPt) gf←c0525)+1416)/* var←c57020 */ , 6656);
(void) XR←ExportProcS(var←c62876, (word) (( (bPt) gf←c0525)+1408)/* var←c56988 */ , 531202);
(void) XR←ExportProcS(var←c62876, (word) (( (bPt) gf←c0525)+1224)/* var←c56252 */ , 7168);
(void) XR←ExportProcS(var←c62876, (word) (( (bPt) gf←c0525)+1280)/* var←c56476 */ , 67378433);
(void) XR←ExportProcS(var←c62876, (word) (( (bPt) gf←c0525)+1344)/* var←c56732 */ , 134487809);
(void) XR←ExportProcS(var←c62876, (word) (( (bPt) gf←c0525)+1336)/* var←c56700 */ , 134488065);
(void) XR←ExportProcS(var←c62876, (word) (( (bPt) gf←c0525)+1328)/* var←c56668 */ , 134488321);
(void) XR←ExportProcS(var←c62876, (word) (( (bPt) gf←c0525)+1320)/* var←c56636 */ , 134488577);
(void) XR←ExportProcS(var←c62876, (word) (( (bPt) gf←c0525)+1232)/* var←c56284 */ , 67379969);
(void) XR←ExportProcS(var←c62876, (word) (( (bPt) gf←c0525)+1304)/* var←c56572 */ , 134489089);
(void) XR←ExportProcS(var←c62876, (word) (( (bPt) gf←c0525)+1384)/* var←c56892 */ , 134489345);
(void) XR←ExportProcS(var←c62876, (word) (( (bPt) gf←c0525)+1376)/* var←c56860 */ , 134490113);
(void) XR←ExportProcS(var←c62876, (word) (( (bPt) gf←c0525)+1368)/* var←c56828 */ , 134490369);
(void) XR←ExportProcS(var←c62876, (word) (( (bPt) gf←c0525)+1360)/* var←c56796 */ , 134490625);
(void) XR←ExportProcS(var←c62876, (word) (( (bPt) gf←c0525)+1352)/* var←c56764 */ , 134490881);
var←c62876 = (word) XR←ExportInterface((word) "TEditInputBackdoor", (word) XR←GetTypeIndexS((word) (&string271)), 7);
(* (( (ptr) gf←c0525)+400)/* var←c62908 */ ) = var←c62876;
(void) XR←ExportVar(var←c62876, 0, (word) (( (bPt) gf←c0525)+56)/* sel←v4568 */ );
(void) XR←ExportVar(var←c62876, 1, (word) (( (bPt) gf←c0525)+64)/* pDel←v4652 */ );
(void) XR←ExportVar(var←c62876, 2, (word) (( (bPt) gf←c0525)+76)/* editObject←v4820 */ );
(void) XR←ExportVar(var←c62876, 3, (word) (( (bPt) gf←c0525)+52)/* selState←v4512 */ );
(void) XR←ExportVar(var←c62876, 4, (word) (( (bPt) gf←c0525)+60)/* pdelState←v4624 */ );
(void) XR←ExportVar(var←c62876, 5, (word) (( (bPt) gf←c0525)+96)/* editMessage←v4988 */ );
(void) XR←ExportVar(var←c62876, 6, (word) (( (bPt) gf←c0525)+80)/* mouseColor←v4876 */ );
var←c62876 = (word) XR←ExportInterface((word) "TEditInputExtras", (word) XR←GetTypeIndexS((word) (&string272)), 3);
(* (( (ptr) gf←c0525)+400)/* var←c62908 */ ) = var←c62876;
(void) XR←ExportProcS(var←c62876, (word) (( (bPt) gf←c0525)+1128)/* var←c55868 */ , 1048578);
(void) XR←ExportProcS(var←c62876, (word) (( (bPt) gf←c0525)+1120)/* var←c55836 */ , 786691);
(void) XR←ExportProcS(var←c62876, (word) (( (bPt) gf←c0525)+1112)/* var←c55804 */ , 67109376);
var←c62876 = (word) XR←ExportInterface((word) "TEditInputPrivate", (word) XR←GetTypeIndexS((word) (&string273)), 4);
(* (( (ptr) gf←c0525)+400)/* var←c62908 */ ) = var←c62876;
(void) XR←ExportProcS(var←c62876, (word) (( (bPt) gf←c0525)+1160)/* var←c55996 */ , 135004163);
(void) XR←ExportProcS(var←c62876, (word) (( (bPt) gf←c0525)+1168)/* var←c56028 */ , 135004419);
(void) XR←ExportProcS(var←c62876, (word) (( (bPt) gf←c0525)+1472)/* var←c57244 */ , 262657);
(void) XR←ExportProcS(var←c62876, (word) (( (bPt) gf←c0525)+1464)/* var←c57212 */ , 67109632);
var←c62876 = (word) XR←ExportInterface((word) &string255, (word) XR←GetTypeIndexS((word) (&string256)), 12);
(* (( (ptr) gf←c0525)+400)/* var←c62908 */ ) = var←c62876;
(void) XR←ExportProcS(var←c62876, (word) (( (bPt) gf←c0525)+1432)/* var←c57084 */ , 1311493);
var←c62876 = (word) XR←ExportInterface((word) "TEditSplit", (word) XR←GetTypeIndexS((word) (&string274)), 1);
(* (( (ptr) gf←c0525)+400)/* var←c62908 */ ) = var←c62876;
(void) XR←ExportProcS(var←c62876, (word) (( (bPt) gf←c0525)+1296)/* var←c56540 */ , 262145);
var←c62876 = (word) XR←ExportInterface((word) "TiogaOps", (word) XR←GetTypeIndexS((word) (&string275)), 128);
(* (( (ptr) gf←c0525)+400)/* var←c62908 */ ) = var←c62876;
(void) XR←ExportProcS(var←c62876, (word) (( (bPt) gf←c0525)+1448)/* var←c57148 */ , 556290);
}
static void TEditInputImpl←P0(formal←c0117, formal←c0109)
word formal←c0117;
word formal←c0109;
{
register ptr gf←c62940 = (ptr) &globalframe;
/* TEditInputImpl: */
SOURCE(2897, 48688)
SOURCE(3757, 85)
(* (( (ptr) gf←c62940)+9)/* internalCommandCounts←v4344 */ ) = XR←NewObject(668, (* (( (ptr) gf←c62940)+30) ));
SOURCE(3952, 50)
{
word pd276;
pd276 = (* (( (ptr) (* (( (ptr) gf←c62940)+372)/* var←c57340 */ ))+5) );
(* (( (ptr) gf←c62940)+10)/* commandTable←v4400 */ ) = (word) ( *( (fPt) ((* (ptr) pd276 ))))(101, 0, 0, pd276);
};
SOURCE(5043, 67)
{
word var←c57372;
var←c57372 = XR←NewObject(108, (* (( (ptr) gf←c62940)+31) ));
(* (( (ptr) var←c57372)+22) ) = 1;
(* (( (ptr) gf←c62940)+21)/* prevPSel←v4904 */ ) = var←c57372;
};
SOURCE(5112, 46)
(* (( (ptr) gf←c62940)+22)/* interrupt←v4932 */ ) = XR←NewObject(4, (* (( (ptr) gf←c62940)+36) ));
SOURCE(11522, 60)
{
word pd277;
pd277 = (* (( (ptr) (* (( (ptr) gf←c62940)+373)/* var←c57436 */ ))+9) );
(* (( (ptr) gf←c62940)+26)/* savedSelA←v5324 */ ) = (word) ( *( (fPt) ((* (ptr) pd277 ))))(pd277);
};
SOURCE(11584, 60)
{
word pd278;
pd278 = (* (( (ptr) (* (( (ptr) gf←c62940)+373)/* var←c57436 */ ))+9) );
(* (( (ptr) gf←c62940)+27)/* savedSelB←v5352 */ ) = (word) ( *( (fPt) ((* (ptr) pd278 ))))(pd278);
};
SOURCE(22981, 35)
(* (( (ptr) gf←c62940)+28)/* coms←v6052 */ ) = XR←NewObject(40, (* (( (ptr) gf←c62940)+37) ));
SOURCE(51184, 27)
(* (( (ptr) gf←c62940)+29)/* justRegistered←v6584 */ ) = 1;
SOURCE(51348, 22)
(void) RegisterCommandAtoms←P2880();
SOURCE(51372, 46)
{
word pd279;
pd279 = (* (( (ptr) (* (( (ptr) gf←c62940)+374)/* var←c57500 */ ))+15) );
(void) ( *( (fPt) ((* (ptr) pd279 ))))((word) ((( (bPt) gf←c62940)+1288)/* var←c56508 */ ), pd279);
};
SOURCE(51420, 50)
{
word pd280;
pd280 = (* (( (ptr) (* (( (ptr) gf←c62940)+375)/* var←c57532 */ ))+12) );
(void) ( *( (fPt) ((* (ptr) pd280 ))))((word) ((( (bPt) gf←c62940)+1096)/* var←c55740 */ ), pd280);
};
SOURCE(51472, 56)
{
word var←c57564;
{
word var←c57596;
word var←c57628;
var←c57596 = XR←NewObject(8, (* (( (ptr) gf←c62940)+40) ));
var←c57628 = var←c57596;
(* (ptr) var←c57628 ) = (* (( (ptr) gf←c62940)+102) );
(* (( (ptr) var←c57628)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c62940)+40) ));
var←c57628 = (* (( (ptr) var←c57628)+1) );
(* (ptr) var←c57628 ) = (* (( (ptr) gf←c62940)+103) );
var←c57564 = var←c57596;
};
(void) SetCommand←P2040(9, var←c57564);
};
SOURCE(51530, 55)
{
word var←c57660;
{
word var←c57692;
word var←c57724;
var←c57692 = XR←NewObject(8, (* (( (ptr) gf←c62940)+40) ));
var←c57724 = var←c57692;
(* (ptr) var←c57724 ) = (* (( (ptr) gf←c62940)+93) );
(* (( (ptr) var←c57724)+1) ) = XR←NewObject(8, (* (( (ptr) gf←c62940)+40) ));
var←c57724 = (* (( (ptr) var←c57724)+1) );
(* (ptr) var←c57724 ) = (* (( (ptr) gf←c62940)+101) );
var←c57660 = var←c57692;
};
(void) SetCommand←P2040(0, var←c57660);
};
}
static void SetTraceProcs←P60(procs←v6692)
word procs←v6692;
{
register ptr gf←c62972 = (ptr) &globalframe;
/* SetTraceProcs: */
SOURCE(3517, 88)
SOURCE(3586, 19)
(* (( (ptr) gf←c62972)+8)/* traceProcs←v4232 */ ) = procs←v6692;
}
static word GetInternalCommandCounts←P120()
{
register ptr gf←c63004 = (ptr) &globalframe;
word var←c6752;
/* GetInternalCommandCounts: */
SOURCE(3844, 103)
SOURCE(3918, 29)
return((* (( (ptr) gf←c63004)+9)/* internalCommandCounts←v4344 */ ));
}
static void EditMessage←P180()
{
register ptr gf←c63036 = (ptr) &globalframe;
word pPendingDelete←v10144;
word sPendingDelete←v10172;
word msg←v10200;
/* EditMessage: */
SOURCE(5248, 1463)
SOURCE(5270, 56)
pPendingDelete←v10144 = (* (( (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c63036)+373)/* var←c57436 */ ))+4) ) ))+26) );
SOURCE(5328, 56)
sPendingDelete←v10172 = (* (( (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c63036)+373)/* var←c57436 */ ))+5) ) ))+26) );
SOURCE(5386, 1225)
{
word var←c57756;
var←c57756 = (* (( (ptr) gf←c63036)+18)/* editState←v4764 */ );
switch (var←c57756) {
case 2:
msg←v10200 = (* (( (ptr) gf←c63036)+75) );
break;
case 3:
{
word var←c57788;
var←c57788 = (* (( (ptr) gf←c63036)+19)/* editObject←v4820 */ );
switch (var←c57788) {
case 0:
{
word var←c57820;
var←c57820 = (* (( (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c63036)+373)/* var←c57436 */ ))+4) ) ))+26) );
if ((var←c57820 == 0)) {
{
/*1*/ word var←c57852;
/*1*/ var←c57852 = (* (( (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c63036)+373)/* var←c57436 */ ))+5) ) ))+26) );
/*1*/ if ((var←c57852 == 0)) {
/*1*/ msg←v10200 = (* (( (ptr) gf←c63036)+70) );
/*1*/ }
/*1*/ else {
/*1*/ if ((var←c57852 == 1)) {
/*1*/ msg←v10200 = (* (( (ptr) gf←c63036)+68) );
/*1*/ }
/*1*/ else {
/*1*/ msg←v10200 = 0;
/*1*/ };
/*1*/ };
/*1*/ };
}
else {
if ((var←c57820 == 1)) {
/*1*/ {
/*1*/ word var←c57884;
/*1*/ var←c57884 = (* (( (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c63036)+373)/* var←c57436 */ ))+5) ) ))+26) );
/*1*/ if ((var←c57884 == 0)) {
/*1*/ msg←v10200 = (* (( (ptr) gf←c63036)+67) );
/*1*/ }
/*1*/ else {
/*1*/ if ((var←c57884 == 1)) {
/*1*/ msg←v10200 = (* (( (ptr) gf←c63036)+65) );
/*1*/ }
/*1*/ else {
/*1*/ msg←v10200 = 0;
/*1*/ };
/*1*/ };
/*1*/ };
/*1*/ }
else {
/*1*/ msg←v10200 = 0;
/*1*/ };
};
};
break;
case 1:
msg←v10200 = (* (( (ptr) gf←c63036)+54) );
break;
case 2:
msg←v10200 = (* (( (ptr) gf←c63036)+55) );
break;
default:
msg←v10200 = 0;
break;
};
};
break;
case 4:
{
word var←c57916;
var←c57916 = (* (( (ptr) gf←c63036)+19)/* editObject←v4820 */ );
switch (var←c57916) {
case 0:
{
word var←c57948;
var←c57948 = (* (( (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c63036)+373)/* var←c57436 */ ))+4) ) ))+26) );
if ((var←c57948 == 0)) {
{
/*1*/ word var←c57980;
/*1*/ var←c57980 = (* (( (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c63036)+373)/* var←c57436 */ ))+5) ) ))+26) );
/*1*/ if ((var←c57980 == 0)) {
/*1*/ msg←v10200 = (* (( (ptr) gf←c63036)+56) );
/*1*/ }
/*1*/ else {
/*1*/ if ((var←c57980 == 1)) {
/*1*/ msg←v10200 = (* (( (ptr) gf←c63036)+57) );
/*1*/ }
/*1*/ else {
/*1*/ msg←v10200 = 0;
/*1*/ };
/*1*/ };
/*1*/ };
}
else {
if ((var←c57948 == 1)) {
/*1*/ {
/*1*/ word var←c58012;
/*1*/ var←c58012 = (* (( (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c63036)+373)/* var←c57436 */ ))+5) ) ))+26) );
/*1*/ if ((var←c58012 == 0)) {
/*1*/ msg←v10200 = (* (( (ptr) gf←c63036)+58) );
/*1*/ }
/*1*/ else {
/*1*/ if ((var←c58012 == 1)) {
/*1*/ msg←v10200 = (* (( (ptr) gf←c63036)+59) );
/*1*/ }
/*1*/ else {
/*1*/ msg←v10200 = 0;
/*1*/ };
/*1*/ };
/*1*/ };
/*1*/ }
else {
/*1*/ msg←v10200 = 0;
/*1*/ };
};
};
break;
case 1:
msg←v10200 = (* (( (ptr) gf←c63036)+60) );
break;
case 2:
msg←v10200 = (* (( (ptr) gf←c63036)+61) );
break;
default:
msg←v10200 = 0;
break;
};
};
break;
case 5:
{
word var←c58044;
var←c58044 = (* (( (ptr) gf←c63036)+19)/* editObject←v4820 */ );
switch (var←c58044) {
case 0:
msg←v10200 = (* (( (ptr) gf←c63036)+62) );
break;
case 1:
msg←v10200 = (* (( (ptr) gf←c63036)+63) );
break;
case 2:
msg←v10200 = (* (( (ptr) gf←c63036)+64) );
break;
default:
msg←v10200 = 0;
break;
};
};
break;
default:
msg←v10200 = 0;
break;
};
};
SOURCE(6613, 45)
if ((msg←v10200 == 0) || (msg←v10200 == (* (( (ptr) gf←c63036)+24)/* editMessage←v4988 */ ))) {
SOURCE(6652, 6)
return;
};
SOURCE(6660, 30)
{
word pd281;
pd281 = (* (( (ptr) (* (( (ptr) gf←c63036)+376)/* var←c58076 */ ))+5) );
(void) ( *( (fPt) ((* (ptr) pd281 ))))(msg←v10200, 1, pd281);
};
SOURCE(6692, 19)
(* (( (ptr) gf←c63036)+24)/* editMessage←v4988 */ ) = msg←v10200;
}
static void Interpret←P240(viewer←v6840, params←v6868)
word viewer←v6840;
word params←v6868;
{
/* Interpret: */
SOURCE(6715, 111)
SOURCE(6798, 28)
(void) InterpInput←P600(viewer←v6840, params←v6868, 1);
}
static void InterpretAtom←P300(viewer←v7028, atom←v7056)
word viewer←v7028;
word atom←v7056;
{
/* InterpretAtom: */
SOURCE(6830, 124)
SOURCE(6904, 50)
(void) InterpAtom←P420(viewer←v7028, atom←v7056, 0);
}
static void TEditNotifyProc←P360(self←v37196, input←v37224, device←v37252, user←v37280, display←v37308)
word self←v37196;
word input←v37224;
word device←v37252;
word user←v37280;
word display←v37308;
{
/* TEditNotifyProc: */
SOURCE(6960, 77)
SOURCE(7013, 24)
(void) InterpInput←P600(self←v37196, input←v37224, 1);
}
static void InterpAtom←P420(viewer←v7116, atom←v7144, param←v7172)
word viewer←v7116;
word atom←v7144;
word param←v7172;
{
register ptr gf←c63068 = (ptr) &globalframe;
word closureList←v10244;
/* InterpAtom: */
SOURCE(7043, 734)
SOURCE(7119, 13)
{
W2 var←c0146;
word var←c0608;
{
word pd282;
pd282 = (* (( (ptr) (* (( (ptr) gf←c63068)+372)/* var←c57340 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd282 ))))((word) &var←c0146, (* (( (ptr) gf←c63068)+10)/* commandTable←v4400 */ ), atom←v7144, pd282)
;
};
var←c0608 = var←c0146.f1;
closureList←v10244 = XR←Narrow(var←c0608, (* (( (ptr) gf←c63068)+53) ));
};
SOURCE(7202, 77)
if (((* (( (ptr) gf←c63068)+8)/* traceProcs←v4232 */ ) != 0)) {
SOURCE(7225, 54)
{
word pd283;
pd283 = (* (( (ptr) (* (( (ptr) gf←c63068)+8)/* traceProcs←v4232 */ ))+1) );
(void) ( *( (fPt) ((* (ptr) pd283 ))))(viewer←v7116, atom←v7144, param←v7172, closureList←v10244, pd283);
};
};
SOURCE(7281, 496)
if ((closureList←v10244 == 0)) {
SOURCE(7305, 99)
{
word var←c58108;
{
word var←c58140;
{
word pd284;
pd284 = (* (( (ptr) (* (( (ptr) gf←c63068)+377)/* var←c58172 */ ))+9) );
var←c58140 = (word) ( *( (fPt) ((* (ptr) pd284 ))))(atom←v7144, pd284);
};
{
word pd285;
pd285 = (* (( (ptr) (* (( (ptr) gf←c63068)+378)/* var←c58204 */ ))+6) );
var←c58108 = (word) ( *( (fPt) ((* (ptr) pd285 ))))((* (( (ptr) gf←c63068)+66) ), var←c58140, pd285);
};
};
{
word pd286;
pd286 = (* (( (ptr) (* (( (ptr) gf←c63068)+376)/* var←c58076 */ ))+5) );
(void) ( *( (fPt) ((* (ptr) pd286 ))))(var←c58108, 1, pd286);
};
};
}
else {
SOURCE(7404, 373)
{
word recordAtom←v10372 = 0;
SOURCE(7432, 37)
{
word pd287;
pd287 = (* (( (ptr) (* (( (ptr) gf←c63068)+379)/* var←c58236 */ ))+11) );
(void) ( *( (fPt) ((* (ptr) pd287 ))))(pd287);
};
SOURCE(7517, 209)
{
register word list←v10416;
list←v10416 = closureList←v10244;
lab←L100003: ;
if ((list←v10416 != 0)) {
}
else {
goto lab←L100000;
};
{
word record←v10544;
word quit←v10572;
SOURCE(7613, 64)
{
W2 var←c58268;
{
word pd288;
pd288 = (* (( (ptr) list←v10416)+1) );
(void) ( *( (fPt) ((* (ptr) pd288 ))))((word) &var←c58268, (* (( (ptr) list←v10416)+2) ), viewer←v7116, param←v7172, pd288)
;
};
quit←v10572 = var←c58268.f1;
record←v10544 = var←c58268.f0;
};
SOURCE(7679, 32)
if ((0 != record←v10544)) {
SOURCE(7694, 17)
recordAtom←v10372 = 1;
};
SOURCE(7713, 13)
if ((0 != quit←v10572)) {
SOURCE(7726, 4)
goto lab←L100001;
};
};
list←v10416 = (* (( (ptr) list←v10416)+3) );
goto lab←L100003;
lab←L100000: ;
lab←L100001: ;
};
SOURCE(7741, 36)
if ((0 != recordAtom←v10372)) {
SOURCE(7760, 17)
{
word pd289;
pd289 = (* (( (ptr) (* (( (ptr) gf←c63068)+380)/* var←c58300 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd289 ))))(atom←v7144, pd289);
};
};
};
};
}
static void ResetInputStuff←P480()
{
register ptr gf←c63100 = (ptr) &globalframe;
/* ResetInputStuff: */
SOURCE(7783, 52)
SOURCE(7816, 19)
(* (( (ptr) gf←c63100)+17)/* changeLevel←v4708 */ ) = 2;
}
static void SaveCoords←P540(x←v7260, y←v7288)
word x←v7260;
word y←v7288;
{
register ptr gf←c63132 = (ptr) &globalframe;
/* SaveCoords: */
SOURCE(7839, 59)
SOURCE(7883, 6)
(* (( (ptr) gf←c63132)+12)/* mx←v4456 */ ) = x←v7260;
SOURCE(7891, 7)
(* (( (ptr) gf←c63132)+11)/* my←v4428 */ ) = y←v7288;
}
static void InterpInput←P600(formal←c0647, params←v7376, increaseNestingCount←v7404)
word formal←c0647;
word params←v7376;
word increaseNestingCount←v7404;
{
W7 var←c63164;
/* declaration of viewer←v7348 skipped */
register ptr gf←c63196 = (ptr) &globalframe;
word var←c58332;
var←c63164.f4/* viewer←v7348 */ = formal←c0647;
/* InterpInput: */
SOURCE(7943, 3198)
SOURCE(9244, 82)
if (((* (( (ptr) gf←c63196)+8)/* traceProcs←v4232 */ ) != 0)) {
SOURCE(9267, 59)
{
word pd290;
pd290 = (* (ptr) (* (( (ptr) gf←c63196)+8)/* traceProcs←v4232 */ ) );
(void) ( *( (fPt) ((* (ptr) pd290 ))))(var←c63164.f4/* viewer←v7348 */ , params←v7376, increaseNestingCount←v7404, pd290)
;
};
};
SOURCE(9328, 17)
(void) ResetInputStuff←P480();
SOURCE(9347, 1794)
{
word x291;
if ( ( ( (int)(* (( (ptr) gf←c63196)+25)/* interpreterNesting←v5212 */ ) == (int)0) ? (0 == (* (( (ptr) (* (ptr) (* (( (ptr) (* (
( (ptr) gf←c63196)+373)/* var←c57436 */ ))+4) ) ))+26) )) : 0 ) ) {
SOURCE(9035, 180)
{
register word input←v12032;
input←v12032 = params←v7376;
lab←L100007: ;
if ((input←v12032 != 0)) {
}
else {
goto lab←L100004;
};
SOURCE(9102, 113)
{
word var←c58364;
word var←c58396;
var←c58364 = (* (ptr) input←v12032 );
if ((var←c58364 == 0)) {
goto lab←L100008;
};
var←c58396 = XR←GetReferentType(var←c58364);
{
word tc293;
if (((* (( (ptr) gf←c63196)+52) ) == var←c58396)) {
{
word z←v12156;
z←v12156 = var←c58364;
};
goto endif0292;
};
if (((* (( (ptr) gf←c63196)+47) ) == var←c58396)) {
tc293 = (word) ((*(int*)var←c58364<0) == 0);
}
else {
tc293 = (word) 0;
};
if (tc293) {
{
word z←v12196;
z←v12196 = var←c58364;
};
goto endif0292;
};
if (((* (( (ptr) gf←c63196)+51) ) == var←c58396)) {
{
word z←v12224;
z←v12224 = var←c58364;
};
goto endif0292;
};
lab←L100008: ;
SOURCE(9201, 14)
var←c58332 = 0;
goto lab←L100009;
endif0292: ;
};
};
input←v12032 = (* (( (ptr) input←v12032)+1) );
goto lab←L100007;
lab←L100004: ;
};
SOURCE(9226, 15)
var←c58332 = 1;
lab←L100009: ;
x291 = (word) (0 != var←c58332);
}
else {
x291 = (word) 0;
};
if (x291) {
SOURCE(9441, 342)
{
register word input←v11124;
input←v11124 = params←v7376;
lab←L100013: ;
if ((input←v11124 != 0)) {
}
else {
goto lab←L100010;
};
SOURCE(9508, 20)
SOURCE(8115, 52)
if ((0 == (* (( (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c63196)+373)/* var←c57436 */ ))+4) ) ))+26) ))) {
SOURCE(8161, 6)
goto lab←L100014;
};
SOURCE(8169, 46)
{
word pd294;
pd294 = (* (( (ptr) (* (( (ptr) gf←c63196)+373)/* var←c57436 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd294 ))))(0, (* (( (ptr) gf←c63196)+73) ), pd294);
};
SOURCE(8219, 235)
{
word var←c0609;
var←c0609 = (word) &var←c63164;
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q7200) ), ( ((word) (fPt) NoName←Q8040) ), var←c0609);
};
SOURCE(8459, 33)
{
word pd295;
pd295 = (* (( (ptr) (* (( (ptr) gf←c63196)+373)/* var←c57436 */ ))+22) );
(void) ( *( (fPt) ((* (ptr) pd295 ))))(0, pd295);
};
lab←L100014: ;
SOURCE(9530, 253)
{
word var←c58460;
word var←c58492;
var←c58460 = (* (ptr) input←v11124 );
if ((var←c58460 == 0)) {
goto lab←L100017;
};
var←c58492 = XR←GetReferentType(var←c58460);
{
word tc299;
if (((* (( (ptr) gf←c63196)+52) ) == var←c58492)) {
{
word z←v11264;
z←v11264 = var←c58460;
SOURCE(9576, 36)
{
word pd297;
pd297 = (* (( (ptr) (* (( (ptr) gf←c63196)+379)/* var←c58236 */ ))+9) );
(void) ( *( (fPt) ((* (ptr) pd297 ))))((* (ptr) (z←v11264) ), pd297);
};
SOURCE(9614, 15)
{
word pd298;
pd298 = (* (( (ptr) (* (( (ptr) gf←c63196)+380)/* var←c58300 */ ))+20) );
(void) ( *( (fPt) ((* (ptr) pd298 ))))((* (ptr) (z←v11264) ), pd298);
};
};
goto endif0296;
};
if (((* (( (ptr) gf←c63196)+47) ) == var←c58492)) {
tc299 = (word) ((*(int*)var←c58460<0) == 0);
}
else {
tc299 = (word) 0;
};
if (tc299) {
{
word z←v11320;
z←v11320 = var←c58460;
SOURCE(9645, 35)
{
word pd300;
pd300 = (* (( (ptr) (* (( (ptr) gf←c63196)+379)/* var←c58236 */ ))+10) );
(void) ( *( (fPt) ((* (ptr) pd300 ))))(z←v11320, pd300);
};
SOURCE(9682, 13)
{
word pd301;
pd301 = (* (( (ptr) (* (( (ptr) gf←c63196)+380)/* var←c58300 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd301 ))))(z←v11320, pd301);
};
};
goto endif0296;
};
if (((* (( (ptr) gf←c63196)+51) ) == var←c58492)) {
{
word z←v11364;
z←v11364 = var←c58460;
SOURCE(9715, 53)
{
word var←c58524;
{
/*1*/ word pd302;
/*1*/ pd302 = (* (( (ptr) (* (( (ptr) gf←c63196)+378)/* var←c58204 */ ))+35) );
/*1*/ var←c58524 = (word) ( *( (fPt) ((* (ptr) pd302 ))))(z←v11364, 0, 32767, pd302);
/*1*/ };
{
/*1*/ word pd303;
/*1*/ pd303 = (* (( (ptr) (* (( (ptr) gf←c63196)+379)/* var←c58236 */ ))+10) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd303 ))))(var←c58524, pd303);
/*1*/ };
};
SOURCE(9770, 13)
{
word pd304;
pd304 = (* (( (ptr) (* (( (ptr) gf←c63196)+380)/* var←c58300 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd304 ))))(z←v11364, pd304);
};
};
goto endif0296;
};
lab←L100017: ;
SOURCE(9797, 5)
(void) XR←RaiseUnnamedError();
goto endif0296;
endif0296: ;
};
};
input←v11124 = (* (( (ptr) input←v11124)+1) );
goto lab←L100013;
lab←L100010: ;
};
}
else {
SOURCE(9820, 1323)
{
/* declaration of param←v11420 skipped */
word paramIsNext←v11448 = 0;
word var←c58844;
SOURCE(9822, 16)
var←c63164.f5/* param←v11420 */ = 0;
SOURCE(9867, 42)
if ((0 != increaseNestingCount←v7404)) {
SOURCE(9896, 13)
SOURCE(9896, 13)
(void) (XR←MonitorEntry((word) (( (bPt) gf←c63196)+16)/* LOCK←v4176 */ ));
SOURCE(8724, 103)
(* (( (ptr) gf←c63196)+25)/* interpreterNesting←v5212 */ ) = ((* (( (ptr) gf←c63196)+25)/* interpreterNesting←v5212 */ ) +
1);
if (( (int)(* (( (ptr) gf←c63196)+25)/* interpreterNesting←v5212 */ ) <= (int)1)) {
SOURCE(8783, 22)
(* (( (ptr) gf←c63196)+25)/* interpreterNesting←v5212 */ ) = 1;
SOURCE(8807, 20)
(* (ptr) (* (( (ptr) (* (( (ptr) gf←c63196)+380)/* var←c58300 */ ))+12) ) ) = 0;
};
(void) (XR←MonitorExit((word) (( (bPt) gf←c63196)+16)/* LOCK←v4176 */ ));
};
SOURCE(9911, 1137)
{
register word input←v11504;
input←v11504 = params←v7376;
lab←L100022: ;
if ((input←v11504 != 0)) {
}
else {
goto lab←L100019;
};
{
word thisIsParam←v11644;
SOURCE(9978, 31)
thisIsParam←v11644 = paramIsNext←v11448;
SOURCE(10011, 31)
if ((0 != thisIsParam←v11644)) {
SOURCE(10031, 11)
var←c63164.f5/* param←v11420 */ = 0;
};
SOURCE(10044, 19)
paramIsNext←v11448 = 0;
SOURCE(10065, 882)
{
word var←c58556;
word var←c58588;
var←c58556 = (* (ptr) input←v11504 );
if ((var←c58556 == 0)) {
goto lab←L100023;
};
var←c58588 = XR←GetReferentType(var←c58556);
{
word tc312;
if (((* (( (ptr) gf←c63196)+43) ) == var←c58588)) {
{
/*1*/ /* declaration of z←v11688 skipped */
/*1*/ var←c63164.f6/* z←v11688 */ = var←c58556;
SOURCE(10107, 150)
/*1*/ if ((0 != thisIsParam←v11644)) {
SOURCE(10129, 9)
/*1*/ var←c63164.f5/* param←v11420 */ = var←c63164.f6/* z←v11688 */ ;
SOURCE(10140, 13)
/*1*/ {
/*1*/ word pd306;
/*1*/ pd306 = (* (( (ptr) (* (( (ptr) gf←c63196)+380)/* var←c58300 */ ))+21) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd306 ))))(var←c63164.f6/* z←v11688 */ , pd306);
/*1*/ };
/*1*/ }
/*1*/ else {
SOURCE(10162, 40)
/*1*/ if ((var←c63164.f6/* z←v11688 */ == (* (( (ptr) gf←c63196)+69) ))) {
SOURCE(10183, 19)
/*1*/ paramIsNext←v11448 = 1;
/*1*/ };
SOURCE(10205, 52)
/*1*/ {
/*1*/ word var←c01;
/*1*/ {
/*1*/ word var←c0610;
/*1*/ var←c0610 = (word) &var←c63164;
/*1*/ var←c01 = (word) XR←Enable(( ((word) (fPt) NoName←Q7140) ), ( ((word) (fPt) NoName←Q7980) ), var←c0610);
/*1*/ };
/*1*/ if ((var←c01 == 2)) {
/*1*/ goto lab←L100020;
/*1*/ };
/*1*/ };
/*1*/ };
/*1*/ };
goto endif0305;
};
if (((* (( (ptr) gf←c63196)+50) ) == var←c58588)) {
{
/*1*/ word z←v11732;
/*1*/ z←v11732 = var←c58556;
SOURCE(10303, 122)
/*1*/ if ((0 != thisIsParam←v11644)) {
SOURCE(10323, 62)
/*1*/ {
/*1*/ word var←c58620;
/*1*/ {
/*1*/ word var←c58652;
/*1*/ {
/*1*/ word var←c58684;
/*1*/ var←c58684 = XR←NewObject(12, (* (( (ptr) gf←c63196)+50) ));
/*1*/ (* (W3Pt) var←c58684 ) = (* (W3Pt) z←v11732 );
/*1*/ var←c58652 = var←c58684;
/*1*/ };
/*1*/ var←c63164.f5/* param←v11420 */ = var←c58652;
/*1*/ var←c58620 = var←c58652;
/*1*/ };
/*1*/ {
/*1*/ word pd307;
/*1*/ pd307 = (* (( (ptr) (* (( (ptr) gf←c63196)+380)/* var←c58300 */ ))+21) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd307 ))))(var←c58620, pd307);
/*1*/ };
/*1*/ };
/*1*/ }
/*1*/ else {
SOURCE(10385, 40)
/*1*/ (void) SaveCoords←P540((* (ptr) z←v11732 ), ((* (( (ptr) var←c63164.f4/* viewer←v7348 */ )+8) ) - (* (( (ptr) z←v11732)+1)
/*1*/ )));
/*1*/ };
/*1*/ };
goto endif0305;
};
if (((* (( (ptr) gf←c63196)+52) ) == var←c58588)) {
{
/*1*/ word z←v11776;
/*1*/ z←v11776 = var←c58556;
SOURCE(10447, 106)
/*1*/ if ((0 != thisIsParam←v11644)) {
SOURCE(10467, 39)
/*1*/ {
/*1*/ word var←c58716;
/*1*/ {
/*1*/ word var←c58748;
/*1*/ {
/*1*/ word var←c58780;
/*1*/ var←c58780 = XR←NewObject(4, (* (( (ptr) gf←c63196)+52) ));
/*1*/ (* (ptr) var←c58780 ) = (* (ptr) z←v11776 );
/*1*/ var←c58748 = var←c58780;
/*1*/ };
/*1*/ var←c63164.f5/* param←v11420 */ = var←c58748;
/*1*/ var←c58716 = var←c58748;
/*1*/ };
/*1*/ {
/*1*/ word pd308;
/*1*/ pd308 = (* (( (ptr) (* (( (ptr) gf←c63196)+380)/* var←c58300 */ ))+21) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd308 ))))(var←c58716, pd308);
/*1*/ };
/*1*/ };
/*1*/ }
/*1*/ else {
SOURCE(10508, 28)
/*1*/ {
/*1*/ word pd309;
/*1*/ pd309 = (* (( (ptr) (* (( (ptr) gf←c63196)+379)/* var←c58236 */ ))+6) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd309 ))))((* (ptr) (z←v11776) ), pd309);
/*1*/ };
SOURCE(10538, 15)
/*1*/ {
/*1*/ word pd310;
/*1*/ pd310 = (* (( (ptr) (* (( (ptr) gf←c63196)+380)/* var←c58300 */ ))+20) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd310 ))))((* (ptr) (z←v11776) ), pd310);
/*1*/ };
/*1*/ };
/*1*/ };
goto endif0305;
};
if (((* (( (ptr) gf←c63196)+34) ) == var←c58588)) {
{
/*1*/ word z←v11832;
/*1*/ z←v11832 = var←c58556;
SOURCE(10575, 21)
/*1*/ {
/*1*/ word var←c58812;
/*1*/ var←c58812 = XR←NewObject(4, (* (( (ptr) gf←c63196)+34) ));
/*1*/ (* (ptr) var←c58812 ) = (* (ptr) z←v11832 );
/*1*/ var←c63164.f5/* param←v11420 */ = var←c58812;
/*1*/ };
SOURCE(10621, 17)
/*1*/ {
/*1*/ word pd311;
/*1*/ pd311 = (* (( (ptr) (* (( (ptr) gf←c63196)+380)/* var←c58300 */ ))+21) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd311 ))))(var←c63164.f5/* param←v11420 */ , pd311);
/*1*/ };
/*1*/ };
goto endif0305;
};
if (((* (( (ptr) gf←c63196)+47) ) == var←c58588)) {
tc312 = (word) ((*(int*)var←c58556<0) == 0);
}
else {
tc312 = (word) 0;
};
if (tc312) {
{
/*1*/ word z←v11888;
/*1*/ z←v11888 = var←c58556;
SOURCE(10654, 62)
/*1*/ if ((0 != thisIsParam←v11644)) {
SOURCE(10674, 15)
/*1*/ var←c63164.f5/* param←v11420 */ = z←v11888;
/*1*/ }
/*1*/ else {
SOURCE(10689, 27)
/*1*/ {
/*1*/ word pd313;
/*1*/ pd313 = (* (( (ptr) (* (( (ptr) gf←c63196)+379)/* var←c58236 */ ))+7) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd313 ))))(z←v11888, pd313);
/*1*/ };
/*1*/ };
SOURCE(10719, 13)
/*1*/ {
/*1*/ word pd314;
/*1*/ pd314 = (* (( (ptr) (* (( (ptr) gf←c63196)+380)/* var←c58300 */ ))+21) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd314 ))))(z←v11888, pd314);
/*1*/ };
/*1*/ };
goto endif0305;
};
if (((* (( (ptr) gf←c63196)+51) ) == var←c58588)) {
{
/*1*/ word z←v11932;
/*1*/ z←v11932 = var←c58556;
SOURCE(10750, 124)
/*1*/ {
/*1*/ word rope←v11988;
SOURCE(10752, 32)
/*1*/ {
/*1*/ word pd315;
/*1*/ pd315 = (* (( (ptr) (* (( (ptr) gf←c63196)+378)/* var←c58204 */ ))+35) );
/*1*/ rope←v11988 = (word) ( *( (fPt) ((* (ptr) pd315 ))))(z←v11932, 0, 32767, pd315);
/*1*/ };
SOURCE(10786, 68)
/*1*/ if ((0 != thisIsParam←v11644)) {
SOURCE(10806, 18)
/*1*/ var←c63164.f5/* param←v11420 */ = rope←v11988;
/*1*/ }
/*1*/ else {
SOURCE(10824, 30)
/*1*/ {
/*1*/ word pd316;
/*1*/ pd316 = (* (( (ptr) (* (( (ptr) gf←c63196)+379)/* var←c58236 */ ))+7) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd316 ))))(rope←v11988, pd316);
/*1*/ };
/*1*/ };
SOURCE(10857, 15)
/*1*/ {
/*1*/ word pd317;
/*1*/ pd317 = (* (( (ptr) (* (( (ptr) gf←c63196)+380)/* var←c58300 */ ))+21) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd317 ))))(rope←v11988, pd317);
/*1*/ };
/*1*/ };
/*1*/ };
goto endif0305;
};
lab←L100023: ;
SOURCE(10888, 59)
{
word pd318;
pd318 = (* (( (ptr) (* (( (ptr) gf←c63196)+376)/* var←c58076 */ ))+5) );
(void) ( *( (fPt) ((* (ptr) pd318 ))))((* (( (ptr) gf←c63196)+71) ), 1, pd318);
};
goto endif0305;
endif0305: ;
};
};
SOURCE(10949, 99)
if ( ( (0 != thisIsParam←v11644) ? (var←c63164.f5/* param←v11420 */ == 0) : 0 ) ) {
SOURCE(10983, 65)
{
word pd319;
pd319 = (* (( (ptr) (* (( (ptr) gf←c63196)+376)/* var←c58076 */ ))+5) );
(void) ( *( (fPt) ((* (ptr) pd319 ))))((* (( (ptr) gf←c63196)+72) ), 1, pd319);
};
};
};
input←v11504 = (* (( (ptr) input←v11504)+1) );
goto lab←L100022;
lab←L100019: ;
lab←L100020: ;
};
SOURCE(11059, 82)
{
word tc320;
word tc321;
if ((0 != increaseNestingCount←v7404)) {
SOURCE(8832, 128)
(void) (XR←MonitorEntry((word) (( (bPt) gf←c63196)+16)/* LOCK←v4176 */ ));
SOURCE(8901, 59)
(* (( (ptr) gf←c63196)+25)/* interpreterNesting←v5212 */ ) = ((* (( (ptr) gf←c63196)+25)/* interpreterNesting←v5212 */ ) - 1);
var←c58844 = ( (int)(* (( (ptr) gf←c63196)+25)/* interpreterNesting←v5212 */ ) <= (int)0);
(void) (XR←MonitorExit((word) (( (bPt) gf←c63196)+16)/* LOCK←v4176 */ ));
tc321 = (word) (0 != var←c58844);
}
else {
tc321 = (word) 0;
};
if (tc321) {
tc320 = (word) (0 != (* (ptr) (* (( (ptr) (* (( (ptr) gf←c63196)+380)/* var←c58300 */ ))+12) ) ));
}
else {
tc320 = (word) 0;
};
if (tc320) {
SOURCE(11126, 15)
{
word pd322;
pd322 = (* (( (ptr) (* (( (ptr) gf←c63196)+380)/* var←c58300 */ ))+15) );
(void) ( *( (fPt) ((* (ptr) pd322 ))))(pd322);
};
};
};
};
};
};
}
static word NoName←Q7140(formal←c0534)
word formal←c0534;
{
SOURCE(10205, 52)
(void) InterpAtom←P420((* (( (ptr) formal←c0534)+4) ), (* (( (ptr) formal←c0534)+6) ), (* (( (ptr) formal←c0534)+5) ));
return(0);
}
static word NoName←Q7200(formal←c0536)
word formal←c0536;
{
register ptr gf←c0535 = (ptr) &globalframe;
SOURCE(8271, 73)
if ((0 != (* (( (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c0535)+373)/* var←c57436 */ ))+4) ) ))+26) ))) {
SOURCE(8313, 31)
{
word pd323;
pd323 = (* (( (ptr) (* (( (ptr) gf←c0535)+379)/* var←c58236 */ ))+28) );
(void) ( *( (fPt) ((* (ptr) pd323 ))))(pd323);
};
};
SOURCE(8346, 108)
if ((((* (( (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c0535)+373)/* var←c57436 */ ))+4) ) ))+22) ) != 0) || ((* (( (ptr) (* (ptr) (* (
( (ptr) (* (( (ptr) gf←c0535)+373)/* var←c57436 */ ))+4) ) ))+24) ) != 0)) || ((* (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c0535)+373)
/* var←c57436 */ ))+5) ) ) ) != 0)) {
SOURCE(8367, 87)
{
W2 var←c58428;
{
word pd324;
pd324 = (* (( (ptr) (* (( (ptr) gf←c0535)+373)/* var←c57436 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd324 ))))((word) &var←c58428, (* (ptr) (* (( (ptr) (* (( (ptr) gf←c0535)+373)/* var←c57436 */ ))+4)
) ), pd324);
};
{
word pd325;
pd325 = (* (( (ptr) (* (( (ptr) gf←c0535)+373)/* var←c57436 */ ))+46) );
(void) ( *( (fPt) ((* (ptr) pd325 ))))((* (ptr) (* (( (ptr) (* (( (ptr) gf←c0535)+373)/* var←c57436 */ ))+4) ) ), var←c58428, pd325)
;
};
};
};
return(0);
}
static word NumberToLook←P660(n←v7560)
word n←v7560;
{
word l←v7604;
/* NumberToLook: */
SOURCE(11150, 62)
SOURCE(11200, 12)
return(BCK((n←v7560 + 97), 256));
}
static void Normalize←P720(formal←c0203, formal←c0648)
word formal←c0203;
word formal←c0648;
{
W7 var←c63228;
/* declaration of viewer←v37368 skipped */
register ptr gf←c63260 = (ptr) &globalframe;
word recordAtom←v37412;
word quit←v37440;
/* declaration of var←c58876 skipped */
var←c63228.f4/* viewer←v37368 */ = formal←c0648;
/* Normalize: */
SOURCE(11218, 300)
{
word tmpAddr326;
tmpAddr326 = (word) (( (ptr) &var←c63228)+5)/* var←c58876 */ ;
(* (ptr) tmpAddr326 ) = ( ((word) (fPt) DoIt←P4308) );
(* (( (ptr) tmpAddr326) + 1) ) = 1;
};
SOURCE(11218, 300)
recordAtom←v37412 = 1;
SOURCE(11218, 300)
quit←v37440 = 0;
SOURCE(11450, 68)
{
word pd327;
pd327 = (* (( (ptr) (* (( (ptr) gf←c63260)+373)/* var←c57436 */ ))+19) );
(void) ( *( (fPt) ((* (ptr) pd327 ))))(var←c63228.f4/* viewer←v37368 */ , 0, (word) (( (bPt) &var←c63228)+20)/* var←c58876 */ , pd327)
;
};
/* removed tail goto */
(* (ptr) formal←c0203 ) = recordAtom←v37412;
(* (( (ptr) formal←c0203)+1) ) = quit←v37440;
return;
}
static void DoIt←P4308(tdd←v12340, tSel←v12368, formal←c63324)
word tdd←v12340;
word tSel←v12368;
word formal←c63324;
{
register ptr gf←c63292 = (ptr) &globalframe;
formal←c63324 = (formal←c63324 - 20);
/* DoIt: */
SOURCE(11252, 195)
SOURCE(11337, 110)
{
W2 var←c58908;
if (((* (ptr) tSel←v12368 ) == 0)) {
var←c58908.f0 = 0;
var←c58908.f1 = 0;
}
else {
{
W2 var←c0208;
{
word pd328;
pd328 = (* (( (ptr) (* (( (ptr) gf←c63292)+373)/* var←c57436 */ ))+64) );
(void) ( *( (fPt) ((* (ptr) pd328 ))))((word) &var←c0208, tSel←v12368, pd328);
};
var←c58908 = var←c0208;
};
};
(void) NormalizeViewer←P1560((* (( (ptr) formal←c63324)+4) ), var←c58908, tdd←v12340, tSel←v12368);
};
}
static void RestoreSelectionA←P780(formal←c0212, viewer←v37500)
word formal←c0212;
word viewer←v37500;
{
register ptr gf←c63356 = (ptr) &globalframe;
word recordAtom←v37544;
word quit←v37572;
/* RestoreSelectionA: */
SOURCE(11646, 143)
SOURCE(11646, 143)
recordAtom←v37544 = 1;
SOURCE(11646, 143)
quit←v37572 = 0;
SOURCE(11688, 101)
if ((0 != (word) CheckSelection←P1500((* ((( (ptr) gf←c63356)+26)/* savedSelA←v5324 */ ) )))) {
SOURCE(11723, 66)
{
word pd329;
pd329 = (* (( (ptr) (* (( (ptr) gf←c63356)+373)/* var←c57436 */ ))+25) );
(void) ( *( (fPt) ((* (ptr) pd329 ))))((* (( (ptr) gf←c63356)+26)/* savedSelA←v5324 */ ), 0, 0, 0, 1, pd329);
};
};
/* removed tail goto */
(* (ptr) formal←c0212 ) = recordAtom←v37544;
(* (( (ptr) formal←c0212)+1) ) = quit←v37572;
return;
}
static void SaveSelectionA←P840(formal←c0216, viewer←v37632)
word formal←c0216;
word viewer←v37632;
{
register ptr gf←c63388 = (ptr) &globalframe;
word recordAtom←v37676;
word quit←v37704;
/* SaveSelectionA: */
SOURCE(11793, 140)
SOURCE(11793, 140)
recordAtom←v37676 = 1;
SOURCE(11793, 140)
quit←v37704 = 0;
SOURCE(11832, 101)
if (((* (ptr) (* (( (ptr) (* (( (ptr) gf←c63388)+373)/* var←c57436 */ ))+4) ) ) != 0)) {
SOURCE(11866, 67)
{
word pd330;
pd330 = (* (( (ptr) (* (( (ptr) gf←c63388)+373)/* var←c57436 */ ))+12) );
(void) ( *( (fPt) ((* (ptr) pd330 ))))((* (ptr) (* (( (ptr) (* (( (ptr) gf←c63388)+373)/* var←c57436 */ ))+4) ) ), (* (
( (ptr) gf←c63388)+26)/* savedSelA←v5324 */ ), pd330);
};
};
/* removed tail goto */
(* (ptr) formal←c0216 ) = recordAtom←v37676;
(* (( (ptr) formal←c0216)+1) ) = quit←v37704;
return;
}
static void RestoreSelectionB←P900(formal←c0220, viewer←v37764)
word formal←c0220;
word viewer←v37764;
{
register ptr gf←c63420 = (ptr) &globalframe;
word recordAtom←v37808;
word quit←v37836;
/* RestoreSelectionB: */
SOURCE(11937, 143)
SOURCE(11937, 143)
recordAtom←v37808 = 1;
SOURCE(11937, 143)
quit←v37836 = 0;
SOURCE(11979, 101)
if ((0 != (word) CheckSelection←P1500((* ((( (ptr) gf←c63420)+27)/* savedSelB←v5352 */ ) )))) {
SOURCE(12014, 66)
{
word pd331;
pd331 = (* (( (ptr) (* (( (ptr) gf←c63420)+373)/* var←c57436 */ ))+25) );
(void) ( *( (fPt) ((* (ptr) pd331 ))))((* (( (ptr) gf←c63420)+27)/* savedSelB←v5352 */ ), 0, 0, 0, 1, pd331);
};
};
/* removed tail goto */
(* (ptr) formal←c0220 ) = recordAtom←v37808;
(* (( (ptr) formal←c0220)+1) ) = quit←v37836;
return;
}
static void SaveSelectionB←P960(formal←c0224, viewer←v37896)
word formal←c0224;
word viewer←v37896;
{
register ptr gf←c63452 = (ptr) &globalframe;
word recordAtom←v37940;
word quit←v37968;
/* SaveSelectionB: */
SOURCE(12084, 140)
SOURCE(12084, 140)
recordAtom←v37940 = 1;
SOURCE(12084, 140)
quit←v37968 = 0;
SOURCE(12123, 101)
if (((* (ptr) (* (( (ptr) (* (( (ptr) gf←c63452)+373)/* var←c57436 */ ))+4) ) ) != 0)) {
SOURCE(12157, 67)
{
word pd332;
pd332 = (* (( (ptr) (* (( (ptr) gf←c63452)+373)/* var←c57436 */ ))+12) );
(void) ( *( (fPt) ((* (ptr) pd332 ))))((* (ptr) (* (( (ptr) (* (( (ptr) gf←c63452)+373)/* var←c57436 */ ))+4) ) ), (* (
( (ptr) gf←c63452)+27)/* savedSelB←v5352 */ ), pd332);
};
};
/* removed tail goto */
(* (ptr) formal←c0224 ) = recordAtom←v37940;
(* (( (ptr) formal←c0224)+1) ) = quit←v37968;
return;
}
static void AllLevels←P1020(formal←c0231, viewer←v38028)
word formal←c0231;
word viewer←v38028;
{
register ptr gf←c63484 = (ptr) &globalframe;
word recordAtom←v38072;
word quit←v38100;
/* AllLevels: */
SOURCE(12228, 323)
SOURCE(12228, 323)
recordAtom←v38072 = 1;
SOURCE(12228, 323)
quit←v38100 = 0;
SOURCE(12262, 258)
{
word var←c58972;
var←c58972 = (* (( (ptr) viewer←v38028)+26) );
if ((var←c58972 == 0)) {
goto lab←L100033;
};
if (((* (( (ptr) gf←c63484)+49) ) == XR←GetReferentType(var←c58972))) {
{
word tdd←v12396;
tdd←v12396 = var←c58972;
SOURCE(12333, 187)
if (((* (( (ptr) tdd←v12396)+2) ) != 1023)) {
SOURCE(12381, 54)
{
word var←c59036;
word pd333;
pd333 = (* (( (ptr) (* (( (ptr) gf←c63484)+381)/* var←c59004 */ ))+5) );
var←c59036 = (word) ( *( (fPt) ((* (ptr) pd333 ))))(tdd←v12396, (* (( (ptr) gf←c63484)+74) ), 1, 0, pd333);
};
SOURCE(12437, 37)
(* (( (ptr) tdd←v12396)+2) ) = 1023;
SOURCE(12476, 17)
(void) ForkPaint←P1800(viewer←v38028);
SOURCE(12495, 25)
{
word pd334;
pd334 = (* (( (ptr) (* (( (ptr) gf←c63484)+381)/* var←c59004 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd334 ))))(tdd←v12396, pd334);
};
};
};
}
else {
lab←L100033: ;
};
};
SOURCE(12537, 14)
recordAtom←v38072 = 0;
quit←v38100 = 0;
/* removed tail goto */
(* (ptr) formal←c0231 ) = recordAtom←v38072;
(* (( (ptr) formal←c0231)+1) ) = quit←v38100;
return;
}
static void FirstLevelOnly←P1080(formal←c0238, viewer←v38160)
word formal←c0238;
word viewer←v38160;
{
register ptr gf←c63516 = (ptr) &globalframe;
word recordAtom←v38204;
word quit←v38232;
/* FirstLevelOnly: */
SOURCE(12557, 315)
SOURCE(12557, 315)
recordAtom←v38204 = 1;
SOURCE(12557, 315)
quit←v38232 = 0;
SOURCE(12596, 245)
{
word var←c59068;
var←c59068 = (* (( (ptr) viewer←v38160)+26) );
if ((var←c59068 == 0)) {
goto lab←L100035;
};
if (((* (( (ptr) gf←c63516)+49) ) == XR←GetReferentType(var←c59068))) {
{
word tdd←v12440;
tdd←v12440 = var←c59068;
SOURCE(12667, 174)
if (((* (( (ptr) tdd←v12440)+2) ) != 1)) {
SOURCE(12695, 59)
{
word var←c59100;
word pd335;
pd335 = (* (( (ptr) (* (( (ptr) gf←c63516)+381)/* var←c59004 */ ))+5) );
var←c59100 = (word) ( *( (fPt) ((* (ptr) pd335 ))))(tdd←v12440, (* (( (ptr) gf←c63516)+76) ), 1, 0, pd335);
};
SOURCE(12756, 17)
(* (( (ptr) tdd←v12440)+2) ) = 1;
SOURCE(12775, 20)
(void) CheckFirstLevel←P1860(tdd←v12440);
SOURCE(12797, 17)
(void) ForkPaint←P1800(viewer←v38160);
SOURCE(12816, 25)
{
word pd336;
pd336 = (* (( (ptr) (* (( (ptr) gf←c63516)+381)/* var←c59004 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd336 ))))(tdd←v12440, pd336);
};
};
};
}
else {
lab←L100035: ;
};
};
SOURCE(12858, 14)
recordAtom←v38204 = 0;
quit←v38232 = 0;
/* removed tail goto */
(* (ptr) formal←c0238 ) = recordAtom←v38204;
(* (( (ptr) formal←c0238)+1) ) = quit←v38232;
return;
}
static void MoreLevels←P1140(formal←c0244, formal←c0649)
word formal←c0244;
word formal←c0649;
{
W6 var←c63548;
/* declaration of viewer←v38292 skipped */
register ptr gf←c63580 = (ptr) &globalframe;
word recordAtom←v38336;
word quit←v38364;
var←c63548.f4/* viewer←v38292 */ = formal←c0649;
/* MoreLevels: */
SOURCE(12878, 348)
SOURCE(12878, 348)
recordAtom←v38336 = 1;
SOURCE(12878, 348)
quit←v38364 = 0;
SOURCE(12913, 313)
{
word var←c59132;
var←c59132 = (* (( (ptr) var←c63548.f4/* viewer←v38292 */ )+26) );
if ((var←c59132 == 0)) {
goto lab←L100037;
};
if (((* (( (ptr) gf←c63580)+49) ) == XR←GetReferentType(var←c59132))) {
{
/* declaration of tdd←v12484 skipped */
var←c63548.f5/* tdd←v12484 */ = var←c59132;
SOURCE(12984, 242)
if (((* (( (ptr) var←c63548.f5/* tdd←v12484 */ )+2) ) < 1023)) {
SOURCE(13032, 194)
{
word var←c0611;
var←c0611 = (word) &var←c63548;
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q7260) ), ( ((word) (fPt) NoName←Q7920) ), var←c0611);
};
};
};
}
else {
lab←L100037: ;
};
};
/* removed tail goto */
(* (ptr) formal←c0244 ) = recordAtom←v38336;
(* (( (ptr) formal←c0244)+1) ) = quit←v38364;
return;
}
static word NoName←Q7260(formal←c0548)
word formal←c0548;
{
register ptr gf←c0547 = (ptr) &globalframe;
SOURCE(13087, 55)
{
word var←c59196;
word pd337;
pd337 = (* (( (ptr) (* (( (ptr) gf←c0547)+381)/* var←c59004 */ ))+5) );
var←c59196 = (word) ( *( (fPt) ((* (ptr) pd337 ))))((* (( (ptr) formal←c0548)+5) ), (* (( (ptr) gf←c0547)+77) ), 1, 0, pd337)
;
};
SOURCE(13144, 36)
{
word var←c59228;
{
word idx338;
var←c59228 = (
idx338 = (word) ((word) MaxLevelShown←P1920((* ((( (ptr) formal←c0548)+5)) )) + 1),
BCK(idx338, 1024)
);
};
(* (( (ptr) (* (( (ptr) formal←c0548)+5) ))+2) ) = var←c59228;
};
SOURCE(13182, 17)
(void) ForkPaint←P1800((* ((( (ptr) formal←c0548)+4)) ));
SOURCE(13201, 25)
{
word pd339;
pd339 = (* (( (ptr) (* (( (ptr) gf←c0547)+381)/* var←c59004 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd339 ))))((* ((( (ptr) formal←c0548)+5)) ), pd339);
};
return(0);
}
static void FewerLevels←P1200(formal←c0252, formal←c0650)
word formal←c0252;
word formal←c0650;
{
W6 var←c63612;
/* declaration of viewer←v38424 skipped */
register ptr gf←c63644 = (ptr) &globalframe;
word recordAtom←v38468;
word quit←v38496;
var←c63612.f4/* viewer←v38424 */ = formal←c0650;
/* FewerLevels: */
SOURCE(13247, 502)
SOURCE(13247, 502)
recordAtom←v38468 = 1;
SOURCE(13247, 502)
quit←v38496 = 0;
SOURCE(13283, 435)
{
word var←c59260;
var←c59260 = (* (( (ptr) var←c63612.f4/* viewer←v38424 */ )+26) );
if ((var←c59260 == 0)) {
goto lab←L100041;
};
if (((* (( (ptr) gf←c63644)+49) ) == XR←GetReferentType(var←c59260))) {
{
/* declaration of tdd←v12528 skipped */
var←c63612.f5/* tdd←v12528 */ = var←c59260;
SOURCE(13352, 366)
if (((* (( (ptr) var←c63612.f5/* tdd←v12528 */ )+2) ) != 1)) {
SOURCE(13380, 338)
{
word pd340;
pd340 = (* (( (ptr) (* (( (ptr) gf←c63644)+382)/* var←c59164 */ ))+7) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd340 ))))(var←c63612.f5/* tdd←v12528 */ , (* (( (ptr) gf←c63644)+78) ), pd340))) {
SOURCE(13440, 278)
{
word var←c0612;
var←c0612 = (word) &var←c63612;
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q7320) ), ( ((word) (fPt) NoName←Q7860) ), var←c0612);
};
};
};
};
};
}
else {
lab←L100041: ;
};
};
SOURCE(13735, 14)
recordAtom←v38468 = 0;
quit←v38496 = 0;
/* removed tail goto */
(* (ptr) formal←c0252 ) = recordAtom←v38468;
(* (( (ptr) formal←c0252)+1) ) = quit←v38496;
return;
}
static word NoName←Q7320(formal←c0551)
word formal←c0551;
{
register ptr gf←c0550 = (ptr) &globalframe;
SOURCE(13495, 30)
{
word level←v12572;
SOURCE(13495, 30)
level←v12572 = (* (( (ptr) (* (( (ptr) formal←c0551)+5) ))+2) );
SOURCE(13527, 64)
if (( (int)level←v12572 == (int)1023)) {
SOURCE(13565, 26)
level←v12572 = (word) MaxLevelShown←P1920((* ((( (ptr) formal←c0551)+5)) ));
};
SOURCE(13593, 84)
if (( (int)level←v12572 != (int)1)) {
SOURCE(13613, 23)
(* (( (ptr) (* (( (ptr) formal←c0551)+5) ))+2) ) = BCK((level←v12572 - 1), 1024);
SOURCE(13638, 20)
(void) CheckFirstLevel←P1860((* ((( (ptr) formal←c0551)+5)) ));
SOURCE(13660, 17)
(void) ForkPaint←P1800((* ((( (ptr) formal←c0551)+4)) ));
};
SOURCE(13682, 36)
{
word pd341;
pd341 = (* (( (ptr) (* (( (ptr) gf←c0550)+382)/* var←c59164 */ ))+9) );
(void) ( *( (fPt) ((* (ptr) pd341 ))))((* ((( (ptr) formal←c0551)+5)) ), pd341);
};
};
return(0);
}
static void DoEdit←P1260(formal←c0267, viewer←v38556)
word formal←c0267;
word viewer←v38556;
{
register ptr gf←c63676 = (ptr) &globalframe;
word recordAtom←v38600;
word quit←v38628;
/* DoEdit: */
SOURCE(13755, 1763)
SOURCE(13755, 1763)
recordAtom←v38600 = 1;
SOURCE(13755, 1763)
quit←v38628 = 0;
if (((* (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c63676)+373)/* var←c57436 */ ))+4) ) ) ) == 0)) {
SOURCE(13836, 85)
if (((* (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c63676)+373)/* var←c57436 */ ))+5) ) ) ) != 0)) {
SOURCE(13877, 44)
{
word pd342;
pd342 = (* (( (ptr) (* (( (ptr) gf←c63676)+373)/* var←c57436 */ ))+25) );
(void) ( *( (fPt) ((* (ptr) pd342 ))))(0, 1, 0, 0, 1, pd342);
};
};
SOURCE(13947, 20)
recordAtom←v38600 = 0;
}
else {
if (((* (( (ptr) gf←c63676)+18)/* editState←v4764 */ ) == 2)) {
SOURCE(13997, 18)
recordAtom←v38600 = 0;
SOURCE(14017, 18)
{
word pd343;
pd343 = (* (( (ptr) (* (( (ptr) gf←c63676)+380)/* var←c58300 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd343 ))))((* ((( (ptr) gf←c63676)+79)) ), pd343);
};
SOURCE(14037, 26)
{
word pd344;
pd344 = (* (( (ptr) (* (( (ptr) gf←c63676)+379)/* var←c58236 */ ))+29) );
(void) ( *( (fPt) ((* (ptr) pd344 ))))(1, pd344);
};
}
else {
if (((* (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c63676)+373)/* var←c57436 */ ))+5) ) ) ) == 0)) {
SOURCE(14107, 18)
recordAtom←v38600 = 0;
}
else {
SOURCE(14139, 1158)
SOURCE(14307, 17)
recordAtom←v38600 = 1;
SOURCE(14326, 930)
{
word var←c59292;
var←c59292 = (* (( (ptr) gf←c63676)+18)/* editState←v4764 */ );
switch (var←c59292) {
case 0: case 1:
SOURCE(14364, 18)
recordAtom←v38600 = 0;
break;
case 3:
SOURCE(14399, 24)
{
word pd345;
pd345 = (* (( (ptr) (* (( (ptr) gf←c63676)+380)/* var←c58300 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd345 ))))((* ((( (ptr) gf←c63676)+80)) ), pd345);
};
SOURCE(14425, 21)
{
word pd346;
pd346 = (* (( (ptr) (* (( (ptr) gf←c63676)+380)/* var←c58300 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd346 ))))((* ((( (ptr) gf←c63676)+81)) ), pd346);
};
SOURCE(14448, 18)
SOURCE(14189, 113)
{
word var←c59324;
{
word var←c59356;
var←c59356 = (* (( (ptr) gf←c63676)+19)/* editObject←v4820 */ );
switch (var←c59356) {
/*1*/ case 0:
/*1*/ var←c59324 = (* (( (ptr) gf←c63676)+85) );
/*1*/ break;
/*1*/ case 1:
/*1*/ var←c59324 = (* (( (ptr) gf←c63676)+86) );
/*1*/ break;
/*1*/ case 2:
/*1*/ var←c59324 = (* (( (ptr) gf←c63676)+87) );
/*1*/ break;
/*1*/ default:
/*1*/ var←c59324 = (
/*1*/ XR←RaiseUnnamedError(), 0
/*1*/ );
/*1*/ break;
/*1*/ };
};
{
word pd347;
pd347 = (* (( (ptr) (* (( (ptr) gf←c63676)+380)/* var←c58300 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd347 ))))(var←c59324, pd347);
};
};
SOURCE(14468, 215)
{
word var←c59388;
var←c59388 = (* (( (ptr) gf←c63676)+19)/* editObject←v4820 */ );
switch (var←c59388) {
case 0:
SOURCE(14501, 62)
/*1*/ if ((0 != (* (( (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c63676)+373)/* var←c57436 */ ))+4) ) ))+26) ))) {
SOURCE(14543, 20)
/*1*/ {
/*1*/ word pd348;
/*1*/ pd348 = (* (( (ptr) (* (( (ptr) gf←c63676)+380)/* var←c58300 */ ))+21) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd348 ))))((* ((( (ptr) gf←c63676)+82)) ), pd348);
/*1*/ };
/*1*/ };
SOURCE(14565, 29)
/*1*/ {
/*1*/ word pd349;
/*1*/ pd349 = (* (( (ptr) (* (( (ptr) gf←c63676)+379)/* var←c58236 */ ))+39) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd349 ))))(0, pd349);
/*1*/ };
/*1*/ break;
case 1:
SOURCE(14606, 32)
/*1*/ {
/*1*/ word pd350;
/*1*/ pd350 = (* (( (ptr) (* (( (ptr) gf←c63676)+379)/* var←c58236 */ ))+40) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd350 ))))(0, pd350);
/*1*/ };
/*1*/ break;
case 2:
SOURCE(14650, 33)
/*1*/ {
/*1*/ word pd351;
/*1*/ pd351 = (* (( (ptr) (* (( (ptr) gf←c63676)+379)/* var←c58236 */ ))+41) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd351 ))))(0, pd351);
/*1*/ };
/*1*/ break;
default:
SOURCE(14696, 7)
/*1*/ (void) XR←RaiseUnnamedError();
/*1*/ break;
};
};
break;
case 4:
SOURCE(14723, 24)
{
word pd352;
pd352 = (* (( (ptr) (* (( (ptr) gf←c63676)+380)/* var←c58300 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd352 ))))((* ((( (ptr) gf←c63676)+80)) ), pd352);
};
SOURCE(14749, 23)
{
word pd353;
pd353 = (* (( (ptr) (* (( (ptr) gf←c63676)+380)/* var←c58300 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd353 ))))((* ((( (ptr) gf←c63676)+83)) ), pd353);
};
SOURCE(14774, 18)
SOURCE(14189, 113)
{
word var←c59420;
{
word var←c59452;
var←c59452 = (* (( (ptr) gf←c63676)+19)/* editObject←v4820 */ );
switch (var←c59452) {
/*1*/ case 0:
/*1*/ var←c59420 = (* (( (ptr) gf←c63676)+85) );
/*1*/ break;
/*1*/ case 1:
/*1*/ var←c59420 = (* (( (ptr) gf←c63676)+86) );
/*1*/ break;
/*1*/ case 2:
/*1*/ var←c59420 = (* (( (ptr) gf←c63676)+87) );
/*1*/ break;
/*1*/ default:
/*1*/ var←c59420 = (
/*1*/ XR←RaiseUnnamedError(), 0
/*1*/ );
/*1*/ break;
/*1*/ };
};
{
word pd354;
pd354 = (* (( (ptr) (* (( (ptr) gf←c63676)+380)/* var←c58300 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd354 ))))(var←c59420, pd354);
};
};
SOURCE(14794, 221)
{
word var←c59484;
var←c59484 = (* (( (ptr) gf←c63676)+19)/* editObject←v4820 */ );
switch (var←c59484) {
case 0:
SOURCE(14827, 62)
/*1*/ if ((0 != (* (( (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c63676)+373)/* var←c57436 */ ))+4) ) ))+26) ))) {
SOURCE(14869, 20)
/*1*/ {
/*1*/ word pd355;
/*1*/ pd355 = (* (( (ptr) (* (( (ptr) gf←c63676)+380)/* var←c58300 */ ))+21) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd355 ))))((* ((( (ptr) gf←c63676)+82)) ), pd355);
/*1*/ };
/*1*/ };
SOURCE(14891, 31)
/*1*/ {
/*1*/ word pd356;
/*1*/ pd356 = (* (( (ptr) (* (( (ptr) gf←c63676)+379)/* var←c58236 */ ))+39) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd356 ))))(1, pd356);
/*1*/ };
/*1*/ break;
case 1:
SOURCE(14934, 34)
/*1*/ {
/*1*/ word pd357;
/*1*/ pd357 = (* (( (ptr) (* (( (ptr) gf←c63676)+379)/* var←c58236 */ ))+40) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd357 ))))(1, pd357);
/*1*/ };
/*1*/ break;
case 2:
SOURCE(14980, 35)
/*1*/ {
/*1*/ word pd358;
/*1*/ pd358 = (* (( (ptr) (* (( (ptr) gf←c63676)+379)/* var←c58236 */ ))+41) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd358 ))))(1, pd358);
/*1*/ };
/*1*/ break;
default:
SOURCE(15028, 7)
/*1*/ (void) XR←RaiseUnnamedError();
/*1*/ break;
};
};
break;
case 5:
SOURCE(15050, 24)
{
word pd359;
pd359 = (* (( (ptr) (* (( (ptr) gf←c63676)+380)/* var←c58300 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd359 ))))((* ((( (ptr) gf←c63676)+80)) ), pd359);
};
SOURCE(15076, 18)
{
word pd360;
pd360 = (* (( (ptr) (* (( (ptr) gf←c63676)+380)/* var←c58300 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd360 ))))((* ((( (ptr) gf←c63676)+84)) ), pd360);
};
SOURCE(15096, 18)
SOURCE(14189, 113)
{
word var←c59516;
{
word var←c59548;
var←c59548 = (* (( (ptr) gf←c63676)+19)/* editObject←v4820 */ );
switch (var←c59548) {
/*1*/ case 0:
/*1*/ var←c59516 = (* (( (ptr) gf←c63676)+85) );
/*1*/ break;
/*1*/ case 1:
/*1*/ var←c59516 = (* (( (ptr) gf←c63676)+86) );
/*1*/ break;
/*1*/ case 2:
/*1*/ var←c59516 = (* (( (ptr) gf←c63676)+87) );
/*1*/ break;
/*1*/ default:
/*1*/ var←c59516 = (
/*1*/ XR←RaiseUnnamedError(), 0
/*1*/ );
/*1*/ break;
/*1*/ };
};
{
word pd361;
pd361 = (* (( (ptr) (* (( (ptr) gf←c63676)+380)/* var←c58300 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd361 ))))(var←c59516, pd361);
};
};
SOURCE(15116, 140)
{
word var←c59580;
var←c59580 = (* (( (ptr) gf←c63676)+19)/* editObject←v4820 */ );
switch (var←c59580) {
case 0:
SOURCE(15147, 25)
/*1*/ {
/*1*/ word pd362;
/*1*/ pd362 = (* (( (ptr) (* (( (ptr) gf←c63676)+379)/* var←c58236 */ ))+42) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd362 ))))(0, pd362);
/*1*/ };
/*1*/ break;
case 1:
SOURCE(15183, 30)
/*1*/ {
/*1*/ word pd363;
/*1*/ pd363 = (* (( (ptr) (* (( (ptr) gf←c63676)+379)/* var←c58236 */ ))+43) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd363 ))))(0, pd363);
/*1*/ };
/*1*/ break;
case 2:
SOURCE(15225, 31)
/*1*/ {
/*1*/ word pd364;
/*1*/ pd364 = (* (( (ptr) (* (( (ptr) gf←c63676)+379)/* var←c58236 */ ))+44) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd364 ))))(0, pd364);
/*1*/ };
/*1*/ break;
default:
SOURCE(15269, 7)
/*1*/ (void) XR←RaiseUnnamedError();
/*1*/ break;
};
};
break;
default:
SOURCE(15290, 7)
(void) XR←RaiseUnnamedError();
break;
};
};
};
};
};
SOURCE(15300, 17)
(* (( (ptr) gf←c63676)+18)/* editState←v4764 */ ) = 0;
SOURCE(15319, 17)
(* (( (ptr) gf←c63676)+19)/* editObject←v4820 */ ) = 0;
SOURCE(15338, 17)
(* (( (ptr) gf←c63676)+15)/* pdelState←v4624 */ ) = 0;
SOURCE(15357, 12)
(* (( (ptr) gf←c63676)+16)/* pDel←v4652 */ ) = 0;
SOURCE(15371, 16)
(* (( (ptr) gf←c63676)+13)/* selState←v4512 */ ) = 0;
SOURCE(15389, 13)
(* (( (ptr) gf←c63676)+14)/* sel←v4568 */ ) = 0;
SOURCE(15404, 16)
(* (( (ptr) gf←c63676)+20)/* mouseColor←v4876 */ ) = 0;
SOURCE(15450, 47)
if (((* (( (ptr) gf←c63676)+24)/* editMessage←v4988 */ ) != 0)) {
SOURCE(15476, 21)
{
word pd365;
pd365 = (* (( (ptr) (* (( (ptr) gf←c63676)+376)/* var←c58076 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd365 ))))(pd365);
};
};
SOURCE(15499, 19)
(* (( (ptr) gf←c63676)+24)/* editMessage←v4988 */ ) = 0;
/* removed tail goto */
(* (ptr) formal←c0267 ) = recordAtom←v38600;
(* (( (ptr) formal←c0267)+1) ) = quit←v38628;
return;
}
static void MakePointSelection←P1320(formal←c0272, viewer←v38688)
word formal←c0272;
word viewer←v38688;
{
register ptr gf←c63708 = (ptr) &globalframe;
word recordAtom←v38732;
word quit←v38760;
/* MakePointSelection: */
SOURCE(15522, 379)
SOURCE(15522, 379)
recordAtom←v38732 = 1;
SOURCE(15522, 379)
quit←v38760 = 0;
SOURCE(15565, 53)
{
word pd366;
pd366 = (* (( (ptr) (* (( (ptr) gf←c63708)+373)/* var←c57436 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd366 ))))(0, (* (( (ptr) gf←c63708)+88) ), pd366);
};
SOURCE(15620, 246)
if (((* (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c63708)+373)/* var←c57436 */ ))+4) ) ) ) != 0)) {
SOURCE(15659, 207)
{
W2 var←c59612;
W2 var←c0613;
{
word tcp367;
if (((* (( (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c63708)+373)/* var←c57436 */ ))+4) ) ))+24) ) == 0)) {
tcp367 = (word) (( (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c63708)+373)/* var←c57436 */ ))+4) ) ))+2);
}
else {
var←c59612.f0 = (* (( (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c63708)+373)/* var←c57436 */ ))+4) ) ))+11) );
var←c59612.f1 = ((* (( (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c63708)+373)/* var←c57436 */ ))+4) ) ))+12) ) + 1);
tcp367 = (word) &var←c59612;
};
var←c0613 = (* (W2Pt) tcp367 );
};
{
word pd368;
pd368 = (* (( (ptr) (* (( (ptr) gf←c63708)+373)/* var←c57436 */ ))+46) );
(void) ( *( (fPt) ((* (ptr) pd368 ))))((* (ptr) (* (( (ptr) (* (( (ptr) gf←c63708)+373)/* var←c57436 */ ))+4) ) ), var←c0613, pd368)
;
};
};
};
SOURCE(15868, 33)
{
word pd369;
pd369 = (* (( (ptr) (* (( (ptr) gf←c63708)+373)/* var←c57436 */ ))+22) );
(void) ( *( (fPt) ((* (ptr) pd369 ))))(0, pd369);
};
/* removed tail goto */
(* (ptr) formal←c0272 ) = recordAtom←v38732;
(* (( (ptr) formal←c0272)+1) ) = quit←v38760;
return;
}
static void Split←P1380(formal←c0651)
word formal←c0651;
{
W14 var←c63740;
/* declaration of old←v7664 skipped */
register ptr gf←c63772 = (ptr) &globalframe;
/* declaration of var←c59644 skipped */
/* declaration of tddNew←v12676 skipped */
/* declaration of tddOld←v12704 skipped */
/* declaration of new←v12732 skipped */
word paintCaption←v12760 = 0;
/* declaration of selectionHistory←v12788 skipped */
/* declaration of lines←v12816 skipped */
/* declaration of loc←v12844 skipped */
(* (( (ptr) &var←c63740)+4)/* old←v7664 */ ) = formal←c0651;
/* Split: */
SOURCE(15907, 2471)
{
word tmpAddr370;
tmpAddr370 = (word) (( (ptr) &var←c63740)+5)/* var←c59644 */ ;
(* (ptr) tmpAddr370 ) = ( ((word) (fPt) inner←P4812) );
(* (( (ptr) tmpAddr370) + 1) ) = 1;
};
SOURCE(15982, 47)
(* (( (ptr) &var←c63740)+7)/* tddNew←v12676 */ ) = 0;
(* (( (ptr) &var←c63740)+8)/* tddOld←v12704 */ ) = 0;
SOURCE(16031, 25)
(* (( (ptr) &var←c63740)+9)/* new←v12732 */ ) = 0;
SOURCE(16086, 41)
(* (( (ptr) &var←c63740)+10)/* selectionHistory←v12788 */ ) = 0;
SOURCE(16129, 30)
(* (( (ptr) &var←c63740)+11)/* lines←v12816 */ ) = 0;
SOURCE(16161, 22)
(* (( (ptr) &var←c63740)+12) ) = 0;
(* (( (ptr) &var←c63740)+13) ) = 0;
SOURCE(16185, 25)
(* (( (ptr) &var←c63740)+8)/* tddOld←v12704 */ ) = XR←Narrow((* (( (ptr) (* (( (ptr) &var←c63740)+4)/* old←v7664 */ ))+26)
), (* (( (ptr) gf←c63772)+49) ));
SOURCE(16212, 27)
if (((* (( (ptr) &var←c63740)+8)/* tddOld←v12704 */ ) == 0)) {
SOURCE(16233, 6)
return;
};
SOURCE(16241, 126)
{
W28 var←c59708;
W30 var←c0283;
(* (ptr) (word) &var←c0283 ) = (* (ptr) (* (ptr) (* (( (ptr) &var←c63740)+4)/* old←v7664 */ ) ) );
XR←FillWords(&(* (W27Pt) (&var←c59708)), 27, 0);
(* (( (ptr) &var←c59708)+13) ) = (* (( (ptr) (* (( (ptr) &var←c63740)+4)/* old←v7664 */ ))+13) );
(* (( (ptr) &var←c59708)+17) ) = (word) -1;
(* (( (ptr) &var←c59708)+18) ) = (* (( (ptr) (* (( (ptr) &var←c63740)+4)/* old←v7664 */ ))+18) );
(* (( (ptr) &var←c59708)+19) ) = 1493172224;
(* (( (ptr) &var←c59708)+27) ) = 27;
(* (W28Pt) (( (ptr) (word) &var←c0283) + 1) ) = var←c59708;
(* (( (ptr) (word) &var←c0283) + 29) ) = 0;
{
word pd371;
pd371 = (* (( (ptr) (* (( (ptr) gf←c63772)+383)/* var←c59740 */ ))+6) );
(* (( (ptr) &var←c63740)+9)/* new←v12732 */ ) = (word) ( *( (fPt) ((* (ptr) pd371 ))))((word) (&var←c0283), pd371);
};
};
SOURCE(16369, 43)
{
word pd372;
pd372 = (* (( (ptr) (* (( (ptr) gf←c63772)+383)/* var←c59740 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd372 ))))((* (( (ptr) &var←c63740)+9)/* new←v12732 */ ), 0, 1, 0, pd372);
};
SOURCE(16414, 66)
{
word pd373;
pd373 = (* (( (ptr) (* (( (ptr) gf←c63772)+383)/* var←c59740 */ ))+13) );
(void) ( *( (fPt) ((* (ptr) pd373 ))))((* (( (ptr) &var←c63740)+9)/* new←v12732 */ ), (* (( (ptr) &var←c63740)+4)/* old←v7664 */ ), 0, pd373)
;
};
SOURCE(16482, 25)
(* (( (ptr) &var←c63740)+7)/* tddNew←v12676 */ ) = XR←Narrow((* (( (ptr) (* (( (ptr) &var←c63740)+9)/* new←v12732 */ ))+26)
), (* (( (ptr) gf←c63772)+49) ));
SOURCE(16509, 27)
if (((* (( (ptr) &var←c63740)+7)/* tddNew←v12676 */ ) == 0)) {
SOURCE(16530, 6)
return;
};
SOURCE(16611, 70)
{
word pd374;
pd374 = (* (( (ptr) (* (( (ptr) gf←c63772)+383)/* var←c59740 */ ))+29) );
(* (( (ptr) &var←c63740)+10)/* selectionHistory←v12788 */ ) = XR←Narrow((word) ( *( (fPt) ((* (ptr) pd374 ))))((* (( (ptr) &var←c63740)+4)
/* old←v7664 */ ), (* (( (ptr) gf←c63772)+89) ), pd374), (* (( (ptr) gf←c63772)+31) ));
};
SOURCE(16683, 14)
(* (( (ptr) (* (( (ptr) &var←c63740)+9)/* new←v12732 */ ))+21) ) = (* (( (ptr) &var←c63740)+4)/* old←v7664 */ );
SOURCE(16699, 164)
if (((* (( (ptr) (* (( (ptr) &var←c63740)+4)/* old←v7664 */ ))+21) ) == 0)) {
SOURCE(16722, 14)
(* (( (ptr) (* (( (ptr) &var←c63740)+4)/* old←v7664 */ ))+21) ) = (* (( (ptr) &var←c63740)+9)/* new←v12732 */ );
SOURCE(16738, 20)
paintCaption←v12760 = 1;
}
else {
SOURCE(16765, 98)
{
register word v←v12888;
v←v12888 = (* (( (ptr) (* (( (ptr) &var←c63740)+4)/* old←v7664 */ ))+21) );
lab←L100049: ;
if (((* (( (ptr) v←v12888)+21) ) != (* (( (ptr) &var←c63740)+4)/* old←v7664 */ ))) {
}
else {
goto lab←L100046;
};
v←v12888 = (* (( (ptr) v←v12888)+21) );
goto lab←L100049;
lab←L100046: ;
SOURCE(16851, 12)
(* (( (ptr) v←v12888)+21) ) = (* (( (ptr) &var←c63740)+9)/* new←v12732 */ );
};
};
SOURCE(16874, 31)
((P1x5b) (( (bPt) (* (( (ptr) &var←c63740)+9)/* new←v12732 */ )) + 76))->f = (((unsigned)(* (( (bPt) (* (( (ptr) &var←c63740)+4)
/* old←v7664 */ ))+76) ) << 29) >> 31);
SOURCE(16907, 25)
((P1x6b) (( (bPt) (* (( (ptr) &var←c63740)+9)/* new←v12732 */ )) + 76))->f = (((unsigned)(* (( (bPt) (* (( (ptr) &var←c63740)+4)
/* old←v7664 */ ))+76) ) << 30) >> 31);
SOURCE(16934, 19)
(* (( (ptr) (* (( (ptr) &var←c63740)+9)/* new←v12732 */ ))+14) ) = (* (( (ptr) (* (( (ptr) &var←c63740)+4)/* old←v7664 */ ))+14)
);
SOURCE(16955, 57)
{
word pd375;
pd375 = (* (( (ptr) (* (( (ptr) gf←c63772)+383)/* var←c59740 */ ))+38) );
(void) ( *( (fPt) ((* (ptr) pd375 ))))((* (( (ptr) (* (( (ptr) &var←c63740)+9)/* new←v12732 */ ))+18) ), 0, pd375);
};
SOURCE(17036, 966)
SOURCE(17952, 48)
{
word pd376;
pd376 = (* (( (ptr) (* (( (ptr) gf←c63772)+384)/* var←c59772 */ ))+5) );
(void) ( *( (fPt) ((* (ptr) pd376 ))))((word) (( (bPt) &var←c63740)+20)/* var←c59644 */ , (* (( (ptr) &var←c63740)+4)/* old←v7664 */ ), (* (
( (ptr) &var←c63740)+9)/* new←v12732 */ ), 0, pd376);
};
SOURCE(18005, 39)
{
word pd377;
pd377 = (* (( (ptr) (* (( (ptr) gf←c63772)+385)/* var←c59804 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd377 ))))((* (( (ptr) &var←c63740)+7)/* tddNew←v12676 */ ), (* (W2Pt) (( (ptr) &var←c63740)+12)
/* loc←v12844 */ ), 0, pd377);
};
SOURCE(18046, 56)
{
word pd378;
pd378 = (* (( (ptr) (* (( (ptr) gf←c63772)+383)/* var←c59740 */ ))+38) );
(void) ( *( (fPt) ((* (ptr) pd378 ))))((* (( (ptr) (* (( (ptr) &var←c63740)+9)/* new←v12732 */ ))+18) ), 1, pd378);
};
SOURCE(18127, 251)
{
register word v←v13080;
v←v13080 = (* (( (ptr) (* (( (ptr) &var←c63740)+9)/* new←v12732 */ ))+21) );
lab←L100053: ;
if ((v←v13080 != 0)) {
}
else {
goto lab←L100050;
};
SOURCE(18191, 16)
if ((v←v13080 == (* (( (ptr) &var←c63740)+9)/* new←v12732 */ ))) {
SOURCE(18207, 4)
goto lab←L100051;
};
SOURCE(18213, 65)
if ((* (( (bPt) v←v13080)+76) ) & 020) {
SOURCE(18252, 26)
{
word pd379;
pd379 = (* (( (ptr) (* (( (ptr) gf←c63772)+383)/* var←c59740 */ ))+15) );
(void) ( *( (fPt) ((* (ptr) pd379 ))))(v←v13080, 1, pd379);
};
SOURCE(18280, 5)
goto lab←L100051;
};
SOURCE(18288, 90)
if ((0 != paintCaption←v12760)) {
SOURCE(18309, 69)
{
word pd380;
pd380 = (* (( (ptr) (* (( (ptr) gf←c63772)+386)/* var←c59836 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd380 ))))(v←v13080, 3, 1, 0, 1, pd380);
};
};
v←v13080 = (* (( (ptr) v←v13080)+21) );
goto lab←L100053;
lab←L100050: ;
lab←L100051: ;
};
}
static void inner←P4812(formal←c63836)
word formal←c63836;
{
register ptr gf←c63804 = (ptr) &globalframe;
formal←c63836 = (formal←c63836 - 20);
/* inner: */
SOURCE(17038, 14)
SOURCE(17054, 47)
{
word var←c59868;
word pd381;
pd381 = (* (( (ptr) (* (( (ptr) gf←c63804)+381)/* var←c59004 */ ))+5) );
var←c59868 = (word) ( *( (fPt) ((* (ptr) pd381 ))))((* (( (ptr) formal←c63836)+8) ), (* (( (ptr) gf←c63804)+90) ), 0, 0, pd381)
;
};
SOURCE(17141, 25)
(* (ptr) (* (( (ptr) formal←c63836)+7) ) ) = (* (ptr) (* (( (ptr) formal←c63836)+8) ) );
SOURCE(17168, 29)
(* (( (ptr) (* (( (ptr) formal←c63836)+7) ))+11) ) = (* (( (ptr) (* (( (ptr) formal←c63836)+8) ))+11) );
SOURCE(17199, 35)
(* (( (ptr) (* (( (ptr) formal←c63836)+7) ))+2) ) = (* (( (ptr) (* (( (ptr) formal←c63836)+8) ))+2) );
SOURCE(17236, 43)
(* (( (ptr) (* (( (ptr) formal←c63836)+7) ))+18) ) = (* (( (ptr) (* (( (ptr) formal←c63836)+8) ))+18) );
SOURCE(17281, 39)
{
word pd382;
pd382 = (* (( (ptr) (* (( (ptr) gf←c63804)+383)/* var←c59740 */ ))+32) );
(void) ( *( (fPt) ((* (ptr) pd382 ))))((* (( (ptr) formal←c63836)+9) ), (* (( (ptr) (* (( (ptr) formal←c63836)+4) ))+16)
), 0, pd382);
};
SOURCE(17322, 228)
if (((* (( (ptr) formal←c63836)+10) ) != 0)) {
SOURCE(17353, 199)
{
word newSelectionHistory←v12992;
SOURCE(17366, 78)
newSelectionHistory←v12992 = XR←NewObject(108, (* (( (ptr) gf←c63804)+31) ));
(* (( (ptr) newSelectionHistory←v12992)+22) ) = 1;
SOURCE(17446, 40)
(* (W27Pt) newSelectionHistory←v12992 ) = (* (W27Pt) (* (( (ptr) formal←c63836)+10) ) );
SOURCE(17488, 62)
{
word pd383;
pd383 = (* (( (ptr) (* (( (ptr) gf←c63804)+383)/* var←c59740 */ ))+28) );
(void) ( *( (fPt) ((* (ptr) pd383 ))))((* (( (ptr) formal←c63836)+9) ), (* (( (ptr) gf←c63804)+89) ), newSelectionHistory←v12992, pd383)
;
};
};
};
SOURCE(17555, 48)
{
word pd384;
pd384 = (* (( (ptr) (* (( (ptr) gf←c63804)+387)/* var←c59932 */ ))+11) );
(void) ( *( (fPt) ((* (ptr) pd384 ))))((* (( (ptr) formal←c63836)+4) ), (* (( (ptr) formal←c63836)+9) ), pd384);
};
SOURCE(17605, 44)
{
word pd385;
pd385 = (* (( (ptr) (* (( (ptr) gf←c63804)+387)/* var←c59932 */ ))+12) );
(void) ( *( (fPt) ((* (ptr) pd385 ))))((* (( (ptr) formal←c63836)+4) ), (* (( (ptr) formal←c63836)+9) ), pd385);
};
SOURCE(17651, 24)
(* (( (ptr) formal←c63836)+11) ) = (* (( (ptr) (* (( (ptr) formal←c63836)+8) ))+1) );
SOURCE(17677, 31)
{
word idx386;
word limit387;
(* (W2Pt) (( (ptr) formal←c63836)+12) ) = (* (W2Pt) (( (W9Pt) (( (ptr) (* (( (ptr) formal←c63836)+11) ))+3))+(
idx386 = (* (ptr) (* (( (ptr) formal←c63836)+11) ) ),
limit387 = (* (( (ptr) (* (( (ptr) formal←c63836)+11) ))+2) ),
BCK(idx386, limit387)
)) );
};
SOURCE(17748, 152)
{
register word n←v13036 = 0;
register word noName←c59964;
noName←c59964 = (* (ptr) (* (( (ptr) formal←c63836)+11) ) );
if (( (int)n←v13036 > (int)noName←c59964)) {
goto lab←L100054;
};
lab←L100057: ;
SOURCE(17828, 72)
{
word limit388;
word limit389;
if (( (int)((* (( (ptr) (( (W9Pt) (( (ptr) (* (( (ptr) formal←c63836)+11) ))+3))+(
limit388 = (* (( (ptr) (* (( (ptr) formal←c63836)+11) ))+2) ),
BCK(n←v13036, limit388)
)))+6) ) + (* (( (ptr) (( (W9Pt) (( (ptr) (* (( (ptr) formal←c63836)+11) ))+3))+(
limit389 = (* (( (ptr) (* (( (ptr) formal←c63836)+11) ))+2) ),
BCK(n←v13036, limit389)
)))+4) )) >= (int)(* (( (ptr) (* (( (ptr) formal←c63836)+4) ))+8) ))) {
SOURCE(17882, 18)
{
word limit390;
(* (W2Pt) (( (ptr) formal←c63836)+12) ) = (* (W2Pt) (( (W9Pt) (( (ptr) (* (( (ptr) formal←c63836)+11) ))+3))+(
limit390 = (* (( (ptr) (* (( (ptr) formal←c63836)+11) ))+2) ),
BCK(n←v13036, limit390)
)) );
};
SOURCE(17902, 5)
goto lab←L100055;
};
};
if (( (int)n←v13036 >= (int)noName←c59964)) {
goto lab←L100054;
};
n←v13036 = (n←v13036 + 1);
goto lab←L100057;
lab←L100054: ;
lab←L100055: ;
};
SOURCE(17919, 28)
{
word pd391;
pd391 = (* (( (ptr) (* (( (ptr) gf←c63804)+381)/* var←c59004 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd391 ))))((* ((( (ptr) formal←c63836)+8)) ), pd391);
};
}
static void UpdateSavedSelections←P1440(node←v7724, new←v7752)
word node←v7724;
word new←v7752;
{
register ptr gf←c63868 = (ptr) &globalframe;
/* UpdateSavedSelections: */
SOURCE(18393, 760)
SOURCE(18683, 72)
{
W2 var←c59996;
{
W2 var←c60028;
W2 loc←v55660;
loc←v55660 = (* (W2Pt) (( (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c63868)+373)/* var←c57436 */ ))+7) ) ))+2) );
SOURCE(18605, 36)
if ((loc←v55660.f0 != node←v7724)) {
SOURCE(18629, 12)
var←c60028 = loc←v55660;
goto lab←L100058;
};
SOURCE(18643, 37)
{
W2 var←c60060;
var←c60060.f0 = loc←v55660.f0;
var←c60060.f1 = (word) ( *( (fPt) ((* (ptr) new←v7752 ))))(loc←v55660.f1, new←v7752);
var←c60028 = var←c60060;
};
lab←L100058: ;
var←c59996 = var←c60028;
};
(* (W2Pt) (( (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c63868)+373)/* var←c57436 */ ))+7) ) ))+2) ) = var←c59996;
};
SOURCE(18757, 68)
{
W2 var←c60092;
{
W2 var←c60124;
W2 loc←v55612;
loc←v55612 = (* (W2Pt) (( (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c63868)+373)/* var←c57436 */ ))+7) ) ))+11) );
SOURCE(18605, 36)
if ((loc←v55612.f0 != node←v7724)) {
SOURCE(18629, 12)
var←c60124 = loc←v55612;
goto lab←L100059;
};
SOURCE(18643, 37)
{
W2 var←c60156;
var←c60156.f0 = loc←v55612.f0;
var←c60156.f1 = (word) ( *( (fPt) ((* (ptr) new←v7752 ))))(loc←v55612.f1, new←v7752);
var←c60124 = var←c60156;
};
lab←L100059: ;
var←c60092 = var←c60124;
};
(* (W2Pt) (( (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c63868)+373)/* var←c57436 */ ))+7) ) ))+11) ) = var←c60092;
};
SOURCE(18827, 48)
{
W2 var←c60188;
{
W2 var←c60220;
W2 loc←v55564;
loc←v55564 = (* (W2Pt) (( (ptr) (* (( (ptr) gf←c63868)+26)/* savedSelA←v5324 */ ))+2) );
SOURCE(18605, 36)
if ((loc←v55564.f0 != node←v7724)) {
SOURCE(18629, 12)
var←c60220 = loc←v55564;
goto lab←L100060;
};
SOURCE(18643, 37)
{
W2 var←c60252;
var←c60252.f0 = loc←v55564.f0;
var←c60252.f1 = (word) ( *( (fPt) ((* (ptr) new←v7752 ))))(loc←v55564.f1, new←v7752);
var←c60220 = var←c60252;
};
lab←L100060: ;
var←c60188 = var←c60220;
};
(* (W2Pt) (( (ptr) (* (( (ptr) gf←c63868)+26)/* savedSelA←v5324 */ ))+2) ) = var←c60188;
};
SOURCE(18877, 44)
{
W2 var←c60284;
{
W2 var←c60316;
W2 loc←v55516;
loc←v55516 = (* (W2Pt) (( (ptr) (* (( (ptr) gf←c63868)+26)/* savedSelA←v5324 */ ))+11) );
SOURCE(18605, 36)
if ((loc←v55516.f0 != node←v7724)) {
SOURCE(18629, 12)
var←c60316 = loc←v55516;
goto lab←L100061;
};
SOURCE(18643, 37)
{
W2 var←c60348;
var←c60348.f0 = loc←v55516.f0;
var←c60348.f1 = (word) ( *( (fPt) ((* (ptr) new←v7752 ))))(loc←v55516.f1, new←v7752);
var←c60316 = var←c60348;
};
lab←L100061: ;
var←c60284 = var←c60316;
};
(* (W2Pt) (( (ptr) (* (( (ptr) gf←c63868)+26)/* savedSelA←v5324 */ ))+11) ) = var←c60284;
};
SOURCE(18923, 48)
{
W2 var←c60380;
{
W2 var←c60412;
W2 loc←v55468;
loc←v55468 = (* (W2Pt) (( (ptr) (* (( (ptr) gf←c63868)+27)/* savedSelB←v5352 */ ))+2) );
SOURCE(18605, 36)
if ((loc←v55468.f0 != node←v7724)) {
SOURCE(18629, 12)
var←c60412 = loc←v55468;
goto lab←L100062;
};
SOURCE(18643, 37)
{
W2 var←c60444;
var←c60444.f0 = loc←v55468.f0;
var←c60444.f1 = (word) ( *( (fPt) ((* (ptr) new←v7752 ))))(loc←v55468.f1, new←v7752);
var←c60412 = var←c60444;
};
lab←L100062: ;
var←c60380 = var←c60412;
};
(* (W2Pt) (( (ptr) (* (( (ptr) gf←c63868)+27)/* savedSelB←v5352 */ ))+2) ) = var←c60380;
};
SOURCE(18973, 44)
{
W2 var←c60476;
{
W2 var←c60508;
W2 loc←v55420;
loc←v55420 = (* (W2Pt) (( (ptr) (* (( (ptr) gf←c63868)+27)/* savedSelB←v5352 */ ))+11) );
SOURCE(18605, 36)
if ((loc←v55420.f0 != node←v7724)) {
SOURCE(18629, 12)
var←c60508 = loc←v55420;
goto lab←L100063;
};
SOURCE(18643, 37)
{
W2 var←c60540;
var←c60540.f0 = loc←v55420.f0;
var←c60540.f1 = (word) ( *( (fPt) ((* (ptr) new←v7752 ))))(loc←v55420.f1, new←v7752);
var←c60508 = var←c60540;
};
lab←L100063: ;
var←c60476 = var←c60508;
};
(* (W2Pt) (( (ptr) (* (( (ptr) gf←c63868)+27)/* savedSelB←v5352 */ ))+11) ) = var←c60476;
};
SOURCE(19019, 68)
{
W2 var←c60572;
{
W2 var←c60604;
W2 loc←v55372;
loc←v55372 = (* (W2Pt) (( (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c63868)+373)/* var←c57436 */ ))+6) ) ))+2) );
SOURCE(18605, 36)
if ((loc←v55372.f0 != node←v7724)) {
SOURCE(18629, 12)
var←c60604 = loc←v55372;
goto lab←L100064;
};
SOURCE(18643, 37)
{
W2 var←c60636;
var←c60636.f0 = loc←v55372.f0;
var←c60636.f1 = (word) ( *( (fPt) ((* (ptr) new←v7752 ))))(loc←v55372.f1, new←v7752);
var←c60604 = var←c60636;
};
lab←L100064: ;
var←c60572 = var←c60604;
};
(* (W2Pt) (( (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c63868)+373)/* var←c57436 */ ))+6) ) ))+2) ) = var←c60572;
};
SOURCE(19089, 64)
{
W2 var←c60668;
{
W2 var←c60700;
W2 loc←v55324;
loc←v55324 = (* (W2Pt) (( (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c63868)+373)/* var←c57436 */ ))+6) ) ))+11) );
SOURCE(18605, 36)
if ((loc←v55324.f0 != node←v7724)) {
SOURCE(18629, 12)
var←c60700 = loc←v55324;
goto lab←L100065;
};
SOURCE(18643, 37)
{
W2 var←c60732;
var←c60732.f0 = loc←v55324.f0;
var←c60732.f1 = (word) ( *( (fPt) ((* (ptr) new←v7752 ))))(loc←v55324.f1, new←v7752);
var←c60700 = var←c60732;
};
lab←L100065: ;
var←c60668 = var←c60700;
};
(* (W2Pt) (( (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c63868)+373)/* var←c57436 */ ))+6) ) ))+11) ) = var←c60668;
};
}
static word CheckSelection←P1500(sel←v7916)
word sel←v7916;
{
register ptr gf←c63900 = (ptr) &globalframe;
word var←c7960;
/* CheckSelection: */
SOURCE(19159, 1083)
SOURCE(19235, 1007)
SOURCE(19237, 31)
{
word root←v13272 = 0;
word first←v13300 = 0;
word last←v13328 = 0;
word t1←v13356 = 0;
word t2←v13384 = 0;
word tdd←v13412 = 0;
word var←c60860;
word var←c60892;
SOURCE(19338, 30)
if ((sel←v7916 == 0)) {
SOURCE(19354, 14)
return(0);
};
SOURCE(19370, 47)
if (((* (ptr) sel←v7916 ) == 0) || (* (( (bPt) (* (ptr) sel←v7916 ))+77) ) & 0100) {
SOURCE(19417, 11)
goto lab←L100066;
};
SOURCE(19430, 74)
first←v13300 = (* (( (ptr) sel←v7916)+2) );
if ((first←v13300 == 0)) { goto then0392;};
last←v13328 = (* (( (ptr) sel←v7916)+11) );
if ((last←v13328 == 0)) {
then0392: ;
SOURCE(19504, 11)
goto lab←L100066;
};
SOURCE(19517, 44)
tdd←v13412 = XR←Narrow((* (( (ptr) (* (ptr) sel←v7916 ))+26) ), (* (( (ptr) gf←c63900)+49) ));
if ((tdd←v13412 == 0)) {
SOURCE(19561, 11)
goto lab←L100066;
};
SOURCE(19574, 30)
root←v13272 = (* (ptr) tdd←v13412 );
if ((root←v13272 == 0)) {
SOURCE(19604, 11)
goto lab←L100066;
};
SOURCE(19617, 36)
{
word pd393;
pd393 = (* (( (ptr) (* (( (ptr) gf←c63900)+388)/* var←c60764 */ ))+9) );
if (((word) ( *( (fPt) ((* (ptr) pd393 ))))(first←v13300, pd393) != root←v13272)) {
SOURCE(19653, 11)
goto lab←L100066;
};
};
SOURCE(19697, 78)
if ((first←v13300 != last←v13328)) {
SOURCE(19720, 55)
{
word pd394;
pd394 = (* (( (ptr) (* (( (ptr) gf←c63900)+389)/* var←c60796 */ ))+22) );
if (((word) ( *( (fPt) ((* (ptr) pd394 ))))(first←v13300, last←v13328, pd394) != 0)) {
SOURCE(19775, 11)
goto lab←L100066;
};
};
};
SOURCE(19791, 130)
if (( (int)(* (( (ptr) sel←v7916)+3) ) != (int) (word) -1)) {
SOURCE(19843, 78)
{
word tc396;
word pd397;
t1←v13356 = first←v13300;
if ((first←v13300 == 0)) { goto then0395;};
var←c60860 = (* (( (ptr) sel←v7916)+3) );
if (( (int)var←c60860 < (int)0)) {
tc396 = (word) 1;
}
else {
pd397 = (* (( (ptr) (* (( (ptr) gf←c63900)+390)/* var←c60828 */ ))+6) );
tc396 = (word) ( (int)var←c60860 > (int)(word) ( *( (fPt) ((* (ptr) pd397 ))))(t1←v13356, pd397));
};
if (tc396) {
then0395: ;
SOURCE(19921, 11)
goto lab←L100066;
};
};
};
SOURCE(19937, 125)
if (( (int)(* (( (ptr) sel←v7916)+12) ) != (int) (word) -1)) {
SOURCE(19987, 75)
{
word tc399;
word pd400;
t2←v13384 = last←v13328;
if ((last←v13328 == 0)) { goto then0398;};
var←c60892 = (* (( (ptr) sel←v7916)+12) );
if (( (int)var←c60892 < (int)0)) {
tc399 = (word) 1;
}
else {
pd400 = (* (( (ptr) (* (( (ptr) gf←c63900)+390)/* var←c60828 */ ))+6) );
tc399 = (word) ( (int)var←c60892 > (int)(word) ( *( (fPt) ((* (ptr) pd400 ))))(t2←v13384, pd400));
};
if (tc399) {
then0398: ;
SOURCE(20062, 11)
goto lab←L100066;
};
};
};
SOURCE(20078, 79)
if ( ( (t1←v13356 != 0) ? (t1←v13356 == t2←v13384) : 0 ) ) {
SOURCE(20109, 48)
if (( (int)(* (( (ptr) sel←v7916)+3) ) > (int)(* (( (ptr) sel←v7916)+12) ))) {
SOURCE(20157, 11)
goto lab←L100066;
};
};
SOURCE(20173, 13)
return(1);
};
/* c2c skipped dead code */
lab←L100066: ;
SOURCE(20206, 16)
(* (ptr) sel←v7916 ) = 0;
SOURCE(20224, 15)
return(0);
}
static void NormalizeViewer←P1560(viewer←v8020, loc←v8048, tdd←v8076, tSel←v8104)
word viewer←v8020;
W2 loc←v8048;
word tdd←v8076;
word tSel←v8104;
{
register ptr gf←c63932 = (ptr) &globalframe;
/* NormalizeViewer: */
SOURCE(20246, 345)
SOURCE(20396, 102)
{
word pd402;
if ((loc←v8048.f0 == 0)) { goto then0401;};
pd402 = (* (( (ptr) (* (( (ptr) gf←c63932)+388)/* var←c60764 */ ))+9) );
if (((* (ptr) tdd←v8076 ) != (word) ( *( (fPt) ((* (ptr) pd402 ))))(loc←v8048.f0, pd402))) {
then0401: ;
SOURCE(20459, 39)
{
word pd403;
pd403 = (* (( (ptr) (* (( (ptr) gf←c63932)+388)/* var←c60764 */ ))+28) );
loc←v8048.f0 = (word) ( *( (fPt) ((* (ptr) pd403 ))))((* (ptr) (tdd←v8076) ), pd403);
};
loc←v8048.f1 = 0;
};
};
SOURCE(20503, 40)
{
word pd404;
pd404 = (* (( (ptr) (* (( (ptr) gf←c63932)+387)/* var←c59932 */ ))+10) );
(void) ( *( (fPt) ((* (ptr) pd404 ))))(viewer←v8020, pd404);
};
SOURCE(20545, 46)
{
word pd405;
pd405 = (* (( (ptr) (* (( (ptr) gf←c63932)+391)/* var←c60924 */ ))+5) );
(void) ( *( (fPt) ((* (ptr) pd405 ))))(viewer←v8020, loc←v8048, 1, pd405);
};
}
static void AbortSecondary←P1620()
{
register ptr gf←c63964 = (ptr) &globalframe;
/* AbortSecondary: */
SOURCE(20627, 148)
SOURCE(20652, 60)
{
word pd406;
pd406 = (* (( (ptr) (* (( (ptr) gf←c63964)+376)/* var←c58076 */ ))+5) );
(void) ( *( (fPt) ((* (ptr) pd406 ))))((* (( (ptr) gf←c63964)+91) ), 1, pd406);
};
SOURCE(20714, 21)
{
word pd407;
pd407 = (* (( (ptr) (* (( (ptr) gf←c63964)+376)/* var←c58076 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd407 ))))(pd407);
};
SOURCE(20737, 17)
(* (( (ptr) gf←c63964)+18)/* editState←v4764 */ ) = 1;
SOURCE(20756, 19)
(* (( (ptr) gf←c63964)+20)/* mouseColor←v4876 */ ) = 3;
}
static void Extend←P1680(viewer←v8196, saveEnds←v8224)
word viewer←v8196;
word saveEnds←v8224;
{
register ptr gf←c63996 = (ptr) &globalframe;
word tdd←v13456;
/* Extend: */
SOURCE(20779, 528)
SOURCE(20843, 58)
tdd←v13456 = XR←Narrow((* (( (ptr) viewer←v8196)+26) ), (* (( (ptr) gf←c63996)+49) ));
SOURCE(20903, 24)
if ((tdd←v13456 == 0)) {
SOURCE(20921, 6)
return;
};
SOURCE(20929, 22)
(* (( (ptr) gf←c63996)+25)/* interpreterNesting←v5212 */ ) = 0;
SOURCE(20953, 30)
if (((* (( (ptr) gf←c63996)+18)/* editState←v4764 */ ) == 1)) {
SOURCE(20977, 6)
return;
};
SOURCE(20985, 171)
if (((* (( (ptr) gf←c63996)+20)/* mouseColor←v4876 */ ) != 2)) {
SOURCE(21013, 41)
if (((* (( (ptr) gf←c63996)+20)/* mouseColor←v4876 */ ) == 3)) {
SOURCE(21039, 15)
(void) (XR←RaiseSignal((word) (( (bPt) gf←c63996)+1088), 0, 0));
};
SOURCE(21056, 17)
(* (( (ptr) gf←c63996)+20)/* mouseColor←v4876 */ ) = 2;
SOURCE(21075, 64)
{
word pd408;
pd408 = (* (( (ptr) (* (( (ptr) gf←c63996)+373)/* var←c57436 */ ))+12) );
(void) ( *( (fPt) ((* (ptr) pd408 ))))((* (ptr) (* (( (ptr) (* (( (ptr) gf←c63996)+373)/* var←c57436 */ ))+4) ) ), (* (
( (ptr) gf←c63996)+21)/* prevPSel←v4904 */ ), pd408);
};
SOURCE(21141, 15)
saveEnds←v8224 = 1;
};
SOURCE(21161, 69)
{
word pd409;
pd409 = (* (( (ptr) (* (( (ptr) gf←c63996)+373)/* var←c57436 */ ))+62) );
(void) ( *( (fPt) ((* (ptr) pd409 ))))(viewer←v8196, tdd←v13456, (* (( (ptr) gf←c63996)+12)/* mx←v4456 */ ), (* (( (ptr) gf←c63996)+11)
/* my←v4428 */ ), (* (( (ptr) gf←c63996)+14)/* sel←v4568 */ ), (* (( (ptr) gf←c63996)+16)/* pDel←v4652 */ )
, (* (( (ptr) gf←c63996)+17)/* changeLevel←v4708 */ ), saveEnds←v8224, pd409);
};
SOURCE(21232, 75)
if (((* (( (ptr) gf←c63996)+14)/* sel←v4568 */ ) == 1)) {
SOURCE(21254, 19)
(void) EditMessage←P180();
}
else {
SOURCE(21273, 34)
if (((* (( (ptr) gf←c63996)+14)/* sel←v4568 */ ) == 0)) {
SOURCE(21293, 14)
(* (ptr) (* (( (ptr) (* (( (ptr) gf←c63996)+380)/* var←c58300 */ ))+12) ) ) = 1;
};
};
}
static void ForkPaint←P1800(viewer←v8360)
word viewer←v8360;
{
register ptr gf←c64028 = (ptr) &globalframe;
/* ForkPaint: */
SOURCE(21528, 132)
SOURCE(21587, 73)
{
word pd410;
pd410 = (* (( (ptr) (* (( (ptr) gf←c64028)+386)/* var←c59836 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd410 ))))(viewer←v8360, 1, 1, 0, 1, pd410);
};
}
static void CheckFirstLevel←P1860(tdd←v8420)
word tdd←v8420;
{
register ptr gf←c64060 = (ptr) &globalframe;
word node←v13500 = 0;
word delta←v13528;
W2 pos←v13556;
word var←c61020;
/* CheckFirstLevel: */
SOURCE(21666, 637)
SOURCE(21767, 22)
pos←v13556.f0 = 0;
pos←v13556.f1 = 0;
SOURCE(21791, 60)
{
word var←c60988;
word pd411;
pd411 = (* (( (ptr) (* (( (ptr) gf←c64060)+381)/* var←c59004 */ ))+5) );
var←c60988 = (word) ( *( (fPt) ((* (ptr) pd411 ))))(tdd←v8420, (* (( (ptr) gf←c64060)+92) ), 1, 0, pd411);
};
SOURCE(21880, 32)
{
word limit412;
var←c61020 = (* (( (ptr) tdd←v8420)+1) );
pos←v13556 = (* (W2Pt) (( (W9Pt) (( (ptr) var←c61020)+3))+(
limit412 = (* (( (ptr) var←c61020)+2) ),
BCK(0, limit412)
)) );
};
SOURCE(21945, 46)
{
word pd413;
pd413 = (* (( (ptr) (* (( (ptr) gf←c64060)+388)/* var←c60764 */ ))+16) );
delta←v13528 = ((word) ( *( (fPt) ((* (ptr) pd413 ))))(pos←v13556.f0, pd413) - (* (( (ptr) tdd←v8420)+2) ));
};
SOURCE(22028, 247)
if (( (int)delta←v13528 > (int)0)) {
{
W2 var←c0351;
SOURCE(22048, 101)
{
register word i←v13600 = 0;
register word noName←c61052;
noName←c61052 = delta←v13528;
if (( (int)i←v13600 >= (int)noName←c61052)) {
goto lab←L100068;
};
lab←L100071: ;
SOURCE(22114, 35)
{
word var←c61116;
{
word pd414;
pd414 = (* (( (ptr) (* (( (ptr) gf←c64060)+388)/* var←c60764 */ ))+8) );
var←c61116 = (word) ( *( (fPt) ((* (ptr) pd414 ))))(pos←v13556.f0, pd414);
};
pos←v13556.f0 = var←c61116;
pos←v13556.f1 = 0;
};
i←v13600 = (i←v13600 + 1);
if (( (int)i←v13600 < (int)noName←c61052)) {
goto lab←L100071;
};
lab←L100068: ;
};
SOURCE(22160, 76)
{
word pd415;
pd415 = (* (( (ptr) (* (( (ptr) gf←c64060)+388)/* var←c60764 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd415 ))))((word) &var←c0351, pos←v13556.f0, 0, 0, pd415);
};
node←v13500 = var←c0351.f0;
if ((node←v13500 != 0)) {
SOURCE(22222, 14)
pos←v13556.f0 = node←v13500;
pos←v13556.f1 = 0;
};
SOURCE(22238, 37)
{
word pd416;
pd416 = (* (( (ptr) (* (( (ptr) gf←c64060)+385)/* var←c59804 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd416 ))))(tdd←v8420, pos←v13556, 0, pd416);
};
};
};
SOURCE(22278, 25)
{
word pd417;
pd417 = (* (( (ptr) (* (( (ptr) gf←c64060)+381)/* var←c59004 */ ))+6) );
(void) ( *( (fPt) ((* (ptr) pd417 ))))(tdd←v8420, pd417);
};
}
static word MaxLevelShown←P1920(tdd←v8480)
word tdd←v8480;
{
register ptr gf←c64092 = (ptr) &globalframe;
word level←v8524;
word node←v13644 = 0;
word n←v13672 = 0;
word max←v13700 = 0;
/* MaxLevelShown: */
SOURCE(22309, 340)
SOURCE(22445, 28)
if ((tdd←v8480 == 0)) {
SOURCE(22463, 10)
return(0);
};
SOURCE(22475, 151)
{
register word l←v13744 = 0;
register word noName←c61148;
word var←c61180;
word var←c0614;
noName←c61148 = (* (ptr) (* (( (ptr) tdd←v8480)+1) ) );
if (( (int)l←v13744 > (int)noName←c61148)) {
goto lab←L100072;
};
lab←L100075: ;
SOURCE(22524, 102)
{
word limit418;
var←c61180 = (* (( (ptr) tdd←v8480)+1) );
n←v13672 = (* (ptr) (( (W9Pt) (( (ptr) var←c61180)+3))+(
limit418 = (* (( (ptr) var←c61180)+2) ),
BCK(l←v13744, limit418)
)) );
};
var←c0614 = n←v13672;
if ((var←c0614 != node←v13644)) {
SOURCE(22579, 8)
node←v13644 = n←v13672;
SOURCE(22589, 37)
{
word pd419;
word x420;
pd419 = (* (( (ptr) (* (( (ptr) gf←c64092)+388)/* var←c60764 */ ))+16) );
max←v13700 = (x420 = (word) ( *( (fPt) ((* (ptr) pd419 ))))(node←v13644, pd419),
MAX((int)(word), x420, max←v13700));
};
};
if (( (int)l←v13744 >= (int)noName←c61148)) {
goto lab←L100072;
};
l←v13744 = (l←v13744 + 1);
goto lab←L100075;
lab←L100072: ;
};
SOURCE(22638, 11)
level←v8524 = max←v13700;
SOURCE(22309, 340)
return(level←v8524);
}
static void ReadTipTables←P1980()
{
register ptr gf←c64124 = (ptr) &globalframe;
/* ReadTipTables: */
SOURCE(22655, 268)
SOURCE(22686, 26)
{
word pd421;
pd421 = (* (( (ptr) (* (( (ptr) gf←c64124)+392)/* var←c61212 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd421 ))))(7, pd421);
};
SOURCE(22714, 29)
{
word pd422;
pd422 = (* (( (ptr) (* (( (ptr) gf←c64124)+393)/* var←c61244 */ ))+11) );
(void) ( *( (fPt) ((* (ptr) pd422 ))))(pd422);
};
SOURCE(22745, 37)
{
word pd423;
pd423 = (* (( (ptr) (* (( (ptr) gf←c64124)+393)/* var←c61244 */ ))+12) );
(void) ( *( (fPt) ((* (ptr) pd423 ))))(pd423);
};
SOURCE(22784, 39)
{
word pd424;
pd424 = (* (( (ptr) (* (( (ptr) gf←c64124)+393)/* var←c61244 */ ))+14) );
(void) ( *( (fPt) ((* (ptr) pd424 ))))(pd424);
};
SOURCE(22825, 26)
{
word pd425;
pd425 = (* (( (ptr) (* (( (ptr) gf←c64124)+394)/* var←c61276 */ ))+5) );
(void) ( *( (fPt) ((* (ptr) pd425 ))))(0, 0, pd425);
};
SOURCE(22895, 28)
{
word pd426;
pd426 = (* (( (ptr) (* (( (ptr) gf←c64124)+392)/* var←c61212 */ ))+5) );
(void) ( *( (fPt) ((* (ptr) pd426 ))))(pd426);
};
}
static void SetCommand←P2040(num←v8724, params←v8752)
word num←v8724;
word params←v8752;
{
register ptr gf←c64156 = (ptr) &globalframe;
/* SetCommand: */
SOURCE(23019, 87)
SOURCE(23088, 18)
(* (( (ptr) (* (( (ptr) gf←c64156)+28)/* coms←v6052 */ ))+num←v8724) ) = params←v8752;
}
static word GetCommand←P2100(num←v8908)
word num←v8908;
{
register ptr gf←c64188 = (ptr) &globalframe;
word params←v8952;
/* GetCommand: */
SOURCE(23112, 96)
SOURCE(23112, 96)
params←v8952 = 0;
SOURCE(23190, 18)
return((* (( (ptr) (* (( (ptr) gf←c64188)+28)/* coms←v6052 */ ))+num←v8908) ));
}
static void DoCommand←P2160(viewer←v9108, num←v9136)
word viewer←v9108;
word num←v9136;
{
register ptr gf←c64220 = (ptr) &globalframe;
/* DoCommand: */
SOURCE(23214, 93)
SOURCE(23280, 27)
(void) Interpret←P240(viewer←v9108, (* (( (ptr) (* (( (ptr) gf←c64220)+28)/* coms←v6052 */ ))+num←v9136) ));
}
static void RegisterInternal←P2220(name←v9196, id←v9224)
word name←v9196;
word id←v9224;
{
register ptr gf←c64252 = (ptr) &globalframe;
/* RegisterInternal: */
SOURCE(23364, 144)
SOURCE(23420, 88)
{
word var←c61308;
{
word var←c61340;
var←c61340 = XR←NewObject(4, (* (( (ptr) gf←c64252)+46) ));
(* (ptr) var←c61340 ) = id←v9224;
var←c61308 = var←c61340;
};
{
W3 var←c61372;
var←c61372.f0 = name←v9196;
var←c61372.f1 = (word) (( (bPt) gf←c64252)+1168)/* var←c56028 */ ;
var←c61372.f2 = var←c61308;
(void) RegisterClosure←P2700(var←c61372, 1);
};
};
}
static void CopyToWorld←P2280(delete←v9284)
word delete←v9284;
{
W7 var←c64284;
register ptr gf←c64316 = (ptr) &globalframe;
/* declaration of var←c61404 skipped */
word vWorld←v13788;
/* declaration of rope←v13816 skipped */
/* CopyToWorld: */
SOURCE(23514, 756)
{
word tmpAddr427;
tmpAddr427 = (word) (( (ptr) &var←c64284)+4)/* var←c61404 */ ;
(* (ptr) tmpAddr427 ) = ( ((word) (fPt) DoSelChars←P5220) );
(* (( (ptr) tmpAddr427) + 1) ) = 1;
};
SOURCE(23559, 58)
{
word pd428;
pd428 = (* (( (ptr) (* (( (ptr) gf←c64316)+395)/* var←c61436 */ ))+4) );
vWorld←v13788 = (word) ( *( (fPt) ((* (ptr) pd428 ))))(pd428);
};
SOURCE(23619, 21)
var←c64284.f6/* rope←v13816 */ = 0;
SOURCE(24118, 45)
{
word pd429;
pd429 = (* (( (ptr) (* (( (ptr) gf←c64316)+379)/* var←c58236 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd429 ))))((word) (( (bPt) &var←c64284)+16)/* var←c61404 */ , 0, pd429);
};
SOURCE(24165, 47)
{
word pd430;
pd430 = (* (( (ptr) (* (( (ptr) gf←c64316)+396)/* var←c61468 */ ))+16) );
(void) ( *( (fPt) ((* (ptr) pd430 ))))(vWorld←v13788, (* (( (ptr) gf←c64316)+94) ), var←c64284.f6/* rope←v13816 */ , pd430)
;
};
SOURCE(24214, 56)
if ((0 != delete←v9284)) {
SOURCE(24229, 41)
{
word pd431;
pd431 = (* (( (ptr) (* (( (ptr) gf←c64316)+379)/* var←c58236 */ ))+29) );
(void) ( *( (fPt) ((* (ptr) pd431 ))))(0, pd431);
};
};
}
static void DoSelChars←P5220(root←v13920, tSel←v13948, formal←c64412)
word root←v13920;
word tSel←v13948;
word formal←c64412;
{
W6 var←c64348;
register ptr gf←c64380 = (ptr) &globalframe;
/* declaration of var←c61500 skipped */
formal←c64412 = (formal←c64412 - 16);
var←c64348.f0 = formal←c64412;
/* DoSelChars: */
SOURCE(23642, 471)
{
word tmpAddr432;
tmpAddr432 = (word) (( (ptr) &var←c64348)+4)/* var←c61500 */ ;
(* (ptr) tmpAddr432 ) = ( ((word) (fPt) SelConcat←P5280) );
(* (( (ptr) tmpAddr432) + 1) ) = 1;
};
SOURCE(23965, 120)
if ( ( ((* (ptr) tSel←v13948 ) != 0) ? ((* (( (ptr) tSel←v13948)+22) ) != 0) : 0 ) ) {
SOURCE(24021, 64)
{
W4 var←c61532;
(* (W2Pt) &var←c61532 ) = (* (W2Pt) (( (ptr) tSel←v13948)+2) );
(* (W2Pt) (( (ptr) &var←c61532)+2) ) = (* (W2Pt) (( (ptr) tSel←v13948)+11) );
{
word pd433;
pd433 = (* (( (ptr) (* (( (ptr) gf←c64380)+397)/* var←c61564 */ ))+26) );
(void) ( *( (fPt) ((* (ptr) pd433 ))))(var←c61532, (word) (( (bPt) &var←c64348)+16)/* var←c61500 */ , pd433);
};
};
};
SOURCE(24087, 26)
if (((* (( (ptr) formal←c64412)+6) ) == 0)) {
SOURCE(24104, 9)
(* (( (ptr) formal←c64412)+6) ) = (* (( (ptr) gf←c64380)+95) );
};
}
static word SelConcat←P5280(node←v14052, start←v14080, len←v14108, formal←c64476)
word node←v14052;
word start←v14080;
word len←v14108;
word formal←c64476;
{
register ptr gf←c64444 = (ptr) &globalframe;
word stop←v14152;
formal←c64476 = (formal←c64476 - 16);
/* SelConcat: */
SOURCE(23723, 237)
SOURCE(23822, 122)
{
word pd434;
if (((* (( (ptr) (* (ptr) formal←c64476 ))+6) ) == 0)) {
pd434 = (* (( (ptr) (* (( (ptr) gf←c64444)+378)/* var←c58204 */ ))+17) );
(* (( (ptr) (* (ptr) formal←c64476 ))+6) ) = (word) ( *( (fPt) ((* (ptr) pd434 ))))((* (( (ptr) node←v14052)+3) ), start←v14080, len←v14108, pd434)
;
}
else {
{
word var←c61596;
{
word pd435;
pd435 = (* (( (ptr) (* (( (ptr) gf←c64444)+378)/* var←c58204 */ ))+17) );
var←c61596 = (word) ( *( (fPt) ((* (ptr) pd435 ))))((* (( (ptr) node←v14052)+3) ), start←v14080, len←v14108, pd435);
};
{
word pd436;
pd436 = (* (( (ptr) (* (( (ptr) gf←c64444)+378)/* var←c58204 */ ))+5) );
(* (( (ptr) (* (ptr) formal←c64476 ))+6) ) = (word) ( *( (fPt) ((* (ptr) pd436 ))))((* (( (ptr) (* (ptr) formal←c64476 ))+6)
), (* (( (ptr) gf←c64444)+96) ), var←c61596, 0, 0, pd436);
};
};
};
};
SOURCE(23946, 14)
return(0);
}
static void PasteFromWorld←P2340()
{
register ptr gf←c64508 = (ptr) &globalframe;
word vWorld←v14180;
word rope←v14208;
/* PasteFromWorld: */
SOURCE(24276, 179)
SOURCE(24304, 58)
{
word pd437;
pd437 = (* (( (ptr) (* (( (ptr) gf←c64508)+395)/* var←c61436 */ ))+4) );
vWorld←v14180 = (word) ( *( (fPt) ((* (ptr) pd437 ))))(pd437);
};
SOURCE(24364, 59)
{
word pd438;
pd438 = (* (( (ptr) (* (( (ptr) gf←c64508)+396)/* var←c61468 */ ))+17) );
rope←v14208 = (word) ( *( (fPt) ((* (ptr) pd438 ))))(vWorld←v14180, (* (( (ptr) gf←c64508)+94) ), pd438);
};
SOURCE(24425, 30)
{
word pd439;
pd439 = (* (( (ptr) (* (( (ptr) gf←c64508)+379)/* var←c58236 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd439 ))))(rope←v14208, pd439);
};
}
static void DispatchInternalCommand←P2400(formal←c0415, data←v38820, formal←c0652, param←v38876)
word formal←c0415;
word data←v38820;
word formal←c0652;
word param←v38876;
{
W9 var←c64540;
/* declaration of viewer←v38848 skipped */
register ptr gf←c64572 = (ptr) &globalframe;
word recordAtom←v38920;
word quit←v38948;
/* declaration of var←c61628 skipped */
/* declaration of var←c61660 skipped */
word n←v14252;
(* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ) = formal←c0652;
/* DispatchInternalCommand: */
SOURCE(24461, 15195)
{
word tmpAddr440;
tmpAddr440 = (word) (( (ptr) &var←c64540)+5)/* var←c61628 */ ;
(* (ptr) tmpAddr440 ) = ( ((word) (fPt) DoIt←P5640) );
(* (( (ptr) tmpAddr440) + 1) ) = 1;
};
{
word tmpAddr441;
tmpAddr441 = (word) (( (ptr) &var←c64540)+7)/* var←c61660 */ ;
(* (ptr) tmpAddr441 ) = ( ((word) (fPt) DoIt←P5532) );
(* (( (ptr) tmpAddr441) + 1) ) = 1;
};
SOURCE(24461, 15195)
recordAtom←v38920 = 1;
SOURCE(24461, 15195)
quit←v38948 = 0;
SOURCE(24516, 32)
{
word var←c61692;
var←c61692 = param←v38876;
if ((var←c61692 == 0)) {
goto lab←L100077;
};
if (((* (( (ptr) gf←c64572)+34) ) == XR←GetReferentType(var←c61692))) {
{
word n←v14296;
n←v14296 = var←c61692;
n←v14252 = (* (ptr) n←v14296 );
};
}
else {
lab←L100077: ;
n←v14252 = 1;
};
};
SOURCE(24579, 15077)
{
word var←c61724;
var←c61724 = data←v38820;
if ((var←c61724 == 0)) {
goto lab←L100078;
};
if (((* (( (ptr) gf←c64572)+46) ) == XR←GetReferentType(var←c61724))) {
{
word refID←v14352;
refID←v14352 = var←c61724;
SOURCE(24626, 15106)
{
word id←v14408;
SOURCE(24628, 23)
id←v14408 = (* (ptr) refID←v14352 );
SOURCE(24653, 55)
(* (( (ptr) (* (( (ptr) gf←c64572)+9)/* internalCommandCounts←v4344 */ ))+id←v14408) ) = ((* (( (ptr) (* (( (ptr) gf←c64572)+9)
/* internalCommandCounts←v4344 */ ))+id←v14408) ) + 1);
SOURCE(24710, 14946)
{
word var←c61756;
var←c61756 = id←v14408;
switch (var←c61756) {
case 164:
SOURCE(24740, 26)
(void) CopyToWorld←P2280(0);
break;
case 160:
SOURCE(24782, 25)
(void) CopyToWorld←P2280(1);
break;
case 162:
SOURCE(24827, 16)
(void) PasteFromWorld←P2340();
break;
case 161:
break;
case 165:
break;
case 163:
break;
case 0:
SOURCE(24954, 53)
{
word var←c61788;
{
/*1*/ word idx442;
/*1*/ var←c61788 = (
/*1*/ idx442 = (word) ((word) NumberToLook←P660(n←v14252) - 97),
/*1*/ BCK(idx442, 32)
/*1*/ );
/*1*/ };
{
/*1*/ word pd443;
/*1*/ pd443 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+55) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd443 ))))(var←c61788, 0, pd443);
/*1*/ };
};
break;
case 1:
SOURCE(25025, 48)
{
word var←c61820;
{
/*1*/ word idx444;
/*1*/ var←c61820 = (
/*1*/ idx444 = (word) ((word) NumberToLook←P660(n←v14252) - 97),
/*1*/ BCK(idx444, 32)
/*1*/ );
/*1*/ };
{
/*1*/ word pd445;
/*1*/ pd445 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+54) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd445 ))))(var←c61820, 0, pd445);
/*1*/ };
};
break;
case 2:
SOURCE(25097, 84)
{
word pd446;
pd446 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+57) );
(void) ( *( (fPt) ((* (ptr) pd446 ))))(0, (word) -1, pd446);
};
break;
case 3:
SOURCE(25200, 79)
{
word pd447;
pd447 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+56) );
(void) ( *( (fPt) ((* (ptr) pd447 ))))(0, (word) -1, pd447);
};
break;
case 4:
SOURCE(25297, 27)
{
word pd448;
pd448 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+12) );
(void) ( *( (fPt) ((* (ptr) pd448 ))))(n←v14252, pd448);
};
break;
case 5:
SOURCE(25341, 26)
{
word pd449;
pd449 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+13) );
(void) ( *( (fPt) ((* (ptr) pd449 ))))(n←v14252, pd449);
};
break;
case 6:
SOURCE(25390, 32)
{
word pd450;
pd450 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+14) );
(void) ( *( (fPt) ((* (ptr) pd450 ))))(n←v14252, pd450);
};
break;
case 7:
SOURCE(25445, 32)
{
word pd451;
pd451 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+15) );
(void) ( *( (fPt) ((* (ptr) pd451 ))))(n←v14252, pd451);
};
break;
case 8:
SOURCE(25502, 34)
{
word pd452;
pd452 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+19) );
(void) ( *( (fPt) ((* (ptr) pd452 ))))(n←v14252, pd452);
};
break;
case 9:
SOURCE(25557, 30)
{
word pd453;
pd453 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+18) );
(void) ( *( (fPt) ((* (ptr) pd453 ))))(n←v14252, pd453);
};
break;
case 10:
SOURCE(25612, 34)
{
word pd454;
pd454 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd454 ))))(n←v14252, pd454);
};
break;
case 11:
SOURCE(25667, 30)
{
word pd455;
pd455 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+16) );
(void) ( *( (fPt) ((* (ptr) pd455 ))))(n←v14252, pd455);
};
break;
case 12:
SOURCE(25722, 34)
{
word pd456;
pd456 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd456 ))))(n←v14252, pd456);
};
break;
case 13:
SOURCE(25777, 30)
{
word pd457;
pd457 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+20) );
(void) ( *( (fPt) ((* (ptr) pd457 ))))(n←v14252, pd457);
};
break;
case 14:
SOURCE(25829, 41)
{
word pd458;
pd458 = (* (( (ptr) (* (( (ptr) gf←c64572)+398)/* var←c61852 */ ))+5) );
(void) ( *( (fPt) ((* (ptr) pd458 ))))(n←v14252, pd458);
};
break;
case 15:
SOURCE(25898, 42)
{
word pd459;
pd459 = (* (( (ptr) (* (( (ptr) gf←c64572)+398)/* var←c61852 */ ))+5) );
(void) ( *( (fPt) ((* (ptr) pd459 ))))(INEG(n←v14252), pd459);
};
break;
case 16:
SOURCE(25953, 92)
if (((* (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+5) ) ) ) != 0)) {
SOURCE(25994, 23)
{
/*1*/ word pd460;
/*1*/ pd460 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+39) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd460 ))))((* ((( (ptr) gf←c64572)+14)/* sel←v4568 */ ) ), pd460);
/*1*/ };
SOURCE(26019, 26)
{
/*1*/ word pd461;
/*1*/ pd461 = (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+21) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd461 ))))((* ((( (ptr) gf←c64572)+80)) ), pd461);
/*1*/ };
};
break;
case 17:
SOURCE(26063, 41)
{
word pd462;
pd462 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+29) );
(void) ( *( (fPt) ((* (ptr) pd462 ))))(1, pd462);
};
break;
case 18:
SOURCE(26125, 35)
{
word pd463;
pd463 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+67) );
(void) ( *( (fPt) ((* (ptr) pd463 ))))(pd463);
};
break;
case 19:
SOURCE(26173, 90)
if (((* (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+5) ) ) ) != 0)) {
SOURCE(26214, 23)
{
/*1*/ word pd464;
/*1*/ pd464 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+37) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd464 ))))((* ((( (ptr) gf←c64572)+14)/* sel←v4568 */ ) ), pd464);
/*1*/ };
SOURCE(26239, 24)
{
/*1*/ word pd465;
/*1*/ pd465 = (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+21) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd465 ))))((* ((( (ptr) gf←c64572)+80)) ), pd465);
/*1*/ };
};
break;
case 22:
SOURCE(26292, 54)
{
word var←c61884;
{
/*1*/ word idx466;
/*1*/ var←c61884 = (
/*1*/ idx466 = (word) ((word) NumberToLook←P660(n←v14252) - 97),
/*1*/ BCK(idx466, 32)
/*1*/ );
/*1*/ };
{
/*1*/ word pd467;
/*1*/ pd467 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+55) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd467 ))))(var←c61884, 1, pd467);
/*1*/ };
};
break;
case 23:
SOURCE(26367, 49)
{
word var←c61916;
{
/*1*/ word idx468;
/*1*/ var←c61916 = (
/*1*/ idx468 = (word) ((word) NumberToLook←P660(n←v14252) - 97),
/*1*/ BCK(idx468, 32)
/*1*/ );
/*1*/ };
{
/*1*/ word pd469;
/*1*/ pd469 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+54) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd469 ))))(var←c61916, 1, pd469);
/*1*/ };
};
break;
case 24:
SOURCE(26435, 25)
{
word pd470;
pd470 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+58) );
(void) ( *( (fPt) ((* (ptr) pd470 ))))(pd470);
};
break;
case 25:
SOURCE(26473, 27)
{
word pd471;
pd471 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+52) );
(void) ( *( (fPt) ((* (ptr) pd471 ))))(pd471);
};
break;
case 26: case 27: case 28:
SOURCE(26541, 13)
(void) Split←P1380((* ((( (ptr) &var←c64540)+4)/* viewer←v38848 */ ) ));
SOURCE(26556, 14)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 29:
SOURCE(26588, 96)
if (((* (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+5) ) ) ) != 0)) {
SOURCE(26629, 28)
{
/*1*/ word pd472;
/*1*/ pd472 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+42) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd472 ))))((* ((( (ptr) gf←c64572)+14)/* sel←v4568 */ ) ), pd472);
/*1*/ };
SOURCE(26659, 25)
{
/*1*/ word pd473;
/*1*/ pd473 = (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+21) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd473 ))))((* ((( (ptr) gf←c64572)+80)) ), pd473);
/*1*/ };
};
break;
case 30:
SOURCE(26702, 81)
if (((* (( (ptr) gf←c64572)+18)/* editState←v4764 */ ) == 0) || ((* (( (ptr) gf←c64572)+18)/* editState←v4764 */ ) == 2)) {
SOURCE(26749, 18)
(* (( (ptr) gf←c64572)+18)/* editState←v4764 */ ) = 5;
SOURCE(26769, 14)
(void) EditMessage←P180();
};
SOURCE(26786, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 31:
SOURCE(26818, 43)
if (((* (( (ptr) gf←c64572)+18)/* editState←v4764 */ ) == 0)) {
SOURCE(26842, 19)
(* (( (ptr) gf←c64572)+18)/* editState←v4764 */ ) = 2;
};
SOURCE(26863, 15)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 32:
SOURCE(26896, 66)
if (((* (( (ptr) gf←c64572)+18)/* editState←v4764 */ ) == 0) || ((* (( (ptr) gf←c64572)+18)/* editState←v4764 */ ) == 2)) {
SOURCE(26941, 21)
(* (( (ptr) gf←c64572)+18)/* editState←v4764 */ ) = 3;
};
SOURCE(26964, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 33:
SOURCE(27000, 86)
if (((* (( (ptr) gf←c64572)+18)/* editState←v4764 */ ) == 0) || ((* (( (ptr) gf←c64572)+18)/* editState←v4764 */ ) == 2)) {
SOURCE(27047, 23)
(* (( (ptr) gf←c64572)+18)/* editState←v4764 */ ) = 4;
SOURCE(27072, 14)
(void) EditMessage←P180();
};
SOURCE(27089, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 36:
SOURCE(27122, 17)
(* (( (ptr) gf←c64572)+19)/* editObject←v4820 */ ) = 0;
SOURCE(27141, 15)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 38:
SOURCE(27174, 18)
(* (( (ptr) gf←c64572)+19)/* editObject←v4820 */ ) = 1;
SOURCE(27194, 13)
(void) EditMessage←P180();
SOURCE(27209, 15)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 37:
SOURCE(27243, 19)
(* (( (ptr) gf←c64572)+19)/* editObject←v4820 */ ) = 2;
SOURCE(27264, 13)
(void) EditMessage←P180();
SOURCE(27279, 15)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 34:
SOURCE(27312, 17)
(* (( (ptr) gf←c64572)+18)/* editState←v4764 */ ) = 0;
SOURCE(27331, 18)
(* (( (ptr) gf←c64572)+19)/* editObject←v4820 */ ) = 0;
SOURCE(27351, 16)
(* (( (ptr) gf←c64572)+13)/* selState←v4512 */ ) = 0;
SOURCE(27369, 17)
(* (( (ptr) gf←c64572)+15)/* pdelState←v4624 */ ) = 0;
SOURCE(27388, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 35:
SOURCE(27422, 17)
(* (ptr) (* (( (ptr) gf←c64572)+22)/* interrupt←v4932 */ ) ) = 1;
SOURCE(27441, 186)
if ( ( ( ( ((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ) != 0) ? ((* (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+373)
/* var←c57436 */ ))+4) ) ) ) == (* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ )) : 0 ) ? ((* (( (ptr) (* (ptr) (* (( (ptr) (* (
/*1*/ ( (ptr) gf←c64572)+373)/* var←c57436 */ ))+4) ) ))+22) ) == 0) : 0 ) ? ((* (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+373)
/* var←c57436 */ ))+5) ) ) ) == 0) : 0 ) ) {
SOURCE(27575, 52)
{
/*1*/ word var←c61948;
/*1*/ var←c61948 = XR←NewObject(4, (* (( (ptr) gf←c64572)+36) ));
/*1*/ {
/*1*/ word pd474;
/*1*/ pd474 = (* (( (ptr) (* (( (ptr) gf←c64572)+383)/* var←c59740 */ ))+28) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd474 ))))((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), (* (( (ptr) gf←c64572)+97) ), var←c61948, pd474)
/*1*/ ;
/*1*/ };
/*1*/ };
};
SOURCE(27629, 38)
{
word pd475;
pd475 = (* (( (ptr) (* (( (ptr) gf←c64572)+376)/* var←c58076 */ ))+5) );
(void) ( *( (fPt) ((* (ptr) pd475 ))))((* (( (ptr) gf←c64572)+98) ), 1, pd475);
};
SOURCE(27669, 43)
{
word pd476;
pd476 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+25) );
(void) ( *( (fPt) ((* (ptr) pd476 ))))(0, 1, 0, 0, 1, pd476);
};
SOURCE(27714, 89)
{
word var←c62012;
if ((0 != (word) CheckSelection←P1500((* ((( (ptr) gf←c64572)+21)/* prevPSel←v4904 */ ) )))) {
/*1*/ var←c62012 = (* (( (ptr) gf←c64572)+21)/* prevPSel←v4904 */ );
/*1*/ }
else {
/*1*/ var←c62012 = 0;
/*1*/ };
{
/*1*/ word pd477;
/*1*/ pd477 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+25) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd477 ))))(var←c62012, 0, 0, 0, 1, pd477);
/*1*/ };
};
SOURCE(27806, 17)
(* (( (ptr) gf←c64572)+18)/* editState←v4764 */ ) = 1;
SOURCE(27825, 17)
(* (( (ptr) gf←c64572)+19)/* editObject←v4820 */ ) = 0;
SOURCE(27844, 17)
(* (( (ptr) gf←c64572)+20)/* mouseColor←v4876 */ ) = 3;
SOURCE(27890, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 39:
SOURCE(27927, 132)
if ( ( ((* (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+5) ) ) ) == 0) ? (0 != (word) CheckSelection←P1500(
(* (ptr) ((* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+7) )) ))) : 0 ) ) {
SOURCE(28008, 51)
{
/*1*/ word pd478;
/*1*/ pd478 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+35) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd478 ))))((* (ptr) ((* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+7) )) ), pd478)
/*1*/ ;
/*1*/ };
};
SOURCE(28061, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 40:
SOURCE(28094, 40)
(* (( (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+4) ) ))+26) ) = 1;
SOURCE(28136, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 20:
SOURCE(28175, 247)
SOURCE(28354, 68)
{
word pd479;
pd479 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+19) );
(void) ( *( (fPt) ((* (ptr) pd479 ))))((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 0, (word) (( (bPt) &var←c64540)+28)
/*1*/ /* var←c61660 */ , pd479);
};
break;
case 21:
SOURCE(28443, 245)
SOURCE(28620, 68)
{
word pd480;
pd480 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+19) );
(void) ( *( (fPt) ((* (ptr) pd480 ))))((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 0, (word) (( (bPt) &var←c64540)+20)
/*1*/ /* var←c61628 */ , pd480);
};
break;
case 41:
SOURCE(28705, 56)
{
word pd481;
pd481 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+67) );
(void) ( *( (fPt) ((* (ptr) pd481 ))))((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 0, 0, 0, 0, 1, pd481);
};
SOURCE(28763, 12)
(* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+12) ) ) = 1;
SOURCE(28777, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 42:
SOURCE(28809, 56)
{
word pd482;
pd482 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+67) );
(void) ( *( (fPt) ((* (ptr) pd482 ))))((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 2, 0, 0, 0, 1, pd482);
};
SOURCE(28867, 12)
(* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+12) ) ) = 1;
SOURCE(28881, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 43:
SOURCE(28914, 57)
{
word pd483;
pd483 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+67) );
(void) ( *( (fPt) ((* (ptr) pd483 ))))((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 1, 0, 0, 0, 1, pd483);
};
SOURCE(28973, 12)
(* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+12) ) ) = 1;
SOURCE(28987, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 47:
SOURCE(29024, 80)
{
word pd484;
pd484 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+67) );
(void) ( *( (fPt) ((* (ptr) pd484 ))))((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 0, 0, 1, 0, 1, pd484);
};
SOURCE(29106, 12)
(* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+12) ) ) = 1;
SOURCE(29120, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 48:
SOURCE(29156, 80)
{
word pd485;
pd485 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+67) );
(void) ( *( (fPt) ((* (ptr) pd485 ))))((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 2, 0, 1, 0, 1, pd485);
};
SOURCE(29238, 12)
(* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+12) ) ) = 1;
SOURCE(29252, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 49:
SOURCE(29289, 81)
{
word pd486;
pd486 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+67) );
(void) ( *( (fPt) ((* (ptr) pd486 ))))((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 1, 0, 1, 0, 1, pd486);
};
SOURCE(29372, 12)
(* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+12) ) ) = 1;
SOURCE(29386, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 44:
SOURCE(29422, 79)
{
word pd487;
pd487 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+67) );
(void) ( *( (fPt) ((* (ptr) pd487 ))))((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 0, 1, 1, 0, 1, pd487);
};
SOURCE(29503, 12)
(* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+12) ) ) = 1;
SOURCE(29517, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 45:
SOURCE(29552, 79)
{
word pd488;
pd488 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+67) );
(void) ( *( (fPt) ((* (ptr) pd488 ))))((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 2, 1, 1, 0, 1, pd488);
};
SOURCE(29633, 12)
(* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+12) ) ) = 1;
SOURCE(29647, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 46:
SOURCE(29683, 80)
{
word pd489;
pd489 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+67) );
(void) ( *( (fPt) ((* (ptr) pd489 ))))((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 1, 1, 1, 0, 1, pd489);
};
SOURCE(29765, 12)
(* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+12) ) ) = 1;
SOURCE(29779, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 50:
SOURCE(29820, 69)
{
word pd490;
pd490 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+67) );
(void) ( *( (fPt) ((* (ptr) pd490 ))))((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 0, 0, 0, 0, 0, pd490);
};
SOURCE(29891, 12)
(* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+12) ) ) = 1;
SOURCE(29905, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 51:
SOURCE(29945, 69)
{
word pd491;
pd491 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+67) );
(void) ( *( (fPt) ((* (ptr) pd491 ))))((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 2, 0, 0, 0, 0, pd491);
};
SOURCE(30016, 12)
(* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+12) ) ) = 1;
SOURCE(30030, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 52:
SOURCE(30071, 70)
{
word pd492;
pd492 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+67) );
(void) ( *( (fPt) ((* (ptr) pd492 ))))((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 1, 0, 0, 0, 0, pd492);
};
SOURCE(30143, 12)
(* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+12) ) ) = 1;
SOURCE(30157, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 56:
SOURCE(30202, 93)
{
word pd493;
pd493 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+67) );
(void) ( *( (fPt) ((* (ptr) pd493 ))))((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 0, 0, 1, 0, 0, pd493);
};
SOURCE(30297, 12)
(* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+12) ) ) = 1;
SOURCE(30311, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 57:
SOURCE(30355, 93)
{
word pd494;
pd494 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+67) );
(void) ( *( (fPt) ((* (ptr) pd494 ))))((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 2, 0, 1, 0, 0, pd494);
};
SOURCE(30450, 12)
(* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+12) ) ) = 1;
SOURCE(30464, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 58:
SOURCE(30509, 94)
{
word pd495;
pd495 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+67) );
(void) ( *( (fPt) ((* (ptr) pd495 ))))((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 1, 0, 1, 0, 0, pd495);
};
SOURCE(30605, 12)
(* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+12) ) ) = 1;
SOURCE(30619, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 53:
SOURCE(30663, 92)
{
word pd496;
pd496 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+67) );
(void) ( *( (fPt) ((* (ptr) pd496 ))))((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 0, 1, 1, 0, 0, pd496);
};
SOURCE(30757, 12)
(* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+12) ) ) = 1;
SOURCE(30771, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 54:
SOURCE(30814, 92)
{
word pd497;
pd497 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+67) );
(void) ( *( (fPt) ((* (ptr) pd497 ))))((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 2, 1, 1, 0, 0, pd497);
};
SOURCE(30908, 12)
(* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+12) ) ) = 1;
SOURCE(30922, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 55:
SOURCE(30966, 93)
{
word pd498;
pd498 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+67) );
(void) ( *( (fPt) ((* (ptr) pd498 ))))((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 1, 1, 1, 0, 0, pd498);
};
SOURCE(31061, 12)
(* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+12) ) ) = 1;
SOURCE(31075, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 63:
SOURCE(31108, 12)
(* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+12) ) ) = 1;
SOURCE(31122, 67)
{
word pd499;
pd499 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+71) );
(void) ( *( (fPt) ((* (ptr) pd499 ))))((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 1, pd499);
};
SOURCE(31191, 14)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 64:
SOURCE(31239, 12)
(* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+12) ) ) = 1;
SOURCE(31253, 68)
{
word pd500;
pd500 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+71) );
(void) ( *( (fPt) ((* (ptr) pd500 ))))((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 0, pd500);
};
SOURCE(31323, 14)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 65:
SOURCE(31357, 78)
{
word pd501;
pd501 = (* (( (ptr) (* (( (ptr) gf←c64572)+398)/* var←c61852 */ ))+4) );
(* (( (ptr) gf←c64572)+23)/* positionMessage←v4960 */ ) = (word) ( *( (fPt) ((* (ptr) pd501 ))))((* (( (ptr) &var←c64540)+4)
/*1*/ /* viewer←v38848 */ ), 1, pd501);
};
SOURCE(31437, 80)
{
word var←c62044;
{
/*1*/ word pd502;
/*1*/ pd502 = (* (( (ptr) (* (( (ptr) gf←c64572)+378)/* var←c58204 */ ))+6) );
/*1*/ var←c62044 = (word) ( *( (fPt) ((* (ptr) pd502 ))))((* (( (ptr) gf←c64572)+99) ), (* (( (ptr) gf←c64572)+23)/* positionMessage←v4960 */ ), pd502)
/*1*/ ;
/*1*/ };
{
/*1*/ word pd503;
/*1*/ pd503 = (* (( (ptr) (* (( (ptr) gf←c64572)+376)/* var←c58076 */ ))+5) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd503 ))))(var←c62044, 1, pd503);
/*1*/ };
};
break;
case 66:
SOURCE(31556, 79)
{
word pd504;
pd504 = (* (( (ptr) (* (( (ptr) gf←c64572)+398)/* var←c61852 */ ))+4) );
(* (( (ptr) gf←c64572)+23)/* positionMessage←v4960 */ ) = (word) ( *( (fPt) ((* (ptr) pd504 ))))((* (( (ptr) &var←c64540)+4)
/*1*/ /* viewer←v38848 */ ), 0, pd504);
};
SOURCE(31637, 80)
{
word var←c62076;
{
/*1*/ word pd505;
/*1*/ pd505 = (* (( (ptr) (* (( (ptr) gf←c64572)+378)/* var←c58204 */ ))+6) );
/*1*/ var←c62076 = (word) ( *( (fPt) ((* (ptr) pd505 ))))((* (( (ptr) gf←c64572)+99) ), (* (( (ptr) gf←c64572)+23)/* positionMessage←v4960 */ ), pd505)
/*1*/ ;
/*1*/ };
{
/*1*/ word pd506;
/*1*/ pd506 = (* (( (ptr) (* (( (ptr) gf←c64572)+376)/* var←c58076 */ ))+5) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd506 ))))(var←c62076, 1, pd506);
/*1*/ };
};
break;
case 67:
SOURCE(31741, 41)
{
word pd507;
pd507 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd507 ))))((* ((( (ptr) gf←c64572)+23)/* positionMessage←v4960 */ ) ), pd507);
};
break;
case 68:
SOURCE(31801, 41)
if (((* (( (ptr) gf←c64572)+20)/* mouseColor←v4876 */ ) == 3)) {
SOURCE(31827, 15)
(void) (XR←RaiseSignal((word) (( (bPt) gf←c64572)+1088), 0, 0));
};
SOURCE(31844, 16)
(* (( (ptr) gf←c64572)+20)/* mouseColor←v4876 */ ) = 0;
SOURCE(31862, 64)
{
word pd508;
pd508 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+12) );
(void) ( *( (fPt) ((* (ptr) pd508 ))))((* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+4) ) ), (* (
/*1*/ ( (ptr) gf←c64572)+21)/* prevPSel←v4904 */ ), pd508);
};
SOURCE(31928, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 69:
SOURCE(31964, 41)
if (((* (( (ptr) gf←c64572)+20)/* mouseColor←v4876 */ ) == 3)) {
SOURCE(31990, 15)
(void) (XR←RaiseSignal((word) (( (bPt) gf←c64572)+1088), 0, 0));
};
SOURCE(32007, 19)
(* (( (ptr) gf←c64572)+20)/* mouseColor←v4876 */ ) = 1;
SOURCE(32028, 64)
{
word pd509;
pd509 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+12) );
(void) ( *( (fPt) ((* (ptr) pd509 ))))((* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+4) ) ), (* (
/*1*/ ( (ptr) gf←c64572)+21)/* prevPSel←v4904 */ ), pd509);
};
SOURCE(32094, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 70:
SOURCE(32128, 41)
if (((* (( (ptr) gf←c64572)+20)/* mouseColor←v4876 */ ) == 3)) {
SOURCE(32154, 15)
(void) (XR←RaiseSignal((word) (( (bPt) gf←c64572)+1088), 0, 0));
};
SOURCE(32171, 17)
(* (( (ptr) gf←c64572)+20)/* mouseColor←v4876 */ ) = 2;
SOURCE(32190, 64)
{
word pd510;
pd510 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+12) );
(void) ( *( (fPt) ((* (ptr) pd510 ))))((* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+4) ) ), (* (
/*1*/ ( (ptr) gf←c64572)+21)/* prevPSel←v4904 */ ), pd510);
};
SOURCE(32256, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 71:
SOURCE(32288, 40)
if (((* (( (ptr) gf←c64572)+20)/* mouseColor←v4876 */ ) != 0)) {
SOURCE(32313, 15)
(void) (XR←RaiseSignal((word) (( (bPt) gf←c64572)+1088), 0, 0));
};
SOURCE(32330, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 72:
SOURCE(32365, 43)
if (((* (( (ptr) gf←c64572)+20)/* mouseColor←v4876 */ ) != 1)) {
SOURCE(32393, 15)
(void) (XR←RaiseSignal((word) (( (bPt) gf←c64572)+1088), 0, 0));
};
SOURCE(32410, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 73:
SOURCE(32443, 41)
if (((* (( (ptr) gf←c64572)+20)/* mouseColor←v4876 */ ) != 2)) {
SOURCE(32469, 15)
(void) (XR←RaiseSignal((word) (( (bPt) gf←c64572)+1088), 0, 0));
};
SOURCE(32486, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 74:
SOURCE(32518, 402)
{
word tdd←v14716;
SOURCE(32520, 58)
tdd←v14716 = XR←Narrow((* (( (ptr) (* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ))+26) ), (* (( (ptr) gf←c64572)+49) ))
;
SOURCE(32580, 24)
if ((tdd←v14716 == 0)) {
SOURCE(32598, 6)
/*1*/ goto lab←L100076;
/*1*/ };
SOURCE(32606, 22)
(* (( (ptr) gf←c64572)+25)/* interpreterNesting←v5212 */ ) = 0;
SOURCE(32630, 30)
if (((* (( (ptr) gf←c64572)+18)/* editState←v4764 */ ) == 1)) {
SOURCE(32654, 6)
/*1*/ goto lab←L100076;
/*1*/ };
SOURCE(32662, 86)
if ( ( ((* (( (ptr) gf←c64572)+14)/* sel←v4568 */ ) == 1) ? ((* (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+373)
/*1*/ /* var←c57436 */ ))+4) ) ) ) == 0) : 0 ) ) {
SOURCE(32723, 16)
/*1*/ (void) AbortSecondary←P1620();
SOURCE(32741, 7)
/*1*/ goto lab←L100076;
/*1*/ };
SOURCE(32751, 59)
{
/*1*/ word pd511;
/*1*/ pd511 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+60) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd511 ))))((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), tdd←v14716, (* (( (ptr) gf←c64572)+12)
/*1*/ /* mx←v4456 */ ), (* (( (ptr) gf←c64572)+11)/* my←v4428 */ ), (* (( (ptr) gf←c64572)+14)/* sel←v4568 */ ), (* (( (ptr) gf←c64572)+16)
/*1*/ /* pDel←v4652 */ ), pd511);
/*1*/ };
SOURCE(32812, 56)
if (((* (( (ptr) gf←c64572)+18)/* editState←v4764 */ ) == 2) || ((* (( (ptr) gf←c64572)+14)/* sel←v4568 */ ) == 1)) {
SOURCE(32855, 13)
/*1*/ (void) EditMessage←P180();
/*1*/ };
SOURCE(32870, 32)
if (((* (( (ptr) gf←c64572)+14)/* sel←v4568 */ ) == 0)) {
SOURCE(32890, 12)
/*1*/ (* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+12) ) ) = 1;
/*1*/ };
SOURCE(32904, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
};
case 75:
SOURCE(32934, 400)
{
word tdd←v14760;
SOURCE(32936, 58)
tdd←v14760 = XR←Narrow((* (( (ptr) (* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ))+26) ), (* (( (ptr) gf←c64572)+49) ))
;
SOURCE(32996, 24)
if ((tdd←v14760 == 0)) {
SOURCE(33014, 6)
/*1*/ goto lab←L100076;
/*1*/ };
SOURCE(33022, 22)
(* (( (ptr) gf←c64572)+25)/* interpreterNesting←v5212 */ ) = 0;
SOURCE(33046, 30)
if (((* (( (ptr) gf←c64572)+18)/* editState←v4764 */ ) == 1)) {
SOURCE(33070, 6)
/*1*/ goto lab←L100076;
/*1*/ };
SOURCE(33078, 86)
if ( ( ((* (( (ptr) gf←c64572)+14)/* sel←v4568 */ ) == 1) ? ((* (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+373)
/*1*/ /* var←c57436 */ ))+4) ) ) ) == 0) : 0 ) ) {
SOURCE(33139, 16)
/*1*/ (void) AbortSecondary←P1620();
SOURCE(33157, 7)
/*1*/ goto lab←L100076;
/*1*/ };
SOURCE(33167, 57)
{
/*1*/ word pd512;
/*1*/ pd512 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+57) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd512 ))))((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), tdd←v14760, (* (( (ptr) gf←c64572)+12)
/*1*/ /* mx←v4456 */ ), (* (( (ptr) gf←c64572)+11)/* my←v4428 */ ), (* (( (ptr) gf←c64572)+14)/* sel←v4568 */ ), (* (( (ptr) gf←c64572)+16)
/*1*/ /* pDel←v4652 */ ), pd512);
/*1*/ };
SOURCE(33226, 56)
if (((* (( (ptr) gf←c64572)+18)/* editState←v4764 */ ) == 2) || ((* (( (ptr) gf←c64572)+14)/* sel←v4568 */ ) == 1)) {
SOURCE(33269, 13)
/*1*/ (void) EditMessage←P180();
/*1*/ };
SOURCE(33284, 32)
if (((* (( (ptr) gf←c64572)+14)/* sel←v4568 */ ) == 0)) {
SOURCE(33304, 12)
/*1*/ (* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+12) ) ) = 1;
/*1*/ };
SOURCE(33318, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
};
case 76:
SOURCE(33352, 20)
(* (( (ptr) gf←c64572)+17)/* changeLevel←v4708 */ ) = 1;
SOURCE(33374, 32)
if (((* (( (ptr) gf←c64572)+14)/* sel←v4568 */ ) == 0)) {
SOURCE(33394, 12)
(* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+12) ) ) = 1;
};
SOURCE(33408, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 77:
SOURCE(33442, 21)
(void) Extend←P1680((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 0);
SOURCE(33465, 15)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 78:
SOURCE(33503, 20)
(void) Extend←P1680((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 1);
SOURCE(33525, 15)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 79:
SOURCE(33554, 400)
{
word tdd←v14804;
SOURCE(33556, 58)
tdd←v14804 = XR←Narrow((* (( (ptr) (* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ))+26) ), (* (( (ptr) gf←c64572)+49) ))
;
SOURCE(33616, 24)
if ((tdd←v14804 == 0)) {
SOURCE(33634, 6)
/*1*/ goto lab←L100076;
/*1*/ };
SOURCE(33642, 22)
(* (( (ptr) gf←c64572)+25)/* interpreterNesting←v5212 */ ) = 0;
SOURCE(33666, 30)
if (((* (( (ptr) gf←c64572)+18)/* editState←v4764 */ ) == 1)) {
SOURCE(33690, 6)
/*1*/ goto lab←L100076;
/*1*/ };
SOURCE(33698, 86)
if ( ( ((* (( (ptr) gf←c64572)+14)/* sel←v4568 */ ) == 1) ? ((* (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+373)
/*1*/ /* var←c57436 */ ))+4) ) ) ) == 0) : 0 ) ) {
SOURCE(33759, 16)
/*1*/ (void) AbortSecondary←P1620();
SOURCE(33777, 7)
/*1*/ goto lab←L100076;
/*1*/ };
SOURCE(33787, 57)
{
/*1*/ word pd513;
/*1*/ pd513 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+59) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd513 ))))((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), tdd←v14804, (* (( (ptr) gf←c64572)+12)
/*1*/ /* mx←v4456 */ ), (* (( (ptr) gf←c64572)+11)/* my←v4428 */ ), (* (( (ptr) gf←c64572)+14)/* sel←v4568 */ ), (* (( (ptr) gf←c64572)+16)
/*1*/ /* pDel←v4652 */ ), pd513);
/*1*/ };
SOURCE(33846, 56)
if (((* (( (ptr) gf←c64572)+18)/* editState←v4764 */ ) == 2) || ((* (( (ptr) gf←c64572)+14)/* sel←v4568 */ ) == 1)) {
SOURCE(33889, 13)
/*1*/ (void) EditMessage←P180();
/*1*/ };
SOURCE(33904, 32)
if (((* (( (ptr) gf←c64572)+14)/* sel←v4568 */ ) == 0)) {
SOURCE(33924, 12)
/*1*/ (* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+12) ) ) = 1;
/*1*/ };
SOURCE(33938, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
};
case 80:
SOURCE(33976, 91)
if (((* (( (ptr) gf←c64572)+15)/* pdelState←v4624 */ ) == 0)) {
SOURCE(34002, 15)
(* (( (ptr) gf←c64572)+15)/* pdelState←v4624 */ ) = 2;
SOURCE(34019, 12)
(* (( (ptr) gf←c64572)+16)/* pDel←v4652 */ ) = 0;
SOURCE(34033, 34)
if (((* (( (ptr) gf←c64572)+14)/* sel←v4568 */ ) == 0)) {
SOURCE(34053, 14)
/*1*/ (* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+12) ) ) = 1;
/*1*/ };
};
SOURCE(34070, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 81:
SOURCE(34105, 94)
if (((* (( (ptr) gf←c64572)+15)/* pdelState←v4624 */ ) == 0)) {
SOURCE(34131, 19)
(* (( (ptr) gf←c64572)+15)/* pdelState←v4624 */ ) = 1;
SOURCE(34152, 11)
(* (( (ptr) gf←c64572)+16)/* pDel←v4652 */ ) = 1;
SOURCE(34165, 34)
if (((* (( (ptr) gf←c64572)+14)/* sel←v4568 */ ) == 0)) {
SOURCE(34185, 14)
/*1*/ (* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+12) ) ) = 1;
/*1*/ };
};
SOURCE(34202, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 82:
SOURCE(34266, 19)
(* (( (ptr) gf←c64572)+15)/* pdelState←v4624 */ ) = 1;
SOURCE(34287, 11)
(* (( (ptr) gf←c64572)+16)/* pDel←v4652 */ ) = 1;
SOURCE(34300, 32)
if (((* (( (ptr) gf←c64572)+14)/* sel←v4568 */ ) == 0)) {
SOURCE(34320, 12)
(* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+12) ) ) = 1;
};
SOURCE(34334, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 83:
SOURCE(34405, 15)
(* (( (ptr) gf←c64572)+15)/* pdelState←v4624 */ ) = 2;
SOURCE(34422, 12)
(* (( (ptr) gf←c64572)+16)/* pDel←v4652 */ ) = 0;
SOURCE(34436, 32)
if (((* (( (ptr) gf←c64572)+14)/* sel←v4568 */ ) == 0)) {
SOURCE(34456, 12)
(* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+12) ) ) = 1;
};
SOURCE(34470, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 84:
SOURCE(34509, 32)
if (((* (( (ptr) gf←c64572)+14)/* sel←v4568 */ ) == 0)) {
SOURCE(34529, 12)
(* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+12) ) ) = 1;
};
SOURCE(34543, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 85:
SOURCE(34578, 73)
if (((* (( (ptr) gf←c64572)+13)/* selState←v4512 */ ) == 0)) {
SOURCE(34603, 18)
(* (( (ptr) gf←c64572)+13)/* selState←v4512 */ ) = 1;
SOURCE(34623, 13)
(* (( (ptr) gf←c64572)+14)/* sel←v4568 */ ) = 0;
SOURCE(34638, 13)
(* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+12) ) ) = 1;
};
SOURCE(34654, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 86:
SOURCE(34688, 20)
(* (( (ptr) gf←c64572)+17)/* changeLevel←v4708 */ ) = 0;
SOURCE(34710, 32)
if (((* (( (ptr) gf←c64572)+14)/* sel←v4568 */ ) == 0)) {
SOURCE(34730, 12)
(* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+12) ) ) = 1;
};
SOURCE(34744, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 87:
break;
case 88:
SOURCE(34905, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 89:
SOURCE(34942, 63)
if (((* (( (ptr) gf←c64572)+13)/* selState←v4512 */ ) == 0)) {
SOURCE(34967, 20)
(* (( (ptr) gf←c64572)+13)/* selState←v4512 */ ) = 2;
SOURCE(34989, 16)
(* (( (ptr) gf←c64572)+14)/* sel←v4568 */ ) = 1;
};
SOURCE(35008, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 90:
SOURCE(35040, 351)
{
word tdd←v14848;
SOURCE(35042, 58)
tdd←v14848 = XR←Narrow((* (( (ptr) (* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ))+26) ), (* (( (ptr) gf←c64572)+49) ))
;
SOURCE(35102, 24)
if ((tdd←v14848 == 0)) {
SOURCE(35120, 6)
/*1*/ goto lab←L100076;
/*1*/ };
SOURCE(35128, 30)
if (((* (( (ptr) gf←c64572)+18)/* editState←v4764 */ ) == 1)) {
SOURCE(35152, 6)
/*1*/ goto lab←L100076;
/*1*/ };
SOURCE(35160, 86)
if ( ( ((* (( (ptr) gf←c64572)+14)/* sel←v4568 */ ) == 1) ? ((* (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+373)
/*1*/ /* var←c57436 */ ))+4) ) ) ) == 0) : 0 ) ) {
SOURCE(35221, 16)
/*1*/ (void) AbortSecondary←P1620();
SOURCE(35239, 7)
/*1*/ goto lab←L100076;
/*1*/ };
SOURCE(35249, 53)
{
/*1*/ word pd514;
/*1*/ pd514 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+61) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd514 ))))((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), tdd←v14848, (* (( (ptr) gf←c64572)+12)
/*1*/ /* mx←v4456 */ ), (* (( (ptr) gf←c64572)+11)/* my←v4428 */ ), (* (( (ptr) gf←c64572)+14)/* sel←v4568 */ ), (* (( (ptr) gf←c64572)+16)
/*1*/ /* pDel←v4652 */ ), pd514);
/*1*/ };
SOURCE(35304, 35)
if (((* (( (ptr) gf←c64572)+14)/* sel←v4568 */ ) == 1)) {
SOURCE(35326, 13)
/*1*/ (void) EditMessage←P180();
/*1*/ };
SOURCE(35341, 32)
if (((* (( (ptr) gf←c64572)+14)/* sel←v4568 */ ) == 0)) {
SOURCE(35361, 12)
/*1*/ (* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+12) ) ) = 1;
/*1*/ };
SOURCE(35375, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
};
case 91:
SOURCE(35405, 400)
{
word tdd←v14892;
SOURCE(35407, 58)
tdd←v14892 = XR←Narrow((* (( (ptr) (* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ))+26) ), (* (( (ptr) gf←c64572)+49) ))
;
SOURCE(35467, 24)
if ((tdd←v14892 == 0)) {
SOURCE(35485, 6)
/*1*/ goto lab←L100076;
/*1*/ };
SOURCE(35493, 22)
(* (( (ptr) gf←c64572)+25)/* interpreterNesting←v5212 */ ) = 0;
SOURCE(35517, 30)
if (((* (( (ptr) gf←c64572)+18)/* editState←v4764 */ ) == 1)) {
SOURCE(35541, 6)
/*1*/ goto lab←L100076;
/*1*/ };
SOURCE(35549, 86)
if ( ( ((* (( (ptr) gf←c64572)+14)/* sel←v4568 */ ) == 1) ? ((* (ptr) (* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+373)
/*1*/ /* var←c57436 */ ))+4) ) ) ) == 0) : 0 ) ) {
SOURCE(35610, 16)
/*1*/ (void) AbortSecondary←P1620();
SOURCE(35628, 7)
/*1*/ goto lab←L100076;
/*1*/ };
SOURCE(35638, 57)
{
/*1*/ word pd515;
/*1*/ pd515 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+58) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd515 ))))((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), tdd←v14892, (* (( (ptr) gf←c64572)+12)
/*1*/ /* mx←v4456 */ ), (* (( (ptr) gf←c64572)+11)/* my←v4428 */ ), (* (( (ptr) gf←c64572)+14)/* sel←v4568 */ ), (* (( (ptr) gf←c64572)+16)
/*1*/ /* pDel←v4652 */ ), pd515);
/*1*/ };
SOURCE(35697, 56)
if (((* (( (ptr) gf←c64572)+18)/* editState←v4764 */ ) == 2) || ((* (( (ptr) gf←c64572)+14)/* sel←v4568 */ ) == 1)) {
SOURCE(35740, 13)
/*1*/ (void) EditMessage←P180();
/*1*/ };
SOURCE(35755, 32)
if (((* (( (ptr) gf←c64572)+14)/* sel←v4568 */ ) == 0)) {
SOURCE(35775, 12)
/*1*/ (* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+380)/* var←c58300 */ ))+12) ) ) = 1;
/*1*/ };
SOURCE(35789, 16)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
};
case 92:
SOURCE(35830, 23)
SOURCE(21462, 62)
if (((* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+399)/* var←c62108 */ ))+4) ) ) < 1)) {
SOURCE(21507, 17)
(void) (XR←RaiseSignal((word) (( (bPt) gf←c64572)+1092), 0, 0));
};
SOURCE(35855, 15)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 93:
SOURCE(35891, 19)
SOURCE(21462, 62)
if (((* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+399)/* var←c62108 */ ))+4) ) ) < 2)) {
SOURCE(21507, 17)
(void) (XR←RaiseSignal((word) (( (bPt) gf←c64572)+1092), 0, 0));
};
SOURCE(35912, 15)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 94:
SOURCE(35946, 17)
SOURCE(21462, 62)
if (((* (ptr) (* (( (ptr) (* (( (ptr) gf←c64572)+399)/* var←c62108 */ ))+4) ) ) < 3)) {
SOURCE(21507, 17)
(void) (XR←RaiseSignal((word) (( (bPt) gf←c64572)+1092), 0, 0));
};
SOURCE(35965, 15)
recordAtom←v38920 = 0;
quit←v38948 = 0;
goto lab←L100076;
case 95:
SOURCE(35994, 22)
{
word pd516;
pd516 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+33) );
(void) ( *( (fPt) ((* (ptr) pd516 ))))(pd516);
};
break;
case 96:
SOURCE(36029, 21)
{
word pd517;
pd517 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+34) );
(void) ( *( (fPt) ((* (ptr) pd517 ))))(pd517);
};
break;
case 97:
SOURCE(36063, 21)
{
word pd518;
pd518 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+35) );
(void) ( *( (fPt) ((* (ptr) pd518 ))))(pd518);
};
break;
case 98:
SOURCE(36098, 22)
{
word pd519;
pd519 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+30) );
(void) ( *( (fPt) ((* (ptr) pd519 ))))(pd519);
};
break;
case 99:
SOURCE(36141, 29)
{
word pd520;
pd520 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+31) );
(void) ( *( (fPt) ((* (ptr) pd520 ))))(pd520);
};
break;
case 100:
SOURCE(36188, 26)
{
word pd521;
pd521 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+62) );
(void) ( *( (fPt) ((* (ptr) pd521 ))))(pd521);
};
break;
case 101:
SOURCE(36232, 26)
{
word pd522;
pd522 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+63) );
(void) ( *( (fPt) ((* (ptr) pd522 ))))(pd522);
};
break;
case 102:
SOURCE(36273, 23)
{
word pd523;
pd523 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+36) );
(void) ( *( (fPt) ((* (ptr) pd523 ))))(pd523);
};
break;
case 103:
SOURCE(36312, 34)
{
word pd524;
pd524 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+53) );
(void) ( *( (fPt) ((* (ptr) pd524 ))))(0, pd524);
};
break;
case 104:
SOURCE(36363, 35)
{
word pd525;
pd525 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+53) );
(void) ( *( (fPt) ((* (ptr) pd525 ))))(1, pd525);
};
break;
case 105:
SOURCE(36415, 35)
{
word pd526;
pd526 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+53) );
(void) ( *( (fPt) ((* (ptr) pd526 ))))(3, pd526);
};
break;
case 106:
SOURCE(36470, 35)
{
word pd527;
pd527 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+53) );
(void) ( *( (fPt) ((* (ptr) pd527 ))))(2, pd527);
};
break;
case 107:
SOURCE(36524, 37)
{
word pd528;
pd528 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+55) );
(void) ( *( (fPt) ((* (ptr) pd528 ))))(pd528);
};
break;
case 108:
SOURCE(36581, 38)
{
word pd529;
pd529 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+54) );
(void) ( *( (fPt) ((* (ptr) pd529 ))))(pd529);
};
break;
case 109:
SOURCE(36638, 34)
{
word pd530;
pd530 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+48) );
(void) ( *( (fPt) ((* (ptr) pd530 ))))(pd530);
};
break;
case 110:
SOURCE(36688, 31)
{
word pd531;
pd531 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+51) );
(void) ( *( (fPt) ((* (ptr) pd531 ))))(pd531);
};
break;
case 111:
SOURCE(36743, 39)
{
word pd532;
pd532 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+49) );
(void) ( *( (fPt) ((* (ptr) pd532 ))))(pd532);
};
break;
case 112:
SOURCE(36806, 32)
{
word pd533;
pd533 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+8) );
(void) ( *( (fPt) ((* (ptr) pd533 ))))(pd533);
};
break;
case 113:
SOURCE(36858, 153)
{
word tdd←v14936;
SOURCE(36860, 58)
tdd←v14936 = XR←Narrow((* (( (ptr) (* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ))+26) ), (* (( (ptr) gf←c64572)+49) ))
;
SOURCE(36920, 24)
if ((tdd←v14936 == 0)) {
SOURCE(36938, 6)
/*1*/ goto lab←L100076;
/*1*/ };
SOURCE(36946, 65)
{
/*1*/ word var←c62140;
/*1*/ {
/*1*/ word pd534;
/*1*/ pd534 = (* (( (ptr) (* (( (ptr) gf←c64572)+390)/* var←c60828 */ ))+41) );
/*1*/ var←c62140 = (word) ( *( (fPt) ((* (ptr) pd534 ))))((* (ptr) (tdd←v14936) ), pd534);
/*1*/ };
/*1*/ {
/*1*/ word pd535;
/*1*/ pd535 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+7) );
/*1*/ (void) ( *( (fPt) ((* (ptr) pd535 ))))(var←c62140, pd535);
/*1*/ };
/*1*/ };
};
break;
case 114:
SOURCE(37040, 43)
{
word pd536;
pd536 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+53) );
(void) ( *( (fPt) ((* (ptr) pd536 ))))(pd536);
};
break;
case 115:
SOURCE(37109, 40)
{
word pd537;
pd537 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+52) );
(void) ( *( (fPt) ((* (ptr) pd537 ))))(pd537);
};
break;
case 116:
SOURCE(37178, 37)
{
word pd538;
pd538 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+24) );
(void) ( *( (fPt) ((* (ptr) pd538 ))))(pd538);
};
break;
case 117:
SOURCE(37242, 35)
{
word pd539;
pd539 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+26) );
(void) ( *( (fPt) ((* (ptr) pd539 ))))(pd539);
};
break;
case 118:
SOURCE(37308, 39)
{
word pd540;
pd540 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+25) );
(void) ( *( (fPt) ((* (ptr) pd540 ))))(pd540);
};
break;
case 119:
SOURCE(37376, 37)
{
word pd541;
pd541 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+27) );
(void) ( *( (fPt) ((* (ptr) pd541 ))))(pd541);
};
break;
case 120:
SOURCE(37435, 29)
{
word pd542;
pd542 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+14) );
(void) ( *( (fPt) ((* (ptr) pd542 ))))(pd542);
};
break;
case 121:
SOURCE(37488, 31)
{
word pd543;
pd543 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+15) );
(void) ( *( (fPt) ((* (ptr) pd543 ))))(pd543);
};
break;
case 122:
SOURCE(37543, 31)
{
word pd544;
pd544 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+16) );
(void) ( *( (fPt) ((* (ptr) pd544 ))))(pd544);
};
break;
case 123:
SOURCE(37600, 33)
{
word pd545;
pd545 = (* (( (ptr) (* (( (ptr) gf←c64572)+373)/* var←c57436 */ ))+17) );
(void) ( *( (fPt) ((* (ptr) pd545 ))))(pd545);
};
break;
case 124:
SOURCE(37647, 18)
(void) ForkPaint←P1800((* ((( (ptr) &var←c64540)+4)/* viewer←v38848 */ ) ));
break;
case 125:
SOURCE(37693, 36)
{
word pd546;
pd546 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+45) );
(void) ( *( (fPt) ((* (ptr) pd546 ))))(1, 2, pd546);
};
break;
case 126:
SOURCE(37745, 16)
(void) ReadTipTables←P1980();
break;
case 127:
SOURCE(37781, 28)
{
word pd547;
pd547 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+60) );
(void) ( *( (fPt) ((* (ptr) pd547 ))))(pd547);
};
break;
case 128:
SOURCE(37851, 43)
{
word pd548;
pd548 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+46) );
(void) ( *( (fPt) ((* (ptr) pd548 ))))(1, 2, pd548);
};
break;
case 129:
SOURCE(37931, 46)
{
word pd549;
pd549 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+46) );
(void) ( *( (fPt) ((* (ptr) pd549 ))))(96, 39, pd549);
};
break;
case 130:
SOURCE(38014, 44)
{
word pd550;
pd550 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+46) );
(void) ( *( (fPt) ((* (ptr) pd550 ))))(34, 34, pd550);
};
break;
case 131:
SOURCE(38093, 44)
{
word pd551;
pd551 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+46) );
(void) ( *( (fPt) ((* (ptr) pd551 ))))(45, 45, pd551);
};
break;
case 132:
SOURCE(38165, 38)
{
word pd552;
pd552 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+50) );
(void) ( *( (fPt) ((* (ptr) pd552 ))))(0, pd552);
};
break;
case 133:
SOURCE(38226, 32)
{
word pd553;
pd553 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+48) );
(void) ( *( (fPt) ((* (ptr) pd553 ))))(0, pd553);
};
break;
case 134:
SOURCE(38282, 37)
{
word pd554;
pd554 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+50) );
(void) ( *( (fPt) ((* (ptr) pd554 ))))(1, pd554);
};
break;
case 135:
SOURCE(38338, 31)
{
word pd555;
pd555 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+48) );
(void) ( *( (fPt) ((* (ptr) pd555 ))))(1, pd555);
};
break;
case 136:
SOURCE(38395, 43)
{
word pd556;
pd556 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+68) );
(void) ( *( (fPt) ((* (ptr) pd556 ))))((* ((( (ptr) gf←c64572)+100)) ), pd556);
};
break;
case 137:
SOURCE(38467, 44)
{
word pd557;
pd557 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+46) );
(void) ( *( (fPt) ((* (ptr) pd557 ))))(40, 41, pd557);
};
break;
case 138:
SOURCE(38547, 44)
{
word pd558;
pd558 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+46) );
(void) ( *( (fPt) ((* (ptr) pd558 ))))(60, 62, pd558);
};
break;
case 139:
SOURCE(38627, 44)
{
word pd559;
pd559 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+46) );
(void) ( *( (fPt) ((* (ptr) pd559 ))))(123, 125, pd559);
};
break;
case 140:
SOURCE(38708, 44)
{
word pd560;
pd560 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+46) );
(void) ( *( (fPt) ((* (ptr) pd560 ))))(91, 93, pd560);
};
break;
case 141:
SOURCE(38774, 36)
{
word pd561;
pd561 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+45) );
(void) ( *( (fPt) ((* (ptr) pd561 ))))(40, 41, pd561);
};
break;
case 142:
SOURCE(38831, 36)
{
word pd562;
pd562 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+45) );
(void) ( *( (fPt) ((* (ptr) pd562 ))))(45, 45, pd562);
};
break;
case 143:
SOURCE(38895, 36)
{
word pd563;
pd563 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+45) );
(void) ( *( (fPt) ((* (ptr) pd563 ))))(34, 34, pd563);
};
break;
case 144:
SOURCE(38953, 36)
{
word pd564;
pd564 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+45) );
(void) ( *( (fPt) ((* (ptr) pd564 ))))(60, 62, pd564);
};
break;
case 145:
SOURCE(39017, 38)
{
word pd565;
pd565 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+45) );
(void) ( *( (fPt) ((* (ptr) pd565 ))))(96, 39, pd565);
};
break;
case 146:
SOURCE(39079, 36)
{
word pd566;
pd566 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+45) );
(void) ( *( (fPt) ((* (ptr) pd566 ))))(123, 125, pd566);
};
break;
case 147:
SOURCE(39138, 36)
{
word pd567;
pd567 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+45) );
(void) ( *( (fPt) ((* (ptr) pd567 ))))(91, 93, pd567);
};
break;
case 148:
SOURCE(39191, 20)
(void) DoCommand←P2160((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 0);
break;
case 149:
SOURCE(39228, 20)
(void) DoCommand←P2160((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 1);
break;
case 150:
SOURCE(39265, 20)
(void) DoCommand←P2160((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 2);
break;
case 151:
SOURCE(39302, 20)
(void) DoCommand←P2160((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 3);
break;
case 152:
SOURCE(39339, 20)
(void) DoCommand←P2160((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 4);
break;
case 153:
SOURCE(39376, 20)
(void) DoCommand←P2160((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 5);
break;
case 154:
SOURCE(39413, 20)
(void) DoCommand←P2160((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 6);
break;
case 155:
SOURCE(39450, 20)
(void) DoCommand←P2160((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 7);
break;
case 156:
SOURCE(39487, 20)
(void) DoCommand←P2160((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 8);
break;
case 157:
SOURCE(39524, 20)
(void) DoCommand←P2160((* (( (ptr) &var←c64540)+4)/* viewer←v38848 */ ), 9);
break;
case 158:
SOURCE(39563, 35)
{
word pd568;
pd568 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+65) );
(void) ( *( (fPt) ((* (ptr) pd568 ))))(1, pd568);
};
break;
case 159:
SOURCE(39620, 36)
{
word pd569;
pd569 = (* (( (ptr) (* (( (ptr) gf←c64572)+379)/* var←c58236 */ ))+65) );
(void) ( *( (fPt) ((* (ptr) pd569 ))))(0, pd569);
};
break;
case 166:
break;
default:
SOURCE(39725, 5)
(void) XR←RaiseUnnamedError();
break;
};
};
};
};
}
else {
lab←L100078: ;
SOURCE(39746, 5)
(void) XR←RaiseUnnamedError();
};
};
/* removed tail goto */
lab←L100076: ;
(* (ptr) formal←c0415 ) = recordAtom←v38920;
(* (( (ptr) formal←c0415)+1) ) = quit←v38948;
return;
}
static void DoIt←P5532(tdd←v14528, tSel←v14556, formal←c64604)
word tdd←v14528;
word tSel←v14556;
word formal←c64604;
{
formal←c64604 = (formal←c64604 - 28);
/* DoIt: */
SOURCE(28177, 12)
SOURCE(28262, 89)
{
W2 var←c62172;
W2 var←c0615;
{
word tcp570;
if (((* (ptr) tSel←v14556 ) == 0)) {
var←c62172.f0 = 0;
var←c62172.f1 = 0;
tcp570 = (word) &var←c62172;
}
else {
tcp570 = (word) (( (ptr) tSel←v14556)+2);
};
var←c0615 = (* (W2Pt) tcp570 );
};
(void) NormalizeViewer←P1560((* (( (ptr) formal←c64604)+4) ), var←c0615, tdd←v14528, tSel←v14556);
};
}
static void DoIt←P5640(tdd←v14660, tSel←v14688, formal←c64636)
word tdd←v14660;
word tSel←v14688;
word formal←c64636;
{
formal←c64636 = (formal←c64636 - 20);
/* DoIt: */
SOURCE(28445, 12)
SOURCE(28530, 87)
{
W2 var←c62204;
W2 var←c0616;
{
word tcp571;
if (((* (ptr) tSel←v14688 ) == 0)) {
var←c62204.f0 = 0;
var←c62204.f1 = 0;
tcp571 = (word) &var←c62204;
}
else {
tcp571 = (word) (( (ptr) tSel←v14688)+11);
};
var←c0616 = (* (W2Pt) tcp571 );
};
(void) NormalizeViewer←P1560((* (( (ptr) formal←c64636)+4) ), var←c0616, tdd←v14660, tSel←v14688);
};
}
static void DispatchCommandProc←P2460(formal←c0431, data←v39008, viewer←v39036, param←v39064)
word formal←c0431;
word data←v39008;
word viewer←v39036;
word param←v39064;
{
register ptr gf←c64668 = (ptr) &globalframe;
word recordAtom←v39108;
word quit←v39136;
/* DispatchCommandProc: */
SOURCE(39757, 144)
SOURCE(39757, 144)
recordAtom←v39108 = 1;
SOURCE(39757, 144)
quit←v39136 = 0;
SOURCE(39808, 93)
{
word var←c62236;
var←c62236 = data←v39008;
if ((var←c62236 == 0)) {
goto lab←L100080;
};
if (((* (( (ptr) gf←c64668)+45) ) == XR←GetReferentType(var←c62236))) {
{
word c←v14980;
c←v14980 = var←c62236;
SOURCE(39852, 49)
{
W2 var←c62268;
{
word pd572;
pd572 = (* (ptr) c←v14980 );
(void) ( *( (fPt) ((* (ptr) pd572 ))))((word) &var←c62268, viewer←v39036, pd572);
};
quit←v39136 = var←c62268.f1;
recordAtom←v39108 = var←c62268.f0;
};
};
}
else {
lab←L100080: ;
SOURCE(39914, 5)
(void) XR←RaiseUnnamedError();
};
};
/* removed tail goto */
(* (ptr) formal←c0431 ) = recordAtom←v39108;
(* (( (ptr) formal←c0431)+1) ) = quit←v39136;
return;
}
static void Register←P2520(name←v9360, proc←v9388, before←v9416)
word name←v9360;
word proc←v9388;
word before←v9416;
{
register ptr gf←c64700 = (ptr) &globalframe;
/* Register: */
SOURCE(39925, 198)
SOURCE(40004, 119)
{
word var←c62300;
{
word var←c62332;
var←c62332 = XR←NewObject(4, (* (( (ptr) gf←c64700)+45) ));
(* (ptr) var←c62332 ) = XR←CheckProc(proc←v9388);
var←c62300 = var←c62332;
};
{
W3 var←c62364;
var←c62364.f0 = name←v9360;
var←c62364.f1 = (word) (( (bPt) gf←c64700)+1160)/* var←c55996 */ ;
var←c62364.f2 = var←c62300;
(void) RegisterClosure←P2700(var←c62364, before←v9416);
};
};
}
static void UnRegister←P2580(name←v9476, formal←c0653)
word name←v9476;
word formal←c0653;
{
W7 var←c64732;
/* declaration of proc←v9504 skipped */
register ptr gf←c64764 = (ptr) &globalframe;
/* declaration of var←c62396 skipped */
var←c64732.f4/* proc←v9504 */ = formal←c0653;
/* UnRegister: */
SOURCE(40129, 239)
{
word tmpAddr573;
tmpAddr573 = (word) (( (ptr) &var←c64732)+5)/* var←c62396 */ ;
(* (ptr) tmpAddr573 ) = ( ((word) (fPt) Match←P6036) );
(* (( (ptr) tmpAddr573) + 1) ) = 1;
};
SOURCE(40317, 51)
(void) UnRegisterClosure←P2760(name←v9476, (word) (( (bPt) gf←c64764)+1160)/* var←c55996 */ , (word) (( (bPt) &var←c64732)+20)
/* var←c62396 */ );
}
static word Match←P6036(data←v15112, formal←c64828)
word data←v15112;
word formal←c64828;
{
register ptr gf←c64796 = (ptr) &globalframe;
word var←c15168;
formal←c64828 = (formal←c64828 - 20);
/* Match: */
SOURCE(40189, 105)
SOURCE(40232, 62)
{
word var←c62428;
var←c62428 = data←v15112;
if ((var←c62428 == 0)) {
goto lab←L100081;
};
if (((* (( (ptr) gf←c64796)+45) ) == XR←GetReferentType(var←c62428))) {
{
word c←v15196;
c←v15196 = var←c62428;
SOURCE(40276, 18)
return(((* (ptr) c←v15196 ) == (* (( (ptr) formal←c64828)+4) )));
};
}
else {
lab←L100081: ;
SOURCE(40307, 5)
(void) XR←RaiseUnnamedError();
};
};
}
static word IsRegistered←P2640(formal←c0654, formal←c0655)
word formal←c0654;
word formal←c0655;
{
W7 var←c64860;
/* declaration of name←v9564 skipped */
/* declaration of proc←v9592 skipped */
register ptr gf←c64892 = (ptr) &globalframe;
/* declaration of var←c02 skipped */
word var←c9636;
var←c64860.f4/* name←v9564 */ = formal←c0654;
var←c64860.f5/* proc←v9592 */ = formal←c0655;
/* IsRegistered: */
SOURCE(40374, 446)
(void) (XR←MonitorEntry((word) (( (bPt) gf←c64892)+16)/* LOCK←v4176 */ ));
SOURCE(40457, 363)
{
word var←c03;
{
word var←c0617;
var←c0617 = (word) &var←c64860;
var←c03 = (word) XR←Enable(( ((word) (fPt) NoName←Q7380) ), ( ((word) (fPt) NoName←Q7800) ), var←c0617);
};
/* removed trivial cond node */
};
return(var←c64860.f6/* var←c02 */ );
}
static word NoName←Q7380(formal←c0586)
word formal←c0586;
{
register ptr gf←c0585 = (ptr) &globalframe;
SOURCE(40480, 49)
{
word p←v15252;
W2 var←c0449;
word closureList←v15280;
SOURCE(40480, 49)
{
word pd574;
pd574 = (* (( (ptr) (* (( (ptr) gf←c0585)+372)/* var←c57340 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd574 ))))((word) &var←c0449, (* (( (ptr) gf←c0585)+10)/* commandTable←v4400 */ ), (* (( (ptr) formal←c0586)+4)
), pd574);
};
p←v15252 = var←c0449.f1;
SOURCE(40531, 13)
closureList←v15280 = XR←Narrow(p←v15252, (* (( (ptr) gf←c0585)+53) ));
SOURCE(40580, 193)
{
register word l←v15420;
l←v15420 = closureList←v15280;
lab←L100087: ;
if ((l←v15420 != 0)) {
}
else {
goto lab←L100084;
};
SOURCE(40647, 126)
if (((* (( (ptr) l←v15420)+1) ) == (word) (( (bPt) gf←c0585)+1160)/* var←c55996 */ )) {
SOURCE(40690, 83)
{
word var←c62460;
var←c62460 = (* (( (ptr) l←v15420)+2) );
if ((var←c62460 == 0)) {
goto lab←L100088;
};
if (((* (( (ptr) gf←c0585)+45) ) == XR←GetReferentType(var←c62460))) {
{
word c←v15548;
c←v15548 = var←c62460;
SOURCE(40742, 31)
if (((* (ptr) c←v15548 ) == (* (( (ptr) formal←c0586)+5) ))) {
SOURCE(40760, 13)
(void) (XR←MonitorExit((word) (( (bPt) gf←c0585)+16)/* LOCK←v4176 */ ));
(* (( (ptr) formal←c0586)+6) ) = 1;
return(1);
};
};
}
else {
lab←L100088: ;
};
};
};
l←v15420 = (* (( (ptr) l←v15420)+3) );
goto lab←L100087;
lab←L100084: ;
};
SOURCE(40804, 16)
(void) (XR←MonitorExit((word) (( (bPt) gf←c0585)+16)/* LOCK←v4176 */ ));
(* (( (ptr) formal←c0586)+6) ) = 0;
return(1);
};
/* c2c skipped dead code */
}
static void RegisterClosure←P2700(formal←c0656, formal←c0657)
W3 formal←c0656;
word formal←c0657;
{
W8 var←c64924;
/* declaration of commandClosure←v9696 skipped */
/* declaration of before←v9724 skipped */
register ptr gf←c64956 = (ptr) &globalframe;
(* (W3Pt) (( (ptr) &var←c64924)+4)/* commandClosure←v9696 */ ) = formal←c0656;
var←c64924.f7/* before←v9724 */ = formal←c0657;
/* RegisterClosure: */
SOURCE(40945, 471)
(void) (XR←MonitorEntry((word) (( (bPt) gf←c64956)+16)/* LOCK←v4176 */ ));
SOURCE(41038, 378)
{
word var←c0618;
var←c0618 = (word) &var←c64924;
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q7440) ), ( ((word) (fPt) NoName←Q7740) ), var←c0618);
};
SOURCE(40945, 471)
(void) (XR←MonitorExit((word) (( (bPt) gf←c64956)+16)/* LOCK←v4176 */ ));
return;
}
static word NoName←Q7440(formal←c0589)
word formal←c0589;
{
register ptr gf←c0588 = (ptr) &globalframe;
SOURCE(41061, 64)
{
word p←v15604;
W2 var←c0457;
word list←v15632;
SOURCE(41061, 64)
{
word pd575;
pd575 = (* (( (ptr) (* (( (ptr) gf←c0588)+372)/* var←c57340 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd575 ))))((word) &var←c0457, (* (( (ptr) gf←c0588)+10)/* commandTable←v4400 */ ), (* (( (ptr) formal←c0589)+4)
), pd575);
};
p←v15604 = var←c0457.f1;
SOURCE(41127, 6)
list←v15632 = XR←Narrow(p←v15604, (* (( (ptr) gf←c0588)+53) ));
SOURCE(41169, 166)
if ((0 != (* (( (ptr) formal←c0589)+7) )) || (list←v15632 == 0)) {
SOURCE(41196, 39)
{
word var←c62492;
var←c62492 = XR←NewObject(16, (* (( (ptr) gf←c0588)+53) ));
(* (W3Pt) var←c62492 ) = (* (W3Pt) (( (ptr) formal←c0589)+4) );
(* (( (ptr) var←c62492)+3) ) = list←v15632;
list←v15632 = var←c62492;
};
}
else {
SOURCE(41237, 98)
{
register word l←v15772;
l←v15772 = list←v15632;
lab←L100094: ;
SOURCE(41285, 50)
if (((* (( (ptr) l←v15772)+3) ) == 0)) {
SOURCE(41306, 29)
{
word var←c62524;
word var←c62556;
var←c62524 = XR←NewObject(16, (* (( (ptr) gf←c0588)+53) ));
var←c62556 = var←c62524;
(* (W3Pt) var←c62556 ) = (* (W3Pt) (( (ptr) formal←c0589)+4) );
(* (( (ptr) l←v15772)+3) ) = var←c62524;
};
SOURCE(41337, 5)
goto lab←L100092;
};
l←v15772 = (* (( (ptr) l←v15772)+3) );
goto lab←L100094;
lab←L100092: ;
};
};
SOURCE(41357, 59)
{
word var←c62588;
word pd576;
pd576 = (* (( (ptr) (* (( (ptr) gf←c0588)+372)/* var←c57340 */ ))+9) );
var←c62588 = (word) ( *( (fPt) ((* (ptr) pd576 ))))((* (( (ptr) gf←c0588)+10)/* commandTable←v4400 */ ), (* (( (ptr) formal←c0589)+4)
), list←v15632, pd576);
};
};
return(0);
}
static void UnRegisterClosure←P2760(formal←c0658, formal←c0659, formal←c0660)
word formal←c0658;
word formal←c0659;
word formal←c0660;
{
W7 var←c64988;
/* declaration of name←v9784 skipped */
/* declaration of proc←v9812 skipped */
/* declaration of match←v9840 skipped */
register ptr gf←c65020 = (ptr) &globalframe;
var←c64988.f4/* name←v9784 */ = formal←c0658;
var←c64988.f5/* proc←v9812 */ = formal←c0659;
var←c64988.f6/* match←v9840 */ = formal←c0660;
/* UnRegisterClosure: */
SOURCE(41422, 649)
(void) (XR←MonitorEntry((word) (( (bPt) gf←c65020)+16)/* LOCK←v4176 */ ));
SOURCE(41536, 535)
{
word var←c0619;
var←c0619 = (word) &var←c64988;
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q7500) ), ( ((word) (fPt) NoName←Q7680) ), var←c0619);
};
SOURCE(41422, 649)
(void) (XR←MonitorExit((word) (( (bPt) gf←c65020)+16)/* LOCK←v4176 */ ));
return;
}
static word NoName←Q7500(formal←c0592)
word formal←c0592;
{
register ptr gf←c0591 = (ptr) &globalframe;
SOURCE(41559, 49)
{
word p←v15900;
W2 var←c0468;
word head←v15928;
word prev←v15956;
SOURCE(41559, 49)
{
word pd577;
pd577 = (* (( (ptr) (* (( (ptr) gf←c0591)+372)/* var←c57340 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd577 ))))((word) &var←c0468, (* (( (ptr) gf←c0591)+10)/* commandTable←v4400 */ ), (* (( (ptr) formal←c0592)+4)
), pd577);
};
p←v15900 = var←c0468.f1;
SOURCE(41610, 6)
{
word var←c62620;
word var←c62652;
var←c62620 = XR←Narrow(p←v15900, (* (( (ptr) gf←c0591)+53) ));
var←c62652 = XR←NewObject(16, (* (( (ptr) gf←c0591)+53) ));
(* (( (ptr) var←c62652)+3) ) = var←c62620;
head←v15928 = var←c62652;
};
SOURCE(41675, 6)
prev←v15956 = head←v15928;
SOURCE(41712, 223)
{
register word rem←v16180;
rem←v16180 = (* (( (ptr) prev←v15956)+3) );
lab←L100100: ;
if ((rem←v16180 != 0)) {
}
else {
goto lab←L100097;
};
SOURCE(41784, 30)
if (((* (ptr) rem←v16180 ) != (* (( (ptr) formal←c0592)+4) ))) {
SOURCE(41814, 5)
(void) XR←RaiseUnnamedError();
};
SOURCE(41821, 114)
{
word tc578;
word pd579;
if (((* (( (ptr) rem←v16180)+1) ) == (* (( (ptr) formal←c0592)+5) ))) {
if (((* (( (ptr) formal←c0592)+6) ) == 0)) {
tc578 = (word) 1;
}
else {
pd579 = (* (( (ptr) formal←c0592)+6) );
tc578 = (word) (0 != (word) ( *( (fPt) ((* (ptr) pd579 ))))((* ((( (ptr) rem←v16180)+2)) ), pd579));
};
}
else {
tc578 = (word) 0;
};
if (tc578) {
SOURCE(41894, 21)
(* (( (ptr) prev←v15956)+3) ) = (* (( (ptr) rem←v16180)+3) );
}
else {
SOURCE(41924, 11)
prev←v15956 = rem←v16180;
};
};
rem←v16180 = (* (( (ptr) prev←v15956)+3) );
goto lab←L100100;
lab←L100097: ;
};
SOURCE(41947, 124)
if (((* (( (ptr) head←v15928)+3) ) == 0)) {
SOURCE(41973, 39)
{
word var←c62684;
word pd580;
pd580 = (* (( (ptr) (* (( (ptr) gf←c0591)+372)/* var←c57340 */ ))+11) );
var←c62684 = (word) ( *( (fPt) ((* (ptr) pd580 ))))((* (( (ptr) gf←c0591)+10)/* commandTable←v4400 */ ), (* (( (ptr) formal←c0592)+4)
), pd580);
};
}
else {
SOURCE(42021, 50)
{
word var←c62716;
word pd581;
pd581 = (* (( (ptr) (* (( (ptr) gf←c0591)+372)/* var←c57340 */ ))+9) );
var←c62716 = (word) ( *( (fPt) ((* (ptr) pd581 ))))((* (( (ptr) gf←c0591)+10)/* commandTable←v4400 */ ), (* (( (ptr) formal←c0592)+4)
), (* (( (ptr) head←v15928)+3) ), pd581);
};
};
};
return(0);
}
static word GetCommandNames←P2820()
{
W7 var←c65052;
register ptr gf←c65084 = (ptr) &globalframe;
/* declaration of list←v10016 skipped */
/* declaration of var←c62748 skipped */
/* GetCommandNames: */
SOURCE(42078, 220)
{
word tmpAddr582;
tmpAddr582 = (word) (( (ptr) &var←c65052)+5)/* var←c62748 */ ;
(* (ptr) tmpAddr582 ) = ( ((word) (fPt) EachPair←P6528) );
(* (( (ptr) tmpAddr582) + 1) ) = 1;
};
(void) (XR←MonitorEntry((word) (( (bPt) gf←c65084)+16)/* LOCK←v4176 */ ));
SOURCE(42078, 220)
var←c65052.f4/* list←v10016 */ = 0;
SOURCE(42152, 146)
{
word var←c0620;
var←c0620 = (word) &var←c65052;
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q7560) ), ( ((word) (fPt) NoName←Q7620) ), var←c0620);
};
SOURCE(42078, 220)
(void) (XR←MonitorExit((word) (( (bPt) gf←c65084)+16)/* LOCK←v4176 */ ));
return(var←c65052.f4/* list←v10016 */ );
}
static word NoName←Q7560(formal←c0595)
word formal←c0595;
{
register ptr gf←c0594 = (ptr) &globalframe;
SOURCE(42175, 34)
SOURCE(42246, 52)
{
word var←c62780;
word pd583;
pd583 = (* (( (ptr) (* (( (ptr) gf←c0594)+372)/* var←c57340 */ ))+13) );
var←c62780 = (word) ( *( (fPt) ((* (ptr) pd583 ))))((* (( (ptr) gf←c0594)+10)/* commandTable←v4400 */ ), (word) (( (bPt) formal←c0595)+20)
, pd583);
};
return(0);
}
static word EachPair←P6528(key←v54780, val←v54808, formal←c65148)
word key←v54780;
word val←v54808;
word formal←c65148;
{
register ptr gf←c65116 = (ptr) &globalframe;
word quit←v54852;
formal←c65148 = (formal←c65148 - 20);
/* EachPair: */
SOURCE(42175, 34)
SOURCE(42175, 34)
quit←v54852 = 0;
SOURCE(42211, 30)
{
word var←c62812;
word var←c62844;
var←c62812 = XR←Narrow(key←v54780, (* (( (ptr) gf←c65116)+43) ));
var←c62844 = XR←NewObject(8, (* (( (ptr) gf←c65116)+42) ));
(* (ptr) var←c62844 ) = var←c62812;
(* (( (ptr) var←c62844)+1) ) = (* (( (ptr) formal←c65148)+4) );
(* (( (ptr) formal←c65148)+4) ) = var←c62844;
};
SOURCE(42175, 34)
return(quit←v54852);
}
static void RegisterCommandAtoms←P2880()
{
register ptr gf←c65180 = (ptr) &globalframe;
/* RegisterCommandAtoms: */
SOURCE(42304, 8874)
SOURCE(42335, 49)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+104) ), 0);
SOURCE(42386, 39)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+105) ), 1);
SOURCE(42427, 51)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+106) ), 2);
SOURCE(42480, 41)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+107) ), 3);
SOURCE(42523, 39)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+108) ), 4);
SOURCE(42564, 37)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+109) ), 5);
SOURCE(42603, 49)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+110) ), 6);
SOURCE(42654, 49)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+111) ), 7);
SOURCE(42705, 53)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+112) ), 8);
SOURCE(42760, 45)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+113) ), 9);
SOURCE(42807, 53)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+114) ), 10);
SOURCE(42862, 45)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+115) ), 11);
SOURCE(42909, 53)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+116) ), 12);
SOURCE(42964, 45)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+117) ), 13);
SOURCE(43011, 47)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+118) ), 14);
SOURCE(43060, 59)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+119) ), 15);
SOURCE(43121, 29)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+120) ), 16);
SOURCE(43152, 33)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+79) ), 17);
SOURCE(43187, 34)
(void) Register←P2520((* (( (ptr) gf←c65180)+121) ), (word) (( (bPt) gf←c65180)+1312)/* var←c56604 */ , 1);
SOURCE(43223, 45)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+122) ), 18);
SOURCE(43270, 29)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+123) ), 19);
SOURCE(43301, 53)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+124) ), 20);
SOURCE(43356, 47)
(void) Register←P2520((* (( (ptr) gf←c65180)+125) ), (word) (( (bPt) gf←c65180)+1384)/* var←c56892 */ , 1);
SOURCE(43405, 49)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+126) ), 21);
SOURCE(43456, 51)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+127) ), 22);
SOURCE(43509, 41)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+128) ), 23);
SOURCE(43552, 37)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+129) ), 24);
SOURCE(43591, 29)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+130) ), 25);
SOURCE(43622, 37)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+131) ), 26);
SOURCE(43661, 43)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+132) ), 27);
SOURCE(43706, 39)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+133) ), 28);
SOURCE(43747, 39)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+134) ), 29);
SOURCE(43788, 33)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+84) ), 30);
SOURCE(43823, 35)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+135) ), 31);
SOURCE(43860, 39)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+81) ), 32);
SOURCE(43901, 43)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+83) ), 33);
SOURCE(43946, 41)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+136) ), 160);
SOURCE(43989, 59)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+137) ), 161);
SOURCE(44050, 43)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+138) ), 164);
SOURCE(44095, 61)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+139) ), 165);
SOURCE(44158, 31)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+140) ), 98);
SOURCE(44191, 49)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+141) ), 162);
SOURCE(44242, 67)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+142) ), 163);
SOURCE(44311, 39)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+143) ), 34);
SOURCE(44352, 39)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+144) ), 35);
SOURCE(44393, 37)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+85) ), 36);
SOURCE(44432, 41)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+87) ), 37);
SOURCE(44475, 39)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+145) ), 37);
SOURCE(44538, 39)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+86) ), 38);
SOURCE(44579, 45)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+80) ), 39);
SOURCE(44626, 37)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+82) ), 40);
SOURCE(44665, 37)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+146) ), 41);
SOURCE(44704, 35)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+147) ), 42);
SOURCE(44741, 37)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+148) ), 43);
SOURCE(44780, 43)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+149) ), 44);
SOURCE(44825, 41)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+150) ), 45);
SOURCE(44868, 43)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+151) ), 46);
SOURCE(44913, 45)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+152) ), 47);
SOURCE(44960, 43)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+153) ), 48);
SOURCE(45005, 45)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+154) ), 49);
SOURCE(45052, 53)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+155) ), 50);
SOURCE(45107, 51)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+156) ), 51);
SOURCE(45160, 53)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+157) ), 52);
SOURCE(45215, 59)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+158) ), 53);
SOURCE(45276, 57)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+159) ), 54);
SOURCE(45335, 59)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+160) ), 55);
SOURCE(45396, 61)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+161) ), 56);
SOURCE(45459, 59)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+162) ), 57);
SOURCE(45520, 61)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+163) ), 58);
SOURCE(45583, 49)
(void) Register←P2520((* (( (ptr) gf←c65180)+164) ), (word) (( (bPt) gf←c65180)+1368)/* var←c56828 */ , 1);
SOURCE(45634, 51)
(void) Register←P2520((* (( (ptr) gf←c65180)+165) ), (word) (( (bPt) gf←c65180)+1376)/* var←c56860 */ , 1);
SOURCE(45687, 49)
(void) Register←P2520((* (( (ptr) gf←c65180)+166) ), (word) (( (bPt) gf←c65180)+1368)/* var←c56828 */ , 1);
SOURCE(45738, 55)
(void) Register←P2520((* (( (ptr) gf←c65180)+167) ), (word) (( (bPt) gf←c65180)+1376)/* var←c56860 */ , 1);
SOURCE(45795, 50)
(void) Register←P2520((* (( (ptr) gf←c65180)+168) ), (word) (( (bPt) gf←c65180)+1368)/* var←c56828 */ , 1);
SOURCE(45847, 56)
(void) Register←P2520((* (( (ptr) gf←c65180)+169) ), (word) (( (bPt) gf←c65180)+1376)/* var←c56860 */ , 1);
SOURCE(45905, 50)
(void) Register←P2520((* (( (ptr) gf←c65180)+170) ), (word) (( (bPt) gf←c65180)+1352)/* var←c56764 */ , 1);
SOURCE(45957, 56)
(void) Register←P2520((* (( (ptr) gf←c65180)+171) ), (word) (( (bPt) gf←c65180)+1360)/* var←c56796 */ , 1);
SOURCE(46015, 37)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+172) ), 63);
SOURCE(46054, 71)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+173) ), 64);
SOURCE(46127, 43)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+174) ), 65);
SOURCE(46172, 77)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+175) ), 66);
SOURCE(46251, 47)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+176) ), 67);
SOURCE(46300, 64)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+177) ), 67);
SOURCE(46366, 37)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+178) ), 68);
SOURCE(46405, 43)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+179) ), 69);
SOURCE(46450, 39)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+180) ), 70);
SOURCE(46491, 35)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+181) ), 71);
SOURCE(46528, 41)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+182) ), 72);
SOURCE(46571, 37)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+183) ), 73);
SOURCE(46610, 39)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+184) ), 74);
SOURCE(46651, 35)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+185) ), 75);
SOURCE(46688, 39)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+186) ), 76);
SOURCE(46729, 39)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+187) ), 77);
SOURCE(46770, 49)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+188) ), 78);
SOURCE(46821, 35)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+189) ), 79);
SOURCE(46858, 47)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+190) ), 80);
SOURCE(46907, 41)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+191) ), 81);
SOURCE(46950, 51)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+192) ), 82);
SOURCE(47003, 57)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+193) ), 83);
SOURCE(47062, 49)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+194) ), 84);
SOURCE(47113, 41)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+195) ), 85);
SOURCE(47156, 39)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+196) ), 86);
SOURCE(47197, 35)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+197) ), 87);
SOURCE(47234, 41)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+198) ), 88);
SOURCE(47277, 45)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+199) ), 89);
SOURCE(47324, 39)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+200) ), 90);
SOURCE(47365, 35)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+201) ), 91);
SOURCE(47402, 53)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+202) ), 92);
SOURCE(47457, 45)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+203) ), 93);
SOURCE(47504, 41)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+204) ), 94);
SOURCE(47547, 31)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+205) ), 95);
SOURCE(47580, 29)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+206) ), 96);
SOURCE(47611, 29)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+207) ), 97);
SOURCE(47642, 45)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+208) ), 99);
SOURCE(47689, 39)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+209) ), 100);
SOURCE(47730, 37)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+210) ), 100);
SOURCE(47791, 39)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+211) ), 101);
SOURCE(47832, 37)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+212) ), 101);
SOURCE(47893, 33)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+213) ), 102);
SOURCE(47928, 35)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+214) ), 103);
SOURCE(47965, 37)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+215) ), 104);
SOURCE(48004, 37)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+216) ), 105);
SOURCE(48043, 43)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+217) ), 106);
SOURCE(48088, 40)
(void) Register←P2520((* (( (ptr) gf←c65180)+218) ), (word) (( (bPt) gf←c65180)+1344)/* var←c56732 */ , 1);
SOURCE(48130, 44)
(void) Register←P2520((* (( (ptr) gf←c65180)+219) ), (word) (( (bPt) gf←c65180)+1320)/* var←c56636 */ , 1);
SOURCE(48176, 42)
(void) Register←P2520((* (( (ptr) gf←c65180)+220) ), (word) (( (bPt) gf←c65180)+1328)/* var←c56668 */ , 1);
SOURCE(48220, 50)
(void) Register←P2520((* (( (ptr) gf←c65180)+221) ), (word) (( (bPt) gf←c65180)+1336)/* var←c56700 */ , 1);
SOURCE(48272, 41)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+101) ), 107);
SOURCE(48315, 43)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+222) ), 108);
SOURCE(48360, 41)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+223) ), 109);
SOURCE(48403, 41)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+224) ), 110);
SOURCE(48446, 57)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+225) ), 111);
SOURCE(48505, 51)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+226) ), 112);
SOURCE(48558, 47)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+227) ), 113);
SOURCE(48607, 61)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+228) ), 114);
SOURCE(48670, 55)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+229) ), 115);
SOURCE(48727, 58)
(void) Register←P2520((* (( (ptr) gf←c65180)+102) ), (word) (( (bPt) gf←c65180)+1304)/* var←c56572 */ , 1);
SOURCE(48787, 61)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+230) ), 116);
SOURCE(48850, 57)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+231) ), 117);
SOURCE(48909, 65)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+232) ), 118);
SOURCE(48976, 61)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+233) ), 119);
SOURCE(49039, 45)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+234) ), 120);
SOURCE(49086, 49)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+235) ), 121);
SOURCE(49137, 49)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+236) ), 122);
SOURCE(49188, 53)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+237) ), 123);
SOURCE(49243, 31)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+238) ), 124);
SOURCE(49276, 59)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+239) ), 125);
SOURCE(49337, 59)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+240) ), 132);
SOURCE(49398, 49)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+241) ), 133);
SOURCE(49449, 39)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+242) ), 126);
SOURCE(49490, 43)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+243) ), 127);
SOURCE(49535, 87)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+244) ), 128);
SOURCE(49624, 51)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+245) ), 134);
SOURCE(49677, 41)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+246) ), 135);
SOURCE(49720, 55)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+247) ), 136);
SOURCE(49777, 61)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+93) ), 137);
SOURCE(49840, 75)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+248) ), 138);
SOURCE(49917, 75)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+249) ), 139);
SOURCE(49994, 77)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+250) ), 140);
SOURCE(50073, 73)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+251) ), 129);
SOURCE(50148, 73)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+252) ), 130);
SOURCE(50223, 73)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+253) ), 131);
SOURCE(50298, 47)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+103) ), 141);
SOURCE(50347, 45)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+254) ), 142);
SOURCE(50394, 47)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+255) ), 144);
SOURCE(50443, 59)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+256) ), 143);
SOURCE(50504, 59)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+257) ), 145);
SOURCE(50565, 47)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+258) ), 146);
SOURCE(50614, 49)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+259) ), 147);
SOURCE(50665, 37)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+260) ), 148);
SOURCE(50704, 37)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+261) ), 149);
SOURCE(50743, 37)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+262) ), 150);
SOURCE(50782, 37)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+263) ), 151);
SOURCE(50821, 37)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+264) ), 152);
SOURCE(50860, 37)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+265) ), 153);
SOURCE(50899, 37)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+266) ), 154);
SOURCE(50938, 37)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+267) ), 155);
SOURCE(50977, 37)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+268) ), 156);
SOURCE(51016, 37)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+269) ), 157);
SOURCE(51055, 41)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+270) ), 158);
SOURCE(51098, 47)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+271) ), 159);
SOURCE(51147, 31)
(void) RegisterInternal←P2220((* (( (ptr) gf←c65180)+69) ), 166);
}
static void ProfileChanged←P2940(reason←v39196)
word reason←v39196;
{
register ptr gf←c65212 = (ptr) &globalframe;
/* ProfileChanged: */
SOURCE(51214, 128)
SOURCE(51265, 53)
if ((0 == (* (( (ptr) gf←c65212)+29)/* justRegistered←v6584 */ ))) {
SOURCE(51292, 26)
{
word pd584;
pd584 = (* (( (ptr) (* (( (ptr) gf←c65212)+399)/* var←c62108 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd584 ))))(pd584);
};
};
SOURCE(51320, 22)
(* (( (ptr) gf←c65212)+29)/* justRegistered←v6584 */ ) = 0;
}
static void NoName←Q7620(formal←c0489, formal←c200028, formal←c200029, formal←c200030, formal←c200031)
word formal←c0489;
word formal←c200028;
word formal←c200029;
word formal←c200030;
word formal←c200031;
{
register ptr gf←c0600 = (ptr) &globalframe;
if ((formal←c200029 == XR←Unwind)) {
(void) (XR←MonitorExit((word) (( (bPt) gf←c0600)+16)/* LOCK←v4176 */ ));
};
(* (ptr) formal←c0489 ) = 0;
(* (( (ptr) formal←c0489)+1) ) = 0;
return;
}
static void NoName←Q7680(formal←c0494, formal←c200024, formal←c200025, formal←c200026, formal←c200027)
word formal←c0494;
word formal←c200024;
word formal←c200025;
word formal←c200026;
word formal←c200027;
{
register ptr gf←c0601 = (ptr) &globalframe;
if ((formal←c200025 == XR←Unwind)) {
(void) (XR←MonitorExit((word) (( (bPt) gf←c0601)+16)/* LOCK←v4176 */ ));
};
(* (ptr) formal←c0494 ) = 0;
(* (( (ptr) formal←c0494)+1) ) = 0;
return;
}
static void NoName←Q7740(formal←c0499, formal←c200020, formal←c200021, formal←c200022, formal←c200023)
word formal←c0499;
word formal←c200020;
word formal←c200021;
word formal←c200022;
word formal←c200023;
{
register ptr gf←c0602 = (ptr) &globalframe;
if ((formal←c200021 == XR←Unwind)) {
(void) (XR←MonitorExit((word) (( (bPt) gf←c0602)+16)/* LOCK←v4176 */ ));
};
(* (ptr) formal←c0499 ) = 0;
(* (( (ptr) formal←c0499)+1) ) = 0;
return;
}
static void NoName←Q7800(formal←c0504, formal←c200016, formal←c200017, formal←c200018, formal←c200019)
word formal←c0504;
word formal←c200016;
word formal←c200017;
word formal←c200018;
word formal←c200019;
{
register ptr gf←c0603 = (ptr) &globalframe;
if ((formal←c200017 == XR←Unwind)) {
(void) (XR←MonitorExit((word) (( (bPt) gf←c0603)+16)/* LOCK←v4176 */ ));
};
(* (ptr) formal←c0504 ) = 0;
(* (( (ptr) formal←c0504)+1) ) = 0;
return;
}
static void NoName←Q7860(formal←c0509, formal←c200012, formal←c200013, formal←c200014, formal←c200015)
word formal←c0509;
word formal←c200012;
word formal←c200013;
word formal←c200014;
word formal←c200015;
{
register ptr gf←c0604 = (ptr) &globalframe;
if ((formal←c200013 == XR←Unwind)) {
SOURCE(13457, 36)
{
word pd585;
pd585 = (* (( (ptr) (* (( (ptr) gf←c0604)+382)/* var←c59164 */ ))+9) );
(void) ( *( (fPt) ((* (ptr) pd585 ))))((* ((( (ptr) formal←c200012)+5)) ), pd585);
};
};
(* (ptr) formal←c0509 ) = 0;
(* (( (ptr) formal←c0509)+1) ) = 0;
return;
}
static void NoName←Q7920(formal←c0514, formal←c200008, formal←c200009, formal←c200010, formal←c200011)
word formal←c0514;
word formal←c200008;
word formal←c200009;
word formal←c200010;
word formal←c200011;
{
register ptr gf←c0605 = (ptr) &globalframe;
if ((formal←c200009 == XR←Unwind)) {
SOURCE(13049, 36)
{
word pd586;
pd586 = (* (( (ptr) (* (( (ptr) gf←c0605)+382)/* var←c59164 */ ))+9) );
(void) ( *( (fPt) ((* (ptr) pd586 ))))((* ((( (ptr) formal←c200008)+5)) ), pd586);
};
};
(* (ptr) formal←c0514 ) = 0;
(* (( (ptr) formal←c0514)+1) ) = 0;
return;
}
static void NoName←Q7980(formal←c0519, formal←c200004, formal←c200005, formal←c200006, formal←c200007)
word formal←c0519;
word formal←c200004;
word formal←c200005;
word formal←c200006;
word formal←c200007;
{
register ptr gf←c0606 = (ptr) &globalframe;
if ((formal←c200005 == (word) (( (bPt) gf←c0606)+1088)) || (formal←c200005 == (word) (( (bPt) gf←c0606)+1092))) {
SOURCE(10257, 5)
(* (ptr) formal←c0519 ) = 2;
(* (( (ptr) formal←c0519)+1) ) = 2;
return;
};
(* (ptr) formal←c0519 ) = 0;
(* (( (ptr) formal←c0519)+1) ) = 0;
return;
}
static void NoName←Q8040(formal←c0524, formal←c200000, formal←c200001, formal←c200002, formal←c200003)
word formal←c0524;
word formal←c200000;
word formal←c200001;
word formal←c200002;
word formal←c200003;
{
register ptr gf←c0607 = (ptr) &globalframe;
if ((formal←c200001 == XR←Unwind)) {
SOURCE(8236, 33)
{
word pd587;
pd587 = (* (( (ptr) (* (( (ptr) gf←c0607)+373)/* var←c57436 */ ))+22) );
(void) ( *( (fPt) ((* (ptr) pd587 ))))(0, pd587);
};
};
(* (ptr) formal←c0524 ) = 0;
(* (( (ptr) formal←c0524)+1) ) = 0;
return;
}
/* file: TEditInputImpl, module: TEditInputImpl, compiled at: April 23, 1992 11:45:10 am PDT */
extern void XR←install←TEditInputImpl() {
NoName←Q7080();
}
extern void XR←run←TEditInputImpl() { XR←Start(&globalframe); }