/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation.  All rights reserved. */
/* time: February 22, 1992 0:02:52 am PST */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: UnboundImpl, module: UnboundImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [790376723,1424020988] UnboundImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
#define SOURCE(p, l) /* source p, l */
static void NoName←Q120();
static void UnboundImpl←P0();
static word UnboundSignaller←P60();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\057\034\061\023\300\124\340\325\374\100\164\000\000"};
static struct {unsigned f; char r[16];} string2 = {851984, "\257\300\275\320\070\317\300\004\110\363\366\100\150\000\000"};
static struct {
   word f0[4]; word f4; word f5; word f6; 
   word f7[2]; 
   } globalframe = {
   {0}, (word) UnboundSignaller←P60, 0, (word) UnboundImpl←P0, 
   {0}
   };

static void NoName←Q120()
   {
   register ptr gf←c011 =  (ptr) &globalframe;
   word var←c3076;
   (void) XR←DeclareGlobalFrame((word) "UnboundImpl", &globalframe, (word) XR←GetTypeIndexS((word) (&string1)), (word) (( (bPt) gf←c011)+24)
      /* var←c2980 */ );
   var←c3076 = (word) XR←ImportInterface((word) "RuntimeError", (word) XR←GetTypeIndexS((word) (&string2)), 27);
   (* (( (ptr) gf←c011)+8)/* var←c3044 */  ) = var←c3076;
   }

static void UnboundImpl←P0(formal←c06, formal←c05)
   word formal←c06;
   word formal←c05;
   {
   register ptr gf←c3108 =  (ptr) &globalframe;
   /* UnboundImpl: */ 
SOURCE(25, 373)
SOURCE(356, 42)
   (void) XR←RegisterUnboundSignaller((word) ((( (bPt) gf←c3108)+16)/* var←c2948 */ ));
   }

static word UnboundSignaller←P60(dest←v2628)
   word dest←v2628;
   {
   register ptr gf←c3140 =  (ptr) &globalframe;
   word var←c2688;
   /* UnboundSignaller: */ 
SOURCE(209, 143)
SOURCE(296, 56)
   {
      word var←c014;
      {
         word var←c09;
         var←c09 = dest←v2628;
         {
            word var←c010;
            (void) (XR←RaiseSignal((* (( (ptr) (* (( (ptr) gf←c3140)+8)/* var←c3044 */  ))+20) ), (word) &var←c010, (word) &var←c09));
            var←c014 = XR←CheckProc(var←c010);
            };
         };
      return(var←c014);
      };
   }

/* file: UnboundImpl, module: UnboundImpl, compiled at: February 22, 1992 0:02:52 am PST */ 
extern void XR←install←UnboundImpl() {
   NoName←Q120();
   }
extern void XR←run←UnboundImpl() { XR←Start(&globalframe); }