// *********************************************************
//  This collection of code is a translation of the
//  'Create New Adventure' function.  It reads an
//  old Dungeon Master  or Prison save file and creates
//  a new Chaos Strikes Back  save file.
// *********************************************************

#include "stdafx.h"

#include "Objects.h"
#include "Dispatch.h"
#include "UI.h"
#include "CSB.h"

#include <stdio.h>

#define CHAOSFILL(a,b) i8 fill##a[a-b];


//extern bool ForcedScreenDraw;
extern i32 keyboardMode;

#pragma pack(1)


void _CALL0(GAMESTATE s);
void _CALL1(GAMESTATE s,i32 a);
void _CALL2(GAMESTATE s,i32 a,i32 b);
void _CALL3(GAMESTATE s,i32 a,i32 b,i32);
void _CALL4(GAMESTATE s,i32 a,i32 b,i32 c,i32 d);
void _CALL5(GAMESTATE s,i32 a,i32 b,i32 c,i32 d,i32 e);
void _CALL6(GAMESTATE s,i32 a,i32 b,i32 c,i32 d,i32 e,i32 f);
void _CALL7(GAMESTATE s,i32 a,i32 b,i32 c,i32 d,i32 e,i32 f,i32 g);
void _CALL8(GAMESTATE s,i32 a,i32 b,i32 c,i32 d,i32 e,i32 f,i32 g,i32 h);
void _CALL9(GAMESTATE s,i32 a,i32 b,i32 c,i32 d,i32 e,i32 f,i32 g,i32 h,i32 i);


struct DlgButton
{
  i8          byte0;
  i8          byte1;
  wordRectPos rectPos2;
  i8          byte10;
  i8          byte11;
};

struct S12406
{
  i8        byte0;
  i8        byte1;
  DlgButton *pDlgButton2; // An array of DlgButton
  pnt       pnt6;
  pnt       pnt10;
};




struct STRUCT6
{
  i32   int0;
  i16   word4;
};

struct STRUCT12
{
  i32  long0;
  i16  word4;
  i16  word6;
  void (*fnc8)(pnt);
};


#define size3764 800

struct E
{
  // PALETTE palette24862; (Use palette24862)
  //pnt     Byte24830[16];(use byte24830)
  i16     Word24814;
  pnt     Pnt24812;
  i16     Word24808;
  i16     Word24806;
  i16     Word24804;
  i16     Word24802;
  i16     Word24800;
  i16     Word24798;
  i16     Word24796;
  i16     Word24794;
  i8      Byte24792;
  pnt     Pnt24792;
  i32     Long24300;
  pnt     Pnt24296[100];
  pnt     Pnt23896[100];
  i16     Word23496;
  i8      Byte23494[1];
  CHAOSFILL(23493,23414)
  //RectPos rectPos23414; (use rectPos23414)
  i16     Word23398;
  i16     Word23396;
  i8      Byte23394[10608];//bitmap 102 lines by 104 bytes
  //pnt     UtilityDiskMessages; //12786 
  //pnt     Pnt12782;  // to
  //pnt     Pnt12678;   // 12618
  //i32     Long12658;   // are
  //i32     Long12654;    // 42 string pointers.
  //                       // (use UtilityDiskMessages[i])
  //pnt     Pnt12446;//use pnt12446;
  //i8      Byte12406;(use s12406)
  i8      Byte12392;
  //pnt     Pnt12364;(use pnt12364);
  i8      Byte12336[6]; //actually i32 and i16
  //pnt     Pnt12246;(use pnt12246)
  //pnt     Pnt12242;(use pnt12242)
  //pnt     Pnt12238;(use pnt12238)
  //pnt     Pnt12226;(use pnt12226)
  //pnt     Pnt12222;(use pnt12222)
  i16     Word12196;
  i16     GameFile;//12194;
  i16     Word12184;
  PALETTE palette10938;
  i32     Long9220;
  i16     FirstQueuedMouseEvent;//9216;
  i16     LastQueuedMouseEvent;//9214;
  i8      Byte9212;
  i8      Byte9211;
  i16     Word9210;
  i16     Word9208;
  i16     Word9206;
  i16     Word9204;
  i8      Byte9202[30];// 5 * (i32+i16) ???
  i8      Byte9172[6];//i32 and i16??
  //pnt     Pnt9142;//use pPnt9142
  //i16     Word9138[7];//use word9138
  i16     Word9124;
  i16     Word9122;
  i16     Word9120;
  i16     Word9116;
  i16     Word9110;
  i16     Word9108;
  i16     Word9106;
  i16     Word9104;
  i16     Word9102;
  i16     Word9098;
  i16     Word8842[1];
  i8      Byte8586[1];
  i16     Word8330[1];
  i16     Word8328[1];
  i16     Word8074;
  i16     Word8072;
  i16     Word8070;
  i16     Word8068;
  i16     Word8066;
  pnt     Pnt8064;
  pnt     Pnt8060;
  i16     Word8056;
  i16     Word8054;
  pnt     PhysicalBase;//8052;
  i16     Word8048;
  i16     Word7062;
  i16     ActualCharacter; // Word7060 
  i8      CharacterImages[4*464]; // Byte7058
  i8      Byte5202[24];
  i16     Word5178;
  wordRectPos wRectPos5176;
  i16     Word5168;
  i16     EditBoxSelected; //Word5166 //either NAME or TITLE
  i16     EditBoxPosition; //Word5164
  //wordRectPos wRectPos5162;(use wRectPos5162)
  //wordRectPos wRectPos5154;(use wRectPos5154)
  //wordRectPos wRectPos5146;(use wRectPos5146)
  //wordRectPos wRectPos5138[4];(use wRectPos5138)
  //wordRectPos wRectPos5106[4];(use wRectPos5106)
  //wordRectPos wRectPos5066;(use wRectPos5066)
  //wordREctPos wRectPos5058;(use wREctPos5058)
  //DlgButton dlgButton5050[4];//(use dlgButton5050)
  i8      Byte4930[1];
  CHAOSFILL(4929,4712)
  //i8      Byte4712[16];(use byte4712)
  i16     Word4696;
  i8      Byte4694[464];
  CHAOSFILL(4230,4228)
  i8      Byte4228[464];
  i8      Byte3764[size3764];
  i16     Word3122;
  i16     Word826[5];
  i16     Word816[16];
  i16     Word784[17];
  i16     Word750[8];
  i16     Word734[6];
  i16     Word722[6];
  i16     *Pnt714[7];
  i16     Word686;
  i16     *pw664;
  pnt     Pnt660;
  i16     *pw656;
  i16     *pw652;
  pnt     pAllocDBank434;
  pnt     Pnt430;
  i16     Word426;
  i16     Word424;
  pnt     pDBank422;
  i16     Word418;
  i32     DBankLen416;
  i8      Byte412[8];
};

E e;

unsigned char SelectedColor;


PALETTE palette24862 = {
    0x0000,0x0333,0x0444,0x0310,0x0066,0x0420,0x0040,0x0060,
    0x0700,0x0750,0x0643,0x0770,0x0222,0x0555,0x0007,0x0777};

i8 byte24830[16] = {4,6,4,8,16,4,4,4,4,8,4,0,0,0,8,4};

wordRectPos rectPos23414 = { 0, 193,  0, 101};
wordRectPos rectPos23406 = {62, 255, 48, 149};

char *positions = "CSBGAME\nCSBGAME2\nCSBGAME3\nCSBGAME4\nCANCEL";
char *filenames[] ={
	"CSBGAME.DAT",
	"CSBGAME2.DAT",	
	"CSBGAME3.DAT",
	"CSBGAME4.DAT",
};


pnt UtilityDiskMessages[43] = 
{ 
  "\nPLEASE PUT A\nSAVE GAME DISK IN @",  //0
  "\nPUT PORTRAIT DISK\nIN @",            //1
  "\nPUT A BLANK DISK\nIN @",             //2
  "",                                     //3
  "",                                     //4
  "",                                     //5
  "\n\nREPLACE EXISTING SAVED GAME?",     //6
  "",                                     //7
  "\n\nREPLACE $'s PORTRAIT?",            //8
  "\n\nPLEASE WAIT . . .\nLOADING SAVED GAME",//9
  "\n\nPLEASE WAIT . . .\nSAVING GAME",   //10
  "",                                     //11
  "\n\nCAN'T FIND SAVED GAME",            //12
  "",                                     //13
  "\nSAVED GAME ERROR",                   //14
  "\nERROR WHILE\nSAVING GAME",           //15
  "",                                     //16
  "",                                     //17
  "",                                     //18
  "",                                     //19
  "\nEACH CHAMPION MUST\nHAVE A UNIQUE FIRST NAME!",//20
  "",                                               //21
  "\n\nPLEASE WAIT . .\nLOADING SAVED ADVENTURE",   //22
  "\n\nPLEASE WAIT . .\nSAVING NEW ADVENTURE",      //23
  "CAN'T FIND\nNEW ADVENTURE\nMINI.DAT",  //24
  "\nTHE NEW ADVENTURE\nIS DAMAGED",      //25
  "",                                     //26
  "",                                     //27
  "\nERROR WHILE SAVING\nNEW ADVENTURE",  //28
  "THE NEW ADVENTURE\nCAN ONLY BE MADE AFTER\nA SAVED GAME IS LOADED.",                                     //29
  "\nCAN'T MAKE NEW ADVENTURE\nFROM THIS SAVED GAME.",//30
  "LOAD WHICH SAVED GAME?",               //31
  "OK",                                   //32
  "OK\nCANCEL",                           //33
  "SAVE\nFORMAT\nCANCEL",                 //34
  "MAKE NEW ADVENTURE\nFORMAT\nCANCEL",   //35
  "YES\nNO",                              //36
  "",                                     //37
  "",                                     //38
  "DUNGEON MASTER\nCHAOS STRIKES BACK\nCANCEL", //39
  "",                                     //40
  "",                                      //41
  "\nPLEASE CHOOSE A\nSAVE GAME SLOT",  //42
};


#ifdef _MSVC_INTEL
#pragma warning (disable:4305)
#pragma warning (disable:4309)
#endif

i8 byte12618[] = {01,00,00,13,00,00,00,00};

DlgButton dlgButton_12610[] = {
      {0x01,0x00,{0x0050,0x00ed,0x0080,0x0088},0x00,0x01},
      {0x00,0x00,{0x0000,0x0000,0x0000,0x0000},0x00,0x00},
      {0x01,0x00,{0x0050,0x0094,0x0080,0x0088},0x00,0x01},
      {0x02,0x00,{0x00a5,0x00ed,0x0080,0x0088},0x00,0x01},
      {0x00,0x00,{0x0000,0x0000,0x0000,0x0000},0x00,0x00},
      {0x01,0x00,{0x0050,0x0094,0x006c,0x0074},0x00,0x01},
      {0x02,0x00,{0x00a5,0x00ed,0x006c,0x0074},0x00,0x01},
      {0x03,0x00,{0x007b,0x00c4,0x0080,0x0088},0x00,0x01},
      {0x00,0x00,{0x0000,0x0000,0x0000,0x0000},0x00,0x00},
      {0x01,0x00,{0x0050,0x00ed,0x006c,0x0074},0x00,0x01},
      {0x02,0x00,{0x0050,0x0094,0x0080,0x0088},0x00,0x01},
      {0x03,0x00,{0x00a5,0x00ed,0x0080,0x0088},0x00,0x01},
      {0x00,0x00,{0x0000,0x0000,0x0000,0x0000},0x00,0x00},
      {0x01,0x00,{0x0050,0x00ed,0x0058,0x0060},0x00,0x01},
      {0x02,0x00,{0x0050,0x00ed,0x006c,0x0074},0x00,0x01},
      {0x03,0x00,{0x0050,0x00ed,0x0080,0x0088},0x00,0x01},
      {0x00,0x00,{0x0000,0x0000,0x0000,0x0000},0x00,0x00} };


DlgButton four_dlgButon[]={
		{0x01,0x00,{0x0050,0x0094,0x0070,0x0078},0x00,0x01},
		{0x02,0x00,{0x00a5,0x00ed,0x0070,0x0078},0x00,0x01},
		{0x03,0x00,{0x0050,0x0094,0x0080,0x0088},0x00,0x01},
		{0x04,0x00,{0x00a5,0x00ed,0x0080,0x0088},0x00,0x01},
		{0x00,0x00,{0x0000,0x0000,0x0000,0x0000},0x00,0x00}};


#ifdef _MSVC_INTEL
#pragma warning (default:4305)
#pragma warning (default:4309)
#endif

S12406  s12406[] = {
  { 00,00, &dlgButton_12610[0],  byte12618, NULL },
  { 00,00, &dlgButton_12610[2],  NULL,      NULL },
  { 00,00, &dlgButton_12610[5],  NULL,      NULL },
  { 00,00, &dlgButton_12610[9],  NULL,      NULL },
  { 00,00, &dlgButton_12610[13], NULL,      NULL } };


S12406 fourbuttons[]={
  { 00,00, &four_dlgButon[0],	 NULL,      NULL } };



char *pnt12246 = "DMGAME.DAT";
char *pnt12242 = "DMGAME.BAK";
char *pnt12238 = "CSBGAME.DAT";
char *pnt12234 = "CSBGAME.BAK";
char *pnt12222 = "DRIVE B:";
char *pnt12226 = "DRIVE A:";

S12406  *pS12406_9166[6] = {NULL,NULL,NULL,NULL,NULL,NULL};//guessed size!
S12406  **ppS12406_9142 = pS12406_9166;

i16  word9138[] = {
          0x4737, //turn right
          0x4838, //forward
          0x4b34, //slide left
          0x4d36, //slide right
          0x5032, //backup
          0x5230, //turn left
          0x532e};//delete

ui32 FrameImage[246] = //byte8046
{
   0xffff0000,0xffff0000,0xffff0000,0xffff0000,
   0xfff00000,0xfff00000,0xbfff3fff,0x80000000,
   0xffffffff,0x00000000,0xfff0fff0,0x00000000,
   0xdfff5fff,0x80000000,0xffffffff,0x00000000,
   0xfff0ffd0,0x00200000,0xefff6fff,0x80000000,
   0xffffffff,0x00000000,0xfff0ff90,0x00600000,
   0xf7ff77ff,0x80000000,0xffffffff,0x00000000,
   0xfff0ff10,0x00e00000,0xfbff7bff,0x80000000,
   0xffffffff,0x00000000,0xfff0fe10,0x01e00000,
   0xfc307c30,0x83ff0030,0x00e400e4,0xffff00e4,
   0x03f00010,0xffe00000,0xfc607c60,0x83ff0060,
   0x01c801c8,0xffff01c8,0x03f00010,0xffe00000,
   0xfc807c80,0x83ff0080,0x03800380,0xffff0380,
   0x07f00410,0xffe00400,0xfc007c00,0x83ff0000,
   0x07000700,0xffff0700,0x0ff00c10,0xffe00c00,
   0xfc007c00,0x83ff0000,0x1e001e00,0xffff1e00,
   0x0bf00810,0xffe00800,0xfc007c00,0x83ff0000,
   0x7c007c00,0xffff7c00,0x13f01010,0xffe01000,
   0xfc007c00,0x83ff0000,0xf800f800,0xfffff800,
   0x23f02010,0xffe02000,0xfc017c01,0x83ff0001,
   0xf000f000,0xfffff000,0x43f04010,0xffe04000,
   0xfc037c03,0x83ff0003,0xe000e000,0xffffe000,
   0x03f00010,0xffe00000,0xfc077c07,0x83ff0007,
   0x00000000,0xffff0000,0x03f00010,0xffe00000,
   0xfc0c7c0c,0x83ff000c,0x00000000,0xffff0000,
   0x03f00010,0xffe00000,0xfc187c18,0x83ff0018,
   0x00000000,0xffff0000,0x03f00010,0xffe00000,
   0xfc207c20,0x83ff0020,0x00000000,0xffff0000,
   0x03f00010,0xffe00000,0xfc407c40,0x83ff0040,
   0x00000000,0xffff0000,0x03f00010,0xffe00000,                   
   0xfc807c80,0x83ff0080,0x00000000,0xffff0000,
   0x03f00010,0xffe00000,0xfc007c00,0x83ff0000,
   0x00000000,0xffff0000,0x23f02010,0xffe02000,
   0xfc007c00,0x83ff0000,0x00000000,0xffff0000,
   0x43f04010,0xffe04000,0xfc007c00,0x83ff0000,
   0x00010001,0xffff0001,0x83f08010,0xffe08000,
   0xfc007c00,0x83ff0000,0x00030003,0xffff0003,
   0x03f00010,0xffe00000,0xfc007c00,0x83ff0000,
   0x000e000e,0xffff000e,0x03f00010,0xffe00000,
   0xfc007c00,0x83ff0000,0x001c001c,0xffff001c,
   0x03f00010,0xffe00000,0xfc207c20,0x83ff0020,
   0x00380038,0xffff0038,0x03f00010,0xffe00000,
   0xfc407c40,0x83ff0040,0x00780078,0xffff0078,
   0x07f00410,0xffe00400,0xfd807d80,0x83ff0180,
   0x00700070,0xffff0070,0x0ff00c10,0xffe00c00,
   0xff007f00,0x83ff0300,0x00e000e0,0xffff00e0,
   0x3bf03810,0xffe03800,0xfe007e00,0x83ff0200,
   0x00e000e0,0xffff00e0,0x73f07010,0xffe07000,
   0xfc007c00,0x83ff0000,0x81c081c0,0xffff81c0,
   0x43f04010,0xffe04000,0xfc037c03,0x83ff0003,
   0x07800780,0xffff0780,0x83f08010,0xffe08000,
   0xfc0e7c0e,0x83ff000e,0x0f000f00,0xffff0f00,
   0x03f00010,0xffe00000,0xffff7c00,0x83ff0000,
   0xffff0000,0xffff0000,0xfff00210,0xfde00000,
   0xffff7800,0x87ff0000,0xffff0000,0xffff0000,
   0xfff00110,0xfee00000,0xffff7000,0x8fff0000,
   0xffff0000,0xffff0000,0xfff00090,0xff600000,
   0xffff6000,0x9fff0000,0xffff0000,0xffff0000,
   0xfff00050,0xffa00000,0xffff4000,0xbfff0000,
   0xffff0000,0xffff0000,0xfff00030,0xffc00000,
   0xffff7fff,0x80000000,0xffffffff,0x00000000,
   0xfff0fff0,0x00000000 };
   

wordRectPos wRectPos5162 = {0x009d,0x00fc,0x003c,0x0092};
wordRectPos wRectPos5154 = {0x011e,0x012f,0x002b,0x00a9};
wordRectPos wRectPos5146 = {0x011c,0x0131,0x0029,0x00ab};
wordRectPos wRectPos5138[4] =
{
  {0x000b,0x002a,0x000e,0x002a},
  {0x004e,0x006d,0x000e,0x002a},
  {0x0091,0x00b0,0x000e,0x002a},
  {0x00d3,0x00f2,0x000e,0x002a} };

wordRectPos wRectPos5106[7] =
{
  {0x000b,0x002a,0x000e,0x002a}, //[0]=5106
  {0x004e,0x006d,0x000e,0x002a}, //[1]=5098
  {0x0091,0x00b0,0x000e,0x002a}, //[2]=5090
  {0x00d3,0x00f2,0x000e,0x002a}, //[3]=5082
  {0x004d,0x0078,0x0038,0x0060}, //[4]=5074
  {0x0053,0x0072,0x003e,0x005a}, //[5]=5066
  {0x0000,0x0098,0x0072,0x00af}, //[6]=5058
};

