/* 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 #include 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); }