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