DlgButton dlgButton5050[17] = 
{
  {0x01,0,{  4, 48,  3, 42},0,1},//[ 0]=5050
  {0x02,0,{ 71,115,  3, 42},0,1},//[ 1]=5038
  {0x03,0,{138,182,  3, 42},0,1},//[ 2]=5026
  {0x04,0,{205,249,  3, 42},0,1},//[ 3]=5014
  {0x05,0,{157,252, 60,146},0,1},//[ 4]=5002
  {0x06,0,{157,252, 60,146},0,2},//[ 5]=4990
  {0x07,0,{286,303, 43,169},0,1},//[ 6]=4978
  {0x08,0,{156,196,159,167},0,1},//[ 7]=4966
  {0x09,0,{225,253,159,167},0,1},//[ 8]=4954
  {0x64,0,{350,349,250,249},0,0},//[ 9]=4942
  {0x0b,0,{  2, 92,186,194},0,1},//[10]=4930
  {0x0c,0,{102,192,186,194},0,1},//[11]=4918
  {0x0d,0,{202,316,186,194},0,1},//[12]=4906
  {0x0e,0,{ 15, 59, 87, 95},0,1},//[13]=4894
  {0x0f,0,{ 15,131,100,108},0,1},//[14]=4882
  {0x66,0,{350,349,250,249},0,0},//[15]=4870
  {0x11,0,{288,316,  5, 13},0,1},//[16]=4858
};

i8 byte4846[8] = {0x09,0x00,0x61,0x00,0x01,0x00,0x3b,0x00};

S12406 s12406_4802 = 
{
  01,00, &dlgButton5050[0], byte4846, NULL
};


pnt pnt4788[] =
{
  "FIGHTER",
  "NINJA",
  "PRIEST",
  "WIZARD"
};

pnt pnt4772[16] =
{
  "NEOPHYTE   ",
  "NOVICE     ",
  "APPRENTICE ",
  "JOURNEYMAN ",
  "CRAFTSMAN  ",
  "ARTISAN    ",
  "ADEPT      ",
  "EXPERT     ",
  "`MASTER    ",
  "a MASTER   ",
  "b MASTER   ",
  "c MASTER   ",
  "d MASTER   ",
  "e MASTER   ",
  "ARCHMASTER "
};

i8 byte4712[16] = {0x00,0x0c,0x01,0x02, 
                   0x0d,0x0f,0x03,0x05,
                   0x0a,0x08,0x09,0x0b,
                   0x07,0x06,0x04,0x0e };

i8 Byte1278[420] = {
         0x00,0x06,0x1b,0x0a,0x0f,0x19,0x0c,0x06,0x06,0x0c,0x09,0x04,0x00,0x00,0x00,0x03,                   
         0x0e,0x02,0x1e,0x1e,0x06,0x1e,0x0e,0x1f,0x0e,0x0e,0x06,0x06,0x03,0x00,0x0c,0x0e,                     
         0x0e,0x0e,0x1e,0x0f,0x1e,0x1f,0x1f,0x0f,0x11,0x1f,0x01,0x09,0x08,0x11,0x11,0x0e,                   
         0x1e,0x0e,0x1e,0x0f,0x1f,0x11,0x11,0x11,0x11,0x11,0x1f,0x0f,0x18,0x0f,0x04,0x00,                   
         0x04,0x1f,0x00,0x04,0x18,0x01,0x00,0x06,0x1b,0x1f,0x14,0x1a,0x1a,0x06,0x0c,0x06,                   
         0x06,0x04,0x00,0x00,0x00,0x06,0x13,0x06,0x01,0x01,0x0a,0x10,0x10,0x01,0x11,0x11,                   
         0x06,0x06,0x06,0x0f,0x06,0x13,0x11,0x11,0x11,0x10,0x11,0x10,0x10,0x10,0x11,0x04,                   
         0x01,0x0a,0x08,0x1b,0x19,0x11,0x11,0x11,0x11,0x10,0x04,0x11,0x11,0x11,0x0a,0x11,                   
         0x02,0x0c,0x0c,0x03,0x0e,0x00,0x09,0x11,0x1f,0x0a,0x04,0x03,0x00,0x06,0x12,0x0a,                   
         0x0e,0x04,0x0c,0x0c,0x0c,0x06,0x0f,0x1f,0x00,0x0f,0x00,0x0c,0x15,0x02,0x0e,0x0e,                   
         0x12,0x1e,0x1e,0x02,0x0e,0x0f,0x00,0x00,0x0c,0x00,0x03,0x06,0x17,0x1f,0x1e,0x10,                   
         0x11,0x1e,0x1e,0x13,0x1f,0x04,0x01,0x0c,0x08,0x15,0x15,0x11,0x1e,0x11,0x1e,0x0e,                   
         0x04,0x11,0x11,0x15,0x04,0x0a,0x04,0x0c,0x06,0x03,0x1b,0x00,0x12,0x11,0x00,0x11,                   
         0x07,0x05,0x00,0x06,0x00,0x1f,0x05,0x0b,0x1d,0x00,0x0c,0x06,0x06,0x04,0x06,0x00,                   
         0x06,0x18,0x19,0x02,0x10,0x01,0x1f,0x01,0x11,0x04,0x11,0x01,0x06,0x06,0x06,0x0f,                   
         0x06,0x06,0x16,0x11,0x11,0x10,0x11,0x10,0x10,0x11,0x11,0x04,0x11,0x0a,0x08,0x11,                   
         0x13,0x11,0x10,0x11,0x14,0x01,0x04,0x11,0x0a,0x1b,0x0a,0x04,0x08,0x0c,0x03,0x03,                   
         0x00,0x00,0x09,0x11,0x1f,0x0a,0x04,0x09,0x00,0x00,0x00,0x0a,0x1e,0x13,0x1a,0x00,                   
         0x06,0x0c,0x09,0x04,0x06,0x00,0x06,0x10,0x0e,0x02,0x1f,0x1e,0x02,0x1e,0x0e,0x04,                   
         0x0e,0x0e,0x06,0x02,0x03,0x00,0x0c,0x00,0x10,0x11,0x1e,0x0f,0x1e,0x1f,0x10,0x0f,                   
         0x11,0x1f,0x0e,0x09,0x0f,0x11,0x11,0x0e,0x10,0x0e,0x13,0x1e,0x04,0x0f,0x04,0x11,                   
         0x11,0x04,0x1f,0x0f,0x01,0x0f,0x00,0x00,0x04,0x1f,0x00,0x04,0x18,0x1f,0x00,0x06,                   
         0x00,0x00,0x04,0x00,0x0d,0x00,0x00,0x00,0x00,0x00,0x0c,0x00,0x00,0x00,0x00,0x00,                  
         0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x04,0x00,0x00,0x00,0x06,0x0f,0x00,                  
         0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x03,                   
         0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x1f,0x00,0x00,                   
         0x00,0x00,0x00,0x00};

ui32 Long954[4] = {
  0xfff0fff0, 0xfff8fff8, 0xfffcfffc, 0xfffefffe};
ui32 Long938[4] = {
  0x7fff7fff, 0x3fff3fff, 0x1fff1fff, 0x0fff0fff};

void reverseBMP(ui32 *bmp, i32 n)
{
  for (i32 i=0; i<n; i++) 
    bmp[i]=LE32(bmp[i]);
}

void InitializeE(void)
{
  memset(&e, 0, sizeof (e));
  reverseBMP(FrameImage, 246);
}


void pumper(void); // Pump any queued Windows messages
pnt  MALLOC(i32 size);
void  MFREE(i8 *address);
//i32  DIRECT_CONIN(void); // Trap 1 #0x07
//i16  CONSTAT(void);      // Trap 1 #0x0b
void SetSupervisorMode(void);
void ClearSupervisorMode(void);
//void ClearMemory(pnt dest, i16 numByte); // TAG000a84
pnt  physbase(void);
void SetDLogicalBase(pnt);
//i16  OPEN(char *name, i32 ref);
//i16  CREATE(char *name, i16 flag);
i32  READ(i32 file, i32 len, pnt buf);
i32  WRITE(i16 file, i32 len, pnt buf);
i16  CLOSE(i16 handle);
void StrCpy(pnt dst, pnt src);//TAG003264
i16  StrLen(pnt string);//TAG0032ba
void MemMove(pnt src, pnt dest, i16 byteCount); //TAG0009dc
//void TextToScreen(i32, i32, i32, i32, pnt);//TAG001c42
i16  Unscramble(pnt buf, i32 initialChecksum, i32 numwordM1);
i16  GenChecksum(pnt buf, i16 initSum, i32 numword);//TAG01d076
//   TAG000c04
static i16  MyWriteScrambled(pnt, i16, ui16, ui16 *);//TAG01d0ea



//     TAG0000d6
ui32 Times(ui32, ui32);
void   TAG00022a(i16);
void   TAG0002b0(void);
void   TAG0002c2(void);
void   TAG0002d0(void);
void   TAG00031c(void);
pnt    AllocateMemory(i32);//TAG000328
void   ReleaseMemory(pnt);//TAG0003a0
pnt    GetSubString(pnt, pnt, i16); //TAG000472
void   PrintDialogText(pnt, i32, i32, i32); //TAG0004ec
void   TAG00054a(void);
void   TAG0006e4(void);
i16    TAG0008dc(i16);
i16    TAG000952(void);
void   TAG0009a8(void);
i16    ReadGameFile(pnt, i32);//TAG000aee
i16    WriteGameFile(pnt, i16);//TAG000b28
//i16    TAG000b94(pnt,i16,i16);(use GenChecksum)
//     TAG000bc8
static i16 MyUnscrambleStream(pnt buf,i32 size,i16 initialHash,i16 Checksum);
i16    TAG000c52(pnt, i16 *, i32);
static i16 MyWriteAndChecksum(pnt, ui16 *, i32);//TAG000c98
i16    ReadGameBlock1(pnt);//TAG000cde
i16    UnscrambleBlock1(pnt, i16);//TAG000d08
i16    WriteFirstBlock(pnt, i16);//TAG000d7c
void   TAG00136c(void);
i16    TAG00142e(pnt);
void   TAG001676(pnt, i16);
void   TAG002724(void);
i16    TestInRectangle(wordRectPos *, i32 x, i32 y);//TAG002c70
void   TAG002ca8(void);
i16    TAG002cdc(DlgButton *, i32, i32, i32);
void   EnqueMouseClick(i32, i32, i32);//TAG002d3c
void   CheckPendingMouseClick(void);//TAG002e2c
void   TAG002e4a(i32);
i16    TAG002faa(S12406 *P1);
//i16    TAG002faa(pnt);
//     TAG003000
S12406 **SetActiveDialog(S12406 **); // Actually an array of (6) &S12406
void   TAG003106(i16);
void   TAG0031a6(i16);
void   TAG00323c(void);
void   TAG00324c(void);
void   TAG003264(void);
void   TAG003294(i16, i16);
void   TAG0032b4(i16, i16);
void   BitBltSquareImage(pnt, const wordRectPos *, i16, i16); //TAG0033b6
//     TAG0033e6
void   FillScreenRectangle(wordRectPos *, i16);
void   DrawNameTitleCarret(i16, i16); //TAG003406
//     TAG0034dc
void   ExpandRectangle(wordRectPos *, wordRectPos *, i16, i16);
//     TAG0035cc
void   DrawDialogBoxOutline(wordRectPos *, i16, i16, i16);
void   PrintCharacterName(i16); //TAG003748
void   DrawCharacterHeader(i16, i16); //TAG0037ac
void   AddDialogButton(DlgButton *, pnt, i16);//TAG003860
void   TAG0039a8(void);
void   FillCharacterNameEditBox(pnt, i16, i16);//TAG0039ea
void   PrintAttributeValue(pnt, i32, i32); //TAG003a7c
void   DrawMagnifiedCharacterImage(void); //TAG0036c0
void   GetPalleteItemRect(i16, wordRectPos *); //TAG0038ea
void   DrawSelectedColor(i16); //TAG003922
void   TAG00439e(void);
//void TAG004a32(char *); //FadeToPalette
//   TAG004bbc
void TextOutB(pnt dest,
              i32 destWidth,
              i32 x,
              i32 y,
              i32 color,
              i32 P6,
              const char *text);
void   TextToScreen(i32, i32, i32, i32, const char *);//TAG004e76
i16    TAG004ec0(i32);
void   TAG004ea2(i16 *);
i16    TAG00507e(void);
i16    TAG0050d2(void);
i16    TAG005868(i16 *, i16 *, i16 *, i16 *);
void   TAG00589e(i16, i16);
//void TAG005c50(i32); //Trap #14
void   TAG005c92(pnt);
void   TAG005cd6(pnt *);
void   TAG005cf6(void);
void   TAG005d12(i16 *, i16 *, i16 *);
void   TAG005d8e(i16 *, i16 *, i16 *);
void   TAG005df2(i16);
void   TAG0061ba(i16, i16);
void   TAG0061e2(i16);
void   TAG006202(i16, i16 *, i16 *, i16 *);
void   TAG00623a(i16, pnt, pnt *);
void   TAG00626e(i16, pnt, pnt *);
pnt    FormatInteger(pnt, ui32, i16);//TAG0064b4
//void   TAG006520(pnt,pnt);StrCpy
//i16    TAG00654e(pnt, pnt);strcmp
//i16    TAG0065bc(pnt);//StrLen
i32    atari_sprintf(pnt,pnt, i32, i32, i32=0); //TAG0065e0
i32    GetPixel(pnt, i16, i16, i16);//TAG006700
//void   TAG006892(...) //Use TAG0088b2 from Graphics.cpp
//void   TAG00716a(pnt, RectPos *, i16 color, i16 dstwidth); (FillRectangle)
pnt    TAG0073b0(pnt);
pnt    TAG0073d4(pnt);
void   TAG007416(pnt, pnt);
void   TAG00744c(pnt, pnt);
void   TAG0074ae(pnt, i32, pnt);
void   TAG0074ea(pnt, i32, pnt);
pnt    TAG007552(i32, pnt, i16 *);
i16    TAG007904(pnt, i32);
pnt    TAG007a1a(i16);
pnt    TAG007ac0(pnt *);
void   TAG007b68(pnt);
pnt    TAG007bba(STRUCT6 *);
pnt    TAG007cc6(i32, i16, pnt);
pnt    TAG007d4c(STRUCT12 *);
void   TAG007e16(pnt, pnt);
i32    TAG007e42(i16, i16);
void   TAG007f54(void);
pnt    TAG007f64(i32, i16);
i32    TAG007f92(pnt);
pnt    TAG007fe8(pnt);
void   TAG00801e(pnt);
i32    TAG0080e0(pnt);
//     TAG00858c
void   MemoryMove(pnt, pnt, i16, i16, i32);//like MemMove
//void TAG0086a8(pnt, i32);//ClearMemory
i32    TAG008788(i16, i32, ui32);
void   EditCharacterName(char key);

// *********************************************************
//
// *********************************************************
//   TAG0000d6
ui32 Times(ui32 P1, ui32 P2)
{
  return P1 * P2;
}

// *********************************************************
//
// *********************************************************
void TAG00022a(i16 P1)
{ // Set/unSet VBL interrupt routine?????
//;;;;;;;;;;;;;;;;;;;;;
//00022a 4e56 fffc                LINK     A6,#-4   
//00022e 302e 0008                MOVE.W   8(A6),D0   
//000232 4ead 003a                JSR      58(A5)    (=0x0000ba)
  switch (P1)
  {
//000236 0001
//000238 0002
//00023a 0092  (=0x0002cc)
//00023c 0004  (=0x000240)
//00023e 002e  (=0x00026c)
  case 1:
//000240 41fa 006a                LEA      $+108 (=0x0002ac),A0   
//000244 208d                     MOVE.L   A5,(A0)   
//000246 42a7                     CLR.L    -(A7)   
//000248 3f3c 0020                MOVE.W   #32,-(A7)   
//00024c 4ead 009a                JSR      154(A5)    (=0x005c66=Trap #1)
//000250 5c8f                     ADDQ.L   #6,A7   
  SetSupervisorMode();
//000252 2d40 fffc                MOVE.L   D0,-4(A6)   
//000256 4eba 0058                JSR      $+90 (=0x0002b0)   
  //TAG0002b0();
//00025a 2f2e fffc                MOVE.L   -4(A6),-(A7)   
//00025e 3f3c 0020                MOVE.W   #32,-(A7)   
//000262 4ead 009a                JSR      154(A5)    (=0x005c66=Trap #1)
//000266 5c8f                     ADDQ.L   #6,A7   
  ClearSupervisorMode();
//000268 6000 0062                BRA      $+100 (=0x0002cc)   
    break;
  case 2:
//00026c 42a7                     CLR.L    -(A7)   
//00026e 3f3c 0020                MOVE.W   #32,-(A7)   
//000272 4ead 009a                JSR      154(A5)    (=0x005c66=Trap #1)
//000276 5c8f                     ADDQ.L   #6,A7   
    SetSupervisorMode();
//000278 2d40 fffc                MOVE.L   D0,-4(A6)   
//00027c 4eba 0044                JSR      $+70 (=0x0002c2)   
    //TAG0002c2();
//000280 2f2e fffc                MOVE.L   -4(A6),-(A7)   
//000284 3f3c 0020                MOVE.W   #32,-(A7)   
//000288 4ead 009a                JSR      154(A5)    (=0x005c66=Trap #1)
//00028c 5c8f                     ADDQ.L   #6,A7   
    ClearSupervisorMode();
//00028e 603c                     BRA      $+62 (=0x0002cc)   
    break;

//000290 2f0d                     MOVE.L   A5,-(A7)   
//000292 2a7a 0018                MOVE.L   $+26 (=0x0002ac),A5   
//000296 52ad a114                ADDQ.L   #1,-24300(A5)   
//00029a 4a6d ebc6                TST.W    -5178(A5)   
//00029e 6704                     BEQ      $+6 (=0x0002a4)   
//0002a0 536d ebc6                SUBQ.W   #1,-5178(A5)   
//0002a4 2a5f                     MOVE.L   (A7)+,A5   
//0002a6 4ef9 0000 0000           JMP      0   

//0002ac 0000 0000                OR.B     #0,D0   
//0002b0 41fa fff6                LEA      $-8 (=0x0002a8),A0   
//0002b4 20b8 0070                MOVE.L   112,(A0)   
//0002b8 41fa ffd6                LEA      $-40 (=0x000290),A0   
//0002bc 21c8 0070                MOVE.L   A0,112   
//0002c0 4e75                     RTS         

//0002c2 41fa ffe4                LEA      $-26 (=0x0002a8),A0   
//0002c6 21d0 0070                MOVE.L   (A0),112   
//0002ca 4e75                     RTS         

  }; //switch(P1)
//0002cc 4e5e                     UNLK     A6   
//0002ce 4e75                     RTS         
}


