/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation. All rights reserved. */
/* time: November 1, 1993 3:45:04 pm PST */
/* C2C version: April 20, 1993 (sun4) */
/* ref-counting: off */
/* file: CIIHTDImpl, module: CIIHTDImpl */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [1125203234,959776729] CIIHTDImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7;
typedef W7 *W7Pt;
typedef word (*fPt)();
typedef struct {word f0, f1;} W2;
typedef W2 *W2Pt;
typedef struct {word f0, f1, f2, f3;} W4;
typedef W4 *W4Pt;
typedef struct {word f0, f1, f2;} W3;
typedef W3 *W3Pt;
#define SOURCE(p, l) /* source p, l */
static float fc17 = 1.0;
#define SGNCK(i) ((int) (word) (i) < 0 ? XR←RaiseArithmeticFault(): i )
static float fc26 = 5.657;
static void NoName←Q996();
static void CIIHTDImpl←P0();
extern word CII←HTD←SetDefaults();
extern word CII←HTD←Defaults();
extern word CII←HTD←DefaultsDestroy();
extern word CII←HTD←Create();
static word NoName←Q1056();
extern word CII←HTD←Destroy();
extern word CII←HTD←SetBitmap();
static word NoName←Q1116();
static word SetOutputBuffers←P480();
static void NoName←Q1176();
static void NoName←Q1236();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\000\246\143\260\300\265\077\145\155\101\240\000\000"};
static struct {unsigned f; char r[4];} string2 = {196611, "\004\177\377"};
static struct {unsigned f; char r[16];} string3 = {851984, "\257\300\241\011\366\176\300\127\130\105\301\101\334\000\000"};
static struct {unsigned f; char r[4];} string4 = {131074, "\003\004\000"};
static struct {unsigned f; char r[16];} string5 = {851984, "\257\300\207\334\320\152\300\253\325\361\210\100\200\000\000"};
static struct {unsigned f; char r[16];} string6 = {851984, "\257\300\103\021\075\042\300\071\065\007\331\100\164\000\000"};
static struct {unsigned f; char r[16];} string7 = {851984, "\257\300\074\026\324\154\300\201\167\130\113\100\150\000\000"};
static struct {unsigned f; char r[16];} string8 = {851984, "\257\300\000\246\143\260\300\265\077\145\155\100\150\000\000"};
static struct {unsigned f; char r[16];} string9 = {851984, "\257\300\074\177\166\242\300\203\113\217\044\100\150\000\000"};
static struct {unsigned f; char r[16];} string10 = {851984, "\257\300\151\316\011\300\300\225\037\327\014\100\150\000\000"};
static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\350\311\135\367\300\362\215\374\250\100\150\000\000"};
static struct {unsigned f; char r[16];} string12 = {851984, "\257\300\136\344\215\017\300\051\016\154\236\100\150\000\000"};
static struct {unsigned f; char r[16];} string13 = {851984, "\257\300\067\246\211\216\300\354\224\134\067\100\150\000\000"};
static struct {unsigned f; char r[16];} string14 = {851984, "\257\300\121\117\377\026\300\315\013\026\004\100\150\000\000"};
static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\207\001\021\231\300\362\156\044\006\100\150\000\000"};
static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\311\270\056\075\300\372\060\276\203\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[11];
} globalframe = {
{0}, (word) SetOutputBuffers←P480, 0, (word) CII←HTD←SetBitmap,
0, (word) CII←HTD←Destroy, 0, (word) CII←HTD←Create,
0, (word) CII←HTD←DefaultsDestroy, 0, (word) CII←HTD←Defaults,
0, (word) CII←HTD←SetDefaults, 0, (word) CIIHTDImpl←P0,
{0}
};
static void NoName←Q996()
{
register ptr gf←c086 = (ptr) &globalframe;
word var←c15784;
(* (( (ptr) gf←c086)+4) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2);
(* (( (ptr) gf←c086)+5) ) = (word) XR←GetTypeIndex((word) &string3, 0, (word) &string4);
(* (( (ptr) gf←c086)+6) ) = (word) XR←GetTypeIndexS((word) (&string5));
(void) XR←DeclareGlobalFrame((word) "CIIHTDImpl", &globalframe, (word) XR←GetTypeIndexS((word) (&string6)), (word) (( (bPt) gf←c086)+96)
/* var←c14664 */ );
var←c15784 = (word) XR←ImportInterface((word) "CII", (word) XR←GetTypeIndexS((word) (&string7)), 69);
(* (( (ptr) gf←c086)+34)/* var←c15592 */ ) = var←c15784;
(void) XR←ImportProcS(var←c15784, 68436741);
(void) XR←ImportProcS(var←c15784, 69222920);
(void) XR←ImportProcS(var←c15784, 67649794);
(void) XR←ImportProcS(var←c15784, 67911683);
(void) XR←ImportProcS(var←c15784, 68436997);
var←c15784 = (word) XR←ImportInterface((word) "CIIPrivate", (word) XR←GetTypeIndexS((word) (&string8)), 13);
(* (( (ptr) gf←c086)+28)/* var←c15016 */ ) = var←c15784;
(void) XR←ImportProcS(var←c15784, 67636226);
(void) XR←ImportProcS(var←c15784, 67373313);
var←c15784 = (word) XR←ImportInterface((word) "Imager", (word) XR←GetTypeIndexS((word) (&string9)), 84);
(* (( (ptr) gf←c086)+27)/* var←c14920 */ ) = var←c15784;
(void) XR←ImportProcS(var←c15784, 67383553);
var←c15784 = (word) XR←ImportInterface((word) "ImagerDeviceInterchange", (word) XR←GetTypeIndexS((word) (&string10)), 2);
(* (( (ptr) gf←c086)+33)/* var←c15560 */ ) = var←c15784;
(void) XR←ImportProcS(var←c15784, 262401);
var←c15784 = (word) XR←ImportInterface((word) "ImagerManhattan", (word) XR←GetTypeIndexS((word) (&string11)), 24);
(* (( (ptr) gf←c086)+32)/* var←c15400 */ ) = var←c15784;
(void) XR←ImportProcS(var←c15784, 68158209);
var←c15784 = (word) XR←ImportInterface((word) "ImagerPrintContext", (word) XR←GetTypeIndexS((word) (&string12)), 5);
(* (( (ptr) gf←c086)+29)/* var←c15144 */ ) = var←c15784;
(void) XR←ImportProcS(var←c15784, 525058);
(void) XR←ImportProcS(var←c15784, 525314);
(void) XR←ImportProcS(var←c15784, 69206534);
var←c15784 = (word) XR←ImportInterface((word) "ImagerRaster", (word) XR←GetTypeIndexS((word) (&string13)), 13);
(* (( (ptr) gf←c086)+30)/* var←c15208 */ ) = var←c15784;
(void) XR←ImportProcS(var←c15784, 67373569);
var←c15784 = (word) XR←ImportInterface((word) "ImagerTransformation", (word) XR←GetTypeIndexS((word) (&string14)), 55);
(* (( (ptr) gf←c086)+31)/* var←c15304 */ ) = var←c15784;
(void) XR←ImportProcS(var←c15784, 67371777);
var←c15784 = (word) XR←ImportInterface((word) "ImagerPrintDevice", (word) XR←GetTypeIndexS((word) (&string15)), 5);
(* (( (ptr) gf←c086)+35)/* var←c15688 */ ) = var←c15784;
(void) XR←ImportProcS(var←c15784, 67371777);
(void) XR←ImportProcS(var←c15784, 67634178);
var←c15784 = (word) XR←ImportInterface((word) "UnsafeStorage", (word) XR←GetTypeIndexS((word) (&string16)), 4);
(* (( (ptr) gf←c086)+26)/* var←c14760 */ ) = var←c15784;
(void) XR←ImportProcS(var←c15784, 67109120);
}
static void CIIHTDImpl←P0(formal←c024, formal←c023)
word formal←c024;
word formal←c023;
{
/* CIIHTDImpl: */
}
extern word CII←HTD←SetDefaults(paramRepResult←v3684)
word paramRepResult←v3684;
{
word res←v3740;
/* SetDefaults: */
SOURCE(969, 116)
SOURCE(969, 116)
res←v3740 = 0;
SOURCE(1065, 20)
XR←FillWords(&(* (W7Pt) (paramRepResult←v3684)), 7, 0);
(* (( (ptr) paramRepResult←v3684)+3) ) = (* (ptr) &fc17 );
(* (( (ptr) paramRepResult←v3684)+4) ) = (* (ptr) &fc17 );
SOURCE(969, 116)
return(res←v3740);
}
extern word CII←HTD←Defaults(paramResult←v3800)
word paramResult←v3800;
{
register ptr gf←c15816 = (ptr) &globalframe;
word res←v3868;
/* Defaults: */
SOURCE(1091, 179)
SOURCE(1189, 81)
{
word var←c14696;
{
word var←c14728;
{
word var←c14824;
{
word var←c14792;
{
word pd18;
pd18 = (* (( (ptr) (* (( (ptr) gf←c15816)+26)/* var←c14760 */ ))+5) );
var←c14792 = (word) ( *( (fPt) ((* (ptr) pd18 ))))(pd18);
};
{
word pd19;
pd19 = (* (ptr) var←c14792 );
var←c14824 = (word) ( *( (fPt) ((* (ptr) pd19 ))))(var←c14792, 28, pd19);
};
};
XR←FillWords(&(* (W7Pt) (var←c14824)), 7, 0);
(* (( (ptr) var←c14824)+3) ) = (* (ptr) &fc17 );
(* (( (ptr) var←c14824)+4) ) = (* (ptr) &fc17 );
var←c14728 = var←c14824;
};
(* (ptr) paramResult←v3800 ) = var←c14728;
var←c14696 = var←c14728;
};
res←v3868 = (word) CII←HTD←SetDefaults(var←c14696);
};
SOURCE(1091, 179)
return(res←v3868);
}
extern word CII←HTD←DefaultsDestroy(p←v3928)
word p←v3928;
{
register ptr gf←c15848 = (ptr) &globalframe;
word res←v3984;
/* DefaultsDestroy: */
SOURCE(1276, 128)
SOURCE(1276, 128)
res←v3984 = 0;
SOURCE(1365, 39)
{
word var←c14856;
word var←c14888;
{
word pd20;
pd20 = (* (( (ptr) (* (( (ptr) gf←c15848)+26)/* var←c14760 */ ))+5) );
var←c14856 = (word) ( *( (fPt) ((* (ptr) pd20 ))))(pd20);
};
var←c14888 = p←v3928;
p←v3928 = 0;
{
word pd21;
pd21 = (* (( (ptr) var←c14856)+1) );
(void) ( *( (fPt) ((* (ptr) pd21 ))))(var←c14856, var←c14888, pd21);
};
};
SOURCE(1276, 128)
return(res←v3984);
}
extern word CII←HTD←Create(formal←c0102, formal←c0103)
word formal←c0102;
word formal←c0103;
{
W7 var←c15880;
/* declaration of param←v4104 skipped */
/* declaration of hResult←v4132 skipped */
/* declaration of res←v4200 skipped */
var←c15880.f4/* param←v4104 */ = formal←c0102;
var←c15880.f5/* hResult←v4132 */ = formal←c0103;
/* Create: */
SOURCE(1542, 1326)
SOURCE(1542, 1326)
var←c15880.f6/* res←v4200 */ = 0;
SOURCE(1652, 1216)
SOURCE(1652, 1216)
{
word var←c01;
{
word var←c096;
var←c096 = (word) &var←c15880;
var←c01 = (word) XR←Enable(( ((word) (fPt) NoName←Q1056) ), ( ((word) (fPt) NoName←Q1236) ), var←c096);
};
/* removed trivial cond node */
};
SOURCE(1542, 1326)
return(var←c15880.f6/* res←v4200 */ );
}
static word NoName←Q1056(formal←c090)
word formal←c090;
{
register ptr gf←c089 = (ptr) &globalframe;
SOURCE(1727, 14)
(* (ptr) (* (( (ptr) formal←c090)+5) ) ) = 0;
SOURCE(1743, 1130)
{
word context←v4712;
SOURCE(1745, 316)
{
word var←c14984;
word var←c15048;
{
word pd22;
pd22 = (* (( (ptr) (* (( (ptr) gf←c089)+28)/* var←c15016 */ ))+13) );
var←c14984 = (word) ( *( (fPt) ((* (ptr) pd22 ))))((* ((( (ptr) (* (( (ptr) formal←c090)+4) ))+2)) ), pd22);
};
{
word u←v4684 = 0;
SOURCE(1510, 15)
u←v4684 |= 32768;
SOURCE(1527, 11)
var←c15048 = u←v4684;
};
{
W2 var←c15112;
{
word idx23;
var←c15112.f0 = (
idx23 = (* (ptr) (* (( (ptr) formal←c090)+4) ) ),
SGNCK(idx23)
);
};
{
word idx24;
var←c15112.f1 = (
idx24 = (* (( (ptr) (* (( (ptr) formal←c090)+4) ))+1) ),
SGNCK(idx24)
);
};
{
word pd25;
pd25 = (* (( (ptr) (* (( (ptr) gf←c089)+29)/* var←c15144 */ ))+6) );
context←v4712 = (word) ( *( (fPt) ((* (ptr) pd25 ))))(var←c15112, var←c14984, (* (W2Pt) (( (ptr) (* (( (ptr) formal←c090)+4)
))+3) ), (* (( (ptr) (* (( (ptr) formal←c090)+4) ))+5) ), (* (ptr) &fc26 ), var←c15048, pd25);
};
};
};
SOURCE(2063, 49)
{
word pd27;
pd27 = (* (( (ptr) (* (( (ptr) gf←c089)+29)/* var←c15144 */ ))+8) );
(void) ( *( (fPt) ((* (ptr) pd27 ))))(context←v4712, 0, pd27);
};
SOURCE(2114, 82)
{
word var←c15176;
{
word pd28;
pd28 = (* (( (ptr) (* (( (ptr) gf←c089)+28)/* var←c15016 */ ))+16) );
var←c15176 = (word) ( *( (fPt) ((* (ptr) pd28 ))))((* (( (ptr) (* (( (ptr) formal←c090)+4) ))+6) ), 0, pd28);
};
{
word pd29;
pd29 = (* (( (ptr) (* (( (ptr) gf←c089)+29)/* var←c15144 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd29 ))))(context←v4712, var←c15176, pd29);
};
};
SOURCE(2198, 672)
{
word iState←v4756;
word device←v4784;
word state←v4812;
SOURCE(2200, 92)
{
word pd30;
pd30 = (* (( (ptr) (* (( (ptr) gf←c089)+30)/* var←c15208 */ ))+14) );
iState←v4756 = (word) ( *( (fPt) ((* (ptr) pd30 ))))(context←v4712, pd30);
};
SOURCE(2294, 43)
device←v4784 = (* (ptr) iState←v4756 );
SOURCE(2339, 375)
{
word var←c15240;
word var←c15272;
word var←c15336;
word var←c15464;
word var←c15528;
{
word pd31;
pd31 = (* (( (ptr) (* (( (ptr) gf←c089)+27)/* var←c14920 */ ))+53) );
var←c15240 = (word) ( *( (fPt) ((* (ptr) pd31 ))))((* (ptr) (&fc17) ), pd31);
};
{
word pd32;
pd32 = (* (( (ptr) (* (( (ptr) gf←c089)+31)/* var←c15304 */ ))+7) );
var←c15272 = (word) ( *( (fPt) ((* (ptr) pd32 ))))((* (ptr) (&fc17) ), pd32);
};
{
word var←c15368;
word var←c15432;
{
word pd33;
pd33 = (* (( (ptr) (* (( (ptr) gf←c089)+32)/* var←c15400 */ ))+7) );
var←c15368 = (word) ( *( (fPt) ((* (ptr) pd33 ))))((* (W4Pt) ((( (ptr) (* (( (ptr) device←v4784)+6) ))+1)) ), pd33);
};
var←c15432 = XR←NewObject(20, (* (( (ptr) gf←c089)+5) ));
(* (W4Pt) var←c15432 ) = (* (W4Pt) (( (ptr) (* (( (ptr) device←v4784)+6) ))+1) );
(* (( (ptr) var←c15432)+4) ) = var←c15368;
var←c15336 = var←c15432;
};
var←c15464 = XR←NewObject(20, (* (( (ptr) gf←c089)+6) ));
var←c15528 = XR←NewObject(56, (* (( (ptr) gf←c089)+4) ));
(* (( (ptr) var←c15528)+1) ) = (* (ptr) iState←v4756 );
(* (( (ptr) var←c15528)+4) ) = var←c15240;
(* (( (ptr) var←c15528)+6) ) = var←c15272;
(* (( (ptr) var←c15528)+7) ) = var←c15336;
(* (( (ptr) var←c15528)+11) ) = var←c15464;
state←v4812 = var←c15528;
};
SOURCE(2716, 19)
(* (ptr) iState←v4756 ) = 0;
SOURCE(2737, 55)
{
word pd34;
pd34 = (* (( (ptr) (* (( (ptr) gf←c089)+33)/* var←c15560 */ ))+5) );
(void) ( *( (fPt) ((* (ptr) pd34 ))))(iState←v4756, pd34);
};
SOURCE(2794, 74)
{
word pd35;
pd35 = (* (( (ptr) (* (( (ptr) gf←c089)+34)/* var←c15592 */ ))+72) );
(* (ptr) (* (( (ptr) formal←c090)+5) ) ) = (word) ( *( (fPt) ((* (ptr) pd35 ))))(state←v4812, (word) (( (bPt) gf←c089)+40)
/* var←c14440 */ , (* (( (ptr) (* (( (ptr) gf←c089)+34)/* var←c15592 */ ))+69) ), (* (( (ptr) (* (( (ptr) gf←c089)+34)/* var←c15592 */ ))+70)
), (* (( (ptr) (* (( (ptr) gf←c089)+34)/* var←c15592 */ ))+71) ), pd35);
};
};
};
return(0);
}
extern word CII←HTD←Destroy(h←v4260)
word h←v4260;
{
word res←v4304;
/* Destroy: */
SOURCE(2880, 22)
SOURCE(2880, 22)
res←v4304 = 0;
SOURCE(2880, 22)
return(res←v4304);
}
extern word CII←HTD←SetBitmap(formal←c0104, formal←c0105)
word formal←c0104;
word formal←c0105;
{
W7 var←c15912;
/* declaration of h←v4364 skipped */
/* declaration of raster←v4392 skipped */
/* declaration of res←v4448 skipped */
var←c15912.f4/* h←v4364 */ = formal←c0104;
var←c15912.f5/* raster←v4392 */ = formal←c0105;
/* SetBitmap: */
SOURCE(2950, 302)
SOURCE(2950, 302)
var←c15912.f6/* res←v4448 */ = 0;
SOURCE(3042, 210)
SOURCE(3042, 210)
{
word var←c02;
{
word var←c097;
var←c097 = (word) &var←c15912;
var←c02 = (word) XR←Enable(( ((word) (fPt) NoName←Q1116) ), ( ((word) (fPt) NoName←Q1176) ), var←c097);
};
/* removed trivial cond node */
};
SOURCE(2950, 302)
return(var←c15912.f6/* res←v4448 */ );
}
static word NoName←Q1116(formal←c092)
word formal←c092;
{
register ptr gf←c091 = (ptr) &globalframe;
SOURCE(3117, 47)
{
word state←v4868;
SOURCE(3117, 47)
state←v4868 = XR←Narrow((* (ptr) (* (( (ptr) formal←c092)+4) ) ), (* (( (ptr) gf←c091)+4) ));
SOURCE(3166, 86)
{
word var←c15720;
{
word var←c15656;
{
word pd36;
pd36 = (* (( (ptr) (* (( (ptr) gf←c091)+28)/* var←c15016 */ ))+16) );
var←c15656 = (word) ( *( (fPt) ((* (ptr) pd36 ))))((* (( (ptr) formal←c092)+5) ), 0, pd36);
};
{
word pd37;
pd37 = (* (( (ptr) (* (( (ptr) gf←c091)+35)/* var←c15688 */ ))+8) );
var←c15720 = (word) ( *( (fPt) ((* (ptr) pd37 ))))((* (( (ptr) state←v4868)+1) ), var←c15656, pd37);
};
};
};
};
return(0);
}
static word SetOutputBuffers←P480(h←v4508, nBuffers←v4536, outputBuffers←v4564)
word h←v4508;
word nBuffers←v4536;
word outputBuffers←v4564;
{
register ptr gf←c15944 = (ptr) &globalframe;
word res←v4656;
/* SetOutputBuffers: */
SOURCE(3258, 559)
SOURCE(3258, 559)
res←v4656 = 0;
SOURCE(3395, 422)
if (( (int)nBuffers←v4536 != (int)1)) {
SOURCE(3416, 48)
return(1065);
}
else {
SOURCE(3464, 355)
{
word state←v4924;
word old←v4952;
word new←v4980;
SOURCE(3466, 47)
state←v4924 = XR←Narrow((* (ptr) h←v4508 ), (* (( (ptr) gf←c15944)+4) ));
SOURCE(3515, 77)
{
word pd38;
pd38 = (* (( (ptr) (* (( (ptr) gf←c15944)+35)/* var←c15688 */ ))+7) );
old←v4952 = (word) ( *( (fPt) ((* (ptr) pd38 ))))((* ((( (ptr) state←v4924)+1)) ), pd38);
};
SOURCE(3594, 75)
{
word pd39;
pd39 = (* (( (ptr) (* (( (ptr) gf←c15944)+28)/* var←c15016 */ ))+16) );
new←v4980 = (word) ( *( (fPt) ((* (ptr) pd39 ))))((word) outputBuffers←v4564, 0, pd39);
};
SOURCE(3671, 87)
if ((old←v4952 == 0) || ! XR←EqualWords(old←v4952, new←v4980, 4)) {
SOURCE(3716, 42)
return(1065);
};
SOURCE(3760, 57)
{
word var←c15752;
word pd40;
pd40 = (* (( (ptr) (* (( (ptr) gf←c15944)+35)/* var←c15688 */ ))+8) );
var←c15752 = (word) ( *( (fPt) ((* (ptr) pd40 ))))((* (( (ptr) state←v4924)+1) ), new←v4980, pd40);
};
};
};
SOURCE(3258, 559)
return(res←v4656);
}
static void NoName←Q1176(formal←c078, formal←c200004, formal←c200005, formal←c200006, formal←c200007)
word formal←c078;
word formal←c200004;
word formal←c200005;
word formal←c200006;
word formal←c200007;
{
register ptr gf←c094 = (ptr) &globalframe;
if ((formal←c200005 == (* (ptr) (* (( (ptr) (* (( (ptr) gf←c094)+27)/* var←c14920 */ ))+6) ) ))) {
{
W3 error←v13252;
error←v13252 = (* (W3Pt) formal←c200007 );
SOURCE(3066, 38)
{
word code←v14344;
code←v14344 = error←v13252.f0;
if ((code←v14344 == 0)) {
(* (( (ptr) formal←c200004)+6) ) = 0;
}
else {
(* (( (ptr) formal←c200004)+6) ) = (code←v14344 + 1000);
};
};
SOURCE(3106, 8)
(* (ptr) formal←c078 ) = 2;
(* (( (ptr) formal←c078)+1) ) = 3;
return;
};
};
(* (ptr) formal←c078 ) = 0;
(* (( (ptr) formal←c078)+1) ) = 0;
return;
}
static void NoName←Q1236(formal←c085, formal←c200000, formal←c200001, formal←c200002, formal←c200003)
word formal←c085;
word formal←c200000;
word formal←c200001;
word formal←c200002;
word formal←c200003;
{
register ptr gf←c095 = (ptr) &globalframe;
if ((formal←c200001 == (* (ptr) (* (( (ptr) (* (( (ptr) gf←c095)+27)/* var←c14920 */ ))+6) ) ))) {
{
W3 error←v6232;
error←v6232 = (* (W3Pt) formal←c200003 );
SOURCE(1676, 38)
{
word code←v14392;
code←v14392 = error←v6232.f0;
if ((code←v14392 == 0)) {
(* (( (ptr) formal←c200000)+6) ) = 0;
}
else {
(* (( (ptr) formal←c200000)+6) ) = (code←v14392 + 1000);
};
};
SOURCE(1716, 8)
(* (ptr) formal←c085 ) = 2;
(* (( (ptr) formal←c085)+1) ) = 2;
return;
};
};
(* (ptr) formal←c085 ) = 0;
(* (( (ptr) formal←c085)+1) ) = 0;
return;
}
/* file: CIIHTDImpl, module: CIIHTDImpl, compiled at: November 1, 1993 3:45:03 pm PST */
extern void XR←install←CIIHTDImpl() {
NoName←Q996();
}
extern void XR←run←CIIHTDImpl() { XR←Start(&globalframe); }