1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
//! 68020+ long multiply/divide instructions (MULU.L/MULS.L, DIVU.L/DIVS.L and remainder forms).
//!
//! This matches the Musashi mc68040 fixture programs (`mul_long.s`, `divu_long.s`, `divs_long.s`).
use crate::core::cpu::CpuCore;
use crate::core::ea::AddressingMode;
use crate::core::memory::AddressBus;
use crate::core::types::Size;
impl CpuCore {
/// DIVU.L / DIVS.L / DIVUL.L / DIVSL.L family.
///
/// Opcode word: 0x4C40..0x4C7F (EA in low 6 bits)
/// Extension word (Musashi-style, as observed in fixtures):
/// - bit 11 (0x0800): signed (DIVS) when set, unsigned (DIVU) when clear
/// - bit 10 (0x0400): 64-bit dividend when set (hi part in remainder reg)
/// - bits 14..12: quotient destination register (Dq)
/// - bits 2..0: remainder register (Dr) (also holds hi dividend when 0x0400 set)
pub fn exec_divl<B: AddressBus>(&mut self, bus: &mut B, opcode: u16) -> i32 {
let ext = self.read_imm_16(bus);
let signed = (ext & 0x0800) != 0;
let use_64 = (ext & 0x0400) != 0;
let dq = ((ext >> 12) & 7) as usize;
let dr = (ext & 7) as usize;
let ea_mode = ((opcode >> 3) & 7) as u8;
let ea_reg = (opcode & 7) as u8;
let mode = match AddressingMode::decode(ea_mode, ea_reg) {
Some(m) => m,
None => return self.take_exception(bus, 4),
};
let divisor_u32 = self.read_ea(bus, mode, Size::Long);
if divisor_u32 == 0 {
return self.exception_zero_divide(bus);
}
let (quot_u32, rem_u32, overflow) = if signed {
let divisor = divisor_u32 as i32 as i64;
let dividend = if use_64 {
let hi = self.d(dr) as i32 as i64;
let lo = self.d(dq) as i64;
(hi << 32) | lo
} else {
self.d(dq) as i32 as i64
};
let q = dividend / divisor;
let r = dividend % divisor;
let overflow = q < i32::MIN as i64 || q > i32::MAX as i64;
(q as i32 as u32, r as i32 as u32, overflow)
} else {
let divisor = divisor_u32 as u64;
let dividend = if use_64 {
((self.d(dr) as u64) << 32) | (self.d(dq) as u64)
} else {
self.d(dq) as u64
};
let q = dividend / divisor;
let r = dividend % divisor;
let overflow = q > u32::MAX as u64;
(q as u32, r as u32, overflow)
};
if overflow {
// Overflow: V set, other flags undefined (we follow Musashi-ish: clear C, leave N/Z as-is).
self.v_flag = 0x80;
self.c_flag = 0;
return 40;
}
// Write results.
self.set_d(dq, quot_u32);
// Remainder is produced if Dr != Dq (DIVUL/DIVSL) or if 64-bit dividend form is used.
if use_64 || dr != dq {
self.set_d(dr, rem_u32);
}
// Flags: Z/N from quotient, V=0, C=0. X unaffected.
self.not_z_flag = quot_u32;
self.n_flag = if (quot_u32 & 0x8000_0000) != 0 {
0x80
} else {
0
};
self.v_flag = 0;
self.c_flag = 0;
40
}
/// MULU.L / MULS.L family.
///
/// Opcode word: 0x4C00..0x4C3F (EA in low 6 bits)
/// Extension word (Musashi-style, as observed in fixtures):
/// - bit 11 (0x0800): signed (MULS) when set, unsigned (MULU) when clear
/// - bit 10 (0x0400): 64-bit result when set (high in Dh, low in Dl)
/// - bits 14..12: low (and primary) destination register Dl
/// - bits 2..0: high destination register Dh (only used when 0x0400 set)
pub fn exec_mull<B: AddressBus>(&mut self, bus: &mut B, opcode: u16) -> i32 {
let ext = self.read_imm_16(bus);
let signed = (ext & 0x0800) != 0;
let wide = (ext & 0x0400) != 0;
let dl = ((ext >> 12) & 7) as usize;
let dh = (ext & 7) as usize;
let ea_mode = ((opcode >> 3) & 7) as u8;
let ea_reg = (opcode & 7) as u8;
let mode = match AddressingMode::decode(ea_mode, ea_reg) {
Some(m) => m,
None => return self.take_exception(bus, 4),
};
let src = self.read_ea(bus, mode, Size::Long);
let dst = self.d(dl);
if signed {
let a = dst as i32 as i64;
let b = src as i32 as i64;
let prod = a.wrapping_mul(b);
let lo = prod as i32 as u32;
let hi = (prod >> 32) as i32 as u32;
if wide {
self.set_d(dl, lo);
self.set_d(dh, hi);
// Flags from low part; V/C cleared for wide result.
self.not_z_flag = lo;
self.n_flag = if (lo & 0x8000_0000) != 0 { 0x80 } else { 0 };
self.v_flag = 0;
self.c_flag = 0;
return 40;
}
self.set_d(dl, lo);
self.not_z_flag = lo;
self.n_flag = if (lo & 0x8000_0000) != 0 { 0x80 } else { 0 };
// Overflow if high is not sign-extension of low.
let sign_ext = if (lo & 0x8000_0000) != 0 {
0xFFFF_FFFF
} else {
0
};
self.v_flag = if hi != sign_ext { 0x80 } else { 0 };
self.c_flag = 0;
40
} else {
let prod = (dst as u64).wrapping_mul(src as u64);
let lo = prod as u32;
let hi = (prod >> 32) as u32;
if wide {
self.set_d(dl, lo);
self.set_d(dh, hi);
self.not_z_flag = lo;
self.n_flag = if (lo & 0x8000_0000) != 0 { 0x80 } else { 0 };
self.v_flag = 0;
self.c_flag = 0;
return 40;
}
self.set_d(dl, lo);
self.not_z_flag = lo;
self.n_flag = if (lo & 0x8000_0000) != 0 { 0x80 } else { 0 };
// Overflow if high part non-zero.
self.v_flag = if hi != 0 { 0x80 } else { 0 };
self.c_flag = 0;
40
}
}
}