// *********************************************************
//
// *********************************************************
void TAG0002d0(void)
{
  i32 i;
//;;;;;;;;;;;;;
//0002d0 4e56 fffe                LINK     A6,#-2   
//0002d4 426d a438                CLR.W    -23496(A5)   
  e.Word23496 = 0;
//0002d8 426e fffe                CLR.W    -2(A6)   
//0002dc 6024                     BRA      $+38 (=0x000302)   
  for (i=0; i<100; i++)
  {
//0002de 302e fffe                MOVE.W   -2(A6),D0   
//0002e2 48c0                     EXT.L    D0   
//0002e4 e580                     ASL.L    #2,D0   
//0002e6 41ed a2a8                LEA      -23896(A5),A0   
//0002ea d1c0                     ADD.L    D0,A0   
//0002ec 4290                     CLR.L    (A0)   
    e.Pnt23896[i] = NULL;
//0002ee 302e fffe                MOVE.W   -2(A6),D0   
//0002f2 48c0                     EXT.L    D0   
//0002f4 e580                     ASL.L    #2,D0   
//0002f6 41ed a118                LEA      -24296(A5),A0   
//0002fa d1c0                     ADD.L    D0,A0   
//0002fc 4290                     CLR.L    (A0)   
    e.Pnt24296[i] = NULL;

//0002fe 526e fffe                ADDQ.W   #1,-2(A6)   
//
//000302 0c6e 0064 fffe           CMP.W    #100,-2(A6)   
//000308 6dd4                     BLT      $-42 (=0x0002de)   
  };
//00030a 3f3c 0032                MOVE.W   #50,-(A7)   
//00030e 3f3c 0064                MOVE.W   #100,-(A7)   
//000312 4ead 0122                JSR      290(A5)    (=0x007e42)
//000316 588f                     ADDQ.L   #4,A7   
  TAG007e42(100, 50);
//000318 4e5e                     UNLK     A6   
//00031a 4e75                     RTS         
}

// *********************************************************
//
// *********************************************************
void TAG00031c(void)
{
//00031c 4e56 fffe                LINK     A6,#-2   
//000320 4ead 013a                JSR      314(A5)    (=0x007f54)
  TAG007f54();
//000324 4e5e                     UNLK     A6   
//000326 4e75                     RTS         
}

// *********************************************************
//
// *********************************************************
//  TAG000328
pnt AllocateMemory(i32 P1)
{
  dReg D0;
  pnt pnt_8;
  pnt pnt_4;
//;;;;;;;;;;;;;;;;;;;
//000328 4e56 fff8                LINK     A6,#-8   
//00032c 3f3c 0400                MOVE.W   #1024,-(A7)   
//000330 2f2e 0008                MOVE.L   8(A6),-(A7)   
//000334 4ead 0132                JSR      306(A5)    (=0x007f64)
//000338 5c8f                     ADDQ.L   #6,A7   
//00033a 2d40 fffc                MOVE.L   D0,-4(A6)   
  pnt_4 = TAG007f64(P1, 0x400);
//00033e 4aae fffc                TST.L    -4(A6)   
//000342 57c0                     SEQ      D0   
  D0B = (UI8)(pnt_4==NULL?1:0);
//000344 4400                     NEG.B    D0   
//000346 4880                     EXT.W    D0   
  D0W = sw(-D0B);
//000348 4a40                     TST.W    D0   
//00034a 6716                     BEQ      $+24 (=0x000362)   
  if (D0W != 0)
  {
//00034c 42a7                     CLR.L    -(A7)   
//00034e 42a7                     CLR.L    -(A7)   
//000350 3f3c 0008                MOVE.W   #8,-(A7)   
//000354 486d d566                PEA      -10906(A5)   
//000358 4eba 022e                JSR      $+560 (=0x000588)   
//00035c 4fef 000e                LEA      14(A7),A7   
    die(0,"FATAL ERROR: OUT OF MEMORY\nREBOOT");
//000360 60fe                     BRA      $+0 (=0x000360)   
    for (;;) {};
  };
//000362 2f2e fffc                MOVE.L   -4(A6),-(A7)   
//000366 4ead 0142                JSR      322(A5)    (=0x007fe8)
//00036a 588f                     ADDQ.L   #4,A7   
//00036c 2d40 fff8                MOVE.L   D0,-8(A6)   
  pnt_8 = TAG007fe8(pnt_4);
//000370 302d a438                MOVE.W   -23496(A5),D0   
//000374 48c0                     EXT.L    D0   
//000376 e580                     ASL.L    #2,D0   
//000378 41ed a2a8                LEA      -23896(A5),A0   
//00037c d1c0                     ADD.L    D0,A0   
//00037e 20ae fff8                MOVE.L   -8(A6),(A0)   
  e.Pnt23896[e.Word23496] = pnt_8;
//000382 302d a438                MOVE.W   -23496(A5),D0   
//000386 48c0                     EXT.L    D0   
//000388 e580                     ASL.L    #2,D0   
//00038a 41ed a118                LEA      -24296(A5),A0   
//00038e d1c0                     ADD.L    D0,A0   
//000390 20ae fffc                MOVE.L   -4(A6),(A0)   
  e.Pnt24296[e.Word23496] = pnt_4;
//000394 526d a438                ADDQ.W   #1,-23496(A5)   
  e.Word23496++;
//000398 202e fff8                MOVE.L   -8(A6),D0   
  return pnt_8;
//00039c 4e5e                     UNLK     A6   
//00039e 4e75                     RTS         
}

// *********************************************************
//
// *********************************************************
//   TAG0003a0
void ReleaseMemory(pnt P1)
{
  pnt *pntA0, *pntA1;
  i16  w_6;
  pnt  pnt_4;
//;;;;;;;;;;;;;;;;;;;;;;;;;;;
//0003a0 4e56 fffa                LINK     A6,#-6   
//0003a4 42ae fffc                CLR.L    -4(A6)   
  pnt_4 = NULL;
//0003a8 426e fffa                CLR.W    -6(A6)   
//0003ac 6000 009a                BRA      $+156 (=0x000448)   
  for (w_6 = 0; w_6<e.Word23496; w_6++)
  {
//0003b0 302e fffa                MOVE.W   -6(A6),D0   
//0003b4 48c0                     EXT.L    D0   
//0003b6 e580                     ASL.L    #2,D0   
//0003b8 41ed a2a8                LEA      -23896(A5),A0   
//0003bc d1c0                     ADD.L    D0,A0   
    pntA0 = &e.Pnt23896[w_6];
//0003be 202e 0008                MOVE.L   8(A6),D0   
//0003c2 b090                     CMP.L    (A0),D0   
//0003c4 6600 007e                BNE      $+128 (=0x000444)   
    if (P1 != *pntA0) continue;
//0003c8 302e fffa                MOVE.W   -6(A6),D0   
//0003cc 48c0                     EXT.L    D0   
//0003ce e580                     ASL.L    #2,D0   
//0003d0 41ed a118                LEA      -24296(A5),A0   
//0003d4 d1c0                     ADD.L    D0,A0   
    pntA0 = &e.Pnt24296[w_6];
//0003d6 2d50 fffc                MOVE.L   (A0),-4(A6)   
    pnt_4 = *pntA0;
//0003da 536d a438                SUBQ.W   #1,-23496(A5)   
    e.Word23496--;
//0003de 302e fffa                MOVE.W   -6(A6),D0   
//0003e2 b06d a438                CMP.W    -23496(A5),D0   
//0003e6 6c3c                     BGE      $+62 (=0x000424)   
    if (w_6 < e.Word23496)
    {
//0003e8 302e fffa                MOVE.W   -6(A6),D0   
//0003ec 48c0                     EXT.L    D0   
//0003ee e580                     ASL.L    #2,D0   
//0003f0 41ed a2a8                LEA      -23896(A5),A0   
//0003f4 d1c0                     ADD.L    D0,A0   
      pntA0 = &e.Pnt23896[w_6];
//0003f6 302d a438                MOVE.W   -23496(A5),D0   
//0003fa 48c0                     EXT.L    D0   
//0003fc e580                     ASL.L    #2,D0   
//0003fe 43ed a2a8                LEA      -23896(A5),A1   
//000402 d3c0                     ADD.L    D0,A1   
      pntA1 = &e.Pnt23896[e.Word23496];
//000404 2091                     MOVE.L   (A1),(A0)   
      pntA0 = pntA1;
//000406 302e fffa                MOVE.W   -6(A6),D0   
//00040a 48c0                     EXT.L    D0   
//00040c e580                     ASL.L    #2,D0   
//00040e 41ed a118                LEA      -24296(A5),A0   
//000412 d1c0                     ADD.L    D0,A0   
      pntA0 = &e.Pnt24296[w_6];
//000414 302d a438                MOVE.W   -23496(A5),D0   
//000418 48c0                     EXT.L    D0   
//00041a e580                     ASL.L    #2,D0   
//00041c 43ed a118                LEA      -24296(A5),A1   
//000420 d3c0                     ADD.L    D0,A1   
      pntA1 = &e.Pnt24296[e.Word23496];
//000422 2091                     MOVE.L   (A1),(A0)   
      pntA0 = pntA1;
    };
//000424 302d a438                MOVE.W   -23496(A5),D0   
//000428 48c0                     EXT.L    D0   
//00042a e580                     ASL.L    #2,D0   
//00042c 41ed a2a8                LEA      -23896(A5),A0   
//000430 d1c0                     ADD.L    D0,A0  
    pntA0 = &e.Pnt23896[e.Word23496]; 
//000432 4290                     CLR.L    (A0)   
    *pntA0 = NULL;
//000434 302d a438                MOVE.W   -23496(A5),D0   
//000438 48c0                     EXT.L    D0   
//00043a e580                     ASL.L    #2,D0   
//00043c 41ed a118                LEA      -24296(A5),A0   
//000440 d1c0                     ADD.L    D0,A0   
    pntA0 = &e.Pnt24296[e.Word23496];
//000442 4290                     CLR.L    (A0)   
    *pntA0 = NULL;
//
//000444 526e fffa                ADDQ.W   #1,-6(A6)   
//
//000448 302e fffa                MOVE.W   -6(A6),D0   
//00044c b06d a438                CMP.W    -23496(A5),D0   
//000450 6d00 ff5e                BLT      $-160 (=0x0003b0)   
  };
//000454 4aae fffc                TST.L    -4(A6)   
//000458 6714                     BEQ      $+22 (=0x00046e)   
  if (pnt_4 == NULL) return;
//00045a 2f2e fffc                MOVE.L   -4(A6),-(A7)   
//00045e 4ead 0152                JSR      338(A5)    (=0x00801e)
//000462 588f                     ADDQ.L   #4,A7   
  TAG00801e(pnt_4);
//000464 2f2e fffc                MOVE.L   -4(A6),-(A7)   
//000468 4ead 014a                JSR      330(A5)    (=0x007f92)
//00046c 588f                     ADDQ.L   #4,A7   
  TAG007f92(pnt_4);
//00046e 4e5e                     UNLK     A6   
//000470 4e75                     RTS         
}

// *********************************************************
//
// *********************************************************
pnt GetSubString(pnt P1,pnt P2,i16 P3)
{
  dReg D6, D7;
  aReg A0, A3, A4;
  pnt pnt_4;
//;;;;;;;;;
//000472 4e56 fffc                LINK     A6,#-4   
//000476 48e7 0318                MOVEM.L  D67A34,-(A7)   
//00047a 286e 0008                MOVE.L   8(A6),A4   
  A4 = P1;
//00047e 266e 000c                MOVE.L   12(A6),A3   
  A3 = P2;
//000482 1e2e 0011                MOVE.B   17(A6),D7   
  D7W = P3;
//000486 6000 004c                BRA      $+78 (=0x0004d4)   
  while ( (D6B = *(A4++)) != 0)
  {
//00048a bc07                     CMP.B    D7,D6   
//00048c 6700 0052                BEQ      $+84 (=0x0004e0)   
    if (D6B == D7B)
    {
      *A3 = 0;
      return A4;
    };
//000490 0c06 0040                CMP.B    #64,D6   
//000494 6608                     BNE      $+10 (=0x00049e)   
    if (D6B == 64)
    {
//000496 2d6d d042 fffc           MOVE.L   -12222(A5),-4(A6)  
      pnt_4 = pnt12222; 
//00049c 600c                     BRA      $+14 (=0x0004aa)   
      goto tag0004aa;
    };
//00049e 0c06 0023                CMP.B    #35,D6   
//0004a2 661a                     BNE      $+28 (=0x0004be)   
    if (D6B != 35) goto tag0004be;
//0004a4 2d6d d03e fffc           MOVE.L   -12226(A5),-4(A6)   
    pnt_4 = pnt12226;
tag0004aa:
//0004aa 41d3                     LEA      (A3),A0   
//0004ac 528b                     ADDQ.L   #1,A3   
    A0 = A3++;
//0004ae 226e fffc                MOVE.L   -4(A6),A1   
//0004b2 52ae fffc                ADDQ.L   #1,-4(A6)   
//0004b6 1091                     MOVE.B   (A1),(A0)   
    *A0 = *(pnt_4++);
//0004b8 66f0                     BNE      $-14 (=0x0004aa)   
    if(*A0 != 0) goto tag0004aa;
//0004ba 538b                     SUBQ.L   #1,A3   
    A3--;
//0004bc 6016                     BRA      $+24 (=0x0004d4)   
    continue;
tag0004be:
//0004be 0c06 0024                CMP.B    #36,D6   
//0004c2 660a                     BNE      $+12 (=0x0004ce)   
    if (D6B == 36)
    {
//0004c4 41ed 9f28                LEA      -24792(A5),A0   
//0004c8 2d48 fffc                MOVE.L   A0,-4(A6)   
      pnt_4 = e.Pnt24792;
//0004cc 60dc                     BRA      $-34 (=0x0004aa)   
      goto tag0004aa;
    };    
//0004ce 41d3                     LEA      (A3),A0   
//0004d0 528b                     ADDQ.L   #1,A3   
//0004d2 1086                     MOVE.B   D6,(A0)   
    *(A3++) = D6B;
//
//0004d4 41d4                     LEA      (A4),A0   
//0004d6 528c                     ADDQ.L   #1,A4   
//0004d8 1c10                     MOVE.B   (A0),D6   
//0004da 4a06                     TST.B    D6   
//0004dc 66ac                     BNE      $-82 (=0x00048a)   
  };
//0004de 99cc                     SUB.L    A4,A4   
//0004e0 4213                     CLR.B    (A3)   
  A4 = NULL;
  *A3 = 0;
//0004e2 200c                     MOVE.L   A4,D0   
  return A4;
//0004e4 4cdf 18c0                MOVEM.L  (A7)+,D67A34   
//0004e8 4e5e                     UNLK     A6   
//0004ea 4e75                     RTS         
}



// *********************************************************
//
// *********************************************************
void PrintDialogText(pnt P1,i32 P2,i32 P3,i32 P4)
{
  dReg D0, D1;
  i8 b_40[40];
//;;;;;;;;;;;;;;;;;;
//0004ec 4e56 ffd8                LINK     A6,#-40   
//0004f0 604e                     BRA      $+80 (=0x000540)   
  while (P1 != NULL)
  {
//0004f2 3f3c 000a                MOVE.W   #10,-(A7)   
//0004f6 486e ffd8                PEA      -40(A6)   
//0004fa 2f2e 0008                MOVE.L   8(A6),-(A7)   
//0004fe 4eba ff72                JSR      $-140 (=0x000472)   
//000502 4fef 000a                LEA      10(A7),A7   
//000506 2d40 0008                MOVE.L   D0,8(A6)   
    P1 = GetSubString(P1, b_40, 10);
//00050a 486e ffd8                PEA      -40(A6)   
//00050e 4ead 0182                JSR      386(A5)    (=0x0065bc)
//000512 588f                     ADDQ.L   #4,A7   
    D0W = StrLen(b_40);
//000514 c1fc 0006                MULS     #6,D0   
//000518 e240                     ASR.W    #1,D0   
    D0W = sw(6 * D0W / 2);
//00051a 322e 000c                MOVE.W   12(A6),D1   
//00051e 9240                     SUB.W    D0,D1   
    D1W = sw(P2 - D0W);
//000520 486e ffd8                PEA      -40(A6)   
//000524 3f3c 000c                MOVE.W   #12,-(A7)   
//000528 3f2e 0010                MOVE.W   16(A6),-(A7)   
//00052c 3f2e 000e                MOVE.W   14(A6),-(A7)   
//000530 3f01                     MOVE.W   D1,-(A7)   
//000532 4eba 4942                JSR      $+18756 (=0x004e76)   
//000536 4fef 000c                LEA      12(A7),A7   
    TextToScreen(D1W, P3, P4, 12, b_40);
//00053a 066e 000d 000e           ADD.W    #13,14(A6)   
    P3 += 13;
//
//000540 4aae 0008                TST.L    8(A6)   
//000544 66ac                     BNE      $-82 (=0x0004f2)   
  };
//000546 4e5e                     UNLK     A6   
//000548 4e75                     RTS         
}

// *********************************************************
//
// *********************************************************
void TAG00054a(void)
{
//;;;;;;;;;;;;;;
//00054a 4a6d a49a                TST.W    -23398(A5)   
//00054e 6736                     BEQ      $+56 (=0x000586)   
  if (e.Word23398 == 0) return;
//000550 426d a49a                CLR.W    -23398(A5)   
  e.Word23398 = 0;
//000554 3f3c ffff                MOVE.W   #65535,-(A7)   
//000558 3f3c 00a0                MOVE.W   #160,-(A7)   
//00055c 3f3c 0068                MOVE.W   #104,-(A7)   
//000560 4267                     CLR.W    -(A7)   
//000562 4267                     CLR.W    -(A7)   
//000564 486d a492                PEA      -23406(A5)   
//000568 2f2d e08c                MOVE.L   -8052(A5),-(A7)   
//00056c 486d a49e                PEA      -23394(A5)   
//000570 4ead 0112                JSR      274(A5)    (=0x006892=TAG0088b2)
//000574 4fef 0016                LEA      22(A7),A7   
  TAG0088b2(e.Byte23394, //src
            e.PhysicalBase, //dest
            (RectPos *)&rectPos23406,   //dest position
            0,
            0,
            104,
            160,
            -1);
//000578 4a6d a49c                TST.W    -23396(A5)   
//00057c 6708                     BEQ      $+10 (=0x000586)   
  if (e.Word23396 != 0) e.Word23396--;
//00057e 536d a49c                SUBQ.W   #1,-23396(A5)   
//000582 4eba 2ce0                JSR      $+11490 (=0x003264)   
  TAG003264();
//000586 4e75                     RTS         
}

