/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation.  All rights reserved. */
/* time: October 27, 1993 5:43:08 pm PDT */
/* C2C version: April 20, 1993 (sun4) */
/* ref-counting: off */
/* file: XlAuthImpl, module: XlAuthImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [2674687631,2832851281] XlAuthImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1;} W2;
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {word f0, f1, f2, f3, f4;} W5;
typedef struct {W8 f; W5 r;} W13;
typedef struct {word f0, f1, f2, f3;} W4;
typedef W4 *W4Pt;
typedef W5 *W5Pt;
#define SOURCE(p, l) /* source p, l */
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR_RaiseBoundsFault()) : (idx) )
static void NoName_Q504();
static void XlAuthImpl_P0();
static void GetAuth_P60();
static void GetAuthorization_P120();
static word NoName_Q564();
static word NoName_Q624();
static void ReadAuthRec_P276();
static word Read16_P384();
static word ReadString_P444();
static void NoName_Q684();
static void NoName_Q744();
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[12];} string3 = {655372, "XAUTHORITY\000"};
static struct {unsigned f; char r[12];} string4 = {720908, ".Xauthority"};
static struct {unsigned f; char r[12];} string5 = {589836, "127.0.0.1\000\000"};
static struct {unsigned f; char r[16];} string6 = {851984, "\257\300\237\154\176\217\300\250\331\341\121\100\164\000\000"};
static struct {unsigned f; char r[4];} string7 = {196611, "\004x\000"};
static struct {unsigned f; char r[16];} string8 = {851984, "\257\300\255\053\300\023\300\142\135\315\105\100\150\000\000"};
static struct {unsigned f; char r[16];} string9 = {851984, "\257\300\314\240\077\114\300\013\241\042\210\100\150\000\000"};
static struct {unsigned f; char r[16];} string10 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"};
static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\141\260\110\353\300\162\250\066\353\100\150\000\000"};
static struct {unsigned f; char r[16];} string12 = {851984, "\257\300\332\223\177\020\300\304\076\102\260\100\164\000\000"};
static struct {unsigned f; char r[16];} string13 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[12];} string14 = {720908, "\257\300kte\023\205\204\320@h"};
static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\373\026\306\327\300\127\347\125\066\100\150\000\000"};
static struct {
   word f0[14]; word f14; word f15; word f16; 
   word f17; word f18; word f19; word f20; 
   word f21[16]; 
   } globalframe = {
   {0}, (word) GetAuthorization_P120, 0, (word) GetAuth_P60, 
   0, (word) XlAuthImpl_P0, 0, (word) 2147483647, 
   {0}
   };

