2018-08-18 23:18:08 +00:00
|
|
|
#pragma once
|
|
|
|
|
|
|
|
// Uses some information from:
|
|
|
|
// http://www.cpu-world.com/Arch/6809.html
|
|
|
|
|
|
|
|
#include <cstdint>
|
|
|
|
|
|
|
|
#include <Bus.h>
|
|
|
|
#include <BigEndianProcessor.h>
|
|
|
|
|
|
|
|
namespace EightBit {
|
|
|
|
class mc6809 : public BigEndianProcessor {
|
|
|
|
public:
|
|
|
|
enum StatusBits {
|
2018-08-19 09:39:41 +00:00
|
|
|
|
|
|
|
// Entire flag: set if the complete machine state was saved in the stack.
|
|
|
|
// If this bit is not set then only program counter and condition code
|
|
|
|
// registers were saved in the stack. This bit is used by interrupt
|
|
|
|
// handling routines only.
|
|
|
|
// The bit is cleared by fast interrupts, and set by all other interrupts.
|
|
|
|
EF = Bit7,
|
|
|
|
|
|
|
|
// Fast interrupt mask: set if the FIRQ interrupt is disabled.
|
|
|
|
FF = Bit6,
|
|
|
|
|
|
|
|
// Half carry: set if there was a carry from bit 3 to bit 4 of the result
|
|
|
|
// during the last add operation.
|
|
|
|
HF = Bit5,
|
|
|
|
|
|
|
|
// Interrupt mask: set if the IRQ interrupt is disabled.
|
|
|
|
IF = Bit4,
|
|
|
|
|
|
|
|
// Negative: set if the most significant bit of the result is set.
|
|
|
|
// This bit can be set not only by arithmetic and logical operations,
|
|
|
|
// but also by load / store operations.
|
|
|
|
NF = Bit3,
|
|
|
|
|
|
|
|
// Zero: set if the result is zero. Like the N bit, this bit can be
|
|
|
|
// set not only by arithmetic and logical operations, but also
|
|
|
|
// by load / store operations.
|
|
|
|
ZF = Bit2,
|
|
|
|
|
|
|
|
// Overflow: set if there was an overflow during last result calculation.
|
|
|
|
// Logical, load and store operations clear this bit.
|
|
|
|
VF = Bit1,
|
|
|
|
|
|
|
|
// Carry: set if there was a carry from the bit 7 during last add
|
|
|
|
// operation, or if there was a borrow from last subtract operation,
|
|
|
|
// or if bit 7 of the A register was set during last MUL operation.
|
|
|
|
CF = Bit0,
|
2018-08-18 23:18:08 +00:00
|
|
|
};
|
|
|
|
|
|
|
|
mc6809(Bus& bus);
|
|
|
|
|
|
|
|
Signal<mc6809> ExecutingInstruction;
|
|
|
|
Signal<mc6809> ExecutedInstruction;
|
|
|
|
|
|
|
|
virtual int execute(uint8_t opcode) final;
|
|
|
|
virtual int step() final;
|
|
|
|
virtual void powerOn() final;
|
|
|
|
|
|
|
|
register16_t& D() { return m_d; }
|
|
|
|
uint8_t& A() { return D().high; }
|
|
|
|
uint8_t& B() { return D().low; }
|
|
|
|
|
|
|
|
register16_t& X() { return m_x; }
|
|
|
|
register16_t& Y() { return m_y; }
|
|
|
|
register16_t& U() { return m_u; }
|
|
|
|
register16_t& S() { return m_s; }
|
|
|
|
|
|
|
|
uint8_t& DP() { return m_dp; }
|
|
|
|
uint8_t& CC() { return m_cc; }
|
|
|
|
|
|
|
|
PinLevel& IRQ() { return INT(); }
|
|
|
|
PinLevel& FIRQ() { return m_firq; }
|
|
|
|
|
|
|
|
protected:
|
|
|
|
virtual void reset() final;
|
|
|
|
|
2018-08-21 23:34:16 +00:00
|
|
|
virtual void push(uint8_t value) final { pushS(value); }
|
|
|
|
virtual uint8_t pop() final { return popS(); }
|
|
|
|
|
2018-08-18 23:18:08 +00:00
|
|
|
private:
|
2018-08-20 10:52:09 +00:00
|
|
|
const uint8_t RESETvector = 0xfe; // RESET vector
|
|
|
|
const uint8_t NMIvector = 0xfc; // NMI vector
|
|
|
|
const uint8_t SWIvector = 0xfa; // SWI vector
|
|
|
|
const uint8_t IRQvector = 0xf8; // IRQ vector
|
|
|
|
const uint8_t FIRQvector = 0xf6; // FIRQ vector
|
|
|
|
const uint8_t SWI2vector = 0xf4; // SWI2 vector
|
|
|
|
const uint8_t SWI3vector = 0xf2; // SWI3 vector
|
|
|
|
const uint8_t RESERVEDvector = 0xf0; // RESERVED vector
|
|
|
|
|
2018-08-21 23:34:16 +00:00
|
|
|
// Stack manipulation
|
|
|
|
|
|
|
|
void push(register16_t& stack, uint8_t value);
|
|
|
|
void pushS(uint8_t value) { push(S(), value); }
|
|
|
|
void pushU(uint8_t value) { push(U(), value); }
|
|
|
|
|
|
|
|
void pushWord(register16_t& stack, register16_t value) {
|
|
|
|
push(stack, value.low);
|
|
|
|
push(stack, value.high);
|
|
|
|
}
|
|
|
|
|
|
|
|
void pushWordS(register16_t value) { pushWord(S(), value); }
|
|
|
|
void pushWordU(register16_t value) { pushWord(U(), value); }
|
|
|
|
|
|
|
|
uint8_t pop(register16_t& stack);
|
|
|
|
uint8_t popS() { return pop(S()); }
|
|
|
|
uint8_t popU() { return pop(U()); }
|
|
|
|
|
|
|
|
register16_t popWord(register16_t& stack) {
|
|
|
|
const auto high = pop(stack);
|
|
|
|
const auto low = pop(stack);
|
|
|
|
return register16_t(low, high);
|
|
|
|
}
|
|
|
|
|
|
|
|
register16_t popWordS() { popWord(S()); }
|
|
|
|
register16_t popWordU() { popWord(U()); }
|
|
|
|
|
2018-08-20 10:52:09 +00:00
|
|
|
// Execution helpers
|
|
|
|
|
|
|
|
int executeUnprefixed(uint8_t opcode);
|
|
|
|
int execute10(uint8_t opcode);
|
|
|
|
int execute11(uint8_t opcode);
|
2018-08-18 23:18:08 +00:00
|
|
|
|
2018-08-19 09:39:41 +00:00
|
|
|
// Register selection for "indexed"
|
|
|
|
register16_t& RR(int which);
|
|
|
|
|
2018-08-21 13:51:56 +00:00
|
|
|
// Register selection for 8-bit transfer/exchange
|
|
|
|
uint8_t& referenceTransfer8(int specifier);
|
|
|
|
|
|
|
|
// Register selection for 16-bit transfer/exchange
|
|
|
|
register16_t& referenceTransfer16(int specifier);
|
|
|
|
|
2018-08-19 09:39:41 +00:00
|
|
|
// Addressing modes
|
2018-08-20 10:52:09 +00:00
|
|
|
|
2018-08-22 22:06:36 +00:00
|
|
|
register16_t Address_direct(); // DP + fetched offset
|
|
|
|
register16_t Address_indexed(); // Indexed address, complicated!
|
|
|
|
register16_t Address_extended(); // Fetched address
|
|
|
|
register16_t Address_relative_byte(); // PC + fetched byte offset
|
|
|
|
register16_t Address_relative_word(); // PC + fetched word offset
|
2018-08-19 09:39:41 +00:00
|
|
|
|
|
|
|
// Addressing mode readers
|
2018-08-20 10:52:09 +00:00
|
|
|
|
|
|
|
// Single byte readers
|
|
|
|
|
2018-08-19 11:58:44 +00:00
|
|
|
uint8_t AM_immediate_byte();
|
|
|
|
uint8_t AM_direct_byte();
|
|
|
|
uint8_t AM_indexed_byte();
|
|
|
|
uint8_t AM_extended_byte();
|
|
|
|
|
2018-08-20 10:52:09 +00:00
|
|
|
// Word readers
|
|
|
|
|
2018-08-19 11:58:44 +00:00
|
|
|
register16_t AM_immediate_word();
|
|
|
|
register16_t AM_direct_word();
|
|
|
|
register16_t AM_indexed_word();
|
|
|
|
register16_t AM_extended_word();
|
2018-08-18 23:55:59 +00:00
|
|
|
|
2018-08-20 10:52:09 +00:00
|
|
|
// Flag adjustment
|
|
|
|
|
|
|
|
template<class T> void adjustZero(T datum) { clearFlag(CC(), ZF, datum); }
|
2018-08-21 19:50:43 +00:00
|
|
|
void adjustZero(register16_t datum) { clearFlag(CC(), ZF, datum.word); }
|
2018-08-20 10:52:09 +00:00
|
|
|
void adjustNegative(uint8_t datum) { setFlag(CC(), NF, datum & Bit7); }
|
|
|
|
void adjustNegative(uint16_t datum) { setFlag(CC(), NF, datum & Bit15); }
|
2018-08-21 19:50:43 +00:00
|
|
|
void adjustNegative(register16_t datum) { adjustNegative(datum.word); }
|
2018-08-20 10:52:09 +00:00
|
|
|
|
|
|
|
template<class T> void adjustNZ(T datum) {
|
2018-08-19 15:18:06 +00:00
|
|
|
adjustZero(datum);
|
|
|
|
adjustNegative(datum);
|
|
|
|
}
|
|
|
|
|
2018-08-20 10:52:09 +00:00
|
|
|
void adjustCarry(uint16_t datum) { setFlag(CC(), CF, datum & Bit8); } // 8-bit addition
|
|
|
|
void adjustCarry(uint32_t datum) { setFlag(CC(), CF, datum & Bit16); } // 16-bit addition
|
2018-08-21 19:50:43 +00:00
|
|
|
void adjustCarry(register16_t datum) { adjustCarry(datum.word); }
|
2018-08-20 10:52:09 +00:00
|
|
|
|
|
|
|
void adjustBorrow(uint16_t datum) { clearFlag(CC(), CF, datum & Bit8); } // 8-bit subtraction
|
|
|
|
void adjustBorrow(uint32_t datum) { clearFlag(CC(), CF, datum & Bit16); } // 16-bit subtraction
|
2018-08-21 19:50:43 +00:00
|
|
|
void adjustBorrow(register16_t datum) { adjustBorrow(datum.word); }
|
2018-08-20 10:52:09 +00:00
|
|
|
|
|
|
|
void adjustOverflow(uint8_t before, uint8_t data, uint8_t after) {
|
|
|
|
setFlag(CC(), VF, (before ^ data) & (before ^ after) & Bit7);
|
|
|
|
}
|
|
|
|
|
|
|
|
void adjustOverflow(uint16_t before, uint16_t data, uint16_t after) {
|
|
|
|
setFlag(CC(), VF, (before ^ data) & (before ^ after) & Bit15);
|
|
|
|
}
|
2018-08-21 19:50:43 +00:00
|
|
|
void adjustOverflow(register16_t before, register16_t data, register16_t after) {
|
|
|
|
adjustOverflow(before.word, data.word, after.word);
|
|
|
|
}
|
2018-08-20 10:52:09 +00:00
|
|
|
|
2018-08-20 21:18:41 +00:00
|
|
|
void adjustAddition(uint8_t before, uint8_t data, register16_t after) {
|
|
|
|
const auto result = after.low;
|
|
|
|
adjustNZ(result);
|
2018-08-21 19:50:43 +00:00
|
|
|
adjustCarry(after);
|
2018-08-20 21:18:41 +00:00
|
|
|
adjustOverflow(before, data, result);
|
|
|
|
}
|
|
|
|
|
|
|
|
void adjustAddition(uint16_t before, uint16_t data, uint32_t after) {
|
|
|
|
const register16_t result = after & Mask16;
|
2018-08-21 19:50:43 +00:00
|
|
|
adjustNZ(result);
|
2018-08-20 21:18:41 +00:00
|
|
|
adjustCarry(after);
|
2018-08-21 19:50:43 +00:00
|
|
|
adjustOverflow(before, data, result);
|
|
|
|
}
|
|
|
|
|
|
|
|
void adjustAddition(register16_t before, register16_t data, uint32_t after) {
|
|
|
|
adjustAddition(before.word, data.word, after);
|
2018-08-20 21:18:41 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
void adjustSubtraction(uint8_t before, uint8_t data, register16_t after) {
|
|
|
|
const auto result = after.low;
|
|
|
|
adjustNZ(result);
|
2018-08-21 19:50:43 +00:00
|
|
|
adjustBorrow(after);
|
2018-08-20 21:18:41 +00:00
|
|
|
adjustOverflow(before, data, result);
|
|
|
|
}
|
|
|
|
|
|
|
|
void adjustSubtraction(uint16_t before, uint16_t data, uint32_t after) {
|
|
|
|
const register16_t result = after & Mask16;
|
2018-08-21 19:50:43 +00:00
|
|
|
adjustNZ(result);
|
2018-08-20 21:18:41 +00:00
|
|
|
adjustBorrow(after);
|
2018-08-21 19:50:43 +00:00
|
|
|
adjustOverflow(before, data, result);
|
|
|
|
}
|
|
|
|
|
|
|
|
void adjustSubtraction(register16_t before, register16_t data, uint32_t after) {
|
|
|
|
adjustSubtraction(before.word, data.word, after);
|
2018-08-20 21:18:41 +00:00
|
|
|
}
|
|
|
|
|
2018-08-22 22:06:36 +00:00
|
|
|
// Flag checking
|
|
|
|
|
|
|
|
int negative() { return CC() & NF; }
|
|
|
|
int zero() { return CC() & ZF; }
|
|
|
|
int overflow() { return CC() & VF; }
|
|
|
|
int carry() { return CC() & CF; }
|
|
|
|
|
|
|
|
bool BLS() { return carry() | (zero() >> 2); } // (C OR Z)
|
|
|
|
bool BHI() { return !BLS(); } // !(C OR Z)
|
|
|
|
bool BLT() { return (negative() >> 2) ^ overflow(); } // (N XOR V)
|
|
|
|
bool BGE() { return !BLT(); } // !(N XOR V)
|
|
|
|
bool BLE() { return (zero() >> 2) & ((negative() >> 3) ^ (overflow() >> 1)); } // (Z OR (N XOR V))
|
|
|
|
bool BGT() { return !BLE(); } // !(Z OR (N XOR V))
|
|
|
|
|
|
|
|
// Branching
|
|
|
|
|
|
|
|
bool branch(register16_t destination, int condition) {
|
|
|
|
if (condition)
|
|
|
|
jump(destination);
|
|
|
|
return !!condition;
|
|
|
|
}
|
|
|
|
|
|
|
|
bool branchShort(int condition) {
|
2018-08-23 08:32:37 +00:00
|
|
|
return branch(Address_relative_byte(), condition);
|
2018-08-22 22:06:36 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
bool branchLong(int condition) {
|
2018-08-23 08:32:37 +00:00
|
|
|
return branch(Address_relative_word(), condition);
|
2018-08-22 22:06:36 +00:00
|
|
|
}
|
|
|
|
|
2018-08-23 13:09:46 +00:00
|
|
|
// Miscellaneous
|
|
|
|
|
|
|
|
void saveEntireRegisterState();
|
|
|
|
|
2018-08-20 10:52:09 +00:00
|
|
|
// Instruction implementations
|
|
|
|
|
2018-08-19 09:15:37 +00:00
|
|
|
uint8_t adc(uint8_t operand, uint8_t data);
|
|
|
|
uint8_t add(uint8_t operand, uint8_t data, int carry = 0);
|
2018-08-19 11:58:44 +00:00
|
|
|
register16_t add(register16_t operand, register16_t data);
|
2018-08-19 13:08:49 +00:00
|
|
|
uint8_t andr(uint8_t operand, uint8_t data);
|
2018-08-19 15:18:06 +00:00
|
|
|
uint8_t asl(uint8_t operand);
|
|
|
|
uint8_t asr(uint8_t operand);
|
2018-08-19 16:03:32 +00:00
|
|
|
uint8_t clr();
|
2018-08-20 10:52:09 +00:00
|
|
|
void cmp(uint8_t operand, uint8_t data);
|
|
|
|
void cmp(register16_t operand, register16_t data);
|
2018-08-21 08:01:15 +00:00
|
|
|
uint8_t com(uint8_t operand);
|
2018-08-21 08:52:03 +00:00
|
|
|
void cwai(uint8_t data);
|
2018-08-21 11:25:58 +00:00
|
|
|
uint8_t da(uint8_t operand);
|
2018-08-21 12:29:52 +00:00
|
|
|
uint8_t dec(uint8_t operand);
|
|
|
|
uint8_t eor(uint8_t operand, uint8_t data);
|
2018-08-21 13:51:56 +00:00
|
|
|
void exg(uint8_t data);
|
2018-08-21 16:01:20 +00:00
|
|
|
uint8_t inc(uint8_t operand);
|
2018-08-21 17:57:20 +00:00
|
|
|
uint8_t ld(uint8_t data);
|
|
|
|
register16_t ld(register16_t data);
|
2018-08-21 20:59:25 +00:00
|
|
|
uint8_t lsr(uint8_t operand);
|
2018-08-21 21:45:33 +00:00
|
|
|
register16_t mul(uint8_t first, uint8_t second);
|
2018-08-18 23:55:59 +00:00
|
|
|
uint8_t neg(uint8_t operand);
|
2018-08-21 22:07:22 +00:00
|
|
|
uint8_t orr(uint8_t operand, uint8_t data);
|
2018-08-21 23:34:16 +00:00
|
|
|
void pshs(uint8_t data);
|
|
|
|
void pshu(uint8_t data);
|
|
|
|
void puls(uint8_t data);
|
|
|
|
void pulu(uint8_t data);
|
2018-08-22 08:11:02 +00:00
|
|
|
uint8_t rol(uint8_t operand);
|
|
|
|
uint8_t ror(uint8_t operand);
|
2018-08-22 09:21:22 +00:00
|
|
|
void rti();
|
|
|
|
void rts();
|
2018-08-23 23:14:44 +00:00
|
|
|
uint8_t sbc(uint8_t operand, uint8_t data);
|
|
|
|
uint8_t sub(uint8_t operand, uint8_t data, int carry = 0);
|
|
|
|
register16_t sub(register16_t operand, register16_t data);
|
2018-08-23 13:09:46 +00:00
|
|
|
uint8_t sex(uint8_t from);
|
|
|
|
void swi();
|
|
|
|
void swi2();
|
|
|
|
void swi3();
|
2018-08-23 22:09:19 +00:00
|
|
|
uint8_t st(uint8_t data);
|
|
|
|
register16_t st(register16_t data);
|
2018-08-23 13:09:46 +00:00
|
|
|
void tfr(uint8_t data);
|
2018-08-23 23:33:18 +00:00
|
|
|
void tst(uint8_t data);
|
2018-08-18 23:18:08 +00:00
|
|
|
|
|
|
|
register16_t m_d;
|
|
|
|
register16_t m_x;
|
|
|
|
register16_t m_y;
|
|
|
|
register16_t m_u;
|
|
|
|
register16_t m_s;
|
|
|
|
|
|
|
|
uint8_t m_dp;
|
|
|
|
uint8_t m_cc;
|
|
|
|
|
|
|
|
PinLevel m_firq;
|
2018-08-20 10:52:09 +00:00
|
|
|
|
|
|
|
bool m_prefix10 = false;
|
|
|
|
bool m_prefix11 = false;
|
2018-08-18 23:18:08 +00:00
|
|
|
};
|
|
|
|
}
|