// *********************************************************
//
// *********************************************************
//          TAG000588
RESTARTABLE _UtilityDialogBox(const pnt P1, const i32 p2, const pnt p3, S12406 *P4)
{ //(i16)
  // Generic Diaog Box??
  static dReg D4, D5, D6;
  static DlgButton *sA4;
  static i8 b_78[50];
  static S12406 *pS12406_28[6];
  static S12406 **ppS12406_4;
  static i32 P2;
  static pnt P3;
  RESTARTMAP
    RESTART(1)
    RESTART(2)
  END_RESTARTMAP
  P2 = p2;
  P3 = p3;
//;;;;;;;;;;;;;;;;;;;;
//000588 4e56 ffb2                LINK     A6,#-78   
//00058c 48e7 0f08                MOVEM.L  D4567A4,-(A7)   
//000590 4878 0018                PEA      24   
//000594 486e ffe4                PEA      -28(A6)   
//000598 4ead 012a                JSR      298(A5)    (=0x0086a8)
//00059c 508f                     ADDQ.L   #0,A7   
  ClearMemory((pnt)pS12406_28, 24);
//00059e 2d6e 0012 ffe4           MOVE.L   18(A6),-28(A6)   
  pS12406_28[0] = P4;
//0005a4 303c 8000                MOVE.W   #32768,D0   
//0005a8 c06e 000c                AND.W    12(A6),D0   
//0005ac 3800                     MOVE.W   D0,D4   
  D4W = uw(P2 & 0x8000);
//0005ae 026e 7fff 000c           AND.W    #32767,12(A6)   
  P2 &= 0x7fff;
//0005b4 4a6d a49c                TST.W    -23396(A5)   
//0005b8 6608                     BNE      $+10 (=0x0005c2)   
  if (e.Word23396 == 0)
  {
//0005ba 526d a49c                ADDQ.W   #1,-23396(A5)   
    e.Word23396++;
//0005be 4eba 2c8c                JSR      $+11406 (=0x00324c)   
    TAG00324c();
  };
//0005c2 4a6d a49a                TST.W    -23398(A5)   
//0005c6 662e                     BNE      $+48 (=0x0005f6)   
  if (e.Word23398 == 0)
  {
//0005c8 7001                     MOVEQ.L  #1,D0   
//0005ca 3b40 a49a                MOVE.W   D0,-23398(A5)   
    e.Word23398 = 1;
//0005ce 3f3c ffff                MOVE.W   #65535,-(A7)   
//0005d2 3f3c 0068                MOVE.W   #104,-(A7)   
//0005d6 3f3c 00a0                MOVE.W   #160,-(A7)   
//0005da 3f3c 0030                MOVE.W   #48,-(A7)   
//0005de 3f3c 003e                MOVE.W   #62,-(A7)   
//0005e2 486d a48a                PEA      -23414(A5)   
//0005e6 486d a49e                PEA      -23394(A5)   
//0005ea 2f2d e08c                MOVE.L   -8052(A5),-(A7)   
//0005ee 4ead 0112                JSR      274(A5)    (=0x006892)
//0005f2 4fef 0016                LEA      22(A7),A7   
    TAG0088b2(e.PhysicalBase, //src
              e.Byte23394,   //dst
              (RectPos *)&rectPos23414,  //dstPos
              62,             //srcOffsetX
              48,             //srcOffsetY
              160,            //srcByteWidth
              104,            //dstByteWidth
              -1);            //P8
  };
//0005f6 3f3c 000c                MOVE.W   #12,-(A7)   
//0005fa 3f3c 000f                MOVE.W   #15,-(A7)   
//0005fe 3f3c fffe                MOVE.W   #65534,-(A7)   
//000602 486d a492                PEA      -23406(A5)   
//000606 4eba 2fc4                JSR      $+12230 (=0x0035cc)   
//00060a 4fef 000a                LEA      10(A7),A7   
  DrawDialogBoxOutline(&rectPos23406, -2, 15, 12);
//00060e 3f2e 000c                MOVE.W   12(A6),-(A7)   
//000612 3f3c 0041                MOVE.W   #65,-(A7)   
//000616 3f3c 009f                MOVE.W   #159,-(A7)   
//00061a 2f2e 0008                MOVE.L   8(A6),-(A7)   
//00061e 4eba fecc                JSR      $-306 (=0x0004ec)   
//000622 4fef 000a                LEA      10(A7),A7   
  PrintDialogText(P1, 159, 65, P2);
//000626 4aae 0012                TST.L    18(A6)   
//00062a 6700 00b0                BEQ      $+178 (=0x0006dc)   
  if (P4 == 0) RETURN_i16(0);
//00062e 7a00                     MOVEQ.L  #0,D5   
//000630 206e 0012                MOVE.L   18(A6),A0   
//000634 2868 0002                MOVE.L   2(A0),A4   
//000638 6030                     BRA      $+50 (=0x00066a)   
  for (D5L=0,sA4=P4->pDlgButton2;
       (sA4->byte0!=0)&&(P3!=0);
       D5W++, sA4 ++)
  {
//00063a 3f3c 000a                MOVE.W   #10,-(A7)   
//00063e 486e ffb2                PEA      -78(A6)   
//000642 2f2e 000e                MOVE.L   14(A6),-(A7)   
//000646 4eba fe2a                JSR      $-468 (=0x000472)   
//00064a 4fef 000a                LEA      10(A7),A7   
//00064e 2d40 000e                MOVE.L   D0,14(A6)   
    P3 = GetSubString(P3, b_78, 10);
//000652 3f3c 0002                MOVE.W   #2,-(A7)   
//000656 486e ffb2                PEA      -78(A6)   
//00065a 2f0c                     MOVE.L   A4,-(A7)   
//00065c 4eba 3202                JSR      $+12804 (=0x003860)   
    AddDialogButton(sA4, b_78, 2);
//000660 4fef 000a                LEA      10(A7),A7   
//
//000664 5245                     ADDQ.W   #1,D5   
//000666 49ec 000c                LEA      12(A4),A4   
//
//00066a 7000                     MOVEQ.L  #0,D0   
//00066c 1014                     MOVE.B   (A4),D0   
//00066e 4a40                     TST.W    D0   
//000670 6706                     BEQ      $+8 (=0x000678)   
//000672 4aae 000e                TST.L    14(A6)   
//000676 66c2                     BNE      $-60 (=0x00063a)   
  };
//000678 486e ffe4                PEA      -28(A6)   
//00067c 4eba 2982                JSR      $+10628 (=0x003000)   
//000680 588f                     ADDQ.L   #4,A7   
//000682 2d40 fffc                MOVE.L   D0,-4(A6)   
  ppS12406_4 = SetActiveDialog(pS12406_28);// save old value
//000686 4eba 2bdc                JSR      $+11230 (=0x003264)   
  TAG003264();
  do 
  {
//00068a 486d cfd0                PEA      -12336(A5)   
//00068e 4eba 298c                JSR      $+10638 (=0x00301c)   
//000692 588f                     ADDQ.L   #4,A7   
//000694 3c00                     MOVE.W   D0,D6   
    TAG00301c(_1_,e.Byte12336);
    D6W = i16Result;
//000696 4a40                     TST.W    D0   
//000698 67f0                     BEQ      $-14 (=0x00068a)   
  } while (D6W == 0);
//00069a 4eba 2bb0                JSR      $+11186 (=0x00324c)   
  TAG00324c();
//00069e 4a44                     TST.W    D4   
//0006a0 672a                     BEQ      $+44 (=0x0006cc)   
  if (D4W != 0)
  {
//0006a2 303c 00ff                MOVE.W   #255,D0   
//0006a6 c046                     AND.W    D6,D0   
//0006a8 b045                     CMP.W    D5,D0   
//0006aa 6224                     BHI      $+38 (=0x0006d0)   
    if ( (D6W & 255) <= D5W )
    {
//0006ac 303c 00ff                MOVE.W   #255,D0   
//0006b0 c046                     AND.W    D6,D0   
//0006b2 206e 0012                MOVE.L   18(A6),A0   
//0006b6 5340                     SUBQ.W   #1,D0   
//0006b8 c0fc 000c                MULU     #12,D0   
//0006bc d0a8 0002                ADD.L    2(A0),D0   
//0006c0 5480                     ADDQ.L   #2,D0   
//0006c2 2f00                     MOVE.L   D0,-(A7)   
//0006c4 4eba 2e66                JSR      $+11880 (=0x00352c)   
//0006c8 588f                     ADDQ.L   #4,A7   
      TAG00352c(_2_, &P4->pDlgButton2[D6W-1].rectPos2);
    };
//0006ca 6004                     BRA      $+6 (=0x0006d0)   
  }
  else
  {
//0006cc 4eba fe7c                JSR      $-386 (=0x00054a)   
    TAG00054a();
  };
//0006d0 2f2e fffc                MOVE.L   -4(A6),-(A7)   
//0006d4 4eba 292a                JSR      $+10540 (=0x003000)   
//0006d8 588f                     ADDQ.L   #4,A7   
  SetActiveDialog(ppS12406_4);
//0006da 3006                     MOVE.W   D6,D0   
//0006dc 4cdf 10f0                MOVEM.L  (A7)+,D4567A4   
//0006e0 4e5e                     UNLK     A6   
//0006e2 4e75                     RTS         
  RETURN_i16(D6W);
}

void TAG0006e4(void)
{
//;;;;;;;;;;;;;;;;;;;;;;;;;;;
//0006e4 48e7 0300                MOVEM.L  D67,-(A7)   
//0006e8 42a7                     CLR.L    -(A7)   
//0006ea 3f3c 0020                MOVE.W   #32,-(A7)   
//0006ee 4ead 009a                JSR      154(A5)    (=0x005c66=Trap #1)
//0006f2 5c8f                     ADDQ.L   #6,A7   
  SetSupervisorMode();
//0006f4 2c00                     MOVE.L   D0,D6   
//0006f6 3e38 04a6                MOVE.W   1190,D7   
//0006fa 41fa 0008                LEA      $+10 (=0x000704),A0   
//0006fe 21c8 0404                MOVE.L   A0,1028   
  // SetCriticalErrorHandler();
//000702 6004                     BRA      $+6 (=0x000708)   
//000704 70ff                     MOVEQ.L  #-1,D0    nmqe 
//000706 4e75                     RTS         
//000708 2f06                     MOVE.L   D6,-(A7)   
//00070a 3f3c 0020                MOVE.W   #32,-(A7)   
//00070e 4ead 009a                JSR      154(A5)    (=0x005c66=Trap #1)
//000712 5c8f                     ADDQ.L   #6,A7   
  ClearSupervisorMode();
//000714 0c47 0002                CMP.W    #2,D7   
//000718 4e71                     NOP         
//00071a 7001                     MOVEQ.L  #1,D0   
//00071c 3b40 d05c                MOVE.W   D0,-12196(A5)   
  e.Word12196 = 1;
//000720 6038                     BRA      $+58 (=0x00075a)   
//000722 7001                     MOVEQ.L  #1,D0   
//000724 3b40 d060                MOVE.W   D0,-12192(A5)   
//000728 206d d042                MOVE.L   -12222(A5),A0   
//00072c 7041                     MOVEQ.L  #65,D0   
//00072e 1140 0006                MOVE.B   D0,6(A0)   
//000732 206d d02a                MOVE.L   -12246(A5),A0   
//000736 7041                     MOVEQ.L  #65,D0   
//000738 1080                     MOVE.B   D0,(A0)   
//00073a 206d d02e                MOVE.L   -12242(A5),A0   
//00073e 7041                     MOVEQ.L  #65,D0   
//000740 1080                     MOVE.B   D0,(A0)   
//000742 206d d032                MOVE.L   -12238(A5),A0   
//000746 7041                     MOVEQ.L  #65,D0   
//000748 1080                     MOVE.B   D0,(A0)   
//00074a 206d d036                MOVE.L   -12234(A5),A0   
//00074e 7041                     MOVEQ.L  #65,D0   
//000750 1080                     MOVE.B   D0,(A0)   
//000752 206d d046                MOVE.L   -12218(A5),A0   
//000756 7041                     MOVEQ.L  #65,D0   
//000758 1080                     MOVE.B   D0,(A0)   
//00075a 4cdf 00c0                MOVEM.L  (A7)+,D67   
//00075e 4e75                     RTS         
}

// *********************************************************
//
// *********************************************************
i16 TAG000952(void)
{
//;;;;;;;;;;;;
//000952 4e56 fffe                LINK     A6,#-2   
//000956 7001                     MOVEQ.L  #1,D0   
//000958 3d40 fffe                MOVE.W   D0,-2(A6)   
//00095c 603a                     BRA      $+60 (=0x000998)   

//00095e 4a6e fffe                TST.W    -2(A6)   
//000962 6618                     BNE      $+26 (=0x00097c)   
//000964 486d cf8a                PEA      -12406(A5)   
//000968 2f2d ce8e                MOVE.L   -12658(A5),-(A7)   
//00096c 3f3c 8008                MOVE.W   #32776,-(A7)   
//000970 2f2d ce76                MOVE.L   -12682(A5),-(A7)   
//000974 4eba fc12                JSR      $-1004 (=0x000588)   
//000978 4fef 000e                LEA      14(A7),A7   
//00097c 426e fffe                CLR.W    -2(A6)   
//000980 486d cf8a                PEA      -12406(A5)   
//000984 2f2d ce8e                MOVE.L   -12658(A5),-(A7)   
//000988 3f3c 800f                MOVE.W   #32783,-(A7)   
//00098c 2f2d ce62                MOVE.L   -12702(A5),-(A7)   
//000990 4eba fbf6                JSR      $-1032 (=0x000588)   
//000994 4fef 000e                LEA      14(A7),A7   

//000998 4267                     CLR.W    -(A7)   
//00099a 4eba ff40                JSR      $-190 (=0x0008dc)   
//00099e 548f                     ADDQ.L   #2,A7   
  TAG0008dc(0);
//0009a0 303c 0001                MOVE.W   #1,D0   
  return 1;
//0009a4 4e5e                     UNLK     A6   
//0009a6 4e75                     RTS         
}

// *********************************************************
//
// *********************************************************
void TAG0009a8(void)
{
  NotImplemented(0x9a8);
}

// *********************************************************
//
// *********************************************************
//  TAG000aee
i16 ReadGameFile(pnt buf, i32 len)
{
  dReg D0, D7;
//;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
//000aee 4e56 0000                LINK     A6,#0   
//000af2 2f07                     MOVE.L   D7,-(A7)   
//000af4 7000                     MOVEQ.L  #0,D0   
//000af6 302e 000c                MOVE.W   12(A6),D0   
//000afa 2e00                     MOVE.L   D0,D7   
  D7L = len;
//000afc 4a80                     TST.L    D0   
//000afe 6604                     BNE      $+6 (=0x000b04)   
  if (D7L == 0) return 1;
//000b00 7001                     MOVEQ.L  #1,D0   
//000b02 601e                     BRA      $+32 (=0x000b22)   
//000b04 2f2e 0008                MOVE.L   8(A6),-(A7)   
//000b08 2f07                     MOVE.L   D7,-(A7)   
//000b0a 3f2d d05e                MOVE.W   -12194(A5),-(A7)   
//000b0e 3f3c 003f                MOVE.W   #63,-(A7)   
//000b12 4ead 009a                JSR      154(A5)    (=0x005c66=Trap #1)
//000b16 4fef 000c                LEA      12(A7),A7   
  D0L = READ(e.GameFile, D7L, buf);
//000b1a b087                     CMP.L    D7,D0   
//000b1c 57c0                     SEQ      D0   
  if (D7L == D0L) return 1;
  return 0;
//000b1e 4400                     NEG.B    D0   
//000b20 4880                     EXT.W    D0   
//000b22 2e1f                     MOVE.L   (A7)+,D7   
//000b24 4e5e                     UNLK     A6   
//000b26 4e75                     RTS         
}

// *********************************************************
//
// *********************************************************
//  TAG000b28
i16 WriteGameFile(pnt buf, i16 size)
{
  dReg D0, D7;
//;;;;;;;;;;;;;;;;;;;
//000b28 4e56 0000                LINK     A6,#0   
//000b2c 2f07                     MOVE.L   D7,-(A7)   
//000b2e 7000                     MOVEQ.L  #0,D0   
//000b30 302e 000c                MOVE.W   12(A6),D0   
//000b34 2e00                     MOVE.L   D0,D7   
  D7L = size;
//000b36 4a80                     TST.L    D0   
//000b38 6604                     BNE      $+6 (=0x000b3e)   
//000b3a 7001                     MOVEQ.L  #1,D0   
//000b3c 601e                     BRA      $+32 (=0x000b5c)   
  if (D7L == 0) return 1;
//000b3e 2f2e 0008                MOVE.L   8(A6),-(A7)   
//000b42 2f07                     MOVE.L   D7,-(A7)   
//000b44 3f2d d05e                MOVE.W   -12194(A5),-(A7)   
//000b48 3f3c 0040                MOVE.W   #64,-(A7)   
//000b4c 4ead 009a                JSR      154(A5)    (=0x005c66=Trap #1)
//000b50 4fef 000c                LEA      12(A7),A7   
  D0L = WRITE(e.GameFile, D7L, buf);
//000b54 b087                     CMP.L    D7,D0   
//000b56 57c0                     SEQ      D0   
//000b58 4400                     NEG.B    D0   
//000b5a 4880                     EXT.W    D0   
  if (D0L == D7L) return 1;
  return 0;
//000b5c 2e1f                     MOVE.L   (A7)+,D7   
//000b5e 4e5e                     UNLK     A6   
//000b60 4e75                     RTS         
}

// *********************************************************
//
// *********************************************************
i16 TAG000b94(pnt buf, i16 initSum, i16 numword)
{
  return GenChecksum(buf, initSum, numword);
}

// *********************************************************
//
// *********************************************************
//    TAG000bc8
static i16 MyUnscrambleStream(pnt buf,
                            i32 size,
                            i16 initialHash,
                            i16 Checksum)
{
  dReg D0;
//;;;;
//000bc8 4e56 0000                LINK     A6,#0   
//000bcc 3f2e 000c                MOVE.W   12(A6),-(A7)   
//000bd0 2f2e 0008                MOVE.L   8(A6),-(A7)   
//000bd4 4eba ff18                JSR      $-230 (=0x000aee)   
//000bd8 5c8f                     ADDQ.L   #6,A7   
  D0W = ReadGameFile(buf, size);
//000bda 4a40                     TST.W    D0   
//000bdc 671c                     BEQ      $+30 (=0x000bfa)   
  if (D0W == 0) return 0; 
//000bde 302e 000c                MOVE.W   12(A6),D0   
//000be2 e248                     LSR.W    #1,D0   
//000be4 3f00                     MOVE.W   D0,-(A7)   
//000be6 3f2e 000e                MOVE.W   14(A6),-(A7)   
//000bea 2f2e 0008                MOVE.L   8(A6),-(A7)   
//000bee 4eba ff72                JSR      $-140 (=0x000b62=Unscramble)   
//000bf2 508f                     ADDQ.L   #0,A7   
  D0W = Unscramble(buf, initialHash, size/2);
//000bf4 b06e 0010                CMP.W    16(A6),D0   
//000bf8 6704                     BEQ      $+6 (=0x000bfe)   
  if (D0W != Checksum) return 0;
//000bfa 7000                     MOVEQ.L  #0,D0   
//000bfc 6002                     BRA      $+4 (=0x000c00)   
//000bfe 7001                     MOVEQ.L  #1,D0   
//000c00 4e5e                     UNLK     A6   
//000c02 4e75                     RTS         
  return 1;
}


// *********************************************************
//
// *********************************************************
//  TAG01d0ea
i16 MyWriteScrambled(pnt buf,
              i16 byteCount,
              ui16 initialHash,
              ui16 *checksum)
{
  dReg D0, D6, D7;
  aReg A3;
//;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
//01d0ea 4e56 0000                LINK     A6,#0   
//01d0ee 48e7 0310                MOVEM.L  D67A3,-(A7)   
//01d0f2 266e 0008                MOVE.L   8(A6),A3   
  A3 = buf;
//01d0f6 302e 000c                MOVE.W   12(A6),D0   
//01d0fa e248                     LSR.W    #1,D0   
//01d0fc 3c00                     MOVE.W   D0,D6   
  D6W = sw(byteCount/2);
//01d0fe 3f00                     MOVE.W   D0,-(A7)   
//01d100 3f2e 000e                MOVE.W   14(A6),-(A7)   
//01d104 2f0b                     MOVE.L   A3,-(A7)   
//01d106 4eba ff40                JSR      $-190 (=0x01d048)   
//01d10a 508f                     ADDQ.L   #0,A7   
  D0W = Unscramble(A3, initialHash, D6W);
//01d10c 206e 0010                MOVE.L   16(A6),A0   
//01d110 3080                     MOVE.W   D0,(A0)   
  *checksum = D0W;
//01d112 3f2e 000c                MOVE.W   12(A6),-(A7)   
//01d116 2f0b                     MOVE.L   A3,-(A7)   
//01d118 4eba feea                JSR      $-276 (=0x01d004)   
//01d11c 5c8f                     ADDQ.L   #6,A7   
//01d11e 3e00                     MOVE.W   D0,D7   
  D7W = WriteGameFile(A3, byteCount);
//01d120 3f06                     MOVE.W   D6,-(A7)   
//01d122 3f2e 000e                MOVE.W   14(A6),-(A7)   
//01d126 2f0b                     MOVE.L   A3,-(A7)   
//01d128 4eba ff1e                JSR      $-224 (=0x01d048)   
//01d12c 508f                     ADDQ.L   #0,A7   
  D0W = Unscramble(A3, initialHash, D6W);
//01d12e 3007                     MOVE.W   D7,D0   
  return D7W;
//01d130 4cdf 08c0                MOVEM.L  (A7)+,D67A3   
//01d134 4e5e                     UNLK     A6   
//01d136 4e75                     RTS         
}


