/* 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 #include 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, "\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); }