serializer.c

#include "serializer.h"
#include "clem_defs.h"
#include "clem_mem.h"
#include "clem_mmio.h"
#include "external/mpack.h"

/* Serializing the Machine */

union ClemensSerializerVariant {
    struct ClemensClock *clock_object;
    uint8_t *blob;
    uint64_t u64;
    clem_clocks_time_t clocks;
    clem_clocks_duration_t duration;
    float f32;
    uint32_t u32;
    int32_t i32;
    uint16_t u16;
    int16_t i16;
    uint8_t u8;
    bool b;
};

#define CLEM_SERIALIZER_CUSTOM_RECORD_AUDIO_MIX_BUFFER 0x00000001
#define CLEM_SERIALIZER_CUSTOM_RECORD_NIBBLE_DISK      0x00000002
#define CLEM_SERIALIZER_CUSTOM_RECORD_CARD_MEMORY      0x00000003

struct ClemensSerializerRecord kVGC[] = {
    /* scan lines are generated */
    CLEM_SERIALIZER_RECORD_ARRAY(struct ClemensVGC, kClemensSerializerTypeUInt8, shgr_palettes,
                                 16 * CLEM_VGC_SHGR_SCANLINE_COUNT, 0),
    CLEM_SERIALIZER_RECORD_CLOCKS(struct ClemensVGC, ts_last_frame),
    CLEM_SERIALIZER_RECORD_DURATION(struct ClemensVGC, dt_scanline),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensVGC, vbl_counter),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensVGC, v_counter),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensVGC, mode_flags),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensVGC, text_fg_color),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensVGC, text_bg_color),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensVGC, text_language),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensVGC, scanline_irq_enable),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensVGC, vbl_started),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensVGC, irq_vbl),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensVGC, irq_line),
    CLEM_SERIALIZER_RECORD_EMPTY()};

struct ClemensSerializerRecord kRTC[] = {
    CLEM_SERIALIZER_RECORD_CLOCKS(struct ClemensDeviceRTC, xfer_started_time),
    CLEM_SERIALIZER_RECORD_DURATION(struct ClemensDeviceRTC, xfer_latency_duration),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceRTC, state),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceRTC, index),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceRTC, flags),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceRTC, seconds_since_1904),
    CLEM_SERIALIZER_RECORD_ARRAY(struct ClemensDeviceRTC, kClemensSerializerTypeUInt8, bram, 256,
                                 0),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensDeviceRTC, data_c033),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensDeviceRTC, ctl_c034),
    CLEM_SERIALIZER_RECORD_EMPTY()};

struct ClemensSerializerRecord kADBKeyboard[] = {
    CLEM_SERIALIZER_RECORD_ARRAY(struct ClemensDeviceKeyboard, kClemensSerializerTypeUInt8, keys,
                                 CLEM_ADB_KEYB_BUFFER_LIMIT, 0),
    CLEM_SERIALIZER_RECORD_ARRAY(struct ClemensDeviceKeyboard, kClemensSerializerTypeUInt8, states,
                                 CLEM_ADB_KEY_CODE_LIMIT, 0),
    CLEM_SERIALIZER_RECORD_INT32(struct ClemensDeviceKeyboard, size),
    CLEM_SERIALIZER_RECORD_INT32(struct ClemensDeviceKeyboard, delay_ms),
    CLEM_SERIALIZER_RECORD_INT32(struct ClemensDeviceKeyboard, rate_per_sec),
    CLEM_SERIALIZER_RECORD_INT32(struct ClemensDeviceKeyboard, timer_us),
    CLEM_SERIALIZER_RECORD_INT32(struct ClemensDeviceKeyboard, repeat_count),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensDeviceKeyboard, last_a2_key_down),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensDeviceKeyboard, reset_key),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensDeviceKeyboard, repeat_key_mod),
    CLEM_SERIALIZER_RECORD_EMPTY()};

struct ClemensSerializerRecord kADBMouse[] = {
    CLEM_SERIALIZER_RECORD_ARRAY(struct ClemensDeviceMouse, kClemensSerializerTypeUInt32, pos,
                                 CLEM_ADB_KEYB_BUFFER_LIMIT, 0),
    CLEM_SERIALIZER_RECORD_INT16(struct ClemensDeviceMouse, mx),
    CLEM_SERIALIZER_RECORD_INT16(struct ClemensDeviceMouse, my),
    CLEM_SERIALIZER_RECORD_INT16(struct ClemensDeviceMouse, mx0),
    CLEM_SERIALIZER_RECORD_INT16(struct ClemensDeviceMouse, my0),
    CLEM_SERIALIZER_RECORD_INT32(struct ClemensDeviceMouse, size),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensDeviceMouse, btn_down),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensDeviceMouse, tracking_enabled),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensDeviceMouse, valid_clamp_box),
    CLEM_SERIALIZER_RECORD_EMPTY()};

struct ClemensSerializerRecord kGameport[] = {
    CLEM_SERIALIZER_RECORD_CLOCKS(struct ClemensDeviceGameport, ts_last_frame),
    CLEM_SERIALIZER_RECORD_ARRAY(struct ClemensDeviceGameport, kClemensSerializerTypeUInt16, paddle,
                                 4, 0),
    CLEM_SERIALIZER_RECORD_ARRAY(struct ClemensDeviceGameport, kClemensSerializerTypeDuration,
                                 paddle_timer_ns, 4, 0),
    CLEM_SERIALIZER_RECORD_ARRAY(struct ClemensDeviceGameport, kClemensSerializerTypeUInt8,
                                 paddle_timer_state, 4, 0),
    CLEM_SERIALIZER_RECORD_ARRAY(struct ClemensDeviceGameport, kClemensSerializerTypeUInt8,
                                 btn_mask, 2, 0),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensDeviceGameport, ann_mask),
    CLEM_SERIALIZER_RECORD_EMPTY()};

struct ClemensSerializerRecord kTimer[] = {
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceTimer, irq_1sec_us),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceTimer, irq_qtrsec_us),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceTimer, flags),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceTimer, irq_line),
    CLEM_SERIALIZER_RECORD_EMPTY()};

struct ClemensSerializerRecord kDebugger[] = {
    CLEM_SERIALIZER_RECORD_UINT16(struct ClemensDeviceDebugger, pc),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensDeviceDebugger, pc), CLEM_SERIALIZER_RECORD_EMPTY()};

