/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation.  All rights reserved. */
/* time: March 10, 1992 11:57:47 am PST */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: AISChangeHeaderImpl, module: AISChangeHeaderImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [2585634825,3424018526] AISChangeHeaderImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1, f2;} W3;
typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7;
typedef struct {word f0, f1;} W2;
typedef W2 *W2Pt;
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef W8 *W8Pt;
typedef struct {W8 f; W8 r;} W16;
typedef struct {W16 f; W16 r;} W32;
typedef struct {W32 f; W32 r;} W64;
typedef struct {word f0, f1, f2, f3, f4, f5;} W6;
typedef struct {W32 f; W6 r;} W38;
typedef struct {W64 f; W38 r;} W102;
typedef struct {word f0, f1, f2, f3, f4;} W5;
typedef W5 *W5Pt;
typedef struct {W8 f; W2 r;} W10;
typedef struct {W16 f; W10 r;} W26;
typedef struct {W64 f; W26 r;} W90;
typedef W90 *W90Pt;
typedef struct {word f0, f1, f2, f3;} W4;
typedef W4 *W4Pt;
#define SOURCE(p, l) /* source p, l */
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR_RaiseBoundsFault()) : (idx) )
#define IOP2(op, x, y)  ( (word) ((x) op (y)) )
static float fc26 = 0.0;
static void NoName_Q720();
static void AISChangeHeaderImpl_P0();
static word Card_P60();
static void WriteBytes_P120();
static void WriteInfo_P180();
static void WritePartHeader_P300();
static void AISChangeHeaderCmd_P240();
static word NoName_Q780();
static word NoName_Q840();
static void NoName_Q900();
static void NoName_Q960();
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[48];} string3 = {2883632, "\260\006\005\146\151\162\163\164\216\257\300\363\223\326\161\300\017\164\046\072\104\350\005\004\162\145\163\164\214\216\257\300\363\223\326\161\300\017\164\046\072\104\350\261\000\000\000"};
static struct {unsigned f; char r[4];} string4 = {131074, "\004\003\000"};
static struct {unsigned f; char r[16];} string5 = {851984, "\257\300\071\045\144\167\300\145\377\112\006\100\274\000\000"};
static struct {unsigned f; char r[44];} string6 = {2752556, "\260\007\006\154\145\156\147\164\150\210\241\000\200\177\377\005\004\164\145\170\164\254\206\012\011\155\141\170\114\145\156\147\164\150\210\241\000\200\177\377\243\261\000"};
static struct {unsigned f; char r[4];} string7 = {131076, "\216\251\000"};
static struct {unsigned f; char r[8];} string8 = {458760, "Failure"};
static struct {unsigned f; char r[92];} string9 = {5898332, "%ss-placement%ii-bitsPerPixel%i-numberScanlines%i-pixelsPerLine%i-comment%s-wordsPerLine%i\000"};
static struct {unsigned f; char r[16];} string10 = {983056, "AISChangeHeader"};
static struct {unsigned f; char r[188];} string11 = {12189884, "\012AISChangeHeader <ais-in> <ais-out> [-option]\012options include:\012\011-placement <x, y: INTEGER>\012\011-bitsPerPixel <INTEGER>\012\011-numberScanlines <INTEGER>\012\011-pixelsPerLine <INTEGER>\012\011-comment <ROPE>\000"};
static struct {unsigned f; char r[16];} string12 = {983056, "can't open file"};
static struct {unsigned f; char r[16];} string13 = {851984, "\257\300\232\035\250\011\300\314\026\140\136\100\164\000\000"};
static struct {unsigned f; char r[8];} string14 = {458759, "\006\002\024\0018\004\037"};
static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\150\223\370\056\300\265\120\000\347\100\150\000\000"};
static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\061\070\246\330\300\204\123\076\053\100\150\000\000"};
static struct {unsigned f; char r[16];} string17 = {851984, "\257\300\373\225\000\071\300\362\156\307\320\100\150\000\000"};
static struct {unsigned f; char r[16];} string18 = {851984, "\257\300\344\212\014\176\300\070\230\121\123\100\150\000\000"};
static struct {unsigned f; char r[16];} string19 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"};
static struct {
   word f0[4]; word f4; word f5[14]; word f19; 
   word f20; word f21; word f22; word f23; 
   word f24; word f25; word f26; word f27; 
   word f28[6]; 
   } globalframe = {
   {0}, 1024, {0}, (word) AISChangeHeaderCmd_P240, 
   0, (word) WriteInfo_P180, 0, (word) WriteBytes_P120, 
   0, (word) Card_P60, 0, (word) AISChangeHeaderImpl_P0, 
   {0}
   };