static void NoName_Q504()
   {
   register ptr gf_c070 =  (ptr) &globalframe;
   word var_c13900;
   (* (( (ptr) gf_c070)+9) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (*  (ptr) (( (bPt) gf_c070)+44) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c070)+9) ), (word) &string3);
   (*  (ptr) (( (bPt) gf_c070)+48) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c070)+9) ), (word) &string4);
   (*  (ptr) (( (bPt) gf_c070)+52) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c070)+9) ), (word) &string5);
   (void) XR_DeclareGlobalFrame((word) "XlAuthImpl", &globalframe, (word) XR_GetTypeIndex((word) &string6, 0, (word) &string7)
      , (word) (( (bPt) gf_c070)+72)/* var_c13228 */ );
   var_c13900 = (word) XR_ImportInterface((word) "Convert", (word) XR_GetTypeIndexS((word) (&string8)), 73);
   (* (( (ptr) gf_c070)+31)/* var_c13452 */  ) = var_c13900;
   (void) XR_ImportProcS(var_c13900, 67387905);
   var_c13900 = (word) XR_ImportInterface((word) "EnvironmentVariables", (word) XR_GetTypeIndexS((word) (&string9)), 1);
   (* (( (ptr) gf_c070)+35)/* var_c13644 */  ) = var_c13900;
   (void) XR_ImportProcS(var_c13900, 67371009);
   var_c13900 = (word) XR_ImportInterface((word) "IO", (word) XR_GetTypeIndexS((word) (&string10)), 103);
   (* (( (ptr) gf_c070)+36)/* var_c13772 */  ) = var_c13900;
   (void) XR_ImportProcS(var_c13900, 67917827);
   (void) XR_ImportProcS(var_c13900, 67395585);
   (void) XR_ImportProcS(var_c13900, 530434);
   var_c13900 = (word) XR_ImportInterface((word) "PFS", (word) XR_GetTypeIndexS((word) (&string11)), 40);
   (* (( (ptr) gf_c070)+34)/* var_c13612 */  ) = var_c13900;
   (void) XR_ImportProcS(var_c13900, 67371265);
   (void) XR_ImportProcS(var_c13900, 71312136);
   var_c13900 = (word) XR_ImportInterface((word) "RefText", (word) XR_GetTypeIndexS((word) (&string12)), 26);
   (* (( (ptr) gf_c070)+32)/* var_c13484 */  ) = var_c13900;
   (void) XR_ImportProcS(var_c13900, 67371009);
   var_c13900 = (word) XR_ImportInterface((word) "Rope", (word) XR_GetTypeIndexS((word) (&string13)), 43);
   (* (( (ptr) gf_c070)+30)/* var_c13420 */  ) = var_c13900;
   (void) XR_ImportProcS(var_c13900, 67633666);
   (void) XR_ImportProcS(var_c13900, 67373313);
   (void) XR_ImportProcS(var_c13900, 67903235);
   (void) XR_ImportProcS(var_c13900, 67896323);
   var_c13900 = (word) XR_ImportInterface((word) "SystemNames", (word) XR_GetTypeIndexS((word) (&string14)), 9);
   (* (( (ptr) gf_c070)+33)/* var_c13516 */  ) = var_c13900;
   (void) XR_ImportProcS(var_c13900, 67110656);
   (void) XR_ImportProcS(var_c13900, 67109120);
   var_c13900 = (word) XR_ImportInterface((word) "XlAuthFriends", (word) XR_GetTypeIndexS((word) (&string15)), 1);
   (* (( (ptr) gf_c070)+29)/* var_c13388 */  ) = var_c13900;
   }

static void XlAuthImpl_P0(formal_c021, formal_c020)
   word formal_c021;
   word formal_c020;
   {
   register ptr gf_c13932 =  (ptr) &globalframe;
   /* XlAuthImpl: */ 
SOURCE(137, 2607)
   /* moved to installation proc */ 
SOURCE(2708, 36)
   (*  (ptr) (* (( (ptr) (* (( (ptr) gf_c13932)+29)/* var_c13388 */  ))+4) ) ) = (word) (( (bPt) gf_c13932)+64)/* var_c13196 */ ;
   }