struct ClemensSerializerRecord kEnsoniq[] = {
    CLEM_SERIALIZER_RECORD_DURATION(struct ClemensDeviceEnsoniq, dt_budget),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceEnsoniq, cycle),
    CLEM_SERIALIZER_RECORD_ARRAY(struct ClemensDeviceEnsoniq, kClemensSerializerTypeUInt8,
                                 sound_ram, 65536, 0),
    CLEM_SERIALIZER_RECORD_ARRAY(struct ClemensDeviceEnsoniq, kClemensSerializerTypeUInt8, reg, 256,
                                 0),
    CLEM_SERIALIZER_RECORD_ARRAY(struct ClemensDeviceEnsoniq, kClemensSerializerTypeUInt32, acc, 32,
                                 0),
    CLEM_SERIALIZER_RECORD_ARRAY(struct ClemensDeviceEnsoniq, kClemensSerializerTypeUInt32, ptr, 32,
                                 0),
    CLEM_SERIALIZER_RECORD_ARRAY(struct ClemensDeviceEnsoniq, kClemensSerializerTypeUInt8,
                                 osc_flags, 32, 0),
    CLEM_SERIALIZER_RECORD_ARRAY(struct ClemensDeviceEnsoniq, kClemensSerializerTypeUInt8,
                                 osc_stack, 32, 0),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceEnsoniq, address),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensDeviceEnsoniq, data_reg),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensDeviceEnsoniq, addr_auto_inc),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensDeviceEnsoniq, is_access_ram),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensDeviceEnsoniq, is_busy),
    CLEM_SERIALIZER_RECORD_EMPTY()};

struct ClemensSerializerRecord kAudio[] = {
    CLEM_SERIALIZER_RECORD_OBJECT(struct ClemensDeviceAudio, doc, struct ClemensDeviceEnsoniq,
                                  kEnsoniq),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensDeviceAudio, volume),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensDeviceAudio, a2_speaker),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensDeviceAudio, a2_speaker_tense),
    CLEM_SERIALIZER_RECORD_INT32(struct ClemensDeviceAudio, a2_speaker_frame_count),
    CLEM_SERIALIZER_RECORD_INT32(struct ClemensDeviceAudio, a2_speaker_frame_threshold),
    CLEM_SERIALIZER_RECORD_FLOAT(struct ClemensDeviceAudio, a2_speaker_level),
    CLEM_SERIALIZER_RECORD_CUSTOM(struct ClemensDeviceAudio, mix_buffer,
                                  struct ClemensAudioMixBuffer,
                                  CLEM_SERIALIZER_CUSTOM_RECORD_AUDIO_MIX_BUFFER),
    CLEM_SERIALIZER_RECORD_CLOCKS(struct ClemensDeviceAudio, ts_last_frame),
    CLEM_SERIALIZER_RECORD_DURATION(struct ClemensDeviceAudio, dt_mix_frame),
    CLEM_SERIALIZER_RECORD_DURATION(struct ClemensDeviceAudio, dt_mix_sample),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceAudio, mix_frame_index),
    CLEM_SERIALIZER_RECORD_FLOAT(struct ClemensDeviceAudio, tone_frame_delta),
    CLEM_SERIALIZER_RECORD_FLOAT(struct ClemensDeviceAudio, tone_theta),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceAudio, tone_frequency),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceAudio, irq_line),
    CLEM_SERIALIZER_RECORD_EMPTY()};

struct ClemensSerializerRecord kSCCChannel[] = {
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceSCCChannel, serial_port),
    CLEM_SERIALIZER_RECORD_ARRAY(struct ClemensDeviceSCCChannel, kClemensSerializerTypeUInt8, regs,
                                 16, 0),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensDeviceSCCChannel, rr0),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensDeviceSCCChannel, rr1),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensDeviceSCCChannel, rr3),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensDeviceSCCChannel, rr8),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensDeviceSCCChannel, selected_reg),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensDeviceSCCChannel, txd_internal),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensDeviceSCCChannel, rxd_error),
    CLEM_SERIALIZER_RECORD_CLOCKS(struct ClemensDeviceSCCChannel, master_clock_ts),
    CLEM_SERIALIZER_RECORD_CLOCKS(struct ClemensDeviceSCCChannel, xtal_edge_ts),
    CLEM_SERIALIZER_RECORD_CLOCKS(struct ClemensDeviceSCCChannel, pclk_edge_ts),
    CLEM_SERIALIZER_RECORD_DURATION(struct ClemensDeviceSCCChannel, master_clock_step),
    CLEM_SERIALIZER_RECORD_ARRAY(struct ClemensDeviceSCCChannel, kClemensSerializerTypeUInt8,
                                 recv_queue, 3, 0),
    CLEM_SERIALIZER_RECORD_ARRAY(struct ClemensDeviceSCCChannel, kClemensSerializerTypeUInt8,
                                 recv_err_queue, 3, 0),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensDeviceSCCChannel, tx_byte),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceSCCChannel, tx_register),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceSCCChannel, tx_shift_ctr),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceSCCChannel, rx_queue_pos),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceSCCChannel, rx_shift_ctr),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceSCCChannel, rx_register),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceSCCChannel, brg_counter),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceSCCChannel, state),
    CLEM_SERIALIZER_RECORD_EMPTY()};

struct ClemensSerializerRecord kSCC[] = {
    CLEM_SERIALIZER_RECORD_DURATION(struct ClemensDeviceSCC, xtal_step),
    CLEM_SERIALIZER_RECORD_DURATION(struct ClemensDeviceSCC, pclk_step),
    CLEM_SERIALIZER_RECORD_ARRAY_OBJECTS(struct ClemensDeviceSCC, channel, 2,
                                         struct ClemensDeviceSCCChannel, kSCCChannel),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceSCC, irq_line),
    CLEM_SERIALIZER_RECORD_EMPTY()};