static void NoName_Q720()
   {
   register ptr gf_c086 =  (ptr) &globalframe;
   word var_c17156;
   (* (( (ptr) gf_c086)+7) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (* (( (ptr) gf_c086)+8) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4);
   (* (( (ptr) gf_c086)+10) ) = (word) XR_GetTypeIndexS((word) (&string5));
   (* (( (ptr) gf_c086)+11) ) = (word) XR_GetTypeIndexS((word) (&string6));
   (* (( (ptr) gf_c086)+12) ) = (word) XR_GetTypeIndex((word) &string7, 0, (word) &string2);
   (*  (ptr) (( (bPt) gf_c086)+56) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c086)+12) ), (word) &string8);
   (*  (ptr) (( (bPt) gf_c086)+60) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c086)+7) ), (word) &string9);
   (*  (ptr) (( (bPt) gf_c086)+64) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c086)+7) ), (word) &string10);
   (*  (ptr) (( (bPt) gf_c086)+68) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c086)+7) ), (word) &string11);
   (*  (ptr) (( (bPt) gf_c086)+72) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c086)+7) ), (word) &string12);
   (void) XR_DeclareGlobalFrame((word) "AISChangeHeaderImpl", &globalframe, (word) XR_GetTypeIndex((word) &string13, 0, (word) &string14)
      , (word) (( (bPt) gf_c086)+108)/* var_c16356 */ );
   var_c17156 = (word) XR_ImportInterface((word) "AISIO", (word) XR_GetTypeIndexS((word) (&string15)), 9);
   (* (( (ptr) gf_c086)+32)/* var_c16868 */  ) = var_c17156;
   (void) XR_ImportProcS(var_c17156, 67371265);
   var_c17156 = (word) XR_ImportInterface((word) "Args", (word) XR_GetTypeIndexS((word) (&string16)), 10);
   (* (( (ptr) gf_c086)+31)/* var_c16772 */  ) = var_c17156;
   (void) XR_ImportProc(var_c17156, 8, 360, 12, 3);
   var_c17156 = (word) XR_ImportInterface((word) "Commander", (word) XR_GetTypeIndexS((word) (&string17)), 3);
   (* (( (ptr) gf_c086)+29)/* var_c16388 */  ) = var_c17156;
   (void) XR_ImportProcS(var_c17156, 1310725);
   var_c17156 = (word) XR_ImportInterface((word) "FS", (word) XR_GetTypeIndexS((word) (&string18)), 36);
   (* (( (ptr) gf_c086)+33)/* var_c16964 */  ) = var_c17156;
   (void) XR_ImportProcS(var_c17156, 70522636);
   var_c17156 = (word) XR_ImportInterface((word) "IO", (word) XR_GetTypeIndexS((word) (&string19)), 103);
   (* (( (ptr) gf_c086)+30)/* var_c16452 */  ) = var_c17156;
   (void) XR_ImportProcS(var_c17156, 530434);
   (void) XR_ImportProcS(var_c17156, 1053444);
   (void) XR_ImportProcS(var_c17156, 68159748);
   (void) XR_ImportProcS(var_c17156, 530946);
   (void) XR_ImportProcS(var_c17156, 1053698);
   }