static void GetAuth_P60(formal_c032, family_v4896, adress_v4924, display_v4952, proposedMethod_v4980)
   word formal_c032;
   word family_v4896;
   word adress_v4924;
   word display_v4952;
   word proposedMethod_v4980;
   {
   register ptr gf_c13964 =  (ptr) &globalframe;
   word method_v5024;
   word data_v5052;
   /* GetAuth: */ 
SOURCE(581, 522)
SOURCE(581, 522)
   method_v5024 = 0;
SOURCE(581, 522)
   data_v5052 = 0;
SOURCE(625, 316)
   if ((family_v4896 == 0)) {
SOURCE(657, 284)
      {
         word pd16;
         pd16 = (* (( (ptr) (* (( (ptr) gf_c13964)+30)/* var_c13420 */  ))+8) );
         if ((0 != (word) ( *( (fPt) ((*  (ptr) pd16 ))))(adress_v4924, (* (( (ptr) gf_c13964)+13) ), 1, pd16))) {
SOURCE(698, 26)
            family_v4896 = 256;
            }
         else {
SOURCE(724, 217)
            {
               word addr_v3560;
               word text_v3588;
SOURCE(726, 56)
               {
                  word pd17;
                  pd17 = (* (( (ptr) (* (( (ptr) gf_c13964)+31)/* var_c13452 */  ))+70) );
                  addr_v3560 = (word) ( *( (fPt) ((*  (ptr) pd17 ))))(adress_v4924, pd17);
                  };
SOURCE(784, 31)
               {
                  word pd18;
                  pd18 = (* (( (ptr) (* (( (ptr) gf_c13964)+32)/* var_c13484 */  ))+4) );
                  text_v3588 = (word) ( *( (fPt) ((*  (ptr) pd18 ))))(4, pd18);
                  };
SOURCE(817, 21)
               {
                  word limit19;
                  (* ((( (bPt) text_v3588)+4)+(
                        limit19 = (word)  (unsigned) (* (( (hPt) text_v3588)+1) ),
                        BCK(0, limit19)
                        )) ) = ((unsigned)addr_v3560 >> 24);
                  };
SOURCE(840, 21)
               {
                  word limit20;
                  (* ((( (bPt) text_v3588)+4)+(
                        limit20 = (word)  (unsigned) (* (( (hPt) text_v3588)+1) ),
                        BCK(1, limit20)
                        )) ) = (((unsigned)addr_v3560 << 8) >> 24);
                  };
SOURCE(863, 21)
               {
                  word limit21;
                  (* ((( (bPt) text_v3588)+4)+(
                        limit21 = (word)  (unsigned) (* (( (hPt) text_v3588)+1) ),
                        BCK(2, limit21)
                        )) ) = (((unsigned)addr_v3560 << 16) >> 24);
                  };
SOURCE(886, 21)
               {
                  word limit22;
                  (* ((( (bPt) text_v3588)+4)+(
                        limit22 = (word)  (unsigned) (* (( (hPt) text_v3588)+1) ),
                        BCK(3, limit22)
                        )) ) = addr_v3560;
                  };
SOURCE(909, 32)
               {
                  word pd23;
                  pd23 = (* (( (ptr) (* (( (ptr) gf_c13964)+30)/* var_c13420 */  ))+35) );
                  adress_v4924 = (word) ( *( (fPt) ((*  (ptr) pd23 ))))(text_v3588, 0, 32767, pd23);
                  };
               };
            };
         };
      };
SOURCE(947, 61)
   if ((family_v4896 == 256)) {
SOURCE(974, 34)
      {
         word pd24;
         pd24 = (* (( (ptr) (* (( (ptr) gf_c13964)+33)/* var_c13516 */  ))+5) );
         adress_v4924 = (word) ( *( (fPt) ((*  (ptr) pd24 ))))(pd24);
         };
      };
SOURCE(1010, 93)
   {
      W2 var_c13548;
      (void) GetAuthorization_P120((word) &var_c13548, 0, family_v4896, proposedMethod_v4980, adress_v4924, display_v4952);
      data_v5052 = var_c13548.f1;
      method_v5024 = var_c13548.f0;
      };
   /* removed tail goto */ 
   (*  (ptr) formal_c032 ) = method_v5024;
   (* (( (ptr) formal_c032)+1) ) = data_v5052;
   return;
   }

