/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation. All rights reserved. */
/* time: July 28, 1993 10:25:55 am PDT */
/* C2C version: April 20, 1993 (sun4) */
/* ref-counting: off */
/* file: ImagerSysOnUXIOImpl, module: ImagerSysOnUXIOImpl */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [81914085,444470931] ImagerSysOnUXIOImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1, f2;} W3;
typedef struct {word f0, f1;} W2;
typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7;
typedef struct {word f0, f1, f2, f3, f4, f5;} W6;
typedef W3 *W3Pt;
#define SOURCE(p, l) /* source p, l */
#define SGNCK(i) ((int) (word) (i) < 0 ? XR←RaiseArithmeticFault(): i )
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR←RaiseBoundsFault()) : (idx) )
#define IOP2(op, x, y) ( (word) ((x) op (y)) )
static void NoName←Q1884();
static void ImagerSysOnUXIOImpl←P0();
static void ReallyCheckForAbort←P60();
static void Hash64Bits←P180();
static word RawHash←P240();
static word GoodModulus←P300();
static word LongMult←P420();
static word Smul←P480();
static word OpenInputFile←P540();
static word NoName←Q1944();
static word RopeFromFile←P600();
static word RopeFromStream←P660();
static word StreamFileName←P720();
static word NoName←Q2004();
static word StreamCreateDate←P780();
static word NoName←Q2064();
static word OpenOutputFile←P840();
static word NoName←Q2124();
static void NoName←Q2184();
static void NoName←Q2244();
static void NoName←Q2304();
static void NoName←Q2364();
static struct {unsigned f; char r[20];} string1 = {1245204, "\205\210\241\000\100\377\257\300\227\306\253\223\300\107\163\142\023\103\260"};
static struct {unsigned f; char r[16];} string2 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[4];} string3 = {65537, "\001\000\000"};
static struct {unsigned f; char r[4];} string4 = {131076, "\216\251\000"};
static struct {unsigned f; char r[16];} string5 = {851984, "fontdirectory\000\000"};
static struct {unsigned f; char r[52];} string6 = {3145780, "Path for imager font lookup (e.g. /imagerfonts/)\000\000\000"};
static struct {unsigned f; char r[24];} string7 = {1310744, "/import/imagerfonts/\000\000\000"};
static struct {unsigned f; char r[16];} string8 = {851984, "\257\300\004\341\350\345\300\032\176\026\223\100\164\000\000"};
static struct {unsigned f; char r[8];} string9 = {262148, "\004\200\340 \000\000\000"};
static struct {unsigned f; char r[12];} string10 = {720908, "\257\300/\002\345\247\245\243T@h"};
static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"};
static struct {unsigned f; char r[16];} string12 = {851984, "\257\300\240\236\274\315\300\111\163\325\023\100\150\000\000"};
static struct {unsigned f; char r[16];} string13 = {851984, "\257\300\262\334\125\203\300\272\176\356\230\100\150\000\000"};
static struct {unsigned f; char r[16];} string14 = {851984, "\257\300\241\235\001\025\300\065\011\226\172\100\150\000\000"};
static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\041\257\203\366\300\322\161\356\007\100\150\000\000"};
static struct {
word f0[4]; word f4; word f5[12]; 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; word f32; word f33;
word f34; word f35; word f36; word f37;
word f38; word f39; word f40; word f41;
word f42[7];
} globalframe = {
{0}, (word) 1, {0}, (word) OpenOutputFile←P840,
0, (word) StreamCreateDate←P780, 0, (word) StreamFileName←P720,
0, (word) RopeFromStream←P660, 0, (word) RopeFromFile←P600,
0, (word) OpenInputFile←P540, 0, (word) Smul←P480,
0, (word) LongMult←P420, 0, (word) GoodModulus←P300,
0, (word) RawHash←P240, 0, (word) Hash64Bits←P180,
0, (word) ReallyCheckForAbort←P60, 0, (word) ImagerSysOnUXIOImpl←P0,
{0}
};
static void NoName←Q1884()
{
register ptr gf←c0141 = (ptr) &globalframe;
word var←c15316;
(* (( (ptr) gf←c0141)+7) ) = (word) XR←GetTypeIndexS((word) (&string1));
(* (( (ptr) gf←c0141)+9) ) = (word) XR←GetTypeIndex((word) &string2, 0, (word) &string3);
(* (( (ptr) gf←c0141)+11) ) = (word) XR←GetTypeIndex((word) &string4, 0, (word) &string3);
(* (ptr) (( (bPt) gf←c0141)+52) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0141)+11) ), (word) &string5);
(* (ptr) (( (bPt) gf←c0141)+56) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0141)+9) ), (word) &string6);
(* (ptr) (( (bPt) gf←c0141)+60) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0141)+9) ), (word) &string7);
(void) XR←DeclareGlobalFrame((word) "ImagerSysOnUXIOImpl", &globalframe, (word) XR←GetTypeIndex((word) &string8, 0, (word) &string9)
, (word) (( (bPt) gf←c0141)+164)/* var←c13812 */ );
var←c15316 = (word) XR←ImportInterface((word) "ImagerSwitches", (word) XR←GetTypeIndexS((word) (&string10)), 8);
(* (( (ptr) gf←c0141)+43)/* var←c13876 */ ) = var←c15316;
(void) XR←ImportProcS(var←c15316, 68157444);
var←c15316 = (word) XR←ImportInterface((word) "IO", (word) XR←GetTypeIndexS((word) (&string11)), 103);
(* (( (ptr) gf←c0141)+46)/* var←c15188 */ ) = var←c15316;
(void) XR←ImportProcS(var←c15316, 67377921);
var←c15316 = (word) XR←ImportInterface((word) "Process", (word) XR←GetTypeIndexS((word) (&string12)), 22);
(* (( (ptr) gf←c0141)+44)/* var←c13908 */ ) = var←c15316;
(void) XR←ImportProcS(var←c15316, 3584);
var←c15316 = (word) XR←ImportInterface((word) "RopeFile", (word) XR←GetTypeIndexS((word) (&string13)), 7);
(* (( (ptr) gf←c0141)+47)/* var←c15220 */ ) = var←c15316;
(void) XR←ImportProcS(var←c15316, 68158212);
var←c15316 = (word) XR←ImportInterface((word) "UXIO", (word) XR←GetTypeIndexS((word) (&string14)), 7);
(* (( (ptr) gf←c0141)+45)/* var←c15060 */ ) = var←c15316;
(void) XR←ImportProcS(var←c15316, 67372033);
(void) XR←ImportProcS(var←c15316, 67371777);
(void) XR←ImportProcS(var←c15316, 67372289);
(void) XR←ImportProcS(var←c15316, 67895555);
var←c15316 = (word) XR←ExportInterface((word) "ImagerSys", (word) XR←GetTypeIndexS((word) (&string15)), 15);
(* (( (ptr) gf←c0141)+48)/* var←c15348 */ ) = var←c15316;
(void) XR←ExportVar(var←c15316, 0, (word) (( (bPt) gf←c0141)+16)/* doAbortCheck←v2832 */ );
(void) XR←ExportProcS(var←c15316, (word) (( (bPt) gf←c0141)+156)/* var←c13780 */ , 512, (word) "ReallyCheckForAbort");
(void) XR←ExportProcS(var←c15316, (word) (( (bPt) gf←c0141)+140)/* var←c13716 */ , 68158210, (word) "RawHash");
(void) XR←ExportProcS(var←c15316, (word) (( (bPt) gf←c0141)+132)/* var←c13684 */ , 67372033, (word) "GoodModulus");
(void) XR←ExportProcS(var←c15316, (word) (( (bPt) gf←c0141)+124)/* var←c13652 */ , 67634434, (word) "LongMult");
(void) XR←ExportProcS(var←c15316, (word) (( (bPt) gf←c0141)+116)/* var←c13620 */ , 67634946, (word) "Smul");
(void) XR←ExportVar(var←c15316, 8, (word) (( (bPt) gf←c0141)+64)/* var←c13396 */ );
(void) XR←ExportProcS(var←c15316, (word) (( (bPt) gf←c0141)+108)/* var←c13588 */ , 67373313, (word) "OpenInputFile");
(void) XR←ExportProcS(var←c15316, (word) (( (bPt) gf←c0141)+100)/* var←c13556 */ , 67373569, (word) "RopeFromFile");
(void) XR←ExportProcS(var←c15316, (word) (( (bPt) gf←c0141)+92)/* var←c13524 */ , 67373825, (word) "RopeFromStream");
(void) XR←ExportProcS(var←c15316, (word) (( (bPt) gf←c0141)+84)/* var←c13492 */ , 67374081, (word) "StreamFileName");
(void) XR←ExportProcS(var←c15316, (word) (( (bPt) gf←c0141)+76)/* var←c13460 */ , 67374337, (word) "StreamCreateDate");
(void) XR←ExportProcS(var←c15316, (word) (( (bPt) gf←c0141)+68)/* var←c13428 */ , 67374593, (word) "OpenOutputFile");
}
static void ImagerSysOnUXIOImpl←P0(formal←c036, formal←c034)
word formal←c036;
word formal←c034;
{
register ptr gf←c15380 = (ptr) &globalframe;
/* ImagerSysOnUXIOImpl: */
SOURCE(247, 8668)
/* moved to installation proc */
SOURCE(599, 4638)
{
word var←c13844;
var←c13844 = XR←NewObject(1024, (* (( (ptr) gf←c15380)+7) ));
(* (ptr) var←c13844 ) = 1795321;
(* (( (ptr) var←c13844)+1) ) = 3455516381;
(* (( (ptr) var←c13844)+2) ) = 4058152079;
(* (( (ptr) var←c13844)+3) ) = 353636823;
(* (( (ptr) var←c13844)+4) ) = 416517004;
(* (( (ptr) var←c13844)+5) ) = 2283724255;
(* (( (ptr) var←c13844)+6) ) = 1347841707;
(* (( (ptr) var←c13844)+7) ) = 3638659278;
(* (( (ptr) var←c13844)+8) ) = 2304330004;
(* (( (ptr) var←c13844)+9) ) = 1876257221;
(* (( (ptr) var←c13844)+10) ) = 1325643673;
(* (( (ptr) var←c13844)+11) ) = 3997044668;
(* (( (ptr) var←c13844)+12) ) = 1228946470;
(* (( (ptr) var←c13844)+13) ) = 2119704917;
(* (( (ptr) var←c13844)+14) ) = 1069736267;
(* (( (ptr) var←c13844)+15) ) = 4119932508;
(* (( (ptr) var←c13844)+16) ) = 4174306543;
(* (( (ptr) var←c13844)+17) ) = 373819690;
(* (( (ptr) var←c13844)+18) ) = 691453569;
(* (( (ptr) var←c13844)+19) ) = 208338811;
(* (( (ptr) var←c13844)+20) ) = 272094501;
(* (( (ptr) var←c13844)+21) ) = 1223798692;
(* (( (ptr) var←c13844)+22) ) = 3378150831;
(* (( (ptr) var←c13844)+23) ) = 2621382310;
(* (( (ptr) var←c13844)+24) ) = 2884084759;
(* (( (ptr) var←c13844)+25) ) = 3827521680;
(* (( (ptr) var←c13844)+26) ) = 1891676363;
(* (( (ptr) var←c13844)+27) ) = 636995664;
(* (( (ptr) var←c13844)+28) ) = 2548245581;
(* (( (ptr) var←c13844)+29) ) = 1499406323;
(* (( (ptr) var←c13844)+30) ) = 1670825196;
(* (( (ptr) var←c13844)+31) ) = 504846616;
(* (( (ptr) var←c13844)+32) ) = 3027756597;
(* (( (ptr) var←c13844)+33) ) = 2109683022;
(* (( (ptr) var←c13844)+34) ) = 2001959279;
(* (( (ptr) var←c13844)+35) ) = 1389127403;
(* (( (ptr) var←c13844)+36) ) = 4187322307;
(* (( (ptr) var←c13844)+37) ) = 2837918435;
(* (( (ptr) var←c13844)+38) ) = 2933293260;
(* (( (ptr) var←c13844)+39) ) = 3902623275;
(* (( (ptr) var←c13844)+40) ) = 3173529435;
(* (( (ptr) var←c13844)+41) ) = 1023782170;
(* (( (ptr) var←c13844)+42) ) = 1119038235;
(* (( (ptr) var←c13844)+43) ) = 1282479812;
(* (( (ptr) var←c13844)+44) ) = 3215478100;
(* (( (ptr) var←c13844)+45) ) = 3699041661;
(* (( (ptr) var←c13844)+46) ) = 2168777837;
(* (( (ptr) var←c13844)+47) ) = 74144369;
(* (( (ptr) var←c13844)+48) ) = 2521880610;
(* (( (ptr) var←c13844)+49) ) = 2401535996;
(* (( (ptr) var←c13844)+50) ) = 235523014;
(* (( (ptr) var←c13844)+51) ) = 57062969;
(* (( (ptr) var←c13844)+52) ) = 1620236791;
(* (( (ptr) var←c13844)+53) ) = 2802570131;
(* (( (ptr) var←c13844)+54) ) = 2693406001;
(* (( (ptr) var←c13844)+55) ) = 1909038297;
(* (( (ptr) var←c13844)+56) ) = 4098186270;
(* (( (ptr) var←c13844)+57) ) = 3063187194;
(* (( (ptr) var←c13844)+58) ) = 1097203124;
(* (( (ptr) var←c13844)+59) ) = 4240346794;
(* (( (ptr) var←c13844)+60) ) = 3337309130;
(* (( (ptr) var←c13844)+61) ) = 2498100090;
(* (( (ptr) var←c13844)+62) ) = 3494795145;
(* (( (ptr) var←c13844)+63) ) = 3476421139;
(* (( (ptr) var←c13844)+64) ) = 2376672107;
(* (( (ptr) var←c13844)+65) ) = 4026548531;
(* (( (ptr) var←c13844)+66) ) = 639394340;
(* (( (ptr) var←c13844)+67) ) = 4064015378;
(* (( (ptr) var←c13844)+68) ) = 1453647710;
(* (( (ptr) var←c13844)+69) ) = 555102210;
(* (( (ptr) var←c13844)+70) ) = 2132785905;
(* (( (ptr) var←c13844)+71) ) = 1928974488;
(* (( (ptr) var←c13844)+72) ) = 1771880867;
(* (( (ptr) var←c13844)+73) ) = 44757480;
(* (( (ptr) var←c13844)+74) ) = 1172049361;
(* (( (ptr) var←c13844)+75) ) = 3767750620;
(* (( (ptr) var←c13844)+76) ) = 317754756;
(* (( (ptr) var←c13844)+77) ) = 4084624592;
(* (( (ptr) var←c13844)+78) ) = 3074244070;
(* (( (ptr) var←c13844)+79) ) = 1937736890;
(* (( (ptr) var←c13844)+80) ) = 821212218;
(* (( (ptr) var←c13844)+81) ) = 2674476118;
(* (( (ptr) var←c13844)+82) ) = 3939107044;
(* (( (ptr) var←c13844)+83) ) = 3820008845;
(* (( (ptr) var←c13844)+84) ) = 331912593;
(* (( (ptr) var←c13844)+85) ) = 4276737582;
(* (( (ptr) var←c13844)+86) ) = 528715910;
(* (( (ptr) var←c13844)+87) ) = 2557791958;
(* (( (ptr) var←c13844)+88) ) = 1022242681;
(* (( (ptr) var←c13844)+89) ) = 472967255;
(* (( (ptr) var←c13844)+90) ) = 1708214326;
(* (( (ptr) var←c13844)+91) ) = 2956045063;
(* (( (ptr) var←c13844)+92) ) = 2219807052;
(* (( (ptr) var←c13844)+93) ) = 1005065663;
(* (( (ptr) var←c13844)+94) ) = 714746943;
(* (( (ptr) var←c13844)+95) ) = 1607769785;
(* (( (ptr) var←c13844)+96) ) = 1194169063;
(* (( (ptr) var←c13844)+97) ) = 3428524695;
(* (( (ptr) var←c13844)+98) ) = 662892127;
(* (( (ptr) var←c13844)+99) ) = 3043119991;
(* (( (ptr) var←c13844)+100) ) = 3150961550;
(* (( (ptr) var←c13844)+101) ) = 3739089249;
(* (( (ptr) var←c13844)+102) ) = 1549845915;
(* (( (ptr) var←c13844)+103) ) = 2433555411;
(* (( (ptr) var←c13844)+104) ) = 112010962;
(* (( (ptr) var←c13844)+105) ) = 349745797;
(* (( (ptr) var←c13844)+106) ) = 1800560335;
(* (( (ptr) var←c13844)+107) ) = 2025553898;
(* (( (ptr) var←c13844)+108) ) = 2041335880;
(* (( (ptr) var←c13844)+109) ) = 2827283764;
(* (( (ptr) var←c13844)+110) ) = 490485477;
(* (( (ptr) var←c13844)+111) ) = 1948063571;
(* (( (ptr) var←c13844)+112) ) = 3404565575;
(* (( (ptr) var←c13844)+113) ) = 1089445130;
(* (( (ptr) var←c13844)+114) ) = 3793826117;
(* (( (ptr) var←c13844)+115) ) = 3950041639;
(* (( (ptr) var←c13844)+116) ) = 195288947;
(* (( (ptr) var←c13844)+117) ) = 2273908796;
(* (( (ptr) var←c13844)+118) ) = 3232134042;
(* (( (ptr) var←c13844)+119) ) = 3754334808;
(* (( (ptr) var←c13844)+120) ) = 885085361;
(* (( (ptr) var←c13844)+121) ) = 607038526;
(* (( (ptr) var←c13844)+122) ) = 956484681;
(* (( (ptr) var←c13844)+123) ) = 3667491629;
(* (( (ptr) var←c13844)+124) ) = 3154218773;
(* (( (ptr) var←c13844)+125) ) = 952576509;
(* (( (ptr) var←c13844)+126) ) = 831465429;
(* (( (ptr) var←c13844)+127) ) = 2952093770;
(* (( (ptr) var←c13844)+128) ) = 1746465436;
(* (( (ptr) var←c13844)+129) ) = 2733425546;
(* (( (ptr) var←c13844)+130) ) = 3569553433;
(* (( (ptr) var←c13844)+131) ) = 2473502971;
(* (( (ptr) var←c13844)+132) ) = 2067341549;
(* (( (ptr) var←c13844)+133) ) = 1629031272;
(* (( (ptr) var←c13844)+134) ) = 2423228832;
(* (( (ptr) var←c13844)+135) ) = 2191400135;
(* (( (ptr) var←c13844)+136) ) = 4014709074;
(* (( (ptr) var←c13844)+137) ) = 2660009230;
(* (( (ptr) var←c13844)+138) ) = 982568198;
(* (( (ptr) var←c13844)+139) ) = 797861632;
(* (( (ptr) var←c13844)+140) ) = 2360856492;
(* (( (ptr) var←c13844)+141) ) = 1259465378;
(* (( (ptr) var←c13844)+142) ) = 1315739787;
(* (( (ptr) var←c13844)+143) ) = 1725908720;
(* (( (ptr) var←c13844)+144) ) = 3959999102;
(* (( (ptr) var←c13844)+145) ) = 2791622587;
(* (( (ptr) var←c13844)+146) ) = 398295837;
(* (( (ptr) var←c13844)+147) ) = 1978033141;
(* (( (ptr) var←c13844)+148) ) = 890148708;
(* (( (ptr) var←c13844)+149) ) = 222447495;
(* (( (ptr) var←c13844)+150) ) = 2762080876;
(* (( (ptr) var←c13844)+151) ) = 3582427495;
(* (( (ptr) var←c13844)+152) ) = 2913690038;
(* (( (ptr) var←c13844)+153) ) = 1691527781;
(* (( (ptr) var←c13844)+154) ) = 595292378;
(* (( (ptr) var←c13844)+155) ) = 3343525345;
(* (( (ptr) var←c13844)+156) ) = 27304393;
(* (( (ptr) var←c13844)+157) ) = 2782531248;
(* (( (ptr) var←c13844)+158) ) = 4148262512;
(* (( (ptr) var←c13844)+159) ) = 1525305792;
(* (( (ptr) var←c13844)+160) ) = 4197618493;
(* (( (ptr) var←c13844)+161) ) = 4279895897;
(* (( (ptr) var←c13844)+162) ) = 179852801;
(* (( (ptr) var←c13844)+163) ) = 3413663710;
(* (( (ptr) var←c13844)+164) ) = 3992469298;
(* (( (ptr) var←c13844)+165) ) = 3686379198;
(* (( (ptr) var←c13844)+166) ) = 846019064;
(* (( (ptr) var←c13844)+167) ) = 1489359368;
(* (( (ptr) var←c13844)+168) ) = 2347015011;
(* (( (ptr) var←c13844)+169) ) = 3356140914;
(* (( (ptr) var←c13844)+170) ) = 2711562464;
(* (( (ptr) var←c13844)+171) ) = 2583446304;
(* (( (ptr) var←c13844)+172) ) = 3285006903;
(* (( (ptr) var←c13844)+173) ) = 3313876885;
(* (( (ptr) var←c13844)+174) ) = 3240801170;
(* (( (ptr) var←c13844)+175) ) = 131558055;
(* (( (ptr) var←c13844)+176) ) = 1784763126;
(* (( (ptr) var←c13844)+177) ) = 2209419988;
(* (( (ptr) var←c13844)+178) ) = 1532925507;
(* (( (ptr) var←c13844)+179) ) = 2150317685;
(* (( (ptr) var←c13844)+180) ) = 724777893;
(* (( (ptr) var←c13844)+181) ) = 1369811359;
(* (( (ptr) var←c13844)+182) ) = 3780623777;
(* (( (ptr) var←c13844)+183) ) = 3876354242;
(* (( (ptr) var←c13844)+184) ) = 2095119534;
(* (( (ptr) var←c13844)+185) ) = 577229152;
(* (( (ptr) var←c13844)+186) ) = 2890738431;
(* (( (ptr) var←c13844)+187) ) = 155667025;
(* (( (ptr) var←c13844)+188) ) = 3090811570;
(* (( (ptr) var←c13844)+189) ) = 3849943556;
(* (( (ptr) var←c13844)+190) ) = 4253037581;
(* (( (ptr) var←c13844)+191) ) = 3911366934;
(* (( (ptr) var←c13844)+192) ) = 1587274397;
(* (( (ptr) var←c13844)+193) ) = 1257567586;
(* (( (ptr) var←c13844)+194) ) = 3652144297;
(* (( (ptr) var←c13844)+195) ) = 754871229;
(* (( (ptr) var←c13844)+196) ) = 4129350583;
(* (( (ptr) var←c13844)+197) ) = 1846002292;
(* (( (ptr) var←c13844)+198) ) = 3115735874;
(* (( (ptr) var←c13844)+199) ) = 431792233;
(* (( (ptr) var←c13844)+200) ) = 3289379058;
(* (( (ptr) var←c13844)+201) ) = 2058711585;
(* (( (ptr) var←c13844)+202) ) = 2649953473;
(* (( (ptr) var←c13844)+203) ) = 766440320;
(* (( (ptr) var←c13844)+204) ) = 3199525012;
(* (( (ptr) var←c13844)+205) ) = 452960784;
(* (( (ptr) var←c13844)+206) ) = 1465713961;
(* (( (ptr) var←c13844)+207) ) = 2994492877;
(* (( (ptr) var←c13844)+208) ) = 3719471931;
(* (( (ptr) var←c13844)+209) ) = 3011339560;
(* (( (ptr) var←c13844)+210) ) = 98268172;
(* (( (ptr) var←c13844)+211) ) = 1657071978;
(* (( (ptr) var←c13844)+212) ) = 675692664;
(* (( (ptr) var←c13844)+213) ) = 3607522608;
(* (( (ptr) var←c13844)+214) ) = 2385296372;
(* (( (ptr) var←c13844)+215) ) = 3554589922;
(* (( (ptr) var←c13844)+216) ) = 939132062;
(* (( (ptr) var←c13844)+217) ) = 3862167989;
(* (( (ptr) var←c13844)+218) ) = 1837968776;
(* (( (ptr) var←c13844)+219) ) = 780041818;
(* (( (ptr) var←c13844)+220) ) = 538171201;
(* (( (ptr) var←c13844)+221) ) = 261555945;
(* (( (ptr) var←c13844)+222) ) = 1052435549;
(* (( (ptr) var←c13844)+223) ) = 864467117;
(* (( (ptr) var←c13844)+224) ) = 455414533;
(* (( (ptr) var←c13844)+225) ) = 1398017027;
(* (( (ptr) var←c13844)+226) ) = 2608165320;
(* (( (ptr) var←c13844)+227) ) = 4224763448;
(* (( (ptr) var←c13844)+228) ) = 295770495;
(* (( (ptr) var←c13844)+229) ) = 150728463;
(* (( (ptr) var←c13844)+230) ) = 2253518916;
(* (( (ptr) var←c13844)+231) ) = 2506307648;
(* (( (ptr) var←c13844)+232) ) = 1145259311;
(* (( (ptr) var←c13844)+233) ) = 1297440070;
(* (( (ptr) var←c13844)+234) ) = 1984693208;
(* (( (ptr) var←c13844)+235) ) = 3594039736;
(* (( (ptr) var←c13844)+236) ) = 3123685131;
(* (( (ptr) var←c13844)+237) ) = 3524302003;
(* (( (ptr) var←c13844)+238) ) = 2460478310;
(* (( (ptr) var←c13844)+239) ) = 3269055497;
(* (( (ptr) var←c13844)+240) ) = 2233886851;
(* (( (ptr) var←c13844)+241) ) = 2316674779;
(* (( (ptr) var←c13844)+242) ) = 1821930783;
(* (( (ptr) var←c13844)+243) ) = 2592661110;
(* (( (ptr) var←c13844)+244) ) = 1181272558;
(* (( (ptr) var←c13844)+245) ) = 2742229634;
(* (( (ptr) var←c13844)+246) ) = 2856913046;
(* (( (ptr) var←c13844)+247) ) = 914440739;
(* (( (ptr) var←c13844)+248) ) = 1439430188;
(* (( (ptr) var←c13844)+249) ) = 1409589020;
(* (( (ptr) var←c13844)+250) ) = 2975659855;
(* (( (ptr) var←c13844)+251) ) = 1125302382;
(* (( (ptr) var←c13844)+252) ) = 1567780862;
(* (( (ptr) var←c13844)+253) ) = 1737198248;
(* (( (ptr) var←c13844)+254) ) = 3509138300;
(* (( (ptr) var←c13844)+255) ) = 3472720401;
(* (( (ptr) gf←c15380)+5)/* sBox←v2944 */ ) = var←c13844;
};
SOURCE(8969, 164)
{
word pd16;
pd16 = (* (( (ptr) (* (( (ptr) gf←c15380)+43)/* var←c13876 */ ))+4) );
(* (( (ptr) gf←c15380)+6)/* fontDirSwitch←v3392 */ ) = ((word) ( *( (fPt) ((* (ptr) pd16 ))))(5, (* (( (ptr) gf←c15380)+13)
), (* (( (ptr) gf←c15380)+14) ), (* (( (ptr) gf←c15380)+15) ), pd16) + 97);
};
}
static void ReallyCheckForAbort←P60()
{
register ptr gf←c15412 = (ptr) &globalframe;
/* ReallyCheckForAbort: */
SOURCE(459, 61)
SOURCE(496, 24)
{
word pd17;
pd17 = (* (( (ptr) (* (( (ptr) gf←c15412)+44)/* var←c13908 */ ))+18) );
(void) ( *( (fPt) ((* (ptr) pd17 ))))(pd17);
};
}
static void Hash64Bits←P180(formal←c057, left←v3648, right←v3676)
word formal←c057;
word left←v3648;
word right←v3676;
{
register ptr gf←c15444 = (ptr) &globalframe;
word var←c3720;
word var←c3748;
/* Hash64Bits: */
SOURCE(5334, 3581)
SOURCE(5414, 3501)
{
word var←c13940;
word b←v13212;
b←v13212 = (* (( (ptr) (* (( (ptr) gf←c15444)+5)/* sBox←v2944 */ ))+(left←v3648 & 0377)) );
SOURCE(5305, 3610)
var←c13940 = (right←v3676 + b←v13212);
right←v3676 = var←c13940;
};
SOURCE(5453, 3462)
{
word var←c14004;
word b←v13164;
b←v13164 = (* (( (ptr) (* (( (ptr) gf←c15444)+5)/* sBox←v2944 */ ))+(right←v3676 & 0377)) );
SOURCE(5305, 3610)
var←c14004 = (left←v3648 + b←v13164);
left←v3648 = var←c14004;
};
SOURCE(5493, 3422)
{
word var←c14068;
word b←v13116;
b←v13116 = (* (( (ptr) (* (( (ptr) gf←c15444)+5)/* sBox←v2944 */ ))+(((unsigned)left←v3648 << 16) >> 24)) );
SOURCE(5305, 3610)
var←c14068 = (right←v3676 + b←v13116);
right←v3676 = var←c14068;
};
SOURCE(5532, 3383)
{
word var←c14132;
word b←v13068;
b←v13068 = (* (( (ptr) (* (( (ptr) gf←c15444)+5)/* sBox←v2944 */ ))+(((unsigned)right←v3676 << 16) >> 24)) );
SOURCE(5305, 3610)
var←c14132 = (left←v3648 + b←v13068);
left←v3648 = var←c14132;
};
SOURCE(5572, 3343)
{
word var←c14196;
word b←v13020;
b←v13020 = (* (( (ptr) (* (( (ptr) gf←c15444)+5)/* sBox←v2944 */ ))+((unsigned)left←v3648 >> 24)) );
SOURCE(5305, 3610)
var←c14196 = (right←v3676 + b←v13020);
right←v3676 = var←c14196;
};
SOURCE(5611, 3304)
{
word var←c14260;
word b←v12972;
b←v12972 = (* (( (ptr) (* (( (ptr) gf←c15444)+5)/* sBox←v2944 */ ))+((unsigned)right←v3676 >> 24)) );
SOURCE(5305, 3610)
var←c14260 = (left←v3648 + b←v12972);
left←v3648 = var←c14260;
};
SOURCE(5651, 3264)
{
word var←c14324;
word b←v12924;
b←v12924 = (* (( (ptr) (* (( (ptr) gf←c15444)+5)/* sBox←v2944 */ ))+(((unsigned)left←v3648 << 8) >> 24)) );
SOURCE(5305, 3610)
var←c14324 = (right←v3676 + b←v12924);
right←v3676 = var←c14324;
};
SOURCE(5690, 3225)
{
word var←c14388;
word b←v12876;
b←v12876 = (* (( (ptr) (* (( (ptr) gf←c15444)+5)/* sBox←v2944 */ ))+(((unsigned)right←v3676 << 8) >> 24)) );
SOURCE(5305, 3610)
var←c14388 = (left←v3648 + b←v12876);
left←v3648 = var←c14388;
};
SOURCE(5730, 21)
var←c3720 = left←v3648;
var←c3748 = right←v3676;
/* removed tail goto */
(* (ptr) formal←c057 ) = var←c3720;
(* (( (ptr) formal←c057)+1) ) = var←c3748;
return;
}
static word RawHash←P240(block←v3808, modulus←v3836)
W3 block←v3808;
word modulus←v3836;
{
word var←c3880;
word p←v5092;
word index←v5120;
word count←v5148;
word left←v5232 = 0;
word right←v5260 = 0;
/* RawHash: */
SOURCE(5755, 3160)
SOURCE(5863, 47)
p←v5092 = block←v3808.f0;
SOURCE(5912, 29)
{
word idx18;
index←v5120 = (
idx18 = (word) block←v3808.f1,
SGNCK(idx18)
);
};
SOURCE(5943, 24)
{
word idx19;
count←v5148 = (
idx19 = (word) block←v3808.f2,
SGNCK(idx19)
);
};
SOURCE(6283, 2632)
lab←L100011: ;
if ((count←v5148 >= 8)) {
}
else {
goto lab←L100009;
};
SOURCE(6303, 2612)
{
word var←c14484;
word a←v12800;
word b←v12828;
a←v12800 = left←v5232;
{
word k←v5560;
k←v5560 = index←v5120;
SOURCE(6035, 15)
index←v5120 = (index←v5120 + 4);
SOURCE(6052, 15)
count←v5148 = SGNCK((count←v5148 - 4));
SOURCE(6069, 2846)
b←v12828 = (((word) (((word) (((word) (unsigned) (word) (* (( (bPt) p←v5092)+k←v5560) ) << 8) + (unsigned) (word) (* (( (bPt) p←v5092)+(k←v5560 +
1)) )) << 8) + (unsigned) (word) (* (( (bPt) p←v5092)+(k←v5560 + 2)) )) << 8) + (unsigned) (word) (* (( (bPt) p←v5092)+(k←v5560 +
3)) ));
};
SOURCE(5305, 3610)
var←c14484 = (a←v12800 + b←v12828);
left←v5232 = var←c14484;
};
SOURCE(6333, 2582)
{
word var←c14612;
word a←v12724;
word b←v12752;
a←v12724 = right←v5260;
{
word k←v13304;
k←v13304 = index←v5120;
SOURCE(6035, 15)
index←v5120 = (index←v5120 + 4);
SOURCE(6052, 15)
count←v5148 = SGNCK((count←v5148 - 4));
SOURCE(6069, 2846)
b←v12752 = (((word) (((word) (((word) (unsigned) (word) (* (( (bPt) p←v5092)+k←v13304) ) << 8) + (unsigned) (word) (* (
( (bPt) p←v5092)+(k←v13304 + 1)) )) << 8) + (unsigned) (word) (* (( (bPt) p←v5092)+(k←v13304 + 2)) )) << 8) + (unsigned) (word) (* (
( (bPt) p←v5092)+(k←v13304 + 3)) ));
};
SOURCE(5305, 3610)
var←c14612 = (a←v12724 + b←v12752);
right←v5260 = var←c14612;
};
SOURCE(6365, 2550)
{
W2 var←c14740;
(void) Hash64Bits←P180((word) &var←c14740, left←v5232, right←v5260);
right←v5260 = var←c14740.f1;
left←v5232 = var←c14740.f0;
};
goto lab←L100011;
lab←L100009: ;
SOURCE(6415, 2500)
if ((count←v5148 != 0)) {
SOURCE(6435, 2480)
if ((count←v5148 >= 4)) {
SOURCE(6456, 2459)
{
word var←c14772;
word a←v12648;
word b←v12676;
a←v12648 = left←v5232;
{
word k←v13260;
k←v13260 = index←v5120;
SOURCE(6035, 15)
index←v5120 = (index←v5120 + 4);
SOURCE(6052, 15)
count←v5148 = SGNCK((count←v5148 - 4));
SOURCE(6069, 2846)
b←v12676 = (((word) (((word) (((word) (unsigned) (word) (* (( (bPt) p←v5092)+k←v13260) ) << 8) + (unsigned) (word) (* (
( (bPt) p←v5092)+(k←v13260 + 1)) )) << 8) + (unsigned) (word) (* (( (bPt) p←v5092)+(k←v13260 + 2)) )) << 8) + (unsigned) (word) (* (
( (bPt) p←v5092)+(k←v13260 + 3)) ));
};
SOURCE(5305, 3610)
var←c14772 = (a←v12648 + b←v12676);
left←v5232 = var←c14772;
};
};
SOURCE(6489, 2426)
if ((count←v5148 != 0)) {
SOURCE(6507, 147)
{
word w←v5436 = 0;
SOURCE(6566, 2349)
{
register word i←v5516 = 0;
register word noName←c14900;
word var←c14932;
word k←v5588;
noName←c14900 = count←v5148;
if ((i←v5516 >= noName←c14900)) {
goto lab←L100018;
};
lab←L100021: ;
SOURCE(6594, 2321)
k←v5588 = index←v5120;
SOURCE(6196, 15)
index←v5120 = (index←v5120 + 1);
SOURCE(6213, 15)
count←v5148 = SGNCK((count←v5148 - 1));
SOURCE(6230, 2685)
var←c14932 = (unsigned) (word) (* (( (bPt) p←v5092)+k←v5588) );
(* (( (bPt) &w←v5436)+BCK(i←v5516, 4)) ) = (var←c14932
);
i←v5516 = (i←v5516 + 1);
if ((i←v5516 < noName←c14900)) {
goto lab←L100021;
};
lab←L100018: ;
};
SOURCE(6617, 2298)
right←v5260 = (right←v5260 + w←v5436);
};
};
SOURCE(6657, 2258)
{
W2 var←c14996;
(void) Hash64Bits←P180((word) &var←c14996, left←v5232, right←v5260);
right←v5260 = var←c14996.f1;
left←v5232 = var←c14996.f0;
};
};
SOURCE(6701, 119)
if ((modulus←v3836 == 0)) {
return(right←v5260);
}
else {
return((right←v5260 % modulus←v3836));
};
}
static word GoodModulus←P300(size←v3940)
word size←v3940;
{
word var←c3984;
word v←v5616;
word up←v5644 = 1;
/* GoodModulus: */
SOURCE(6826, 2089)
SOURCE(6891, 18)
v←v5616 = size←v3940;
SOURCE(6928, 24)
if ((v←v5616 < 2)) {
SOURCE(6942, 10)
return(2);
};
SOURCE(6954, 96)
if ((v←v5616 >= 2147483420)) {
SOURCE(7003, 35)
v←v5616 = 2147483519;
SOURCE(7040, 10)
up←v5644 = 0;
};
SOURCE(7055, 29)
if (((v←v5616 & 1) == 0)) {
SOURCE(7075, 9)
v←v5616 = (v←v5616 + 1);
};
SOURCE(7086, 1829)
{
word var←c15028;
word k←v5688 = 3;
word kSqr←v5716 = 9;
word kSqrDelta←v5744 = 16;
lab←L100025: ;
{
word x20;
SOURCE(7274, 28)
if ((v←v5616 < 3)) {
SOURCE(7288, 14)
var←c15028 = (unsigned) (v←v5616 == 2);
goto lab←L100026;
};
SOURCE(7304, 34)
if (((v←v5616 & 1) == 0)) {
SOURCE(7324, 14)
var←c15028 = 0;
goto lab←L100026;
};
SOURCE(7340, 115)
lab←L100029: ;
if ((kSqr←v5716 <= v←v5616)) {
}
else {
goto lab←L100027;
};
SOURCE(7358, 34)
if (((v←v5616 % k←v5688) == 0)) {
SOURCE(7378, 14)
var←c15028 = 0;
goto lab←L100026;
};
SOURCE(7394, 9)
k←v5688 = (k←v5688 + 2);
SOURCE(7405, 23)
kSqr←v5716 = (kSqr←v5716 + kSqrDelta←v5744);
SOURCE(7430, 25)
kSqrDelta←v5744 = (kSqrDelta←v5744 + 8);
goto lab←L100029;
lab←L100027: ;
SOURCE(7466, 14)
var←c15028 = 1;
lab←L100026: ;
x20 = (word) (0 == var←c15028);
if (x20) {
}
else {
goto lab←L100023;
};
};
SOURCE(7104, 43)
if ((0 != up←v5644)) {
SOURCE(7115, 15)
v←v5616 = (v←v5616 + 2);
}
else {
SOURCE(7130, 17)
v←v5616 = (v←v5616 - 2);
};
goto lab←L100025;
lab←L100023: ;
};
SOURCE(7149, 11)
return(v←v5616);
}
static word LongMult←P420(a←v4148, b←v4176)
word a←v4148;
word b←v4176;
{
word var←c4220;
/* LongMult: */
SOURCE(7484, 1431)
SOURCE(7544, 1371)
return((a←v4148 * b←v4176));
}
static word Smul←P480(a←v4280, b←v4308)
word a←v4280;
word b←v4308;
{
word var←c4352;
/* Smul: */
SOURCE(7573, 1342)
SOURCE(7634, 1281)
return(IOP2( * , (int)a←v4280, (int)b←v4308));
}
static word OpenInputFile←P540(formal←c0170)
word formal←c0170;
{
W7 var←c15476;
/* declaration of fileName←v4500 skipped */
register ptr gf←c15508 = (ptr) &globalframe;
word stream←v4544;
var←c15476.f4/* fileName←v4500 */ = formal←c0170;
/* OpenInputFile: */
SOURCE(7726, 1189)
SOURCE(7726, 1189)
stream←v4544 = 0;
SOURCE(7808, 1107)
SOURCE(7808, 1107)
{
/* declaration of var←c01 skipped */
var←c15476.f5/* var←c01 */ = (* (( (ptr) (* (( (ptr) gf←c15508)+45)/* var←c15060 */ ))+5) );
{
/* declaration of var←c02 skipped */
{
word var←c03;
{
word var←c0158;
var←c0158 = (word) &var←c15476;
var←c03 = (word) XR←Enable(( ((word) (fPt) NoName←Q1944) ), ( ((word) (fPt) NoName←Q2364) ), var←c0158);
};
if ((var←c03 == 2)) {
goto lab←L100031;
};
};
stream←v4544 = var←c15476.f6/* var←c02 */ ;
};
};
lab←L100031: ;
SOURCE(7726, 1189)
return(stream←v4544);
}
static word NoName←Q1944(formal←c0146)
word formal←c0146;
{
SOURCE(7808, 1107)
{
word pd21;
pd21 = (* (( (ptr) formal←c0146)+5) );
(* (( (ptr) formal←c0146)+6) ) = (word) ( *( (fPt) ((* (ptr) pd21 ))))((* (( (ptr) formal←c0146)+4) ), 0, 436, pd21);
};
return(0);
}
static word RopeFromFile←P600(fileName←v4604)
word fileName←v4604;
{
word var←c4648;
word stream←v5772;
/* RopeFromFile: */
SOURCE(7989, 926)
SOURCE(8051, 43)
stream←v5772 = (word) OpenInputFile←P540(fileName←v4604);
SOURCE(8096, 819)
if ((stream←v5772 == 0)) {
return(0);
}
else {
return((word) RopeFromStream←P660(stream←v5772));
};
}
static word RopeFromStream←P660(stream←v4708)
word stream←v4708;
{
register ptr gf←c15540 = (ptr) &globalframe;
word var←c4752;
/* RopeFromStream: */
SOURCE(8162, 753)
SOURCE(8229, 686)
{
word var←c15156;
{
word pd22;
pd22 = (* (( (ptr) (* (( (ptr) gf←c15540)+46)/* var←c15188 */ ))+31) );
var←c15156 = (unsigned) ( (int)(word) ( *( (fPt) ((* (ptr) pd22 ))))(stream←v4708, pd22) < (int)250000);
};
{
word pd23;
pd23 = (* (( (ptr) (* (( (ptr) gf←c15540)+47)/* var←c15220 */ ))+7) );
return((word) ( *( (fPt) ((* (ptr) pd23 ))))(stream←v4708, 0, 2147483647, var←c15156, pd23));
};
};
}
static word StreamFileName←P720(formal←c0171)
word formal←c0171;
{
W6 var←c15572;
/* declaration of stream←v4812 skipped */
/* declaration of fullFName←v4856 skipped */
var←c15572.f4/* stream←v4812 */ = formal←c0171;
/* StreamFileName: */
SOURCE(8319, 596)
SOURCE(8319, 596)
var←c15572.f5/* fullFName←v4856 */ = 0;
SOURCE(8403, 512)
SOURCE(8403, 512)
{
word var←c04;
{
word var←c0159;
var←c0159 = (word) &var←c15572;
var←c04 = (word) XR←Enable(( ((word) (fPt) NoName←Q2004) ), ( ((word) (fPt) NoName←Q2304) ), var←c0159);
};
/* removed trivial cond node */
};
SOURCE(8319, 596)
return(var←c15572.f5/* fullFName←v4856 */ );
}
static word NoName←Q2004(formal←c0149)
word formal←c0149;
{
register ptr gf←c0148 = (ptr) &globalframe;
SOURCE(8444, 471)
{
word var←c15252;
{
word pd24;
pd24 = (* (( (ptr) (* (( (ptr) gf←c0148)+45)/* var←c15060 */ ))+7) );
var←c15252 = (word) ( *( (fPt) ((* (ptr) pd24 ))))((* ((( (ptr) formal←c0149)+4)) ), pd24);
};
{
word pd25;
pd25 = (* (( (ptr) (* (( (ptr) gf←c0148)+45)/* var←c15060 */ ))+9) );
(* (( (ptr) formal←c0149)+5) ) = (word) ( *( (fPt) ((* (ptr) pd25 ))))(var←c15252, pd25);
};
};
return(0);
}
static word StreamCreateDate←P780(formal←c0172)
word formal←c0172;
{
W6 var←c15604;
/* declaration of stream←v4916 skipped */
/* declaration of created←v4960 skipped */
var←c15604.f4/* stream←v4916 */ = formal←c0172;
/* StreamCreateDate: */
SOURCE(8507, 408)
SOURCE(8507, 408)
var←c15604.f5/* created←v4960 */ = 2147483647;
SOURCE(8614, 301)
SOURCE(8614, 301)
{
word var←c05;
{
word var←c0160;
var←c0160 = (word) &var←c15604;
var←c05 = (word) XR←Enable(( ((word) (fPt) NoName←Q2064) ), ( ((word) (fPt) NoName←Q2244) ), var←c0160);
};
/* removed trivial cond node */
};
SOURCE(8507, 408)
return(var←c15604.f5/* created←v4960 */ );
}
static word NoName←Q2064(formal←c0151)
word formal←c0151;
{
register ptr gf←c0150 = (ptr) &globalframe;
SOURCE(8655, 260)
{
word var←c15284;
{
word pd26;
pd26 = (* (( (ptr) (* (( (ptr) gf←c0150)+45)/* var←c15060 */ ))+7) );
var←c15284 = (word) ( *( (fPt) ((* (ptr) pd26 ))))((* ((( (ptr) formal←c0151)+4)) ), pd26);
};
{
word pd27;
pd27 = (* (( (ptr) (* (( (ptr) gf←c0150)+45)/* var←c15060 */ ))+8) );
(* (( (ptr) formal←c0151)+5) ) = (word) ( *( (fPt) ((* (ptr) pd27 ))))(var←c15284, pd27);
};
};
return(0);
}
static word OpenOutputFile←P840(formal←c0173)
word formal←c0173;
{
W7 var←c15636;
/* declaration of fileName←v5020 skipped */
register ptr gf←c15668 = (ptr) &globalframe;
word stream←v5064;
var←c15636.f4/* fileName←v5020 */ = formal←c0173;
/* OpenOutputFile: */
SOURCE(8722, 193)
SOURCE(8722, 193)
stream←v5064 = 0;
SOURCE(8805, 110)
{
/* declaration of var←c06 skipped */
var←c15636.f5/* var←c06 */ = (* (( (ptr) (* (( (ptr) gf←c15668)+45)/* var←c15060 */ ))+5) );
{
/* declaration of var←c07 skipped */
{
word var←c0161;
var←c0161 = (word) &var←c15636;
(void) (word) XR←Enable(( ((word) (fPt) NoName←Q2124) ), ( ((word) (fPt) NoName←Q2184) ), var←c0161);
};
stream←v5064 = var←c15636.f6/* var←c07 */ ;
};
};
SOURCE(8722, 193)
return(stream←v5064);
}
static word NoName←Q2124(formal←c0153)
word formal←c0153;
{
SOURCE(8805, 110)
{
word pd28;
pd28 = (* (( (ptr) formal←c0153)+5) );
(* (( (ptr) formal←c0153)+6) ) = (word) ( *( (fPt) ((* (ptr) pd28 ))))((* (( (ptr) formal←c0153)+4) ), 2, 436, pd28);
};
return(0);
}
static void NoName←Q2184(formal←c0123, formal←c200012, formal←c200013, formal←c200014, formal←c200015)
word formal←c0123;
word formal←c200012;
word formal←c200013;
word formal←c200014;
word formal←c200015;
{
register ptr gf←c0154 = (ptr) &globalframe;
if ((formal←c200013 == (* (( (ptr) (* (( (ptr) gf←c0154)+45)/* var←c15060 */ ))+6) ))) {
{
W3 error←v12468;
error←v12468 = (* (W3Pt) formal←c200015 );
SOURCE(8868, 47)
{
W2 var←c0122;
(* (ptr) (word) &var←c0122 ) = error←v12468.f1;
(* (( (ptr) (word) &var←c0122) + 1) ) = error←v12468.f2;
(void) XR←RaiseError((word) (( (bPt) gf←c0154)+64)/* var←c13396 */ , (word) &var←c0122);
};
};
};
(* (ptr) formal←c0123 ) = 0;
(* (( (ptr) formal←c0123)+1) ) = 0;
return;
}
static void NoName←Q2244(formal←c0128, formal←c200008, formal←c200009, formal←c200010, formal←c200011)
word formal←c0128;
word formal←c200008;
word formal←c200009;
word formal←c200010;
word formal←c200011;
{
register ptr gf←c0155 = (ptr) &globalframe;
if ((formal←c200009 == (* (( (ptr) (* (( (ptr) gf←c0155)+45)/* var←c15060 */ ))+6) )) || (formal←c200009 == (* (( (ptr) (* (
( (ptr) gf←c0155)+46)/* var←c15188 */ ))+5) ))) {
SOURCE(8645, 8)
(* (ptr) formal←c0128 ) = 2;
(* (( (ptr) formal←c0128)+1) ) = 4;
return;
};
(* (ptr) formal←c0128 ) = 0;
(* (( (ptr) formal←c0128)+1) ) = 0;
return;
}
static void NoName←Q2304(formal←c0133, formal←c200004, formal←c200005, formal←c200006, formal←c200007)
word formal←c0133;
word formal←c200004;
word formal←c200005;
word formal←c200006;
word formal←c200007;
{
register ptr gf←c0156 = (ptr) &globalframe;
if ((formal←c200005 == (* (( (ptr) (* (( (ptr) gf←c0156)+45)/* var←c15060 */ ))+6) )) || (formal←c200005 == (* (( (ptr) (* (
( (ptr) gf←c0156)+46)/* var←c15188 */ ))+5) ))) {
SOURCE(8434, 8)
(* (ptr) formal←c0133 ) = 2;
(* (( (ptr) formal←c0133)+1) ) = 3;
return;
};
(* (ptr) formal←c0133 ) = 0;
(* (( (ptr) formal←c0133)+1) ) = 0;
return;
}
static void NoName←Q2364(formal←c0140, formal←c200000, formal←c200001, formal←c200002, formal←c200003)
word formal←c0140;
word formal←c200000;
word formal←c200001;
word formal←c200002;
word formal←c200003;
{
register ptr gf←c0157 = (ptr) &globalframe;
if ((formal←c200001 == (* (( (ptr) (* (( (ptr) gf←c0157)+45)/* var←c15060 */ ))+6) ))) {
{
W3 error←v11620;
error←v11620 = (* (W3Pt) formal←c200003 );
SOURCE(7872, 1043)
if ((error←v11620.f0 == 4)) {
SOURCE(7917, 15)
(* (ptr) formal←c0140 ) = 2;
(* (( (ptr) formal←c0140)+1) ) = 2;
return;
}
else {
SOURCE(7932, 983)
{
W2 var←c0139;
(* (ptr) (word) &var←c0139 ) = error←v11620.f1;
(* (( (ptr) (word) &var←c0139) + 1) ) = error←v11620.f2;
(void) XR←RaiseError((word) (( (bPt) gf←c0157)+64)/* var←c13396 */ , (word) &var←c0139);
};
};
};
};
(* (ptr) formal←c0140 ) = 0;
(* (( (ptr) formal←c0140)+1) ) = 0;
return;
}
/* file: ImagerSysOnUXIOImpl, module: ImagerSysOnUXIOImpl, compiled at: July 28, 1993 10:25:55 am PDT */
extern void XR←install←ImagerSysOnUXIOImpl() {
NoName←Q1884();
}
extern void XR←run←ImagerSysOnUXIOImpl() { XR←Start(&globalframe); }