/* 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 <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
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); }