Another week, another release. This time I've totally revamped the code for the instructions. It's been simplified to the point where it actually makes sense at a glance. For example, DEY (decrement the Y register by 1) looked like this:
my $self = shift;
my $reg = $self->registers;$reg->{ y } = ( $reg->{ y } - 1 ) & 0xff;
$reg->{ status } &= CPU::Emulator::6502::CLEAR_SIGN;
$reg->{ status } &= CPU::Emulator::6502::CLEAR_ZERO;$reg->{ status } |= CPU::Emulator::6502::SET_ZERO if !$reg->{ y };
$reg->{ status } |= CPU::Emulator::6502::SET_SIGN if $reg->{ y } & 0x80;$reg->{ pc }++;
There's a lot of junk in there for setting the N and Z flags and incrementing the program counter. It now looks like this:
my $self = shift;
my $reg = $self->registers;$reg->{ y } = ( $reg->{ y } - 1 ) & 0xff;
$self->set_nz( $reg->{ y } );
Much nicer.
I've also eliminated any cycle counter code from the instructions. Rather than adding 2 cycles for each instruction, then adding the remainder in the instruction itself, I've simply added the total number of cycles to the metadata for each instruction. The absolute addressing mode for the EOR instruction (exclusive or between the accumulator and memory contents) is setup like so:
0x4D => {
addressing => 'absolute',
cycles => 4,
code => \&eor,
},
I plan to add some unit tests for the addressing modes and instructions for the next release.
Other than that, I have a TODO to re-work the CPU read() and write() code. It is currently a twisty maze of if {} elsif {} statements due to the fact that NES uses memory-mapped IO, I think this could be better written as a hash table of subs that will delegate to the PPU and APU as needed. Last on that list is the need to remove all of the swapping code in the base mapper. That process can happen many times per frame and will seriously slow down the emulator -- instead I can just use a list of pointers to mimic the swap. That refactoring will probably have to wait until i get some actual PPU functionality written, though.
]]>I released a new version of Games::NES::Emulator. It still doesn't work. :) But, I'm getting closer. Ive added a bunch of the 6502 operations. My interpretation of their functionality may be, uh, well, off -- but I've added some debugging to see what the state of the emulator is after each instruction.
.------+------+----+----+----+----------+------.
| PC | SP | A | X | Y | Status | OP |
+------+------+----+----+----+----------+------+
| 8000 | ff | 0 | 0 | 0 | ..-B.... | 78 |
'------+------+----+----+----+----------+------'
.-------. .------+-----------------------------.
| Stack | | Addr | Code |
+-------+ +------+-----------------------------+
| 0 | | 8000 | 78 |
| 0 | | 8001 | d8 |
| 0 | | 8002 | a9 |
| 0 | | 8003 | 40 |
| 0 | | 8004 | 8d |
| 0 | | 8005 | 0 |
| 0 | | 8006 | 20 |
| 0 | | 8007 | a2 |
| 0 | | 8008 | ff |
| 0 | | 8009 | 9a |
'-------' '------+-----------------------------'
Eventually I'll do some disassembling and fix up the "Code" section to reflect the actual op names and params.
I've pushed Games::NES::Emulator to CPAN. Like the "WARNING" section says, don't get overly excited yet, it doesn't actually do anything -- yet.
I've had a bunch of code going stale on my machine that I've been meaning to put out. I hope to put out periodic releases, as I piece things together, gradually forming into a working emulator. I long for the day when the little "nintendo" logo show up on screen due to this module...