struct ClemensSerializerRecord kIWM[] = {
    CLEM_SERIALIZER_RECORD_CLOCKS(struct ClemensDeviceIWM, cur_clocks_ts),
    CLEM_SERIALIZER_RECORD_CLOCKS(struct ClemensDeviceIWM, clocks_at_next_scanline),
    CLEM_SERIALIZER_RECORD_DURATION(struct ClemensDeviceIWM, clocks_used_this_step),
    CLEM_SERIALIZER_RECORD_DURATION(struct ClemensDeviceIWM, clocks_this_step),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceIWM, scanline_phase_ctr),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceIWM, data_access_time_ns),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceIWM, io_flags),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceIWM, out_phase),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensDeviceIWM, smartport_active),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensDeviceIWM, data_r),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensDeviceIWM, data_w),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensDeviceIWM, latch),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensDeviceIWM, disk_motor_on),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensDeviceIWM, q6_switch),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensDeviceIWM, q7_switch),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensDeviceIWM, timer_1sec_disabled),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensDeviceIWM, async_mode),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensDeviceIWM, latch_mode),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensDeviceIWM, fast_mode),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceIWM, drive_hold_ns),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceIWM, state),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceIWM, write_state),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceIWM, read_state),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceIWM, ns_latch_hold),
    /* skip enable_debug and all debug options */
    CLEM_SERIALIZER_RECORD_EMPTY()};

struct ClemensSerializerRecord kADB[] = {
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceADB, state),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceADB, version),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceADB, poll_timer_us),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceADB, mode_flags),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensDeviceADB, is_keypad_down),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensDeviceADB, is_asciikey_down),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensDeviceADB, io_key_last_ascii),
    CLEM_SERIALIZER_RECORD_ARRAY(struct ClemensDeviceADB, kClemensSerializerTypeUInt16, keyb_reg, 4,
                                 0),
    CLEM_SERIALIZER_RECORD_ARRAY(struct ClemensDeviceADB, kClemensSerializerTypeUInt16, mouse_reg,
                                 4, 0),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensDeviceADB, cmd_reg),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensDeviceADB, cmd_flags),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensDeviceADB, cmd_status),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensDeviceADB, cmd_data_limit),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensDeviceADB, cmd_data_sent),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensDeviceADB, cmd_data_recv),
    CLEM_SERIALIZER_RECORD_ARRAY(struct ClemensDeviceADB, kClemensSerializerTypeUInt8, cmd_data, 16,
                                 0),
    CLEM_SERIALIZER_RECORD_OBJECT(struct ClemensDeviceADB, keyb, struct ClemensDeviceKeyboard,
                                  kADBKeyboard),
    CLEM_SERIALIZER_RECORD_OBJECT(struct ClemensDeviceADB, mouse, struct ClemensDeviceMouse,
                                  kADBMouse),
    CLEM_SERIALIZER_RECORD_OBJECT(struct ClemensDeviceADB, gameport, struct ClemensDeviceGameport,
                                  kGameport),
    CLEM_SERIALIZER_RECORD_ARRAY(struct ClemensDeviceADB, kClemensSerializerTypeUInt8, ram, 256, 0),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceADB, irq_dispatch),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDeviceADB, irq_line),
    CLEM_SERIALIZER_RECORD_EMPTY()};

struct ClemensSerializerRecord kDrive[] = {
    CLEM_SERIALIZER_RECORD_CUSTOM(struct ClemensDrive, disk, struct ClemensNibbleDisk,
                                  CLEM_SERIALIZER_CUSTOM_RECORD_NIBBLE_DISK),
    CLEM_SERIALIZER_RECORD_INT32(struct ClemensDrive, qtr_track_index),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDrive, track_byte_index),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDrive, track_bit_shift),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDrive, track_bit_length),
    CLEM_SERIALIZER_RECORD_DURATION(struct ClemensDrive, pulse_clocks_dt),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDrive, read_buffer),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDrive, ctl_switch),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDrive, cog_orient),
    CLEM_SERIALIZER_RECORD_CLOCKS(struct ClemensDrive, step_timer_35_dt),
    CLEM_SERIALIZER_RECORD_UINT16(struct ClemensDrive, status_mask_35),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensDrive, write_pulse),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensDrive, is_spindle_on),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensDrive, has_disk),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensDrive, real_track_index),
    CLEM_SERIALIZER_RECORD_ARRAY(struct ClemensDrive, kClemensSerializerTypeUInt8, random_bits,
                                 CLEM_IWM_DRIVE_RANDOM_BYTES, 0),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensDrive, random_bit_index),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensDrive, current_byte),
    CLEM_SERIALIZER_RECORD_EMPTY()};

struct ClemensSerializerRecord kSmartPortPacket[] = {
    CLEM_SERIALIZER_RECORD_INT32(struct ClemensSmartPortPacket, type),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensSmartPortPacket, source_unit_id),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensSmartPortPacket, dest_unit_id),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensSmartPortPacket, is_extended),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensSmartPortPacket, status),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensSmartPortPacket, contents_length),
    CLEM_SERIALIZER_RECORD_ARRAY(struct ClemensSmartPortPacket, kClemensSerializerTypeUInt8,
                                 contents, CLEM_SMARTPORT_CONTENTS_LIMIT, 0),
    CLEM_SERIALIZER_RECORD_EMPTY()};

struct ClemensSerializerRecord kSmartPortDevice[] = {
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensSmartPortDevice, device_id),
    CLEM_SERIALIZER_RECORD_EMPTY()};

struct ClemensSerializerRecord kSmartPort[] = {
    CLEM_SERIALIZER_RECORD_OBJECT(struct ClemensSmartPortUnit, device,
                                  struct ClemensSmartPortDevice, kSmartPortDevice),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensSmartPortUnit, bus_enabled),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensSmartPortUnit, ph3_latch_lo),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensSmartPortUnit, data_reg),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensSmartPortUnit, write_signal),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensSmartPortUnit, unit_id),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensSmartPortUnit, ack_hi),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensSmartPortUnit, command_id),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensSmartPortUnit, data_bit_count),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensSmartPortUnit, packet_state),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensSmartPortUnit, packet_state_byte_cnt),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensSmartPortUnit, packet_cntr),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensSmartPortUnit, data_size),
    CLEM_SERIALIZER_RECORD_ARRAY(struct ClemensSmartPortUnit, kClemensSerializerTypeUInt8, data,
                                 CLEM_SMARTPORT_DATA_BUFFER_LIMIT, 0),
    CLEM_SERIALIZER_RECORD_OBJECT(struct ClemensSmartPortUnit, packet,
                                  struct ClemensSmartPortPacket, kSmartPortPacket),
    CLEM_SERIALIZER_RECORD_EMPTY()};

