/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation. All rights reserved. */
/* time: October 19, 1993 1:02:53 pm PDT */
/* C2C version: April 20, 1993 (sun4) */
/* ref-counting: off */
/* file: TJaMMathImpl, module: TJaMMathImpl */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [3954323662,4270541081] TJaMMathImpl";
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, f3, f4, f5, f6;} W7;
#define SOURCE(p, l) /* source p, l */
#define IOP2(op, x, y) ( (word) ((x) op (y)) )
static void NoName←Q1392();
static void TJaMMathImpl←P0();
static void ApplyAdd←P60();
static void ApplySub←P120();
static void ApplyMul←P180();
static void ApplyDiv←P240();
static void ApplyIDiv←P300();
static void ApplyNeg←P360();
static void ApplySin←P420();
static void ApplyCos←P480();
static void ApplyATan←P540();
static word NoName←Q1452();
static void ApplyExp←P600();
static word NoName←Q1512();
static void ApplyLog←P660();
static word NoName←Q1572();
static void ApplySqRt←P720();
static word NoName←Q1632();
static void ApplyEq←P780();
static void ApplyLt←P840();
static void ApplyGt←P900();
static void ApplyNot←P960();
static void ApplyAnd←P1020();
static void ApplyOr←P1080();
static void ApplyXor←P1140();
static void NoName←Q1692();
static void NoName←Q1752();
static void NoName←Q1812();
static void NoName←Q1872();
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[8];} string3 = {262152, ".sub\000\000\000"};
static struct {unsigned f; char r[8];} string4 = {262152, ".mul\000\000\000"};
static struct {unsigned f; char r[8];} string5 = {262152, ".div\000\000\000"};
static struct {unsigned f; char r[8];} string6 = {327688, ".idiv\000\000"};
static struct {unsigned f; char r[8];} string7 = {262152, ".neg\000\000\000"};
static struct {unsigned f; char r[8];} string8 = {262152, ".sin\000\000\000"};
static struct {unsigned f; char r[8];} string9 = {262152, ".cos\000\000\000"};
static struct {unsigned f; char r[8];} string10 = {327688, ".atan\000\000"};
static struct {unsigned f; char r[8];} string11 = {262152, ".exp\000\000\000"};
static struct {unsigned f; char r[8];} string12 = {262152, ".log\000\000\000"};
static struct {unsigned f; char r[8];} string13 = {327688, ".sqrt\000\000"};
static struct {unsigned f; char r[4];} string14 = {196612, ".eq"};
static struct {unsigned f; char r[4];} string15 = {196612, ".lt"};
static struct {unsigned f; char r[4];} string16 = {196612, ".gt"};
static struct {unsigned f; char r[8];} string17 = {262152, ".not\000\000\000"};
static struct {unsigned f; char r[8];} string18 = {262152, ".and\000\000\000"};
static struct {unsigned f; char r[4];} string19 = {196612, ".or"};
static struct {unsigned f; char r[8];} string20 = {262152, ".xor\000\000\000"};
static struct {unsigned f; char r[8];} string21 = {262152, ".add\000\000\000"};
static struct {unsigned f; char r[16];} string22 = {851984, "\257\300\353\262\060\316\300\376\213\111\031\100\164\000\000"};
static struct {unsigned f; char r[12];} string23 = {524296, "\006\001\034\010\000\004\023\001\000\000\000"};
static struct {unsigned f; char r[16];} string24 = {851984, "\257\300\243\004\305\073\300\011\303\367\103\100\150\000\000"};
static struct {unsigned f; char r[16];} string25 = {851984, "\257\300\245\247\302\156\300\052\156\325\023\100\150\000\000"};
static struct {
word f0[26]; 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; word f43; word f44;
word f45; word f46; word f47; word f48;
word f49; word f50; word f51; word f52;
word f53; word f54; word f55; word f56;
word f57; word f58; word f59; word f60;
word f61; word f62; word f63; word f64;
word f65[3];
} globalframe = {
{0}, (word) ApplyXor←P1140, 0, (word) ApplyOr←P1080,
0, (word) ApplyAnd←P1020, 0, (word) ApplyNot←P960,
0, (word) ApplyGt←P900, 0, (word) ApplyLt←P840,
0, (word) ApplyEq←P780, 0, (word) ApplySqRt←P720,
0, (word) ApplyLog←P660, 0, (word) ApplyExp←P600,
0, (word) ApplyATan←P540, 0, (word) ApplyCos←P480,
0, (word) ApplySin←P420, 0, (word) ApplyNeg←P360,
0, (word) ApplyIDiv←P300, 0, (word) ApplyDiv←P240,
0, (word) ApplyMul←P180, 0, (word) ApplySub←P120,
0, (word) ApplyAdd←P60, 0, (word) TJaMMathImpl←P0,
{0}
};
static void NoName←Q1392()
{
register ptr gf←c0138 = (ptr) &globalframe;
word var←c12484;
(* (( (ptr) gf←c0138)+5) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2);
(* (ptr) (( (bPt) gf←c0138)+28) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0138)+5) ), (word) &string3);
(* (ptr) (( (bPt) gf←c0138)+32) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0138)+5) ), (word) &string4);
(* (ptr) (( (bPt) gf←c0138)+36) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0138)+5) ), (word) &string5);
(* (ptr) (( (bPt) gf←c0138)+40) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0138)+5) ), (word) &string6);
(* (ptr) (( (bPt) gf←c0138)+44) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0138)+5) ), (word) &string7);
(* (ptr) (( (bPt) gf←c0138)+48) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0138)+5) ), (word) &string8);
(* (ptr) (( (bPt) gf←c0138)+52) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0138)+5) ), (word) &string9);
(* (ptr) (( (bPt) gf←c0138)+56) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0138)+5) ), (word) &string10);
(* (ptr) (( (bPt) gf←c0138)+60) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0138)+5) ), (word) &string11);
(* (ptr) (( (bPt) gf←c0138)+64) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0138)+5) ), (word) &string12);
(* (ptr) (( (bPt) gf←c0138)+68) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0138)+5) ), (word) &string13);
(* (ptr) (( (bPt) gf←c0138)+72) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0138)+5) ), (word) &string14);
(* (ptr) (( (bPt) gf←c0138)+76) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0138)+5) ), (word) &string15);
(* (ptr) (( (bPt) gf←c0138)+80) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0138)+5) ), (word) &string16);
(* (ptr) (( (bPt) gf←c0138)+84) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0138)+5) ), (word) &string17);
(* (ptr) (( (bPt) gf←c0138)+88) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0138)+5) ), (word) &string18);
(* (ptr) (( (bPt) gf←c0138)+92) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0138)+5) ), (word) &string19);
(* (ptr) (( (bPt) gf←c0138)+96) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0138)+5) ), (word) &string20);
(* (ptr) (( (bPt) gf←c0138)+100) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c0138)+5) ), (word) &string21);
(void) XR←DeclareGlobalFrame((word) "TJaMMathImpl", &globalframe, (word) XR←GetTypeIndex((word) &string22, 0, (word) &string23)
, (word) (( (bPt) gf←c0138)+256)/* var←c12164 */ );
var←c12484 = (word) XR←ImportInterface((word) "TJaM", (word) XR←GetTypeIndexS((word) (&string24)), 101);
(* (( (ptr) gf←c0138)+66)/* var←c12196 */ ) = var←c12484;
(void) XR←ImportProcS(var←c12484, 67379713);
(void) XR←ImportProcS(var←c12484, 67633410);
(void) XR←ImportProcS(var←c12484, 529922);
(void) XR←ImportProcS(var←c12484, 67379457);
(void) XR←ImportProcS(var←c12484, 285441);
(void) XR←ImportProcS(var←c12484, 530178);
(void) XR←ImportProcS(var←c12484, 67379969);
(void) XR←ImportProcS(var←c12484, 530434);
(void) XR←ImportProcS(var←c12484, 67380225);
(void) XR←ImportProcS(var←c12484, 812035);
var←c12484 = (word) XR←ImportInterface((word) "RealFns", (word) XR←GetTypeIndexS((word) (&string25)), 36);
(* (( (ptr) gf←c0138)+67)/* var←c12260 */ ) = var←c12484;
(void) XR←ImportProcS(var←c12484, 67372289);
(void) XR←ImportProcS(var←c12484, 67633666);
(void) XR←ImportProcS(var←c12484, 67633922);
(void) XR←ImportProcS(var←c12484, 67636482);
(void) XR←ImportProcS(var←c12484, 67373313);
(void) XR←ImportProcS(var←c12484, 67372801);
}
static void TJaMMathImpl←P0(formal←c039, formal←c038)
word formal←c039;
word formal←c038;
{
register ptr gf←c12516 = (ptr) &globalframe;
/* TJaMMathImpl: */
SOURCE(79, 2961)
SOURCE(2341, 35)
{
word pd26;
pd26 = (* (( (ptr) (* (( (ptr) gf←c12516)+66)/* var←c12196 */ ))+104) );
(void) ( *( (fPt) ((* (ptr) pd26 ))))((* (( (ptr) gf←c12516)+25) ), (word) (( (bPt) gf←c12516)+248)/* var←c12132 */ , 0, pd26)
;
};
SOURCE(2378, 35)
{
word pd27;
pd27 = (* (( (ptr) (* (( (ptr) gf←c12516)+66)/* var←c12196 */ ))+104) );
(void) ( *( (fPt) ((* (ptr) pd27 ))))((* (( (ptr) gf←c12516)+7) ), (word) (( (bPt) gf←c12516)+240)/* var←c12100 */ , 0, pd27)
;
};
SOURCE(2415, 35)
{
word pd28;
pd28 = (* (( (ptr) (* (( (ptr) gf←c12516)+66)/* var←c12196 */ ))+104) );
(void) ( *( (fPt) ((* (ptr) pd28 ))))((* (( (ptr) gf←c12516)+8) ), (word) (( (bPt) gf←c12516)+232)/* var←c12068 */ , 0, pd28)
;
};
SOURCE(2452, 35)
{
word pd29;
pd29 = (* (( (ptr) (* (( (ptr) gf←c12516)+66)/* var←c12196 */ ))+104) );
(void) ( *( (fPt) ((* (ptr) pd29 ))))((* (( (ptr) gf←c12516)+9) ), (word) (( (bPt) gf←c12516)+224)/* var←c12036 */ , 0, pd29)
;
};
SOURCE(2489, 37)
{
word pd30;
pd30 = (* (( (ptr) (* (( (ptr) gf←c12516)+66)/* var←c12196 */ ))+104) );
(void) ( *( (fPt) ((* (ptr) pd30 ))))((* (( (ptr) gf←c12516)+10) ), (word) (( (bPt) gf←c12516)+216)/* var←c12004 */ , 0, pd30)
;
};
SOURCE(2528, 35)
{
word pd31;
pd31 = (* (( (ptr) (* (( (ptr) gf←c12516)+66)/* var←c12196 */ ))+104) );
(void) ( *( (fPt) ((* (ptr) pd31 ))))((* (( (ptr) gf←c12516)+11) ), (word) (( (bPt) gf←c12516)+208)/* var←c11972 */ , 0, pd31)
;
};
SOURCE(2565, 35)
{
word pd32;
pd32 = (* (( (ptr) (* (( (ptr) gf←c12516)+66)/* var←c12196 */ ))+104) );
(void) ( *( (fPt) ((* (ptr) pd32 ))))((* (( (ptr) gf←c12516)+12) ), (word) (( (bPt) gf←c12516)+200)/* var←c11940 */ , 0, pd32)
;
};
SOURCE(2602, 35)
{
word pd33;
pd33 = (* (( (ptr) (* (( (ptr) gf←c12516)+66)/* var←c12196 */ ))+104) );
(void) ( *( (fPt) ((* (ptr) pd33 ))))((* (( (ptr) gf←c12516)+13) ), (word) (( (bPt) gf←c12516)+192)/* var←c11908 */ , 0, pd33)
;
};
SOURCE(2639, 37)
{
word pd34;
pd34 = (* (( (ptr) (* (( (ptr) gf←c12516)+66)/* var←c12196 */ ))+104) );
(void) ( *( (fPt) ((* (ptr) pd34 ))))((* (( (ptr) gf←c12516)+14) ), (word) (( (bPt) gf←c12516)+184)/* var←c11876 */ , 0, pd34)
;
};
SOURCE(2678, 35)
{
word pd35;
pd35 = (* (( (ptr) (* (( (ptr) gf←c12516)+66)/* var←c12196 */ ))+104) );
(void) ( *( (fPt) ((* (ptr) pd35 ))))((* (( (ptr) gf←c12516)+15) ), (word) (( (bPt) gf←c12516)+176)/* var←c11844 */ , 0, pd35)
;
};
SOURCE(2715, 35)
{
word pd36;
pd36 = (* (( (ptr) (* (( (ptr) gf←c12516)+66)/* var←c12196 */ ))+104) );
(void) ( *( (fPt) ((* (ptr) pd36 ))))((* (( (ptr) gf←c12516)+16) ), (word) (( (bPt) gf←c12516)+168)/* var←c11812 */ , 0, pd36)
;
};
SOURCE(2752, 37)
{
word pd37;
pd37 = (* (( (ptr) (* (( (ptr) gf←c12516)+66)/* var←c12196 */ ))+104) );
(void) ( *( (fPt) ((* (ptr) pd37 ))))((* (( (ptr) gf←c12516)+17) ), (word) (( (bPt) gf←c12516)+160)/* var←c11780 */ , 0, pd37)
;
};
SOURCE(2791, 33)
{
word pd38;
pd38 = (* (( (ptr) (* (( (ptr) gf←c12516)+66)/* var←c12196 */ ))+104) );
(void) ( *( (fPt) ((* (ptr) pd38 ))))((* (( (ptr) gf←c12516)+18) ), (word) (( (bPt) gf←c12516)+152)/* var←c11748 */ , 0, pd38)
;
};
SOURCE(2826, 33)
{
word pd39;
pd39 = (* (( (ptr) (* (( (ptr) gf←c12516)+66)/* var←c12196 */ ))+104) );
(void) ( *( (fPt) ((* (ptr) pd39 ))))((* (( (ptr) gf←c12516)+19) ), (word) (( (bPt) gf←c12516)+144)/* var←c11716 */ , 0, pd39)
;
};
SOURCE(2861, 33)
{
word pd40;
pd40 = (* (( (ptr) (* (( (ptr) gf←c12516)+66)/* var←c12196 */ ))+104) );
(void) ( *( (fPt) ((* (ptr) pd40 ))))((* (( (ptr) gf←c12516)+20) ), (word) (( (bPt) gf←c12516)+136)/* var←c11684 */ , 0, pd40)
;
};
SOURCE(2896, 35)
{
word pd41;
pd41 = (* (( (ptr) (* (( (ptr) gf←c12516)+66)/* var←c12196 */ ))+104) );
(void) ( *( (fPt) ((* (ptr) pd41 ))))((* (( (ptr) gf←c12516)+21) ), (word) (( (bPt) gf←c12516)+128)/* var←c11652 */ , 0, pd41)
;
};
SOURCE(2933, 35)
{
word pd42;
pd42 = (* (( (ptr) (* (( (ptr) gf←c12516)+66)/* var←c12196 */ ))+104) );
(void) ( *( (fPt) ((* (ptr) pd42 ))))((* (( (ptr) gf←c12516)+22) ), (word) (( (bPt) gf←c12516)+120)/* var←c11620 */ , 0, pd42)
;
};
SOURCE(2970, 33)
{
word pd43;
pd43 = (* (( (ptr) (* (( (ptr) gf←c12516)+66)/* var←c12196 */ ))+104) );
(void) ( *( (fPt) ((* (ptr) pd43 ))))((* (( (ptr) gf←c12516)+23) ), (word) (( (bPt) gf←c12516)+112)/* var←c11588 */ , 0, pd43)
;
};
SOURCE(3005, 35)
{
word pd44;
pd44 = (* (( (ptr) (* (( (ptr) gf←c12516)+66)/* var←c12196 */ ))+104) );
(void) ( *( (fPt) ((* (ptr) pd44 ))))((* (( (ptr) gf←c12516)+24) ), (word) (( (bPt) gf←c12516)+104)/* var←c11556 */ , 0, pd44)
;
};
}
static void ApplyAdd←P60(frame←v5580, cmd←v5608)
word frame←v5580;
word cmd←v5608;
{
register ptr gf←c12548 = (ptr) &globalframe;
word b←v3048;
word a←v3076;
/* ApplyAdd: */
SOURCE(149, 98)
SOURCE(175, 24)
{
word pd45;
pd45 = (* (( (ptr) (* (( (ptr) gf←c12548)+66)/* var←c12196 */ ))+40) );
b←v3048 = (word) ( *( (fPt) ((* (ptr) pd45 ))))(frame←v5580, pd45);
};
SOURCE(201, 24)
{
word pd46;
pd46 = (* (( (ptr) (* (( (ptr) gf←c12548)+66)/* var←c12196 */ ))+40) );
a←v3076 = (word) ( *( (fPt) ((* (ptr) pd46 ))))(frame←v5580, pd46);
};
SOURCE(227, 20)
{
word pd47;
word x48;
word x49;
float tf50;
pd47 = (* (( (ptr) (* (( (ptr) gf←c12548)+66)/* var←c12196 */ ))+28) );
(void) ( *( (fPt) ((* (ptr) pd47 ))))(frame←v5580, (
tf50 = (
x48 = a←v3076, *(float*)&x48
) + (
x49 = b←v3048, *(float*)&x49
), *(word*)&tf50
), pd47);
};
}
static void ApplySub←P120(frame←v5668, cmd←v5696)
word frame←v5668;
word cmd←v5696;
{
register ptr gf←c12580 = (ptr) &globalframe;
word b←v3120;
word a←v3148;
/* ApplySub: */
SOURCE(253, 98)
SOURCE(279, 24)
{
word pd51;
pd51 = (* (( (ptr) (* (( (ptr) gf←c12580)+66)/* var←c12196 */ ))+40) );
b←v3120 = (word) ( *( (fPt) ((* (ptr) pd51 ))))(frame←v5668, pd51);
};
SOURCE(305, 24)
{
word pd52;
pd52 = (* (( (ptr) (* (( (ptr) gf←c12580)+66)/* var←c12196 */ ))+40) );
a←v3148 = (word) ( *( (fPt) ((* (ptr) pd52 ))))(frame←v5668, pd52);
};
SOURCE(331, 20)
{
word pd53;
word x54;
word x55;
float tf56;
pd53 = (* (( (ptr) (* (( (ptr) gf←c12580)+66)/* var←c12196 */ ))+28) );
(void) ( *( (fPt) ((* (ptr) pd53 ))))(frame←v5668, (
tf56 = (
x54 = a←v3148, *(float*)&x54
) - (
x55 = b←v3120, *(float*)&x55
), *(word*)&tf56
), pd53);
};
}
static void ApplyMul←P180(frame←v5756, cmd←v5784)
word frame←v5756;
word cmd←v5784;
{
register ptr gf←c12612 = (ptr) &globalframe;
word b←v3192;
word a←v3220;
/* ApplyMul: */
SOURCE(357, 98)
SOURCE(383, 24)
{
word pd57;
pd57 = (* (( (ptr) (* (( (ptr) gf←c12612)+66)/* var←c12196 */ ))+40) );
b←v3192 = (word) ( *( (fPt) ((* (ptr) pd57 ))))(frame←v5756, pd57);
};
SOURCE(409, 24)
{
word pd58;
pd58 = (* (( (ptr) (* (( (ptr) gf←c12612)+66)/* var←c12196 */ ))+40) );
a←v3220 = (word) ( *( (fPt) ((* (ptr) pd58 ))))(frame←v5756, pd58);
};
SOURCE(435, 20)
{
word pd59;
word x60;
word x61;
float tf62;
pd59 = (* (( (ptr) (* (( (ptr) gf←c12612)+66)/* var←c12196 */ ))+28) );
(void) ( *( (fPt) ((* (ptr) pd59 ))))(frame←v5756, (
tf62 = (
x60 = a←v3220, *(float*)&x60
) * (
x61 = b←v3192, *(float*)&x61
), *(word*)&tf62
), pd59);
};
}
static void ApplyDiv←P240(frame←v5844, cmd←v5872)
word frame←v5844;
word cmd←v5872;
{
register ptr gf←c12644 = (ptr) &globalframe;
word b←v3264;
word a←v3292;
/* ApplyDiv: */
SOURCE(461, 98)
SOURCE(487, 24)
{
word pd63;
pd63 = (* (( (ptr) (* (( (ptr) gf←c12644)+66)/* var←c12196 */ ))+40) );
b←v3264 = (word) ( *( (fPt) ((* (ptr) pd63 ))))(frame←v5844, pd63);
};
SOURCE(513, 24)
{
word pd64;
pd64 = (* (( (ptr) (* (( (ptr) gf←c12644)+66)/* var←c12196 */ ))+40) );
a←v3292 = (word) ( *( (fPt) ((* (ptr) pd64 ))))(frame←v5844, pd64);
};
SOURCE(539, 20)
{
word pd65;
word x66;
word x67;
float tf68;
pd65 = (* (( (ptr) (* (( (ptr) gf←c12644)+66)/* var←c12196 */ ))+28) );
(void) ( *( (fPt) ((* (ptr) pd65 ))))(frame←v5844, (
tf68 = (
x66 = a←v3292, *(float*)&x66
) / (
x67 = b←v3264, *(float*)&x67
), *(word*)&tf68
), pd65);
};
}
static void ApplyIDiv←P300(frame←v5932, cmd←v5960)
word frame←v5932;
word cmd←v5960;
{
register ptr gf←c12676 = (ptr) &globalframe;
word b←v3336;
word a←v3364;
/* ApplyIDiv: */
SOURCE(565, 94)
SOURCE(592, 22)
{
word pd69;
pd69 = (* (( (ptr) (* (( (ptr) gf←c12676)+66)/* var←c12196 */ ))+39) );
b←v3336 = (word) ( *( (fPt) ((* (ptr) pd69 ))))(frame←v5932, pd69);
};
SOURCE(616, 22)
{
word pd70;
pd70 = (* (( (ptr) (* (( (ptr) gf←c12676)+66)/* var←c12196 */ ))+39) );
a←v3364 = (word) ( *( (fPt) ((* (ptr) pd70 ))))(frame←v5932, pd70);
};
SOURCE(640, 19)
{
word pd71;
pd71 = (* (( (ptr) (* (( (ptr) gf←c12676)+66)/* var←c12196 */ ))+27) );
(void) ( *( (fPt) ((* (ptr) pd71 ))))(frame←v5932, IOP2( / , (int)a←v3364, (int)b←v3336), pd71);
};
}
static void ApplyNeg←P360(frame←v6020, cmd←v6048)
word frame←v6020;
word cmd←v6048;
{
register ptr gf←c12708 = (ptr) &globalframe;
word a←v3408;
/* ApplyNeg: */
SOURCE(665, 71)
SOURCE(691, 24)
{
word pd72;
pd72 = (* (( (ptr) (* (( (ptr) gf←c12708)+66)/* var←c12196 */ ))+40) );
a←v3408 = (word) ( *( (fPt) ((* (ptr) pd72 ))))(frame←v6020, pd72);
};
SOURCE(717, 19)
{
word pd73;
word x74;
float tf75;
pd73 = (* (( (ptr) (* (( (ptr) gf←c12708)+66)/* var←c12196 */ ))+28) );
(void) ( *( (fPt) ((* (ptr) pd73 ))))(frame←v6020, (
tf75 = - (
x74 = a←v3408, *(float*)&x74
), *(word*)&tf75
), pd73);
};
}
static void ApplySin←P420(frame←v6108, cmd←v6136)
word frame←v6108;
word cmd←v6136;
{
register ptr gf←c12740 = (ptr) &globalframe;
word a←v3452;
/* ApplySin: */
SOURCE(742, 86)
SOURCE(768, 24)
{
word pd76;
pd76 = (* (( (ptr) (* (( (ptr) gf←c12740)+66)/* var←c12196 */ ))+40) );
a←v3452 = (word) ( *( (fPt) ((* (ptr) pd76 ))))(frame←v6108, pd76);
};
SOURCE(794, 34)
{
word var←c12228;
{
word pd77;
pd77 = (* (( (ptr) (* (( (ptr) gf←c12740)+67)/* var←c12260 */ ))+11) );
var←c12228 = (word) ( *( (fPt) ((* (ptr) pd77 ))))(a←v3452, pd77);
};
{
word pd78;
pd78 = (* (( (ptr) (* (( (ptr) gf←c12740)+66)/* var←c12196 */ ))+28) );
(void) ( *( (fPt) ((* (ptr) pd78 ))))(frame←v6108, var←c12228, pd78);
};
};
}
static void ApplyCos←P480(frame←v6196, cmd←v6224)
word frame←v6196;
word cmd←v6224;
{
register ptr gf←c12772 = (ptr) &globalframe;
word a←v3496;
/* ApplyCos: */
SOURCE(834, 86)
SOURCE(860, 24)
{
word pd79;
pd79 = (* (( (ptr) (* (( (ptr) gf←c12772)+66)/* var←c12196 */ ))+40) );
a←v3496 = (word) ( *( (fPt) ((* (ptr) pd79 ))))(frame←v6196, pd79);
};
SOURCE(886, 34)
{
word var←c12292;
{
word pd80;
pd80 = (* (( (ptr) (* (( (ptr) gf←c12772)+67)/* var←c12260 */ ))+13) );
var←c12292 = (word) ( *( (fPt) ((* (ptr) pd80 ))))(a←v3496, pd80);
};
{
word pd81;
pd81 = (* (( (ptr) (* (( (ptr) gf←c12772)+66)/* var←c12196 */ ))+28) );
(void) ( *( (fPt) ((* (ptr) pd81 ))))(frame←v6196, var←c12292, pd81);
};
};
}
static void ApplyATan←P540(frame←v6284, cmd←v6312)
word frame←v6284;
word cmd←v6312;
{
W8 var←c12804;
register ptr gf←c12836 = (ptr) &globalframe;
/* ApplyATan: */
SOURCE(926, 185)
SOURCE(951, 160)
SOURCE(953, 24)
{
/* declaration of b←v3540 skipped */
/* declaration of a←v3568 skipped */
SOURCE(953, 24)
{
word pd82;
pd82 = (* (( (ptr) (* (( (ptr) gf←c12836)+66)/* var←c12196 */ ))+40) );
var←c12804.f4/* b←v3540 */ = (word) ( *( (fPt) ((* (ptr) pd82 ))))(frame←v6284, pd82);
};
SOURCE(979, 24)
{
word pd83;
pd83 = (* (( (ptr) (* (( (ptr) gf←c12836)+66)/* var←c12196 */ ))+40) );
var←c12804.f5/* a←v3568 */ = (word) ( *( (fPt) ((* (ptr) pd83 ))))(frame←v6284, pd83);
};
SOURCE(1005, 48)
{
word var←c12324;
{
/* declaration of var←c01 skipped */
var←c12804.f6/* var←c01 */ = (* (( (ptr) (* (( (ptr) gf←c12836)+67)/* var←c12260 */ ))+17) );
{
/* declaration of var←c02 skipped */
{
word var←c03;
{
word var←c0163;
var←c0163 = (word) &var←c12804;
var←c03 = (word) XR←Enable(( ((word) (fPt) NoName←Q1452) ), ( ((word) (fPt) NoName←Q1872) ), var←c0163);
};
if ((var←c03 == 2)) {
goto lab←L100000;
};
};
var←c12324 = var←c12804.f7/* var←c02 */ ;
};
};
{
word pd84;
pd84 = (* (( (ptr) (* (( (ptr) gf←c12836)+66)/* var←c12196 */ ))+28) );
(void) ( *( (fPt) ((* (ptr) pd84 ))))(frame←v6284, var←c12324, pd84);
};
};
};
goto lab←L100003;
lab←L100000: ;
SOURCE(1080, 29)
{
word pd85;
pd85 = (* (( (ptr) (* (( (ptr) gf←c12836)+66)/* var←c12196 */ ))+95) );
(void) ( *( (fPt) ((* (ptr) pd85 ))))(5, pd85);
};
lab←L100003: ;
}
static word NoName←Q1452(formal←c0149)
word formal←c0149;
{
SOURCE(1005, 48)
{
word pd86;
pd86 = (* (( (ptr) formal←c0149)+6) );
(* (( (ptr) formal←c0149)+7) ) = (word) ( *( (fPt) ((* (ptr) pd86 ))))((* (( (ptr) formal←c0149)+5) ), (* (( (ptr) formal←c0149)+4)
), pd86);
};
return(0);
}
static void ApplyExp←P600(frame←v6372, cmd←v6400)
word frame←v6372;
word cmd←v6400;
{
W8 var←c12868;
register ptr gf←c12900 = (ptr) &globalframe;
/* ApplyExp: */
SOURCE(1115, 180)
SOURCE(1139, 156)
SOURCE(1141, 24)
{
/* declaration of b←v3612 skipped */
/* declaration of a←v3640 skipped */
SOURCE(1141, 24)
{
word pd87;
pd87 = (* (( (ptr) (* (( (ptr) gf←c12900)+66)/* var←c12196 */ ))+40) );
var←c12868.f4/* b←v3612 */ = (word) ( *( (fPt) ((* (ptr) pd87 ))))(frame←v6372, pd87);
};
SOURCE(1167, 24)
{
word pd88;
pd88 = (* (( (ptr) (* (( (ptr) gf←c12900)+66)/* var←c12196 */ ))+40) );
var←c12868.f5/* a←v3640 */ = (word) ( *( (fPt) ((* (ptr) pd88 ))))(frame←v6372, pd88);
};
SOURCE(1193, 44)
{
word var←c12356;
{
/* declaration of var←c04 skipped */
var←c12868.f6/* var←c04 */ = (* (( (ptr) (* (( (ptr) gf←c12900)+67)/* var←c12260 */ ))+7) );
{
/* declaration of var←c05 skipped */
{
word var←c06;
{
word var←c0164;
var←c0164 = (word) &var←c12868;
var←c06 = (word) XR←Enable(( ((word) (fPt) NoName←Q1512) ), ( ((word) (fPt) NoName←Q1812) ), var←c0164);
};
if ((var←c06 == 3)) {
goto lab←L100004;
};
};
var←c12356 = var←c12868.f7/* var←c05 */ ;
};
};
{
word pd89;
pd89 = (* (( (ptr) (* (( (ptr) gf←c12900)+66)/* var←c12196 */ ))+28) );
(void) ( *( (fPt) ((* (ptr) pd89 ))))(frame←v6372, var←c12356, pd89);
};
};
};
goto lab←L100007;
lab←L100004: ;
SOURCE(1264, 29)
{
word pd90;
pd90 = (* (( (ptr) (* (( (ptr) gf←c12900)+66)/* var←c12196 */ ))+95) );
(void) ( *( (fPt) ((* (ptr) pd90 ))))(5, pd90);
};
lab←L100007: ;
}
static word NoName←Q1512(formal←c0151)
word formal←c0151;
{
SOURCE(1193, 44)
{
word pd91;
pd91 = (* (( (ptr) formal←c0151)+6) );
(* (( (ptr) formal←c0151)+7) ) = (word) ( *( (fPt) ((* (ptr) pd91 ))))((* (( (ptr) formal←c0151)+5) ), (* (( (ptr) formal←c0151)+4)
), pd91);
};
return(0);
}
static void ApplyLog←P660(frame←v6460, cmd←v6488)
word frame←v6460;
word cmd←v6488;
{
W8 var←c12932;
register ptr gf←c12964 = (ptr) &globalframe;
/* ApplyLog: */
SOURCE(1299, 177)
SOURCE(1323, 153)
SOURCE(1325, 24)
{
/* declaration of b←v3684 skipped */
/* declaration of a←v3712 skipped */
SOURCE(1325, 24)
{
word pd92;
pd92 = (* (( (ptr) (* (( (ptr) gf←c12964)+66)/* var←c12196 */ ))+40) );
var←c12932.f4/* b←v3684 */ = (word) ( *( (fPt) ((* (ptr) pd92 ))))(frame←v6460, pd92);
};
SOURCE(1351, 24)
{
word pd93;
pd93 = (* (( (ptr) (* (( (ptr) gf←c12964)+66)/* var←c12196 */ ))+40) );
var←c12932.f5/* a←v3712 */ = (word) ( *( (fPt) ((* (ptr) pd93 ))))(frame←v6460, pd93);
};
SOURCE(1377, 42)
{
word var←c12388;
{
/* declaration of var←c07 skipped */
var←c12932.f6/* var←c07 */ = (* (( (ptr) (* (( (ptr) gf←c12964)+67)/* var←c12260 */ ))+6) );
{
/* declaration of var←c08 skipped */
{
word var←c09;
{
word var←c0165;
var←c0165 = (word) &var←c12932;
var←c09 = (word) XR←Enable(( ((word) (fPt) NoName←Q1572) ), ( ((word) (fPt) NoName←Q1752) ), var←c0165);
};
if ((var←c09 == 4)) {
goto lab←L100008;
};
};
var←c12388 = var←c12932.f7/* var←c08 */ ;
};
};
{
word pd94;
pd94 = (* (( (ptr) (* (( (ptr) gf←c12964)+66)/* var←c12196 */ ))+28) );
(void) ( *( (fPt) ((* (ptr) pd94 ))))(frame←v6460, var←c12388, pd94);
};
};
};
goto lab←L100011;
lab←L100008: ;
SOURCE(1445, 29)
{
word pd95;
pd95 = (* (( (ptr) (* (( (ptr) gf←c12964)+66)/* var←c12196 */ ))+95) );
(void) ( *( (fPt) ((* (ptr) pd95 ))))(5, pd95);
};
lab←L100011: ;
}
static word NoName←Q1572(formal←c0153)
word formal←c0153;
{
SOURCE(1377, 42)
{
word pd96;
pd96 = (* (( (ptr) formal←c0153)+6) );
(* (( (ptr) formal←c0153)+7) ) = (word) ( *( (fPt) ((* (ptr) pd96 ))))((* (( (ptr) formal←c0153)+5) ), (* (( (ptr) formal←c0153)+4)
), pd96);
};
return(0);
}
static void ApplySqRt←P720(frame←v6548, cmd←v6576)
word frame←v6548;
word cmd←v6576;
{
W7 var←c12996;
register ptr gf←c13028 = (ptr) &globalframe;
/* ApplySqRt: */
SOURCE(1480, 150)
SOURCE(1505, 125)
SOURCE(1507, 24)
{
/* declaration of a←v3756 skipped */
SOURCE(1507, 24)
{
word pd97;
pd97 = (* (( (ptr) (* (( (ptr) gf←c13028)+66)/* var←c12196 */ ))+40) );
var←c12996.f4/* a←v3756 */ = (word) ( *( (fPt) ((* (ptr) pd97 ))))(frame←v6548, pd97);
};
SOURCE(1533, 40)
{
word var←c12420;
{
/* declaration of var←c010 skipped */
var←c12996.f5/* var←c010 */ = (* (( (ptr) (* (( (ptr) gf←c13028)+67)/* var←c12260 */ ))+9) );
{
/* declaration of var←c011 skipped */
{
word var←c012;
{
word var←c0166;
var←c0166 = (word) &var←c12996;
var←c012 = (word) XR←Enable(( ((word) (fPt) NoName←Q1632) ), ( ((word) (fPt) NoName←Q1692) ), var←c0166);
};
if ((var←c012 == 5)) {
goto lab←L100012;
};
};
var←c12420 = var←c12996.f6/* var←c011 */ ;
};
};
{
word pd98;
pd98 = (* (( (ptr) (* (( (ptr) gf←c13028)+66)/* var←c12196 */ ))+28) );
(void) ( *( (fPt) ((* (ptr) pd98 ))))(frame←v6548, var←c12420, pd98);
};
};
};
goto lab←L100015;
lab←L100012: ;
SOURCE(1599, 29)
{
word pd99;
pd99 = (* (( (ptr) (* (( (ptr) gf←c13028)+66)/* var←c12196 */ ))+95) );
(void) ( *( (fPt) ((* (ptr) pd99 ))))(5, pd99);
};
lab←L100015: ;
}
static word NoName←Q1632(formal←c0155)
word formal←c0155;
{
SOURCE(1533, 40)
{
word pd100;
pd100 = (* (( (ptr) formal←c0155)+5) );
(* (( (ptr) formal←c0155)+6) ) = (word) ( *( (fPt) ((* (ptr) pd100 ))))((* ((( (ptr) formal←c0155)+4)) ), pd100);
};
return(0);
}
static void ApplyEq←P780(frame←v6636, cmd←v6664)
word frame←v6636;
word cmd←v6664;
{
register ptr gf←c13060 = (ptr) &globalframe;
word b←v3800;
word a←v3828;
/* ApplyEq: */
SOURCE(1634, 94)
SOURCE(1659, 19)
{
word pd101;
pd101 = (* (( (ptr) (* (( (ptr) gf←c13060)+66)/* var←c12196 */ ))+37) );
b←v3800 = (word) ( *( (fPt) ((* (ptr) pd101 ))))(frame←v6636, pd101);
};
SOURCE(1680, 19)
{
word pd102;
pd102 = (* (( (ptr) (* (( (ptr) gf←c13060)+66)/* var←c12196 */ ))+37) );
a←v3828 = (word) ( *( (fPt) ((* (ptr) pd102 ))))(frame←v6636, pd102);
};
SOURCE(1701, 27)
{
word var←c12452;
{
word pd103;
pd103 = (* (( (ptr) (* (( (ptr) gf←c13060)+66)/* var←c12196 */ ))+5) );
var←c12452 = (word) ( *( (fPt) ((* (ptr) pd103 ))))(a←v3828, b←v3800, pd103);
};
{
word pd104;
pd104 = (* (( (ptr) (* (( (ptr) gf←c13060)+66)/* var←c12196 */ ))+26) );
(void) ( *( (fPt) ((* (ptr) pd104 ))))(frame←v6636, var←c12452, pd104);
};
};
}
static void ApplyLt←P840(frame←v6724, cmd←v6752)
word frame←v6724;
word cmd←v6752;
{
register ptr gf←c13092 = (ptr) &globalframe;
word b←v3900;
word a←v3928;
/* ApplyLt: */
SOURCE(1734, 97)
SOURCE(1759, 24)
{
word pd105;
pd105 = (* (( (ptr) (* (( (ptr) gf←c13092)+66)/* var←c12196 */ ))+40) );
b←v3900 = (word) ( *( (fPt) ((* (ptr) pd105 ))))(frame←v6724, pd105);
};
SOURCE(1785, 24)
{
word pd106;
pd106 = (* (( (ptr) (* (( (ptr) gf←c13092)+66)/* var←c12196 */ ))+40) );
a←v3928 = (word) ( *( (fPt) ((* (ptr) pd106 ))))(frame←v6724, pd106);
};
SOURCE(1811, 20)
{
word pd107;
word x108;
word x109;
pd107 = (* (( (ptr) (* (( (ptr) gf←c13092)+66)/* var←c12196 */ ))+26) );
(void) ( *( (fPt) ((* (ptr) pd107 ))))(frame←v6724, (unsigned) ((
x108 = a←v3928, *(float*)&x108
) < (
x109 = b←v3900, *(float*)&x109
)), pd107);
};
}
static void ApplyGt←P900(frame←v6812, cmd←v6840)
word frame←v6812;
word cmd←v6840;
{
register ptr gf←c13124 = (ptr) &globalframe;
word b←v3972;
word a←v4000;
/* ApplyGt: */
SOURCE(1837, 97)
SOURCE(1862, 24)
{
word pd110;
pd110 = (* (( (ptr) (* (( (ptr) gf←c13124)+66)/* var←c12196 */ ))+40) );
b←v3972 = (word) ( *( (fPt) ((* (ptr) pd110 ))))(frame←v6812, pd110);
};
SOURCE(1888, 24)
{
word pd111;
pd111 = (* (( (ptr) (* (( (ptr) gf←c13124)+66)/* var←c12196 */ ))+40) );
a←v4000 = (word) ( *( (fPt) ((* (ptr) pd111 ))))(frame←v6812, pd111);
};
SOURCE(1914, 20)
{
word pd112;
word x113;
word x114;
pd112 = (* (( (ptr) (* (( (ptr) gf←c13124)+66)/* var←c12196 */ ))+26) );
(void) ( *( (fPt) ((* (ptr) pd112 ))))(frame←v6812, (unsigned) ((
x113 = a←v4000, *(float*)&x113
) > (
x114 = b←v3972, *(float*)&x114
)), pd112);
};
}
static void ApplyNot←P960(frame←v6900, cmd←v6928)
word frame←v6900;
word cmd←v6928;
{
register ptr gf←c13156 = (ptr) &globalframe;
word a←v4044;
/* ApplyNot: */
SOURCE(1940, 74)
SOURCE(1966, 24)
{
word pd115;
pd115 = (* (( (ptr) (* (( (ptr) gf←c13156)+66)/* var←c12196 */ ))+38) );
a←v4044 = (word) ( *( (fPt) ((* (ptr) pd115 ))))(frame←v6900, pd115);
};
SOURCE(1992, 22)
{
word pd116;
pd116 = (* (( (ptr) (* (( (ptr) gf←c13156)+66)/* var←c12196 */ ))+26) );
(void) ( *( (fPt) ((* (ptr) pd116 ))))(frame←v6900, (unsigned) (0 == a←v4044), pd116);
};
}
static void ApplyAnd←P1020(frame←v6988, cmd←v7016)
word frame←v6988;
word cmd←v7016;
{
register ptr gf←c13188 = (ptr) &globalframe;
word b←v4088;
word a←v4116;
/* ApplyAnd: */
SOURCE(2020, 102)
SOURCE(2046, 24)
{
word pd117;
pd117 = (* (( (ptr) (* (( (ptr) gf←c13188)+66)/* var←c12196 */ ))+38) );
b←v4088 = (word) ( *( (fPt) ((* (ptr) pd117 ))))(frame←v6988, pd117);
};
SOURCE(2072, 24)
{
word pd118;
pd118 = (* (( (ptr) (* (( (ptr) gf←c13188)+66)/* var←c12196 */ ))+38) );
a←v4116 = (word) ( *( (fPt) ((* (ptr) pd118 ))))(frame←v6988, pd118);
};
SOURCE(2098, 24)
{
word pd119;
pd119 = (* (( (ptr) (* (( (ptr) gf←c13188)+66)/* var←c12196 */ ))+26) );
(void) ( *( (fPt) ((* (ptr) pd119 ))))(frame←v6988, (unsigned) ((0 != a←v4116) && (0 != b←v4088)), pd119);
};
}
static void ApplyOr←P1080(frame←v7076, cmd←v7104)
word frame←v7076;
word cmd←v7104;
{
register ptr gf←c13220 = (ptr) &globalframe;
word b←v4160;
word a←v4188;
/* ApplyOr: */
SOURCE(2128, 100)
SOURCE(2153, 24)
{
word pd120;
pd120 = (* (( (ptr) (* (( (ptr) gf←c13220)+66)/* var←c12196 */ ))+38) );
b←v4160 = (word) ( *( (fPt) ((* (ptr) pd120 ))))(frame←v7076, pd120);
};
SOURCE(2179, 24)
{
word pd121;
pd121 = (* (( (ptr) (* (( (ptr) gf←c13220)+66)/* var←c12196 */ ))+38) );
a←v4188 = (word) ( *( (fPt) ((* (ptr) pd121 ))))(frame←v7076, pd121);
};
SOURCE(2205, 23)
{
word pd122;
pd122 = (* (( (ptr) (* (( (ptr) gf←c13220)+66)/* var←c12196 */ ))+26) );
(void) ( *( (fPt) ((* (ptr) pd122 ))))(frame←v7076, (unsigned) ((0 != a←v4188) || (0 != b←v4160)), pd122);
};
}
static void ApplyXor←P1140(frame←v7164, cmd←v7192)
word frame←v7164;
word cmd←v7192;
{
register ptr gf←c13252 = (ptr) &globalframe;
word b←v4232;
word a←v4260;
/* ApplyXor: */
SOURCE(2234, 100)
SOURCE(2260, 24)
{
word pd123;
pd123 = (* (( (ptr) (* (( (ptr) gf←c13252)+66)/* var←c12196 */ ))+38) );
b←v4232 = (word) ( *( (fPt) ((* (ptr) pd123 ))))(frame←v7164, pd123);
};
SOURCE(2286, 24)
{
word pd124;
pd124 = (* (( (ptr) (* (( (ptr) gf←c13252)+66)/* var←c12196 */ ))+38) );
a←v4260 = (word) ( *( (fPt) ((* (ptr) pd124 ))))(frame←v7164, pd124);
};
SOURCE(2312, 22)
{
word pd125;
pd125 = (* (( (ptr) (* (( (ptr) gf←c13252)+66)/* var←c12196 */ ))+26) );
(void) ( *( (fPt) ((* (ptr) pd125 ))))(frame←v7164, (unsigned) (a←v4260 != b←v4232), pd125);
};
}
static void NoName←Q1692(formal←c0122, formal←c200012, formal←c200013, formal←c200014, formal←c200015)
word formal←c0122;
word formal←c200012;
word formal←c200013;
word formal←c200014;
word formal←c200015;
{
SOURCE(1573, 18)
(* (ptr) formal←c0122 ) = 2;
(* (( (ptr) formal←c0122)+1) ) = 5;
return;
/* c2c skipped dead code */
}
static void NoName←Q1752(formal←c0127, formal←c200008, formal←c200009, formal←c200010, formal←c200011)
word formal←c0127;
word formal←c200008;
word formal←c200009;
word formal←c200010;
word formal←c200011;
{
SOURCE(1419, 18)
(* (ptr) formal←c0127 ) = 2;
(* (( (ptr) formal←c0127)+1) ) = 4;
return;
/* c2c skipped dead code */
}
static void NoName←Q1812(formal←c0132, formal←c200004, formal←c200005, formal←c200006, formal←c200007)
word formal←c0132;
word formal←c200004;
word formal←c200005;
word formal←c200006;
word formal←c200007;
{
SOURCE(1237, 11)
(* (ptr) formal←c0132 ) = 2;
(* (( (ptr) formal←c0132)+1) ) = 3;
return;
/* c2c skipped dead code */
}
static void NoName←Q1872(formal←c0137, formal←c200000, formal←c200001, formal←c200002, formal←c200003)
word formal←c0137;
word formal←c200000;
word formal←c200001;
word formal←c200002;
word formal←c200003;
{
SOURCE(1053, 11)
(* (ptr) formal←c0137 ) = 2;
(* (( (ptr) formal←c0137)+1) ) = 2;
return;
/* c2c skipped dead code */
}
/* file: TJaMMathImpl, module: TJaMMathImpl, compiled at: October 19, 1993 1:02:52 pm PDT */
extern void XR←install←TJaMMathImpl() {
NoName←Q1392();
}
extern void XR←run←TJaMMathImpl() { XR←Start(&globalframe); }