2 // Apple 2 SDL Portable Apple Emulator
5 // (C) 2005 Underground Software
7 // Loosely based on AppleWin by Tom Charlesworth which was based on AppleWin by
8 // Oliver Schmidt which was based on AppleWin by Michael O'Brien. :-) Parts are
9 // also derived from ApplePC. Too bad it was closed source--it could have been
10 // *the* premier Apple II emulator out there.
12 // JLH = James L. Hammons <jlhamm@acm.org>
15 // --- ---------- ------------------------------------------------------------
16 // JLH 11/12/2005 Initial port to SDL
17 // JLH 11/18/2005 Wired up graphic soft switches
18 // JLH 12/02/2005 Setup timer subsystem for more accurate time keeping
19 // JLH 12/12/2005 Added preliminary state saving support
24 // - Port to SDL [DONE]
26 // - Weed out unneeded functions [DONE]
28 // - 128K IIe related stuff
29 // - State loading/saving
47 #include "applevideo.h"
53 #include "gui/window.h"
54 #include "gui/draggablewindow2.h"
55 #include "gui/textedit.h"
61 uint8 ram[0x10000], rom[0x10000]; // RAM & ROM spaces
62 uint8 diskRom[0x100]; // Disk ROM space
64 uint8 appleType = APPLE_TYPE_II;
68 static uint8 lastKeyPressed = 0;
69 static bool keyDown = false;
71 static FloppyDrive floppyDrive;
73 enum { LC_BANK_1, LC_BANK_2 };
75 static uint8 visibleBank = LC_BANK_1;
76 static bool readRAM = false;
77 static bool writeRAM = false;
79 static bool running = true; // Machine running state flag...
80 static uint32 startTicks;
82 static GUI * gui = NULL;
84 // Local functions (technically, they're global...)
86 bool LoadImg(char * filename, uint8 * ram, int size);
87 uint8 RdMem(uint16 addr);
88 void WrMem(uint16 addr, uint8 b);
89 static void SaveApple2State(const char * filename);
90 static bool LoadApple2State(const char * filename);
92 // Local timer callback functions
94 static void FrameCallback(void);
95 static void BlinkTimer(void);
99 Element * TestWindow(void)
101 Element * win = new DraggableWindow2(10, 10, 128, 128);
102 // ((DraggableWindow *)win)->AddElement(new TextEdit(4, 16, 92, 0, "u2prog.dsk", win));
107 Element * QuitEmulator(void)
116 Small Apple II memory map:
118 $C010 - Clear bit 7 of keyboard data ($C000)
119 $C030 - Toggle speaker diaphragm
121 $C054 - Select page 1
122 $C056 - Select lo-res
123 $C058 - Set annuciator-0 output to 0
124 $C05A - Set annuciator-0 output to 0
125 $C05D - Set annuciator-0 output to 1
126 $C05F - Set annuciator-0 output to 1
127 $C0E0 - Disk control stepper ($C0E0-7)
128 $C0E9 - Disk control motor (on)
129 $C0EA - Disk enable (drive 1)
131 $C0EE - Disk set read mode
135 // V65C02 read/write memory functions
138 uint8 RdMem(uint16 addr)
143 if (addr >= 0xC000 && addr <= 0xC0FF)
144 WriteLog("\n*** Read at I/O address %04X\n", addr);
147 if (addr >= 0xC080 && addr <= 0xC08F)
148 WriteLog("\n*** Read at I/O address %04X\n", addr);
151 if ((addr & 0xFFF0) == 0xC000)
153 return lastKeyPressed | (keyDown ? 0x80 : 0x00);
155 else if ((addr & 0xFFF0) == 0xC010)
157 //This is bogus: keyDown is set to false, so return val NEVER is set...
159 //Also, this is IIe/IIc only...!
160 uint8 retVal = lastKeyPressed | (keyDown ? 0x80 : 0x00);
164 else if ((addr & 0xFFF0) == 0xC030)
166 ToggleSpeaker(GetCurrentV65C02Clock());
167 //should it return something else here???
170 else if (addr == 0xC050)
174 else if (addr == 0xC051)
178 else if (addr == 0xC052)
182 else if (addr == 0xC053)
186 else if (addr == 0xC054)
188 displayPage2 = false;
190 else if (addr == 0xC055)
194 else if (addr == 0xC056)
198 else if (addr == 0xC057)
203 //Note that this is a kludge: The $D000-$DFFF 4K space is shared (since $C000-$CFFF is
204 //memory mapped) between TWO banks, and that that $E000-$FFFF RAM space is a single bank.
205 //[SHOULD BE FIXED NOW]
206 //OK! This switch selects bank 2 of the 4K bank at $D000-$DFFF. One access makes it
207 //visible, two makes it R/W.
209 else if ((addr & 0xFFFB) == 0xC080)
211 //$C080 49280 OECG R Read RAM bank 2; no write
212 visibleBank = LC_BANK_2;
216 else if ((addr & 0xFFFB) == 0xC081)
218 //$C081 49281 ROMIN OECG RR Read ROM; write RAM bank 2
219 visibleBank = LC_BANK_2;
223 else if ((addr & 0xFFFB) == 0xC082)
225 //$C082 49282 OECG R Read ROM; no write
226 visibleBank = LC_BANK_2;
230 else if ((addr & 0xFFFB) == 0xC083)
232 //$C083 49283 LCBANK2 OECG RR Read/write RAM bank 2
233 visibleBank = LC_BANK_2;
237 else if ((addr & 0xFFFB) == 0xC088)
239 //$C088 49288 OECG R Read RAM bank 1; no write
240 visibleBank = LC_BANK_1;
244 else if ((addr & 0xFFFB) == 0xC089)
246 //$C089 49289 OECG RR Read ROM; write RAM bank 1
247 visibleBank = LC_BANK_1;
251 else if ((addr & 0xFFFB) == 0xC08A)
253 //$C08A 49290 OECG R Read ROM; no write
254 visibleBank = LC_BANK_1;
258 else if ((addr & 0xFFFB) == 0xC08B)
260 //$C08B 49291 OECG RR Read/write RAM bank 1
261 visibleBank = LC_BANK_1;
265 else if ((addr & 0xFFF8) == 0xC0E0)
267 floppyDrive.ControlStepper(addr & 0x07);
269 else if ((addr & 0xFFFE) == 0xC0E8)
271 floppyDrive.ControlMotor(addr & 0x01);
273 else if ((addr & 0xFFFE) == 0xC0EA)
275 floppyDrive.DriveEnable(addr & 0x01);
277 else if (addr == 0xC0EC)
279 return floppyDrive.ReadWrite();
281 else if (addr == 0xC0ED)
283 return floppyDrive.GetLatchValue();
285 else if (addr == 0xC0EE)
287 floppyDrive.SetReadMode();
289 else if (addr == 0xC0EF)
291 floppyDrive.SetWriteMode();
295 if (addr >= 0xC100 && addr <= 0xCFFF) // The $C000-$CFFF block is *never* RAM
297 else if (addr >= 0xD000)
301 if (addr <= 0xDFFF && visibleBank == LC_BANK_1)
302 b = ram[addr - 0x1000];
317 APPENDIX F Assembly Language Program Listings
326 6 ORB EQU $C400 ;PORT B
327 7 ORA EQU $C401 ;PORT A
328 8 DDRB EQU $C402 ;DATA DIRECTION
330 9 DDRA EQU $C403 ;DATA DIRECTION
335 11 ORB2 EQU $C480 ;PORT B
336 12 ORA2 EQU $C481 ;PORT A
337 13 DDRB2 EQU $C482 ;DATA DIRECTION
339 14 DDRA2 EQU $C483 ;DATA DIRECTION
342 void WrMem(uint16 addr, uint8 b)
345 //extern V6809REGS regs;
346 //if (addr >= 0xC800 && addr <= 0xCBFE)
347 //if (addr == 0xC80F || addr == 0xC80D)
348 // WriteLog("WrMem: Writing address %04X with %02X [PC=%04X, $CB00=%02X]\n", addr, b, regs.pc, gram[0xCB00]);//*/
351 if (addr >= 0xC000 && addr <= 0xC0FF)
352 WriteLog("\n*** Write at I/O address %04X\n", addr);
355 Check the BIKO version on Asimov to see if it's been cracked or not...
357 7F3D: 29 07 AND #$07 [PC=7F3F, SP=01EA, CC=---B-I--, A=01, X=4B, Y=00]
358 7F3F: C9 06 CMP #$06 [PC=7F41, SP=01EA, CC=N--B-I--, A=01, X=4B, Y=00]
359 7F41: 90 03 BCC $7F46 [PC=7F46, SP=01EA, CC=N--B-I--, A=01, X=4B, Y=00]
360 [7F43: 4C 83 7E JMP $7E83] <- Skipped over... (Prints "THANK YOU VERY MUCH!")
361 7F46: AA TAX [PC=7F47, SP=01EA, CC=---B-I--, A=01, X=01, Y=00]
363 ; INX here *ensures* 1 - 6!!! BUG!!!
364 ; Or is it? Could this be part of a braindead copy protection scheme? It's
365 ; awfully close to NOP ($EA)...
366 ; Nothing else touches it once it's been written... Hmm...
368 7F47: E8 INX [PC=7F48, SP=01EA, CC=---B-I--, A=01, X=02, Y=00]
369 7F48: F8 SED [PC=7F49, SP=01EA, CC=---BDI--, A=01, X=02, Y=00]
370 7F49: 18 CLC [PC=7F4A, SP=01EA, CC=---BDI--, A=01, X=02, Y=00]
371 7F4A: BD 15 4E LDA $4E15,X [PC=7F4D, SP=01EA, CC=---BDI--, A=15, X=02, Y=00]
374 ; 4E15: 25 25 15 15 10 20
375 ; 4E1B: 03 41 99 99 01 00 12
378 7F4D: 65 FC ADC $FC [PC=7F4F, SP=01EA, CC=---BDI--, A=16, X=02, Y=00]
379 7F4F: 65 FC ADC $FC [PC=7F51, SP=01EA, CC=---BDI--, A=17, X=02, Y=00]
380 7F51: 65 FC ADC $FC [PC=7F53, SP=01EA, CC=---BDI--, A=18, X=02, Y=00]
381 7F53: 65 FC ADC $FC [PC=7F55, SP=01EA, CC=---BDI--, A=19, X=02, Y=00]
383 ; NO checking is done on the raised stat! Aarrrgggghhhhh!
385 7F55: 9D 15 4E STA $4E15,X [PC=7F58, SP=01EA, CC=---BDI--, A=19, X=02, Y=00]
386 7F58: D8 CLD [PC=7F59, SP=01EA, CC=---B-I--, A=19, X=02, Y=00]
388 ; Print "ALAKAZAM!" and so on...
390 7F59: 20 2C 40 JSR $402C [PC=402C, SP=01E8, CC=---B-I--, A=19, X=02, Y=00]
394 WriteLog("\n*** Byte %02X written at address %04X\n", b, addr);
397 CLR80STORE=$C000 ;80STORE Off- disable 80-column memory mapping (Write)
398 SET80STORE=$C001 ;80STORE On- enable 80-column memory mapping (WR-only)
400 CLRAUXRD = $C002 ;read from main 48K (WR-only)
401 SETAUXRD = $C003 ;read from aux/alt 48K (WR-only)
403 CLRAUXWR = $C004 ;write to main 48K (WR-only)
404 SETAUXWR = $C005 ;write to aux/alt 48K (WR-only)
406 CLRCXROM = $C006 ;use ROM on cards (WR-only)
407 SETCXROM = $C007 ;use internal ROM (WR-only)
409 CLRAUXZP = $C008 ;use main zero page, stack, & LC (WR-only)
410 SETAUXZP = $C009 ;use alt zero page, stack, & LC (WR-only)
412 CLRC3ROM = $C00A ;use internal Slot 3 ROM (WR-only)
413 SETC3ROM = $C00B ;use external Slot 3 ROM (WR-only)
415 CLR80VID = $C00C ;disable 80-column display mode (WR-only)
416 SET80VID = $C00D ;enable 80-column display mode (WR-only)
418 CLRALTCH = $C00E ;use main char set- norm LC, Flash UC (WR-only)
419 SETALTCH = $C00F ;use alt char set- norm inverse, LC; no Flash (WR-only)
423 alternateCharset = false;
425 else if (addr == 0xC00F)
427 alternateCharset = true;
429 else if ((addr & 0xFFF0) == 0xC010) // Keyboard strobe
433 else if (addr == 0xC050)
437 else if (addr == 0xC051)
441 else if (addr == 0xC052)
445 else if (addr == 0xC053)
449 else if (addr == 0xC054)
451 displayPage2 = false;
453 else if (addr == 0xC055)
457 else if (addr == 0xC056)
461 else if (addr == 0xC057)
465 else if ((addr & 0xFFF8) == 0xC0E0)
467 floppyDrive.ControlStepper(addr & 0x07);
469 else if ((addr & 0xFFFE) == 0xC0E8)
471 floppyDrive.ControlMotor(addr & 0x01);
473 else if ((addr & 0xFFFE) == 0xC0EA)
475 floppyDrive.DriveEnable(addr & 0x01);
477 else if (addr == 0xC0EC)
479 //change this to Write()? (and the other to Read()?) Dunno. Seems to work OK, but still...
480 floppyDrive.ReadWrite();
482 else if (addr == 0xC0ED)
484 floppyDrive.SetLatchValue(b);
486 else if (addr == 0xC0EE)
488 floppyDrive.SetReadMode();
490 else if (addr == 0xC0EF)
492 floppyDrive.SetWriteMode();
494 //Still need to add missing I/O switches here...
500 if (addr <= 0xDFFF && visibleBank == LC_BANK_1)
501 ram[addr - 0x1000] = b;
513 // Load a file into RAM/ROM image space
515 bool LoadImg(char * filename, uint8 * ram, int size)
517 FILE * fp = fopen(filename, "rb");
522 fread(ram, 1, size, fp);
528 static void SaveApple2State(const char * filename)
532 static bool LoadApple2State(const char * filename)
540 int main(int /*argc*/, char * /*argv*/[])
542 InitLog("./apple2.log");
544 srand(time(NULL)); // Initialize RNG
547 //Need to bankify this stuff for the IIe emulation...
548 memset(ram, 0, 0x10000);
549 memset(rom, 0, 0x10000);
551 // Set up V65C02 execution context
552 memset(&mainCPU, 0, sizeof(V65C02REGS));
553 mainCPU.RdMem = RdMem;
554 mainCPU.WrMem = WrMem;
555 mainCPU.cpuFlags |= V65C02_ASSERT_LINE_RESET;
557 if (!LoadImg(settings.BIOSPath, rom + 0xD000, 0x3000))
559 WriteLog("Could not open file '%s'!\n", settings.BIOSPath);
563 //This is now included...
564 /* if (!LoadImg(settings.diskPath, diskRom, 0x100))
566 WriteLog("Could not open file '%s'!\nDisk II will be unavailable!\n", settings.diskPath);
570 //Load up disk image from config file (for now)...
571 floppyDrive.LoadImage(settings.diskImagePath1, 0);
572 floppyDrive.LoadImage(settings.diskImagePath2, 1);
573 // floppyDrive.LoadImage("./disks/temp.nib", 1); // Load temp .nib file into second drive...
575 //Kill the DOS ROM in slot 6 for now...
577 memcpy(rom + 0xC600, diskROM, 0x100);
579 WriteLog("About to initialize video...\n");
582 cout << "Aborting!" << endl;
586 // Have to do this *after* video init but *before* sound init...!
587 //Shouldn't be necessary since we're not doing emulation in the ISR...
588 if (settings.autoStateSaving)
590 // Load last state from file...
591 if (!LoadApple2State(settings.autoStatePath))
592 WriteLog("Unable to use Apple2 state file \"%s\"!\n", settings.autoStatePath);
598 if (!LoadImg("./BT1_6502_RAM_SPACE.bin", ram, 0x10000))
600 cout << "Couldn't load state file!" << endl;
601 cout << "Aborting!!" << endl;
606 //-- -- -- -- ----- -----
607 //00 75 3B 53 FD 01 41 44
609 mainCPU.cpuFlags = 0;
619 displayPage2 = false;
626 memcpy(ram + 0xD000, ram + 0xC000, 0x1000);
629 WriteLog("About to initialize audio...\n");
631 SDL_EnableUNICODE(1); // Needed to do key translation shit
633 gui = new GUI(surface); // Set up the GUI system object...
634 gui->AddMenuTitle("Apple2");
635 gui->AddMenuItem("Test!", TestWindow/*, hotkey*/);
636 gui->AddMenuItem("");
637 gui->AddMenuItem("Quit", QuitEmulator, SDLK_q);
638 gui->CommitItemsToMenu();
640 SetupBlurTable(); // Set up the color TV emulation blur table
641 running = true; // Set running status...
643 InitializeEventList(); // Clear the event list before we use it...
644 SetCallbackTime(FrameCallback, 16666.66666667); // Set frame to fire at 1/60 s interval
645 SetCallbackTime(BlinkTimer, 250000); // Set up blinking at 1/4 s intervals
646 startTicks = SDL_GetTicks();
648 WriteLog("Entering main loop...\n");
651 double timeToNextEvent = GetTimeToNextEvent();
652 Execute65C02(&mainCPU, USEC_TO_M6502_CYCLES(timeToNextEvent));
653 //We MUST remove a frame's worth of time in order for the CPU to function... !!! FIX !!!
654 //(Fix so that this is not a requirement!)
655 mainCPU.clock -= USEC_TO_M6502_CYCLES(timeToNextEvent);
659 if (settings.autoStateSaving)
661 // Save state here...
662 SaveApple2State(settings.autoStatePath);
664 floppyDrive.SaveImage();
679 -----------------------
680 space $A0 $A0 $A0 $A0 No xlation
681 RETURN $8D $8D $8D $8D No xlation
682 0 $B0 $B0 $B0 $B0 Need to screen shift+0 (?)
683 1! $B1 $B1 $A1 $A1 No xlation
684 2" $B2 $B2 $A2 $A2 No xlation
685 3# $B3 $B3 $A3 $A3 No xlation
686 4$ $B4 $B4 $A4 $A4 No xlation
687 5% $B5 $B5 $A5 $A5 No xlation
688 6& $B6 $B6 $A6 $A6 No xlation
689 7' $B7 $B7 $A7 $A7 No xlation
690 8( $B8 $B8 $A8 $A8 No xlation
691 9) $B9 $B9 $A9 $A9 No xlation
692 :* $BA $BA $AA $AA No xlation
693 ;+ $BB $BB $AB $AB No xlation
694 ,< $AC $AC $BC $BC No xlation
695 -= $AD $AD $BD $BD No xlation
696 .> $AE $AE $BE $BE No xlation
697 /? $AF $AF $BF $BF No xlation
710 M $CD $8D $DD $9D -> ODD
711 N^ $CE $8E $DE $9E -> ODD
713 P@ $D0 $90 $C0 $80 Need to xlate CTL+SHFT+P & SHFT+P (?)
726 ESC $9B $9B $9B $9B No xlation
729 static void FrameCallback(void)
733 while (SDL_PollEvent(&event))
738 if (event.key.keysym.unicode != 0)
740 //Need to do some key translation here, and screen out non-apple keys as well...
741 if (event.key.keysym.sym == SDLK_TAB) // Prelim key screening...
744 lastKeyPressed = event.key.keysym.unicode;
746 //kludge: should have a caps lock thingy here...
747 //or all uppercase for ][+...
748 if (lastKeyPressed >= 'a' && lastKeyPressed <='z')
749 lastKeyPressed &= 0xDF; // Convert to upper case...
752 // CTRL+RESET key emulation (mapped to CTRL+`)
753 // This doesn't work...
754 // if (event.key.keysym.sym == SDLK_BREAK && (event.key.keysym.mod & KMOD_CTRL))
755 // if (event.key.keysym.sym == SDLK_PAUSE && (event.key.keysym.mod & KMOD_CTRL))
756 if (event.key.keysym.sym == SDLK_BACKQUOTE && (event.key.keysym.mod & KMOD_CTRL))
757 //NOTE that this shouldn't take place until the key is lifted... !!! FIX !!!
758 //ALSO it seems to leave the machine in an inconsistent state vis-a-vis the language card...
759 mainCPU.cpuFlags |= V65C02_ASSERT_LINE_RESET;
761 if (event.key.keysym.sym == SDLK_RIGHT)
762 lastKeyPressed = 0x15, keyDown = true;
763 else if (event.key.keysym.sym == SDLK_LEFT)
764 lastKeyPressed = 0x08, keyDown = true;
766 // Use ALT+Q to exit, as well as the usual window decoration method
767 if (event.key.keysym.sym == SDLK_q && (event.key.keysym.mod & KMOD_ALT))
770 if (event.key.keysym.sym == SDLK_F12)
771 dumpDis = !dumpDis; // Toggle the disassembly process
772 else if (event.key.keysym.sym == SDLK_F11)
773 floppyDrive.LoadImage("./disks/bt1_char.dsk");//Kludge to load char disk...
774 else if (event.key.keysym.sym == SDLK_F9)
776 floppyDrive.CreateBlankImage();
777 // SpawnMessage("Image cleared...");
779 else if (event.key.keysym.sym == SDLK_F10)
781 floppyDrive.SwapImages();
782 // SpawnMessage("Image swapped...");
785 if (event.key.keysym.sym == SDLK_F2)// Toggle the palette
787 else if (event.key.keysym.sym == SDLK_F3)// Cycle through screen types
790 // if (event.key.keysym.sym == SDLK_F5) // Temp GUI launch key
791 if (event.key.keysym.sym == SDLK_F1) // GUI launch key
792 //NOTE: Should parse the output to determine whether or not the user requested
793 // to quit completely... !!! FIX !!!
802 HandleSoundAtFrameEdge(); // Sound stuff... (ick)
804 SetCallbackTime(FrameCallback, 16666.66666667);
806 while (SDL_GetTicks() - startTicks < 16); // Wait for next frame...
807 startTicks = SDL_GetTicks();
810 static void BlinkTimer(void)
813 SetCallbackTime(BlinkTimer, 250000); // Set up blinking at 1/4 sec intervals