struct ClemensSerializerRecord kDriveBay[] = {
    CLEM_SERIALIZER_RECORD_ARRAY_OBJECTS(struct ClemensDriveBay, slot5, 2, struct ClemensDrive,
                                         kDrive),
    CLEM_SERIALIZER_RECORD_ARRAY_OBJECTS(struct ClemensDriveBay, slot6, 2, struct ClemensDrive,
                                         kDrive),
    CLEM_SERIALIZER_RECORD_ARRAY_OBJECTS(struct ClemensDriveBay, smartport, 1, struct ClemensDrive,
                                         kSmartPort),
    CLEM_SERIALIZER_RECORD_EMPTY()};

struct ClemensSerializerRecord kMMIO[] = {
    /* all page maps are generated from mmap_register and the shadow register */
    CLEM_SERIALIZER_RECORD_OBJECT(ClemensMMIO, vgc, struct ClemensVGC, kVGC),
    CLEM_SERIALIZER_RECORD_OBJECT(ClemensMMIO, dev_rtc, struct ClemensDeviceRTC, kRTC),
    CLEM_SERIALIZER_RECORD_OBJECT(ClemensMMIO, dev_adb, struct ClemensDeviceADB, kADB),
    CLEM_SERIALIZER_RECORD_OBJECT(ClemensMMIO, dev_timer, struct ClemensDeviceTimer, kTimer),
    CLEM_SERIALIZER_RECORD_OBJECT(ClemensMMIO, dev_audio, struct ClemensDeviceAudio, kAudio),
    CLEM_SERIALIZER_RECORD_OBJECT(ClemensMMIO, dev_iwm, struct ClemensDeviceIWM, kIWM),
    CLEM_SERIALIZER_RECORD_OBJECT(ClemensMMIO, dev_scc, struct ClemensDeviceSCC, kSCC),
    CLEM_SERIALIZER_RECORD_OBJECT(ClemensMMIO, active_drives, struct ClemensDriveBay, kDriveBay),
    CLEM_SERIALIZER_RECORD_INT32(ClemensMMIO, state_type),
    CLEM_SERIALIZER_RECORD_UINT32(ClemensMMIO, fpi_ram_bank_count),
    CLEM_SERIALIZER_RECORD_UINT32(ClemensMMIO, fpi_rom_bank_count),
    CLEM_SERIALIZER_RECORD_UINT32(ClemensMMIO, mmap_register),
    CLEM_SERIALIZER_RECORD_UINT32(ClemensMMIO, last_data_address),
    CLEM_SERIALIZER_RECORD_UINT32(ClemensMMIO, emulator_detect),
    CLEM_SERIALIZER_RECORD_UINT8(ClemensMMIO, new_video_c029),
    CLEM_SERIALIZER_RECORD_UINT8(ClemensMMIO, speed_c036),
    CLEM_SERIALIZER_RECORD_UINT64(ClemensMMIO, mega2_cycles),
    CLEM_SERIALIZER_RECORD_UINT32(ClemensMMIO, timer_60hz_us),
    CLEM_SERIALIZER_RECORD_INT32(ClemensMMIO, card_expansion_rom_index),
    CLEM_SERIALIZER_RECORD_UINT32(ClemensMMIO, irq_line),
    CLEM_SERIALIZER_RECORD_UINT32(ClemensMMIO, nmi_line),
    CLEM_SERIALIZER_RECORD_CUSTOM(ClemensMMIO, card_slot_expansion_memory,
                                  uint8_t *[CLEM_CARD_SLOT_COUNT],
                                  CLEM_SERIALIZER_CUSTOM_RECORD_CARD_MEMORY),
    CLEM_SERIALIZER_RECORD_EMPTY()};

struct ClemensSerializerRecord kTimeSpec[] = {
    CLEM_SERIALIZER_RECORD_DURATION(struct ClemensTimeSpec, clocks_step),
    CLEM_SERIALIZER_RECORD_DURATION(struct ClemensTimeSpec, clocks_step_fast),
    CLEM_SERIALIZER_RECORD_CLOCKS(struct ClemensTimeSpec, clocks_spent),
    CLEM_SERIALIZER_RECORD_CLOCKS(struct ClemensTimeSpec, clocks_next_phi0),
    CLEM_SERIALIZER_RECORD_DURATION(struct ClemensTimeSpec, phi0_clocks_stretch),
    CLEM_SERIALIZER_RECORD_DURATION(struct ClemensTimeSpec, phi0_current_step),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensTimeSpec, mega2_scanline_ctr),
    CLEM_SERIALIZER_RECORD_EMPTY()};

struct ClemensSerializerRecord kCPURegs[] = {
    CLEM_SERIALIZER_RECORD_UINT16(struct ClemensCPURegs, A),
    CLEM_SERIALIZER_RECORD_UINT16(struct ClemensCPURegs, X),
    CLEM_SERIALIZER_RECORD_UINT16(struct ClemensCPURegs, Y),
    CLEM_SERIALIZER_RECORD_UINT16(struct ClemensCPURegs, D),
    CLEM_SERIALIZER_RECORD_UINT16(struct ClemensCPURegs, S),
    CLEM_SERIALIZER_RECORD_UINT16(struct ClemensCPURegs, PC),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensCPURegs, IR),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensCPURegs, P),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensCPURegs, DBR),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensCPURegs, PBR),
    CLEM_SERIALIZER_RECORD_EMPTY()};

struct ClemensSerializerRecord kCPUPins[] = {
    CLEM_SERIALIZER_RECORD_UINT16(struct ClemensCPUPins, adr),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensCPUPins, bank),
    CLEM_SERIALIZER_RECORD_UINT8(struct ClemensCPUPins, data),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensCPUPins, abortIn),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensCPUPins, busEnableIn),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensCPUPins, irqbIn),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensCPUPins, nmibIn),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensCPUPins, readyOut),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensCPUPins, resbIn),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensCPUPins, emulation),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensCPUPins, vdaOut),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensCPUPins, vpaOut),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensCPUPins, rwbOut),
    CLEM_SERIALIZER_RECORD_EMPTY()};

struct ClemensSerializerRecord kCPU[] = {
    CLEM_SERIALIZER_RECORD_OBJECT(struct Clemens65C816, pins, struct ClemensCPUPins, kCPUPins),
    CLEM_SERIALIZER_RECORD_OBJECT(struct Clemens65C816, regs, struct ClemensCPURegs, kCPURegs),
    CLEM_SERIALIZER_RECORD_INT32(struct Clemens65C816, state_type),
    CLEM_SERIALIZER_RECORD_UINT32(struct Clemens65C816, cycles_spent),
    CLEM_SERIALIZER_RECORD_BOOL(struct Clemens65C816, enabled),
    CLEM_SERIALIZER_RECORD_EMPTY()};