// *********************************************************
//
// *********************************************************
i16 TAG000c52(pnt P1, i16 *P2, i32 P3)
{
  dReg D0, D6, D7;
  aReg A4;
  i16 *wA3;
//;;;;;;;
//000c52 4e56 0000                LINK     A6,#0   
//000c56 48e7 0318                MOVEM.L  D67A34,-(A7)   
//000c5a 286e 0008                MOVE.L   8(A6),A4   
  A4 = P1;
//000c5e 266e 000c                MOVE.L   12(A6),A3   
  wA3 = P2;
//000c62 3e2e 0010                MOVE.W   16(A6),D7   
  D7W = sw(P3);
//000c66 7c00                     MOVEQ.L  #0,D6   
  D6W = 0;
//000c68 3f07                     MOVE.W   D7,-(A7)   
//000c6a 2f0c                     MOVE.L   A4,-(A7)   
//000c6c 4eba fe80                JSR      $-382 (=0x000aee=ReadGameFile)   
//000c70 5c8f                     ADDQ.L   #6,A7   
  D0W = ReadGameFile(A4, D7W);
//000c72 4a40                     TST.W    D0   
//000c74 660e                     BNE      $+16 (=0x000c84)   
//000c76 7000                     MOVEQ.L  #0,D0   
//000c78 6016                     BRA      $+24 (=0x000c90)   
  if (D0W == 0) return 0;
  while ((D7W--) != 0)
  {
//000c7a 41d4                     LEA      (A4),A0   
//000c7c 528c                     ADDQ.L   #1,A4   
//000c7e 7000                     MOVEQ.L  #0,D0   
//000c80 1010                     MOVE.B   (A0),D0   
    D6W = (UI16)(D6W + ub(*(A4++)));
//000c82 dc40                     ADD.W    D0,D6   
//000c84 3007                     MOVE.W   D7,D0   
//000c86 5347                     SUBQ.W   #1,D7   
//000c88 4a40                     TST.W    D0   
//000c8a 66ee                     BNE      $-16 (=0x000c7a)   
  };
//000c8c dd53                     ADD.W    D6,(A3)   
  *wA3 = (UI16)(*wA3 + D6W);
//000c8e 7001                     MOVEQ.L  #1,D0   
//000c90 4cdf 18c0                MOVEM.L  (A7)+,D67A34   
//000c94 4e5e                     UNLK     A6   
//000c96 4e75                     RTS         
  return 1;
}

// *********************************************************
//
// *********************************************************
//  TAG000c98
i16 MyWriteAndChecksum(pnt P1, ui16 *P2, i32 P3)
{
  dReg D0, D6, D7;
  aReg A4;
  ui16 *uwA3;
//;;;;;;;;;;;;;;;;;;;;;;;;
//000c98 4e56 0000                LINK     A6,#0   
//000c9c 48e7 0318                MOVEM.L  D67A34,-(A7)   
//000ca0 286e 0008                MOVE.L   8(A6),A4   
  A4 = P1;
//000ca4 266e 000c                MOVE.L   12(A6),A3   
  uwA3 = P2;
//000ca8 3e2e 0010                MOVE.W   16(A6),D7   
  D7W = sw(P3);
//000cac 7c00                     MOVEQ.L  #0,D6   
  D6W = 0;
//000cae 3f07                     MOVE.W   D7,-(A7)   
//000cb0 2f0c                     MOVE.L   A4,-(A7)   
//000cb2 4eba fe74                JSR      $-394 (=0x000b28)   
//000cb6 5c8f                     ADDQ.L   #6,A7   
  D0W = WriteGameFile(A4, D7W);
//000cb8 4a40                     TST.W    D0   
//000cba 660e                     BNE      $+16 (=0x000cca)   
//000cbc 7000                     MOVEQ.L  #0,D0   
//000cbe 6016                     BRA      $+24 (=0x000cd6)   
  if (D0W == 0) return 0;
  while (D7W != 0)
  {
//000cc0 41d4                     LEA      (A4),A0   
//000cc2 528c                     ADDQ.L   #1,A4   
//000cc4 7000                     MOVEQ.L  #0,D0   
//000cc6 1010                     MOVE.B   (A0),D0   
//000cc8 dc40                     ADD.W    D0,D6   
    D6W = (UI16)(D6W + ub(*(A4++)));
//000cca 3007                     MOVE.W   D7,D0   

//000ccc 5347                     SUBQ.W   #1,D7   
    D7W--;
//000cce 4a40                     TST.W    D0   
//000cd0 66ee                     BNE      $-16 (=0x000cc0)   
  };
//000cd2 dd53                     ADD.W    D6,(A3)   
  *uwA3 = (UI16)(*uwA3 + D6W);
//000cd4 7001                     MOVEQ.L  #1,D0   
  return 1;
//000cd6 4cdf 18c0                MOVEM.L  (A7)+,D67A34   
//000cda 4e5e                     UNLK     A6   
//000cdc 4e75                     RTS         
}

// *********************************************************
//
// *********************************************************
//  TAG000cde
i16 ReadGameBlock1(pnt P1)
{
  dReg D0;
  aReg A4;
//;;;;;;;;;;;;;;;;;;;;;;
//000cde 4e56 0000                LINK     A6,#0   
//000ce2 48e7 0708                MOVEM.L  D567A4,-(A7)   
//000ce6 286e 0008                MOVE.L   8(A6),A4   
  A4 = P1;
//000cea 3f3c 0200                MOVE.W   #512,-(A7)   
//000cee 2f0c                     MOVE.L   A4,-(A7)   
//000cf0 4eba fdfc                JSR      $-514 (=0x000aee)   
//000cf4 5c8f                     ADDQ.L   #6,A7   
  D0W = ReadGameFile(A4, 512);
//000cf6 4a40                     TST.W    D0   
//000cf8 6604                     BNE      $+6 (=0x000cfe)   
  if (D0W == 0) return 0;
//000cfa 7000                     MOVEQ.L  #0,D0   
//000cfc 6002                     BRA      $+4 (=0x000d00)   
//000cfe 7001                     MOVEQ.L  #1,D0   
  return 1;
//000d00 4cdf 10e0                MOVEM.L  (A7)+,D567A4   
//000d04 4e5e                     UNLK     A6   
//000d06 4e75                     RTS         
}

// *********************************************************
//
// *********************************************************
//  TAG000d08
i16 UnscrambleBlock1(pnt P1,i16 P2)
{
  dReg D5, D6, D7;
  pnt A0, A4;
//;;;;;;;;;;;;;;;;;;;;;;;;;;
//000d08 4e56 0000                LINK     A6,#0   
//000d0c 48e7 0708                MOVEM.L  D567A4,-(A7)   
//000d10 286e 0008                MOVE.L   8(A6),A4   
  A4 = P1;
//000d14 7e20                     MOVEQ.L  #32,D7   
  D7L = 32;
//000d16 7c00                     MOVEQ.L  #0,D6   
  D6L = 0;
  do
  {
//000d18 41d4                     LEA      (A4),A0   
//000d1a 548c                     ADDQ.L   #2,A4   
//000d1c dc50                     ADD.W    (A0),D6   
    D6W = (UI16)(D6W + LE16(wordGear(A4)));
//000d1e 41d4                     LEA      (A4),A0   
//000d20 548c                     ADDQ.L   #2,A4   
//000d22 3010                     MOVE.W   (A0),D0   
//000d24 b146                     EOR.W    D0,D6   
    D6W ^= LE16(wordGear(A4+2));
//000d26 41d4                     LEA      (A4),A0   
//000d28 548c                     ADDQ.L   #2,A4   
//000d2a 9c50                     SUB.W    (A0),D6   
    D6W = (UI16)(D6W - LE16(wordGear(A4+4)));
//000d2c 41d4                     LEA      (A4),A0   
//000d2e 548c                     ADDQ.L   #2,A4   
//000d30 3010                     MOVE.W   (A0),D0   
//000d32 b146                     EOR.W    D0,D6   
    D6W = (UI16)(D6W ^ LE16(wordGear(A4+6)));
    A4 += 8;
    D7W--;
//000d34 5347                     SUBQ.W   #1,D7   
//000d36 4a47                     TST.W    D7   
//000d38 66de                     BNE      $-32 (=0x000d18)   
  } while (D7W != 0);
//000d3a 302e 000c                MOVE.W   12(A6),D0   
//000d3e 4840                     SWAP     D0   
//000d40 4240                     CLR.W    D0   
//000d42 4840                     SWAP     D0   
//000d44 d080                     ADD.L    D0,D0   
//000d46 d0ae 0008                ADD.L    8(A6),D0   
//000d4a 3f3c 0080                MOVE.W   #128,-(A7)   
//000d4e 2040                     MOVE.L   D0,A0   
//000d50 3f10                     MOVE.W   (A0),-(A7)   
//000d52 2f0c                     MOVE.L   A4,-(A7)   
//000d54 4eba fe0c                JSR      $-498 (=0x000b62=Unscramble)   
//000d58 508f                     ADDQ.L   #0,A7   
  Unscramble(A4, LE16(wordGear(P1 + 2*P2)), 128);
//000d5a 7a00                     MOVEQ.L  #0,D5   
  D5W = 0;
//000d5c 3e3c 0080                MOVE.W   #128,D7   
  D7W = 128;
  do
  {
//000d60 41d4                     LEA      (A4),A0   
  A0 = A4;
//000d62 548c                     ADDQ.L   #2,A4   
  A4 += 2;
//000d64 da50                     ADD.W    (A0),D5   
  D5W = (UI16)(D5W + LE16(wordGear(A0)));
//000d66 5347                     SUBQ.W   #1,D7   
  D7W--;
//000d68 4a47                     TST.W    D7   
//000d6a 66f4                     BNE      $-10 (=0x000d60)   
  } while (D7W != 0);
//000d6c bc45                     CMP.W    D5,D6   
//000d6e 57c0                     SEQ      D0   
//000d70 4400                     NEG.B    D0   
//000d72 4880                     EXT.W    D0   
  if (D5W == D6W) return 1;
  return 0;
//000d74 4cdf 10e0                MOVEM.L  (A7)+,D567A4   
//000d78 4e5e                     UNLK     A6   
//000d7a 4e75                     RTS         
}

// *********************************************************
//
// *********************************************************
//  TAG000d7c
i16 WriteFirstBlock(pnt buf, i16 offset)
{
  dReg D5, D6, D7;
  aReg A0, A4;
//;;;;;;;;;;;;;;;;;
//000d7c 4e56 fffc                LINK     A6,#-4   
//000d80 48e7 0708                MOVEM.L  D567A4,-(A7)   
//000d84 7a00                     MOVEQ.L  #0,D5   
  D5W = 0;
//000d86 3e3c 0080                MOVE.W   #128,D7   
  D7W = 128;
//000d8a 206e 0008                MOVE.L   8(A6),A0   
//000d8e 41e8 0100                LEA      256(A0),A0 
//000d92 2848                     MOVE.L   A0,A4   
  A4 = buf+256;  
  do
  {
//000d94 41d4                     LEA      (A4),A0   
//000d96 548c                     ADDQ.L   #2,A4   
//000d98 da50                     ADD.W    (A0),D5   
    D5W = (I16)(D5W + LE16(wordGear(A4))); // Second half-block checksum
    A4 += 2;
//000d9a 5347                     SUBQ.W   #1,D7   
    D7W--;
//000d9c 4a47                     TST.W    D7   
//000d9e 66f4                     BNE      $-10 (=0x000d94)   
  } while (D7W != 0);
//000da0 7e20                     MOVEQ.L  #32,D7   
  D7W = 32;
//000da2 7c00                     MOVEQ.L  #0,D6   
  D6W = 0;
//000da4 286e 0008                MOVE.L   8(A6),A4   
  A4 = buf;
  for (;;)
  { // 32 times 4 random 16-bit words = 256 bytes.
    // Except we skip the last word in the block.
//000da8 41d4                     LEA      (A4),A0   
//000daa 548c                     ADDQ.L   #2,A4   
//000dac 2d48 fffc                MOVE.L   A0,-4(A6)   
//000db0 4eba 1e66                JSR      $+7784 (=0x002c18)   Random
//000db4 206e fffc                MOVE.L   -4(A6),A0   
//000db8 3080                     MOVE.W   D0,(A0)   
    wordGear(A4) = 0; //(i16)STRandom();
//000dba dc40                     ADD.W    D0,D6   
    D6W = (UI16)(D6W + LE16(wordGear(A4)));
    A4 += 2;
//000dbc 41d4                     LEA      (A4),A0   
//000dbe 548c                     ADDQ.L   #2,A4   
//000dc0 2d48 fffc                MOVE.L   A0,-4(A6)   
//000dc4 4eba 1e52                JSR      $+7764 (=0x002c18)   
//000dc8 206e fffc                MOVE.L   -4(A6),A0   
//000dcc 3080                     MOVE.W   D0,(A0)   
    wordGear(A4) = 0; //(i16)STRandom();
//000dce b146                     EOR.W    D0,D6   
    D6W ^= LE16(wordGear(A4));
    A4 += 2;
//000dd0 41d4                     LEA      (A4),A0   
//000dd2 548c                     ADDQ.L   #2,A4   
//000dd4 2d48 fffc                MOVE.L   A0,-4(A6)   
//000dd8 4eba 1e3e                JSR      $+7744 (=0x002c18)   
//000ddc 206e fffc                MOVE.L   -4(A6),A0   
//000de0 3080                     MOVE.W   D0,(A0)   
    wordGear(A4) = 0; //(i16)STRandom();
//000de2 9c40                     SUB.W    D0,D6   
    D6W = (UI16)(D6W - LE16(wordGear(A4)));
    A4 += 2;
//000de4 5347                     SUBQ.W   #1,D7   
    D7W--;
//000de6 4a47                     TST.W    D7   
//000de8 6716                     BEQ      $+24 (=0x000e00)   
    if (D7W == 0) break;
//000dea 41d4                     LEA      (A4),A0   
//000dec 548c                     ADDQ.L   #2,A4   
//000dee 2d48 fffc                MOVE.L   A0,-4(A6)   
//000df2 4eba 1e24                JSR      $+7718 (=0x002c18)   
//000df6 206e fffc                MOVE.L   -4(A6),A0   
//000dfa 3080                     MOVE.W   D0,(A0)   
    wordGear(A4) = 0; //(i16)STRandom();
//000dfc b146                     EOR.W    D0,D6   
    D6W ^= LE16(wordGear(A4));
    A4 += 2;
//000dfe 60a8                     BRA      $-86 (=0x000da8)   
  } ;
//000e00 41d4                     LEA      (A4),A0   
//000e02 548c                     ADDQ.L   #2,A4   
//000e04 3006                     MOVE.W   D6,D0   
//000e06 bb40                     EOR.W    D5,D0   
//000e08 3080                     MOVE.W   D0,(A0)   
  wordGear(A4) = LE16(D6W ^ D5W);
  A4 += 2;
//000e0a 302e 000c                MOVE.W   12(A6),D0   
//000e0e 4840                     SWAP     D0   
//000e10 4240                     CLR.W    D0   
//000e12 4840                     SWAP     D0   
//000e14 d080                     ADD.L    D0,D0   
//000e16 d0ae 0008                ADD.L    8(A6),D0   
//000e1a 3f3c 0080                MOVE.W   #128,-(A7)   
//000e1e 2040                     MOVE.L   D0,A0   
  A0 = buf + 2*offset;
//000e20 3f10                     MOVE.W   (A0),-(A7)   
//000e22 2f0c                     MOVE.L   A4,-(A7)   
//000e24 4eba fd3c                JSR      $-706 (=0x000b62=Unscramble)   
//000e28 508f                     ADDQ.L   #0,A7   
  Unscramble(A4, LE16(wordGear(A0)), 128);
//000e2a 3f3c 0200                MOVE.W   #512,-(A7)   
//000e2e 2f2e 0008                MOVE.L   8(A6),-(A7)   
//000e32 4eba fcf4                JSR      $-778 (=0x000b28)   
//000e36 5c8f                     ADDQ.L   #6,A7   
//000e38 3e00                     MOVE.W   D0,D7   
  D7W = WriteGameFile(buf, 512);
//000e3a 302e 000c                MOVE.W   12(A6),D0   
//000e3e 4840                     SWAP     D0   
//000e40 4240                     CLR.W    D0   
//000e42 4840                     SWAP     D0   
//000e44 d080                     ADD.L    D0,D0   
//000e46 d0ae 0008                ADD.L    8(A6),D0   
//000e4a 3f3c 0080                MOVE.W   #128,-(A7)   
//000e4e 2040                     MOVE.L   D0,A0   
  A0 = buf + 2*offset;
//000e50 3f10                     MOVE.W   (A0),-(A7)   
//000e52 2f0c                     MOVE.L   A4,-(A7)   
//000e54 4eba fd0c                JSR      $-754 (=0x000b62=Unscramble)   
//000e58 508f                     ADDQ.L   #0,A7   
  Unscramble(A4, LE16(wordGear(A0)), 128);
//000e5a 3007                     MOVE.W   D7,D0   
  return D7W;
//000e5c 4cdf 10e0                MOVEM.L  (A7)+,D567A4   
//000e60 4e5e                     UNLK     A6   
//000e62 4e75                     RTS         

}

// *********************************************************
//
// *********************************************************
i16 TAG0008dc(i16)
{
  return 1;
}

// *********************************************************
//
// *********************************************************
//  TAG000e64
RESTARTABLE _CheckChampionNames(void)
{//(i16)
  static dReg D0, D6, D7;
  static aReg A0, A4;
  RESTARTMAP
    RESTART(1)
  END_RESTARTMAP
//;;;;;;;;;;;;;;;;;;;;;;
//000e64 48e7 0308                MOVEM.L  D67A4,-(A7)   
//000e68 7e00                     MOVEQ.L  #0,D7   
//000e6a 6000 0064                BRA      $+102 (=0x000ed0)   
  for (D7L=0; D7W<e.Word24814; D7W++)
  {
//000e6e 3007                     MOVE.W   D7,D0   
//000e70 c1fc 0320                MULS     #800,D0   
//000e74 d0ad 9f14                ADD.L    -24812(A5),D0   
//000e78 0680 0000 0304           ADD.L    #772,D0   
//000e7e 2840                     MOVE.L   D0,A4   
    A4 = e.Pnt24812 + 800*D7W + 772;
//000e80 4a14                     TST.B    (A4)   
//000e82 661c                     BNE      $+30 (=0x000ea0)   
    if (A4[0] == 0)
    {
tag000e84:
//000e84 486d cf8a                PEA      -12406(A5)   
//000e88 2f2d ce8e                MOVE.L   -12658(A5),-(A7)   
//000e8c 3f3c 0008                MOVE.W   #8,-(A7)   
//000e90 2f2d ce5e                MOVE.L   -12706(A5),-(A7)   
//000e94 4eba f6f2                JSR      $-2316 (=0x000588)   
//000e98 4fef 000e                LEA      14(A7),A7   
      UtilityDialogBox(_1_,UtilityDiskMessages[20],8,UtilityDiskMessages[32],s12406);
//000e9c 7000                     MOVEQ.L  #0,D0   
//000e9e 6038                     BRA      $+58 (=0x000ed8)   
      RETURN_i16(0);
    };
//000ea0 3007                     MOVE.W   D7,D0   
//000ea2 5240                     ADDQ.W   #1,D0   
//000ea4 3c00                     MOVE.W   D0,D6   
//000ea6 6020                     BRA      $+34 (=0x000ec8)   
    for (D6W=sw(D7W+1); D6W<e.Word24814; D6W++)
    {
//000ea8 3006                     MOVE.W   D6,D0   
//000eaa c1fc 0320                MULS     #800,D0   
//000eae d0ad 9f14                ADD.L    -24812(A5),D0   
//000eb2 0680 0000 0304           ADD.L    #772,D0   
      A0 = e.Pnt24812 + 800*D6W +772;
//000eb8 2f00                     MOVE.L   D0,-(A7)   
//000eba 2f0c                     MOVE.L   A4,-(A7)   
//000ebc 4ead 016a                JSR      362(A5)    (=0x00654e=strcmp)
//000ec0 508f                     ADDQ.L   #0,A7   
      D0W = sw(strcmp(A4, A0));
//000ec2 4a40                     TST.W    D0   
//000ec4 67be                     BEQ      $-64 (=0x000e84)   
      if (D0W == 0) goto tag000e84;
//
//000ec6 5246                     ADDQ.W   #1,D6   
//
//000ec8 bc6d 9f12                CMP.W    -24814(A5),D6   
//000ecc 6dda                     BLT      $-36 (=0x000ea8)   
    };
//000ece 5247                     ADDQ.W   #1,D7   
//
//000ed0 be6d 9f12                CMP.W    -24814(A5),D7   
//000ed4 6d98                     BLT      $-102 (=0x000e6e)   
  };
//000ed6 7001                     MOVEQ.L  #1,D0   
  RETURN_i16(1);
//000ed8 4cdf 10c0                MOVEM.L  (A7)+,D67A4   
//000edc 4e75                     RTS         
}

