/* Generated with C2C (Cedar To C)*/ /* Copyright (C) 1993 by Xerox Corporation. All rights reserved. */ /* time: October 19, 1993 1:02:02 pm PDT */ /* C2C version: April 20, 1993 (sun4) */ /* ref-counting: off */ /* file: TJaMExecImpl, module: TJaMExecImpl */ /* switches: bcfhklnouw */ #include #include static char versionStamp[] = "@(#)mob_version [1203173202,4054038561] TJaMExecImpl"; 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;} W7; typedef struct {word f0, f1;} W2; typedef struct {word f0, f1, f2, f3, f4, f5;} W6; #define SOURCE(p, l) /* source p, l */ static void NoName_Q1392(); static void TJaMExecImpl_P0(); static void ProduceError_P60(); static void Execute_P120(); static word NoName_Q1452(); static word NoName_Q1512(); static void ExecuteAtom_P180(); static void ExecuteArray_P240(); static void ExecuteBody_P300(); static word GetAbort_P360(); static void SetAbort_P420(); static void ApplyStop_P480(); static void ApplyExec_P540(); static void ApplyIf_P600(); static void ApplyIfElse_P660(); static void ApplyRept_P720(); static word NoName_Q1572(); static void ApplyFor_P780(); static word NoName_Q1632(); static word NoName_Q1692(); static void ApplyLoop_P840(); static word NoName_Q1752(); static void ApplyExit_P900(); static void NoName_Q1812(); static void NoName_Q1872(); static void NoName_Q1932(); static void NoName_Q1992(); static void NoName_Q2052(); static void NoName_Q2112(); static struct {unsigned f; char r[20];} string1 = {1048596, "\205\257\300\243\004\305\073\300\011\303\367\103\110\060\216\251\000\000\000"}; static struct {unsigned f; char r[8];} string2 = {262148, "\004\200\177\377\000\000\000"}; static struct {unsigned f; char r[16];} string3 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\104\304\000\000"}; static struct {unsigned f; char r[24];} string4 = {1376277, "\007\000\001\002\007\020\001\002\000\007\036\002\004\003\002\004\014\016\015\003\001\000\000"}; static struct {unsigned f; char r[16];} string5 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"}; static struct {unsigned f; char r[4];} string6 = {65537, "\001\000\000"}; static struct {unsigned f; char r[16];} string7 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\112\064\000\000"}; static struct {unsigned f; char r[4];} string8 = {131074, "\004\037\000"}; static struct {unsigned f; char r[16];} string9 = {851984, "\257\300\243\004\305\073\300\011\303\367\103\101\004\000\000"}; static struct {unsigned f; char r[16];} string10 = {851984, "\257\300\243\004\305\073\300\011\303\367\103\100\164\000\000"}; static struct {unsigned f; char r[4];} string11 = {131074, "\003\001\000"}; static struct {unsigned f; char r[16];} string12 = {851984, "\257\300\243\004\305\073\300\011\303\367\103\100\340\000\000"}; static struct {unsigned f; char r[4];} string13 = {131074, "\004\006\000"}; static struct {unsigned f; char r[4];} string14 = {65540, "\251\000\000"}; static struct {unsigned f; char r[12];} string15 = {655372, ".stkundflw\000"}; static struct {unsigned f; char r[12];} string16 = {655372, ".stkovrflw\000"}; static struct {unsigned f; char r[12];} string17 = {720908, ".dictundflw"}; static struct {unsigned f; char r[12];} string18 = {720908, ".dictovrflw"}; static struct {unsigned f; char r[20];} string19 = {1048596, ".attachmentcycle\000\000\000"}; static struct {unsigned f; char r[16];} string20 = {786448, ".notattached\000\000\000"}; static struct {unsigned f; char r[12];} string21 = {655372, ".syntaxerr\000"}; static struct {unsigned f; char r[16];} string22 = {786448, ".endofstream\000\000\000"}; static struct {unsigned f; char r[8];} string23 = {262152, ".bug\000\000\000"}; static struct {unsigned f; char r[12];} string24 = {655372, ".undefname\000"}; static struct {unsigned f; char r[12];} string25 = {589836, ".overflow\000\000"}; static struct {unsigned f; char r[4];} string26 = {196612, ".if"}; static struct {unsigned f; char r[8];} string27 = {458760, ".ifelse"}; static struct {unsigned f; char r[8];} string28 = {327688, ".rept\000\000"}; static struct {unsigned f; char r[8];} string29 = {262152, ".for\000\000\000"}; static struct {unsigned f; char r[8];} string30 = {327688, ".loop\000\000"}; static struct {unsigned f; char r[8];} string31 = {327688, ".exit\000\000"}; static struct {unsigned f; char r[8];} string32 = {327688, ".stop\000\000"}; static struct {unsigned f; char r[12];} string33 = {655372, ".interrupt\000"}; static struct {unsigned f; char r[8];} string34 = {327688, ".exec\000\000"}; static struct {unsigned f; char r[12];} string35 = {524300, ".badargs\000\000\000"}; static struct {unsigned f; char r[12];} string36 = {589836, ".rangechk\000\000"}; static struct {unsigned f; char r[12];} string37 = {524300, ".typechk\000\000\000"}; static struct {unsigned f; char r[12];} string38 = {589836, ".undefkey\000\000"}; static struct {unsigned f; char r[8];} string39 = {262152, ".nil\000\000\000"}; static struct {unsigned f; char r[16];} string40 = {851984, "\257\300\107\266\367\122\300\361\243\270\041\100\164\000\000"}; static struct {unsigned f; char r[16];} string41 = {851981, "\006\003\020\001\024\001\100\104\010\000\004\031\001\000\000"}; static struct {unsigned f; char r[4];} string42 = {1414160717, "\000"}; static struct {unsigned f; char r[16];} string43 = {851984, "\257\300\243\004\305\073\300\011\303\367\103\100\150\000\000"}; static struct {unsigned f; char r[28];} string44 = {1638428, "\211\015\014\106\162\141\155\145\111\155\160\154\122\145\160\300\243\004\305\073\300\011\303\367\103\000\000"}; static struct {unsigned f; char r[16];} string45 = {851984, "\257\300\367\310\321\062\300\174\163\370\126\100\164\000\000"}; static struct {unsigned f; char r[4];} string46 = {131074, "\004\017\000"}; static struct { word f0[46]; 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; word f66; word f67; word f68; word f69; word f70; word f71; word f72; word f73; word f74; word f75; word f76; word f77[3]; } globalframe = { {0}, (word) ApplyExit_P900, 0, (word) ApplyLoop_P840, 0, (word) ApplyFor_P780, 0, (word) ApplyRept_P720, 0, (word) ApplyIfElse_P660, 0, (word) ApplyIf_P600, 0, (word) ApplyExec_P540, 0, (word) ApplyStop_P480, 0, (word) SetAbort_P420, 0, (word) GetAbort_P360, 0, (word) ExecuteBody_P300, 0, (word) ExecuteArray_P240, 0, (word) ExecuteAtom_P180, 0, (word) Execute_P120, 0, (word) ProduceError_P60, 0, (word) TJaMExecImpl_P0, {0} }; static void NoName_Q1392() { register ptr gf_c0152 = (ptr) &globalframe; word var_c14460; (* (( (ptr) gf_c0152)+7) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2); (* (( (ptr) gf_c0152)+9) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4); (* (( (ptr) gf_c0152)+10) ) = (word) XR_GetTypeIndex((word) &string5, 0, (word) &string6); (* (( (ptr) gf_c0152)+11) ) = (word) XR_GetTypeIndex((word) &string7, 0, (word) &string8); (* (( (ptr) gf_c0152)+12) ) = (word) XR_GetTypeIndex((word) &string9, 0, (word) &string6); (* (( (ptr) gf_c0152)+13) ) = (word) XR_GetTypeIndex((word) &string10, 0, (word) &string11); (* (( (ptr) gf_c0152)+14) ) = (word) XR_GetTypeIndex((word) &string12, 0, (word) &string13); (* (( (ptr) gf_c0152)+15) ) = (word) XR_GetTypeIndexS((word) (&string14)); (* (ptr) (( (bPt) gf_c0152)+68) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0152)+10) ), (word) &string15); (* (ptr) (( (bPt) gf_c0152)+72) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0152)+10) ), (word) &string16); (* (ptr) (( (bPt) gf_c0152)+76) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0152)+10) ), (word) &string17); (* (ptr) (( (bPt) gf_c0152)+80) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0152)+10) ), (word) &string18); (* (ptr) (( (bPt) gf_c0152)+84) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0152)+10) ), (word) &string19); (* (ptr) (( (bPt) gf_c0152)+88) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0152)+10) ), (word) &string20); (* (ptr) (( (bPt) gf_c0152)+92) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0152)+10) ), (word) &string21); (* (ptr) (( (bPt) gf_c0152)+96) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0152)+10) ), (word) &string22); (* (ptr) (( (bPt) gf_c0152)+100) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0152)+10) ), (word) &string23); (* (ptr) (( (bPt) gf_c0152)+104) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0152)+10) ), (word) &string24); (* (ptr) (( (bPt) gf_c0152)+108) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0152)+10) ), (word) &string25); (* (ptr) (( (bPt) gf_c0152)+112) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0152)+10) ), (word) &string26); (* (ptr) (( (bPt) gf_c0152)+116) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0152)+10) ), (word) &string27); (* (ptr) (( (bPt) gf_c0152)+120) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0152)+10) ), (word) &string28); (* (ptr) (( (bPt) gf_c0152)+124) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0152)+10) ), (word) &string29); (* (ptr) (( (bPt) gf_c0152)+128) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0152)+10) ), (word) &string30); (* (ptr) (( (bPt) gf_c0152)+132) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0152)+10) ), (word) &string31); (* (ptr) (( (bPt) gf_c0152)+136) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0152)+10) ), (word) &string32); (* (ptr) (( (bPt) gf_c0152)+140) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0152)+10) ), (word) &string33); (* (ptr) (( (bPt) gf_c0152)+144) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0152)+10) ), (word) &string34); (* (ptr) (( (bPt) gf_c0152)+148) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0152)+10) ), (word) &string35); (* (ptr) (( (bPt) gf_c0152)+152) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0152)+10) ), (word) &string36); (* (ptr) (( (bPt) gf_c0152)+156) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0152)+10) ), (word) &string37); (* (ptr) (( (bPt) gf_c0152)+160) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0152)+10) ), (word) &string38); (* (ptr) (( (bPt) gf_c0152)+164) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0152)+10) ), (word) &string39); (void) XR_DeclareGlobalFrame((word) "TJaMExecImpl", &globalframe, (word) XR_GetTypeIndex((word) &string40, 0, (word) &string41) , (word) (( (bPt) gf_c0152)+304)/* var_c13564 */ ); var_c14460 = (word) XR_ImportInterface((word) &string42, (word) XR_GetTypeIndexS((word) (&string43)), 101); (* (( (ptr) gf_c0152)+78)/* var_c13628 */ ) = var_c14460; (void) XR_ImportProcS(var_c14460, 530178); (void) XR_ImportProcS(var_c14460, 67379969); (void) XR_ImportProcS(var_c14460, 67379713); (void) XR_ImportProcS(var_c14460, 67379457); (void) XR_ImportProcS(var_c14460, 809987); (void) XR_ImportProcS(var_c14460, 548098); (void) XR_ImportProcS(var_c14460, 67648770); (void) XR_ImportProcS(var_c14460, 530946); (void) XR_ImportProcS(var_c14460, 134762498); (void) XR_ImportProcS(var_c14460, 529666); (void) XR_ImportProcS(var_c14460, 812035); (void) XR_ImportProcS(var_c14460, 67375617); var_c14460 = (word) XR_ExportInterface((word) &string42, (word) XR_GetTypeIndexS((word) (&string43)), 101); (* (( (ptr) gf_c0152)+79)/* var_c14492 */ ) = var_c14460; (void) XR_ExportType((word) "FrameImplRep", (word) XR_GetTypeIndexS((word) (&string44)), (word) XR_GetTypeIndex((word) &string45, 0, (word) &string46) ); (void) XR_ExportVar(var_c14460, 88, (word) (( (bPt) gf_c0152)+172)); (void) XR_ExportVar(var_c14460, 89, (word) (( (bPt) gf_c0152)+176)); (void) XR_ExportVar(var_c14460, 90, (word) (( (bPt) gf_c0152)+180)); (void) XR_ExportProcS(var_c14460, (word) (( (bPt) gf_c0152)+296)/* var_c13532 */ , 285441, (word) "ProduceError"); (void) XR_ExportProcS(var_c14460, (word) (( (bPt) gf_c0152)+288)/* var_c13500 */ , 548610, (word) "Execute"); (void) XR_ExportProcS(var_c14460, (word) (( (bPt) gf_c0152)+280)/* var_c13468 */ , 548866, (word) "ExecuteAtom"); (void) XR_ExportProcS(var_c14460, (word) (( (bPt) gf_c0152)+272)/* var_c13436 */ , 549122, (word) "ExecuteArray"); } static void TJaMExecImpl_P0(formal_c047, formal_c030) word formal_c047; word formal_c030; { register ptr gf_c14524 = (ptr) &globalframe; /* TJaMExecImpl: */ SOURCE(31, 3983) SOURCE(409, 675) { word var_c13596; word var_c13660; word var_c13692; word var_c13724; word var_c13756; word var_c13788; word var_c13820; word var_c13852; word var_c13884; word var_c13916; word var_c13948; word var_c13980; word var_c14012; word var_c14044; word var_c14076; word var_c14108; { word pd47; pd47 = (* (( (ptr) (* (( (ptr) gf_c14524)+78)/* var_c13628 */ ))+22) ); var_c13596 = (word) ( *( (fPt) ((* (ptr) pd47 ))))((* ((( (ptr) gf_c14524)+41)) ), pd47); }; { word pd48; pd48 = (* (( (ptr) (* (( (ptr) gf_c14524)+78)/* var_c13628 */ ))+22) ); var_c13660 = (word) ( *( (fPt) ((* (ptr) pd48 ))))((* ((( (ptr) gf_c14524)+40)) ), pd48); }; { word pd49; pd49 = (* (( (ptr) (* (( (ptr) gf_c14524)+78)/* var_c13628 */ ))+22) ); var_c13692 = (word) ( *( (fPt) ((* (ptr) pd49 ))))((* ((( (ptr) gf_c14524)+39)) ), pd49); }; { word pd50; pd50 = (* (( (ptr) (* (( (ptr) gf_c14524)+78)/* var_c13628 */ ))+22) ); var_c13724 = (word) ( *( (fPt) ((* (ptr) pd50 ))))((* ((( (ptr) gf_c14524)+38)) ), pd50); }; { word pd51; pd51 = (* (( (ptr) (* (( (ptr) gf_c14524)+78)/* var_c13628 */ ))+22) ); var_c13756 = (word) ( *( (fPt) ((* (ptr) pd51 ))))((* ((( (ptr) gf_c14524)+37)) ), pd51); }; { word pd52; pd52 = (* (( (ptr) (* (( (ptr) gf_c14524)+78)/* var_c13628 */ ))+22) ); var_c13788 = (word) ( *( (fPt) ((* (ptr) pd52 ))))((* ((( (ptr) gf_c14524)+27)) ), pd52); }; { word pd53; pd53 = (* (( (ptr) (* (( (ptr) gf_c14524)+78)/* var_c13628 */ ))+22) ); var_c13820 = (word) ( *( (fPt) ((* (ptr) pd53 ))))((* ((( (ptr) gf_c14524)+17)) ), pd53); }; { word pd54; pd54 = (* (( (ptr) (* (( (ptr) gf_c14524)+78)/* var_c13628 */ ))+22) ); var_c13852 = (word) ( *( (fPt) ((* (ptr) pd54 ))))((* ((( (ptr) gf_c14524)+18)) ), pd54); }; { word pd55; pd55 = (* (( (ptr) (* (( (ptr) gf_c14524)+78)/* var_c13628 */ ))+22) ); var_c13884 = (word) ( *( (fPt) ((* (ptr) pd55 ))))((* ((( (ptr) gf_c14524)+19)) ), pd55); }; { word pd56; pd56 = (* (( (ptr) (* (( (ptr) gf_c14524)+78)/* var_c13628 */ ))+22) ); var_c13916 = (word) ( *( (fPt) ((* (ptr) pd56 ))))((* ((( (ptr) gf_c14524)+20)) ), pd56); }; { word pd57; pd57 = (* (( (ptr) (* (( (ptr) gf_c14524)+78)/* var_c13628 */ ))+22) ); var_c13948 = (word) ( *( (fPt) ((* (ptr) pd57 ))))((* ((( (ptr) gf_c14524)+21)) ), pd57); }; { word pd58; pd58 = (* (( (ptr) (* (( (ptr) gf_c14524)+78)/* var_c13628 */ ))+22) ); var_c13980 = (word) ( *( (fPt) ((* (ptr) pd58 ))))((* ((( (ptr) gf_c14524)+22)) ), pd58); }; { word pd59; pd59 = (* (( (ptr) (* (( (ptr) gf_c14524)+78)/* var_c13628 */ ))+22) ); var_c14012 = (word) ( *( (fPt) ((* (ptr) pd59 ))))((* ((( (ptr) gf_c14524)+23)) ), pd59); }; { word pd60; pd60 = (* (( (ptr) (* (( (ptr) gf_c14524)+78)/* var_c13628 */ ))+22) ); var_c14044 = (word) ( *( (fPt) ((* (ptr) pd60 ))))((* ((( (ptr) gf_c14524)+24)) ), pd60); }; { word pd61; pd61 = (* (( (ptr) (* (( (ptr) gf_c14524)+78)/* var_c13628 */ ))+22) ); var_c14076 = (word) ( *( (fPt) ((* (ptr) pd61 ))))((* ((( (ptr) gf_c14524)+25)) ), pd61); }; var_c14108 = XR_NewObject(60, (* (( (ptr) gf_c14524)+7) )); (* (ptr) var_c14108 ) = var_c13596; (* (( (ptr) var_c14108)+1) ) = var_c13660; (* (( (ptr) var_c14108)+2) ) = var_c13692; (* (( (ptr) var_c14108)+3) ) = var_c13724; (* (( (ptr) var_c14108)+4) ) = var_c13756; (* (( (ptr) var_c14108)+5) ) = var_c13788; (* (( (ptr) var_c14108)+6) ) = var_c13820; (* (( (ptr) var_c14108)+7) ) = var_c13852; (* (( (ptr) var_c14108)+8) ) = var_c13884; (* (( (ptr) var_c14108)+9) ) = var_c13916; (* (( (ptr) var_c14108)+10) ) = var_c13948; (* (( (ptr) var_c14108)+11) ) = var_c13980; (* (( (ptr) var_c14108)+12) ) = var_c14012; (* (( (ptr) var_c14108)+13) ) = var_c14044; (* (( (ptr) var_c14108)+14) ) = var_c14076; (* (( (ptr) gf_c14524)+4)/* atomFromErrorType_v2664 */ ) = var_c14108; }; SOURCE(1805, 44) { word pd62; pd62 = (* (( (ptr) (* (( (ptr) gf_c14524)+78)/* var_c13628 */ ))+22) ); (* (( (ptr) gf_c14524)+5)/* undefName_v2748 */ ) = (word) ( *( (fPt) ((* (ptr) pd62 ))))((* ((( (ptr) gf_c14524)+26)) ), pd62) ; }; SOURCE(3662, 33) { word pd63; pd63 = (* (( (ptr) (* (( (ptr) gf_c14524)+78)/* var_c13628 */ ))+104) ); (void) ( *( (fPt) ((* (ptr) pd63 ))))((* (( (ptr) gf_c14524)+28) ), (word) (( (bPt) gf_c14524)+224)/* var_c13244 */ , 0, pd63) ; }; SOURCE(3697, 41) { word pd64; pd64 = (* (( (ptr) (* (( (ptr) gf_c14524)+78)/* var_c13628 */ ))+104) ); (void) ( *( (fPt) ((* (ptr) pd64 ))))((* (( (ptr) gf_c14524)+29) ), (word) (( (bPt) gf_c14524)+216)/* var_c13212 */ , 0, pd64) ; }; SOURCE(3740, 37) { word pd65; pd65 = (* (( (ptr) (* (( (ptr) gf_c14524)+78)/* var_c13628 */ ))+104) ); (void) ( *( (fPt) ((* (ptr) pd65 ))))((* (( (ptr) gf_c14524)+30) ), (word) (( (bPt) gf_c14524)+208)/* var_c13180 */ , 0, pd65) ; }; SOURCE(3779, 35) { word pd66; pd66 = (* (( (ptr) (* (( (ptr) gf_c14524)+78)/* var_c13628 */ ))+104) ); (void) ( *( (fPt) ((* (ptr) pd66 ))))((* (( (ptr) gf_c14524)+31) ), (word) (( (bPt) gf_c14524)+200)/* var_c13148 */ , 0, pd66) ; }; SOURCE(3816, 37) { word pd67; pd67 = (* (( (ptr) (* (( (ptr) gf_c14524)+78)/* var_c13628 */ ))+104) ); (void) ( *( (fPt) ((* (ptr) pd67 ))))((* (( (ptr) gf_c14524)+32) ), (word) (( (bPt) gf_c14524)+192)/* var_c13116 */ , 0, pd67) ; }; SOURCE(3855, 37) { word pd68; pd68 = (* (( (ptr) (* (( (ptr) gf_c14524)+78)/* var_c13628 */ ))+104) ); (void) ( *( (fPt) ((* (ptr) pd68 ))))((* (( (ptr) gf_c14524)+33) ), (word) (( (bPt) gf_c14524)+184)/* var_c13084 */ , 0, pd68) ; }; SOURCE(3894, 37) { word pd69; pd69 = (* (( (ptr) (* (( (ptr) gf_c14524)+78)/* var_c13628 */ ))+104) ); (void) ( *( (fPt) ((* (ptr) pd69 ))))((* (( (ptr) gf_c14524)+34) ), (word) (( (bPt) gf_c14524)+240)/* var_c13308 */ , 0, pd69) ; }; SOURCE(3933, 42) { word pd70; pd70 = (* (( (ptr) (* (( (ptr) gf_c14524)+78)/* var_c13628 */ ))+104) ); (void) ( *( (fPt) ((* (ptr) pd70 ))))((* (( (ptr) gf_c14524)+35) ), (word) (( (bPt) gf_c14524)+240)/* var_c13308 */ , 0, pd70) ; }; SOURCE(3977, 37) { word pd71; pd71 = (* (( (ptr) (* (( (ptr) gf_c14524)+78)/* var_c13628 */ ))+104) ); (void) ( *( (fPt) ((* (ptr) pd71 ))))((* (( (ptr) gf_c14524)+36) ), (word) (( (bPt) gf_c14524)+232)/* var_c13276 */ , 0, pd71) ; }; } static void ProduceError_P60(type_v3372) word type_v3372; { register ptr gf_c14556 = (ptr) &globalframe; word atom_v3944; /* ProduceError: */ SOURCE(1087, 102) SOURCE(1134, 36) atom_v3944 = (* (( (ptr) (* (( (ptr) gf_c14556)+4)/* atomFromErrorType_v2664 */ ))+type_v3372) ); SOURCE(1172, 17) { word var_c050; var_c050 = atom_v3944; (void) XR_RaiseError((word) (( (bPt) gf_c14556)+172), (word) &var_c050); }; } static void Execute_P120(formal_c0194, formal_c0195) word formal_c0194; word formal_c0195; { W7 var_c14588; /* declaration of frame_v3432 skipped */ /* declaration of x_v3460 skipped */ register ptr gf_c14620 = (ptr) &globalframe; word impl_v3988; /* declaration of errorAtom_v4016 skipped */ var_c14588.f4/* frame_v3432 */ = formal_c0194; var_c14588.f5/* x_v3460 */ = formal_c0195; /* Execute: */ SOURCE(1195, 601) SOURCE(1242, 28) impl_v3988 = (* (ptr) var_c14588.f4/* frame_v3432 */ ); SOURCE(1272, 21) var_c14588.f6/* errorAtom_v4016 */ = 0; SOURCE(1295, 52) if ((0 != (* (( (ptr) impl_v3988)+4) ))) { SOURCE(1316, 18) (* (( (ptr) impl_v3988)+4) ) = 0; SOURCE(1336, 11) (void) XR_RaiseError((word) (( (bPt) gf_c14620)+180), 0); }; SOURCE(1352, 302) SOURCE(1352, 302) { word var_c01; { word var_c0180; var_c0180 = (word) &var_c14588; var_c01 = (word) XR_Enable(( ((word) (fPt) NoName_Q1512) ), ( ((word) (fPt) NoName_Q2112) ), var_c0180); }; /* removed trivial cond node */ }; SOURCE(1659, 137) if ((var_c14588.f6/* errorAtom_v4016 */ != 0)) { SOURCE(1683, 14) { word pd72; pd72 = (* (( (ptr) (* (( (ptr) gf_c14620)+78)/* var_c13628 */ ))+25) ); (void) ( *( (fPt) ((* (ptr) pd72 ))))(var_c14588.f4/* frame_v3432 */ , var_c14588.f5/* x_v3460 */ , pd72); }; SOURCE(1699, 97) { word var_c0181; var_c0181 = (word) &var_c14588; (void) (word) XR_Enable(( ((word) (fPt) NoName_Q1452) ), ( ((word) (fPt) NoName_Q2052) ), var_c0181); }; }; } static word NoName_Q1452(formal_c0156) word formal_c0156; { SOURCE(1699, 97) (void) ExecuteAtom_P180((* (( (ptr) formal_c0156)+4) ), (* (( (ptr) formal_c0156)+6) )); return(0); } static word NoName_Q1512(formal_c0158) word formal_c0158; { register ptr gf_c0157 = (ptr) &globalframe; SOURCE(1401, 253) { word var_c14140; word var_c14172; var_c14140 = (* (( (ptr) formal_c0158)+5) ); if ((var_c14140 == 0)) { goto lab_L100004; }; var_c14172 = XR_GetReferentType(var_c14140); if (((* (( (ptr) gf_c0157)+15) ) == var_c14172)) { { word atom_v4060; atom_v4060 = var_c14140; SOURCE(1434, 24) (void) ExecuteAtom_P180((* (( (ptr) formal_c0158)+4) ), atom_v4060); }; goto endif073; }; if (((* (( (ptr) gf_c0157)+14) ) == var_c14172)) { { word cmd_v4104; cmd_v4104 = var_c14140; SOURCE(1472, 20) { word pd74; pd74 = (* (ptr) cmd_v4104 ); (void) ( *( (fPt) ((* (ptr) pd74 ))))((* (( (ptr) formal_c0158)+4) ), cmd_v4104, pd74); }; }; goto endif073; }; if (((* (( (ptr) gf_c0157)+13) ) == var_c14172)) { { word ob_v4148; ob_v4148 = var_c14140; SOURCE(1504, 123) { word var_c14204; var_c14204 = (* (ptr) ob_v4148 ); if ((var_c14204 == 0)) { SOURCE(1534, 20) { word pd75; pd75 = (* (( (ptr) (* (( (ptr) gf_c0157)+78)/* var_c13628 */ ))+25) ); (void) ( *( (fPt) ((* (ptr) pd75 ))))((* (( (ptr) formal_c0158)+4) ), (* (( (ptr) ob_v4148)+1) ), pd75); }; } else { if ((var_c14204 == 1)) { SOURCE(1570, 27) (void) ExecuteBody_P300((* (( (ptr) formal_c0158)+4) ), (* (( (ptr) ob_v4148)+1) )); } else { SOURCE(1610, 17) (void) ProduceError_P60(14); }; }; }; }; goto endif073; }; lab_L100004: ; SOURCE(1640, 14) { word pd76; pd76 = (* (( (ptr) (* (( (ptr) gf_c0157)+78)/* var_c13628 */ ))+25) ); (void) ( *( (fPt) ((* (ptr) pd76 ))))((* (( (ptr) formal_c0158)+4) ), (* (( (ptr) formal_c0158)+5) ), pd76); }; goto endif073; endif073: ; }; return(0); } static void ExecuteAtom_P180(frame_v3520, atom_v3548) word frame_v3520; word atom_v3548; { register ptr gf_c14652 = (ptr) &globalframe; word found_v4192; word val_v4220 = 0; /* ExecuteAtom: */ SOURCE(1852, 267) SOURCE(1930, 37) { W2 var_c14236; { word pd77; pd77 = (* (( (ptr) (* (( (ptr) gf_c14652)+78)/* var_c13628 */ ))+84) ); (void) ( *( (fPt) ((* (ptr) pd77 ))))((word) &var_c14236, frame_v3520, atom_v3548, pd77); }; val_v4220 = var_c14236.f1; found_v4192 = var_c14236.f0; }; SOURCE(1969, 44) if ((0 != found_v4192)) { SOURCE(1985, 19) (void) Execute_P120(frame_v3520, val_v4220); SOURCE(2006, 7) return; }; SOURCE(2016, 42) { W2 var_c14268; { word pd78; pd78 = (* (( (ptr) (* (( (ptr) gf_c14652)+78)/* var_c13628 */ ))+84) ); (void) ( *( (fPt) ((* (ptr) pd78 ))))((word) &var_c14268, frame_v3520, (* (( (ptr) gf_c14652)+5)/* undefName_v2748 */ ), pd78) ; }; val_v4220 = var_c14268.f1; found_v4192 = var_c14268.f0; }; SOURCE(2060, 59) if ((0 != found_v4192)) { SOURCE(2076, 21) { word pd79; pd79 = (* (( (ptr) (* (( (ptr) gf_c14652)+78)/* var_c13628 */ ))+30) ); (void) ( *( (fPt) ((* (ptr) pd79 ))))(frame_v3520, atom_v3548, pd79); }; SOURCE(2099, 20) (void) Execute_P120(frame_v3520, val_v4220); }; } static void ExecuteArray_P240(frame_v3608, array_v3636) word frame_v3608; word array_v3636; { register ptr gf_c14684 = (ptr) &globalframe; /* ExecuteArray: */ SOURCE(2126, 127) SOURCE(2184, 69) { register word i_v4264 = 0; register word noName_c14300; noName_c14300 = (* (( (ptr) array_v3636)+2) ); if ((i_v4264 >= noName_c14300)) { goto lab_L100007; }; lab_L100010: ; SOURCE(2215, 38) { word var_c14332; { word pd80; pd80 = (* (( (ptr) (* (( (ptr) gf_c14684)+78)/* var_c13628 */ ))+65) ); var_c14332 = (word) ( *( (fPt) ((* (ptr) pd80 ))))(array_v3636, i_v4264, pd80); }; (void) Execute_P120(frame_v3608, var_c14332); }; i_v4264 = (i_v4264 + 1); if ((i_v4264 < noName_c14300)) { goto lab_L100010; }; lab_L100007: ; }; } static void ExecuteBody_P300(frame_v3696, x_v3724) word frame_v3696; word x_v3724; { register ptr gf_c14716 = (ptr) &globalframe; /* ExecuteBody: */ SOURCE(2259, 223) SOURCE(2303, 179) { word var_c14364; word var_c14396; var_c14364 = x_v3724; if ((var_c14364 == 0)) { goto lab_L100011; }; var_c14396 = XR_GetReferentType(var_c14364); { word tc82; if (((* (( (ptr) gf_c14716)+12) ) == var_c14396)) { { word array_v4308; array_v4308 = var_c14364; SOURCE(2338, 26) (void) ExecuteArray_P240(frame_v3696, array_v4308); }; goto endif081; }; if (((* (( (ptr) gf_c14716)+9) ) == var_c14396)) { tc82 = (word) ( (unsigned) (*(int*)var_c14364<0) == 0); } else { tc82 = (word) 0; }; if (tc82) { { word rope_v4352; rope_v4352 = var_c14364; SOURCE(2380, 24) { word pd83; pd83 = (* (( (ptr) (* (( (ptr) gf_c14716)+78)/* var_c13628 */ ))+97) ); (void) ( *( (fPt) ((* (ptr) pd83 ))))(frame_v3696, rope_v4352, pd83); }; }; goto endif081; }; if (((* (( (ptr) gf_c14716)+11) ) == var_c14396)) { { word stream_v4396; stream_v4396 = var_c14364; SOURCE(2424, 28) { word pd84; pd84 = (* (( (ptr) (* (( (ptr) gf_c14716)+78)/* var_c13628 */ ))+96) ); (void) ( *( (fPt) ((* (ptr) pd84 ))))(frame_v3696, stream_v4396, 1, pd84); }; }; goto endif081; }; lab_L100011: ; SOURCE(2465, 17) (void) Execute_P120(frame_v3696, x_v3724); goto endif081; endif081: ; }; }; } static word GetAbort_P360(frame_v3784) word frame_v3784; { word var_c3828; word impl_v4440; /* GetAbort: */ SOURCE(2488, 102) SOURCE(2542, 28) impl_v4440 = (* (ptr) frame_v3784 ); SOURCE(2572, 18) return((* (( (ptr) impl_v4440)+4) )); } static void SetAbort_P420(frame_v3888, b_v3916) word frame_v3888; word b_v3916; { word impl_v4484; /* SetAbort: */ SOURCE(2596, 93) SOURCE(2645, 28) impl_v4484 = (* (ptr) frame_v3888 ); SOURCE(2675, 14) (* (( (ptr) impl_v4484)+4) ) = b_v3916; } static void ApplyStop_P480(frame_v9072, cmd_v9100) word frame_v9072; word cmd_v9100; { register ptr gf_c14748 = (ptr) &globalframe; /* ApplyStop: */ SOURCE(2695, 37) SOURCE(2722, 10) (void) XR_RaiseError((word) (( (bPt) gf_c14748)+180), 0); } static void ApplyExec_P540(frame_v9160, cmd_v9188) word frame_v9160; word cmd_v9188; { register ptr gf_c14780 = (ptr) &globalframe; word x_v4528; /* ApplyExec: */ SOURCE(2738, 65) SOURCE(2765, 19) { word pd85; pd85 = (* (( (ptr) (* (( (ptr) gf_c14780)+78)/* var_c13628 */ ))+37) ); x_v4528 = (word) ( *( (fPt) ((* (ptr) pd85 ))))(frame_v9160, pd85); }; SOURCE(2786, 17) (void) Execute_P120(frame_v9160, x_v4528); } static void ApplyIf_P600(frame_v9248, cmd_v9276) word frame_v9248; word cmd_v9276; { register ptr gf_c14812 = (ptr) &globalframe; word x_v4572; word b_v4600; /* ApplyIf: */ SOURCE(2809, 99) SOURCE(2834, 19) { word pd86; pd86 = (* (( (ptr) (* (( (ptr) gf_c14812)+78)/* var_c13628 */ ))+37) ); x_v4572 = (word) ( *( (fPt) ((* (ptr) pd86 ))))(frame_v9248, pd86); }; SOURCE(2855, 24) { word pd87; pd87 = (* (( (ptr) (* (( (ptr) gf_c14812)+78)/* var_c13628 */ ))+38) ); b_v4600 = (word) ( *( (fPt) ((* (ptr) pd87 ))))(frame_v9248, pd87); }; SOURCE(2881, 27) if ((0 != b_v4600)) { SOURCE(2891, 17) (void) Execute_P120(frame_v9248, x_v4572); }; } static void ApplyIfElse_P660(frame_v9336, cmd_v9364) word frame_v9336; word cmd_v9364; { register ptr gf_c14844 = (ptr) &globalframe; word xF_v4644; word xT_v4672; word b_v4700; /* ApplyIfElse: */ SOURCE(2914, 135) SOURCE(2943, 20) { word pd88; pd88 = (* (( (ptr) (* (( (ptr) gf_c14844)+78)/* var_c13628 */ ))+37) ); xF_v4644 = (word) ( *( (fPt) ((* (ptr) pd88 ))))(frame_v9336, pd88); }; SOURCE(2965, 20) { word pd89; pd89 = (* (( (ptr) (* (( (ptr) gf_c14844)+78)/* var_c13628 */ ))+37) ); xT_v4672 = (word) ( *( (fPt) ((* (ptr) pd89 ))))(frame_v9336, pd89); }; SOURCE(2987, 24) { word pd90; pd90 = (* (( (ptr) (* (( (ptr) gf_c14844)+78)/* var_c13628 */ ))+38) ); b_v4700 = (word) ( *( (fPt) ((* (ptr) pd90 ))))(frame_v9336, pd90); }; SOURCE(3013, 36) (void) Execute_P120(frame_v9336, ( (0 != b_v4700) ? xT_v4672 : xF_v4644 ) ); } static void ApplyRept_P720(formal_c0196, cmd_v9452) word formal_c0196; word cmd_v9452; { W6 var_c14876; /* declaration of frame_v9424 skipped */ register ptr gf_c14908 = (ptr) &globalframe; /* declaration of x_v4744 skipped */ word n_v4772; var_c14876.f4/* frame_v9424 */ = formal_c0196; /* ApplyRept: */ SOURCE(3055, 117) SOURCE(3082, 19) { word pd91; pd91 = (* (( (ptr) (* (( (ptr) gf_c14908)+78)/* var_c13628 */ ))+37) ); var_c14876.f5/* x_v4744 */ = (word) ( *( (fPt) ((* (ptr) pd91 ))))(var_c14876.f4/* frame_v9424 */ , pd91); }; SOURCE(3103, 22) { word pd92; pd92 = (* (( (ptr) (* (( (ptr) gf_c14908)+78)/* var_c13628 */ ))+39) ); n_v4772 = (word) ( *( (fPt) ((* (ptr) pd92 ))))(var_c14876.f4/* frame_v9424 */ , pd92); }; SOURCE(3127, 45) { register word noName_c14428 = 0; if (( (int)noName_c14428 >= (int)n_v4772)) { goto lab_L100012; }; lab_L100015: ; SOURCE(3145, 27) { word var_c02; { word var_c0182; var_c0182 = (word) &var_c14876; var_c02 = (word) XR_Enable(( ((word) (fPt) NoName_Q1572) ), ( ((word) (fPt) NoName_Q1992) ), var_c0182); }; if ((var_c02 == 3)) { goto lab_L100013; }; }; noName_c14428 = (noName_c14428 + 1); if (( (int)noName_c14428 < (int)n_v4772)) { goto lab_L100015; }; lab_L100012: ; lab_L100013: ; }; } static word NoName_Q1572(formal_c0167) word formal_c0167; { SOURCE(3145, 27) (void) Execute_P120((* (( (ptr) formal_c0167)+4) ), (* (( (ptr) formal_c0167)+5) )); return(0); } static void ApplyFor_P780(formal_c0197, cmd_v9540) word formal_c0197; word cmd_v9540; { W6 var_c14940; /* declaration of frame_v9512 skipped */ register ptr gf_c14972 = (ptr) &globalframe; /* declaration of x_v4816 skipped */ word k_v4844; word j_v4872; word i_v4900; var_c14940.f4/* frame_v9512 */ = formal_c0197; /* ApplyFor: */ SOURCE(3191, 310) SOURCE(3217, 19) { word pd93; pd93 = (* (( (ptr) (* (( (ptr) gf_c14972)+78)/* var_c13628 */ ))+37) ); var_c14940.f5/* x_v4816 */ = (word) ( *( (fPt) ((* (ptr) pd93 ))))(var_c14940.f4/* frame_v9512 */ , pd93); }; SOURCE(3238, 22) { word pd94; pd94 = (* (( (ptr) (* (( (ptr) gf_c14972)+78)/* var_c13628 */ ))+39) ); k_v4844 = (word) ( *( (fPt) ((* (ptr) pd94 ))))(var_c14940.f4/* frame_v9512 */ , pd94); }; SOURCE(3262, 22) { word pd95; pd95 = (* (( (ptr) (* (( (ptr) gf_c14972)+78)/* var_c13628 */ ))+39) ); j_v4872 = (word) ( *( (fPt) ((* (ptr) pd95 ))))(var_c14940.f4/* frame_v9512 */ , pd95); }; SOURCE(3286, 22) { word pd96; pd96 = (* (( (ptr) (* (( (ptr) gf_c14972)+78)/* var_c13628 */ ))+39) ); i_v4900 = (word) ( *( (fPt) ((* (ptr) pd96 ))))(var_c14940.f4/* frame_v9512 */ , pd96); }; SOURCE(3310, 191) if (( (int)j_v4872 >= (int)0)) { SOURCE(3323, 79) { register word n_v4944; n_v4944 = i_v4900; lab_L100021: ; if (( (int)n_v4944 <= (int)k_v4844)) { } else { goto lab_L100018; }; SOURCE(3356, 17) { word pd97; pd97 = (* (( (ptr) (* (( (ptr) gf_c14972)+78)/* var_c13628 */ ))+27) ); (void) ( *( (fPt) ((* (ptr) pd97 ))))(var_c14940.f4/* frame_v9512 */ , n_v4944, pd97); }; SOURCE(3375, 27) { word var_c03; { word var_c0183; var_c0183 = (word) &var_c14940; var_c03 = (word) XR_Enable(( ((word) (fPt) NoName_Q1692) ), ( ((word) (fPt) NoName_Q1932) ), var_c0183); }; if ((var_c03 == 4)) { goto lab_L100019; }; }; n_v4944 = (n_v4944 + j_v4872); goto lab_L100021; lab_L100018: ; lab_L100019: ; }; } else { SOURCE(3422, 79) { register word n_v4988; n_v4988 = i_v4900; lab_L100027: ; if (( (int)n_v4988 >= (int)k_v4844)) { } else { goto lab_L100024; }; SOURCE(3455, 17) { word pd98; pd98 = (* (( (ptr) (* (( (ptr) gf_c14972)+78)/* var_c13628 */ ))+27) ); (void) ( *( (fPt) ((* (ptr) pd98 ))))(var_c14940.f4/* frame_v9512 */ , n_v4988, pd98); }; SOURCE(3474, 27) { word var_c04; { word var_c0184; var_c0184 = (word) &var_c14940; var_c04 = (word) XR_Enable(( ((word) (fPt) NoName_Q1632) ), ( ((word) (fPt) NoName_Q1872) ), var_c0184); }; if ((var_c04 == 5)) { goto lab_L100025; }; }; n_v4988 = (n_v4988 + j_v4872); goto lab_L100027; lab_L100024: ; lab_L100025: ; }; }; } static word NoName_Q1632(formal_c0169) word formal_c0169; { SOURCE(3474, 27) (void) Execute_P120((* (( (ptr) formal_c0169)+4) ), (* (( (ptr) formal_c0169)+5) )); return(0); } static word NoName_Q1692(formal_c0170) word formal_c0170; { SOURCE(3375, 27) (void) Execute_P120((* (( (ptr) formal_c0170)+4) ), (* (( (ptr) formal_c0170)+5) )); return(0); } static void ApplyLoop_P840(formal_c0198, cmd_v9628) word formal_c0198; word cmd_v9628; { W6 var_c15004; /* declaration of frame_v9600 skipped */ register ptr gf_c15036 = (ptr) &globalframe; /* declaration of x_v5032 skipped */ var_c15004.f4/* frame_v9600 */ = formal_c0198; /* ApplyLoop: */ SOURCE(3521, 78) SOURCE(3548, 19) { word pd99; pd99 = (* (( (ptr) (* (( (ptr) gf_c15036)+78)/* var_c13628 */ ))+37) ); var_c15004.f5/* x_v5032 */ = (word) ( *( (fPt) ((* (ptr) pd99 ))))(var_c15004.f4/* frame_v9600 */ , pd99); }; SOURCE(3569, 30) lab_L100032: ; SOURCE(3572, 27) { word var_c05; { word var_c0185; var_c0185 = (word) &var_c15004; var_c05 = (word) XR_Enable(( ((word) (fPt) NoName_Q1752) ), ( ((word) (fPt) NoName_Q1812) ), var_c0185); }; if ((var_c05 == 6)) { goto lab_L100031; }; }; goto lab_L100032; lab_L100031: ; } static word NoName_Q1752(formal_c0172) word formal_c0172; { SOURCE(3572, 27) (void) Execute_P120((* (( (ptr) formal_c0172)+4) ), (* (( (ptr) formal_c0172)+5) )); return(0); } static void ApplyExit_P900(frame_v9688, cmd_v9716) word frame_v9688; word cmd_v9716; { register ptr gf_c15068 = (ptr) &globalframe; /* ApplyExit: */ SOURCE(3618, 38) SOURCE(3645, 11) (void) (XR_RaiseSignal((word) (( (bPt) gf_c15068)+176), 0, 0)); } static void NoName_Q1812(formal_c0123, formal_c200020, formal_c200021, formal_c200022, formal_c200023) word formal_c0123; word formal_c200020; word formal_c200021; word formal_c200022; word formal_c200023; { register ptr gf_c0174 = (ptr) &globalframe; if ((formal_c200021 == (word) (( (bPt) gf_c0174)+176))) { SOURCE(3599, 13) (* (ptr) formal_c0123 ) = 2; (* (( (ptr) formal_c0123)+1) ) = 6; return; }; (* (ptr) formal_c0123 ) = 0; (* (( (ptr) formal_c0123)+1) ) = 0; return; } static void NoName_Q1872(formal_c0128, formal_c200016, formal_c200017, formal_c200018, formal_c200019) word formal_c0128; word formal_c200016; word formal_c200017; word formal_c200018; word formal_c200019; { register ptr gf_c0175 = (ptr) &globalframe; if ((formal_c200017 == (word) (( (bPt) gf_c0175)+176))) { SOURCE(3501, 5) (* (ptr) formal_c0128 ) = 2; (* (( (ptr) formal_c0128)+1) ) = 5; return; }; (* (ptr) formal_c0128 ) = 0; (* (( (ptr) formal_c0128)+1) ) = 0; return; } static void NoName_Q1932(formal_c0133, formal_c200012, formal_c200013, formal_c200014, formal_c200015) word formal_c0133; word formal_c200012; word formal_c200013; word formal_c200014; word formal_c200015; { register ptr gf_c0176 = (ptr) &globalframe; if ((formal_c200013 == (word) (( (bPt) gf_c0176)+176))) { SOURCE(3402, 5) (* (ptr) formal_c0133 ) = 2; (* (( (ptr) formal_c0133)+1) ) = 4; return; }; (* (ptr) formal_c0133 ) = 0; (* (( (ptr) formal_c0133)+1) ) = 0; return; } static void NoName_Q1992(formal_c0138, formal_c200008, formal_c200009, formal_c200010, formal_c200011) word formal_c0138; word formal_c200008; word formal_c200009; word formal_c200010; word formal_c200011; { register ptr gf_c0177 = (ptr) &globalframe; if ((formal_c200009 == (word) (( (bPt) gf_c0177)+176))) { SOURCE(3172, 13) (* (ptr) formal_c0138 ) = 2; (* (( (ptr) formal_c0138)+1) ) = 3; return; }; (* (ptr) formal_c0138 ) = 0; (* (( (ptr) formal_c0138)+1) ) = 0; return; } static void NoName_Q2052(formal_c0145, formal_c200004, formal_c200005, formal_c200006, formal_c200007) word formal_c0145; word formal_c200004; word formal_c200005; word formal_c200006; word formal_c200007; { register ptr gf_c0178 = (ptr) &globalframe; if ((formal_c200005 == (word) (( (bPt) gf_c0178)+172))) { { word error_v10664; error_v10664 = (* (ptr) formal_c200007 ); SOURCE(1739, 57) if ((error_v10664 == (* (( (ptr) formal_c200004)+6) ))) { SOURCE(1763, 33) { word var_c0144; var_c0144 = (* (( (ptr) formal_c200004)+6) ); (void) XR_RaiseError((word) (( (bPt) gf_c0178)+168), (word) &var_c0144); }; }; }; }; (* (ptr) formal_c0145 ) = 0; (* (( (ptr) formal_c0145)+1) ) = 0; return; } static void NoName_Q2112(formal_c0151, formal_c200000, formal_c200001, formal_c200002, formal_c200003) word formal_c0151; word formal_c200000; word formal_c200001; word formal_c200002; word formal_c200003; { register ptr gf_c0179 = (ptr) &globalframe; if ((formal_c200001 == (word) (( (bPt) gf_c0179)+172))) { { word error_v10076; error_v10076 = (* (ptr) formal_c200003 ); SOURCE(1370, 17) (* (( (ptr) formal_c200000)+6) ) = error_v10076; SOURCE(1389, 9) (* (ptr) formal_c0151 ) = 2; (* (( (ptr) formal_c0151)+1) ) = 2; return; }; }; (* (ptr) formal_c0151 ) = 0; (* (( (ptr) formal_c0151)+1) ) = 0; return; } /* file: TJaMExecImpl, module: TJaMExecImpl, compiled at: October 19, 1993 1:02:01 pm PDT */ extern void XR_install_TJaMExecImpl() { NoName_Q1392(); } extern void XR_run_TJaMExecImpl() { XR_Start(&globalframe); }