static void AISChangeHeaderImpl_P0(formal_c024, formal_c023)
   word formal_c024;
   word formal_c023;
   {
   register ptr gf_c17188 =  (ptr) &globalframe;
   /* AISChangeHeaderImpl: */ 
SOURCE(73, 4708)
   /* moved to installation proc */ 
SOURCE(4505, 208)
   (* (( (ptr) gf_c17188)+5)/* usage_v2916 */  ) = (* (( (ptr) gf_c17188)+17) );
SOURCE(4716, 65)
   {
      word pd20;
      pd20 = (* (( (ptr) (* (( (ptr) gf_c17188)+29)/* var_c16388 */  ))+4) );
      (void) ( *( (fPt) ((*  (ptr) pd20 ))))((* (( (ptr) gf_c17188)+16) ), (word) (( (bPt) gf_c17188)+76)/* var_c16228 */ , (* (
            ( (ptr) gf_c17188)+5)/* usage_v2916 */  ), 0, 1, pd20);
      };
   }

static word Card_P60(h_v2996)
   word h_v2996;
   {
   word b_v3040;
   /* Card: */ 
SOURCE(216, 77)
SOURCE(268, 25)
   b_v3040 = h_v2996;
SOURCE(216, 77)
   return(b_v3040);
   }

static void WriteBytes_P120(out_v3100, base_v3128, bytes_v3156)
   word out_v3100;
   word base_v3128;
   word bytes_v3156;
   {
   register ptr gf_c17220 =  (ptr) &globalframe;
   /* WriteBytes: */ 
SOURCE(297, 147)
SOURCE(384, 60)
   {
      W3 var_c16420;
      var_c16420.f0 = base_v3128;
      var_c16420.f1 = 0;
      var_c16420.f2 = bytes_v3156;
      {
         word pd21;
         pd21 = (* (( (ptr) (* (( (ptr) gf_c17220)+30)/* var_c16452 */  ))+24) );
         (void) ( *( (fPt) ((*  (ptr) pd21 ))))(out_v3100, var_c16420, pd21);
         };
      };
   }