// *********************************************************
//
// *********************************************************
RESTARTABLE _TAG000ede(const i32 P1, pnt P2)
{//(i16)
  static dReg D0;
  static aReg A0;
  static i16 w_2;
  RESTARTMAP
    RESTART(1)
    RESTART(2)
    RESTART(3)
    RESTART(4)
  END_RESTARTMAP
//;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
//000ede 4e56 fffe                LINK     A6,#-2   
  do
  {
    for (;;)
    {
//000ee2 4a6e 0008                TST.W    8(A6)   
//000ee6 661e                     BNE      $+32 (=0x000f06)   
      if (P1 == 0)
      {
//000ee8 486d cfb4                PEA      -12364(A5)   
//000eec 2f2d ce9a                MOVE.L   -12646(A5),-(A7)   
//000ef0 3f3c 800f                MOVE.W   #32783,-(A7)   
//000ef4 2f2d ce16                MOVE.L   -12778(A5),-(A7)   
//000ef8 4eba f68e                JSR      $-2416 (=0x000588)   
//000efc 4fef 000e                LEA      14(A7),A7   
        UtilityDialogBox(_1_,
                  UtilityDiskMessages[2], 
                  (unsigned)0x800f, 
                  UtilityDiskMessages[35], 
                  &s12406[3]);
        D0W = i16Result;
//000f00 3d40 fffe                MOVE.W   D0,-2(A6)   
        w_2 = D0W;
//000f04 602c                     BRA      $+46 (=0x000f32)   
      }
      else
      {
//000f06 0c6e 0001 0008           CMP.W    #1,8(A6)   
//000f0c 6606                     BNE      $+8 (=0x000f14)   
        if (P1 == 1)
        {
//000f0e 202d ce0e                MOVE.L   -12786(A5),D0   
          A0 = UtilityDiskMessages[0];
//000f12 6004                     BRA      $+6 (=0x000f18)   
        }
        else
        {
//000f14 202d ce12                MOVE.L   -12782(A5),D0   
          A0 = UtilityDiskMessages[1];
        };
//000f18 486d cfa6                PEA      -12378(A5)   
//000f1c 2f2d ce96                MOVE.L   -12650(A5),-(A7)   
//000f20 3f3c 800f                MOVE.W   #32783,-(A7)   
//000f24 2f00                     MOVE.L   D0,-(A7)   
//000f26 4eba f660                JSR      $-2462 (=0x000588)   
//000f2a 4fef 000e                LEA      14(A7),A7   
        UtilityDialogBox(_2_,
                  A0, 
                  (unsigned)0x800f,
                  UtilityDiskMessages[34],
                  &s12406[2]);
        D0W = i16Result;
//000f2e 3d40 fffe                MOVE.W   D0,-2(A6)   
        w_2 = D0W;
      };
//000f32 0c6e 0003 fffe           CMP.W    #3,-2(A6)   
//000f38 6606                     BNE      $+8 (=0x000f40)   
      if (w_2 == 3)
      {
//000f3a 7000                     MOVEQ.L  #0,D0   
//000f3c 6000 0082                BRA      $+132 (=0x000fc0)   
        RETURN_i16(0);
      };
//000f40 3f3c 0001                MOVE.W   #1,-(A7)   
//000f44 4eba f996                JSR      $-1640 (=0x0008dc)   
//000f48 548f                     ADDQ.L   #2,A7   
      D0W = TAG0008dc(1);
//000f4a 4a40                     TST.W    D0   
//000f4c 601c                     BRA      $+30 (=0x000f6a)   
//000f4e 486d cf8a                PEA      -12406(A5)   
//000f52 2f2d ce8e                MOVE.L   -12658(A5),-(A7)   
//000f56 3f3c 8008                MOVE.W   #32776,-(A7)   
//000f5a 2f2d ce7a                MOVE.L   -12678(A5),-(A7)   
//000f5e 4eba f628                JSR      $-2518 (=0x000588)   
//000f62 4fef 000e                LEA      14(A7),A7   
//000f66 6000 ff7a                BRA      $-132 (=0x000ee2)   

//000f6a 0c6e 0002 fffe           CMP.W    #2,-2(A6)   
//000f70 6608                     BNE      $+10 (=0x000f7a)   
      if (w_2 != 2) break;
//000f72 4eba fa34                JSR      $-1482 (=0x0009a8)   
      TAG0009a8();
//000f76 6000 ff6a                BRA      $-148 (=0x000ee2)   
    } ;
//000f7a 4267                     CLR.W    -(A7)   
//000f7c 2f2e 000a                MOVE.L   10(A6),-(A7)   
//000f80 3f3c 003d                MOVE.W   #61,-(A7)   
//000f84 4ead 009a                JSR      154(A5)    (=0x005c66=Trap #1)
//000f88 508f                     ADDQ.L   #0,A7   
	// ask to which game we want to write
	// inserted by LK
    UtilityDialogBox(_3_,
			UtilityDiskMessages[42],
			(unsigned)0x800f, 
			positions, 
			&fourbuttons[0]);

    strcpy(P2, filenames[i16Result - 1]);

	// end of insertion
    D0W = OPEN(P2, 0);
//000f8a 4a40                     TST.W    D0   
//000f8c 6d30                     BLT      $+50 (=0x000fbe)   
    if (D0W < 0) break;
//000f8e 0c6e 0001 0008           CMP.W    #1,8(A6)   
//000f94 6e06                     BGT      $+8 (=0x000f9c)   
    if (P1 <= 1)
    {
//000f96 202d ce26                MOVE.L   -12762(A5),D0   
      A0 = UtilityDiskMessages[6];
//000f9a 6004                     BRA      $+6 (=0x000fa0)   
    }
    else
    {
//000f9c 202d ce2e                MOVE.L   -12754(A5),D0   
      A0 = UtilityDiskMessages[8];
    };

//000fa0 486d cf98                PEA      -12392(A5)   
//000fa4 2f2d ce9e                MOVE.L   -12642(A5),-(A7)   
//000fa8 3f3c 8008                MOVE.W   #32776,-(A7)   
//000fac 2f00                     MOVE.L   D0,-(A7)   
//000fae 4eba f5d8                JSR      $-2598 (=0x000588)   
//000fb2 4fef 000e                LEA      14(A7),A7   
    UtilityDialogBox(_4_,
              A0, 
              (unsigned)0x8008,
              UtilityDiskMessages[36],
              &s12406[1]);
    D0W = i16Result;
//000fb6 0c40 0001                CMP.W    #1,D0   
//000fba 6600 ff26                BNE      $-216 (=0x000ee2)   
  } while (D0W != 1);
//000fbe 7001                     MOVEQ.L  #1,D0   
  RETURN_i16(1);
//000fc0 4e5e                     UNLK     A6   
//000fc2 4e75                     RTS         
}

