/* Generated with C2C (Cedar To C)*/ /* Copyright (C) 1992 by Xerox Corporation. All rights reserved. */ /* time: September 17, 1992 9:58:22 pm PDT */ /* C2C version: October 16, 1990 (native) */ /* ref-counting: off */ /* file: IOPrintImpl, module: IOPrintImpl */ /* switches: bcfhklnouw */ #include #include static char versionStamp[] = "@(#)mob_version [16359550,1123508225] IOPrintImpl"; typedef unsigned word, *ptr; typedef unsigned char byte, *bPt; typedef unsigned short half, *hPt; typedef struct {word f0, f1;} W2; typedef W2 *W2Pt; typedef word (*fPt)(); typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8; typedef struct {word f0, f1, f2, f3;} W4; typedef struct {W8 f; W8 r;} W16; typedef struct {word f0, f1, f2;} W3; typedef struct {W8 f; W3 r;} W11; typedef struct {W16 f; W11 r;} W27; typedef W27 *W27Pt; typedef struct {W8 f; W4 r;} W12; typedef struct {word f0, f1, f2, f3, f4, f5;} W6; typedef struct {W8 f; W6 r;} W14; typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7; typedef struct {W8 f; word r;} W9; #define SOURCE(p, l) /* source p, l */ #define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR_RaiseBoundsFault()) : (idx) ) #define IOP2(op, x, y) ( (word) ((x) op (y)) ) #define SGNCK(i) ((int) (word) (i) < 0 ? XR_RaiseArithmeticFault(): i ) static void NoName_Q6468(); static void IOPrintImpl_P0(); static void dint_P60(); static void dcard_P120(); static void dreal_P180(); static void Put_P240(); static void Put1_P300(); static word PutR1_P360(); static word PutR_P420(); static void PutL_P480(); static word PutLR_P540(); static void InnerPut1_P600(); static word NoName_Q6528(); static void NegateDIntToDCard_P660(); static void RegisterPrintRefAny_P720(); static word GetPrintRefAny_P780(); static void PrintRef_P840(); static word SetDefaultPFCodeProc_P1020(); static word SetDefaultPFErrorProc_P1080(); static word CopyPFProcs_P1140(); static word SetPFProcs_P1200(); static word SetPFCodeProc_P1260(); static word SetPFErrorProc_P1320(); static void PutF_P1380(); static void PutF1_P1440(); static word PutFR_P1500(); static word PutFR1_P1560(); static void PutFL_P1620(); static word PutFLR_P1680(); static word PFInternal_P1740(); static word NoName_Q6588(); static void ParseFormat_P1800(); static void PFErrorPrintPounds_P1860(); static void PFErrorNoop_P1920(); static void PFErrorError_P1980(); static void StringRoutine_P2040(); static word NoName_Q6648(); static void FixnumRoutine_P2100(); static word NoName_Q6708(); static word NoName_Q6768(); static word NoName_Q6828(); static void LooksRoutine_P2160(); static void RopeLiteralRoutine_P2220(); static word PutEscape_P4968(); static void TimeIntervalRoutine_P2280(); static word NoName_Q6888(); static void TimeRoutine_P2340(); static word NoName_Q6948(); static void FlonumRoutine_P2400(); static void PutChars_P2460(); static word AppendChars_P2520(); static void PrintText_P2580(); static void MyPut_P5604(); static void Create_P2640(); static void NoName_Q7008(); static void NoName_Q7068(); static void NoName_Q7128(); static void NoName_Q7188(); static void NoName_Q7248(); static void NoName_Q7308(); static void NoName_Q7368(); static void NoName_Q7428(); static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\000\371\240\176\300\102\367\140\001\101\224\000\000"}; static struct {unsigned f; char r[4];} string2 = {65540, "\271\000\000"}; static struct {unsigned f; char r[4];} string3 = {65540, "\270\000\000"}; static struct {unsigned f; char r[4];} string4 = {65540, "\272\000\000"}; static struct {unsigned f; char r[16];} string5 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\104\304\000\000"}; static struct {unsigned f; char r[24];} string6 = {1376277, "\007\000\001\002\007\020\001\002\000\007\036\002\004\003\002\004\014\016\015\003\001\000\000"}; static struct {unsigned f; char r[16];} string7 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\105\014\000"}; static struct {unsigned f; char r[4];} string8 = {65537, "\001\000\000"}; static struct {unsigned f; char r[44];} string9 = {2752556, "\260\007\006\154\145\156\147\164\150\210\241\000\200\177\377\005\004\164\145\170\164\254\206\012\011\155\141\170\114\145\156\147\164\150\210\241\000\200\177\377\243\261\000"}; static struct {unsigned f; char r[4];} string10 = {131076, "\216\251\000"}; static struct {unsigned f; char r[4];} string11 = {65540, "\256\000\000"}; static struct {unsigned f; char r[4];} string12 = {65540, "\251\000\000"}; static struct {unsigned f; char r[16];} string13 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"}; static struct {unsigned f; char r[12];} string14 = {524300, "\210\241\000\300\177\377\377\377\000\000\000"}; static struct {unsigned f; char r[4];} string15 = {65540, "\242\000\000"}; static struct {unsigned f; char r[4];} string16 = {65540, "\232\000\000"}; static struct {unsigned f; char r[4];} string17 = {65540, "\243\000\000"}; static struct {unsigned f; char r[4];} string18 = {65540, "\241\000\000"}; static struct {unsigned f; char r[4];} string19 = {65540, "%\000\000"}; static struct {unsigned f; char r[4];} string20 = {131076, "%g\000"}; static struct {unsigned f; char r[12];} string21 = {589836, "SetPFCode\000\000"}; static struct {unsigned f; char r[8];} string22 = {393224, "[REF: \000"}; static struct {unsigned f; char r[8];} string23 = {327688, "#####\000\000"}; static struct {unsigned f; char r[16];} string24 = {917520, "%02g:%02g:%02g\000"}; static struct {unsigned f; char r[16];} string25 = {851984, "\257\300\000\371\240\176\300\102\367\140\001\100\164\000\000"}; static struct {unsigned f; char r[12];} string26 = {524296, "\006\002(\001@p\004?\000\000\000"}; static struct {unsigned f; char r[16];} string27 = {851984, "\257\300\212\174\364\337\300\361\376\000\156\100\150\000\000"}; static struct {unsigned f; char r[16];} string28 = {851984, "\257\300\255\053\300\023\300\142\135\315\105\100\150\000\000"}; static struct {unsigned f; char r[16];} string29 = {851984, "\257\300\325\357\120\064\300\204\001\046\072\100\150\000\000"}; static unsigned string30 = 1229914112; static struct {unsigned f; char r[16];} string31 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"}; static struct {unsigned f; char r[4];} string32 = {1229935988, "ils"}; static struct {unsigned f; char r[16];} string33 = {851984, "\257\300\165\000\243\166\300\177\026\106\323\100\150\000\000"}; static struct {unsigned f; char r[16];} string34 = {851984, "\257\300\332\223\177\020\300\304\076\102\260\100\164\000\000"}; static struct {unsigned f; char r[16];} string35 = {851984, "\257\300\246\205\220\035\300\344\000\142\023\100\150\000\000"}; static struct {unsigned f; char r[16];} string36 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"}; static struct {unsigned f; char r[16];} string37 = {851984, "\257\300\275\320\070\317\300\004\110\363\366\100\150\000\000"}; static struct {unsigned f; char r[28];} string38 = {1703964, "\211\016\015\120\106\120\162\157\143\163\122\145\143\157\162\144\300\165\000\243\166\300\177\026\106\323\000"}; static struct { word f0[8]; word f8; word f9[25]; word f34; word f35; word f36; word f37; word f38; word f39; word f40; word f41; word f42; 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; word f66; word f67; word f68; word f69; word f70; word f71; word f72; word f73; word f74; word f75; word f76; word f77; word f78; word f79; word f80; word f81; word f82; word f83; word f84; word f85; word f86; word f87; word f88; word f89; word f90; word f91; word f92; word f93; word f94; word f95; word f96; word f97; word f98; word f99; word f100; word f101; word f102; word f103; word f104; word f105; word f106; word f107; word f108; word f109; word f110; word f111; word f112; word f113; word f114; word f115; word f116; word f117; word f118; word f119[12]; } globalframe = { {0}, 64, {0}, (word) Create_P2640, 0, (word) PrintText_P2580, 0, (word) AppendChars_P2520, 0, (word) PutChars_P2460, 0, (word) FlonumRoutine_P2400, 0, (word) TimeRoutine_P2340, 0, (word) TimeIntervalRoutine_P2280, 0, (word) RopeLiteralRoutine_P2220, 0, (word) LooksRoutine_P2160, 0, (word) FixnumRoutine_P2100, 0, (word) StringRoutine_P2040, 0, (word) PFErrorError_P1980, 0, (word) PFErrorNoop_P1920, 0, (word) PFErrorPrintPounds_P1860, 0, (word) ParseFormat_P1800, 0, (word) PFInternal_P1740, 0, (word) PutFLR_P1680, 0, (word) PutFL_P1620, 0, (word) PutFR1_P1560, 0, (word) PutFR_P1500, 0, (word) PutF1_P1440, 0, (word) PutF_P1380, 0, (word) SetPFErrorProc_P1320, 0, (word) SetPFCodeProc_P1260, 0, (word) SetPFProcs_P1200, 0, (word) CopyPFProcs_P1140, 0, (word) SetDefaultPFErrorProc_P1080, 0, (word) SetDefaultPFCodeProc_P1020, 0, (word) PrintRef_P840, 0, (word) GetPrintRefAny_P780, 0, (word) RegisterPrintRefAny_P720, 0, (word) NegateDIntToDCard_P660, 0, (word) InnerPut1_P600, 0, (word) PutLR_P540, 0, (word) PutL_P480, 0, (word) PutR_P420, 0, (word) PutR1_P360, 0, (word) Put1_P300, 0, (word) Put_P240, 0, (word) dreal_P180, 0, (word) dcard_P120, 0, (word) dint_P60, 0, (word) IOPrintImpl_P0, {0} }; static void NoName_Q6468() { register ptr gf_c0511 = (ptr) &globalframe; word var_c38272; (* (( (ptr) gf_c0511)+11) ) = (word) XR_GetTypeIndexS((word) (&string1)); (* (( (ptr) gf_c0511)+13) ) = (word) XR_GetTypeIndexS((word) (&string2)); (* (( (ptr) gf_c0511)+14) ) = (word) XR_GetTypeIndexS((word) (&string3)); (* (( (ptr) gf_c0511)+15) ) = (word) XR_GetTypeIndexS((word) (&string4)); (* (( (ptr) gf_c0511)+16) ) = (word) XR_GetTypeIndex((word) &string5, 0, (word) &string6); (* (( (ptr) gf_c0511)+17) ) = (word) XR_GetTypeIndex((word) &string7, 0, (word) &string8); (* (( (ptr) gf_c0511)+18) ) = (word) XR_GetTypeIndexS((word) (&string9)); (* (( (ptr) gf_c0511)+19) ) = (word) XR_GetTypeIndex((word) &string10, 0, (word) &string8); (* (( (ptr) gf_c0511)+20) ) = (word) XR_GetTypeIndexS((word) (&string11)); (* (( (ptr) gf_c0511)+21) ) = (word) XR_GetTypeIndexS((word) (&string12)); (* (( (ptr) gf_c0511)+22) ) = (word) XR_GetTypeIndex((word) &string13, 0, (word) &string8); (* (( (ptr) gf_c0511)+23) ) = (word) XR_GetTypeIndexS((word) (&string14)); (* (( (ptr) gf_c0511)+24) ) = (word) XR_GetTypeIndexS((word) (&string15)); (* (( (ptr) gf_c0511)+25) ) = (word) XR_GetTypeIndexS((word) (&string16)); (* (( (ptr) gf_c0511)+26) ) = (word) XR_GetTypeIndexS((word) (&string17)); (* (( (ptr) gf_c0511)+27) ) = (word) XR_GetTypeIndexS((word) (&string18)); (* (ptr) (( (bPt) gf_c0511)+112) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0511)+22) ), (word) &string19); (* (ptr) (( (bPt) gf_c0511)+116) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0511)+22) ), (word) &string20); (* (ptr) (( (bPt) gf_c0511)+120) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0511)+19) ), (word) &string21); (* (ptr) (( (bPt) gf_c0511)+124) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0511)+17) ), (word) &string22); (* (ptr) (( (bPt) gf_c0511)+128) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0511)+22) ), (word) &string23); (* (ptr) (( (bPt) gf_c0511)+132) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0511)+22) ), (word) &string24); (void) XR_DeclareGlobalFrame((word) "IOPrintImpl", &globalframe, (word) XR_GetTypeIndex((word) &string25, 0, (word) &string26) , (word) (( (bPt) gf_c0511)+472)/* var_c34176 */ ); var_c38272 = (word) XR_ImportInterface((word) "BasicTime", (word) XR_GetTypeIndexS((word) (&string27)), 24); (* (( (ptr) gf_c0511)+128)/* var_c37440 */ ) = var_c38272; (void) XR_ImportProcS(var_c38272, 67636482); (void) XR_ImportProcS(var_c38272, 268702977); var_c38272 = (word) XR_ImportInterface((word) "Convert", (word) XR_GetTypeIndexS((word) (&string28)), 73); (* (( (ptr) gf_c0511)+122)/* var_c34720 */ ) = var_c38272; (void) XR_ImportProcS(var_c38272, 67907843); (void) XR_ImportProcS(var_c38272, 67908355); (void) XR_ImportProcS(var_c38272, 68430597); (void) XR_ImportProcS(var_c38272, 68429828); (void) XR_ImportProcS(var_c38272, 68954375); (void) XR_ImportProcS(var_c38272, 67908867); (void) XR_ImportProcS(var_c38272, 68429572); (void) XR_ImportProcS(var_c38272, 68166660); (void) XR_ImportProcS(var_c38272, 68166916); (void) XR_ImportProcS(var_c38272, 67379201); (void) XR_ImportProcS(var_c38272, 67641602); var_c38272 = (word) XR_ImportInterface((word) "DReal", (word) XR_GetTypeIndexS((word) (&string29)), 7); (* (( (ptr) gf_c0511)+126)/* var_c36928 */ ) = var_c38272; (void) XR_ImportProcS(var_c38272, 134742529); var_c38272 = (word) XR_ImportInterface((word) &string30, (word) XR_GetTypeIndexS((word) (&string31)), 103); (* (( (ptr) gf_c0511)+121)/* var_c34528 */ ) = var_c38272; (void) XR_ImportProcS(var_c38272, 530434); (void) XR_ImportProcS(var_c38272, 67379713); (void) XR_ImportProcS(var_c38272, 67641602); (void) XR_ImportProcS(var_c38272, 267521); (void) XR_ImportProcS(var_c38272, 547586); (void) XR_ImportProcS(var_c38272, 528642); (void) XR_ImportProcS(var_c38272, 1071364); (void) XR_ImportProcS(var_c38272, 67641090); (void) XR_ImportProcS(var_c38272, 67378689); var_c38272 = (word) XR_ImportInterface((word) &string32, (word) XR_GetTypeIndexS((word) (&string33)), 27); (* (( (ptr) gf_c0511)+124)/* var_c35008 */ ) = var_c38272; (void) XR_ImportProcS(var_c38272, 792067); (void) XR_ImportProcS(var_c38272, 67639042); var_c38272 = (word) XR_ImportInterface((word) "RefText", (word) XR_GetTypeIndexS((word) (&string34)), 26); (* (( (ptr) gf_c0511)+120)/* var_c34496 */ ) = var_c38272; (void) XR_ImportProcS(var_c38272, 68158468); (void) XR_ImportProcS(var_c38272, 67634946); (void) XR_ImportProcS(var_c38272, 262913); (void) XR_ImportProcS(var_c38272, 67371521); var_c38272 = (word) XR_ImportInterface((word) "Real", (word) XR_GetTypeIndexS((word) (&string35)), 11); (* (( (ptr) gf_c0511)+127)/* var_c36960 */ ) = var_c38272; (void) XR_ImportProcS(var_c38272, 67371521); var_c38272 = (word) XR_ImportInterface((word) "Rope", (word) XR_GetTypeIndexS((word) (&string36)), 43); (* (( (ptr) gf_c0511)+125)/* var_c35744 */ ) = var_c38272; (void) XR_ImportProcS(var_c38272, 68163076); (void) XR_ImportProcS(var_c38272, 67634434); (void) XR_ImportProcS(var_c38272, 67900419); (void) XR_ImportProcS(var_c38272, 67373825); var_c38272 = (word) XR_ImportInterface((word) "RuntimeError", (word) XR_GetTypeIndexS((word) (&string37)), 27); (* (( (ptr) gf_c0511)+123)/* var_c34784 */ ) = var_c38272; var_c38272 = (word) XR_ExportInterface((word) &string30, (word) XR_GetTypeIndexS((word) (&string31)), 103); (* (( (ptr) gf_c0511)+129)/* var_c38304 */ ) = var_c38272; (void) XR_ExportProcS(var_c38272, (word) (( (bPt) gf_c0511)+456)/* var_c34112 */ , 134752513); (void) XR_ExportProcS(var_c38272, (word) (( (bPt) gf_c0511)+464)/* var_c34144 */ , 134752769); (void) XR_ExportProcS(var_c38272, (word) (( (bPt) gf_c0511)+448)/* var_c34080 */ , 134753025); (void) XR_ExportProcS(var_c38272, (word) (( (bPt) gf_c0511)+440)/* var_c34048 */ , 1847812); (void) XR_ExportProcS(var_c38272, (word) (( (bPt) gf_c0511)+432)/* var_c34016 */ , 799490); (void) XR_ExportProcS(var_c38272, (word) (( (bPt) gf_c0511)+416)/* var_c33952 */ , 68695043); (void) XR_ExportProcS(var_c38272, (word) (( (bPt) gf_c0511)+424)/* var_c33984 */ , 67646721); (void) XR_ExportProcS(var_c38272, (word) (( (bPt) gf_c0511)+408)/* var_c33920 */ , 538114); (void) XR_ExportProcS(var_c38272, (word) (( (bPt) gf_c0511)+400)/* var_c33888 */ , 67385089); (void) XR_ExportProcS(var_c38272, (word) (( (bPt) gf_c0511)+304)/* var_c33504 */ , 2111493); (void) XR_ExportProcS(var_c38272, (word) (( (bPt) gf_c0511)+296)/* var_c33472 */ , 1063171); (void) XR_ExportProcS(var_c38272, (word) (( (bPt) gf_c0511)+288)/* var_c33440 */ , 68958724); (void) XR_ExportProcS(var_c38272, (word) (( (bPt) gf_c0511)+280)/* var_c33408 */ , 67910402); (void) XR_ExportProcS(var_c38272, (word) (( (bPt) gf_c0511)+272)/* var_c33376 */ , 801795); (void) XR_ExportProcS(var_c38272, (word) (( (bPt) gf_c0511)+264)/* var_c33344 */ , 67648770); var_c38272 = (word) XR_ExportInterface((word) &string32, (word) XR_GetTypeIndexS((word) (&string33)), 27); (* (( (ptr) gf_c0511)+130)/* var_c38336 */ ) = var_c38272; (void) XR_ExportType((word) "PFProcsRecord", (word) XR_GetTypeIndexS((word) (&string38)), (word) XR_GetTypeIndexS((word) (&string1)) ); (void) XR_ExportProcS(var_c38272, (word) (( (bPt) gf_c0511)+336)/* var_c33632 */ , 67371265); (void) XR_ExportProcS(var_c38272, (word) (( (bPt) gf_c0511)+328)/* var_c33600 */ , 67633666); (void) XR_ExportProcS(var_c38272, (word) (( (bPt) gf_c0511)+320)/* var_c33568 */ , 67896067); (void) XR_ExportProcS(var_c38272, (word) (( (bPt) gf_c0511)+312)/* var_c33536 */ , 67634178); (void) XR_ExportProcS(var_c38272, (word) (( (bPt) gf_c0511)+240)/* var_c33248 */ , 525570); (void) XR_ExportProcS(var_c38272, (word) (( (bPt) gf_c0511)+232)/* var_c33216 */ , 525826); (void) XR_ExportProcS(var_c38272, (word) (( (bPt) gf_c0511)+224)/* var_c33184 */ , 526082); (void) XR_ExportProcS(var_c38272, (word) (( (bPt) gf_c0511)+352)/* var_c33696 */ , 67635202); (void) XR_ExportProcS(var_c38272, (word) (( (bPt) gf_c0511)+344)/* var_c33664 */ , 67373313); (void) XR_ExportProcS(var_c38272, (word) (( (bPt) gf_c0511)+376)/* var_c33792 */ , 264705); } static void IOPrintImpl_P0(formal_c075, formal_c074) word formal_c075; word formal_c074; { /* IOPrintImpl: */ SOURCE(761, 21765) /* moved to installation proc */ SOURCE(22518, 8) (void) Create_P2640(); } static void dint_P60(formal_c081, v_v4564) word formal_c081; W2 v_v4564; { register ptr gf_c38368 = (ptr) &globalframe; W2 var_c4608; /* dint: */ SOURCE(1119, 74) SOURCE(1166, 27) { W2 var_c34272; { W2 var_c34208; var_c34208.f0 = 6; { word var_c34240; var_c34240 = XR_NewObject(8, (* (( (ptr) gf_c38368)+13) )); (* (W2Pt) var_c34240 ) = v_v4564; var_c34208.f1 = var_c34240; }; var_c34272 = var_c34208; }; var_c4608 = var_c34272; /* removed tail goto */ }; (* (W2Pt) formal_c081 ) = var_c4608; return; } static void dcard_P120(formal_c087, v_v4668) word formal_c087; W2 v_v4668; { register ptr gf_c38400 = (ptr) &globalframe; W2 var_c4712; /* dcard: */ SOURCE(1196, 78) SOURCE(1245, 29) { W2 var_c34368; { W2 var_c34304; var_c34304.f0 = 7; { word var_c34336; var_c34336 = XR_NewObject(8, (* (( (ptr) gf_c38400)+14) )); (* (W2Pt) var_c34336 ) = v_v4668; var_c34304.f1 = var_c34336; }; var_c34368 = var_c34304; }; var_c4712 = var_c34368; /* removed tail goto */ }; (* (W2Pt) formal_c087 ) = var_c4712; return; } static void dreal_P180(formal_c093, v_v4772) word formal_c093; W2 v_v4772; { register ptr gf_c38432 = (ptr) &globalframe; W2 var_c4816; /* dreal: */ SOURCE(1277, 78) SOURCE(1326, 29) { W2 var_c34464; { W2 var_c34400; var_c34400.f0 = 9; { word var_c34432; var_c34432 = XR_NewObject(8, (* (( (ptr) gf_c38432)+15) )); (* (W2Pt) var_c34432 ) = v_v4772; var_c34400.f1 = var_c34432; }; var_c34464 = var_c34400; }; var_c4816 = var_c34464; /* removed tail goto */ }; (* (W2Pt) formal_c093 ) = var_c4816; return; } static void Put_P240(stream_v4876, v1_v4904, v2_v4932, v3_v4960) word stream_v4876; W2 v1_v4904; W2 v2_v4932; W2 v3_v4960; { register ptr gf_c38464 = (ptr) &globalframe; word scratch_v10328; /* Put: */ SOURCE(1358, 244) SOURCE(1415, 58) { word pd39; word idx40; pd39 = (* (( (ptr) (* (( (ptr) gf_c38464)+120)/* var_c34496 */ ))+6) ); scratch_v10328 = (word) ( *( (fPt) ((* (ptr) pd39 ))))(( idx40 = (* (( (ptr) gf_c38464)+8)/* defaultTextSize_v3140 */ ), BCK(idx40, 32768) ), pd39); }; SOURCE(1475, 30) (void) InnerPut1_P600(stream_v4876, v1_v4904, scratch_v10328); SOURCE(1507, 30) (void) InnerPut1_P600(stream_v4876, v2_v4932, scratch_v10328); SOURCE(1539, 30) (void) InnerPut1_P600(stream_v4876, v3_v4960, scratch_v10328); SOURCE(1571, 31) { word pd41; pd41 = (* (( (ptr) (* (( (ptr) gf_c38464)+120)/* var_c34496 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd41 ))))(scratch_v10328, pd41); }; } static void Put1_P300(stream_v5020, value_v5048) word stream_v5020; W2 value_v5048; { register ptr gf_c38496 = (ptr) &globalframe; word scratch_v10384; /* Put1: */ SOURCE(1608, 179) SOURCE(1661, 58) { word pd42; word idx43; pd42 = (* (( (ptr) (* (( (ptr) gf_c38496)+120)/* var_c34496 */ ))+6) ); scratch_v10384 = (word) ( *( (fPt) ((* (ptr) pd42 ))))(( idx43 = (* (( (ptr) gf_c38496)+8)/* defaultTextSize_v3140 */ ), BCK(idx43, 32768) ), pd42); }; SOURCE(1721, 33) (void) InnerPut1_P600(stream_v5020, value_v5048, scratch_v10384); SOURCE(1756, 31) { word pd44; pd44 = (* (( (ptr) (* (( (ptr) gf_c38496)+120)/* var_c34496 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd44 ))))(scratch_v10384, pd44); }; } static word PutR1_P360(value_v5108) W2 value_v5108; { register ptr gf_c38528 = (ptr) &globalframe; word var_c5152; word stream_v10440; word scratch_v10468; /* PutR1: */ SOURCE(1793, 238) SOURCE(1846, 25) { word pd45; pd45 = (* (( (ptr) (* (( (ptr) gf_c38528)+121)/* var_c34528 */ ))+34) ); stream_v10440 = (word) ( *( (fPt) ((* (ptr) pd45 ))))(0, pd45); }; SOURCE(1873, 58) { word pd46; word idx47; pd46 = (* (( (ptr) (* (( (ptr) gf_c38528)+120)/* var_c34496 */ ))+6) ); scratch_v10468 = (word) ( *( (fPt) ((* (ptr) pd46 ))))(( idx47 = (* (( (ptr) gf_c38528)+8)/* defaultTextSize_v3140 */ ), BCK(idx47, 32768) ), pd46); }; SOURCE(1933, 33) (void) InnerPut1_P600(stream_v10440, value_v5108, scratch_v10468); SOURCE(1968, 31) { word pd48; pd48 = (* (( (ptr) (* (( (ptr) gf_c38528)+120)/* var_c34496 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd48 ))))(scratch_v10468, pd48); }; SOURCE(2001, 30) { word pd49; pd49 = (* (( (ptr) (* (( (ptr) gf_c38528)+121)/* var_c34528 */ ))+35) ); return((word) ( *( (fPt) ((* (ptr) pd49 ))))(stream_v10440, 1, pd49)); }; } static word PutR_P420(v1_v5212, v2_v5240, v3_v5268) W2 v1_v5212; W2 v2_v5240; W2 v3_v5268; { register ptr gf_c38560 = (ptr) &globalframe; word var_c5312; word stream_v10524; word scratch_v10552; /* PutR: */ SOURCE(2037, 303) SOURCE(2094, 25) { word pd50; pd50 = (* (( (ptr) (* (( (ptr) gf_c38560)+121)/* var_c34528 */ ))+34) ); stream_v10524 = (word) ( *( (fPt) ((* (ptr) pd50 ))))(0, pd50); }; SOURCE(2121, 58) { word pd51; word idx52; pd51 = (* (( (ptr) (* (( (ptr) gf_c38560)+120)/* var_c34496 */ ))+6) ); scratch_v10552 = (word) ( *( (fPt) ((* (ptr) pd51 ))))(( idx52 = (* (( (ptr) gf_c38560)+8)/* defaultTextSize_v3140 */ ), BCK(idx52, 32768) ), pd51); }; SOURCE(2181, 30) (void) InnerPut1_P600(stream_v10524, v1_v5212, scratch_v10552); SOURCE(2213, 30) (void) InnerPut1_P600(stream_v10524, v2_v5240, scratch_v10552); SOURCE(2245, 30) (void) InnerPut1_P600(stream_v10524, v3_v5268, scratch_v10552); SOURCE(2277, 31) { word pd53; pd53 = (* (( (ptr) (* (( (ptr) gf_c38560)+120)/* var_c34496 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd53 ))))(scratch_v10552, pd53); }; SOURCE(2310, 30) { word pd54; pd54 = (* (( (ptr) (* (( (ptr) gf_c38560)+121)/* var_c34528 */ ))+35) ); return((word) ( *( (fPt) ((* (ptr) pd54 ))))(stream_v10524, 1, pd54)); }; } static void PutL_P480(stream_v5372, list_v5400) word stream_v5372; word list_v5400; { register ptr gf_c38592 = (ptr) &globalframe; word scratch_v10608; /* PutL: */ SOURCE(2346, 259) SOURCE(2406, 58) { word pd55; word idx56; pd55 = (* (( (ptr) (* (( (ptr) gf_c38592)+120)/* var_c34496 */ ))+6) ); scratch_v10608 = (word) ( *( (fPt) ((* (ptr) pd55 ))))(( idx56 = (* (( (ptr) gf_c38592)+8)/* defaultTextSize_v3140 */ ), BCK(idx56, 32768) ), pd55); }; SOURCE(2466, 97) { register word l_v10664; l_v10664 = list_v5400; lab_L100006: ; if ((l_v10664 != 0)) { } else { goto lab_L100003; }; SOURCE(2528, 35) (void) InnerPut1_P600(stream_v5372, (* (W2Pt) l_v10664 ), scratch_v10608); l_v10664 = (* (( (ptr) l_v10664)+2) ); goto lab_L100006; lab_L100003: ; }; SOURCE(2574, 31) { word pd57; pd57 = (* (( (ptr) (* (( (ptr) gf_c38592)+120)/* var_c34496 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd57 ))))(scratch_v10608, pd57); }; } static word PutLR_P540(list_v5544) word list_v5544; { register ptr gf_c38624 = (ptr) &globalframe; word var_c5672; word stream_v10792; word scratch_v10820; /* PutLR: */ SOURCE(2611, 318) SOURCE(2671, 25) { word pd58; pd58 = (* (( (ptr) (* (( (ptr) gf_c38624)+121)/* var_c34528 */ ))+34) ); stream_v10792 = (word) ( *( (fPt) ((* (ptr) pd58 ))))(0, pd58); }; SOURCE(2698, 58) { word pd59; word idx60; pd59 = (* (( (ptr) (* (( (ptr) gf_c38624)+120)/* var_c34496 */ ))+6) ); scratch_v10820 = (word) ( *( (fPt) ((* (ptr) pd59 ))))(( idx60 = (* (( (ptr) gf_c38624)+8)/* defaultTextSize_v3140 */ ), BCK(idx60, 32768) ), pd59); }; SOURCE(2758, 97) { register word l_v10876; l_v10876 = list_v5544; lab_L100010: ; if ((l_v10876 != 0)) { } else { goto lab_L100007; }; SOURCE(2820, 35) (void) InnerPut1_P600(stream_v10792, (* (W2Pt) l_v10876 ), scratch_v10820); l_v10876 = (* (( (ptr) l_v10876)+2) ); goto lab_L100010; lab_L100007: ; }; SOURCE(2866, 31) { word pd61; pd61 = (* (( (ptr) (* (( (ptr) gf_c38624)+120)/* var_c34496 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd61 ))))(scratch_v10820, pd61); }; SOURCE(2899, 30) { word pd62; pd62 = (* (( (ptr) (* (( (ptr) gf_c38624)+121)/* var_c34528 */ ))+35) ); return((word) ( *( (fPt) ((* (ptr) pd62 ))))(stream_v10792, 1, pd62)); }; } static void InnerPut1_P600(formal_c0603, v_v5760, formal_c0604) word formal_c0603; W2 v_v5760; word formal_c0604; { W8 var_c38656; /* declaration of stream_v5732 skipped */ /* declaration of scratch_v5788 skipped */ register ptr gf_c38688 = (ptr) &globalframe; var_c38656.f4/* stream_v5732 */ = formal_c0603; var_c38656.f5/* scratch_v5788 */ = formal_c0604; /* InnerPut1: */ SOURCE(2935, 1460) SOURCE(3001, 18) (* (hPt) var_c38656.f5/* scratch_v5788 */ ) = 0; SOURCE(3021, 1374) SOURCE(3023, 1250) { W2 var_c34656; var_c34656 = v_v5760; { word var_c34816; var_c34816 = var_c34656.f0; switch (var_c34816) { case 0: { word null_v11004; null_v11004 = var_c34656.f0; }; break; case 1: { W2 atom_v11048; atom_v11048 = var_c34656; SOURCE(3088, 72) { word var_c34688; { word pd63; pd63 = (* (( (ptr) (* (( (ptr) gf_c38688)+122)/* var_c34720 */ ))+37) ); var_c34688 = (word) ( *( (fPt) ((* (ptr) pd63 ))))(atom_v11048.f1, 0, pd63); }; { word pd64; pd64 = (* (( (ptr) (* (( (ptr) gf_c38688)+121)/* var_c34528 */ ))+93) ); (void) ( *( (fPt) ((* (ptr) pd64 ))))(var_c38656.f4/* stream_v5732 */ , var_c34688, 0, 2147483647, pd64); }; }; }; break; case 2: { W2 bool_v11092; bool_v11092 = var_c34656; SOURCE(3185, 52) { word var_c34752; { word pd65; pd65 = (* (( (ptr) (* (( (ptr) gf_c38688)+122)/* var_c34720 */ ))+36) ); var_c34752 = (word) ( *( (fPt) ((* (ptr) pd65 ))))(bool_v11092.f1, pd65); }; { word pd66; pd66 = (* (( (ptr) (* (( (ptr) gf_c38688)+121)/* var_c34528 */ ))+93) ); (void) ( *( (fPt) ((* (ptr) pd66 ))))(var_c38656.f4/* stream_v5732 */ , var_c34752, 0, 2147483647, pd66); }; }; }; break; case 3: { W2 char_v11136; char_v11136 = var_c34656; SOURCE(3264, 30) { word pd67; pd67 = (* (( (ptr) (* (( (ptr) gf_c38688)+121)/* var_c34528 */ ))+21) ); (void) ( *( (fPt) ((* (ptr) pd67 ))))(var_c38656.f4/* stream_v5732 */ , char_v11136.f1, pd67); }; }; break; case 4: { W2 card_v11180; card_v11180 = var_c34656; SOURCE(3322, 49) { word pd68; pd68 = (* (( (ptr) (* (( (ptr) gf_c38688)+122)/* var_c34720 */ ))+41) ); var_c38656.f5/* scratch_v5788 */ = (word) ( *( (fPt) ((* (ptr) pd68 ))))(var_c38656.f5/* scratch_v5788 */ , card_v11180.f1, 8, 1, pd68) ; }; SOURCE(3373, 14) goto lab_L100011; }; case 5: { W2 int_v11224; int_v11224 = var_c34656; SOURCE(3414, 47) { word pd69; pd69 = (* (( (ptr) (* (( (ptr) gf_c38688)+122)/* var_c34720 */ ))+40) ); var_c38656.f5/* scratch_v5788 */ = (word) ( *( (fPt) ((* (ptr) pd69 ))))(var_c38656.f5/* scratch_v5788 */ , int_v11224.f1, 8, 1, pd69) ; }; SOURCE(3463, 14) goto lab_L100011; }; case 6: { /* declaration of dint_v11268 skipped */ (* (W2Pt) (( (ptr) &var_c38656)+6)/* dint_v11268 */ ) = var_c34656; { W2 var_c0573; SOURCE(3502, 285) (* (ptr) (word) &var_c0573 ) = 0; (* (( (ptr) (word) &var_c0573) + 1) ) = 0; if (XR_DIntGeI(var_c38656.f7, &var_c0573)) { SOURCE(3527, 56) { word pd70; W2 D71; pd70 = (* (( (ptr) (* (( (ptr) gf_c38688)+122)/* var_c34720 */ ))+43) ); XR_DCardDIntI(&D71, var_c38656.f7); var_c38656.f5/* scratch_v5788 */ = (word) ( *( (fPt) ((* (ptr) pd70 ))))(var_c38656.f5/* scratch_v5788 */ , D71, 8, 1, pd70) ; }; } else { SOURCE(3585, 202) { word var_c0574; var_c0574 = (word) &var_c38656; (void) (word) XR_Enable(( ((word) (fPt) NoName_Q6528) ), ( ((word) (fPt) NoName_Q7428) ), var_c0574); }; }; SOURCE(3792, 15) goto lab_L100011; }; }; case 7: { W2 dcard_v11356; dcard_v11356 = var_c34656; SOURCE(3834, 52) { word pd72; pd72 = (* (( (ptr) (* (( (ptr) gf_c38688)+122)/* var_c34720 */ ))+43) ); var_c38656.f5/* scratch_v5788 */ = (word) ( *( (fPt) ((* (ptr) pd72 ))))(var_c38656.f5/* scratch_v5788 */ , (* (W2Pt) dcard_v11356.f1 ), 8, 1, pd72) ; }; SOURCE(3888, 14) goto lab_L100011; }; case 8: { W2 real_v11400; real_v11400 = var_c34656; SOURCE(3927, 46) { word pd73; pd73 = (* (( (ptr) (* (( (ptr) gf_c38688)+122)/* var_c34720 */ ))+57) ); var_c38656.f5/* scratch_v5788 */ = (word) ( *( (fPt) ((* (ptr) pd73 ))))(var_c38656.f5/* scratch_v5788 */ , real_v11400.f1, 7, pd73) ; }; SOURCE(3975, 14) goto lab_L100011; }; case 10: { W2 refAny_v11444; refAny_v11444 = var_c34656; SOURCE(4017, 39) (void) PrintRef_P840(var_c38656.f4/* stream_v5732 */ , var_c38656.f5/* scratch_v5788 */ , refAny_v11444.f1); }; break; case 11: { W2 rope_v11488; rope_v11488 = var_c34656; SOURCE(4078, 30) { word pd74; pd74 = (* (( (ptr) (* (( (ptr) gf_c38688)+121)/* var_c34528 */ ))+93) ); (void) ( *( (fPt) ((* (ptr) pd74 ))))(var_c38656.f4/* stream_v5732 */ , rope_v11488.f1, 0, 2147483647, pd74); }; }; break; case 12: { W2 text_v11532; text_v11532 = var_c34656; SOURCE(4130, 30) { word pd75; pd75 = (* (( (ptr) (* (( (ptr) gf_c38688)+121)/* var_c34528 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd75 ))))(var_c38656.f4/* stream_v5732 */ , text_v11532.f1, pd75); }; }; break; case 13: { W2 time_v11576; time_v11576 = var_c34656; SOURCE(4184, 89) { word pd76; pd76 = (* (( (ptr) (* (( (ptr) gf_c38688)+122)/* var_c34720 */ ))+45) ); var_c38656.f5/* scratch_v5788 */ = (word) ( *( (fPt) ((* (ptr) pd76 ))))(var_c38656.f5/* scratch_v5788 */ , time_v11576.f1, 0, 5, 0, 1 , 1, pd76); }; SOURCE(4275, 14) goto lab_L100011; }; default: SOURCE(4305, 5) (void) XR_RaiseUnnamedError(); break; }; }; }; goto lab_L100014; lab_L100011: ; SOURCE(4330, 63) { word pd77; pd77 = (* (( (ptr) (* (ptr) var_c38656.f4/* stream_v5732 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd77 ))))(var_c38656.f4/* stream_v5732 */ , var_c38656.f5/* scratch_v5788 */ , 0, (* (hPt) var_c38656.f5/* scratch_v5788 */ ), pd77) ; }; lab_L100014: ; } static word NoName_Q6528(formal_c0523) word formal_c0523; { register ptr gf_c0522 = (ptr) &globalframe; SOURCE(3658, 42) { W2 dc_v11312; SOURCE(3658, 42) (void) NegateDIntToDCard_P660((word) &dc_v11312, (* (W2Pt) (* (( (ptr) formal_c0523)+7) ) )); SOURCE(3702, 41) { word pd78; pd78 = (* (( (ptr) (* (( (ptr) gf_c0522)+120)/* var_c34496 */ ))+11) ); (* (( (ptr) formal_c0523)+5) ) = (word) ( *( (fPt) ((* (ptr) pd78 ))))((* (( (ptr) formal_c0523)+5) ), 45, pd78); }; SOURCE(3745, 42) { word pd79; pd79 = (* (( (ptr) (* (( (ptr) gf_c0522)+122)/* var_c34720 */ ))+43) ); (* (( (ptr) formal_c0523)+5) ) = (word) ( *( (fPt) ((* (ptr) pd79 ))))((* (( (ptr) formal_c0523)+5) ), dc_v11312, 8, 1, pd79) ; }; }; return(0); } static void NegateDIntToDCard_P660(formal_c0147, i_v5860) word formal_c0147; W2 i_v5860; { W2 var_c5904; W2 i2_v11620; W2 c3_v11648; /* NegateDIntToDCard: */ SOURCE(4402, 222) SOURCE(4574, 19) { W2 D80; W2 D81; XR_DIntInt(&D81, (word) -1); XR_DCardSubI(&D80, &D81, &i_v5860); i2_v11620 = D80; }; SOURCE(4595, 14) { W2 D82; XR_DCardDIntI(&D82, (&i2_v11620)); c3_v11648 = D82; }; SOURCE(4611, 13) { W2 D83; W2 D84; XR_DCardCard(&D84, 1); XR_DCardAddI(&D83, &c3_v11648, &D84); var_c5904 = D83; }; /* removed tail goto */ (* (W2Pt) formal_c0147 ) = var_c5904; return; } static void RegisterPrintRefAny_P720(printRefAnyProc_v5964) word printRefAnyProc_v5964; { register ptr gf_c38720 = (ptr) &globalframe; /* RegisterPrintRefAny: */ SOURCE(4678, 121) (void) (XR_MonitorEntry((word) (( (bPt) gf_c38720)+16)/* LOCK_v2944 */ )); SOURCE(4764, 35) (* (( (ptr) gf_c38720)+9)/* globalPrintRefAny_v3476 */ ) = XR_CheckProc(printRefAnyProc_v5964); SOURCE(4678, 121) (void) (XR_MonitorExit((word) (( (bPt) gf_c38720)+16)/* LOCK_v2944 */ )); return; } static word GetPrintRefAny_P780() { register ptr gf_c38752 = (ptr) &globalframe; word var_c6024; /* GetPrintRefAny: */ SOURCE(4805, 95) (void) (XR_MonitorEntry((word) (( (bPt) gf_c38752)+16)/* LOCK_v2944 */ )); SOURCE(4873, 27) { word var_c34848; var_c34848 = XR_CheckProc(* (( (ptr) gf_c38752)+9)/* globalPrintRefAny_v3476 */ ); (void) (XR_MonitorExit((word) (( (bPt) gf_c38752)+16)/* LOCK_v2944 */ )); return(var_c34848); }; } static void PrintRef_P840(stream_v6084, scratch_v6112, ref_v6140) word stream_v6084; word scratch_v6112; word ref_v6140; { register ptr gf_c38784 = (ptr) &globalframe; word printRefAnyProc_v11692; /* PrintRef: */ SOURCE(4904, 490) SOURCE(4983, 59) printRefAnyProc_v11692 = (word) GetPrintRefAny_P780(); SOURCE(5044, 350) if ((printRefAnyProc_v11692 == 0)) { SOURCE(5076, 51) { word var_c34880; word to_v32680; to_v32680 = scratch_v6112; { word pd85; pd85 = (* (( (ptr) (* (( (ptr) gf_c38784)+120)/* var_c34496 */ ))+8) ); var_c34880 = (word) ( *( (fPt) ((* (ptr) pd85 ))))(to_v32680, (* (( (ptr) gf_c38784)+31) ), 0, 32767, pd85); }; scratch_v6112 = var_c34880; }; SOURCE(5129, 104) { word pd86; pd86 = (* (( (ptr) (* (( (ptr) gf_c38784)+122)/* var_c34720 */ ))+41) ); scratch_v6112 = (word) ( *( (fPt) ((* (ptr) pd86 ))))(scratch_v6112, ref_v6140, 6, 1, pd86); }; SOURCE(5235, 41) { word pd87; pd87 = (* (( (ptr) (* (( (ptr) gf_c38784)+120)/* var_c34496 */ ))+11) ); scratch_v6112 = (word) ( *( (fPt) ((* (ptr) pd87 ))))(scratch_v6112, 93, pd87); }; SOURCE(5278, 63) { word pd88; pd88 = (* (( (ptr) (* (ptr) stream_v6084 ))+7) ); (void) ( *( (fPt) ((* (ptr) pd88 ))))(stream_v6084, scratch_v6112, 0, (* (hPt) scratch_v6112 ), pd88); }; } else { SOURCE(5352, 42) (void) ( *( (fPt) ((* (ptr) printRefAnyProc_v11692 ))))(stream_v6084, ref_v6140, 4, 32, 0, printRefAnyProc_v11692); }; } static word SetDefaultPFCodeProc_P1020(char_v6512, codeProc_v6540) word char_v6512; word codeProc_v6540; { register ptr gf_c38816 = (ptr) &globalframe; word var_c34944; W4 var_c34976; word previous_v6584; /* SetDefaultPFCodeProc: */ SOURCE(5872, 295) (void) (XR_MonitorEntry((word) (( (bPt) gf_c38816)+16)/* LOCK_v2944 */ )); SOURCE(5872, 295) previous_v6584 = 0; SOURCE(5982, 24) if (((char_v6512 - 65) <= 25)) { char_v6512 = (char_v6512 + 32); } else { char_v6512 = char_v6512; }; SOURCE(6008, 75) if (((char_v6512 - 97) > 25)) { SOURCE(6037, 46) var_c34944 = (* (( (ptr) (* (( (ptr) gf_c38816)+121)/* var_c34528 */ ))+5) ); (* (ptr) (word) &var_c34976 ) = 9; (* (( (ptr) (word) &var_c34976) + 1) ) = 0; (* (( (ptr) (word) &var_c34976) + 2) ) = 0; (* (( (ptr) (word) &var_c34976) + 3) ) = 0; (void) (XR_MonitorExit((word) (( (bPt) gf_c38816)+16)/* LOCK_v2944 */ )); goto lab_L100017; }; SOURCE(6085, 40) previous_v6584 = XR_CheckProc(* (( (ptr) (* (( (ptr) gf_c38816)+10)/* globalPFProcs_v3644 */ ))+BCK((char_v6512 - 97), 26) ) ); SOURCE(6127, 40) (* (( (ptr) (* (( (ptr) gf_c38816)+10)/* globalPFProcs_v3644 */ ))+BCK((char_v6512 - 97), 26)) ) = XR_CheckProc(codeProc_v6540) ; SOURCE(5872, 295) (void) (XR_MonitorExit((word) (( (bPt) gf_c38816)+16)/* LOCK_v2944 */ )); return(previous_v6584); /* c2c skipped dead code */ lab_L100017: ; SOURCE(6037, 46) { W4 var_c0162; var_c0162 = var_c34976; (void) XR_RaiseError(var_c34944, (word) &var_c0162); }; } static word SetDefaultPFErrorProc_P1080(errorProc_v6644) word errorProc_v6644; { register ptr gf_c38848 = (ptr) &globalframe; word previous_v6688; /* SetDefaultPFErrorProc: */ SOURCE(6173, 173) (void) (XR_MonitorEntry((word) (( (bPt) gf_c38848)+16)/* LOCK_v2944 */ )); SOURCE(6173, 173) previous_v6688 = 0; SOURCE(6275, 34) previous_v6688 = XR_CheckProc(* (( (ptr) (* (( (ptr) gf_c38848)+10)/* globalPFProcs_v3644 */ ))+26) ); SOURCE(6311, 35) (* (( (ptr) (* (( (ptr) gf_c38848)+10)/* globalPFProcs_v3644 */ ))+26) ) = XR_CheckProc(errorProc_v6644); SOURCE(6173, 173) (void) (XR_MonitorExit((word) (( (bPt) gf_c38848)+16)/* LOCK_v2944 */ )); return(previous_v6688); } static word CopyPFProcs_P1140(stream_v6748) word stream_v6748; { register ptr gf_c38880 = (ptr) &globalframe; word new_v6792; word pfProcs_v11736; /* CopyPFProcs: */ SOURCE(6352, 257) SOURCE(6352, 257) new_v6792 = 0; SOURCE(6421, 95) { word tc89; word pd90; if ((stream_v6748 == 0)) { tc89 = (word) 0; } else { pd90 = (* (( (ptr) (* (( (ptr) gf_c38880)+124)/* var_c35008 */ ))+27) ); tc89 = (word) XR_Narrow((word) ( *( (fPt) ((* (ptr) pd90 ))))(stream_v6748, (* (( (ptr) gf_c38880)+30) ), pd90), (* (( (ptr) gf_c38880)+11) )); }; pfProcs_v11736 = tc89; }; SOURCE(6518, 51) if ((pfProcs_v11736 == 0)) { SOURCE(6540, 29) SOURCE(5595, 84) (void) (XR_MonitorEntry((word) (( (bPt) gf_c38880)+16)/* LOCK_v2944 */ )); SOURCE(5657, 22) pfProcs_v11736 = (* (( (ptr) gf_c38880)+10)/* globalPFProcs_v3644 */ ); (void) (XR_MonitorExit((word) (( (bPt) gf_c38880)+16)/* LOCK_v2944 */ )); }; SOURCE(6571, 38) { word var_c35104; var_c35104 = XR_NewObject(108, (* (( (ptr) gf_c38880)+11) )); (* (W27Pt) var_c35104 ) = (* (W27Pt) pfProcs_v11736 ); return(var_c35104); }; } static word SetPFProcs_P1200(stream_v6852, pfProcs_v6880) word stream_v6852; word pfProcs_v6880; { register ptr gf_c38912 = (ptr) &globalframe; word previous_v6924; /* SetPFProcs: */ SOURCE(6615, 196) SOURCE(6615, 196) previous_v6924 = 0; SOURCE(6706, 57) { word pd91; pd91 = (* (( (ptr) (* (( (ptr) gf_c38912)+124)/* var_c35008 */ ))+27) ); previous_v6924 = XR_Narrow((word) ( *( (fPt) ((* (ptr) pd91 ))))(stream_v6852, (* (( (ptr) gf_c38912)+30) ), pd91), (* ( ( (ptr) gf_c38912)+11) )); }; SOURCE(6765, 46) { word pd92; pd92 = (* (( (ptr) (* (( (ptr) gf_c38912)+124)/* var_c35008 */ ))+26) ); (void) ( *( (fPt) ((* (ptr) pd92 ))))(stream_v6852, (* (( (ptr) gf_c38912)+30) ), pfProcs_v6880, pd92); }; SOURCE(6615, 196) return(previous_v6924); } static word SetPFCodeProc_P1260(pfProcs_v6984, char_v7012, codeProc_v7040) word pfProcs_v6984; word char_v7012; word codeProc_v7040; { register ptr gf_c38944 = (ptr) &globalframe; word previous_v7084; /* SetPFCodeProc: */ SOURCE(6817, 337) SOURCE(6817, 337) previous_v7084 = 0; SOURCE(6932, 59) if ((pfProcs_v6984 == 0)) { SOURCE(6954, 37) { W4 var_c0176; (* (ptr) (word) &var_c0176 ) = 10; (* (( (ptr) (word) &var_c0176) + 1) ) = 0; (* (( (ptr) (word) &var_c0176) + 2) ) = 0; (* (( (ptr) (word) &var_c0176) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c38944)+121)/* var_c34528 */ ))+5) ), (word) &var_c0176); }; }; SOURCE(6993, 24) if (((char_v7012 - 65) <= 25)) { char_v7012 = (char_v7012 + 32); } else { char_v7012 = char_v7012; }; SOURCE(7019, 63) if (((char_v7012 - 97) > 25)) { SOURCE(7048, 34) { W4 var_c0177; (* (ptr) (word) &var_c0177 ) = 9; (* (( (ptr) (word) &var_c0177) + 1) ) = 0; (* (( (ptr) (word) &var_c0177) + 2) ) = 0; (* (( (ptr) (word) &var_c0177) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c38944)+121)/* var_c34528 */ ))+5) ), (word) &var_c0177); }; }; SOURCE(7084, 34) previous_v7084 = XR_CheckProc(* (( (ptr) pfProcs_v6984)+BCK((char_v7012 - 97), 26)) ); SOURCE(7120, 34) (* (( (ptr) pfProcs_v6984)+BCK((char_v7012 - 97), 26)) ) = XR_CheckProc(codeProc_v7040); SOURCE(6817, 337) return(previous_v7084); } static word SetPFErrorProc_P1320(pfProcs_v7144, errorProc_v7172) word pfProcs_v7144; word errorProc_v7172; { register ptr gf_c38976 = (ptr) &globalframe; word previous_v7216; /* SetPFErrorProc: */ SOURCE(7160, 227) SOURCE(7160, 227) previous_v7216 = 0; SOURCE(7267, 59) if ((pfProcs_v7144 == 0)) { SOURCE(7289, 37) { W4 var_c0181; (* (ptr) (word) &var_c0181 ) = 10; (* (( (ptr) (word) &var_c0181) + 1) ) = 0; (* (( (ptr) (word) &var_c0181) + 2) ) = 0; (* (( (ptr) (word) &var_c0181) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c38976)+121)/* var_c34528 */ ))+5) ), (word) &var_c0181); }; }; SOURCE(7328, 28) previous_v7216 = XR_CheckProc(* (( (ptr) pfProcs_v7144)+26) ); SOURCE(7358, 29) (* (( (ptr) pfProcs_v7144)+26) ) = XR_CheckProc(errorProc_v7172); SOURCE(7160, 227) return(previous_v7216); } static void PutF_P1380(stream_v7276, format_v7304, v1_v7332, v2_v7360, v3_v7388) word stream_v7276; word format_v7304; W2 v1_v7332; W2 v2_v7360; W2 v3_v7388; { register ptr gf_c39008 = (ptr) &globalframe; word pfProcs_v11780; word fp_v11808 = 0; /* PutF: */ SOURCE(7392, 391) SOURCE(7464, 37) { word pfProcs_v32584; SOURCE(5685, 181) pfProcs_v32584 = 0; SOURCE(5757, 56) { word pd93; pd93 = (* (( (ptr) (* (( (ptr) gf_c39008)+124)/* var_c35008 */ ))+27) ); pfProcs_v32584 = XR_Narrow((word) ( *( (fPt) ((* (ptr) pd93 ))))(stream_v7276, (* (( (ptr) gf_c39008)+30) ), pd93), (* ( ( (ptr) gf_c39008)+11) )); }; SOURCE(5815, 51) if ((pfProcs_v32584 == 0)) { SOURCE(5837, 29) SOURCE(5595, 84) (void) (XR_MonitorEntry((word) (( (bPt) gf_c39008)+16)/* LOCK_v2944 */ )); SOURCE(5657, 22) pfProcs_v32584 = (* (( (ptr) gf_c39008)+10)/* globalPFProcs_v3644 */ ); (void) (XR_MonitorExit((word) (( (bPt) gf_c39008)+16)/* LOCK_v2944 */ )); }; SOURCE(5685, 181) pfProcs_v11780 = pfProcs_v32584; }; SOURCE(7516, 69) if ((v1_v7332.f0 != 0)) { SOURCE(7537, 48) fp_v11808 = (word) PFInternal_P1740(stream_v7276, format_v7304, fp_v11808, v1_v7332, pfProcs_v11780); }; SOURCE(7587, 69) if ((v2_v7360.f0 != 0)) { SOURCE(7608, 48) fp_v11808 = (word) PFInternal_P1740(stream_v7276, format_v7304, fp_v11808, v2_v7360, pfProcs_v11780); }; SOURCE(7658, 69) if ((v3_v7388.f0 != 0)) { SOURCE(7679, 48) fp_v11808 = (word) PFInternal_P1740(stream_v7276, format_v7304, fp_v11808, v3_v7388, pfProcs_v11780); }; SOURCE(7729, 54) { word var_c35232; { W2 var_c0575; (* (ptr) (word) &var_c0575 ) = 0; (* (( (ptr) (word) &var_c0575) + 1) ) = 0; var_c35232 = (word) PFInternal_P1740(stream_v7276, format_v7304, fp_v11808, var_c0575, pfProcs_v11780); }; }; } static void PutF1_P1440(stream_v7448, format_v7476, value_v7504) word stream_v7448; word format_v7476; W2 value_v7504; { register ptr gf_c39040 = (ptr) &globalframe; word pfProcs_v11852; word fp_v11880 = 0; /* PutF1: */ SOURCE(7789, 251) SOURCE(7857, 37) { word pfProcs_v32536; SOURCE(5685, 181) pfProcs_v32536 = 0; SOURCE(5757, 56) { word pd94; pd94 = (* (( (ptr) (* (( (ptr) gf_c39040)+124)/* var_c35008 */ ))+27) ); pfProcs_v32536 = XR_Narrow((word) ( *( (fPt) ((* (ptr) pd94 ))))(stream_v7448, (* (( (ptr) gf_c39040)+30) ), pd94), (* ( ( (ptr) gf_c39040)+11) )); }; SOURCE(5815, 51) if ((pfProcs_v32536 == 0)) { SOURCE(5837, 29) SOURCE(5595, 84) (void) (XR_MonitorEntry((word) (( (bPt) gf_c39040)+16)/* LOCK_v2944 */ )); SOURCE(5657, 22) pfProcs_v32536 = (* (( (ptr) gf_c39040)+10)/* globalPFProcs_v3644 */ ); (void) (XR_MonitorExit((word) (( (bPt) gf_c39040)+16)/* LOCK_v2944 */ )); }; SOURCE(5685, 181) pfProcs_v11852 = pfProcs_v32536; }; SOURCE(7909, 75) if ((value_v7504.f0 != 0)) { SOURCE(7933, 51) fp_v11880 = (word) PFInternal_P1740(stream_v7448, format_v7476, fp_v11880, value_v7504, pfProcs_v11852); }; SOURCE(7986, 54) { word var_c35360; { W2 var_c0576; (* (ptr) (word) &var_c0576 ) = 0; (* (( (ptr) (word) &var_c0576) + 1) ) = 0; var_c35360 = (word) PFInternal_P1740(stream_v7448, format_v7476, fp_v11880, var_c0576, pfProcs_v11852); }; }; } static word PutFR_P1500(format_v7564, v1_v7592, v2_v7620, v3_v7648) word format_v7564; W2 v1_v7592; W2 v2_v7620; W2 v3_v7648; { register ptr gf_c39072 = (ptr) &globalframe; word var_c7692; word stream_v11924; /* PutFR: */ SOURCE(8046, 164) SOURCE(8118, 25) { word pd95; pd95 = (* (( (ptr) (* (( (ptr) gf_c39072)+121)/* var_c34528 */ ))+34) ); stream_v11924 = (word) ( *( (fPt) ((* (ptr) pd95 ))))(0, pd95); }; SOURCE(8145, 32) (void) PutF_P1380(stream_v11924, format_v7564, v1_v7592, v2_v7620, v3_v7648); SOURCE(8179, 31) { word pd96; pd96 = (* (( (ptr) (* (( (ptr) gf_c39072)+121)/* var_c34528 */ ))+35) ); return((word) ( *( (fPt) ((* (ptr) pd96 ))))(stream_v11924, 1, pd96)); }; } static word PutFR1_P1560(format_v7752, value_v7780) word format_v7752; W2 value_v7780; { register ptr gf_c39104 = (ptr) &globalframe; word var_c7824; word stream_v11968; word pfProcs_v11996; word fp_v12024 = 0; /* PutFR1: */ SOURCE(8216, 311) SOURCE(8284, 25) { word pd97; pd97 = (* (( (ptr) (* (( (ptr) gf_c39104)+121)/* var_c34528 */ ))+34) ); stream_v11968 = (word) ( *( (fPt) ((* (ptr) pd97 ))))(0, pd97); }; SOURCE(8311, 37) { word pfProcs_v32488; SOURCE(5685, 181) pfProcs_v32488 = 0; SOURCE(5757, 56) { word pd98; pd98 = (* (( (ptr) (* (( (ptr) gf_c39104)+124)/* var_c35008 */ ))+27) ); pfProcs_v32488 = XR_Narrow((word) ( *( (fPt) ((* (ptr) pd98 ))))(stream_v11968, (* (( (ptr) gf_c39104)+30) ), pd98), (* ( ( (ptr) gf_c39104)+11) )); }; SOURCE(5815, 51) if ((pfProcs_v32488 == 0)) { SOURCE(5837, 29) SOURCE(5595, 84) (void) (XR_MonitorEntry((word) (( (bPt) gf_c39104)+16)/* LOCK_v2944 */ )); SOURCE(5657, 22) pfProcs_v32488 = (* (( (ptr) gf_c39104)+10)/* globalPFProcs_v3644 */ ); (void) (XR_MonitorExit((word) (( (bPt) gf_c39104)+16)/* LOCK_v2944 */ )); }; SOURCE(5685, 181) pfProcs_v11996 = pfProcs_v32488; }; SOURCE(8363, 75) if ((value_v7780.f0 != 0)) { SOURCE(8387, 51) fp_v12024 = (word) PFInternal_P1740(stream_v11968, format_v7752, fp_v12024, value_v7780, pfProcs_v11996); }; SOURCE(8440, 54) { word var_c35520; { W2 var_c0577; (* (ptr) (word) &var_c0577 ) = 0; (* (( (ptr) (word) &var_c0577) + 1) ) = 0; var_c35520 = (word) PFInternal_P1740(stream_v11968, format_v7752, fp_v12024, var_c0577, pfProcs_v11996); }; }; SOURCE(8496, 31) { word pd99; pd99 = (* (( (ptr) (* (( (ptr) gf_c39104)+121)/* var_c34528 */ ))+35) ); return((word) ( *( (fPt) ((* (ptr) pd99 ))))(stream_v11968, 1, pd99)); }; } static void PutFL_P1620(stream_v7884, format_v7912, list_v7940) word stream_v7884; word format_v7912; word list_v7940; { register ptr gf_c39136 = (ptr) &globalframe; word pfProcs_v12068; word fp_v12096 = 0; /* PutFL: */ SOURCE(8533, 307) SOURCE(8608, 37) { word pfProcs_v32440; SOURCE(5685, 181) pfProcs_v32440 = 0; SOURCE(5757, 56) { word pd100; pd100 = (* (( (ptr) (* (( (ptr) gf_c39136)+124)/* var_c35008 */ ))+27) ); pfProcs_v32440 = XR_Narrow((word) ( *( (fPt) ((* (ptr) pd100 ))))(stream_v7884, (* (( (ptr) gf_c39136)+30) ), pd100), (* ( ( (ptr) gf_c39136)+11) )); }; SOURCE(5815, 51) if ((pfProcs_v32440 == 0)) { SOURCE(5837, 29) SOURCE(5595, 84) (void) (XR_MonitorEntry((word) (( (bPt) gf_c39136)+16)/* LOCK_v2944 */ )); SOURCE(5657, 22) pfProcs_v32440 = (* (( (ptr) gf_c39136)+10)/* globalPFProcs_v3644 */ ); (void) (XR_MonitorExit((word) (( (bPt) gf_c39136)+16)/* LOCK_v2944 */ )); }; SOURCE(5685, 181) pfProcs_v12068 = pfProcs_v32440; }; SOURCE(8660, 115) { register word l_v12140; l_v12140 = list_v7940; lab_L100031: ; if ((l_v12140 != 0)) { } else { goto lab_L100028; }; SOURCE(8722, 53) fp_v12096 = (word) PFInternal_P1740(stream_v7884, format_v7912, fp_v12096, (* (W2Pt) l_v12140 ), pfProcs_v12068); l_v12140 = (* (( (ptr) l_v12140)+2) ); goto lab_L100031; lab_L100028: ; }; SOURCE(8786, 54) { word var_c35680; { W2 var_c0578; (* (ptr) (word) &var_c0578 ) = 0; (* (( (ptr) (word) &var_c0578) + 1) ) = 0; var_c35680 = (word) PFInternal_P1740(stream_v7884, format_v7912, fp_v12096, var_c0578, pfProcs_v12068); }; }; } static word PutFLR_P1680(format_v8084, list_v8112) word format_v8084; word list_v8112; { register ptr gf_c39168 = (ptr) &globalframe; word var_c8240; word stream_v12268; /* PutFLR: */ SOURCE(8846, 162) SOURCE(8921, 25) { word pd101; pd101 = (* (( (ptr) (* (( (ptr) gf_c39168)+121)/* var_c34528 */ ))+34) ); stream_v12268 = (word) ( *( (fPt) ((* (ptr) pd101 ))))(0, pd101); }; SOURCE(8948, 27) (void) PutFL_P1620(stream_v12268, format_v8084, list_v8112); SOURCE(8977, 31) { word pd102; pd102 = (* (( (ptr) (* (( (ptr) gf_c39168)+121)/* var_c34528 */ ))+35) ); return((word) ( *( (fPt) ((* (ptr) pd102 ))))(stream_v12268, 1, pd102)); }; } static word PFInternal_P1740(formal_c0605, format_v8328, formatPtr_v8356, arg_v8384, pfProcs_v8412) word formal_c0605; word format_v8328; word formatPtr_v8356; W2 arg_v8384; word pfProcs_v8412; { W12 var_c39200; /* declaration of stream_v8300 skipped */ register ptr gf_c39232 = (ptr) &globalframe; word var_c8456; (* (( (ptr) &var_c39200)+4)/* stream_v8300 */ ) = formal_c0605; /* PFInternal: */ SOURCE(9013, 2598) SOURCE(9144, 2467) SOURCE(9146, 27) { /* declaration of error_v12312 skipped */ /* declaration of c_v12340 skipped */ word formatSize_v12396; SOURCE(9146, 27) (* (( (ptr) &var_c39200)+5)/* error_v12312 */ ) = 0; SOURCE(9175, 12) (* (( (ptr) &var_c39200)+6)/* c_v12340 */ ) = 0; SOURCE(9286, 31) { word pd103; pd103 = (* (( (ptr) (* (( (ptr) gf_c39232)+125)/* var_c35744 */ ))+15) ); formatSize_v12396 = (word) ( *( (fPt) ((* (ptr) pd103 ))))(format_v8328, pd103); }; SOURCE(9319, 113) if (( (int)formatSize_v12396 == (int)0)) { SOURCE(9344, 88) if ((arg_v8384.f0 == 0)) { SOURCE(9368, 15) goto lab_L100032; } else { SOURCE(9385, 13) format_v8328 = (* (( (ptr) gf_c39232)+29) ); SOURCE(9401, 14) formatSize_v12396 = 2; SOURCE(9418, 14) formatPtr_v8356 = 0; }; }; SOURCE(9437, 2129) lab_L100035: ; SOURCE(9440, 2126) SOURCE(9469, 176) if (( (int)formatPtr_v8356 < (int)formatSize_v12396)) { SOURCE(9500, 150) { word end_v12456; SOURCE(9502, 46) { word pd104; pd104 = (* (( (ptr) (* (( (ptr) gf_c39232)+125)/* var_c35744 */ ))+24) ); end_v12456 = (word) ( *( (fPt) ((* (ptr) pd104 ))))(format_v8328, formatPtr_v8356, (* (( (ptr) gf_c39232)+28) ), pd104); }; SOURCE(9550, 95) if (( (int)end_v12456 > (int)formatPtr_v8356)) { SOURCE(9576, 52) { word pd105; pd105 = (* (( (ptr) (* (( (ptr) gf_c39232)+121)/* var_c34528 */ ))+93) ); (void) ( *( (fPt) ((* (ptr) pd105 ))))((* (( (ptr) &var_c39200)+4)/* stream_v8300 */ ), format_v8328, formatPtr_v8356, (end_v12456 - formatPtr_v8356), pd105) ; }; SOURCE(9630, 15) formatPtr_v8356 = end_v12456; }; }; }; SOURCE(9672, 143) if (( (int)formatPtr_v8356 >= (int)formatSize_v12396)) { SOURCE(9706, 109) if ((arg_v8384.f0 == 0)) { SOURCE(9730, 15) goto lab_L100032; } else { SOURCE(9788, 27) (* (( (ptr) &var_c39200)+5)/* error_v12312 */ ) = 12; SOURCE(9818, 17) goto lab_L100037; }; }; SOURCE(9840, 19) SOURCE(9226, 27) { word pd106; pd106 = (* (( (ptr) (* (( (ptr) gf_c39232)+125)/* var_c35744 */ ))+9) ); (* (( (ptr) &var_c39200)+6)/* c_v12340 */ ) = (word) ( *( (fPt) ((* (ptr) pd106 ))))(format_v8328, formatPtr_v8356, pd106) ; }; SOURCE(9255, 26) formatPtr_v8356 = (formatPtr_v8356 + 1); SOURCE(9861, 15) if (((* (( (ptr) &var_c39200)+6)/* c_v12340 */ ) != 37)) { SOURCE(9876, 9) goto lab_L100036; }; SOURCE(9887, 1495) { word savedFormatPointer_v12500; SOURCE(9889, 35) savedFormatPointer_v12500 = formatPtr_v8356; SOURCE(9926, 425) lab_L100040: ; SOURCE(9929, 422) SOURCE(9931, 104) if (( (int)formatPtr_v8356 >= (int)formatSize_v12396)) { SOURCE(10008, 27) (* (( (ptr) &var_c39200)+5)/* error_v12312 */ ) = 12; SOURCE(10038, 17) goto lab_L100037; }; SOURCE(10058, 19) SOURCE(9226, 27) { word pd107; pd107 = (* (( (ptr) (* (( (ptr) gf_c39232)+125)/* var_c35744 */ ))+9) ); (* (( (ptr) &var_c39200)+6)/* c_v12340 */ ) = (word) ( *( (fPt) ((* (ptr) pd107 ))))(format_v8328, formatPtr_v8356, pd107) ; }; SOURCE(9255, 26) formatPtr_v8356 = (formatPtr_v8356 + 1); SOURCE(10079, 39) if ((((* (( (ptr) &var_c39200)+6)/* c_v12340 */ ) - 97) <= 25) || (((* (( (ptr) &var_c39200)+6)/* c_v12340 */ ) - 65) <= 25)) { SOURCE(10118, 14) goto lab_L100041; }; SOURCE(10134, 15) if (((* (( (ptr) &var_c39200)+6)/* c_v12340 */ ) == 37)) { SOURCE(10149, 17) goto lab_L100042; }; goto lab_L100043; lab_L100041: ; SOURCE(10187, 4) goto lab_L100039; /* c2c skipped dead code */ lab_L100042: ; SOURCE(10246, 44) if (( (int)formatPtr_v8356 == (int)(savedFormatPointer_v12500 + 1))) { SOURCE(10290, 9) goto lab_L100036; }; SOURCE(10301, 27) (* (( (ptr) &var_c39200)+5)/* error_v12312 */ ) = 12; SOURCE(10331, 17) goto lab_L100037; lab_L100043: ; goto lab_L100040; lab_L100039: ; SOURCE(10362, 94) if ((arg_v8384.f0 == 0)) { SOURCE(10429, 27) (* (( (ptr) &var_c39200)+5)/* error_v12312 */ ) = 12; SOURCE(10459, 17) goto lab_L100037; }; SOURCE(10479, 18) if ((((* (( (ptr) &var_c39200)+6)/* c_v12340 */ ) - 65) <= 25)) { (* (( (ptr) &var_c39200)+6)/* c_v12340 */ ) = ((* (( (ptr) &var_c39200)+6)/* c_v12340 */ ) + 32); } else { (* (( (ptr) &var_c39200)+6)/* c_v12340 */ ) = (* (( (ptr) &var_c39200)+6)/* c_v12340 */ ); }; SOURCE(10507, 873) { /* declaration of val_v12544 skipped */ /* declaration of p_v12572 skipped */ SOURCE(10509, 34) { W2 var_c35776; var_c35776 = arg_v8384; if ((var_c35776.f0 == 10)) { { W2 ref_v12616; ref_v12616 = var_c35776; { word var_c35808; word var_c35840; var_c35808 = ref_v12616.f1; if ((var_c35808 == 0)) { goto lab_L100044; }; var_c35840 = XR_GetReferentType(var_c35808); { word tc109; if (((* (( (ptr) gf_c39232)+25) ) == var_c35840)) { /*1*/ { /*1*/ word refBool_v12672; /*1*/ refBool_v12672 = var_c35808; /*1*/ (* (( (ptr) &var_c39200)+7) ) = 2; /*1*/ (* (( (ptr) &var_c39200)+8) ) = (* (ptr) refBool_v12672 ); /*1*/ }; /*1*/ goto endif0108; /*1*/ }; if (((* (( (ptr) gf_c39232)+26) ) == var_c35840)) { /*1*/ { /*1*/ word refChar_v12728; /*1*/ refChar_v12728 = var_c35808; /*1*/ (* (( (ptr) &var_c39200)+7) ) = 3; /*1*/ (* (( (ptr) &var_c39200)+8) ) = (* (ptr) refChar_v12728 ); /*1*/ }; /*1*/ goto endif0108; /*1*/ }; if (((* (( (ptr) gf_c39232)+27) ) == var_c35840)) { /*1*/ { /*1*/ word refCard_v12784; /*1*/ refCard_v12784 = var_c35808; /*1*/ (* (( (ptr) &var_c39200)+7) ) = 4; /*1*/ (* (( (ptr) &var_c39200)+8) ) = (* (ptr) refCard_v12784 ); /*1*/ }; /*1*/ goto endif0108; /*1*/ }; if (((* (( (ptr) gf_c39232)+24) ) == var_c35840)) { /*1*/ { /*1*/ word refInt_v12840; /*1*/ refInt_v12840 = var_c35808; /*1*/ (* (( (ptr) &var_c39200)+7) ) = 5; /*1*/ (* (( (ptr) &var_c39200)+8) ) = (* (ptr) refInt_v12840 ); /*1*/ }; /*1*/ goto endif0108; /*1*/ }; if (((* (( (ptr) gf_c39232)+23) ) == var_c35840)) { /*1*/ { /*1*/ word refNat_v12896; /*1*/ refNat_v12896 = var_c35808; /*1*/ (* (( (ptr) &var_c39200)+7) ) = 5; /*1*/ (* (( (ptr) &var_c39200)+8) ) = (* (ptr) refNat_v12896 ); /*1*/ }; /*1*/ goto endif0108; /*1*/ }; if (((* (( (ptr) gf_c39232)+20) ) == var_c35840)) { /*1*/ { /*1*/ word refReal_v12952; /*1*/ refReal_v12952 = var_c35808; /*1*/ (* (( (ptr) &var_c39200)+7) ) = 8; /*1*/ (* (( (ptr) &var_c39200)+8) ) = (* (ptr) refReal_v12952 ); /*1*/ }; /*1*/ goto endif0108; /*1*/ }; if (((* (( (ptr) gf_c39232)+15) ) == var_c35840)) { /*1*/ { /*1*/ word refDReal_v13008; /*1*/ refDReal_v13008 = var_c35808; /*1*/ (* (( (ptr) &var_c39200)+7) ) = 9; /*1*/ (* (( (ptr) &var_c39200)+8) ) = refDReal_v13008; /*1*/ }; /*1*/ goto endif0108; /*1*/ }; if (((* (( (ptr) gf_c39232)+13) ) == var_c35840)) { /*1*/ { /*1*/ word refDInt_v13064; /*1*/ refDInt_v13064 = var_c35808; /*1*/ (* (( (ptr) &var_c39200)+7) ) = 6; /*1*/ (* (( (ptr) &var_c39200)+8) ) = refDInt_v13064; /*1*/ }; /*1*/ goto endif0108; /*1*/ }; if (((* (( (ptr) gf_c39232)+14) ) == var_c35840)) { /*1*/ { /*1*/ word refDCard_v13120; /*1*/ refDCard_v13120 = var_c35808; /*1*/ (* (( (ptr) &var_c39200)+7) ) = 7; /*1*/ (* (( (ptr) &var_c39200)+8) ) = refDCard_v13120; /*1*/ }; /*1*/ goto endif0108; /*1*/ }; if (((* (( (ptr) gf_c39232)+18) ) == var_c35840)) { /*1*/ { /*1*/ word refText_v13176; /*1*/ refText_v13176 = var_c35808; /*1*/ (* (( (ptr) &var_c39200)+7) ) = 12; /*1*/ (* (( (ptr) &var_c39200)+8) ) = refText_v13176; /*1*/ }; /*1*/ goto endif0108; /*1*/ }; if (((* (( (ptr) gf_c39232)+21) ) == var_c35840)) { /*1*/ { /*1*/ word atom_v13232; /*1*/ atom_v13232 = var_c35808; /*1*/ (* (( (ptr) &var_c39200)+7) ) = 1; /*1*/ (* (( (ptr) &var_c39200)+8) ) = atom_v13232; /*1*/ }; /*1*/ goto endif0108; /*1*/ }; if (((* (( (ptr) gf_c39232)+16) ) == var_c35840)) { /*1*/ tc109 = (word) ((*(int*)var_c35808<0) == 0); /*1*/ } else { /*1*/ tc109 = (word) 0; /*1*/ }; if (tc109) { /*1*/ { /*1*/ word rope_v13276; /*1*/ rope_v13276 = var_c35808; /*1*/ (* (( (ptr) &var_c39200)+7) ) = 11; /*1*/ (* (( (ptr) &var_c39200)+8) ) = rope_v13276; /*1*/ }; /*1*/ goto endif0108; /*1*/ }; lab_L100044: ; (* (W2Pt) (( (ptr) &var_c39200)+7)/* val_v12544 */ ) = arg_v8384; goto endif0108; endif0108: ; }; }; }; } else { (* (W2Pt) (( (ptr) &var_c39200)+7)/* val_v12544 */ ) = arg_v8384; }; }; SOURCE(11099, 36) { word idx110; (* (( (ptr) &var_c39200)+9)/* p_v12572 */ ) = (* (( (ptr) pfProcs_v8412)+( idx110 = (word) ((* (( (ptr) &var_c39200)+6)/* c_v12340 */ ) - 97), BCK(idx110, 26) )) ); }; SOURCE(11137, 50) if (((* (( (ptr) &var_c39200)+9)/* p_v12572 */ ) == 0)) { SOURCE(11155, 32) (* (( (ptr) &var_c39200)+5)/* error_v12312 */ ) = 11; SOURCE(11190, 17) goto lab_L100037; }; SOURCE(11210, 136) { /* declaration of var_c01 skipped */ (* (( (ptr) &var_c39200)+10) ) = format_v8328; (* (( (ptr) &var_c39200)+11) ) = savedFormatPointer_v12500; { word var_c02; { word var_c0579; var_c0579 = (word) &var_c39200; var_c02 = (word) XR_Enable(( ((word) (fPt) NoName_Q6588) ), ( ((word) (fPt) NoName_Q7368) ), var_c0579); }; if ((var_c02 == 2)) { goto lab_L100037; }; }; }; SOURCE(11369, 9) goto lab_L100032; }; }; /* c2c skipped dead code */ lab_L100036: ; SOURCE(11398, 37) { word pd111; pd111 = (* (( (ptr) (* (ptr) (* (( (ptr) &var_c39200)+4)/* stream_v8300 */ ) ))+6) ); (void) ( *( (fPt) ((* (ptr) pd111 ))))((* (( (ptr) &var_c39200)+4)/* stream_v8300 */ ), (* (( (ptr) &var_c39200)+6)/* c_v12340 */ ), pd111) ; }; goto lab_L100047; lab_L100037: ; SOURCE(11452, 111) { word ep_v13320; SOURCE(11454, 35) ep_v13320 = (* (( (ptr) pfProcs_v8412)+26) ); SOURCE(11491, 40) if ((ep_v13320 == 0)) { SOURCE(11508, 23) ep_v13320 = (word) (( (bPt) gf_c39232)+240)/* var_c33248 */ ; }; SOURCE(11533, 17) (void) ( *( (fPt) ((* (ptr) ep_v13320 ))))((* (( (ptr) &var_c39200)+5)/* error_v12312 */ ), (* (( (ptr) &var_c39200)+4) /* stream_v8300 */ ), ep_v13320); SOURCE(11552, 9) goto lab_L100032; }; lab_L100047: ; goto lab_L100035; }; /* c2c skipped dead code */ lab_L100032: ; SOURCE(11591, 18) return(formatPtr_v8356); } static word NoName_Q6588(formal_c0540) word formal_c0540; { SOURCE(11210, 136) { word pd112; pd112 = (* (( (ptr) formal_c0540)+9) ); (void) ( *( (fPt) ((* (ptr) pd112 ))))((* (( (ptr) formal_c0540)+4) ), (* (W2Pt) (( (ptr) formal_c0540)+7) ), (* (W2Pt) ( ( (ptr) formal_c0540)+10) ), (* (( (ptr) formal_c0540)+6) ), pd112); }; return(0); } static void ParseFormat_P1800(formal_c0281, form_v8516, start_v8544) word formal_c0281; word form_v8516; word start_v8544; { register ptr gf_c39264 = (ptr) &globalframe; word leadingMinus_v8588; word leadingZero_v8616; word fieldWidth_v8644; word numDigits_v8672; word len_v13364; /* ParseFormat: */ SOURCE(11615, 1054) SOURCE(11615, 1054) leadingMinus_v8588 = 0; SOURCE(11615, 1054) leadingZero_v8616 = 0; SOURCE(11615, 1054) fieldWidth_v8644 = (word) -1; SOURCE(11615, 1054) numDigits_v8672 = (word) -1; SOURCE(11777, 26) { word pd113; pd113 = (* (( (ptr) (* (( (ptr) gf_c39264)+125)/* var_c35744 */ ))+15) ); len_v13364 = (word) ( *( (fPt) ((* (ptr) pd113 ))))(form_v8516, pd113); }; SOURCE(11805, 149) if (( (int)start_v8544 < (int)len_v13364)) { SOURCE(11826, 128) { word var_c36288; { word pd114; pd114 = (* (( (ptr) (* (( (ptr) gf_c39264)+125)/* var_c35744 */ ))+9) ); var_c36288 = (word) ( *( (fPt) ((* (ptr) pd114 ))))(form_v8516, start_v8544, pd114); }; if ((var_c36288 == 48)) { SOURCE(11869, 18) leadingZero_v8616 = 1; SOURCE(11889, 17) start_v8544 = (start_v8544 + 1); } else { if ((var_c36288 == 45)) { SOURCE(11916, 19) leadingMinus_v8588 = 1; SOURCE(11937, 17) start_v8544 = (start_v8544 + 1); }; }; }; }; SOURCE(11966, 311) lab_L100052: ; if (( (int)start_v8544 < (int)len_v13364)) { } else { goto lab_L100050; }; { word c_v13408; SOURCE(11987, 33) { word pd115; pd115 = (* (( (ptr) (* (( (ptr) gf_c39264)+125)/* var_c35744 */ ))+9) ); c_v13408 = (word) ( *( (fPt) ((* (ptr) pd115 ))))(form_v8516, start_v8544, pd115); }; SOURCE(12022, 216) { word var_c36320; var_c36320 = c_v13408; if (((var_c36320 - 48) <= 9)) { SOURCE(12051, 189) { word digit_v13452; SOURCE(12053, 22) digit_v13452 = BCK((c_v13408 - 48), 10); SOURCE(12077, 37) if (( (int)fieldWidth_v8644 < (int)0)) { SOURCE(12100, 14) fieldWidth_v8644 = 0; }; SOURCE(12116, 85) if (( (int)fieldWidth_v8644 >= (int)((2147483647 - digit_v13452) / 10))) { SOURCE(12167, 26) fieldWidth_v8644 = 2147483647; SOURCE(12195, 6) goto lab_L100049; }; SOURCE(12204, 34) fieldWidth_v8644 = (IOP2( * , (int)fieldWidth_v8644, (int)10) + digit_v13452); }; } else { SOURCE(12254, 4) goto lab_L100051; }; }; SOURCE(12260, 17) start_v8544 = (start_v8544 + 1); }; goto lab_L100052; lab_L100050: ; lab_L100051: ; SOURCE(12288, 381) { word tc116; word pd117; if (( (int)start_v8544 < (int)len_v13364)) { pd117 = (* (( (ptr) (* (( (ptr) gf_c39264)+125)/* var_c35744 */ ))+9) ); tc116 = (word) ((word) ( *( (fPt) ((* (ptr) pd117 ))))(form_v8516, start_v8544, pd117) == 46); } else { tc116 = (word) 0; }; if (tc116) { SOURCE(12343, 17) start_v8544 = (start_v8544 + 1); SOURCE(12362, 307) lab_L100055: ; if (( (int)start_v8544 < (int)len_v13364)) { } else { goto lab_L100053; }; { word c_v13516; SOURCE(12383, 33) { word pd118; pd118 = (* (( (ptr) (* (( (ptr) gf_c39264)+125)/* var_c35744 */ ))+9) ); c_v13516 = (word) ( *( (fPt) ((* (ptr) pd118 ))))(form_v8516, start_v8544, pd118); }; SOURCE(12418, 232) { word var_c36352; var_c36352 = c_v13516; if (((var_c36352 - 48) <= 9)) { SOURCE(12447, 183) { word digit_v13560; SOURCE(12449, 22) digit_v13560 = BCK((c_v13516 - 48), 10); SOURCE(12473, 35) if (( (int)numDigits_v8672 < (int)0)) { SOURCE(12495, 13) numDigits_v8672 = 0; }; SOURCE(12510, 83) if (( (int)numDigits_v8672 >= (int)((2147483647 - digit_v13560) / 10))) { SOURCE(12560, 25) numDigits_v8672 = 2147483647; SOURCE(12587, 6) goto lab_L100049; }; SOURCE(12596, 32) numDigits_v8672 = (IOP2( * , (int)numDigits_v8672, (int)10) + digit_v13560); }; } else { SOURCE(12644, 6) goto lab_L100049; }; }; SOURCE(12652, 17) start_v8544 = (start_v8544 + 1); }; goto lab_L100055; lab_L100053: ; }; }; /* removed tail goto */ lab_L100049: ; (* (ptr) formal_c0281 ) = leadingMinus_v8588; (* (( (ptr) formal_c0281)+1) ) = leadingZero_v8616; (* (( (ptr) formal_c0281)+2) ) = fieldWidth_v8644; (* (( (ptr) formal_c0281)+3) ) = numDigits_v8672; return; } static void PFErrorPrintPounds_P1860(error_v8732, stream_v8760) word error_v8732; word stream_v8760; { register ptr gf_c39296 = (ptr) &globalframe; /* PFErrorPrintPounds: */ SOURCE(12687, 101) SOURCE(12761, 27) { word pd119; pd119 = (* (( (ptr) (* (( (ptr) gf_c39296)+121)/* var_c34528 */ ))+93) ); (void) ( *( (fPt) ((* (ptr) pd119 ))))(stream_v8760, (* (( (ptr) gf_c39296)+32) ), 0, 2147483647, pd119); }; } static void PFErrorNoop_P1920(error_v8820, stream_v8848) word error_v8820; word stream_v8848; { /* PFErrorNoop: */ } static void PFErrorError_P1980(error_v8908, stream_v8936) word error_v8908; word stream_v8936; { register ptr gf_c39328 = (ptr) &globalframe; /* PFErrorError: */ SOURCE(12865, 97) SOURCE(12933, 29) { W4 var_c0288; (* (ptr) (word) &var_c0288 ) = error_v8908; (* (( (ptr) (word) &var_c0288) + 1) ) = stream_v8936; (* (( (ptr) (word) &var_c0288) + 2) ) = 0; (* (( (ptr) (word) &var_c0288) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c39328)+121)/* var_c34528 */ ))+5) ), (word) &var_c0288); }; } static void StringRoutine_P2040(formal_c0606, formal_c0607, format_v9052, char_v9080) word formal_c0606; W2 formal_c0607; W2 format_v9052; word char_v9080; { W8 var_c39360; /* declaration of stream_v8996 skipped */ /* declaration of val_v9024 skipped */ register ptr gf_c39392 = (ptr) &globalframe; /* declaration of r_v13624 skipped */ word rp_v13652 = 0; var_c39360.f4/* stream_v8996 */ = formal_c0606; (* (W2Pt) (( (ptr) &var_c39360)+5)/* val_v9024 */ ) = formal_c0607; /* StringRoutine: */ SOURCE(12967, 1420) SOURCE(13056, 17) var_c39360.f7/* r_v13624 */ = 0; SOURCE(13091, 1209) { word var_c36384; var_c36384 = var_c39360.f5; switch (var_c36384) { case 1: SOURCE(13123, 54) { word pd120; pd120 = (* (( (ptr) (* (( (ptr) gf_c39392)+122)/* var_c34720 */ ))+37) ); rp_v13652 = (word) ( *( (fPt) ((* (ptr) pd120 ))))(var_c39360.f6, 0, pd120); }; break; case 2: SOURCE(13190, 34) { word pd121; pd121 = (* (( (ptr) (* (( (ptr) gf_c39392)+122)/* var_c34720 */ ))+36) ); rp_v13652 = (word) ( *( (fPt) ((* (ptr) pd121 ))))(var_c39360.f6, pd121); }; break; case 3: SOURCE(13239, 71) { word var_c36416; { word pd122; word idx123; pd122 = (* (( (ptr) (* (( (ptr) gf_c39392)+120)/* var_c34496 */ ))+6) ); var_c36416 = (word) ( *( (fPt) ((* (ptr) pd122 ))))(( idx123 = (* (( (ptr) gf_c39392)+8)/* defaultTextSize_v3140 */ ), BCK(idx123, 32768) ), pd122); }; { word pd124; pd124 = (* (( (ptr) (* (( (ptr) gf_c39392)+120)/* var_c34496 */ ))+11) ); var_c39360.f7/* r_v13624 */ = (word) ( *( (fPt) ((* (ptr) pd124 ))))(var_c36416, var_c39360.f6, pd124); }; }; break; case 4: SOURCE(13324, 71) { word var_c36448; { word pd125; word idx126; pd125 = (* (( (ptr) (* (( (ptr) gf_c39392)+120)/* var_c34496 */ ))+6) ); var_c36448 = (word) ( *( (fPt) ((* (ptr) pd125 ))))(( idx126 = (* (( (ptr) gf_c39392)+8)/* defaultTextSize_v3140 */ ), BCK(idx126, 32768) ), pd125); }; { word pd127; pd127 = (* (( (ptr) (* (( (ptr) gf_c39392)+122)/* var_c34720 */ ))+41) ); var_c39360.f7/* r_v13624 */ = (word) ( *( (fPt) ((* (ptr) pd127 ))))(var_c36448, var_c39360.f6, 8, 1, pd127); }; }; break; case 7: SOURCE(13406, 73) { word var_c36480; { word pd128; word idx129; pd128 = (* (( (ptr) (* (( (ptr) gf_c39392)+120)/* var_c34496 */ ))+6) ); var_c36480 = (word) ( *( (fPt) ((* (ptr) pd128 ))))(( idx129 = (* (( (ptr) gf_c39392)+8)/* defaultTextSize_v3140 */ ), BCK(idx129, 32768) ), pd128); }; { word pd130; pd130 = (* (( (ptr) (* (( (ptr) gf_c39392)+122)/* var_c34720 */ ))+43) ); var_c39360.f7/* r_v13624 */ = (word) ( *( (fPt) ((* (ptr) pd130 ))))(var_c36480, (* (W2Pt) var_c39360.f6 ), 8, 1, pd130) ; }; }; break; case 5: SOURCE(13492, 70) { word var_c36512; { word pd131; word idx132; pd131 = (* (( (ptr) (* (( (ptr) gf_c39392)+120)/* var_c34496 */ ))+6) ); var_c36512 = (word) ( *( (fPt) ((* (ptr) pd131 ))))(( idx132 = (* (( (ptr) gf_c39392)+8)/* defaultTextSize_v3140 */ ), BCK(idx132, 32768) ), pd131); }; { word pd133; pd133 = (* (( (ptr) (* (( (ptr) gf_c39392)+122)/* var_c34720 */ ))+40) ); var_c39360.f7/* r_v13624 */ = (word) ( *( (fPt) ((* (ptr) pd133 ))))(var_c36512, var_c39360.f6, 8, 1, pd133); }; }; break; case 6: { W2 var_c0580; SOURCE(13574, 42) { word pd134; word idx135; pd134 = (* (( (ptr) (* (( (ptr) gf_c39392)+120)/* var_c34496 */ ))+6) ); var_c39360.f7/* r_v13624 */ = (word) ( *( (fPt) ((* (ptr) pd134 ))))(( idx135 = (* (( (ptr) gf_c39392)+8)/* defaultTextSize_v3140 */ ), BCK(idx135, 32768) ), pd134); }; SOURCE(13618, 241) (* (ptr) (word) &var_c0580 ) = 0; (* (( (ptr) (word) &var_c0580) + 1) ) = 0; if (XR_DIntGeI(var_c39360.f6, &var_c0580)) { SOURCE(13640, 42) { word pd136; W2 D137; pd136 = (* (( (ptr) (* (( (ptr) gf_c39392)+122)/* var_c34720 */ ))+43) ); XR_DCardDIntI(&D137, var_c39360.f6); var_c39360.f7/* r_v13624 */ = (word) ( *( (fPt) ((* (ptr) pd136 ))))(var_c39360.f7/* r_v13624 */ , D137, 8, 1, pd136); }; } else { SOURCE(13684, 175) { word var_c0581; var_c0581 = (word) &var_c39360; (void) (word) XR_Enable(( ((word) (fPt) NoName_Q6648) ), ( ((word) (fPt) NoName_Q7308) ), var_c0581); }; }; }; break; case 8: SOURCE(13875, 68) { word var_c36544; { word pd138; word idx139; pd138 = (* (( (ptr) (* (( (ptr) gf_c39392)+120)/* var_c34496 */ ))+6) ); var_c36544 = (word) ( *( (fPt) ((* (ptr) pd138 ))))(( idx139 = (* (( (ptr) gf_c39392)+8)/* defaultTextSize_v3140 */ ), BCK(idx139, 32768) ), pd138); }; { word pd140; pd140 = (* (( (ptr) (* (( (ptr) gf_c39392)+122)/* var_c34720 */ ))+57) ); var_c39360.f7/* r_v13624 */ = (word) ( *( (fPt) ((* (ptr) pd140 ))))(var_c36544, var_c39360.f6, 7, pd140); }; }; break; case 9: SOURCE(13954, 73) { word var_c36576; { word pd141; word idx142; pd141 = (* (( (ptr) (* (( (ptr) gf_c39392)+120)/* var_c34496 */ ))+6) ); var_c36576 = (word) ( *( (fPt) ((* (ptr) pd141 ))))(( idx142 = (* (( (ptr) gf_c39392)+8)/* defaultTextSize_v3140 */ ), BCK(idx142, 32768) ), pd141); }; { word pd143; pd143 = (* (( (ptr) (* (( (ptr) gf_c39392)+122)/* var_c34720 */ ))+44) ); var_c39360.f7/* r_v13624 */ = (word) ( *( (fPt) ((* (ptr) pd143 ))))(var_c36576, (* (W2Pt) var_c39360.f6 ), 15, 0, pd143) ; }; }; break; case 10: SOURCE(14039, 70) { word strm_v13752; SOURCE(14041, 23) { word pd144; pd144 = (* (( (ptr) (* (( (ptr) gf_c39392)+121)/* var_c34528 */ ))+34) ); strm_v13752 = (word) ( *( (fPt) ((* (ptr) pd144 ))))(0, pd144); }; SOURCE(14066, 15) (void) Put1_P300(strm_v13752, (* (W2Pt) (( (ptr) &var_c39360)+5)/* val_v9024 */ )); SOURCE(14083, 26) { word pd145; pd145 = (* (( (ptr) (* (( (ptr) gf_c39392)+121)/* var_c34528 */ ))+35) ); rp_v13652 = (word) ( *( (fPt) ((* (ptr) pd145 ))))(strm_v13752, 1, pd145); }; }; break; case 11: SOURCE(14120, 12) rp_v13652 = var_c39360.f6; break; case 12: SOURCE(14142, 37) { word text_v32632; text_v32632 = var_c39360.f6; rp_v13652 = text_v32632; }; break; case 13: SOURCE(14189, 111) { word var_c36640; { word pd146; word idx147; pd146 = (* (( (ptr) (* (( (ptr) gf_c39392)+120)/* var_c34496 */ ))+6) ); var_c36640 = (word) ( *( (fPt) ((* (ptr) pd146 ))))(( idx147 = (* (( (ptr) gf_c39392)+8)/* defaultTextSize_v3140 */ ), BCK(idx147, 32768) ), pd146); }; { word pd148; pd148 = (* (( (ptr) (* (( (ptr) gf_c39392)+122)/* var_c34720 */ ))+45) ); var_c39360.f7/* r_v13624 */ = (word) ( *( (fPt) ((* (ptr) pd148 ))))(var_c36640, var_c39360.f6, 0, 5, 0, 1 , 1, pd148); }; }; break; default: SOURCE(14313, 5) (void) XR_RaiseUnnamedError(); break; }; }; SOURCE(14320, 67) (void) PrintText_P2580(var_c39360.f7/* r_v13624 */ , rp_v13652, format_v9052, var_c39360.f4/* stream_v8996 */ , ( (char_v9080 == 104) ? 1 : 0 ) ) ; } static word NoName_Q6648(formal_c0546) word formal_c0546; { register ptr gf_c0545 = (ptr) &globalframe; SOURCE(13757, 39) { W2 dc_v13708; SOURCE(13757, 39) (void) NegateDIntToDCard_P660((word) &dc_v13708, (* (W2Pt) (* (( (ptr) formal_c0546)+6) ) )); SOURCE(13798, 29) { word pd149; pd149 = (* (( (ptr) (* (( (ptr) gf_c0545)+120)/* var_c34496 */ ))+11) ); (* (( (ptr) formal_c0546)+7) ) = (word) ( *( (fPt) ((* (ptr) pd149 ))))((* (( (ptr) formal_c0546)+7) ), 45, pd149); }; SOURCE(13829, 30) { word pd150; pd150 = (* (( (ptr) (* (( (ptr) gf_c0545)+122)/* var_c34720 */ ))+43) ); (* (( (ptr) formal_c0546)+7) ) = (word) ( *( (fPt) ((* (ptr) pd150 ))))((* (( (ptr) formal_c0546)+7) ), dc_v13708, 8, 1, pd150) ; }; }; return(0); } static void FixnumRoutine_P2100(formal_c0608, formal_c0609, format_v9196, char_v9224) word formal_c0608; W2 formal_c0609; W2 format_v9196; word char_v9224; { W14 var_c39424; /* declaration of stream_v9140 skipped */ /* declaration of val_v9168 skipped */ register ptr gf_c39456 = (ptr) &globalframe; /* declaration of base_v13796 skipped */ /* declaration of r_v13824 skipped */ (* (( (ptr) &var_c39424)+4)/* stream_v9140 */ ) = formal_c0608; (* (W2Pt) (( (ptr) &var_c39424)+5)/* val_v9168 */ ) = formal_c0609; /* FixnumRoutine: */ SOURCE(14393, 1493) SOURCE(14482, 70) { word var_c36672; var_c36672 = char_v9224; { word idx151; (* (( (ptr) &var_c39424)+7)/* base_v13796 */ ) = ( idx151 = (word) ( ( (var_c36672 == 98) ? 8 : ( (var_c36672 == 120) ? 16 : 10 ) ) - 2), BCK(idx151, 35) ); }; }; SOURCE(14554, 11) (* (( (ptr) &var_c39424)+8)/* r_v13824 */ ) = 0; SOURCE(14567, 1277) { word var_c36704; var_c36704 = (* (( (ptr) &var_c39424)+5) ); switch (var_c36704) { case 2: SOURCE(14602, 101) { word var_c36736; { word pd152; word idx153; pd152 = (* (( (ptr) (* (( (ptr) gf_c39456)+120)/* var_c34496 */ ))+6) ); var_c36736 = (word) ( *( (fPt) ((* (ptr) pd152 ))))(( idx153 = (* (( (ptr) gf_c39456)+8)/* defaultTextSize_v3140 */ ), BCK(idx153, 32768) ), pd152); }; { word pd154; pd154 = (* (( (ptr) (* (( (ptr) gf_c39456)+122)/* var_c34720 */ ))+41) ); (* (( (ptr) &var_c39424)+8)/* r_v13824 */ ) = (word) ( *( (fPt) ((* (ptr) pd154 ))))(var_c36736, ( (0 != (* (( (ptr) &var_c39424)+6) )) ? 1 : 0 ) , (* (( (ptr) &var_c39424)+7)/* base_v13796 */ ), 0, pd154); }; }; break; case 4: SOURCE(14717, 84) { word var_c36768; { word pd155; word idx156; pd155 = (* (( (ptr) (* (( (ptr) gf_c39456)+120)/* var_c34496 */ ))+6) ); var_c36768 = (word) ( *( (fPt) ((* (ptr) pd155 ))))(( idx156 = (* (( (ptr) gf_c39456)+8)/* defaultTextSize_v3140 */ ), BCK(idx156, 32768) ), pd155); }; { word pd157; pd157 = (* (( (ptr) (* (( (ptr) gf_c39456)+122)/* var_c34720 */ ))+41) ); (* (( (ptr) &var_c39424)+8)/* r_v13824 */ ) = (word) ( *( (fPt) ((* (ptr) pd157 ))))(var_c36768, (* (( (ptr) &var_c39424)+6) ), (* (( (ptr) &var_c39424)+7)/* base_v13796 */ ), 0, pd157); }; }; break; case 3: SOURCE(14816, 88) { word var_c36800; { word pd158; word idx159; pd158 = (* (( (ptr) (* (( (ptr) gf_c39456)+120)/* var_c34496 */ ))+6) ); var_c36800 = (word) ( *( (fPt) ((* (ptr) pd158 ))))(( idx159 = (* (( (ptr) gf_c39456)+8)/* defaultTextSize_v3140 */ ), BCK(idx159, 32768) ), pd158); }; { word pd160; pd160 = (* (( (ptr) (* (( (ptr) gf_c39456)+122)/* var_c34720 */ ))+41) ); (* (( (ptr) &var_c39424)+8)/* r_v13824 */ ) = (word) ( *( (fPt) ((* (ptr) pd160 ))))(var_c36800, (* (( (ptr) &var_c39424)+6) ), (* (( (ptr) &var_c39424)+7)/* base_v13796 */ ), 0, pd160); }; }; break; case 7: SOURCE(14915, 86) { word var_c36832; { word pd161; word idx162; pd161 = (* (( (ptr) (* (( (ptr) gf_c39456)+120)/* var_c34496 */ ))+6) ); var_c36832 = (word) ( *( (fPt) ((* (ptr) pd161 ))))(( idx162 = (* (( (ptr) gf_c39456)+8)/* defaultTextSize_v3140 */ ), BCK(idx162, 32768) ), pd161); }; { word pd163; pd163 = (* (( (ptr) (* (( (ptr) gf_c39456)+122)/* var_c34720 */ ))+43) ); (* (( (ptr) &var_c39424)+8)/* r_v13824 */ ) = (word) ( *( (fPt) ((* (ptr) pd163 ))))(var_c36832, (* (W2Pt) (* (( (ptr) &var_c39424)+6) ) ), (* (( (ptr) &var_c39424)+7)/* base_v13796 */ ), 0, pd163); }; }; break; case 6: { W2 var_c0582; SOURCE(15013, 42) { word pd164; word idx165; pd164 = (* (( (ptr) (* (( (ptr) gf_c39456)+120)/* var_c34496 */ ))+6) ); (* (( (ptr) &var_c39424)+8)/* r_v13824 */ ) = (word) ( *( (fPt) ((* (ptr) pd164 ))))(( idx165 = (* (( (ptr) gf_c39456)+8)/* defaultTextSize_v3140 */ ), BCK(idx165, 32768) ), pd164); }; SOURCE(15057, 267) (* (ptr) (word) &var_c0582 ) = 0; (* (( (ptr) (word) &var_c0582) + 1) ) = 0; if (XR_DIntGeI((* (( (ptr) &var_c39424)+6) ), &var_c0582)) { SOURCE(15079, 55) { word pd166; W2 D167; pd166 = (* (( (ptr) (* (( (ptr) gf_c39456)+122)/* var_c34720 */ ))+43) ); XR_DCardDIntI(&D167, (* (( (ptr) &var_c39424)+6) )); (* (( (ptr) &var_c39424)+8)/* r_v13824 */ ) = (word) ( *( (fPt) ((* (ptr) pd166 ))))((* (( (ptr) &var_c39424)+8)/* r_v13824 */ ), D167, (* ( ( (ptr) &var_c39424)+7)/* base_v13796 */ ), 0, pd166); }; } else { SOURCE(15136, 188) { word var_c0583; var_c0583 = (word) &var_c39424; (void) (word) XR_Enable(( ((word) (fPt) NoName_Q6828) ), ( ((word) (fPt) NoName_Q7248) ), var_c0583); }; }; }; break; case 9: SOURCE(15341, 183) { word var_c36864; W2 var_c36896; { word pd168; word idx169; pd168 = (* (( (ptr) (* (( (ptr) gf_c39456)+120)/* var_c34496 */ ))+6) ); var_c36864 = (word) ( *( (fPt) ((* (ptr) pd168 ))))(( idx169 = (* (( (ptr) gf_c39456)+8)/* defaultTextSize_v3140 */ ), BCK(idx169, 32768) ), pd168); }; { /* declaration of var_c03 skipped */ /* declaration of var_c04 skipped */ (* (W2Pt) (( (ptr) &var_c39424)+9)/* var_c03 */ ) = (* (W2Pt) (* (( (ptr) &var_c39424)+6) ) ); (* (( (ptr) &var_c39424)+11)/* var_c04 */ ) = (* (( (ptr) (* (( (ptr) gf_c39456)+126)/* var_c36928 */ ))+6) ); { /* declaration of var_c05 skipped */ { word var_c0584; var_c0584 = (word) &var_c39424; (void) (word) XR_Enable(( ((word) (fPt) NoName_Q6768) ), ( ((word) (fPt) NoName_Q7188) ), var_c0584); }; var_c36896 = (* (W2Pt) (( (ptr) &var_c39424)+12)/* var_c05 */ ); }; }; { word pd170; pd170 = (* (( (ptr) (* (( (ptr) gf_c39456)+122)/* var_c34720 */ ))+43) ); (* (( (ptr) &var_c39424)+8)/* r_v13824 */ ) = (word) ( *( (fPt) ((* (ptr) pd170 ))))(var_c36864, var_c36896, (* (( (ptr) &var_c39424)+7) /* base_v13796 */ ), 0, pd170); }; }; break; case 5: SOURCE(15537, 83) { word var_c36992; { word pd171; word idx172; pd171 = (* (( (ptr) (* (( (ptr) gf_c39456)+120)/* var_c34496 */ ))+6) ); var_c36992 = (word) ( *( (fPt) ((* (ptr) pd171 ))))(( idx172 = (* (( (ptr) gf_c39456)+8)/* defaultTextSize_v3140 */ ), BCK(idx172, 32768) ), pd171); }; { word pd173; pd173 = (* (( (ptr) (* (( (ptr) gf_c39456)+122)/* var_c34720 */ ))+40) ); (* (( (ptr) &var_c39424)+8)/* r_v13824 */ ) = (word) ( *( (fPt) ((* (ptr) pd173 ))))(var_c36992, (* (( (ptr) &var_c39424)+6) ), (* (( (ptr) &var_c39424)+7)/* base_v13796 */ ), 0, pd173); }; }; break; case 8: SOURCE(15630, 163) { word var_c37024; word var_c37056; { word pd174; word idx175; pd174 = (* (( (ptr) (* (( (ptr) gf_c39456)+120)/* var_c34496 */ ))+6) ); var_c37024 = (word) ( *( (fPt) ((* (ptr) pd174 ))))(( idx175 = (* (( (ptr) gf_c39456)+8)/* defaultTextSize_v3140 */ ), BCK(idx175, 32768) ), pd174); }; { /* declaration of var_c06 skipped */ /* declaration of var_c07 skipped */ { W2 D176; XR_DFloatReal(&D176, (* (( (ptr) &var_c39424)+6) )); (* (W2Pt) (( (ptr) &var_c39424)+9)/* var_c06 */ ) = D176; }; (* (( (ptr) &var_c39424)+11)/* var_c07 */ ) = (* (( (ptr) (* (( (ptr) gf_c39456)+126)/* var_c36928 */ ))+6) ); { /* declaration of var_c08 skipped */ (void) (word) XR_Enable(( ((word) (fPt) NoName_Q6708) ), ( ((word) (fPt) NoName_Q7128) ), (word) &var_c39424); var_c37056 = XR_IntDIntI((( (ptr) &var_c39424)+12)/* var_c08 */ ); }; }; { word pd177; pd177 = (* (( (ptr) (* (( (ptr) gf_c39456)+122)/* var_c34720 */ ))+40) ); (* (( (ptr) &var_c39424)+8)/* r_v13824 */ ) = (word) ( *( (fPt) ((* (ptr) pd177 ))))(var_c37024, var_c37056, (* (( (ptr) &var_c39424)+7) /* base_v13796 */ ), 0, pd177); }; }; break; default: SOURCE(15806, 38) { W4 var_c0324; (* (ptr) (word) &var_c0324 ) = 13; (* (( (ptr) (word) &var_c0324) + 1) ) = (* (( (ptr) &var_c39424)+4)/* stream_v9140 */ ); (* (( (ptr) (word) &var_c0324) + 2) ) = 0; (* (( (ptr) (word) &var_c0324) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c39456)+121)/* var_c34528 */ ))+5) ), (word) &var_c0324); }; break; }; }; SOURCE(15846, 40) (void) PrintText_P2580((* (( (ptr) &var_c39424)+8)/* r_v13824 */ ), 0, format_v9196, (* (( (ptr) &var_c39424)+4)/* stream_v9140 */ ), 0) ; } static word NoName_Q6708(formal_c0548) word formal_c0548; { SOURCE(15630, 163) { word pd178; pd178 = (* (( (ptr) formal_c0548)+11) ); (void) ( *( (fPt) ((* (ptr) pd178 ))))((word) (( (bPt) formal_c0548)+48), (* (W2Pt) (( (ptr) formal_c0548)+9) ), pd178) ; }; return(0); } static word NoName_Q6768(formal_c0549) word formal_c0549; { SOURCE(15341, 183) { word pd179; pd179 = (* (( (ptr) formal_c0549)+11) ); (void) ( *( (fPt) ((* (ptr) pd179 ))))((word) (( (bPt) formal_c0549)+48), (* (W2Pt) (( (ptr) formal_c0549)+9) ), pd179) ; }; return(0); } static word NoName_Q6828(formal_c0551) word formal_c0551; { register ptr gf_c0550 = (ptr) &globalframe; SOURCE(15209, 39) { W2 dc_v13880; SOURCE(15209, 39) (void) NegateDIntToDCard_P660((word) &dc_v13880, (* (W2Pt) (* (( (ptr) formal_c0551)+6) ) )); SOURCE(15250, 29) { word pd180; pd180 = (* (( (ptr) (* (( (ptr) gf_c0550)+120)/* var_c34496 */ ))+11) ); (* (( (ptr) formal_c0551)+8) ) = (word) ( *( (fPt) ((* (ptr) pd180 ))))((* (( (ptr) formal_c0551)+8) ), 45, pd180); }; SOURCE(15281, 43) { word pd181; pd181 = (* (( (ptr) (* (( (ptr) gf_c0550)+122)/* var_c34720 */ ))+43) ); (* (( (ptr) formal_c0551)+8) ) = (word) ( *( (fPt) ((* (ptr) pd181 ))))((* (( (ptr) formal_c0551)+8) ), dc_v13880, (* (( (ptr) formal_c0551)+7) ), 0, pd181); }; }; return(0); } static void LooksRoutine_P2160(stream_v9284, val_v9312, format_v9340, char_v9368) word stream_v9284; W2 val_v9312; W2 format_v9340; word char_v9368; { register ptr gf_c39488 = (ptr) &globalframe; /* LooksRoutine: */ SOURCE(15892, 479) SOURCE(15973, 398) { W2 var_c37088; var_c37088 = val_v9312; if ((var_c37088.f0 == 11)) { { W2 ropeVal_v13924; ropeVal_v13924 = var_c37088; SOURCE(16017, 302) { word back_v13968; SOURCE(16019, 35) back_v13968 = (* (( (ptr) stream_v9284)+3) ); SOURCE(16056, 252) lab_L100067: ; if ((back_v13968 != 0)) { } else { goto lab_L100065; }; SOURCE(16076, 190) { word var_c37120; { word pd182; pd182 = (* (( (ptr) (* (( (ptr) gf_c39488)+124)/* var_c35008 */ ))+27) ); var_c37120 = (word) ( *( (fPt) ((* (ptr) pd182 ))))(back_v13968, (* (( (ptr) gf_c39488)+30) ), pd182); }; if ((var_c37120 == 0)) { goto lab_L100068; }; if (((* (( (ptr) gf_c39488)+11) ) == XR_GetReferentType(var_c37120))) { { word pfProcs_v14012; pfProcs_v14012 = var_c37120; SOURCE(16150, 121) { word pp_v14056; SOURCE(16152, 40) pp_v14056 = (* (( (ptr) pfProcs_v14012)+BCK((char_v9368 - 97), 26)) ); SOURCE(16194, 72) if ((pp_v14056 != 0)) { SOURCE(16213, 16) /*1*/ { /*1*/ word pd183; /*1*/ pd183 = (* (( (ptr) (* (( (ptr) gf_c39488)+121)/* var_c34528 */ ))+25) ); /*1*/ (void) ( *( (fPt) ((* (ptr) pd183 ))))(stream_v9284, pd183); /*1*/ }; SOURCE(16231, 27) /*1*/ (void) ( *( (fPt) ((* (ptr) pp_v14056 ))))(back_v13968, val_v9312, format_v9340, char_v9368, pp_v14056); SOURCE(16260, 6) /*1*/ return; /*1*/ }; }; }; } else { lab_L100068: ; }; }; SOURCE(16283, 25) back_v13968 = (* (( (ptr) back_v13968)+3) ); goto lab_L100067; lab_L100065: ; }; }; } else { SOURCE(16333, 38) { W4 var_c0339; (* (ptr) (word) &var_c0339 ) = 13; (* (( (ptr) (word) &var_c0339) + 1) ) = stream_v9284; (* (( (ptr) (word) &var_c0339) + 2) ) = 0; (* (( (ptr) (word) &var_c0339) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c39488)+121)/* var_c34528 */ ))+5) ), (word) &var_c0339); }; }; }; } static void RopeLiteralRoutine_P2220(formal_c0610, val_v9456, format_v9484, char_v9512) word formal_c0610; W2 val_v9456; W2 format_v9484; word char_v9512; { W7 var_c39520; /* declaration of stream_v9428 skipped */ register ptr gf_c39552 = (ptr) &globalframe; /* declaration of var_c37152 skipped */ var_c39520.f4/* stream_v9428 */ = formal_c0610; /* RopeLiteralRoutine: */ SOURCE(16377, 989) { word tmpAddr184; tmpAddr184 = (word) (( (ptr) &var_c39520)+5)/* var_c37152 */ ; (* (ptr) tmpAddr184 ) = ( ((word) (fPt) PutEscape_P4968) ); (* (( (ptr) tmpAddr184) + 1) ) = 1; }; SOURCE(17159, 207) { W2 var_c37184; var_c37184 = val_v9456; { word var_c37280; var_c37280 = var_c37184.f0; if ((var_c37280 == 11)) { { W2 ropeVal_v14248; ropeVal_v14248 = var_c37184; SOURCE(17203, 53) { word var_c37216; word pd185; pd185 = (* (( (ptr) (* (( (ptr) gf_c39552)+125)/* var_c35744 */ ))+26) ); var_c37216 = (word) ( *( (fPt) ((* (ptr) pd185 ))))(ropeVal_v14248.f1, 0, 2147483647, (word) (( (bPt) &var_c39520)+20)/* var_c37152 */ , pd185) ; }; }; } else { if ((var_c37280 == 3)) { { W2 charVal_v14292; charVal_v14292 = var_c37184; SOURCE(17286, 29) { word var_c37248; var_c37248 = (word) PutEscape_P4968(charVal_v14292.f1, (word) (( (bPt) &var_c39520)+20)/* var_c37152 */ ); }; }; } else { SOURCE(17328, 38) { W4 var_c0351; (* (ptr) (word) &var_c0351 ) = 13; (* (( (ptr) (word) &var_c0351) + 1) ) = var_c39520.f4/* stream_v9428 */ ; (* (( (ptr) (word) &var_c0351) + 2) ) = 0; (* (( (ptr) (word) &var_c0351) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c39552)+121)/* var_c34528 */ ))+5) ), (word) &var_c0351); }; }; }; }; }; } static word PutEscape_P4968(c_v14176, formal_c39584) word c_v14176; word formal_c39584; { word var_c14220; formal_c39584 = (formal_c39584 - 20); /* PutEscape: */ SOURCE(16463, 691) SOURCE(16508, 625) if (((c_v14176 - 32) <= 95)) { SOURCE(16537, 66) if ((c_v14176 == 92) || (c_v14176 == 34)) { SOURCE(16564, 39) { word pd186; pd186 = (* (( (ptr) (* (ptr) (* (( (ptr) formal_c39584)+4) ) ))+6) ); (void) ( *( (fPt) ((* (ptr) pd186 ))))((* (( (ptr) formal_c39584)+4) ), 92, pd186); }; }; SOURCE(16606, 37) { word pd187; pd187 = (* (( (ptr) (* (ptr) (* (( (ptr) formal_c39584)+4) ) ))+6) ); (void) ( *( (fPt) ((* (ptr) pd187 ))))((* (( (ptr) formal_c39584)+4) ), c_v14176, pd187); }; } else { SOURCE(16654, 39) { word pd188; pd188 = (* (( (ptr) (* (ptr) (* (( (ptr) formal_c39584)+4) ) ))+6) ); (void) ( *( (fPt) ((* (ptr) pd188 ))))((* (( (ptr) formal_c39584)+4) ), 92, pd188); }; SOURCE(16695, 438) { word var_c37312; var_c37312 = c_v14176; if ((var_c37312 == 10)) { SOURCE(16716, 38) { word pd190; pd190 = (* (( (ptr) (* (ptr) (* (( (ptr) formal_c39584)+4) ) ))+6) ); (void) ( *( (fPt) ((* (ptr) pd190 ))))((* (( (ptr) formal_c39584)+4) ), 110, pd190); }; goto endif0189; }; if ((var_c37312 == 9)) { SOURCE(16763, 38) { word pd191; pd191 = (* (( (ptr) (* (ptr) (* (( (ptr) formal_c39584)+4) ) ))+6) ); (void) ( *( (fPt) ((* (ptr) pd191 ))))((* (( (ptr) formal_c39584)+4) ), 116, pd191); }; goto endif0189; }; if ((var_c37312 == 8)) { SOURCE(16810, 38) { word pd192; pd192 = (* (( (ptr) (* (ptr) (* (( (ptr) formal_c39584)+4) ) ))+6) ); (void) ( *( (fPt) ((* (ptr) pd192 ))))((* (( (ptr) formal_c39584)+4) ), 98, pd192); }; goto endif0189; }; if ((var_c37312 == 12)) { SOURCE(16857, 38) { word pd193; pd193 = (* (( (ptr) (* (ptr) (* (( (ptr) formal_c39584)+4) ) ))+6) ); (void) ( *( (fPt) ((* (ptr) pd193 ))))((* (( (ptr) formal_c39584)+4) ), 102, pd193); }; goto endif0189; }; if ((var_c37312 == 10)) { SOURCE(16904, 38) { word pd194; pd194 = (* (( (ptr) (* (ptr) (* (( (ptr) formal_c39584)+4) ) ))+6) ); (void) ( *( (fPt) ((* (ptr) pd194 ))))((* (( (ptr) formal_c39584)+4) ), 108, pd194); }; goto endif0189; }; SOURCE(16957, 54) { word pd195; pd195 = (* (( (ptr) (* (ptr) (* (( (ptr) formal_c39584)+4) ) ))+6) ); (void) ( *( (fPt) ((* (ptr) pd195 ))))((* (( (ptr) formal_c39584)+4) ), ((c_v14176 >> 6) + 48), pd195); }; SOURCE(17014, 60) { word pd196; pd196 = (* (( (ptr) (* (ptr) (* (( (ptr) formal_c39584)+4) ) ))+6) ); (void) ( *( (fPt) ((* (ptr) pd196 ))))((* (( (ptr) formal_c39584)+4) ), (((c_v14176 & 077) >> 3) + 48), pd196); }; SOURCE(17077, 56) { word pd197; pd197 = (* (( (ptr) (* (ptr) (* (( (ptr) formal_c39584)+4) ) ))+6) ); (void) ( *( (fPt) ((* (ptr) pd197 ))))((* (( (ptr) formal_c39584)+4) ), ((c_v14176 & 7) + 48), pd197); }; goto endif0189; endif0189: ; }; }; SOURCE(17140, 14) return(0); } static void TimeIntervalRoutine_P2280(formal_c0611, val_v9600, format_v9628, char_v9656) word formal_c0611; W2 val_v9600; W2 format_v9628; word char_v9656; { W9 var_c39616; /* declaration of stream_v9572 skipped */ register ptr gf_c39648 = (ptr) &globalframe; word seconds_v14336; W4 period_v14364; word r_v14392 = 0; word han_v14420 = 0; (* (( (ptr) &var_c39616)+4)/* stream_v9572 */ ) = formal_c0611; /* TimeIntervalRoutine: */ SOURCE(17372, 832) SOURCE(17473, 32) period_v14364.f0 = 0; period_v14364.f1 = 0; period_v14364.f2 = 0; period_v14364.f3 = 0; SOURCE(17533, 346) { W2 var_c37376; var_c37376 = val_v9600; { word var_c37408; var_c37408 = var_c37376.f0; switch (var_c37408) { case 4: { W2 v_v14476; v_v14476 = var_c37376; SOURCE(17577, 73) if ((v_v14476.f1 > 2147483647)) { SOURCE(17608, 42) { W4 var_c0366; (* (ptr) (word) &var_c0366 ) = 14; (* (( (ptr) (word) &var_c0366) + 1) ) = (* (( (ptr) &var_c39616)+4)/* stream_v9572 */ ); (* (( (ptr) (word) &var_c0366) + 2) ) = 0; (* (( (ptr) (word) &var_c0366) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c39648)+121)/* var_c34528 */ ))+5) ), (word) &var_c0366); }; }; SOURCE(17652, 17) { word idx198; seconds_v14336 = ( idx198 = (word) v_v14476.f1, SGNCK(idx198) ); }; }; break; case 5: { W2 v_v14520; v_v14520 = var_c37376; SOURCE(17694, 17) seconds_v14336 = v_v14520.f1; }; break; case 8: { /* declaration of v_v14564 skipped */ (* (W2Pt) (( (ptr) &var_c39616)+5)/* v_v14564 */ ) = var_c37376; SOURCE(17730, 98) { /* declaration of var_c09 skipped */ (* (( (ptr) &var_c39616)+7)/* var_c09 */ ) = (* (( (ptr) (* (( (ptr) gf_c39648)+127)/* var_c36960 */ ))+6) ); { /* declaration of var_c010 skipped */ { word var_c0585; var_c0585 = (word) &var_c39616; (void) (word) XR_Enable(( ((word) (fPt) NoName_Q6888) ), ( ((word) (fPt) NoName_Q7068) ), var_c0585); }; seconds_v14336 = (* (( (ptr) &var_c39616)+8)/* var_c010 */ ); }; }; }; break; default: SOURCE(17841, 38) { W4 var_c0369; (* (ptr) (word) &var_c0369 ) = 13; (* (( (ptr) (word) &var_c0369) + 1) ) = (* (( (ptr) &var_c39616)+4)/* stream_v9572 */ ); (* (( (ptr) (word) &var_c0369) + 2) ) = 0; (* (( (ptr) (word) &var_c0369) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c39648)+121)/* var_c34528 */ ))+5) ), (word) &var_c0369); }; break; }; }; }; SOURCE(17881, 40) { word pd199; pd199 = (* (( (ptr) (* (( (ptr) gf_c39648)+128)/* var_c37440 */ ))+25) ); (void) ( *( (fPt) ((* (ptr) pd199 ))))((word) &period_v14364, seconds_v14336, pd199); }; SOURCE(17923, 42) { word pd200; word idx201; pd200 = (* (( (ptr) (* (( (ptr) gf_c39648)+120)/* var_c34496 */ ))+6) ); r_v14392 = (word) ( *( (fPt) ((* (ptr) pd200 ))))(( idx201 = (* (( (ptr) gf_c39648)+8)/* defaultTextSize_v3140 */ ), BCK(idx201, 32768) ), pd200); }; SOURCE(17967, 15) { word pd202; pd202 = (* (( (ptr) (* (( (ptr) gf_c39648)+121)/* var_c34528 */ ))+37) ); han_v14420 = (word) ( *( (fPt) ((* (ptr) pd202 ))))(r_v14392, 0, pd202); }; SOURCE(17984, 43) if ((0 != period_v14364.f3)) { SOURCE(18008, 19) { word pd203; pd203 = (* (( (ptr) (* (( (ptr) gf_c39648)+121)/* var_c34528 */ ))+21) ); (void) ( *( (fPt) ((* (ptr) pd203 ))))(han_v14420, 45, pd203); }; }; SOURCE(18029, 97) { W2 var_c37472; W2 var_c37504; W2 var_c37536; var_c37472.f0 = 5; var_c37472.f1 = period_v14364.f0; var_c37504.f0 = 5; var_c37504.f1 = period_v14364.f1; var_c37536.f0 = 5; var_c37536.f1 = period_v14364.f2; (void) PutF_P1380(han_v14420, (* (( (ptr) gf_c39648)+33) ), var_c37472, var_c37504, var_c37536); }; SOURCE(18128, 21) { word pd204; pd204 = (* (( (ptr) (* (( (ptr) gf_c39648)+121)/* var_c34528 */ ))+38) ); r_v14392 = (word) ( *( (fPt) ((* (ptr) pd204 ))))(han_v14420, pd204); }; SOURCE(18151, 11) { word pd205; pd205 = (* (( (ptr) (* (( (ptr) gf_c39648)+121)/* var_c34528 */ ))+28) ); (void) ( *( (fPt) ((* (ptr) pd205 ))))(han_v14420, 0, pd205); }; SOURCE(18164, 40) (void) PrintText_P2580(r_v14392, 0, format_v9628, (* (( (ptr) &var_c39616)+4)/* stream_v9572 */ ), 0); } static word NoName_Q6888(formal_c0556) word formal_c0556; { SOURCE(17730, 98) { word pd206; pd206 = (* (( (ptr) formal_c0556)+7) ); (* (( (ptr) formal_c0556)+8) ) = (word) ( *( (fPt) ((* (ptr) pd206 ))))((* ((( (ptr) formal_c0556)+6)) ), pd206); }; return(0); } static void TimeRoutine_P2340(formal_c0612, val_v9744, format_v9772, char_v9800) word formal_c0612; W2 val_v9744; W2 format_v9772; word char_v9800; { W9 var_c39680; /* declaration of stream_v9716 skipped */ register ptr gf_c39712 = (ptr) &globalframe; word t_v14608; word text_v14636 = 0; (* (( (ptr) &var_c39680)+4)/* stream_v9716 */ ) = formal_c0612; /* TimeRoutine: */ SOURCE(18210, 915) SOURCE(18329, 520) { W2 var_c37568; var_c37568 = val_v9744; { word var_c37600; var_c37600 = var_c37568.f0; switch (var_c37600) { case 5: { W2 v_v14692; v_v14692 = var_c37568; SOURCE(18370, 66) { word pd207; pd207 = (* (( (ptr) (* (( (ptr) gf_c39712)+128)/* var_c37440 */ ))+17) ); t_v14608 = (word) ( *( (fPt) ((* (ptr) pd207 ))))((* (ptr) (* (( (ptr) (* (( (ptr) gf_c39712)+128)/* var_c37440 */ ))+12) ) ), v_v14692.f1, pd207); }; }; break; case 4: { W2 v_v14736; v_v14736 = var_c37568; SOURCE(18459, 66) { word pd208; word idx209; pd208 = (* (( (ptr) (* (( (ptr) gf_c39712)+128)/* var_c37440 */ ))+17) ); t_v14608 = (word) ( *( (fPt) ((* (ptr) pd208 ))))((* (ptr) (* (( (ptr) (* (( (ptr) gf_c39712)+128)/* var_c37440 */ ))+12) ) ), ( idx209 = (word) v_v14736.f1, SGNCK(idx209) ), pd208); }; }; break; case 8: { /* declaration of v_v14780 skipped */ (* (W2Pt) (( (ptr) &var_c39680)+5)/* v_v14780 */ ) = var_c37568; SOURCE(18544, 223) { word li_v14824; SOURCE(18546, 53) { /* declaration of var_c011 skipped */ (* (( (ptr) &var_c39680)+7)/* var_c011 */ ) = (* (( (ptr) (* (( (ptr) gf_c39712)+127)/* var_c36960 */ ))+6) ); { /* declaration of var_c012 skipped */ { /*1*/ word var_c0586; /*1*/ var_c0586 = (word) &var_c39680; /*1*/ (void) (word) XR_Enable(( ((word) (fPt) NoName_Q6948) ), ( ((word) (fPt) NoName_Q7008) ), var_c0586); /*1*/ }; li_v14824 = (* (( (ptr) &var_c39680)+8)/* var_c012 */ ); }; }; SOURCE(18645, 57) if (( (int)li_v14824 < (int)0)) { SOURCE(18660, 42) { W4 var_c0386; (* (ptr) (word) &var_c0386 ) = 14; (* (( (ptr) (word) &var_c0386) + 1) ) = (* (( (ptr) &var_c39680)+4)/* stream_v9716 */ ); (* (( (ptr) (word) &var_c0386) + 2) ) = 0; (* (( (ptr) (word) &var_c0386) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c39712)+121)/* var_c34528 */ ))+5) ), (word) &var_c0386); }; }; SOURCE(18704, 61) { word pd210; pd210 = (* (( (ptr) (* (( (ptr) gf_c39712)+128)/* var_c37440 */ ))+17) ); t_v14608 = (word) ( *( (fPt) ((* (ptr) pd210 ))))((* (ptr) (* (( (ptr) (* (( (ptr) gf_c39712)+128)/* var_c37440 */ ))+12) ) ), li_v14824, pd210); }; }; }; break; case 13: { W2 v_v14868; v_v14868 = var_c37568; SOURCE(18787, 11) t_v14608 = v_v14868.f1; }; break; default: SOURCE(18811, 38) { W4 var_c0388; (* (ptr) (word) &var_c0388 ) = 13; (* (( (ptr) (word) &var_c0388) + 1) ) = (* (( (ptr) &var_c39680)+4)/* stream_v9716 */ ); (* (( (ptr) (word) &var_c0388) + 2) ) = 0; (* (( (ptr) (word) &var_c0388) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c39712)+121)/* var_c34528 */ ))+5) ), (word) &var_c0388); }; break; }; }; }; SOURCE(18851, 45) { word pd211; word idx212; pd211 = (* (( (ptr) (* (( (ptr) gf_c39712)+120)/* var_c34496 */ ))+6) ); text_v14636 = (word) ( *( (fPt) ((* (ptr) pd211 ))))(( idx212 = (* (( (ptr) gf_c39712)+8)/* defaultTextSize_v3140 */ ), BCK(idx212, 32768) ), pd211); }; SOURCE(18898, 182) { word var_c37632; var_c37632 = char_v9800; if ((var_c37632 == 117)) { SOURCE(18921, 72) { word pd213; pd213 = (* (( (ptr) (* (( (ptr) gf_c39712)+122)/* var_c34720 */ ))+47) ); text_v14636 = (word) ( *( (fPt) ((* (ptr) pd213 ))))(text_v14636, t_v14608, 1, 0, 0, pd213); }; } else { SOURCE(19006, 74) { word pd214; pd214 = (* (( (ptr) (* (( (ptr) gf_c39712)+122)/* var_c34720 */ ))+45) ); text_v14636 = (word) ( *( (fPt) ((* (ptr) pd214 ))))(text_v14636, t_v14608, 0, 5, 0, 1 , 1, pd214); }; }; }; SOURCE(19082, 43) (void) PrintText_P2580(text_v14636, 0, format_v9772, (* (( (ptr) &var_c39680)+4)/* stream_v9716 */ ), 0); } static word NoName_Q6948(formal_c0558) word formal_c0558; { SOURCE(18546, 53) { word pd215; pd215 = (* (( (ptr) formal_c0558)+7) ); (* (( (ptr) formal_c0558)+8) ) = (word) ( *( (fPt) ((* (ptr) pd215 ))))((* ((( (ptr) formal_c0558)+6)) ), pd215); }; return(0); } static void FlonumRoutine_P2400(stream_v27180, val_v27208, format_v27236, char_v27264) word stream_v27180; W2 val_v27208; W2 format_v27236; word char_v27264; { register ptr gf_c39744 = (ptr) &globalframe; word leadingMinus_v14912 = 0; word leadingZero_v14940 = 0; word fieldWidth_v14968 = (word) -1; word numDigits_v14996 = (word) -1; /* FlonumRoutine: */ SOURCE(19131, 962) SOURCE(19267, 91) { W4 var_c37664; (void) ParseFormat_P1800((word) &var_c37664, format_v27236.f0, format_v27236.f1); numDigits_v14996 = var_c37664.f3; fieldWidth_v14968 = var_c37664.f2; leadingZero_v14940 = var_c37664.f1; leadingMinus_v14912 = var_c37664.f0; }; SOURCE(19360, 108) { word var_c37696; var_c37696 = numDigits_v14996; if (( (int)var_c37696 < (int)0)) { SOURCE(19389, 13) numDigits_v14996 = 2; } else { if (( (int)var_c37696 > (int)9)) { SOURCE(19433, 35) numDigits_v14996 = 9; }; }; }; SOURCE(19479, 614) { W2 var_c37728; var_c37728 = val_v27208; if ((var_c37728.f0 == 8)) { { W2 r_v15040; r_v15040 = var_c37728; SOURCE(19520, 527) { word proc_v15084; word scratch_v15112; word buffer_v15140; word rLen_v15168; word diff_v15196; SOURCE(19522, 12) { word var_c37760; var_c37760 = char_v27264; if ((var_c37760 == 101)) { proc_v15084 = (* (( (ptr) (* (( (ptr) gf_c39744)+122)/* var_c34720 */ ))+55) ); } else { if ((var_c37760 == 102)) { proc_v15084 = (* (( (ptr) (* (( (ptr) gf_c39744)+122)/* var_c34720 */ ))+53) ); } else { proc_v15084 = ( XR_RaiseUnnamedError(), 0 ); }; }; }; SOURCE(19682, 58) { word pd216; word idx217; pd216 = (* (( (ptr) (* (( (ptr) gf_c39744)+120)/* var_c34496 */ ))+6) ); scratch_v15112 = (word) ( *( (fPt) ((* (ptr) pd216 ))))(( idx217 = (* (( (ptr) gf_c39744)+8)/* defaultTextSize_v3140 */ ), BCK(idx217, 32768) ), pd216); }; SOURCE(19742, 52) buffer_v15140 = (word) ( *( (fPt) ((* (ptr) proc_v15084 ))))(scratch_v15112, r_v15040.f1, BCK(numDigits_v14996, 10), proc_v15084) ; SOURCE(19796, 25) rLen_v15168 = (* (hPt) buffer_v15140 ); SOURCE(19823, 33) diff_v15196 = (fieldWidth_v14968 - rLen_v15168); SOURCE(19858, 64) if ( ( ( (int)diff_v15196 > (int)0) ? (0 == leadingMinus_v14912) : 0 ) ) { SOURCE(19896, 26) (void) PutChars_P2460(stream_v27180, SGNCK(diff_v15196), 32); }; SOURCE(19924, 26) { word pd218; pd218 = (* (( (ptr) (* (( (ptr) gf_c39744)+121)/* var_c34528 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd218 ))))(stream_v27180, buffer_v15140, pd218); }; SOURCE(19952, 60) if ( ( ( (int)diff_v15196 > (int)0) ? (0 != leadingMinus_v14912) : 0 ) ) { SOURCE(19986, 26) (void) PutChars_P2460(stream_v27180, SGNCK(diff_v15196), 32); }; SOURCE(20014, 31) { word pd219; pd219 = (* (( (ptr) (* (( (ptr) gf_c39744)+120)/* var_c34496 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd219 ))))(scratch_v15112, pd219); }; }; }; } else { SOURCE(20061, 32) (void) PutChars_P2460(stream_v27180, SGNCK(fieldWidth_v14968), 33); }; }; } static void PutChars_P2460(st_v9860, chars_v9888, char_v9916) word st_v9860; word chars_v9888; word char_v9916; { register ptr gf_c39776 = (ptr) &globalframe; /* PutChars: */ SOURCE(20100, 98) SOURCE(20156, 42) { register word noName_c37792 = 0; register word noName_c37824; noName_c37824 = chars_v9888; if ((noName_c37792 >= noName_c37824)) { goto lab_L100073; }; lab_L100076: ; SOURCE(20178, 20) { word pd220; pd220 = (* (( (ptr) (* (( (ptr) gf_c39776)+121)/* var_c34528 */ ))+21) ); (void) ( *( (fPt) ((* (ptr) pd220 ))))(st_v9860, char_v9916, pd220); }; noName_c37792 = (noName_c37792 + 1); if ((noName_c37792 < noName_c37824)) { goto lab_L100076; }; lab_L100073: ; }; } static word AppendChars_P2520(text_v9976, chars_v10004, char_v10032) word text_v9976; word chars_v10004; word char_v10032; { register ptr gf_c39808 = (ptr) &globalframe; word var_c10088; /* AppendChars: */ SOURCE(20213, 165) SOURCE(20295, 59) { register word noName_c37856 = 0; register word noName_c37888; noName_c37888 = chars_v10004; if ((noName_c37856 >= noName_c37888)) { goto lab_L100077; }; lab_L100080: ; SOURCE(20317, 37) { word pd221; pd221 = (* (( (ptr) (* (( (ptr) gf_c39808)+120)/* var_c34496 */ ))+11) ); text_v9976 = (word) ( *( (fPt) ((* (ptr) pd221 ))))(text_v9976, char_v10032, pd221); }; noName_c37856 = (noName_c37856 + 1); if ((noName_c37856 < noName_c37888)) { goto lab_L100080; }; lab_L100077: ; }; SOURCE(20365, 13) return(text_v9976); } static void PrintText_P2580(text_v10160, rp_v10188, format_v10216, formal_c0613, visiblecc_v10272) word text_v10160; word rp_v10188; W2 format_v10216; word formal_c0613; word visiblecc_v10272; { W7 var_c39840; /* declaration of stream_v10244 skipped */ register ptr gf_c39872 = (ptr) &globalframe; /* declaration of var_c37920 skipped */ word fillChar_v15496 = 32; word ladj_v15524 = 0; word w_v15552; word k_v15580; word tlength_v15608; word c_v15636 = 0; word formatPtr_v15664; var_c39840.f4/* stream_v10244 */ = formal_c0613; /* PrintText: */ SOURCE(20384, 1331) { word tmpAddr222; tmpAddr222 = (word) (( (ptr) &var_c39840)+5)/* var_c37920 */ ; (* (ptr) tmpAddr222 ) = ( ((word) (fPt) MyPut_P5604) ); (* (( (ptr) tmpAddr222) + 1) ) = 1; }; SOURCE(20660, 29) formatPtr_v15664 = format_v10216.f1; SOURCE(20793, 63) if ((text_v10160 != 0)) { SOURCE(20810, 27) tlength_v15608 = (* (hPt) text_v10160 ); } else { SOURCE(20837, 19) { word pd223; word idx224; pd223 = (* (( (ptr) (* (( (ptr) gf_c39872)+125)/* var_c35744 */ ))+15) ); tlength_v15608 = ( idx224 = (word) ( *( (fPt) ((* (ptr) pd223 ))))(rp_v10188, pd223), SGNCK(idx224) ); }; }; SOURCE(20858, 19) SOURCE(20728, 32) { word pd225; pd225 = (* (( (ptr) (* (( (ptr) gf_c39872)+125)/* var_c35744 */ ))+9) ); c_v15636 = (word) ( *( (fPt) ((* (ptr) pd225 ))))(format_v10216.f0, formatPtr_v15664, pd225); }; SOURCE(20762, 26) formatPtr_v15664 = (formatPtr_v15664 + 1); SOURCE(20879, 114) { word var_c37952; if (((c_v15636 - 65) <= 25)) { var_c37952 = (c_v15636 + 32); } else { var_c37952 = c_v15636; }; if ((var_c37952 == 48)) { SOURCE(20914, 13) fillChar_v15496 = 48; SOURCE(20929, 20) SOURCE(20728, 32) { word pd226; pd226 = (* (( (ptr) (* (( (ptr) gf_c39872)+125)/* var_c35744 */ ))+9) ); c_v15636 = (word) ( *( (fPt) ((* (ptr) pd226 ))))(format_v10216.f0, formatPtr_v15664, pd226); }; SOURCE(20762, 26) formatPtr_v15664 = (formatPtr_v15664 + 1); } else { if ((var_c37952 == 45)) { SOURCE(20960, 11) ladj_v15524 = 1; SOURCE(20973, 20) SOURCE(20728, 32) { word pd227; pd227 = (* (( (ptr) (* (( (ptr) gf_c39872)+125)/* var_c35744 */ ))+9) ); c_v15636 = (word) ( *( (fPt) ((* (ptr) pd227 ))))(format_v10216.f0, formatPtr_v15664, pd227); }; SOURCE(20762, 26) formatPtr_v15664 = (formatPtr_v15664 + 1); }; }; }; SOURCE(21005, 5) w_v15552 = 0; SOURCE(21012, 78) lab_L100083: ; SOURCE(21015, 75) { word var_c37984; var_c37984 = c_v15636; if (((var_c37984 - 48) <= 9)) { SOURCE(21048, 19) w_v15552 = ((w_v15552 * 10) + (c_v15636 - 48)); SOURCE(21070, 20) SOURCE(20728, 32) { word pd228; pd228 = (* (( (ptr) (* (( (ptr) gf_c39872)+125)/* var_c35744 */ ))+9) ); c_v15636 = (word) ( *( (fPt) ((* (ptr) pd228 ))))(format_v10216.f0, formatPtr_v15664, pd228); }; SOURCE(20762, 26) formatPtr_v15664 = (formatPtr_v15664 + 1); } else { SOURCE(21104, 4) goto lab_L100082; }; }; goto lab_L100083; lab_L100082: ; SOURCE(21119, 102) { word var_c38016; if (((c_v15636 - 65) <= 25)) { var_c38016 = (c_v15636 + 32); } else { var_c38016 = c_v15636; }; if ((var_c38016 == 46) || ((var_c38016 - 97) <= 25)) { } else { SOURCE(21184, 37) { W4 var_c0436; (* (ptr) (word) &var_c0436 ) = 12; (* (( (ptr) (word) &var_c0436) + 1) ) = var_c39840.f4/* stream_v10244 */ ; (* (( (ptr) (word) &var_c0436) + 2) ) = 0; (* (( (ptr) (word) &var_c0436) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c39872)+121)/* var_c34528 */ ))+5) ), (word) &var_c0436); }; }; }; SOURCE(21223, 65) if ((w_v15552 < tlength_v15608)) { SOURCE(21245, 11) w_v15552 = tlength_v15608; SOURCE(21258, 5) k_v15580 = 0; } else { SOURCE(21272, 16) k_v15580 = (w_v15552 - tlength_v15608); }; SOURCE(21291, 50) if ((0 == ladj_v15524)) { SOURCE(21308, 33) { register word noName_c38048 = 1; register word noName_c38080; noName_c38080 = k_v15580; if ((noName_c38048 > noName_c38080)) { goto lab_L100084; }; lab_L100087: ; SOURCE(21326, 15) (void) MyPut_P5604(fillChar_v15496, (word) (( (bPt) &var_c39840)+20)/* var_c37920 */ ); if ((noName_c38048 >= noName_c38080)) { goto lab_L100084; }; noName_c38048 = (noName_c38048 + 1); goto lab_L100087; lab_L100084: ; }; }; SOURCE(21352, 263) if ((0 != visiblecc_v10272)) { SOURCE(21372, 155) { register word j_v15812 = 0; register word noName_c38112; noName_c38112 = tlength_v15608; if ((j_v15812 >= noName_c38112)) { goto lab_L100088; }; lab_L100091: ; SOURCE(21402, 45) { word limit229; word pd230; if ((text_v10160 != 0)) { c_v15636 = (word) (* ((( (bPt) text_v10160)+4)+( limit229 = (word) (* (( (hPt) text_v10160)+1) ), BCK(j_v15812, limit229) )) ); } else { pd230 = (* (( (ptr) (* (( (ptr) gf_c39872)+125)/* var_c35744 */ ))+9) ); c_v15636 = (word) ( *( (fPt) ((* (ptr) pd230 ))))(rp_v10188, j_v15812, pd230); }; }; SOURCE(21449, 78) if ((c_v15636 < 32)) { SOURCE(21467, 9) (void) MyPut_P5604(94, (word) (( (bPt) &var_c39840)+20)/* var_c37920 */ ); SOURCE(21478, 34) (void) MyPut_P5604(BCK((c_v15636 + 64), 256), (word) (( (bPt) &var_c39840)+20)/* var_c37920 */ ); } else { SOURCE(21519, 8) (void) MyPut_P5604(c_v15636, (word) (( (bPt) &var_c39840)+20)/* var_c37920 */ ); }; j_v15812 = (j_v15812 + 1); if ((j_v15812 < noName_c38112)) { goto lab_L100091; }; lab_L100088: ; }; } else { SOURCE(21546, 69) if ((text_v10160 != 0)) { SOURCE(21563, 30) { word pd231; pd231 = (* (( (ptr) (* (( (ptr) gf_c39872)+121)/* var_c34528 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd231 ))))(var_c39840.f4/* stream_v10244 */ , text_v10160, pd231); }; } else { SOURCE(21593, 22) { word pd232; pd232 = (* (( (ptr) (* (( (ptr) gf_c39872)+121)/* var_c34528 */ ))+93) ); (void) ( *( (fPt) ((* (ptr) pd232 ))))(var_c39840.f4/* stream_v10244 */ , rp_v10188, 0, 2147483647, pd232); }; }; }; SOURCE(21620, 48) if ((0 != ladj_v15524)) { SOURCE(21633, 35) { register word noName_c38144 = 1; register word noName_c38176; noName_c38176 = k_v15580; if ((noName_c38144 > noName_c38176)) { goto lab_L100092; }; lab_L100095: ; SOURCE(21651, 17) (void) MyPut_P5604(32, (word) (( (bPt) &var_c39840)+20)/* var_c37920 */ ); if ((noName_c38144 >= noName_c38176)) { goto lab_L100092; }; noName_c38144 = (noName_c38144 + 1); goto lab_L100095; lab_L100092: ; }; }; SOURCE(21670, 45) if ((text_v10160 != 0)) { SOURCE(21687, 28) { word pd233; pd233 = (* (( (ptr) (* (( (ptr) gf_c39872)+120)/* var_c34496 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd233 ))))(text_v10160, pd233); }; }; } static void MyPut_P5604(c_v15768, formal_c39904) word c_v15768; word formal_c39904; { formal_c39904 = (formal_c39904 - 20); /* MyPut: */ SOURCE(20480, 54) SOURCE(20506, 28) { word self_v32756; word char_v32784; self_v32756 = (* (( (ptr) formal_c39904)+4) ); char_v32784 = c_v15768; { word i_v21288; i_v21288 = (* (( (ptr) self_v32756)+7) ); { word pd235; if ((i_v21288 < (* (( (ptr) self_v32756)+6) ))) { (* (( (ptr) self_v32756)+7) ) = (i_v21288 + 1); { word var_c38208; var_c38208 = (* (( (ptr) self_v32756)+4) ); { word limit234; (* ((( (bPt) var_c38208)+4)+( limit234 = (word) (* (( (hPt) var_c38208)+1) ), BCK(i_v21288, limit234) )) ) = char_v32784; }; }; } else { pd235 = (* (( (ptr) (* (ptr) self_v32756 ))+6) ); (void) ( *( (fPt) ((* (ptr) pd235 ))))(self_v32756, char_v32784, pd235); }; }; }; }; } static void Create_P2640() { register ptr gf_c39936 = (ptr) &globalframe; /* Create: */ SOURCE(21720, 792) (void) (XR_MonitorEntry((word) (( (bPt) gf_c39936)+16)/* LOCK_v2944 */ )); SOURCE(21746, 39) (* (( (ptr) gf_c39936)+10)/* globalPFProcs_v3644 */ ) = XR_NewObject(108, (* (( (ptr) gf_c39936)+11) )); SOURCE(21787, 44) (* (( (ptr) (* (( (ptr) gf_c39936)+10)/* globalPFProcs_v3644 */ ))+26) ) = (word) (( (bPt) gf_c39936)+240)/* var_c33248 */ ; SOURCE(21833, 43) (* (ptr) (* (( (ptr) gf_c39936)+10)/* globalPFProcs_v3644 */ ) ) = (word) (( (bPt) gf_c39936)+216)/* var_c33152 */ ; SOURCE(21878, 43) (* (( (ptr) (* (( (ptr) gf_c39936)+10)/* globalPFProcs_v3644 */ ))+1) ) = (word) (( (bPt) gf_c39936)+208)/* var_c33120 */ ; SOURCE(21923, 43) (* (( (ptr) (* (( (ptr) gf_c39936)+10)/* globalPFProcs_v3644 */ ))+2) ) = (word) (( (bPt) gf_c39936)+216)/* var_c33152 */ ; SOURCE(21968, 43) (* (( (ptr) (* (( (ptr) gf_c39936)+10)/* globalPFProcs_v3644 */ ))+3) ) = (word) (( (bPt) gf_c39936)+208)/* var_c33120 */ ; SOURCE(22013, 43) (* (( (ptr) (* (( (ptr) gf_c39936)+10)/* globalPFProcs_v3644 */ ))+4) ) = (word) (( (bPt) gf_c39936)+168)/* var_c32960 */ ; SOURCE(22058, 43) (* (( (ptr) (* (( (ptr) gf_c39936)+10)/* globalPFProcs_v3644 */ ))+5) ) = (word) (( (bPt) gf_c39936)+168)/* var_c32960 */ ; SOURCE(22103, 43) (* (( (ptr) (* (( (ptr) gf_c39936)+10)/* globalPFProcs_v3644 */ ))+6) ) = (word) (( (bPt) gf_c39936)+216)/* var_c33152 */ ; SOURCE(22148, 43) (* (( (ptr) (* (( (ptr) gf_c39936)+10)/* globalPFProcs_v3644 */ ))+7) ) = (word) (( (bPt) gf_c39936)+216)/* var_c33152 */ ; SOURCE(22193, 42) (* (( (ptr) (* (( (ptr) gf_c39936)+10)/* globalPFProcs_v3644 */ ))+11) ) = (word) (( (bPt) gf_c39936)+200)/* var_c33088 */ ; SOURCE(22237, 48) (* (( (ptr) (* (( (ptr) gf_c39936)+10)/* globalPFProcs_v3644 */ ))+16) ) = (word) (( (bPt) gf_c39936)+192)/* var_c33056 */ ; SOURCE(22287, 49) (* (( (ptr) (* (( (ptr) gf_c39936)+10)/* globalPFProcs_v3644 */ ))+17) ) = (word) (( (bPt) gf_c39936)+184)/* var_c33024 */ ; SOURCE(22338, 43) (* (( (ptr) (* (( (ptr) gf_c39936)+10)/* globalPFProcs_v3644 */ ))+18) ) = (word) (( (bPt) gf_c39936)+216)/* var_c33152 */ ; SOURCE(22383, 41) (* (( (ptr) (* (( (ptr) gf_c39936)+10)/* globalPFProcs_v3644 */ ))+19) ) = (word) (( (bPt) gf_c39936)+176)/* var_c32992 */ ; SOURCE(22426, 41) (* (( (ptr) (* (( (ptr) gf_c39936)+10)/* globalPFProcs_v3644 */ ))+20) ) = (word) (( (bPt) gf_c39936)+176)/* var_c32992 */ ; SOURCE(22469, 43) (* (( (ptr) (* (( (ptr) gf_c39936)+10)/* globalPFProcs_v3644 */ ))+23) ) = (word) (( (bPt) gf_c39936)+208)/* var_c33120 */ ; SOURCE(21720, 792) (void) (XR_MonitorExit((word) (( (bPt) gf_c39936)+16)/* LOCK_v2944 */ )); return; } static void NoName_Q7008(formal_c0456, formal_c200028, formal_c200029, formal_c200030, formal_c200031) word formal_c0456; word formal_c200028; word formal_c200029; word formal_c200030; word formal_c200031; { register ptr gf_c0565 = (ptr) &globalframe; if ((formal_c200029 == (* (( (ptr) (* (( (ptr) gf_c0565)+127)/* var_c36960 */ ))+11) ))) { { word flags_v32188; word vp_v32216; word clientFixup_v32260; flags_v32188 = (* (ptr) formal_c200031 ); vp_v32216 = (* (( (ptr) formal_c200031)+1) ); clientFixup_v32260 = 0; SOURCE(18599, 44) { W4 var_c0455; (* (ptr) (word) &var_c0455 ) = 14; (* (( (ptr) (word) &var_c0455) + 1) ) = (* (( (ptr) formal_c200028)+4) ); (* (( (ptr) (word) &var_c0455) + 2) ) = 0; (* (( (ptr) (word) &var_c0455) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c0565)+121)/* var_c34528 */ ))+5) ), (word) &var_c0455); }; }; }; (* (ptr) formal_c0456 ) = 0; (* (( (ptr) formal_c0456)+1) ) = 0; return; } static void NoName_Q7068(formal_c0465, formal_c200024, formal_c200025, formal_c200026, formal_c200027) word formal_c0465; word formal_c200024; word formal_c200025; word formal_c200026; word formal_c200027; { register ptr gf_c0566 = (ptr) &globalframe; if ((formal_c200025 == (* (( (ptr) (* (( (ptr) gf_c0566)+127)/* var_c36960 */ ))+11) ))) { { word flags_v32044; word vp_v32072; word clientFixup_v32116; flags_v32044 = (* (ptr) formal_c200027 ); vp_v32072 = (* (( (ptr) formal_c200027)+1) ); clientFixup_v32116 = 0; SOURCE(17783, 45) { W4 var_c0464; (* (ptr) (word) &var_c0464 ) = 14; (* (( (ptr) (word) &var_c0464) + 1) ) = (* (( (ptr) formal_c200024)+4) ); (* (( (ptr) (word) &var_c0464) + 2) ) = 0; (* (( (ptr) (word) &var_c0464) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c0566)+121)/* var_c34528 */ ))+5) ), (word) &var_c0464); }; }; }; (* (ptr) formal_c0465 ) = 0; (* (( (ptr) formal_c0465)+1) ) = 0; return; } static void NoName_Q7128(formal_c0474, formal_c200020, formal_c200021, formal_c200022, formal_c200023) word formal_c0474; word formal_c200020; word formal_c200021; word formal_c200022; word formal_c200023; { register ptr gf_c0567 = (ptr) &globalframe; if ((formal_c200021 == (* (( (ptr) (* (( (ptr) gf_c0567)+127)/* var_c36960 */ ))+11) ))) { { word flags_v31680; word vp_v31708; word clientFixup_v31752; flags_v31680 = (* (ptr) formal_c200023 ); vp_v31708 = (* (( (ptr) formal_c200023)+1) ); clientFixup_v31752 = 0; SOURCE(15736, 57) { W4 var_c0473; (* (ptr) (word) &var_c0473 ) = 14; (* (( (ptr) (word) &var_c0473) + 1) ) = (* (( (ptr) formal_c200020)+4) ); (* (( (ptr) (word) &var_c0473) + 2) ) = 0; (* (( (ptr) (word) &var_c0473) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c0567)+121)/* var_c34528 */ ))+5) ), (word) &var_c0473); }; }; }; (* (ptr) formal_c0474 ) = 0; (* (( (ptr) formal_c0474)+1) ) = 0; return; } static void NoName_Q7188(formal_c0483, formal_c200016, formal_c200017, formal_c200018, formal_c200019) word formal_c0483; word formal_c200016; word formal_c200017; word formal_c200018; word formal_c200019; { register ptr gf_c0568 = (ptr) &globalframe; if ((formal_c200017 == (* (( (ptr) (* (( (ptr) gf_c0568)+127)/* var_c36960 */ ))+11) ))) { { word flags_v31548; word vp_v31576; word clientFixup_v31620; flags_v31548 = (* (ptr) formal_c200019 ); vp_v31576 = (* (( (ptr) formal_c200019)+1) ); clientFixup_v31620 = 0; SOURCE(15459, 65) { W4 var_c0482; (* (ptr) (word) &var_c0482 ) = 14; (* (( (ptr) (word) &var_c0482) + 1) ) = (* (( (ptr) formal_c200016)+4) ); (* (( (ptr) (word) &var_c0482) + 2) ) = 0; (* (( (ptr) (word) &var_c0482) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c0568)+121)/* var_c34528 */ ))+5) ), (word) &var_c0482); }; }; }; (* (ptr) formal_c0483 ) = 0; (* (( (ptr) formal_c0483)+1) ) = 0; return; } static void NoName_Q7248(formal_c0489, formal_c200012, formal_c200013, formal_c200014, formal_c200015) word formal_c0489; word formal_c200012; word formal_c200013; word formal_c200014; word formal_c200015; { register ptr gf_c0569 = (ptr) &globalframe; if ((formal_c200013 == (* (( (ptr) (* (( (ptr) gf_c0569)+123)/* var_c34784 */ ))+8) ))) { SOURCE(15171, 36) { W4 var_c0488; (* (ptr) (word) &var_c0488 ) = 14; (* (( (ptr) (word) &var_c0488) + 1) ) = (* (( (ptr) formal_c200012)+4) ); (* (( (ptr) (word) &var_c0488) + 2) ) = 0; (* (( (ptr) (word) &var_c0488) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c0569)+121)/* var_c34528 */ ))+5) ), (word) &var_c0488); }; }; (* (ptr) formal_c0489 ) = 0; (* (( (ptr) formal_c0489)+1) ) = 0; return; } static void NoName_Q7308(formal_c0495, formal_c200008, formal_c200009, formal_c200010, formal_c200011) word formal_c0495; word formal_c200008; word formal_c200009; word formal_c200010; word formal_c200011; { register ptr gf_c0570 = (ptr) &globalframe; if ((formal_c200009 == (* (( (ptr) (* (( (ptr) gf_c0570)+123)/* var_c34784 */ ))+8) ))) { SOURCE(13719, 36) { W4 var_c0494; (* (ptr) (word) &var_c0494 ) = 14; (* (( (ptr) (word) &var_c0494) + 1) ) = (* (( (ptr) formal_c200008)+4) ); (* (( (ptr) (word) &var_c0494) + 2) ) = 0; (* (( (ptr) (word) &var_c0494) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c0570)+121)/* var_c34528 */ ))+5) ), (word) &var_c0494); }; }; (* (ptr) formal_c0495 ) = 0; (* (( (ptr) formal_c0495)+1) ) = 0; return; } static void NoName_Q7368(formal_c0504, formal_c200004, formal_c200005, formal_c200006, formal_c200007) word formal_c0504; word formal_c200004; word formal_c200005; word formal_c200006; word formal_c200007; { register ptr gf_c0571 = (ptr) &globalframe; if ((formal_c200005 == (* (( (ptr) (* (( (ptr) gf_c0571)+121)/* var_c34528 */ ))+5) ))) { { word ec_v31372; word stream_v31400; word details_v31428; word msg_v31456; ec_v31372 = (* (ptr) formal_c200007 ); stream_v31400 = (* (( (ptr) formal_c200007)+1) ); details_v31428 = (* (( (ptr) formal_c200007)+2) ); msg_v31456 = (* (( (ptr) formal_c200007)+3) ); SOURCE(11271, 75) if (((ec_v31372 - 11) <= 3)) { SOURCE(11336, 10) (* (( (ptr) formal_c200004)+5) ) = ec_v31372; SOURCE(11348, 17) (* (ptr) formal_c0504 ) = 2; (* (( (ptr) formal_c0504)+1) ) = 2; return; }; }; }; (* (ptr) formal_c0504 ) = 0; (* (( (ptr) formal_c0504)+1) ) = 0; return; } static void NoName_Q7428(formal_c0510, formal_c200000, formal_c200001, formal_c200002, formal_c200003) word formal_c0510; word formal_c200000; word formal_c200001; word formal_c200002; word formal_c200003; { register ptr gf_c0572 = (ptr) &globalframe; if ((formal_c200001 == (* (( (ptr) (* (( (ptr) gf_c0572)+123)/* var_c34784 */ ))+8) ))) { SOURCE(3620, 36) { W4 var_c0509; (* (ptr) (word) &var_c0509 ) = 14; (* (( (ptr) (word) &var_c0509) + 1) ) = (* (( (ptr) formal_c200000)+4) ); (* (( (ptr) (word) &var_c0509) + 2) ) = 0; (* (( (ptr) (word) &var_c0509) + 3) ) = 0; (void) XR_RaiseError((* (( (ptr) (* (( (ptr) gf_c0572)+121)/* var_c34528 */ ))+5) ), (word) &var_c0509); }; }; (* (ptr) formal_c0510 ) = 0; (* (( (ptr) formal_c0510)+1) ) = 0; return; } /* file: IOPrintImpl, module: IOPrintImpl, compiled at: September 17, 1992 9:58:19 pm PDT */ extern void XR_install_IOPrintImpl() { NoName_Q6468(); } extern void XR_run_IOPrintImpl() { XR_Start(&globalframe); }