1
0
mirror of https://github.com/TomHarte/CLK.git synced 2024-11-19 23:32:28 +00:00

Implement CWD.

This commit is contained in:
Thomas Harte 2023-10-09 14:54:14 -04:00
parent 6bbd896c34
commit 08aed3bac5
2 changed files with 15 additions and 1 deletions

View File

@ -497,6 +497,11 @@ inline void cbw(CPU::RegisterPair16 &ax) {
ax.halves.high = (ax.halves.low & 0x80) ? 0xff : 0x00; ax.halves.high = (ax.halves.low & 0x80) ? 0xff : 0x00;
} }
template <typename IntT>
inline void cwd(IntT &dx, IntT ax) {
dx = ax & top_bit<IntT>() ? IntT(~0) : IntT(0);
}
inline void clc(Status &status) { status.carry = 0; } inline void clc(Status &status) { status.carry = 0; }
inline void cld(Status &status) { status.direction = 0; } inline void cld(Status &status) { status.direction = 0; }
inline void cli(Status &status) { status.interrupt = 0; } // TODO: quite a bit more in protected mode. inline void cli(Status &status) { status.interrupt = 0; } // TODO: quite a bit more in protected mode.
@ -562,6 +567,15 @@ template <
case Operation::DAA: Primitive::daa(registers.al(), status); return; case Operation::DAA: Primitive::daa(registers.al(), status); return;
case Operation::DAS: Primitive::das(registers.al(), status); return; case Operation::DAS: Primitive::das(registers.al(), status); return;
case Operation::CBW: Primitive::cbw(registers.axp()); return;
case Operation::CWD:
if constexpr (data_size == DataSize::Word) {
Primitive::cwd(registers.dx(), registers.ax());
} else if constexpr (is_32bit(model) && data_size == DataSize::DWord) {
Primitive::cwd(registers.edx(), registers.eax());
}
return;
case Operation::ADC: Primitive::adc(destination(), source(), status); break; case Operation::ADC: Primitive::adc(destination(), source(), status); break;
case Operation::ADD: Primitive::add(destination(), source(), status); break; case Operation::ADD: Primitive::add(destination(), source(), status); break;
case Operation::AND: Primitive::and_(destination(), source(), status); break; case Operation::AND: Primitive::and_(destination(), source(), status); break;
@ -576,7 +590,6 @@ template <
Primitive::call_far<model>(instruction, flow_controller, registers, memory); Primitive::call_far<model>(instruction, flow_controller, registers, memory);
return; return;
case Operation::CBW: Primitive::cbw(registers.axp()); return;
case Operation::CLC: Primitive::clc(status); return; case Operation::CLC: Primitive::clc(status); return;
case Operation::CLD: Primitive::cld(status); return; case Operation::CLD: Primitive::cld(status); return;
case Operation::CLI: Primitive::cli(status); return; case Operation::CLI: Primitive::cli(status); return;

View File

@ -283,6 +283,7 @@ struct FailedExecution {
@"2F.json.gz", // DAS @"2F.json.gz", // DAS
@"98.json.gz", // CBW @"98.json.gz", // CBW
@"99.json.gz", // CWD
// ADC // ADC
@"10.json.gz", @"11.json.gz", @"12.json.gz", @"13.json.gz", @"14.json.gz", @"15.json.gz", @"10.json.gz", @"11.json.gz", @"12.json.gz", @"13.json.gz", @"14.json.gz", @"15.json.gz",