static void GetAuthorization_P120(formal_c041, formal_c092, formal_c093, formal_c094, formal_c095, formal_c096)
   word formal_c041;
   word formal_c092;
   word formal_c093;
   word formal_c094;
   word formal_c095;
   word formal_c096;
   {
   W13 var_c13996;
   /* declaration of fileName_v3348 skipped */ 
   /* declaration of rFamily_v3376 skipped */ 
   /* declaration of rMethod_v3404 skipped */ 
   /* declaration of rAdress_v3432 skipped */ 
   /* declaration of rDisplayNumber_v3460 skipped */ 
   /* declaration of method_v3504 skipped */ 
   /* declaration of data_v3532 skipped */ 
   /* declaration of var_c13580 skipped */ 
   (* (( (ptr) &var_c13996)+4)/* fileName_v3348 */  ) = formal_c092;
   (* (( (ptr) &var_c13996)+5)/* rFamily_v3376 */  ) = formal_c093;
   (* (( (ptr) &var_c13996)+6)/* rMethod_v3404 */  ) = formal_c094;
   (* (( (ptr) &var_c13996)+7)/* rAdress_v3432 */  ) = formal_c095;
   (* (( (ptr) &var_c13996)+8)/* rDisplayNumber_v3460 */  ) = formal_c096;
   /* GetAuthorization: */ 
SOURCE(1109, 1594)
   {
      word tmpAddr25;
      tmpAddr25 = (word) (( (ptr) &var_c13996)+11)/* var_c13580 */ ;
      (*  (ptr) tmpAddr25 ) = ( ((word)  (fPt) ReadAuthRec_P276) );
      (* (( (ptr) tmpAddr25) + 1) ) = 1;
      };
SOURCE(1109, 1594)
   (* (( (ptr) &var_c13996)+9)/* method_v3504 */  ) = 0;
SOURCE(1109, 1594)
   (* (( (ptr) &var_c13996)+10)/* data_v3532 */  ) = 0;
SOURCE(1292, 1411)
SOURCE(1294, 1367)
   {
      word var_c02;
      {
         word var_c084;
         var_c084 = (word) &var_c13996;
         var_c02 = (word) XR_Enable(( ((word)  (fPt) NoName_Q564) ), ( ((word)  (fPt) NoName_Q684) ), var_c084);
         };
      if ((var_c02 == 4)) {
         goto lab_L100002;
         }
      else {
         if ((var_c02 == 2)) {
            goto lab_L100001;
            };
         };
      };
   goto lab_L100012;
   lab_L100002: ;
SOURCE(2682, 19)
   (* (( (ptr) &var_c13996)+10)/* data_v3532 */  ) = 0;
   (* (( (ptr) &var_c13996)+9)/* method_v3504 */  ) = 0;
   lab_L100012: ;
   /* removed tail goto */ 
   lab_L100001: ;
   (*  (ptr) formal_c041 ) = (* (( (ptr) &var_c13996)+9)/* method_v3504 */  );
   (* (( (ptr) formal_c041)+1) ) = (* (( (ptr) &var_c13996)+10)/* data_v3532 */  );
   return;
   }

static word NoName_Q564(formal_c074)
   word formal_c074;
   {
   W5 var_c089;
   register ptr gf_c073 =  (ptr) &globalframe;
   var_c089.f0 = formal_c074;
SOURCE(1329, 19)
   {
      /* declaration of s_v3672 skipped */ 
SOURCE(1769, 12)
      var_c089.f4/* s_v3672 */  = 0;
SOURCE(1783, 179)
      if (((* (( (ptr) formal_c074)+4) ) == 0)) {
SOURCE(1806, 49)
         {
            word pd26;
            pd26 = (* (( (ptr) (* (( (ptr) gf_c073)+35)/* var_c13644 */  ))+4) );
            (* (( (ptr) formal_c074)+4) ) = (word) ( *( (fPt) ((*  (ptr) pd26 ))))((* ((( (ptr) gf_c073)+11)) ), pd26);
            };
SOURCE(1857, 105)
         {
            word pd27;
            pd27 = (* (( (ptr) (* (( (ptr) gf_c073)+30)/* var_c13420 */  ))+13) );
            if ((0 != (word) ( *( (fPt) ((*  (ptr) pd27 ))))((* ((( (ptr) formal_c074)+4)) ), pd27))) {
SOURCE(1890, 72)
               {
                  word var_c13676;
                  {
                     word pd28;
                     pd28 = (* (( (ptr) (* (( (ptr) gf_c073)+33)/* var_c13516 */  ))+11) );
                     var_c13676 = (word) ( *( (fPt) ((*  (ptr) pd28 ))))(pd28);
                     };
                  {
                     word pd29;
                     pd29 = (* (( (ptr) (* (( (ptr) gf_c073)+30)/* var_c13420 */  ))+6) );
                     (* (( (ptr) formal_c074)+4) ) = (word) ( *( (fPt) ((*  (ptr) pd29 ))))(var_c13676, (* (( (ptr) gf_c073)+12) ), pd29);
                     };
                  };
               };
            };
         };
SOURCE(1970, 46)
      {
         word var_c13708;
         {
            word pd30;
            pd30 = (* (( (ptr) (* (( (ptr) gf_c073)+34)/* var_c13612 */  ))+5) );
            var_c13708 = (word) ( *( (fPt) ((*  (ptr) pd30 ))))((* ((( (ptr) formal_c074)+4)) ), pd30);
            };
         {
            W2 var_c13740;
            var_c13740.f0 = 4096;
            var_c13740.f1 = 2;
            {
               word pd31;
               pd31 = (* (( (ptr) (* (( (ptr) gf_c073)+34)/* var_c13612 */  ))+39) );
               var_c089.f4/* s_v3672 */  = (word) ( *( (fPt) ((*  (ptr) pd31 ))))(var_c13708, 0, (*  (W4Pt) (( (ptr) gf_c073)+20)/* var_c13292 */  ), 0, 0, (*  (W5Pt) (
                     ( (ptr) gf_c073)+24)/* var_c13356 */  )
                  , 1, var_c13740, pd31);
               };
            };
         };
SOURCE(2018, 627)
SOURCE(2047, 558)
      lab_L100008: ;
SOURCE(2095, 510)
      {
         word var_c01;
         {
            word var_c085;
            var_c085 = (word) &var_c089;
            var_c01 = (word) XR_Enable(( ((word)  (fPt) NoName_Q624) ), ( ((word)  (fPt) NoName_Q744) ), var_c085);
            };
         if ((var_c01 == 3)) {
            goto lab_L100005;
            }
         else {
            if ((var_c01 == 2)) {
               return(2);
               };
            };
         };
      goto lab_L100008;
      /* c2c skipped dead code */ 
      lab_L100005: ;
SOURCE(2650, 11)
      {
         word pd32;
         pd32 = (* (( (ptr) (* (( (ptr) gf_c073)+36)/* var_c13772 */  ))+28) );
         (void) ( *( (fPt) ((*  (ptr) pd32 ))))(var_c089.f4/* s_v3672 */ , 0, pd32);
         };
      };
   return(0);
   }

