/* Generated with C2C (Cedar To C)*/ /* Copyright (C) 1992 by Xerox Corporation. All rights reserved. */ /* time: February 21, 1992 9:33:05 pm PST */ /* C2C version: October 16, 1990 (native) */ /* ref-counting: off */ /* file: IODateAndTimeImpl, module: IODateAndTimeImpl */ /* switches: bcfhklnouw */ #include #include static char versionStamp[] = "@(#)mob_version [334830066,948394906] IODateAndTimeImpl"; typedef unsigned word, *ptr; typedef unsigned char byte, *bPt; typedef unsigned short half, *hPt; typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8; typedef struct {W8 f; W8 r;} W16; typedef struct {W16 f; W16 r;} W32; typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7; typedef struct {W8 f; W7 r;} W15; typedef struct {W32 f; W15 r;} W47; typedef struct {word f0, f1, f2;} W3; typedef struct {W8 f; W3 r;} W11; typedef struct {word f0, f1;} W2; typedef word (*fPt)(); typedef W3 *W3Pt; typedef W11 *W11Pt; typedef struct {word f0, f1, f2, f3, f4, f5;} W6; typedef struct {W8 f; word r;} W9; typedef struct {W8 f; W6 r;} W14; typedef struct {word f0, f1, f2, f3;} W4; typedef struct {W8 f; W4 r;} W12; #define SOURCE(p, l) /* source p, l */ #define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR_RaiseBoundsFault()) : (idx) ) #define SGNCK(i) ((int) (word) (i) < 0 ? XR_RaiseArithmeticFault(): i ) #define MIN(cast, x, y) ( ( cast x) < ( cast y) ? (x) : (y) ) #define INEG(x) ( (word) ( - ((int) (word) (x)) ) ) #define IOP2(op, x, y) ( (word) ((x) op (y)) ) static void NoName_Q4440(); static void IODateAndTimeImpl_P0(); static void GetUnpackedTime_P60(); static word NoName_Q4500(); static word NoName_Q4560(); static word NoName_Q4620(); static word NoName_Q4680(); static void InitializeInput_P120(); static void FinalizeInput_P180(); static void GetToken_P240(); static void ReadMoreTokens_P300(); static word GetChar_P960(); static void Backup_P1020(); static void AddToken_P360(); static void BackupStream_P420(); static word ParseWeekday_P480(); static word ParseDate_P540(); static word NoName_Q4740(); static word NoName_Q4800(); static word NoName_Q4860(); static word NoName_Q4920(); static word NoName_Q4980(); static word NoName_Q5040(); static word ParseSymbolicMonth_P1512(); static word CollectYear_P1572(); static word NoName_Q5100(); static word ParseTime_P600(); static word NoName_Q5160(); static word AMorPM_P2460(); static word ParseZone_P660(); static word NoName_Q5220(); static word NoName_Q5280(); static word NoName_Q5340(); static word NoName_Q5400(); static word NoName_Q5460(); static word CollectSymbolic_P3144(); static word CollectAbsolute_P3204(); static void Bogus_P720(); static word CollectValue_P780(); static word LeapYear_P840(); static word ConsumeSPOrComma_P900(); static void NoName_Q5520(); static void NoName_Q5580(); static void NoName_Q5640(); static void NoName_Q5700(); static void NoName_Q5760(); static void NoName_Q5820(); static void NoName_Q5880(); static void NoName_Q5940(); static void NoName_Q6000(); static void NoName_Q6060(); static void NoName_Q6120(); static void NoName_Q6180(); static void NoName_Q6240(); static void NoName_Q6300(); static void NoName_Q6360(); static void NoName_Q6420(); static void NoName_Q6480(); static struct {unsigned f; char r[16];} string1 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"}; static struct {unsigned f; char r[4];} string2 = {65537, "\001\000\000"}; static struct {unsigned f; char r[16];} string3 = {851984, "\257\300\023\365\031\362\300\070\207\133\232\100\200\000\000"}; static struct {unsigned f; char r[4];} string4 = {131074, "\004\006\000"}; static struct {unsigned f; char r[12];} string5 = {589836, "Wednesday\000\000"}; static struct {unsigned f; char r[12];} string6 = {524300, "Thursday\000\000\000"}; static struct {unsigned f; char r[8];} string7 = {393224, "Friday\000"}; static struct {unsigned f; char r[12];} string8 = {524300, "Saturday\000\000\000"}; static struct {unsigned f; char r[8];} string9 = {393224, "Sunday\000"}; static struct {unsigned f; char r[8];} string10 = {458760, "Tuesday"}; static struct {unsigned f; char r[4];} string11 = {65540, "I\000\000"}; static struct {unsigned f; char r[4];} string12 = {131076, "II\000"}; static struct {unsigned f; char r[4];} string13 = {196612, "III"}; static struct {unsigned f; char r[4];} string14 = {131076, "IV\000"}; static struct {unsigned f; char r[4];} string15 = {65540, "V\000\000"}; static struct {unsigned f; char r[4];} string16 = {131076, "VI\000"}; static struct {unsigned f; char r[4];} string17 = {196612, "VII"}; static struct {unsigned f; char r[8];} string18 = {262152, "VIII\000\000\000"}; static struct {unsigned f; char r[4];} string19 = {131076, "IX\000"}; static struct {unsigned f; char r[4];} string20 = {65540, "X\000\000"}; static struct {unsigned f; char r[4];} string21 = {131076, "XI\000"}; static struct {unsigned f; char r[4];} string22 = {196612, "XII"}; static struct {unsigned f; char r[8];} string23 = {458760, "January"}; static struct {unsigned f; char r[12];} string24 = {524300, "February\000\000\000"}; static struct {unsigned f; char r[8];} string25 = {327688, "March\000\000"}; static struct {unsigned f; char r[8];} string26 = {327688, "April\000\000"}; static struct {unsigned f; char r[4];} string27 = {196612, "May"}; static struct {unsigned f; char r[8];} string28 = {262152, "June\000\000\000"}; static struct {unsigned f; char r[8];} string29 = {262152, "July\000\000\000"}; static struct {unsigned f; char r[8];} string30 = {393224, "August\000"}; static struct {unsigned f; char r[12];} string31 = {589836, "September\000\000"}; static struct {unsigned f; char r[8];} string32 = {458760, "October"}; static struct {unsigned f; char r[12];} string33 = {524300, "November\000\000\000"}; static struct {unsigned f; char r[12];} string34 = {524300, "December\000\000\000"}; static struct {unsigned f; char r[8];} string35 = {393224, "Monday\000"}; static struct {unsigned f; char r[16];} string36 = {851984, "\257\300\023\365\031\362\300\070\207\133\232\100\164\000\000"}; static struct {unsigned f; char r[12];} string37 = {524296, "\006\001\040\010\000\004\037\001\000\000\000"}; static unsigned string38 = 1229914112; static struct {unsigned f; char r[16];} string39 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"}; static struct {unsigned f; char r[16];} string40 = {851984, "\257\300\332\223\177\020\300\304\076\102\260\100\164\000\000"}; static struct {unsigned f; char r[16];} string41 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"}; static struct {unsigned f; char r[16];} string42 = {851984, "\257\300\275\320\070\317\300\004\110\363\366\100\150\000\000"}; static struct { word f0[43]; word f43; word f44; word f45; word f46; word f47; word f48; word f49; word f50; word f51; word f52; word f53; word f54; word f55; word f56; word f57; word f58; word f59; word f60; word f61; word f62; word f63; word f64; word f65[6]; } globalframe = { {0}, (word) GetUnpackedTime_P60, 0, (word) IODateAndTimeImpl_P0, 0, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31, 1498961750, 1431589714, 1364217678, 1514226243, 1145390663, 1212762956, {0} }; static void NoName_Q4440() { register ptr gf_c0396 = (ptr) &globalframe; word var_c23632; (* (( (ptr) gf_c0396)+5) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2); (* (( (ptr) gf_c0396)+7) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4); (* (ptr) (( (bPt) gf_c0396)+32) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+5) ), (word) &string5); (* (ptr) (( (bPt) gf_c0396)+36) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+5) ), (word) &string6); (* (ptr) (( (bPt) gf_c0396)+40) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+5) ), (word) &string7); (* (ptr) (( (bPt) gf_c0396)+44) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+5) ), (word) &string8); (* (ptr) (( (bPt) gf_c0396)+48) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+5) ), (word) &string9); (* (ptr) (( (bPt) gf_c0396)+52) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+5) ), (word) &string10); (* (ptr) (( (bPt) gf_c0396)+56) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+5) ), (word) &string11); (* (ptr) (( (bPt) gf_c0396)+60) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+5) ), (word) &string12); (* (ptr) (( (bPt) gf_c0396)+64) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+5) ), (word) &string13); (* (ptr) (( (bPt) gf_c0396)+68) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+5) ), (word) &string14); (* (ptr) (( (bPt) gf_c0396)+72) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+5) ), (word) &string15); (* (ptr) (( (bPt) gf_c0396)+76) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+5) ), (word) &string16); (* (ptr) (( (bPt) gf_c0396)+80) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+5) ), (word) &string17); (* (ptr) (( (bPt) gf_c0396)+84) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+5) ), (word) &string18); (* (ptr) (( (bPt) gf_c0396)+88) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+5) ), (word) &string19); (* (ptr) (( (bPt) gf_c0396)+92) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+5) ), (word) &string20); (* (ptr) (( (bPt) gf_c0396)+96) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+5) ), (word) &string21); (* (ptr) (( (bPt) gf_c0396)+100) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+5) ), (word) &string22); (* (ptr) (( (bPt) gf_c0396)+104) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+5) ), (word) &string23); (* (ptr) (( (bPt) gf_c0396)+108) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+5) ), (word) &string24); (* (ptr) (( (bPt) gf_c0396)+112) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+5) ), (word) &string25); (* (ptr) (( (bPt) gf_c0396)+116) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+5) ), (word) &string26); (* (ptr) (( (bPt) gf_c0396)+120) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+5) ), (word) &string27); (* (ptr) (( (bPt) gf_c0396)+124) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+5) ), (word) &string28); (* (ptr) (( (bPt) gf_c0396)+128) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+5) ), (word) &string29); (* (ptr) (( (bPt) gf_c0396)+132) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+5) ), (word) &string30); (* (ptr) (( (bPt) gf_c0396)+136) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+5) ), (word) &string31); (* (ptr) (( (bPt) gf_c0396)+140) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+5) ), (word) &string32); (* (ptr) (( (bPt) gf_c0396)+144) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+5) ), (word) &string33); (* (ptr) (( (bPt) gf_c0396)+148) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+5) ), (word) &string34); (* (ptr) (( (bPt) gf_c0396)+152) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0396)+5) ), (word) &string35); (void) XR_DeclareGlobalFrame((word) "IODateAndTimeImpl", &globalframe, (word) XR_GetTypeIndex((word) &string36, 0, (word) &string37) , (word) (( (bPt) gf_c0396)+180)/* var_c18704 */ ); var_c23632 = (word) XR_ImportInterface((word) &string38, (word) XR_GetTypeIndexS((word) (&string39)), 103); (* (( (ptr) gf_c0396)+66)/* var_c19312 */ ) = var_c23632; (void) XR_ImportProcS(var_c23632, 527874); (void) XR_ImportProcS(var_c23632, 67372801); (void) XR_ImportProcS(var_c23632, 67373825); var_c23632 = (word) XR_ImportInterface((word) "RefText", (word) XR_GetTypeIndexS((word) (&string40)), 26); (* (( (ptr) gf_c0396)+67)/* var_c19472 */ ) = var_c23632; (void) XR_ImportProcS(var_c23632, 262913); (void) XR_ImportProcS(var_c23632, 67634946); (void) XR_ImportProcS(var_c23632, 67371521); var_c23632 = (word) XR_ImportInterface((word) "Rope", (word) XR_GetTypeIndexS((word) (&string41)), 43); (* (( (ptr) gf_c0396)+68)/* var_c20656 */ ) = var_c23632; (void) XR_ImportProcS(var_c23632, 67896323); (void) XR_ImportProcS(var_c23632, 67898627); var_c23632 = (word) XR_ImportInterface((word) "RuntimeError", (word) XR_GetTypeIndexS((word) (&string42)), 27); (* (( (ptr) gf_c0396)+69)/* var_c22800 */ ) = var_c23632; var_c23632 = (word) XR_ExportInterface((word) &string38, (word) XR_GetTypeIndexS((word) (&string39)), 103); (* (( (ptr) gf_c0396)+70)/* var_c23664 */ ) = var_c23632; (void) XR_ExportProcS(var_c23632, (word) (( (bPt) gf_c0396)+172)/* var_c18672 */ , 738479617); } static void IODateAndTimeImpl_P0(formal_c040, formal_c039) word formal_c040; word formal_c039; { register ptr gf_c23696 = (ptr) &globalframe; /* IODateAndTimeImpl: */ SOURCE(358, 14369) /* 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 */ /* moved to installation proc */ /* moved to installation proc */ (* (( (bPt) gf_c23696)+260) ) = 77; } static void GetUnpackedTime_P60(formal_c060, formal_c0513) word formal_c060; word formal_c0513; { W47 var_c23728; /* declaration of s_v4404 skipped */ /* declaration of time_v4448 skipped */ /* declaration of var_c18864 skipped */ /* declaration of var_c18896 skipped */ /* declaration of var_c18928 skipped */ /* declaration of var_c18960 skipped */ /* declaration of var_c18992 skipped */ /* declaration of var_c19024 skipped */ /* declaration of var_c19056 skipped */ /* declaration of var_c19088 skipped */ /* declaration of var_c19120 skipped */ /* declaration of var_c19152 skipped */ /* declaration of var_c19184 skipped */ /* declaration of var_c19216 skipped */ /* declaration of var_c19248 skipped */ /* declaration of var_c19280 skipped */ /* declaration of input_v4504 skipped */ /* declaration of state_v4588 skipped */ /* declaration of nextToken_v5036 skipped */ (* (( (ptr) &var_c23728)+4)/* s_v4404 */ ) = formal_c0513; /* GetUnpackedTime: */ SOURCE(1835, 12892) { word tmpAddr43; tmpAddr43 = (word) (( (ptr) &var_c23728)+16)/* var_c18864 */ ; (* (ptr) tmpAddr43 ) = ( ((word) (fPt) ConsumeSPOrComma_P900) ); (* (( (ptr) tmpAddr43) + 1) ) = 1; }; { word tmpAddr44; tmpAddr44 = (word) (( (ptr) &var_c23728)+18)/* var_c18896 */ ; (* (ptr) tmpAddr44 ) = ( ((word) (fPt) LeapYear_P840) ); (* (( (ptr) tmpAddr44) + 1) ) = 1; }; { word tmpAddr45; tmpAddr45 = (word) (( (ptr) &var_c23728)+20)/* var_c18928 */ ; (* (ptr) tmpAddr45 ) = ( ((word) (fPt) CollectValue_P780) ); (* (( (ptr) tmpAddr45) + 1) ) = 1; }; { word tmpAddr46; tmpAddr46 = (word) (( (ptr) &var_c23728)+22)/* var_c18960 */ ; (* (ptr) tmpAddr46 ) = ( ((word) (fPt) Bogus_P720) ); (* (( (ptr) tmpAddr46) + 1) ) = 1; }; { word tmpAddr47; tmpAddr47 = (word) (( (ptr) &var_c23728)+24)/* var_c18992 */ ; (* (ptr) tmpAddr47 ) = ( ((word) (fPt) ParseZone_P660) ); (* (( (ptr) tmpAddr47) + 1) ) = 1; }; { word tmpAddr48; tmpAddr48 = (word) (( (ptr) &var_c23728)+26)/* var_c19024 */ ; (* (ptr) tmpAddr48 ) = ( ((word) (fPt) ParseTime_P600) ); (* (( (ptr) tmpAddr48) + 1) ) = 1; }; { word tmpAddr49; tmpAddr49 = (word) (( (ptr) &var_c23728)+28)/* var_c19056 */ ; (* (ptr) tmpAddr49 ) = ( ((word) (fPt) ParseDate_P540) ); (* (( (ptr) tmpAddr49) + 1) ) = 1; }; { word tmpAddr50; tmpAddr50 = (word) (( (ptr) &var_c23728)+30)/* var_c19088 */ ; (* (ptr) tmpAddr50 ) = ( ((word) (fPt) ParseWeekday_P480) ); (* (( (ptr) tmpAddr50) + 1) ) = 1; }; { word tmpAddr51; tmpAddr51 = (word) (( (ptr) &var_c23728)+32)/* var_c19120 */ ; (* (ptr) tmpAddr51 ) = ( ((word) (fPt) BackupStream_P420) ); (* (( (ptr) tmpAddr51) + 1) ) = 1; }; { word tmpAddr52; tmpAddr52 = (word) (( (ptr) &var_c23728)+34)/* var_c19152 */ ; (* (ptr) tmpAddr52 ) = ( ((word) (fPt) AddToken_P360) ); (* (( (ptr) tmpAddr52) + 1) ) = 1; }; { word tmpAddr53; tmpAddr53 = (word) (( (ptr) &var_c23728)+36)/* var_c19184 */ ; (* (ptr) tmpAddr53 ) = ( ((word) (fPt) ReadMoreTokens_P300) ); (* (( (ptr) tmpAddr53) + 1) ) = 1; }; { word tmpAddr54; tmpAddr54 = (word) (( (ptr) &var_c23728)+38)/* var_c19216 */ ; (* (ptr) tmpAddr54 ) = ( ((word) (fPt) GetToken_P240) ); (* (( (ptr) tmpAddr54) + 1) ) = 1; }; { word tmpAddr55; tmpAddr55 = (word) (( (ptr) &var_c23728)+40)/* var_c19248 */ ; (* (ptr) tmpAddr55 ) = ( ((word) (fPt) FinalizeInput_P180) ); (* (( (ptr) tmpAddr55) + 1) ) = 1; }; { word tmpAddr56; tmpAddr56 = (word) (( (ptr) &var_c23728)+42)/* var_c19280 */ ; (* (ptr) tmpAddr56 ) = ( ((word) (fPt) InitializeInput_P120) ); (* (( (ptr) tmpAddr56) + 1) ) = 1; }; SOURCE(1835, 12892) (* (( (ptr) &var_c23728)+5) ) = 0; (* (( (ptr) &var_c23728)+6) ) = 12; (* (( (ptr) &var_c23728)+7) ) = 0; (* (( (ptr) &var_c23728)+8) ) = 24; (* (( (ptr) &var_c23728)+9) ) = 60; (* (( (ptr) &var_c23728)+10) ) = 60; (* (( (ptr) &var_c23728)+11) ) = 1441; (* (( (ptr) &var_c23728)+12) ) = 2; (* (( (ptr) &var_c23728)+13) ) = 7; (* (( (ptr) &var_c23728)+14) ) = 2147483647; (* (( (ptr) &var_c23728)+15) ) = 366; SOURCE(1964, 16) (* (( (ptr) &var_c23728)+44)/* input_v4504 */ ) = 0; SOURCE(2281, 7) (* (( (ptr) &var_c23728)+45)/* state_v4588 */ ) = 0; SOURCE(14049, 45) (* (( (ptr) &var_c23728)+46)/* nextToken_v5036 */ ) = 1; SOURCE(14096, 17) (void) InitializeInput_P120((word) ((( (bPt) &var_c23728)+168)/* var_c19280 */ )); SOURCE(14121, 531) { word var_c0467; var_c0467 = (word) &var_c23728; (void) (word) XR_Enable(( ((word) (fPt) NoName_Q4500) ), ( ((word) (fPt) NoName_Q6300) ), var_c0467); }; SOURCE(14662, 48) { word idx57; word limit58; (void) BackupStream_P420((* (( (W3Pt) (( (ptr) (* (( (ptr) &var_c23728)+44)/* input_v4504 */ ))+4))+( idx57 = (* (( (ptr) &var_c23728)+46)/* nextToken_v5036 */ ), limit58 = (* (( (ptr) (* (( (ptr) &var_c23728)+44)/* input_v4504 */ ))+3) ), BCK(idx57, limit58) )) ).f0, (word) (( (bPt) &var_c23728)+128)/* var_c19120 */ ); }; SOURCE(14712, 15) (void) FinalizeInput_P180((word) ((( (bPt) &var_c23728)+160)/* var_c19248 */ )); /* removed tail goto */ (* (W11Pt) formal_c060 ) = (* (W11Pt) (( (ptr) &var_c23728)+5)/* time_v4448 */ ); return; } static word NoName_Q4500(formal_c0398) word formal_c0398; { W6 var_c0498; var_c0498.f0 = formal_c0398; SOURCE(14221, 431) SOURCE(14227, 35) (* (( (ptr) formal_c0398)+46) ) = (word) ParseWeekday_P480((* (( (ptr) formal_c0398)+46) ), (word) (( (bPt) formal_c0398)+120) ); SOURCE(14264, 52) { /* declaration of var_c01 skipped */ { word var_c02; { word var_c0468; var_c0468 = (word) &var_c0498; var_c02 = (word) XR_Enable(( ((word) (fPt) NoName_Q4680) ), ( ((word) (fPt) NoName_Q6480) ), var_c0468); }; if ((var_c02 == 2)) { goto lab_L100004; }; }; (* (( (ptr) formal_c0398)+46) ) = var_c0498.f4/* var_c01 */ ; }; SOURCE(14337, 70) { /* declaration of var_c19344 skipped */ var_c0498.f4/* var_c19344 */ = (word) ConsumeSPOrComma_P900((* (( (ptr) formal_c0398)+46) ), (word) (( (bPt) formal_c0398)+64) ); { /* declaration of var_c03 skipped */ { word var_c04; { word var_c0469; var_c0469 = (word) &var_c0498; var_c04 = (word) XR_Enable(( ((word) (fPt) NoName_Q4620) ), ( ((word) (fPt) NoName_Q6420) ), var_c0469); }; if ((var_c04 == 3)) { goto lab_L100003; }; }; (* (( (ptr) formal_c0398)+46) ) = var_c0498.f5/* var_c03 */ ; }; }; SOURCE(14424, 32) (* (( (ptr) formal_c0398)+46) ) = (word) ParseZone_P660((* (( (ptr) formal_c0398)+46) ), (word) (( (bPt) formal_c0398)+96) ); goto lab_L100009; lab_L100003: ; goto lab_L100009; lab_L100004: ; SOURCE(14500, 32) (* (( (ptr) formal_c0398)+46) ) = (word) ParseTime_P600((* (( (ptr) formal_c0398)+46) ), (word) (( (bPt) formal_c0398)+104) ); SOURCE(14534, 32) (* (( (ptr) formal_c0398)+46) ) = (word) ParseZone_P660((* (( (ptr) formal_c0398)+46) ), (word) (( (bPt) formal_c0398)+96) ); SOURCE(14568, 70) SOURCE(14568, 70) { /* declaration of var_c19376 skipped */ var_c0498.f4/* var_c19376 */ = (word) ConsumeSPOrComma_P900((* (( (ptr) formal_c0398)+46) ), (word) (( (bPt) formal_c0398)+64) ); { /* declaration of var_c05 skipped */ { word var_c06; { word var_c0470; var_c0470 = (word) &var_c0498; var_c06 = (word) XR_Enable(( ((word) (fPt) NoName_Q4560) ), ( ((word) (fPt) NoName_Q6360) ), var_c0470); }; if ((var_c06 == 4)) { goto lab_L100011; }; }; (* (( (ptr) formal_c0398)+46) ) = var_c0498.f5/* var_c05 */ ; }; }; lab_L100011: ; lab_L100009: ; return(0); } static word NoName_Q4560(formal_c0399) word formal_c0399; { SOURCE(14568, 70) (* (( (ptr) formal_c0399)+5) ) = (word) ParseDate_P540((* (( (ptr) formal_c0399)+4) ), (word) (( (bPt) (* (ptr) formal_c0399 ))+112) ); return(0); } static word NoName_Q4620(formal_c0400) word formal_c0400; { SOURCE(14337, 70) (* (( (ptr) formal_c0400)+5) ) = (word) ParseTime_P600((* (( (ptr) formal_c0400)+4) ), (word) (( (bPt) (* (ptr) formal_c0400 ))+104) ); return(0); } static word NoName_Q4680(formal_c0401) word formal_c0401; { SOURCE(14264, 52) (* (( (ptr) formal_c0401)+4) ) = (word) ParseDate_P540((* (( (ptr) (* (ptr) formal_c0401 ))+46) ), (word) (( (bPt) (* (ptr) formal_c0401 ))+112) ); return(0); } static void InitializeInput_P120(formal_c23792) word formal_c23792; { register ptr gf_c23760 = (ptr) &globalframe; formal_c23792 = (formal_c23792 - 168); /* InitializeInput: */ SOURCE(1984, 229) SOURCE(2010, 33) { word var_c19408; var_c19408 = XR_NewObject(256, (* (( (ptr) gf_c23760)+7) )); (* (( (ptr) var_c19408)+3) ) = 20; (* (( (ptr) formal_c23792)+44) ) = var_c19408; }; SOURCE(2045, 58) { word var_c19440; { word pd59; pd59 = (* (( (ptr) (* (( (ptr) gf_c23760)+67)/* var_c19472 */ ))+6) ); var_c19440 = (word) ( *( (fPt) ((* (ptr) pd59 ))))(100, pd59); }; (* (( (ptr) (* (( (ptr) formal_c23792)+44) ))+1) ) = var_c19440; }; SOURCE(2105, 59) { word var_c19504; { word pd60; pd60 = (* (( (ptr) (* (( (ptr) gf_c23760)+67)/* var_c19472 */ ))+11) ); var_c19504 = (word) ( *( (fPt) ((* (ptr) pd60 ))))((* (( (ptr) (* (( (ptr) formal_c23792)+44) ))+1) ), 128, pd60); }; (* (( (ptr) (* (( (ptr) formal_c23792)+44) ))+2) ) = var_c19504; }; SOURCE(2166, 17) (* (ptr) (* (( (ptr) formal_c23792)+44) ) ) = 0; SOURCE(2185, 28) { W3 var_c19536; var_c19536.f0 = 0; var_c19536.f1 = 2; var_c19536.f2 = 128; (void) AddToken_P360(var_c19536, (word) (( (bPt) formal_c23792)+136)); }; } static void FinalizeInput_P180(formal_c23856) word formal_c23856; { register ptr gf_c23824 = (ptr) &globalframe; formal_c23856 = (formal_c23856 - 160); /* FinalizeInput: */ SOURCE(2218, 60) SOURCE(2241, 37) { word pd61; pd61 = (* (( (ptr) (* (( (ptr) gf_c23824)+67)/* var_c19472 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd61 ))))((* ((( (ptr) (* (( (ptr) formal_c23856)+44) ))+1)) ), pd61); }; } static void GetToken_P240(formal_c072, ti_v5344, formal_c23888) word formal_c072; word ti_v5344; word formal_c23888; { W3 var_c5388; formal_c23888 = (formal_c23888 - 152); /* GetToken: */ SOURCE(2327, 193) SOURCE(2379, 105) lab_L100017: ; if (((* (ptr) (* (( (ptr) formal_c23888)+44) ) ) <= ti_v5344)) { } else { goto lab_L100015; }; SOURCE(2407, 59) if (((* (( (ptr) formal_c23888)+45) ) == 3)) { SOURCE(2428, 38) { W3 var_c19600; { word var_c19568; var_c19568 = ((* (ptr) (* (( (ptr) formal_c23888)+44) ) ) - 1); { word limit62; var_c19600 = (* (( (W3Pt) (( (ptr) (* (( (ptr) formal_c23888)+44) ))+4))+( limit62 = (* (( (ptr) (* (( (ptr) formal_c23888)+44) ))+3) ), BCK(var_c19568, limit62) )) ); }; }; var_c5388 = var_c19600; goto lab_L100014; }; }; SOURCE(2468, 16) (void) ReadMoreTokens_P300((word) ((( (bPt) formal_c23888)+144))); goto lab_L100017; lab_L100015: ; SOURCE(2495, 25) { W3 var_c19632; { word limit63; var_c19632 = (* (( (W3Pt) (( (ptr) (* (( (ptr) formal_c23888)+44) ))+4))+( limit63 = (* (( (ptr) (* (( (ptr) formal_c23888)+44) ))+3) ), BCK(ti_v5344, limit63) )) ); }; var_c5388 = var_c19632; /* removed tail goto */ }; lab_L100014: ; (* (W3Pt) formal_c072 ) = var_c5388; return; } static void ReadMoreTokens_P300(formal_c23952) word formal_c23952; { W9 var_c23920; /* declaration of var_c19664 skipped */ /* declaration of var_c19696 skipped */ /* declaration of i_v6492 skipped */ word tStart_v6576; formal_c23952 = (formal_c23952 - 144); (* (ptr) &var_c23920 ) = formal_c23952; /* ReadMoreTokens: */ SOURCE(2523, 1420) { word tmpAddr64; tmpAddr64 = (word) (( (ptr) &var_c23920)+4)/* var_c19664 */ ; (* (ptr) tmpAddr64 ) = ( ((word) (fPt) Backup_P1020) ); (* (( (ptr) tmpAddr64) + 1) ) = 1; }; { word tmpAddr65; tmpAddr65 = (word) (( (ptr) &var_c23920)+6)/* var_c19696 */ ; (* (ptr) tmpAddr65 ) = ( ((word) (fPt) GetChar_P960) ); (* (( (ptr) tmpAddr65) + 1) ) = 1; }; SOURCE(2548, 10) (* (( (ptr) &var_c23920)+8)/* i_v6492 */ ) = 0; SOURCE(2852, 26) if (((* (( (ptr) formal_c23952)+45) ) != 0)) { SOURCE(2878, 5) (void) XR_RaiseUnnamedError(); }; SOURCE(2885, 990) lab_L100020: ; SOURCE(2885, 990) { word char_v6696; SOURCE(2888, 22) char_v6696 = (word) GetChar_P960((word) ((( (bPt) &var_c23920)+24)/* var_c19696 */ )); SOURCE(2912, 963) { word var_c19728; var_c19728 = char_v6696; if (((var_c19728 - 48) <= 9)) { SOURCE(2944, 128) { word var_c19760; var_c19760 = (* (( (ptr) formal_c23952)+45) ); switch (var_c19760) { case 0: SOURCE(2975, 12) (* (( (ptr) formal_c23952)+45) ) = 1; SOURCE(2989, 10) tStart_v6576 = (* (( (ptr) &var_c23920)+8)/* i_v6492 */ ); break; case 1: break; case 2: SOURCE(3027, 35) { W3 var_c19792; var_c19792.f0 = tStart_v6576; var_c19792.f1 = 0; { word idx66; var_c19792.f2 = ( /*1*/ idx66 = (word) ((* (( (ptr) &var_c23920)+8)/* i_v6492 */ ) - tStart_v6576), /*1*/ BCK(idx66, 16384) /*1*/ ); }; (void) AddToken_P360(var_c19792, (word) (( (bPt) formal_c23952)+136)); }; SOURCE(3064, 8) (void) Backup_P1020((word) ((( (bPt) &var_c23920)+16)/* var_c19664 */ )); SOURCE(3074, 4) goto lab_L100019; }; }; } else { if (((var_c19728 - 65) <= 25) || ((var_c19728 - 97) <= 25)) { SOURCE(3118, 112) { word var_c19824; var_c19824 = (* (( (ptr) formal_c23952)+45) ); switch (var_c19824) { case 0: SOURCE(3149, 14) (* (( (ptr) formal_c23952)+45) ) = 2; SOURCE(3165, 10) tStart_v6576 = (* (( (ptr) &var_c23920)+8)/* i_v6492 */ ); break; case 1: SOURCE(3187, 33) { W3 var_c19856; var_c19856.f0 = tStart_v6576; var_c19856.f1 = 1; { /*1*/ word idx67; /*1*/ var_c19856.f2 = ( /*1*/ idx67 = (word) ((* (( (ptr) &var_c23920)+8)/* i_v6492 */ ) - tStart_v6576), /*1*/ BCK(idx67, 16384) /*1*/ ); /*1*/ }; (void) AddToken_P360(var_c19856, (word) (( (bPt) formal_c23952)+136)); }; SOURCE(3222, 8) (void) Backup_P1020((word) ((( (bPt) &var_c23920)+16)/* var_c19664 */ )); SOURCE(3232, 4) goto lab_L100019; case 2: break; }; }; } else { SOURCE(3277, 115) { word var_c19888; var_c19888 = char_v6696; switch (var_c19888) { case 44: case 46: case 58: case 47: case 45: case 43: case 32: break; case 9: SOURCE(3349, 15) char_v6696 = 32; break; default: SOURCE(3377, 15) char_v6696 = 128; break; }; }; SOURCE(3394, 481) { word var_c19920; var_c19920 = (* (( (ptr) formal_c23952)+45) ); switch (var_c19920) { case 0: SOURCE(3424, 292) { word var_c19984; word var_c19952; { /*1*/ word limit68; /*1*/ var_c19952 = ((* (ptr) (* (( (ptr) formal_c23952)+44) ) ) - 1); /*1*/ var_c19984 = (* (( (W3Pt) (( (ptr) (* (( (ptr) formal_c23952)+44) ))+4))+( /*1*/ limit68 = (* (( (ptr) (* (( (ptr) formal_c23952)+44) ))+3) ), /*1*/ BCK(var_c19952, limit68) /*1*/ )) ).f1; /*1*/ }; if ((var_c19984 == 2)) { /*1*/ { /*1*/ word var_c20016; /*1*/ word var_c0471; /*1*/ word var_c20048; SOURCE(3483, 106) /*1*/ { /*1*/ word limit69; /*1*/ var_c20016 = ((* (ptr) (* (( (ptr) formal_c23952)+44) ) ) - 1); /*1*/ var_c0471 = (* (( (W3Pt) (( (ptr) (* (( (ptr) formal_c23952)+44) ))+4))+( /*1*/ limit69 = (* (( (ptr) (* (( (ptr) formal_c23952)+44) ))+3) ), /*1*/ BCK(var_c20016, limit69) /*1*/ )) ).f2; /*1*/ }; /*1*/ if ((var_c0471 == 32)) { SOURCE(3509, 19) /*1*/ { /*1*/ word limit70; /*1*/ var_c20048 = ((* (ptr) (* (( (ptr) formal_c23952)+44) ) ) - 1); /*1*/ (* (( (W3Pt) (( (ptr) (* (( (ptr) formal_c23952)+44) ))+4))+( /*1*/ limit70 = (* (( (ptr) (* (( (ptr) formal_c23952)+44) ))+3) ), /*1*/ BCK(var_c20048, limit70) /*1*/ )) ).f2 = char_v6696; /*1*/ }; /*1*/ } /*1*/ else { SOURCE(3528, 61) /*1*/ if ((char_v6696 != 32)) { SOURCE(3565, 24) /*1*/ { /*1*/ word var_c20080; /*1*/ char_v6696 = 128; /*1*/ { /*1*/ word limit71; /*1*/ var_c20080 = ((* (ptr) (* (( (ptr) formal_c23952)+44) ) ) - 1); /*1*/ (* (( (W3Pt) (( (ptr) (* (( (ptr) formal_c23952)+44) ))+4))+( /*1*/ limit71 = (* (( (ptr) (* (( (ptr) formal_c23952)+44) ))+3) ), /*1*/ BCK(var_c20080, limit71) /*1*/ )) ).f2 = 128; /*1*/ }; /*1*/ }; /*1*/ }; /*1*/ }; SOURCE(3591, 37) /*1*/ if ((char_v6696 == 128)) { SOURCE(3616, 12) /*1*/ (* (( (ptr) formal_c23952)+45) ) = 3; SOURCE(3630, 4) /*1*/ goto lab_L100019; /*1*/ }; /*1*/ }; /*1*/ } else { SOURCE(3653, 24) /*1*/ { /*1*/ W3 var_c20112; /*1*/ var_c20112.f0 = (* (( (ptr) &var_c23920)+8)/* i_v6492 */ ); /*1*/ var_c20112.f1 = 2; /*1*/ var_c20112.f2 = char_v6696; /*1*/ (void) AddToken_P360(var_c20112, (word) (( (bPt) formal_c23952)+136)); /*1*/ }; SOURCE(3680, 36) /*1*/ if ((char_v6696 == 128)) { SOURCE(3704, 12) /*1*/ (* (( (ptr) formal_c23952)+45) ) = 3; /*1*/ }; SOURCE(3718, 5) /*1*/ goto lab_L100019; /*1*/ }; }; break; case 1: SOURCE(3735, 33) { W3 var_c20144; var_c20144.f0 = tStart_v6576; var_c20144.f1 = 1; { /*1*/ word idx72; /*1*/ var_c20144.f2 = ( /*1*/ idx72 = (word) ((* (( (ptr) &var_c23920)+8)/* i_v6492 */ ) - tStart_v6576), /*1*/ BCK(idx72, 16384) /*1*/ ); /*1*/ }; (void) AddToken_P360(var_c20144, (word) (( (bPt) formal_c23952)+136)); }; SOURCE(3770, 24) { W3 var_c20176; var_c20176.f0 = (* (( (ptr) &var_c23920)+8)/* i_v6492 */ ); var_c20176.f1 = 2; var_c20176.f2 = char_v6696; (void) AddToken_P360(var_c20176, (word) (( (bPt) formal_c23952)+136)); }; SOURCE(3796, 4) goto lab_L100019; case 2: SOURCE(3814, 35) { W3 var_c20208; var_c20208.f0 = tStart_v6576; var_c20208.f1 = 0; { /*1*/ word idx73; /*1*/ var_c20208.f2 = ( /*1*/ idx73 = (word) ((* (( (ptr) &var_c23920)+8)/* i_v6492 */ ) - tStart_v6576), /*1*/ BCK(idx73, 16384) /*1*/ ); /*1*/ }; (void) AddToken_P360(var_c20208, (word) (( (bPt) formal_c23952)+136)); }; SOURCE(3851, 24) { W3 var_c20240; var_c20240.f0 = (* (( (ptr) &var_c23920)+8)/* i_v6492 */ ); var_c20240.f1 = 2; var_c20240.f2 = char_v6696; (void) AddToken_P360(var_c20240, (word) (( (bPt) formal_c23952)+136)); }; SOURCE(3877, 4) goto lab_L100019; }; }; }; }; }; }; goto lab_L100020; lab_L100019: ; SOURCE(3905, 38) if (((* (( (ptr) formal_c23952)+45) ) != 3)) { SOURCE(3927, 16) (* (( (ptr) formal_c23952)+45) ) = 0; }; } static word GetChar_P960(formal_c24016) word formal_c24016; { register ptr gf_c23984 = (ptr) &globalframe; word char_v6652; formal_c24016 = (formal_c24016 - 24); /* GetChar: */ SOURCE(2560, 172) SOURCE(2599, 50) { word pd74; word pd75; pd74 = (* (( (ptr) (* (( (ptr) gf_c23984)+66)/* var_c19312 */ ))+15) ); if ((0 != (word) ( *( (fPt) ((* (ptr) pd74 ))))((* ((( (ptr) (* (ptr) formal_c24016 ))+4)) ), pd74))) { char_v6652 = 128; } else { pd75 = (* (( (ptr) (* (( (ptr) gf_c23984)+66)/* var_c19312 */ ))+11) ); char_v6652 = (word) ( *( (fPt) ((* (ptr) pd75 ))))((* ((( (ptr) (* (ptr) formal_c24016 ))+4)) ), pd75); }; }; SOURCE(2651, 24) (* (( (ptr) formal_c24016)+8) ) = (* (hPt) (* (( (ptr) (* (( (ptr) (* (ptr) formal_c24016 ))+44) ))+2) ) ); SOURCE(2677, 55) { word var_c20272; { word pd76; pd76 = (* (( (ptr) (* (( (ptr) gf_c23984)+67)/* var_c19472 */ ))+11) ); var_c20272 = (word) ( *( (fPt) ((* (ptr) pd76 ))))((* (( (ptr) (* (( (ptr) (* (ptr) formal_c24016 ))+44) ))+2) ), char_v6652, pd76) ; }; (* (( (ptr) (* (( (ptr) (* (ptr) formal_c24016 ))+44) ))+2) ) = var_c20272; }; SOURCE(2560, 172) return(char_v6652); } static void Backup_P1020(formal_c24080) word formal_c24080; { register ptr gf_c24048 = (ptr) &globalframe; formal_c24080 = (formal_c24080 - 16); /* Backup: */ SOURCE(2737, 97) SOURCE(2754, 54) { word var_c20304; word var_c20336; word var_c0472; (* (( (ptr) formal_c24080)+8) ) = ((* (hPt) (* (( (ptr) (* (( (ptr) (* (ptr) formal_c24080 ))+44) ))+2) ) ) - 1); var_c20304 = (* (( (ptr) formal_c24080)+8) ); var_c20336 = (* (( (ptr) (* (( (ptr) (* (ptr) formal_c24080 ))+44) ))+2) ); { word limit77; var_c0472 = (word) (* ((( (bPt) var_c20336)+4)+( limit77 = (word) (* (( (hPt) var_c20336)+1) ), BCK(var_c20304, limit77) )) ); }; { word pd78; pd78 = (* (( (ptr) (* (( (ptr) gf_c24048)+66)/* var_c19312 */ ))+18) ); (void) ( *( (fPt) ((* (ptr) pd78 ))))((* (( (ptr) (* (ptr) formal_c24080 ))+4) ), var_c0472, pd78); }; }; SOURCE(2810, 24) { word idx79; (* (hPt) (* (( (ptr) (* (( (ptr) (* (ptr) formal_c24080 ))+44) ))+2) ) ) = ( idx79 = (* (( (ptr) formal_c24080)+8) ), BCK(idx79, 32768) ); }; } static void AddToken_P360(t_v5464, formal_c24144) W3 t_v5464; word formal_c24144; { register ptr gf_c24112 = (ptr) &globalframe; formal_c24144 = (formal_c24144 - 136); /* AddToken: */ SOURCE(3948, 385) SOURCE(3978, 355) if (((* (ptr) (* (( (ptr) formal_c24144)+44) ) ) == (* (( (ptr) (* (( (ptr) formal_c24144)+44) ))+3) ))) { SOURCE(4015, 234) { word newInput_v6740; SOURCE(4017, 52) { word var_c20368; word var_c20400; word var_c20432; { word idx80; var_c20368 = ( idx80 = (word) (((* (( (ptr) (* (( (ptr) formal_c24144)+44) ))+3) ) * 3) >> 1), BCK(idx80, 22369621) ); }; var_c20400 = (var_c20368 * 12); var_c20432 = XR_NewObject((16 + var_c20400), (* (( (ptr) gf_c24112)+7) )); (* (( (ptr) var_c20432)+3) ) = var_c20368; newInput_v6740 = var_c20432; }; SOURCE(4071, 32) (* (ptr) newInput_v6740 ) = (* (ptr) (* (( (ptr) formal_c24144)+44) ) ); SOURCE(4105, 32) (* (( (ptr) newInput_v6740)+2) ) = (* (( (ptr) (* (( (ptr) formal_c24144)+44) ))+2) ); SOURCE(4139, 80) { register word i_v6796 = 0; register word noName_c20464; noName_c20464 = (* (ptr) (* (( (ptr) formal_c24144)+44) ) ); if ((i_v6796 >= noName_c20464)) { goto lab_L100021; }; lab_L100024: ; SOURCE(4182, 37) SOURCE(4183, 36) { word limit81; word limit82; (* (( (W3Pt) (( (ptr) newInput_v6740)+4))+( limit81 = (* (( (ptr) newInput_v6740)+3) ), BCK(i_v6796, limit81) )) ) = (* (( (W3Pt) (( (ptr) (* (( (ptr) formal_c24144)+44) ))+4))+( limit82 = (* (( (ptr) (* (( (ptr) formal_c24144)+44) ))+3) ), BCK(i_v6796, limit82) )) ); }; i_v6796 = (i_v6796 + 1); if ((i_v6796 < noName_c20464)) { goto lab_L100024; }; lab_L100021: ; }; SOURCE(4231, 16) (* (( (ptr) formal_c24144)+44) ) = newInput_v6740; }; } else { SOURCE(4264, 32) SOURCE(4265, 31) { word idx83; word limit84; (* (( (W3Pt) (( (ptr) (* (( (ptr) formal_c24144)+44) ))+4))+( idx83 = (* (ptr) (* (( (ptr) formal_c24144)+44) ) ), limit84 = (* (( (ptr) (* (( (ptr) formal_c24144)+44) ))+3) ), BCK(idx83, limit84) )) ) = t_v5464; }; SOURCE(4299, 34) { word idx85; (* (ptr) (* (( (ptr) formal_c24144)+44) ) ) = ( idx85 = (word) ((* (ptr) (* (( (ptr) formal_c24144)+44) ) ) + 1), SGNCK(idx85) ); }; }; } static void BackupStream_P420(to_v5524, formal_c24208) word to_v5524; word formal_c24208; { register ptr gf_c24176 = (ptr) &globalframe; formal_c24208 = (formal_c24208 - 128); /* BackupStream: */ SOURCE(4339, 170) SOURCE(4378, 131) { register word noName_c20496; register word i_v6840; noName_c20496 = to_v5524; i_v6840 = (* (hPt) (* (( (ptr) (* (( (ptr) formal_c24208)+44) ))+2) ) ); if ((noName_c20496 >= i_v6840)) { goto lab_L100025; }; i_v6840 = (i_v6840 - 1); lab_L100028: ; { word char_v6884; SOURCE(4439, 29) { word var_c20528; var_c20528 = (* (( (ptr) (* (( (ptr) formal_c24208)+44) ))+2) ); { word limit86; char_v6884 = (word) (* ((( (bPt) var_c20528)+4)+( limit86 = (word) (* (( (hPt) var_c20528)+1) ), BCK(i_v6840, limit86) )) ); }; }; SOURCE(4470, 39) if ((char_v6884 != 128)) { SOURCE(4495, 14) { word pd87; pd87 = (* (( (ptr) (* (( (ptr) gf_c24176)+66)/* var_c19312 */ ))+18) ); (void) ( *( (fPt) ((* (ptr) pd87 ))))((* (( (ptr) formal_c24208)+4) ), char_v6884, pd87); }; }; }; if ((noName_c20496 >= i_v6840)) { goto lab_L100025; }; i_v6840 = (i_v6840 - 1); goto lab_L100028; lab_L100025: ; }; } static word ParseWeekday_P480(first_v5620, formal_c24272) word first_v5620; word formal_c24272; { register ptr gf_c24240 = (ptr) &globalframe; word next_v5664; formal_c24272 = (formal_c24272 - 120); /* ParseWeekday: */ SOURCE(4697, 397) SOURCE(4767, 12) next_v5664 = first_v5620; SOURCE(4781, 313) { W3 var_c20560; (void) GetToken_P240((word) &var_c20560, first_v5620, (word) (( (bPt) formal_c24272)+152)); if ((var_c20560.f1 == 0)) { { W3 t_v6928; t_v6928 = var_c20560; SOURCE(4832, 273) { word a_v6972; SOURCE(4834, 99) { word var_c20592; { word var_c20624; word text_v18256; text_v18256 = (* (( (ptr) (* (( (ptr) formal_c24272)+44) ))+2) ); var_c20624 = text_v18256; var_c20592 = var_c20624; }; { word pd88; pd88 = (* (( (ptr) (* (( (ptr) gf_c24240)+68)/* var_c20656 */ ))+17) ); a_v6972 = (word) ( *( (fPt) ((* (ptr) pd88 ))))(var_c20592, t_v6928.f0, t_v6928.f2, pd88); }; }; SOURCE(4935, 159) if ((t_v6928.f2 >= 2)) { SOURCE(4957, 137) { register word i_v7016 = 0; word var_c20688; lab_L100033: ; SOURCE(4990, 104) { word pd90; { W7 var_c20720; word var_c0473; var_c20720.f0 = (* (( (ptr) gf_c24240)+38) ); var_c20720.f1 = (* (( (ptr) gf_c24240)+13) ); var_c20720.f2 = (* (( (ptr) gf_c24240)+8) ); var_c20720.f3 = (* (( (ptr) gf_c24240)+9) ); var_c20720.f4 = (* (( (ptr) gf_c24240)+10) ); var_c20720.f5 = (* (( (ptr) gf_c24240)+11) ); var_c20720.f6 = (* (( (ptr) gf_c24240)+12) ); var_c0473 = (* (( (ptr) &var_c20720)+i_v7016) ); { /*1*/ word pd89; /*1*/ pd89 = (* (( (ptr) (* (( (ptr) gf_c24240)+68)/* var_c20656 */ ))+17) ); /*1*/ var_c20688 = (word) ( *( (fPt) ((* (ptr) pd89 ))))(var_c0473, 0, t_v6928.f2, pd89); /*1*/ }; }; pd90 = (* (( (ptr) (* (( (ptr) gf_c24240)+68)/* var_c20656 */ ))+8) ); if ((0 != (word) ( *( (fPt) ((* (ptr) pd90 ))))(a_v6972, var_c20688, 0, pd90))) { SOURCE(5058, 36) return((word) ConsumeSPOrComma_P900(BCK((first_v5620 + 1), 2147483647), (word) (( (bPt) formal_c24272)+64))); }; }; if ((i_v7016 >= 6)) { goto lab_L100030; }; i_v7016 = (i_v7016 + 1); goto lab_L100033; lab_L100030: ; }; }; }; }; } else { }; }; SOURCE(4697, 397) return(next_v5664); } static word ParseDate_P540(formal_c0514, formal_c24336) word formal_c0514; word formal_c24336; { W11 var_c24304; /* declaration of first_v5724 skipped */ /* declaration of next_v5768 skipped */ /* declaration of var_c20784 skipped */ /* declaration of var_c20816 skipped */ formal_c24336 = (formal_c24336 - 112); (* (( (ptr) &var_c24304)+4)/* first_v5724 */ ) = formal_c0514; (* (ptr) &var_c24304 ) = formal_c24336; /* ParseDate: */ SOURCE(5122, 3013) { word tmpAddr91; tmpAddr91 = (word) (( (ptr) &var_c24304)+6)/* var_c20784 */ ; (* (ptr) tmpAddr91 ) = ( ((word) (fPt) CollectYear_P1572) ); (* (( (ptr) tmpAddr91) + 1) ) = 1; }; { word tmpAddr92; tmpAddr92 = (word) (( (ptr) &var_c24304)+8)/* var_c20816 */ ; (* (ptr) tmpAddr92 ) = ( ((word) (fPt) ParseSymbolicMonth_P1512) ); (* (( (ptr) tmpAddr92) + 1) ) = 1; }; SOURCE(5189, 2946) { /* declaration of second_v7228 skipped */ { word var_c0474; var_c0474 = (word) &var_c24304; (void) (word) XR_Enable(( ((word) (fPt) NoName_Q4740) ), ( ((word) (fPt) NoName_Q5940) ), var_c0474); }; }; SOURCE(5122, 3013) return((* (( (ptr) &var_c24304)+5)/* next_v5768 */ )); } static word NoName_Q4740(formal_c0420) word formal_c0420; { W14 var_c0504; register ptr gf_c0419 = (ptr) &globalframe; (* (ptr) &var_c0504 ) = formal_c0420; SOURCE(5237, 24) { word third_v7256; /* declaration of t_v7284 skipped */ W3 var_c0130; word var_c0475; SOURCE(6619, 12) (* (( (ptr) &var_c0504)+4) ) = 0; (* (( (ptr) &var_c0504)+5) ) = 1; (* (( (ptr) &var_c0504)+6) ) = 0; SOURCE(6633, 47) (void) GetToken_P240((word) &var_c0130, (* (( (ptr) formal_c0420)+4) ), (word) (( (bPt) (* (ptr) formal_c0420 ))+152)); var_c0475 = var_c0130.f1; if ((var_c0475 == 2)) { SOURCE(6668, 12) (void) Bogus_P720((* (( (ptr) formal_c0420)+4) ), (word) (( (bPt) (* (ptr) formal_c0420 ))+88)); }; SOURCE(6682, 130) { W3 var_c20880; { W3 var_c0132; { word var_c0476; { word idx93; (* (( (ptr) formal_c0420)+10) ) = ( idx93 = (word) ((* (( (ptr) formal_c0420)+4) ) + 1), BCK(idx93, 2147483647) ); }; var_c0476 = (* (( (ptr) formal_c0420)+10) ); (void) GetToken_P240((word) &var_c0132, var_c0476, (word) (( (bPt) (* (ptr) formal_c0420 ))+152)); }; var_c20880 = var_c0132; }; if ((var_c20880.f1 == 2)) { { W3 sep_v7804; sep_v7804 = var_c20880; SOURCE(6745, 67) if ((sep_v7804.f2 == 128)) { SOURCE(6773, 19) (void) Bogus_P720((* (( (ptr) formal_c0420)+10) ), (word) (( (bPt) (* (ptr) formal_c0420 ))+88)); } else { SOURCE(6792, 20) { word idx94; (* (( (ptr) formal_c0420)+10) ) = ( idx94 = (word) ((* (( (ptr) formal_c0420)+10) ) + 1), BCK(idx94, 2147483647) ); }; }; }; } else { }; }; SOURCE(6823, 127) { W3 var_c20912; { W3 var_c0135; { word var_c0477; { word idx95; third_v7256 = ( idx95 = (word) ((* (( (ptr) formal_c0420)+10) ) + 1), BCK(idx95, 2147483647) ); }; var_c0477 = third_v7256; (void) GetToken_P240((word) &var_c0135, var_c0477, (word) (( (bPt) (* (ptr) formal_c0420 ))+152)); }; var_c20912 = var_c0135; }; if ((var_c20912.f1 == 2)) { { W3 sep_v7848; sep_v7848 = var_c20912; SOURCE(6886, 64) if ((sep_v7848.f2 == 128)) { SOURCE(6914, 18) (void) Bogus_P720(third_v7256, (word) (( (bPt) (* (ptr) formal_c0420 ))+88)); } else { SOURCE(6932, 18) third_v7256 = BCK((third_v7256 + 1), 2147483647); }; }; } else { }; }; SOURCE(6961, 79) { W3 var_c20944; (void) GetToken_P240((word) &var_c20944, third_v7256, (word) (( (bPt) (* (ptr) formal_c0420 ))+152)); if ((var_c20944.f1 == 1)) { { W3 y_v7892; y_v7892 = var_c20944; SOURCE(7010, 5) (* (W3Pt) (( (ptr) &var_c0504)+4)/* t_v7284 */ ) = y_v7892; }; } else { SOURCE(7028, 12) (void) Bogus_P720(third_v7256, (word) (( (bPt) (* (ptr) formal_c0420 ))+88)); }; }; SOURCE(7042, 969) { W3 var_c20976; (void) GetToken_P240((word) &var_c20976, (* (( (ptr) formal_c0420)+4) ), (word) (( (bPt) (* (ptr) formal_c0420 ))+152)); { word var_c21232; var_c21232 = var_c20976.f1; if ((var_c21232 == 0)) { { /* declaration of m_v7936 skipped */ (* (W3Pt) (( (ptr) &var_c0504)+7)/* m_v7936 */ ) = var_c20976; SOURCE(7095, 26) (* (( (ptr) (* (ptr) formal_c0420 ))+5) ) = ((word) CollectYear_P1572((* (W3Pt) (( (ptr) &var_c0504)+4)/* t_v7284 */ ), (word) ( ( (bPt) formal_c0420)+24)) + 1968); SOURCE(7123, 63) { /* declaration of var_c07 skipped */ { word var_c0478; var_c0478 = (word) &var_c0504; (void) (word) XR_Enable(( ((word) (fPt) NoName_Q5040) ), ( ((word) (fPt) NoName_Q6240) ), var_c0478); }; (* (( (ptr) (* (ptr) formal_c0420 ))+6) ) = (* (( (ptr) &var_c0504)+10)/* var_c07 */ ); }; SOURCE(7188, 112) { W3 var_c21008; (void) GetToken_P240((word) &var_c21008, (* (( (ptr) formal_c0420)+10) ), (word) (( (bPt) (* (ptr) formal_c0420 ))+152)) ; if ((var_c21008.f1 == 1)) { { W3 d_v7980; d_v7980 = var_c21008; SOURCE(7238, 36) { /*1*/ word idx96; /*1*/ (* (( (ptr) (* (ptr) formal_c0420 ))+7) ) = (word) CollectValue_P780(d_v7980, 1, (* ((( (ptr) gf_c0419)+47)/* var_c18768 */ +( /*1*/ idx96 = (* (( (ptr) (* (ptr) formal_c0420 ))+6) ), /*1*/ BCK(idx96, 12) /*1*/ )) ), (word) (( (bPt) (* (ptr) formal_c0420 ))+80)); /*1*/ }; }; } else { SOURCE(7287, 13) (void) Bogus_P720((* (( (ptr) formal_c0420)+10) ), (word) (( (bPt) (* (ptr) formal_c0420 ))+88)); }; }; }; } else { if ((var_c21232 == 1)) { { /* declaration of f_v8024 skipped */ (* (W3Pt) (( (ptr) &var_c0504)+7)/* f_v8024 */ ) = var_c20976; SOURCE(7321, 690) { W3 var_c21040; (void) GetToken_P240((word) &var_c21040, (* (( (ptr) formal_c0420)+10) ), (word) (( (bPt) (* (ptr) formal_c0420 ))+152)) ; { word var_c21200; var_c21200 = var_c21040.f1; if ((var_c21200 == 0)) { /*1*/ { /*1*/ /* declaration of m_v8068 skipped */ /*1*/ (* (W3Pt) (( (ptr) &var_c0504)+10)/* m_v8068 */ ) = var_c21040; SOURCE(7373, 253) SOURCE(7375, 64) /*1*/ { /*1*/ /* declaration of var_c08 skipped */ /*1*/ { /*1*/ word var_c0479; /*1*/ var_c0479 = (word) &var_c0504; /*1*/ (void) (word) XR_Enable(( ((word) (fPt) NoName_Q4980) ), ( ((word) (fPt) NoName_Q6180) ), var_c0479); /*1*/ }; /*1*/ (* (( (ptr) (* (ptr) formal_c0420 ))+6) ) = (* (( (ptr) &var_c0504)+13)/* var_c08 */ ); /*1*/ }; SOURCE(7441, 52) /*1*/ { /*1*/ /* declaration of var_c21072 skipped */ SOURCE(6466, 18) /*1*/ { /*1*/ word var_c09; /*1*/ { /*1*/ word var_c0480; /*1*/ var_c0480 = (word) &var_c0504; /*1*/ var_c09 = (word) XR_Enable(( ((word) (fPt) NoName_Q4920) ), ( ((word) (fPt) NoName_Q6120) ), var_c0480); /*1*/ }; /*1*/ if ((var_c09 == 6)) { /*1*/ goto lab_L100038; /*1*/ } /*1*/ else { /*1*/ if ((var_c09 == 5)) { /*1*/ /* removed tail goto */ /*1*/ }; /*1*/ }; /*1*/ }; /*1*/ (* (( (ptr) (* (ptr) formal_c0420 ))+7) ) = ((* (( (ptr) &var_c0504)+13)/* var_c21072 */ ) + 1); /*1*/ }; SOURCE(7511, 26) /*1*/ (* (( (ptr) (* (ptr) formal_c0420 ))+5) ) = ((word) CollectYear_P1572((* (W3Pt) (( (ptr) &var_c0504)+4)/* t_v7284 */ ), (word) ( /*1*/ ( (bPt) formal_c0420)+24)) + 1968); /*1*/ goto lab_L100044; /*1*/ lab_L100038: ; SOURCE(7559, 26) /*1*/ (* (( (ptr) (* (ptr) formal_c0420 ))+5) ) = ((word) CollectYear_P1572((* (W3Pt) (( (ptr) &var_c0504)+7)/* f_v8024 */ ), (word) ( /*1*/ ( (bPt) formal_c0420)+24)) + 1968); SOURCE(7587, 36) /*1*/ { /*1*/ word idx97; /*1*/ (* (( (ptr) (* (ptr) formal_c0420 ))+7) ) = (word) CollectValue_P780((* (W3Pt) (( (ptr) &var_c0504)+4)/* t_v7284 */ ), 1, (* ( /*1*/ (( (ptr) gf_c0419)+47)/* var_c18768 */ +( /*1*/ idx97 = (* (( (ptr) (* (ptr) formal_c0420 ))+6) ), /*1*/ BCK(idx97, 12) /*1*/ )) ), (word) (( (bPt) (* (ptr) formal_c0420 ))+80)); /*1*/ }; /*1*/ lab_L100044: ; /*1*/ }; /*1*/ } else { /*1*/ if ((var_c21200 == 1)) { /*1*/ { /*1*/ W3 s_v8112; /*1*/ s_v8112 = var_c21040; SOURCE(7645, 366) SOURCE(7647, 42) /*1*/ { /*1*/ /* declaration of var_c010 skipped */ /*1*/ { /*1*/ word var_c011; /*1*/ { /*1*/ word var_c0481; /*1*/ var_c0481 = (word) &var_c0504; /*1*/ var_c011 = (word) XR_Enable(( ((word) (fPt) NoName_Q4860) ), ( ((word) (fPt) NoName_Q6060) ), var_c0481); /*1*/ }; /*1*/ if ((var_c011 == 7)) { /*1*/ goto lab_L100046; /*1*/ }; /*1*/ }; /*1*/ (* (( (ptr) (* (ptr) formal_c0420 ))+5) ) = ((* (( (ptr) &var_c0504)+10)/* var_c010 */ ) + 1968); /*1*/ }; SOURCE(7707, 44) /*1*/ { /*1*/ /* declaration of var_c21136 skipped */ SOURCE(6241, 20) /*1*/ { /*1*/ word var_c012; /*1*/ { /*1*/ word var_c0482; /*1*/ var_c0482 = (word) &var_c0504; /*1*/ var_c012 = (word) XR_Enable(( ((word) (fPt) NoName_Q4800) ), ( ((word) (fPt) NoName_Q6000) ), var_c0482); /*1*/ }; /*1*/ if ((var_c012 == 9)) { /*1*/ goto lab_L100045; /*1*/ } /*1*/ else { /*1*/ if ((var_c012 == 8)) { /*1*/ /* removed tail goto */ /*1*/ }; /*1*/ }; /*1*/ }; /*1*/ (* (( (ptr) (* (ptr) formal_c0420 ))+6) ) = (* (( (ptr) &var_c0504)+10)/* var_c21136 */ ); /*1*/ }; SOURCE(7768, 36) /*1*/ { /*1*/ word idx98; /*1*/ (* (( (ptr) (* (ptr) formal_c0420 ))+7) ) = (word) CollectValue_P780(s_v8112, 1, (* ((( (ptr) gf_c0419)+47)/* var_c18768 */ +( /*1*/ idx98 = (* (( (ptr) (* (ptr) formal_c0420 ))+6) ), /*1*/ BCK(idx98, 12) /*1*/ )) ), (word) (( (bPt) (* (ptr) formal_c0420 ))+80)); /*1*/ }; /*1*/ goto lab_L100052; /*1*/ lab_L100045: ; SOURCE(7826, 28) /*1*/ { /*1*/ word idx99; /*1*/ (* (( (ptr) (* (ptr) formal_c0420 ))+6) ) = ( /*1*/ idx99 = (word) ((word) CollectValue_P780(s_v8112, 1, 12, (word) (( (bPt) (* (ptr) formal_c0420 ))+80)) - 1), /*1*/ BCK(idx99, 13) /*1*/ ); /*1*/ }; SOURCE(7856, 36) /*1*/ { /*1*/ word idx100; /*1*/ (* (( (ptr) (* (ptr) formal_c0420 ))+7) ) = (word) CollectValue_P780((* (W3Pt) (( (ptr) &var_c0504)+7)/* f_v8024 */ ), 1, (* ( /*1*/ (( (ptr) gf_c0419)+47)/* var_c18768 */ +( /*1*/ idx100 = (* (( (ptr) (* (ptr) formal_c0420 ))+6) ), /*1*/ BCK(idx100, 12) /*1*/ )) ), (word) (( (bPt) (* (ptr) formal_c0420 ))+80)); /*1*/ }; /*1*/ goto lab_L100052; /*1*/ lab_L100046: ; SOURCE(7912, 26) /*1*/ (* (( (ptr) (* (ptr) formal_c0420 ))+5) ) = ((word) CollectYear_P1572((* (W3Pt) (( (ptr) &var_c0504)+7)/* f_v8024 */ ), (word) ( /*1*/ ( (bPt) formal_c0420)+24)) + 1968); SOURCE(7940, 28) /*1*/ { /*1*/ word idx101; /*1*/ (* (( (ptr) (* (ptr) formal_c0420 ))+6) ) = ( /*1*/ idx101 = (word) ((word) CollectValue_P780(s_v8112, 1, 12, (word) (( (bPt) (* (ptr) formal_c0420 ))+80)) - 1), /*1*/ BCK(idx101, 13) /*1*/ ); /*1*/ }; SOURCE(7970, 36) /*1*/ { /*1*/ word idx102; /*1*/ (* (( (ptr) (* (ptr) formal_c0420 ))+7) ) = (word) CollectValue_P780((* (W3Pt) (( (ptr) &var_c0504)+4)/* t_v7284 */ ), 1, (* ( /*1*/ (( (ptr) gf_c0419)+47)/* var_c18768 */ +( /*1*/ idx102 = (* (( (ptr) (* (ptr) formal_c0420 ))+6) ), /*1*/ BCK(idx102, 12) /*1*/ )) ), (word) (( (bPt) (* (ptr) formal_c0420 ))+80)); /*1*/ }; /*1*/ lab_L100052: ; /*1*/ }; /*1*/ } /*1*/ else { /*1*/ }; /*1*/ }; }; }; }; } else { }; }; }; }; SOURCE(8032, 17) (* (( (ptr) formal_c0420)+5) ) = BCK((third_v7256 + 1), 2147483647); SOURCE(8051, 84) { word idx103; if ( ( ( ((* (( (ptr) (* (ptr) formal_c0420 ))+6) ) == 1) ? ((* (( (ptr) (* (ptr) formal_c0420 ))+7) ) == 29) : 0 ) ? (0 == (word) LeapYear_P840( ( idx103 = (word) ((* (( (ptr) (* (ptr) formal_c0420 ))+5) ) - 1968), BCK(idx103, 69) ), (word) (( (bPt) (* (ptr) formal_c0420 ))+72))) : 0 ) ) { SOURCE(8124, 11) (void) Bogus_P720((* (( (ptr) formal_c0420)+5) ), (word) (( (bPt) (* (ptr) formal_c0420 ))+88)); }; }; }; return(0); } static word NoName_Q4800(formal_c0421) word formal_c0421; { SOURCE(6307, 65) { word idx104; (* (( (ptr) formal_c0421)+10) ) = ( idx104 = (word) ((word) CollectValue_P780((* (W3Pt) (( (ptr) formal_c0421)+7) ), 1, 12, (word) (( (bPt) (* (ptr) (* (ptr) formal_c0421 ) ))+80) ) - 1), BCK(idx104, 12) ); }; return(8); /* c2c skipped dead code */ } static word NoName_Q4860(formal_c0422) word formal_c0422; { SOURCE(7647, 42) (* (( (ptr) formal_c0422)+10) ) = (word) CollectYear_P1572((* (W3Pt) (( (ptr) formal_c0422)+4) ), (word) (( (bPt) (* (ptr) formal_c0422 ))+24) ); return(0); } static word NoName_Q4920(formal_c0424) word formal_c0424; { register ptr gf_c0423 = (ptr) &globalframe; SOURCE(6538, 51) { word idx105; word idx106; (* (( (ptr) formal_c0424)+13) ) = ( idx106 = (word) ((word) CollectValue_P780((* (W3Pt) (( (ptr) formal_c0424)+7) ), 1, (* ((( (ptr) gf_c0423)+47)/* var_c18768 */ +( idx105 = (* (( (ptr) (* (ptr) (* (ptr) formal_c0424 ) ))+6) ), BCK(idx105, 12) )) ), (word) (( (bPt) (* (ptr) (* (ptr) formal_c0424 ) ))+80)) - 1), BCK(idx106, 31) ); }; return(5); /* c2c skipped dead code */ } static word NoName_Q4980(formal_c0425) word formal_c0425; { SOURCE(7375, 64) (* (( (ptr) formal_c0425)+13) ) = (word) ParseSymbolicMonth_P1512((* (W3Pt) (( (ptr) formal_c0425)+10) ), (word) (( (bPt) (* (ptr) formal_c0425 ))+32) ); return(0); } static word NoName_Q5040(formal_c0426) word formal_c0426; { SOURCE(7123, 63) (* (( (ptr) formal_c0426)+10) ) = (word) ParseSymbolicMonth_P1512((* (W3Pt) (( (ptr) formal_c0426)+7) ), (word) (( (bPt) (* (ptr) formal_c0426 ))+32) ); return(0); } static word ParseSymbolicMonth_P1512(t_v7376, formal_c24400) W3 t_v7376; word formal_c24400; { register ptr gf_c24368 = (ptr) &globalframe; register word month_v7420; word m_v8184; formal_c24400 = (formal_c24400 - 32); /* ParseSymbolicMonth: */ SOURCE(5263, 26) SOURCE(5384, 99) { word var_c21264; { word var_c21296; word text_v18208; text_v18208 = (* (( (ptr) (* (( (ptr) (* (ptr) formal_c24400 ))+44) ))+2) ); var_c21296 = text_v18208; var_c21264 = var_c21296; }; { word pd107; pd107 = (* (( (ptr) (* (( (ptr) gf_c24368)+68)/* var_c20656 */ ))+17) ); m_v8184 = (word) ( *( (fPt) ((* (ptr) pd107 ))))(var_c21264, t_v7376.f0, t_v7376.f2, pd107); }; }; SOURCE(5485, 544) { word var_c21392; { word var_c21328; word ch_v18592; { word var_c21360; var_c21360 = (* (( (ptr) (* (( (ptr) (* (ptr) formal_c24400 ))+44) ))+2) ); { word idx108; word limit109; ch_v18592 = (word) (* ((( (bPt) var_c21360)+4)+( idx108 = (word) t_v7376.f0, limit109 = (word) (* (( (hPt) var_c21360)+1) ), BCK(idx108, limit109) )) ); }; }; if (((ch_v18592 - 97) <= 25)) { var_c21328 = (ch_v18592 - 32); } else { var_c21328 = ch_v18592; }; var_c21392 = var_c21328; }; switch (var_c21392) { case 73: case 86: case 88: SOURCE(5548, 191) { W12 roman_v8244; SOURCE(5550, 95) (* (ptr) &roman_v8244 ) = (* (( (ptr) gf_c24368)+14) ); (* (( (ptr) &roman_v8244)+1) ) = (* (( (ptr) gf_c24368)+15) ); (* (( (ptr) &roman_v8244)+2) ) = (* (( (ptr) gf_c24368)+16) ); (* (( (ptr) &roman_v8244)+3) ) = (* (( (ptr) gf_c24368)+17) ); (* (( (ptr) &roman_v8244)+4) ) = (* (( (ptr) gf_c24368)+18) ); (* (( (ptr) &roman_v8244)+5) ) = (* (( (ptr) gf_c24368)+19) ); (* (( (ptr) &roman_v8244)+6) ) = (* (( (ptr) gf_c24368)+20) ); (* (( (ptr) &roman_v8244)+7) ) = (* (( (ptr) gf_c24368)+21) ); (* (( (ptr) &roman_v8244)+8) ) = (* (( (ptr) gf_c24368)+22) ); (* (( (ptr) &roman_v8244)+9) ) = (* (( (ptr) gf_c24368)+23) ); (* (( (ptr) &roman_v8244)+10) ) = (* (( (ptr) gf_c24368)+24) ); (* (( (ptr) &roman_v8244)+11) ) = (* (( (ptr) gf_c24368)+25) ); SOURCE(5647, 81) { register word noName_c21456 = 0; lab_L100058: ; month_v7420 = noName_c21456; SOURCE(5675, 53) { word pd110; pd110 = (* (( (ptr) (* (( (ptr) gf_c24368)+68)/* var_c20656 */ ))+8) ); if ((0 != (word) ( *( (fPt) ((* (ptr) pd110 ))))(m_v8184, (* (( (ptr) &roman_v8244)+month_v7420) ), 0, pd110))) { SOURCE(5722, 6) return(month_v7420); }; }; noName_c21456 = month_v7420; if ((noName_c21456 >= 11)) { goto lab_L100055; }; noName_c21456 = (noName_c21456 + 1); goto lab_L100058; lab_L100055: ; }; }; break; default: SOURCE(5753, 287) { W12 english_v8288; SOURCE(5755, 145) (* (ptr) &english_v8288 ) = (* (( (ptr) gf_c24368)+26) ); (* (( (ptr) &english_v8288)+1) ) = (* (( (ptr) gf_c24368)+27) ); (* (( (ptr) &english_v8288)+2) ) = (* (( (ptr) gf_c24368)+28) ); (* (( (ptr) &english_v8288)+3) ) = (* (( (ptr) gf_c24368)+29) ); (* (( (ptr) &english_v8288)+4) ) = (* (( (ptr) gf_c24368)+30) ); (* (( (ptr) &english_v8288)+5) ) = (* (( (ptr) gf_c24368)+31) ); (* (( (ptr) &english_v8288)+6) ) = (* (( (ptr) gf_c24368)+32) ); (* (( (ptr) &english_v8288)+7) ) = (* (( (ptr) gf_c24368)+33) ); (* (( (ptr) &english_v8288)+8) ) = (* (( (ptr) gf_c24368)+34) ); (* (( (ptr) &english_v8288)+9) ) = (* (( (ptr) gf_c24368)+35) ); (* (( (ptr) &english_v8288)+10) ) = (* (( (ptr) gf_c24368)+36) ); (* (( (ptr) &english_v8288)+11) ) = (* (( (ptr) gf_c24368)+37) ); SOURCE(5902, 127) if ((t_v7376.f2 >= 3)) { SOURCE(5924, 105) { register word noName_c21520 = 0; word var_c21552; lab_L100062: ; month_v7420 = noName_c21520; SOURCE(5952, 77) { word pd112; { word pd111; pd111 = (* (( (ptr) (* (( (ptr) gf_c24368)+68)/* var_c20656 */ ))+17) ); var_c21552 = (word) ( *( (fPt) ((* (ptr) pd111 ))))((* (( (ptr) &english_v8288)+month_v7420) ), 0, t_v7376.f2, pd111); }; pd112 = (* (( (ptr) (* (( (ptr) gf_c24368)+68)/* var_c20656 */ ))+8) ); if ((0 != (word) ( *( (fPt) ((* (ptr) pd112 ))))(m_v8184, var_c21552, 0, pd112))) { SOURCE(6023, 6) return(month_v7420); }; }; noName_c21520 = month_v7420; if ((noName_c21520 >= 11)) { goto lab_L100059; }; noName_c21520 = (noName_c21520 + 1); goto lab_L100062; lab_L100059: ; }; }; }; break; }; }; SOURCE(6043, 17) (void) XR_RaiseError((word) (( (bPt) gf_c24368)+164), 0); } static word CollectYear_P1572(formal_c0515, formal_c24464) W3 formal_c0515; word formal_c24464; { W8 var_c24432; /* declaration of y_v7480 skipped */ word var_c7524; formal_c24464 = (formal_c24464 - 24); (* (W3Pt) (( (ptr) &var_c24432)+4)/* y_v7480 */ ) = formal_c0515; var_c24432.f0 = formal_c24464; /* CollectYear: */ SOURCE(6063, 19) SOURCE(6115, 64) SOURCE(6115, 64) { word var_c0484; { /* declaration of var_c013 skipped */ { word var_c014; { word var_c0483; var_c0483 = (word) &var_c24432; var_c014 = (word) XR_Enable(( ((word) (fPt) NoName_Q5100) ), ( ((word) (fPt) NoName_Q5880) ), var_c0483); }; if ((var_c014 == 10)) { goto lab_L100064; }; }; { word idx113; var_c0484 = ( idx113 = (word) (var_c24432.f7/* var_c013 */ - 68), BCK(idx113, 69) ); }; }; return(var_c0484); }; lab_L100064: ; SOURCE(6191, 47) { word idx114; return(( idx114 = (word) ((word) CollectValue_P780((* (W3Pt) (( (ptr) &var_c24432)+4)/* y_v7480 */ ), 1968, 2036, (word) (( (bPt) (* (ptr) formal_c24464 ))+80) ) - 1968), BCK(idx114, 69) )); }; } static word NoName_Q5100(formal_c0430) word formal_c0430; { SOURCE(6115, 64) (* (( (ptr) formal_c0430)+7) ) = (word) CollectValue_P780((* (W3Pt) (( (ptr) formal_c0430)+4) ), 68, 99, (word) (( (bPt) (* (ptr) (* (ptr) formal_c0430 ) ))+80) ); return(0); } static word ParseTime_P600(formal_c0516, formal_c24528) word formal_c0516; word formal_c24528; { W9 var_c24496; /* declaration of first_v5828 skipped */ /* declaration of var_c015 skipped */ /* declaration of next_v5872 skipped */ /* declaration of var_c21648 skipped */ formal_c24528 = (formal_c24528 - 104); (* (( (ptr) &var_c24496)+4)/* first_v5828 */ ) = formal_c0516; (* (ptr) &var_c24496 ) = formal_c24528; /* ParseTime: */ SOURCE(8142, 2277) { word tmpAddr115; tmpAddr115 = (word) (( (ptr) &var_c24496)+7)/* var_c21648 */ ; (* (ptr) tmpAddr115 ) = ( ((word) (fPt) AMorPM_P2460) ); (* (( (ptr) tmpAddr115) + 1) ) = 1; }; SOURCE(8209, 2210) { word var_c016; { word var_c0485; var_c0485 = (word) &var_c24496; var_c016 = (word) XR_Enable(( ((word) (fPt) NoName_Q5160) ), ( ((word) (fPt) NoName_Q5820) ), var_c0485); }; if ((var_c016 == 1)) { goto lab_L013; }; }; SOURCE(8142, 2277) return((* (( (ptr) &var_c24496)+6)/* next_v5872 */ )); lab_L013: ; return((* (( (ptr) &var_c24496)+5)/* var_c015 */ )); } static word NoName_Q5160(formal_c0432) word formal_c0432; { SOURCE(8257, 19) { W3 n_v8444; SOURCE(9014, 12) n_v8444.f0 = 0; n_v8444.f1 = 1; n_v8444.f2 = 0; SOURCE(9028, 12) (* (( (ptr) formal_c0432)+6) ) = (* (( (ptr) formal_c0432)+4) ); SOURCE(9042, 41) (* (( (ptr) (* (ptr) formal_c0432 ))+10) ) = 0; (* (( (ptr) (* (ptr) formal_c0432 ))+9) ) = 0; (* (( (ptr) (* (ptr) formal_c0432 ))+8) ) = 0; SOURCE(9085, 164) { W3 var_c21712; (void) GetToken_P240((word) &var_c21712, (* (( (ptr) formal_c0432)+4) ), (word) (( (bPt) (* (ptr) formal_c0432 ))+152)); { word var_c21744; var_c21744 = var_c21712.f1; if ((var_c21744 == 1)) { { W3 f_v8904; f_v8904 = var_c21712; SOURCE(9134, 5) n_v8444 = f_v8904; }; } else { if ((var_c21744 == 2)) { { W3 f_v8948; f_v8948 = var_c21712; SOURCE(9157, 67) if ((f_v8948.f2 == 128)) { SOURCE(9200, 12) (* (( (ptr) formal_c0432)+5) ) = (* (( (ptr) formal_c0432)+6) ); return(1); } else { SOURCE(9212, 12) (void) Bogus_P720((* (( (ptr) formal_c0432)+4) ), (word) (( (bPt) (* (ptr) formal_c0432 ))+88)); }; }; } else { SOURCE(9237, 12) (void) Bogus_P720((* (( (ptr) formal_c0432)+4) ), (word) (( (bPt) (* (ptr) formal_c0432 ))+88)); }; }; }; }; SOURCE(9251, 16) { word idx116; (* (( (ptr) formal_c0432)+6) ) = ( idx116 = (word) ((* (( (ptr) formal_c0432)+6) ) + 1), BCK(idx116, 2147483647) ); }; SOURCE(9269, 64) { word var_c21776; var_c21776 = n_v8444.f2; switch (var_c21776) { case 1: case 2: case 4: case 6: break; default: SOURCE(9321, 12) (void) Bogus_P720((* (( (ptr) formal_c0432)+4) ), (word) (( (bPt) (* (ptr) formal_c0432 ))+88)); break; }; }; SOURCE(9335, 58) { word var_c21808; W3 h_v18064; h_v18064.f0 = n_v8444.f0; h_v18064.f1 = 1; { word x117; h_v18064.f2 = (x117 = n_v8444.f2, MIN( (unsigned) , x117, 2)); }; SOURCE(8315, 46) { word idx118; var_c21808 = ( idx118 = (word) CollectValue_P780(h_v18064, 0, 23, (word) (( (bPt) (* (ptr) formal_c0432 ))+80)), BCK(idx118, 24) ); }; (* (( (ptr) (* (ptr) formal_c0432 ))+8) ) = var_c21808; }; SOURCE(9395, 513) if ((n_v8444.f2 <= 2)) { SOURCE(9419, 188) { W3 var_c21904; (void) GetToken_P240((word) &var_c21904, (* (( (ptr) formal_c0432)+6) ), (word) (( (bPt) (* (ptr) formal_c0432 ))+152)); { word var_c21936; var_c21936 = var_c21904.f1; if ((var_c21936 == 2)) { { W3 sep_v8992; sep_v8992 = var_c21904; SOURCE(9469, 39) if ((sep_v8992.f2 == 128)) { SOURCE(9497, 11) (void) Bogus_P720((* (( (ptr) formal_c0432)+6) ), (word) (( (bPt) (* (ptr) formal_c0432 ))+88)); }; }; } else { if ((var_c21936 == 0)) { { W3 a_v9036; a_v9036 = var_c21904; SOURCE(9528, 55) if ((0 != (word) AMorPM_P2460((* (( (ptr) formal_c0432)+6) ), (word) (( (bPt) formal_c0432)+28)))) { SOURCE(9549, 23) { /*1*/ word idx119; /*1*/ (* (( (ptr) formal_c0432)+5) ) = ( /*1*/ idx119 = (word) ((* (( (ptr) formal_c0432)+6) ) + 1), /*1*/ BCK(idx119, 2147483647) /*1*/ ); /*1*/ }; return(1); } else { SOURCE(9572, 11) (void) Bogus_P720((* (( (ptr) formal_c0432)+6) ), (word) (( (bPt) (* (ptr) formal_c0432 ))+88)); }; }; } else { SOURCE(9596, 11) (void) Bogus_P720((* (( (ptr) formal_c0432)+6) ), (word) (( (bPt) (* (ptr) formal_c0432 ))+88)); }; }; }; }; SOURCE(9609, 16) { word idx120; (* (( (ptr) formal_c0432)+6) ) = ( idx120 = (word) ((* (( (ptr) formal_c0432)+6) ) + 1), BCK(idx120, 2147483647) ); }; SOURCE(9627, 152) { W3 var_c21968; (void) GetToken_P240((word) &var_c21968, (* (( (ptr) formal_c0432)+6) ), (word) (( (bPt) (* (ptr) formal_c0432 ))+152)); { word var_c22000; var_c22000 = var_c21968.f1; if ((var_c22000 == 1)) { { W3 s_v9080; s_v9080 = var_c21968; SOURCE(9675, 5) n_v8444 = s_v9080; }; } else { if ((var_c22000 == 0)) { { W3 a_v9124; a_v9124 = var_c21968; SOURCE(9700, 55) if ((0 != (word) AMorPM_P2460((* (( (ptr) formal_c0432)+6) ), (word) (( (bPt) formal_c0432)+28)))) { SOURCE(9721, 23) { /*1*/ word idx121; /*1*/ (* (( (ptr) formal_c0432)+5) ) = ( /*1*/ idx121 = (word) ((* (( (ptr) formal_c0432)+6) ) + 1), /*1*/ BCK(idx121, 2147483647) /*1*/ ); /*1*/ }; return(1); } else { SOURCE(9744, 11) (void) Bogus_P720((* (( (ptr) formal_c0432)+6) ), (word) (( (bPt) (* (ptr) formal_c0432 ))+88)); }; }; } else { SOURCE(9768, 11) (void) Bogus_P720((* (( (ptr) formal_c0432)+6) ), (word) (( (bPt) (* (ptr) formal_c0432 ))+88)); }; }; }; }; SOURCE(9781, 69) { word var_c22032; var_c22032 = n_v8444.f2; if ((var_c22032 == 2) || (var_c22032 == 4)) { SOURCE(9810, 16) { word idx122; (* (( (ptr) formal_c0432)+6) ) = ( idx122 = (word) ((* (( (ptr) formal_c0432)+6) ) + 1), BCK(idx122, 2147483647) ); }; } else { SOURCE(9839, 11) (void) Bogus_P720((* (( (ptr) formal_c0432)+6) ), (word) (( (bPt) (* (ptr) formal_c0432 ))+88)); }; }; } else { SOURCE(9860, 23) n_v8444.f0 = (n_v8444.f0 + 2); SOURCE(9885, 23) { word idx123; n_v8444.f2 = ( idx123 = (word) (n_v8444.f2 - 2), BCK(idx123, 16384) ); }; }; SOURCE(9911, 47) { word var_c22064; W3 m_v18112; m_v18112.f0 = n_v8444.f0; m_v18112.f1 = 1; m_v18112.f2 = 2; SOURCE(8426, 50) { word idx124; var_c22064 = ( idx124 = (word) CollectValue_P780(m_v18112, 0, 59, (word) (( (bPt) (* (ptr) formal_c0432 ))+80)), BCK(idx124, 60) ); }; (* (( (ptr) (* (ptr) formal_c0432 ))+9) ) = var_c22064; }; SOURCE(9960, 279) if ((n_v8444.f2 > 2)) { SOURCE(9981, 55) { word var_c22160; W3 s_v18160; s_v18160.f0 = (n_v8444.f0 + 2); s_v18160.f1 = 1; s_v18160.f2 = 2; SOURCE(8541, 50) { word idx125; var_c22160 = ( idx125 = (word) CollectValue_P780(s_v18160, 0, 59, (word) (( (bPt) (* (ptr) formal_c0432 ))+80)), BCK(idx125, 60) ); }; (* (( (ptr) (* (ptr) formal_c0432 ))+10) ) = var_c22160; }; } else { SOURCE(10036, 203) { W3 var_c22256; (void) GetToken_P240((word) &var_c22256, (* (( (ptr) formal_c0432)+6) ), (word) (( (bPt) (* (ptr) formal_c0432 ))+152)); if ((var_c22256.f1 == 2)) { { W3 sep_v9168; sep_v9168 = var_c22256; SOURCE(10086, 153) if ((sep_v9168.f2 == 58)) { SOURCE(10108, 131) { W3 var_c22288; { word idx126; (void) GetToken_P240((word) &var_c22288, ( /*1*/ idx126 = (word) ((* (( (ptr) formal_c0432)+6) ) + 1), /*1*/ BCK(idx126, 2147483647) /*1*/ ), (word) (( (bPt) (* (ptr) formal_c0432 ))+152)); }; if ((var_c22288.f1 == 1)) { { /*1*/ W3 s_v9212; /*1*/ s_v9212 = var_c22288; SOURCE(10162, 30) /*1*/ (* (( (ptr) (* (ptr) formal_c0432 ))+10) ) = (word) CollectValue_P780(s_v9212, 0, 59, (word) (( (bPt) (* (ptr) formal_c0432 ))+80) /*1*/ ); SOURCE(10194, 15) /*1*/ { /*1*/ word idx127; /*1*/ (* (( (ptr) formal_c0432)+6) ) = ( /*1*/ idx127 = (word) ((* (( (ptr) formal_c0432)+6) ) + 2), /*1*/ BCK(idx127, 2147483647) /*1*/ ); /*1*/ }; /*1*/ }; } else { SOURCE(10223, 16) { /*1*/ word idx128; /*1*/ (void) Bogus_P720(( /*1*/ idx128 = (word) ((* (( (ptr) formal_c0432)+6) ) + 1), /*1*/ BCK(idx128, 2147483647) /*1*/ ), (word) (( (bPt) (* (ptr) formal_c0432 ))+88)); /*1*/ }; }; }; }; }; } else { }; }; }; SOURCE(10250, 169) { W3 var_c22320; (void) GetToken_P240((word) &var_c22320, (* (( (ptr) formal_c0432)+6) ), (word) (( (bPt) (* (ptr) formal_c0432 ))+152)); { word var_c22352; var_c22352 = var_c22320.f1; if ((var_c22352 == 2)) { { W3 s_v9256; s_v9256 = var_c22320; SOURCE(10298, 64) { word idx129; if ( ( (s_v9256.f2 != 128) ? (0 != (word) AMorPM_P2460(( idx129 = (word) ((* (( (ptr) formal_c0432)+6) ) + 1), BCK(idx129, 2147483647) ), (word) (( (bPt) formal_c0432)+28))) : 0 ) ) { SOURCE(10347, 15) { word idx130; (* (( (ptr) formal_c0432)+6) ) = ( /*1*/ idx130 = (word) ((* (( (ptr) formal_c0432)+6) ) + 2), /*1*/ BCK(idx130, 2147483647) /*1*/ ); }; }; }; }; } else { if ((var_c22352 == 0)) { { W3 a_v9300; a_v9300 = var_c22320; SOURCE(10382, 37) if ((0 != (word) AMorPM_P2460((* (( (ptr) formal_c0432)+6) ), (word) (( (bPt) formal_c0432)+28)))) { SOURCE(10403, 16) { word idx131; (* (( (ptr) formal_c0432)+6) ) = ( /*1*/ idx131 = (word) ((* (( (ptr) formal_c0432)+6) ) + 1), /*1*/ BCK(idx131, 2147483647) /*1*/ ); }; }; }; } else { }; }; }; }; }; return(0); } static word AMorPM_P2460(t_v8832, formal_c24560) word t_v8832; word formal_c24560; { word var_c8876; formal_c24560 = (formal_c24560 - 28); /* AMorPM: */ SOURCE(8594, 14) SOURCE(8642, 343) { W3 var_c22384; (void) GetToken_P240((word) &var_c22384, t_v8832, (word) (( (bPt) (* (ptr) formal_c24560 ))+152)); if ((var_c22384.f1 == 0)) { { W3 m_v9344; word var_c22416; word ch_v18544; m_v9344 = var_c22384; SOURCE(8689, 296) { word tc132; if ((m_v9344.f2 == 2)) { { word var_c22448; word var_c22480; var_c22448 = (m_v9344.f0 + 1); var_c22480 = (* (( (ptr) (* (( (ptr) (* (ptr) formal_c24560 ))+44) ))+2) ); { word limit133; ch_v18544 = (word) (* ((( (bPt) var_c22480)+4)+( /*1*/ limit133 = (word) (* (( (hPt) var_c22480)+1) ), /*1*/ BCK(var_c22448, limit133) /*1*/ )) ); }; }; if (((ch_v18544 - 97) <= 25)) { var_c22416 = (ch_v18544 - 32); } else { var_c22416 = ch_v18544; }; tc132 = (word) (var_c22416 == 77); } else { tc132 = (word) 0; }; if (tc132) { SOURCE(8761, 224) { word offset_v9388; SOURCE(8777, 110) { word var_c22576; { word var_c22512; word ch_v18496; { /*1*/ word var_c22544; /*1*/ var_c22544 = (* (( (ptr) (* (( (ptr) (* (ptr) formal_c24560 ))+44) ))+2) ); /*1*/ { /*1*/ word idx134; /*1*/ word limit135; /*1*/ ch_v18496 = (word) (* ((( (bPt) var_c22544)+4)+( /*1*/ idx134 = (word) m_v9344.f0, /*1*/ limit135 = (word) (* (( (hPt) var_c22544)+1) ), /*1*/ BCK(idx134, limit135) /*1*/ )) ); /*1*/ }; /*1*/ }; if (((ch_v18496 - 97) <= 25)) { /*1*/ var_c22512 = (ch_v18496 - 32); /*1*/ } else { /*1*/ var_c22512 = ch_v18496; /*1*/ }; var_c22576 = var_c22512; }; if ((var_c22576 == 65)) { SOURCE(8832, 10) offset_v9388 = 0; } else { if ((var_c22576 == 80)) { SOURCE(8850, 11) /*1*/ offset_v9388 = 12; /*1*/ } else { SOURCE(8874, 13) /*1*/ return(0); /*1*/ }; }; }; SOURCE(8889, 40) if ((((* (( (ptr) (* (ptr) formal_c24560 ))+8) ) - 1) > 11)) { SOURCE(8921, 8) (void) Bogus_P720(t_v8832, (word) (( (bPt) (* (ptr) formal_c24560 ))+88)); }; SOURCE(8931, 39) { word idx136; (* (( (ptr) (* (ptr) formal_c24560 ))+8) ) = ( idx136 = (word) (((* (( (ptr) (* (ptr) formal_c24560 ))+8) ) % 12) + offset_v9388), BCK(idx136, 25) ); }; SOURCE(8972, 13) return(1); }; }; }; }; } else { }; }; SOURCE(8997, 14) return(0); } static word ParseZone_P660(formal_c0517, formal_c24624) word formal_c0517; word formal_c24624; { W14 var_c24592; /* declaration of first_v5932 skipped */ /* declaration of next_v5976 skipped */ /* declaration of var_c22608 skipped */ /* declaration of var_c22640 skipped */ formal_c24624 = (formal_c24624 - 96); (* (( (ptr) &var_c24592)+4)/* first_v5932 */ ) = formal_c0517; (* (ptr) &var_c24592 ) = formal_c24624; /* ParseZone: */ SOURCE(10435, 2865) { word tmpAddr137; tmpAddr137 = (word) (( (ptr) &var_c24592)+6)/* var_c22608 */ ; (* (ptr) tmpAddr137 ) = ( ((word) (fPt) CollectAbsolute_P3204) ); (* (( (ptr) tmpAddr137) + 1) ) = 1; }; { word tmpAddr138; tmpAddr138 = (word) (( (ptr) &var_c24592)+8)/* var_c22640 */ ; (* (ptr) tmpAddr138 ) = ( ((word) (fPt) CollectSymbolic_P3144) ); (* (( (ptr) tmpAddr138) + 1) ) = 1; }; SOURCE(10500, 2800) SOURCE(10502, 2774) { /* declaration of dst_v9460 skipped */ /* declaration of z_v9784 skipped */ word var_c025; { word var_c0486; var_c0486 = (word) &var_c24592; var_c025 = (word) XR_Enable(( ((word) (fPt) NoName_Q5220) ), ( ((word) (fPt) NoName_Q5520) ), var_c0486); }; if ((var_c025 == 11)) { goto lab_L100074; }; }; goto lab_L100087; lab_L100074: ; lab_L100087: ; SOURCE(10435, 2865) return((* (( (ptr) &var_c24592)+5)/* next_v5976 */ )); } static word NoName_Q5220(formal_c0435) word formal_c0435; { W8 var_c0512; var_c0512.f0 = formal_c0435; SOURCE(10550, 21) SOURCE(10573, 17) (* (( (ptr) formal_c0435)+10) ) = 0; SOURCE(12321, 863) { W3 var_c22672; { W3 var_c0231; { word var_c0487; (* (( (ptr) formal_c0435)+5) ) = (* (( (ptr) formal_c0435)+4) ); var_c0487 = (* (( (ptr) formal_c0435)+4) ); (void) GetToken_P240((word) &var_c0231, var_c0487, (word) (( (bPt) (* (ptr) formal_c0435 ))+152)); }; var_c22672 = var_c0231; }; { word var_c22864; var_c22864 = var_c22672.f1; if ((var_c22864 == 2)) { (* (W3Pt) (( (ptr) formal_c0435)+11) ) = var_c22672; SOURCE(12377, 694) { word var_c22704; var_c22704 = (* (( (ptr) formal_c0435)+13) ); switch (var_c22704) { case 32: case 43: case 45: SOURCE(12418, 609) { W3 var_c22736; { word idx139; (void) GetToken_P240((word) &var_c22736, ( /*1*/ idx139 = (word) ((* (( (ptr) formal_c0435)+5) ) + 1), /*1*/ BCK(idx139, 2147483647) /*1*/ ), (word) (( (bPt) (* (ptr) formal_c0435 ))+152)); }; { word var_c22832; var_c22832 = var_c22736.f1; if ((var_c22832 == 1)) { /*1*/ { /*1*/ /* declaration of zone_v9828 skipped */ /*1*/ (* (W3Pt) (( (ptr) &var_c0512)+4)/* zone_v9828 */ ) = var_c22736; SOURCE(12474, 380) SOURCE(12510, 243) /*1*/ { /*1*/ word var_c22768; /*1*/ var_c22768 = (* (( (ptr) formal_c0435)+13) ); /*1*/ switch (var_c22768) { /*1*/ case 32: SOURCE(12541, 12) /*1*/ return(11); /*1*/ case 43: SOURCE(12600, 65) /*1*/ { /*1*/ /* declaration of var_c017 skipped */ /*1*/ { /*1*/ word var_c018; /*1*/ { /*1*/ word var_c0488; /*1*/ var_c0488 = (word) &var_c0512; /*1*/ var_c018 = (word) XR_Enable(( ((word) (fPt) NoName_Q5460) ), ( ((word) (fPt) NoName_Q5760) ), var_c0488); /*1*/ }; /*1*/ if ((var_c018 == 12)) { /*1*/ goto lab_L100077; /*1*/ } /*1*/ else { /*1*/ if ((var_c018 == 11)) { /*1*/ return(11); /*1*/ }; /*1*/ }; /*1*/ }; /*1*/ { /*1*/ word idx140; /*1*/ (* (( (ptr) (* (ptr) formal_c0435 ))+11) ) = ( /*1*/ idx140 = (word) (INEG((var_c0512.f7/* var_c017 */ - 720)) + 720), /*1*/ BCK(idx140, 1442) /*1*/ ); /*1*/ }; /*1*/ }; /*1*/ break; /*1*/ case 45: SOURCE(12688, 65) /*1*/ { /*1*/ /* declaration of var_c019 skipped */ /*1*/ { /*1*/ word var_c020; /*1*/ { /*1*/ word var_c0489; /*1*/ var_c0489 = (word) &var_c0512; /*1*/ var_c020 = (word) XR_Enable(( ((word) (fPt) NoName_Q5400) ), ( ((word) (fPt) NoName_Q5700) ), var_c0489); /*1*/ }; /*1*/ if ((var_c020 == 12)) { /*1*/ goto lab_L100077; /*1*/ } /*1*/ else { /*1*/ if ((var_c020 == 11)) { /*1*/ return(11); /*1*/ }; /*1*/ }; /*1*/ }; /*1*/ (* (( (ptr) (* (ptr) formal_c0435 ))+11) ) = var_c0512.f7/* var_c019 */ ; /*1*/ }; /*1*/ break; /*1*/ }; /*1*/ }; /*1*/ goto lab_L100082; /*1*/ lab_L100077: ; SOURCE(12815, 37) /*1*/ (* (( (ptr) (* (ptr) formal_c0435 ))+11) ) = 1441; /*1*/ lab_L100082: ; /*1*/ }; /*1*/ } else { /*1*/ if ((var_c22832 == 0)) { /*1*/ { /*1*/ /* declaration of zone_v9872 skipped */ /*1*/ (* (W3Pt) (( (ptr) &var_c0512)+4)/* zone_v9872 */ ) = var_c22736; SOURCE(12878, 149) /*1*/ if (((* (( (ptr) formal_c0435)+13) ) == 43)) { SOURCE(12898, 22) /*1*/ { /*1*/ word idx141; /*1*/ (void) Bogus_P720(( /*1*/ idx141 = (word) ((* (( (ptr) formal_c0435)+5) ) + 1), /*1*/ BCK(idx141, 2147483647) /*1*/ ), (word) (( (bPt) (* (ptr) formal_c0435 ))+88)); /*1*/ }; /*1*/ } /*1*/ else { SOURCE(12920, 107) /*1*/ { /*1*/ /* declaration of var_c021 skipped */ /*1*/ { /*1*/ word var_c022; /*1*/ { /*1*/ word var_c0490; /*1*/ var_c0490 = (word) &var_c0512; /*1*/ var_c022 = (word) XR_Enable(( ((word) (fPt) NoName_Q5340) ), ( ((word) (fPt) NoName_Q5640) ), var_c0490); /*1*/ }; /*1*/ if ((var_c022 == 12)) { /*1*/ goto lab_L100077; /*1*/ } /*1*/ else { /*1*/ if ((var_c022 == 11)) { /*1*/ return(11); /*1*/ }; /*1*/ }; /*1*/ }; /*1*/ { /*1*/ word idx142; /*1*/ (* (( (ptr) (* (ptr) formal_c0435 ))+11) ) = ( /*1*/ idx142 = (word) (var_c0512.f7/* var_c021 */ - 720), /*1*/ BCK(idx142, 1442) /*1*/ ); /*1*/ }; /*1*/ }; /*1*/ }; /*1*/ }; /*1*/ } /*1*/ else { /*1*/ }; /*1*/ }; }; }; SOURCE(13055, 16) { word idx143; (* (( (ptr) formal_c0435)+5) ) = ( idx143 = (word) ((* (( (ptr) formal_c0435)+5) ) + 1), BCK(idx143, 2147483647) ); }; break; default: SOURCE(13087, 12) return(11); }; }; } else { if ((var_c22864 == 0)) { { /* declaration of z_v9916 skipped */ (* (W3Pt) (( (ptr) &var_c0512)+4)/* z_v9916 */ ) = var_c22672; SOURCE(13141, 43) { /* declaration of var_c023 skipped */ { word var_c024; { word var_c0491; var_c0491 = (word) &var_c0512; var_c024 = (word) XR_Enable(( ((word) (fPt) NoName_Q5280) ), ( ((word) (fPt) NoName_Q5580) ), var_c0491); }; if ((var_c024 == 12)) { goto lab_L100077; } else { if ((var_c024 == 11)) { /*1*/ return(11); /*1*/ }; }; }; { word idx144; (* (( (ptr) (* (ptr) formal_c0435 ))+11) ) = ( idx144 = (word) (var_c0512.f7/* var_c023 */ - 720), BCK(idx144, 1442) ); }; }; }; } else { SOURCE(13210, 12) return(11); }; }; }; }; SOURCE(13224, 16) { word idx145; (* (( (ptr) formal_c0435)+5) ) = ( idx145 = (word) ((* (( (ptr) formal_c0435)+5) ) + 1), BCK(idx145, 2147483647) ); }; SOURCE(13242, 34) if ((0 != (* (( (ptr) formal_c0435)+10) ))) { (* (( (ptr) (* (ptr) formal_c0435 ))+12) ) = 0; } else { (* (( (ptr) (* (ptr) formal_c0435 ))+12) ) = 1; }; return(0); } static word NoName_Q5280(formal_c0436) word formal_c0436; { SOURCE(13141, 43) (* (( (ptr) formal_c0436)+7) ) = (word) CollectSymbolic_P3144((* (W3Pt) (( (ptr) formal_c0436)+4) ), (word) (( (bPt) (* (ptr) formal_c0436 ))+32) ); return(0); } static word NoName_Q5340(formal_c0437) word formal_c0437; { SOURCE(12920, 107) (* (( (ptr) formal_c0437)+7) ) = (word) CollectSymbolic_P3144((* (W3Pt) (( (ptr) formal_c0437)+4) ), (word) (( (bPt) (* (ptr) formal_c0437 ))+32) ); return(0); } static word NoName_Q5400(formal_c0438) word formal_c0438; { SOURCE(12688, 65) (* (( (ptr) formal_c0438)+7) ) = (word) CollectAbsolute_P3204((* (W3Pt) (( (ptr) formal_c0438)+4) ), (word) (( (bPt) (* (ptr) formal_c0438 ))+24) ); return(0); } static word NoName_Q5460(formal_c0439) word formal_c0439; { SOURCE(12600, 65) (* (( (ptr) formal_c0439)+7) ) = (word) CollectAbsolute_P3204((* (W3Pt) (( (ptr) formal_c0439)+4) ), (word) (( (bPt) (* (ptr) formal_c0439 ))+24) ); return(0); } static word CollectSymbolic_P3144(z_v9608, formal_c24688) W3 z_v9608; word formal_c24688; { register ptr gf_c24656 = (ptr) &globalframe; word var_c9652; word char_v9960; formal_c24688 = (formal_c24688 - 32); /* CollectSymbolic: */ SOURCE(10592, 23) SOURCE(10659, 49) { word ch_v18448; { word var_c22928; var_c22928 = (* (( (ptr) (* (( (ptr) (* (ptr) formal_c24688 ))+44) ))+2) ); { word idx146; word limit147; ch_v18448 = (word) (* ((( (bPt) var_c22928)+4)+( idx146 = (word) z_v9608.f0, limit147 = (word) (* (( (hPt) var_c22928)+1) ), BCK(idx146, limit147) )) ); }; }; if (((ch_v18448 - 97) <= 25)) { char_v9960 = (ch_v18448 - 32); } else { char_v9960 = ch_v18448; }; }; SOURCE(10710, 1099) { word var_c22960; word var_c23024; word ch_v18400; var_c22960 = z_v9608.f2; switch (var_c22960) { case 1: SOURCE(10736, 247) SOURCE(10882, 90) { register word noName_c22992 = (word) -12; register word hour_v10064; lab_L100092: ; hour_v10064 = (noName_c22992 + 12); SOURCE(10918, 54) if ((char_v9960 == (word) (* ((( (bPt) gf_c24656)+236)/* var_c18832 */ +hour_v10064) ))) { SOURCE(10945, 27) return((IOP2( * , (int)(hour_v10064 - 12), (int)60) + 1440)); }; if (( (int)noName_c22992 >= (int)12)) { goto lab_L100089; }; noName_c22992 = (noName_c22992 + 1); goto lab_L100092; lab_L100089: ; }; break; case 2: SOURCE(10991, 75) { word tc148; if ((char_v9960 == 85)) { { word var_c23056; word var_c23088; var_c23056 = (z_v9608.f0 + 1); var_c23088 = (* (( (ptr) (* (( (ptr) (* (ptr) formal_c24688 ))+44) ))+2) ); { word limit149; ch_v18400 = (word) (* ((( (bPt) var_c23088)+4)+( /*1*/ limit149 = (word) (* (( (hPt) var_c23088)+1) ), /*1*/ BCK(var_c23056, limit149) /*1*/ )) ); }; }; if (((ch_v18400 - 97) <= 25)) { var_c23024 = (ch_v18400 - 32); } else { var_c23024 = ch_v18400; }; tc148 = (word) (var_c23024 == 84); } else { tc148 = (word) 0; }; if (tc148) { SOURCE(11057, 9) return(1440); }; }; break; case 3: SOURCE(11073, 750) { word maybeBST_v10136 = 0; word maybeMET_v10164 = 0; word var_c23120; word ch_v18352; SOURCE(11197, 612) { word var_c23152; word var_c23184; var_c23152 = (z_v9608.f0 + 2); var_c23184 = (* (( (ptr) (* (( (ptr) (* (ptr) formal_c24688 ))+44) ))+2) ); { word limit150; ch_v18352 = (word) (* ((( (bPt) var_c23184)+4)+( limit150 = (word) (* (( (hPt) var_c23184)+1) ), BCK(var_c23152, limit150) )) ); }; }; if (((ch_v18352 - 97) <= 25)) { var_c23120 = (ch_v18352 - 32); } else { var_c23120 = ch_v18352; }; if (((var_c23120 == 84) )) { SOURCE(11251, 200) { word var_c23312; { word var_c23216; word ch_v18304; { word var_c23248; word var_c23280; var_c23248 = (z_v9608.f0 + 1); var_c23280 = (* (( (ptr) (* (( (ptr) (* (ptr) formal_c24688 ))+44) ))+2) ); { /*1*/ word limit151; /*1*/ ch_v18304 = (word) (* ((( (bPt) var_c23280)+4)+( /*1*/ limit151 = (word) (* (( (hPt) var_c23280)+1) ), /*1*/ BCK(var_c23248, limit151) /*1*/ )) ); /*1*/ }; }; if (((ch_v18304 - 97) <= 25)) { var_c23216 = (ch_v18304 - 32); } else { var_c23216 = ch_v18304; }; var_c23312 = var_c23216; }; switch (var_c23312) { case 77: break; case 83: SOURCE(11359, 15) maybeBST_v10136 = 1; break; case 68: SOURCE(11418, 10) (* (( (ptr) formal_c24688)+10) ) = 1; break; case 69: SOURCE(11436, 15) maybeMET_v10164 = 1; break; }; }; SOURCE(11462, 240) { word var_c23344; var_c23344 = char_v9960; switch (var_c23344) { case 66: SOURCE(11485, 42) if ((0 != maybeBST_v10136)) { SOURCE(11502, 25) /*1*/ return(1380); /*1*/ }; break; case 71: SOURCE(11542, 22) if ((0 == (* (( (ptr) formal_c24688)+10) ))) { SOURCE(11555, 9) /*1*/ return(1440); /*1*/ }; break; case 74: SOURCE(11572, 25) return(900); case 78: SOURCE(11612, 40) if ((0 == (* (( (ptr) formal_c24688)+10) ))) { SOURCE(11625, 27) /*1*/ return(1650); /*1*/ }; break; case 77: SOURCE(11660, 42) if ((0 != maybeMET_v10164)) { SOURCE(11677, 25) /*1*/ return(1380); /*1*/ }; break; default: break; }; }; SOURCE(11721, 88) { register word noName_c23376 = 4; register word hour_v10224; word var_c0492; W2 var_c23408; word var_c0493; lab_L100099: ; hour_v10224 = (noName_c23376 - 4); SOURCE(11753, 56) var_c23408.f0 = 1095058253; var_c23408.f1 = 1348028482; var_c0492 = (var_c0492 & 4294967040) | ((word) (* (( (bPt) &var_c23408)+hour_v10224) )); var_c0493 = (var_c0492 & 0377); if ((char_v9960 == var_c0493)) { SOURCE(11782, 27) return((((hour_v10224 + 4) * 60) + 1440)); }; if ((noName_c23376 >= 11)) { goto lab_L100096; }; noName_c23376 = (noName_c23376 + 1); goto lab_L100099; lab_L100096: ; }; }; }; break; }; }; SOURCE(11835, 14) (void) XR_RaiseError((word) (( (bPt) gf_c24656)+168), 0); } static word CollectAbsolute_P3204(z_v9712, formal_c24752) W3 z_v9712; word formal_c24752; { register ptr gf_c24720 = (ptr) &globalframe; word var_c9756; word delta_v10268; word hour_v10296; word hourLength_v10324; word minute_v10352 = 0; formal_c24752 = (formal_c24752 - 24); /* CollectAbsolute: */ SOURCE(11852, 23) SOURCE(11990, 65) if (((z_v9712.f2 - 1) > 3)) { SOURCE(12020, 35) { word var_c0274; { word idx152; var_c0274 = ( idx152 = (word) (z_v9712.f0 + z_v9712.f2), SGNCK(idx152) ); }; (void) XR_RaiseError((word) (( (bPt) gf_c24720)+160), (word) &var_c0274); }; }; SOURCE(12057, 33) hourLength_v10324 = (2 - (z_v9712.f2 & 1)); SOURCE(12092, 71) { W3 var_c23440; var_c23440.f0 = z_v9712.f0; var_c23440.f1 = 1; var_c23440.f2 = BCK(hourLength_v10324, 16384); { word idx153; hour_v10296 = ( idx153 = (word) CollectValue_P780(var_c23440, 0, 23, (word) (( (bPt) (* (ptr) formal_c24752 ))+80)), BCK(idx153, 24) ); }; }; SOURCE(12165, 100) if ((z_v9712.f2 > 2)) { SOURCE(12186, 79) { W3 var_c23472; { word idx154; var_c23472.f0 = ( idx154 = (word) (z_v9712.f0 + hourLength_v10324), SGNCK(idx154) ); }; var_c23472.f1 = 1; var_c23472.f2 = 2; { word idx155; minute_v10352 = ( idx155 = (word) CollectValue_P780(var_c23472, 0, 59, (word) (( (bPt) (* (ptr) formal_c24752 ))+80)), BCK(idx155, 60) ); }; }; }; SOURCE(12267, 34) { word idx156; delta_v10268 = ( idx156 = (word) (((hour_v10296 * 60) + minute_v10352) + 720), BCK(idx156, 1442) ); }; SOURCE(12303, 13) return(delta_v10268); } static void Bogus_P720(ti_v6036, formal_c24816) word ti_v6036; word formal_c24816; { register ptr gf_c24784 = (ptr) &globalframe; formal_c24816 = (formal_c24816 - 88); /* Bogus: */ SOURCE(13305, 77) SOURCE(13337, 45) { word var_c0278; { word limit157; var_c0278 = (* (( (W3Pt) (( (ptr) (* (( (ptr) formal_c24816)+44) ))+4))+( limit157 = (* (( (ptr) (* (( (ptr) formal_c24816)+44) ))+3) ), BCK(ti_v6036, limit157) )) ).f0; }; (void) XR_RaiseError((word) (( (bPt) gf_c24784)+156), (word) &var_c0278); }; } static word CollectValue_P780(t_v6156, low_v6184, high_v6212, formal_c24880) W3 t_v6156; word low_v6184; word high_v6212; word formal_c24880; { register ptr gf_c24848 = (ptr) &globalframe; word value_v6256; formal_c24880 = (formal_c24880 - 80); /* CollectValue: */ SOURCE(13428, 307) SOURCE(13428, 307) value_v6256 = 0; SOURCE(13507, 150) { register word j_v10396; register word noName_c23504; j_v10396 = t_v6156.f0; noName_c23504 = (t_v6156.f0 + t_v6156.f2); if ((j_v10396 >= noName_c23504)) { goto lab_L100100; }; lab_L100103: ; SOURCE(13560, 51) if ((value_v6256 > 214748363)) { SOURCE(13592, 19) { word var_c0285; var_c0285 = j_v10396; (void) XR_RaiseError((word) (( (bPt) gf_c24848)+160), (word) &var_c0285); }; }; SOURCE(13613, 44) { word var_c23536; word var_c0494; var_c23536 = (* (( (ptr) (* (( (ptr) formal_c24880)+44) ))+2) ); { word limit158; var_c0494 = ((word) (* ((( (bPt) var_c23536)+4)+( limit158 = (word) (* (( (hPt) var_c23536)+1) ), BCK(j_v10396, limit158) )) ) - 48); }; { word idx159; value_v6256 = ( idx159 = (word) ((value_v6256 * 10) + var_c0494), SGNCK(idx159) ); }; }; j_v10396 = (j_v10396 + 1); if ((j_v10396 < noName_c23504)) { goto lab_L100103; }; lab_L100100: ; }; SOURCE(13668, 67) if ((value_v6256 < low_v6184) || (value_v6256 > high_v6212)) { SOURCE(13700, 35) { word var_c0287; { word idx160; var_c0287 = ( idx160 = (word) (t_v6156.f0 + t_v6156.f2), SGNCK(idx160) ); }; (void) XR_RaiseError((word) (( (bPt) gf_c24848)+160), (word) &var_c0287); }; }; SOURCE(13428, 307) return(value_v6256); } static word LeapYear_P840(year_v6316, formal_c24912) word year_v6316; word formal_c24912; { word var_c6360; formal_c24912 = (formal_c24912 - 72); /* LeapYear: */ SOURCE(13740, 113) SOURCE(13787, 66) { word tc161; if ((((year_v6316 + 1968) & 3) == 0)) { if ((((year_v6316 + 1968) % 100) != 0)) { tc161 = (word) 1; } else { tc161 = (word) (((year_v6316 + 1968) % 400) == 0); }; } else { tc161 = (word) 0; }; return(tc161); }; } static word ConsumeSPOrComma_P900(t_v6420, formal_c24944) word t_v6420; word formal_c24944; { word var_c6464; formal_c24944 = (formal_c24944 - 64); /* ConsumeSPOrComma: */ SOURCE(13856, 188) SOURCE(13920, 94) { W3 var_c23568; (void) GetToken_P240((word) &var_c23568, t_v6420, (word) (( (bPt) formal_c24944)+152)); if ((var_c23568.f1 == 2)) { { W3 s_v10440; s_v10440 = var_c23568; SOURCE(13965, 49) { word var_c23600; var_c23600 = s_v10440.f2; if ((var_c23600 == 32) || (var_c23600 == 44)) { SOURCE(14000, 14) return(BCK((t_v6420 + 1), 2147483647)); }; }; }; } else { }; }; SOURCE(14034, 10) return(t_v6420); } static void NoName_Q5520(formal_c0302, formal_c200048, formal_c200049, formal_c200050, formal_c200051) word formal_c0302; word formal_c200048; word formal_c200049; word formal_c200050; word formal_c200051; { register ptr gf_c0450 = (ptr) &globalframe; if ((formal_c200049 == (word) (( (bPt) gf_c0450)+160))) { { word pos_v17700; pos_v17700 = (* (ptr) formal_c200051 ); SOURCE(10523, 25) { word var_c0301; var_c0301 = pos_v17700; (void) XR_RaiseError((word) (( (bPt) gf_c0450)+156), (word) &var_c0301); }; }; }; (* (ptr) formal_c0302 ) = 0; (* (( (ptr) formal_c0302)+1) ) = 0; return; } static void NoName_Q5580(formal_c0307, formal_c200064, formal_c200065, formal_c200066, formal_c200067) word formal_c0307; word formal_c200064; word formal_c200065; word formal_c200066; word formal_c200067; { register ptr gf_c0451 = (ptr) &globalframe; if ((formal_c200065 == (word) (( (bPt) gf_c0451)+168))) { SOURCE(13184, 13) (* (ptr) formal_c0307 ) = 2; (* (( (ptr) formal_c0307)+1) ) = 11; return; }; (* (ptr) formal_c0307 ) = 0; (* (( (ptr) formal_c0307)+1) ) = 0; return; } static void NoName_Q5640(formal_c0312, formal_c200060, formal_c200061, formal_c200062, formal_c200063) word formal_c0312; word formal_c200060; word formal_c200061; word formal_c200062; word formal_c200063; { register ptr gf_c0452 = (ptr) &globalframe; if ((formal_c200061 == (word) (( (bPt) gf_c0452)+168))) { SOURCE(12966, 61) if (((* (( (ptr) (* (ptr) formal_c200060 ))+13) ) == 32)) { SOURCE(12992, 18) (* (ptr) formal_c0312 ) = 2; (* (( (ptr) formal_c0312)+1) ) = 11; return; } else { SOURCE(13010, 17) { word idx162; (void) Bogus_P720(( idx162 = (word) ((* (( (ptr) (* (ptr) formal_c200060 ))+5) ) + 1), BCK(idx162, 2147483647) ), (word) (( (bPt) (* (ptr) (* (ptr) formal_c200060 ) ))+88)); }; }; }; (* (ptr) formal_c0312 ) = 0; (* (( (ptr) formal_c0312)+1) ) = 0; return; } static void NoName_Q5700(formal_c0317, formal_c200056, formal_c200057, formal_c200058, formal_c200059) word formal_c0317; word formal_c200056; word formal_c200057; word formal_c200058; word formal_c200059; { register ptr gf_c0453 = (ptr) &globalframe; if ((formal_c200057 == (* (( (ptr) (* (( (ptr) gf_c0453)+69)/* var_c22800 */ ))+8) ))) { SOURCE(12753, 15) (* (ptr) formal_c0317 ) = 2; (* (( (ptr) formal_c0317)+1) ) = 12; return; }; (* (ptr) formal_c0317 ) = 0; (* (( (ptr) formal_c0317)+1) ) = 0; return; } static void NoName_Q5760(formal_c0322, formal_c200052, formal_c200053, formal_c200054, formal_c200055) word formal_c0322; word formal_c200052; word formal_c200053; word formal_c200054; word formal_c200055; { register ptr gf_c0454 = (ptr) &globalframe; if ((formal_c200053 == (* (( (ptr) (* (( (ptr) gf_c0454)+69)/* var_c22800 */ ))+8) ))) { SOURCE(12665, 15) (* (ptr) formal_c0322 ) = 2; (* (( (ptr) formal_c0322)+1) ) = 12; return; }; (* (ptr) formal_c0322 ) = 0; (* (( (ptr) formal_c0322)+1) ) = 0; return; } static void NoName_Q5820(formal_c0329, formal_c200044, formal_c200045, formal_c200046, formal_c200047) word formal_c0329; word formal_c200044; word formal_c200045; word formal_c200046; word formal_c200047; { register ptr gf_c0455 = (ptr) &globalframe; if ((formal_c200045 == (word) (( (bPt) gf_c0455)+160))) { { word pos_v17640; pos_v17640 = (* (ptr) formal_c200047 ); SOURCE(8230, 25) { word var_c0328; var_c0328 = pos_v17640; (void) XR_RaiseError((word) (( (bPt) gf_c0455)+156), (word) &var_c0328); }; }; }; (* (ptr) formal_c0329 ) = 0; (* (( (ptr) formal_c0329)+1) ) = 0; return; } static void NoName_Q5880(formal_c0335, formal_c200040, formal_c200041, formal_c200042, formal_c200043) word formal_c0335; word formal_c200040; word formal_c200041; word formal_c200042; word formal_c200043; { register ptr gf_c0456 = (ptr) &globalframe; if ((formal_c200041 == (word) (( (bPt) gf_c0456)+160))) { { word pos_v17580; pos_v17580 = (* (ptr) formal_c200043 ); SOURCE(6179, 10) (* (ptr) formal_c0335 ) = 2; (* (( (ptr) formal_c0335)+1) ) = 10; return; }; }; (* (ptr) formal_c0335 ) = 0; (* (( (ptr) formal_c0335)+1) ) = 0; return; } static void NoName_Q5940(formal_c0342, formal_c200016, formal_c200017, formal_c200018, formal_c200019) word formal_c0342; word formal_c200016; word formal_c200017; word formal_c200018; word formal_c200019; { register ptr gf_c0457 = (ptr) &globalframe; if ((formal_c200017 == (word) (( (bPt) gf_c0457)+160))) { { word pos_v17276; pos_v17276 = (* (ptr) formal_c200019 ); SOURCE(5210, 25) { word var_c0341; var_c0341 = pos_v17276; (void) XR_RaiseError((word) (( (bPt) gf_c0457)+156), (word) &var_c0341); }; }; }; (* (ptr) formal_c0342 ) = 0; (* (( (ptr) formal_c0342)+1) ) = 0; return; } static void NoName_Q6000(formal_c0348, formal_c200036, formal_c200037, formal_c200038, formal_c200039) word formal_c0348; word formal_c200036; word formal_c200037; word formal_c200038; word formal_c200039; { register ptr gf_c0458 = (ptr) &globalframe; if ((formal_c200037 == (word) (( (bPt) gf_c0458)+160))) { { word pos_v17960; pos_v17960 = (* (ptr) formal_c200039 ); SOURCE(7751, 15) (* (ptr) formal_c0348 ) = 2; (* (( (ptr) formal_c0348)+1) ) = 9; return; }; }; (* (ptr) formal_c0348 ) = 0; (* (( (ptr) formal_c0348)+1) ) = 0; return; } static void NoName_Q6060(formal_c0354, formal_c200032, formal_c200033, formal_c200034, formal_c200035) word formal_c0354; word formal_c200032; word formal_c200033; word formal_c200034; word formal_c200035; { register ptr gf_c0459 = (ptr) &globalframe; if ((formal_c200033 == (word) (( (bPt) gf_c0459)+160))) { { word pos_v17428; pos_v17428 = (* (ptr) formal_c200035 ); SOURCE(7689, 16) (* (ptr) formal_c0354 ) = 2; (* (( (ptr) formal_c0354)+1) ) = 7; return; }; }; (* (ptr) formal_c0354 ) = 0; (* (( (ptr) formal_c0354)+1) ) = 0; return; } static void NoName_Q6120(formal_c0360, formal_c200028, formal_c200029, formal_c200030, formal_c200031) word formal_c0360; word formal_c200028; word formal_c200029; word formal_c200030; word formal_c200031; { register ptr gf_c0460 = (ptr) &globalframe; if ((formal_c200029 == (word) (( (bPt) gf_c0460)+160))) { { word pos_v18020; pos_v18020 = (* (ptr) formal_c200031 ); SOURCE(7493, 16) (* (ptr) formal_c0360 ) = 2; (* (( (ptr) formal_c0360)+1) ) = 6; return; }; }; (* (ptr) formal_c0360 ) = 0; (* (( (ptr) formal_c0360)+1) ) = 0; return; } static void NoName_Q6180(formal_c0365, formal_c200024, formal_c200025, formal_c200026, formal_c200027) word formal_c0365; word formal_c200024; word formal_c200025; word formal_c200026; word formal_c200027; { register ptr gf_c0461 = (ptr) &globalframe; if ((formal_c200025 == (word) (( (bPt) gf_c0461)+164))) { SOURCE(7425, 14) (void) Bogus_P720((* (( (ptr) (* (ptr) formal_c200024 ))+10) ), (word) (( (bPt) (* (ptr) (* (ptr) formal_c200024 ) ))+88) ); }; (* (ptr) formal_c0365 ) = 0; (* (( (ptr) formal_c0365)+1) ) = 0; return; } static void NoName_Q6240(formal_c0370, formal_c200020, formal_c200021, formal_c200022, formal_c200023) word formal_c0370; word formal_c200020; word formal_c200021; word formal_c200022; word formal_c200023; { register ptr gf_c0462 = (ptr) &globalframe; if ((formal_c200021 == (word) (( (bPt) gf_c0462)+164))) { SOURCE(7173, 13) (void) Bogus_P720((* (( (ptr) (* (ptr) formal_c200020 ))+4) ), (word) (( (bPt) (* (ptr) (* (ptr) formal_c200020 ) ))+88) ); }; (* (ptr) formal_c0370 ) = 0; (* (( (ptr) formal_c0370)+1) ) = 0; return; } static void NoName_Q6300(formal_c0377, formal_c200000, formal_c200001, formal_c200002, formal_c200003) word formal_c0377; word formal_c200000; word formal_c200001; word formal_c200002; word formal_c200003; { register ptr gf_c0463 = (ptr) &globalframe; if ((formal_c200001 == (word) (( (bPt) gf_c0463)+156))) { { word pos_v17004; pos_v17004 = (* (ptr) formal_c200003 ); SOURCE(14148, 21) (void) BackupStream_P420(pos_v17004, (word) (( (bPt) formal_c200000)+128)); SOURCE(14171, 15) (void) FinalizeInput_P180((word) ((( (bPt) formal_c200000)+160))); SOURCE(14188, 30) { W4 var_c0376; (* (ptr) (word) &var_c0376 ) = 7; (* (( (ptr) (word) &var_c0376) + 1) ) = (* (( (ptr) formal_c200000)+4) ); (* (( (ptr) (word) &var_c0376) + 2) ) = 0; (* (( (ptr) (word) &var_c0376) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c0463)+66)/* var_c19312 */ ))+5) ), (word) &var_c0376); }; }; }; (* (ptr) formal_c0377 ) = 0; (* (( (ptr) formal_c0377)+1) ) = 0; return; } static void NoName_Q6360(formal_c0383, formal_c200012, formal_c200013, formal_c200014, formal_c200015) word formal_c0383; word formal_c200012; word formal_c200013; word formal_c200014; word formal_c200015; { register ptr gf_c0464 = (ptr) &globalframe; if ((formal_c200013 == (word) (( (bPt) gf_c0464)+156))) { { word pos_v17216; pos_v17216 = (* (ptr) formal_c200015 ); SOURCE(14638, 9) (* (ptr) formal_c0383 ) = 2; (* (( (ptr) formal_c0383)+1) ) = 4; return; }; }; (* (ptr) formal_c0383 ) = 0; (* (( (ptr) formal_c0383)+1) ) = 0; return; } static void NoName_Q6420(formal_c0389, formal_c200008, formal_c200009, formal_c200010, formal_c200011) word formal_c0389; word formal_c200008; word formal_c200009; word formal_c200010; word formal_c200011; { register ptr gf_c0465 = (ptr) &globalframe; if ((formal_c200009 == (word) (( (bPt) gf_c0465)+156))) { { word pos_v17156; pos_v17156 = (* (ptr) formal_c200011 ); SOURCE(14407, 15) (* (ptr) formal_c0389 ) = 2; (* (( (ptr) formal_c0389)+1) ) = 3; return; }; }; (* (ptr) formal_c0389 ) = 0; (* (( (ptr) formal_c0389)+1) ) = 0; return; } static void NoName_Q6480(formal_c0395, formal_c200004, formal_c200005, formal_c200006, formal_c200007) word formal_c0395; word formal_c200004; word formal_c200005; word formal_c200006; word formal_c200007; { register ptr gf_c0466 = (ptr) &globalframe; if ((formal_c200005 == (word) (( (bPt) gf_c0466)+156))) { { word pos_v17096; pos_v17096 = (* (ptr) formal_c200007 ); SOURCE(14316, 19) (* (ptr) formal_c0395 ) = 2; (* (( (ptr) formal_c0395)+1) ) = 2; return; }; }; (* (ptr) formal_c0395 ) = 0; (* (( (ptr) formal_c0395)+1) ) = 0; return; } /* file: IODateAndTimeImpl, module: IODateAndTimeImpl, compiled at: February 21, 1992 9:33:04 pm PST */ extern void XR_install_IODateAndTimeImpl() { NoName_Q4440(); } extern void XR_run_IODateAndTimeImpl() { XR_Start(&globalframe); }