struct ClemensSerializerRecord kMachine[] = {
    CLEM_SERIALIZER_RECORD_OBJECT(ClemensMachine, cpu, struct Clemens65C816, kCPU),
    CLEM_SERIALIZER_RECORD_OBJECT(ClemensMachine, tspec, struct ClemensTimeSpec, kTimeSpec),
    /* Memory has its own serialization functions */
    CLEM_SERIALIZER_RECORD_INT32(ClemensMachine, resb_counter),
    CLEM_SERIALIZER_RECORD_OBJECT(ClemensMachine, dev_debug, struct ClemensDeviceDebugger,
                                  kDebugger),
    CLEM_SERIALIZER_RECORD_EMPTY()};

// see clem_disk.h
struct ClemensSerializerRecord kNibbleDisk[] = {
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensNibbleDisk, disk_type),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensNibbleDisk, bit_timing_ns),
    CLEM_SERIALIZER_RECORD_UINT32(struct ClemensNibbleDisk, track_count),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensNibbleDisk, is_write_protected),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensNibbleDisk, is_double_sided),
    CLEM_SERIALIZER_RECORD_BOOL(struct ClemensNibbleDisk, is_dirty),
    CLEM_SERIALIZER_RECORD_ARRAY(struct ClemensNibbleDisk, kClemensSerializerTypeUInt8,
                                 meta_track_map, CLEM_DISK_LIMIT_QTR_TRACKS, 0),
    CLEM_SERIALIZER_RECORD_ARRAY(struct ClemensNibbleDisk, kClemensSerializerTypeUInt32,
                                 track_byte_offset, CLEM_DISK_LIMIT_QTR_TRACKS, 0),
    CLEM_SERIALIZER_RECORD_ARRAY(struct ClemensNibbleDisk, kClemensSerializerTypeUInt32,
                                 track_byte_count, CLEM_DISK_LIMIT_QTR_TRACKS, 0),
    CLEM_SERIALIZER_RECORD_ARRAY(struct ClemensNibbleDisk, kClemensSerializerTypeUInt32,
                                 track_bits_count, CLEM_DISK_LIMIT_QTR_TRACKS, 0),
    CLEM_SERIALIZER_RECORD_ARRAY(struct ClemensNibbleDisk, kClemensSerializerTypeUInt8,
                                 track_initialized, CLEM_DISK_LIMIT_QTR_TRACKS, 0),
    CLEM_SERIALIZER_RECORD_EMPTY()};

static unsigned _count_serialization_records(const struct ClemensSerializerRecord *head) {
    unsigned cnt = 0;
    while (head->type != kClemensSerializerTypeEmpty) {
        ++cnt;
        ++head;
    }
    return cnt;
}

static unsigned clemens_serialize_custom(mpack_writer_t *writer, void *ptr, unsigned sz,
                                         unsigned record_id);

unsigned clemens_serialize_record(mpack_writer_t *writer, uintptr_t data_adr,
                                  const struct ClemensSerializerRecord *record) {
    union ClemensSerializerVariant variant;
    unsigned sz = 0;
    switch (record->type) {
    case kClemensSerializerTypeEmpty:
        break;
    case kClemensSerializerTypeRoot:
        break;
    case kClemensSerializerTypeBool:
        variant.b = *(bool *)(data_adr + record->offset);
        mpack_write_bool(writer, variant.u8);
        sz = sizeof(bool);
        break;
    case kClemensSerializerTypeUInt8:
        variant.u8 = *(uint8_t *)(data_adr + record->offset);
        mpack_write_u8(writer, variant.u8);
        sz = sizeof(uint8_t);
        break;
    case kClemensSerializerTypeUInt16:
        variant.u16 = *(uint16_t *)(data_adr + record->offset);
        mpack_write_u16(writer, variant.u16);
        sz = sizeof(uint16_t);
        break;
    case kClemensSerializerTypeInt16:
        variant.i16 = *(int16_t *)(data_adr + record->offset);
        mpack_write_i16(writer, variant.i16);
        sz = sizeof(int16_t);
        break;
    case kClemensSerializerTypeUInt32:
        variant.u32 = *(uint32_t *)(data_adr + record->offset);
        mpack_write_u32(writer, variant.u32);
        sz = sizeof(uint32_t);
        break;
    case kClemensSerializerTypeInt32:
        variant.i32 = *(int32_t *)(data_adr + record->offset);
        mpack_write_i32(writer, variant.i32);
        sz = sizeof(int32_t);
        break;
    case kClemensSerializerTypeUInt64:
        variant.u64 = *(uint64_t *)(data_adr + record->offset);
        mpack_write_u64(writer, variant.u64);
        sz = sizeof(uint64_t);
        break;
    case kClemensSerializerTypeFloat:
        variant.f32 = *(float *)(data_adr + record->offset);
        mpack_write_float(writer, variant.f32);
        sz = sizeof(float);
        break;
    case kClemensSerializerTypeDuration:
        variant.duration = *(clem_clocks_duration_t *)(data_adr + record->offset);
        mpack_write_uint(writer, variant.duration);
        sz = sizeof(clem_clocks_duration_t);
        break;
    case kClemensSerializerTypeClocks:
        variant.clocks = *(clem_clocks_time_t *)(data_adr + record->offset);
        mpack_write_u64(writer, variant.clocks);
        sz = sizeof(clem_clocks_time_t);
        break;
    case kClemensSerializerTypeClockObject:
        variant.clock_object = (struct ClemensClock *)(data_adr + record->offset);
        mpack_start_array(writer, 2);
        mpack_write_u64(writer, variant.clock_object->ts);
        mpack_write_u32(writer, variant.clock_object->ref_step);
        mpack_finish_array(writer);
        sz = sizeof(struct ClemensClock);
        break;
    case kClemensSerializerTypeArray:
        sz = clemens_serialize_array(writer, data_adr + record->offset, record);
        break;
    case kClemensSerializerTypeObject:
        sz = clemens_serialize_object(writer, data_adr + record->offset, record);
        break;
    case kClemensSerializerTypeCustom:
        sz = clemens_serialize_custom(writer, (void *)(data_adr + record->offset), record->size,
                                      record->param);
        break;
    }
    return sz;
}