static void WriteInfo_P180(formal_c0103, info_v3256)
   word formal_c0103;
   word info_v3256;
   {
   W7 var_c17252;
   /* declaration of out_v3228 skipped */ 
   register ptr gf_c17284 =  (ptr) &globalframe;
   /* declaration of var_c16484 skipped */ 
   word header_v3424;
   W3 raster_v3452;
   W2 uca_v3480;
   var_c17252.f4/* out_v3228 */  = formal_c0103;
   /* WriteInfo: */ 
SOURCE(450, 2505)
   {
      word tmpAddr22;
      tmpAddr22 = (word) (( (ptr) &var_c17252)+5)/* var_c16484 */ ;
      (*  (ptr) tmpAddr22 ) = ( ((word)  (fPt) WritePartHeader_P300) );
      (* (( (ptr) tmpAddr22) + 1) ) = 1;
      };
SOURCE(1606, 59)
   {
      word idx23;
      header_v3424 = (( (((unsigned)(word) Card_P60((
            idx23 = (* (( (ptr) gf_c17284)+4)/* wordsHeader_v2776 */  ),
            BCK(idx23, 65536)
            )) << 16) >> 16) ) + 2225733632);
      };
SOURCE(1667, 103)
   {
      word var_c16548;
      word var_c16580;
      word var_c16612;
      var_c16548 = (* (( (hPt) (* (( (ptr) info_v3256)+1) ))+1) );
      var_c16580 = (word) Card_P60(3);
      var_c16612 = (word) Card_P60(1);
      raster_v3452.f0 = (((*  (hPt) (* (( (ptr) info_v3256)+1) ) ) << 16) + ( (((unsigned)var_c16548 << 16) >> 16) ));
      raster_v3452.f1 = ((var_c16580 << 16) + ( (((unsigned)var_c16612 << 16) >> 16) ));
      raster_v3452.f2 = 131071;
      };
SOURCE(1772, 97)
   {
      word var_c16644;
      var_c16644 = (* (( (hPt) (* (( (ptr) info_v3256)+2) ))+1) );
      uca_v3480.f0 = (((*  (hPt) (* (( (ptr) info_v3256)+2) ) ) << 16) + ( (((unsigned)var_c16644 << 16) >> 16) ));
      uca_v3480.f1 =  (word) -1;
      };
SOURCE(1879, 64)
SOURCE(1880, 63)
   (void) WriteBytes_P120(var_c17252.f4/* out_v3228 */ , (word) &header_v3424, 4);
SOURCE(1946, 89)
   (void) WritePartHeader_P300(1, 18, (word) (( (bPt) &var_c17252)+20)/* var_c16484 */ );
SOURCE(2045, 59)
SOURCE(2046, 58)
   (void) WriteBytes_P120(var_c17252.f4/* out_v3228 */ , (word) &raster_v3452, 10);
SOURCE(2115, 55)
SOURCE(2116, 54)
   (void) WriteBytes_P120(var_c17252.f4/* out_v3228 */ , (word) &uca_v3480, 8);
SOURCE(2173, 349)
   if (((* (( (ptr) info_v3256)+3) ) != 0)) {
SOURCE(2202, 323)
      {
         W2 part_v3996;
SOURCE(2363, 24)
         part_v3996 = (*  (W2Pt) (* (( (ptr) info_v3256)+3) ) );
SOURCE(2389, 63)
         (void) WritePartHeader_P300(2, 8, (word) (( (bPt) &var_c17252)+20)/* var_c16484 */ );
SOURCE(2462, 60)
SOURCE(2463, 59)
         (void) WriteBytes_P120(var_c17252.f4/* out_v3228 */ , (word) &part_v3996, 8);
         };
      };
SOURCE(2528, 355)
   if (((* (( (ptr) info_v3256)+4) ) != 0)) {
SOURCE(2558, 328)
      {
         W8 part_v4168;
SOURCE(2560, 33)
         XR_FillWords(&part_v4168, 8, 0);
         part_v4168.f5 =  (word) -1;
         part_v4168.f6 =  (word) -1;
SOURCE(2720, 25)
         part_v4168 = (*  (W8Pt) (* (( (ptr) info_v3256)+4) ) );
SOURCE(2747, 65)
         (void) WritePartHeader_P300(3, 30, (word) (( (bPt) &var_c17252)+20)/* var_c16484 */ );
SOURCE(2822, 61)
SOURCE(2823, 60)
         (void) WriteBytes_P120(var_c17252.f4/* out_v3228 */ , (word) &part_v4168, 30);
         };
      };
SOURCE(2889, 28)
   if (((* (( (ptr) info_v3256)+5) ) != 0)) {
      };
SOURCE(2932, 23)
   (void) WritePartHeader_P300(0, 0, (word) (( (bPt) &var_c17252)+20)/* var_c16484 */ );
   }

static void WritePartHeader_P300(type_v3556, nBytesInPart_v3584, formal_c17316)
   word type_v3556;
   word nBytesInPart_v3584;
   word formal_c17316;
   {
   word nWordsTotal_v4340;
   word part_v4368;
   formal_c17316 = (formal_c17316 - 20);
   /* WritePartHeader: */ 
SOURCE(505, 467)
SOURCE(581, 68)
   nWordsTotal_v4340 = IOP2( / ,  (int)(nBytesInPart_v3584 + 2),  (int)2);
SOURCE(794, 53)
   {
      word idx24;
      word idx25;
      (*  (hPt) &part_v4368 ) = (((((type_v3556 & 077) << 2) + (
         idx24 = (word) IOP2( / ,  (int)nWordsTotal_v4340,  (int)256),
         BCK(idx24, 4)
         )) << 8) + (
         idx25 = (word) IOP2( % ,  (int)nWordsTotal_v4340,  (int)256),
         BCK(idx25, 256)
         ));
      };
SOURCE(849, 56)
   if ((type_v3556 == 0)) {
SOURCE(868, 37)
      (* (( (bPt) &part_v4368)+1) ) = 0;
      part_v4368 = (part_v4368 & 4244635647) | (((0)) << 24);
      };
SOURCE(915, 57)
SOURCE(916, 56)
   (void) WriteBytes_P120((* (( (ptr) formal_c17316)+4) ), (word) &part_v4368, 2);
   }

