/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation. All rights reserved. */
/* time: February 21, 1992 9:37:56 pm PST */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: IOConvertImpl, module: IOConvertImpl */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [636283344,2942301867] IOConvertImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1;} W2;
typedef W2 *W2Pt;
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {W8 f; W8 r;} W16;
typedef struct {word f0, f1, f2, f3;} W4;
typedef struct {W16 f; W4 r;} W20;
typedef struct {word f0, f1, f2;} W3;
typedef struct {W8 f; W3 r;} W11;
typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7;
typedef struct {W16 f; word r;} W17;
typedef W11 *W11Pt;
typedef struct {W8 f; W2 r;} W10;
typedef struct {W16 f; W16 r;} W32;
typedef W3 *W3Pt;
typedef struct {word f0, f1, f2, f3, f4, f5;} W6;
typedef struct {word f0, f1, f2, f3, f4;} W5;
typedef struct {W8 f; W5 r;} W13;
typedef W6 *W6Pt;
typedef struct {W8 f; W7 r;} W15;
#define SOURCE(p, l) /* source p, l */
#define SGNCK(i) ((int) (word) (i) < 0 ? XR←RaiseArithmeticFault(): i )
#define INEG(x) ( (word) ( - ((int) (word) (x)) ) )
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR←RaiseBoundsFault()) : (idx) )
#define IOP2(op, x, y) ( (word) ((x) op (y)) )
#define IABS(i) ( ((int)(word)(i) > 0) ? (i) : (word)(-(int)(word)(i)) )
#define MAX(cast, x, y) ( ( cast x) > ( cast y) ? (x) : (y) )
static double fc186 = 0.0;
#define FABS(f, t) ( ((t=(f)) >= (float) 0.0) ? (t) : (- (t)) )
static float fc323 = 0.0;
static void NoName←Q9264();
static void IOConvertImpl←P0();
static word AtomFromErrorType←P60();
static word ErrorTypeFromAtom←P120();
static word CardFromDecimalLiteral←P180();
static word ParseScaleFactor←P240();
static word CardFromOctalLiteral←P300();
static word CardFromHexLiteral←P360();
static word CardFromWholeNumberLiteral←P420();
static word FindRadix←P480();
static void DIntFromRope←P540();
static void DCardFromWholeNumberLiteral←P600();
static word RealFromLiteral←P660();
static word NoName←Q9324();
static void MDigit←P5616();
static void EDigit←P5676();
static word action←P5736();
static word RopeFromLiteral←P720();
static word getProc←P5796();
static word CharFromLiteral←P780();
static word NoName←Q9384();
static void ParseEscapeCode←P840();
static word NoName←Q9444();
static word IntFromRope←P900();
static word CardFromRope←P960();
static void NumberFromRope←P1020();
static word RealFromRope←P1080();
static word TimeFromRope←P1140();
static word NoName←Q9504();
static void UnpackedTimeFromRope←P1200();
static word NoName←Q9564();
static word BoolFromRope←P1260();
static word MatchPrefix←P1320();
static word match←P6336();
static word AtomFromRope←P1380();
static word AppendInt←P1440();
static word AppendCard←P1500();
static word AppendWholeNumber←P1560();
static word AppendDCard←P1620();
static word AppendReal←P1680();
static word AppendDecimalDigits←P1740();
static word AppendDReal←P1800();
static word AppendTime←P1860();
static word AppendUnpackedTime←P1920();
static word AppendTimeRFC822←P1980();
static word AppendUnpackedTimeRFC822←P2040();
static word Append2←P2100();
static word AppendZone←P2160();
static word AppendBool←P2220();
static word AppendAtom←P2280();
static void CheckID←P2340();
static word AppendRope←P2400();
static word AppendChar←P2460();
static word AppendExtendedChar←P2520();
static word RopeFromInt←P2580();
static word RopeFromCard←P2640();
static word RopeFromReal←P2700();
static word RopeFromDReal←P2760();
static word RopeFromTime←P2820();
static word RopeFromUnpackedTime←P2880();
static word RopeFromTimeRFC822←P2940();
static word RopeFromBool←P3000();
static word RopeFromAtom←P3060();
static word RopeFromRope←P3120();
static word RopeFromChar←P3180();
static word FtoRope←P3240();
static word AppendF←P3300();
static word EtoRope←P3360();
static word AppendE←P3420();
static word GtoRope←P3480();
static word AppendG←P3540();
static void PutChars←P3600();
static word AppendChars←P3660();
static void XNSAddressFromRope←P3720();
static word XNSNetFromRope←P3780();
static void XNSHostFromRope←P3840();
static word XNSSocketFromRope←P3900();
static word DefaultXNSNet←P3960();
static void CvtXNSHost←P4020();
static word CvtXNSNet←P4080();
static word CvtXNSSocket←P4140();
static void CvtXNS←P4200();
static void MulAdd←P7260();
static word GetXNSFieldType←P4260();
static word RopeFromXNSAddress←P4320();
static word RopeFromXNSNet←P4380();
static word RopeFromXNSHost←P4440();
static word RopeFromXNSSocket←P4500();
static word AppendXNSAddress←P4560();
static word AppendXNSNet←P4620();
static word AppendXNSHost←P4680();
static word AppendXNSSocket←P4740();
static word FmtXNS←P4800();
static void DivRem←P7512();
static word ArpaAddressFromRope←P4860();
static word AToI←P7716();
static void SkipDot←P7776();
static word RopeFromArpaAddress←P4920();
static word AppendArpaAddress←P4980();
static void NoName←Q9624();
static void NoName←Q9684();
static void NoName←Q9744();
static void NoName←Q9804();
static void NoName←Q9864();
static struct {unsigned f; char r[32];} string1 = {2031648, "\205\210\257\300\212\174\364\337\300\361\376\000\156\101\224\000\013\216\257\300\363\223\326\161\300\017\164\046\072\105\014"};
static struct {unsigned f; char r[4];} string2 = {196611, "\004O\377"};
static struct {unsigned f; char r[16];} string3 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\105\014\000"};
static struct {unsigned f; char r[4];} string4 = {65537, "\001\000\000"};
static struct {unsigned f; char r[44];} string5 = {2752556, "\260\006\005\146\151\162\163\164\257\300\015\277\004\146\300\034\367\146\045\112\114\005\004\162\145\163\164\214\257\300\015\277\004\146\300\034\367\146\045\112\114\261\000"};
static struct {unsigned f; char r[28];} string6 = {1572888, "\006\002\000\007\000\040\016\000\003\001\000\000\000\000\014\014\000\014\014\014\014\000\010\001\000\000\000"};
static struct {unsigned f; char r[16];} string7 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[4];} string8 = {131076, "\216\251\000"};
static struct {unsigned f; char r[44];} string9 = {2818092, "\216\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"};
static struct {unsigned f; char r[32];} string10 = {2031648, "\205\210\257\300\212\174\364\337\300\361\376\000\156\101\240\000\006\216\257\300\363\223\326\161\300\017\164\046\072\105\014"};
static struct {unsigned f; char r[4];} string11 = {196611, "\004@\177"};
static struct {unsigned f; char r[12];} string12 = {524300, "December\000\000\000"};
static struct {unsigned f; char r[12];} string13 = {524300, "November\000\000\000"};
static struct {unsigned f; char r[8];} string14 = {458760, "October"};
static struct {unsigned f; char r[8];} string15 = {393224, "Monday\000"};
static struct {unsigned f; char r[8];} string16 = {458760, "Tuesday"};
static struct {unsigned f; char r[12];} string17 = {589836, "Wednesday\000\000"};
static struct {unsigned f; char r[12];} string18 = {524300, "Thursday\000\000\000"};
static struct {unsigned f; char r[8];} string19 = {393224, "Friday\000"};
static struct {unsigned f; char r[12];} string20 = {524300, "Saturday\000\000\000"};
static struct {unsigned f; char r[8];} string21 = {393224, "Sunday\000"};
static struct {unsigned f; char r[12];} string22 = {589836, "September\000\000"};
static struct {unsigned f; char r[8];} string23 = {393224, "August\000"};
static struct {unsigned f; char r[8];} string24 = {262152, "July\000\000\000"};
static struct {unsigned f; char r[16];} string25 = {851984, "Convert.Error\000\000"};
static struct {unsigned f; char r[8];} string26 = {262152, "June\000\000\000"};
static struct {unsigned f; char r[8];} string27 = {393224, "syntax\000"};
static struct {unsigned f; char r[4];} string28 = {196612, "May"};
static struct {unsigned f; char r[12];} string29 = {524300, "overflow\000\000\000"};
static struct {unsigned f; char r[8];} string30 = {327688, "empty\000\000"};
static struct {unsigned f; char r[12];} string31 = {720908, "invalidBase"};
static struct {unsigned f; char r[16];} string32 = {983056, "unprintableAtom"};
static struct {unsigned f; char r[20];} string33 = {1048596, "invalidNetFormat\000\000\000"};
static struct {unsigned f; char r[8];} string34 = {262152, "true\000\000\000"};
static struct {unsigned f; char r[8];} string35 = {327688, "false\000\000"};
static struct {unsigned f; char r[4];} string36 = {196612, "yes"};
static struct {unsigned f; char r[4];} string37 = {131076, "no\000"};
static struct {unsigned f; char r[4];} string38 = {196612, "0.0"};
static struct {unsigned f; char r[4];} string39 = {196612, "Inf"};
static struct {unsigned f; char r[4];} string40 = {196612, "NaN"};
static struct {unsigned f; char r[4];} string41 = {131076, "0.\000"};
static struct {unsigned f; char r[4];} string42 = {131076, ", \000"};
static struct {unsigned f; char r[4];} string43 = {196612, " pm"};
static struct {unsigned f; char r[4];} string44 = {196612, " am"};
static struct {unsigned f; char r[8];} string45 = {327688, "April\000\000"};
static struct {unsigned f; char r[4];} string46 = {196612, "JST"};
static struct {unsigned f; char r[4];} string47 = {196612, "MET"};
static struct {unsigned f; char r[4];} string48 = {131076, "UT\000"};
static struct {unsigned f; char r[4];} string49 = {196612, "BST"};
static struct {unsigned f; char r[4];} string50 = {196612, "GMT"};
static struct {unsigned f; char r[4];} string51 = {196612, "EDT"};
static struct {unsigned f; char r[4];} string52 = {196612, "EST"};
static struct {unsigned f; char r[4];} string53 = {196612, "CDT"};
static struct {unsigned f; char r[4];} string54 = {196612, "CST"};
static struct {unsigned f; char r[4];} string55 = {196612, "MDT"};
static struct {unsigned f; char r[4];} string56 = {196612, "MST"};
static struct {unsigned f; char r[4];} string57 = {196612, "PDT"};
static struct {unsigned f; char r[4];} string58 = {196612, "PST"};
static struct {unsigned f; char r[12];} string59 = {655372, "%g%02d%02d\000"};
static struct {unsigned f; char r[8];} string60 = {327688, "<NIL>\000\000"};
static struct {unsigned f; char r[8];} string61 = {262152, "TRUE\000\000\000"};
static struct {unsigned f; char r[8];} string62 = {327688, "FALSE\000\000"};
static struct {unsigned f; char r[4];} string63 = {65540, "$\000\000"};
static struct {unsigned f; char r[8];} string64 = {262152, "-Inf\000\000\000"};
static struct {unsigned f; char r[8];} string65 = {262152, "+Inf\000\000\000"};
static struct {unsigned f; char r[4];} string66 = {65540, ".\000\000"};
static struct {unsigned f; char r[4];} string67 = {65540, "#\000\000"};
static struct {unsigned f; char r[4];} string68 = {131076, "ME\000"};
static struct {unsigned f; char r[4];} string69 = {65540, "*\000\000"};
static struct {unsigned f; char r[16];} string70 = {851984, "[%g.%g.%g.%g]\000\000"};
static struct {unsigned f; char r[8];} string71 = {327688, "March\000\000"};
static struct {unsigned f; char r[12];} string72 = {524300, "February\000\000\000"};
static struct {unsigned f; char r[8];} string73 = {458760, "January"};
static struct {unsigned f; char r[16];} string74 = {851984, "\257\300\045\354\351\320\300\257\137\366\253\100\164\000\000"};
static struct {unsigned f; char r[16];} string75 = {851981, "\006\003\020\001\024\001\100\124\010\000\004\076\001\000\000"};
static struct {unsigned f; char r[16];} string76 = {851984, "\257\300\055\153\222\376\300\327\164\352\142\100\150\000\000"};
static struct {unsigned f; char r[16];} string77 = {851984, "\257\300\374\377\221\350\300\202\044\047\115\100\150\000\000"};
static struct {unsigned f; char r[16];} string78 = {851984, "\257\300\212\174\364\337\300\361\376\000\156\100\150\000\000"};
static struct {unsigned f; char r[16];} string79 = {851984, "\257\300\325\357\120\064\300\204\001\046\072\100\150\000\000"};
static struct {unsigned f; char r[16];} string80 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"};
static struct {unsigned f; char r[16];} string81 = {851984, "\257\300\064\321\106\155\300\242\071\325\060\100\150\000\000"};
static struct {unsigned f; char r[16];} string82 = {851984, "\257\300\246\205\220\035\300\344\000\142\023\100\150\000\000"};
static struct {unsigned f; char r[16];} string83 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[16];} string84 = {851984, "\257\300\332\223\177\020\300\304\076\102\260\100\164\000\000"};
static struct {unsigned f; char r[16];} string85 = {851984, "\257\300\275\320\070\317\300\004\110\363\366\100\150\000\000"};
static struct {unsigned f; char r[16];} string86 = {851984, "\257\300\350\273\366\267\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[16];} string87 = {851984, "\257\300\255\053\300\023\300\142\135\315\105\100\150\000\000"};
static struct {
word f0[84]; word f84; word f85; word f86;
word f87; word f88; word f89; word f90;
word f91; word f92; word f93; word f94;
word f95; word f96; word f97; word f98;
word f99; word f100; word f101; word f102;
word f103; word f104; word f105; word f106;
word f107; word f108; word f109; word f110;
word f111; word f112; word f113; word f114;
word f115; word f116; word f117; word f118;
word f119; word f120; word f121; word f122;
word f123; word f124; word f125; word f126;
word f127; word f128; word f129; word f130;
word f131; word f132; word f133; word f134;
word f135; word f136; word f137; word f138;
word f139; word f140; word f141; word f142;
word f143; word f144; word f145; word f146;
word f147; word f148; word f149; word f150;
word f151; word f152; word f153; word f154;
word f155; word f156; word f157; word f158;
word f159; word f160; word f161; word f162;
word f163; word f164; word f165; word f166;
word f167; word f168; word f169; word f170;
word f171; word f172; word f173; word f174;
word f175; word f176; word f177; word f178;
word f179; word f180; word f181; word f182;
word f183; word f184; word f185; word f186;
word f187; word f188; word f189; word f190;
word f191; word f192; word f193; word f194;
word f195; word f196; word f197; word f198;
word f199; word f200; word f201; word f202;
word f203; word f204; word f205; word f206;
word f207; word f208; word f209; word f210;
word f211; word f212; word f213; word f214;
word f215; word f216; word f217; word f218;
word f219; word f220; word f221; word f222;
word f223; word f224; word f225; word f226;
word f227; word f228; word f229; word f230;
word f231; word f232; word f233; word f234;
word f235; word f236; word f237; word f238;
word f239; word f240; word f241; word f242;
word f243; word f244; word f245; word f246;
word f247; word f248; word f249; word f250;
word f251; word f252; word f253; word f254;
word f255; word f256; word f257; word f258;
word f259; word f260; word f261; word f262;
word f263; word f264; word f265; word f266;
word f267; word f268[12];
} globalframe = {
{0}, (word) AppendArpaAddress←P4980, 0, (word) RopeFromArpaAddress←P4920,
0, (word) ArpaAddressFromRope←P4860, 0, (word) FmtXNS←P4800,
0, (word) AppendXNSSocket←P4740, 0, (word) AppendXNSHost←P4680,
0, (word) AppendXNSNet←P4620, 0, (word) AppendXNSAddress←P4560,
0, (word) RopeFromXNSSocket←P4500, 0, (word) RopeFromXNSHost←P4440,
0, (word) RopeFromXNSNet←P4380, 0, (word) RopeFromXNSAddress←P4320,
0, (word) GetXNSFieldType←P4260, 0, (word) CvtXNS←P4200,
0, (word) CvtXNSSocket←P4140, 0, (word) CvtXNSNet←P4080,
0, (word) CvtXNSHost←P4020, 0, (word) DefaultXNSNet←P3960,
0, (word) XNSSocketFromRope←P3900, 0, (word) XNSHostFromRope←P3840,
0, (word) XNSNetFromRope←P3780, 0, (word) XNSAddressFromRope←P3720,
0, (word) AppendChars←P3660, 0, (word) PutChars←P3600,
0, (word) AppendG←P3540, 0, (word) GtoRope←P3480,
0, (word) AppendE←P3420, 0, (word) EtoRope←P3360,
0, (word) AppendF←P3300, 0, (word) FtoRope←P3240,
0, (word) RopeFromChar←P3180, 0, (word) RopeFromRope←P3120,
0, (word) RopeFromAtom←P3060, 0, (word) RopeFromBool←P3000,
0, (word) RopeFromTimeRFC822←P2940, 0, (word) RopeFromUnpackedTime←P2880,
0, (word) RopeFromTime←P2820, 0, (word) RopeFromDReal←P2760,
0, (word) RopeFromReal←P2700, 0, (word) RopeFromCard←P2640,
0, (word) RopeFromInt←P2580, 0, (word) AppendExtendedChar←P2520,
0, (word) AppendChar←P2460, 0, (word) AppendRope←P2400,
0, (word) CheckID←P2340, 0, (word) AppendAtom←P2280,
0, (word) AppendBool←P2220, 0, (word) AppendZone←P2160,
0, (word) Append2←P2100, 0, (word) AppendUnpackedTimeRFC822←P2040,
0, (word) AppendTimeRFC822←P1980, 0, (word) AppendUnpackedTime←P1920,
0, (word) AppendTime←P1860, 0, (word) AppendDReal←P1800,
0, (word) AppendDecimalDigits←P1740, 0, (word) AppendReal←P1680,
0, (word) AppendDCard←P1620, 0, (word) AppendWholeNumber←P1560,
0, (word) AppendCard←P1500, 0, (word) AppendInt←P1440,
0, (word) AtomFromRope←P1380, 0, (word) MatchPrefix←P1320,
0, (word) BoolFromRope←P1260, 0, (word) UnpackedTimeFromRope←P1200,
0, (word) TimeFromRope←P1140, 0, (word) RealFromRope←P1080,
0, (word) NumberFromRope←P1020, 0, (word) CardFromRope←P960,
0, (word) IntFromRope←P900, 0, (word) ParseEscapeCode←P840,
0, (word) CharFromLiteral←P780, 0, (word) RopeFromLiteral←P720,
0, (word) RealFromLiteral←P660, 0, (word) DCardFromWholeNumberLiteral←P600,
0, (word) DIntFromRope←P540, 0, (word) FindRadix←P480,
0, (word) CardFromWholeNumberLiteral←P420, 0, (word) CardFromHexLiteral←P360,
0, (word) CardFromOctalLiteral←P300, 0, (word) ParseScaleFactor←P240,
0, (word) CardFromDecimalLiteral←P180, 0, (word) ErrorTypeFromAtom←P120,
0, (word) AtomFromErrorType←P60, 0, (word) IOConvertImpl←P0,
0, 48, 49, 50,
51, 52, 53, 54,
55, 56, 57, 65,
66, 67, 68, 69,
70, {0}
};
static void NoName←Q9264()
{
register ptr gf←c0938 = (ptr) &globalframe;
word var←c57048;
(* (( (ptr) gf←c0938)+6) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2);
(* (( (ptr) gf←c0938)+9) ) = (word) XR←GetTypeIndex((word) &string3, 0, (word) &string4);
(* (( (ptr) gf←c0938)+12) ) = (word) XR←GetTypeIndex((word) &string5, 0, (word) &string6);
(* (( (ptr) gf←c0938)+13) ) = (word) XR←GetTypeIndex((word) &string7, 0, (word) &string4);
(* (( (ptr) gf←c0938)+15) ) = (word) XR←GetTypeIndex((word) &string8, 0, (word) &string4);
(* (( (ptr) gf←c0938)+16) ) = (word) XR←GetTypeIndex((word) &string9, 0, (word) &string4);
(* (( (ptr) gf←c0938)+19) ) = (word) XR←GetTypeIndex((word) &string10, 0, (word) &string11);
(* (ptr) (( (bPt) gf←c0938)+84) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+9) ), (word) &string12);
(* (ptr) (( (bPt) gf←c0938)+88) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+9) ), (word) &string13);
(* (ptr) (( (bPt) gf←c0938)+92) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+9) ), (word) &string14);
(* (ptr) (( (bPt) gf←c0938)+96) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+9) ), (word) &string15);
(* (ptr) (( (bPt) gf←c0938)+100) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+9) ), (word) &string16);
(* (ptr) (( (bPt) gf←c0938)+104) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+9) ), (word) &string17);
(* (ptr) (( (bPt) gf←c0938)+108) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+9) ), (word) &string18);
(* (ptr) (( (bPt) gf←c0938)+112) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+9) ), (word) &string19);
(* (ptr) (( (bPt) gf←c0938)+116) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+9) ), (word) &string20);
(* (ptr) (( (bPt) gf←c0938)+120) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+9) ), (word) &string21);
(* (ptr) (( (bPt) gf←c0938)+124) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+9) ), (word) &string22);
(* (ptr) (( (bPt) gf←c0938)+128) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+9) ), (word) &string23);
(* (ptr) (( (bPt) gf←c0938)+132) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+9) ), (word) &string24);
(* (ptr) (( (bPt) gf←c0938)+136) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+16) ), (word) &string25);
(* (ptr) (( (bPt) gf←c0938)+140) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+9) ), (word) &string26);
(* (ptr) (( (bPt) gf←c0938)+144) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+15) ), (word) &string27);
(* (ptr) (( (bPt) gf←c0938)+148) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+9) ), (word) &string28);
(* (ptr) (( (bPt) gf←c0938)+152) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+15) ), (word) &string29);
(* (ptr) (( (bPt) gf←c0938)+156) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+15) ), (word) &string30);
(* (ptr) (( (bPt) gf←c0938)+160) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+15) ), (word) &string31);
(* (ptr) (( (bPt) gf←c0938)+164) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+15) ), (word) &string32);
(* (ptr) (( (bPt) gf←c0938)+168) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+15) ), (word) &string33);
(* (ptr) (( (bPt) gf←c0938)+172) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+9) ), (word) &string34);
(* (ptr) (( (bPt) gf←c0938)+176) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+9) ), (word) &string35);
(* (ptr) (( (bPt) gf←c0938)+180) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+9) ), (word) &string36);
(* (ptr) (( (bPt) gf←c0938)+184) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+9) ), (word) &string37);
(* (ptr) (( (bPt) gf←c0938)+188) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+16) ), (word) &string38);
(* (ptr) (( (bPt) gf←c0938)+192) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+16) ), (word) &string39);
(* (ptr) (( (bPt) gf←c0938)+196) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+16) ), (word) &string40);
(* (ptr) (( (bPt) gf←c0938)+200) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+16) ), (word) &string41);
(* (ptr) (( (bPt) gf←c0938)+204) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+9) ), (word) &string42);
(* (ptr) (( (bPt) gf←c0938)+208) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+9) ), (word) &string43);
(* (ptr) (( (bPt) gf←c0938)+212) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+9) ), (word) &string44);
(* (ptr) (( (bPt) gf←c0938)+216) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+9) ), (word) &string45);
(* (ptr) (( (bPt) gf←c0938)+220) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+13) ), (word) &string46);
(* (ptr) (( (bPt) gf←c0938)+224) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+13) ), (word) &string47);
(* (ptr) (( (bPt) gf←c0938)+228) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+13) ), (word) &string48);
(* (ptr) (( (bPt) gf←c0938)+232) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+13) ), (word) &string49);
(* (ptr) (( (bPt) gf←c0938)+236) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+13) ), (word) &string50);
(* (ptr) (( (bPt) gf←c0938)+240) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+13) ), (word) &string51);
(* (ptr) (( (bPt) gf←c0938)+244) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+13) ), (word) &string52);
(* (ptr) (( (bPt) gf←c0938)+248) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+13) ), (word) &string53);
(* (ptr) (( (bPt) gf←c0938)+252) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+13) ), (word) &string54);
(* (ptr) (( (bPt) gf←c0938)+256) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+13) ), (word) &string55);
(* (ptr) (( (bPt) gf←c0938)+260) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+13) ), (word) &string56);
(* (ptr) (( (bPt) gf←c0938)+264) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+13) ), (word) &string57);
(* (ptr) (( (bPt) gf←c0938)+268) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+13) ), (word) &string58);
(* (ptr) (( (bPt) gf←c0938)+272) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+13) ), (word) &string59);
(* (ptr) (( (bPt) gf←c0938)+276) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+9) ), (word) &string60);
(* (ptr) (( (bPt) gf←c0938)+280) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+9) ), (word) &string61);
(* (ptr) (( (bPt) gf←c0938)+284) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+9) ), (word) &string62);
(* (ptr) (( (bPt) gf←c0938)+288) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+13) ), (word) &string63);
(* (ptr) (( (bPt) gf←c0938)+292) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+13) ), (word) &string64);
(* (ptr) (( (bPt) gf←c0938)+296) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+13) ), (word) &string65);
(* (ptr) (( (bPt) gf←c0938)+300) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+13) ), (word) &string66);
(* (ptr) (( (bPt) gf←c0938)+304) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+13) ), (word) &string67);
(* (ptr) (( (bPt) gf←c0938)+308) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+13) ), (word) &string68);
(* (ptr) (( (bPt) gf←c0938)+312) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+13) ), (word) &string69);
(* (ptr) (( (bPt) gf←c0938)+316) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+13) ), (word) &string70);
(* (ptr) (( (bPt) gf←c0938)+320) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+9) ), (word) &string71);
(* (ptr) (( (bPt) gf←c0938)+324) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+9) ), (word) &string72);
(* (ptr) (( (bPt) gf←c0938)+328) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0938)+9) ), (word) &string73);
(void) XR←DeclareGlobalFrame((word) "IOConvertImpl", &globalframe, (word) XR←GetTypeIndex((word) &string74, 0, (word) &string75)
, (word) (( (bPt) gf←c0938)+1000)/* var←c49784 */ );
var←c57048 = (word) XR←ImportInterface((word) "Atom", (word) XR←GetTypeIndexS((word) (&string76)), 16);
(* (( (ptr) gf←c0938)+277)/* var←c53688 */ ) = var←c57048;
(void) XR←ImportProcS(var←c57048, 67372289);
var←c57048 = (word) XR←ImportInterface((word) "AtomPrivate", (word) XR←GetTypeIndexS((word) (&string77)), 2);
(* (( (ptr) gf←c0938)+274)/* var←c52088 */ ) = var←c57048;
(void) XR←ImportProcS(var←c57048, 67371009);
var←c57048 = (word) XR←ImportInterface((word) "BasicTime", (word) XR←GetTypeIndexS((word) (&string78)), 24);
(* (( (ptr) gf←c0938)+276)/* var←c52568 */ ) = var←c57048;
(void) XR←ImportProcS(var←c57048, 739250946);
(void) XR←ImportProcS(var←c57048, 201332480);
(void) XR←ImportProcS(var←c57048, 738464257);
var←c57048 = (word) XR←ImportInterface((word) "DReal", (word) XR←GetTypeIndexS((word) (&string79)), 7);
(* (( (ptr) gf←c0938)+275)/* var←c52408 */ ) = var←c57048;
(void) XR←ImportProcS(var←c57048, 269223426);
var←c57048 = (word) XR←ImportInterface((word) "IO", (word) XR←GetTypeIndexS((word) (&string80)), 103);
(* (( (ptr) gf←c0938)+272)/* var←c51672 */ ) = var←c57048;
(void) XR←ImportProcS(var←c57048, 67648770);
(void) XR←ImportProcS(var←c57048, 528642);
(void) XR←ImportProcS(var←c57048, 68958724);
(void) XR←ImportProcS(var←c57048, 738479617);
(void) XR←ImportProcS(var←c57048, 67377409);
(void) XR←ImportProcS(var←c57048, 67640578);
(void) XR←ImportProcS(var←c57048, 67390721);
var←c57048 = (word) XR←ImportInterface((word) "PreDebug", (word) XR←GetTypeIndexS((word) (&string81)), 5);
(* (( (ptr) gf←c0938)+268)/* var←c49944 */ ) = var←c57048;
(void) XR←ImportProcS(var←c57048, 786691);
var←c57048 = (word) XR←ImportInterface((word) "Real", (word) XR←GetTypeIndexS((word) (&string82)), 11);
(* (( (ptr) gf←c0938)+270)/* var←c50712 */ ) = var←c57048;
(void) XR←ImportProcS(var←c57048, 201852418);
(void) XR←ImportProcS(var←c57048, 67634434);
var←c57048 = (word) XR←ImportInterface((word) "Rope", (word) XR←GetTypeIndexS((word) (&string83)), 43);
(* (( (ptr) gf←c0938)+269)/* var←c50040 */ ) = var←c57048;
(void) XR←ImportProcS(var←c57048, 67896323);
(void) XR←ImportProcS(var←c57048, 68158980);
(void) XR←ImportProcS(var←c57048, 67633666);
(void) XR←ImportProcS(var←c57048, 67903235);
(void) XR←ImportProcS(var←c57048, 67898627);
(void) XR←ImportProcS(var←c57048, 67902211);
(void) XR←ImportProcS(var←c57048, 68163076);
(void) XR←ImportProcS(var←c57048, 67634434);
(void) XR←ImportProcS(var←c57048, 67373569);
var←c57048 = (word) XR←ImportInterface((word) "RefText", (word) XR←GetTypeIndexS((word) (&string84)), 26);
(* (( (ptr) gf←c0938)+273)/* var←c51992 */ ) = var←c57048;
(void) XR←ImportProcS(var←c57048, 68158980);
(void) XR←ImportProcS(var←c57048, 67634946);
(void) XR←ImportProcS(var←c57048, 68158468);
(void) XR←ImportProcS(var←c57048, 67635458);
(void) XR←ImportProcS(var←c57048, 262913);
(void) XR←ImportProcS(var←c57048, 67371521);
var←c57048 = (word) XR←ImportInterface((word) "RuntimeError", (word) XR←GetTypeIndexS((word) (&string85)), 27);
(* (( (ptr) gf←c0938)+271)/* var←c51128 */ ) = var←c57048;
var←c57048 = (word) XR←ImportInterface((word) "XNS", (word) XR←GetTypeIndexS((word) (&string86)), 2);
(* (( (ptr) gf←c0938)+278)/* var←c55128 */ ) = var←c57048;
(void) XR←ImportProcS(var←c57048, 134217728);
var←c57048 = (word) XR←ExportInterface((word) "Convert", (word) XR←GetTypeIndexS((word) (&string87)), 73);
(* (( (ptr) gf←c0938)+279)/* var←c57080 */ ) = var←c57048;
(void) XR←ExportVar(var←c57048, 3, (word) (( (bPt) gf←c0938)+332)/* var←c47096 */ );
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+992)/* var←c49752 */ , 67372033);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+984)/* var←c49720 */ , 67372289);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+880)/* var←c49304 */ , 67634690);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+872)/* var←c49272 */ , 67634946);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+856)/* var←c49208 */ , 67373057);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+928)/* var←c49496 */ , 134482177);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+848)/* var←c49176 */ , 67373825);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+840)/* var←c49144 */ , 738462721);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+832)/* var←c49112 */ , 67374337);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+816)/* var←c49048 */ , 67374593);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+976)/* var←c49688 */ , 67636994);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+960)/* var←c49624 */ , 67637250);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+952)/* var←c49592 */ , 67637506);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+944)/* var←c49560 */ , 67637762);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+920)/* var←c49464 */ , 134746882);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+912)/* var←c49432 */ , 67638274);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+904)/* var←c49400 */ , 67638530);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+896)/* var←c49368 */ , 67638786);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+656)/* var←c48408 */ , 67901187);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+648)/* var←c48376 */ , 67901443);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+640)/* var←c48344 */ , 67902211);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+632)/* var←c48312 */ , 68164611);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+624)/* var←c48280 */ , 68689158);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+616)/* var←c48248 */ , 71310854);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+608)/* var←c48216 */ , 68165380);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+600)/* var←c48184 */ , 67379201);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+592)/* var←c48152 */ , 67641602);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+584)/* var←c48120 */ , 67641858);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+576)/* var←c48088 */ , 67642114);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+808)/* var←c49016 */ , 68166660);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+800)/* var←c48984 */ , 68166916);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+776)/* var←c48888 */ , 68167172);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+784)/* var←c48920 */ , 68429572);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+760)/* var←c48824 */ , 68429828);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+752)/* var←c48792 */ , 68954375);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+744)/* var←c48760 */ , 71576071);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+736)/* var←c48728 */ , 68430597);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+704)/* var←c48600 */ , 67644418);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+696)/* var←c48568 */ , 67906819);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+680)/* var←c48504 */ , 67907075);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+672)/* var←c48472 */ , 67907331);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+568)/* var←c48056 */ , 67645442);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+560)/* var←c48024 */ , 67907843);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+552)/* var←c47992 */ , 67645954);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+544)/* var←c47960 */ , 67908355);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+536)/* var←c47928 */ , 67646466);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+528)/* var←c47896 */ , 67908867);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+504)/* var←c47800 */ , 201603585);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+496)/* var←c47768 */ , 67386113);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+488)/* var←c47736 */ , 134495233);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+480)/* var←c47704 */ , 67386625);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+424)/* var←c47480 */ , 68173314);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+416)/* var←c47448 */ , 67649282);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+408)/* var←c47416 */ , 67911682);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+400)/* var←c47384 */ , 67649794);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+352)/* var←c47192 */ , 67387905);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+344)/* var←c47160 */ , 67388161);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+336)/* var←c47128 */ , 67650562);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+392)/* var←c47352 */ , 68437251);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+384)/* var←c47320 */ , 67913219);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+376)/* var←c47288 */ , 68175619);
(void) XR←ExportProcS(var←c57048, (word) (( (bPt) gf←c0938)+368)/* var←c47256 */ , 67913731);
}
static void IOConvertImpl←P0(formal←c0116, formal←c0113)
word formal←c0116;
word formal←c0113;
{
register ptr gf←c57112 = (ptr) &globalframe;
/* IOConvertImpl: */
SOURCE(1150, 44478)
/* moved to installation proc */
/* moved to installation proc */
/* moved to installation proc */
/* moved to installation proc */
/* moved to installation proc */
/* moved to installation proc */
/* moved to installation proc */
/* moved to installation proc */
/* moved to installation proc */
/* moved to installation proc */
/* moved to installation proc */
/* moved to installation proc */
/* moved to installation proc */
/* moved to installation proc */
/* moved to installation proc */
/* moved to installation proc */
SOURCE(22680, 165)
{
word var←c49880;
var←c49880 = XR←NewObject(48, (* (( (ptr) gf←c57112)+6) ));
(* (ptr) var←c49880 ) = (* (( (ptr) gf←c57112)+82) );
(* (( (ptr) var←c49880)+1) ) = (* (( (ptr) gf←c57112)+81) );
(* (( (ptr) var←c49880)+2) ) = (* (( (ptr) gf←c57112)+80) );
(* (( (ptr) var←c49880)+3) ) = (* (( (ptr) gf←c57112)+54) );
(* (( (ptr) var←c49880)+4) ) = (* (( (ptr) gf←c57112)+37) );
(* (( (ptr) var←c49880)+5) ) = (* (( (ptr) gf←c57112)+35) );
(* (( (ptr) var←c49880)+6) ) = (* (( (ptr) gf←c57112)+33) );
(* (( (ptr) var←c49880)+7) ) = (* (( (ptr) gf←c57112)+32) );
(* (( (ptr) var←c49880)+8) ) = (* (( (ptr) gf←c57112)+31) );
(* (( (ptr) var←c49880)+9) ) = (* (( (ptr) gf←c57112)+23) );
(* (( (ptr) var←c49880)+10) ) = (* (( (ptr) gf←c57112)+22) );
(* (( (ptr) var←c49880)+11) ) = (* (( (ptr) gf←c57112)+21) );
(* (( (ptr) gf←c57112)+4)/* Month←v4456 */ ) = var←c49880;
};
SOURCE(22922, 115)
{
word var←c49912;
var←c49912 = XR←NewObject(28, (* (( (ptr) gf←c57112)+19) ));
(* (ptr) var←c49912 ) = (* (( (ptr) gf←c57112)+24) );
(* (( (ptr) var←c49912)+1) ) = (* (( (ptr) gf←c57112)+25) );
(* (( (ptr) var←c49912)+2) ) = (* (( (ptr) gf←c57112)+26) );
(* (( (ptr) var←c49912)+3) ) = (* (( (ptr) gf←c57112)+27) );
(* (( (ptr) var←c49912)+4) ) = (* (( (ptr) gf←c57112)+28) );
(* (( (ptr) var←c49912)+5) ) = (* (( (ptr) gf←c57112)+29) );
(* (( (ptr) var←c49912)+6) ) = (* (( (ptr) gf←c57112)+30) );
(* (( (ptr) gf←c57112)+5)/* Day←v4512 */ ) = var←c49912;
};
SOURCE(45568, 60)
{
word pd88;
pd88 = (* (( (ptr) (* (( (ptr) gf←c57112)+268)/* var←c49944 */ ))+5) );
(void) ( *( (fPt) ((* (ptr) pd88 ))))((word) (( (bPt) gf←c57112)+332)/* var←c47096 */ , 0, (* (( (ptr) gf←c57112)+34) ), pd88)
;
};
}
static word AtomFromErrorType←P60(type←v6260)
word type←v6260;
{
register ptr gf←c57144 = (ptr) &globalframe;
word var←c6304;
/* AtomFromErrorType: */
SOURCE(1725, 319)
SOURCE(1793, 251)
{
word var←c49976;
var←c49976 = type←v6260;
switch (var←c49976) {
case 0:
SOURCE(1820, 15)
return((* (( (ptr) gf←c57144)+36) ));
case 1:
SOURCE(1849, 17)
return((* (( (ptr) gf←c57144)+38) ));
case 2:
SOURCE(1877, 14)
return((* (( (ptr) gf←c57144)+39) ));
case 3:
SOURCE(1908, 20)
return((* (( (ptr) gf←c57144)+40) ));
case 4:
SOURCE(1949, 24)
return((* (( (ptr) gf←c57144)+41) ));
case 5:
SOURCE(1995, 25)
return((* (( (ptr) gf←c57144)+42) ));
default:
SOURCE(2033, 11)
return(0);
};
};
}
static word ErrorTypeFromAtom←P120(atom←v6364)
word atom←v6364;
{
register ptr gf←c57176 = (ptr) &globalframe;
word var←c6408;
/* ErrorTypeFromAtom: */
SOURCE(2050, 330)
SOURCE(2118, 262)
{
word var←c50008;
var←c50008 = atom←v6364;
if ((var←c50008 == (* (( (ptr) gf←c57176)+36) ))) {
SOURCE(2146, 14)
return(0);
};
if ((var←c50008 == (* (( (ptr) gf←c57176)+38) ))) {
SOURCE(2175, 16)
return(1);
};
if ((var←c50008 == (* (( (ptr) gf←c57176)+39) ))) {
SOURCE(2203, 13)
return(2);
};
if ((var←c50008 == (* (( (ptr) gf←c57176)+40) ))) {
SOURCE(2234, 19)
return(3);
};
if ((var←c50008 == (* (( (ptr) gf←c57176)+41) ))) {
SOURCE(2275, 23)
return(4);
};
if ((var←c50008 == (* (( (ptr) gf←c57176)+42) ))) {
SOURCE(2321, 24)
return(5);
};
SOURCE(2358, 22)
return(255);
};
}
static word CardFromDecimalLiteral←P180(r←v6468, start←v6496)
word r←v6468;
word start←v6496;
{
register ptr gf←c57208 = (ptr) &globalframe;
word var←c6540;
word rLength←v19496;
word digitSeen←v19524 = 0;
word num←v19552 = 0;
/* CardFromDecimalLiteral: */
SOURCE(2387, 751)
SOURCE(2464, 25)
{
word pd90;
pd90 = (* (( (ptr) (* (( (ptr) gf←c57208)+269)/* var←c50040 */ ))+14) );
rLength←v19496 = (word) ( *( (fPt) ((* (ptr) pd90 ))))(r←v6468, pd90);
};
SOURCE(2552, 509)
{
register word i←v19624;
i←v19624 = start←v6496;
if (( (int)i←v19624 >= (int)rLength←v19496)) {
goto lab←L100000;
};
lab←L100003: ;
{
word c←v19668;
SOURCE(2595, 466)
{
word var←c50072;
{
word pd91;
pd91 = (* (( (ptr) (* (( (ptr) gf←c57208)+269)/* var←c50040 */ ))+9) );
c←v19668 = (word) ( *( (fPt) ((* (ptr) pd91 ))))(r←v6468, i←v19624, pd91);
};
var←c50072 = c←v19668;
if (((var←c50072 - 48) <= 9)) {
SOURCE(2641, 135)
if ( ( (num←v19552 > 429496728) ? (num←v19552 > (( (word) -1 - (c←v19668 - 48)) / 10)) : 0 ) ) {
SOURCE(2751, 25)
{
W2 var←c0132;
(* (ptr) (word) &var←c0132 ) = 1;
(* (( (ptr) (word) &var←c0132) + 1) ) = i←v19624;
(void) XR←RaiseError((word) (( (bPt) gf←c57208)+332)/* var←c47096 */ , (word) &var←c0132);
};
};
SOURCE(2778, 40)
num←v19552 = ((num←v19552 * 10) + SGNCK((c←v19668 - 48)));
SOURCE(2820, 16)
digitSeen←v19524 = 1;
goto endif092;
};
if ((var←c50072 == 68) || (var←c50072 == 100)) {
SOURCE(2853, 45)
if ((0 == digitSeen←v19524)) {
SOURCE(2875, 23)
{
W2 var←c0133;
(* (ptr) (word) &var←c0133 ) = 0;
(* (( (ptr) (word) &var←c0133) + 1) ) = i←v19624;
(void) XR←RaiseError((word) (( (bPt) gf←c57208)+332)/* var←c47096 */ , (word) &var←c0133);
};
};
SOURCE(2900, 62)
if (( (int)i←v19624 < (int)rLength←v19496)) {
SOURCE(2920, 42)
num←v19552 = (word) ParseScaleFactor←P240(10, num←v19552, r←v6468, i←v19624);
};
SOURCE(2964, 12)
return(num←v19552);
};
if ((var←c50072 <= 32)) {
SOURCE(3003, 18)
if ((0 != digitSeen←v19524)) {
SOURCE(3021, 4)
goto lab←L100001;
};
goto endif092;
};
SOURCE(3038, 23)
{
W2 var←c0134;
(* (ptr) (word) &var←c0134 ) = 0;
(* (( (ptr) (word) &var←c0134) + 1) ) = i←v19624;
(void) XR←RaiseError((word) (( (bPt) gf←c57208)+332)/* var←c47096 */ , (word) &var←c0134);
};
goto endif092;
endif092: ;
};
};
i←v19624 = (i←v19624 + 1);
if (( (int)i←v19624 < (int)rLength←v19496)) {
goto lab←L100003;
};
lab←L100000: ;
lab←L100001: ;
};
SOURCE(3072, 52)
if ((0 == digitSeen←v19524)) {
SOURCE(3094, 30)
{
W2 var←c0135;
(* (ptr) (word) &var←c0135 ) = 2;
(* (( (ptr) (word) &var←c0135) + 1) ) = (rLength←v19496 - 1);
(void) XR←RaiseError((word) (( (bPt) gf←c57208)+332)/* var←c47096 */ , (word) &var←c0135);
};
};
SOURCE(3126, 12)
return(num←v19552);
}
static word ParseScaleFactor←P240(base←v6600, accum←v6628, r←v6656, index←v6684)
word base←v6600;
word accum←v6628;
word r←v6656;
word index←v6684;
{
register ptr gf←c57240 = (ptr) &globalframe;
word var←c6728;
word bound←v19712;
word scale←v19768 = 0;
word c←v19796;
/* ParseScaleFactor: */
SOURCE(3170, 593)
SOURCE(3258, 31)
bound←v19712 = ( (word) -1 / base←v6600);
SOURCE(3342, 266)
{
register word i←v19840;
register word noName←c50104;
i←v19840 = (index←v6684 + 1);
{
word pd93;
pd93 = (* (( (ptr) (* (( (ptr) gf←c57240)+269)/* var←c50040 */ ))+14) );
noName←c50104 = (word) ( *( (fPt) ((* (ptr) pd93 ))))(r←v6656, pd93);
};
if (( (int)i←v19840 >= (int)noName←c50104)) {
goto lab←L100004;
};
lab←L100007: ;
SOURCE(3381, 227)
{
word pd94;
pd94 = (* (( (ptr) (* (( (ptr) gf←c57240)+269)/* var←c50040 */ ))+9) );
c←v19796 = (word) ( *( (fPt) ((* (ptr) pd94 ))))(r←v6656, i←v19840, pd94);
};
if (((c←v19796 - 48) <= 9)) {
SOURCE(3420, 76)
if ((scale←v19768 > 429496728)) {
SOURCE(3471, 25)
{
W2 var←c0146;
(* (ptr) (word) &var←c0146 ) = 1;
(* (( (ptr) (word) &var←c0146) + 1) ) = i←v19840;
(void) XR←RaiseError((word) (( (bPt) gf←c57240)+332)/* var←c47096 */ , (word) &var←c0146);
};
};
SOURCE(3498, 39)
scale←v19768 = ((scale←v19768 * 10) + SGNCK((c←v19796 - 48)));
}
else {
SOURCE(3546, 62)
if ((c←v19796 <= 32)) {
SOURCE(3575, 10)
goto lab←L100005;
}
else {
SOURCE(3585, 23)
{
W2 var←c0147;
(* (ptr) (word) &var←c0147 ) = 0;
(* (( (ptr) (word) &var←c0147) + 1) ) = i←v19840;
(void) XR←RaiseError((word) (( (bPt) gf←c57240)+332)/* var←c47096 */ , (word) &var←c0147);
};
};
};
i←v19840 = (i←v19840 + 1);
if (( (int)i←v19840 < (int)noName←c50104)) {
goto lab←L100007;
};
lab←L100004: ;
lab←L100005: ;
};
SOURCE(3619, 119)
lab←L100010: ;
if ((scale←v19768 != 0)) {
}
else {
goto lab←L100008;
};
SOURCE(3638, 58)
if ((accum←v6628 > bound←v19712)) {
SOURCE(3660, 36)
{
word var←c50136;
{
word pd95;
pd95 = (* (( (ptr) (* (( (ptr) gf←c57240)+269)/* var←c50040 */ ))+14) );
var←c50136 = ((word) ( *( (fPt) ((* (ptr) pd95 ))))(r←v6656, pd95) - 1);
};
{
W2 var←c0149;
(* (ptr) (word) &var←c0149 ) = 1;
(* (( (ptr) (word) &var←c0149) + 1) ) = var←c50136;
(void) XR←RaiseError((word) (( (bPt) gf←c57240)+332)/* var←c47096 */ , (word) &var←c0149);
};
};
};
SOURCE(3698, 20)
accum←v6628 = (accum←v6628 * base←v6600);
SOURCE(3721, 17)
scale←v19768 = (scale←v19768 - 1);
goto lab←L100010;
lab←L100008: ;
SOURCE(3749, 14)
return(accum←v6628);
}
static word CardFromOctalLiteral←P300(r←v6788, start←v6816)
word r←v6788;
word start←v6816;
{
register ptr gf←c57272 = (ptr) &globalframe;
word var←c6860;
word rLength←v19884;
word digitSeen←v19912 = 0;
word num←v19940 = 0;
/* CardFromOctalLiteral: */
SOURCE(3768, 744)
SOURCE(3843, 25)
{
word pd96;
pd96 = (* (( (ptr) (* (( (ptr) gf←c57272)+269)/* var←c50040 */ ))+14) );
rLength←v19884 = (word) ( *( (fPt) ((* (ptr) pd96 ))))(r←v6788, pd96);
};
SOURCE(3910, 561)
{
register word i←v19984;
i←v19984 = start←v6816;
if (( (int)i←v19984 >= (int)rLength←v19884)) {
goto lab←L100011;
};
lab←L100014: ;
{
word c←v20028;
SOURCE(3976, 495)
{
word var←c50168;
{
word pd97;
pd97 = (* (( (ptr) (* (( (ptr) gf←c57272)+269)/* var←c50040 */ ))+9) );
c←v20028 = (word) ( *( (fPt) ((* (ptr) pd97 ))))(r←v6788, i←v19984, pd97);
};
var←c50168 = c←v20028;
if (((var←c50168 - 48) <= 7)) {
SOURCE(4022, 141)
if ( ( (num←v19940 > 536870911) ? (num←v19940 > (( (word) -1 - (c←v20028 - 48)) >> 3)) : 0 ) ) {
SOURCE(4138, 25)
{
W2 var←c0159;
(* (ptr) (word) &var←c0159 ) = 1;
(* (( (ptr) (word) &var←c0159) + 1) ) = i←v19984;
(void) XR←RaiseError((word) (( (bPt) gf←c57272)+332)/* var←c47096 */ , (word) &var←c0159);
};
};
SOURCE(4165, 42)
num←v19940 = ((num←v19940 << 3) + SGNCK((c←v20028 - 48)));
SOURCE(4209, 16)
digitSeen←v19912 = 1;
goto endif098;
};
if ((var←c50168 == 66) || (var←c50168 == 98)) {
SOURCE(4242, 45)
if ((0 == digitSeen←v19912)) {
SOURCE(4264, 23)
{
W2 var←c0160;
(* (ptr) (word) &var←c0160 ) = 0;
(* (( (ptr) (word) &var←c0160) + 1) ) = i←v19984;
(void) XR←RaiseError((word) (( (bPt) gf←c57272)+332)/* var←c47096 */ , (word) &var←c0160);
};
};
SOURCE(4289, 64)
if (( (int)i←v19984 < (int)rLength←v19884)) {
SOURCE(4309, 44)
num←v19940 = (word) ParseScaleFactor←P240(8, num←v19940, r←v6788, i←v19984);
};
SOURCE(4355, 12)
return(num←v19940);
};
if ((var←c50168 <= 32)) {
SOURCE(4394, 41)
if ((0 != digitSeen←v19912)) {
SOURCE(4412, 23)
{
W2 var←c0161;
(* (ptr) (word) &var←c0161 ) = 0;
(* (( (ptr) (word) &var←c0161) + 1) ) = i←v19984;
(void) XR←RaiseError((word) (( (bPt) gf←c57272)+332)/* var←c47096 */ , (word) &var←c0161);
};
};
goto endif098;
};
SOURCE(4448, 23)
{
W2 var←c0162;
(* (ptr) (word) &var←c0162 ) = 0;
(* (( (ptr) (word) &var←c0162) + 1) ) = i←v19984;
(void) XR←RaiseError((word) (( (bPt) gf←c57272)+332)/* var←c47096 */ , (word) &var←c0162);
};
goto endif098;
endif098: ;
};
};
i←v19984 = (i←v19984 + 1);
if (( (int)i←v19984 < (int)rLength←v19884)) {
goto lab←L100014;
};
lab←L100011: ;
};
SOURCE(4482, 30)
{
W2 var←c0163;
(* (ptr) (word) &var←c0163 ) = 2;
(* (( (ptr) (word) &var←c0163) + 1) ) = (rLength←v19884 - 1);
(void) XR←RaiseError((word) (( (bPt) gf←c57272)+332)/* var←c47096 */ , (word) &var←c0163);
};
}
static word CardFromHexLiteral←P360(r←v6920, start←v6948)
word r←v6920;
word start←v6948;
{
register ptr gf←c57304 = (ptr) &globalframe;
word var←c6992;
word rLength←v20100;
word digitSeen←v20128 = 0;
word num←v20156 = 0;
word hexBase←v20184 = 16;
/* CardFromHexLiteral: */
SOURCE(4517, 968)
SOURCE(4590, 25)
{
word pd99;
pd99 = (* (( (ptr) (* (( (ptr) gf←c57304)+269)/* var←c50040 */ ))+14) );
rLength←v20100 = (word) ( *( (fPt) ((* (ptr) pd99 ))))(r←v6920, pd99);
};
SOURCE(4678, 766)
{
register word i←v20228;
i←v20228 = start←v6948;
if (( (int)i←v20228 >= (int)rLength←v20100)) {
goto lab←L100015;
};
lab←L100018: ;
{
word c←v20272;
SOURCE(4721, 723)
{
word var←c50232;
{
word var←c50200;
word ch←v47048;
{
word pd100;
pd100 = (* (( (ptr) (* (( (ptr) gf←c57304)+269)/* var←c50040 */ ))+9) );
ch←v47048 = (word) ( *( (fPt) ((* (ptr) pd100 ))))(r←v6920, i←v20228, pd100);
};
if (((ch←v47048 - 65) <= 25)) {
var←c50200 = (ch←v47048 + 32);
}
else {
var←c50200 = ch←v47048;
};
c←v20272 = var←c50200;
};
var←c50232 = c←v20272;
if (((var←c50232 - 48) <= 9)) {
SOURCE(4780, 135)
if ( ( (num←v20156 > (( (word) -1 - (hexBase←v20184 - 1)) / hexBase←v20184)) ? (num←v20156 > (( (word) -1 - (c←v20272 - 48)) / hexBase←v20184)) : 0 ) ) {
SOURCE(4890, 25)
{
W2 var←c0176;
(* (ptr) (word) &var←c0176 ) = 1;
(* (( (ptr) (word) &var←c0176) + 1) ) = i←v20228;
(void) XR←RaiseError((word) (( (bPt) gf←c57304)+332)/* var←c47096 */ , (word) &var←c0176);
};
};
SOURCE(4917, 40)
num←v20156 = ((num←v20156 * hexBase←v20184) + SGNCK((c←v20272 - 48)));
SOURCE(4959, 16)
digitSeen←v20128 = 1;
goto endif0101;
};
if (((var←c50232 - 97) <= 5)) {
SOURCE(4997, 140)
if ( ( (num←v20156 > (( (word) -1 - (hexBase←v20184 - 1)) / hexBase←v20184)) ? (num←v20156 > (( (word) -1 - (c←v20272 - 87)) / hexBase←v20184)) : 0 ) ) {
SOURCE(5112, 25)
{
W2 var←c0177;
(* (ptr) (word) &var←c0177 ) = 1;
(* (( (ptr) (word) &var←c0177) + 1) ) = i←v20228;
(void) XR←RaiseError((word) (( (bPt) gf←c57304)+332)/* var←c47096 */ , (word) &var←c0177);
};
};
SOURCE(5139, 47)
num←v20156 = ((num←v20156 * hexBase←v20184) + SGNCK((c←v20272 - 87)));
SOURCE(5188, 16)
digitSeen←v20128 = 1;
goto endif0101;
};
if ((var←c50232 == 104)) {
SOURCE(5217, 45)
if ((0 == digitSeen←v20128)) {
SOURCE(5239, 23)
{
W2 var←c0178;
(* (ptr) (word) &var←c0178 ) = 0;
(* (( (ptr) (word) &var←c0178) + 1) ) = i←v20228;
(void) XR←RaiseError((word) (( (bPt) gf←c57304)+332)/* var←c47096 */ , (word) &var←c0178);
};
};
SOURCE(5264, 62)
if (( (int)i←v20228 < (int)rLength←v20100)) {
SOURCE(5284, 42)
num←v20156 = (word) ParseScaleFactor←P240(SGNCK(hexBase←v20184), num←v20156, r←v6920, i←v20228);
};
SOURCE(5328, 12)
return(num←v20156);
};
if ((var←c50232 <= 32)) {
SOURCE(5367, 41)
if ((0 != digitSeen←v20128)) {
SOURCE(5385, 23)
{
W2 var←c0179;
(* (ptr) (word) &var←c0179 ) = 0;
(* (( (ptr) (word) &var←c0179) + 1) ) = i←v20228;
(void) XR←RaiseError((word) (( (bPt) gf←c57304)+332)/* var←c47096 */ , (word) &var←c0179);
};
};
goto endif0101;
};
SOURCE(5421, 23)
{
W2 var←c0180;
(* (ptr) (word) &var←c0180 ) = 0;
(* (( (ptr) (word) &var←c0180) + 1) ) = i←v20228;
(void) XR←RaiseError((word) (( (bPt) gf←c57304)+332)/* var←c47096 */ , (word) &var←c0180);
};
goto endif0101;
endif0101: ;
};
};
i←v20228 = (i←v20228 + 1);
if (( (int)i←v20228 < (int)rLength←v20100)) {
goto lab←L100018;
};
lab←L100015: ;
};
SOURCE(5455, 30)
{
W2 var←c0181;
(* (ptr) (word) &var←c0181 ) = 2;
(* (( (ptr) (word) &var←c0181) + 1) ) = (rLength←v20100 - 1);
(void) XR←RaiseError((word) (( (bPt) gf←c57304)+332)/* var←c47096 */ , (word) &var←c0181);
};
}
static word CardFromWholeNumberLiteral←P420(r←v7052, start←v7080)
word r←v7052;
word start←v7080;
{
register ptr gf←c57336 = (ptr) &globalframe;
word var←c7124;
word rLength←v20316;
word radixChar←v20344;
/* CardFromWholeNumberLiteral: */
SOURCE(5490, 290)
SOURCE(5571, 25)
{
word pd102;
pd102 = (* (( (ptr) (* (( (ptr) gf←c57336)+269)/* var←c50040 */ ))+14) );
rLength←v20316 = (word) ( *( (fPt) ((* (ptr) pd102 ))))(r←v7052, pd102);
};
SOURCE(5598, 37)
radixChar←v20344 = (word) FindRadix←P480(r←v7052, start←v7080);
SOURCE(5637, 143)
{
word var←c01038;
{
word var←c50296;
word var←c01037;
var←c50296 = radixChar←v20344;
var←c01037 = ( (var←c50296 == 100) ? (word) (( (bPt) gf←c57336)+976)/* var←c49688 */ : ( (var←c50296 == 98) ? (word) (
( (bPt) gf←c57336)+960)/* var←c49624 */ : ( (var←c50296 == 104) ? (word) (( (bPt) gf←c57336)+952)/* var←c49592 */ : (
XR←RaiseUnnamedError(), 0
) ) ) ) ;
var←c01038 = (word) ( *( (fPt) ((* (ptr) var←c01037 ))))(r←v7052, start←v7080, var←c01037);
};
return(var←c01038);
};
}
static word FindRadix←P480(r←v7184, start←v7212)
word r←v7184;
word start←v7212;
{
register ptr gf←c57368 = (ptr) &globalframe;
word var←c7256;
word rLength←v20388;
word radixChar←v20416 = 100;
/* FindRadix: */
SOURCE(5783, 259)
SOURCE(5840, 25)
{
word pd103;
pd103 = (* (( (ptr) (* (( (ptr) gf←c57368)+269)/* var←c50040 */ ))+14) );
rLength←v20388 = (word) ( *( (fPt) ((* (ptr) pd103 ))))(r←v7184, pd103);
};
SOURCE(5889, 114)
{
register word i←v20460;
i←v20460 = start←v7212;
if (( (int)i←v20460 >= (int)rLength←v20388)) {
goto lab←L100020;
};
lab←L100023: ;
{
word c←v20504;
SOURCE(5934, 69)
{
word var←c50360;
{
word var←c50328;
word ch←v47000;
{
word pd104;
pd104 = (* (( (ptr) (* (( (ptr) gf←c57368)+269)/* var←c50040 */ ))+9) );
ch←v47000 = (word) ( *( (fPt) ((* (ptr) pd104 ))))(r←v7184, i←v20460, pd104);
};
if (((ch←v47000 - 65) <= 25)) {
var←c50328 = (ch←v47000 + 32);
}
else {
var←c50328 = ch←v47000;
};
c←v20504 = var←c50328;
};
var←c50360 = c←v20504;
switch (var←c50360) {
case 98: case 100: case 104:
SOURCE(5990, 13)
radixChar←v20416 = c←v20504;
break;
};
};
};
i←v20460 = (i←v20460 + 1);
if (( (int)i←v20460 < (int)rLength←v20388)) {
goto lab←L100023;
};
lab←L100020: ;
};
SOURCE(6023, 19)
return(radixChar←v20416);
}
static void DIntFromRope←P540(formal←c0208, r←v7316)
word formal←c0208;
word r←v7316;
{
register ptr gf←c57400 = (ptr) &globalframe;
W2 var←c7360;
word rLength←v20548;
word start←v20576 = 0;
word neg←v20604 = 0;
W2 mag←v20632;
W2 var←c01039;
W2 var←c01040;
/* DIntFromRope: */
SOURCE(6094, 509)
SOURCE(6149, 25)
{
word pd105;
pd105 = (* (( (ptr) (* (( (ptr) gf←c57400)+269)/* var←c50040 */ ))+14) );
rLength←v20548 = (word) ( *( (fPt) ((* (ptr) pd105 ))))(r←v7316, pd105);
};
SOURCE(6211, 14)
{
W2 D106;
XR←DCardCard(&D106, 0);
mag←v20632 = D106;
};
SOURCE(6227, 83)
lab←L100028: ;
{
word tc107;
word pd108;
if (( (int)start←v20576 < (int)rLength←v20548)) {
pd108 = (* (( (ptr) (* (( (ptr) gf←c57400)+269)/* var←c50040 */ ))+9) );
tc107 = (word) ((word) ( *( (fPt) ((* (ptr) pd108 ))))(r←v7316, start←v20576, pd108) <= 32);
}
else {
tc107 = (word) 0;
};
if (tc107) {
}
else {
goto lab←L100026;
};
};
SOURCE(6285, 25)
start←v20576 = (start←v20576 + 1);
goto lab←L100028;
lab←L100026: ;
SOURCE(6312, 52)
if (( (int)start←v20576 >= (int)rLength←v20548)) {
SOURCE(6337, 27)
{
W2 var←c0204;
(* (ptr) (word) &var←c0204 ) = 0;
(* (( (ptr) (word) &var←c0204) + 1) ) = start←v20576;
(void) XR←RaiseError((word) (( (bPt) gf←c57400)+332)/* var←c47096 */ , (word) &var←c0204);
};
};
SOURCE(6366, 86)
{
word var←c50392;
{
word pd109;
pd109 = (* (( (ptr) (* (( (ptr) gf←c57400)+269)/* var←c50040 */ ))+9) );
var←c50392 = (word) ( *( (fPt) ((* (ptr) pd109 ))))(r←v7316, start←v20576, pd109);
};
if ((var←c50392 == 45)) {
SOURCE(6400, 10)
neg←v20604 = 1;
SOURCE(6412, 15)
start←v20576 = (start←v20576 + 1);
}
else {
if ((var←c50392 == 43)) {
SOURCE(6437, 15)
start←v20576 = (start←v20576 + 1);
};
};
};
SOURCE(6464, 43)
(void) DCardFromWholeNumberLiteral←P600((word) &mag←v20632, r←v7316, start←v20576);
SOURCE(6509, 58)
(* (ptr) (word) &var←c01039 ) = 2147483647;
(* (( (ptr) (word) &var←c01039) + 1) ) = (word) -1;
{
W2 D110;
W2 D111;
XR←DCardCard(&D111, neg←v20604);
XR←DCardAddI(&D110, &var←c01039, &D111);
var←c01040 = D110;
};
if (XR←DCardGtI(&mag←v20632, &var←c01040)) {
SOURCE(6542, 25)
{
W2 var←c0207;
(* (ptr) (word) &var←c0207 ) = 1;
(* (( (ptr) (word) &var←c0207) + 1) ) = rLength←v20548;
(void) XR←RaiseError((word) (( (bPt) gf←c57400)+332)/* var←c47096 */ , (word) &var←c0207);
};
};
SOURCE(6569, 34)
{
W2 D112;
W2 D113;
if ((0 != neg←v20604)) {
XR←DIntDCardI(&D113, (&mag←v20632));
XR←DIntNegI(&D112, &D113);
var←c7360 = D112;
}
else {
var←c7360 = mag←v20632;
};
};
/* removed tail goto */
(* (W2Pt) formal←c0208 ) = var←c7360;
return;
}
static void DCardFromWholeNumberLiteral←P600(formal←c0229, r←v7420, start←v7448)
word formal←c0229;
word r←v7420;
word start←v7448;
{
register ptr gf←c57432 = (ptr) &globalframe;
W2 var←c7492;
word rLength←v20676;
word radixChar←v20704;
word radix←v20732;
W2 value←v20760;
/* DCardFromWholeNumberLiteral: */
SOURCE(6608, 917)
SOURCE(6691, 25)
{
word pd114;
pd114 = (* (( (ptr) (* (( (ptr) gf←c57432)+269)/* var←c50040 */ ))+14) );
rLength←v20676 = (word) ( *( (fPt) ((* (ptr) pd114 ))))(r←v7420, pd114);
};
SOURCE(6718, 37)
radixChar←v20704 = (word) FindRadix←P480(r←v7420, start←v7448);
SOURCE(6757, 68)
{
word var←c50424;
var←c50424 = radixChar←v20704;
if ((var←c50424 == 98)) {
radix←v20732 = 8;
}
else {
if ((var←c50424 == 104)) {
radix←v20732 = 16;
}
else {
radix←v20732 = 10;
};
};
};
SOURCE(6827, 16)
{
W2 D115;
XR←DCardCard(&D115, 0);
value←v20760 = D115;
};
SOURCE(6845, 83)
lab←L100032: ;
{
word tc116;
word pd117;
if (( (int)start←v7448 < (int)rLength←v20676)) {
pd117 = (* (( (ptr) (* (( (ptr) gf←c57432)+269)/* var←c50040 */ ))+9) );
tc116 = (word) ((word) ( *( (fPt) ((* (ptr) pd117 ))))(r←v7420, start←v7448, pd117) <= 32);
}
else {
tc116 = (word) 0;
};
if (tc116) {
}
else {
goto lab←L100030;
};
};
SOURCE(6903, 25)
start←v7448 = (start←v7448 + 1);
goto lab←L100032;
lab←L100030: ;
SOURCE(6930, 52)
if (( (int)start←v7448 >= (int)rLength←v20676)) {
SOURCE(6955, 27)
{
W2 var←c0217;
(* (ptr) (word) &var←c0217 ) = 0;
(* (( (ptr) (word) &var←c0217) + 1) ) = start←v7448;
(void) XR←RaiseError((word) (( (bPt) gf←c57432)+332)/* var←c47096 */ , (word) &var←c0217);
};
};
SOURCE(6984, 515)
{
register word i←v20804;
i←v20804 = start←v7448;
if (( (int)i←v20804 >= (int)rLength←v20676)) {
goto lab←L100033;
};
lab←L100036: ;
{
word c←v20848;
W2 prev←v20876;
word digit←v20904 = 0;
SOURCE(7018, 33)
{
word ch←v46952;
{
word pd118;
pd118 = (* (( (ptr) (* (( (ptr) gf←c57432)+269)/* var←c50040 */ ))+9) );
ch←v46952 = (word) ( *( (fPt) ((* (ptr) pd118 ))))(r←v7420, i←v20804, pd118);
};
if (((ch←v46952 - 65) <= 25)) {
c←v20848 = (ch←v46952 + 32);
}
else {
c←v20848 = ch←v46952;
};
};
SOURCE(7053, 19)
prev←v20876 = value←v20760;
SOURCE(7091, 170)
if ((c←v20848 == radixChar←v20704)) {
SOURCE(7115, 146)
if (( (int)(i←v20804 + 1) < (int)rLength←v20676)) {
SOURCE(7137, 126)
{
word scale←v20948;
SOURCE(7139, 48)
scale←v20948 = (word) CardFromWholeNumberLiteral←P420(r←v7420, (i←v20804 + 1));
SOURCE(7189, 30)
{
W2 D119;
W2 D120;
XR←DCardCard(&D120, XR←UnsignedPwr(radix←v20732, scale←v20948));
XR←DCardMulI(&D119, &value←v20760, &D120);
value←v20760 = D119;
};
SOURCE(7221, 40)
if (XR←DCardGtI(&prev←v20876, &value←v20760)) {
SOURCE(7242, 19)
{
W2 var←c0224;
(* (ptr) (word) &var←c0224 ) = 1;
(* (( (ptr) (word) &var←c0224) + 1) ) = i←v20804;
(void) XR←RaiseError((word) (( (bPt) gf←c57432)+332)/* var←c47096 */ , (word) &var←c0224);
};
};
};
};
SOURCE(7266, 4)
goto lab←L100034;
};
SOURCE(7275, 107)
{
word var←c50488;
var←c50488 = c←v20848;
if (((var←c50488 - 48) <= 9)) {
SOURCE(7304, 14)
digit←v20904 = SGNCK((c←v20848 - 48));
}
else {
if (((var←c50488 - 97) <= 5)) {
SOURCE(7335, 17)
{
word idx121;
digit←v20904 = (
idx121 = (word) ((c←v20848 - 97) + 10),
SGNCK(idx121)
);
};
}
else {
SOURCE(7365, 17)
{
W2 var←c0226;
(* (ptr) (word) &var←c0226 ) = 0;
(* (( (ptr) (word) &var←c0226) + 1) ) = i←v20804;
(void) XR←RaiseError((word) (( (bPt) gf←c57432)+332)/* var←c47096 */ , (word) &var←c0226);
};
};
};
};
SOURCE(7384, 40)
if ((digit←v20904 >= radix←v20732)) {
SOURCE(7407, 17)
{
W2 var←c0227;
(* (ptr) (word) &var←c0227 ) = 0;
(* (( (ptr) (word) &var←c0227) + 1) ) = i←v20804;
(void) XR←RaiseError((word) (( (bPt) gf←c57432)+332)/* var←c47096 */ , (word) &var←c0227);
};
};
SOURCE(7426, 31)
{
W2 D122;
W2 D123;
W2 D124;
W2 D125;
XR←DCardCard(&D124, radix←v20732);
XR←DCardMulI(&D123, &value←v20760, &D124);
XR←DCardCard(&D125, digit←v20904);
XR←DCardAddI(&D122, &D123, &D125);
value←v20760 = D122;
};
SOURCE(7459, 40)
if (XR←DCardGtI(&prev←v20876, &value←v20760)) {
SOURCE(7480, 19)
{
W2 var←c0228;
(* (ptr) (word) &var←c0228 ) = 1;
(* (( (ptr) (word) &var←c0228) + 1) ) = i←v20804;
(void) XR←RaiseError((word) (( (bPt) gf←c57432)+332)/* var←c47096 */ , (word) &var←c0228);
};
};
};
i←v20804 = (i←v20804 + 1);
if (( (int)i←v20804 < (int)rLength←v20676)) {
goto lab←L100036;
};
lab←L100033: ;
lab←L100034: ;
};
SOURCE(7510, 15)
var←c7492 = value←v20760;
/* removed tail goto */
(* (W2Pt) formal←c0229 ) = var←c7492;
return;
}
static word RealFromLiteral←P660(r←v7552, start←v7580)
word r←v7552;
word start←v7580;
{
W20 var←c57464;
register ptr gf←c57496 = (ptr) &globalframe;
word var←c7624;
/* declaration of var←c50520 skipped */
/* declaration of var←c50552 skipped */
/* declaration of var←c50584 skipped */
/* declaration of state←v20992 skipped */
/* declaration of index←v21020 skipped */
/* declaration of fr←v21048 skipped */
/* declaration of exp←v21076 skipped */
/* declaration of adj←v21104 skipped */
/* declaration of eNeg←v21132 skipped */
/* declaration of mDigits←v21160 skipped */
/* declaration of eDigits←v21188 skipped */
/* RealFromLiteral: */
SOURCE(7528, 2299)
{
word tmpAddr126;
tmpAddr126 = (word) (( (ptr) &var←c57464)+4)/* var←c50520 */ ;
(* (ptr) tmpAddr126 ) = ( ((word) (fPt) action←P5736) );
(* (( (ptr) tmpAddr126) + 1) ) = 1;
};
{
word tmpAddr127;
tmpAddr127 = (word) (( (ptr) &var←c57464)+6)/* var←c50552 */ ;
(* (ptr) tmpAddr127 ) = ( ((word) (fPt) EDigit←P5676) );
(* (( (ptr) tmpAddr127) + 1) ) = 1;
};
{
word tmpAddr128;
tmpAddr128 = (word) (( (ptr) &var←c57464)+8)/* var←c50584 */ ;
(* (ptr) tmpAddr128 ) = ( ((word) (fPt) MDigit←P5616) );
(* (( (ptr) tmpAddr128) + 1) ) = 1;
};
SOURCE(7598, 7)
(* (( (ptr) &var←c57464)+10)/* state←v20992 */ ) = 0;
SOURCE(7665, 18)
(* (( (ptr) &var←c57464)+11)/* index←v21020 */ ) = start←v7580;
SOURCE(7718, 11)
(* (( (ptr) &var←c57464)+12)/* fr←v21048 */ ) = 0;
SOURCE(7743, 21)
(* (( (ptr) &var←c57464)+13)/* exp←v21076 */ ) = 0;
(* (( (ptr) &var←c57464)+14)/* adj←v21104 */ ) = 0;
SOURCE(7793, 18)
(* (( (ptr) &var←c57464)+15)/* eNeg←v21132 */ ) = 0;
SOURCE(7813, 25)
(* (( (ptr) &var←c57464)+16)/* mDigits←v21160 */ ) = 0;
(* (( (ptr) &var←c57464)+17)/* eDigits←v21188 */ ) = 0;
SOURCE(9515, 52)
{
word var←c50616;
word pd129;
pd129 = (* (( (ptr) (* (( (ptr) gf←c57496)+269)/* var←c50040 */ ))+26) );
var←c50616 = (word) ( *( (fPt) ((* (ptr) pd129 ))))(r←v7552, start←v7580, 2147483647, (word) (( (bPt) &var←c57464)+16)/* var←c50520 */ , pd129)
;
};
SOURCE(9569, 153)
{
word var←c50648;
var←c50648 = (* (( (ptr) &var←c57464)+10)/* state←v20992 */ );
switch (var←c50648) {
case 1: case 3: case 6:
break;
case 0:
SOURCE(9626, 41)
{
W2 var←c0246;
(* (ptr) (word) &var←c0246 ) = 2;
(* (( (ptr) (word) &var←c0246) + 1) ) = (* (( (ptr) &var←c57464)+11)/* index←v21020 */ );
(void) XR←RaiseError((word) (( (bPt) gf←c57496)+332)/* var←c47096 */ , (word) &var←c0246);
};
break;
default:
SOURCE(9680, 42)
{
W2 var←c0247;
(* (ptr) (word) &var←c0247 ) = 0;
(* (( (ptr) (word) &var←c0247) + 1) ) = (* (( (ptr) &var←c57464)+11)/* index←v21020 */ );
(void) XR←RaiseError((word) (( (bPt) gf←c57496)+332)/* var←c47096 */ , (word) &var←c0247);
};
break;
};
};
SOURCE(9724, 23)
if ((0 != (* (( (ptr) &var←c57464)+15)/* eNeg←v21132 */ ))) {
SOURCE(9737, 10)
(* (( (ptr) &var←c57464)+13)/* exp←v21076 */ ) = INEG((* (( (ptr) &var←c57464)+13)/* exp←v21076 */ ));
};
SOURCE(9749, 78)
{
/* declaration of var←c01 skipped */
(* (( (ptr) &var←c57464)+18)/* var←c01 */ ) = (* (( (ptr) (* (( (ptr) gf←c57496)+270)/* var←c50712 */ ))+9) );
{
/* declaration of var←c02 skipped */
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q9324) ), ( ((word) (fPt) NoName←Q9864) ), (word) &var←c57464);
return((* (( (ptr) &var←c57464)+19)/* var←c02 */ ));
};
};
}
static word NoName←Q9324(formal←c0951)
word formal←c0951;
{
SOURCE(9749, 78)
{
word pd130;
pd130 = (* (( (ptr) formal←c0951)+18) );
(* (( (ptr) formal←c0951)+19) ) = (word) ( *( (fPt) ((* (ptr) pd130 ))))((* (( (ptr) formal←c0951)+12) ), ((* (( (ptr) formal←c0951)+13)
) + (* (( (ptr) formal←c0951)+14) )), pd130);
};
return(0);
}
static void MDigit←P5616(c←v21588, formal←c57528)
word c←v21588;
word formal←c57528;
{
word d←v21676;
formal←c57528 = (formal←c57528 - 32);
/* MDigit: */
SOURCE(7862, 240)
SOURCE(7888, 17)
d←v21676 = BCK((c←v21588 - 48), 10);
SOURCE(7907, 30)
if (((* (( (ptr) formal←c57528)+10) ) == 3)) {
SOURCE(7926, 11)
(* (( (ptr) formal←c57528)+14) ) = ((* (( (ptr) formal←c57528)+14) ) - 1);
};
SOURCE(7939, 163)
if ( ( ((* (( (ptr) formal←c57528)+16) ) == 0) ? (d←v21676 == 0) : 0 ) ) {
}
else {
SOURCE(7991, 111)
if (((* (( (ptr) formal←c57528)+16) ) < 9)) {
SOURCE(8011, 12)
(* (( (ptr) formal←c57528)+12) ) = (IOP2( * , (int)(* (( (ptr) formal←c57528)+12) ), (int)10) + d←v21676);
SOURCE(8025, 20)
(* (( (ptr) formal←c57528)+16) ) = ((* (( (ptr) formal←c57528)+16) ) + 1);
}
else {
SOURCE(8054, 11)
(* (( (ptr) formal←c57528)+14) ) = ((* (( (ptr) formal←c57528)+14) ) + 1);
SOURCE(8067, 35)
if ( ( ((* (( (ptr) formal←c57528)+16) ) == 9) ? (d←v21676 > 5) : 0 ) ) {
SOURCE(8093, 9)
(* (( (ptr) formal←c57528)+12) ) = ((* (( (ptr) formal←c57528)+12) ) + 1);
};
};
};
}
static void EDigit←P5676(c←v21648, formal←c57592)
word c←v21648;
word formal←c57592;
{
register ptr gf←c57560 = (ptr) &globalframe;
word d←v21740;
formal←c57592 = (formal←c57592 - 24);
/* EDigit: */
SOURCE(8136, 204)
SOURCE(8162, 17)
d←v21740 = BCK((c←v21648 - 48), 10);
SOURCE(8181, 159)
if ( ( ((* (( (ptr) formal←c57592)+17) ) == 0) ? (d←v21740 == 0) : 0 ) ) {
}
else {
SOURCE(8233, 107)
if (((* (( (ptr) formal←c57592)+17) ) < 3)) {
SOURCE(8253, 14)
(* (( (ptr) formal←c57592)+13) ) = (IOP2( * , (int)(* (( (ptr) formal←c57592)+13) ), (int)10) + d←v21740);
SOURCE(8269, 20)
(* (( (ptr) formal←c57592)+17) ) = ((* (( (ptr) formal←c57592)+17) ) + 1);
}
else {
SOURCE(8296, 44)
{
W2 var←c0252;
(* (ptr) (word) &var←c0252 ) = 1;
(* (( (ptr) (word) &var←c0252) + 1) ) = (* (( (ptr) formal←c57592)+11) );
(void) XR←RaiseError((word) (( (bPt) gf←c57560)+332)/* var←c47096 */ , (word) &var←c0252);
};
};
};
}
static word action←P5736(c←v42676, formal←c57624)
word c←v42676;
word formal←c57624;
{
word quit←v42720;
formal←c57624 = (formal←c57624 - 16);
/* action: */
SOURCE(8345, 1167)
SOURCE(8345, 1167)
quit←v42720 = 0;
SOURCE(8371, 1141)
SOURCE(8373, 1029)
{
word var←c50744;
var←c50744 = (* (( (ptr) formal←c57624)+10) );
switch (var←c50744) {
case 0:
SOURCE(8400, 119)
{
word var←c50776;
var←c50776 = c←v42676;
if ((var←c50776 <= 32)) {
goto endif0131;
};
if (((var←c50776 - 48) <= 9)) {
SOURCE(8476, 11)
(* (( (ptr) formal←c57624)+10) ) = 1;
SOURCE(8489, 10)
(void) MDigit←P5616(c←v42676, (word) (( (bPt) formal←c57624)+32));
goto endif0131;
};
if ((var←c50776 == 46)) {
SOURCE(8508, 11)
(* (( (ptr) formal←c57624)+10) ) = 2;
goto endif0131;
};
SOURCE(8532, 9)
goto lab←L100040;
endif0131: ;
};
break;
case 1:
SOURCE(8550, 144)
{
word var←c50808;
var←c50808 = c←v42676;
if (((var←c50808 - 48) <= 9)) {
SOURCE(8608, 9)
(void) MDigit←P5616(c←v42676, (word) (( (bPt) formal←c57624)+32));
goto endif0132;
};
if ((var←c50808 == 46)) {
SOURCE(8625, 12)
(* (( (ptr) formal←c57624)+10) ) = 3;
goto endif0132;
};
if ((var←c50808 == 101) || (var←c50808 == 69)) {
SOURCE(8649, 14)
(* (( (ptr) formal←c57624)+10) ) = 4;
goto endif0132;
};
if ((var←c50808 <= 32)) {
SOURCE(8682, 12)
return(1);
};
SOURCE(8707, 9)
goto lab←L100040;
endif0132: ;
};
break;
case 2:
SOURCE(8725, 70)
{
word var←c50840;
var←c50840 = c←v42676;
if (((var←c50840 - 48) <= 9)) {
SOURCE(8771, 12)
(* (( (ptr) formal←c57624)+10) ) = 3;
SOURCE(8785, 10)
(void) MDigit←P5616(c←v42676, (word) (( (bPt) formal←c57624)+32));
}
else {
SOURCE(8809, 9)
goto lab←L100040;
};
};
break;
case 3:
SOURCE(8828, 135)
{
word var←c50872;
var←c50872 = c←v42676;
if (((var←c50872 - 48) <= 9)) {
SOURCE(8897, 9)
(void) MDigit←P5616(c←v42676, (word) (( (bPt) formal←c57624)+32));
goto endif0133;
};
if ((var←c50872 == 101) || (var←c50872 == 69)) {
SOURCE(8918, 14)
(* (( (ptr) formal←c57624)+10) ) = 4;
goto endif0133;
};
if ((var←c50872 <= 32)) {
SOURCE(8951, 12)
return(1);
};
SOURCE(8976, 9)
goto lab←L100040;
endif0133: ;
};
break;
case 4:
SOURCE(8997, 125)
{
word var←c50904;
var←c50904 = c←v42676;
if (((var←c50904 - 48) <= 9)) {
SOURCE(9055, 11)
(* (( (ptr) formal←c57624)+10) ) = 6;
SOURCE(9068, 10)
(void) EDigit←P5676(c←v42676, (word) (( (bPt) formal←c57624)+24));
}
else {
if ((var←c50904 == 43) || (var←c50904 == 45)) {
SOURCE(9093, 13)
(* (( (ptr) formal←c57624)+15) ) = (c←v42676 == 45);
SOURCE(9108, 14)
(* (( (ptr) formal←c57624)+10) ) = 5;
}
else {
SOURCE(9136, 9)
goto lab←L100040;
};
};
};
break;
case 5:
SOURCE(9156, 91)
{
word var←c50936;
var←c50936 = c←v42676;
if (((var←c50936 - 48) <= 9)) {
SOURCE(9224, 11)
(* (( (ptr) formal←c57624)+10) ) = 6;
SOURCE(9237, 10)
(void) EDigit←P5676(c←v42676, (word) (( (bPt) formal←c57624)+24));
}
else {
SOURCE(9261, 9)
goto lab←L100040;
};
};
break;
case 6:
SOURCE(9279, 123)
{
word var←c50968;
var←c50968 = c←v42676;
if (((var←c50968 - 48) <= 9)) {
SOURCE(9362, 9)
(void) EDigit←P5676(c←v42676, (word) (( (bPt) formal←c57624)+24));
}
else {
if ((var←c50968 <= 32)) {
SOURCE(9390, 12)
return(1);
}
else {
SOURCE(9415, 9)
goto lab←L100040;
};
};
};
break;
default:
SOURCE(9437, 9)
goto lab←L100040;
};
};
SOURCE(9448, 15)
(* (( (ptr) formal←c57624)+11) ) = ((* (( (ptr) formal←c57624)+11) ) + 1);
goto lab←L100041;
lab←L100040: ;
SOURCE(9481, 13)
(* (( (ptr) formal←c57624)+10) ) = 7;
SOURCE(9496, 13)
return(1);
lab←L100041: ;
SOURCE(8345, 1167)
return(quit←v42720);
}
static word RopeFromLiteral←P720(formal←c01070, start←v7712)
word formal←c01070;
word start←v7712;
{
W11 var←c57656;
/* declaration of r←v7684 skipped */
register ptr gf←c57688 = (ptr) &globalframe;
word var←c7756;
/* declaration of var←c51000 skipped */
word new←v21804 = 0;
/* declaration of index←v21832 skipped */
/* declaration of end←v21860 skipped */
/* declaration of resultChars←v21888 skipped */
/* declaration of escaped←v21916 skipped */
(* (( (ptr) &var←c57656)+4)/* r←v7684 */ ) = formal←c01070;
/* RopeFromLiteral: */
SOURCE(9832, 854)
{
word tmpAddr134;
tmpAddr134 = (word) (( (ptr) &var←c57656)+5)/* var←c51000 */ ;
(* (ptr) tmpAddr134 ) = ( ((word) (fPt) getProc←P5796) );
(* (( (ptr) tmpAddr134) + 1) ) = 1;
};
SOURCE(9913, 22)
(* (( (ptr) &var←c57656)+7)/* index←v21832 */ ) = (start←v7712 + 1);
SOURCE(9937, 23)
{
word pd135;
pd135 = (* (( (ptr) (* (( (ptr) gf←c57688)+269)/* var←c50040 */ ))+14) );
(* (( (ptr) &var←c57656)+8)/* end←v21860 */ ) = ((word) ( *( (fPt) ((* (ptr) pd135 ))))((* ((( (ptr) &var←c57656)+4)/* r←v7684 */ ) ), pd135)
- 1);
};
SOURCE(9962, 20)
(* (( (ptr) &var←c57656)+9)/* resultChars←v21888 */ ) = 0;
SOURCE(9984, 21)
(* (( (ptr) &var←c57656)+10)/* escaped←v21916 */ ) = 0;
SOURCE(10348, 56)
{
word pd136;
pd136 = (* (( (ptr) (* (( (ptr) gf←c57688)+269)/* var←c50040 */ ))+9) );
if (((word) ( *( (fPt) ((* (ptr) pd136 ))))((* (( (ptr) &var←c57656)+4)/* r←v7684 */ ), start←v7712, pd136) != 34)) {
SOURCE(10377, 27)
{
W2 var←c0272;
(* (ptr) (word) &var←c0272 ) = 0;
(* (( (ptr) (word) &var←c0272) + 1) ) = start←v7712;
(void) XR←RaiseError((word) (( (bPt) gf←c57688)+332)/* var←c47096 */ , (word) &var←c0272);
};
};
};
SOURCE(10406, 169)
{
word var←c51032;
{
word pd137;
pd137 = (* (( (ptr) (* (( (ptr) gf←c57688)+269)/* var←c50040 */ ))+9) );
var←c51032 = (word) ( *( (fPt) ((* (ptr) pd137 ))))((* (( (ptr) &var←c57656)+4)/* r←v7684 */ ), (* (( (ptr) &var←c57656)+8)
/* end←v21860 */ ), pd137);
};
switch (var←c51032) {
case 108: case 76:
SOURCE(10443, 13)
(* (( (ptr) &var←c57656)+8)/* end←v21860 */ ) = ((* (( (ptr) &var←c57656)+8)/* end←v21860 */ ) - 2);
SOURCE(10458, 54)
{
word pd138;
pd138 = (* (( (ptr) (* (( (ptr) gf←c57688)+269)/* var←c50040 */ ))+9) );
if (((word) ( *( (fPt) ((* (ptr) pd138 ))))((* (( (ptr) &var←c57656)+4)/* r←v7684 */ ), ((* (( (ptr) &var←c57656)+8)/* end←v21860 */ ) +
1), pd138) != 34)) {
SOURCE(10487, 25)
{
W2 var←c0274;
(* (ptr) (word) &var←c0274 ) = 0;
(* (( (ptr) (word) &var←c0274) + 1) ) = (* (( (ptr) &var←c57656)+8)/* end←v21860 */ );
(void) XR←RaiseError((word) (( (bPt) gf←c57688)+332)/* var←c47096 */ , (word) &var←c0274);
};
};
};
break;
case 34:
SOURCE(10524, 13)
(* (( (ptr) &var←c57656)+8)/* end←v21860 */ ) = ((* (( (ptr) &var←c57656)+8)/* end←v21860 */ ) - 1);
break;
default:
SOURCE(10550, 25)
{
W2 var←c0275;
(* (ptr) (word) &var←c0275 ) = 0;
(* (( (ptr) (word) &var←c0275) + 1) ) = (* (( (ptr) &var←c57656)+8)/* end←v21860 */ );
(void) XR←RaiseError((word) (( (bPt) gf←c57688)+332)/* var←c47096 */ , (word) &var←c0275);
};
break;
};
};
SOURCE(10577, 45)
{
word pd139;
pd139 = (* (( (ptr) (* (( (ptr) gf←c57688)+269)/* var←c50040 */ ))+31) );
new←v21804 = (word) ( *( (fPt) ((* (ptr) pd139 ))))((((* (( (ptr) &var←c57656)+8)/* end←v21860 */ ) - (* (( (ptr) &var←c57656)+7)
/* index←v21832 */ )) + 1), (word) (( (bPt) &var←c57656)+20)/* var←c51000 */ , 2147483647, pd139);
};
SOURCE(10624, 48)
if ((0 != (* (( (ptr) &var←c57656)+10)/* escaped←v21916 */ ))) {
SOURCE(10640, 32)
{
word pd140;
pd140 = (* (( (ptr) (* (( (ptr) gf←c57688)+269)/* var←c50040 */ ))+17) );
new←v21804 = (word) ( *( (fPt) ((* (ptr) pd140 ))))(new←v21804, 0, (* (( (ptr) &var←c57656)+9)/* resultChars←v21888 */ ), pd140)
;
};
};
SOURCE(10674, 12)
return(new←v21804);
}
static word getProc←P5796(formal←c57752)
word formal←c57752;
{
register ptr gf←c57720 = (ptr) &globalframe;
word c←v22020;
formal←c57752 = (formal←c57752 - 20);
/* getProc: */
SOURCE(10007, 336)
SOURCE(10043, 34)
if (( (int)(* (( (ptr) formal←c57752)+7) ) > (int)(* (( (ptr) formal←c57752)+8) ))) {
SOURCE(10063, 14)
return(0);
};
SOURCE(10079, 18)
{
word pd141;
pd141 = (* (( (ptr) (* (( (ptr) gf←c57720)+269)/* var←c50040 */ ))+9) );
c←v22020 = (word) ( *( (fPt) ((* (ptr) pd141 ))))((* (( (ptr) formal←c57752)+4) ), (* (( (ptr) formal←c57752)+7) ), pd141)
;
};
SOURCE(10100, 17)
(* (( (ptr) formal←c57752)+7) ) = ((* (( (ptr) formal←c57752)+7) ) + 1);
SOURCE(10119, 183)
{
word var←c51064;
var←c51064 = c←v22020;
if ((var←c51064 == 92)) {
SOURCE(10142, 38)
{
W2 var←c51096;
(void) ParseEscapeCode←P840((word) &var←c51096, (* (( (ptr) formal←c57752)+4) ), (* (( (ptr) formal←c57752)+7) ));
(* (( (ptr) formal←c57752)+7) ) = var←c51096.f1;
c←v22020 = var←c51096.f0;
};
SOURCE(10182, 15)
(* (( (ptr) formal←c57752)+10) ) = 1;
}
else {
if ((var←c51064 == 34)) {
SOURCE(10209, 56)
{
word pd142;
pd142 = (* (( (ptr) (* (( (ptr) gf←c57720)+269)/* var←c50040 */ ))+9) );
if (((word) ( *( (fPt) ((* (ptr) pd142 ))))((* (( (ptr) formal←c57752)+4) ), (* (( (ptr) formal←c57752)+7) ), pd142) != 34)) {
SOURCE(10238, 27)
{
W2 var←c0280;
(* (ptr) (word) &var←c0280 ) = 0;
(* (( (ptr) (word) &var←c0280) + 1) ) = (* (( (ptr) formal←c57752)+7) );
(void) XR←RaiseError((word) (( (bPt) gf←c57720)+332)/* var←c47096 */ , (word) &var←c0280);
};
};
};
SOURCE(10268, 17)
(* (( (ptr) formal←c57752)+7) ) = ((* (( (ptr) formal←c57752)+7) ) + 1);
SOURCE(10287, 15)
(* (( (ptr) formal←c57752)+10) ) = 1;
};
};
};
SOURCE(10314, 29)
(* (( (ptr) formal←c57752)+9) ) = ((* (( (ptr) formal←c57752)+9) ) + 1);
SOURCE(10007, 336)
return(c←v22020);
}
static word CharFromLiteral←P780(formal←c01071, formal←c01072)
word formal←c01071;
word formal←c01072;
{
W7 var←c57784;
/* declaration of r←v7816 skipped */
/* declaration of start←v7844 skipped */
/* declaration of var←c03 skipped */
word var←c7888;
var←c57784.f4/* r←v7816 */ = formal←c01071;
var←c57784.f5/* start←v7844 */ = formal←c01072;
/* CharFromLiteral: */
SOURCE(10691, 655)
SOURCE(10761, 585)
{
word var←c04;
{
word var←c01041;
var←c01041 = (word) &var←c57784;
var←c04 = (word) XR←Enable(( ((word) (fPt) NoName←Q9384) ), ( ((word) (fPt) NoName←Q9804) ), var←c01041);
};
/* removed trivial cond node */
};
return(var←c57784.f6/* var←c03 */ );
}
static word NoName←Q9384(formal←c0960)
word formal←c0960;
{
register ptr gf←c0959 = (ptr) &globalframe;
SOURCE(10825, 7)
{
word c←v22048;
SOURCE(10834, 512)
{
word var←c51160;
{
word pd143;
pd143 = (* (( (ptr) (* (( (ptr) gf←c0959)+269)/* var←c50040 */ ))+9) );
c←v22048 = (word) ( *( (fPt) ((* (ptr) pd143 ))))((* (( (ptr) formal←c0960)+4) ), (* (( (ptr) formal←c0960)+5) ), pd143)
;
};
var←c51160 = c←v22048;
if ((var←c51160 == 39)) {
SOURCE(10910, 97)
{
word var←c01042;
(* (( (ptr) formal←c0960)+5) ) = ((* (( (ptr) formal←c0960)+5) ) + 1);
var←c01042 = (* (( (ptr) formal←c0960)+5) );
{
word pd144;
pd144 = (* (( (ptr) (* (( (ptr) gf←c0959)+269)/* var←c50040 */ ))+9) );
c←v22048 = (word) ( *( (fPt) ((* (ptr) pd144 ))))((* (( (ptr) formal←c0960)+4) ), var←c01042, pd144);
};
};
if ((c←v22048 == 92)) {
SOURCE(10955, 43)
{
W2 var←c0286;
(void) ParseEscapeCode←P840((word) &var←c0286, (* (( (ptr) formal←c0960)+4) ), ((* (( (ptr) formal←c0960)+5) ) + 1));
(* (( (ptr) formal←c0960)+6) ) = var←c0286.f0;
return(1);
};
}
else {
SOURCE(10998, 9)
(* (( (ptr) formal←c0960)+6) ) = c←v22048;
return(1);
};
}
else {
if (((var←c51160 - 48) <= 7)) {
SOURCE(11027, 278)
{
word num←v22092;
SOURCE(11058, 27)
num←v22092 = (c←v22048 - 48);
SOURCE(11087, 207)
lab←L100046: ;
SOURCE(11090, 204)
{
word var←c51224;
{
word var←c01043;
(* (( (ptr) formal←c0960)+5) ) = ((* (( (ptr) formal←c0960)+5) ) + 1);
var←c01043 = (* (( (ptr) formal←c0960)+5) );
{
word pd145;
pd145 = (* (( (ptr) (* (( (ptr) gf←c0959)+269)/* var←c50040 */ ))+9) );
c←v22048 = (word) ( *( (fPt) ((* (ptr) pd145 ))))((* (( (ptr) formal←c0960)+4) ), var←c01043, pd145);
};
};
var←c51224 = c←v22048;
if (((var←c51224 - 48) <= 7)) {
SOURCE(11150, 28)
num←v22092 = ((IOP2( * , (int)num←v22092, (int)8) + c←v22048) - 48);
SOURCE(11180, 48)
if (( (int)num←v22092 > (int)255)) {
SOURCE(11199, 29)
{
/*1*/ W2 var←c0289;
/*1*/ (* (ptr) (word) &var←c0289 ) = 1;
/*1*/ (* (( (ptr) (word) &var←c0289) + 1) ) = (* (( (ptr) formal←c0960)+5) );
/*1*/ (void) XR←RaiseError((word) (( (bPt) gf←c0959)+332)/* var←c47096 */ , (word) &var←c0289);
/*1*/ };
};
}
else {
if ((var←c51224 == 67) || (var←c51224 == 99)) {
SOURCE(11243, 17)
(* (( (ptr) formal←c0960)+6) ) = BCK(num←v22092, 256);
return(1);
}
else {
SOURCE(11273, 21)
{
/*1*/ W2 var←c0290;
/*1*/ (* (ptr) (word) &var←c0290 ) = 0;
/*1*/ (* (( (ptr) (word) &var←c0290) + 1) ) = (* (( (ptr) formal←c0960)+5) );
/*1*/ (void) XR←RaiseError((word) (( (bPt) gf←c0959)+332)/* var←c47096 */ , (word) &var←c0290);
/*1*/ };
};
};
};
goto lab←L100046;
};
}
else {
SOURCE(11319, 27)
{
W2 var←c0291;
(* (ptr) (word) &var←c0291 ) = 0;
(* (( (ptr) (word) &var←c0291) + 1) ) = (* (( (ptr) formal←c0960)+5) );
(void) XR←RaiseError((word) (( (bPt) gf←c0959)+332)/* var←c47096 */ , (word) &var←c0291);
};
};
};
};
};
/* removed dead code */
}
static void ParseEscapeCode←P840(formal←c0296, formal←c01073, formal←c01074)
word formal←c0296;
word formal←c01073;
word formal←c01074;
{
W8 var←c57816;
/* declaration of r←v7948 skipped */
/* declaration of start←v7976 skipped */
/* declaration of c←v8020 skipped */
/* declaration of newIndex←v8048 skipped */
var←c57816.f4/* r←v7948 */ = formal←c01073;
var←c57816.f5/* start←v7976 */ = formal←c01074;
/* ParseEscapeCode: */
SOURCE(11351, 642)
SOURCE(11432, 561)
{
word var←c05;
{
word var←c01044;
var←c01044 = (word) &var←c57816;
var←c05 = (word) XR←Enable(( ((word) (fPt) NoName←Q9444) ), ( ((word) (fPt) NoName←Q9744) ), var←c01044);
};
/* removed trivial cond node */
};
(* (ptr) formal←c0296 ) = var←c57816.f6/* c←v8020 */ ;
(* (( (ptr) formal←c0296)+1) ) = var←c57816.f7/* newIndex←v8048 */ ;
return;
}
static word NoName←Q9444(formal←c0962)
word formal←c0962;
{
register ptr gf←c0961 = (ptr) &globalframe;
SOURCE(11496, 18)
{
word pd146;
pd146 = (* (( (ptr) (* (( (ptr) gf←c0961)+269)/* var←c50040 */ ))+9) );
(* (( (ptr) formal←c0962)+6) ) = (word) ( *( (fPt) ((* (ptr) pd146 ))))((* (( (ptr) formal←c0962)+4) ), (* (( (ptr) formal←c0962)+5)
), pd146);
};
SOURCE(11516, 440)
{
word var←c51256;
if ((((* (( (ptr) formal←c0962)+6) ) - 65) <= 25)) {
var←c51256 = ((* (( (ptr) formal←c0962)+6) ) + 32);
}
else {
var←c51256 = (* (( (ptr) formal←c0962)+6) );
};
if ((var←c51256 == 110)) {
SOURCE(11549, 7)
(* (( (ptr) formal←c0962)+6) ) = 10;
goto endif0147;
};
if ((var←c51256 == 114)) {
SOURCE(11564, 7)
(* (( (ptr) formal←c0962)+6) ) = 13;
goto endif0147;
};
if ((var←c51256 == 116)) {
SOURCE(11579, 7)
(* (( (ptr) formal←c0962)+6) ) = 9;
goto endif0147;
};
if ((var←c51256 == 98)) {
SOURCE(11594, 7)
(* (( (ptr) formal←c0962)+6) ) = 8;
goto endif0147;
};
if ((var←c51256 == 102)) {
SOURCE(11609, 7)
(* (( (ptr) formal←c0962)+6) ) = 12;
goto endif0147;
};
if ((var←c51256 == 108)) {
SOURCE(11624, 7)
(* (( (ptr) formal←c0962)+6) ) = 10;
goto endif0147;
};
if ((var←c51256 == 39)) {
SOURCE(11640, 7)
(* (( (ptr) formal←c0962)+6) ) = 39;
goto endif0147;
};
if ((var←c51256 == 34)) {
SOURCE(11656, 7)
(* (( (ptr) formal←c0962)+6) ) = 34;
goto endif0147;
};
if ((var←c51256 == 92)) {
SOURCE(11672, 7)
(* (( (ptr) formal←c0962)+6) ) = 92;
goto endif0147;
};
if (((var←c51256 - 48) <= 3)) {
SOURCE(11696, 219)
{
word num←v22136;
SOURCE(11698, 27)
num←v22136 = ((* (( (ptr) formal←c0962)+6) ) - 48);
SOURCE(11727, 144)
{
register word i←v22180 = 1;
lab←L100053: ;
SOURCE(11751, 120)
{
word var←c51288;
{
word pd148;
pd148 = (* (( (ptr) (* (( (ptr) gf←c0961)+269)/* var←c50040 */ ))+9) );
(* (( (ptr) formal←c0962)+6) ) = (word) ( *( (fPt) ((* (ptr) pd148 ))))((* (( (ptr) formal←c0962)+4) ), ((* (( (ptr) formal←c0962)+5)
) + i←v22180), pd148);
};
var←c51288 = (* (( (ptr) formal←c0962)+6) );
if (((var←c51288 - 48) <= 7)) {
SOURCE(11801, 28)
num←v22136 = ((IOP2( * , (int)num←v22136, (int)8) + (* (( (ptr) formal←c0962)+6) )) - 48);
}
else {
SOURCE(11842, 29)
{
W2 var←c0301;
(* (ptr) (word) &var←c0301 ) = 0;
(* (( (ptr) (word) &var←c0301) + 1) ) = ((* (( (ptr) formal←c0962)+5) ) + i←v22180);
(void) XR←RaiseError((word) (( (bPt) gf←c0961)+332)/* var←c47096 */ , (word) &var←c0301);
};
};
};
if ((i←v22180 >= 2)) {
goto lab←L100050;
};
i←v22180 = (i←v22180 + 1);
goto lab←L100053;
lab←L100050: ;
};
SOURCE(11882, 12)
(* (( (ptr) formal←c0962)+6) ) = BCK(num←v22136, 256);
SOURCE(11896, 17)
(* (( (ptr) formal←c0962)+5) ) = ((* (( (ptr) formal←c0962)+5) ) + 2);
};
goto endif0147;
};
SOURCE(11929, 27)
{
W2 var←c0302;
(* (ptr) (word) &var←c0302 ) = 0;
(* (( (ptr) (word) &var←c0302) + 1) ) = (* (( (ptr) formal←c0962)+5) );
(void) XR←RaiseError((word) (( (bPt) gf←c0961)+332)/* var←c47096 */ , (word) &var←c0302);
};
goto endif0147;
endif0147: ;
};
SOURCE(11958, 17)
(* (( (ptr) formal←c0962)+5) ) = ((* (( (ptr) formal←c0962)+5) ) + 1);
SOURCE(11977, 16)
(* (( (ptr) formal←c0962)+6) ) = (* (( (ptr) formal←c0962)+6) );
(* (( (ptr) formal←c0962)+7) ) = (* (( (ptr) formal←c0962)+5) );
return(2);
/* c2c skipped dead code */
}
static word IntFromRope←P900(r←v8108, defaultBase←v8136)
word r←v8108;
word defaultBase←v8136;
{
register ptr gf←c57848 = (ptr) &globalframe;
word var←c8180;
word card←v22252;
word negative←v22280;
/* IntFromRope: */
SOURCE(11998, 317)
SOURCE(12124, 55)
{
W2 var←c51320;
(void) NumberFromRope←P1020((word) &var←c51320, r←v8108, defaultBase←v8136, 1);
negative←v22280 = var←c51320.f1;
card←v22252 = var←c51320.f0;
};
SOURCE(12181, 106)
if ((0 != negative←v22280)) {
SOURCE(12200, 40)
if ((card←v22252 <= 2147483648)) {
SOURCE(12226, 14)
return(INEG(card←v22252));
};
}
else {
SOURCE(12250, 37)
if ((card←v22252 <= 2147483647)) {
SOURCE(12274, 13)
return(SGNCK(card←v22252));
};
};
SOURCE(12290, 25)
{
W2 var←c0310;
(* (ptr) (word) &var←c0310 ) = 1;
(* (( (ptr) (word) &var←c0310) + 1) ) = 0;
(void) XR←RaiseError((word) (( (bPt) gf←c57848)+332)/* var←c47096 */ , (word) &var←c0310);
};
}
static word CardFromRope←P960(r←v8240, defaultBase←v8268)
word r←v8240;
word defaultBase←v8268;
{
word var←c8312;
/* CardFromRope: */
SOURCE(12320, 124)
SOURCE(12394, 50)
{
word var←c01045;
W2 var←c0314;
(void) NumberFromRope←P1020((word) &var←c0314, r←v8240, defaultBase←v8268, 0);
var←c01045 = var←c0314.f0;
return(var←c01045);
};
}
static void NumberFromRope←P1020(formal←c0336, r←v8372, defaultBase←v8400, negativeOK←v8428)
word formal←c0336;
word r←v8372;
word defaultBase←v8400;
word negativeOK←v8428;
{
register ptr gf←c57880 = (ptr) &globalframe;
word card←v8472;
word negative←v8500;
word rLength←v22324;
word start←v22352 = 0;
word base←v22380;
word state←v22436 = 0;
word num←v22464 = 0;
/* NumberFromRope: */
SOURCE(12449, 1340)
SOURCE(12558, 25)
{
word pd149;
pd149 = (* (( (ptr) (* (( (ptr) gf←c57880)+269)/* var←c50040 */ ))+14) );
rLength←v22324 = (word) ( *( (fPt) ((* (ptr) pd149 ))))(r←v8372, pd149);
};
SOURCE(12601, 23)
base←v22380 = (defaultBase←v8400 + 2);
SOURCE(12714, 16)
negative←v8500 = 0;
SOURCE(12732, 944)
{
register word i←v22608;
i←v22608 = start←v22352;
if (( (int)i←v22608 >= (int)rLength←v22324)) {
goto lab←L100055;
};
lab←L100058: ;
SOURCE(12766, 910)
SOURCE(12768, 7)
{
word c←v22652;
SOURCE(12777, 761)
{
word var←c51416;
{
word var←c51384;
word ch←v46904;
{
word pd150;
pd150 = (* (( (ptr) (* (( (ptr) gf←c57880)+269)/* var←c50040 */ ))+9) );
ch←v46904 = (word) ( *( (fPt) ((* (ptr) pd150 ))))(r←v8372, i←v22608, pd150);
};
if (((ch←v46904 - 65) <= 25)) {
var←c51384 = (ch←v46904 + 32);
}
else {
var←c51384 = ch←v46904;
};
c←v22652 = var←c51384;
};
var←c51416 = c←v22652;
if (((var←c51416 - 48) <= 9)) {
SOURCE(12834, 216)
{
word cNum←v22696;
SOURCE(12836, 50)
cNum←v22696 = (c←v22652 - 48);
SOURCE(12888, 21)
if ((cNum←v22696 >= base←v22380)) {
SOURCE(12909, 13)
goto lab←L100059;
};
SOURCE(12925, 65)
if ( ( (num←v22464 > 429496728) ? (num←v22464 > (( (word) -1 - cNum←v22696) / base←v22380)) : 0 ) ) {
SOURCE(12990, 13)
goto lab←L100059;
};
SOURCE(13005, 23)
num←v22464 = ((num←v22464 * base←v22380) + cNum←v22696);
SOURCE(13030, 18)
state←v22436 = 2;
};
goto endif0151;
};
if (((var←c51416 - 97) <= 25)) {
SOURCE(13068, 265)
{
word cNum←v22740;
SOURCE(13070, 44)
cNum←v22740 = SGNCK((c←v22652 - 87));
SOURCE(13116, 21)
if ((cNum←v22740 >= base←v22380)) {
SOURCE(13137, 13)
goto lab←L100059;
};
SOURCE(13152, 102)
if ( ( (num←v22464 > 119304646) ? (num←v22464 > (( (word) -1 - cNum←v22740) / base←v22380)) : 0 ) ) {
SOURCE(13254, 13)
goto lab←L100059;
};
SOURCE(13269, 42)
num←v22464 = ((num←v22464 * base←v22380) + SGNCK((c←v22652 - 87)));
SOURCE(13313, 18)
state←v22436 = 2;
};
goto endif0151;
};
if ((var←c51416 == 43) || (var←c51416 == 45)) {
SOURCE(13346, 124)
if ((state←v22436 == 0)) {
SOURCE(13373, 34)
if ( ( (c←v22652 == 45) ? (0 == negativeOK←v8428) : 0 ) ) {
SOURCE(13407, 10)
goto lab←L100060;
};
SOURCE(13419, 17)
negative←v8500 = (c←v22652 == 45);
SOURCE(13439, 11)
start←v22352 = (i←v22608 + 1);
SOURCE(13452, 18)
state←v22436 = 1;
}
else {
SOURCE(13477, 10)
goto lab←L100060;
};
goto endif0151;
};
if ((var←c51416 <= 32)) {
SOURCE(13511, 27)
if ((state←v22436 == 2)) {
SOURCE(13538, 4)
goto lab←L100056;
};
goto endif0151;
};
SOURCE(13555, 10)
goto lab←L100060;
endif0151: ;
};
};
goto lab←L100062;
lab←L100059: ;
SOURCE(13585, 55)
{
word var←c51480;
var←c51480 = (word) CardFromWholeNumberLiteral←P420(r←v8372, start←v22352);
card←v8472 = var←c51480;
/* removed bogus assignment */
goto lab←L100054;
};
/* c2c skipped dead code */
lab←L100060: ;
SOURCE(13651, 23)
{
W2 var←c0333;
(* (ptr) (word) &var←c0333 ) = 0;
(* (( (ptr) (word) &var←c0333) + 1) ) = i←v22608;
(void) XR←RaiseError((word) (( (bPt) gf←c57880)+332)/* var←c47096 */ , (word) &var←c0333);
};
lab←L100062: ;
i←v22608 = (i←v22608 + 1);
if (( (int)i←v22608 < (int)rLength←v22324)) {
goto lab←L100058;
};
lab←L100055: ;
lab←L100056: ;
};
SOURCE(13687, 102)
{
word var←c51512;
var←c51512 = state←v22436;
if ((var←c51512 == 0) || (var←c51512 == 1)) {
SOURCE(13726, 28)
{
W2 var←c0335;
(* (ptr) (word) &var←c0335 ) = 2;
(* (( (ptr) (word) &var←c0335) + 1) ) = rLength←v22324;
(void) XR←RaiseError((word) (( (bPt) gf←c57880)+332)/* var←c47096 */ , (word) &var←c0335);
};
}
else {
SOURCE(13767, 22)
card←v8472 = num←v22464;
/* removed bogus assignment */
/* removed tail goto */
};
};
lab←L100054: ;
(* (ptr) formal←c0336 ) = card←v8472;
(* (( (ptr) formal←c0336)+1) ) = negative←v8500;
return;
}
static word RealFromRope←P1080(r←v8560)
word r←v8560;
{
register ptr gf←c57912 = (ptr) &globalframe;
word var←c8604;
word rLength←v22784;
word start←v22812 = 0;
word result←v22840;
word signSeen←v22868 = 0;
word negative←v22896 = 0;
/* RealFromRope: */
SOURCE(13794, 562)
SOURCE(13849, 25)
{
word pd152;
pd152 = (* (( (ptr) (* (( (ptr) gf←c57912)+269)/* var←c50040 */ ))+14) );
rLength←v22784 = (word) ( *( (fPt) ((* (ptr) pd152 ))))(r←v8560, pd152);
};
SOURCE(13954, 310)
{
register word i←v22940;
i←v22940 = start←v22812;
if (( (int)i←v22940 >= (int)rLength←v22784)) {
goto lab←L100063;
};
lab←L100066: ;
SOURCE(13988, 276)
SOURCE(13990, 7)
{
word c←v22984;
SOURCE(13999, 147)
{
word var←c51576;
{
word var←c51544;
word ch←v46856;
{
word pd153;
pd153 = (* (( (ptr) (* (( (ptr) gf←c57912)+269)/* var←c50040 */ ))+9) );
ch←v46856 = (word) ( *( (fPt) ((* (ptr) pd153 ))))(r←v8560, i←v22940, pd153);
};
if (((ch←v46856 - 65) <= 25)) {
var←c51544 = (ch←v46856 + 32);
}
else {
var←c51544 = ch←v46856;
};
c←v22984 = var←c51544;
};
var←c51576 = c←v22984;
if (((var←c51576 - 48) <= 9) || (var←c51576 == 46)) {
SOURCE(14062, 9)
start←v22812 = i←v22940;
SOURCE(14074, 5)
goto lab←L100064;
};
if ((var←c51576 == 43) || (var←c51576 == 45)) {
SOURCE(14092, 54)
if ((0 == signSeen←v22868)) {
SOURCE(14115, 17)
negative←v22896 = (c←v22984 == 45);
SOURCE(14135, 11)
start←v22812 = (i←v22940 + 1);
SOURCE(14149, 5)
goto lab←L100064;
}
else {
SOURCE(14161, 10)
goto lab←L100067;
};
};
if ((var←c51576 <= 32)) {
goto endif0154;
};
SOURCE(14212, 10)
goto lab←L100067;
endif0154: ;
};
};
goto lab←L100069;
lab←L100067: ;
SOURCE(14239, 23)
{
W2 var←c0349;
(* (ptr) (word) &var←c0349 ) = 0;
(* (( (ptr) (word) &var←c0349) + 1) ) = i←v22940;
(void) XR←RaiseError((word) (( (bPt) gf←c57912)+332)/* var←c47096 */ , (word) &var←c0349);
};
lab←L100069: ;
i←v22940 = (i←v22940 + 1);
if (( (int)i←v22940 < (int)rLength←v22784)) {
goto lab←L100066;
};
lab←L100063: ;
lab←L100064: ;
};
SOURCE(14275, 34)
result←v22840 = (word) RealFromLiteral←P660(r←v8560, start←v22812);
SOURCE(14311, 45)
{
word x155;
float tf156;
if ((0 != negative←v22896)) {
return((
tf156 = - (
x155 = result←v22840, *(float*)&x155
), *(word*)&tf156
));
}
else {
return(result←v22840);
};
};
}
static word TimeFromRope←P1140(r←v8664)
word r←v8664;
{
W7 var←c57944;
register ptr gf←c57976 = (ptr) &globalframe;
word var←c8708;
/* TimeFromRope: */
SOURCE(14361, 233)
SOURCE(14425, 169)
{
/* declaration of var←c51640 skipped */
{
word pd157;
pd157 = (* (( (ptr) (* (( (ptr) gf←c57976)+272)/* var←c51672 */ ))+33) );
var←c57944.f4/* var←c51640 */ = (word) ( *( (fPt) ((* (ptr) pd157 ))))(r←v8664, 0, pd157);
};
{
/* declaration of var←c06 skipped */
var←c57944.f5/* var←c06 */ = (* (( (ptr) (* (( (ptr) gf←c57976)+272)/* var←c51672 */ ))+81) );
{
/* declaration of var←c07 skipped */
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q9504) ), ( ((word) (fPt) NoName←Q9684) ), (word) &var←c57944);
return(var←c57944.f6/* var←c07 */ );
};
};
};
}
static word NoName←Q9504(formal←c0967)
word formal←c0967;
{
SOURCE(14425, 169)
{
word pd158;
pd158 = (* (( (ptr) formal←c0967)+5) );
(* (( (ptr) formal←c0967)+6) ) = (word) ( *( (fPt) ((* (ptr) pd158 ))))((* ((( (ptr) formal←c0967)+4)) ), pd158);
};
return(0);
}
static void UnpackedTimeFromRope←P1200(formal←c0357, r←v8768)
word formal←c0357;
word r←v8768;
{
W17 var←c58008;
register ptr gf←c58040 = (ptr) &globalframe;
W11 var←c8812;
/* UnpackedTimeFromRope: */
SOURCE(14610, 195)
SOURCE(14687, 118)
{
W11 var←c51896;
{
/* declaration of var←c51832 skipped */
{
word pd159;
pd159 = (* (( (ptr) (* (( (ptr) gf←c58040)+272)/* var←c51672 */ ))+33) );
(* (( (ptr) &var←c58008)+4)/* var←c51832 */ ) = (word) ( *( (fPt) ((* (ptr) pd159 ))))(r←v8768, 0, pd159);
};
{
/* declaration of var←c08 skipped */
(* (( (ptr) &var←c58008)+5)/* var←c08 */ ) = (* (( (ptr) (* (( (ptr) gf←c58040)+272)/* var←c51672 */ ))+82) );
{
/* declaration of var←c09 skipped */
{
word var←c01046;
var←c01046 = (word) &var←c58008;
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q9564) ), ( ((word) (fPt) NoName←Q9624) ), var←c01046);
};
var←c51896 = (* (W11Pt) (( (ptr) &var←c58008)+6)/* var←c09 */ );
};
};
};
var←c8812 = var←c51896;
/* removed tail goto */
};
(* (W11Pt) formal←c0357 ) = var←c8812;
return;
}
static word NoName←Q9564(formal←c0969)
word formal←c0969;
{
SOURCE(14687, 118)
{
word pd160;
pd160 = (* (( (ptr) formal←c0969)+5) );
(void) ( *( (fPt) ((* (ptr) pd160 ))))((word) (( (bPt) formal←c0969)+24), (* (( (ptr) formal←c0969)+4) ), pd160);
};
return(0);
}
static word BoolFromRope←P1260(r←v8872)
word r←v8872;
{
register ptr gf←c58072 = (ptr) &globalframe;
word var←c8916;
/* BoolFromRope: */
SOURCE(14810, 262)
SOURCE(14865, 44)
if ((0 != (word) MatchPrefix←P1320(r←v8872, (* (( (ptr) gf←c58072)+43) )))) {
SOURCE(14896, 13)
return(1);
};
SOURCE(14911, 46)
if ((0 != (word) MatchPrefix←P1320(r←v8872, (* (( (ptr) gf←c58072)+44) )))) {
SOURCE(14943, 14)
return(0);
};
SOURCE(14959, 43)
if ((0 != (word) MatchPrefix←P1320(r←v8872, (* (( (ptr) gf←c58072)+45) )))) {
SOURCE(14989, 13)
return(1);
};
SOURCE(15004, 43)
if ((0 != (word) MatchPrefix←P1320(r←v8872, (* (( (ptr) gf←c58072)+46) )))) {
SOURCE(15033, 14)
return(0);
};
SOURCE(15049, 23)
{
W2 var←c0361;
(* (ptr) (word) &var←c0361 ) = 0;
(* (( (ptr) (word) &var←c0361) + 1) ) = 0;
(void) XR←RaiseError((word) (( (bPt) gf←c58072)+332)/* var←c47096 */ , (word) &var←c0361);
};
}
static word MatchPrefix←P1320(r←v8976, formal←c01075)
word r←v8976;
word formal←c01075;
{
W10 var←c58104;
/* declaration of pat←v9004 skipped */
register ptr gf←c58136 = (ptr) &globalframe;
word var←c9048;
/* declaration of var←c51928 skipped */
/* declaration of patLen←v23028 skipped */
/* declaration of fail←v23056 skipped */
/* declaration of index←v23084 skipped */
(* (( (ptr) &var←c58104)+4)/* pat←v9004 */ ) = formal←c01075;
/* MatchPrefix: */
SOURCE(15077, 412)
{
word tmpAddr161;
tmpAddr161 = (word) (( (ptr) &var←c58104)+5)/* var←c51928 */ ;
(* (ptr) tmpAddr161 ) = ( ((word) (fPt) match←P6336) );
(* (( (ptr) tmpAddr161) + 1) ) = 1;
};
SOURCE(15140, 26)
{
word pd162;
pd162 = (* (( (ptr) (* (( (ptr) gf←c58136)+269)/* var←c50040 */ ))+14) );
(* (( (ptr) &var←c58104)+7)/* patLen←v23028 */ ) = (word) ( *( (fPt) ((* (ptr) pd162 ))))((* ((( (ptr) &var←c58104)+4)/* pat←v9004 */ ) ), pd162)
;
};
SOURCE(15168, 23)
(* (( (ptr) &var←c58104)+8)/* fail←v23056 */ ) = ( (int)(* (( (ptr) &var←c58104)+7)/* patLen←v23028 */ ) == (int)0);
SOURCE(15193, 14)
(* (( (ptr) &var←c58104)+9)/* index←v23084 */ ) = 0;
SOURCE(15445, 25)
{
word var←c51960;
word pd163;
pd163 = (* (( (ptr) (* (( (ptr) gf←c58136)+269)/* var←c50040 */ ))+26) );
var←c51960 = (word) ( *( (fPt) ((* (ptr) pd163 ))))(r←v8976, 0, 2147483647, (word) (( (bPt) &var←c58104)+20)/* var←c51928 */ , pd163)
;
};
SOURCE(15472, 17)
return((0 == (* (( (ptr) &var←c58104)+8)/* fail←v23056 */ )));
}
static word match←P6336(c←v23188, formal←c58200)
word c←v23188;
word formal←c58200;
{
register ptr gf←c58168 = (ptr) &globalframe;
word quit←v23232;
formal←c58200 = (formal←c58200 - 20);
/* match: */
SOURCE(15209, 231)
SOURCE(15209, 231)
quit←v23232 = 0;
SOURCE(15264, 176)
if (( (int)(* (( (ptr) formal←c58200)+9) ) < (int)(* (( (ptr) formal←c58200)+7) ))) {
SOURCE(15289, 74)
{
word pd164;
pd164 = (* (( (ptr) (* (( (ptr) gf←c58168)+269)/* var←c50040 */ ))+9) );
if (((word) ( *( (fPt) ((* (ptr) pd164 ))))((* (( (ptr) formal←c58200)+4) ), (* (( (ptr) formal←c58200)+9) ), pd164) == ( ((c←v23188 - 65) <= 25) ? (c←v23188 +
32) : c←v23188 ) )) {
SOURCE(15331, 21)
(* (( (ptr) formal←c58200)+9) ) = ((* (( (ptr) formal←c58200)+9) ) + 1);
}
else {
SOURCE(15352, 11)
(* (( (ptr) formal←c58200)+8) ) = 1;
};
};
SOURCE(15365, 20)
return((* (( (ptr) formal←c58200)+8) ));
}
else {
SOURCE(15392, 48)
if ((c←v23188 <= 32)) {
SOURCE(15421, 19)
return(1);
};
};
SOURCE(15209, 231)
return(quit←v23232);
}
static word AtomFromRope←P1380(r←v9108)
word r←v9108;
{
register ptr gf←c58232 = (ptr) &globalframe;
word var←c9152;
word rLength←v23260;
word result←v23288 = 0;
word start←v23316 = 0;
/* AtomFromRope: */
SOURCE(15494, 506)
SOURCE(15549, 25)
{
word pd165;
pd165 = (* (( (ptr) (* (( (ptr) gf←c58232)+269)/* var←c50040 */ ))+14) );
rLength←v23260 = (word) ( *( (fPt) ((* (ptr) pd165 ))))(r←v9108, pd165);
};
SOURCE(15606, 52)
if (( (int)start←v23316 >= (int)rLength←v23260)) {
SOURCE(15631, 27)
{
W2 var←c0377;
(* (ptr) (word) &var←c0377 ) = 0;
(* (( (ptr) (word) &var←c0377) + 1) ) = start←v23316;
(void) XR←RaiseError((word) (( (bPt) gf←c58232)+332)/* var←c47096 */ , (word) &var←c0377);
};
};
SOURCE(15660, 43)
{
word pd166;
pd166 = (* (( (ptr) (* (( (ptr) gf←c58232)+269)/* var←c50040 */ ))+9) );
if (((word) ( *( (fPt) ((* (ptr) pd166 ))))(r←v9108, start←v23316, pd166) == 36)) {
SOURCE(15688, 15)
start←v23316 = (start←v23316 + 1);
};
};
SOURCE(15705, 277)
{
word scratch←v23360;
word len←v23388;
SOURCE(15707, 56)
{
word pd167;
pd167 = (* (( (ptr) (* (( (ptr) gf←c58232)+273)/* var←c51992 */ ))+6) );
scratch←v23360 = (word) ( *( (fPt) ((* (ptr) pd167 ))))(BCK((rLength←v23260 - start←v23316), 32768), pd167);
};
SOURCE(15765, 24)
len←v23388 = SGNCK((rLength←v23260 - start←v23316));
SOURCE(15791, 57)
{
register word i←v23444 = 0;
register word noName←c52024;
noName←c52024 = len←v23388;
if ((i←v23444 >= noName←c52024)) {
goto lab←L100075;
};
lab←L100078: ;
SOURCE(15819, 29)
{
word var←c52056;
{
word pd168;
pd168 = (* (( (ptr) (* (( (ptr) gf←c58232)+269)/* var←c50040 */ ))+9) );
var←c52056 = (word) ( *( (fPt) ((* (ptr) pd168 ))))(r←v9108, (start←v23316 + i←v23444), pd168);
};
{
word limit169;
(* ((( (bPt) scratch←v23360)+4)+(
limit169 = (word) (* (( (hPt) scratch←v23360)+1) ),
BCK(i←v23444, limit169)
)) ) = var←c52056;
};
};
i←v23444 = (i←v23444 + 1);
if ((i←v23444 < noName←c52024)) {
goto lab←L100078;
};
lab←L100075: ;
};
SOURCE(15859, 20)
(* (hPt) scratch←v23360 ) = BCK(len←v23388, 32768);
SOURCE(15889, 57)
SOURCE(15891, 55)
{
word pd170;
pd170 = (* (( (ptr) (* (( (ptr) gf←c58232)+274)/* var←c52088 */ ))+4) );
result←v23288 = (word) ( *( (fPt) ((* (ptr) pd170 ))))(scratch←v23360, pd170);
};
SOURCE(15949, 31)
{
word pd171;
pd171 = (* (( (ptr) (* (( (ptr) gf←c58232)+273)/* var←c51992 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd171 ))))(scratch←v23360, pd171);
};
};
SOURCE(15985, 15)
return(result←v23288);
}
static word AppendInt←P1440(to←v9212, from←v9240, base←v9268, showRadix←v9296)
word to←v9212;
word from←v9240;
word base←v9268;
word showRadix←v9296;
{
word var←c9352;
/* AppendInt: */
SOURCE(16005, 175)
SOURCE(16106, 74)
return((word) AppendWholeNumber←P1560(to←v9212, IABS(from←v9240), (base←v9268 + 2), ( (int)from←v9240 < (int)0), showRadix←v9296)
);
}
static word AppendCard←P1500(to←v9424, from←v9452, base←v9480, showRadix←v9508)
word to←v9424;
word from←v9452;
word base←v9480;
word showRadix←v9508;
{
word var←c9564;
/* AppendCard: */
SOURCE(16185, 175)
SOURCE(16301, 59)
return((word) AppendWholeNumber←P1560(to←v9424, from←v9452, (base←v9480 + 2), 0, showRadix←v9508));
}
static word AppendWholeNumber←P1560(to←v9636, from←v9664, base←v9692, negative←v9720, showRadix←v9748)
word to←v9636;
word from←v9664;
word base←v9692;
word negative←v9720;
word showRadix←v9748;
{
register ptr gf←c58264 = (ptr) &globalframe;
word var←c9804;
W32 stack←v23488;
word nChars←v23516 = 0;
/* AppendWholeNumber: */
SOURCE(16365, 882)
SOURCE(16531, 219)
if ((0 != showRadix←v9748)) {
SOURCE(16551, 134)
{
word var←c52184;
var←c52184 = base←v9692;
switch (var←c52184) {
case 10:
break;
case 8: case 16:
SOURCE(16591, 38)
if ((base←v9692 == 8)) {
(* (ptr) &stack←v23488 ) = 66;
}
else {
(* (ptr) &stack←v23488 ) = 72;
};
SOURCE(16632, 11)
nChars←v23516 = 1;
break;
default:
SOURCE(16657, 28)
{
W2 var←c0402;
(* (ptr) (word) &var←c0402 ) = 3;
(* (( (ptr) (word) &var←c0402) + 1) ) = 0;
(void) XR←RaiseError((word) (( (bPt) gf←c58264)+332)/* var←c47096 */ , (word) &var←c0402);
};
break;
};
};
}
else {
SOURCE(16694, 56)
if (((base←v9692 - 2) > 34)) {
SOURCE(16722, 28)
{
W2 var←c0403;
(* (ptr) (word) &var←c0403 ) = 3;
(* (( (ptr) (word) &var←c0403) + 1) ) = 0;
(void) XR←RaiseError((word) (( (bPt) gf←c58264)+332)/* var←c47096 */ , (word) &var←c0403);
};
};
};
SOURCE(16753, 195)
lab←L100081: ;
SOURCE(16753, 195)
{
word digit←v23596;
SOURCE(16756, 32)
digit←v23596 = (from←v9664 % base←v9692);
SOURCE(16790, 79)
{
word idx172;
(* (( (ptr) &stack←v23488)+BCK(nChars←v23516, 32)) ) = (
idx172 = (word) ( (digit←v23596 < 10) ? (digit←v23596 + 48) : ((digit←v23596 - 10) + 65) ) ,
BCK(idx172, 256)
);
};
SOURCE(16871, 19)
nChars←v23516 = (nChars←v23516 + 1);
SOURCE(16892, 26)
if ((from←v9664 < base←v9692)) {
SOURCE(16918, 4)
goto lab←L100080;
};
SOURCE(16924, 24)
from←v9664 = (from←v9664 / base←v9692);
};
goto lab←L100081;
lab←L100080: ;
SOURCE(16959, 58)
if ((0 != negative←v9720)) {
SOURCE(16978, 18)
(* (( (ptr) &stack←v23488)+BCK(nChars←v23516, 32)) ) = 45;
SOURCE(16998, 19)
nChars←v23516 = (nChars←v23516 + 1);
};
SOURCE(17022, 37)
{
word pd173;
pd173 = (* (( (ptr) (* (( (ptr) gf←c58264)+273)/* var←c51992 */ ))+13) );
to←v9636 = (word) ( *( (fPt) ((* (ptr) pd173 ))))(to←v9636, BCK(nChars←v23516, 32768), pd173);
};
SOURCE(17061, 173)
{
word newLengthMinusOne←v23640;
SOURCE(17063, 47)
{
word idx174;
newLengthMinusOne←v23640 = (
idx174 = (word) (((* (hPt) to←v9636 ) + nChars←v23516) - 1),
SGNCK(idx174)
);
};
SOURCE(17112, 76)
{
register word i←v23684;
i←v23684 = nChars←v23516;
if ((0 >= i←v23684)) {
goto lab←L100082;
};
i←v23684 = (i←v23684 - 1);
lab←L100085: ;
SOURCE(17154, 34)
{
word var←c52216;
var←c52216 = (newLengthMinusOne←v23640 - i←v23684);
{
word limit175;
(* ((( (bPt) to←v9636)+4)+(
limit175 = (word) (* (( (hPt) to←v9636)+1) ),
BCK(var←c52216, limit175)
)) ) = (* (( (ptr) &stack←v23488)+BCK(i←v23684, 32)) );
};
};
if ((0 >= i←v23684)) {
goto lab←L100082;
};
i←v23684 = (i←v23684 - 1);
goto lab←L100085;
lab←L100082: ;
};
SOURCE(17199, 33)
(* (hPt) to←v9636 ) = BCK((newLengthMinusOne←v23640 + 1), 32768);
};
SOURCE(17237, 10)
return(to←v9636);
}
static word AppendDCard←P1620(to←v9876, from←v9904, base←v9932, showRadix←v9960)
word to←v9876;
W2 from←v9904;
word base←v9932;
word showRadix←v9960;
{
word var←c10016;
W2 var←c01047;
/* AppendDCard: */
SOURCE(17252, 345)
SOURCE(17371, 226)
(* (ptr) (word) &var←c01047 ) = 0;
(* (( (ptr) (word) &var←c01047) + 1) ) = (word) -1;
if (XR←DCardGeI(&var←c01047, &from←v9904)) {
SOURCE(17398, 46)
return((word) AppendCard←P1500(to←v9876, XR←CardDCardI(&from←v9904), base←v9932, showRadix←v9960));
}
else {
SOURCE(17451, 148)
{
word cbase←v23728;
word digit←v23756;
SOURCE(17453, 18)
cbase←v23728 = (base←v9932 + 2);
SOURCE(17473, 28)
{
W2 D176;
W2 D177;
XR←DCardCard(&D177, cbase←v23728);
XR←DCardModI(&D176, &from←v9904, &D177);
digit←v23756 = XR←CardDCardI(&D176);
};
SOURCE(17503, 45)
{
W2 D178;
W2 D179;
XR←DCardCard(&D179, cbase←v23728);
XR←DCardDivI(&D178, &from←v9904, &D179);
to←v9876 = (word) AppendDCard←P1620(to←v9876, D178, base←v9932, 0);
};
SOURCE(17550, 47)
return((word) AppendCard←P1500(to←v9876, digit←v23756, base←v9932, showRadix←v9960));
};
};
}
static word AppendReal←P1680(to←v10088, from←v10116, precision←v10144, useE←v10172)
word to←v10088;
word from←v10116;
word precision←v10144;
word useE←v10172;
{
word var←c10228;
/* AppendReal: */
SOURCE(17606, 221)
SOURCE(17734, 93)
if ((0 != useE←v10172)) {
SOURCE(17747, 43)
return((word) AppendE←P3420(to←v10088, from←v10116, precision←v10144));
}
else {
SOURCE(17790, 37)
return((word) AppendG←P3540(to←v10088, from←v10116, precision←v10144));
};
}
static word AppendDecimalDigits←P1740(to←v10300, c←v10328, nDigits←v10356)
word to←v10300;
word c←v10328;
word nDigits←v10356;
{
register ptr gf←c58296 = (ptr) &globalframe;
word var←c10432;
/* AppendDecimalDigits: */
SOURCE(18558, 278)
SOURCE(18648, 38)
{
word pd180;
pd180 = (* (( (ptr) (* (( (ptr) gf←c58296)+273)/* var←c51992 */ ))+13) );
to←v10300 = (word) ( *( (fPt) ((* (ptr) pd180 ))))(to←v10300, nDigits←v10356, pd180);
};
SOURCE(18688, 94)
{
register word noName←c52376;
register word j←v23800;
noName←c52376 = (* (hPt) to←v10300 );
j←v23800 = ((* (hPt) to←v10300 ) + nDigits←v10356);
if ((noName←c52376 >= j←v23800)) {
goto lab←L100086;
};
j←v23800 = (j←v23800 - 1);
lab←L100089: ;
SOURCE(18747, 23)
{
word limit181;
(* ((( (bPt) to←v10300)+4)+(
limit181 = (word) (* (( (hPt) to←v10300)+1) ),
BCK(j←v23800, limit181)
)) ) = ((c←v10328 % 10) + 48);
};
SOURCE(18772, 10)
c←v10328 = (c←v10328 / 10);
if ((noName←c52376 >= j←v23800)) {
goto lab←L100086;
};
j←v23800 = (j←v23800 - 1);
goto lab←L100089;
lab←L100086: ;
};
SOURCE(18793, 29)
{
word idx182;
(* (hPt) to←v10300 ) = (
idx182 = (word) ((* (hPt) to←v10300 ) + nDigits←v10356),
BCK(idx182, 32768)
);
};
SOURCE(18824, 12)
return(to←v10300);
}
static word AppendDReal←P1800(to←v10504, from←v10532, precision←v10560, useE←v10588)
word to←v10504;
W2 from←v10532;
word precision←v10560;
word useE←v10588;
{
register ptr gf←c58328 = (ptr) &globalframe;
word var←c10644;
word type←v23844;
W2 d←v23872;
word exp10←v23900;
/* AppendDReal: */
SOURCE(18839, 856)
SOURCE(19018, 29)
precision←v10560 = (MAX( (unsigned) , precision←v10560, 1));
SOURCE(19049, 52)
{
W4 var←c52440;
{
word pd183;
pd183 = (* (( (ptr) (* (( (ptr) gf←c58328)+275)/* var←c52408 */ ))+10) );
(void) ( *( (fPt) ((* (ptr) pd183 ))))((word) &var←c52440, from←v10532, precision←v10560, pd183);
};
exp10←v23900 = var←c52440.f3;
d←v23872 = (* (W2Pt) (( (ptr) &var←c52440)+1) );
type←v23844 = var←c52440.f0;
};
SOURCE(19103, 575)
{
word var←c52472;
var←c52472 = type←v23844;
switch (var←c52472) {
case 1:
SOURCE(19130, 31)
{
word pd184;
pd184 = (* (( (ptr) (* (( (ptr) gf←c58328)+273)/* var←c51992 */ ))+8) );
to←v10504 = (word) ( *( (fPt) ((* (ptr) pd184 ))))(to←v10504, (* (( (ptr) gf←c58328)+47) ), 0, 32767, pd184);
};
break;
case 2:
SOURCE(19178, 58)
{
word pd185;
pd185 = (* (( (ptr) (* (( (ptr) gf←c58328)+273)/* var←c51992 */ ))+11) );
to←v10504 = (word) ( *( (fPt) ((* (ptr) pd185 ))))(to←v10504, ( (XR←DRealGtI(&fc186, &from←v10532)) ? 45 : 43 ) , pd185)
;
};
SOURCE(19238, 30)
{
word pd187;
pd187 = (* (( (ptr) (* (( (ptr) gf←c58328)+273)/* var←c51992 */ ))+8) );
to←v10504 = (word) ( *( (fPt) ((* (ptr) pd187 ))))(to←v10504, (* (( (ptr) gf←c58328)+48) ), 0, 32767, pd187);
};
break;
case 3:
SOURCE(19282, 30)
{
word pd188;
pd188 = (* (( (ptr) (* (( (ptr) gf←c58328)+273)/* var←c51992 */ ))+8) );
to←v10504 = (word) ( *( (fPt) ((* (ptr) pd188 ))))(to←v10504, (* (( (ptr) gf←c58328)+49) ), 0, 32767, pd188);
};
break;
default:
{
W2 var←c01048;
SOURCE(19330, 57)
(* (ptr) (word) &var←c01048 ) = 0;
(* (( (ptr) (word) &var←c01048) + 1) ) = 0;
if (XR←DIntGtI(&var←c01048, &d←v23872)) {
SOURCE(19346, 31)
{
word pd189;
pd189 = (* (( (ptr) (* (( (ptr) gf←c58328)+273)/* var←c51992 */ ))+11) );
to←v10504 = (word) ( *( (fPt) ((* (ptr) pd189 ))))(to←v10504, 45, pd189);
};
SOURCE(19379, 8)
{
W2 D190;
XR←DIntNegI(&D190, &d←v23872);
d←v23872 = D190;
};
};
SOURCE(19390, 29)
{
word pd191;
pd191 = (* (( (ptr) (* (( (ptr) gf←c58328)+273)/* var←c51992 */ ))+8) );
to←v10504 = (word) ( *( (fPt) ((* (ptr) pd191 ))))(to←v10504, (* (( (ptr) gf←c58328)+50) ), 0, 32767, pd191);
};
SOURCE(19421, 171)
if ((precision←v10560 > 9)) {
SOURCE(19445, 50)
{
W2 D192;
W2 D193;
XR←DCardCard(&D193, 1000000000);
XR←DIntDivI(&D192, &d←v23872, &D193);
to←v10504 = (word) AppendDecimalDigits←P1740(to←v10504, XR←CardDIntI(&D192), BCK((precision←v10560 - 9), 10));
};
SOURCE(19497, 42)
{
W2 D194;
W2 D195;
XR←DCardCard(&D195, 1000000000);
XR←DIntModI(&D194, &d←v23872, &D195);
to←v10504 = (word) AppendDecimalDigits←P1740(to←v10504, XR←CardDIntI(&D194), 9);
};
}
else {
SOURCE(19550, 42)
to←v10504 = (word) AppendDecimalDigits←P1740(to←v10504, XR←CardDIntI(&d←v23872), BCK(precision←v10560, 10));
};
SOURCE(19597, 31)
{
word pd196;
pd196 = (* (( (ptr) (* (( (ptr) gf←c58328)+273)/* var←c51992 */ ))+11) );
to←v10504 = (word) ( *( (fPt) ((* (ptr) pd196 ))))(to←v10504, 101, pd196);
};
SOURCE(19630, 48)
to←v10504 = (word) AppendInt←P1440(to←v10504, (exp10←v23900 + precision←v10560), 8, 0);
};
break;
};
};
SOURCE(19683, 12)
return(to←v10504);
}
static word AppendTime←P1860(to←v10716, from←v10744, start←v10772, end←v10800, includeDayOfWeek←v10828, useAMPM←v10856, includeZone←v10884)
word to←v10716;
word from←v10744;
word start←v10772;
word end←v10800;
word includeDayOfWeek←v10828;
word useAMPM←v10856;
word includeZone←v10884;
{
register ptr gf←c58360 = (ptr) &globalframe;
word var←c10940;
/* AppendTime: */
SOURCE(19698, 263)
SOURCE(19854, 107)
{
W11 var←c0446;
W11 var←c52536;
{
word pd197;
pd197 = (* (( (ptr) (* (( (ptr) gf←c58360)+276)/* var←c52568 */ ))+22) );
(void) ( *( (fPt) ((* (ptr) pd197 ))))((word) &var←c0446, from←v10744, pd197);
};
var←c52536 = var←c0446;
{
W17 var←c0447;
(* (ptr) (word) &var←c0447 ) = to←v10716;
(* (W11Pt) (( (ptr) (word) &var←c0447) + 1) ) = var←c52536;
(* (( (ptr) (word) &var←c0447) + 12) ) = start←v10772;
(* (( (ptr) (word) &var←c0447) + 13) ) = end←v10800;
(* (( (ptr) (word) &var←c0447) + 14) ) = includeDayOfWeek←v10828;
(* (( (ptr) (word) &var←c0447) + 15) ) = useAMPM←v10856;
(* (( (ptr) (word) &var←c0447) + 16) ) = includeZone←v10884;
return((word) AppendUnpackedTime←P1920((word) (&var←c0447)));
};
};
}
static word AppendUnpackedTime←P1920(formal←c0455)
word formal←c0455;
{
register ptr gf←c58392 = (ptr) &globalframe;
word var←c11236;
word ok←v23944 = 0;
/* AppendUnpackedTime: */
SOURCE(19966, 1351)
SOURCE(20188, 73)
{
register word p←v24004;
register word noName←c52600;
p←v24004 = (* (( (ptr) formal←c0455)+12)/* start←v11068 */ );
noName←c52600 = (* (( (ptr) formal←c0455)+13)/* end←v11096 */ );
if ((p←v24004 > noName←c52600)) {
goto lab←L100090;
};
lab←L100093: ;
SOURCE(20241, 20)
{
word x198;
word x199;
x198 = (word) &ok←v23944;
x199 = 32 - ((p←v24004 + 25)+1);
(* (ptr) x198 ) = ((* (ptr) x198 ) & ( ~ (1 << x199))) | (((1)) << x199);
};
if ((p←v24004 >= noName←c52600)) {
goto lab←L100090;
};
p←v24004 = (p←v24004 + 1);
goto lab←L100093;
lab←L100090: ;
};
SOURCE(20263, 141)
if ((0 != (* (( (ptr) formal←c0455)+14)/* includeDayOfWeek←v11124 */ ))) {
SOURCE(20290, 50)
{
word var←c52632;
word to←v46492;
word from←v46520;
to←v46492 = (* (ptr) formal←c0455/* to←v11012 */ );
{
word idx200;
from←v46520 = (* (( (ptr) (* (( (ptr) gf←c58392)+5)/* Day←v4512 */ ))+(
idx200 = (* (( (ptr) formal←c0455)+9) ),
BCK(idx200, 7)
)) );
};
{
word pd201;
pd201 = (* (( (ptr) (* (( (ptr) gf←c58392)+273)/* var←c51992 */ ))+8) );
var←c52632 = (word) ( *( (fPt) ((* (ptr) pd201 ))))(to←v46492, from←v46520, 0, 32767, pd201);
};
(* (ptr) formal←c0455/* to←v11012 */ ) = var←c52632;
};
SOURCE(20342, 62)
if ((ok←v23944 != 0)) {
SOURCE(20366, 38)
{
word var←c52696;
word to←v46416;
to←v46416 = (* (ptr) formal←c0455/* to←v11012 */ );
{
word pd202;
pd202 = (* (( (ptr) (* (( (ptr) gf←c58392)+273)/* var←c51992 */ ))+8) );
var←c52696 = (word) ( *( (fPt) ((* (ptr) pd202 ))))(to←v46416, (* (( (ptr) gf←c58392)+51) ), 0, 32767, pd202);
};
(* (ptr) formal←c0455/* to←v11012 */ ) = var←c52696;
};
};
};
SOURCE(20407, 148)
if (ok←v23944 & 040) {
SOURCE(20428, 50)
{
word var←c52760;
word to←v46340;
word from←v46368;
to←v46340 = (* (ptr) formal←c0455/* to←v11012 */ );
{
word idx203;
from←v46368 = (* (( (ptr) (* (( (ptr) gf←c58392)+4)/* Month←v4456 */ ))+(
idx203 = (* (( (ptr) formal←c0455)+2) ),
BCK(idx203, 12)
)) );
};
{
word pd204;
pd204 = (* (( (ptr) (* (( (ptr) gf←c58392)+273)/* var←c51992 */ ))+8) );
var←c52760 = (word) ( *( (fPt) ((* (ptr) pd204 ))))(to←v46340, from←v46368, 0, 32767, pd204);
};
(* (ptr) formal←c0455/* to←v11012 */ ) = var←c52760;
};
SOURCE(20480, 75)
if ((ok←v23944 & 020 || ok←v23944 & 0100) || ok←v23944 & 010) {
SOURCE(20523, 32)
{
word pd205;
pd205 = (* (( (ptr) (* (( (ptr) gf←c58392)+273)/* var←c51992 */ ))+11) );
(* (ptr) formal←c0455/* to←v11012 */ ) = (word) ( *( (fPt) ((* (ptr) pd205 ))))((* (ptr) formal←c0455/* to←v11012 */ ), 32, pd205)
;
};
};
};
SOURCE(20558, 130)
if (ok←v23944 & 020) {
SOURCE(20577, 40)
(* (ptr) formal←c0455/* to←v11012 */ ) = (word) AppendCard←P1500((* (ptr) formal←c0455/* to←v11012 */ ), (* (( (ptr) formal←c0455)+3)
), 8, 0);
SOURCE(20619, 69)
if (ok←v23944 & 0100 || ok←v23944 & 010) {
SOURCE(20650, 38)
{
word var←c52824;
word to←v46264;
to←v46264 = (* (ptr) formal←c0455/* to←v11012 */ );
{
word pd206;
pd206 = (* (( (ptr) (* (( (ptr) gf←c58392)+273)/* var←c51992 */ ))+8) );
var←c52824 = (word) ( *( (fPt) ((* (ptr) pd206 ))))(to←v46264, (* (( (ptr) gf←c58392)+51) ), 0, 32767, pd206);
};
(* (ptr) formal←c0455/* to←v11012 */ ) = var←c52824;
};
};
};
SOURCE(20691, 113)
if (ok←v23944 & 0100) {
SOURCE(20711, 41)
(* (ptr) formal←c0455/* to←v11012 */ ) = (word) AppendCard←P1500((* (ptr) formal←c0455/* to←v11012 */ ), (* (( (ptr) formal←c0455)+1)
), 8, 0);
SOURCE(20754, 50)
if (ok←v23944 & 010) {
SOURCE(20772, 32)
{
word pd207;
pd207 = (* (( (ptr) (* (( (ptr) gf←c58392)+273)/* var←c51992 */ ))+11) );
(* (ptr) formal←c0455/* to←v11012 */ ) = (word) ( *( (fPt) ((* (ptr) pd207 ))))((* (ptr) formal←c0455/* to←v11012 */ ), 32, pd207)
;
};
};
};
SOURCE(20807, 492)
if (ok←v23944 & 010) {
SOURCE(20827, 95)
{
word idx208;
(* (ptr) formal←c0455/* to←v11012 */ ) = (word) AppendCard←P1500((* (ptr) formal←c0455/* to←v11012 */ ), (
idx208 = (word) ( ( (0 != (* (( (ptr) formal←c0455)+15)/* useAMPM←v11152 */ )) ? ((* (( (ptr) formal←c0455)+4) ) > 12) : 0 ) ? ((* (
( (ptr) formal←c0455)+4) ) - 12) : (* (( (ptr) formal←c0455)+4) ) ) ,
SGNCK(idx208)
), 8, 0);
};
SOURCE(20924, 170)
if (ok←v23944 & 04) {
SOURCE(20946, 31)
{
word pd209;
pd209 = (* (( (ptr) (* (( (ptr) gf←c58392)+273)/* var←c51992 */ ))+11) );
(* (ptr) formal←c0455/* to←v11012 */ ) = (word) ( *( (fPt) ((* (ptr) pd209 ))))((* (ptr) formal←c0455/* to←v11012 */ ), 58, pd209)
;
};
SOURCE(20979, 29)
(* (ptr) formal←c0455/* to←v11012 */ ) = (word) Append2←P2100((* (ptr) formal←c0455/* to←v11012 */ ), (* (( (ptr) formal←c0455)+5)
));
SOURCE(21010, 84)
if (ok←v23944 & 02) {
SOURCE(21032, 31)
{
word pd210;
pd210 = (* (( (ptr) (* (( (ptr) gf←c58392)+273)/* var←c51992 */ ))+11) );
(* (ptr) formal←c0455/* to←v11012 */ ) = (word) ( *( (fPt) ((* (ptr) pd210 ))))((* (ptr) formal←c0455/* to←v11012 */ ), 58, pd210)
;
};
SOURCE(21065, 29)
(* (ptr) formal←c0455/* to←v11012 */ ) = (word) Append2←P2100((* (ptr) formal←c0455/* to←v11012 */ ), (* (( (ptr) formal←c0455)+6)
));
};
};
SOURCE(21102, 91)
if ((0 != (* (( (ptr) formal←c0455)+15)/* useAMPM←v11152 */ ))) {
SOURCE(21120, 73)
{
word var←c52888;
word to←v46188;
word from←v46216;
to←v46188 = (* (ptr) formal←c0455/* to←v11012 */ );
from←v46216 = ( ((* (( (ptr) formal←c0455)+4) ) >= 12) ? (* (( (ptr) gf←c58392)+52) ) : (* (( (ptr) gf←c58392)+53) ) ) ;
{
word pd211;
pd211 = (* (( (ptr) (* (( (ptr) gf←c58392)+273)/* var←c51992 */ ))+8) );
var←c52888 = (word) ( *( (fPt) ((* (ptr) pd211 ))))(to←v46188, from←v46216, 0, 32767, pd211);
};
(* (ptr) formal←c0455/* to←v11012 */ ) = var←c52888;
};
};
SOURCE(21198, 101)
if ((0 != (* (( (ptr) formal←c0455)+16)/* includeZone←v11180 */ ))) {
SOURCE(21220, 31)
{
word pd212;
pd212 = (* (( (ptr) (* (( (ptr) gf←c58392)+273)/* var←c51992 */ ))+11) );
(* (ptr) formal←c0455/* to←v11012 */ ) = (word) ( *( (fPt) ((* (ptr) pd212 ))))((* (ptr) formal←c0455/* to←v11012 */ ), 32, pd212)
;
};
SOURCE(21253, 46)
(* (ptr) formal←c0455/* to←v11012 */ ) = (word) AppendZone←P2160((* (ptr) formal←c0455/* to←v11012 */ ), (* (( (ptr) formal←c0455)+7)
), ((* (( (ptr) formal←c0455)+8) ) == 0), 0);
};
};
SOURCE(21307, 10)
return((* (ptr) formal←c0455/* to←v11012 */ ));
}
static word AppendTimeRFC822←P1980(to←v11308, from←v11336, includeSeconds←v11364, includeDayOfWeek←v11392, useUT←v11420)
word to←v11308;
word from←v11336;
word includeSeconds←v11364;
word includeDayOfWeek←v11392;
word useUT←v11420;
{
register ptr gf←c58424 = (ptr) &globalframe;
word var←c11476;
W3 z←v24076;
/* AppendTimeRFC822: */
SOURCE(21322, 455)
SOURCE(21558, 74)
if ((0 != useUT←v11420)) {
z←v24076.f0 = 720;
z←v24076.f1 = 366;
z←v24076.f2 = 0;
}
else {
{
W3 var←c0481;
{
word pd213;
pd213 = (* (( (ptr) (* (( (ptr) gf←c58424)+276)/* var←c52568 */ ))+27) );
(void) ( *( (fPt) ((* (ptr) pd213 ))))((word) (&var←c0481), pd213);
};
z←v24076 = var←c0481;
};
};
SOURCE(21634, 143)
{
W11 var←c0483;
W11 var←c53016;
{
word pd214;
pd214 = (* (( (ptr) (* (( (ptr) gf←c58424)+276)/* var←c52568 */ ))+23) );
(void) ( *( (fPt) ((* (ptr) pd214 ))))((word) &var←c0483, from←v11336, z←v24076, pd214);
};
var←c53016 = var←c0483;
return((word) AppendUnpackedTimeRFC822←P2040(to←v11308, var←c53016, includeSeconds←v11364, includeDayOfWeek←v11392));
};
}
static word AppendUnpackedTimeRFC822←P2040(to←v11548, from←v11576, includeSeconds←v11604, includeDayOfWeek←v11632)
word to←v11548;
W11 from←v11576;
word includeSeconds←v11604;
word includeDayOfWeek←v11632;
{
register ptr gf←c58456 = (ptr) &globalframe;
word var←c11688;
/* AppendUnpackedTimeRFC822: */
SOURCE(21782, 811)
SOURCE(21938, 134)
if ((0 != includeDayOfWeek←v11632)) {
SOURCE(21965, 68)
{
word var←c53048;
word to←v46112;
word from←v46140;
to←v46112 = to←v11548;
{
word idx215;
from←v46140 = (* (( (ptr) (* (( (ptr) gf←c58456)+5)/* Day←v4512 */ ))+(
idx215 = (* (( (ptr) &from←v11576)+8) ),
BCK(idx215, 7)
)) );
};
{
word pd216;
pd216 = (* (( (ptr) (* (( (ptr) gf←c58456)+273)/* var←c51992 */ ))+8) );
var←c53048 = (word) ( *( (fPt) ((* (ptr) pd216 ))))(to←v46112, from←v46140, 0, 3, pd216);
};
to←v11548 = var←c53048;
};
SOURCE(22035, 37)
{
word var←c53112;
word to←v46036;
to←v46036 = to←v11548;
{
word pd217;
pd217 = (* (( (ptr) (* (( (ptr) gf←c58456)+273)/* var←c51992 */ ))+8) );
var←c53112 = (word) ( *( (fPt) ((* (ptr) pd217 ))))(to←v46036, (* (( (ptr) gf←c58456)+51) ), 0, 32767, pd217);
};
to←v11548 = var←c53112;
};
};
SOURCE(22077, 26)
to←v11548 = (word) Append2←P2100(to←v11548, (* (( (ptr) &from←v11576)+2) ));
SOURCE(22105, 31)
{
word pd218;
pd218 = (* (( (ptr) (* (( (ptr) gf←c58456)+273)/* var←c51992 */ ))+11) );
to←v11548 = (word) ( *( (fPt) ((* (ptr) pd218 ))))(to←v11548, 32, pd218);
};
SOURCE(22138, 68)
{
word var←c53176;
word to←v45960;
word from←v45988;
to←v45960 = to←v11548;
{
word idx219;
from←v45988 = (* (( (ptr) (* (( (ptr) gf←c58456)+4)/* Month←v4456 */ ))+(
idx219 = (* (( (ptr) &from←v11576)+1) ),
BCK(idx219, 12)
)) );
};
{
word pd220;
pd220 = (* (( (ptr) (* (( (ptr) gf←c58456)+273)/* var←c51992 */ ))+8) );
var←c53176 = (word) ( *( (fPt) ((* (ptr) pd220 ))))(to←v45960, from←v45988, 0, 3, pd220);
};
to←v11548 = var←c53176;
};
SOURCE(22208, 31)
{
word pd221;
pd221 = (* (( (ptr) (* (( (ptr) gf←c58456)+273)/* var←c51992 */ ))+11) );
to←v11548 = (word) ( *( (fPt) ((* (ptr) pd221 ))))(to←v11548, 32, pd221);
};
SOURCE(22241, 35)
to←v11548 = (word) Append2←P2100(to←v11548, ((* (ptr) &from←v11576 ) % 100));
SOURCE(22278, 31)
{
word pd222;
pd222 = (* (( (ptr) (* (( (ptr) gf←c58456)+273)/* var←c51992 */ ))+11) );
to←v11548 = (word) ( *( (fPt) ((* (ptr) pd222 ))))(to←v11548, 32, pd222);
};
SOURCE(22311, 27)
to←v11548 = (word) Append2←P2100(to←v11548, (* (( (ptr) &from←v11576)+3) ));
SOURCE(22340, 31)
{
word pd223;
pd223 = (* (( (ptr) (* (( (ptr) gf←c58456)+273)/* var←c51992 */ ))+11) );
to←v11548 = (word) ( *( (fPt) ((* (ptr) pd223 ))))(to←v11548, 58, pd223);
};
SOURCE(22373, 29)
to←v11548 = (word) Append2←P2100(to←v11548, (* (( (ptr) &from←v11576)+4) ));
SOURCE(22404, 87)
if ((0 != includeSeconds←v11604)) {
SOURCE(22429, 31)
{
word pd224;
pd224 = (* (( (ptr) (* (( (ptr) gf←c58456)+273)/* var←c51992 */ ))+11) );
to←v11548 = (word) ( *( (fPt) ((* (ptr) pd224 ))))(to←v11548, 58, pd224);
};
SOURCE(22462, 29)
to←v11548 = (word) Append2←P2100(to←v11548, (* (( (ptr) &from←v11576)+5) ));
};
SOURCE(22496, 31)
{
word pd225;
pd225 = (* (( (ptr) (* (( (ptr) gf←c58456)+273)/* var←c51992 */ ))+11) );
to←v11548 = (word) ( *( (fPt) ((* (ptr) pd225 ))))(to←v11548, 32, pd225);
};
SOURCE(22529, 52)
to←v11548 = (word) AppendZone←P2160(to←v11548, (* (( (ptr) &from←v11576)+6) ), ((* (( (ptr) &from←v11576)+7) ) == 0), 1);
SOURCE(22583, 10)
return(to←v11548);
}
static word Append2←P2100(to←v11856, from←v11884)
word to←v11856;
word from←v11884;
{
register ptr gf←c58488 = (ptr) &globalframe;
word var←c11960;
/* Append2: */
SOURCE(23039, 169)
SOURCE(23107, 41)
{
word pd226;
pd226 = (* (( (ptr) (* (( (ptr) gf←c58488)+273)/* var←c51992 */ ))+11) );
to←v11856 = (word) ( *( (fPt) ((* (ptr) pd226 ))))(to←v11856, ((from←v11884 / 10) + 48), pd226);
};
SOURCE(23150, 45)
{
word pd227;
pd227 = (* (( (ptr) (* (( (ptr) gf←c58488)+273)/* var←c51992 */ ))+11) );
to←v11856 = (word) ( *( (fPt) ((* (ptr) pd227 ))))(to←v11856, ((from←v11884 % 10) + 48), pd227);
};
SOURCE(23197, 11)
return(to←v11856);
}
static word AppendZone←P2160(to←v12032, zone←v12060, dst←v12088, useUT←v12116)
word to←v12032;
word zone←v12060;
word dst←v12088;
word useUT←v12116;
{
register ptr gf←c58520 = (ptr) &globalframe;
word var←c12172;
word zoneRope←v24120 = 0;
word nZ←v24204;
/* AppendZone: */
SOURCE(23213, 1065)
SOURCE(23454, 25)
nZ←v24204 = zone←v12060;
SOURCE(23481, 447)
{
word var←c53240;
var←c53240 = zone←v12060;
{
word var←c53272;
if (( (int)var←c53240 == (int)180)) {
SOURCE(23509, 16)
zoneRope←v24120 = (* (( (ptr) gf←c58520)+55) );
goto endif0228;
};
if (( (int)var←c53240 == (int)660)) {
SOURCE(23538, 16)
zoneRope←v24120 = (* (( (ptr) gf←c58520)+56) );
goto endif0228;
};
if (( (int)(
var←c53272 = (var←c53240 - 720)
) == (int)0)) {
SOURCE(23561, 63)
if ((0 != useUT←v12116)) {
zoneRope←v24120 = (* (( (ptr) gf←c58520)+57) );
}
else {
if ((0 != dst←v12088)) {
zoneRope←v24120 = (* (( (ptr) gf←c58520)+58) );
}
else {
zoneRope←v24120 = (* (( (ptr) gf←c58520)+59) );
};
};
goto endif0228;
};
if (( (int)var←c53272 == (int)300)) {
SOURCE(23661, 39)
if ((0 != dst←v12088)) {
zoneRope←v24120 = (* (( (ptr) gf←c58520)+60) );
}
else {
zoneRope←v24120 = (* (( (ptr) gf←c58520)+61) );
};
goto endif0228;
};
if (( (int)var←c53272 == (int)360)) {
SOURCE(23737, 39)
if ((0 != dst←v12088)) {
zoneRope←v24120 = (* (( (ptr) gf←c58520)+62) );
}
else {
zoneRope←v24120 = (* (( (ptr) gf←c58520)+63) );
};
goto endif0228;
};
if (( (int)var←c53272 == (int)420)) {
SOURCE(23813, 39)
if ((0 != dst←v12088)) {
zoneRope←v24120 = (* (( (ptr) gf←c58520)+64) );
}
else {
zoneRope←v24120 = (* (( (ptr) gf←c58520)+65) );
};
goto endif0228;
};
if (( (int)var←c53272 == (int)480)) {
SOURCE(23889, 39)
if ((0 != dst←v12088)) {
zoneRope←v24120 = (* (( (ptr) gf←c58520)+66) );
}
else {
zoneRope←v24120 = (* (( (ptr) gf←c58520)+67) );
};
goto endif0228;
};
endif0228: ;
};
};
SOURCE(23939, 98)
if ( ( (0 != dst←v12088) ? ( (int)(zone←v12060 - 720) >= (int) (word) -660) : 0 ) ) {
SOURCE(24001, 36)
nZ←v24204 = BCK((zone←v12060 - 60), 1442);
};
SOURCE(24039, 187)
if ((zoneRope←v24120 == 0)) {
SOURCE(24062, 164)
{
W2 var←c53304;
W2 var←c53400;
W2 var←c53496;
{
word v←v46568;
v←v46568 = ( ( (int)(zone←v12060 - 720) < (int)0) ? 45 : 43 ) ;
var←c53304.f0 = 3;
var←c53304.f1 = v←v46568;
};
{
word v←v46664;
v←v46664 = (IABS((zone←v12060 - 720)) / 60);
var←c53400.f0 = 4;
var←c53400.f1 = v←v46664;
};
{
word v←v46616;
v←v46616 = (IABS((zone←v12060 - 720)) % 60);
var←c53496.f0 = 4;
var←c53496.f1 = v←v46616;
};
{
word pd229;
pd229 = (* (( (ptr) (* (( (ptr) gf←c58520)+272)/* var←c51672 */ ))+62) );
zoneRope←v24120 = (word) ( *( (fPt) ((* (ptr) pd229 ))))((* (( (ptr) gf←c58520)+68) ), var←c53304, var←c53400, var←c53496, pd229)
;
};
};
};
SOURCE(24228, 37)
{
word pd230;
pd230 = (* (( (ptr) (* (( (ptr) gf←c58520)+273)/* var←c51992 */ ))+10) );
to←v12032 = (word) ( *( (fPt) ((* (ptr) pd230 ))))(to←v12032, zoneRope←v24120, 0, 32767, pd230);
};
SOURCE(24267, 11)
return(to←v12032);
}
static word AppendBool←P2220(to←v12244, from←v12272)
word to←v12244;
word from←v12272;
{
register ptr gf←c58552 = (ptr) &globalframe;
word var←c12328;
/* AppendBool: */
SOURCE(24283, 129)
SOURCE(24357, 55)
{
word var←c53624;
word to←v45884;
word from←v45912;
to←v45884 = to←v12244;
from←v45912 = (word) RopeFromBool←P3000(from←v12272);
{
word pd231;
pd231 = (* (( (ptr) (* (( (ptr) gf←c58552)+273)/* var←c51992 */ ))+8) );
var←c53624 = (word) ( *( (fPt) ((* (ptr) pd231 ))))(to←v45884, from←v45912, 0, 32767, pd231);
};
return(var←c53624);
};
}
static word AppendAtom←P2280(to←v12400, from←v12428, quote←v12456)
word to←v12400;
word from←v12428;
word quote←v12456;
{
register ptr gf←c58584 = (ptr) &globalframe;
word var←c12512;
word pName←v24248;
/* AppendAtom: */
SOURCE(24417, 269)
SOURCE(24504, 70)
{
word tc232;
word pd233;
if ((from←v12428 == 0)) {
tc232 = (word) (* (( (ptr) gf←c58584)+69) );
}
else {
pd233 = (* (( (ptr) (* (( (ptr) gf←c58584)+277)/* var←c53688 */ ))+9) );
tc232 = (word) ( *( (fPt) ((* (ptr) pd233 ))))(from←v12428, pd233);
};
pName←v24248 = tc232;
};
SOURCE(24576, 63)
if ((0 != quote←v12456)) {
SOURCE(24592, 14)
(void) CheckID←P2340(pName←v24248);
SOURCE(24608, 31)
{
word pd234;
pd234 = (* (( (ptr) (* (( (ptr) gf←c58584)+273)/* var←c51992 */ ))+11) );
to←v12400 = (word) ( *( (fPt) ((* (ptr) pd234 ))))(to←v12400, 36, pd234);
};
};
SOURCE(24644, 42)
{
word var←c53752;
word to←v45836;
to←v45836 = to←v12400;
{
word pd235;
pd235 = (* (( (ptr) (* (( (ptr) gf←c58584)+273)/* var←c51992 */ ))+8) );
var←c53752 = (word) ( *( (fPt) ((* (ptr) pd235 ))))(to←v45836, pName←v24248, 0, 32767, pd235);
};
return(var←c53752);
};
}
static void CheckID←P2340(id←v12584)
word id←v12584;
{
register ptr gf←c58616 = (ptr) &globalframe;
/* CheckID: */
SOURCE(24691, 239)
SOURCE(24732, 198)
{
register word i←v24292 = 0;
register word noName←c53816;
{
word pd236;
pd236 = (* (( (ptr) (* (( (ptr) gf←c58616)+269)/* var←c50040 */ ))+14) );
noName←c53816 = (word) ( *( (fPt) ((* (ptr) pd236 ))))(id←v12584, pd236);
};
if (( (int)i←v24292 >= (int)noName←c53816)) {
goto lab←L100107;
};
lab←L100110: ;
SOURCE(24766, 164)
{
word var←c53848;
{
word pd237;
pd237 = (* (( (ptr) (* (( (ptr) gf←c58616)+269)/* var←c50040 */ ))+9) );
var←c53848 = (word) ( *( (fPt) ((* (ptr) pd237 ))))(id←v12584, i←v24292, pd237);
};
if (((var←c53848 - 48) <= 9)) {
SOURCE(24805, 46)
if (( (int)i←v24292 == (int)0)) {
SOURCE(24819, 32)
{
W2 var←c0532;
(* (ptr) (word) &var←c0532 ) = 4;
(* (( (ptr) (word) &var←c0532) + 1) ) = 0;
(void) XR←RaiseError((word) (( (bPt) gf←c58616)+332)/* var←c47096 */ , (word) &var←c0532);
};
};
}
else {
if (((var←c53848 - 65) <= 25) || ((var←c53848 - 97) <= 25)) {
}
else {
SOURCE(24898, 32)
{
W2 var←c0533;
(* (ptr) (word) &var←c0533 ) = 4;
(* (( (ptr) (word) &var←c0533) + 1) ) = 0;
(void) XR←RaiseError((word) (( (bPt) gf←c58616)+332)/* var←c47096 */ , (word) &var←c0533);
};
};
};
};
i←v24292 = (i←v24292 + 1);
if (( (int)i←v24292 < (int)noName←c53816)) {
goto lab←L100110;
};
lab←L100107: ;
};
}
static word AppendRope←P2400(to←v12644, from←v12672, quote←v12700)
word to←v12644;
word from←v12672;
word quote←v12700;
{
register ptr gf←c58648 = (ptr) &globalframe;
word var←c12756;
/* AppendRope: */
SOURCE(24944, 297)
SOURCE(25038, 46)
if ((0 != quote←v12700)) {
SOURCE(25052, 32)
{
word pd238;
pd238 = (* (( (ptr) (* (( (ptr) gf←c58648)+273)/* var←c51992 */ ))+11) );
to←v12644 = (word) ( *( (fPt) ((* (ptr) pd238 ))))(to←v12644, 34, pd238);
};
};
SOURCE(25086, 85)
{
register word i←v24336 = 0;
register word noName←c53880;
{
word pd239;
pd239 = (* (( (ptr) (* (( (ptr) gf←c58648)+269)/* var←c50040 */ ))+14) );
noName←c53880 = (word) ( *( (fPt) ((* (ptr) pd239 ))))(from←v12672, pd239);
};
if (( (int)i←v24336 >= (int)noName←c53880)) {
goto lab←L100111;
};
lab←L100114: ;
SOURCE(25124, 47)
{
word var←c53912;
{
word pd240;
pd240 = (* (( (ptr) (* (( (ptr) gf←c58648)+269)/* var←c50040 */ ))+9) );
var←c53912 = (word) ( *( (fPt) ((* (ptr) pd240 ))))(from←v12672, i←v24336, pd240);
};
to←v12644 = (word) AppendChar←P2460(to←v12644, var←c53912, 0);
};
i←v24336 = (i←v24336 + 1);
if (( (int)i←v24336 < (int)noName←c53880)) {
goto lab←L100114;
};
lab←L100111: ;
};
SOURCE(25182, 46)
if ((0 != quote←v12700)) {
SOURCE(25196, 32)
{
word pd241;
pd241 = (* (( (ptr) (* (( (ptr) gf←c58648)+273)/* var←c51992 */ ))+11) );
to←v12644 = (word) ( *( (fPt) ((* (ptr) pd241 ))))(to←v12644, 34, pd241);
};
};
SOURCE(25230, 11)
return(to←v12644);
}
static word AppendChar←P2460(to←v12828, from←v12856, quote←v12884)
word to←v12828;
word from←v12856;
word quote←v12884;
{
register ptr gf←c58680 = (ptr) &globalframe;
word var←c12940;
/* AppendChar: */
SOURCE(25246, 295)
SOURCE(25340, 46)
if ((0 != quote←v12884)) {
SOURCE(25354, 32)
{
word pd242;
pd242 = (* (( (ptr) (* (( (ptr) gf←c58680)+273)/* var←c51992 */ ))+11) );
to←v12828 = (word) ( *( (fPt) ((* (ptr) pd242 ))))(to←v12828, 39, pd242);
};
};
SOURCE(25388, 153)
{
word pd243;
if ( ( ( ( ((from←v12856 - 32) <= 94) ? (from←v12856 != 92) : 0 ) ? (from←v12856 != 34) : 0 ) ? (from←v12856 != 39) : 0 ) ) {
pd243 = (* (( (ptr) (* (( (ptr) gf←c58680)+273)/* var←c51992 */ ))+11) );
return((word) ( *( (fPt) ((* (ptr) pd243 ))))(to←v12828, from←v12856, pd243));
}
else {
return((word) AppendExtendedChar←P2520(to←v12828, from←v12856));
};
};
}
static word AppendExtendedChar←P2520(to←v13012, c←v13040)
word to←v13012;
word c←v13040;
{
register ptr gf←c58712 = (ptr) &globalframe;
word var←c13096;
/* AppendExtendedChar: */
SOURCE(25546, 676)
SOURCE(25618, 586)
if (((c←v13040 - 32) <= 94)) {
SOURCE(25651, 70)
switch (c←v13040) {
case 92: case 34: case 39:
SOURCE(25689, 32)
{
word pd244;
pd244 = (* (( (ptr) (* (( (ptr) gf←c58712)+273)/* var←c51992 */ ))+11) );
to←v13012 = (word) ( *( (fPt) ((* (ptr) pd244 ))))(to←v13012, 92, pd244);
};
break;
};
SOURCE(25723, 30)
{
word pd245;
pd245 = (* (( (ptr) (* (( (ptr) gf←c58712)+273)/* var←c51992 */ ))+11) );
to←v13012 = (word) ( *( (fPt) ((* (ptr) pd245 ))))(to←v13012, c←v13040, pd245);
};
}
else {
SOURCE(25764, 32)
{
word pd246;
pd246 = (* (( (ptr) (* (( (ptr) gf←c58712)+273)/* var←c51992 */ ))+11) );
to←v13012 = (word) ( *( (fPt) ((* (ptr) pd246 ))))(to←v13012, 92, pd246);
};
SOURCE(25798, 406)
{
word var←c53976;
var←c53976 = c←v13040;
if ((var←c53976 == 10)) {
SOURCE(25819, 31)
{
word pd248;
pd248 = (* (( (ptr) (* (( (ptr) gf←c58712)+273)/* var←c51992 */ ))+11) );
to←v13012 = (word) ( *( (fPt) ((* (ptr) pd248 ))))(to←v13012, 110, pd248);
};
goto endif0247;
};
if ((var←c53976 == 9)) {
SOURCE(25859, 31)
{
word pd249;
pd249 = (* (( (ptr) (* (( (ptr) gf←c58712)+273)/* var←c51992 */ ))+11) );
to←v13012 = (word) ( *( (fPt) ((* (ptr) pd249 ))))(to←v13012, 116, pd249);
};
goto endif0247;
};
if ((var←c53976 == 8)) {
SOURCE(25899, 31)
{
word pd250;
pd250 = (* (( (ptr) (* (( (ptr) gf←c58712)+273)/* var←c51992 */ ))+11) );
to←v13012 = (word) ( *( (fPt) ((* (ptr) pd250 ))))(to←v13012, 98, pd250);
};
goto endif0247;
};
if ((var←c53976 == 12)) {
SOURCE(25939, 31)
{
word pd251;
pd251 = (* (( (ptr) (* (( (ptr) gf←c58712)+273)/* var←c51992 */ ))+11) );
to←v13012 = (word) ( *( (fPt) ((* (ptr) pd251 ))))(to←v13012, 102, pd251);
};
goto endif0247;
};
if ((var←c53976 == 10)) {
SOURCE(25979, 31)
{
word pd252;
pd252 = (* (( (ptr) (* (( (ptr) gf←c58712)+273)/* var←c51992 */ ))+11) );
to←v13012 = (word) ( *( (fPt) ((* (ptr) pd252 ))))(to←v13012, 108, pd252);
};
goto endif0247;
};
SOURCE(26025, 55)
{
word pd253;
pd253 = (* (( (ptr) (* (( (ptr) gf←c58712)+273)/* var←c51992 */ ))+11) );
to←v13012 = (word) ( *( (fPt) ((* (ptr) pd253 ))))(to←v13012, ((c←v13040 >> 6) + 48), pd253);
};
SOURCE(26083, 61)
{
word pd254;
pd254 = (* (( (ptr) (* (( (ptr) gf←c58712)+273)/* var←c51992 */ ))+11) );
to←v13012 = (word) ( *( (fPt) ((* (ptr) pd254 ))))(to←v13012, (((c←v13040 & 077) >> 3) + 48), pd254);
};
SOURCE(26147, 57)
{
word pd255;
pd255 = (* (( (ptr) (* (( (ptr) gf←c58712)+273)/* var←c51992 */ ))+11) );
to←v13012 = (word) ( *( (fPt) ((* (ptr) pd255 ))))(to←v13012, ((c←v13040 & 7) + 48), pd255);
};
goto endif0247;
endif0247: ;
};
};
SOURCE(26211, 11)
return(to←v13012);
}
static word RopeFromInt←P2580(from←v13168, base←v13196, showRadix←v13224)
word from←v13168;
word base←v13196;
word showRadix←v13224;
{
register ptr gf←c58744 = (ptr) &globalframe;
word var←c13268;
word scratch←v24380;
word result←v24408;
/* RopeFromInt: */
SOURCE(26227, 267)
SOURCE(26317, 46)
{
word pd256;
pd256 = (* (( (ptr) (* (( (ptr) gf←c58744)+273)/* var←c51992 */ ))+6) );
scratch←v24380 = (word) ( *( (fPt) ((* (ptr) pd256 ))))(100, pd256);
};
SOURCE(26365, 79)
{
word var←c54008;
var←c54008 = (word) AppendInt←P1440(scratch←v24380, from←v13168, base←v13196, showRadix←v13224);
{
word pd257;
pd257 = (* (( (ptr) (* (( (ptr) gf←c58744)+269)/* var←c50040 */ ))+35) );
result←v24408 = (word) ( *( (fPt) ((* (ptr) pd257 ))))(var←c54008, 0, 32767, pd257);
};
};
SOURCE(26446, 31)
{
word pd258;
pd258 = (* (( (ptr) (* (( (ptr) gf←c58744)+273)/* var←c51992 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd258 ))))(scratch←v24380, pd258);
};
SOURCE(26479, 15)
return(result←v24408);
}
static word RopeFromCard←P2640(from←v13328, base←v13356, showRadix←v13384)
word from←v13328;
word base←v13356;
word showRadix←v13384;
{
register ptr gf←c58776 = (ptr) &globalframe;
word var←c13428;
word scratch←v24464;
word result←v24492;
/* RopeFromCard: */
SOURCE(26499, 270)
SOURCE(26591, 46)
{
word pd259;
pd259 = (* (( (ptr) (* (( (ptr) gf←c58776)+273)/* var←c51992 */ ))+6) );
scratch←v24464 = (word) ( *( (fPt) ((* (ptr) pd259 ))))(100, pd259);
};
SOURCE(26639, 80)
{
word var←c54040;
var←c54040 = (word) AppendCard←P1500(scratch←v24464, from←v13328, base←v13356, showRadix←v13384);
{
word pd260;
pd260 = (* (( (ptr) (* (( (ptr) gf←c58776)+269)/* var←c50040 */ ))+35) );
result←v24492 = (word) ( *( (fPt) ((* (ptr) pd260 ))))(var←c54040, 0, 32767, pd260);
};
};
SOURCE(26721, 31)
{
word pd261;
pd261 = (* (( (ptr) (* (( (ptr) gf←c58776)+273)/* var←c51992 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd261 ))))(scratch←v24464, pd261);
};
SOURCE(26754, 15)
return(result←v24492);
}
static word RopeFromReal←P2700(from←v13488, precision←v13516, useE←v13544)
word from←v13488;
word precision←v13516;
word useE←v13544;
{
register ptr gf←c58808 = (ptr) &globalframe;
word var←c13588;
word scratch←v24548;
word result←v24576;
/* RopeFromReal: */
SOURCE(26774, 279)
SOURCE(26875, 46)
{
word pd262;
pd262 = (* (( (ptr) (* (( (ptr) gf←c58808)+273)/* var←c51992 */ ))+6) );
scratch←v24548 = (word) ( *( (fPt) ((* (ptr) pd262 ))))(100, pd262);
};
SOURCE(26923, 80)
{
word var←c54072;
var←c54072 = (word) AppendReal←P1680(scratch←v24548, from←v13488, precision←v13516, useE←v13544);
{
word pd263;
pd263 = (* (( (ptr) (* (( (ptr) gf←c58808)+269)/* var←c50040 */ ))+35) );
result←v24576 = (word) ( *( (fPt) ((* (ptr) pd263 ))))(var←c54072, 0, 32767, pd263);
};
};
SOURCE(27005, 31)
{
word pd264;
pd264 = (* (( (ptr) (* (( (ptr) gf←c58808)+273)/* var←c51992 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd264 ))))(scratch←v24548, pd264);
};
SOURCE(27038, 15)
return(result←v24576);
}
static word RopeFromDReal←P2760(from←v13648, precision←v13676, useE←v13704)
W2 from←v13648;
word precision←v13676;
word useE←v13704;
{
register ptr gf←c58840 = (ptr) &globalframe;
word var←c13748;
word scratch←v24632;
word result←v24660;
/* RopeFromDReal: */
SOURCE(27058, 283)
SOURCE(27162, 46)
{
word pd265;
pd265 = (* (( (ptr) (* (( (ptr) gf←c58840)+273)/* var←c51992 */ ))+6) );
scratch←v24632 = (word) ( *( (fPt) ((* (ptr) pd265 ))))(100, pd265);
};
SOURCE(27210, 81)
{
word var←c54104;
var←c54104 = (word) AppendDReal←P1800(scratch←v24632, from←v13648, precision←v13676, useE←v13704);
{
word pd266;
pd266 = (* (( (ptr) (* (( (ptr) gf←c58840)+269)/* var←c50040 */ ))+35) );
result←v24660 = (word) ( *( (fPt) ((* (ptr) pd266 ))))(var←c54104, 0, 32767, pd266);
};
};
SOURCE(27293, 31)
{
word pd267;
pd267 = (* (( (ptr) (* (( (ptr) gf←c58840)+273)/* var←c51992 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd267 ))))(scratch←v24632, pd267);
};
SOURCE(27326, 15)
return(result←v24660);
}
static word RopeFromTime←P2820(from←v13808, start←v13836, end←v13864, includeDayOfWeek←v13892, useAMPM←v13920, includeZone←v13948)
word from←v13808;
word start←v13836;
word end←v13864;
word includeDayOfWeek←v13892;
word useAMPM←v13920;
word includeZone←v13948;
{
register ptr gf←c58872 = (ptr) &globalframe;
word var←c13992;
word scratch←v24716;
word result←v24744;
/* RopeFromTime: */
SOURCE(27346, 384)
SOURCE(27491, 46)
{
word pd268;
pd268 = (* (( (ptr) (* (( (ptr) gf←c58872)+273)/* var←c51992 */ ))+6) );
scratch←v24716 = (word) ( *( (fPt) ((* (ptr) pd268 ))))(100, pd268);
};
SOURCE(27539, 141)
{
word var←c54136;
{
W11 var←c54168;
{
word pd269;
pd269 = (* (( (ptr) (* (( (ptr) gf←c58872)+276)/* var←c52568 */ ))+22) );
(void) ( *( (fPt) ((* (ptr) pd269 ))))((word) &var←c54168, from←v13808, pd269);
};
{
W17 var←c0589;
(* (ptr) (word) &var←c0589 ) = scratch←v24716;
(* (W11Pt) (( (ptr) (word) &var←c0589) + 1) ) = var←c54168;
(* (( (ptr) (word) &var←c0589) + 12) ) = start←v13836;
(* (( (ptr) (word) &var←c0589) + 13) ) = end←v13864;
(* (( (ptr) (word) &var←c0589) + 14) ) = includeDayOfWeek←v13892;
(* (( (ptr) (word) &var←c0589) + 15) ) = useAMPM←v13920;
(* (( (ptr) (word) &var←c0589) + 16) ) = includeZone←v13948;
var←c54136 = (word) AppendUnpackedTime←P1920((word) (&var←c0589));
};
};
{
word pd270;
pd270 = (* (( (ptr) (* (( (ptr) gf←c58872)+269)/* var←c50040 */ ))+35) );
result←v24744 = (word) ( *( (fPt) ((* (ptr) pd270 ))))(var←c54136, 0, 32767, pd270);
};
};
SOURCE(27682, 31)
{
word pd271;
pd271 = (* (( (ptr) (* (( (ptr) gf←c58872)+273)/* var←c51992 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd271 ))))(scratch←v24716, pd271);
};
SOURCE(27715, 15)
return(result←v24744);
}
static word RopeFromUnpackedTime←P2880(from←v14052, start←v14080, end←v14108, includeDayOfWeek←v14136, useAMPM←v14164, includeZone←v14192)
W11 from←v14052;
word start←v14080;
word end←v14108;
word includeDayOfWeek←v14136;
word useAMPM←v14164;
word includeZone←v14192;
{
register ptr gf←c58904 = (ptr) &globalframe;
word var←c14236;
word scratch←v24800;
word result←v24828;
/* RopeFromUnpackedTime: */
SOURCE(27735, 379)
SOURCE(27893, 46)
{
word pd272;
pd272 = (* (( (ptr) (* (( (ptr) gf←c58904)+273)/* var←c51992 */ ))+6) );
scratch←v24800 = (word) ( *( (fPt) ((* (ptr) pd272 ))))(100, pd272);
};
SOURCE(27941, 123)
{
word var←c54200;
{
W17 var←c0600;
(* (ptr) (word) &var←c0600 ) = scratch←v24800;
(* (W11Pt) (( (ptr) (word) &var←c0600) + 1) ) = from←v14052;
(* (( (ptr) (word) &var←c0600) + 12) ) = start←v14080;
(* (( (ptr) (word) &var←c0600) + 13) ) = end←v14108;
(* (( (ptr) (word) &var←c0600) + 14) ) = includeDayOfWeek←v14136;
(* (( (ptr) (word) &var←c0600) + 15) ) = useAMPM←v14164;
(* (( (ptr) (word) &var←c0600) + 16) ) = includeZone←v14192;
var←c54200 = (word) AppendUnpackedTime←P1920((word) (&var←c0600));
};
{
word pd273;
pd273 = (* (( (ptr) (* (( (ptr) gf←c58904)+269)/* var←c50040 */ ))+35) );
result←v24828 = (word) ( *( (fPt) ((* (ptr) pd273 ))))(var←c54200, 0, 32767, pd273);
};
};
SOURCE(28066, 31)
{
word pd274;
pd274 = (* (( (ptr) (* (( (ptr) gf←c58904)+273)/* var←c51992 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd274 ))))(scratch←v24800, pd274);
};
SOURCE(28099, 15)
return(result←v24828);
}
static word RopeFromTimeRFC822←P2940(from←v14296, includeSeconds←v14324, includeDayOfWeek←v14352, useUT←v14380)
word from←v14296;
word includeSeconds←v14324;
word includeDayOfWeek←v14352;
word useUT←v14380;
{
register ptr gf←c58936 = (ptr) &globalframe;
word var←c14424;
word scratch←v24884;
word result←v24912;
/* RopeFromTimeRFC822: */
SOURCE(28119, 420)
SOURCE(28280, 46)
{
word pd275;
pd275 = (* (( (ptr) (* (( (ptr) gf←c58936)+273)/* var←c51992 */ ))+6) );
scratch←v24884 = (word) ( *( (fPt) ((* (ptr) pd275 ))))(100, pd275);
};
SOURCE(28328, 161)
{
word var←c54232;
var←c54232 = (word) AppendTimeRFC822←P1980(scratch←v24884, from←v14296, includeSeconds←v14324, includeDayOfWeek←v14352, useUT←v14380)
;
{
word pd276;
pd276 = (* (( (ptr) (* (( (ptr) gf←c58936)+269)/* var←c50040 */ ))+35) );
result←v24912 = (word) ( *( (fPt) ((* (ptr) pd276 ))))(var←c54232, 0, 32767, pd276);
};
};
SOURCE(28491, 31)
{
word pd277;
pd277 = (* (( (ptr) (* (( (ptr) gf←c58936)+273)/* var←c51992 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd277 ))))(scratch←v24884, pd277);
};
SOURCE(28524, 15)
return(result←v24912);
}
static word RopeFromBool←P3000(from←v14484)
word from←v14484;
{
register ptr gf←c58968 = (ptr) &globalframe;
word var←c14528;
/* RopeFromBool: */
SOURCE(28544, 104)
SOURCE(28607, 41)
if ((0 != from←v14484)) {
return((* (( (ptr) gf←c58968)+70) ));
}
else {
return((* (( (ptr) gf←c58968)+71) ));
};
}
static word RopeFromAtom←P3060(from←v14588, quote←v14616)
word from←v14588;
word quote←v14616;
{
register ptr gf←c59000 = (ptr) &globalframe;
word var←c14660;
word pName←v24968;
/* RopeFromAtom: */
SOURCE(28654, 226)
SOURCE(28726, 70)
{
word tc278;
word pd279;
if ((from←v14588 == 0)) {
tc278 = (word) (* (( (ptr) gf←c59000)+69) );
}
else {
pd279 = (* (( (ptr) (* (( (ptr) gf←c59000)+277)/* var←c53688 */ ))+9) );
tc278 = (word) ( *( (fPt) ((* (ptr) pd279 ))))(from←v14588, pd279);
};
pName←v24968 = tc278;
};
SOURCE(28798, 32)
if ((0 == quote←v14616)) {
SOURCE(28816, 14)
return(pName←v24968);
};
SOURCE(28832, 14)
(void) CheckID←P2340(pName←v24968);
SOURCE(28848, 32)
{
word pd280;
pd280 = (* (( (ptr) (* (( (ptr) gf←c59000)+269)/* var←c50040 */ ))+6) );
return((word) ( *( (fPt) ((* (ptr) pd280 ))))((* (( (ptr) gf←c59000)+72) ), pName←v24968, pd280));
};
}
static word RopeFromRope←P3120(from←v14720, quote←v14748)
word from←v14720;
word quote←v14748;
{
register ptr gf←c59032 = (ptr) &globalframe;
word var←c14792;
word scratch←v25012;
word result←v25040;
/* RopeFromRope: */
SOURCE(28885, 258)
SOURCE(28962, 59)
{
word var←c54296;
{
word pd281;
word idx282;
pd281 = (* (( (ptr) (* (( (ptr) gf←c59032)+269)/* var←c50040 */ ))+14) );
var←c54296 = (
idx282 = (word) ((word) ( *( (fPt) ((* (ptr) pd281 ))))(from←v14720, pd281) + 10),
BCK(idx282, 32768)
);
};
{
word pd283;
pd283 = (* (( (ptr) (* (( (ptr) gf←c59032)+273)/* var←c51992 */ ))+6) );
scratch←v25012 = (word) ( *( (fPt) ((* (ptr) pd283 ))))(var←c54296, pd283);
};
};
SOURCE(29023, 70)
{
word var←c54328;
var←c54328 = (word) AppendRope←P2400(scratch←v25012, from←v14720, quote←v14748);
{
word pd284;
pd284 = (* (( (ptr) (* (( (ptr) gf←c59032)+269)/* var←c50040 */ ))+35) );
result←v25040 = (word) ( *( (fPt) ((* (ptr) pd284 ))))(var←c54328, 0, 32767, pd284);
};
};
SOURCE(29095, 31)
{
word pd285;
pd285 = (* (( (ptr) (* (( (ptr) gf←c59032)+273)/* var←c51992 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd285 ))))(scratch←v25012, pd285);
};
SOURCE(29128, 15)
return(result←v25040);
}
static word RopeFromChar←P3180(from←v14852, quote←v14880)
word from←v14852;
word quote←v14880;
{
register ptr gf←c59064 = (ptr) &globalframe;
word var←c14924;
word scratch←v25096;
word result←v25124;
/* RopeFromChar: */
SOURCE(29148, 243)
SOURCE(29225, 44)
{
word pd286;
pd286 = (* (( (ptr) (* (( (ptr) gf←c59064)+273)/* var←c51992 */ ))+6) );
scratch←v25096 = (word) ( *( (fPt) ((* (ptr) pd286 ))))(5, pd286);
};
SOURCE(29271, 70)
{
word var←c54360;
var←c54360 = (word) AppendChar←P2460(scratch←v25096, from←v14852, quote←v14880);
{
word pd287;
pd287 = (* (( (ptr) (* (( (ptr) gf←c59064)+269)/* var←c50040 */ ))+35) );
result←v25124 = (word) ( *( (fPt) ((* (ptr) pd287 ))))(var←c54360, 0, 32767, pd287);
};
};
SOURCE(29343, 31)
{
word pd288;
pd288 = (* (( (ptr) (* (( (ptr) gf←c59064)+273)/* var←c51992 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd288 ))))(scratch←v25096, pd288);
};
SOURCE(29376, 15)
return(result←v25124);
}
static word FtoRope←P3240(r←v14984, afterDot←v15012)
word r←v14984;
word afterDot←v15012;
{
register ptr gf←c59096 = (ptr) &globalframe;
word rope←v15076;
word scratch←v25180;
/* FtoRope: */
SOURCE(29446, 238)
SOURCE(29446, 238)
rope←v15076 = 0;
SOURCE(29542, 53)
{
word pd289;
pd289 = (* (( (ptr) (* (( (ptr) gf←c59096)+273)/* var←c51992 */ ))+6) );
scratch←v25180 = (word) ( *( (fPt) ((* (ptr) pd289 ))))(26, pd289);
};
SOURCE(29597, 54)
{
word var←c54392;
var←c54392 = (word) AppendF←P3300(scratch←v25180, r←v14984, afterDot←v15012);
{
word pd290;
pd290 = (* (( (ptr) (* (( (ptr) gf←c59096)+269)/* var←c50040 */ ))+35) );
rope←v15076 = (word) ( *( (fPt) ((* (ptr) pd290 ))))(var←c54392, 0, 32767, pd290);
};
};
SOURCE(29653, 31)
{
word pd291;
pd291 = (* (( (ptr) (* (( (ptr) gf←c59096)+273)/* var←c51992 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd291 ))))(scratch←v25180, pd291);
};
SOURCE(29446, 238)
return(rope←v15076);
}
static word AppendF←P3300(buffer←v15136, r←v15164, afterDot←v15192)
word buffer←v15136;
word r←v15164;
word afterDot←v15192;
{
register ptr gf←c59128 = (ptr) &globalframe;
word var←c15268;
/* AppendF: */
SOURCE(29690, 1919)
SOURCE(29800, 1809)
SOURCE(29802, 22)
{
word nType←v25236;
word fract←v25264;
word exp10←v25292;
word places←v25320;
SOURCE(29854, 26)
places←v25320 = afterDot←v15192;
SOURCE(29882, 67)
{
W3 var←c54424;
{
word pd292;
pd292 = (* (( (ptr) (* (( (ptr) gf←c59128)+270)/* var←c50712 */ ))+10) );
(void) ( *( (fPt) ((* (ptr) pd292 ))))((word) &var←c54424, r←v15164, 9, pd292);
};
exp10←v25292 = var←c54424.f2;
fract←v25264 = var←c54424.f1;
nType←v25236 = var←c54424.f0;
};
SOURCE(29951, 1469)
{
word var←c54456;
var←c54456 = nType←v25236;
switch (var←c54456) {
case 0:
SOURCE(29979, 1148)
{
word fudge←v25364;
word abs←v25392;
SOURCE(29981, 43)
{
word pd293;
pd293 = (* (( (ptr) (* (( (ptr) gf←c59128)+270)/* var←c50712 */ ))+9) );
fudge←v25364 = (word) ( *( (fPt) ((* (ptr) pd293 ))))(5, (INEG(places←v25320) - 1), pd293);
};
SOURCE(30026, 18)
{
float tf294;
word x295;
float tf296;
abs←v25392 = (
tf296 = FABS((
/*1*/ x295 = r←v15164, *(float*)&x295
/*1*/ ), tf294), *(word*)&tf296
);
};
SOURCE(30046, 61)
{
word x297;
word x298;
if (((
x297 = abs←v25392, *(float*)&x297
) < (
x298 = fudge←v25364, *(float*)&x298
))) {
SOURCE(30068, 39)
{
word pd299;
pd299 = (* (( (ptr) (* (( (ptr) gf←c59128)+273)/* var←c51992 */ ))+11) );
buffer←v15136 = (word) ( *( (fPt) ((* (ptr) pd299 ))))(buffer←v15136, 48, pd299);
};
SOURCE(30109, 14)
goto lab←L100115;
};
};
SOURCE(30126, 75)
if (( (int)fract←v25264 < (int)0)) {
SOURCE(30146, 39)
{
word pd300;
pd300 = (* (( (ptr) (* (( (ptr) gf←c59128)+273)/* var←c51992 */ ))+11) );
buffer←v15136 = (word) ( *( (fPt) ((* (ptr) pd300 ))))(buffer←v15136, 45, pd300);
};
SOURCE(30187, 14)
fract←v25264 = INEG(fract←v25264);
};
SOURCE(30206, 918)
{
word temp←v25436;
word tpos←v25464 = 0;
word card←v25492;
word error←v25520 = 1;
SOURCE(30208, 74)
{
word pd301;
pd301 = (* (( (ptr) (* (( (ptr) gf←c59128)+273)/* var←c51992 */ ))+6) );
temp←v25436 = (word) ( *( (fPt) ((* (ptr) pd301 ))))((afterDot←v15192 + 13), pd301);
};
SOURCE(30299, 18)
card←v25492 = SGNCK(fract←v25264);
SOURCE(30351, 405)
lab←L100118: ;
SOURCE(30354, 402)
{
word var←c54488;
var←c54488 = (places←v25320 + exp10←v25292);
if (( (int)var←c54488 < (int)0)) {
SOURCE(30386, 251)
{
/*1*/ word thisDigit←v25676;
SOURCE(30388, 41)
/*1*/ {
/*1*/ word var←c54520;
/*1*/ word n←v46808;
/*1*/ n←v46808 = (card←v25492 % 10);
/*1*/ var←c54520 = ( (((unsigned)n←v46808 << 16) >> 16) );
/*1*/ thisDigit←v25676 = BCK(var←c54520, 10);
/*1*/ };
SOURCE(30431, 14)
/*1*/ card←v25492 = (card←v25492 / 10);
SOURCE(30447, 17)
/*1*/ exp10←v25292 = (exp10←v25292 + 1);
SOURCE(30466, 169)
/*1*/ {
/*1*/ word var←c54552;
/*1*/ var←c54552 = thisDigit←v25676;
/*1*/ if ((var←c54552 == 0)) {
/*1*/ goto endif0302;
/*1*/ };
/*1*/ if ((var←c54552 > 5)) {
SOURCE(30507, 15)
/*1*/ card←v25492 = (card←v25492 + 1);
SOURCE(30524, 10)
/*1*/ error←v25520 = 0;
/*1*/ goto endif0302;
/*1*/ };
/*1*/ if ((var←c54552 == 5)) {
SOURCE(30544, 65)
/*1*/ if ((error←v25520 == 0)) {
SOURCE(30563, 18)
/*1*/ error←v25520 = 2;
/*1*/ }
/*1*/ else {
SOURCE(30582, 15)
/*1*/ card←v25492 = (card←v25492 + 1);
SOURCE(30599, 10)
/*1*/ error←v25520 = 0;
/*1*/ };
/*1*/ goto endif0302;
/*1*/ };
SOURCE(30623, 12)
/*1*/ error←v25520 = 2;
/*1*/ goto endif0302;
/*1*/ endif0302: ;
/*1*/ };
/*1*/ };
}
else {
if (( (int)var←c54488 > (int)0)) {
SOURCE(30649, 15)
/*1*/ {
/*1*/ word limit303;
/*1*/ (* ((( (bPt) temp←v25436)+4)+(
/*1*/ limit303 = (word) (* (( (hPt) temp←v25436)+1) ),
/*1*/ BCK(tpos←v25464, limit303)
/*1*/ )) ) = 48;
/*1*/ };
SOURCE(30666, 15)
/*1*/ tpos←v25464 = (tpos←v25464 + 1);
SOURCE(30683, 19)
/*1*/ places←v25320 = (places←v25320 - 1);
SOURCE(30704, 52)
/*1*/ if (( (int)places←v25320 == (int)0)) {
SOURCE(30724, 15)
/*1*/ {
/*1*/ word limit304;
/*1*/ (* ((( (bPt) temp←v25436)+4)+(
/*1*/ limit304 = (word) (* (( (hPt) temp←v25436)+1) ),
/*1*/ BCK(tpos←v25464, limit304)
/*1*/ )) ) = 46;
/*1*/ };
SOURCE(30741, 15)
/*1*/ tpos←v25464 = (tpos←v25464 + 1);
/*1*/ };
/*1*/ }
else {
SOURCE(30773, 4)
/*1*/ goto lab←L100117;
/*1*/ };
};
};
goto lab←L100118;
lab←L100117: ;
SOURCE(30788, 204)
lab←L100122: ;
{
word var←c54584;
word n←v46760;
SOURCE(30791, 38)
{
word limit305;
n←v46760 = (card←v25492 % 10);
var←c54584 = ( (((unsigned)n←v46760 << 16) >> 16) );
(* ((( (bPt) temp←v25436)+4)+(
/*1*/ limit305 = (word) (* (( (hPt) temp←v25436)+1) ),
/*1*/ BCK(tpos←v25464, limit305)
/*1*/ )) ) = BCK((var←c54584 + 48), 256);
};
SOURCE(30831, 15)
tpos←v25464 = (tpos←v25464 + 1);
SOURCE(30848, 16)
card←v25492 = (card←v25492 / 10);
SOURCE(30866, 17)
exp10←v25292 = (exp10←v25292 + 1);
SOURCE(30885, 19)
places←v25320 = (places←v25320 - 1);
SOURCE(30906, 52)
if (( (int)places←v25320 == (int)0)) {
SOURCE(30926, 15)
{
/*1*/ word limit306;
/*1*/ (* ((( (bPt) temp←v25436)+4)+(
/*1*/ limit306 = (word) (* (( (hPt) temp←v25436)+1) ),
/*1*/ BCK(tpos←v25464, limit306)
/*1*/ )) ) = 46;
/*1*/ };
SOURCE(30943, 15)
tpos←v25464 = (tpos←v25464 + 1);
};
SOURCE(30961, 31)
if ( ( (card←v25492 == 0) ? ( (int)exp10←v25292 > (int)0) : 0 ) ) {
SOURCE(30992, 4)
goto lab←L100121;
};
};
goto lab←L100122;
lab←L100121: ;
SOURCE(31007, 76)
lab←L100126: ;
if ((tpos←v25464 > 0)) {
}
else {
goto lab←L100124;
};
SOURCE(31025, 58)
{
word var←c54616;
word var←c01049;
tpos←v25464 = SGNCK((tpos←v25464 - 1));
var←c54616 = tpos←v25464;
{
word limit307;
var←c01049 = (word) (* ((( (bPt) temp←v25436)+4)+(
/*1*/ limit307 = (word) (* (( (hPt) temp←v25436)+1) ),
/*1*/ BCK(var←c54616, limit307)
/*1*/ )) );
};
{
word pd308;
pd308 = (* (( (ptr) (* (( (ptr) gf←c59128)+273)/* var←c51992 */ ))+11) );
buffer←v15136 = (word) ( *( (fPt) ((* (ptr) pd308 ))))(buffer←v15136, var←c01049, pd308);
};
};
goto lab←L100126;
lab←L100124: ;
SOURCE(31094, 28)
{
word pd309;
pd309 = (* (( (ptr) (* (( (ptr) gf←c59128)+273)/* var←c51992 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd309 ))))(temp←v25436, pd309);
};
};
};
break;
case 1:
SOURCE(31140, 39)
{
word pd310;
pd310 = (* (( (ptr) (* (( (ptr) gf←c59128)+273)/* var←c51992 */ ))+11) );
buffer←v15136 = (word) ( *( (fPt) ((* (ptr) pd310 ))))(buffer←v15136, 48, pd310);
};
SOURCE(31181, 14)
goto lab←L100115;
case 2:
SOURCE(31212, 73)
{
word pd311;
pd311 = (* (( (ptr) (* (( (ptr) gf←c59128)+273)/* var←c51992 */ ))+10) );
buffer←v15136 = (word) ( *( (fPt) ((* (ptr) pd311 ))))(buffer←v15136, ( ( (int)fract←v25264 < (int)0) ? (* (( (ptr) gf←c59128)+73)
) : (* (( (ptr) gf←c59128)+74) ) ) , 0, 32767, pd311);
};
break;
case 3:
SOURCE(31296, 39)
{
word pd312;
pd312 = (* (( (ptr) (* (( (ptr) gf←c59128)+273)/* var←c51992 */ ))+11) );
buffer←v15136 = (word) ( *( (fPt) ((* (ptr) pd312 ))))(buffer←v15136, 42, pd312);
};
SOURCE(31337, 39)
{
word pd313;
pd313 = (* (( (ptr) (* (( (ptr) gf←c59128)+273)/* var←c51992 */ ))+11) );
buffer←v15136 = (word) ( *( (fPt) ((* (ptr) pd313 ))))(buffer←v15136, 46, pd313);
};
SOURCE(31378, 42)
buffer←v15136 = (word) AppendChars←P3660(buffer←v15136, afterDot←v15192, 42);
break;
default:
SOURCE(31436, 5)
(void) XR←RaiseUnnamedError();
break;
};
};
SOURCE(31443, 15)
return(buffer←v15136);
};
/* c2c skipped dead code */
lab←L100115: ;
SOURCE(31480, 106)
if ((afterDot←v15192 > 0)) {
SOURCE(31503, 39)
{
word pd314;
pd314 = (* (( (ptr) (* (( (ptr) gf←c59128)+273)/* var←c51992 */ ))+11) );
buffer←v15136 = (word) ( *( (fPt) ((* (ptr) pd314 ))))(buffer←v15136, 46, pd314);
};
SOURCE(31544, 42)
buffer←v15136 = (word) AppendChars←P3660(buffer←v15136, afterDot←v15192, 48);
};
SOURCE(31589, 15)
return(buffer←v15136);
}
static word EtoRope←P3360(r←v15340, afterDot←v15368)
word r←v15340;
word afterDot←v15368;
{
register ptr gf←c59160 = (ptr) &globalframe;
word rope←v15432;
word scratch←v25740;
/* EtoRope: */
SOURCE(31613, 238)
SOURCE(31613, 238)
rope←v15432 = 0;
SOURCE(31709, 53)
{
word pd315;
pd315 = (* (( (ptr) (* (( (ptr) gf←c59160)+273)/* var←c51992 */ ))+6) );
scratch←v25740 = (word) ( *( (fPt) ((* (ptr) pd315 ))))(26, pd315);
};
SOURCE(31764, 54)
{
word var←c54648;
var←c54648 = (word) AppendE←P3420(scratch←v25740, r←v15340, afterDot←v15368);
{
word pd316;
pd316 = (* (( (ptr) (* (( (ptr) gf←c59160)+269)/* var←c50040 */ ))+35) );
rope←v15432 = (word) ( *( (fPt) ((* (ptr) pd316 ))))(var←c54648, 0, 32767, pd316);
};
};
SOURCE(31820, 31)
{
word pd317;
pd317 = (* (( (ptr) (* (( (ptr) gf←c59160)+273)/* var←c51992 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd317 ))))(scratch←v25740, pd317);
};
SOURCE(31613, 238)
return(rope←v15432);
}
static word AppendE←P3420(buffer←v15492, r←v15520, precision←v15548)
word buffer←v15492;
word r←v15520;
word precision←v15548;
{
register ptr gf←c59192 = (ptr) &globalframe;
word var←c15624;
word nType←v25796;
word fract←v25824;
word exp10←v25852;
/* AppendE: */
SOURCE(31857, 855)
SOURCE(32022, 35)
if ((precision←v15548 < 1)) {
SOURCE(32044, 13)
precision←v15548 = 1;
};
SOURCE(32059, 53)
{
W3 var←c54680;
{
word pd318;
pd318 = (* (( (ptr) (* (( (ptr) gf←c59192)+270)/* var←c50712 */ ))+10) );
(void) ( *( (fPt) ((* (ptr) pd318 ))))((word) &var←c54680, r←v15520, precision←v15548, pd318);
};
exp10←v25852 = var←c54680.f2;
fract←v25824 = var←c54680.f1;
nType←v25796 = var←c54680.f0;
};
SOURCE(32114, 581)
{
word var←c54712;
var←c54712 = nType←v25796;
if ((var←c54712 == 0)) {
SOURCE(32142, 509)
{
word abs←v25896;
word lag←v25924 = 1;
word card←v25952;
word pos←v25980 = 0;
SOURCE(32144, 18)
{
float tf319;
word x320;
float tf321;
abs←v25896 = (
tf321 = FABS((
x320 = r←v15520, *(float*)&x320
), tf319), *(word*)&tf321
);
};
SOURCE(32179, 23)
card←v25952 = IABS(fract←v25824);
SOURCE(32218, 55)
{
word x322;
word x324;
if (((
x322 = r←v15520, *(float*)&x322
) < (
x324 = (* (ptr) &fc323 ), *(float*)&x324
))) {
SOURCE(32234, 39)
{
word pd325;
pd325 = (* (( (ptr) (* (( (ptr) gf←c59192)+273)/* var←c51992 */ ))+11) );
buffer←v15492 = (word) ( *( (fPt) ((* (ptr) pd325 ))))(buffer←v15492, 45, pd325);
};
};
};
SOURCE(32275, 19)
pos←v25980 = (* (hPt) buffer←v15492 );
SOURCE(32296, 39)
{
word pd326;
pd326 = (* (( (ptr) (* (( (ptr) gf←c59192)+273)/* var←c51992 */ ))+11) );
buffer←v15492 = (word) ( *( (fPt) ((* (ptr) pd326 ))))(buffer←v15492, 46, pd326);
};
SOURCE(32337, 58)
buffer←v15492 = (word) AppendWholeNumber←P1560(buffer←v15492, card←v25952, 10, 0, 0);
SOURCE(32397, 27)
{
word var←c54744;
var←c54744 = (pos←v25980 + 1);
{
word limit327;
word limit328;
(* ((( (bPt) buffer←v15492)+4)+(
limit327 = (word) (* (( (hPt) buffer←v15492)+1) ),
BCK(pos←v25980, limit327)
)) ) = (word) (* ((( (bPt) buffer←v15492)+4)+(
limit328 = (word) (* (( (hPt) buffer←v15492)+1) ),
BCK(var←c54744, limit328)
)) );
};
};
SOURCE(32426, 18)
{
word var←c54776;
var←c54776 = (pos←v25980 + 1);
{
word limit329;
(* ((( (bPt) buffer←v15492)+4)+(
limit329 = (word) (* (( (hPt) buffer←v15492)+1) ),
BCK(var←c54776, limit329)
)) ) = 46;
};
};
SOURCE(32446, 39)
{
word pd330;
pd330 = (* (( (ptr) (* (( (ptr) gf←c59192)+273)/* var←c51992 */ ))+11) );
buffer←v15492 = (word) ( *( (fPt) ((* (ptr) pd330 ))))(buffer←v15492, 101, pd330);
};
SOURCE(32487, 29)
exp10←v25852 = ((exp10←v25852 + precision←v15548) - 1);
SOURCE(32518, 65)
{
word pd331;
pd331 = (* (( (ptr) (* (( (ptr) gf←c59192)+273)/* var←c51992 */ ))+11) );
buffer←v15492 = (word) ( *( (fPt) ((* (ptr) pd331 ))))(buffer←v15492, ( ( (int)exp10←v25852 < (int)0) ? 45 : 43 ) , pd331)
;
};
SOURCE(32585, 64)
buffer←v15492 = (word) AppendWholeNumber←P1560(buffer←v15492, IABS(exp10←v25852), 10, 0, 0);
};
}
else {
SOURCE(32665, 30)
buffer←v15492 = (word) AppendF←P3300(buffer←v15492, r←v15520, 1);
};
};
SOURCE(32697, 15)
return(buffer←v15492);
}
static word GtoRope←P3480(r←v15696, precision←v15724)
word r←v15696;
word precision←v15724;
{
register ptr gf←c59224 = (ptr) &globalframe;
word rope←v15788;
word scratch←v26024;
/* GtoRope: */
SOURCE(32718, 240)
SOURCE(32718, 240)
rope←v15788 = 0;
SOURCE(32815, 53)
{
word pd332;
pd332 = (* (( (ptr) (* (( (ptr) gf←c59224)+273)/* var←c51992 */ ))+6) );
scratch←v26024 = (word) ( *( (fPt) ((* (ptr) pd332 ))))(26, pd332);
};
SOURCE(32870, 55)
{
word var←c54808;
var←c54808 = (word) AppendG←P3540(scratch←v26024, r←v15696, precision←v15724);
{
word pd333;
pd333 = (* (( (ptr) (* (( (ptr) gf←c59224)+269)/* var←c50040 */ ))+35) );
rope←v15788 = (word) ( *( (fPt) ((* (ptr) pd333 ))))(var←c54808, 0, 32767, pd333);
};
};
SOURCE(32927, 31)
{
word pd334;
pd334 = (* (( (ptr) (* (( (ptr) gf←c59224)+273)/* var←c51992 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd334 ))))(scratch←v26024, pd334);
};
SOURCE(32718, 240)
return(rope←v15788);
}
static word AppendG←P3540(buffer←v15848, r←v15876, precision←v15904)
word buffer←v15848;
word r←v15876;
word precision←v15904;
{
register ptr gf←c59256 = (ptr) &globalframe;
word var←c15980;
word nType←v26080;
word fract←v26108;
word exp10←v26136;
/* AppendG: */
SOURCE(32964, 855)
SOURCE(33129, 35)
if ((precision←v15904 < 1)) {
SOURCE(33151, 13)
precision←v15904 = 1;
};
SOURCE(33166, 53)
{
W3 var←c54840;
{
word pd335;
pd335 = (* (( (ptr) (* (( (ptr) gf←c59256)+270)/* var←c50712 */ ))+10) );
(void) ( *( (fPt) ((* (ptr) pd335 ))))((word) &var←c54840, r←v15876, precision←v15904, pd335);
};
exp10←v26136 = var←c54840.f2;
fract←v26108 = var←c54840.f1;
nType←v26080 = var←c54840.f0;
};
SOURCE(33221, 581)
{
word var←c54872;
var←c54872 = nType←v26080;
if ((var←c54872 == 0)) {
SOURCE(33249, 509)
SOURCE(33251, 23)
{
word places←v26180;
word var←c54904;
word n←v46712;
SOURCE(33251, 23)
places←v26180 = precision←v15904;
SOURCE(33276, 91)
if (( (int)fract←v26108 < (int)0)) {
SOURCE(33296, 39)
{
word pd336;
pd336 = (* (( (ptr) (* (( (ptr) gf←c59256)+273)/* var←c51992 */ ))+11) );
buffer←v15848 = (word) ( *( (fPt) ((* (ptr) pd336 ))))(buffer←v15848, 45, pd336);
};
SOURCE(33337, 18)
fract←v26108 = IABS(fract←v26108);
SOURCE(33357, 10)
{
float tf337;
word x338;
float tf339;
r←v15876 = (
tf339 = FABS((
x338 = r←v15876, *(float*)&x338
), tf337), *(word*)&tf339
);
};
};
SOURCE(33372, 58)
if (( (int)exp10←v26136 > (int)0)) {
SOURCE(33392, 38)
buffer←v15848 = (word) AppendE←P3420(buffer←v15848, r←v15876, precision←v15904);
SOURCE(33432, 10)
goto lab←L100128;
};
SOURCE(33445, 93)
lab←L100131: ;
{
word idx340;
n←v46712 = (
idx340 = (word) IOP2( % , (int)fract←v26108, (int)10),
SGNCK(idx340)
);
};
var←c54904 = ( (((unsigned)n←v46712 << 16) >> 16) );
if ((var←c54904 == 0)) {
}
else {
goto lab←L100129;
};
SOURCE(33480, 19)
places←v26180 = SGNCK((places←v26180 - 1));
SOURCE(33501, 17)
exp10←v26136 = (exp10←v26136 + 1);
SOURCE(33520, 18)
fract←v26108 = IOP2( / , (int)fract←v26108, (int)10);
goto lab←L100131;
lab←L100129: ;
SOURCE(33549, 51)
if (( (int)exp10←v26136 >= (int)0)) {
SOURCE(33570, 30)
buffer←v15848 = (word) AppendF←P3300(buffer←v15848, r←v15876, 1);
SOURCE(33602, 10)
goto lab←L100128;
};
SOURCE(33615, 65)
if (( (int)INEG(exp10←v26136) <= (int)precision←v15904)) {
SOURCE(33645, 35)
{
word idx341;
buffer←v15848 = (word) AppendF←P3300(buffer←v15848, r←v15876, (
idx341 = (word) INEG(exp10←v26136),
BCK(idx341, 10)
));
};
SOURCE(33682, 10)
goto lab←L100128;
};
SOURCE(33695, 43)
{
word idx342;
buffer←v15848 = (word) AppendE←P3420(buffer←v15848, r←v15876, (
idx342 = (word) (MAX( (unsigned) , places←v26180, 2)),
BCK(idx342, 10)
));
};
};
goto lab←L100133;
lab←L100128: ;
lab←L100133: ;
}
else {
SOURCE(33772, 30)
buffer←v15848 = (word) AppendF←P3300(buffer←v15848, r←v15876, 1);
};
};
SOURCE(33804, 15)
return(buffer←v15848);
}
static void PutChars←P3600(st←v16052, chars←v16080, char←v16108)
word st←v16052;
word chars←v16080;
word char←v16108;
{
register ptr gf←c59288 = (ptr) &globalframe;
/* PutChars: */
SOURCE(33825, 98)
SOURCE(33881, 42)
{
register word noName←c54936 = 0;
register word noName←c54968;
noName←c54968 = chars←v16080;
if ((noName←c54936 >= noName←c54968)) {
goto lab←L100134;
};
lab←L100137: ;
SOURCE(33903, 20)
{
word pd343;
pd343 = (* (( (ptr) (* (( (ptr) gf←c59288)+272)/* var←c51672 */ ))+21) );
(void) ( *( (fPt) ((* (ptr) pd343 ))))(st←v16052, char←v16108, pd343);
};
noName←c54936 = (noName←c54936 + 1);
if ((noName←c54936 < noName←c54968)) {
goto lab←L100137;
};
lab←L100134: ;
};
}
static word AppendChars←P3660(text←v16168, chars←v16196, char←v16224)
word text←v16168;
word chars←v16196;
word char←v16224;
{
register ptr gf←c59320 = (ptr) &globalframe;
word var←c16280;
/* AppendChars: */
SOURCE(33938, 165)
SOURCE(34020, 59)
{
register word noName←c55000 = 0;
register word noName←c55032;
noName←c55032 = chars←v16196;
if ((noName←c55000 >= noName←c55032)) {
goto lab←L100138;
};
lab←L100141: ;
SOURCE(34042, 37)
{
word pd344;
pd344 = (* (( (ptr) (* (( (ptr) gf←c59320)+273)/* var←c51992 */ ))+11) );
text←v16168 = (word) ( *( (fPt) ((* (ptr) pd344 ))))(text←v16168, char←v16224, pd344);
};
noName←c55000 = (noName←c55000 + 1);
if ((noName←c55000 < noName←c55032)) {
goto lab←L100141;
};
lab←L100138: ;
};
SOURCE(34090, 13)
return(text←v16168);
}
static void XNSAddressFromRope←P3720(formal←c0735, r←v16536)
word formal←c0735;
word r←v16536;
{
register ptr gf←c59352 = (ptr) &globalframe;
W3 var←c16580;
word nameLen←v26224;
W3 answer←v26252;
word netPart←v26280 = 0;
word hostPart←v26308 = 0;
word socketPart←v26336 = 0;
word netType←v26364 = 0;
word hostType←v26392 = 0;
word socketType←v26420 = 0;
/* XNSAddressFromRope: */
SOURCE(34187, 2370)
SOURCE(34255, 29)
{
word pd345;
pd345 = (* (( (ptr) (* (( (ptr) gf←c59352)+269)/* var←c50040 */ ))+14) );
nameLen←v26224 = (word) ( *( (fPt) ((* (ptr) pd345 ))))(r←v16536, pd345);
};
SOURCE(34286, 40)
answer←v26252.f0 = 0;
answer←v26252.f1 = 0;
answer←v26252.f2 = 0;
SOURCE(34426, 1273)
SOURCE(34432, 24)
{
word firstDot←v26464;
word secondDot←v26492;
SOURCE(34459, 35)
{
word pd346;
pd346 = (* (( (ptr) (* (( (ptr) gf←c59352)+269)/* var←c50040 */ ))+10) );
firstDot←v26464 = (word) ( *( (fPt) ((* (ptr) pd346 ))))(r←v16536, 0, (* (( (ptr) gf←c59352)+75) ), 1, pd346);
};
SOURCE(34496, 62)
if (( (int)firstDot←v26464 == (int)nameLen←v26224)) {
SOURCE(34523, 35)
{
word pd347;
pd347 = (* (( (ptr) (* (( (ptr) gf←c59352)+269)/* var←c50040 */ ))+10) );
firstDot←v26464 = (word) ( *( (fPt) ((* (ptr) pd347 ))))(r←v16536, 0, (* (( (ptr) gf←c59352)+76) ), 1, pd347);
};
};
SOURCE(34560, 80)
if (( (int)firstDot←v26464 == (int)nameLen←v26224)) {
SOURCE(34589, 12)
hostPart←v26308 = r←v16536;
SOURCE(34604, 36)
hostType←v26392 = (word) GetXNSFieldType←P4260(hostPart←v26308);
SOURCE(34642, 15)
goto lab←L100143;
};
SOURCE(34661, 53)
{
word pd348;
pd348 = (* (( (ptr) (* (( (ptr) gf←c59352)+269)/* var←c50040 */ ))+10) );
secondDot←v26492 = (word) ( *( (fPt) ((* (ptr) pd348 ))))(r←v16536, (firstDot←v26464 + 1), (* (( (ptr) gf←c59352)+75) ), 1, pd348)
;
};
SOURCE(34716, 81)
if (( (int)secondDot←v26492 == (int)nameLen←v26224)) {
SOURCE(34744, 53)
{
word pd349;
pd349 = (* (( (ptr) (* (( (ptr) gf←c59352)+269)/* var←c50040 */ ))+10) );
secondDot←v26492 = (word) ( *( (fPt) ((* (ptr) pd349 ))))(r←v16536, (firstDot←v26464 + 1), (* (( (ptr) gf←c59352)+76) ), 1, pd349)
;
};
};
SOURCE(34799, 543)
if (( (int)secondDot←v26492 == (int)nameLen←v26224)) {
SOURCE(34827, 532)
{
word part1←v26536;
word part2←v26564;
word type1←v26592;
word type2←v26620;
SOURCE(34829, 47)
{
word pd350;
pd350 = (* (( (ptr) (* (( (ptr) gf←c59352)+269)/* var←c50040 */ ))+17) );
part1←v26536 = (word) ( *( (fPt) ((* (ptr) pd350 ))))(r←v16536, 0, firstDot←v26464, pd350);
};
SOURCE(34878, 51)
{
word pd351;
pd351 = (* (( (ptr) (* (( (ptr) gf←c59352)+269)/* var←c50040 */ ))+17) );
part2←v26564 = (word) ( *( (fPt) ((* (ptr) pd351 ))))(r←v16536, (firstDot←v26464 + 1), 2147483647, pd351);
};
SOURCE(34931, 44)
type1←v26592 = (word) GetXNSFieldType←P4260(part1←v26536);
SOURCE(34977, 44)
type2←v26620 = (word) GetXNSFieldType←P4260(part2←v26564);
if ( ( (type1←v26592 == 5) ? (type2←v26620 != 5) : 0 ) ) {
SOURCE(35091, 16)
hostPart←v26308 = part1←v26536;
SOURCE(35110, 16)
hostType←v26392 = type1←v26592;
SOURCE(35128, 18)
socketPart←v26336 = part2←v26564;
SOURCE(35149, 19)
socketType←v26420 = type2←v26620;
}
else {
if ( ( (type1←v26592 != 5) ? (type2←v26620 == 5) : 0 ) ) {
SOURCE(35222, 15)
netPart←v26280 = part1←v26536;
SOURCE(35240, 15)
netType←v26364 = type1←v26592;
SOURCE(35257, 16)
hostPart←v26308 = part2←v26564;
SOURCE(35276, 17)
hostType←v26392 = type2←v26620;
}
else {
SOURCE(35307, 35)
{
W2 var←c0724;
(* (ptr) (word) &var←c0724 ) = 0;
(* (( (ptr) (word) &var←c0724) + 1) ) = 0;
(void) XR←RaiseError((word) (( (bPt) gf←c59352)+332)/* var←c47096 */ , (word) &var←c0724);
};
};
};
SOURCE(35344, 15)
goto lab←L100143;
};
};
SOURCE(35365, 43)
{
word pd352;
pd352 = (* (( (ptr) (* (( (ptr) gf←c59352)+269)/* var←c50040 */ ))+17) );
netPart←v26280 = (word) ( *( (fPt) ((* (ptr) pd352 ))))(r←v16536, 0, firstDot←v26464, pd352);
};
SOURCE(35410, 34)
netType←v26364 = (word) GetXNSFieldType←P4260(netPart←v26280);
SOURCE(35446, 74)
{
word pd353;
pd353 = (* (( (ptr) (* (( (ptr) gf←c59352)+269)/* var←c50040 */ ))+17) );
hostPart←v26308 = (word) ( *( (fPt) ((* (ptr) pd353 ))))(r←v16536, (firstDot←v26464 + 1), ((secondDot←v26492 - firstDot←v26464) - 1), pd353)
;
};
SOURCE(35522, 36)
hostType←v26392 = (word) GetXNSFieldType←P4260(hostPart←v26308);
SOURCE(35560, 51)
{
word pd354;
pd354 = (* (( (ptr) (* (( (ptr) gf←c59352)+269)/* var←c50040 */ ))+17) );
socketPart←v26336 = (word) ( *( (fPt) ((* (ptr) pd354 ))))(r←v16536, (secondDot←v26492 + 1), 2147483647, pd354);
};
SOURCE(35613, 40)
socketType←v26420 = (word) GetXNSFieldType←P4260(socketPart←v26336);
SOURCE(35655, 15)
goto lab←L100143;
};
/* c2c skipped dead code */
lab←L100143: ;
SOURCE(35705, 307)
{
word var←c55096;
W2 var←c0727;
W2 var←c0728;
var←c55096 = hostType←v26392;
switch (var←c55096) {
case 0:
SOURCE(35737, 35)
{
W2 var←c0726;
(* (ptr) (word) &var←c0726 ) = 0;
(* (( (ptr) (word) &var←c0726) + 1) ) = 0;
(void) XR←RaiseError((word) (( (bPt) gf←c59352)+332)/* var←c47096 */ , (word) &var←c0726);
};
break;
case 1:
SOURCE(35787, 31)
answer←v26252.f1 = (word) -1;
(* (( (hPt) &answer←v26252)+4) ) = 65535;
break;
case 2: case 3: case 4:
SOURCE(35843, 44)
(void) CvtXNSHost←P4020((word) &var←c0727, hostPart←v26308, hostType←v26392);
XR←MoveField(&answer←v26252, 32, &var←c0727, 0, 48);
break;
case 5:
SOURCE(35905, 107)
{
word pd355;
pd355 = (* (( (ptr) (* (( (ptr) gf←c59352)+269)/* var←c50040 */ ))+8) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd355 ))))(hostPart←v26308, (* (( (ptr) gf←c59352)+77) ), 1, pd355))) {
SOURCE(35940, 37)
{
word pd356;
pd356 = (* (( (ptr) (* (( (ptr) gf←c59352)+278)/* var←c55128 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd356 ))))((word) (&var←c0728), pd356);
};
XR←MoveField(&answer←v26252, 32, &var←c0728, 0, 48);
}
else {
SOURCE(35977, 35)
{
W2 var←c0729;
(* (ptr) (word) &var←c0729 ) = 0;
(* (( (ptr) (word) &var←c0729) + 1) ) = 0;
(void) XR←RaiseError((word) (( (bPt) gf←c59352)+332)/* var←c47096 */ , (word) &var←c0729);
};
};
};
break;
default:
SOURCE(36028, 5)
(void) XR←RaiseUnnamedError();
break;
};
};
SOURCE(36036, 219)
{
word var←c55160;
var←c55160 = netType←v26364;
switch (var←c55160) {
case 0:
SOURCE(36067, 28)
answer←v26252.f0 = (word) DefaultXNSNet←P3960();
break;
case 1:
SOURCE(36110, 29)
answer←v26252.f0 = (word) -1;
break;
case 2: case 3: case 4:
SOURCE(36164, 40)
answer←v26252.f0 = (word) CvtXNSNet←P4080(netPart←v26280, netType←v26364);
break;
case 5:
SOURCE(36220, 35)
{
W2 var←c0731;
(* (ptr) (word) &var←c0731 ) = 0;
(* (( (ptr) (word) &var←c0731) + 1) ) = 0;
(void) XR←RaiseError((word) (( (bPt) gf←c59352)+332)/* var←c47096 */ , (word) &var←c0731);
};
break;
default:
SOURCE(36268, 5)
(void) XR←RaiseUnnamedError();
break;
};
};
SOURCE(36276, 245)
{
word var←c55192;
var←c55192 = socketType←v26420;
switch (var←c55192) {
case 0:
SOURCE(36310, 33)
(* (( (hPt) &answer←v26252)+5) ) = 0;
break;
case 1:
SOURCE(36358, 35)
{
W2 var←c0733;
(* (ptr) (word) &var←c0733 ) = 0;
(* (( (ptr) (word) &var←c0733) + 1) ) = 0;
(void) XR←RaiseError((word) (( (bPt) gf←c59352)+332)/* var←c47096 */ , (word) &var←c0733);
};
break;
case 2: case 3: case 4:
SOURCE(36418, 52)
(* (( (hPt) &answer←v26252)+5) ) = (word) CvtXNSSocket←P4140(socketPart←v26336, socketType←v26420);
break;
case 5:
SOURCE(36486, 35)
{
W2 var←c0734;
(* (ptr) (word) &var←c0734 ) = 0;
(* (( (ptr) (word) &var←c0734) + 1) ) = 0;
(void) XR←RaiseError((word) (( (bPt) gf←c59352)+332)/* var←c47096 */ , (word) &var←c0734);
};
break;
default:
SOURCE(36534, 5)
(void) XR←RaiseUnnamedError();
break;
};
};
SOURCE(36542, 15)
var←c16580 = answer←v26252;
/* removed tail goto */
(* (W3Pt) formal←c0735 ) = var←c16580;
return;
}
static word XNSNetFromRope←P3780(r←v16640)
word r←v16640;
{
register ptr gf←c59384 = (ptr) &globalframe;
word var←c16684;
word type←v26664;
/* XNSNetFromRope: */
SOURCE(36563, 283)
SOURCE(36623, 39)
type←v26664 = (word) GetXNSFieldType←P4260(r←v16640);
SOURCE(36664, 182)
{
word var←c55224;
var←c55224 = type←v26664;
switch (var←c55224) {
case 0:
SOURCE(36692, 24)
return((word) DefaultXNSNet←P3960());
case 1:
SOURCE(36731, 25)
return( (word) -1);
case 2: case 3: case 4:
SOURCE(36781, 27)
return((word) CvtXNSNet←P4080(r←v16640, type←v26664));
case 5:
SOURCE(36824, 22)
{
W2 var←c0740;
(* (ptr) (word) &var←c0740 ) = 0;
(* (( (ptr) (word) &var←c0740) + 1) ) = 0;
(void) XR←RaiseError((word) (( (bPt) gf←c59384)+332)/* var←c47096 */ , (word) &var←c0740);
};
break;
default:
SOURCE(36859, 5)
(void) XR←RaiseUnnamedError();
break;
};
};
}
static void XNSHostFromRope←P3840(formal←c0752, r←v16744)
word formal←c0752;
word r←v16744;
{
register ptr gf←c59416 = (ptr) &globalframe;
W2 var←c16788;
word type←v26708;
/* XNSHostFromRope: */
SOURCE(36870, 348)
SOURCE(36932, 39)
type←v26708 = (word) GetXNSFieldType←P4260(r←v16744);
SOURCE(36973, 245)
{
word var←c55320;
var←c55320 = type←v26708;
switch (var←c55320) {
case 0:
SOURCE(37001, 26)
{
W2 var←c55384;
{
word pd357;
pd357 = (* (( (ptr) (* (( (ptr) gf←c59416)+278)/* var←c55128 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd357 ))))((word) (&var←c55384), pd357);
};
var←c16788 = var←c55384;
/* removed tail goto */
};
break;
case 1:
SOURCE(37042, 26)
var←c16788.f0 = (word) -1;
var←c16788.f1 = 4294901760;
/* removed tail goto */
break;
case 2: case 3: case 4:
SOURCE(37093, 28)
{
W2 var←c55480;
(void) CvtXNSHost←P4020((word) &var←c55480, r←v16744, type←v26708);
var←c16788 = var←c55480;
/* removed tail goto */
};
break;
case 5:
SOURCE(37139, 54)
{
word pd358;
pd358 = (* (( (ptr) (* (( (ptr) gf←c59416)+269)/* var←c50040 */ ))+8) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd358 ))))(r←v16744, (* (( (ptr) gf←c59416)+77) ), 1, pd358))) {
SOURCE(37167, 26)
{
W2 var←c55544;
{
word pd359;
pd359 = (* (( (ptr) (* (( (ptr) gf←c59416)+278)/* var←c55128 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd359 ))))((word) (&var←c55544), pd359);
};
var←c16788 = var←c55544;
goto lab←L100145;
};
};
};
SOURCE(37195, 23)
{
W2 var←c0751;
(* (ptr) (word) &var←c0751 ) = 0;
(* (( (ptr) (word) &var←c0751) + 1) ) = 0;
(void) XR←RaiseError((word) (( (bPt) gf←c59416)+332)/* var←c47096 */ , (word) &var←c0751);
};
break;
default:
SOURCE(37232, 5)
(void) XR←RaiseUnnamedError();
break;
};
};
lab←L100145: ;
(* (W2Pt) formal←c0752 ) = var←c16788;
return;
}
static word XNSSocketFromRope←P3900(r←v16848)
word r←v16848;
{
register ptr gf←c59448 = (ptr) &globalframe;
word var←c16892;
word type←v26752;
/* XNSSocketFromRope: */
SOURCE(37243, 291)
SOURCE(37309, 39)
type←v26752 = (word) GetXNSFieldType←P4260(r←v16848);
SOURCE(37350, 184)
{
word var←c55576;
var←c55576 = type←v26752;
switch (var←c55576) {
case 0:
SOURCE(37378, 26)
return(0);
case 1:
SOURCE(37419, 22)
{
W2 var←c0757;
(* (ptr) (word) &var←c0757 ) = 0;
(* (( (ptr) (word) &var←c0757) + 1) ) = 0;
(void) XR←RaiseError((word) (( (bPt) gf←c59448)+332)/* var←c47096 */ , (word) &var←c0757);
};
break;
case 2: case 3: case 4:
SOURCE(37466, 30)
return((word) CvtXNSSocket←P4140(r←v16848, type←v26752));
case 5:
SOURCE(37512, 22)
{
W2 var←c0758;
(* (ptr) (word) &var←c0758 ) = 0;
(* (( (ptr) (word) &var←c0758) + 1) ) = 0;
(void) XR←RaiseError((word) (( (bPt) gf←c59448)+332)/* var←c47096 */ , (word) &var←c0758);
};
break;
default:
SOURCE(37547, 5)
(void) XR←RaiseUnnamedError();
break;
};
};
}
static word DefaultXNSNet←P3960()
{
register ptr gf←c59480 = (ptr) &globalframe;
word default←v16952;
/* DefaultXNSNet: */
SOURCE(37557, 340)
SOURCE(37557, 340)
default←v16952 = 0;
SOURCE(37876, 21)
{
W2 var←c0760;
(* (ptr) (word) &var←c0760 ) = 2;
(* (( (ptr) (word) &var←c0760) + 1) ) = 0;
(void) XR←RaiseError((word) (( (bPt) gf←c59480)+332)/* var←c47096 */ , (word) &var←c0760);
};
}
static void CvtXNSHost←P4020(formal←c0766, rope←v17048, type←v17076)
word formal←c0766;
word rope←v17048;
word type←v17076;
{
word var←c01078;
word var←c01079;
W6 n←v26796;
/* CvtXNSHost: */
SOURCE(38030, 165)
/* Return var split */
SOURCE(38103, 30)
(void) CvtXNS←P4200((word) &n←v26796, rope←v17048, type←v17076);
SOURCE(38135, 60)
{
word idx360;
word idx361;
word idx362;
word idx363;
var←c01078 = (((((((
idx360 = (word) n←v26796.f0,
BCK(idx360, 256)
) << 8) + (
idx361 = (word) n←v26796.f1,
BCK(idx361, 256)
)) << 8) + (
idx362 = (word) n←v26796.f2,
BCK(idx362, 256)
)) << 8) + (
idx363 = (word) n←v26796.f3,
BCK(idx363, 256)
));
};
{
word idx364;
word idx365;
var←c01079 = ((((
idx364 = (word) n←v26796.f4,
BCK(idx364, 256)
) << 8) + (
idx365 = (word) n←v26796.f5,
BCK(idx365, 256)
)) << 16);
};
/* removed tail goto */
(* (( (ptr) formal←c0766)+1) ) = var←c01079;
(* (ptr) formal←c0766 ) = var←c01078;
return;
}
static word CvtXNSNet←P4080(rope←v17180, type←v17208)
word rope←v17180;
word type←v17208;
{
word var←c17252;
W6 n←v26840;
/* CvtXNSNet: */
SOURCE(38199, 161)
SOURCE(38270, 30)
(void) CvtXNS←P4200((word) &n←v26840, rope←v17180, type←v17208);
SOURCE(38302, 58)
{
word idx366;
word idx367;
word idx368;
word idx369;
return((((((((
idx366 = (word) n←v26840.f2,
BCK(idx366, 256)
) << 8) + (
idx367 = (word) n←v26840.f3,
BCK(idx367, 256)
)) << 8) + (
idx368 = (word) n←v26840.f4,
BCK(idx368, 256)
)) << 8) + (
idx369 = (word) n←v26840.f5,
BCK(idx369, 256)
)));
};
}
static word CvtXNSSocket←P4140(rope←v17312, type←v17340)
word rope←v17312;
word type←v17340;
{
word var←c17384;
W6 n←v26884;
/* CvtXNSSocket: */
SOURCE(38364, 139)
SOURCE(38441, 30)
(void) CvtXNS←P4200((word) &n←v26884, rope←v17312, type←v17340);
SOURCE(38473, 30)
{
word idx370;
word idx371;
return((((
idx370 = (word) n←v26884.f4,
BCK(idx370, 256)
) << 8) + (
idx371 = (word) n←v26884.f5,
BCK(idx371, 256)
)));
};
}
static void CvtXNS←P4200(formal←c0789, rope←v17444, type←v17472)
word formal←c0789;
word rope←v17444;
word type←v17472;
{
W13 var←c59512;
register ptr gf←c59544 = (ptr) &globalframe;
W6 var←c17516;
/* declaration of var←c55736 skipped */
/* declaration of n←v26928 skipped */
/* declaration of base←v26956 skipped */
word len←v26984;
word c←v27012;
/* CvtXNS: */
SOURCE(38507, 819)
{
word tmpAddr372;
tmpAddr372 = (word) (( (ptr) &var←c59512)+4)/* var←c55736 */ ;
(* (ptr) tmpAddr372 ) = ( ((word) (fPt) MulAdd←P7260) );
(* (( (ptr) tmpAddr372) + 1) ) = 1;
};
SOURCE(38574, 19)
XR←FillWords(&(* (W6Pt) ((( (ptr) &var←c59512)+6)/* n←v26928 */ )), 6, 0);
SOURCE(38820, 64)
{
word var←c55800;
var←c55800 = type←v17472;
if ((var←c55800 == 2)) {
(* (( (ptr) &var←c59512)+12)/* base←v26956 */ ) = 8;
}
else {
if ((var←c55800 == 3)) {
(* (( (ptr) &var←c59512)+12)/* base←v26956 */ ) = 10;
}
else {
(* (( (ptr) &var←c59512)+12)/* base←v26956 */ ) = 16;
};
};
};
SOURCE(38886, 38)
{
word pd373;
word idx374;
pd373 = (* (( (ptr) (* (( (ptr) gf←c59544)+269)/* var←c50040 */ ))+14) );
len←v26984 = (
idx374 = (word) ( *( (fPt) ((* (ptr) pd373 ))))(rope←v17444, pd373),
SGNCK(idx374)
);
};
if ((len←v26984 == 0)) {
SOURCE(38924, 5)
(void) XR←RaiseUnnamedError();
};
SOURCE(38931, 27)
{
word pd375;
pd375 = (* (( (ptr) (* (( (ptr) gf←c59544)+269)/* var←c50040 */ ))+9) );
c←v27012 = (word) ( *( (fPt) ((* (ptr) pd375 ))))(rope←v17444, (len←v26984 - 1), pd375);
};
if ( ( (type←v17472 == 2) ? ( (c←v27012 == 66) ? 1 : (c←v27012 == 98) ) : 0 ) ) {
SOURCE(39022, 13)
len←v26984 = (len←v26984 - 1);
}
else {
if ( ( (type←v17472 == 4) ? ( (c←v27012 == 72) ? 1 : (c←v27012 == 104) ) : 0 ) ) {
SOURCE(39080, 13)
len←v26984 = (len←v26984 - 1);
};
};
SOURCE(39112, 175)
{
register word i←v27144 = 0;
register word noName←c55832;
noName←c55832 = len←v26984;
if ((i←v27144 >= noName←c55832)) {
goto lab←L100148;
};
lab←L100151: ;
SOURCE(39143, 144)
{
word var←c55864;
{
word pd376;
pd376 = (* (( (ptr) (* (( (ptr) gf←c59544)+269)/* var←c50040 */ ))+9) );
c←v27012 = (word) ( *( (fPt) ((* (ptr) pd376 ))))(rope←v17444, SGNCK(i←v27144), pd376);
};
var←c55864 = c←v27012;
if (((var←c55864 - 48) <= 9)) {
SOURCE(39195, 14)
(void) MulAdd←P7260(SGNCK((c←v27012 - 48)), (word) (( (bPt) &var←c59512)+16)/* var←c55736 */ );
goto endif0377;
};
if (((var←c55864 - 65) <= 5)) {
SOURCE(39227, 21)
{
word idx378;
(void) MulAdd←P7260((
idx378 = (word) ((c←v27012 - 65) + 10),
SGNCK(idx378)
), (word) (( (bPt) &var←c59512)+16)/* var←c55736 */ );
};
goto endif0377;
};
if (((var←c55864 - 97) <= 5)) {
SOURCE(39266, 21)
{
word idx379;
(void) MulAdd←P7260((
idx379 = (word) ((c←v27012 - 97) + 10),
SGNCK(idx379)
), (word) (( (bPt) &var←c59512)+16)/* var←c55736 */ );
};
goto endif0377;
};
goto endif0377;
endif0377: ;
};
i←v27144 = (i←v27144 + 1);
if ((i←v27144 < noName←c55832)) {
goto lab←L100151;
};
lab←L100148: ;
};
SOURCE(39316, 10)
var←c17516 = (* (W6Pt) (( (ptr) &var←c59512)+6)/* n←v26928 */ );
/* removed tail goto */
(* (W6Pt) formal←c0789 ) = var←c17516;
return;
}
static void MulAdd←P7260(increment←v27116, formal←c59576)
word increment←v27116;
word formal←c59576;
{
formal←c59576 = (formal←c59576 - 16);
/* MulAdd: */
SOURCE(38635, 171)
SOURCE(38674, 132)
{
register word i←v27188 = 5;
if ((0 > i←v27188)) {
goto lab←L100152;
};
lab←L100155: ;
{
word temp←v27232;
SOURCE(38719, 40)
temp←v27232 = (((* ((( (ptr) formal←c59576)+6)+BCK(i←v27188, 6)) ) * (* (( (ptr) formal←c59576)+12) )) + increment←v27116);
SOURCE(38761, 20)
(* ((( (ptr) formal←c59576)+6)+BCK(i←v27188, 6)) ) = (temp←v27232 & 0377);
SOURCE(38783, 23)
increment←v27116 = (temp←v27232 >> 8);
};
if ((0 >= i←v27188)) {
goto lab←L100152;
};
i←v27188 = (i←v27188 - 1);
goto lab←L100155;
lab←L100152: ;
};
}
static word GetXNSFieldType←P4260(rope←v17576)
word rope←v17576;
{
register ptr gf←c59608 = (ptr) &globalframe;
word type←v17620;
word limit←v27276;
/* GetXNSFieldType: */
SOURCE(39332, 893)
SOURCE(39417, 56)
{
word pd380;
word idx381;
pd380 = (* (( (ptr) (* (( (ptr) gf←c59608)+269)/* var←c50040 */ ))+14) );
limit←v27276 = (
idx381 = (word) ( *( (fPt) ((* (ptr) pd380 ))))(rope←v17576, pd380),
SGNCK(idx381)
);
};
if ((limit←v27276 == 0)) {
SOURCE(39457, 16)
return(0);
};
SOURCE(39475, 17)
limit←v27276 = (limit←v27276 - 1);
SOURCE(39494, 48)
{
word pd382;
pd382 = (* (( (ptr) (* (( (ptr) gf←c59608)+269)/* var←c50040 */ ))+8) );
if ((0 != (word) ( *( (fPt) ((* (ptr) pd382 ))))(rope←v17576, (* (( (ptr) gf←c59608)+78) ), 1, pd382))) {
SOURCE(39524, 18)
return(1);
};
};
SOURCE(39544, 112)
{
word var←c55896;
{
word pd383;
pd383 = (* (( (ptr) (* (( (ptr) gf←c59608)+269)/* var←c50040 */ ))+9) );
var←c55896 = (word) ( *( (fPt) ((* (ptr) pd383 ))))(rope←v17576, 0, pd383);
};
if (((var←c55896 - 48) <= 7)) {
type←v17620 = 2;
}
else {
if (((var←c55896 - 56) <= 1)) {
type←v17620 = 3;
}
else {
type←v17620 = 5;
};
};
};
SOURCE(39658, 324)
{
register word i←v27320 = 1;
register word noName←c55928;
noName←c55928 = limit←v27276;
if ((i←v27320 >= noName←c55928)) {
goto lab←L100156;
};
lab←L100159: ;
if ((type←v17620 < 5)) {
}
else {
goto lab←L100156;
};
SOURCE(39717, 265)
{
word var←c55960;
{
word pd384;
pd384 = (* (( (ptr) (* (( (ptr) gf←c59608)+269)/* var←c50040 */ ))+9) );
var←c55960 = (word) ( *( (fPt) ((* (ptr) pd384 ))))(rope←v17576, SGNCK(i←v27320), pd384);
};
if (((var←c55960 - 48) <= 7)) {
SOURCE(39766, 23)
type←v17620 = ((MAX( (unsigned) , type←v17620, 2)) & 7);
goto endif0385;
};
if (((var←c55960 - 56) <= 1)) {
SOURCE(39808, 25)
type←v17620 = ((MAX( (unsigned) , type←v17620, 3)) & 7);
goto endif0385;
};
if (((var←c55960 - 65) <= 5) || ((var←c55960 - 97) <= 5)) {
SOURCE(39867, 21)
type←v17620 = ((MAX( (unsigned) , type←v17620, 4)) & 7);
goto endif0385;
};
if ((var←c55960 == 45)) {
SOURCE(39896, 56)
if ((type←v17620 <= 3)) {
type←v17620 = 3;
}
else {
type←v17620 = 5;
};
goto endif0385;
};
SOURCE(39965, 17)
type←v17620 = 5;
goto endif0385;
endif0385: ;
};
i←v27320 = (i←v27320 + 1);
if ((i←v27320 < noName←c55928)) {
goto lab←L100159;
};
lab←L100156: ;
};
SOURCE(39993, 232)
if ((limit←v27276 > 0)) {
SOURCE(40011, 214)
{
word var←c55992;
{
word pd386;
pd386 = (* (( (ptr) (* (( (ptr) gf←c59608)+269)/* var←c50040 */ ))+9) );
var←c55992 = (word) ( *( (fPt) ((* (ptr) pd386 ))))(rope←v17576, SGNCK(limit←v27276), pd386);
};
if ((((var←c55992 - 48) <= 9) || (var←c55992 == 68)) || (var←c55992 == 100)) {
SOURCE(40072, 25)
type←v17620 = ((MAX( (unsigned) , type←v17620, 3)) & 7);
goto endif0387;
};
if ((var←c55992 == 66) || (var←c55992 == 98)) {
SOURCE(40109, 23)
type←v17620 = ((MAX( (unsigned) , type←v17620, 2)) & 7);
goto endif0387;
};
if (((((var←c55992 - 65) <= 5) || ((var←c55992 - 97) <= 5)) || (var←c55992 == 72)) || (var←c55992 == 104)) {
SOURCE(40174, 21)
type←v17620 = ((MAX( (unsigned) , type←v17620, 4)) & 7);
goto endif0387;
};
SOURCE(40208, 17)
type←v17620 = 5;
goto endif0387;
endif0387: ;
};
};
SOURCE(39332, 893)
return(type←v17620);
}
static word RopeFromXNSAddress←P4320(address←v17680, format←v17708)
W3 address←v17680;
word format←v17708;
{
register ptr gf←c59640 = (ptr) &globalframe;
word rope←v17752;
word scratch←v27364;
/* RopeFromXNSAddress: */
SOURCE(40230, 257)
SOURCE(40230, 257)
rope←v17752 = 0;
SOURCE(40330, 45)
{
word pd388;
pd388 = (* (( (ptr) (* (( (ptr) gf←c59640)+273)/* var←c51992 */ ))+6) );
scratch←v27364 = (word) ( *( (fPt) ((* (ptr) pd388 ))))(40, pd388);
};
SOURCE(40377, 77)
{
word var←c56024;
{
word var←c56056;
var←c56056 = (word) AppendXNSAddress←P4560(scratch←v27364, address←v17680, format←v17708);
scratch←v27364 = var←c56056;
var←c56024 = var←c56056;
};
{
word pd389;
pd389 = (* (( (ptr) (* (( (ptr) gf←c59640)+269)/* var←c50040 */ ))+35) );
rope←v17752 = (word) ( *( (fPt) ((* (ptr) pd389 ))))(var←c56024, 0, 32767, pd389);
};
};
SOURCE(40456, 31)
{
word pd390;
pd390 = (* (( (ptr) (* (( (ptr) gf←c59640)+273)/* var←c51992 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd390 ))))(scratch←v27364, pd390);
};
SOURCE(40230, 257)
return(rope←v17752);
}
static word RopeFromXNSNet←P4380(net←v17812, format←v17840)
word net←v17812;
word format←v17840;
{
register ptr gf←c59672 = (ptr) &globalframe;
word rope←v17884;
word scratch←v27420;
/* RopeFromXNSNet: */
SOURCE(40493, 237)
SOURCE(40493, 237)
rope←v17884 = 0;
SOURCE(40581, 45)
{
word pd391;
pd391 = (* (( (ptr) (* (( (ptr) gf←c59672)+273)/* var←c51992 */ ))+6) );
scratch←v27420 = (word) ( *( (fPt) ((* (ptr) pd391 ))))(20, pd391);
};
SOURCE(40628, 69)
{
word var←c56088;
{
word var←c56120;
var←c56120 = (word) AppendXNSNet←P4620(scratch←v27420, net←v17812, format←v17840);
scratch←v27420 = var←c56120;
var←c56088 = var←c56120;
};
{
word pd392;
pd392 = (* (( (ptr) (* (( (ptr) gf←c59672)+269)/* var←c50040 */ ))+35) );
rope←v17884 = (word) ( *( (fPt) ((* (ptr) pd392 ))))(var←c56088, 0, 32767, pd392);
};
};
SOURCE(40699, 31)
{
word pd393;
pd393 = (* (( (ptr) (* (( (ptr) gf←c59672)+273)/* var←c51992 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd393 ))))(scratch←v27420, pd393);
};
SOURCE(40493, 237)
return(rope←v17884);
}
static word RopeFromXNSHost←P4440(host←v17944, format←v17972)
W2 host←v17944;
word format←v17972;
{
register ptr gf←c59704 = (ptr) &globalframe;
word rope←v18016;
word scratch←v27476;
/* RopeFromXNSHost: */
SOURCE(40736, 242)
SOURCE(40736, 242)
rope←v18016 = 0;
SOURCE(40827, 45)
{
word pd394;
pd394 = (* (( (ptr) (* (( (ptr) gf←c59704)+273)/* var←c51992 */ ))+6) );
scratch←v27476 = (word) ( *( (fPt) ((* (ptr) pd394 ))))(20, pd394);
};
SOURCE(40874, 71)
{
word var←c56152;
{
word var←c56184;
var←c56184 = (word) AppendXNSHost←P4680(scratch←v27476, host←v17944, format←v17972);
scratch←v27476 = var←c56184;
var←c56152 = var←c56184;
};
{
word pd395;
pd395 = (* (( (ptr) (* (( (ptr) gf←c59704)+269)/* var←c50040 */ ))+35) );
rope←v18016 = (word) ( *( (fPt) ((* (ptr) pd395 ))))(var←c56152, 0, 32767, pd395);
};
};
SOURCE(40947, 31)
{
word pd396;
pd396 = (* (( (ptr) (* (( (ptr) gf←c59704)+273)/* var←c51992 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd396 ))))(scratch←v27476, pd396);
};
SOURCE(40736, 242)
return(rope←v18016);
}
static word RopeFromXNSSocket←P4500(socket←v18076, format←v18104)
word socket←v18076;
word format←v18104;
{
register ptr gf←c59736 = (ptr) &globalframe;
word rope←v18148;
word scratch←v27532;
/* RopeFromXNSSocket: */
SOURCE(40984, 252)
SOURCE(40984, 252)
rope←v18148 = 0;
SOURCE(41081, 45)
{
word pd397;
pd397 = (* (( (ptr) (* (( (ptr) gf←c59736)+273)/* var←c51992 */ ))+6) );
scratch←v27532 = (word) ( *( (fPt) ((* (ptr) pd397 ))))(20, pd397);
};
SOURCE(41128, 75)
{
word var←c56216;
{
word var←c56248;
var←c56248 = (word) AppendXNSSocket←P4740(scratch←v27532, socket←v18076, format←v18104);
scratch←v27532 = var←c56248;
var←c56216 = var←c56248;
};
{
word pd398;
pd398 = (* (( (ptr) (* (( (ptr) gf←c59736)+269)/* var←c50040 */ ))+35) );
rope←v18148 = (word) ( *( (fPt) ((* (ptr) pd398 ))))(var←c56216, 0, 32767, pd398);
};
};
SOURCE(41205, 31)
{
word pd399;
pd399 = (* (( (ptr) (* (( (ptr) gf←c59736)+273)/* var←c51992 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd399 ))))(scratch←v27532, pd399);
};
SOURCE(40984, 252)
return(rope←v18148);
}
static word AppendXNSAddress←P4560(to←v18208, address←v18236, format←v18264)
word to←v18208;
W3 address←v18236;
word format←v18264;
{
register ptr gf←c59768 = (ptr) &globalframe;
word var←c18320;
W2 var←c56312;
/* AppendXNSAddress: */
SOURCE(41242, 697)
SOURCE(41351, 184)
if ((address←v18236.f0 == (word) -1)) {
SOURCE(41390, 38)
{
word pd400;
pd400 = (* (( (ptr) (* (( (ptr) gf←c59768)+273)/* var←c51992 */ ))+11) );
to←v18208 = (word) ( *( (fPt) ((* (ptr) pd400 ))))(to←v18208, 42, pd400);
};
}
else {
SOURCE(41428, 107)
{
W6 var←c56280;
var←c56280.f0 = 0;
var←c56280.f1 = 0;
var←c56280.f2 = (* (bPt) &address←v18236 );
var←c56280.f3 = (* (( (bPt) &address←v18236)+1) );
var←c56280.f4 = (* (( (bPt) &address←v18236)+2) );
var←c56280.f5 = (* (( (bPt) &address←v18236)+3) );
to←v18208 = (word) FmtXNS←P4800(to←v18208, var←c56280, format←v18264);
};
};
SOURCE(41537, 32)
{
word pd401;
pd401 = (* (( (ptr) (* (( (ptr) gf←c59768)+273)/* var←c51992 */ ))+11) );
to←v18208 = (word) ( *( (fPt) ((* (ptr) pd401 ))))(to←v18208, 46, pd401);
};
SOURCE(41571, 200)
{
W2 temp402;
word wAddr403;
word bOff404;
(* (hPt) &temp402 ) = 0;
wAddr403 = (word) &address←v18236;
bOff404 = 32;
(void) XR←MoveField(&temp402, 16, wAddr403, bOff404, 48);
var←c56312.f0 = (word) -1;
var←c56312.f1 = 4294901760;
if (XR←EqualWords(&temp402, &var←c56312, 2)) {
SOURCE(41612, 38)
{
word pd405;
pd405 = (* (( (ptr) (* (( (ptr) gf←c59768)+273)/* var←c51992 */ ))+11) );
to←v18208 = (word) ( *( (fPt) ((* (ptr) pd405 ))))(to←v18208, 42, pd405);
};
}
else {
SOURCE(41650, 121)
{
W6 var←c56344;
var←c56344.f0 = (* (( (bPt) &address←v18236)+4) );
var←c56344.f1 = (* (( (bPt) &address←v18236)+5) );
var←c56344.f2 = (* (( (bPt) &address←v18236)+6) );
var←c56344.f3 = (* (( (bPt) &address←v18236)+7) );
var←c56344.f4 = (* (( (bPt) &address←v18236)+8) );
var←c56344.f5 = (* (( (bPt) &address←v18236)+9) );
to←v18208 = (word) FmtXNS←P4800(to←v18208, var←c56344, format←v18264);
};
};
};
SOURCE(41773, 32)
{
word pd406;
pd406 = (* (( (ptr) (* (( (ptr) gf←c59768)+273)/* var←c51992 */ ))+11) );
to←v18208 = (word) ( *( (fPt) ((* (ptr) pd406 ))))(to←v18208, 46, pd406);
};
SOURCE(41807, 118)
if (((* (( (hPt) &address←v18236)+5) ) != 0)) {
SOURCE(41850, 75)
{
W6 var←c56376;
var←c56376.f0 = 0;
var←c56376.f1 = 0;
var←c56376.f2 = 0;
var←c56376.f3 = 0;
var←c56376.f4 = (* (( (bPt) &address←v18236)+10) );
var←c56376.f5 = (* (( (bPt) &address←v18236)+11) );
to←v18208 = (word) FmtXNS←P4800(to←v18208, var←c56376, format←v18264);
};
};
SOURCE(41927, 12)
return(to←v18208);
}
static word AppendXNSNet←P4620(to←v18392, net←v18420, format←v18448)
word to←v18392;
word net←v18420;
word format←v18448;
{
register ptr gf←c59800 = (ptr) &globalframe;
word var←c18504;
/* AppendXNSNet: */
SOURCE(41943, 255)
SOURCE(42040, 144)
if ((net←v18420 == (word) -1)) {
SOURCE(42071, 38)
{
word pd407;
pd407 = (* (( (ptr) (* (( (ptr) gf←c59800)+273)/* var←c51992 */ ))+11) );
to←v18392 = (word) ( *( (fPt) ((* (ptr) pd407 ))))(to←v18392, 42, pd407);
};
}
else {
SOURCE(42109, 75)
{
W6 var←c56408;
var←c56408.f0 = 0;
var←c56408.f1 = 0;
var←c56408.f2 = ((unsigned)net←v18420 >> 24);
var←c56408.f3 = (((unsigned)net←v18420 << 8) >> 24);
var←c56408.f4 = (((unsigned)net←v18420 << 16) >> 24);
var←c56408.f5 = (net←v18420 & 0377);
to←v18392 = (word) FmtXNS←P4800(to←v18392, var←c56408, format←v18448);
};
};
SOURCE(42186, 12)
return(to←v18392);
}
static word AppendXNSHost←P4680(to←v18576, host←v18604, format←v18632)
word to←v18576;
W2 host←v18604;
word format←v18632;
{
register ptr gf←c59832 = (ptr) &globalframe;
word var←c18688;
W2 var←c56440;
/* AppendXNSHost: */
SOURCE(42202, 258)
SOURCE(42302, 144)
var←c56440.f0 = (word) -1;
var←c56440.f1 = 4294901760;
if (XR←EqualWords(&host←v18604, &var←c56440, 2)) {
SOURCE(42335, 38)
{
word pd408;
pd408 = (* (( (ptr) (* (( (ptr) gf←c59832)+273)/* var←c51992 */ ))+11) );
to←v18576 = (word) ( *( (fPt) ((* (ptr) pd408 ))))(to←v18576, 42, pd408);
};
}
else {
SOURCE(42373, 73)
{
W6 var←c56472;
var←c56472.f0 = (* (bPt) &host←v18604 );
var←c56472.f1 = (* (( (bPt) &host←v18604)+1) );
var←c56472.f2 = (* (( (bPt) &host←v18604)+2) );
var←c56472.f3 = (* (( (bPt) &host←v18604)+3) );
var←c56472.f4 = (* (( (bPt) &host←v18604)+4) );
var←c56472.f5 = (* (( (bPt) &host←v18604)+5) );
to←v18576 = (word) FmtXNS←P4800(to←v18576, var←c56472, format←v18632);
};
};
SOURCE(42448, 12)
return(to←v18576);
}
static word AppendXNSSocket←P4740(to←v18760, socket←v18788, format←v18816)
word to←v18760;
word socket←v18788;
word format←v18816;
{
word var←c18872;
/* AppendXNSSocket: */
SOURCE(42464, 179)
SOURCE(42570, 59)
{
W6 var←c56504;
var←c56504.f0 = 0;
var←c56504.f1 = 0;
var←c56504.f2 = 0;
var←c56504.f3 = 0;
var←c56504.f4 = (((unsigned)socket←v18788 << 16) >> 24);
var←c56504.f5 = (socket←v18788 & 0377);
to←v18760 = (word) FmtXNS←P4800(to←v18760, var←c56504, format←v18816);
};
SOURCE(42631, 12)
return(to←v18760);
}
static word FmtXNS←P4800(to←v18980, formal←c01076, type←v19036)
word to←v18980;
W6 formal←c01076;
word type←v19036;
{
W15 var←c59864;
/* declaration of n←v19008 skipped */
register ptr gf←c59896 = (ptr) &globalframe;
word var←c19092;
/* declaration of var←c56536 skipped */
word text←v27588 = 0;
/* declaration of base←v27616 skipped */
/* declaration of rem←v27644 skipped */
word i←v27672;
/* declaration of isZero←v27700 skipped */
(* (W6Pt) (( (ptr) &var←c59864)+4)/* n←v19008 */ ) = formal←c01076;
/* FmtXNS: */
SOURCE(42770, 1300)
{
word tmpAddr409;
tmpAddr409 = (word) (( (ptr) &var←c59864)+10)/* var←c56536 */ ;
(* (ptr) tmpAddr409 ) = ( ((word) (fPt) DivRem←P7512) );
(* (( (ptr) tmpAddr409) + 1) ) = 1;
};
SOURCE(42865, 23)
(* (( (ptr) &var←c59864)+12)/* base←v27616 */ ) = 0;
(* (( (ptr) &var←c59864)+13)/* rem←v27644 */ ) = 0;
SOURCE(43248, 39)
{
word pd410;
pd410 = (* (( (ptr) (* (( (ptr) gf←c59896)+273)/* var←c51992 */ ))+6) );
text←v27588 = (word) ( *( (fPt) ((* (ptr) pd410 ))))(24, pd410);
};
SOURCE(43289, 28)
(* (hPt) text←v27588 ) = (* (( (hPt) text←v27588)+1) );
SOURCE(43319, 15)
i←v27672 = (* (hPt) text←v27588 );
SOURCE(43336, 577)
{
word var←c56568;
var←c56568 = type←v19036;
switch (var←c56568) {
case 2:
SOURCE(43372, 270)
{
word untilDash←v27800 = 3;
word nDashes←v27828 = 0;
SOURCE(43412, 9)
(* (( (ptr) &var←c59864)+12)/* base←v27616 */ ) = 10;
SOURCE(43423, 14)
(* (( (ptr) &var←c59864)+14)/* isZero←v27700 */ ) = 0;
SOURCE(43439, 192)
lab←L100162: ;
if ((0 == (* (( (ptr) &var←c59864)+14)/* isZero←v27700 */ )) || (nDashes←v27828 == 0)) {
}
else {
goto lab←L100160;
};
SOURCE(43478, 8)
(void) DivRem←P7512((word) ((( (bPt) &var←c59864)+40)/* var←c56536 */ ));
SOURCE(43488, 83)
if ((untilDash←v27800 == 0)) {
SOURCE(43512, 20)
{
word var←c56600;
i←v27672 = SGNCK((i←v27672 - 1));
var←c56600 = i←v27672;
{
word limit411;
(* ((( (bPt) text←v27588)+4)+(
/*1*/ limit411 = (word) (* (( (hPt) text←v27588)+1) ),
/*1*/ BCK(var←c56600, limit411)
/*1*/ )) ) = 45;
};
};
SOURCE(43534, 13)
untilDash←v27800 = 3;
SOURCE(43549, 22)
nDashes←v27828 = (nDashes←v27828 + 1);
};
SOURCE(43574, 30)
{
word var←c56632;
i←v27672 = SGNCK((i←v27672 - 1));
var←c56632 = i←v27672;
{
word limit412;
word idx413;
(* ((( (bPt) text←v27588)+4)+(
limit412 = (word) (* (( (hPt) text←v27588)+1) ),
BCK(var←c56632, limit412)
)) ) = (* ((( (ptr) gf←c59896)+252)/* var←c49848 */ +(
idx413 = (* (( (ptr) &var←c59864)+13)/* rem←v27644 */ ),
BCK(idx413, 16)
)) );
};
};
SOURCE(43606, 25)
untilDash←v27800 = SGNCK((untilDash←v27800 - 1));
goto lab←L100162;
lab←L100160: ;
};
break;
case 0:
SOURCE(43656, 8)
(* (( (ptr) &var←c59864)+12)/* base←v27616 */ ) = 8;
SOURCE(43666, 20)
{
word var←c56664;
i←v27672 = SGNCK((i←v27672 - 1));
var←c56664 = i←v27672;
{
word limit414;
(* ((( (bPt) text←v27588)+4)+(
limit414 = (word) (* (( (hPt) text←v27588)+1) ),
BCK(var←c56664, limit414)
)) ) = 66;
};
};
SOURCE(43688, 14)
(* (( (ptr) &var←c59864)+14)/* isZero←v27700 */ ) = 0;
SOURCE(43704, 60)
lab←L100165: ;
if ((0 == (* (( (ptr) &var←c59864)+14)/* isZero←v27700 */ ))) {
}
else {
goto lab←L100163;
};
SOURCE(43724, 8)
(void) DivRem←P7512((word) ((( (bPt) &var←c59864)+40)/* var←c56536 */ ));
SOURCE(43734, 30)
{
word var←c56696;
i←v27672 = SGNCK((i←v27672 - 1));
var←c56696 = i←v27672;
{
word limit415;
word idx416;
(* ((( (bPt) text←v27588)+4)+(
limit415 = (word) (* (( (hPt) text←v27588)+1) ),
BCK(var←c56696, limit415)
)) ) = (* ((( (ptr) gf←c59896)+252)/* var←c49848 */ +(
idx416 = (* (( (ptr) &var←c59864)+13)/* rem←v27644 */ ),
BCK(idx416, 16)
)) );
};
};
goto lab←L100165;
lab←L100163: ;
break;
case 1:
SOURCE(43787, 9)
(* (( (ptr) &var←c59864)+12)/* base←v27616 */ ) = 16;
SOURCE(43798, 20)
{
word var←c56728;
i←v27672 = SGNCK((i←v27672 - 1));
var←c56728 = i←v27672;
{
word limit417;
(* ((( (bPt) text←v27588)+4)+(
limit417 = (word) (* (( (hPt) text←v27588)+1) ),
BCK(var←c56728, limit417)
)) ) = 72;
};
};
SOURCE(43820, 14)
(* (( (ptr) &var←c59864)+14)/* isZero←v27700 */ ) = 0;
SOURCE(43836, 77)
lab←L100168: ;
if ((0 == (* (( (ptr) &var←c59864)+14)/* isZero←v27700 */ )) || ((* (( (ptr) &var←c59864)+13)/* rem←v27644 */ ) >= 10)) {
}
else {
goto lab←L100166;
};
SOURCE(43873, 8)
(void) DivRem←P7512((word) ((( (bPt) &var←c59864)+40)/* var←c56536 */ ));
SOURCE(43883, 30)
{
word var←c56760;
i←v27672 = SGNCK((i←v27672 - 1));
var←c56760 = i←v27672;
{
word limit418;
word idx419;
(* ((( (bPt) text←v27588)+4)+(
limit418 = (word) (* (( (hPt) text←v27588)+1) ),
BCK(var←c56760, limit418)
)) ) = (* ((( (ptr) gf←c59896)+252)/* var←c49848 */ +(
idx419 = (* (( (ptr) &var←c59864)+13)/* rem←v27644 */ ),
BCK(idx419, 16)
)) );
};
};
goto lab←L100168;
lab←L100166: ;
break;
default:
SOURCE(43938, 5)
(void) XR←RaiseUnnamedError();
break;
};
};
SOURCE(43945, 72)
lab←L100171: ;
if ((i←v27672 < (* (hPt) text←v27588 ))) {
}
else {
goto lab←L100169;
};
SOURCE(43970, 36)
{
word pd420;
word limit421;
pd420 = (* (( (ptr) (* (( (ptr) gf←c59896)+273)/* var←c51992 */ ))+11) );
to←v18980 = (word) ( *( (fPt) ((* (ptr) pd420 ))))(to←v18980, (word) (* ((( (bPt) text←v27588)+4)+(
limit421 = (word) (* (( (hPt) text←v27588)+1) ),
BCK(i←v27672, limit421)
)) ), pd420);
};
SOURCE(44008, 9)
i←v27672 = (i←v27672 + 1);
goto lab←L100171;
lab←L100169: ;
SOURCE(44028, 28)
{
word pd422;
pd422 = (* (( (ptr) (* (( (ptr) gf←c59896)+273)/* var←c51992 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd422 ))))(text←v27588, pd422);
};
SOURCE(44058, 12)
return(to←v18980);
}
static void DivRem←P7512(formal←c59928)
word formal←c59928;
{
word temp←v27872;
word carry←v27900;
formal←c59928 = (formal←c59928 - 40);
/* DivRem: */
SOURCE(42912, 322)
SOURCE(42952, 7)
(* (( (ptr) formal←c59928)+13) ) = 0;
SOURCE(42962, 13)
(* (( (ptr) formal←c59928)+14) ) = 1;
SOURCE(42977, 129)
{
register word j←v27944 = 0;
if ((j←v27944 > 5)) {
goto lab←L100172;
};
lab←L100175: ;
{
word var←c56792;
SOURCE(43013, 23)
temp←v27872 = ((* ((( (ptr) formal←c59928)+4)+BCK(j←v27944, 6)) ) + ((* (( (ptr) formal←c59928)+13) ) << 8));
SOURCE(43038, 47)
var←c56792 = (temp←v27872 / (* (( (ptr) formal←c59928)+12) ));
(* ((( (ptr) formal←c59928)+4)+BCK(j←v27944, 6)) ) = var←c56792;
if ((var←c56792 != 0)) {
SOURCE(43071, 14)
(* (( (ptr) formal←c59928)+14) ) = 0;
};
SOURCE(43087, 19)
(* (( (ptr) formal←c59928)+13) ) = (temp←v27872 % (* (( (ptr) formal←c59928)+12) ));
};
if ((j←v27944 >= 5)) {
goto lab←L100172;
};
j←v27944 = (j←v27944 + 1);
goto lab←L100175;
lab←L100172: ;
};
SOURCE(43117, 9)
carry←v27900 = 0;
SOURCE(43128, 106)
{
register word j←v27988 = 5;
lab←L100179: ;
SOURCE(43170, 19)
temp←v27872 = ((* ((( (ptr) formal←c59928)+4)+BCK(j←v27988, 6)) ) + carry←v27900);
SOURCE(43191, 21)
(* ((( (ptr) formal←c59928)+4)+BCK(j←v27988, 6)) ) = (temp←v27872 & 0377);
SOURCE(43214, 20)
carry←v27900 = (temp←v27872 >> 8);
if ((0 >= j←v27988)) {
goto lab←L100176;
};
j←v27988 = (j←v27988 - 1);
goto lab←L100179;
lab←L100176: ;
};
}
static word ArpaAddressFromRope←P4860(formal←c01077)
word formal←c01077;
{
W11 var←c59960;
/* declaration of r←v19164 skipped */
register ptr gf←c59992 = (ptr) &globalframe;
word address←v19208;
/* declaration of var←c56824 skipped */
/* declaration of var←c56856 skipped */
/* declaration of i←v28032 skipped */
/* declaration of len←v28060 skipped */
(* (( (ptr) &var←c59960)+4)/* r←v19164 */ ) = formal←c01077;
/* ArpaAddressFromRope: */
SOURCE(44073, 868)
{
word tmpAddr423;
tmpAddr423 = (word) (( (ptr) &var←c59960)+5)/* var←c56824 */ ;
(* (ptr) tmpAddr423 ) = ( ((word) (fPt) SkipDot←P7776) );
(* (( (ptr) tmpAddr423) + 1) ) = 1;
};
{
word tmpAddr424;
tmpAddr424 = (word) (( (ptr) &var←c59960)+7)/* var←c56856 */ ;
(* (ptr) tmpAddr424 ) = ( ((word) (fPt) AToI←P7716) );
(* (( (ptr) tmpAddr424) + 1) ) = 1;
};
SOURCE(44152, 15)
(* (( (ptr) &var←c59960)+9)/* i←v28032 */ ) = 0;
SOURCE(44600, 20)
{
word pd425;
word idx426;
pd425 = (* (( (ptr) (* (( (ptr) gf←c59992)+269)/* var←c50040 */ ))+14) );
(* (( (ptr) &var←c59960)+10)/* len←v28060 */ ) = (
idx426 = (word) ( *( (fPt) ((* (ptr) pd425 ))))((* ((( (ptr) &var←c59960)+4)/* r←v19164 */ ) ), pd425),
SGNCK(idx426)
);
};
SOURCE(44622, 41)
if (((* (( (ptr) &var←c59960)+10)/* len←v28060 */ ) == 0)) {
SOURCE(44638, 25)
return(0);
};
SOURCE(44665, 122)
{
word tc427;
word tc428;
word pd429;
word pd430;
if (((* (( (ptr) &var←c59960)+10)/* len←v28060 */ ) >= 2)) {
pd429 = (* (( (ptr) (* (( (ptr) gf←c59992)+269)/* var←c50040 */ ))+9) );
tc428 = (word) ((word) ( *( (fPt) ((* (ptr) pd429 ))))((* (( (ptr) &var←c59960)+4)/* r←v19164 */ ), 0, pd429) == 91);
}
else {
tc428 = (word) 0;
};
if (tc428) {
pd430 = (* (( (ptr) (* (( (ptr) gf←c59992)+269)/* var←c50040 */ ))+9) );
tc427 = (word) ((word) ( *( (fPt) ((* (ptr) pd430 ))))((* (( (ptr) &var←c59960)+4)/* r←v19164 */ ), ((* (( (ptr) &var←c59960)+10)
/* len←v28060 */ ) - 1), pd430) == 93);
}
else {
tc427 = (word) 0;
};
if (tc427) {
SOURCE(44745, 13)
(* (( (ptr) &var←c59960)+10)/* len←v28060 */ ) = ((* (( (ptr) &var←c59960)+10)/* len←v28060 */ ) - 2);
SOURCE(44760, 27)
{
word pd431;
word idx432;
pd431 = (* (( (ptr) (* (( (ptr) gf←c59992)+269)/* var←c50040 */ ))+17) );
(* (( (ptr) &var←c59960)+4)/* r←v19164 */ ) = (word) ( *( (fPt) ((* (ptr) pd431 ))))((* (( (ptr) &var←c59960)+4)/* r←v19164 */ ), 1, (
idx432 = (* (( (ptr) &var←c59960)+10)/* len←v28060 */ ),
SGNCK(idx432)
), pd431);
};
};
};
SOURCE(44790, 18)
address←v19208 = (address←v19208 & 16777215) | ((((word) AToI←P7716((word) ((( (bPt) &var←c59960)+28)/* var←c56856 */ )) & 0377))
<< 24);
SOURCE(44810, 9)
(void) SkipDot←P7776((word) ((( (bPt) &var←c59960)+20)/* var←c56824 */ ));
SOURCE(44821, 18)
address←v19208 = (address←v19208 & 4278255615) | ((((word) AToI←P7716((word) ((( (bPt) &var←c59960)+28)/* var←c56856 */ ))
& 0377)) << 16);
SOURCE(44841, 9)
(void) SkipDot←P7776((word) ((( (bPt) &var←c59960)+20)/* var←c56824 */ ));
SOURCE(44852, 18)
address←v19208 = (address←v19208 & 4294902015) | ((((word) AToI←P7716((word) ((( (bPt) &var←c59960)+28)/* var←c56856 */ ))
& 0377)) << 8);
SOURCE(44872, 9)
(void) SkipDot←P7776((word) ((( (bPt) &var←c59960)+20)/* var←c56824 */ ));
SOURCE(44883, 18)
address←v19208 = (address←v19208 & 4294967040) | (((word) AToI←P7716((word) ((( (bPt) &var←c59960)+28)/* var←c56856 */ ))
& 0377));
SOURCE(44903, 38)
if (((* (( (ptr) &var←c59960)+9)/* i←v28032 */ ) < (* (( (ptr) &var←c59960)+10)/* len←v28060 */ ))) {
SOURCE(44919, 22)
{
W2 var←c0879;
{
word idx433;
(* (ptr) (word) &var←c0879 ) = 0;
(* (( (ptr) (word) &var←c0879) + 1) ) = (
idx433 = (* (( (ptr) &var←c59960)+9)/* i←v28032 */ ),
SGNCK(idx433)
);
};
(void) XR←RaiseError((word) (( (bPt) gf←c59992)+332)/* var←c47096 */ , (word) &var←c0879);
};
};
SOURCE(44073, 868)
return(address←v19208);
}
static word AToI←P7716(formal←c60056)
word formal←c60056;
{
register ptr gf←c60024 = (ptr) &globalframe;
word var←c28192;
word n←v28236 = 0;
word c←v28264;
formal←c60056 = (formal←c60056 - 28);
/* AToI: */
SOURCE(44184, 300)
SOURCE(44240, 67)
if (((* (( (ptr) formal←c60056)+9) ) < (* (( (ptr) formal←c60056)+10) ))) {
SOURCE(44258, 20)
{
word pd434;
word idx435;
pd434 = (* (( (ptr) (* (( (ptr) gf←c60024)+269)/* var←c50040 */ ))+9) );
c←v28264 = (word) ( *( (fPt) ((* (ptr) pd434 ))))((* (( (ptr) formal←c60056)+4) ), (
idx435 = (* (( (ptr) formal←c60056)+9) ),
SGNCK(idx435)
), pd434);
};
SOURCE(44281, 10)
(* (( (ptr) formal←c60056)+9) ) = ((* (( (ptr) formal←c60056)+9) ) + 1);
}
else {
SOURCE(44300, 7)
c←v28264 = 88;
};
SOURCE(44310, 49)
if (((c←v28264 - 48) > 9)) {
SOURCE(44337, 22)
{
W2 var←c0883;
{
word idx436;
(* (ptr) (word) &var←c0883 ) = 0;
(* (( (ptr) (word) &var←c0883) + 1) ) = (
idx436 = (* (( (ptr) formal←c60056)+9) ),
SGNCK(idx436)
);
};
(void) XR←RaiseError((word) (( (bPt) gf←c60024)+332)/* var←c47096 */ , (word) &var←c0883);
};
};
SOURCE(44361, 123)
lab←L100182: ;
SOURCE(44364, 21)
n←v28236 = ((n←v28236 * 10) + (c←v28264 - 48));
SOURCE(44387, 26)
if (((* (( (ptr) formal←c60056)+9) ) >= (* (( (ptr) formal←c60056)+10) ))) {
SOURCE(44404, 9)
return(BCK(n←v28236, 256));
};
SOURCE(44415, 20)
{
word pd437;
word idx438;
pd437 = (* (( (ptr) (* (( (ptr) gf←c60024)+269)/* var←c50040 */ ))+9) );
c←v28264 = (word) ( *( (fPt) ((* (ptr) pd437 ))))((* (( (ptr) formal←c60056)+4) ), (
idx438 = (* (( (ptr) formal←c60056)+9) ),
SGNCK(idx438)
), pd437);
};
SOURCE(44437, 36)
if (((c←v28264 - 48) > 9)) {
SOURCE(44464, 9)
return(BCK(n←v28236, 256));
};
SOURCE(44475, 9)
(* (( (ptr) formal←c60056)+9) ) = ((* (( (ptr) formal←c60056)+9) ) + 1);
goto lab←L100182;
}
static void SkipDot←P7776(formal←c60120)
word formal←c60120;
{
register ptr gf←c60088 = (ptr) &globalframe;
formal←c60120 = (formal←c60120 - 20);
/* SkipDot: */
SOURCE(44498, 97)
SOURCE(44516, 68)
{
word pd440;
word idx441;
if (((* (( (ptr) formal←c60120)+9) ) >= (* (( (ptr) formal←c60120)+10) ))) { goto then0439;};
pd440 = (* (( (ptr) (* (( (ptr) gf←c60088)+269)/* var←c50040 */ ))+9) );
if (((word) ( *( (fPt) ((* (ptr) pd440 ))))((* (( (ptr) formal←c60120)+4) ), (
idx441 = (* (( (ptr) formal←c60120)+9) ),
SGNCK(idx441)
), pd440) != 46)) {
then0439: ;
SOURCE(44562, 22)
{
W2 var←c0884;
{
word idx442;
(* (ptr) (word) &var←c0884 ) = 0;
(* (( (ptr) (word) &var←c0884) + 1) ) = (
idx442 = (* (( (ptr) formal←c60120)+9) ),
SGNCK(idx442)
);
};
(void) XR←RaiseError((word) (( (bPt) gf←c60088)+332)/* var←c47096 */ , (word) &var←c0884);
};
};
};
SOURCE(44586, 9)
(* (( (ptr) formal←c60120)+9) ) = ((* (( (ptr) formal←c60120)+9) ) + 1);
}
static word RopeFromArpaAddress←P4920(a←v19268)
word a←v19268;
{
register ptr gf←c60152 = (ptr) &globalframe;
word rope←v19312;
/* RopeFromArpaAddress: */
SOURCE(44947, 186)
SOURCE(44947, 186)
rope←v19312 = 0;
SOURCE(45023, 110)
{
word var←c56952;
word var←c56984;
word var←c56920;
var←c56952 = XR←NewObject(12, (* (( (ptr) gf←c60152)+12) ));
var←c56984 = var←c56952;
(* (ptr) var←c56984 ) = 4;
(* (( (ptr) var←c56984)+1) ) = ((unsigned)a←v19268 >> 24);
(* (( (ptr) var←c56984)+2) ) = XR←NewObject(12, (* (( (ptr) gf←c60152)+12) ));
var←c56984 = (* (( (ptr) var←c56984)+2) );
(* (ptr) var←c56984 ) = 4;
(* (( (ptr) var←c56984)+1) ) = (((unsigned)a←v19268 << 8) >> 24);
(* (( (ptr) var←c56984)+2) ) = XR←NewObject(12, (* (( (ptr) gf←c60152)+12) ));
var←c56984 = (* (( (ptr) var←c56984)+2) );
(* (ptr) var←c56984 ) = 4;
(* (( (ptr) var←c56984)+1) ) = (((unsigned)a←v19268 << 16) >> 24);
(* (( (ptr) var←c56984)+2) ) = XR←NewObject(12, (* (( (ptr) gf←c60152)+12) ));
var←c56984 = (* (( (ptr) var←c56984)+2) );
(* (ptr) var←c56984 ) = 4;
(* (( (ptr) var←c56984)+1) ) = (a←v19268 & 0377);
var←c56920 = (var←c56952
);
{
word pd443;
pd443 = (* (( (ptr) (* (( (ptr) gf←c60152)+272)/* var←c51672 */ ))+65) );
return((word) ( *( (fPt) ((* (ptr) pd443 ))))((* (( (ptr) gf←c60152)+79) ), var←c56920, pd443));
};
};
}
static word AppendArpaAddress←P4980(to←v19372, address←v19400)
word to←v19372;
word address←v19400;
{
word var←c19456;
/* AppendArpaAddress: */
SOURCE(45139, 422)
SOURCE(45249, 57)
to←v19372 = (word) AppendWholeNumber←P1560(to←v19372, ((unsigned)address←v19400 >> 24), 10, 0, 0);
SOURCE(45308, 23)
to←v19372 = (word) AppendChar←P2460(to←v19372, 46, 1);
SOURCE(45333, 57)
to←v19372 = (word) AppendWholeNumber←P1560(to←v19372, (((unsigned)address←v19400 << 8) >> 24), 10, 0, 0);
SOURCE(45392, 23)
to←v19372 = (word) AppendChar←P2460(to←v19372, 46, 1);
SOURCE(45417, 57)
to←v19372 = (word) AppendWholeNumber←P1560(to←v19372, (((unsigned)address←v19400 << 16) >> 24), 10, 0, 0);
SOURCE(45476, 23)
to←v19372 = (word) AppendChar←P2460(to←v19372, 46, 1);
SOURCE(45501, 60)
return((word) AppendWholeNumber←P1560(to←v19372, (address←v19400 & 0377), 10, 0, 0));
}
static void NoName←Q9624(formal←c0903, formal←c200016, formal←c200017, formal←c200018, formal←c200019)
word formal←c0903;
word formal←c200016;
word formal←c200017;
word formal←c200018;
word formal←c200019;
{
register ptr gf←c01032 = (ptr) &globalframe;
if ((formal←c200017 == (* (( (ptr) (* (( (ptr) gf←c01032)+272)/* var←c51672 */ ))+5) ))) {
{
word ec←v43152;
word stream←v43180;
word details←v43208;
word msg←v43236;
ec←v43152 = (* (ptr) formal←c200019 );
stream←v43180 = (* (( (ptr) formal←c200019)+1) );
details←v43208 = (* (( (ptr) formal←c200019)+2) );
msg←v43236 = (* (( (ptr) formal←c200019)+3) );
SOURCE(14738, 67)
if ((ec←v43152 == 7)) {
SOURCE(14764, 41)
{
word var←c51864;
{
word pd444;
pd444 = (* (( (ptr) (* (( (ptr) gf←c01032)+272)/* var←c51672 */ ))+29) );
var←c51864 = (word) ( *( (fPt) ((* (ptr) pd444 ))))(stream←v43180, pd444);
};
{
W2 var←c0902;
(* (ptr) (word) &var←c0902 ) = 0;
(* (( (ptr) (word) &var←c0902) + 1) ) = var←c51864;
(void) XR←RaiseError((word) (( (bPt) gf←c01032)+332)/* var←c47096 */ , (word) &var←c0902);
};
};
};
};
};
(* (ptr) formal←c0903 ) = 0;
(* (( (ptr) formal←c0903)+1) ) = 0;
return;
}
static void NoName←Q9684(formal←c0917, formal←c200012, formal←c200013, formal←c200014, formal←c200015)
word formal←c0917;
word formal←c200012;
word formal←c200013;
word formal←c200014;
word formal←c200015;
{
register ptr gf←c01033 = (ptr) &globalframe;
if ((formal←c200013 == (* (( (ptr) (* (( (ptr) gf←c01033)+272)/* var←c51672 */ ))+5) ))) {
{
word ec←v42944;
word stream←v42972;
word details←v43000;
word msg←v43028;
ec←v42944 = (* (ptr) formal←c200015 );
stream←v42972 = (* (( (ptr) formal←c200015)+1) );
details←v43000 = (* (( (ptr) formal←c200015)+2) );
msg←v43028 = (* (( (ptr) formal←c200015)+3) );
SOURCE(14468, 126)
{
word var←c51704;
var←c51704 = ec←v42944;
if ((var←c51704 == 7)) {
SOURCE(14499, 39)
{
word var←c51736;
{
word pd445;
pd445 = (* (( (ptr) (* (( (ptr) gf←c01033)+272)/* var←c51672 */ ))+29) );
var←c51736 = (word) ( *( (fPt) ((* (ptr) pd445 ))))(stream←v42972, pd445);
};
{
W2 var←c0914;
(* (ptr) (word) &var←c0914 ) = 0;
(* (( (ptr) (word) &var←c0914) + 1) ) = var←c51736;
(void) XR←RaiseError((word) (( (bPt) gf←c01033)+332)/* var←c47096 */ , (word) &var←c0914);
};
};
}
else {
if ((var←c51704 == 8)) {
SOURCE(14553, 41)
{
word var←c51768;
{
word pd446;
pd446 = (* (( (ptr) (* (( (ptr) gf←c01033)+272)/* var←c51672 */ ))+29) );
var←c51768 = (word) ( *( (fPt) ((* (ptr) pd446 ))))(stream←v42972, pd446);
};
{
W2 var←c0916;
(* (ptr) (word) &var←c0916 ) = 1;
(* (( (ptr) (word) &var←c0916) + 1) ) = var←c51768;
(void) XR←RaiseError((word) (( (bPt) gf←c01033)+332)/* var←c47096 */ , (word) &var←c0916);
};
};
};
};
};
};
};
(* (ptr) formal←c0917 ) = 0;
(* (( (ptr) formal←c0917)+1) ) = 0;
return;
}
static void NoName←Q9744(formal←c0923, formal←c200008, formal←c200009, formal←c200010, formal←c200011)
word formal←c0923;
word formal←c200008;
word formal←c200009;
word formal←c200010;
word formal←c200011;
{
register ptr gf←c01034 = (ptr) &globalframe;
if ((formal←c200009 == (* (( (ptr) (* (( (ptr) gf←c01034)+271)/* var←c51128 */ ))+8) ))) {
SOURCE(11467, 27)
{
W2 var←c0922;
(* (ptr) (word) &var←c0922 ) = 0;
(* (( (ptr) (word) &var←c0922) + 1) ) = (* (( (ptr) formal←c200008)+5) );
(void) XR←RaiseError((word) (( (bPt) gf←c01034)+332)/* var←c47096 */ , (word) &var←c0922);
};
};
(* (ptr) formal←c0923 ) = 0;
(* (( (ptr) formal←c0923)+1) ) = 0;
return;
}
static void NoName←Q9804(formal←c0929, formal←c200004, formal←c200005, formal←c200006, formal←c200007)
word formal←c0929;
word formal←c200004;
word formal←c200005;
word formal←c200006;
word formal←c200007;
{
register ptr gf←c01035 = (ptr) &globalframe;
if ((formal←c200005 == (* (( (ptr) (* (( (ptr) gf←c01035)+271)/* var←c51128 */ ))+8) ))) {
SOURCE(10796, 27)
{
W2 var←c0928;
(* (ptr) (word) &var←c0928 ) = 0;
(* (( (ptr) (word) &var←c0928) + 1) ) = (* (( (ptr) formal←c200004)+5) );
(void) XR←RaiseError((word) (( (bPt) gf←c01035)+332)/* var←c47096 */ , (word) &var←c0928);
};
};
(* (ptr) formal←c0929 ) = 0;
(* (( (ptr) formal←c0929)+1) ) = 0;
return;
}
static void NoName←Q9864(formal←c0937, formal←c200000, formal←c200001, formal←c200002, formal←c200003)
word formal←c0937;
word formal←c200000;
word formal←c200001;
word formal←c200002;
word formal←c200003;
{
register ptr gf←c01036 = (ptr) &globalframe;
if ((formal←c200001 == (* (( (ptr) (* (( (ptr) gf←c01036)+270)/* var←c50712 */ ))+11) ))) {
{
word flags←v42780;
word vp←v42808;
word clientFixup←v42852;
flags←v42780 = (* (ptr) formal←c200003 );
vp←v42808 = (* (( (ptr) formal←c200003)+1) );
clientFixup←v42852 = 0;
SOURCE(9819, 8)
(* (ptr) formal←c200002 ) = clientFixup←v42852;
(* (ptr) formal←c0937 ) = 1;
(* (( (ptr) formal←c0937)+1) ) = 0;
return;
};
};
(* (ptr) formal←c0937 ) = 0;
(* (( (ptr) formal←c0937)+1) ) = 0;
return;
}
/* file: IOConvertImpl, module: IOConvertImpl, compiled at: February 21, 1992 9:37:54 pm PST */
extern void XR←install←IOConvertImpl() {
NoName←Q9264();
}
extern void XR←run←IOConvertImpl() { XR←Start(&globalframe); }