unsigned clemens_serialize_array(mpack_writer_t *writer, uintptr_t data_adr,
                                 const struct ClemensSerializerRecord *record) {
    uintptr_t array_value_adr = data_adr;
    unsigned idx;
    struct ClemensSerializerRecord value_record;
    /* generate a record of one value of the array type where the offset is
       relative to the start of the array (0) and the offset into the owner
       (data_adr)
    */
    mpack_start_array(writer, record->size);
    memset(&value_record, 0, sizeof(value_record));
    value_record.type = record->array_type;
    value_record.records = record->records; /* for arrays of objects */
    if (value_record.type == kClemensSerializerTypeObject) {
        value_record.size = record->param;
    }
    for (idx = 0; idx < record->size; ++idx) {

        array_value_adr += clemens_serialize_record(writer, array_value_adr, &value_record);
    }
    mpack_finish_array(writer);
    return array_value_adr - data_adr;
}

static void clemens_serialize_records(mpack_writer_t *writer, uintptr_t data_adr,
                                      const struct ClemensSerializerRecord *record) {
    while (record->type != kClemensSerializerTypeEmpty) {
        mpack_write_cstr(writer, record->name);
        clemens_serialize_record(writer, data_adr, record);
        ++record;
    }
}

static unsigned clemens_serialize_custom(mpack_writer_t *writer, void *ptr, unsigned sz,
                                         unsigned record_id) {
    struct ClemensAudioMixBuffer *audio_mix_buffer;
    struct ClemensNibbleDisk *nib_disk;
    struct ClemensClock *clock;
    uint8_t **card_slot_memory;

    unsigned blob_size, i, cnt;

    switch (record_id) {
    case CLEM_SERIALIZER_CUSTOM_RECORD_AUDIO_MIX_BUFFER:
        audio_mix_buffer = (struct ClemensAudioMixBuffer *)(ptr);
        mpack_start_map(writer, 4);
        mpack_write_cstr(writer, "frame_count");
        mpack_write_u32(writer, audio_mix_buffer->frame_count);
        mpack_write_cstr(writer, "frames_per_second");
        mpack_write_u32(writer, audio_mix_buffer->frames_per_second);
        mpack_write_cstr(writer, "stride");
        mpack_write_u32(writer, audio_mix_buffer->stride);
        mpack_write_cstr(writer, "data");
        mpack_write_bin(writer, (char *)audio_mix_buffer->data,
                        audio_mix_buffer->frame_count * audio_mix_buffer->stride);
        mpack_finish_map(writer);
        break;

    case CLEM_SERIALIZER_CUSTOM_RECORD_NIBBLE_DISK:
        nib_disk = (struct ClemensNibbleDisk *)ptr;
        cnt = _count_serialization_records(&kNibbleDisk[0]);
        cnt = nib_disk->bits_data != NULL ? cnt + 2 : cnt + 1;
        mpack_start_map(writer, cnt);
        clemens_serialize_records(writer, (uintptr_t)nib_disk, &kNibbleDisk[0]);
        mpack_write_cstr(writer, "bits_data");
        if (nib_disk->bits_data != NULL) {
            mpack_write_bool(writer, true);
            blob_size = (nib_disk->bits_data_end - nib_disk->bits_data);
            mpack_write_cstr(writer, "blob");
            mpack_write_bin(writer, (char *)nib_disk->bits_data, blob_size);
        } else {
            mpack_write_bool(writer, false);
        }
        mpack_finish_map(writer);
        break;

    case CLEM_SERIALIZER_CUSTOM_RECORD_CARD_MEMORY:
        card_slot_memory = (uint8_t **)ptr;
        mpack_start_map(writer, 1);
        mpack_write_cstr(writer, "card_rom");
        mpack_start_array(writer, CLEM_CARD_SLOT_COUNT);
        for (i = 0; i < CLEM_CARD_SLOT_COUNT; ++i) {
            mpack_write_bin(writer, (char *)card_slot_memory[i], 2048);
        }
        mpack_finish_array(writer);
        mpack_finish_map(writer);
        break;
    }

    return sz;
}

unsigned clemens_serialize_object(mpack_writer_t *writer, uintptr_t data_adr,
                                  const struct ClemensSerializerRecord *record) {
    const struct ClemensSerializerRecord *child = record->records;

    mpack_start_map(writer, _count_serialization_records(child));
    clemens_serialize_records(writer, data_adr, child);
    mpack_finish_map(writer);
    return record->size;
}

mpack_writer_t *clemens_serialize_machine(mpack_writer_t *writer, ClemensMachine *machine) {
    struct ClemensSerializerRecord root;
    void *data_adr = (void *)machine;
    unsigned idx, cnt;

    mpack_start_map(writer, 3);

    mpack_write_cstr(writer, "object");
    memset(&root, 0, sizeof(root));
    root.type = kClemensSerializerTypeRoot;
    root.records = &kMachine[0];
    clemens_serialize_object(writer, (uintptr_t)data_adr, &root);

    mpack_write_cstr(writer, "banks");
    for (idx = 0, cnt = 0; idx < 256; ++idx) {
        cnt++;
        if (machine->mem.fpi_bank_used[idx])
            cnt += 2;
    }
    mpack_start_array(writer, cnt);
    for (idx = 0; idx < 256; ++idx) {
        mpack_write_bool(writer, machine->mem.fpi_bank_used[idx]);
        if (machine->mem.fpi_bank_used[idx]) {
            mpack_write_u8(writer, (uint8_t)(idx & 0xff));
            mpack_write_bin(writer, (char *)machine->mem.fpi_bank_map[idx], CLEM_IIGS_BANK_SIZE);
        }
    }
    mpack_finish_array(writer);

    mpack_write_cstr(writer, "mega2");
    mpack_start_array(writer, 2);
    mpack_write_bin(writer, (char *)machine->mem.mega2_bank_map[0], CLEM_IIGS_BANK_SIZE);
    mpack_write_bin(writer, (char *)machine->mem.mega2_bank_map[1], CLEM_IIGS_BANK_SIZE);
    mpack_finish_array(writer);

    mpack_finish_map(writer);

    return writer;
}

/* Unserializing the Machine */

static unsigned clemens_unserialize_custom(mpack_reader_t *reader, void *ptr, unsigned sz,
                                           unsigned record_id, ClemensSerializerAllocateCb alloc_cb,
                                           void *context);