static word NoName_Q624(formal_c076)
   word formal_c076;
   {
   register ptr gf_c075 =  (ptr) &globalframe;
SOURCE(2143, 28)
   {
      W5 ar_v3820;
SOURCE(2143, 28)
      (void) ReadAuthRec_P276((word) &ar_v3820, (* (( (ptr) formal_c076)+4) ), (word) (( (bPt) (*  (ptr) formal_c076 ))+44));
SOURCE(2173, 432)
      if (((ar_v3820.f0 == 65535) || ((* (( (ptr) (*  (ptr) formal_c076 ))+5) ) == 65535)) || (ar_v3820.f0 == (* (( (ptr) (*  (ptr) formal_c076 ))+5)
       ))) {
SOURCE(2255, 350)
         {
            word pd33;
            word pd35;
            word pd36;
            pd33 = (* (( (ptr) (* (( (ptr) gf_c075)+30)/* var_c13420 */  ))+13) );
            if ((0 != (word) ( *( (fPt) ((*  (ptr) pd33 ))))(ar_v3820.f1, pd33))) { goto then034;};
            pd35 = (* (( (ptr) (* (( (ptr) gf_c075)+30)/* var_c13420 */  ))+13) );
            if ((0 != (word) ( *( (fPt) ((*  (ptr) pd35 ))))((* ((( (ptr) (*  (ptr) formal_c076 ))+7)) ), pd35))) { goto then034;};
            pd36 = (* (( (ptr) (* (( (ptr) gf_c075)+30)/* var_c13420 */  ))+8) );
            if ((0 != (word) ( *( (fPt) ((*  (ptr) pd36 ))))(ar_v3820.f1, (* (( (ptr) (*  (ptr) formal_c076 ))+7) ), 1, pd36))) {
               then034: ;
SOURCE(2348, 257)
               {
                  word pd37;
                  word pd39;
                  word pd40;
                  pd37 = (* (( (ptr) (* (( (ptr) gf_c075)+30)/* var_c13420 */  ))+13) );
                  if ((0 != (word) ( *( (fPt) ((*  (ptr) pd37 ))))(ar_v3820.f2, pd37))) { goto then038;};
                  pd39 = (* (( (ptr) (* (( (ptr) gf_c075)+30)/* var_c13420 */  ))+13) );
                  if ((0 != (word) ( *( (fPt) ((*  (ptr) pd39 ))))((* ((( (ptr) (*  (ptr) formal_c076 ))+8)) ), pd39))) { goto then038;};
                  pd40 = (* (( (ptr) (* (( (ptr) gf_c075)+30)/* var_c13420 */  ))+8) );
                  if ((0 != (word) ( *( (fPt) ((*  (ptr) pd40 ))))(ar_v3820.f2, (* (( (ptr) (*  (ptr) formal_c076 ))+8) ), 1, pd40))) {
                     then038: ;
SOURCE(2469, 136)
                     {
                        word pd41;
                        word pd43;
                        word pd44;
                        pd41 = (* (( (ptr) (* (( (ptr) gf_c075)+30)/* var_c13420 */  ))+13) );
                        if ((0 != (word) ( *( (fPt) ((*  (ptr) pd41 ))))(ar_v3820.f3, pd41))) { goto then042;};
                        pd43 = (* (( (ptr) (* (( (ptr) gf_c075)+30)/* var_c13420 */  ))+13) );
                        if ((0 != (word) ( *( (fPt) ((*  (ptr) pd43 ))))((* ((( (ptr) (*  (ptr) formal_c076 ))+6)) ), pd43))) { goto then042;};
                        pd44 = (* (( (ptr) (* (( (ptr) gf_c075)+30)/* var_c13420 */  ))+8) );
                        if ((0 != (word) ( *( (fPt) ((*  (ptr) pd44 ))))(ar_v3820.f3, (* (( (ptr) (*  (ptr) formal_c076 ))+6) ), 1, pd44))) {
                           then042: ;
SOURCE(2562, 18)
                           (* (( (ptr) (*  (ptr) formal_c076 ))+9) ) = ar_v3820.f3;
SOURCE(2582, 14)
                           (* (( (ptr) (*  (ptr) formal_c076 ))+10) ) = ar_v3820.f4;
SOURCE(2598, 7)
                           return(2);
                           };
                        };
                     };
                  };
               };
            };
         };
      };
   return(0);
   }

