/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation. All rights reserved. */
/* time: January 29, 1993 5:50:33 pm PST */
/* C2C version: January 29, 1993 (sun4) */
/* ref-counting: off */
/* file: IPtoCIPCommands, module: IPtoCIPCommands */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [385973099,1752846876] IPtoCIPCommands";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {word f0, f1, f2;} W3;
typedef struct {W8 f; W3 r;} W11;
typedef struct {word f0, f1;} W2;
typedef struct {word f0, f1, f2, f3;} W4;
typedef W2 *W2Pt;
typedef W4 *W4Pt;
#define SOURCE(p, l) /* source p, l */
static float fc33 = 11.0;
static float fc34 = 8.5;
static float fc37 = 300.0;
static float fc45 = 5.525;
static float fc57 = 1.0;
static void NoName←Q492();
static void IPtoCIPCommands←P0();
static void IPtoCIPCommand←P60();
static void Log←P120();
static void PageAction←P324();
static struct {unsigned f; char r[16];} string1 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[4];} string2 = {65537, "\001\000\000"};
static struct {unsigned f; char r[56];} string3 = {3473464, "Convert an Interpress master to compressed Interpress\000\000"};
static struct {unsigned f; char r[8];} string4 = {458760, "IPtoCIP"};
static struct {unsigned f; char r[8];} string5 = {262152, ".cip\000\000\000"};
static struct {unsigned f; char r[24];} string6 = {1376280, "Interpress/Xerox/2.0 \000\000"};
static struct {unsigned f; char r[4];} string7 = {65540, "\012\000\000"};
static struct {unsigned f; char r[8];} string8 = {262152, "*** \000\000\000"};
static struct {unsigned f; char r[16];} string9 = {851984, "\257\300\027\001\173\153\300\150\172\122\034\100\164\000\000"};
static struct {unsigned f; char r[4];} string10 = {196611, "\004←\200"};
static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\373\225\000\071\300\362\156\307\320\100\150\000\000"};
static struct {unsigned f; char r[16];} string12 = {851984, "\257\300\311\235\133\064\300\165\175\234\175\100\150\000\000"};
static struct {unsigned f; char r[16];} string13 = {851984, "\257\300\074\177\166\242\300\203\113\217\044\100\150\000\000"};
static struct {unsigned f; char r[16];} string14 = {851984, "\257\300\170\064\225\306\300\207\372\245\271\100\150\000\000"};
static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\124\360\214\337\300\200\347\202\313\100\150\000\000"};
static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\260\302\146\322\300\075\027\134\123\100\150\000\000"};
static struct {unsigned f; char r[16];} string17 = {851984, "\257\300\230\052\311\306\300\242\375\035\324\100\150\000\000"};
static struct {unsigned f; char r[16];} string18 = {851984, "\257\300\136\344\215\017\300\051\016\154\236\100\150\000\000"};
static struct {unsigned f; char r[16];} string19 = {851984, "\257\300\213\226\301\143\300\072\355\320\373\100\150\000\000"};
static struct {unsigned f; char r[16];} string20 = {851984, "\257\300\146\072\276\323\300\221\127\350\046\100\150\000\000"};
static struct {unsigned f; char r[16];} string21 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"};
static struct {unsigned f; char r[16];} string22 = {851984, "\257\300\240\236\274\315\300\111\163\325\023\100\150\000\000"};
static struct {unsigned f; char r[16];} string23 = {851984, "\257\300\246\205\220\035\300\344\000\142\023\100\150\000\000"};
static struct {unsigned f; char r[16];} string24 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[16];} string25 = {851984, "\257\300\065\316\057\327\300\004\232\253\237\100\150\000\000"};
static struct {
word f0[13]; word f13; word f14; word f15;
word f16[16];
} globalframe = {
{0}, (word) IPtoCIPCommand←P60, 0, (word) IPtoCIPCommands←P0,
{0}
};
static void NoName←Q492()
{
register ptr gf←c060 = (ptr) &globalframe;
word var←c16160;
(* (( (ptr) gf←c060)+5) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2);
(* (ptr) (( (bPt) gf←c060)+28) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c060)+5) ), (word) &string3);
(* (ptr) (( (bPt) gf←c060)+32) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c060)+5) ), (word) &string4);
(* (ptr) (( (bPt) gf←c060)+36) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c060)+5) ), (word) &string5);
(* (ptr) (( (bPt) gf←c060)+40) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c060)+5) ), (word) &string6);
(* (ptr) (( (bPt) gf←c060)+44) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c060)+5) ), (word) &string7);
(* (ptr) (( (bPt) gf←c060)+48) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c060)+5) ), (word) &string8);
(void) XR←DeclareGlobalFrame((word) "IPtoCIPCommands", &globalframe, (word) XR←GetTypeIndex((word) &string9, 0, (word) &string10)
, (word) (( (bPt) gf←c060)+60)/* var←c15232 */ );
var←c16160 = (word) XR←ImportInterface((word) "Commander", (word) XR←GetTypeIndexS((word) (&string11)), 3);
(* (( (ptr) gf←c060)+17)/* var←c15264 */ ) = var←c16160;
(void) XR←ImportProcS(var←c16160, 1310725);
var←c16160 = (word) XR←ImportInterface((word) "CommanderOps", (word) XR←GetTypeIndexS((word) (&string12)), 14);
(* (( (ptr) gf←c060)+18)/* var←c15360 */ ) = var←c16160;
(void) XR←ImportProcS(var←c16160, 67634178);
var←c16160 = (word) XR←ImportInterface((word) "Imager", (word) XR←GetTypeIndexS((word) (&string13)), 84);
(* (( (ptr) gf←c060)+30)/* var←c16064 */ ) = var←c16160;
(void) XR←ImportProcS(var←c16160, 542978);
(void) XR←ImportProcS(var←c16160, 543490);
(void) XR←ImportProcS(var←c16160, 526850);
var←c16160 = (word) XR←ImportInterface((word) "ImagerBackdoor", (word) XR←GetTypeIndexS((word) (&string14)), 42);
(* (( (ptr) gf←c060)+27)/* var←c15904 */ ) = var←c16160;
(void) XR←ImportProcS(var←c16160, 67899395);
var←c16160 = (word) XR←ImportInterface((word) "ImagerInterpress", (word) XR←GetTypeIndexS((word) (&string15)), 10);
(* (( (ptr) gf←c060)+21)/* var←c15456 */ ) = var←c16160;
(void) XR←ImportProcS(var←c16160, 264193);
(void) XR←ImportProcS(var←c16160, 788227);
(void) XR←ImportProcS(var←c16160, 67633410);
var←c16160 = (word) XR←ImportInterface((word) "ImagerPixel", (word) XR←GetTypeIndexS((word) (&string16)), 9);
(* (( (ptr) gf←c060)+25)/* var←c15776 */ ) = var←c16160;
(void) XR←ImportProcS(var←c16160, 68420869);
var←c16160 = (word) XR←ImportInterface((word) "ImagerPixelArray", (word) XR←GetTypeIndexS((word) (&string17)), 13);
(* (( (ptr) gf←c060)+26)/* var←c15872 */ ) = var←c16160;
(void) XR←ImportProcS(var←c16160, 68946948);
var←c16160 = (word) XR←ImportInterface((word) "ImagerPrintContext", (word) XR←GetTypeIndexS((word) (&string18)), 5);
(* (( (ptr) gf←c060)+23)/* var←c15648 */ ) = var←c16160;
(void) XR←ImportProcS(var←c16160, 525314);
(void) XR←ImportProcS(var←c16160, 525058);
(void) XR←ImportProcS(var←c16160, 69206534);
var←c16160 = (word) XR←ImportInterface((word) "ImagerSample", (word) XR←GetTypeIndexS((word) (&string19)), 60);
(* (( (ptr) gf←c060)+24)/* var←c15712 */ ) = var←c16160;
(void) XR←ImportProcS(var←c16160, 273409);
(void) XR←ImportProcS(var←c16160, 68685571);
var←c16160 = (word) XR←ImportInterface((word) "InterpressInterpreter", (word) XR←GetTypeIndexS((word) (&string20)), 8);
(* (( (ptr) gf←c060)+20)/* var←c15424 */ ) = var←c16160;
(void) XR←ImportProcS(var←c16160, 263937);
(void) XR←ImportProcS(var←c16160, 1312005);
(void) XR←ImportProcS(var←c16160, 68419845);
var←c16160 = (word) XR←ImportInterface((word) "IO", (word) XR←GetTypeIndexS((word) (&string21)), 103);
(* (( (ptr) gf←c060)+29)/* var←c16032 */ ) = var←c16160;
(void) XR←ImportProcS(var←c16160, 1071364);
var←c16160 = (word) XR←ImportInterface((word) "Process", (word) XR←GetTypeIndexS((word) (&string22)), 22);
(* (( (ptr) gf←c060)+28)/* var←c15968 */ ) = var←c16160;
(void) XR←ImportProcS(var←c16160, 3584);
var←c16160 = (word) XR←ImportInterface((word) "Real", (word) XR←GetTypeIndexS((word) (&string23)), 11);
(* (( (ptr) gf←c060)+22)/* var←c15584 */ ) = var←c16160;
(void) XR←ImportProcS(var←c16160, 67371521);
var←c16160 = (word) XR←ImportInterface((word) "Rope", (word) XR←GetTypeIndexS((word) (&string24)), 43);
(* (( (ptr) gf←c060)+19)/* var←c15392 */ ) = var←c16160;
(void) XR←ImportProcS(var←c16160, 67633666);
var←c16160 = (word) XR←ImportInterface((word) "XeroxCompress", (word) XR←GetTypeIndexS((word) (&string25)), 3);
(* (( (ptr) gf←c060)+31)/* var←c16128 */ ) = var←c16160;
(void) XR←ImportProcS(var←c16160, 67371521);
}
static void IPtoCIPCommands←P0(formal←c022, formal←c021)
word formal←c022;
word formal←c021;
{
register ptr gf←c16192 = (ptr) &globalframe;
/* IPtoCIPCommands: */
SOURCE(252, 2789)
SOURCE(2977, 64)
{
word pd26;
pd26 = (* (( (ptr) (* (( (ptr) gf←c16192)+17)/* var←c15264 */ ))+4) );
(void) ( *( (fPt) ((* (ptr) pd26 ))))((* (( (ptr) gf←c16192)+8) ), (word) (( (bPt) gf←c16192)+52)/* var←c15200 */ , (* (
( (ptr) gf←c16192)+7) ), 0, 1, pd26);
};
}
static void IPtoCIPCommand←P60(formal←c053, formal←c069)
word formal←c053;
word formal←c069;
{
W11 var←c16224;
/* declaration of cmd←v7704 skipped */
register ptr gf←c16256 = (ptr) &globalframe;
word result←v7748;
word msg←v7776;
/* declaration of var←c15296 skipped */
/* declaration of var←c15328 skipped */
word arg0←v3496;
(* (( (ptr) &var←c16224)+4)/* cmd←v7704 */ ) = formal←c069;
/* IPtoCIPCommand: */
SOURCE(664, 2304)
{
word tmpAddr27;
tmpAddr27 = (word) (( (ptr) &var←c16224)+5)/* var←c15296 */ ;
(* (ptr) tmpAddr27 ) = ( ((word) (fPt) PageAction←P324) );
(* (( (ptr) tmpAddr27) + 1) ) = 1;
};
{
word tmpAddr28;
tmpAddr28 = (word) (( (ptr) &var←c16224)+7)/* var←c15328 */ ;
(* (ptr) tmpAddr28 ) = ( ((word) (fPt) Log←P120) );
(* (( (ptr) tmpAddr28) + 1) ) = 1;
};
SOURCE(664, 2304)
result←v7748 = 0;
SOURCE(664, 2304)
msg←v7776 = 0;
SOURCE(826, 43)
{
word pd29;
pd29 = (* (( (ptr) (* (( (ptr) gf←c16256)+18)/* var←c15360 */ ))+8) );
arg0←v3496 = (word) ( *( (fPt) ((* (ptr) pd29 ))))((* (( (ptr) &var←c16224)+4)/* cmd←v7704 */ ), 0, pd29);
};
SOURCE(871, 2097)
if ((arg0←v3496 == 0)) {
SOURCE(890, 43)
{
word var←c029;
var←c029 = (* (( (ptr) (* (( (ptr) (* (( (ptr) &var←c16224)+4)/* cmd←v7704 */ ))+5) ))+1) );
(void) XR←RaiseError((* (( (ptr) (* (( (ptr) gf←c16256)+18)/* var←c15360 */ ))+4) ), (word) &var←c029);
};
}
else {
SOURCE(933, 2037)
{
word inName←v3540;
word outName←v3568;
word input←v3596;
word output←v3624;
word scanMode←v3764 = 6;
word sIn←v3848;
word fIn←v3876;
W2 size←v3904;
word bitmapContext←v3932;
word bitmap←v3960;
/* declaration of bitmapAsPixelArray←v3988 skipped */
/* declaration of pixelsToMeters←v4016 skipped */
SOURCE(935, 19)
inName←v3540 = arg0←v3496;
SOURCE(956, 35)
{
word pd30;
pd30 = (* (( (ptr) (* (( (ptr) gf←c16256)+19)/* var←c15392 */ ))+6) );
outName←v3568 = (word) ( *( (fPt) ((* (ptr) pd30 ))))(arg0←v3496, (* (( (ptr) gf←c16256)+9) ), pd30);
};
SOURCE(993, 77)
{
word pd31;
pd31 = (* (( (ptr) (* (( (ptr) gf←c16256)+20)/* var←c15424 */ ))+5) );
input←v3596 = (word) ( *( (fPt) ((* (ptr) pd31 ))))(inName←v3540, (word) (( (bPt) &var←c16224)+28)/* var←c15328 */ , 0, 0, 0, pd31)
;
};
SOURCE(1072, 88)
{
word pd32;
pd32 = (* (( (ptr) (* (( (ptr) gf←c16256)+21)/* var←c15456 */ ))+5) );
output←v3624 = (word) ( *( (fPt) ((* (ptr) pd32 ))))(outName←v3568, (* (( (ptr) gf←c16256)+10) ), pd32);
};
SOURCE(1383, 82)
{
word var←c15488;
var←c15488 = (unsigned) (((unsigned)scanMode←v3764 << 28) >> 30);
if ((var←c15488 == 2) || (var←c15488 == 3)) {
sIn←v3848 = (* (ptr) &fc33 );
}
else {
sIn←v3848 = (* (ptr) &fc34 );
};
};
SOURCE(1467, 82)
{
word var←c15520;
var←c15520 = (unsigned) (scanMode←v3764 & 3);
if ((var←c15520 == 2) || (var←c15520 == 3)) {
fIn←v3876 = (* (ptr) &fc33 );
}
else {
fIn←v3876 = (* (ptr) &fc34 );
};
};
SOURCE(1551, 63)
{
word pd35;
word x36;
word x38;
float tf39;
pd35 = (* (( (ptr) (* (( (ptr) gf←c16256)+22)/* var←c15584 */ ))+6) );
size←v3904.f0 = (word) ( *( (fPt) ((* (ptr) pd35 ))))((
tf39 = (
x36 = sIn←v3848, *(float*)&x36
) * (
x38 = (* (ptr) &fc37 ), *(float*)&x38
), *(word*)&tf39
), pd35);
};
{
word pd40;
word x41;
word x42;
float tf43;
pd40 = (* (( (ptr) (* (( (ptr) gf←c16256)+22)/* var←c15584 */ ))+6) );
size←v3904.f1 = (word) ( *( (fPt) ((* (ptr) pd40 ))))((
tf43 = (
x41 = fIn←v3876, *(float*)&x41
) * (
x42 = (* (ptr) &fc37 ), *(float*)&x42
), *(word*)&tf43
), pd40);
};
SOURCE(1616, 209)
{
W2 var←c15616;
var←c15616.f0 = (* (ptr) &fc37 );
var←c15616.f1 = (* (ptr) &fc37 );
{
word pd44;
pd44 = (* (( (ptr) (* (( (ptr) gf←c16256)+23)/* var←c15648 */ ))+6) );
bitmapContext←v3932 = (word) ( *( (fPt) ((* (ptr) pd44 ))))(size←v3904, scanMode←v3764, var←c15616, 0, (* (ptr) &fc45 ), 32768, pd44)
;
};
};
SOURCE(1827, 77)
{
W4 var←c15680;
var←c15680.f0 = 0;
var←c15680.f1 = 0;
(* (W2Pt) (( (ptr) &var←c15680)+2) ) = size←v3904;
{
word pd46;
pd46 = (* (( (ptr) (* (( (ptr) gf←c16256)+24)/* var←c15712 */ ))+19) );
bitmap←v3960 = (word) ( *( (fPt) ((* (ptr) pd46 ))))(var←c15680, 1, 0, pd46);
};
};
SOURCE(1906, 195)
{
word var←c15744;
W4 var←c15808;
{
word pd47;
pd47 = (* (( (ptr) (* (( (ptr) gf←c16256)+25)/* var←c15776 */ ))+9) );
var←c15744 = (word) ( *( (fPt) ((* (ptr) pd47 ))))(bitmap←v3960, 0, 0, 0, 0, pd47);
};
{
W4 var←c15840;
word map←v15152;
map←v15152 = bitmap←v3960;
var←c15840 = (* (W4Pt) map←v15152 );
var←c15808 = var←c15840;
};
{
word pd48;
pd48 = (* (( (ptr) (* (( (ptr) gf←c16256)+26)/* var←c15872 */ ))+16) );
(* (( (ptr) &var←c16224)+9)/* bitmapAsPixelArray←v3988 */ ) = (word) ( *( (fPt) ((* (ptr) pd48 ))))(var←c15744, var←c15808, scanMode←v3764, 0, pd48)
;
};
};
SOURCE(2103, 115)
{
word pd49;
pd49 = (* (( (ptr) (* (( (ptr) gf←c16256)+27)/* var←c15904 */ ))+20) );
(* (( (ptr) &var←c16224)+10)/* pixelsToMeters←v4016 */ ) = (word) ( *( (fPt) ((* (ptr) pd49 ))))(bitmapContext←v3932, 3, 0, pd49)
;
};
SOURCE(2220, 68)
{
word pd50;
pd50 = (* (( (ptr) (* (( (ptr) gf←c16256)+23)/* var←c15648 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd50 ))))(bitmapContext←v3932, bitmap←v3960, pd50);
};
SOURCE(2290, 54)
{
word pd51;
pd51 = (* (( (ptr) (* (( (ptr) gf←c16256)+23)/* var←c15648 */ ))+8) );
(void) ( *( (fPt) ((* (ptr) pd51 ))))(bitmapContext←v3932, 0, pd51);
};
SOURCE(2346, 500)
{
register word i←v4060 = 1;
register word noName←c15936;
noName←c15936 = (* (ptr) input←v3596 );
if (( (int)i←v4060 > (int)noName←c15936)) {
goto lab←L100002;
};
lab←L100005: ;
SOURCE(2609, 23)
{
word pd52;
pd52 = (* (( (ptr) (* (( (ptr) gf←c16256)+28)/* var←c15968 */ ))+18) );
(void) ( *( (fPt) ((* (ptr) pd52 ))))(pd52);
};
SOURCE(2634, 26)
{
word pd53;
pd53 = (* (( (ptr) (* (( (ptr) gf←c16256)+24)/* var←c15712 */ ))+48) );
(void) ( *( (fPt) ((* (ptr) pd53 ))))(bitmap←v3960, pd53);
};
SOURCE(2662, 86)
{
word pd54;
pd54 = (* (( (ptr) (* (( (ptr) gf←c16256)+20)/* var←c15424 */ ))+9) );
(void) ( *( (fPt) ((* (ptr) pd54 ))))(input←v3596, i←v4060, bitmapContext←v3932, (word) (( (bPt) &var←c16224)+28)/* var←c15328 */ , 1, pd54)
;
};
SOURCE(2750, 23)
{
word pd55;
pd55 = (* (( (ptr) (* (( (ptr) gf←c16256)+28)/* var←c15968 */ ))+18) );
(void) ( *( (fPt) ((* (ptr) pd55 ))))(pd55);
};
SOURCE(2775, 46)
{
word pd56;
pd56 = (* (( (ptr) (* (( (ptr) gf←c16256)+21)/* var←c15456 */ ))+11) );
(void) ( *( (fPt) ((* (ptr) pd56 ))))(output←v3624, (word) (( (bPt) &var←c16224)+20)/* var←c15296 */ , (* (ptr) &fc57 ), pd56)
;
};
SOURCE(2823, 23)
{
word pd58;
pd58 = (* (( (ptr) (* (( (ptr) gf←c16256)+28)/* var←c15968 */ ))+18) );
(void) ( *( (fPt) ((* (ptr) pd58 ))))(pd58);
};
if (( (int)i←v4060 >= (int)noName←c15936)) {
goto lab←L100002;
};
i←v4060 = (i←v4060 + 1);
goto lab←L100005;
lab←L100002: ;
};
SOURCE(2857, 30)
{
word pd59;
pd59 = (* (( (ptr) (* (( (ptr) gf←c16256)+21)/* var←c15456 */ ))+12) );
(void) ( *( (fPt) ((* (ptr) pd59 ))))(output←v3624, pd59);
};
SOURCE(2889, 34)
{
word pd60;
pd60 = (* (( (ptr) (* (( (ptr) gf←c16256)+20)/* var←c15424 */ ))+11) );
(void) ( *( (fPt) ((* (ptr) pd60 ))))(input←v3596, pd60);
};
SOURCE(2925, 43)
{
word var←c16000;
{
word pd61;
pd61 = (* (( (ptr) (* (( (ptr) gf←c16256)+19)/* var←c15392 */ ))+6) );
var←c16000 = (word) ( *( (fPt) ((* (ptr) pd61 ))))(outName←v3568, (* (( (ptr) gf←c16256)+11) ), pd61);
};
{
word pd62;
pd62 = (* (( (ptr) (* (( (ptr) gf←c16256)+29)/* var←c16032 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd62 ))))((* (( (ptr) (* (( (ptr) &var←c16224)+4)/* cmd←v7704 */ ))+1) ), var←c16000, 0, 2147483647, pd62)
;
};
};
};
};
/* removed tail goto */
(* (ptr) formal←c053 ) = result←v7748;
(* (( (ptr) formal←c053)+1) ) = msg←v7776;
return;
}
static void Log←P120(class←v8480, code←v8508, explanation←v8536, propList←v8564, formal←c16320)
word class←v8480;
word code←v8508;
word explanation←v8536;
word propList←v8564;
word formal←c16320;
{
register ptr gf←c16288 = (ptr) &globalframe;
formal←c16320 = (formal←c16320 - 28);
/* Log: */
SOURCE(706, 115)
SOURCE(745, 23)
{
word pd63;
pd63 = (* (( (ptr) (* (( (ptr) gf←c16288)+29)/* var←c16032 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd63 ))))((* (( (ptr) (* (( (ptr) formal←c16320)+4) ))+1) ), (* (( (ptr) gf←c16288)+12) ), 0, 2147483647, pd63)
;
};
SOURCE(770, 28)
{
word pd64;
pd64 = (* (( (ptr) (* (( (ptr) gf←c16288)+29)/* var←c16032 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd64 ))))((* (( (ptr) (* (( (ptr) formal←c16320)+4) ))+1) ), explanation←v8536, 0, 2147483647, pd64)
;
};
SOURCE(800, 21)
{
word pd65;
pd65 = (* (( (ptr) (* (( (ptr) gf←c16288)+29)/* var←c16032 */ ))+93) );
(void) ( *( (fPt) ((* (ptr) pd65 ))))((* (( (ptr) (* (( (ptr) formal←c16320)+4) ))+1) ), (* (( (ptr) gf←c16288)+11) ), 0, 2147483647, pd65)
;
};
}
static void PageAction←P324(context←v4180, formal←c16384)
word context←v4180;
word formal←c16384;
{
register ptr gf←c16352 = (ptr) &globalframe;
formal←c16384 = (formal←c16384 - 20);
/* PageAction: */
SOURCE(2380, 18)
SOURCE(2427, 39)
{
word pd66;
pd66 = (* (( (ptr) (* (( (ptr) gf←c16352)+30)/* var←c16064 */ ))+14) );
(void) ( *( (fPt) ((* (ptr) pd66 ))))(context←v4180, (* (( (ptr) formal←c16384)+10) ), pd66);
};
SOURCE(2468, 43)
{
word pd67;
pd67 = (* (( (ptr) (* (( (ptr) gf←c16352)+30)/* var←c16064 */ ))+79) );
(void) ( *( (fPt) ((* (ptr) pd67 ))))(context←v4180, 0, pd67);
};
SOURCE(2513, 93)
{
word var←c16096;
{
word pd68;
pd68 = (* (( (ptr) (* (( (ptr) gf←c16352)+31)/* var←c16128 */ ))+6) );
var←c16096 = (word) ( *( (fPt) ((* (ptr) pd68 ))))((* ((( (ptr) formal←c16384)+9)) ), pd68);
};
{
word pd69;
pd69 = (* (( (ptr) (* (( (ptr) gf←c16352)+30)/* var←c16064 */ ))+77) );
(void) ( *( (fPt) ((* (ptr) pd69 ))))(context←v4180, var←c16096, pd69);
};
};
}
/* file: IPtoCIPCommands, module: IPtoCIPCommands, compiled at: January 29, 1993 5:50:33 pm PST */
extern void XR←install←IPtoCIPCommands() {
NoName←Q492();
}
extern void XR←run←IPtoCIPCommands() { XR←Start(&globalframe); }