unsigned clemens_unserialize_record(mpack_reader_t *reader, uintptr_t data_adr,
                                    const struct ClemensSerializerRecord *record,
                                    ClemensSerializerAllocateCb alloc_cb, void *context) {
    union ClemensSerializerVariant variant;
    unsigned sz = 0;
    char key[64];

    switch (record->type) {
    case kClemensSerializerTypeEmpty:
    case kClemensSerializerTypeRoot:
        break;
    case kClemensSerializerTypeBool:
        variant.b = mpack_expect_bool(reader);
        *(bool *)(data_adr + record->offset) = variant.b;
        sz = sizeof(bool);
        break;
    case kClemensSerializerTypeUInt8:
        variant.u8 = mpack_expect_u8(reader);
        *(uint8_t *)(data_adr + record->offset) = variant.u8;
        sz = sizeof(uint8_t);
        break;
    case kClemensSerializerTypeUInt16:
        variant.u16 = mpack_expect_u16(reader);
        *(uint16_t *)(data_adr + record->offset) = variant.u16;
        sz = sizeof(uint16_t);
        break;
    case kClemensSerializerTypeInt16:
        variant.i16 = mpack_expect_i16(reader);
        *(int16_t *)(data_adr + record->offset) = variant.i16;
        sz = sizeof(int16_t);
        break;
    case kClemensSerializerTypeUInt32:
        variant.u32 = mpack_expect_u32(reader);
        *(uint32_t *)(data_adr + record->offset) = variant.u32;
        sz = sizeof(uint32_t);
        break;
    case kClemensSerializerTypeInt32:
        variant.i32 = mpack_expect_i32(reader);
        *(int32_t *)(data_adr + record->offset) = variant.i32;
        sz = sizeof(int32_t);
        break;
    case kClemensSerializerTypeUInt64:
        variant.u64 = mpack_expect_u64(reader);
        *(uint64_t *)(data_adr + record->offset) = variant.u64;
        sz = sizeof(uint64_t);
        break;
    case kClemensSerializerTypeFloat:
        variant.f32 = mpack_expect_float(reader);
        *(float *)(data_adr + record->offset) = variant.f32;
        sz = sizeof(float);
        break;
    case kClemensSerializerTypeDuration:
        variant.duration = mpack_expect_uint(reader);
        *(clem_clocks_duration_t *)(data_adr + record->offset) = (variant.duration);
        sz = sizeof(clem_clocks_duration_t);
        break;
    case kClemensSerializerTypeClocks:
        variant.clocks = mpack_expect_u64(reader);
        *(clem_clocks_time_t *)(data_adr + record->offset) = (variant.clocks);
        sz = sizeof(clem_clocks_time_t);
        break;
    case kClemensSerializerTypeClockObject:
        variant.clock_object = (struct ClemensClock *)(data_adr + record->offset);
        mpack_expect_array_match(reader, 2);
        variant.clock_object->ts = mpack_expect_u64(reader);
        variant.clock_object->ref_step = mpack_expect_u32(reader);
        mpack_done_array(reader);
        sz = sizeof(struct ClemensClock);
        break;
    case kClemensSerializerTypeArray:
        sz =
            clemens_unserialize_array(reader, data_adr + record->offset, record, alloc_cb, context);
        break;
    case kClemensSerializerTypeObject:
        sz = clemens_unserialize_object(reader, data_adr + record->offset, record, alloc_cb,
                                        context);
        break;
    case kClemensSerializerTypeCustom:
        sz = clemens_unserialize_custom(reader, (void *)(data_adr + record->offset), record->size,
                                        record->param, alloc_cb, context);
        break;
    }
    return sz;
}

unsigned clemens_unserialize_array(mpack_reader_t *reader, uintptr_t data_adr,
                                   const struct ClemensSerializerRecord *record,
                                   ClemensSerializerAllocateCb alloc_cb, void *context) {
    uintptr_t array_value_adr = data_adr;
    struct ClemensSerializerRecord value_record;
    unsigned array_size = mpack_expect_array(reader);
    unsigned idx;
    if (array_size != record->size) {
        return CLEM_SERIALIZER_INVALID_RECORD;
    }
    memset(&value_record, 0, sizeof(value_record));
    value_record.type = record->array_type;
    value_record.records = record->records;
    value_record.size = record->param; /* for arrays of objects */
    for (idx = 0; idx < array_size; ++idx) {
        array_value_adr +=
            clemens_unserialize_record(reader, array_value_adr, &value_record, alloc_cb, context);
    }
    mpack_done_array(reader);
    return array_value_adr - data_adr;
}

static void clemens_unserialize_records(mpack_reader_t *reader, uintptr_t data_adr,
                                        const struct ClemensSerializerRecord *record,
                                        ClemensSerializerAllocateCb alloc_cb, void *context) {
    char key[64];
    while (record->type != kClemensSerializerTypeEmpty) {
        mpack_expect_cstr_match(reader, record->name);
        clemens_unserialize_record(reader, data_adr, record, alloc_cb, context);
        ++record;
    }
}