static void ReadAuthRec_P276(formal_c052, s_v3748, formal_c14060)
   word formal_c052;
   word s_v3748;
   word formal_c14060;
   {
   W8 var_c14028;
   W5 ar_v3792;
   /* declaration of var_c13804 skipped */ 
   /* declaration of var_c13836 skipped */ 
   formal_c14060 = (formal_c14060 - 44);
   var_c14028.f0 = formal_c14060;
   /* ReadAuthRec: */ 
SOURCE(1329, 19)
   {
      word tmpAddr45;
      tmpAddr45 = (word) (( (ptr) &var_c14028)+4)/* var_c13804 */ ;
      (*  (ptr) tmpAddr45 ) = ( ((word)  (fPt) ReadString_P444) );
      (* (( (ptr) tmpAddr45) + 1) ) = 1;
      };
   {
      word tmpAddr46;
      tmpAddr46 = (word) (( (ptr) &var_c14028)+6)/* var_c13836 */ ;
      (*  (ptr) tmpAddr46 ) = ( ((word)  (fPt) Read16_P384) );
      (* (( (ptr) tmpAddr46) + 1) ) = 1;
      };
SOURCE(1329, 19)
   XR_FillWords(&ar_v3792, 5, 0);
SOURCE(1629, 21)
   ar_v3792.f0 = (word) Read16_P384(s_v3748, (word) (( (bPt) &var_c14028)+24)/* var_c13836 */ );
SOURCE(1652, 25)
   ar_v3792.f1 = (word) ReadString_P444(s_v3748, (word) (( (bPt) &var_c14028)+16)/* var_c13804 */ );
SOURCE(1680, 32)
   ar_v3792.f2 = (word) ReadString_P444(s_v3748, (word) (( (bPt) &var_c14028)+16)/* var_c13804 */ );
SOURCE(1714, 25)
   ar_v3792.f3 = (word) ReadString_P444(s_v3748, (word) (( (bPt) &var_c14028)+16)/* var_c13804 */ );
SOURCE(1741, 23)
   ar_v3792.f4 = (word) ReadString_P444(s_v3748, (word) (( (bPt) &var_c14028)+16)/* var_c13804 */ );
   /* removed tail goto */ 
   (*  (W5Pt) formal_c052 ) = ar_v3792;
   return;
   }

