/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation. All rights reserved. */
/* time: March 20, 1992 12:40:55 pm PST */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: EchoStreamImpl, module: EchoStreamImpl */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [3454592001,1892699241] EchoStreamImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {W8 f; W8 r;} W16;
typedef struct {word f0, f1, f2;} W3;
typedef struct {W16 f; W3 r;} W19;
typedef word (*fPt)();
typedef struct {word f0, f1;} W2;
typedef struct {W8 f; W2 r;} W10;
typedef struct {word f0, f1, f2, f3, f4, f5;} W6;
typedef struct {W8 f; W6 r;} W14;
typedef W3 *W3Pt;
typedef struct {W8 f; word r;} W9;
typedef struct {word f0, f1, f2, f3;} W4;
#define SOURCE(p, l) /* source p, l */
#define MIN(cast, x, y) ( ( cast x) < ( cast y) ? (x) : (y) )
static void NoName←Q660();
static void EchoStreamImpl←P0();
static word CreateEchoStream←P60();
static word GetChar←P120();
static word NoName←Q720();
static word NoName←Q780();
static word UnsafeGetBlock←P180();
static word NoName←Q840();
static word NoName←Q900();
static word EndOf←P240();
static word NoName←Q960();
static word CharsAvail←P300();
static word NoName←Q1020();
static void Backup←P360();
static word NoName←Q1080();
static word NoName←Q1140();
static void Reset←P420();
static word NoName←Q1200();
static word NoName←Q1260();
static void Close←P480();
static word NoName←Q1320();
static word NoName←Q1380();
static word GetIndex←P540();
static word GetLength←P600();
static word NoName←Q1440();
static void NoName←Q1500();
static void NoName←Q1560();
static void NoName←Q1620();
static void NoName←Q1680();
static void NoName←Q1740();
static void NoName←Q1800();
static void NoName←Q1860();
static void NoName←Q1920();
static void NoName←Q1980();
static void NoName←Q2040();
static void NoName←Q2100();
static void NoName←Q2160();
static void NoName←Q2220();
static struct {unsigned f; char r[4];} string1 = {131076, "\216\251\000"};
static struct {unsigned f; char r[4];} string2 = {65537, "\001\000\000"};
static struct {unsigned f; char r[16];} string3 = {851984, "\257\300\315\350\344\001\300\160\320\114\151\100\200\000\000"};
static struct {unsigned f; char r[4];} string4 = {131074, "\004\003\000"};
static struct {unsigned f; char r[8];} string5 = {262152, "Echo\000\000\000"};
static struct {unsigned f; char r[16];} string6 = {851984, "\257\300\315\350\344\001\300\160\320\114\151\100\164\000\000"};
static struct {unsigned f; char r[4];} string7 = {196611, "\004B\020"};
static struct {unsigned f; char r[16];} string8 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"};
static struct {unsigned f; char r[16];} string9 = {851984, "\257\300\165\000\243\166\300\177\026\106\323\100\150\000\000"};
static struct {unsigned f; char r[16];} string10 = {851984, "\257\300\376\156\222\311\300\241\263\234\321\100\150\000\000"};
static struct {
word f0[10]; word f10; word f11; word f12;
word f13; word f14; word f15; word f16;
word f17; word f18; word f19; word f20;
word f21; word f22; word f23; word f24;
word f25; word f26; word f27; word f28;
word f29; word f30; word f31[4];
} globalframe = {
{0}, (word) GetLength←P600, 0, (word) GetIndex←P540,
0, (word) Close←P480, 0, (word) Reset←P420,
0, (word) Backup←P360, 0, (word) CharsAvail←P300,
0, (word) EndOf←P240, 0, (word) UnsafeGetBlock←P180,
0, (word) GetChar←P120, 0, (word) CreateEchoStream←P60,
0, (word) EchoStreamImpl←P0, {0}
};
static void NoName←Q660()
{
register ptr gf←c0238 = (ptr) &globalframe;
word var←c14120;
(* (( (ptr) gf←c0238)+5) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2);
(* (( (ptr) gf←c0238)+6) ) = (word) XR←GetTypeIndex((word) &string3, 0, (word) &string4);
(* (ptr) (( (bPt) gf←c0238)+36) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0238)+5) ), (word) &string5);
(void) XR←DeclareGlobalFrame((word) "EchoStreamImpl", &globalframe, (word) XR←GetTypeIndex((word) &string6, 0, (word) &string7)
, (word) (( (bPt) gf←c0238)+120)/* var←c13896 */ );
var←c14120 = (word) XR←ImportInterface((word) "IO", (word) XR←GetTypeIndexS((word) (&string8)), 103);
(* (( (ptr) gf←c0238)+32)/* var←c13928 */ ) = var←c14120;
(void) XR←ImportProcS(var←c14120, 67377921);
(void) XR←ImportProcS(var←c14120, 530434);
(void) XR←ImportProcS(var←c14120, 268033);
(void) XR←ImportProcS(var←c14120, 529922);
(void) XR←ImportProcS(var←c14120, 527874);
(void) XR←ImportProcS(var←c14120, 67636482);
(void) XR←ImportProcS(var←c14120, 67373825);
(void) XR←ImportProcS(var←c14120, 1053698);
(void) XR←ImportProcS(var←c14120, 68160002);
(void) XR←ImportProcS(var←c14120, 528642);
(void) XR←ImportProcS(var←c14120, 67372801);
(void) XR←ImportProcS(var←c14120, 67921155);
(void) XR←ImportProcS(var←c14120, 72115219);
var←c14120 = (word) XR←ImportInterface((word) "IOUtils", (word) XR←GetTypeIndexS((word) (&string9)), 27);
(* (( (ptr) gf←c0238)+33)/* var←c14088 */ ) = var←c14120;
(void) XR←ImportProcS(var←c14120, 1053700);
var←c14120 = (word) XR←ExportInterface((word) "EchoStream", (word) XR←GetTypeIndexS((word) (&string10)), 1);
(* (( (ptr) gf←c0238)+34)/* var←c14152 */ ) = var←c14120;
(void) XR←ExportProcS(var←c14120, (word) (( (bPt) gf←c0238)+112)/* var←c13864 */ , 68943879);
}
static void EchoStreamImpl←P0(formal←c050, formal←c048)
word formal←c050;
word formal←c048;
{
register ptr gf←c14184 = (ptr) &globalframe;
/* EchoStreamImpl: */
SOURCE(45, 4046)
SOURCE(347, 257)
{
W19 var←c049;
(* (ptr) (word) &var←c049 ) = 0;
(* (( (ptr) (word) &var←c049) + 1) ) = (* (( (ptr) gf←c14184)+9) );
(* (( (ptr) (word) &var←c049) + 2) ) = (word) (( (bPt) gf←c14184)+104)/* var←c13832 */ ;
(* (( (ptr) (word) &var←c049) + 3) ) = 0;
(* (( (ptr) (word) &var←c049) + 4) ) = (word) (( (bPt) gf←c14184)+96)/* var←c13800 */ ;
(* (( (ptr) (word) &var←c049) + 5) ) = (word) (( (bPt) gf←c14184)+88)/* var←c13768 */ ;
(* (( (ptr) (word) &var←c049) + 6) ) = (word) (( (bPt) gf←c14184)+80)/* var←c13736 */ ;
(* (( (ptr) (word) &var←c049) + 7) ) = (word) (( (bPt) gf←c14184)+72)/* var←c13704 */ ;
(* (( (ptr) (word) &var←c049) + 8) ) = 0;
(* (( (ptr) (word) &var←c049) + 9) ) = 0;
(* (( (ptr) (word) &var←c049) + 10) ) = 0;
(* (( (ptr) (word) &var←c049) + 11) ) = 0;
(* (( (ptr) (word) &var←c049) + 12) ) = (word) (( (bPt) gf←c14184)+64)/* var←c13672 */ ;
(* (( (ptr) (word) &var←c049) + 13) ) = (word) (( (bPt) gf←c14184)+56)/* var←c13640 */ ;
(* (( (ptr) (word) &var←c049) + 14) ) = (word) (( (bPt) gf←c14184)+48)/* var←c13608 */ ;
(* (( (ptr) (word) &var←c049) + 15) ) = 0;
(* (( (ptr) (word) &var←c049) + 16) ) = (word) (( (bPt) gf←c14184)+40)/* var←c13576 */ ;
(* (( (ptr) (word) &var←c049) + 17) ) = 0;
(* (( (ptr) (word) &var←c049) + 18) ) = 0;
{
word pd11;
pd11 = (* (( (ptr) (* (( (ptr) gf←c14184)+32)/* var←c13928 */ ))+104) );
(* (( (ptr) gf←c14184)+4)/* echoProcs←v2636 */ ) = (word) ( *( (fPt) ((* (ptr) pd11 ))))((word) (&var←c049), pd11);
};
};
}
static word CreateEchoStream←P60(in←v3288, out←v3316, mapErrors←v3344, eraseBackup←v3372, resetOutput←v3400, closeIn←v3428, closeOut←v3456)
word in←v3288;
word out←v3316;
word mapErrors←v3344;
word eraseBackup←v3372;
word resetOutput←v3400;
word closeIn←v3428;
word closeOut←v3456;
{
register ptr gf←c14216 = (ptr) &globalframe;
word var←c3500;
word esd←v4444;
/* CreateEchoStream: */
SOURCE(607, 322)
SOURCE(765, 117)
esd←v4444 = XR←NewObject(36, (* (( (ptr) gf←c14216)+6) ));
(* (ptr) esd←v4444 ) = in←v3288;
(* (( (ptr) esd←v4444)+1) ) = out←v3316;
(* (( (ptr) esd←v4444)+2) ) = mapErrors←v3344;
(* (( (ptr) esd←v4444)+3) ) = eraseBackup←v3372;
(* (( (ptr) esd←v4444)+4) ) = resetOutput←v3400;
(* (( (ptr) esd←v4444)+5) ) = closeIn←v3428;
(* (( (ptr) esd←v4444)+6) ) = closeOut←v3456;
SOURCE(884, 45)
{
word pd12;
pd12 = (* (( (ptr) (* (( (ptr) gf←c14216)+32)/* var←c13928 */ ))+105) );
return((word) ( *( (fPt) ((* (ptr) pd12 ))))((* (( (ptr) gf←c14216)+4)/* echoProcs←v2636 */ ), esd←v4444, 0, pd12));
};
}
static word GetChar←P120(formal←c0303)
word formal←c0303;
{
W10 var←c14248;
/* declaration of self←v3560 skipped */
register ptr gf←c14280 = (ptr) &globalframe;
word var←c3604;
/* declaration of esd←v4488 skipped */
/* declaration of c←v4516 skipped */
(* (( (ptr) &var←c14248)+4)/* self←v3560 */ ) = formal←c0303;
/* GetChar: */
SOURCE(933, 448)
SOURCE(981, 45)
(* (( (ptr) &var←c14248)+5)/* esd←v4488 */ ) = XR←Narrow((* (( (ptr) (* (( (ptr) &var←c14248)+4)/* self←v3560 */ ))+1) ), (* (
( (ptr) gf←c14280)+6) ));
SOURCE(1028, 39)
{
/* declaration of var←c01 skipped */
/* declaration of var←c02 skipped */
(* (( (ptr) &var←c14248)+7)/* var←c01 */ ) = (* (ptr) (* (( (ptr) &var←c14248)+5)/* esd←v4488 */ ) );
(* (( (ptr) &var←c14248)+8)/* var←c02 */ ) = (* (( (ptr) (* (( (ptr) gf←c14280)+32)/* var←c13928 */ ))+11) );
{
/* declaration of var←c03 skipped */
{
word var←c0277;
var←c0277 = (word) &var←c14248;
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q780) ), ( ((word) (fPt) NoName←Q2220) ), var←c0277);
};
(* (( (ptr) &var←c14248)+6)/* c←v4516 */ ) = (* (( (ptr) &var←c14248)+9)/* var←c03 */ );
};
};
SOURCE(1173, 113)
if (( (int)(* (( (ptr) (* (( (ptr) &var←c14248)+5)/* esd←v4488 */ ))+8) ) <= (int)0) || (0 != (* (( (ptr) (* (( (ptr) &var←c14248)+5)
/* esd←v4488 */ ))+3) ))) {
SOURCE(1214, 72)
{
/* declaration of var←c04 skipped */
/* declaration of var←c05 skipped */
(* (( (ptr) &var←c14248)+7)/* var←c04 */ ) = (* (( (ptr) (* (( (ptr) &var←c14248)+5)/* esd←v4488 */ ))+1) );
(* (( (ptr) &var←c14248)+8)/* var←c05 */ ) = (* (( (ptr) (* (( (ptr) gf←c14280)+32)/* var←c13928 */ ))+21) );
{
word var←c0278;
var←c0278 = (word) &var←c14248;
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q720) ), ( ((word) (fPt) NoName←Q2160) ), var←c0278);
};
};
};
SOURCE(1288, 81)
if (( (int)(* (( (ptr) (* (( (ptr) &var←c14248)+5)/* esd←v4488 */ ))+8) ) > (int)0)) {
SOURCE(1309, 34)
(* (( (ptr) (* (( (ptr) &var←c14248)+5)/* esd←v4488 */ ))+8) ) = ((* (( (ptr) (* (( (ptr) &var←c14248)+5)/* esd←v4488 */ ))+8)
) - 1);
}
else {
SOURCE(1343, 26)
(* (( (ptr) (* (( (ptr) &var←c14248)+5)/* esd←v4488 */ ))+7) ) = ((* (( (ptr) (* (( (ptr) &var←c14248)+5)/* esd←v4488 */ ))+7)
) + 1);
};
SOURCE(1371, 10)
return((* (( (ptr) &var←c14248)+6)/* c←v4516 */ ));
}
static word NoName←Q720(formal←c0242)
word formal←c0242;
{
SOURCE(1214, 72)
{
word pd13;
pd13 = (* (( (ptr) formal←c0242)+8) );
(void) ( *( (fPt) ((* (ptr) pd13 ))))((* (( (ptr) formal←c0242)+7) ), (* (( (ptr) formal←c0242)+6) ), pd13);
};
return(0);
}
static word NoName←Q780(formal←c0243)
word formal←c0243;
{
SOURCE(1028, 39)
{
word pd14;
pd14 = (* (( (ptr) formal←c0243)+8) );
(* (( (ptr) formal←c0243)+9) ) = (word) ( *( (fPt) ((* (ptr) pd14 ))))((* ((( (ptr) formal←c0243)+7)) ), pd14);
};
return(0);
}
static word UnsafeGetBlock←P180(formal←c0304, formal←c0305)
word formal←c0304;
W3 formal←c0305;
{
W14 var←c14312;
/* declaration of self←v3664 skipped */
/* declaration of block←v3692 skipped */
register ptr gf←c14344 = (ptr) &globalframe;
/* declaration of nBytesRead←v3736 skipped */
/* declaration of esd←v4560 skipped */
/* declaration of unbacked←v4588 skipped */
(* (( (ptr) &var←c14312)+4)/* self←v3664 */ ) = formal←c0304;
(* (W3Pt) (( (ptr) &var←c14312)+5)/* block←v3692 */ ) = formal←c0305;
/* UnsafeGetBlock: */
SOURCE(1385, 713)
SOURCE(1385, 713)
(* (( (ptr) &var←c14312)+8)/* nBytesRead←v3736 */ ) = 0;
SOURCE(1489, 45)
(* (( (ptr) &var←c14312)+9)/* esd←v4560 */ ) = XR←Narrow((* (( (ptr) (* (( (ptr) &var←c14312)+4)/* self←v3664 */ ))+1) ), (* (
( (ptr) gf←c14344)+6) ));
SOURCE(1559, 160)
SOURCE(1560, 159)
{
/* declaration of var←c06 skipped */
/* declaration of var←c07 skipped */
(* (( (ptr) &var←c14312)+11)/* var←c06 */ ) = (* (ptr) (* (( (ptr) &var←c14312)+9)/* esd←v4560 */ ) );
(* (( (ptr) &var←c14312)+12)/* var←c07 */ ) = (* (( (ptr) (* (( (ptr) gf←c14344)+32)/* var←c13928 */ ))+14) );
{
/* declaration of var←c08 skipped */
{
word var←c0279;
var←c0279 = (word) &var←c14312;
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q900) ), ( ((word) (fPt) NoName←Q2100) ), var←c0279);
};
(* (( (ptr) &var←c14312)+8)/* nBytesRead←v3736 */ ) = (* (( (ptr) &var←c14312)+13)/* var←c08 */ );
};
};
SOURCE(1722, 38)
{
word x15;
word x16;
(* (( (ptr) &var←c14312)+10)/* unbacked←v4588 */ ) = (x15 = (* (( (ptr) &var←c14312)+8)/* nBytesRead←v3736 */ ),
x16 = (* (( (ptr) (* (( (ptr) &var←c14312)+9)/* esd←v4560 */ ))+8) ),
MIN((int)(word), x15, x16));
};
SOURCE(1763, 241)
{
word var←c0280;
var←c0280 = (word) &var←c14312;
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q840) ), ( ((word) (fPt) NoName←Q2040) ), var←c0280);
};
SOURCE(2009, 34)
(* (( (ptr) (* (( (ptr) &var←c14312)+9)/* esd←v4560 */ ))+8) ) = ((* (( (ptr) (* (( (ptr) &var←c14312)+9)/* esd←v4560 */ ))+8)
) - (* (( (ptr) &var←c14312)+10)/* unbacked←v4588 */ ));
SOURCE(2045, 45)
(* (( (ptr) (* (( (ptr) &var←c14312)+9)/* esd←v4560 */ ))+7) ) = (((* (( (ptr) (* (( (ptr) &var←c14312)+9)/* esd←v4560 */ ))+7)
) + (* (( (ptr) &var←c14312)+8)/* nBytesRead←v3736 */ )) - (* (( (ptr) &var←c14312)+10)/* unbacked←v4588 */ ));
SOURCE(2092, 6)
return((* (( (ptr) &var←c14312)+8)/* nBytesRead←v3736 */ ));
}
static word NoName←Q840(formal←c0246)
word formal←c0246;
{
register ptr gf←c0245 = (ptr) &globalframe;
SOURCE(1824, 180)
if ((0 != (* (( (ptr) (* (( (ptr) formal←c0246)+9) ))+3) ))) {
SOURCE(1848, 72)
{
W3 var←c14024;
var←c14024.f0 = (* (( (ptr) formal←c0246)+5) );
var←c14024.f1 = (* (( (ptr) formal←c0246)+6) );
var←c14024.f2 = (* (( (ptr) formal←c0246)+8) );
{
word pd17;
pd17 = (* (( (ptr) (* (( (ptr) gf←c0245)+32)/* var←c13928 */ ))+24) );
(void) ( *( (fPt) ((* (ptr) pd17 ))))((* (( (ptr) (* (( (ptr) formal←c0246)+9) ))+1) ), var←c14024, pd17);
};
};
}
else {
SOURCE(1920, 84)
{
W3 var←c14056;
var←c14056.f0 = (* (( (ptr) formal←c0246)+5) );
var←c14056.f1 = ((* (( (ptr) formal←c0246)+6) ) + (* (( (ptr) formal←c0246)+10) ));
var←c14056.f2 = ((* (( (ptr) formal←c0246)+8) ) - (* (( (ptr) formal←c0246)+10) ));
{
word pd18;
pd18 = (* (( (ptr) (* (( (ptr) gf←c0245)+32)/* var←c13928 */ ))+24) );
(void) ( *( (fPt) ((* (ptr) pd18 ))))((* (( (ptr) (* (( (ptr) formal←c0246)+9) ))+1) ), var←c14056, pd18);
};
};
};
return(0);
}
static word NoName←Q900(formal←c0247)
word formal←c0247;
{
SOURCE(1560, 159)
{
word pd19;
pd19 = (* (( (ptr) formal←c0247)+12) );
(* (( (ptr) formal←c0247)+13) ) = (word) ( *( (fPt) ((* (ptr) pd19 ))))((* (( (ptr) formal←c0247)+11) ), (* (W3Pt) (( (ptr) formal←c0247)+5)
), pd19);
};
return(0);
}
static word EndOf←P240(formal←c0306)
word formal←c0306;
{
W9 var←c14376;
/* declaration of self←v3796 skipped */
register ptr gf←c14408 = (ptr) &globalframe;
word var←c3840;
/* declaration of esd←v4632 skipped */
(* (( (ptr) &var←c14376)+4)/* self←v3796 */ ) = formal←c0306;
/* EndOf: */
SOURCE(2102, 231)
SOURCE(2148, 45)
(* (( (ptr) &var←c14376)+5)/* esd←v4632 */ ) = XR←Narrow((* (( (ptr) (* (( (ptr) &var←c14376)+4)/* self←v3796 */ ))+1) ), (* (
( (ptr) gf←c14408)+6) ));
SOURCE(2195, 138)
{
/* declaration of var←c09 skipped */
/* declaration of var←c010 skipped */
(* (( (ptr) &var←c14376)+6)/* var←c09 */ ) = (* (ptr) (* (( (ptr) &var←c14376)+5)/* esd←v4632 */ ) );
(* (( (ptr) &var←c14376)+7)/* var←c010 */ ) = (* (( (ptr) (* (( (ptr) gf←c14408)+32)/* var←c13928 */ ))+15) );
{
/* declaration of var←c011 skipped */
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q960) ), ( ((word) (fPt) NoName←Q1980) ), (word) &var←c14376);
return((* (( (ptr) &var←c14376)+8)/* var←c011 */ ));
};
};
}
static word NoName←Q960(formal←c0249)
word formal←c0249;
{
SOURCE(2195, 138)
{
word pd20;
pd20 = (* (( (ptr) formal←c0249)+7) );
(* (( (ptr) formal←c0249)+8) ) = (word) ( *( (fPt) ((* (ptr) pd20 ))))((* ((( (ptr) formal←c0249)+6)) ), pd20);
};
return(0);
}
static word CharsAvail←P300(formal←c0307, wait←v3928)
word formal←c0307;
word wait←v3928;
{
W9 var←c14440;
/* declaration of self←v3900 skipped */
register ptr gf←c14472 = (ptr) &globalframe;
word var←c3972;
/* declaration of esd←v4676 skipped */
(* (( (ptr) &var←c14440)+4)/* self←v3900 */ ) = formal←c0307;
/* CharsAvail: */
SOURCE(2337, 252)
SOURCE(2399, 45)
(* (( (ptr) &var←c14440)+5)/* esd←v4676 */ ) = XR←Narrow((* (( (ptr) (* (( (ptr) &var←c14440)+4)/* self←v3900 */ ))+1) ), (* (
( (ptr) gf←c14472)+6) ));
SOURCE(2446, 143)
{
/* declaration of var←c012 skipped */
/* declaration of var←c013 skipped */
(* (( (ptr) &var←c14440)+6)/* var←c012 */ ) = (* (ptr) (* (( (ptr) &var←c14440)+5)/* esd←v4676 */ ) );
(* (( (ptr) &var←c14440)+7)/* var←c013 */ ) = (* (( (ptr) (* (( (ptr) gf←c14472)+32)/* var←c13928 */ ))+17) );
{
/* declaration of var←c014 skipped */
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q1020) ), ( ((word) (fPt) NoName←Q1920) ), (word) &var←c14440);
return((* (( (ptr) &var←c14440)+8)/* var←c014 */ ));
};
};
}
static word NoName←Q1020(formal←c0251)
word formal←c0251;
{
SOURCE(2446, 143)
{
word pd21;
pd21 = (* (( (ptr) formal←c0251)+7) );
(* (( (ptr) formal←c0251)+8) ) = (word) ( *( (fPt) ((* (ptr) pd21 ))))((* (( (ptr) formal←c0251)+6) ), 0, pd21);
};
return(0);
}
static void Backup←P360(formal←c0308, formal←c0309)
word formal←c0308;
word formal←c0309;
{
W9 var←c14504;
/* declaration of self←v4032 skipped */
/* declaration of char←v4060 skipped */
register ptr gf←c14536 = (ptr) &globalframe;
/* declaration of esd←v4720 skipped */
(* (( (ptr) &var←c14504)+4)/* self←v4032 */ ) = formal←c0308;
(* (( (ptr) &var←c14504)+5)/* char←v4060 */ ) = formal←c0309;
/* Backup: */
SOURCE(2593, 370)
SOURCE(2637, 45)
(* (( (ptr) &var←c14504)+6)/* esd←v4720 */ ) = XR←Narrow((* (( (ptr) (* (( (ptr) &var←c14504)+4)/* self←v4032 */ ))+1) ), (* (
( (ptr) gf←c14536)+6) ));
SOURCE(2684, 137)
{
/* declaration of var←c015 skipped */
/* declaration of var←c016 skipped */
(* (( (ptr) &var←c14504)+7)/* var←c015 */ ) = (* (ptr) (* (( (ptr) &var←c14504)+6)/* esd←v4720 */ ) );
(* (( (ptr) &var←c14504)+8)/* var←c016 */ ) = (* (( (ptr) (* (( (ptr) gf←c14536)+32)/* var←c13928 */ ))+18) );
{
word var←c0281;
var←c0281 = (word) &var←c14504;
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q1140) ), ( ((word) (fPt) NoName←Q1860) ), var←c0281);
};
};
SOURCE(2823, 28)
(* (( (ptr) (* (( (ptr) &var←c14504)+6)/* esd←v4720 */ ))+8) ) = ((* (( (ptr) (* (( (ptr) &var←c14504)+6)/* esd←v4720 */ ))+8)
) + 1);
SOURCE(2853, 102)
if ((0 != (* (( (ptr) (* (( (ptr) &var←c14504)+6)/* esd←v4720 */ ))+3) ))) {
SOURCE(2877, 78)
{
/* declaration of var←c017 skipped */
/* declaration of var←c018 skipped */
(* (( (ptr) &var←c14504)+7)/* var←c017 */ ) = (* (( (ptr) (* (( (ptr) &var←c14504)+6)/* esd←v4720 */ ))+1) );
(* (( (ptr) &var←c14504)+8)/* var←c018 */ ) = (* (( (ptr) (* (( (ptr) gf←c14536)+32)/* var←c13928 */ ))+26) );
{
word var←c0282;
var←c0282 = (word) &var←c14504;
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q1080) ), ( ((word) (fPt) NoName←Q1800) ), var←c0282);
};
};
};
SOURCE(2957, 6)
return;
}
static word NoName←Q1080(formal←c0253)
word formal←c0253;
{
SOURCE(2877, 78)
{
word pd22;
pd22 = (* (( (ptr) formal←c0253)+8) );
(void) ( *( (fPt) ((* (ptr) pd22 ))))((* (( (ptr) formal←c0253)+7) ), (* (( (ptr) formal←c0253)+5) ), pd22);
};
return(0);
}
static word NoName←Q1140(formal←c0254)
word formal←c0254;
{
SOURCE(2684, 137)
{
word pd23;
pd23 = (* (( (ptr) formal←c0254)+8) );
(void) ( *( (fPt) ((* (ptr) pd23 ))))((* (( (ptr) formal←c0254)+7) ), (* (( (ptr) formal←c0254)+5) ), pd23);
};
return(0);
}
static void Reset←P420(formal←c0310)
word formal←c0310;
{
W8 var←c14568;
/* declaration of self←v4120 skipped */
register ptr gf←c14600 = (ptr) &globalframe;
/* declaration of esd←v4764 skipped */
var←c14568.f4/* self←v4120 */ = formal←c0310;
/* Reset: */
SOURCE(2967, 312)
SOURCE(2998, 45)
var←c14568.f5/* esd←v4764 */ = XR←Narrow((* (( (ptr) var←c14568.f4/* self←v4120 */ )+1) ), (* (( (ptr) gf←c14600)+6) ));
SOURCE(3045, 131)
{
/* declaration of var←c019 skipped */
/* declaration of var←c020 skipped */
var←c14568.f6/* var←c019 */ = (* (ptr) var←c14568.f5/* esd←v4764 */ );
var←c14568.f7/* var←c020 */ = (* (( (ptr) (* (( (ptr) gf←c14600)+32)/* var←c13928 */ ))+27) );
{
word var←c0283;
var←c0283 = (word) &var←c14568;
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q1260) ), ( ((word) (fPt) NoName←Q1740) ), var←c0283);
};
};
SOURCE(3178, 93)
if ((0 != (* (( (ptr) var←c14568.f5/* esd←v4764 */ )+4) ))) {
SOURCE(3202, 69)
{
/* declaration of var←c021 skipped */
/* declaration of var←c022 skipped */
var←c14568.f6/* var←c021 */ = (* (( (ptr) var←c14568.f5/* esd←v4764 */ )+1) );
var←c14568.f7/* var←c022 */ = (* (( (ptr) (* (( (ptr) gf←c14600)+32)/* var←c13928 */ ))+27) );
{
word var←c0284;
var←c0284 = (word) &var←c14568;
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q1200) ), ( ((word) (fPt) NoName←Q1680) ), var←c0284);
};
};
};
SOURCE(3273, 6)
return;
}
static word NoName←Q1200(formal←c0256)
word formal←c0256;
{
SOURCE(3202, 69)
{
word pd24;
pd24 = (* (( (ptr) formal←c0256)+7) );
(void) ( *( (fPt) ((* (ptr) pd24 ))))((* ((( (ptr) formal←c0256)+6)) ), pd24);
};
return(0);
}
static word NoName←Q1260(formal←c0257)
word formal←c0257;
{
SOURCE(3045, 131)
{
word pd25;
pd25 = (* (( (ptr) formal←c0257)+7) );
(void) ( *( (fPt) ((* (ptr) pd25 ))))((* ((( (ptr) formal←c0257)+6)) ), pd25);
};
return(0);
}
static void Close←P480(formal←c0311, formal←c0312)
word formal←c0311;
word formal←c0312;
{
W9 var←c14632;
/* declaration of self←v4180 skipped */
/* declaration of abort←v4208 skipped */
register ptr gf←c14664 = (ptr) &globalframe;
/* declaration of esd←v4808 skipped */
(* (( (ptr) &var←c14632)+4)/* self←v4180 */ ) = formal←c0311;
(* (( (ptr) &var←c14632)+5)/* abort←v4208 */ ) = formal←c0312;
/* Close: */
SOURCE(3283, 428)
SOURCE(3335, 45)
(* (( (ptr) &var←c14632)+6)/* esd←v4808 */ ) = XR←Narrow((* (( (ptr) (* (( (ptr) &var←c14632)+4)/* self←v4180 */ ))+1) ), (* (
( (ptr) gf←c14664)+6) ));
SOURCE(3382, 157)
if ((0 != (* (( (ptr) (* (( (ptr) &var←c14632)+6)/* esd←v4808 */ ))+5) ))) {
SOURCE(3402, 137)
{
/* declaration of var←c023 skipped */
/* declaration of var←c024 skipped */
(* (( (ptr) &var←c14632)+7)/* var←c023 */ ) = (* (ptr) (* (( (ptr) &var←c14632)+6)/* esd←v4808 */ ) );
(* (( (ptr) &var←c14632)+8)/* var←c024 */ ) = (* (( (ptr) (* (( (ptr) gf←c14664)+32)/* var←c13928 */ ))+28) );
{
word var←c0285;
var←c0285 = (word) &var←c14632;
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q1380) ), ( ((word) (fPt) NoName←Q1620) ), var←c0285);
};
};
};
SOURCE(3541, 97)
if ((0 != (* (( (ptr) (* (( (ptr) &var←c14632)+6)/* esd←v4808 */ ))+6) ))) {
SOURCE(3562, 76)
{
/* declaration of var←c025 skipped */
/* declaration of var←c026 skipped */
(* (( (ptr) &var←c14632)+7)/* var←c025 */ ) = (* (( (ptr) (* (( (ptr) &var←c14632)+6)/* esd←v4808 */ ))+1) );
(* (( (ptr) &var←c14632)+8)/* var←c026 */ ) = (* (( (ptr) (* (( (ptr) gf←c14664)+32)/* var←c13928 */ ))+28) );
{
word var←c0286;
var←c0286 = (word) &var←c14632;
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q1320) ), ( ((word) (fPt) NoName←Q1560) ), var←c0286);
};
};
};
SOURCE(3640, 63)
{
word pd26;
pd26 = (* (( (ptr) (* (( (ptr) gf←c14664)+33)/* var←c14088 */ ))+24) );
(void) ( *( (fPt) ((* (ptr) pd26 ))))((* (( (ptr) &var←c14632)+4)/* self←v4180 */ ), (* (ptr) (* (( (ptr) (* (( (ptr) gf←c14664)+33)
/* var←c14088 */ ))+15) ) ), 0, 0, pd26);
};
SOURCE(3705, 6)
return;
}
static word NoName←Q1320(formal←c0259)
word formal←c0259;
{
SOURCE(3562, 76)
{
word pd27;
pd27 = (* (( (ptr) formal←c0259)+8) );
(void) ( *( (fPt) ((* (ptr) pd27 ))))((* (( (ptr) formal←c0259)+7) ), (* (( (ptr) formal←c0259)+5) ), pd27);
};
return(0);
}
static word NoName←Q1380(formal←c0260)
word formal←c0260;
{
SOURCE(3402, 137)
{
word pd28;
pd28 = (* (( (ptr) formal←c0260)+8) );
(void) ( *( (fPt) ((* (ptr) pd28 ))))((* (( (ptr) formal←c0260)+7) ), (* (( (ptr) formal←c0260)+5) ), pd28);
};
return(0);
}
static word GetIndex←P540(self←v4268)
word self←v4268;
{
register ptr gf←c14696 = (ptr) &globalframe;
word var←c4312;
word esd←v4852;
/* GetIndex: */
SOURCE(3715, 126)
SOURCE(3763, 45)
esd←v4852 = XR←Narrow((* (( (ptr) self←v4268)+1) ), (* (( (ptr) gf←c14696)+6) ));
SOURCE(3810, 31)
return(((* (( (ptr) esd←v4852)+7) ) - (* (( (ptr) esd←v4852)+8) )));
}
static word GetLength←P600(formal←c0313)
word formal←c0313;
{
W9 var←c14728;
/* declaration of self←v4372 skipped */
register ptr gf←c14760 = (ptr) &globalframe;
word length←v4416;
/* declaration of esd←v4896 skipped */
(* (( (ptr) &var←c14728)+4)/* self←v4372 */ ) = formal←c0313;
/* GetLength: */
SOURCE(3845, 246)
SOURCE(3902, 45)
(* (( (ptr) &var←c14728)+5)/* esd←v4896 */ ) = XR←Narrow((* (( (ptr) (* (( (ptr) &var←c14728)+4)/* self←v4372 */ ))+1) ), (* (
( (ptr) gf←c14760)+6) ));
SOURCE(3949, 142)
{
/* declaration of var←c027 skipped */
/* declaration of var←c028 skipped */
(* (( (ptr) &var←c14728)+6)/* var←c027 */ ) = (* (ptr) (* (( (ptr) &var←c14728)+5)/* esd←v4896 */ ) );
(* (( (ptr) &var←c14728)+7)/* var←c028 */ ) = (* (( (ptr) (* (( (ptr) gf←c14760)+32)/* var←c13928 */ ))+31) );
{
/* declaration of var←c029 skipped */
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q1440) ), ( ((word) (fPt) NoName←Q1500) ), (word) &var←c14728);
return((* (( (ptr) &var←c14728)+8)/* var←c029 */ ));
};
};
}
static word NoName←Q1440(formal←c0263)
word formal←c0263;
{
SOURCE(3949, 142)
{
word pd29;
pd29 = (* (( (ptr) formal←c0263)+7) );
(* (( (ptr) formal←c0263)+8) ) = (word) ( *( (fPt) ((* (ptr) pd29 ))))((* ((( (ptr) formal←c0263)+6)) ), pd29);
};
return(0);
}
static void NoName←Q1500(formal←c0103, formal←c200048, formal←c200049, formal←c200050, formal←c200051)
word formal←c0103;
word formal←c200048;
word formal←c200049;
word formal←c200050;
word formal←c200051;
{
register ptr gf←c0264 = (ptr) &globalframe;
if ((formal←c200049 == (* (( (ptr) (* (( (ptr) gf←c0264)+32)/* var←c13928 */ ))+5) ))) {
{
word ec←v13252;
word stream←v13280;
word details←v13308;
word msg←v13336;
ec←v13252 = (* (ptr) formal←c200051 );
stream←v13280 = (* (( (ptr) formal←c200051)+1) );
details←v13308 = (* (( (ptr) formal←c200051)+2) );
msg←v13336 = (* (( (ptr) formal←c200051)+3) );
SOURCE(3987, 40)
if ((0 != (* (( (ptr) (* (( (ptr) formal←c200048)+5) ))+2) ))) {
SOURCE(4009, 18)
{
W4 var←c0100;
(* (ptr) (word) &var←c0100 ) = ec←v13252;
(* (( (ptr) (word) &var←c0100) + 1) ) = (* (( (ptr) formal←c200048)+4) );
(* (( (ptr) (word) &var←c0100) + 2) ) = 0;
(* (( (ptr) (word) &var←c0100) + 3) ) = 0;
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c0264)+32)/* var←c13928 */ ))+5) ), (word) &var←c0100);
};
};
};
}
else {
if ((formal←c200049 == (* (( (ptr) (* (( (ptr) gf←c0264)+32)/* var←c13928 */ ))+4) ))) {
{
word stream←v13396;
stream←v13396 = (* (ptr) formal←c200051 );
SOURCE(4047, 44)
if ((0 != (* (( (ptr) (* (( (ptr) formal←c200048)+5) ))+2) ))) {
SOURCE(4069, 22)
{
word var←c0102;
var←c0102 = (* (( (ptr) formal←c200048)+4) );
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c0264)+32)/* var←c13928 */ ))+4) ), (word) &var←c0102);
};
};
};
};
};
(* (ptr) formal←c0103 ) = 0;
(* (( (ptr) formal←c0103)+1) ) = 0;
return;
}
static void NoName←Q1560(formal←c0113, formal←c200044, formal←c200045, formal←c200046, formal←c200047)
word formal←c0113;
word formal←c200044;
word formal←c200045;
word formal←c200046;
word formal←c200047;
{
register ptr gf←c0265 = (ptr) &globalframe;
if ((formal←c200045 == (* (( (ptr) (* (( (ptr) gf←c0265)+32)/* var←c13928 */ ))+5) ))) {
{
word ec←v12648;
word stream←v12676;
word details←v12704;
word msg←v12732;
ec←v12648 = (* (ptr) formal←c200047 );
stream←v12676 = (* (( (ptr) formal←c200047)+1) );
details←v12704 = (* (( (ptr) formal←c200047)+2) );
msg←v12732 = (* (( (ptr) formal←c200047)+3) );
SOURCE(3596, 42)
if ((0 != (* (( (ptr) (* (( (ptr) formal←c200044)+6) ))+2) ))) {
SOURCE(3618, 20)
{
W4 var←c0112;
(* (ptr) (word) &var←c0112 ) = ec←v12648;
(* (( (ptr) (word) &var←c0112) + 1) ) = (* (( (ptr) formal←c200044)+4) );
(* (( (ptr) (word) &var←c0112) + 2) ) = 0;
(* (( (ptr) (word) &var←c0112) + 3) ) = 0;
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c0265)+32)/* var←c13928 */ ))+5) ), (word) &var←c0112);
};
};
};
};
(* (ptr) formal←c0113 ) = 0;
(* (( (ptr) formal←c0113)+1) ) = 0;
return;
}
static void NoName←Q1620(formal←c0125, formal←c200040, formal←c200041, formal←c200042, formal←c200043)
word formal←c0125;
word formal←c200040;
word formal←c200041;
word formal←c200042;
word formal←c200043;
{
register ptr gf←c0266 = (ptr) &globalframe;
if ((formal←c200041 == (* (( (ptr) (* (( (ptr) gf←c0266)+32)/* var←c13928 */ ))+5) ))) {
{
word ec←v12444;
word stream←v12472;
word details←v12500;
word msg←v12528;
ec←v12444 = (* (ptr) formal←c200043 );
stream←v12472 = (* (( (ptr) formal←c200043)+1) );
details←v12500 = (* (( (ptr) formal←c200043)+2) );
msg←v12528 = (* (( (ptr) formal←c200043)+3) );
SOURCE(3435, 40)
if ((0 != (* (( (ptr) (* (( (ptr) formal←c200040)+6) ))+2) ))) {
SOURCE(3457, 18)
{
W4 var←c0122;
(* (ptr) (word) &var←c0122 ) = ec←v12444;
(* (( (ptr) (word) &var←c0122) + 1) ) = (* (( (ptr) formal←c200040)+4) );
(* (( (ptr) (word) &var←c0122) + 2) ) = 0;
(* (( (ptr) (word) &var←c0122) + 3) ) = 0;
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c0266)+32)/* var←c13928 */ ))+5) ), (word) &var←c0122);
};
};
};
}
else {
if ((formal←c200041 == (* (( (ptr) (* (( (ptr) gf←c0266)+32)/* var←c13928 */ ))+4) ))) {
{
word stream←v12588;
stream←v12588 = (* (ptr) formal←c200043 );
SOURCE(3495, 44)
if ((0 != (* (( (ptr) (* (( (ptr) formal←c200040)+6) ))+2) ))) {
SOURCE(3517, 22)
{
word var←c0124;
var←c0124 = (* (( (ptr) formal←c200040)+4) );
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c0266)+32)/* var←c13928 */ ))+4) ), (word) &var←c0124);
};
};
};
};
};
(* (ptr) formal←c0125 ) = 0;
(* (( (ptr) formal←c0125)+1) ) = 0;
return;
}
static void NoName←Q1680(formal←c0135, formal←c200036, formal←c200037, formal←c200038, formal←c200039)
word formal←c0135;
word formal←c200036;
word formal←c200037;
word formal←c200038;
word formal←c200039;
{
register ptr gf←c0267 = (ptr) &globalframe;
if ((formal←c200037 == (* (( (ptr) (* (( (ptr) gf←c0267)+32)/* var←c13928 */ ))+5) ))) {
{
word ec←v12180;
word stream←v12208;
word details←v12236;
word msg←v12264;
ec←v12180 = (* (ptr) formal←c200039 );
stream←v12208 = (* (( (ptr) formal←c200039)+1) );
details←v12236 = (* (( (ptr) formal←c200039)+2) );
msg←v12264 = (* (( (ptr) formal←c200039)+3) );
SOURCE(3229, 42)
if ((0 != (* (( (ptr) (* (( (ptr) formal←c200036)+5) ))+2) ))) {
SOURCE(3251, 20)
{
W4 var←c0134;
(* (ptr) (word) &var←c0134 ) = ec←v12180;
(* (( (ptr) (word) &var←c0134) + 1) ) = (* (( (ptr) formal←c200036)+4) );
(* (( (ptr) (word) &var←c0134) + 2) ) = 0;
(* (( (ptr) (word) &var←c0134) + 3) ) = 0;
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c0267)+32)/* var←c13928 */ ))+5) ), (word) &var←c0134);
};
};
};
};
(* (ptr) formal←c0135 ) = 0;
(* (( (ptr) formal←c0135)+1) ) = 0;
return;
}
static void NoName←Q1740(formal←c0147, formal←c200032, formal←c200033, formal←c200034, formal←c200035)
word formal←c0147;
word formal←c200032;
word formal←c200033;
word formal←c200034;
word formal←c200035;
{
register ptr gf←c0268 = (ptr) &globalframe;
if ((formal←c200033 == (* (( (ptr) (* (( (ptr) gf←c0268)+32)/* var←c13928 */ ))+5) ))) {
{
word ec←v11976;
word stream←v12004;
word details←v12032;
word msg←v12060;
ec←v11976 = (* (ptr) formal←c200035 );
stream←v12004 = (* (( (ptr) formal←c200035)+1) );
details←v12032 = (* (( (ptr) formal←c200035)+2) );
msg←v12060 = (* (( (ptr) formal←c200035)+3) );
SOURCE(3072, 40)
if ((0 != (* (( (ptr) (* (( (ptr) formal←c200032)+5) ))+2) ))) {
SOURCE(3094, 18)
{
W4 var←c0144;
(* (ptr) (word) &var←c0144 ) = ec←v11976;
(* (( (ptr) (word) &var←c0144) + 1) ) = (* (( (ptr) formal←c200032)+4) );
(* (( (ptr) (word) &var←c0144) + 2) ) = 0;
(* (( (ptr) (word) &var←c0144) + 3) ) = 0;
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c0268)+32)/* var←c13928 */ ))+5) ), (word) &var←c0144);
};
};
};
}
else {
if ((formal←c200033 == (* (( (ptr) (* (( (ptr) gf←c0268)+32)/* var←c13928 */ ))+4) ))) {
{
word stream←v12120;
stream←v12120 = (* (ptr) formal←c200035 );
SOURCE(3132, 44)
if ((0 != (* (( (ptr) (* (( (ptr) formal←c200032)+5) ))+2) ))) {
SOURCE(3154, 22)
{
word var←c0146;
var←c0146 = (* (( (ptr) formal←c200032)+4) );
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c0268)+32)/* var←c13928 */ ))+4) ), (word) &var←c0146);
};
};
};
};
};
(* (ptr) formal←c0147 ) = 0;
(* (( (ptr) formal←c0147)+1) ) = 0;
return;
}
static void NoName←Q1800(formal←c0157, formal←c200028, formal←c200029, formal←c200030, formal←c200031)
word formal←c0157;
word formal←c200028;
word formal←c200029;
word formal←c200030;
word formal←c200031;
{
register ptr gf←c0269 = (ptr) &globalframe;
if ((formal←c200029 == (* (( (ptr) (* (( (ptr) gf←c0269)+32)/* var←c13928 */ ))+5) ))) {
{
word ec←v11740;
word stream←v11768;
word details←v11796;
word msg←v11824;
ec←v11740 = (* (ptr) formal←c200031 );
stream←v11768 = (* (( (ptr) formal←c200031)+1) );
details←v11796 = (* (( (ptr) formal←c200031)+2) );
msg←v11824 = (* (( (ptr) formal←c200031)+3) );
SOURCE(2914, 41)
if ((0 != (* (( (ptr) (* (( (ptr) formal←c200028)+6) ))+2) ))) {
SOURCE(2936, 19)
{
W4 var←c0156;
(* (ptr) (word) &var←c0156 ) = ec←v11740;
(* (( (ptr) (word) &var←c0156) + 1) ) = (* (( (ptr) formal←c200028)+4) );
(* (( (ptr) (word) &var←c0156) + 2) ) = 0;
(* (( (ptr) (word) &var←c0156) + 3) ) = 0;
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c0269)+32)/* var←c13928 */ ))+5) ), (word) &var←c0156);
};
};
};
};
(* (ptr) formal←c0157 ) = 0;
(* (( (ptr) formal←c0157)+1) ) = 0;
return;
}
static void NoName←Q1860(formal←c0169, formal←c200024, formal←c200025, formal←c200026, formal←c200027)
word formal←c0169;
word formal←c200024;
word formal←c200025;
word formal←c200026;
word formal←c200027;
{
register ptr gf←c0270 = (ptr) &globalframe;
if ((formal←c200025 == (* (( (ptr) (* (( (ptr) gf←c0270)+32)/* var←c13928 */ ))+5) ))) {
{
word ec←v11416;
word stream←v11444;
word details←v11472;
word msg←v11500;
ec←v11416 = (* (ptr) formal←c200027 );
stream←v11444 = (* (( (ptr) formal←c200027)+1) );
details←v11472 = (* (( (ptr) formal←c200027)+2) );
msg←v11500 = (* (( (ptr) formal←c200027)+3) );
SOURCE(2717, 40)
if ((0 != (* (( (ptr) (* (( (ptr) formal←c200024)+6) ))+2) ))) {
SOURCE(2739, 18)
{
W4 var←c0166;
(* (ptr) (word) &var←c0166 ) = ec←v11416;
(* (( (ptr) (word) &var←c0166) + 1) ) = (* (( (ptr) formal←c200024)+4) );
(* (( (ptr) (word) &var←c0166) + 2) ) = 0;
(* (( (ptr) (word) &var←c0166) + 3) ) = 0;
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c0270)+32)/* var←c13928 */ ))+5) ), (word) &var←c0166);
};
};
};
}
else {
if ((formal←c200025 == (* (( (ptr) (* (( (ptr) gf←c0270)+32)/* var←c13928 */ ))+4) ))) {
{
word stream←v11560;
stream←v11560 = (* (ptr) formal←c200027 );
SOURCE(2777, 44)
if ((0 != (* (( (ptr) (* (( (ptr) formal←c200024)+6) ))+2) ))) {
SOURCE(2799, 22)
{
word var←c0168;
var←c0168 = (* (( (ptr) formal←c200024)+4) );
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c0270)+32)/* var←c13928 */ ))+4) ), (word) &var←c0168);
};
};
};
};
};
(* (ptr) formal←c0169 ) = 0;
(* (( (ptr) formal←c0169)+1) ) = 0;
return;
}
static void NoName←Q1920(formal←c0181, formal←c200020, formal←c200021, formal←c200022, formal←c200023)
word formal←c0181;
word formal←c200020;
word formal←c200021;
word formal←c200022;
word formal←c200023;
{
register ptr gf←c0271 = (ptr) &globalframe;
if ((formal←c200021 == (* (( (ptr) (* (( (ptr) gf←c0271)+32)/* var←c13928 */ ))+5) ))) {
{
word ec←v11092;
word stream←v11120;
word details←v11148;
word msg←v11176;
ec←v11092 = (* (ptr) formal←c200023 );
stream←v11120 = (* (( (ptr) formal←c200023)+1) );
details←v11148 = (* (( (ptr) formal←c200023)+2) );
msg←v11176 = (* (( (ptr) formal←c200023)+3) );
SOURCE(2485, 40)
if ((0 != (* (( (ptr) (* (( (ptr) formal←c200020)+5) ))+2) ))) {
SOURCE(2507, 18)
{
W4 var←c0178;
(* (ptr) (word) &var←c0178 ) = ec←v11092;
(* (( (ptr) (word) &var←c0178) + 1) ) = (* (( (ptr) formal←c200020)+4) );
(* (( (ptr) (word) &var←c0178) + 2) ) = 0;
(* (( (ptr) (word) &var←c0178) + 3) ) = 0;
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c0271)+32)/* var←c13928 */ ))+5) ), (word) &var←c0178);
};
};
};
}
else {
if ((formal←c200021 == (* (( (ptr) (* (( (ptr) gf←c0271)+32)/* var←c13928 */ ))+4) ))) {
{
word stream←v11236;
stream←v11236 = (* (ptr) formal←c200023 );
SOURCE(2545, 44)
if ((0 != (* (( (ptr) (* (( (ptr) formal←c200020)+5) ))+2) ))) {
SOURCE(2567, 22)
{
word var←c0180;
var←c0180 = (* (( (ptr) formal←c200020)+4) );
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c0271)+32)/* var←c13928 */ ))+4) ), (word) &var←c0180);
};
};
};
};
};
(* (ptr) formal←c0181 ) = 0;
(* (( (ptr) formal←c0181)+1) ) = 0;
return;
}
static void NoName←Q1980(formal←c0193, formal←c200016, formal←c200017, formal←c200018, formal←c200019)
word formal←c0193;
word formal←c200016;
word formal←c200017;
word formal←c200018;
word formal←c200019;
{
register ptr gf←c0272 = (ptr) &globalframe;
if ((formal←c200017 == (* (( (ptr) (* (( (ptr) gf←c0272)+32)/* var←c13928 */ ))+5) ))) {
{
word ec←v10724;
word stream←v10752;
word details←v10780;
word msg←v10808;
ec←v10724 = (* (ptr) formal←c200019 );
stream←v10752 = (* (( (ptr) formal←c200019)+1) );
details←v10780 = (* (( (ptr) formal←c200019)+2) );
msg←v10808 = (* (( (ptr) formal←c200019)+3) );
SOURCE(2229, 40)
if ((0 != (* (( (ptr) (* (( (ptr) formal←c200016)+5) ))+2) ))) {
SOURCE(2251, 18)
{
W4 var←c0190;
(* (ptr) (word) &var←c0190 ) = ec←v10724;
(* (( (ptr) (word) &var←c0190) + 1) ) = (* (( (ptr) formal←c200016)+4) );
(* (( (ptr) (word) &var←c0190) + 2) ) = 0;
(* (( (ptr) (word) &var←c0190) + 3) ) = 0;
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c0272)+32)/* var←c13928 */ ))+5) ), (word) &var←c0190);
};
};
};
}
else {
if ((formal←c200017 == (* (( (ptr) (* (( (ptr) gf←c0272)+32)/* var←c13928 */ ))+4) ))) {
{
word stream←v10868;
stream←v10868 = (* (ptr) formal←c200019 );
SOURCE(2289, 44)
if ((0 != (* (( (ptr) (* (( (ptr) formal←c200016)+5) ))+2) ))) {
SOURCE(2311, 22)
{
word var←c0192;
var←c0192 = (* (( (ptr) formal←c200016)+4) );
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c0272)+32)/* var←c13928 */ ))+4) ), (word) &var←c0192);
};
};
};
};
};
(* (ptr) formal←c0193 ) = 0;
(* (( (ptr) formal←c0193)+1) ) = 0;
return;
}
static void NoName←Q2040(formal←c0203, formal←c200012, formal←c200013, formal←c200014, formal←c200015)
word formal←c0203;
word formal←c200012;
word formal←c200013;
word formal←c200014;
word formal←c200015;
{
register ptr gf←c0273 = (ptr) &globalframe;
if ((formal←c200013 == (* (( (ptr) (* (( (ptr) gf←c0273)+32)/* var←c13928 */ ))+5) ))) {
{
word ec←v10168;
word stream←v10196;
word details←v10224;
word msg←v10252;
ec←v10168 = (* (ptr) formal←c200015 );
stream←v10196 = (* (( (ptr) formal←c200015)+1) );
details←v10224 = (* (( (ptr) formal←c200015)+2) );
msg←v10252 = (* (( (ptr) formal←c200015)+3) );
SOURCE(1782, 40)
if ((0 != (* (( (ptr) (* (( (ptr) formal←c200012)+9) ))+2) ))) {
SOURCE(1804, 18)
{
W4 var←c0202;
(* (ptr) (word) &var←c0202 ) = ec←v10168;
(* (( (ptr) (word) &var←c0202) + 1) ) = (* (( (ptr) formal←c200012)+4) );
(* (( (ptr) (word) &var←c0202) + 2) ) = 0;
(* (( (ptr) (word) &var←c0202) + 3) ) = 0;
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c0273)+32)/* var←c13928 */ ))+5) ), (word) &var←c0202);
};
};
};
};
(* (ptr) formal←c0203 ) = 0;
(* (( (ptr) formal←c0203)+1) ) = 0;
return;
}
static void NoName←Q2100(formal←c0215, formal←c200008, formal←c200009, formal←c200010, formal←c200011)
word formal←c0215;
word formal←c200008;
word formal←c200009;
word formal←c200010;
word formal←c200011;
{
register ptr gf←c0274 = (ptr) &globalframe;
if ((formal←c200009 == (* (( (ptr) (* (( (ptr) gf←c0274)+32)/* var←c13928 */ ))+5) ))) {
{
word ec←v9964;
word stream←v9992;
word details←v10020;
word msg←v10048;
ec←v9964 = (* (ptr) formal←c200011 );
stream←v9992 = (* (( (ptr) formal←c200011)+1) );
details←v10020 = (* (( (ptr) formal←c200011)+2) );
msg←v10048 = (* (( (ptr) formal←c200011)+3) );
SOURCE(1615, 40)
if ((0 != (* (( (ptr) (* (( (ptr) formal←c200008)+9) ))+2) ))) {
SOURCE(1637, 18)
{
W4 var←c0212;
(* (ptr) (word) &var←c0212 ) = ec←v9964;
(* (( (ptr) (word) &var←c0212) + 1) ) = (* (( (ptr) formal←c200008)+4) );
(* (( (ptr) (word) &var←c0212) + 2) ) = 0;
(* (( (ptr) (word) &var←c0212) + 3) ) = 0;
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c0274)+32)/* var←c13928 */ ))+5) ), (word) &var←c0212);
};
};
};
}
else {
if ((formal←c200009 == (* (( (ptr) (* (( (ptr) gf←c0274)+32)/* var←c13928 */ ))+4) ))) {
{
word stream←v10108;
stream←v10108 = (* (ptr) formal←c200011 );
SOURCE(1675, 44)
if ((0 != (* (( (ptr) (* (( (ptr) formal←c200008)+9) ))+2) ))) {
SOURCE(1697, 22)
{
word var←c0214;
var←c0214 = (* (( (ptr) formal←c200008)+4) );
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c0274)+32)/* var←c13928 */ ))+4) ), (word) &var←c0214);
};
};
};
};
};
(* (ptr) formal←c0215 ) = 0;
(* (( (ptr) formal←c0215)+1) ) = 0;
return;
}
static void NoName←Q2160(formal←c0225, formal←c200004, formal←c200005, formal←c200006, formal←c200007)
word formal←c0225;
word formal←c200004;
word formal←c200005;
word formal←c200006;
word formal←c200007;
{
register ptr gf←c0275 = (ptr) &globalframe;
if ((formal←c200005 == (* (( (ptr) (* (( (ptr) gf←c0275)+32)/* var←c13928 */ ))+5) ))) {
{
word ec←v9656;
word stream←v9684;
word details←v9712;
word msg←v9740;
ec←v9656 = (* (ptr) formal←c200007 );
stream←v9684 = (* (( (ptr) formal←c200007)+1) );
details←v9712 = (* (( (ptr) formal←c200007)+2) );
msg←v9740 = (* (( (ptr) formal←c200007)+3) );
SOURCE(1245, 41)
if ((0 != (* (( (ptr) (* (( (ptr) formal←c200004)+5) ))+2) ))) {
SOURCE(1267, 19)
{
W4 var←c0224;
(* (ptr) (word) &var←c0224 ) = ec←v9656;
(* (( (ptr) (word) &var←c0224) + 1) ) = (* (( (ptr) formal←c200004)+4) );
(* (( (ptr) (word) &var←c0224) + 2) ) = 0;
(* (( (ptr) (word) &var←c0224) + 3) ) = 0;
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c0275)+32)/* var←c13928 */ ))+5) ), (word) &var←c0224);
};
};
};
};
(* (ptr) formal←c0225 ) = 0;
(* (( (ptr) formal←c0225)+1) ) = 0;
return;
}
static void NoName←Q2220(formal←c0237, formal←c200000, formal←c200001, formal←c200002, formal←c200003)
word formal←c0237;
word formal←c200000;
word formal←c200001;
word formal←c200002;
word formal←c200003;
{
register ptr gf←c0276 = (ptr) &globalframe;
if ((formal←c200001 == (* (( (ptr) (* (( (ptr) gf←c0276)+32)/* var←c13928 */ ))+5) ))) {
{
word ec←v9240;
word stream←v9268;
word details←v9296;
word msg←v9324;
ec←v9240 = (* (ptr) formal←c200003 );
stream←v9268 = (* (( (ptr) formal←c200003)+1) );
details←v9296 = (* (( (ptr) formal←c200003)+2) );
msg←v9324 = (* (( (ptr) formal←c200003)+3) );
SOURCE(1067, 40)
if ((0 != (* (( (ptr) (* (( (ptr) formal←c200000)+5) ))+2) ))) {
SOURCE(1089, 18)
{
W4 var←c0234;
(* (ptr) (word) &var←c0234 ) = ec←v9240;
(* (( (ptr) (word) &var←c0234) + 1) ) = (* (( (ptr) formal←c200000)+4) );
(* (( (ptr) (word) &var←c0234) + 2) ) = 0;
(* (( (ptr) (word) &var←c0234) + 3) ) = 0;
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c0276)+32)/* var←c13928 */ ))+5) ), (word) &var←c0234);
};
};
};
}
else {
if ((formal←c200001 == (* (( (ptr) (* (( (ptr) gf←c0276)+32)/* var←c13928 */ ))+4) ))) {
{
word stream←v9476;
stream←v9476 = (* (ptr) formal←c200003 );
SOURCE(1127, 44)
if ((0 != (* (( (ptr) (* (( (ptr) formal←c200000)+5) ))+2) ))) {
SOURCE(1149, 22)
{
word var←c0236;
var←c0236 = (* (( (ptr) formal←c200000)+4) );
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c0276)+32)/* var←c13928 */ ))+4) ), (word) &var←c0236);
};
};
};
};
};
(* (ptr) formal←c0237 ) = 0;
(* (( (ptr) formal←c0237)+1) ) = 0;
return;
}
/* file: EchoStreamImpl, module: EchoStreamImpl, compiled at: March 20, 1992 12:40:54 pm PST */
extern void XR←install←EchoStreamImpl() {
NoName←Q660();
}
extern void XR←run←EchoStreamImpl() { XR←Start(&globalframe); }