/* Address-linked compact word tables used by TDKPIN game setup. */

#include "tdkpin_tables.h"

enum { DGROUP_WORD_QUADS = 0x4263 };

/*
 * 1008:0787 — write one eight-byte record. The Pascal argument order is the
 * reverse of in-memory field order; index multiplication retains 16 bits.
 */
void tdkpin_set_word_quad(
    uint16_t source_word_6,
    uint16_t source_word_4,
    uint16_t source_word_2,
    uint16_t source_word_0,
    uint16_t index)
{
    uint16_t offset =
        (uint16_t)(DGROUP_WORD_QUADS + (uint16_t)(index * 8u));
    Win16FarPtr record = win16_dgroup_pointer(offset);
    win16_write_u16(record, 0, source_word_0);
    win16_write_u16(record, 2, source_word_2);
    win16_write_u16(record, 4, source_word_4);
    win16_write_u16(record, 6, source_word_6);
}