6502/EightBit
1
0
Fork 0
mirror of https://github.com/MoleskiCoder/EightBit.git synced 2024-12-23 15:29:24 +00:00
Code Issues Projects Releases Wiki Activity

Add DAA to the 6809 processor.

Browse Source 
Signed-off-by: Adrian Conlon <Adrian.conlon@gmail.com>
This commit is contained in:
Adrian Conlon 2018-08-21 12:25:58 +01:00
parent 0882513762
commit 00ca20dbe4
2 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
MC6809/inc/mc6809.h
View File

@ -185,6 +185,7 @@ namespace EightBit {
void cmp(register16_t operand, register16_t data); void cmp(register16_t operand, register16_t data);
uint8_t com(uint8_t operand); uint8_t com(uint8_t operand);
void cwai(uint8_t data); void cwai(uint8_t data);
uint8_t da(uint8_t operand);
uint8_t neg(uint8_t operand); uint8_t neg(uint8_t operand);
register16_t m_d; register16_t m_d;

21
MC6809/src/mc6809.cpp
View File

@ -158,6 +158,9 @@ int EightBit::mc6809::executeUnprefixed(uint8_t opcode) {
// CWAI // CWAI
case 0x3c: addCycles(20); cwai(AM_direct_byte()); break; // CWAI (CWAI direct) case 0x3c: addCycles(20); cwai(AM_direct_byte()); break; // CWAI (CWAI direct)
// DAA
case 0x19: addCycles(2); A() = da(A()); break; // DAA (DAA implied)
default: default:
UNREACHABLE; UNREACHABLE;
} }
@ -464,4 +467,20 @@ void EightBit::mc6809::cwai(uint8_t data) {
push(A()); push(A());
push(CC()); push(CC());
halt(); halt();
} }
uint8_t EightBit::mc6809::da(uint8_t operand) {
clearFlag(CC(), VF);
setFlag(CC(), CF, A() > 0x99);
const auto lowAdjust = (CC() & HF) || (lowNibble(A()) > 9);
const auto highAdjust = (CC() & CF) || (A() > 0x99);
if (lowAdjust)
A() += 6;
if (highAdjust)
A() += 0x60;
adjustNZ(A());
}