static word Read16_P384(s_v3968, formal_c14124)
   word s_v3968;
   word formal_c14124;
   {
   register ptr gf_c14092 =  (ptr) &globalframe;
   word var_c4012;
   word hword_v4144;
   formal_c14124 = (formal_c14124 - 24);
   /* Read16: */ 
SOURCE(1388, 14)
SOURCE(1437, 36)
   {
      word pd47;
      pd47 = (* (( (ptr) (* (( (ptr) gf_c14092)+36)/* var_c13772 */  ))+100) );
      hword_v4144 = (word) ( *( (fPt) ((*  (ptr) pd47 ))))(s_v3968, pd47);
      };
SOURCE(1475, 31)
   return((((word)  (unsigned) (((unsigned)hword_v4144 << 16) >> 24) << 8) +  (unsigned) (hword_v4144 & 0377)));
   }

static word ReadString_P444(s_v4072, formal_c14188)
   word s_v4072;
   word formal_c14188;
   {
   register ptr gf_c14156 =  (ptr) &globalframe;
   word var_c4116;
   word leng_v4188;
   formal_c14188 = (formal_c14188 - 16);
   /* ReadString: */ 
SOURCE(1509, 18)
SOURCE(1565, 24)
   leng_v4188 = (word) Read16_P384(s_v4072, (word) (( (bPt) formal_c14188)+24));
SOURCE(1591, 35)
   {
      word pd48;
      pd48 = (* (( (ptr) (* (( (ptr) gf_c14156)+36)/* var_c13772 */  ))+92) );
      return((word) ( *( (fPt) ((*  (ptr) pd48 ))))(s_v4072, leng_v4188, 1, pd48));
      };
   }

static void NoName_Q684(formal_c064, formal_c200000, formal_c200001, formal_c200002, formal_c200003)
   word formal_c064;
   word formal_c200000;
   word formal_c200001;
   word formal_c200002;
   word formal_c200003;
   {
   register ptr gf_c082 =  (ptr) &globalframe;
   if ((formal_c200001 == (* (( (ptr) (* (( (ptr) gf_c082)+34)/* var_c13612 */  ))+9) ))) {
      {
         W4 error_v9228;
         error_v9228 = (*  (W4Pt) formal_c200003 );
SOURCE(1314, 13)
         (*  (ptr) formal_c064 ) = 2;
         (* (( (ptr) formal_c064)+1) ) = 4;
         return;
         };
      };
   (*  (ptr) formal_c064 ) = 0;
   (* (( (ptr) formal_c064)+1) ) = 0;
   return;
   }

static void NoName_Q744(formal_c069, formal_c200004, formal_c200005, formal_c200006, formal_c200007)
   word formal_c069;
   word formal_c200004;
   word formal_c200005;
   word formal_c200006;
   word formal_c200007;
   {
   register ptr gf_c083 =  (ptr) &globalframe;
   if ((formal_c200005 == (* (( (ptr) (* (( (ptr) gf_c083)+36)/* var_c13772 */  ))+4) )) || (formal_c200005 == (* (( (ptr) (* (
         ( (ptr) gf_c083)+36)/* var_c13772 */  ))+5) ))) {
SOURCE(2130, 11)
      (*  (ptr) formal_c069 ) = 2;
      (* (( (ptr) formal_c069)+1) ) = 3;
      return;
      };
   (*  (ptr) formal_c069 ) = 0;
   (* (( (ptr) formal_c069)+1) ) = 0;
   return;
   }

/* file: XlAuthImpl, module: XlAuthImpl, compiled at: October 27, 1993 5:43:08 pm PDT */ 
extern void XR_install_XlAuthImpl() {
   NoName_Q504();
   }
extern void XR_run_XlAuthImpl() { XR_Start(&globalframe); }