| Games-NES-Emulator documentation | Contained in the Games-NES-Emulator distribution. |
CPU::Emulator::6502::Op::BCS - Branch on carry set
Brian Cassidy <bricas@cpan.org>
Copyright 2007 by Brian Cassidy
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
| Games-NES-Emulator documentation | Contained in the Games-NES-Emulator distribution. |
package CPU::Emulator::6502::Op::BCS; use strict; use warnings; use constant INSTRUCTIONS => { 0xB0 => { cycles => 2, code => \&bcs, } };
sub bcs { my $self = shift; my $reg = $self->registers; $self->branch_if( $reg->{status} & CPU::Emulator::6502::SET_CARRY ); }
1;