// *********************************************************
//
// *********************************************************
RESTARTABLE _TAG000fc4(const i32 P1)
{//(void)
  static dReg D0, D1, D3, D7;
  static pnt  pD0, pD1, pD2;
  static aReg A0, A1, A4;
  static ui16  *uwA3;
  static pnt  pnt_116;
  static pnt  pnt_112;
  static pnt  pnt_108;
  static pnt  pnt_104;
  static i8   b_100[96];
  static ui16 uw_4;
  static ui16 uw_2;
  RESTARTMAP
    RESTART(1)
    RESTART(2)
    RESTART(3)
    RESTART(4)
  END_RESTARTMAP
//;;;This is only function that calls 'MyWriteScrambled'
//;;; and this function is called from two places
//000fc4 4e56 ff8c                LINK     A6,#-116   
//000fc8 48e7 1118                MOVEM.L  D37A34,-(A7)   
//000fcc 302e 0008                MOVE.W   8(A6),D0   
//000fd0 c1fc 1010                MULS     #4112,D0   
//000fd4 d0ad 9f14                ADD.L    -24812(A5),D0   
//000fd8 2840                     MOVE.L   D0,A4   
  A4 = e.Pnt24812 + 4112*P1;
//000fda 206d 9f14                MOVE.L   -24812(A5),A0   
//000fde 4a50                     TST.W    (A0)   
//000fe0 6700 0382                BEQ      $+900 (=0x001364)   
  if (e.Pnt24812 == NULL) RETURN;
//000fe4 4a6d 9f12                TST.W    -24814(A5)   
//000fe8 6700 037a                BEQ      $+892 (=0x001364)   
  if (e.Word24814 == 0) RETURN;
//000fec 4eba fe76                JSR      $-392 (=0x000e64)   
  CheckChampionNames(_1_);
  D0W = i16Result;
//000ff0 4a40                     TST.W    D0   
//000ff2 6700 0370                BEQ      $+882 (=0x001364)   
  if (D0W == 0) RETURN;
//000ff6 7001                     MOVEQ.L  #1,D0   
//000ff8 906e 0008                SUB.W    8(A6),D0   
//000ffc 486c 0004                PEA      4(A4)   
//001000 3f00                     MOVE.W   D0,-(A7)   
//001002 4eba feda                JSR      $-292 (=0x000ede)   
//001006 5c8f                     ADDQ.L   #6,A7   
  TAG000ede(_2_,1-P1, A4+4);
  D0W = i16Result;
//001008 4a40                     TST.W    D0   
//00100a 6700 0350                BEQ      $+850 (=0x00135c)   
  if (D0W != 0)
  {
//00100e 4a6e 0008                TST.W    8(A6)   
//001012 6706                     BEQ      $+8 (=0x00101a)   
    if (P1 != 0)
    {
//001014 202d ce6a                MOVE.L   -12694(A5),D0   
      A0 = UtilityDiskMessages[23];
//001018 6004                     BRA      $+6 (=0x00101e)   
    }
    else
    {
//00101a 202d ce36                MOVE.L   -12746(A5),D0   
      A0 = UtilityDiskMessages[10];
    };
//00101e 42a7                     CLR.L    -(A7)   
//001020 42a7                     CLR.L    -(A7)   
//001022 3f3c 000f                MOVE.W   #15,-(A7)   
//001026 2f00                     MOVE.L   D0,-(A7)   
//001028 4eba f55e                JSR      $-2720 (=0x000588)   
//00102c 4fef 000e                LEA      14(A7),A7   
    UtilityDialogBox(_3_,A0, 15, 0, 0);
//001030 4267                     CLR.W    -(A7)   
//001032 486c 0004                PEA      4(A4)   
//001036 3f3c 003c                MOVE.W   #60,-(A7)   
//00103a 4ead 009a                JSR      154(A5)    (=0x005c66=Trap #1)
//00103e 508f                     ADDQ.L   #0,A7   
//001040 3b40 d05e                MOVE.W   D0,-12194(A5)   
    e.GameFile = CREATE(A4+4, 0);
//001044 4a40                     TST.W    D0   
//001046 6d00 02e0                BLT      $+738 (=0x001328)   
    if (e.GameFile < 0) goto tag001328;
//00104a 4878 0060                PEA      96   
//00104e 486e ff9c                PEA      -100(A6)   
//001052 4ead 012a                JSR      298(A5)    (=0x0086a8=ClearMemory)
//001056 508f                     ADDQ.L   #0,A7   
    ClearMemory(b_100, 96);
//001058 41ec 0226                LEA      550(A4),A0   
//00105c 2d48 ff9c                MOVE.L   A0,-100(A6)   
    pntGear(b_100) = A4+550;
//001060 3d7c 0080 ffa0           MOVE.W   #128,-96(A6)   
    wordGear(b_100+4) = 128;
//001066 2d6c 1004 ffa2           MOVE.L   4100(A4),-94(A6)   
    pntGear(b_100+6) = pntGear(A4+4100);
//00106c 302c 0254                MOVE.W   596(A4),D0   
//001070 e940                     ASL.W    #4,D0   
//001072 3d40 ffa6                MOVE.W   D0,-90(A6)   
    wordGear(b_100+10) = sw(16 * LE16(wordGear(A4+596)));
//001076 41ec 0304                LEA      772(A4),A0   
//00107a 2d48 ffa8                MOVE.L   A0,-88(A6)   
    pntGear(b_100+12) = A4+772;
//00107e 3d7c 0d00 ffac           MOVE.W   #3328,-84(A6)   
    wordGear(b_100+16) = 3328;
//001084 2d6c 1008 ffae           MOVE.L   4104(A4),-82(A6)   
    pntGear(b_100+18) = pntGear(A4+4104);
//00108a 302c 0242                MOVE.W   578(A4),D0   
//00108e c1fc 000a                MULS     #10,D0   
//001092 3d40 ffb2                MOVE.W   D0,-78(A6)   
    wordGear(b_100+22) = sw(10 * LE16(wordGear(A4+578)));
//001096 2d6c 100c ffb4           MOVE.L   4108(A4),-76(A6)   
    longGear(b_100+24) = longGear(A4+4108);
//00109c 302c 0242                MOVE.W   578(A4),D0   
//0010a0 d040                     ADD.W    D0,D0   
//0010a2 3d40 ffb8                MOVE.W   D0,-72(A6)   
    wordGear(b_100+28) = sw(2 * LE16(wordGear(A4+578)));
//0010a6 41ec 0026                LEA      38(A4),A0   
//0010aa 2d48 ff98                MOVE.L   A0,-104(A6)   
    pnt_104 = A4 + 38;
//0010ae 0c6c 0002 0002           CMP.W    #2,2(A4)   
//0010b4 6624                     BNE      $+38 (=0x0010da)   
    if (wordGear(A4+2) == 2)
    {
//0010b6 206e ff98                MOVE.L   -104(A6),A0   
//0010ba 41e8 0158                LEA      344(A0),A0   
//0010be 2d48 ff94                MOVE.L   A0,-108(A6)   
      pnt_108 = pnt_104 + 344;
//0010c2 206e ff98                MOVE.L   -104(A6),A0   
//0010c6 41e8 0138                LEA      312(A0),A0   
//0010ca 2d48 ff90                MOVE.L   A0,-112(A6)   
      pnt_112 = pnt_104 + 312;
//0010ce 206e ff98                MOVE.L   -104(A6),A0   
//0010d2 7002                     MOVEQ.L  #2,D0   
//0010d4 1140 012c                MOVE.B   D0,300(A0)   
      pnt_104[300] = 2;
//0010d8 6016                     BRA      $+24 (=0x0010f0)   
    }
    else
    {
//0010da 41ec 017c                LEA      380(A4),A0   
//0010de 2d48 ff94                MOVE.L   A0,-108(A6)   
      pnt_108 = A4 + 380;
//0010e2 41ec 015c                LEA      348(A4),A0   
//0010e6 2d48 ff90                MOVE.L   A0,-112(A6)   
      pnt_112 = A4 + 348;
//0010ea 7002                     MOVEQ.L  #2,D0   
//0010ec 1940 0150                MOVE.B   D0,336(A4)   
      A4[336] = 2;
    };
//0010f0 7e00                     MOVEQ.L  #0,D7   
//0010f2 601a                     BRA      $+28 (=0x00110e)   
    for (D7W=0; D7W<16; D7W++)
    {
//0010f4 3007                     MOVE.W   D7,D0   
//0010f6 5247                     ADDQ.W   #1,D7   
//0010f8 48c0                     EXT.L    D0   
//0010fa d080                     ADD.L    D0,D0   
//0010fc d0ae ff90                ADD.L    -112(A6),D0   
//001100 2d40 ff8c                MOVE.L   D0,-116(A6)   
      pnt_116 = pnt_112 + 2*D7W;
//001104 4eba 1b12                JSR      $+6932 (=0x002c18)   
      D0W = 0; //(i16)STRandom();
//001108 206e ff8c                MOVE.L   -116(A6),A0   
//00110c 3080                     MOVE.W   D0,(A0)   
      wordGear(pnt_116) = D0W;
//
//00110e 0c47 0010                CMP.W    #16,D7   
//001112 6de0                     BLT      $-30 (=0x0010f4)   
    };
//001114 7e00                     MOVEQ.L  #0,D7   
//001116 604a                     BRA      $+76 (=0x001162)   
    for (D7L=0; D7W<5; D7W++)
    {
//001118 3007                     MOVE.W   D7,D0   
//00111a 48c0                     EXT.L    D0   
//00111c d080                     ADD.L    D0,D0   
//00111e d0ae ff94                ADD.L    -108(A6),D0   
      pD0 = pnt_108 + 2*D7W;
//001122 3207                     MOVE.W   D7,D1   
//001124 c3fc 0006                MULS     #6,D1   
//001128 d28e                     ADD.L    A6,D1   
      pD1 = b_100 + 6*D7W;
//00112a 3407                     MOVE.W   D7,D2   
//00112c 48c2                     EXT.L    D2   
//00112e d482                     ADD.L    D2,D2   
//001130 d4ae ff90                ADD.L    -112(A6),D2   
      pD2 = pnt_112 + 2*D7W;
//001134 3607                     MOVE.W   D7,D3   
//001136 c7fc 0006                MULS     #6,D3   
//00113a d68e                     ADD.L    A6,D3   
//00113c 2043                     MOVE.L   D3,A0   
      A0 = b_100 + 6*D7W;
//00113e 3628 ffa0                MOVE.W   -96(A0),D3   
      D3W = wordGear(A0+4); //Random number generated above
      pnt_116 = pD0;
//001142 e24b                     LSR.W    #1,D3   
      D3W /= 2;
//001144 3f03                     MOVE.W   D3,-(A7)   
//001146 2042                     MOVE.L   D2,A0   
//001148 3f10                     MOVE.W   (A0),-(A7)   
//00114a 2041                     MOVE.L   D1,A0   
//00114c 2f28 ff9c                MOVE.L   -100(A0),-(A7)   
//001150 2d40 ff8c                MOVE.L   D0,-116(A6)   
//001154 4eba fa3e                JSR      $-1472 (=0x000b94)   
//001158 508f                     ADDQ.L   #0,A7   
      D0W = GenChecksum(pntGear(pD1), //buffer
                         LE16(wordGear(pD2)),//initial hash
                         D3W);        //# words
//00115a 206e ff8c                MOVE.L   -116(A6),A0   
//00115e 3080                     MOVE.W   D0,(A0)   
      wordGear(pnt_116) = LE16(D0W);
//
//001160 5247                     ADDQ.W   #1,D7   
//
//001162 0c47 0005                CMP.W    #5,D7   
//001166 6db0                     BLT      $-78 (=0x001118)   
    };
//001168 3f2c 0024                MOVE.W   36(A4),-(A7)   
//00116c 486c 0026                PEA      38(A4)   
//001170 4eba fc0a                JSR      $-1012 (=0x000d7c)   
//001174 5c8f                     ADDQ.L   #6,A7   
    D0W = WriteFirstBlock(A4+38, wordGear(A4+36));
//001176 4a40                     TST.W    D0   
//001178 6700 01ae                BEQ      $+432 (=0x001328)   
    if (D0W == 0) goto tag001328;
//00117c 7e00                     MOVEQ.L  #0,D7   
//00117e 6000 0092                BRA      $+148 (=0x001212)   
    for (D7W=0; D7W<5; D7W++)
    {
//001182 3007                     MOVE.W   D7,D0   
//001184 c1fc 0006                MULS     #6,D0   
//001188 d08e                     ADD.L    A6,D0   
//00118a 3207                     MOVE.W   D7,D1   
//00118c c3fc 0006                MULS     #6,D1   
//001190 d28e                     ADD.L    A6,D1   
//001192 3407                     MOVE.W   D7,D2   
//001194 48c2                     EXT.L    D2   
//001196 d482                     ADD.L    D2,D2   
//001198 d4ae ff90                ADD.L    -112(A6),D2   
//00119c 486e fffe                PEA      -2(A6)   
//0011a0 2042                     MOVE.L   D2,A0   
//0011a2 3f10                     MOVE.W   (A0),-(A7)   
//0011a4 2041                     MOVE.L   D1,A0   
//0011a6 3f28 ffa0                MOVE.W   -96(A0),-(A7)   
//0011aa 2040                     MOVE.L   D0,A0   
//0011ac 2f28 ff9c                MOVE.L   -100(A0),-(A7)   
//0011b0 4eba fa52                JSR      $-1452 (=0x000c04=WriteScrambled)   
//0011b4 4fef 000c                LEA      12(A7),A7   
      D0W = MyWriteScrambled(pntGear(b_100 + 6*D7W),
                            wordGear(b_100 + 6*D7W + 4),
                            LE16(wordGear(pnt_112+2*D7W)),
                            &uw_2);
//0011b8 4a40                     TST.W    D0   
//0011ba 6700 016c                BEQ      $+366 (=0x001328)   
      if (D0W == 0) goto tag001328;
//0011be 3007                     MOVE.W   D7,D0   
//0011c0 48c0                     EXT.L    D0   
//0011c2 d080                     ADD.L    D0,D0   
//0011c4 d0ae ff94                ADD.L    -108(A6),D0   
//0011c8 2040                     MOVE.L   D0,A0   
      A0 = pnt_108 + 2*D7W;
//0011ca 302e fffe                MOVE.W   -2(A6),D0   
//0011ce b050                     CMP.W    (A0),D0   
//0011d0 673e                     BEQ      $+64 (=0x001210)   
      if (uw_2 == LE16(wordGear(A0))) continue;
//0011d2 3007                     MOVE.W   D7,D0   
//0011d4 48c0                     EXT.L    D0   
//0011d6 d080                     ADD.L    D0,D0   
//0011d8 d0ae ff94                ADD.L    -108(A6),D0   
      pD0 = pnt_108 + 2*D7W;
//0011dc 3207                     MOVE.W   D7,D1   
//0011de 48c1                     EXT.L    D1   
//0011e0 d281                     ADD.L    D1,D1   
//0011e2 d2ae ff90                ADD.L    -112(A6),D1   
      pD1 = pnt_112 + 2*D7W;
//0011e6 2041                     MOVE.L   D1,A0   
//0011e8 3f10                     MOVE.W   (A0),-(A7)   
//0011ea 3f2e fffe                MOVE.W   -2(A6),-(A7)   
//0011ee 2040                     MOVE.L   D0,A0   
//0011f0 3f10                     MOVE.W   (A0),-(A7)   
//0011f2 486d db9c                PEA      -9316(A5)   
//0011f6 486d a43a                PEA      -23494(A5)   
//0011fa 4ead 017a                JSR      378(A5)    (=0x0065e0)
//0011fe 4fef 000e                LEA      14(A7),A7   
      atari_sprintf(e.Byte23494,
                    "SAVEGAME():CHECKSUM %d != %d (KEY = %d)\n",
                    LE16(wordGear(pD0)),
                    uw_2,
                    LE16(wordGear(pD1)) );
//001202 486d a43a                PEA      -23494(A5)   
//001206 3f3c 0009                MOVE.W   #9,-(A7)   
//00120a 4ead 009a                JSR      154(A5)    (=0x005c66=Trap #1)
      UI_MessageBox(e.Byte23494, NULL, MESSAGE_OK);
//00120e 5c8f                     ADDQ.L   #6,A7   
//
//001210 5247                     ADDQ.W   #1,D7   
//
//001212 0c47 0005                CMP.W    #5,D7   
//001216 6d00 ff6a                BLT      $-148 (=0x001182)   

    };
//00121a 41ee fffc                LEA      -4(A6),A0   
//00121e 2648                     MOVE.L   A0,A3   
    uwA3 = &uw_4;
//001220 426e fffc                CLR.W    -4(A6)   
    uw_4 = 0;
//001224 3f3c 002c                MOVE.W   #44,-(A7)   
//001228 2f0b                     MOVE.L   A3,-(A7)   
//00122a 2f2c 02b2                MOVE.L   690(A4),-(A7)   
//00122e 4eba fa68                JSR      $-1430 (=0x000c98)   
//001232 4fef 000a                LEA      10(A7),A7   
    D0W = MyWriteAndChecksum(pntGear(A4+690), uwA3, 44);
//001236 4a40                     TST.W    D0   
//001238 6700 00ee                BEQ      $+240 (=0x001328)   
    if (D0W == 0) goto tag001328;
//00123c 206c 02b2                MOVE.L   690(A4),A0   
//001240 7000                     MOVEQ.L  #0,D0   
//001242 1028 0004                MOVE.B   4(A0),D0   
//001246 e940                     ASL.W    #4,D0   
    D0W = sw(16 * (UI8)(pntGear(A4+690)[4]));
//001248 3f00                     MOVE.W   D0,-(A7)   
//00124a 2f0b                     MOVE.L   A3,-(A7)   
//00124c 2f2c 02ae                MOVE.L   686(A4),-(A7)   
//001250 4eba fa46                JSR      $-1464 (=0x000c98)   
//001254 4fef 000a                LEA      10(A7),A7   
    D0W = MyWriteAndChecksum(pntGear(A4+686),uwA3, D0W);
//001258 4a40                     TST.W    D0   
//00125a 6700 00cc                BEQ      $+206 (=0x001328)   
    if (D0W == 0) goto tag001328;
//00125e 302c 02be                MOVE.W   702(A4),D0   
//001262 d040                     ADD.W    D0,D0   
//001264 3f00                     MOVE.W   D0,-(A7)   
//001266 2f0b                     MOVE.L   A3,-(A7)   
//001268 2f2c 02b6                MOVE.L   694(A4),-(A7)   
//00126c 4eba fa2a                JSR      $-1492 (=0x000c98)   
//001270 4fef 000a                LEA      10(A7),A7   
    D0W = MyWriteAndChecksum(pntGear(A4+694), uwA3, 2*wordGear(A4+702));
//001274 4a40                     TST.W    D0   
//001276 6700 00b0                BEQ      $+178 (=0x001328)   
    if (D0W == 0) goto tag001328;
//00127a 206c 02b2                MOVE.L   690(A4),A0   
//00127e 3028 000a                MOVE.W   10(A0),D0   
//001282 d040                     ADD.W    D0,D0   
    D0W = sw(2 * LE16(wordGear(pntGear(A4+690)+10)));
//001284 3f00                     MOVE.W   D0,-(A7)   
//001286 2f0b                     MOVE.L   A3,-(A7)   
//001288 2f2c 02c0                MOVE.L   704(A4),-(A7)   
//00128c 4eba fa0a                JSR      $-1524 (=0x000c98)   
//001290 4fef 000a                LEA      10(A7),A7   
    D0W = MyWriteAndChecksum(pntGear(A4+704), uwA3, D0W);
//001294 4a40                     TST.W    D0   
//001296 6700 0090                BEQ      $+146 (=0x001328)   
    if (D0W == 0) goto tag001328;
//00129a 206c 02b2                MOVE.L   690(A4),A0   
//00129e 3028 0006                MOVE.W   6(A0),D0   
//0012a2 d040                     ADD.W    D0,D0   
    D0W = sw(2 * LE16(wordGear(pntGear(A4+690)+6)));
//0012a4 3f00                     MOVE.W   D0,-(A7)   
//0012a6 2f0b                     MOVE.L   A3,-(A7)   
//0012a8 2f2c 02a6                MOVE.L   678(A4),-(A7)   
//0012ac 4eba f9ea                JSR      $-1556 (=0x000c98)   
//0012b0 4fef 000a                LEA      10(A7),A7   
    D0W = MyWriteAndChecksum(pntGear(A4+678), uwA3, D0W);
//0012b4 4a40                     TST.W    D0   
//0012b6 6700 0070                BEQ      $+114 (=0x001328)   
    if (D0W == 0) goto tag001328;
//0012ba 7e00                     MOVEQ.L  #0,D7   
//0012bc 603a                     BRA      $+60 (=0x0012f8)   
    for (D7W=0; D7W<16; D7W++)
    {
//0012be 3007                     MOVE.W   D7,D0   
//0012c0 48c0                     EXT.L    D0   
//0012c2 e580                     ASL.L    #2,D0   
//0012c4 d08c                     ADD.L    A4,D0   
      pD0 = A4 + 4*D7W;
//0012c6 41ed 9f02                LEA      -24830(A5),A0   
//0012ca d0c7                     ADD.W    D7,A0   
      A0 = &byte24830[D7W]; 
//0012cc 3207                     MOVE.W   D7,D1   
//0012ce 48c1                     EXT.L    D1   
//0012d0 d281                     ADD.L    D1,D1   
//0012d2 d2ac 02b2                ADD.L    690(A4),D1   
//0012d6 2241                     MOVE.L   D1,A1   
      A1 = pntGear(A4+690) + 2*D7W;
//0012d8 7200                     MOVEQ.L  #0,D1   
//0012da 1210                     MOVE.B   (A0),D1   
//0012dc c3e9 000c                MULU     12(A1),D1   
      D1W = sw((UI8)(A0[0]) * LE16(wordGear(A1+12)));
//0012e0 3f01                     MOVE.W   D1,-(A7)   
//0012e2 2f0b                     MOVE.L   A3,-(A7)   
//0012e4 2040                     MOVE.L   D0,A0   
//0012e6 2f28 02c4                MOVE.L   708(A0),-(A7)   
//0012ea 4eba f9ac                JSR      $-1618 (=0x000c98)   
//0012ee 4fef 000a                LEA      10(A7),A7   
      D0W = MyWriteAndChecksum(pntGear(pD0+708), uwA3, D1W);
//0012f2 4a40                     TST.W    D0   
//0012f4 6732                     BEQ      $+52 (=0x001328)   
      if (D0W == 0) goto tag001328;
//
//0012f6 5247                     ADDQ.W   #1,D7   
//
//0012f8 0c47 0010                CMP.W    #16,D7   
//0012fc 6dc0                     BLT      $-62 (=0x0012be)   
    };
//0012fe 206c 02b2                MOVE.L   690(A4),A0   
//001302 3f28 0002                MOVE.W   2(A0),-(A7)   
//001306 2f0b                     MOVE.L   A3,-(A7)   
//001308 2f2c 02aa                MOVE.L   682(A4),-(A7)   
//00130c 4eba f98a                JSR      $-1652 (=0x000c98)   
//001310 4fef 000a                LEA      10(A7),A7   
    D0W = MyWriteAndChecksum(pntGear(A4+682), 
                            uwA3, 
                            LE16(wordGear(pntGear(A4+690)+2)));
//001314 4a40                     TST.W    D0   
//001316 6710                     BEQ      $+18 (=0x001328)   
    if (D0W == 0) goto tag001328;
//001318 3f3c 0002                MOVE.W   #2,-(A7)   
//00131c 2f0b                     MOVE.L   A3,-(A7)   
//00131e 4eba f808                JSR      $-2038 (=0x000b28)   
//001322 5c8f                     ADDQ.L   #6,A7   
    *uwA3 = LE16(*uwA3);
    WriteGameFile((pnt)uwA3, 2);
//001324 4a40                     TST.W    D0   
//001326 6626                     BNE      $+40 (=0x00134e)   
    if (D0W == 0)
    {
tag001328:
//001328 4a6e 0008                TST.W    8(A6)   
//00132c 6706                     BEQ      $+8 (=0x001334)   
      if (P1 != 0)
      {
//00132e 202d ce7e                MOVE.L   -12674(A5),D0   
        A0 = UtilityDiskMessages[28];
//001332 6004                     BRA      $+6 (=0x001338)   
      }
      else
      {
//001334 202d ce4a                MOVE.L   -12726(A5),D0   
        A0 = UtilityDiskMessages[15];
      };
//001338 486d cf8a                PEA      -12406(A5)   
//00133c 2f2d ce8e                MOVE.L   -12658(A5),-(A7)   
//001340 3f3c 0008                MOVE.W   #8,-(A7)   
//001344 2f00                     MOVE.L   D0,-(A7)   
//001346 4eba f240                JSR      $-3518 (=0x000588)   
//00134a 4fef 000e                LEA      14(A7),A7   
      UtilityDialogBox(_4_,A0, 8, UtilityDiskMessages[32], &s12406[0]);
    };
//00134e 3f2d d05e                MOVE.W   -12194(A5),-(A7)   
//001352 3f3c 003e                MOVE.W   #62,-(A7)   
//001356 4ead 009a                JSR      154(A5)    (=0x005c66=Trap #1)
//00135a 588f                     ADDQ.L   #4,A7   
    CLOSE(e.GameFile);
    e.GameFile=-1;
  };
//00135c 4eba f5f4                JSR      $-2570 (=0x000952)   
  TAG000952();
//001360 4eba f1e8                JSR      $-3606 (=0x00054a)   
  TAG00054a();
//001364 4cdf 1888                MOVEM.L  (A7)+,D37A34   
//001368 4e5e                     UNLK     A6   
//00136a 4e75                     RTS         
  RETURN;
}

// *********************************************************
//
// *********************************************************
void TAG00136c(void)
{
  dReg D0;
  aReg A0;
  pnt pnt_8;
  pnt pnt_4;
//;;;;;;;;;;;;;;;;;;;;;;;;;
//00136c 4e56 fff8                LINK     A6,#-8   
//001370 2d6d 9f14 fffc           MOVE.L   -24812(A5),-4(A6)   
  pnt_4 = e.Pnt24812;
//001376 3b7c 91a7 9f18           MOVE.W   #37287,-24808(A5)   
  e.Word24808 = (unsigned)0x91a7;
//00137c 206e fffc                MOVE.L   -4(A6),A0   
//001380 41e8 0026                LEA      38(A0),A0   
  A0 = pnt_4 + 38;
//001384 2d48 fff8                MOVE.L   A0,-8(A6)   
  pnt_8 = A0;
//001388 206e fffc                MOVE.L   -4(A6),A0   
//00138c 0c68 0002 0002           CMP.W    #2,2(A0)   
//001392 663e                     BNE      $+64 (=0x0013d2)   
  if (wordGear(pnt_4+2) == 2)
  {
//001394 206e fff8                MOVE.L   -8(A6),A0   
    A0 = pnt_8;
//001398 3b68 017a 9f1a           MOVE.W   378(A0),-24806(A5)   
    e.Word24806 = wordGear(A0+378);
//00139e 206e fff8                MOVE.L   -8(A6),A0   
//0013a2 7000                     MOVEQ.L  #0,D0   
//0013a4 1028 012d                MOVE.B   301(A0),D0   
    D0W = (UI8)(pnt_8[301]);
//0013a8 0c40 0001                CMP.W    #1,D0   
//0013ac 660e                     BNE      $+16 (=0x0013bc)   
    if (D0W == 1)
    {
//0013ae 7001                     MOVEQ.L  #1,D0   
//0013b0 3b40 9f1c                MOVE.W   D0,-24804(A5)   
      e.Word24804 = 1;
//0013b4 700a                     MOVEQ.L  #10,D0   
//0013b6 3b40 9f1a                MOVE.W   D0,-24806(A5)   
      e.Word24806 = 10;
//0013ba 6052                     BRA      $+84 (=0x00140e)   
    }
    else
    {
//0013bc 206e fff8                MOVE.L   -8(A6),A0   
      A0 = pnt_8;
//0013c0 3b68 0178 9f1c           MOVE.W   376(A0),-24804(A5)   
      e.Word24804 = wordGear(A0+376);
//0013c6 206e fff8                MOVE.L   -8(A6),A0   
//0013ca 3b68 017a 9f1a           MOVE.W   378(A0),-24806(A5)   
      e.Word24806 = wordGear(A0+378);
    };
//0013d0 603c                     BRA      $+62 (=0x00140e)   
  }
  else
  {
//0013d2 206e fffc                MOVE.L   -4(A6),A0   
    A0 = pnt_4;
//0013d6 3b68 019e 9f1a           MOVE.W   414(A0),-24806(A5)   
    e.Word24806 = wordGear(A0+414);
//0013dc 206e fffc                MOVE.L   -4(A6),A0   
//0013e0 7000                     MOVEQ.L  #0,D0   
//0013e2 1028 0151                MOVE.B   337(A0),D0   
//0013e6 0c40 0001                CMP.W    #1,D0   
//0013ea 660e                     BNE      $+16 (=0x0013fa)   
    if (A0[337] == 1)
    {
//0013ec 7001                     MOVEQ.L  #1,D0   
//0013ee 3b40 9f1c                MOVE.W   D0,-24804(A5)   
      e.Word24804 = 1;
//0013f2 700a                     MOVEQ.L  #10,D0   
//0013f4 3b40 9f1a                MOVE.W   D0,-24806(A5)   
      e.Word24806 = 10;
//0013f8 6014                     BRA      $+22 (=0x00140e)   
    }
    else
    {
//0013fa 206e fffc                MOVE.L   -4(A6),A0   
      A0 = pnt_4;
//0013fe 3b68 019c 9f1c           MOVE.W   412(A0),-24804(A5)   
      e.Word24804 = wordGear(A0+412);
//001404 206e fffc                MOVE.L   -4(A6),A0   
//001408 3b68 019e 9f1a           MOVE.W   414(A0),-24806(A5)   
      e.Word24806 = wordGear(A0+414);
    };
  };
//00140e 7001                     MOVEQ.L  #1,D0   
//001410 3b40 9f1e                MOVE.W   D0,-24802(A5)   
  e.Word24802 = 1;
//001414 7001                     MOVEQ.L  #1,D0   
//001416 3b40 9f20                MOVE.W   D0,-24800(A5)   
  e.Word24800 = 1;
//00141a 426d 9f22                CLR.W    -24798(A5)   
//00141e 426d 9f24                CLR.W    -24796(A5)   
//001422 426d 9f26                CLR.W    -24794(A5)   
//001426 422d 9f28                CLR.B    -24792(A5)   
  e.Word24798 = 0;
  e.Word24796 = 0;
  e.Word24794 = 0;
  e.Byte24792 = 0;
//00142a 4e5e                     UNLK     A6   
//00142c 4e75                     RTS         
}