static void AISChangeHeaderCmd_P240(formal_c072, formal_c0104)
   word formal_c072;
   word formal_c0104;
   {
   W102 var_c17348;
   /* declaration of cmd_v5868 skipped */ 
   register ptr gf_c17380 =  (ptr) &globalframe;
   word result_v5912;
   /* declaration of msg_v5940 skipped */ 
   /* declaration of inA_v4540 skipped */ 
   W5 outA_v4568;
   W5 xA_v4596;
   W5 yA_v4624;
   W5 bppA_v4652;
   W5 numberScanlinesA_v4680;
   W5 pixelsPerLineA_v4708;
   W5 commentA_v4736;
   (* (( (ptr) &var_c17348)+4)/* cmd_v5868 */  ) = formal_c0104;
   /* AISChangeHeaderCmd: */ 
SOURCE(2975, 1523)
SOURCE(2975, 1523)
   result_v5912 = 0;
SOURCE(2975, 1523)
   (* (( (ptr) &var_c17348)+5)/* msg_v5940 */  ) = 0;
SOURCE(3021, 77)
   (* (( (ptr) &var_c17348)+6) ) = 0;
   (* (( (ptr) &var_c17348)+7) ) = 0;
   (* (( (ptr) &var_c17348)+8) ) = 0;
   (* (( (ptr) &var_c17348)+9) ) = (*  (ptr) &fc26 );
   (* (( (ptr) &var_c17348)+10) ) = 0;
   outA_v4568 = (*  (W5Pt) (( (ptr) &var_c17348)+6)/* inA_v4540 */  );
   xA_v4596 = outA_v4568;
   yA_v4624 = xA_v4596;
   bppA_v4652 = yA_v4624;
   numberScanlinesA_v4680 = bppA_v4652;
   pixelsPerLineA_v4708 = numberScanlinesA_v4680;
   commentA_v4736 = pixelsPerLineA_v4708;
SOURCE(3100, 212)
SOURCE(3100, 212)
   {
      W90 var_c16804;
      {
         /* declaration of var_c01 skipped */ 
         (* (( (ptr) &var_c17348)+11)/* var_c01 */  ) = (* (( (ptr) (* (( (ptr) gf_c17380)+31)/* var_c16772 */  ))+12) );
         {
            /* declaration of var_c02 skipped */ 
            {
               word var_c03;
               {
                  word var_c097;
                  var_c097 = (word) &var_c17348;
                  var_c03 = (word) XR_Enable(( ((word)  (fPt) NoName_Q840) ), ( ((word)  (fPt) NoName_Q960) ), var_c097);
                  };
               if ((var_c03 == 2)) {
                  goto lab_L100002;
                  };
               };
            var_c16804 = (*  (W90Pt) (( (ptr) &var_c17348)+12)/* var_c02 */  );
            };
         };
      commentA_v4736 = (*  (W5Pt) (( (ptr) &var_c16804)+35) );
      pixelsPerLineA_v4708 = (*  (W5Pt) (( (ptr) &var_c16804)+30) );
      numberScanlinesA_v4680 = (*  (W5Pt) (( (ptr) &var_c16804)+25) );
      bppA_v4652 = (*  (W5Pt) (( (ptr) &var_c16804)+20) );
      yA_v4624 = (*  (W5Pt) (( (ptr) &var_c16804)+15) );
      xA_v4596 = (*  (W5Pt) (( (ptr) &var_c16804)+10) );
      outA_v4568 = (*  (W5Pt) (( (ptr) &var_c16804)+5) );
      (*  (W5Pt) (( (ptr) &var_c17348)+6)/* inA_v4540 */  ) = (*  (W5Pt) &var_c16804 );
      };
   lab_L100002: ;
SOURCE(3326, 1172)
   if (((* (( (ptr) &var_c17348)+5)/* msg_v5940 */  ) != 0)) {
SOURCE(3344, 27)
      result_v5912 = (* (( (ptr) gf_c17380)+14) );
      /* removed bogus assignment */ 
      goto lab_L100000;
      }
   else {
SOURCE(3371, 1127)
SOURCE(3373, 43)
      {
         word info_v4780;
         word buffer_v4808;
         word in_v4836;
         word out_v4864;
SOURCE(3373, 43)
         {
            word pd27;
            pd27 = (* (( (ptr) (* (( (ptr) gf_c17380)+32)/* var_c16868 */  ))+5) );
            info_v4780 = (word) ( *( (fPt) ((*  (ptr) pd27 ))))((* ((( (ptr) &var_c17348)+10)) ), pd27);
            };
SOURCE(3418, 34)
         buffer_v4808 = XR_NewObject(1028, (* (( (ptr) gf_c17380)+11) ));
         (* (( (hPt) buffer_v4808)+1) ) = 1024;
SOURCE(3454, 53)
         {
            /* declaration of var_c04 skipped */ 
            /* declaration of var_c05 skipped */ 
            (* (( (ptr) &var_c17348)+11) ) = 7;
            (* (( (ptr) &var_c17348)+12) ) = 1;
            (* (( (ptr) &var_c17348)+13)/* var_c05 */  ) = (* (( (ptr) (* (( (ptr) gf_c17380)+33)/* var_c16964 */  ))+27) );
            {
               /* declaration of var_c06 skipped */ 
               {
                  word var_c07;
                  {
                     word var_c098;
                     var_c098 = (word) &var_c17348;
                     var_c07 = (word) XR_Enable(( ((word)  (fPt) NoName_Q780) ), ( ((word)  (fPt) NoName_Q900) ), var_c098);
                     };
                  if ((var_c07 == 3)) {
                     goto lab_L100005;
                     };
                  };
               in_v4836 = (* (( (ptr) &var_c17348)+14)/* var_c06 */  );
               };
            };
SOURCE(3518, 50)
         {
            W2 var_c16996;
            var_c16996.f0 = 7;
            var_c16996.f1 = 1;
            {
               word pd28;
               pd28 = (* (( (ptr) (* (( (ptr) gf_c17380)+33)/* var_c16964 */  ))+27) );
               out_v4864 = (word) ( *( (fPt) ((*  (ptr) pd28 ))))(outA_v4568.f4, 1, 7, 1, 2560, var_c16996
                  , 0, 2147483647, 1, 0, 0, 0, pd28);
               };
            };
SOURCE(3570, 233)
         if (((0 != xA_v4596.f0) || (0 != yA_v4624.f0))) {
SOURCE(3595, 78)
            if (((* (( (ptr) info_v4780)+3) ) == 0)) {
SOURCE(3624, 49)
               (* (( (ptr) info_v4780)+3) ) = XR_NewObject(8, (* (( (ptr) gf_c17380)+10) ));
               };
SOURCE(3675, 62)
            if ((0 != xA_v4596.f0)) {
SOURCE(3689, 48)
               (*  (hPt) (* (( (ptr) info_v4780)+3) ) ) = (* (( (hPt) &xA_v4596)+5) );
               };
SOURCE(3739, 64)
            if ((0 != yA_v4624.f0)) {
SOURCE(3753, 50)
               (* (( (hPt) (* (( (ptr) info_v4780)+3) ))+1) ) = (* (( (hPt) &yA_v4624)+5) );
               };
            };
SOURCE(3808, 68)
         if ((0 != bppA_v4652.f0)) {
SOURCE(3824, 52)
            (*  (hPt) (* (( (ptr) info_v4780)+2) ) ) = (* (( (hPt) &bppA_v4652)+5) );
            };
SOURCE(3878, 91)
         if ((0 != numberScanlinesA_v4680.f0)) {
SOURCE(3906, 63)
            (*  (hPt) (* (( (ptr) info_v4780)+1) ) ) = (* (( (hPt) &numberScanlinesA_v4680)+5) );
            };
SOURCE(3971, 186)
         if ((0 != pixelsPerLineA_v4708.f0)) {
            {
               word var_c17028;
               word n_v16180;
SOURCE(3999, 62)
               (* (( (hPt) (* (( (ptr) info_v4780)+1) ))+1) ) = (* (( (hPt) &pixelsPerLineA_v4708)+5) );
SOURCE(4063, 94)
               {
                  word idx29;
                  n_v16180 = ((
                     idx29 = (word) ((IOP2( / ,  (int)pixelsPerLineA_v4708.f2,  (int)2) + IOP2( % ,  (int)pixelsPerLineA_v4708.f2,  (int)2)) + 
                     32768),
                     BCK(idx29, 65536)
                     ) - 32768);
                  };
               var_c17028 = n_v16180;
               (* (( (hPt) (* (( (ptr) info_v4780)+2) ))+1) ) = var_c17028;
               };
            };
SOURCE(4162, 70)
         if ((0 != commentA_v4736.f0)) {
SOURCE(4182, 50)
            {
               word var_c17060;
               var_c17060 = XR_NewObject(8, (* (( (ptr) gf_c17380)+8) ));
               (*  (ptr) var_c17060 ) = commentA_v4736.f4;
               (* (( (ptr) var_c17060)+1) ) = (* (( (ptr) info_v4780)+5) );
               (* (( (ptr) info_v4780)+5) ) = var_c17060;
               };
            };
SOURCE(4234, 20)
         (void) WriteInfo_P180(out_v4864, info_v4780);
SOURCE(4256, 28)
         {
            word pd30;
            pd30 = (* (( (ptr) (* (( (ptr) gf_c17380)+30)/* var_c16452 */  ))+30) );
            (void) ( *( (fPt) ((*  (ptr) pd30 ))))(in_v4836, (* (( (ptr) gf_c17380)+4)/* wordsHeader_v2776 */  ), pd30);
            };
SOURCE(4286, 29)
         {
            word pd31;
            pd31 = (* (( (ptr) (* (( (ptr) gf_c17380)+30)/* var_c16452 */  ))+30) );
            (void) ( *( (fPt) ((*  (ptr) pd31 ))))(out_v4864, (* (( (ptr) gf_c17380)+4)/* wordsHeader_v2776 */  ), pd31);
            };
SOURCE(4317, 91)
         lab_L100011: ;
SOURCE(4317, 91)
         {
            word nBytes_v4920;
SOURCE(4320, 37)
            {
               word pd32;
               pd32 = (* (( (ptr) (* (( (ptr) gf_c17380)+30)/* var_c16452 */  ))+13) );
               nBytes_v4920 = (word) ( *( (fPt) ((*  (ptr) pd32 ))))(in_v4836, buffer_v4808, 0, 2147483647, pd32);
               };
SOURCE(4359, 19)
            if (( (int)nBytes_v4920 ==  (int)0)) {
SOURCE(4378, 4)
               goto lab_L100010;
               };
SOURCE(4384, 24)
            {
               word pd33;
               pd33 = (* (( (ptr) (* (( (ptr) gf_c17380)+30)/* var_c16452 */  ))+23) );
               (void) ( *( (fPt) ((*  (ptr) pd33 ))))(out_v4864, buffer_v4808, 0, 2147483647, pd33);
               };
            };
         goto lab_L100011;
         lab_L100010: ;
SOURCE(4419, 12)
         {
            word pd34;
            pd34 = (* (( (ptr) (* (( (ptr) gf_c17380)+30)/* var_c16452 */  ))+28) );
            (void) ( *( (fPt) ((*  (ptr) pd34 ))))(in_v4836, 0, pd34);
            };
SOURCE(4433, 13)
         {
            word pd35;
            pd35 = (* (( (ptr) (* (( (ptr) gf_c17380)+30)/* var_c16452 */  ))+28) );
            (void) ( *( (fPt) ((*  (ptr) pd35 ))))(out_v4864, 0, pd35);
            };
         };
      goto lab_L100012;
      lab_L100005: ;
SOURCE(4461, 35)
      result_v5912 = (* (( (ptr) gf_c17380)+14) );
      (* (( (ptr) &var_c17348)+5)/* msg_v5940 */  ) = (* (( (ptr) gf_c17380)+18) );
      goto lab_L100000;
      lab_L100012: ;
      };
   /* removed tail goto */ 
   lab_L100000: ;
   (*  (ptr) formal_c072 ) = result_v5912;
   (* (( (ptr) formal_c072)+1) ) = (* (( (ptr) &var_c17348)+5)/* msg_v5940 */  );
   return;
   }

