/* 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 <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
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); }