/* * ========================== * Atari800 - Amiga Port Code * ========================== */ /* * Revision : v0.3.3 * Introduced : NOT KNOWN (Before 2nd September 1995) * Last updated : 7th March 1996 * * * * Introduction: * * This file contains all the additional code required to get the Amiga * port of the Atari800 emulator up and running. * * See "Atari800.guide" for info */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include static struct ScreenModeRequester *video_smr = NULL; struct Library *AslBase=0; #include static char *rcsid = "$Id: atari_amiga.c,v 1.7 1998/02/21 14:54:11 david Exp $"; #include #include #include struct ScreenReq *ScreenReq=0; struct RtgScreen *MyScreen=0; #include "atari.h" #include "colours.h" static int first_lno = 24; static int ypos_inc = 1; static int svga_ptr_inc = 320; static int scrn_ptr_inc = ATARI_WIDTH; int about=0; #define GAMEPORT0 0 #define GAMEPORT1 1 #define OCS_ChipSet 0 #define ECS_ChipSet 1 #define AGA_ChipSet 2 extern struct IntuitionBase *IntuitionBase = NULL; extern struct GfxBase *GfxBase = NULL; extern struct LayersBase *LayersBase = NULL; extern struct Library *AslBase = NULL; struct Library *CyberGfxBase=NULL; struct Library *RTGMasterBase=0; #ifdef GNU_C struct IntuitionBase *IntuitionBase = NULL; struct GfxBase *GfxBase = NULL; struct LayersBase *LayersBase = NULL; struct Library *AslBase = NULL; #endif extern int countdown_rate; extern int refresh_rate; static struct Window *WindowMain = NULL; static struct Window *WindowAbout = NULL; static struct Window *WindowNotSupported = NULL; static struct Window *WindowSetup = NULL; static struct Window *WindowController = NULL; static struct Window *WindowYesNo = NULL; static struct Window *WindowIconified = NULL; int old_stick_0 = 0x1f; int old_stick_1 = 0x1f; static int consol; static int trig0; static int stick0; struct InputEvent gameport_data; struct MsgPort *gameport_msg_port; struct IOStdReq *gameport_io_msg; BOOL gameport_error; static UBYTE *image_data; static UWORD ScreenType; static struct Screen *ScreenMain = NULL; static struct NewScreen NewScreen; static struct Image image_Screen; static int ScreenID; static int ScreenWidth; static int ScreenHeight; static int ScreenDepth; static int TotalColours; struct BitMap *temp_bm=0; struct RastPort temp_rp; struct AppWindow *AppWindow = NULL; struct AppMenuItem *AppMenuItem = NULL; struct AppIcon *AppIcon = NULL; struct DiskObject *AppDiskObject = NULL; struct MsgPort *AppMessagePort = NULL; struct AppMessage *AppMessage = NULL; static struct Menu *menu_Project = NULL; static struct MenuItem *menu_Project00 = NULL; static struct MenuItem *menu_Project01 = NULL; static struct MenuItem *menu_Project02 = NULL; static struct MenuItem *menu_Project03 = NULL; static struct Menu *menu_System = NULL; static struct MenuItem *menu_System00 = NULL; static struct MenuItem *menu_System01 = NULL; static struct MenuItem *menu_System01s00 = NULL; static struct MenuItem *menu_System01s01 = NULL; static struct MenuItem *menu_System01s02 = NULL; static struct MenuItem *menu_System01s03 = NULL; static struct MenuItem *menu_System01s04 = NULL; static struct MenuItem *menu_System01s05 = NULL; static struct MenuItem *menu_System01s06 = NULL; static struct MenuItem *menu_System01s07 = NULL; static struct MenuItem *menu_System02 = NULL; static struct MenuItem *menu_System02s00 = NULL; static struct MenuItem *menu_System02s01 = NULL; static struct MenuItem *menu_System02s02 = NULL; static struct MenuItem *menu_System02s03 = NULL; static struct MenuItem *menu_System02s04 = NULL; static struct MenuItem *menu_System02s05 = NULL; static struct MenuItem *menu_System02s06 = NULL; static struct MenuItem *menu_System02s07 = NULL; static struct MenuItem *menu_System03 = NULL; static struct MenuItem *menu_System03s00 = NULL; static struct MenuItem *menu_System03s01 = NULL; static struct MenuItem *menu_System03s02 = NULL; static struct MenuItem *menu_System04 = NULL; static struct MenuItem *menu_System05 = NULL; static struct MenuItem *menu_System06 = NULL; static struct MenuItem *menu_System07 = NULL; static struct MenuItem *menu_System08 = NULL; static struct MenuItem *menu_System09 = NULL; static struct Menu *menu_Console = NULL; static struct MenuItem *menu_Console00 = NULL; static struct MenuItem *menu_Console01 = NULL; static struct MenuItem *menu_Console02 = NULL; static struct MenuItem *menu_Console03 = NULL; static struct MenuItem *menu_Console04 = NULL; static struct MenuItem *menu_Console05 = NULL; static struct MenuItem *menu_Console06 = NULL; static struct Menu *menu_Prefs = NULL; static struct MenuItem *menu_Prefs00 = NULL; static struct MenuItem *menu_Prefs00s00 = NULL; static struct MenuItem *menu_Prefs00s01 = NULL; static struct MenuItem *menu_Prefs00s02 = NULL; static struct MenuItem *menu_Prefs00s03 = NULL; static struct MenuItem *menu_Prefs01 = NULL; static struct MenuItem *menu_Prefs01s00 = NULL; static struct MenuItem *menu_Prefs01s01 = NULL; static struct MenuItem *menu_Prefs02 = NULL; static struct MenuItem *menu_Prefs02s00 = NULL; static struct MenuItem *menu_Prefs02s01 = NULL; static struct MenuItem *menu_Prefs02s02 = NULL; static struct MenuItem *menu_Prefs02s03 = NULL; static struct MenuItem *menu_Prefs03 = NULL; static struct MenuItem *menu_Prefs03s00 = NULL; static struct MenuItem *menu_Prefs03s01 = NULL; static struct MenuItem *menu_Prefs03s02 = NULL; static struct MenuItem *menu_Prefs03s03 = NULL; struct MemHeader MemHeader; static UWORD *data_Screen; static ChipSet; static ColourEnabled; static Controller; static CustomScreen; static cgx=0; static int PaddlePos; static UpdatePalette; static void DisplayAboutWindow(); static void DisplayNotSupportedWindow(); static void DisplaySetupWindow(); static void DisplayControllerWindow(); static int DisplayYesNoWindow(); static int InsertDisk(); static struct Gadget *MakeGadget(); static struct MenuItem *MakeMenuItem(); static struct Menu *MakeMenu(); static void Rule(); static void ShowText(); static int gui_GridWidth = 4; static int gui_GridHeight = 7; static int gui_WindowOffsetLeftEdge = 0; /* 4 */ static int gui_WindowOffsetTopEdge = 0; /* 11 */ static int LibraryVersion; #define gadget_Null 0 #define gadget_Button 1 #define gadget_Check 2 #define gadget_String 3 #define gadget_Mutual 4 #define controller_Null 0 #define controller_Joystick 1 #define controller_Paddle 2 /* * ==================== * Define data_Button64 * ==================== */ UWORD data_Button64[] = { 0x0000, 0x0000, 0x0000, 0x0001, 0x0000, 0x0000, 0x0000, 0x0003, 0x0000, 0x0000, 0x0000, 0x0003, 0x0000, 0x0000, 0x0000, 0x0003, 0x0000, 0x0000, 0x0000, 0x0003, 0x0000, 0x0000, 0x0000, 0x0003, 0x0000, 0x0000, 0x0000, 0x0003, 0x0000, 0x0000, 0x0000, 0x0003, 0x0000, 0x0000, 0x0000, 0x0003, 0x0000, 0x0000, 0x0000, 0x0003, 0x0000, 0x0000, 0x0000, 0x0003, 0x0000, 0x0000, 0x0000, 0x0003, 0x0000, 0x0000, 0x0000, 0x0003, 0x7FFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFE, 0xC000, 0x0000, 0x0000, 0x0000, 0xC000, 0x0000, 0x0000, 0x0000, 0xC000, 0x0000, 0x0000, 0x0000, 0xC000, 0x0000, 0x0000, 0x0000, 0xC000, 0x0000, 0x0000, 0x0000, 0xC000, 0x0000, 0x0000, 0x0000, 0xC000, 0x0000, 0x0000, 0x0000, 0xC000, 0x0000, 0x0000, 0x0000, 0xC000, 0x0000, 0x0000, 0x0000, 0xC000, 0x0000, 0x0000, 0x0000, 0xC000, 0x0000, 0x0000, 0x0000, 0xC000, 0x0000, 0x0000, 0x0000, 0x8000, 0x0000, 0x0000, 0x0000 }; /* * ============================ * Define data_Button64Selected * ============================ */ UWORD data_Button64Selected[] = { 0xFFFF, 0xFFFF, 0xFFFF, 0xFFFE, 0xC000, 0x0000, 0x0000, 0x0000, 0xC000, 0x0000, 0x0000, 0x0000, 0xC000, 0x0000, 0x0000, 0x0000, 0xC000, 0x0000, 0x0000, 0x0000, 0xC000, 0x0000, 0x0000, 0x0000, 0xC000, 0x0000, 0x0000, 0x0000, 0xC000, 0x0000, 0x0000, 0x0000, 0xC000, 0x0000, 0x0000, 0x0000, 0xC000, 0x0000, 0x0000, 0x0000, 0xC000, 0x0000, 0x0000, 0x0000, 0xC000, 0x0000, 0x0000, 0x0000, 0xC000, 0x0000, 0x0000, 0x0000, 0x8000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0001, 0x0000, 0x0000, 0x0000, 0x0003, 0x0000, 0x0000, 0x0000, 0x0003, 0x0000, 0x0000, 0x0000, 0x0003, 0x0000, 0x0000, 0x0000, 0x0003, 0x0000, 0x0000, 0x0000, 0x0003, 0x0000, 0x0000, 0x0000, 0x0003, 0x0000, 0x0000, 0x0000, 0x0003, 0x0000, 0x0000, 0x0000, 0x0003, 0x0000, 0x0000, 0x0000, 0x0003, 0x0000, 0x0000, 0x0000, 0x0003, 0x0000, 0x0000, 0x0000, 0x0003, 0x0000, 0x0000, 0x0000, 0x0003, 0x7FFF, 0xFFFF, 0xFFFF, 0xFFFF }; /* * ======================== * Define data_MutualGadget * ======================== */ UWORD data_MutualGadget[] = { 0x0000, 0x0000, 0x0004, 0x0006, 0x0006, 0x0003, 0x0003, 0x0003, 0x0003, 0x0006, 0x0006, 0x181C, 0x1FF8, 0x07E0, 0x07E0, 0x1FF8, 0x3818, 0x6000, 0x6000, 0xC000, 0xC000, 0xC000, 0xC000, 0x6000, 0x6000, 0x2000, 0x0000, 0x0000 }; /* * ================================ * Define data_MutualGadgetSelected * ================================ */ UWORD data_MutualGadgetSelected[] = { 0x07E0, 0x1FF8, 0x3818, 0x6180, 0x67E0, 0xC7E0, 0xCFF0, 0xCFF0, 0xC7E0, 0x67E0, 0x6180, 0x2000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0004, 0x0006, 0x0006, 0x0003, 0x0003, 0x0003, 0x0003, 0x0006, 0x0006, 0x181C, 0x1FF8, 0x07E0 }; struct Image image_Button64; struct Image image_Button64Selected; struct Image image_MutualGadget; struct Image image_MutualGadgetSelected; UWORD *chip_Button64 = NULL; UWORD *chip_Button64Selected = NULL; UWORD *chip_MutualGadget = NULL; UWORD *chip_MutualGadgetSelected = NULL; /* * ================ * Atari_Initialize * ================ */ /* * Revision : v0.2.1 * Introduced : NOT KNOWN (Before 2nd September 1995) * Last updated : 12th October 1995 */ void Atari_Initialise(int *argc, char *argv[]) { struct NewWindow NewWindow; char *ptr; int i; int j; struct IntuiMessage *IntuiMessage; ULONG Class; USHORT Code; APTR Address; int QuitRoutine; /* * ========= * Zoom Data * ========= */ WORD Zoomdata[4] = { 0, 11, 200, 15, }; /* */ chip_Button64 = (UWORD *) AllocMem(sizeof(data_Button64), MEMF_CHIP); chip_Button64Selected = (UWORD *) AllocMem(sizeof(data_Button64Selected), MEMF_CHIP); chip_MutualGadget = (UWORD *) AllocMem(sizeof(data_MutualGadget), MEMF_CHIP); chip_MutualGadgetSelected = (UWORD *) AllocMem(sizeof(data_MutualGadgetSelected), MEMF_CHIP); CopyMemPPC(data_Button64,chip_Button64,sizeof(data_Button64)); CopyMemPPC(data_Button64Selected,chip_Button64Selected,sizeof(data_Button64Selected)); CopyMemPPC(data_MutualGadget,chip_MutualGadget,sizeof(data_MutualGadget)); CopyMemPPC(data_MutualGadgetSelected,chip_MutualGadgetSelected,sizeof(data_MutualGadgetSelected)); /* */ image_Button64.LeftEdge = 0; image_Button64.TopEdge = 0; image_Button64.Width = 64; image_Button64.Height = 14; image_Button64.Depth = 2; image_Button64.ImageData = chip_Button64; image_Button64.PlanePick = 3; image_Button64.PlaneOnOff = (UBYTE) NULL; image_Button64.NextImage = NULL; image_Button64Selected.LeftEdge = 0; image_Button64Selected.TopEdge = 0; image_Button64Selected.Width = 64; image_Button64Selected.Height = 14; image_Button64Selected.Depth = 2; image_Button64Selected.ImageData = chip_Button64Selected; image_Button64Selected.PlanePick = 3; image_Button64Selected.PlaneOnOff = (UBYTE) NULL; image_Button64Selected.NextImage = NULL; image_MutualGadget.LeftEdge = 0; image_MutualGadget.TopEdge = 0; image_MutualGadget.Width = 16; image_MutualGadget.Height = 14; image_MutualGadget.Depth = 2; image_MutualGadget.ImageData = chip_MutualGadget; image_MutualGadget.PlanePick = 3; image_MutualGadget.PlaneOnOff = (UBYTE) NULL; image_MutualGadget.NextImage = NULL; image_MutualGadgetSelected.LeftEdge = 0; image_MutualGadgetSelected.TopEdge = 0; image_MutualGadgetSelected.Width = 16; image_MutualGadgetSelected.Height = 14; image_MutualGadgetSelected.Depth = 2; image_MutualGadgetSelected.ImageData = chip_MutualGadgetSelected; image_MutualGadgetSelected.PlanePick = 3; image_MutualGadgetSelected.PlaneOnOff = (UBYTE) NULL; image_MutualGadgetSelected.NextImage = NULL; /* * ======================= * Process startup options * ======================= */ ChipSet = AGA_ChipSet; ColourEnabled = TRUE; UpdatePalette = TRUE; CustomScreen = TRUE; Controller = controller_Joystick; PaddlePos = 228; LibraryVersion = 39; for (i = j = 1; i < *argc; i++) { /* printf("%d: %s\n", i,argv[i]); */ if (strcmp(argv[i], "-ocs") == 0) { printf("Requested OCS graphics mode... Accepted!\n"); ChipSet = OCS_ChipSet; LibraryVersion = 37; } else if (strcmp(argv[i], "-ecs") == 0) { printf("Requested ECS graphics mode... Accepted!\n"); ChipSet = ECS_ChipSet; LibraryVersion = 37; } else if (strcmp(argv[i], "-rtgmaster") == 0) { printf("Requested rtgmaster graphics mode... Accepted!\n"); printf(" Enabled custom screen automatically\n"); ChipSet = AGA_ChipSet; CustomScreen = TRUE; cgx=FALSE; LibraryVersion = 39; } else if (strcmp(argv[i], "-cgx") == 0) { printf("Requested CGX graphics mode... Accepted!\n"); printf(" Enabled custom screen automatically\n"); ChipSet = AGA_ChipSet; CustomScreen = TRUE; cgx=TRUE; LibraryVersion = 39; } else if (strcmp(argv[i], "-grey") == 0) { printf("Requested grey scale display... Accepted!\n"); ColourEnabled = FALSE; } else if (strcmp(argv[i], "-colour") == 0) { printf("Requested colour display... Accepted!\n"); ColourEnabled = TRUE; } else if (strcmp(argv[i], "-wb") == 0) { printf("Requested Workbench window... Accepted!\n"); CustomScreen = FALSE; LibraryVersion = 37; if (ChipSet == AGA_ChipSet) { printf(" ECS chip set automatically enabled\n"); ChipSet = ECS_ChipSet; } } else if (strcmp(argv[i], "-joystick") == 0) { printf("Requested joystick controller... Accepted!\n"); Controller = controller_Joystick; } else if (strcmp(argv[i], "-paddle") == 0) { printf("Requested paddle controller... Accepted!\n"); Controller = controller_Paddle; } else if (strcmp(argv[i],"-about") ==0) { about=1; } else { argv[j++] = argv[i]; } } *argc = j; CyberGfxBase = OpenLibrary("cybergraphics.library",0); RTGMasterBase = OpenLibrary("rtgmaster.library",34); IntuitionBase = (struct IntuitionBase *) OpenLibrary("intuition.library", LibraryVersion); if (!IntuitionBase) { printf("Failed to open intuition.library\n"); Atari_Exit(0); } GfxBase = (struct GfxBase *) OpenLibrary("graphics.library", LibraryVersion); if (!GfxBase) { printf("Failed to open graphics.library\n"); Atari_Exit(0); } LayersBase = (struct LayersBase *) OpenLibrary("layers.library", LibraryVersion); if (!LayersBase) { printf("Failed to open layers.library\n"); Atari_Exit(0); } AslBase = (struct Library *) OpenLibrary("asl.library", LibraryVersion); if (!AslBase) { printf("Failed to open asl.library\n"); Atari_Exit(0); } if (!CyberGfxBase) { temp_bm = (void *)AllocBitMap(ATARI_WIDTH, 1, 8, 0, NULL); InitRastPort(&temp_rp); temp_rp.BitMap = temp_bm; } /* * ============== * Setup Joystick * ============== */ gameport_msg_port = (struct MsgPort *) CreatePort(0, 0); if (!gameport_msg_port) { printf("Failed to create gameport_msg_port\n"); Atari_Exit(0); } gameport_io_msg = (struct IOStdReq *) CreateExtIO(gameport_msg_port,sizeof(struct IOStdReq)); if (!gameport_io_msg) { printf("Failed to create gameport_io_msg\n"); Atari_Exit(0); } gameport_error = OpenDevice("gameport.device", GAMEPORT1, (void *)gameport_io_msg, 0xFFFF); if (gameport_error) { printf("Failed to open the gameport.device\n"); Atari_Exit(0); } { BYTE type = 0; gameport_io_msg->io_Command = GPD_ASKCTYPE; gameport_io_msg->io_Length = 1; gameport_io_msg->io_Data = (APTR) & type; DoIO((void *)gameport_io_msg); if (type) { printf("gameport already in use\n"); gameport_error = TRUE; } } { BYTE type = GPCT_ABSJOYSTICK; gameport_io_msg->io_Command = GPD_SETCTYPE; gameport_io_msg->io_Length = 1; gameport_io_msg->io_Data = (APTR) & type; DoIO((void *)gameport_io_msg); if (gameport_io_msg->io_Error) { printf("Failed to set controller type\n"); } } { struct GamePortTrigger gpt; gpt.gpt_Keys = GPTF_DOWNKEYS | GPTF_UPKEYS; gpt.gpt_Timeout = 0; gpt.gpt_XDelta = 1; gpt.gpt_YDelta = 1; gameport_io_msg->io_Command = GPD_SETTRIGGER; gameport_io_msg->io_Length = sizeof(gpt); gameport_io_msg->io_Data = (APTR) & gpt; DoIO((void *)gameport_io_msg); if (gameport_io_msg->io_Error) { printf("Failed to set controller trigger\n"); } } { struct InputEvent *Data; gameport_io_msg->io_Command = GPD_READEVENT; gameport_io_msg->io_Length = sizeof(struct InputEvent); gameport_io_msg->io_Data = (APTR) & gameport_data; gameport_io_msg->io_Flags = 0; } SendIO((void *)gameport_io_msg); ScreenType = WBENCHSCREEN; if (ChipSet == AGA_ChipSet) { DisplaySetupWindow(); } SetupDisplay(); if (ChipSet!=AGA_ChipSet) { data_Screen = (UWORD *) AllocVecPPC(46080 * 2, MEMF_FAST|MEMF_CLEAR,8); } else { data_Screen=(UWORD *)AllocVecPPC(46080*2,MEMF_FAST|MEMF_CLEAR,8); } if (!data_Screen) { printf("Oh BUGGER!\n"); } printf("data_Screen = %x\n", data_Screen); if (about) DisplayAboutWindow(); /* * Setup Project Menu */ menu_Project00 = MakeMenuItem(0, 0, 96, 10, "Iconify", NULL, NULL); menu_Project01 = MakeMenuItem(0, 15, 96, 10, "Help", 'H', NULL); menu_Project02 = MakeMenuItem(0, 30, 96, 10, "About", '?', NULL); menu_Project03 = MakeMenuItem(0, 45, 96, 10, "Quit", 'N', NULL); menu_Project00->NextItem = menu_Project01; menu_Project01->NextItem = menu_Project02; menu_Project02->NextItem = menu_Project03; menu_Project = MakeMenu(0, 0, 48, "Amiga", menu_Project00); /* * Setup Disk Menu */ menu_System00 = MakeMenuItem(0, 0, 144, 10, "Boot disk", NULL, NULL); menu_System01 = MakeMenuItem(0, 10, 144, 10, "Insert disk »", NULL, NULL); menu_System01s00 = MakeMenuItem(128, 0, 80, 10, "Drive 1...", NULL, NULL); menu_System01s01 = MakeMenuItem(128, 10, 80, 10, "Drive 2...", NULL, NULL); menu_System01s02 = MakeMenuItem(128, 20, 80, 10, "Drive 3...", NULL, NULL); menu_System01s03 = MakeMenuItem(128, 30, 80, 10, "Drive 4...", NULL, NULL); menu_System01s04 = MakeMenuItem(128, 40, 80, 10, "Drive 5...", NULL, NULL); menu_System01s05 = MakeMenuItem(128, 50, 80, 10, "Drive 6...", NULL, NULL); menu_System01s06 = MakeMenuItem(128, 60, 80, 10, "Drive 7...", NULL, NULL); menu_System01s07 = MakeMenuItem(128, 70, 80, 10, "Drive 8...", NULL, NULL); menu_System01s00->NextItem = menu_System01s01; menu_System01s01->NextItem = menu_System01s02; menu_System01s02->NextItem = menu_System01s03; menu_System01s03->NextItem = menu_System01s04; menu_System01s04->NextItem = menu_System01s05; menu_System01s05->NextItem = menu_System01s06; menu_System01s06->NextItem = menu_System01s07; menu_System01->SubItem = menu_System01s00; menu_System02 = MakeMenuItem(0, 20, 144, 10, "Eject disk »", NULL, NULL); menu_System02s00 = MakeMenuItem(128, 0, 56, 10, "Drive 1", NULL, NULL); menu_System02s01 = MakeMenuItem(128, 10, 56, 10, "Drive 2", NULL, NULL); menu_System02s02 = MakeMenuItem(128, 20, 56, 10, "Drive 3", NULL, NULL); menu_System02s03 = MakeMenuItem(128, 30, 56, 10, "Drive 4", NULL, NULL); menu_System02s04 = MakeMenuItem(128, 40, 56, 10, "Drive 5", NULL, NULL); menu_System02s05 = MakeMenuItem(128, 50, 56, 10, "Drive 6", NULL, NULL); menu_System02s06 = MakeMenuItem(128, 60, 56, 10, "Drive 7", NULL, NULL); menu_System02s07 = MakeMenuItem(128, 70, 56, 10, "Drive 8", NULL, NULL); menu_System02s00->NextItem = menu_System02s01; menu_System02s01->NextItem = menu_System02s02; menu_System02s02->NextItem = menu_System02s03; menu_System02s03->NextItem = menu_System02s04; menu_System02s04->NextItem = menu_System02s05; menu_System02s05->NextItem = menu_System02s06; menu_System02s06->NextItem = menu_System02s07; menu_System02->SubItem = menu_System02s00; menu_System03 = MakeMenuItem(0, 35, 144, 10, "Insert Cartridge »", NULL, NULL); menu_System03s00 = MakeMenuItem(128, 0, 128, 10, "8K Cart...", NULL, NULL); menu_System03s01 = MakeMenuItem(128, 10, 128, 10, "16K Cart...", NULL, NULL); menu_System03s02 = MakeMenuItem(128, 20, 128, 10, "OSS SuperCart...", NULL, NULL); menu_System03s00->NextItem = menu_System03s01; menu_System03s01->NextItem = menu_System03s02; menu_System03->SubItem = menu_System03s00; menu_System04 = MakeMenuItem(0, 45, 144, 10, "Remove Cartridge", NULL, NULL); menu_System05 = MakeMenuItem(0, 60, 144, 10, "Enable PIL", NULL, NULL); menu_System06 = MakeMenuItem(0, 75, 144, 10, "Atari 800 OS/A", NULL, NULL); menu_System07 = MakeMenuItem(0, 85, 144, 10, "Atari 800 OS/B", NULL, NULL); menu_System08 = MakeMenuItem(0, 95, 144, 10, "Atari 800XL", NULL, NULL); menu_System09 = MakeMenuItem(0, 105, 144, 10, "Atari 130XE", NULL, NULL); menu_System00->NextItem = menu_System01; menu_System01->NextItem = menu_System02; menu_System02->NextItem = menu_System03; menu_System03->NextItem = menu_System04; menu_System04->NextItem = menu_System05; menu_System05->NextItem = menu_System06; menu_System06->NextItem = menu_System07; menu_System07->NextItem = menu_System08; menu_System08->NextItem = menu_System09; menu_System = MakeMenu(48, 0, 56, "System", menu_System00); /* * Setup Console Menu */ menu_Console00 = MakeMenuItem(0, 0, 80, 10, "Option", NULL, NULL); menu_Console01 = MakeMenuItem(0, 10, 80, 10, "Select", NULL, NULL); menu_Console02 = MakeMenuItem(0, 20, 80, 10, "Start", NULL, NULL); menu_Console03 = MakeMenuItem(0, 30, 80, 10, "Help", NULL, NULL); if (machine == Atari) { menu_Console03->Flags = ITEMTEXT | HIGHCOMP; } menu_Console04 = MakeMenuItem(0, 45, 80, 10, "Break", NULL, NULL); menu_Console05 = MakeMenuItem(0, 60, 80, 10, "Reset", NULL, NULL); menu_Console06 = MakeMenuItem(0, 75, 80, 10, "Cold Start", NULL, NULL); menu_Console00->NextItem = menu_Console01; menu_Console01->NextItem = menu_Console02; menu_Console02->NextItem = menu_Console03; menu_Console03->NextItem = menu_Console04; menu_Console04->NextItem = menu_Console05; menu_Console05->NextItem = menu_Console06; menu_Console = MakeMenu(104, 0, 64, "Console", menu_Console00); /* * Setup Prefs Menu */ /* menu_Prefs00 = MakeMenuItem (0, 0, 96, 10, "Controller »", NULL, NULL); menu_Prefs00s00 = MakeMenuItem (80, 0, 80, 10, " Joystick", NULL, 2); menu_Prefs00s01 = MakeMenuItem (80, 10, 80, 10, " Paddle", NULL, 1); if (Controller == controller_Joystick) { menu_Prefs00s00->Flags = menu_Prefs00s00->Flags | CHECKED; } else if (Controller == controller_Paddle) { menu_Prefs00s01->Flags = menu_Prefs00s01->Flags | CHECKED; } menu_Prefs00s00->NextItem = menu_Prefs00s01; menu_Prefs00->SubItem = menu_Prefs00s00; */ menu_Prefs00 = MakeMenuItem(0, 0, 96, 10, "Controller »", NULL, NULL); menu_Prefs00s00 = MakeMenuItem(80, 0, 80, 10, "Port 1...", NULL, NULL); menu_Prefs00s01 = MakeMenuItem(80, 10, 80, 10, "Port 2...", NULL, NULL); menu_Prefs00s01->Flags = ITEMTEXT | HIGHCOMP; menu_Prefs00s02 = MakeMenuItem(80, 20, 80, 10, "Port 3...", NULL, NULL); /* if (machine != Atari) { menu_Prefs00s02->Flags = ITEMTEXT | HIGHCOMP; } */ menu_Prefs00s02->Flags = ITEMTEXT | HIGHCOMP; menu_Prefs00s03 = MakeMenuItem(80, 30, 80, 10, "Port 4...", NULL, NULL); /* if (machine != Atari) { menu_Prefs00s03->Flags = ITEMTEXT | HIGHCOMP; } */ menu_Prefs00s03->Flags = ITEMTEXT | HIGHCOMP; menu_Prefs00s00->NextItem = menu_Prefs00s01; menu_Prefs00s01->NextItem = menu_Prefs00s02; menu_Prefs00s02->NextItem = menu_Prefs00s03; menu_Prefs00->SubItem = menu_Prefs00s00; menu_Prefs01 = MakeMenuItem(0, 10, 96, 10, "Display »", NULL, NULL); menu_Prefs01s00 = MakeMenuItem(80, 0, 64, 10, " Colour", NULL, 2); menu_Prefs01s01 = MakeMenuItem(80, 10, 64, 10, " Grey", NULL, 1); if (ColourEnabled) { menu_Prefs01s00->Flags = menu_Prefs01s00->Flags | CHECKED; } else { menu_Prefs01s01->Flags = menu_Prefs01s01->Flags | CHECKED; } menu_Prefs01s00->NextItem = menu_Prefs01s01; menu_Prefs01->SubItem = menu_Prefs01s00; menu_Prefs02 = MakeMenuItem(0, 20, 96, 10, "Refresh »", NULL, NULL); menu_Prefs02s00 = MakeMenuItem(80, 0, 24, 10, " 1", NULL, 14); menu_Prefs02s01 = MakeMenuItem(80, 10, 24, 10, " 2", NULL, 13); menu_Prefs02s02 = MakeMenuItem(80, 20, 24, 10, " 4", NULL, 11); menu_Prefs02s03 = MakeMenuItem(80, 30, 24, 10, " 8", NULL, 7); if (refresh_rate == 1) { menu_Prefs02s00->Flags = menu_Prefs02s00->Flags | CHECKED; } else if (refresh_rate == 2) { menu_Prefs02s01->Flags = menu_Prefs02s01->Flags | CHECKED; } else if (refresh_rate == 4) { menu_Prefs02s02->Flags = menu_Prefs02s02->Flags | CHECKED; } else if (refresh_rate == 8) { menu_Prefs02s03->Flags = menu_Prefs02s03->Flags | CHECKED; } menu_Prefs02s00->NextItem = menu_Prefs02s01; menu_Prefs02s01->NextItem = menu_Prefs02s02; menu_Prefs02s02->NextItem = menu_Prefs02s03; menu_Prefs02->SubItem = menu_Prefs02s00; menu_Prefs03 = MakeMenuItem(0, 30, 96, 10, "Countdown »", NULL, NULL); menu_Prefs03s00 = MakeMenuItem(80, 0, 56, 10, " 4000", NULL, 14); menu_Prefs03s01 = MakeMenuItem(80, 10, 56, 10, " 8000", NULL, 13); menu_Prefs03s02 = MakeMenuItem(80, 20, 56, 10, " 16000", NULL, 11); menu_Prefs03s03 = MakeMenuItem(80, 30, 56, 10, " 32000", NULL, 7); if (countdown_rate == 4000) { menu_Prefs03s00->Flags = menu_Prefs03s00->Flags | CHECKED; } else if (countdown_rate == 8000) { menu_Prefs03s01->Flags = menu_Prefs03s01->Flags | CHECKED; } else if (countdown_rate == 16000) { menu_Prefs03s02->Flags = menu_Prefs03s02->Flags | CHECKED; } else if (countdown_rate == 32000) { menu_Prefs03s03->Flags = menu_Prefs03s03->Flags | CHECKED; } menu_Prefs03s00->NextItem = menu_Prefs03s01; menu_Prefs03s01->NextItem = menu_Prefs03s02; menu_Prefs03s02->NextItem = menu_Prefs03s03; menu_Prefs03->SubItem = menu_Prefs03s00; menu_Prefs00->NextItem = menu_Prefs01; menu_Prefs01->NextItem = menu_Prefs02; menu_Prefs02->NextItem = menu_Prefs03; menu_Prefs = MakeMenu(168, 0, 48, "Prefs", menu_Prefs00); /* * Link Menus */ menu_Project->NextMenu = menu_System; menu_System->NextMenu = menu_Console; menu_Console->NextMenu = menu_Prefs; SetMenuStrip(WindowMain, menu_Project); image_Screen.LeftEdge = 0; image_Screen.TopEdge = 0; image_Screen.Width = 384; image_Screen.Height = 240; image_Screen.Depth = 8; image_Screen.ImageData = data_Screen; image_Screen.PlanePick = 255; image_Screen.PlaneOnOff = NULL; image_Screen.NextImage = NULL; /* * ============================ * Storage for Atari 800 Screen * ============================ */ image_data = (UBYTE *) AllocVecPPC(ATARI_WIDTH * ATARI_HEIGHT,MEMF_FAST|MEMF_CLEAR,8); if (!image_data) { printf("Failed to allocate space for image\n"); Atari_Exit(0); } for (ptr = image_data, i = 0; i < ATARI_WIDTH * ATARI_HEIGHT; i++, ptr++) *ptr = 0; for (ptr = (char *) data_Screen, i = 0; i < ATARI_WIDTH * ATARI_HEIGHT; i++, ptr++) *ptr = 0; trig0 = 1; stick0 = 15; consol = 7; } /* * ========== * Atari_Exit * ========== */ /* * Revision : v0.2.0 * Introduced : NOT KNOWN (Before 2nd September 1995) * Last updated : 7th September 1995 */ int Atari_Exit(int run_monitor) { if (run_monitor) { if (monitor()) { return TRUE; } } AbortIO((void *)gameport_io_msg); while (GetMsg(gameport_msg_port)) { } if (!gameport_error) { { BYTE type = GPCT_NOCONTROLLER; gameport_io_msg->io_Command = GPD_SETCTYPE; gameport_io_msg->io_Length = 1; gameport_io_msg->io_Data = (APTR) & type; DoIO((void *)gameport_io_msg); if (gameport_io_msg->io_Error) { printf("Failed to set controller type\n"); } } CloseDevice((void *)gameport_io_msg); } FreeVecPPC(data_Screen); if (gameport_io_msg) { DeleteExtIO((void *)gameport_io_msg); } if (gameport_msg_port) { DeletePort(gameport_msg_port); } if (WindowMain) { CloseWindow(WindowMain); } if (temp_bm) FreeBitMap(temp_bm); if (MyScreen) CloseRtgScreen(MyScreen); else { if (ScreenMain) { CloseScreen(ScreenMain); } } if (LayersBase) { CloseLibrary((void *)LayersBase); } if (RTGMasterBase) CloseLibrary(RTGMasterBase); if (CyberGfxBase) CloseLibrary(CyberGfxBase); if (GfxBase) { CloseLibrary((void *)GfxBase); } if (IntuitionBase) { CloseLibrary((void *)IntuitionBase); } exit(1); /* return FALSE; */ } /* * =================== * Atari_DisplayScreen * =================== */ /* * Revision : v0.2.0a * Introduced : NOT KNOWN (Before 2nd September 1995) * Last updated : 7th September 1995 */ #include #include extern int Planar; extern void *MapA; void Atari_DisplayScreen(UBYTE * screen) { consol = 7; if (ChipSet == AGA_ChipSet) { if (CyberGfxBase) WritePixelArray(screen,0,0,ATARI_WIDTH,WindowMain->RPort,0,24,ATARI_WIDTH,ATARI_HEIGHT-24,RECTFMT_LUT8); else WritePixelArray8(WindowMain->RPort,0,0,ATARI_WIDTH-1,ATARI_HEIGHT-1,screen,temp_rp); consol = 7; } else { /* register ULONG *bitplane0; register ULONG *bitplane1; register ULONG *bitplane2; register ULONG *bitplane3; register ULONG *bitplane4; register ULONG word0, word1, word2, word3, word4; int ypos; int xpos; int tbit = 31; UBYTE *scanline_ptr; BYTE pens[256]; int pen; scanline_ptr = image_data; bitplane0 = (void *)(&data_Screen[0]); word0 = *bitplane0; bitplane1 = (void *)(&data_Screen[5760]); word1 = *bitplane1; bitplane2 = (void *)(&data_Screen[11520]); word2 = *bitplane2; bitplane3 = (void *)(&data_Screen[17280]); word3 = *bitplane3; bitplane4 = (void *)(&data_Screen[23040]); word4 = *bitplane4; for (pen = 0; pen < 256; pen++) { pens[pen] = 0; } pen = 5; if (CustomScreen) { pen = 1; } if (ColourEnabled) { for (ypos = 0; ypos < ATARI_HEIGHT; ypos++) { for (xpos = 0; xpos < ATARI_WIDTH; xpos++) { UBYTE colour; colour = *screen; if (pens[colour] == 0) { if (pen < 33) { int rgb = colortable[colour]; int red; int green; int blue; pens[colour] = pen; pen++; if (UpdatePalette) { red = (rgb & 0x00ff0000) >> 20; green = (rgb & 0x0000ff00) >> 12; blue = (rgb & 0x000000ff) >> 4; SetRGB4(&ScreenMain->ViewPort, pen - 1, red, green, blue); } } } colour = pens[*screen++]; if (colour != *scanline_ptr) { ULONG mask; mask = ~(1 << tbit); word0 = (word0 & mask) | (((colour) & 1) << tbit); word1 = (word1 & mask) | (((colour >> 1) & 1) << tbit); word2 = (word2 & mask) | (((colour >> 2) & 1) << tbit); word3 = (word3 & mask) | (((colour >> 3) & 1) << tbit); word4 = (word4 & mask) | (((colour >> 4) & 1) << tbit); *scanline_ptr++ = colour; } else { scanline_ptr++; } if (--tbit == -1) { *bitplane0++ = word0; word0 = *bitplane0; *bitplane1++ = word1; word1 = *bitplane1; *bitplane2++ = word2; word2 = *bitplane2; *bitplane3++ = word3; word3 = *bitplane3; *bitplane4++ = word4; word4 = *bitplane4; tbit = 31; } } } } else { for (ypos = 0; ypos < ATARI_HEIGHT; ypos++) { for (xpos = 0; xpos < ATARI_WIDTH; xpos++) { UBYTE colour; colour = (*screen++ & 0x0f) + pen - 1; if (colour != *scanline_ptr) { ULONG mask; mask = ~(1 << tbit); word0 = (word0 & mask) | (((colour) & 1) << tbit); word1 = (word1 & mask) | (((colour >> 1) & 1) << tbit); word2 = (word2 & mask) | (((colour >> 2) & 1) << tbit); word3 = (word3 & mask) | (((colour >> 3) & 1) << tbit); word4 = (word4 & mask) | (((colour >> 4) & 1) << tbit); *scanline_ptr++ = colour; } else { scanline_ptr++; } if (--tbit == -1) { *bitplane0++ = word0; word0 = *bitplane0; *bitplane1++ = word1; word1 = *bitplane1; *bitplane2++ = word2; word2 = *bitplane2; *bitplane3++ = word3; word3 = *bitplane3; *bitplane4++ = word4; word4 = *bitplane4; tbit = 31; } } } } }*/ if (ChipSet != AGA_ChipSet) { if (CyberGfxBase) WritePixelArray(screen,0,0,ATARI_WIDTH,WindowMain->RPort,0,24,ATARI_WIDTH,ATARI_HEIGHT-24,RECTFMT_LUT8); else WritePixelArray8(WindowMain->RPort,0,0,ATARI_WIDTH-1,ATARI_HEIGHT-1,screen,temp_rp); /* if (CustomScreen) { DrawImage(WindowMain->RPort, &image_Screen, -32, 0); } else { DrawImage(WindowMain->RPort, &image_Screen, 0, 0);*/ } } } /* * ============== * Atari_Keyboard * ============== */ /* * Revision : v0.3.3 * Introduced : NOT KNOWN (Before 2nd September 1995) * Last updated : 7th March 1996 * * Notes: Currently contains GUI monitoring code as well. At some time in * the future I intend on removing this from this code. */ int Atari_Keyboard(void) { int keycode; struct IntuiMessage *IntuiMessage; ULONG Class; USHORT Code; APTR Address; SHORT MouseX; SHORT MouseY; USHORT MenuItem = NULL; int Menu = NULL; int Item = NULL; int SubItem = NULL; keycode = -1; while (IntuiMessage = (struct IntuiMessage *) GetMsg(WindowMain->UserPort)) { Class = IntuiMessage->Class; Code = IntuiMessage->Code; Address = IntuiMessage->IAddress; MouseX = IntuiMessage->MouseX; MouseY = IntuiMessage->MouseY; MenuItem = Code; Menu = MENUNUM(MenuItem); Item = ITEMNUM(MenuItem); SubItem = SUBNUM(MenuItem); if (Class == MENUVERIFY) { if (ChipSet == OCS_ChipSet || ChipSet == ECS_ChipSet) { if (CustomScreen) { int i; UpdatePalette = FALSE; for (i = 0; i < 16; i++) { int rgb = colortable[i]; int red; int green; int blue; red = (rgb & 0x00ff0000) >> 20; green = (rgb & 0x0000ff00) >> 12; blue = (rgb & 0x000000ff) >> 4; SetRGB4(&ScreenMain->ViewPort, i, red, green, blue); } SetRGB4(&ScreenMain->ViewPort, 24, 6, 8, 11); } } } ReplyMsg((void *)IntuiMessage); switch (Class) { case VANILLAKEY: keycode = Code; switch (keycode) { case 0x01: keycode = AKEY_CTRL_a; break; case 0x02: keycode = AKEY_CTRL_b; break; case 0x03: keycode = AKEY_CTRL_c; break; case 0x04: keycode = AKEY_CTRL_d; break; case 0x05: keycode = AKEY_CTRL_E; break; case 0x06: keycode = AKEY_CTRL_F; break; case 0x07: keycode = AKEY_CTRL_G; break; /* case 0x08 : keycode = AKEY_CTRL_H; break; */ /* TAB - see case '\t' : case 0x09 : keycode = AKEY_CTRL_I; break; */ case 0x0a: keycode = AKEY_CTRL_J; break; case 0x0b: keycode = AKEY_CTRL_K; break; case 0x0c: keycode = AKEY_CTRL_L; break; /* case 0x0d : keycode = AKEY_CTRL_M; break; */ case 0x0e: keycode = AKEY_CTRL_N; break; case 0x0f: keycode = AKEY_CTRL_O; break; case 0x10: keycode = AKEY_CTRL_P; break; case 0x11: keycode = AKEY_CTRL_Q; break; case 0x12: keycode = AKEY_CTRL_R; break; case 0x13: keycode = AKEY_CTRL_S; break; case 0x14: keycode = AKEY_CTRL_T; break; case 0x15: keycode = AKEY_CTRL_U; break; case 0x16: keycode = AKEY_CTRL_V; break; case 0x17: keycode = AKEY_CTRL_W; break; case 0x18: keycode = AKEY_CTRL_X; break; case 0x19: keycode = AKEY_CTRL_Y; break; case 0x1a: keycode = AKEY_CTRL_Z; break; case 8: keycode = AKEY_BACKSPACE; break; case 13: keycode = AKEY_RETURN; break; case 0x1b: keycode = AKEY_ESCAPE; break; case '0': keycode = AKEY_0; break; case '1': keycode = AKEY_1; break; case '2': keycode = AKEY_2; break; case '3': keycode = AKEY_3; break; case '4': keycode = AKEY_4; break; case '5': keycode = AKEY_5; break; case '6': keycode = AKEY_6; break; case '7': keycode = AKEY_7; break; case '8': keycode = AKEY_8; break; case '9': keycode = AKEY_9; break; case 'A': case 'a': keycode = AKEY_a; break; case 'B': case 'b': keycode = AKEY_b; break; case 'C': case 'c': keycode = AKEY_c; break; case 'D': case 'd': keycode = AKEY_d; break; case 'E': case 'e': keycode = AKEY_e; break; case 'F': case 'f': keycode = AKEY_f; break; case 'G': case 'g': keycode = AKEY_g; break; case 'H': case 'h': keycode = AKEY_h; break; case 'I': case 'i': keycode = AKEY_i; break; case 'J': case 'j': keycode = AKEY_j; break; case 'K': case 'k': keycode = AKEY_k; break; case 'L': case 'l': keycode = AKEY_l; break; case 'M': case 'm': keycode = AKEY_m; break; case 'N': case 'n': keycode = AKEY_n; break; case 'O': case 'o': keycode = AKEY_o; break; case 'P': case 'p': keycode = AKEY_p; break; case 'Q': case 'q': keycode = AKEY_q; break; case 'R': case 'r': keycode = AKEY_r; break; case 'S': case 's': keycode = AKEY_s; break; case 'T': case 't': keycode = AKEY_t; break; case 'U': case 'u': keycode = AKEY_u; break; case 'V': case 'v': keycode = AKEY_v; break; case 'W': case 'w': keycode = AKEY_w; break; case 'X': case 'x': keycode = AKEY_x; break; case 'Y': case 'y': keycode = AKEY_y; break; case 'Z': case 'z': keycode = AKEY_z; break; case ' ': keycode = AKEY_SPACE; break; case '\t': keycode = AKEY_TAB; break; case '!': keycode = AKEY_EXCLAMATION; break; case '"': keycode = AKEY_DBLQUOTE; break; case '#': keycode = AKEY_HASH; break; case '$': keycode = AKEY_DOLLAR; break; case '%': keycode = AKEY_PERCENT; break; case '&': keycode = AKEY_AMPERSAND; break; case '\'': keycode = AKEY_QUOTE; break; case '@': keycode = AKEY_AT; break; case '(': keycode = AKEY_PARENLEFT; break; case ')': keycode = AKEY_PARENRIGHT; break; case '<': keycode = AKEY_LESS; break; case '>': keycode = AKEY_GREATER; break; case '=': keycode = AKEY_EQUAL; break; case '?': keycode = AKEY_QUESTION; break; case '-': keycode = AKEY_MINUS; break; case '+': keycode = AKEY_PLUS; break; case '*': keycode = AKEY_ASTERISK; break; case '/': keycode = AKEY_SLASH; break; case ':': keycode = AKEY_COLON; break; case ';': keycode = AKEY_SEMICOLON; break; case ',': keycode = AKEY_COMMA; break; case '.': keycode = AKEY_FULLSTOP; break; case '_': keycode = AKEY_UNDERSCORE; break; case '[': keycode = AKEY_BRACKETLEFT; break; case ']': keycode = AKEY_BRACKETRIGHT; break; case '^': keycode = AKEY_CIRCUMFLEX; break; case '\\': keycode = AKEY_BACKSLASH; break; case '|': keycode = AKEY_BAR; break; default: keycode = AKEY_NONE; break; } break; case RAWKEY: switch (Code) { case 0x51: consol &= 0x03; keycode = AKEY_NONE; break; case 0x52: consol &= 0x05; keycode = AKEY_NONE; break; case 0x53: consol &= 0x06; keycode = AKEY_NONE; break; case 0x55: keycode = AKEY_PIL; break; case 0x56: keycode = AKEY_BREAK; break; case 0x59: keycode = AKEY_NONE; break; case 0x4f: keycode = AKEY_LEFT; break; case 0x4c: keycode = AKEY_UP; break; case 0x4e: keycode = AKEY_RIGHT; break; case 0x4d: keycode = AKEY_DOWN; break; default: break; } break; case MOUSEBUTTONS: if (Controller == controller_Paddle) { switch (Code) { case SELECTDOWN: stick0 = 251; break; case SELECTUP: stick0 = 255; break; default: break; } } break; case MOUSEMOVE: if (Controller == controller_Paddle) { if (MouseX > 57) { if (MouseX < 287) { PaddlePos = 228 - (MouseX - 58); } else { PaddlePos = 0; } } else { PaddlePos = 228; } } break; case CLOSEWINDOW: if (DisplayYesNoWindow()) { keycode = AKEY_EXIT; } break; case MENUPICK: switch (Menu) { case 0: switch (Item) { case 0: Iconify(); /* DisplayNotSupportedWindow (); */ break; case 1: SystemTags ( "Run >Nil: Flags = ITEMTEXT | HIGHCOMP; } else { menu_Console03->Flags = ITEMTEXT | ITEMENABLED | HIGHCOMP; } } else { } } break; case 7: /* * Atari800 OS/B */ { int status; status = Initialise_AtariOSB(); if (status) { if (machine == Atari) { menu_Console03->Flags = ITEMTEXT | HIGHCOMP; } else { menu_Console03->Flags = ITEMTEXT | ITEMENABLED | HIGHCOMP; } } else { } } break; case 8: /* * Atari800 XL */ { int status; status = Initialise_AtariXL(); if (status) { if (machine == Atari) { menu_Console03->Flags = ITEMTEXT | HIGHCOMP; } else { menu_Console03->Flags = ITEMTEXT | ITEMENABLED | HIGHCOMP; } } else { } } break; case 9: /* * Atari XE */ { int status; status = Initialise_AtariXE(); if (status) { if (machine == Atari) { menu_Console03->Flags = ITEMTEXT | HIGHCOMP; } else { menu_Console03->Flags = ITEMTEXT | ITEMENABLED | HIGHCOMP; } } else { } } break; default: break; } break; case 2: switch (Item) { case 0: consol &= 0x03; keycode = AKEY_NONE; break; case 1: consol &= 0x05; keycode = AKEY_NONE; break; case 2: consol &= 0x06; keycode = AKEY_NONE; break; case 3: keycode = AKEY_HELP; break; case 4: keycode = AKEY_BREAK; break; case 5: if (DisplayYesNoWindow()) { keycode = AKEY_WARMSTART; } break; case 6: if (DisplayYesNoWindow()) { keycode = AKEY_COLDSTART; } break; default: break; } break; case 3: switch (Item) { case 0: switch (SubItem) { case 0: DisplayControllerWindow(0); break; case 1: DisplayControllerWindow(1); break; case 2: DisplayControllerWindow(2); break; case 3: DisplayControllerWindow(3); break; default: break; } break; case 1: switch (SubItem) { case 0: ColourEnabled = TRUE; break; case 1: { int i; ColourEnabled = FALSE; for (i = 0; i < 16; i++) { int rgb = colortable[i]; int red; int green; int blue; red = (rgb & 0x00ff0000) >> 20; green = (rgb & 0x0000ff00) >> 12; blue = (rgb & 0x000000ff) >> 4; if (CustomScreen) { SetRGB4(&ScreenMain->ViewPort, i, red, green, blue); } else { SetRGB4(&ScreenMain->ViewPort, i + 4, red, green, blue); } } } break; default: break; } break; case 2: switch (SubItem) { case 0: refresh_rate = 1; break; case 1: refresh_rate = 2; break; case 2: refresh_rate = 4; break; case 3: refresh_rate = 8; break; default: break; } break; case 3: switch (SubItem) { case 0: countdown_rate = 4000; break; case 1: countdown_rate = 8000; break; case 2: countdown_rate = 16000; break; case 3: countdown_rate = 32000; break; default: break; } break; default: break; } default: break; } UpdatePalette = TRUE; break; default: break; } } return keycode; } /* * ============== * Atari_Joystick * ============== */ /* * Revision : v0.1.9a * Introduced : NOT KNOWN (Before 2nd September 1995) * Last updated : 2nd September 1995 */ int Atari_Joystick() { WORD x; WORD y; UWORD code; int stick = 0; if (GetMsg(gameport_msg_port)) { x = gameport_data.ie_X; y = gameport_data.ie_Y; code = gameport_data.ie_Code; switch (x) { case -1: switch (y) { case -1: stick = 10; break; case 0: stick = 11; break; case 1: stick = 9; break; default: break; } break; case 0: switch (y) { case -1: stick = 14; break; case 0: stick = 15; break; case 1: stick = 13; break; default: break; } break; case 1: switch (y) { case -1: stick = 6; break; case 0: stick = 7; break; case 1: stick = 5; break; default: break; } break; default: break; } if (code == IECODE_LBUTTON) { if (stick == 0) { stick = old_stick_0 & 15; } else { stick = stick & 15; } } if (code == IECODE_LBUTTON + IECODE_UP_PREFIX) { if (stick == 0) { stick = old_stick_0 | 16; } else { stick = stick | 16; } } old_stick_0 = stick; SendIO((void *)gameport_io_msg); } if (stick == 0) { stick = old_stick_0; } stick0 = stick & 0x0f; trig0 = (stick & 0x10) >> 4; /* printf ("stick0 = %d trig0 = %d\n", stick0, trig0); return stick; */ } /* * ========== * Atari_PORT * ========== */ /* * Revision : v0.2.0a * Introduced : 2nd September 1995 * Last updated : 3rd September 1995 * * Notes: Hook required by v0.2.0. All the work is actually done in * Atari_Joystick and Atari_Paddle. */ int Atari_PORT(int num) { if (num == 0) { if (Controller == controller_Joystick) { Atari_Joystick(); return 0xf0 | stick0; } else { return stick0; } } else { return 0xff; } } /* * ========== * Atari_TRIG * ========== */ /* * Revision : v0.1.9a * Introduced : 2nd September 1995 * Last updated : 2nd September 1995 * * Notes: Hook required by v0.1.9. All the work is actually done in * Atari_Joystick. */ int Atari_TRIG(int num) { if (num == 0) { Atari_Joystick(); return trig0; } else return 1; } /* * ========= * Atari_POT * ========= */ /* * Revision : v0.2.0a * Introduced : 2nd September 1995 * Last updated : 3rd September 1995 * * Notes: Currently acts as nothing more than a hook. */ int Atari_POT(int num) { return PaddlePos; } /* * ============ * Atari_CONSOL * ============ */ /* * Revision : v0.1.9a * Introduced : 2nd September 1995 * Last updated : 2nd September 1995 * * Notes: Hook required by v0.1.9. All the work is actually done in * Atari_Keyboard. */ int Atari_CONSOL(void) { return consol; } /* * ================== * DisplayAboutWindow * ================== */ /* * Revision : v0.3.3 * Introduced : 2nd September 1995 * Last updated : 7th March 1996 */ void DisplayAboutWindow(void) { ULONG Class; USHORT Code; APTR Address; struct IntuiMessage *IntuiMessage; struct NewWindow NewWindow; struct Gadget *Gadget1 = NULL; int QuitRoutine; NewWindow.LeftEdge = 12; NewWindow.TopEdge = 46; NewWindow.Width = 296; NewWindow.Height = 148; NewWindow.DetailPen = 0; NewWindow.BlockPen = 15; NewWindow.IDCMPFlags = CLOSEWINDOW | GADGETUP; NewWindow.Flags = WINDOWCLOSE | GIMMEZEROZERO | WINDOWDRAG | SMART_REFRESH | ACTIVATE; NewWindow.FirstGadget = NULL; NewWindow.CheckMark = NULL; NewWindow.Title = ATARI_TITLE; NewWindow.Screen = ScreenMain; NewWindow.Type = ScreenType; NewWindow.BitMap = NULL; NewWindow.MinWidth = 92; NewWindow.MinHeight = 65; NewWindow.MaxWidth = 1280; NewWindow.MaxHeight = 512; WindowAbout = (struct Window *) OpenWindowTags ( &NewWindow, WA_NewLookMenus, TRUE, WA_MenuHelp, TRUE, WA_ScreenTitle, ATARI_TITLE, TAG_DONE ); if (ScreenType == CUSTOMSCREEN) { SetRast(WindowAbout->RPort, 6); } Rule(0, 15, 288, WindowAbout); { char temp[128]; char *ptr; strcpy(temp, ATARI_TITLE); ptr = strchr(temp, ','); if (ptr) { int title_len; int version_len; *ptr++ = '\0'; ptr++; title_len = strlen(temp); version_len = strlen(ptr); ShowText((36 - title_len), 1, WindowAbout, temp); ShowText((36 - version_len), 4, WindowAbout, ptr); } else { ShowText(19, 1, WindowAbout, "Atari800 Emulator"); ShowText(21, 4, WindowAbout, "Version Unknown"); } ShowText(17, 7, WindowAbout, "Original program by"); ShowText(25, 9, WindowAbout, "David Firth"); ShowText(18, 12, WindowAbout, "AmigaPPC Module V9 by"); ShowText(20, 14, WindowAbout, "Steffen P. Haeuser"); } Gadget1 = MakeGadget(55, 17, 64, 14, 0, WindowAbout, "Ok", gadget_Button); QuitRoutine = FALSE; while (QuitRoutine == FALSE) { while (IntuiMessage = (struct IntuiMessage *) GetMsg(WindowAbout->UserPort)) { Class = IntuiMessage->Class; Code = IntuiMessage->Code; Address = IntuiMessage->IAddress; ReplyMsg((void *)IntuiMessage); switch (Class) { case CLOSEWINDOW: QuitRoutine = TRUE; break; case GADGETUP: if (Address == (APTR) Gadget1) { QuitRoutine = TRUE; } break; default: break; } } } CloseWindow(WindowAbout); } /* * ================== * DisplaySetupWindow * ================== */ /* * Revision : v0.2.1 * Introduced : 3rd September 1995 * Last updated : 12th October 1995 */ void DisplaySetupWindow(void) { ULONG Class; USHORT Code; APTR Address; struct IntuiMessage *IntuiMessage; struct NewWindow NewWindow; struct Gadget *Gadget1 = NULL; struct Gadget *Gadget2 = NULL; struct Gadget *Gadget3 = NULL; struct Gadget *Gadget4 = NULL; struct Gadget *Gadget5 = NULL; struct Gadget *Gadget6 = NULL; struct Gadget *Gadget7 = NULL; int QuitRoutine; NewWindow.LeftEdge = 0; NewWindow.TopEdge = 11; NewWindow.Width = 296; NewWindow.Height = 148; /* 177 */ NewWindow.DetailPen = 0; NewWindow.BlockPen = 15; NewWindow.IDCMPFlags = CLOSEWINDOW | GADGETUP; NewWindow.Flags = WINDOWCLOSE | GIMMEZEROZERO | WINDOWDRAG | SMART_REFRESH | ACTIVATE; NewWindow.FirstGadget = NULL; NewWindow.CheckMark = NULL; NewWindow.Title = ATARI_TITLE; NewWindow.Screen = NULL; NewWindow.Type = WBENCHSCREEN; NewWindow.BitMap = NULL; NewWindow.MinWidth = 92; NewWindow.MinHeight = 65; NewWindow.MaxWidth = 1280; NewWindow.MaxHeight = 512; WindowSetup = (struct Window *) OpenWindowTags ( &NewWindow, WA_NewLookMenus, TRUE, WA_MenuHelp, TRUE, WA_ScreenTitle, ATARI_TITLE, TAG_DONE ); Rule(0, 15, 288, WindowSetup); ShowText(1, 1, WindowSetup, "Display:"); /* ShowText (17, 1, WindowSetup, "CLI Startup Options"); ShowText (2, 4, WindowSetup, "-ocs OCS emulation module"); ShowText (2, 6, WindowSetup, "-ecs ECS emulation module"); ShowText (2, 8, WindowSetup, "-aga AGA emulation module"); ShowText (2, 11, WindowSetup, "-wb Open window on Workbench"); ShowText (2, 13, WindowSetup, " (forces ECS emulation)"); ShowText (2, 16, WindowSetup, "-colour Colour display"); ShowText (2, 18, WindowSetup, "-grey Grey scale display"); */ /* Gadget1 = MakeGadget (0, 21, 64, 14, 0, WindowSetup, "AGA Screen", gadget_Button); Gadget2 = MakeGadget (24, 21, 64, 14, 0, WindowSetup, "ECS Screen", gadget_Button); Gadget3 = MakeGadget (48, 21, 64, 14, 0, WindowSetup, "OCS Screen", gadget_Button); Gadget4 = MakeGadget (0, 23, 64, 14, 0, WindowSetup, "AGA Window", gadget_Button); Gadget5 = MakeGadget (24, 23, 64, 14, 0, WindowSetup, "ECS Window", gadget_Button); Gadget6 = MakeGadget (48, 23, 64, 14, 0, WindowSetup, "OCS Window", gadget_Button); */ Gadget1 = MakeGadget(3, 3, 16, 14, 0, WindowSetup, "rtgmaster", gadget_Mutual); Gadget1->Flags = GADGIMAGE | GADGHIMAGE | SELECTED; Gadget2 = MakeGadget(3, 5, 16, 14, 0, WindowSetup, "ECS Screen", gadget_Mutual); Gadget3 = MakeGadget(3, 7, 16, 14, 0, WindowSetup, "OCS Screen", gadget_Mutual); Gadget4 = MakeGadget(3, 9, 16, 14, 0, WindowSetup, "CGX",gadget_Mutual); Gadget5 = MakeGadget(3, 11, 16, 14, 0, WindowSetup, "ECS Window", gadget_Mutual); Gadget6 = MakeGadget(3, 13, 16, 14, 0, WindowSetup, "OCS Window", gadget_Mutual); Gadget7 = MakeGadget(55, 17, 64, 14, 0, WindowSetup, "Ok", gadget_Button); RefreshGadgets(Gadget1, WindowSetup, NULL); QuitRoutine = FALSE; while (QuitRoutine == FALSE) { while (IntuiMessage = (struct IntuiMessage *) GetMsg(WindowSetup->UserPort)) { Class = IntuiMessage->Class; Code = IntuiMessage->Code; Address = IntuiMessage->IAddress; ReplyMsg((void *)IntuiMessage); switch (Class) { case CLOSEWINDOW: QuitRoutine = TRUE; break; case GADGETUP: { int NewFlagsForGadget1 = GADGIMAGE | GADGHIMAGE; int NewFlagsForGadget2 = GADGIMAGE | GADGHIMAGE; int NewFlagsForGadget3 = GADGIMAGE | GADGHIMAGE; int NewFlagsForGadget4 = GADGIMAGE | GADGHIMAGE; int NewFlagsForGadget5 = GADGIMAGE | GADGHIMAGE; int NewFlagsForGadget6 = GADGIMAGE | GADGHIMAGE; int NewFlags = FALSE; if (Address == (APTR) Gadget1) { ChipSet = AGA_ChipSet; CustomScreen = TRUE; cgx=FALSE; NewFlagsForGadget1 = GADGIMAGE | GADGHIMAGE | SELECTED; NewFlags = TRUE; } else if (Address == (APTR) Gadget2) { ChipSet = ECS_ChipSet; CustomScreen = TRUE; NewFlagsForGadget2 = GADGIMAGE | GADGHIMAGE | SELECTED; NewFlags = TRUE; } else if (Address == (APTR) Gadget3) { ChipSet = OCS_ChipSet; CustomScreen = TRUE; NewFlagsForGadget3 = GADGIMAGE | GADGHIMAGE | SELECTED; NewFlags = TRUE; } else if (Address == (APTR) Gadget4) { /* * NOTE: AGA Window Modes Currently Not Supported */ ChipSet=AGA_ChipSet; CustomScreen=TRUE; cgx=TRUE; NewFlagsForGadget4=GADGIMAGE|GADGHIMAGE|SELECTED; NewFlags=TRUE; /* QuitRoutine = TRUE; ChipSet = ECS_ChipSet; CustomScreen = FALSE; */ } else if (Address == (APTR) Gadget5) { ChipSet = ECS_ChipSet; CustomScreen = FALSE; NewFlagsForGadget5 = GADGIMAGE | GADGHIMAGE | SELECTED; NewFlags = TRUE; } else if (Address == (APTR) Gadget6) { ChipSet = OCS_ChipSet; CustomScreen = FALSE; NewFlagsForGadget6 = GADGIMAGE | GADGHIMAGE | SELECTED; NewFlags = TRUE; } else if (Address == (APTR) Gadget7) { QuitRoutine = TRUE; } if (NewFlags) { Gadget1->Flags = NewFlagsForGadget1; Gadget2->Flags = NewFlagsForGadget2; Gadget3->Flags = NewFlagsForGadget3; Gadget4->Flags = NewFlagsForGadget4; Gadget5->Flags = NewFlagsForGadget5; Gadget6->Flags = NewFlagsForGadget6; RefreshGadgets(Gadget1, WindowSetup, NULL); } } break; default: break; } } } CloseWindow(WindowSetup); } /* * ======================= * DisplayControllerWindow * ======================= */ /* * Revision : v0.2.1a * Introduced : 3rd October 1995 * Last updated : 12th October 1995 */ void DisplayControllerWindow(int Port) { ULONG Class; USHORT Code; APTR Address; struct IntuiMessage *IntuiMessage; struct NewWindow NewWindow; struct Gadget *Gadget1 = NULL; struct Gadget *Gadget2 = NULL; struct Gadget *Gadget3 = NULL; struct Gadget *Gadget4 = NULL; struct Gadget *Gadget5 = NULL; struct Gadget *Gadget6 = NULL; struct Gadget *Gadget7 = NULL; struct Gadget *Gadget8 = NULL; struct Gadget *Gadget9 = NULL; int QuitRoutine; int Accepted; int NewController; NewWindow.LeftEdge = 0; NewWindow.TopEdge = 11; NewWindow.Width = 296; /* Re-insert for v.0.2.2 NewWindow.Height = 155; */ NewWindow.Height = 92; /* 177 */ NewWindow.DetailPen = 0; NewWindow.BlockPen = 15; NewWindow.IDCMPFlags = CLOSEWINDOW | GADGETUP; NewWindow.Flags = WINDOWCLOSE | GIMMEZEROZERO | WINDOWDRAG | SMART_REFRESH | ACTIVATE; NewWindow.FirstGadget = NULL; NewWindow.CheckMark = NULL; NewWindow.Title = "Controller Options"; NewWindow.Screen = ScreenMain; NewWindow.Type = ScreenType; NewWindow.BitMap = NULL; NewWindow.MinWidth = 92; NewWindow.MinHeight = 65; NewWindow.MaxWidth = 1280; NewWindow.MaxHeight = 512; WindowController = (struct Window *) OpenWindowTags ( &NewWindow, WA_NewLookMenus, TRUE, WA_MenuHelp, TRUE, WA_ScreenTitle, ATARI_TITLE, TAG_DONE ); if (ScreenType == CUSTOMSCREEN) { SetRast(WindowController->RPort, 6); } /* Re-insert for v0.2.2 Rule (0, 16, 288, WindowController); */ Rule(0, 7, 288, WindowController); ShowText(1, 1, WindowController, "Emulate:"); Gadget1 = MakeGadget(3, 3, 16, 14, 0, WindowController, "Joystick", gadget_Mutual); if (Controller == controller_Joystick) { Gadget1->Flags = GADGIMAGE | GADGHIMAGE | SELECTED; } Gadget2 = MakeGadget(3, 5, 16, 14, 0, WindowController, "Paddle", gadget_Mutual); if (Controller == controller_Paddle) { Gadget2->Flags = GADGIMAGE | GADGHIMAGE | SELECTED; } /* Re-insert for v0.2.2 ShowText (36, 1, WindowController, "Via:"); Gadget3 = MakeGadget (38, 3, 16, 14, 0, WindowController, "Joystick", gadget_Mutual); Gadget4 = MakeGadget (38, 5, 16, 14, 0, WindowController, "Mouse", gadget_Mutual); ShowText (1, 8, WindowController, "Amiga port:"); Gadget5 = MakeGadget (3, 10, 16, 14, 0, WindowController, "0", gadget_Mutual); Gadget6 = MakeGadget (3, 12, 16, 14, 0, WindowController, "1", gadget_Mutual); Gadget7 = MakeGadget (3, 14, 16, 14, 0, WindowController, "None", gadget_Mutual); Gadget8 = MakeGadget (39, 18, 64, 14, 0, WindowController, "Ok", gadget_Button); Gadget9 = MakeGadget (55, 18, 64, 14, 0, WindowController, "Cancel", gadget_Button); */ Gadget8 = MakeGadget(39, 9, 64, 14, 0, WindowController, "Ok", gadget_Button); Gadget9 = MakeGadget(55, 9, 64, 14, 0, WindowController, "Cancel", gadget_Button); RefreshGadgets(Gadget1, WindowController, NULL); QuitRoutine = FALSE; Accepted = FALSE; NewController = Controller; while (QuitRoutine == FALSE) { while (IntuiMessage = (struct IntuiMessage *) GetMsg(WindowController->UserPort)) { Class = IntuiMessage->Class; Code = IntuiMessage->Code; Address = IntuiMessage->IAddress; ReplyMsg((void *)IntuiMessage); switch (Class) { case CLOSEWINDOW: QuitRoutine = TRUE; break; case GADGETUP: if (Address == (APTR) Gadget1) { Gadget1->Flags = GADGIMAGE | GADGHIMAGE | SELECTED; Gadget2->Flags = GADGIMAGE | GADGHIMAGE; RefreshGadgets(Gadget1, WindowController, NULL); NewController = controller_Joystick; } else if (Address == (APTR) Gadget2) { Gadget1->Flags = GADGIMAGE | GADGHIMAGE; Gadget2->Flags = GADGIMAGE | GADGHIMAGE | SELECTED; RefreshGadgets(Gadget1, WindowController, NULL); NewController = controller_Paddle; } /* Re-insert for v0.2.2 else if (Address == (APTR) Gadget3) { } else if (Address == (APTR) Gadget4) { } else if (Address == (APTR) Gadget5) { } else if (Address == (APTR) Gadget6) { } else if (Address == (APTR) Gadget7) { } */ else if (Address == (APTR) Gadget8) { QuitRoutine = TRUE; Accepted = TRUE; } else if (Address == (APTR) Gadget9) { QuitRoutine = TRUE; } break; default: break; } } } if (Accepted) { Controller = NewController; } CloseWindow(WindowController); } /* * ========================= * DisplayNotSupportedWindow * ========================= */ /* * Revision : v0.2.0 * Introduced : 3rd September 1995 * Last updated : 9th September 1995 */ void DisplayNotSupportedWindow(void) { ULONG Class; USHORT Code; APTR Address; struct IntuiMessage *IntuiMessage; struct NewWindow NewWindow; struct Gadget *Gadget1 = NULL; int QuitRoutine; NewWindow.LeftEdge = 12; NewWindow.TopEdge = 91; NewWindow.Width = 296; NewWindow.Height = 57; NewWindow.DetailPen = 0; NewWindow.BlockPen = 15; NewWindow.IDCMPFlags = CLOSEWINDOW | GADGETUP; NewWindow.Flags = WINDOWCLOSE | GIMMEZEROZERO | WINDOWDRAG | SMART_REFRESH | ACTIVATE; NewWindow.FirstGadget = NULL; NewWindow.CheckMark = NULL; NewWindow.Title = "Warning!"; NewWindow.Screen = ScreenMain; NewWindow.Type = ScreenType; NewWindow.BitMap = NULL; NewWindow.MinWidth = 92; NewWindow.MinHeight = 65; NewWindow.MaxWidth = 1280; NewWindow.MaxHeight = 512; WindowNotSupported = (struct Window *) OpenWindowTags ( &NewWindow, WA_NewLookMenus, TRUE, WA_MenuHelp, TRUE, WA_ScreenTitle, ATARI_TITLE, TAG_DONE ); if (ScreenType == CUSTOMSCREEN) { SetRast(WindowNotSupported->RPort, 6); } Rule(0, 2, 288, WindowNotSupported); ShowText(15, 1, WindowNotSupported, "Feature not supported"); Gadget1 = MakeGadget(55, 4, 64, 14, 0, WindowNotSupported, "Ok", gadget_Button); QuitRoutine = FALSE; while (QuitRoutine == FALSE) { while (IntuiMessage = (struct IntuiMessage *) GetMsg(WindowNotSupported->UserPort)) { Class = IntuiMessage->Class; Code = IntuiMessage->Code; Address = IntuiMessage->IAddress; ReplyMsg((void *)IntuiMessage); switch (Class) { case CLOSEWINDOW: QuitRoutine = TRUE; break; case GADGETUP: if (Address == (APTR) Gadget1) { QuitRoutine = TRUE; } break; default: break; } } } CloseWindow(WindowNotSupported); } /* * ================== * DisplayYesNoWindow * ================== */ /* * Revision : v0.2.0a * Introduced : 9th September 1995 * Last updated : 9th September 1995 */ int DisplayYesNoWindow(void) { ULONG Class; USHORT Code; APTR Address; struct IntuiMessage *IntuiMessage; struct NewWindow NewWindow; struct Gadget *Gadget1 = NULL; struct Gadget *Gadget2 = NULL; int QuitRoutine; int Answer; Answer = FALSE; NewWindow.LeftEdge = 12; NewWindow.TopEdge = 91; NewWindow.Width = 296; NewWindow.Height = 57; NewWindow.DetailPen = 0; NewWindow.BlockPen = 15; NewWindow.IDCMPFlags = CLOSEWINDOW | GADGETUP; NewWindow.Flags = WINDOWCLOSE | GIMMEZEROZERO | WINDOWDRAG | SMART_REFRESH | ACTIVATE; NewWindow.FirstGadget = NULL; NewWindow.CheckMark = NULL; NewWindow.Title = "Warning!"; NewWindow.Screen = ScreenMain; NewWindow.Type = ScreenType; NewWindow.BitMap = NULL; NewWindow.MinWidth = 92; NewWindow.MinHeight = 65; NewWindow.MaxWidth = 1280; NewWindow.MaxHeight = 512; WindowYesNo = (struct Window *) OpenWindowTags ( &NewWindow, WA_NewLookMenus, TRUE, WA_MenuHelp, TRUE, WA_ScreenTitle, ATARI_TITLE, TAG_DONE ); if (ScreenType == CUSTOMSCREEN) { SetRast(WindowYesNo->RPort, 6); } Rule(0, 2, 288, WindowYesNo); ShowText(1, 1, WindowYesNo, "Are you sure?"); Gadget1 = MakeGadget(39, 4, 64, 14, 0, WindowYesNo, "Ok", gadget_Button); Gadget2 = MakeGadget(55, 4, 64, 14, 0, WindowYesNo, "Cancel", gadget_Button); QuitRoutine = FALSE; while (QuitRoutine == FALSE) { while (IntuiMessage = (struct IntuiMessage *) GetMsg(WindowYesNo->UserPort)) { Class = IntuiMessage->Class; Code = IntuiMessage->Code; Address = IntuiMessage->IAddress; ReplyMsg((void *)IntuiMessage); switch (Class) { case CLOSEWINDOW: QuitRoutine = TRUE; break; case GADGETUP: if (Address == (APTR) Gadget1) { QuitRoutine = TRUE; Answer = TRUE; } else if (Address == (APTR) Gadget2) { QuitRoutine = TRUE; } break; default: break; } } } CloseWindow(WindowYesNo); return Answer; } /* * ============ * MakeMenuItem * ============ */ /* * Revision : v0.2.0 * Introduced : NOT KNOWN (Before 2nd September 1995) * Last updated : 9th September 1995 * * Notes: A simple routine to help GUI development. */ struct MenuItem *MakeMenuItem(int LeftEdge, int TopEdge, int Width, int Height, char *Title, int Key, int Exclude) { struct IntuiText *IntuiText; struct MenuItem *MenuItem; IntuiText = (struct IntuiText *) malloc(sizeof(struct IntuiText)); if (!IntuiText) { } IntuiText->FrontPen = 10; IntuiText->BackPen = 9; IntuiText->DrawMode = JAM1; IntuiText->LeftEdge = NULL; IntuiText->TopEdge = 1; IntuiText->ITextFont = NULL; IntuiText->IText = (UBYTE *) Title; IntuiText->NextText = NULL; MenuItem = (struct MenuItem *) malloc(sizeof(struct MenuItem)); if (!MenuItem) { } MenuItem->NextItem = NULL; MenuItem->LeftEdge = LeftEdge; MenuItem->TopEdge = TopEdge; MenuItem->Width = Width; MenuItem->Height = Height; MenuItem->Flags = ITEMTEXT | ITEMENABLED | HIGHCOMP; if (Key) { MenuItem->Flags = MenuItem->Flags | COMMSEQ; } if (Exclude) { MenuItem->Flags = MenuItem->Flags | CHECKIT; } /* if (Key==NULL) { MenuItem->Flags = ITEMTEXT | ITEMENABLED | HIGHCOMP; } else { MenuItem->Flags = ITEMTEXT | ITEMENABLED | HIGHCOMP | COMMSEQ; } */ MenuItem->MutualExclude = Exclude; MenuItem->ItemFill = (APTR) IntuiText; MenuItem->SelectFill = NULL; MenuItem->Command = (BYTE) Key; MenuItem->SubItem = NULL; MenuItem->NextSelect = MENUNULL; return MenuItem; } /* * ======== * MakeMenu * ======== */ /* * Revision : v0.1.8 * Introduced : NOT KNOWN (Before 2nd September 1995) * Last updated : NOT KNOWN (Before 2nd September 1995) * * Notes: A simple routine to help GUI development. */ struct Menu *MakeMenu(int LeftEdge, int TopEdge, int Width, char *Title, struct MenuItem *MenuItem) { struct Menu *Menu; Menu = (struct Menu *) malloc(sizeof(struct Menu)); if (!Menu) { } Menu->NextMenu = NULL; Menu->LeftEdge = LeftEdge; Menu->TopEdge = TopEdge; Menu->Width = Width; Menu->Height = 0; Menu->Flags = MENUENABLED; Menu->MenuName = Title; Menu->FirstItem = MenuItem; return Menu; } /* * ========== * MakeGadget * ========== */ /* * Revision : v0.2.1a * Introduced : 2nd September 1995 * Last updated : 9th October 1995 * * Notes: Not complete yet. The Type argument is currently not supported so * routine is only capable of producing boring click-me-to-continue type * gadgets. */ struct Gadget *MakeGadget(int LeftEdge, int TopEdge, int Width, int Height, int Offset, struct Window *Window, char *Title, int Type) { int Result; int TextX; struct IntuiText *NewTextAddress = NULL; struct Gadget *NewGadgetAddress = NULL; NewGadgetAddress = (struct Gadget *) malloc(sizeof(struct Gadget)); if (!NewGadgetAddress) { } NewGadgetAddress->NextGadget = NULL; /* NewGadgetAddress->LeftEdge = LeftEdge; NewGadgetAddress->TopEdge = TopEdge; */ NewGadgetAddress->Width = Width; NewGadgetAddress->Height = Height; NewGadgetAddress->Flags = GADGIMAGE | GADGHIMAGE; NewGadgetAddress->Activation = RELVERIFY; NewGadgetAddress->GadgetType = BOOLGADGET; if (Type == gadget_Button) { NewGadgetAddress->GadgetRender = &image_Button64; NewGadgetAddress->SelectRender = &image_Button64Selected; } else if (Type == gadget_Mutual) { NewGadgetAddress->Activation = TOGGLESELECT | RELVERIFY; NewGadgetAddress->GadgetRender = &image_MutualGadget; NewGadgetAddress->SelectRender = &image_MutualGadgetSelected; } else { NewGadgetAddress->Flags = GADGHCOMP; } NewGadgetAddress->GadgetText = NULL; NewGadgetAddress->MutualExclude = NULL; NewGadgetAddress->SpecialInfo = NULL; NewGadgetAddress->GadgetID = 0; NewGadgetAddress->UserData = NULL; LeftEdge = (LeftEdge * gui_GridWidth) + gui_WindowOffsetLeftEdge; TopEdge = (TopEdge * gui_GridHeight) + gui_WindowOffsetTopEdge + 1 + ((gui_GridHeight - 7) * 2); NewGadgetAddress->LeftEdge = LeftEdge; NewGadgetAddress->TopEdge = TopEdge; NewGadgetAddress->Width = Width; NewGadgetAddress->Height = Height; if (Type == gadget_Button) { TextX = (Width / 2) - (strlen(Title) * 4); } else if (Type == gadget_Mutual) { TextX = 24; } NewTextAddress = (struct IntuiText *) malloc(sizeof(struct IntuiText)); if (!NewTextAddress) { } NewTextAddress->FrontPen = 1; NewTextAddress->BackPen = 3; NewTextAddress->DrawMode = JAM1; NewTextAddress->LeftEdge = TextX; NewTextAddress->TopEdge = 3; NewTextAddress->ITextFont = NULL; NewTextAddress->IText = (UBYTE *) Title; NewTextAddress->NextText = NULL; NewGadgetAddress->GadgetText = NewTextAddress; if (NewGadgetAddress->Activation & TOGGLESELECT) { if (Title) { if (Offset) { NewTextAddress->LeftEdge = Offset; } } } if (Window) { Result = AddGadget(Window, NewGadgetAddress, -1); RefreshGadgets(NewGadgetAddress, Window, NULL); } return NewGadgetAddress; } /* * ======== * ShowText * ======== */ /* * Revision : v0.2.0 * Introduced : 2nd September 1995 * Last updated : 9th September 1995 * * Notes: A simple routine to help any future GUI development. */ void ShowText(int LeftEdge, int TopEdge, struct Window *Window, char *TextString) { if (ScreenType == CUSTOMSCREEN) { SetAPen(Window->RPort, 0); SetBPen(Window->RPort, 6); } else { SetAPen(Window->RPort, 1); SetBPen(Window->RPort, 0); } LeftEdge = (LeftEdge * gui_GridWidth); TopEdge = (TopEdge * gui_GridHeight) + ((gui_GridHeight - 7) * 2); if (Window->Flags & GIMMEZEROZERO) { TopEdge = TopEdge + 8; } else { LeftEdge = LeftEdge + gui_WindowOffsetLeftEdge; TopEdge = TopEdge + gui_WindowOffsetTopEdge + 8; } Move(Window->RPort, LeftEdge, TopEdge); Text(Window->RPort, TextString, strlen(TextString)); } /* * ==== * Rule * ==== */ /* * Revision : v0.2.0 * Introduced : 2nd September 1995 * Last updated : 9th September 1995 * * Notes: A simple routine to help any future GUI development. */ void Rule(int LeftEdge, int TopEdge, int Width, struct Window *Window) { int RightEdge; LeftEdge = (LeftEdge * gui_GridWidth) + gui_WindowOffsetLeftEdge; TopEdge = (TopEdge * gui_GridHeight) + 12 + gui_WindowOffsetTopEdge; /* + 44 */ RightEdge = Width + LeftEdge - 1; if (ScreenType == CUSTOMSCREEN) { SetAPen(Window->RPort, 0); } else { SetAPen(Window->RPort, 1); } Move(Window->RPort, LeftEdge, TopEdge); Draw(Window->RPort, RightEdge, TopEdge); if (ScreenType == CUSTOMSCREEN) { SetAPen(Window->RPort, 15); } else { SetAPen(Window->RPort, 2); } Move(Window->RPort, LeftEdge, TopEdge + 1); Draw(Window->RPort, RightEdge, TopEdge + 1); } /* * ========== * InsertDisk * ========== */ /* * Revision : v0.2.1 * Introduced : 24th September 1995 * Last updated : 24th September 1995 * * Notes: A simple routine to help any future GUI development. */ struct TagItem tags[]={ASLFR_Screen,(ULONG)ScreenMain,ASLFR_TitleText,(ULONG)"Select file", ASLFR_PositiveText,(ULONG)"Ok",ASLFR_NegativeText,(ULONG)"Cancel",0,0}; struct TagItem tags2[]={0,0}; int InsertDisk(int Drive) { struct FileRequester *FileRequester = NULL; char Filename[1024]; int Success = FALSE; char *name; if (FileRequester = (struct FileRequester*) AllocAslRequest (ASL_FileRequest, tags2)) { if (AslRequest(FileRequester,tags)) { printf("File selected: %s/%s\n", FileRequester->rf_Dir, FileRequester->rf_File); printf("Number of files : %d\n", FileRequester->fr_NumArgs); SIO_Dismount(Drive); name=&(Filename[0]); strcpy(name,((struct FileRequester *)FileRequester)->fr_Drawer); if (strlen(name)>0) if ((name[strlen(name)-1]!='/')&&(name[strlen(name)-1]!=':')) strcat(name,"/"); strcat(name,((struct FileRequester *)FileRequester)->fr_File); /*if (FileRequester->rf_Dir) { sprintf(Filename, "%s/%s", FileRequester->rf_Dir, FileRequester->rf_File); } else { sprintf(Filename, "%s", FileRequester->rf_File); }*/ if (!SIO_Mount(Drive, Filename)) { } else { Success = TRUE; } } else { /* * Cancelled */ } } else { printf("Unable to create requester\n"); } return Success; } /* * ========= * InsertROM * ========= */ /* * Revision : v0.3.3 * Introduced : 10th March 1996 * Last updated : 10th March 1996 */ int InsertROM(int CartType) { struct FileRequester *FileRequester = NULL; char Filename[256]; int Success = FALSE; if (FileRequester = (struct FileRequester*) AllocAslRequest(ASL_FileRequest, tags2)) { if (AslRequest(FileRequester,tags)) { printf("File selected: %s/%s\n", FileRequester->rf_Dir, FileRequester->rf_File); printf("Number of files : %d\n", FileRequester->fr_NumArgs); if (FileRequester->rf_Dir) { sprintf(Filename, "%s/%s", FileRequester->rf_Dir, FileRequester->rf_File); } else { sprintf(Filename, "%s", FileRequester->rf_File); } if (CartType == 0) { Remove_ROM(); if (Insert_8K_ROM(Filename)) { Coldstart(); } } else if (CartType == 1) { Remove_ROM(); if (Insert_16K_ROM(Filename)) { Coldstart(); } } else if (CartType == 2) { Remove_ROM(); if (Insert_OSS_ROM(Filename)) { Coldstart(); } } } else { /* * Cancelled */ } } else { printf("Unable to create requester\n"); } return Success; } insert_rom_callback() { /* xv_set (chooser, FRAME_LABEL, "ROM Selector", FILE_CHOOSER_DIRECTORY, ATARI_ROM_DIR, FILE_CHOOSER_NOTIFY_FUNC, rom_change, XV_SHOW, TRUE, NULL); */ } /* * ============ * SetupDisplay * ============ */ /* * Revision : v0.3.3 * Introduced : 10th March 1996 * Last updated : 10th March 1996 */ struct TagItem ScreenModeTags[]={ smr_MinWidth, 320,//ATARI_WIDTH, smr_MinHeight, 200,//ATARI_HEIGHT, smr_MaxWidth, 640, smr_MaxHeight, 480, smr_ChunkySupport, LUT8, smr_PlanarSupport, 128, smr_Buffers, 1, smr_Workbench, TRUE, TAG_DONE, NULL }; struct TagItem RtgTags[]={ rtg_Draggable, TRUE, rtg_Buffers, 1, rtg_Workbench,0, rtg_ChangeColors,1, TAG_DONE, NULL }; struct TagItem GetTags[] = { grd_Width, 0, grd_Height, 0, grd_Depth, 0, grd_BytesPerRow, 0, grd_PixelLayout, 0, grd_ColorSpace, 0, grd_PlaneSize, 0, TAG_DONE, NULL }; struct MyPort { struct MsgPort *port; ULONG signal; WORD *MouseX; WORD *MouseY; }; struct RtgScreenCGX { struct RtgScreen Header; APTR MyScreen; ULONG ActiveMap; APTR MapA; APTR MapB; APTR MapC; APTR FrontMap; ULONG Bytes; ULONG Width; UWORD Height; ULONG NumBuf; UWORD Locks; ULONG ModeID; struct BitMap *RealMapA; ULONG Tags[5]; ULONG OffA; ULONG OffB; ULONG OffC; struct Window *MyWindow; struct MyPort PortData; ULONG BPR; struct DBufInfo *dbi; ULONG SafeToWrite; ULONG SafeToDisp; ULONG Special; ULONG SrcMode; APTR tempras; APTR tempbm; APTR wbcolors; ULONG colchanged; ULONG ccol; APTR colarray1; APTR colarray2; }; struct RtgScreenAMI { struct RtgScreen Header; UWORD Locks; struct Screen *ScreenHandle; ULONG PlaneSize; ULONG DispBuf; ULONG ChipMem1; ULONG ChipMem2; ULONG ChipMem3; struct BitMap Bitmap1; struct BitMap Bitmap2; struct BitMap Bitmap3; ULONG Flags; struct Rectangle MyRect; BYTE Place[52]; struct RastPort RastPort1; struct RastPort RastPort2; struct RastPort RastPort3; APTR MyWindow; APTR Pointer; struct MyPort PortData; struct DBufInfo *dbufinfo; ULONG DispBuf1; ULONG DispBuf2; ULONG DispBuf3; ULONG SafeToWrite; ULONG SafeToDisp; ULONG SrcMode; APTR tempras; APTR tempbm; APTR wbcolors; ULONG Width; ULONG Height; ULONG colchanged; APTR colarray1; APTR ccol; }; void *MapA; int Planar=0; char reqtitle[1024]; struct TagItem asltags[]={ ASLSM_TitleText, (ULONG)reqtitle, ASLSM_MinWidth, 384, ASLSM_MinHeight, 240, ASLSM_MaxWidth, 640, ASLSM_MaxHeight, 512, ASLSM_MinDepth, 8, ASLSM_MaxDepth, 8, 0,0 }; int mode; SetupDisplay() { struct NewWindow NewWindow; int i; /* * =========== * Screen Pens * =========== */ WORD ScreenPens[13] = { 15, /* Unknown */ 15, /* Unknown */ 0, /* Windows titlebar text when inactive */ 15, /* Windows bright edges */ 0, /* Windows dark edges */ 120, /* Windows titlebar when active */ 0, /* Windows titlebar text when active */ 4, /* Windows titlebar when inactive */ 15, /* Unknown */ 0, /* Menubar text */ 15, /* Menubar */ 0, /* Menubar base */ -1 }; /* * ============= * Create Screen * ============= */ if (CustomScreen) { ScreenType = CUSTOMSCREEN; ScreenWidth = ATARI_WIDTH - 64; /* ATARI_WIDTH + 8; */ ScreenHeight = ATARI_HEIGHT; /* ATARI_HEIGHT + 13; */ if (ChipSet == AGA_ChipSet) { ScreenDepth = 8; } else { ScreenDepth = 5; } NewScreen.LeftEdge = 0; NewScreen.TopEdge = 0; NewScreen.Width = ScreenWidth; NewScreen.Height = ScreenHeight; NewScreen.Depth = ScreenDepth; NewScreen.DetailPen = 1; NewScreen.BlockPen = 2; /* 2 */ NewScreen.ViewModes = NULL; NewScreen.Type = CUSTOMSCREEN; NewScreen.Font = NULL; NewScreen.DefaultTitle = ATARI_TITLE; NewScreen.Gadgets = NULL; NewScreen.CustomBitMap = NULL; if (cgx) { AslBase=OpenLibrary("asl.library",0); video_smr=(struct ScreenModeRequester *)AllocAslRequest(ASL_ScreenModeRequest,0); sprintf (reqtitle, "AtariXL"); if (!AslRequest (video_smr,asltags)) { printf("Failed.\n"); exit(0); } else mode = video_smr->sm_DisplayID; } if (ChipSet==AGA_ChipSet&&(!cgx)) { ScreenReq=PPCRtgScreenModeReq(ScreenModeTags); if (!ScreenReq) exit(0); if (ScreenReq->Flags&sq_WORKBENCH) RtgTags[2].ti_Data=512; MyScreen=PPCOpenRtgScreen(ScreenReq,RtgTags); MapA=PPCLockRtgScreen(MyScreen); PPCGetRtgScreenData(MyScreen, GetTags); if (GetTags[4].ti_Data!=grd_PLANAR) { ScreenMain=((struct RtgScreenCGX *)MyScreen)->MyScreen; Planar=0; } else { ScreenMain=((struct RtgScreenAMI *)MyScreen)->ScreenHandle; Planar=1; } } else { if (cgx) { ScreenMain = (struct Screen *) OpenScreenTags ( &NewScreen, SA_Left, 0, SA_Top, 0, SA_DisplayID,mode, SA_Width, ScreenWidth, SA_Height, ScreenHeight, SA_Depth, ScreenDepth, SA_DetailPen, 1, SA_BlockPen, 2, /* 2 */ SA_Pens, ScreenPens, SA_Title, ATARI_TITLE, SA_Type, CUSTOMSCREEN, /* SA_Overscan, OSCAN_STANDARD, */ /* SA_DisplayID, ScreenID, */ SA_AutoScroll, TRUE, /* SA_Interleaved, TRUE, */ TAG_DONE ); } else { ScreenMain = (struct Screen *) OpenScreenTags ( &NewScreen, SA_Left, 0, SA_Top, 0, SA_Width, ScreenWidth, SA_Height, ScreenHeight, SA_Depth, ScreenDepth, SA_DetailPen, 1, SA_BlockPen, 2, /* 2 */ SA_Pens, ScreenPens, SA_Title, ATARI_TITLE, SA_Type, CUSTOMSCREEN, /* SA_Overscan, OSCAN_STANDARD, */ /* SA_DisplayID, ScreenID, */ SA_AutoScroll, TRUE, /* SA_Interleaved, TRUE, */ TAG_DONE ); } } if (ScreenReq) { if (ScreenReq->Flags&sq_WORKBENCH) CustomScreen=FALSE; } if (ChipSet == AGA_ChipSet) { TotalColours = 256; } else { TotalColours = 16; } for (i = 0; i < TotalColours; i++) { int rgb = colortable[i]; int red; int green; int blue; red = (rgb & 0x00ff0000) >> 20; green = (rgb & 0x0000ff00) >> 12; blue = (rgb & 0x000000ff) >> 4; SetRGB4(&ScreenMain->ViewPort, i, red, green, blue); } image_Button64.PlanePick = 9; image_Button64.PlaneOnOff = (UBYTE) 6; image_Button64Selected.PlanePick = 9; image_Button64Selected.PlaneOnOff = (UBYTE) 6; image_MutualGadget.PlanePick = 9; image_MutualGadget.PlaneOnOff = (UBYTE) 6; image_MutualGadgetSelected.PlanePick = 9; image_MutualGadgetSelected.PlaneOnOff = (UBYTE) 6; } else { ScreenType = WBENCHSCREEN; ScreenWidth = ATARI_WIDTH; /* ATARI_WIDTH + 8; */ ScreenHeight = ATARI_HEIGHT; /* ATARI_HEIGHT + 13; */ } /* * ============= * Create Window * ============= */ NewWindow.DetailPen = 0; NewWindow.BlockPen = 148; if (CustomScreen) { NewWindow.LeftEdge = 0; NewWindow.TopEdge = 0; NewWindow.Width = ScreenWidth; /* ATARI_WIDTH + 8; */ NewWindow.Height = ScreenHeight; /* ATARI_HEIGHT + 13; */ NewWindow.IDCMPFlags = SELECTDOWN | SELECTUP | MOUSEBUTTONS | MOUSEMOVE | MENUPICK | MENUVERIFY | MOUSEBUTTONS | GADGETUP | RAWKEY | VANILLAKEY; /* * If you use the ClickToFront commodity it might be a good idea to * enable the BACKDROP option in the NewWindow.Flags line below. */ NewWindow.Flags = /* BACKDROP | */ REPORTMOUSE | BORDERLESS | GIMMEZEROZERO | SMART_REFRESH | ACTIVATE; NewWindow.Title = NULL; } else { NewWindow.LeftEdge = 0; NewWindow.TopEdge = 11; NewWindow.Width = ScreenWidth + 8; /* ATARI_WIDTH + 8; */ NewWindow.Height = ScreenHeight + 13; /* ATARI_HEIGHT + 13; */ NewWindow.IDCMPFlags = SELECTDOWN | SELECTUP | MOUSEBUTTONS | MOUSEMOVE | CLOSEWINDOW | MENUPICK | MENUVERIFY | MOUSEBUTTONS | GADGETUP | RAWKEY | VANILLAKEY; NewWindow.Flags = REPORTMOUSE | WINDOWCLOSE | GIMMEZEROZERO | WINDOWDRAG | WINDOWDEPTH | SMART_REFRESH | ACTIVATE; NewWindow.Title = ATARI_TITLE; } NewWindow.FirstGadget = NULL; NewWindow.CheckMark = NULL; NewWindow.Screen = ScreenMain; NewWindow.Type = ScreenType; NewWindow.BitMap = NULL; NewWindow.MinWidth = 50; NewWindow.MinHeight = 11; NewWindow.MaxWidth = 1280; NewWindow.MaxHeight = 512; WindowMain = (struct Window *) OpenWindowTags ( &NewWindow, WA_NewLookMenus, TRUE, WA_MenuHelp, TRUE, WA_ScreenTitle, ATARI_TITLE, /* WA_Zoom, Zoomdata, */ TAG_DONE ); if (!WindowMain) { printf("Failed to create window\n"); Atari_Exit(0); } } /* * ======= * Iconify * ======= */ /* * Revision : v0.3.3 * Introduced : 10th March 1996 * Last updated : 10th March 1996 */ Iconify() { ULONG Class; USHORT Code; APTR Address; struct IntuiMessage *IntuiMessage; struct NewWindow NewWindow; int QuitRoutine; ClearMenuStrip(WindowMain); if (WindowMain) { CloseWindow(WindowMain); } if (ScreenMain) { CloseScreen(ScreenMain); } NewWindow.LeftEdge = 0; NewWindow.TopEdge = 11; NewWindow.Width = 112; NewWindow.Height = 21; NewWindow.DetailPen = 0; NewWindow.BlockPen = 15; NewWindow.IDCMPFlags = CLOSEWINDOW; NewWindow.Flags = WINDOWCLOSE | WINDOWDRAG | ACTIVATE; NewWindow.FirstGadget = NULL; NewWindow.CheckMark = NULL; NewWindow.Title = "Atari800e"; NewWindow.Screen = NULL; NewWindow.Type = WBENCHSCREEN; NewWindow.BitMap = NULL; NewWindow.MinWidth = 92; NewWindow.MinHeight = 21; NewWindow.MaxWidth = 1280; NewWindow.MaxHeight = 512; WindowIconified = (struct Window *) OpenWindowTags ( &NewWindow, WA_NewLookMenus, TRUE, WA_MenuHelp, TRUE, WA_ScreenTitle, ATARI_TITLE, TAG_DONE ); QuitRoutine = FALSE; while (QuitRoutine == FALSE) { while (IntuiMessage = (struct IntuiMessage *) GetMsg(WindowIconified->UserPort)) { Class = IntuiMessage->Class; Code = IntuiMessage->Code; Address = IntuiMessage->IAddress; ReplyMsg((void *)IntuiMessage); switch (Class) { case CLOSEWINDOW: QuitRoutine = TRUE; break; default: break; } } } CloseWindow(WindowIconified); SetupDisplay(); SetMenuStrip(WindowMain, menu_Project); }