static word NoName_Q780(formal_c092)
   word formal_c092;
   {
SOURCE(3454, 53)
   {
      word pd36;
      pd36 = (* (( (ptr) formal_c092)+13) );
      (* (( (ptr) formal_c092)+14) ) = (word) ( *( (fPt) ((*  (ptr) pd36 ))))((* (( (ptr) formal_c092)+10) ), 0, 7, 1, 2560, (*  (W2Pt) (
            ( (ptr) formal_c092)+11) )
         , 0, 2147483647, 1, 0, 0, 0, pd36);
      };
   return(0);
   }

static word NoName_Q840(formal_c094)
   word formal_c094;
   {
   register ptr gf_c093 =  (ptr) &globalframe;
SOURCE(3100, 212)
   {
      word pd37;
      pd37 = (* (( (ptr) formal_c094)+11) );
      (void) ( *( (fPt) ((*  (ptr) pd37 ))))((word) (( (bPt) formal_c094)+48), (* (( (ptr) formal_c094)+4) ), (* (( (ptr) gf_c093)+15)
          ), 0, pd37);
      };
   return(0);
   }

static void NoName_Q900(formal_c079, formal_c200004, formal_c200005, formal_c200006, formal_c200007)
   word formal_c079;
   word formal_c200004;
   word formal_c200005;
   word formal_c200006;
   word formal_c200007;
   {
   register ptr gf_c095 =  (ptr) &globalframe;
   if ((formal_c200005 == (*  (ptr) (* (( (ptr) (* (( (ptr) gf_c095)+33)/* var_c16964 */  ))+4) ) ))) {
      {
         W4 error_v15004;
         error_v15004 = (*  (W4Pt) formal_c200007 );
SOURCE(3507, 9)
         (*  (ptr) formal_c079 ) = 2;
         (* (( (ptr) formal_c079)+1) ) = 3;
         return;
         };
      };
   (*  (ptr) formal_c079 ) = 0;
   (* (( (ptr) formal_c079)+1) ) = 0;
   return;
   }

