auto V30MZ::read(Size size, uint16 segment, uint16 address) -> uint32 {
  uint32 data;
  if(size >= Byte) data.byte(0) = read(segment * 16 + address++);
  if(size >= Word) data.byte(1) = read(segment * 16 + address++);
  if(size >= Long) data.byte(2) = read(segment * 16 + address++);
  if(size >= Long) data.byte(3) = read(segment * 16 + address++);
  return data;
}

auto V30MZ::write(Size size, uint16 segment, uint16 address, uint16 data) -> void {
  if(size >= Byte) write(segment * 16 + address++, data.byte(0));
  if(size >= Word) write(segment * 16 + address++, data.byte(1));
}

//

auto V30MZ::in(Size size, uint16 address) -> uint16 {
  uint16 data;
  if(size >= Byte) data.byte(0) = in(address++);
  if(size >= Word) data.byte(1) = in(address++);
  return data;
}

auto V30MZ::out(Size size, uint16 address, uint16 data) -> void {
  if(size >= Byte) out(address++, data.byte(0));
  if(size >= Word) out(address++, data.byte(1));
}

//

auto V30MZ::fetch(Size size) -> uint16 {
  wait(size);
  uint16 data = read(size, r.cs, r.ip);
  return r.ip += size, data;
}

//

auto V30MZ::pop() -> uint16 {
  uint16 data = read(Word, r.ss, r.sp);
  return r.sp += Word, data;
}

auto V30MZ::push(uint16 data) -> void {
  r.sp -= Word;
  write(Word, r.ss, r.sp, data);
}