// *********************************************************
//
// *********************************************************
i16 TAG00142e(pnt P1)
{
  dReg D0, D1, D4, D5, D6, D7;
  aReg A0, A4;
  pnt pnt_8;
  i16 w_4;
  i16 w_2;
//;;;;;;;;;;;;;;;;;;;;
//00142e 4e56 fff8                LINK     A6,#-8   
//001432 48e7 0f08                MOVEM.L  D4567A4,-(A7)   
//001436 286e 0008                MOVE.L   8(A6),A4   
  A4 = P1;
//00143a 426e fffc                CLR.W    -4(A6)   
  w_4 = 0;
//00143e 4878 002c                PEA      44   
//001442 4eba eee4                JSR      $-4378 (=0x000328)   
//001446 588f                     ADDQ.L   #4,A7   
  A0 = AllocateMemory(44);
//001448 2940 02b2                MOVE.L   D0,690(A4)   
  pntGear(A4+690) = A0;
//00144c 3f3c 002c                MOVE.W   #44,-(A7)   
//001450 486e fffc                PEA      -4(A6)   
//001454 2f2c 02b2                MOVE.L   690(A4),-(A7)   
//001458 4eba f7f8                JSR      $-2054 (=0x000c52)   
//00145c 4fef 000a                LEA      10(A7),A7   
  D0W = TAG000c52(pntGear(A4+690), &w_4, 44);
//001460 4a40                     TST.W    D0   
//001462 6700 0208                BEQ      $+522 (=0x00166c)   
  if (D0W == 0) return 0;
//001466 206c 02b2                MOVE.L   690(A4),A0   
//00146a 7000                     MOVEQ.L  #0,D0   
//00146c 1028 0004                MOVE.B   4(A0),D0   
//001470 3e00                     MOVE.W   D0,D7   
  D7W = (UI8)(*(pntGear(A4+690)+4));//Number of levels
//001472 3007                     MOVE.W   D7,D0   
//001474 e940                     ASL.W    #4,D0   
//001476 48c0                     EXT.L    D0   
//001478 2f00                     MOVE.L   D0,-(A7)   
//00147a 4eba eeac                JSR      $-4434 (=0x000328)   
//00147e 588f                     ADDQ.L   #4,A7   
//001480 2940 02ae                MOVE.L   D0,686(A4)   
  pntGear(A4+686) = AllocateMemory(16*D7W); //For level descriptors
//001484 3007                     MOVE.W   D7,D0   
//001486 e940                     ASL.W    #4,D0   
//001488 3f00                     MOVE.W   D0,-(A7)   
//00148a 486e fffc                PEA      -4(A6)   
//00148e 2f2c 02ae                MOVE.L   686(A4),-(A7)   
//001492 4eba f7be                JSR      $-2112 (=0x000c52)   
//001496 4fef 000a                LEA      10(A7),A7   
  D0W = TAG000c52(pntGear(A4+686), &w_4, 16*D7W); //Level descriptors
//00149a 4a40                     TST.W    D0   
//00149c 6700 01ce                BEQ      $+464 (=0x00166c)   
  if (D0W == 0) return 0;
//0014a0 3007                     MOVE.W   D7,D0   
//0014a2 d040                     ADD.W    D0,D0   
//0014a4 48c0                     EXT.L    D0   
//0014a6 2f00                     MOVE.L   D0,-(A7)   
//0014a8 4eba ee7e                JSR      $-4480 (=0x000328)   
//0014ac 588f                     ADDQ.L   #4,A7   
//0014ae 2940 02ba                MOVE.L   D0,698(A4)   
  pntGear(A4+698) = AllocateMemory(2*D7W);
//0014b2 7a00                     MOVEQ.L  #0,D5   
//0014b4 7800                     MOVEQ.L  #0,D4   
//0014b6 602a                     BRA      $+44 (=0x0014e2)   
  for (D4L=D5L=0; D5W<D7W; D5W++)
  { //For each level
//0014b8 3005                     MOVE.W   D5,D0   
//0014ba 48c0                     EXT.L    D0   
//0014bc d080                     ADD.L    D0,D0   
//0014be d0ac 02ba                ADD.L    698(A4),D0   
//0014c2 2040                     MOVE.L   D0,A0   
    A0 = pntGear(A4+698)+2*D5W;
//0014c4 3084                     MOVE.W   D4,(A0)   
    wordGear(A0) = LE16(D4W);
//0014c6 3005                     MOVE.W   D5,D0   
//0014c8 48c0                     EXT.L    D0   
//0014ca e980                     ASL.L    #4,D0   
//0014cc d0ac 02ae                ADD.L    686(A4),D0   
//0014d0 2040                     MOVE.L   D0,A0   
    A0 = pntGear(A4+686) + 16*D5W;
//0014d2 303c 07c0                MOVE.W   #1984,D0   
//0014d6 c068 0008                AND.W    8(A0),D0   
//0014da ec48                     LSR.W    #6,D0   
//0014dc 5240                     ADDQ.W   #1,D0   
    D0W = sw((LE16(wordGear(A0+8)) & 0x07c0)/64 + 1);
//0014de d840                     ADD.W    D0,D4   
    D4W = sw(D4W + D0W);
//
//0014e0 5245                     ADDQ.W   #1,D5   
//
//0014e2 ba47                     CMP.W    D7,D5   
//0014e4 6dd2                     BLT      $-44 (=0x0014b8)   
  };
//0014e6 3944 02be                MOVE.W   D4,702(A4)   
  wordGear(A4+702) = D4W;
//0014ea 206c 02b2                MOVE.L   690(A4),A0   
  A0 = pntGear(A4+690);
//0014ee 3a28 000a                MOVE.W   10(A0),D5   
  D5W = LE16(wordGear(A0+10));
//0014f2 3004                     MOVE.W   D4,D0   
//0014f4 d040                     ADD.W    D0,D0   
//0014f6 4840                     SWAP     D0   
//0014f8 4240                     CLR.W    D0   
//0014fa 4840                     SWAP     D0   
//0014fc 2f00                     MOVE.L   D0,-(A7)   
//0014fe 4eba ee28                JSR      $-4566 (=0x000328)   
//001502 588f                     ADDQ.L   #4,A7   
//001504 2940 02b6                MOVE.L   D0,694(A4)   
  pntGear(A4+694) = AllocateMemory(2*D4W);
//001508 206c 02b2                MOVE.L   690(A4),A0   
  A0 = pntGear(A4+690);
//00150c 3028 000a                MOVE.W   10(A0),D0   
  D0W = LE16(wordGear(A0+10));
//001510 d040                     ADD.W    D0,D0   
//001512 4840                     SWAP     D0   
//001514 4240                     CLR.W    D0   
//001516 4840                     SWAP     D0   
//001518 2f00                     MOVE.L   D0,-(A7)   
//00151a 4eba ee0c                JSR      $-4594 (=0x000328)   
//00151e 588f                     ADDQ.L   #4,A7   
//001520 2940 02c0                MOVE.L   D0,704(A4)   
  pntGear(A4+704) = AllocateMemory(2*D0W);
//001524 206c 02b2                MOVE.L   690(A4),A0   
  A0 = pntGear(A4+690);
//001528 7000                     MOVEQ.L  #0,D0   
//00152a 3028 0006                MOVE.W   6(A0),D0   
  D0W = LE16(wordGear(A0+6));
//00152e d080                     ADD.L    D0,D0   
//001530 2f00                     MOVE.L   D0,-(A7)   
//001532 4eba edf4                JSR      $-4618 (=0x000328)   
//001536 588f                     ADDQ.L   #4,A7   
//001538 2940 02a6                MOVE.L   D0,678(A4)   
  pntGear(A4+678) = AllocateMemory(2*D0UW);
//00153c 3004                     MOVE.W   D4,D0   
//00153e d040                     ADD.W    D0,D0   
//001540 3f00                     MOVE.W   D0,-(A7)   
//001542 486e fffc                PEA      -4(A6)   
//001546 2f2c 02b6                MOVE.L   694(A4),-(A7)   
//00154a 4eba f706                JSR      $-2296 (=0x000c52)   
//00154e 4fef 000a                LEA      10(A7),A7   
  D0W = TAG000c52(pntGear(A4+694), &w_4, 2*D4W);
//001552 4a40                     TST.W    D0   
//001554 6700 0116                BEQ      $+280 (=0x00166c)   
  if (D0W == 0) return 0;
//001558 3005                     MOVE.W   D5,D0   
//00155a d040                     ADD.W    D0,D0   
//00155c 3f00                     MOVE.W   D0,-(A7)   
//00155e 486e fffc                PEA      -4(A6)   
//001562 2f2c 02c0                MOVE.L   704(A4),-(A7)   
//001566 4eba f6ea                JSR      $-2324 (=0x000c52)   
//00156a 4fef 000a                LEA      10(A7),A7   
  D0W = TAG000c52(pntGear(A4+704), &w_4, 2*D5W);
//00156e 4a40                     TST.W    D0   
//001570 6700 00fa                BEQ      $+252 (=0x00166c)   
  if (D0W == 0) return 0;
//001574 206c 02b2                MOVE.L   690(A4),A0   
  A0 = pntGear(A4+690);
//001578 3028 0006                MOVE.W   6(A0),D0   
  D0W = LE16(wordGear(A0+6));
//00157c d040                     ADD.W    D0,D0   
//00157e 3f00                     MOVE.W   D0,-(A7)   
//001580 486e fffc                PEA      -4(A6)   
//001584 2f2c 02a6                MOVE.L   678(A4),-(A7)   
//001588 4eba f6c8                JSR      $-2358 (=0x000c52)   
//00158c 4fef 000a                LEA      10(A7),A7   
  D0W = TAG000c52(pntGear(A4+678), &w_4, 2*D0W);
//001590 4a40                     TST.W    D0   
//001592 6700 00d8                BEQ      $+218 (=0x00166c)   
  if (D0W == 0) return 0;
//001596 7c00                     MOVEQ.L  #0,D6   
//001598 6000 007a                BRA      $+124 (=0x001614)   
  for (D6W=0; D6W<16; D6W++)
  {
//00159c 3006                     MOVE.W   D6,D0   
//00159e 48c0                     EXT.L    D0   
//0015a0 d080                     ADD.L    D0,D0   
//0015a2 d0ac 02b2                ADD.L    690(A4),D0   
//0015a6 2040                     MOVE.L   D0,A0   
    A0 = pntGear(A4+690) + 2*D6W;
//0015a8 3a28 000c                MOVE.W   12(A0),D5   
    D5W = LE16(wordGear(A0+12));
//0015ac 41ed 9f02                LEA      -24830(A5),A0   
//0015b0 d0c6                     ADD.W    D6,A0   
    A0 = byte24830 + D6W; // DB sizes?
//0015b2 7000                     MOVEQ.L  #0,D0   
//0015b4 1010                     MOVE.B   (A0),D0   
//0015b6 3800                     MOVE.W   D0,D4   
    D4W = (UI8)(*A0);
//0015b8 3006                     MOVE.W   D6,D0   
//0015ba 48c0                     EXT.L    D0   
//0015bc e580                     ASL.L    #2,D0   
//0015be d08c                     ADD.L    A4,D0   
    pnt_8 = A4 + 4*D6W;
//0015c0 3206                     MOVE.W   D6,D1   
//0015c2 48c1                     EXT.L    D1   
//0015c4 d281                     ADD.L    D1,D1   
//0015c6 d2ac 02b2                ADD.L    690(A4),D1   
//0015ca 2041                     MOVE.L   D1,A0   
    A0 = pntGear(A4+690) + 2*D6W;
//0015cc 3228 000c                MOVE.W   12(A0),D1   
//0015d0 c3c4                     MULU     D4,D1   
//0015d2 4841                     SWAP     D1   
//0015d4 4241                     CLR.W    D1   
//0015d6 4841                     SWAP     D1   
    D1L = D4UW * LE16(wordGear(A0+12));
//0015d8 2f01                     MOVE.L   D1,-(A7)   
//0015da 2d40 fff8                MOVE.L   D0,-8(A6)   
//0015de 4eba ed48                JSR      $-4790 (=0x000328)   
//0015e2 588f                     ADDQ.L   #4,A7   
//0015e4 206e fff8                MOVE.L   -8(A6),A0   
    A0 = pnt_8;
//0015e8 2140 02c4                MOVE.L   D0,708(A0)   
    pntGear(A0+708) = AllocateMemory(D1L);
//0015ec 3006                     MOVE.W   D6,D0   
//0015ee 48c0                     EXT.L    D0   
//0015f0 e580                     ASL.L    #2,D0   
//0015f2 d08c                     ADD.L    A4,D0   
//0015f4 3204                     MOVE.W   D4,D1   
//0015f6 c3c5                     MULU     D5,D1   
//0015f8 3f01                     MOVE.W   D1,-(A7)   
//0015fa 486e fffc                PEA      -4(A6)   
//0015fe 2040                     MOVE.L   D0,A0   
//001600 2f28 02c4                MOVE.L   708(A0),-(A7)   
//001604 4eba f64c                JSR      $-2482 (=0x000c52)   
//001608 4fef 000a                LEA      10(A7),A7   
    D0W = TAG000c52(pntGear(A4+4*D6W+708), &w_4, D4UW*D5UW);
//00160c 4a40                     TST.W    D0   
//00160e 6700 005c                BEQ      $+94 (=0x00166c)   
    if (D0W == 0) return 0;
//001612 5246                     ADDQ.W   #1,D6   
//
//001614 0c46 0010                CMP.W    #16,D6   
//001618 6d82                     BLT      $-124 (=0x00159c)   
  };
//00161a 206c 02b2                MOVE.L   690(A4),A0   
  A0 = pntGear(A4+690);
//00161e 7000                     MOVEQ.L  #0,D0   
//001620 3028 0002                MOVE.W   2(A0),D0   
//001624 2f00                     MOVE.L   D0,-(A7)   
//001626 4eba ed00                JSR      $-4862 (=0x000328)   
//00162a 588f                     ADDQ.L   #4,A7   
//00162c 2940 02aa                MOVE.L   D0,682(A4)   
  pntGear(A4+682) = AllocateMemory(LE16(wordGear(A0+2)));
//001630 206c 02b2                MOVE.L   690(A4),A0   
//001634 3f28 0002                MOVE.W   2(A0),-(A7)   
//001638 486e fffc                PEA      -4(A6)   
//00163c 2f2c 02aa                MOVE.L   682(A4),-(A7)   
//001640 4eba f610                JSR      $-2542 (=0x000c52)   
//001644 4fef 000a                LEA      10(A7),A7   
  D0W = TAG000c52(pntGear(A4+682), &w_4, LE16(wordGear(A0+2)));
//001648 4a40                     TST.W    D0   
//00164a 6720                     BEQ      $+34 (=0x00166c)   
  if (D0W ==0) return 0;
//00164c 3f3c 0002                MOVE.W   #2,-(A7)   
//001650 486e fffe                PEA      -2(A6)   
//001654 4eba f498                JSR      $-2918 (=0x000aee=ReadGameFile)   
//001658 5c8f                     ADDQ.L   #6,A7   
  D0W = ReadGameFile((pnt)&w_2, 2);//Final checksum
//00165a 4a40                     TST.W    D0   
//00165c 670a                     BEQ      $+12 (=0x001668)   
  if (D0W == 0) return 1;
//00165e 302e fffe                MOVE.W   -2(A6),D0   
//001662 b06e fffc                CMP.W    -4(A6),D0   
//001666 6604                     BNE      $+6 (=0x00166c)   
  w_2 = LE16(w_2);
  if (w_2 == w_4) return 1;
//001668 7001                     MOVEQ.L  #1,D0   
//00166a 6002                     BRA      $+4 (=0x00166e)   
//00166c 7000                     MOVEQ.L  #0,D0   
  return 0;
//00166e 4cdf 10f0                MOVEM.L  (A7)+,D4567A4   
//001672 4e5e                     UNLK     A6   
//001674 4e75                     RTS         
}

// *********************************************************
//
// *********************************************************
void TAG001676(pnt P1, i16 P2)
{
  dReg D7;
  aReg A0, A4;
//;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
//001676 4e56 0000                LINK     A6,#0   
//00167a 48e7 0108                MOVEM.L  D7A4,-(A7)   
//00167e 286e 0008                MOVE.L   8(A6),A4   
  A4 = P1;
//001682 4aac 1004                TST.L    4100(A4)   
//001686 670a                     BEQ      $+12 (=0x001692)   
  if (longGear(A4+4100) != 0)
  {
//001688 2f2c 1004                MOVE.L   4100(A4),-(A7)   
//00168c 4eba ed12                JSR      $-4844 (=0x0003a0)   
//001690 588f                     ADDQ.L   #4,A7   
    ReleaseMemory(pntGear(A4+4100));
  };
//001692 42ac 1004                CLR.L    4100(A4)   
  longGear(A4+4100) = 0;
//001696 4aac 1008                TST.L    4104(A4)   
//00169a 670a                     BEQ      $+12 (=0x0016a6)   
  if (longGear(A4+4104) != 0)
  {
//00169c 2f2c 1008                MOVE.L   4104(A4),-(A7)   
//0016a0 4eba ecfe                JSR      $-4864 (=0x0003a0)   
//0016a4 588f                     ADDQ.L   #4,A7   
    ReleaseMemory(pntGear(A4+4104));
  };
//0016a6 42ac 1008                CLR.L    4104(A4)   
  pntGear(A4+4104) = NULL;
//0016aa 4aac 100c                TST.L    4108(A4)   
//0016ae 670a                     BEQ      $+12 (=0x0016ba)   
  if (pntGear(A4+4108) != NULL)
  {
//0016b0 2f2c 100c                MOVE.L   4108(A4),-(A7)   
//0016b4 4eba ecea                JSR      $-4884 (=0x0003a0)   
//0016b8 588f                     ADDQ.L   #4,A7   
    ReleaseMemory(pntGear(A4+4108));
  };
//0016ba 42ac 100c                CLR.L    4108(A4)   
  pntGear(A4+4108) = NULL;
//0016be 4aac 02a6                TST.L    678(A4)   
//0016c2 670a                     BEQ      $+12 (=0x0016ce)   
//0016c4 2f2c 02a6                MOVE.L   678(A4),-(A7)   
//0016c8 4eba ecd6                JSR      $-4904 (=0x0003a0)   
//0016cc 588f                     ADDQ.L   #4,A7   
  if (pntGear(A4+678) != NULL) ReleaseMemory(pntGear(A4+678));
//0016ce 42ac 02a6                CLR.L    678(A4)   
  pntGear(A4+678) = NULL;
//0016d2 4aac 02aa                TST.L    682(A4)   
//0016d6 670a                     BEQ      $+12 (=0x0016e2)   
//0016d8 2f2c 02aa                MOVE.L   682(A4),-(A7)   
//0016dc 4eba ecc2                JSR      $-4924 (=0x0003a0)   
//0016e0 588f                     ADDQ.L   #4,A7   
  if (pntGear(A4+682) != NULL) ReleaseMemory(pntGear(A4+682));
//0016e2 42ac 02aa                CLR.L    682(A4)   
  pntGear(A4+682) = NULL;
//0016e6 4aac 02ae                TST.L    686(A4)   
//0016ea 670a                     BEQ      $+12 (=0x0016f6)   
//0016ec 2f2c 02ae                MOVE.L   686(A4),-(A7)   
//0016f0 4eba ecae                JSR      $-4944 (=0x0003a0)   
//0016f4 588f                     ADDQ.L