static unsigned clemens_unserialize_custom(mpack_reader_t *reader, void *ptr, unsigned sz,
                                           unsigned record_id, ClemensSerializerAllocateCb alloc_cb,
                                           void *context) {
    struct ClemensAudioMixBuffer *audio_mix_buffer;
    struct ClemensNibbleDisk *nib_disk;
    char key[64];
    unsigned v0, v1;
    uint8_t **card_memory_ptr;

    mpack_expect_map(reader);
    switch (record_id) {
    case CLEM_SERIALIZER_CUSTOM_RECORD_AUDIO_MIX_BUFFER:
        audio_mix_buffer = (struct ClemensAudioMixBuffer *)(ptr);
        v0 = audio_mix_buffer->stride * audio_mix_buffer->frame_count;
        mpack_expect_cstr_match(reader, "frame_count");
        audio_mix_buffer->frame_count = mpack_expect_u32(reader);
        mpack_expect_cstr_match(reader, "frames_per_second");
        audio_mix_buffer->frames_per_second = mpack_expect_u32(reader);
        mpack_expect_cstr_match(reader, "stride");
        audio_mix_buffer->stride = mpack_expect_u32(reader);
        mpack_expect_cstr_match(reader, "data");
        v1 = mpack_expect_bin(reader);
        if (v0 != v1) {
            audio_mix_buffer->data =
                (*alloc_cb)(CLEM_EMULATOR_ALLOCATION_AUDIO_BUFFER, v1, context);
        }
        mpack_read_bytes(reader, (char *)audio_mix_buffer->data, v1);
        mpack_done_bin(reader);
        break;
    case CLEM_SERIALIZER_CUSTOM_RECORD_NIBBLE_DISK:
        nib_disk = (struct ClemensNibbleDisk *)ptr;
        clemens_unserialize_records(reader, (uintptr_t)nib_disk, &kNibbleDisk[0], alloc_cb,
                                    context);
        mpack_expect_cstr_match(reader, "bits_data");
        if (mpack_expect_bool(reader)) {
            mpack_expect_cstr_match(reader, "blob");
            v0 = mpack_expect_bin(reader);
            v1 = (nib_disk->bits_data_end - nib_disk->bits_data);
            if (v0 > v1) {
                unsigned alloc_type = CLEM_EMULATOR_ALLOCATION_DISK_NIB_3_5;
                if (nib_disk->disk_type == CLEM_DISK_TYPE_5_25)
                    alloc_type = CLEM_EMULATOR_ALLOCATION_DISK_NIB_5_25;
                nib_disk->bits_data = (uint8_t *)(*alloc_cb)(alloc_type, v0, context);
                nib_disk->bits_data_end = nib_disk->bits_data + v0;
            }
            mpack_read_bytes(reader, (char *)nib_disk->bits_data, v0);
            mpack_done_bin(reader);
        } else {
            memset(nib_disk->bits_data, 0, nib_disk->bits_data_end - nib_disk->bits_data);
        }
        break;
    case CLEM_SERIALIZER_CUSTOM_RECORD_CARD_MEMORY:
        card_memory_ptr = (uint8_t **)ptr;
        *card_memory_ptr = (uint8_t *)(*alloc_cb)(CLEM_EMULATOR_ALLOCATION_CARD_BUFFER,
                                                  CLEM_CARD_SLOT_COUNT, context);
        for (v0 = 1; v0 < CLEM_CARD_SLOT_COUNT; ++v0) {
            card_memory_ptr[v0] = card_memory_ptr[0] + v0 * 2048;
        }
        mpack_expect_cstr_match(reader, "card_rom");
        v1 = mpack_expect_array_max(reader, CLEM_CARD_SLOT_COUNT);
        for (v0 = 0; v0 < v1; ++v0) {
            unsigned cnt = mpack_expect_bin_max(reader, 2048);
            mpack_read_bytes(reader, (char *)card_memory_ptr[v0], cnt);
            mpack_done_bin(reader);
        }
        mpack_done_array(reader);
        break;
    }
    mpack_done_map(reader);
    return sz;
}

unsigned clemens_unserialize_object(mpack_reader_t *reader, uintptr_t data_adr,
                                    const struct ClemensSerializerRecord *record,
                                    ClemensSerializerAllocateCb alloc_cb, void *context) {
    struct ClemensSerializerRecord *child = record->records;
    mpack_expect_map(reader);
    clemens_unserialize_records(reader, data_adr, child, alloc_cb, context);
    mpack_done_map(reader);
    return record->size;
}

mpack_reader_t *clemens_unserialize_machine(mpack_reader_t *reader, ClemensMachine *machine,
                                            ClemensSerializerAllocateCb alloc_cb, void *context) {
    struct ClemensSerializerRecord root;
    void *data_adr = (void *)machine;
    unsigned idx, sz;

    mpack_expect_map(reader);

    mpack_expect_cstr_match(reader, "object");

    memset(&root, 0, sizeof(root));
    root.type = kClemensSerializerTypeRoot;
    root.records = &kMachine[0];
    if (clemens_unserialize_object(reader, (uintptr_t)data_adr, &root, alloc_cb, context) ==
        CLEM_SERIALIZER_INVALID_RECORD) {
        return NULL;
    }

    /* unserialize FPI banks - this lies outside the procedural laying out of
       values to serialize via record arrays since the logic is here is very
       special cased to avoid unnecessary serialization
    */
    mpack_expect_cstr_match(reader, "banks");
    mpack_expect_array(reader);
    for (idx = 0; idx < 256; ++idx) {
        machine->mem.fpi_bank_used[idx] = mpack_expect_bool(reader);
        if (machine->mem.fpi_bank_used[idx]) {
            if (mpack_expect_u8(reader) != (uint8_t)(idx & 0xff)) {
                return NULL;
            }
            if (!machine->mem.fpi_bank_map[idx]) {
                machine->mem.fpi_bank_map[idx] =
                    (*alloc_cb)(CLEM_EMULATOR_ALLOCATION_FPI_MEMORY_BANK, 1, context);
            }
            mpack_expect_bin_buf(reader, (char *)machine->mem.fpi_bank_map[idx],
                                 CLEM_IIGS_BANK_SIZE);
        }
    }
    mpack_done_array(reader);

    mpack_expect_cstr_match(reader, "mega2");
    mpack_expect_array(reader);
    machine->mem.mega2_bank_map[0] =
        (*alloc_cb)(CLEM_EMULATOR_ALLOCATION_MEGA2_MEMORY_BANK, 1, context);
    machine->mem.mega2_bank_map[1] =
        (*alloc_cb)(CLEM_EMULATOR_ALLOCATION_MEGA2_MEMORY_BANK, 1, context);
    mpack_expect_bin_buf(reader, (char *)machine->mem.mega2_bank_map[0], CLEM_IIGS_BANK_SIZE);
    mpack_expect_bin_buf(reader, (char *)machine->mem.mega2_bank_map[1], CLEM_IIGS_BANK_SIZE);
    mpack_done_array(reader);

    mpack_done_map(reader);

    memset(&machine->mem.bank_page_map, 0, sizeof(machine->mem.bank_page_map));

    return reader;
}

mpack_writer_t *clemens_serialize_mmio(mpack_writer_t *writer, ClemensMMIO *mmio) {
    struct ClemensSerializerRecord root;
    void *data_adr = (void *)mmio;
    unsigned idx;

    memset(&root, 0, sizeof(root));
    root.type = kClemensSerializerTypeRoot;
    root.records = &kMMIO[0];
    clemens_serialize_object(writer, (uintptr_t)data_adr, &root);
    return writer;
}

mpack_reader_t *clemens_unserialize_mmio(mpack_reader_t *reader, ClemensMMIO *mmio,
                                         ClemensMachine *machine,
                                         ClemensSerializerAllocateCb alloc_cb, void *context) {
    struct ClemensSerializerRecord root;
    void *data_adr = (void *)mmio;
    unsigned idx, sz;

    memset(&root, 0, sizeof(root));
    root.type = kClemensSerializerTypeRoot;
    root.records = &kMMIO[0];

    if (clemens_unserialize_object(reader, (uintptr_t)data_adr, &root, alloc_cb, context) ==
        CLEM_SERIALIZER_INVALID_RECORD) {
        return NULL;
    }

    clem_mmio_restore(machine, mmio);

    return reader;
}