static void NoName_Q960(formal_c085, formal_c200000, formal_c200001, formal_c200002, formal_c200003)
   word formal_c085;
   word formal_c200000;
   word formal_c200001;
   word formal_c200002;
   word formal_c200003;
   {
   register ptr gf_c096 =  (ptr) &globalframe;
   if ((formal_c200001 == (* (( (ptr) (* (( (ptr) gf_c096)+31)/* var_c16772 */  ))+11) ))) {
      {
         word reason_v13084;
         reason_v13084 = (*  (ptr) formal_c200003 );
SOURCE(3300, 12)
         (* (( (ptr) formal_c200000)+5) ) = reason_v13084;
SOURCE(3314, 8)
         (*  (ptr) formal_c085 ) = 2;
         (* (( (ptr) formal_c085)+1) ) = 2;
         return;
         };
      };
   (*  (ptr) formal_c085 ) = 0;
   (* (( (ptr) formal_c085)+1) ) = 0;
   return;
   }

/* file: AISChangeHeaderImpl, module: AISChangeHeaderImpl, compiled at: March 10, 1992 11:57:44 am PST */ 
extern void XR_install_AISChangeHeaderImpl() {
   NoName_Q720();
   }
extern void XR_run_AISChangeHeaderImpl() { XR_Start(&globalframe); }