@modplayjs/fmt-prowizard 0.0.0-stage → 0.2.1

package/dist/pw-di.js

@@ -0,0 +1,177 @@
+// SPDX-License-Identifier: BSD-3-Clause
+// Copyright (c) 2026 Bitti09 — modplayjs contributors
+// Ported from: libxmp src/loaders/prowizard/di.c (Digital Illusions) —
+// write_event :34-59, depack_di :61-159, test_di :165-268.
+import { ptkTable, ptkIsValidNote } from './ptktable.js';
+import { readmem16b, readmem32b, moveData, writeZero, pwReadTitle } from './prowiz.js';
+const PW_MOD_MAGIC = 0x4d2e4b2e; // 'M.K.'
+function put8(out, b) { out.push(b & 0xff); }
+function put16b(out, v) { out.push((v >> 8) & 0xff, v & 0xff); }
+function put32b(out, v) {
+    out.push((v >>> 24) & 0xff, (v >> 16) & 0xff, (v >> 8) & 0xff, v & 0xff);
+}
+/** write_event (di.c:34-59): 3 input bytes → 4-byte PTK cell. */
+function writeEvent(out, c1, c2, fxp) {
+    const note = ((c1 << 4) & 0x30) | ((c2 >> 4) & 0x0f);
+    if (!ptkIsValidNote(note)) {
+        // di.nightmare has note 49! (di.c:39-44)
+        out.push(0, 0, 0, 0);
+        return;
+    }
+    const ins = (c1 >> 2) & 0x1f;
+    const fxt = c2 & 0x0f;
+    out.push((ptkTable[note][0] | (ins & 0xf0)) & 0xff);
+    out.push(ptkTable[note][1]);
+    out.push((((ins << 4) & 0xf0) | fxt) & 0xff);
+    out.push(fxp & 0xff);
+}
+/** depack_di (di.c:61-159). */
+function depackDi(data, start) {
+    let pos = start;
+    const out = [];
+    const u8 = () => data[pos++] ?? 0;
+    const u16 = () => { const v = readmem16b(data, pos); pos += 2; return v; };
+    const u32 = () => { const v = readmem32b(data, pos); pos += 4; return v; };
+    writeZero(out, 20); // title
+    const nins = u16();
+    if (nins > 31)
+        throw new Error('di: too many samples');
+    const seqOfs = u32();
+    u32(); // pat_offs
+    const smpOfs = u32();
+    // Sample headers (di.c:81-89)
+    let ssize = 0;
+    for (let i = 0; i < nins; i++) {
+        writeZero(out, 22); // name
+        const size = u16();
+        ssize += size * 2;
+        put16b(out, size);
+        put8(out, u8()); // finetune
+        put8(out, u8()); // volume
+        put16b(out, u16()); // loop start
+        put16b(out, u16()); // loop size
+    }
+    // Pad to 31 (di.c:92-96)
+    {
+        const pad = new Array(30).fill(0);
+        for (let i = nins; i < 31; i++)
+            out.push(...pad);
+    }
+    const posAfterSamples = pos;
+    // Sequence table (di.c:98-104): 0xff-terminated
+    pos = start + seqOfs;
+    const ptable = new Array(128).fill(0);
+    let i = 0;
+    let c1 = 0;
+    do {
+        c1 = u8();
+        ptable[i++] = c1;
+    } while (c1 !== 0xff);
+    ptable[i - 1] = 0;
+    const npat = i - 1;
+    put8(out, npat);
+    put8(out, 0x7f);
+    // Highest pattern (di.c:109-115)
+    let max = 0;
+    for (i = 0; i < 128; i++) {
+        put8(out, ptable[i]);
+        if (ptable[i] > max)
+            max = ptable[i];
+    }
+    if (max >= 128)
+        throw new Error('di: pattern number too high');
+    put32b(out, PW_MOD_MAGIC);
+    // Pattern data (di.c:118-153): paddr per pattern; cells have 3 forms
+    // (bit7 clear = note+2bytes, 0xff = empty u32, else note+3bytes).
+    pos = posAfterSamples;
+    const paddr = [];
+    for (i = 0; i <= max; i++)
+        paddr.push(u16());
+    for (i = 0; i <= max; i++) {
+        pos = start + paddr[i];
+        for (let k = 0; k < 256; k++) {
+            const c1v = u8();
+            if ((c1v & 0x80) === 0) {
+                const c2v = u8();
+                writeEvent(out, c1v, c2v, 0);
+            }
+            else if (c1v === 0xff) {
+                out.push(0, 0, 0, 0);
+            }
+            else {
+                const c2v = u8();
+                const c3v = u8();
+                writeEvent(out, c1v, c2v, c3v);
+            }
+        }
+    }
+    // Sample data (di.c:156-158)
+    moveData(data, start + smpOfs, out, ssize);
+    return Uint8Array.from(out);
+}
+/** test_di (di.c:165-268). */
+function testDi(data, start) {
+    const s = data.length - start;
+    if (s < 14)
+        return 14 - s;
+    // Number of samples (di.c:174-177)
+    const numsmp = readmem16b(data, start);
+    if (numsmp > 31)
+        return -1;
+    if (s < 14 + numsmp * 8)
+        return 14 + numsmp * 8 - s;
+    // Finetunes and sample sizes (di.c:180-202)
+    let ssize = 0;
+    for (let i = 0; i < numsmp; i++) {
+        const d = start + i * 8 + 14; // note: fields at +14/+18/+20 within the
+        // 8-byte stride window per the C pointer arithmetic (d advances i*8 but
+        // field offsets +14/+18/+20 exceed 8 — this matches C exactly).
+        const len = readmem16b(data, d) << 1;
+        const lstart = readmem16b(data, d + 4) << 1;
+        const lsize = readmem16b(data, d + 6) << 1;
+        if (len > 0xffff || lstart > 0xffff || lsize > 0xffff)
+            return -1;
+        if (lstart + lsize > len)
+            return -1;
+        if (data[d + 2] > 0x0f)
+            return -1;
+        if (data[d + 3] > 0x40)
+            return -1;
+        ssize += len;
+    }
+    if (ssize <= 2)
+        return -1;
+    // Addresses (di.c:206-216)
+    const psize = numsmp * 8 + 2;
+    const ptabOfs = readmem32b(data, start + 2);
+    const patOfs = readmem32b(data, start + 6);
+    const smpOfs = readmem32b(data, start + 10);
+    if (ptabOfs < psize)
+        return -1;
+    if (patOfs <= ptabOfs || smpOfs <= ptabOfs || smpOfs <= patOfs)
+        return -1;
+    if (patOfs - ptabOfs > 128)
+        return -1;
+    // Pattern table reliability (di.c:250-254)
+    if (s < patOfs)
+        return patOfs - s;
+    for (let i = ptabOfs; i < patOfs - 1; i++) {
+        if (data[start + i] > 0x80)
+            return -1;
+    }
+    // 0xff at the end of the pattern list (di.c:257-260)
+    if (data[start + patOfs - 1] !== 0xff)
+        return -1;
+    // Sample data address > $ffff (di.c:263-266)
+    if (smpOfs > 65535)
+        return -1;
+    pwReadTitle(null, 0);
+    return 0;
+}
+/** pw_di: "Digital Illusions". */
+export const pwDi = {
+    name: 'Digital Illusions',
+    test: testDi,
+    depack: depackDi,
+};
+//# sourceMappingURL=pw-di.js.map

package/dist/pw-di.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"pw-di.js","sourceRoot":"","sources":["../src/pw-di.ts"],"names":[],"mappings":"AAAA,wCAAwC;AACxC,sDAAsD;AACtD,uEAAuE;AACvE,2DAA2D;AAE3D,OAAO,EAAE,QAAQ,EAAE,cAAc,EAAE,MAAM,eAAe,CAAC;AACzD,OAAO,EAAE,UAAU,EAAE,UAAU,EAAE,QAAQ,EAAE,SAAS,EAAE,WAAW,EAAiB,MAAM,aAAa,CAAC;AAEtG,MAAM,YAAY,GAAG,UAAU,CAAC,CAAC,SAAS;AAE1C,SAAS,IAAI,CAAC,GAAa,EAAE,CAAS,IAAU,GAAG,CAAC,IAAI,CAAC,CAAC,GAAG,IAAI,CAAC,CAAC,CAAC,CAAC;AACrE,SAAS,MAAM,CAAC,GAAa,EAAE,CAAS,IAAU,GAAG,CAAC,IAAI,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,GAAG,IAAI,EAAE,CAAC,GAAG,IAAI,CAAC,CAAC,CAAC,CAAC;AACxF,SAAS,MAAM,CAAC,GAAa,EAAE,CAAS;IACtC,GAAG,CAAC,IAAI,CAAC,CAAC,CAAC,KAAK,EAAE,CAAC,GAAG,IAAI,EAAE,CAAC,CAAC,IAAI,EAAE,CAAC,GAAG,IAAI,EAAE,CAAC,CAAC,IAAI,CAAC,CAAC,GAAG,IAAI,EAAE,CAAC,GAAG,IAAI,CAAC,CAAC;AAC3E,CAAC;AAED,iEAAiE;AACjE,SAAS,UAAU,CAAC,GAAa,EAAE,EAAU,EAAE,EAAU,EAAE,GAAW;IACpE,MAAM,IAAI,GAAG,CAAC,CAAC,EAAE,IAAI,CAAC,CAAC,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,IAAI,CAAC,CAAC,GAAG,IAAI,CAAC,CAAC;IACrD,IAAI,CAAC,cAAc,CAAC,IAAI,CAAC,EAAE,CAAC;QAC1B,yCAAyC;QACzC,GAAG,CAAC,IAAI,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC;QACrB,OAAO;IACT,CAAC;IACD,MAAM,GAAG,GAAG,CAAC,EAAE,IAAI,CAAC,CAAC,GAAG,IAAI,CAAC;IAC7B,MAAM,GAAG,GAAG,EAAE,GAAG,IAAI,CAAC;IACtB,GAAG,CAAC,IAAI,CAAC,CAAC,QAAQ,CAAC,IAAI,CAAE,CAAC,CAAC,CAAC,GAAG,CAAC,GAAG,GAAG,IAAI,CAAC,CAAC,GAAG,IAAI,CAAC,CAAC;IACrD,GAAG,CAAC,IAAI,CAAC,QAAQ,CAAC,IAAI,CAAE,CAAC,CAAC,CAAC,CAAC,CAAC;IAC7B,GAAG,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,GAAG,IAAI,CAAC,CAAC,GAAG,IAAI,CAAC,GAAG,GAAG,CAAC,GAAG,IAAI,CAAC,CAAC;IAC7C,GAAG,CAAC,IAAI,CAAC,GAAG,GAAG,IAAI,CAAC,CAAC;AACvB,CAAC;AAED,+BAA+B;AAC/B,SAAS,QAAQ,CAAC,IAAgB,EAAE,KAAa;IAC/C,IAAI,GAAG,GAAG,KAAK,CAAC;IAChB,MAAM,GAAG,GAAa,EAAE,CAAC;IACzB,MAAM,EAAE,GAAG,GAAG,EAAE,CAAC,IAAI,CAAC,GAAG,EAAE,CAAC,IAAI,CAAC,CAAC;IAClC,MAAM,GAAG,GAAG,GAAG,EAAE,GAAG,MAAM,CAAC,GAAG,UAAU,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC,CAAC,GAAG,IAAI,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,CAAC;IAC3E,MAAM,GAAG,GAAG,GAAG,EAAE,GAAG,MAAM,CAAC,GAAG,UAAU,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC,CAAC,GAAG,IAAI,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,CAAC;IAE3E,SAAS,CAAC,GAAG,EAAE,EAAE,CAAC,CAAC,CAAC,QAAQ;IAE5B,MAAM,IAAI,GAAG,GAAG,EAAE,CAAC;IACnB,IAAI,IAAI,GAAG,EAAE;QAAE,MAAM,IAAI,KAAK,CAAC,sBAAsB,CAAC,CAAC;IAEvD,MAAM,MAAM,GAAG,GAAG,EAAE,CAAC;IACrB,GAAG,EAAE,CAAC,CAAC,WAAW;IAClB,MAAM,MAAM,GAAG,GAAG,EAAE,CAAC;IAErB,8BAA8B;IAC9B,IAAI,KAAK,GAAG,CAAC,CAAC;IACd,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,IAAI,EAAE,CAAC,EAAE,EAAE,CAAC;QAC9B,SAAS,CAAC,GAAG,EAAE,EAAE,CAAC,CAAC,CAAC,OAAO;QAC3B,MAAM,IAAI,GAAG,GAAG,EAAE,CAAC;QACnB,KAAK,IAAI,IAAI,GAAG,CAAC,CAAC;QAClB,MAAM,CAAC,GAAG,EAAE,IAAI,CAAC,CAAC;QAClB,IAAI,CAAC,GAAG,EAAE,EAAE,EAAE,CAAC,CAAC,CAAC,WAAW;QAC5B,IAAI,CAAC,GAAG,EAAE,EAAE,EAAE,CAAC,CAAC,CAAC,SAAS;QAC1B,MAAM,CAAC,GAAG,EAAE,GAAG,EAAE,CAAC,CAAC,CAAC,aAAa;QACjC,MAAM,CAAC,GAAG,EAAE,GAAG,EAAE,CAAC,CAAC,CAAC,YAAY;IAClC,CAAC;IAED,yBAAyB;IACzB,CAAC;QACC,MAAM,GAAG,GAAG,IAAI,KAAK,CAAS,EAAE,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;QAC1C,KAAK,IAAI,CAAC,GAAG,IAAI,EAAE,CAAC,GAAG,EAAE,EAAE,CAAC,EAAE;YAAE,GAAG,CAAC,IAAI,CAAC,GAAG,GAAG,CAAC,CAAC;IACnD,CAAC;IAED,MAAM,eAAe,GAAG,GAAG,CAAC;IAE5B,gDAAgD;IAChD,GAAG,GAAG,KAAK,GAAG,MAAM,CAAC;IACrB,MAAM,MAAM,GAAG,IAAI,KAAK,CAAS,GAAG,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;IAC9C,IAAI,CAAC,GAAG,CAAC,CAAC;IACV,IAAI,EAAE,GAAG,CAAC,CAAC;IACX,GAAG,CAAC;QACF,EAAE,GAAG,EAAE,EAAE,CAAC;QACV,MAAM,CAAC,CAAC,EAAE,CAAC,GAAG,EAAE,CAAC;IACnB,CAAC,QAAQ,EAAE,KAAK,IAAI,EAAE;IACtB,MAAM,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC;IAClB,MAAM,IAAI,GAAG,CAAC,GAAG,CAAC,CAAC;IACnB,IAAI,CAAC,GAAG,EAAE,IAAI,CAAC,CAAC;IAChB,IAAI,CAAC,GAAG,EAAE,IAAI,CAAC,CAAC;IAEhB,iCAAiC;IACjC,IAAI,GAAG,GAAG,CAAC,CAAC;IACZ,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,GAAG,EAAE,CAAC,EAAE,EAAE,CAAC;QACzB,IAAI,CAAC,GAAG,EAAE,MAAM,CAAC,CAAC,CAAE,CAAC,CAAC;QACtB,IAAI,MAAM,CAAC,CAAC,CAAE,GAAG,GAAG;YAAE,GAAG,GAAG,MAAM,CAAC,CAAC,CAAE,CAAC;IACzC,CAAC;IACD,IAAI,GAAG,IAAI,GAAG;QAAE,MAAM,IAAI,KAAK,CAAC,6BAA6B,CAAC,CAAC;IAE/D,MAAM,CAAC,GAAG,EAAE,YAAY,CAAC,CAAC;IAE1B,qEAAqE;IACrE,kEAAkE;IAClE,GAAG,GAAG,eAAe,CAAC;IACtB,MAAM,KAAK,GAAa,EAAE,CAAC;IAC3B,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,IAAI,GAAG,EAAE,CAAC,EAAE;QAAE,KAAK,CAAC,IAAI,CAAC,GAAG,EAAE,CAAC,CAAC;IAE7C,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,IAAI,GAAG,EAAE,CAAC,EAAE,EAAE,CAAC;QAC1B,GAAG,GAAG,KAAK,GAAG,KAAK,CAAC,CAAC,CAAE,CAAC;QACxB,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,GAAG,EAAE,CAAC,EAAE,EAAE,CAAC;YAC7B,MAAM,GAAG,GAAG,EAAE,EAAE,CAAC;YACjB,IAAI,CAAC,GAAG,GAAG,IAAI,CAAC,KAAK,CAAC,EAAE,CAAC;gBACvB,MAAM,GAAG,GAAG,EAAE,EAAE,CAAC;gBACjB,UAAU,CAAC,GAAG,EAAE,GAAG,EAAE,GAAG,EAAE,CAAC,CAAC,CAAC;YAC/B,CAAC;iBAAM,IAAI,GAAG,KAAK,IAAI,EAAE,CAAC;gBACxB,GAAG,CAAC,IAAI,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC;YACvB,CAAC;iBAAM,CAAC;gBACN,MAAM,GAAG,GAAG,EAAE,EAAE,CAAC;gBACjB,MAAM,GAAG,GAAG,EAAE,EAAE,CAAC;gBACjB,UAAU,CAAC,GAAG,EAAE,GAAG,EAAE,GAAG,EAAE,GAAG,CAAC,CAAC;YACjC,CAAC;QACH,CAAC;IACH,CAAC;IAED,6BAA6B;IAC7B,QAAQ,CAAC,IAAI,EAAE,KAAK,GAAG,MAAM,EAAE,GAAG,EAAE,KAAK,CAAC,CAAC;IAE3C,OAAO,UAAU,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC;AAC9B,CAAC;AAED,8BAA8B;AAC9B,SAAS,MAAM,CAAC,IAAgB,EAAE,KAAa;IAC7C,MAAM,CAAC,GAAG,IAAI,CAAC,MAAM,GAAG,KAAK,CAAC;IAC9B,IAAI,CAAC,GAAG,EAAE;QAAE,OAAO,EAAE,GAAG,CAAC,CAAC;IAE1B,mCAAmC;IACnC,MAAM,MAAM,GAAG,UAAU,CAAC,IAAI,EAAE,KAAK,CAAC,CAAC;IACvC,IAAI,MAAM,GAAG,EAAE;QAAE,OAAO,CAAC,CAAC,CAAC;IAE3B,IAAI,CAAC,GAAG,EAAE,GAAG,MAAM,GAAG,CAAC;QAAE,OAAO,EAAE,GAAG,MAAM,GAAG,CAAC,GAAG,CAAC,CAAC;IAEpD,4CAA4C;IAC5C,IAAI,KAAK,GAAG,CAAC,CAAC;IACd,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;QAChC,MAAM,CAAC,GAAG,KAAK,GAAG,CAAC,GAAG,CAAC,GAAG,EAAE,CAAC,CAAC,yCAAyC;QACvE,wEAAwE;QACxE,gEAAgE;QAChE,MAAM,GAAG,GAAG,UAAU,CAAC,IAAI,EAAE,CAAC,CAAC,IAAI,CAAC,CAAC;QACrC,MAAM,MAAM,GAAG,UAAU,CAAC,IAAI,EAAE,CAAC,GAAG,CAAC,CAAC,IAAI,CAAC,CAAC;QAC5C,MAAM,KAAK,GAAG,UAAU,CAAC,IAAI,EAAE,CAAC,GAAG,CAAC,CAAC,IAAI,CAAC,CAAC;QAE3C,IAAI,GAAG,GAAG,MAAM,IAAI,MAAM,GAAG,MAAM,IAAI,KAAK,GAAG,MAAM;YAAE,OAAO,CAAC,CAAC,CAAC;QACjE,IAAI,MAAM,GAAG,KAAK,GAAG,GAAG;YAAE,OAAO,CAAC,CAAC,CAAC;QACpC,IAAI,IAAI,CAAC,CAAC,GAAG,CAAC,CAAE,GAAG,IAAI;YAAE,OAAO,CAAC,CAAC,CAAC;QACnC,IAAI,IAAI,CAAC,CAAC,GAAG,CAAC,CAAE,GAAG,IAAI;YAAE,OAAO,CAAC,CAAC,CAAC;QACnC,KAAK,IAAI,GAAG,CAAC;IACf,CAAC;IACD,IAAI,KAAK,IAAI,CAAC;QAAE,OAAO,CAAC,CAAC,CAAC;IAE1B,2BAA2B;IAC3B,MAAM,KAAK,GAAG,MAAM,GAAG,CAAC,GAAG,CAAC,CAAC;IAC7B,MAAM,OAAO,GAAG,UAAU,CAAC,IAAI,EAAE,KAAK,GAAG,CAAC,CAAC,CAAC;IAC5C,MAAM,MAAM,GAAG,UAAU,CAAC,IAAI,EAAE,KAAK,GAAG,CAAC,CAAC,CAAC;IAC3C,MAAM,MAAM,GAAG,UAAU,CAAC,IAAI,EAAE,KAAK,GAAG,EAAE,CAAC,CAAC;IAE5C,IAAI,OAAO,GAAG,KAAK;QAAE,OAAO,CAAC,CAAC,CAAC;IAC/B,IAAI,MAAM,IAAI,OAAO,IAAI,MAAM,IAAI,OAAO,IAAI,MAAM,IAAI,MAAM;QAAE,OAAO,CAAC,CAAC,CAAC;IAC1E,IAAI,MAAM,GAAG,OAAO,GAAG,GAAG;QAAE,OAAO,CAAC,CAAC,CAAC;IAEtC,2CAA2C;IAC3C,IAAI,CAAC,GAAG,MAAM;QAAE,OAAO,MAAM,GAAG,CAAC,CAAC;IAClC,KAAK,IAAI,CAAC,GAAG,OAAO,EAAE,CAAC,GAAG,MAAM,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;QAC1C,IAAI,IAAI,CAAC,KAAK,GAAG,CAAC,CAAE,GAAG,IAAI;YAAE,OAAO,CAAC,CAAC,CAAC;IACzC,CAAC;IAED,qDAAqD;IACrD,IAAI,IAAI,CAAC,KAAK,GAAG,MAAM,GAAG,CAAC,CAAC,KAAK,IAAI;QAAE,OAAO,CAAC,CAAC,CAAC;IAEjD,6CAA6C;IAC7C,IAAI,MAAM,GAAG,KAAK;QAAE,OAAO,CAAC,CAAC,CAAC;IAE9B,WAAW,CAAC,IAAI,EAAE,CAAC,CAAC,CAAC;IAErB,OAAO,CAAC,CAAC;AACX,CAAC;AAED,kCAAkC;AAClC,MAAM,CAAC,MAAM,IAAI,GAAa;IAC5B,IAAI,EAAE,mBAAmB;IACzB,IAAI,EAAE,MAAM;IACZ,MAAM,EAAE,QAAQ;CACjB,CAAC"}

package/dist/pw-eureka.d.ts

@@ -0,0 +1,4 @@
+import { type PwFormat } from './prowiz.js';
+/** pw_eu: "Eureka Packer". */
+export declare const pwEu: PwFormat;
+//# sourceMappingURL=pw-eureka.d.ts.map

package/dist/pw-eureka.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"pw-eureka.d.ts","sourceRoot":"","sources":["../src/pw-eureka.ts"],"names":[],"mappings":"AAKA,OAAO,EAAoC,KAAK,QAAQ,EAAE,MAAM,aAAa,CAAC;AAiK9E,8BAA8B;AAC9B,eAAO,MAAM,IAAI,EAAE,QAIlB,CAAC"}

package/dist/pw-eureka.js

@@ -0,0 +1,171 @@
+// SPDX-License-Identifier: BSD-3-Clause
+// Copyright (c) 2026 Bitti09 — modplayjs contributors
+// Ported from: libxmp src/loaders/prowizard/eureka.c (Eureka Packer) —
+// depack_eu :35-122, test_eu :125-218.
+import { readmem16b, readmem32b, moveData } from './prowiz.js';
+const PW_MOD_MAGIC = 0x4d2e4b2e; // 'M.K.'
+function put32b(out, v) {
+    out.push((v >>> 24) & 0xff, (v >> 16) & 0xff, (v >> 8) & 0xff, v & 0xff);
+}
+/** depack_eu (eureka.c:35-122). Header is PTK-compatible. */
+function depackEu(data, start) {
+    let pos = start;
+    const out = [];
+    // header: 1080 bytes moved verbatim (eureka.c:38-40)
+    for (let i = 0; i < 1080; i++)
+        out.push(data[pos++] ?? 0);
+    // whole sample size (eureka.c:43-45): sizes at 42 + i*30
+    let ssize = 0;
+    for (let i = 0; i < 31; i++) {
+        ssize += 2 * ((data[start + i * 30 + 42] << 8) | data[start + i * 30 + 43]);
+    }
+    // pattern list max (eureka.c:47-53)
+    let npat = 0;
+    for (let i = 0; i < 128; i++) {
+        if (data[start + 952 + i] > npat)
+            npat = data[start + 952 + i];
+    }
+    npat++;
+    put32b(out, PW_MOD_MAGIC);
+    const smpAddr = readmem32b(data, pos);
+    pos += 4; // sample data address
+    // Track addresses (eureka.c:56-61)
+    const trkAddr = [];
+    for (let i = 0; i < npat; i++) {
+        const row = [];
+        for (let j = 0; j < 4; j++) {
+            row.push((data[pos] << 8) | data[pos + 1]);
+            pos += 2;
+        }
+        trkAddr.push(row);
+    }
+    // Track data (eureka.c:64-110): 4 cell forms per 2-bit prefix.
+    for (let i = 0; i < npat; i++) {
+        const tmp = new Uint8Array(1024);
+        for (let j = 0; j < 4; j++) {
+            pos = start + trkAddr[i][j];
+            for (let k = 0; k < 64; k++) {
+                const x = k * 16 + j * 4;
+                const c1 = data[pos++] ?? 0;
+                if ((c1 & 0xc0) === 0x00) {
+                    // full 4-byte cell (eureka.c:67-72)
+                    tmp[x] = c1;
+                    tmp[x + 1] = data[pos++] ?? 0;
+                    tmp[x + 2] = data[pos++] ?? 0;
+                    tmp[x + 3] = data[pos++] ?? 0;
+                    continue;
+                }
+                if ((c1 & 0xc0) === 0xc0) {
+                    k += c1 & 0x3f; // blank rows (eureka.c:73-76)
+                    continue;
+                }
+                if ((c1 & 0xc0) === 0x40) {
+                    // effect-only (eureka.c:77-82)
+                    tmp[x + 2] = c1 & 0x0f;
+                    tmp[x + 3] = data[pos++] ?? 0;
+                    continue;
+                }
+                if ((c1 & 0xc0) === 0x80) {
+                    // note+ins without effect (eureka.c:83-88)
+                    tmp[x] = data[pos++] ?? 0;
+                    tmp[x + 1] = data[pos++] ?? 0;
+                    tmp[x + 2] = (c1 << 4) & 0xf0;
+                    continue;
+                }
+            }
+        }
+        for (let k = 0; k < 1024; k++)
+            out.push(tmp[k]);
+    }
+    // Sample data (eureka.c:113-116)
+    moveData(data, start + smpAddr, out, ssize);
+    return Uint8Array.from(out);
+}
+/** test_eu (eureka.c:125-218). */
+function testEu(data, start) {
+    const s = data.length - start;
+    if (s < 1084)
+        return 1084 - s;
+    // test 2 (eureka.c:131-135)
+    const len = data[start + 950];
+    if (len === 0 || len > 127)
+        return -1;
+    // test #3 (eureka.c:137-156)
+    for (let i = 0; i < 31; i++) {
+        const d = start + i * 30;
+        const size = readmem16b(data, d + 42) << 1;
+        const lstart = readmem16b(data, d + 46) << 1;
+        const lsize = readmem16b(data, d + 48) << 1;
+        if (size > 0xffff || lstart > 0xffff || lsize > 0xffff)
+            return -1;
+        if (lstart + lsize > size + 2)
+            return -1;
+        if (data[d + 44] > 0x0f || data[d + 45] > 0x40)
+            return -1;
+    }
+    // test 4 (eureka.c:159-167)
+    const smpOfs = readmem32b(data, start + 1080);
+    if (smpOfs < 1084)
+        return -1;
+    // Pattern list (eureka.c:169-183)
+    let maxPat = 0;
+    let i = 0;
+    for (; i < len; i++) {
+        const pat = data[start + 952 + i];
+        if (pat > 127)
+            return -1;
+        if (pat > maxPat)
+            maxPat = pat;
+    }
+    for (; i < 128; i++) {
+        if (data[start + 952 + i] !== 0)
+            return -1;
+    }
+    maxPat++;
+    // Track address bounds (eureka.c:186-199)
+    let maxTrk = 0;
+    let minTrk = 999999;
+    if (s < maxPat * 4 * 2 + 1085)
+        return maxPat * 4 * 2 + 1085 - s;
+    for (i = 0; i < maxPat * 4; i++) {
+        const trk = readmem16b(data, start + i * 2 + 1084);
+        if (trk > smpOfs || trk < 1084)
+            return -1;
+        if (trk > maxTrk)
+            maxTrk = trk;
+        if (trk < minTrk)
+            minTrk = trk;
+    }
+    if (s < maxTrk)
+        return maxTrk - s;
+    // Track data sanity (eureka.c:203-215)
+    for (i = minTrk; i < maxTrk; i++) {
+        const c = data[start + i];
+        if ((c & 0xc0) === 0xc0)
+            continue;
+        if ((c & 0xc0) === 0x80) {
+            i += 2;
+            continue;
+        }
+        if ((c & 0xc0) === 0x40) {
+            if ((c & 0x3f) === 0 && data[start + i + 1] === 0)
+                return -1;
+            i++;
+            continue;
+        }
+        if ((c & 0xc0) === 0) {
+            if (c > 0x13)
+                return -1;
+            i += 3;
+            continue;
+        }
+    }
+    return 0;
+}
+/** pw_eu: "Eureka Packer". */
+export const pwEu = {
+    name: 'Eureka Packer',
+    test: testEu,
+    depack: depackEu,
+};
+//# sourceMappingURL=pw-eureka.js.map

package/dist/pw-eureka.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"pw-eureka.js","sourceRoot":"","sources":["../src/pw-eureka.ts"],"names":[],"mappings":"AAAA,wCAAwC;AACxC,sDAAsD;AACtD,uEAAuE;AACvE,uCAAuC;AAEvC,OAAO,EAAE,UAAU,EAAE,UAAU,EAAE,QAAQ,EAAiB,MAAM,aAAa,CAAC;AAE9E,MAAM,YAAY,GAAG,UAAU,CAAC,CAAC,SAAS;AAE1C,SAAS,MAAM,CAAC,GAAa,EAAE,CAAS;IACtC,GAAG,CAAC,IAAI,CAAC,CAAC,CAAC,KAAK,EAAE,CAAC,GAAG,IAAI,EAAE,CAAC,CAAC,IAAI,EAAE,CAAC,GAAG,IAAI,EAAE,CAAC,CAAC,IAAI,CAAC,CAAC,GAAG,IAAI,EAAE,CAAC,GAAG,IAAI,CAAC,CAAC;AAC3E,CAAC;AAED,6DAA6D;AAC7D,SAAS,QAAQ,CAAC,IAAgB,EAAE,KAAa;IAC/C,IAAI,GAAG,GAAG,KAAK,CAAC;IAChB,MAAM,GAAG,GAAa,EAAE,CAAC;IAEzB,qDAAqD;IACrD,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,IAAI,EAAE,CAAC,EAAE;QAAE,GAAG,CAAC,IAAI,CAAC,IAAI,CAAC,GAAG,EAAE,CAAC,IAAI,CAAC,CAAC,CAAC;IAE1D,yDAAyD;IACzD,IAAI,KAAK,GAAG,CAAC,CAAC;IACd,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,EAAE,EAAE,CAAC,EAAE,EAAE,CAAC;QAC5B,KAAK,IAAI,CAAC,GAAG,CAAC,CAAC,IAAI,CAAC,KAAK,GAAG,CAAC,GAAG,EAAE,GAAG,EAAE,CAAE,IAAI,CAAC,CAAC,GAAG,IAAI,CAAC,KAAK,GAAG,CAAC,GAAG,EAAE,GAAG,EAAE,CAAE,CAAC,CAAC;IAChF,CAAC;IAED,oCAAoC;IACpC,IAAI,IAAI,GAAG,CAAC,CAAC;IACb,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,GAAG,EAAE,CAAC,EAAE,EAAE,CAAC;QAC7B,IAAI,IAAI,CAAC,KAAK,GAAG,GAAG,GAAG,CAAC,CAAE,GAAG,IAAI;YAAE,IAAI,GAAG,IAAI,CAAC,KAAK,GAAG,GAAG,GAAG,CAAC,CAAE,CAAC;IACnE,CAAC;IACD,IAAI,EAAE,CAAC;IAEP,MAAM,CAAC,GAAG,EAAE,YAAY,CAAC,CAAC;IAC1B,MAAM,OAAO,GAAG,UAAU,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;IAAC,GAAG,IAAI,CAAC,CAAC,CAAC,sBAAsB;IAEvE,mCAAmC;IACnC,MAAM,OAAO,GAAe,EAAE,CAAC;IAC/B,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,IAAI,EAAE,CAAC,EAAE,EAAE,CAAC;QAC9B,MAAM,GAAG,GAAa,EAAE,CAAC;QACzB,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;YAC3B,GAAG,CAAC,IAAI,CAAC,CAAC,IAAI,CAAC,GAAG,CAAE,IAAI,CAAC,CAAC,GAAG,IAAI,CAAC,GAAG,GAAG,CAAC,CAAE,CAAC,CAAC;YAC7C,GAAG,IAAI,CAAC,CAAC;QACX,CAAC;QACD,OAAO,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC;IACpB,CAAC;IAED,+DAA+D;IAC/D,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,IAAI,EAAE,CAAC,EAAE,EAAE,CAAC;QAC9B,MAAM,GAAG,GAAG,IAAI,UAAU,CAAC,IAAI,CAAC,CAAC;QACjC,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;YAC3B,GAAG,GAAG,KAAK,GAAG,OAAO,CAAC,CAAC,CAAE,CAAC,CAAC,CAAE,CAAC;YAC9B,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,EAAE,EAAE,CAAC,EAAE,EAAE,CAAC;gBAC5B,MAAM,CAAC,GAAG,CAAC,GAAG,EAAE,GAAG,CAAC,GAAG,CAAC,CAAC;gBACzB,MAAM,EAAE,GAAG,IAAI,CAAC,GAAG,EAAE,CAAC,IAAI,CAAC,CAAC;gBAE5B,IAAI,CAAC,EAAE,GAAG,IAAI,CAAC,KAAK,IAAI,EAAE,CAAC;oBACzB,oCAAoC;oBACpC,GAAG,CAAC,CAAC,CAAC,GAAG,EAAE,CAAC;oBACZ,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,IAAI,CAAC,GAAG,EAAE,CAAC,IAAI,CAAC,CAAC;oBAC9B,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,IAAI,CAAC,GAAG,EAAE,CAAC,IAAI,CAAC,CAAC;oBAC9B,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,IAAI,CAAC,GAAG,EAAE,CAAC,IAAI,CAAC,CAAC;oBAC9B,SAAS;gBACX,CAAC;gBACD,IAAI,CAAC,EAAE,GAAG,IAAI,CAAC,KAAK,IAAI,EAAE,CAAC;oBACzB,CAAC,IAAI,EAAE,GAAG,IAAI,CAAC,CAAC,8BAA8B;oBAC9C,SAAS;gBACX,CAAC;gBACD,IAAI,CAAC,EAAE,GAAG,IAAI,CAAC,KAAK,IAAI,EAAE,CAAC;oBACzB,+BAA+B;oBAC/B,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,EAAE,GAAG,IAAI,CAAC;oBACvB,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,IAAI,CAAC,GAAG,EAAE,CAAC,IAAI,CAAC,CAAC;oBAC9B,SAAS;gBACX,CAAC;gBACD,IAAI,CAAC,EAAE,GAAG,IAAI,CAAC,KAAK,IAAI,EAAE,CAAC;oBACzB,2CAA2C;oBAC3C,GAAG,CAAC,CAAC,CAAC,GAAG,IAAI,CAAC,GAAG,EAAE,CAAC,IAAI,CAAC,CAAC;oBAC1B,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,IAAI,CAAC,GAAG,EAAE,CAAC,IAAI,CAAC,CAAC;oBAC9B,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,EAAE,IAAI,CAAC,CAAC,GAAG,IAAI,CAAC;oBAC9B,SAAS;gBACX,CAAC;YACH,CAAC;QACH,CAAC;QACD,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,IAAI,EAAE,CAAC,EAAE;YAAE,GAAG,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,CAAE,CAAC,CAAC;IACnD,CAAC;IAED,iCAAiC;IACjC,QAAQ,CAAC,IAAI,EAAE,KAAK,GAAG,OAAO,EAAE,GAAG,EAAE,KAAK,CAAC,CAAC;IAE5C,OAAO,UAAU,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC;AAC9B,CAAC;AAED,kCAAkC;AAClC,SAAS,MAAM,CAAC,IAAgB,EAAE,KAAa;IAC7C,MAAM,CAAC,GAAG,IAAI,CAAC,MAAM,GAAG,KAAK,CAAC;IAC9B,IAAI,CAAC,GAAG,IAAI;QAAE,OAAO,IAAI,GAAG,CAAC,CAAC;IAE9B,4BAA4B;IAC5B,MAAM,GAAG,GAAG,IAAI,CAAC,KAAK,GAAG,GAAG,CAAE,CAAC;IAC/B,IAAI,GAAG,KAAK,CAAC,IAAI,GAAG,GAAG,GAAG;QAAE,OAAO,CAAC,CAAC,CAAC;IAEtC,6BAA6B;IAC7B,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,EAAE,EAAE,CAAC,EAAE,EAAE,CAAC;QAC5B,MAAM,CAAC,GAAG,KAAK,GAAG,CAAC,GAAG,EAAE,CAAC;QACzB,MAAM,IAAI,GAAG,UAAU,CAAC,IAAI,EAAE,CAAC,GAAG,EAAE,CAAC,IAAI,CAAC,CAAC;QAC3C,MAAM,MAAM,GAAG,UAAU,CAAC,IAAI,EAAE,CAAC,GAAG,EAAE,CAAC,IAAI,CAAC,CAAC;QAC7C,MAAM,KAAK,GAAG,UAAU,CAAC,IAAI,EAAE,CAAC,GAAG,EAAE,CAAC,IAAI,CAAC,CAAC;QAE5C,IAAI,IAAI,GAAG,MAAM,IAAI,MAAM,GAAG,MAAM,IAAI,KAAK,GAAG,MAAM;YAAE,OAAO,CAAC,CAAC,CAAC;QAClE,IAAI,MAAM,GAAG,KAAK,GAAG,IAAI,GAAG,CAAC;YAAE,OAAO,CAAC,CAAC,CAAC;QACzC,IAAI,IAAI,CAAC,CAAC,GAAG,EAAE,CAAE,GAAG,IAAI,IAAI,IAAI,CAAC,CAAC,GAAG,EAAE,CAAE,GAAG,IAAI;YAAE,OAAO,CAAC,CAAC,CAAC;IAC9D,CAAC;IAED,4BAA4B;IAC5B,MAAM,MAAM,GAAG,UAAU,CAAC,IAAI,EAAE,KAAK,GAAG,IAAI,CAAC,CAAC;IAC9C,IAAI,MAAM,GAAG,IAAI;QAAE,OAAO,CAAC,CAAC,CAAC;IAE7B,kCAAkC;IAClC,IAAI,MAAM,GAAG,CAAC,CAAC;IACf,IAAI,CAAC,GAAG,CAAC,CAAC;IACV,OAAO,CAAC,GAAG,GAAG,EAAE,CAAC,EAAE,EAAE,CAAC;QACpB,MAAM,GAAG,GAAG,IAAI,CAAC,KAAK,GAAG,GAAG,GAAG,CAAC,CAAE,CAAC;QACnC,IAAI,GAAG,GAAG,GAAG;YAAE,OAAO,CAAC,CAAC,CAAC;QACzB,IAAI,GAAG,GAAG,MAAM;YAAE,MAAM,GAAG,GAAG,CAAC;IACjC,CAAC;IACD,OAAO,CAAC,GAAG,GAAG,EAAE,CAAC,EAAE,EAAE,CAAC;QACpB,IAAI,IAAI,CAAC,KAAK,GAAG,GAAG,GAAG,CAAC,CAAC,KAAK,CAAC;YAAE,OAAO,CAAC,CAAC,CAAC;IAC7C,CAAC;IACD,MAAM,EAAE,CAAC;IAET,0CAA0C;IAC1C,IAAI,MAAM,GAAG,CAAC,CAAC;IACf,IAAI,MAAM,GAAG,MAAM,CAAC;IAEpB,IAAI,CAAC,GAAG,MAAM,GAAG,CAAC,GAAG,CAAC,GAAG,IAAI;QAAE,OAAO,MAAM,GAAG,CAAC,GAAG,CAAC,GAAG,IAAI,GAAG,CAAC,CAAC;IAEhE,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,MAAM,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;QAChC,MAAM,GAAG,GAAG,UAAU,CAAC,IAAI,EAAE,KAAK,GAAG,CAAC,GAAG,CAAC,GAAG,IAAI,CAAC,CAAC;QACnD,IAAI,GAAG,GAAG,MAAM,IAAI,GAAG,GAAG,IAAI;YAAE,OAAO,CAAC,CAAC,CAAC;QAC1C,IAAI,GAAG,GAAG,MAAM;YAAE,MAAM,GAAG,GAAG,CAAC;QAC/B,IAAI,GAAG,GAAG,MAAM;YAAE,MAAM,GAAG,GAAG,CAAC;IACjC,CAAC;IAED,IAAI,CAAC,GAAG,MAAM;QAAE,OAAO,MAAM,GAAG,CAAC,CAAC;IAElC,uCAAuC;IACvC,KAAK,CAAC,GAAG,MAAM,EAAE,CAAC,GAAG,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;QACjC,MAAM,CAAC,GAAG,IAAI,CAAC,KAAK,GAAG,CAAC,CAAE,CAAC;QAC3B,IAAI,CAAC,CAAC,GAAG,IAAI,CAAC,KAAK,IAAI;YAAE,SAAS;QAClC,IAAI,CAAC,CAAC,GAAG,IAAI,CAAC,KAAK,IAAI,EAAE,CAAC;YAAC,CAAC,IAAI,CAAC,CAAC;YAAC,SAAS;QAAC,CAAC;QAC9C,IAAI,CAAC,CAAC,GAAG,IAAI,CAAC,KAAK,IAAI,EAAE,CAAC;YACxB,IAAI,CAAC,CAAC,GAAG,IAAI,CAAC,KAAK,CAAC,IAAI,IAAI,CAAC,KAAK,GAAG,CAAC,GAAG,CAAC,CAAC,KAAK,CAAC;gBAAE,OAAO,CAAC,CAAC,CAAC;YAC7D,CAAC,EAAE,CAAC;YACJ,SAAS;QACX,CAAC;QACD,IAAI,CAAC,CAAC,GAAG,IAAI,CAAC,KAAK,CAAC,EAAE,CAAC;YACrB,IAAI,CAAC,GAAG,IAAI;gBAAE,OAAO,CAAC,CAAC,CAAC;YACxB,CAAC,IAAI,CAAC,CAAC;YACP,SAAS;QACX,CAAC;IACH,CAAC;IAED,OAAO,CAAC,CAAC;AACX,CAAC;AAED,8BAA8B;AAC9B,MAAM,CAAC,MAAM,IAAI,GAAa;IAC5B,IAAI,EAAE,eAAe;IACrB,IAAI,EAAE,MAAM;IACZ,MAAM,EAAE,QAAQ;CACjB,CAAC"}

package/dist/pw-fcm.d.ts

@@ -0,0 +1,4 @@
+import { type PwFormat } from './prowiz.js';
+/** pw_fcm: "FC-M Packer". */
+export declare const pwFcm: PwFormat;
+//# sourceMappingURL=pw-fcm.d.ts.map

package/dist/pw-fcm.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"pw-fcm.d.ts","sourceRoot":"","sources":["../src/pw-fcm.ts"],"names":[],"mappings":"AAKA,OAAO,EAAe,KAAK,QAAQ,EAAE,MAAM,aAAa,CAAC;AAoGzD,6BAA6B;AAC7B,eAAO,MAAM,KAAK,EAAE,QAInB,CAAC"}

package/dist/pw-fcm.js

@@ -0,0 +1,102 @@
+// SPDX-License-Identifier: BSD-3-Clause
+// Copyright (c) 2026 Bitti09 — modplayjs contributors
+// Ported from: libxmp src/loaders/prowizard/fc-m.c (FC-M Packer 1.0) —
+// depack_fcm :33-93, test_fcm :95-123.
+import { pwReadTitle } from './prowiz.js';
+const PW_MOD_MAGIC = 0x4d2e4b2e; // 'M.K.'
+function put8(out, b) { out.push(b & 0xff); }
+function put16b(out, v) { out.push((v >> 8) & 0xff, v & 0xff); }
+function put32b(out, v) {
+    out.push((v >>> 24) & 0xff, (v >> 16) & 0xff, (v >> 8) & 0xff, v & 0xff);
+}
+/** depack_fcm (fc-m.c:33-93) — chunked container, mostly verbatim moves. */
+function depackFcm(data, start) {
+    let pos = start;
+    const out = [];
+    const u8 = () => data[pos++] ?? 0;
+    const u16 = () => { const v = (data[pos] << 8) | data[pos + 1]; pos += 2; return v; };
+    const u32 = () => { const v = read32(data, pos); pos += 4; return v; };
+    const read32 = (d, o) => ((d[o] << 24) | (d[o + 1] << 16) | (d[o + 2] << 8) | d[o + 3]) >>> 0;
+    u32(); // bypass "FC-M" ID
+    u16(); // version number?
+    u32(); // bypass "NAME" chunk
+    // title: move 20 bytes (fc-m.c:42)
+    for (let i = 0; i < 20; i++)
+        out.push(data[pos++] ?? 0);
+    u32(); // bypass "INST" chunk
+    // Sample descriptions (fc-m.c:46-57)
+    let ssize = 0;
+    for (let i = 0; i < 31; i++) {
+        for (let k = 0; k < 22; k++)
+            out.push(0); // sample name
+        const size = u16();
+        put16b(out, size);
+        ssize += size * 2;
+        put8(out, u8()); // finetune
+        put8(out, u8()); // volume
+        put16b(out, u16()); // loop start
+        let loopSize = u16();
+        if (loopSize === 0)
+            loopSize = 1;
+        put16b(out, loopSize);
+    }
+    u32(); // bypass "LONG" chunk
+    const patPos = u8();
+    put8(out, patPos);
+    put8(out, u8()); // NoiseTracker byte
+    u32(); // bypass "PATT" chunk
+    // Pattern list (fc-m.c:63-68)
+    let patMax = 0;
+    let i = 0;
+    for (; i < patPos; i++) {
+        const c1 = u8();
+        put8(out, c1);
+        if (c1 > patMax)
+            patMax = c1;
+    }
+    for (; i < 128; i++)
+        put8(out, 0);
+    put32b(out, PW_MOD_MAGIC);
+    u32(); // bypass "SONG" chunk
+    // Pattern data (fc-m.c:72-74): verbatim 1024-byte blocks
+    for (i = 0; i <= patMax; i++) {
+        for (let k = 0; k < 1024; k++)
+            out.push(data[pos++] ?? 0);
+    }
+    u32(); // bypass "SAMP" chunk
+    // Sample data (fc-m.c:75-76)
+    for (let k = 0; k < ssize && pos < data.length; k++)
+        out.push(data[pos++] ?? 0);
+    return Uint8Array.from(out);
+}
+/** test_fcm (fc-m.c:95-123). */
+function testFcm(data, start) {
+    const s = data.length - start;
+    if (s < 37 + 8 * 31)
+        return 37 + 8 * 31 - s;
+    // "FC-M" (fc-m.c:100-104)
+    if (data[start] !== 0x46 || data[start + 1] !== 0x43 ||
+        data[start + 2] !== 0x2d || data[start + 3] !== 0x4d) {
+        return -1;
+    }
+    // test 1 (fc-m.c:106-109)
+    if (data[start + 4] !== 0x01)
+        return -1;
+    // test 2 (fc-m.c:111-114)
+    if (data[start + 5] !== 0x00)
+        return -1;
+    // test 3 (fc-m.c:116-120)
+    for (let j = 0; j < 31; j++) {
+        if (data[start + 37 + 8 * j] > 0x40)
+            return -1;
+    }
+    pwReadTitle(data.subarray(start + 10), 20);
+    return 0;
+}
+/** pw_fcm: "FC-M Packer". */
+export const pwFcm = {
+    name: 'FC-M Packer',
+    test: testFcm,
+    depack: depackFcm,
+};
+//# sourceMappingURL=pw-fcm.js.map

package/dist/pw-fcm.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"pw-fcm.js","sourceRoot":"","sources":["../src/pw-fcm.ts"],"names":[],"mappings":"AAAA,wCAAwC;AACxC,sDAAsD;AACtD,uEAAuE;AACvE,uCAAuC;AAEvC,OAAO,EAAE,WAAW,EAAiB,MAAM,aAAa,CAAC;AAEzD,MAAM,YAAY,GAAG,UAAU,CAAC,CAAC,SAAS;AAE1C,SAAS,IAAI,CAAC,GAAa,EAAE,CAAS,IAAU,GAAG,CAAC,IAAI,CAAC,CAAC,GAAG,IAAI,CAAC,CAAC,CAAC,CAAC;AACrE,SAAS,MAAM,CAAC,GAAa,EAAE,CAAS,IAAU,GAAG,CAAC,IAAI,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,GAAG,IAAI,EAAE,CAAC,GAAG,IAAI,CAAC,CAAC,CAAC,CAAC;AACxF,SAAS,MAAM,CAAC,GAAa,EAAE,CAAS;IACtC,GAAG,CAAC,IAAI,CAAC,CAAC,CAAC,KAAK,EAAE,CAAC,GAAG,IAAI,EAAE,CAAC,CAAC,IAAI,EAAE,CAAC,GAAG,IAAI,EAAE,CAAC,CAAC,IAAI,CAAC,CAAC,GAAG,IAAI,EAAE,CAAC,GAAG,IAAI,CAAC,CAAC;AAC3E,CAAC;AAED,4EAA4E;AAC5E,SAAS,SAAS,CAAC,IAAgB,EAAE,KAAa;IAChD,IAAI,GAAG,GAAG,KAAK,CAAC;IAChB,MAAM,GAAG,GAAa,EAAE,CAAC;IACzB,MAAM,EAAE,GAAG,GAAG,EAAE,CAAC,IAAI,CAAC,GAAG,EAAE,CAAC,IAAI,CAAC,CAAC;IAClC,MAAM,GAAG,GAAG,GAAG,EAAE,GAAG,MAAM,CAAC,GAAG,CAAC,IAAI,CAAC,GAAG,CAAE,IAAI,CAAC,CAAC,GAAG,IAAI,CAAC,GAAG,GAAG,CAAC,CAAE,CAAC,CAAC,GAAG,IAAI,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,CAAC;IACxF,MAAM,GAAG,GAAG,GAAG,EAAE,GAAG,MAAM,CAAC,GAAG,MAAM,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC,CAAC,GAAG,IAAI,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,CAAC;IACvE,MAAM,MAAM,GAAG,CAAC,CAAa,EAAE,CAAS,EAAU,EAAE,CAClD,CAAC,CAAC,CAAC,CAAC,CAAC,CAAE,IAAI,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,CAAE,IAAI,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,CAAE,IAAI,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,CAAE,CAAC,KAAK,CAAC,CAAC;IAE3E,GAAG,EAAE,CAAC,CAAC,mBAAmB;IAC1B,GAAG,EAAE,CAAC,CAAC,kBAAkB;IACzB,GAAG,EAAE,CAAC,CAAC,sBAAsB;IAC7B,mCAAmC;IACnC,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,EAAE,EAAE,CAAC,EAAE;QAAE,GAAG,CAAC,IAAI,CAAC,IAAI,CAAC,GAAG,EAAE,CAAC,IAAI,CAAC,CAAC,CAAC;IACxD,GAAG,EAAE,CAAC,CAAC,sBAAsB;IAE7B,qCAAqC;IACrC,IAAI,KAAK,GAAG,CAAC,CAAC;IACd,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,EAAE,EAAE,CAAC,EAAE,EAAE,CAAC;QAC5B,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,EAAE,EAAE,CAAC,EAAE;YAAE,GAAG,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,cAAc;QACxD,MAAM,IAAI,GAAG,GAAG,EAAE,CAAC;QACnB,MAAM,CAAC,GAAG,EAAE,IAAI,CAAC,CAAC;QAClB,KAAK,IAAI,IAAI,GAAG,CAAC,CAAC;QAClB,IAAI,CAAC,GAAG,EAAE,EAAE,EAAE,CAAC,CAAC,CAAC,WAAW;QAC5B,IAAI,CAAC,GAAG,EAAE,EAAE,EAAE,CAAC,CAAC,CAAC,SAAS;QAC1B,MAAM,CAAC,GAAG,EAAE,GAAG,EAAE,CAAC,CAAC,CAAC,aAAa;QACjC,IAAI,QAAQ,GAAG,GAAG,EAAE,CAAC;QACrB,IAAI,QAAQ,KAAK,CAAC;YAAE,QAAQ,GAAG,CAAC,CAAC;QACjC,MAAM,CAAC,GAAG,EAAE,QAAQ,CAAC,CAAC;IACxB,CAAC;IAED,GAAG,EAAE,CAAC,CAAC,sBAAsB;IAC7B,MAAM,MAAM,GAAG,EAAE,EAAE,CAAC;IACpB,IAAI,CAAC,GAAG,EAAE,MAAM,CAAC,CAAC;IAClB,IAAI,CAAC,GAAG,EAAE,EAAE,EAAE,CAAC,CAAC,CAAC,oBAAoB;IACrC,GAAG,EAAE,CAAC,CAAC,sBAAsB;IAE7B,8BAA8B;IAC9B,IAAI,MAAM,GAAG,CAAC,CAAC;IACf,IAAI,CAAC,GAAG,CAAC,CAAC;IACV,OAAO,CAAC,GAAG,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;QACvB,MAAM,EAAE,GAAG,EAAE,EAAE,CAAC;QAChB,IAAI,CAAC,GAAG,EAAE,EAAE,CAAC,CAAC;QACd,IAAI,EAAE,GAAG,MAAM;YAAE,MAAM,GAAG,EAAE,CAAC;IAC/B,CAAC;IACD,OAAO,CAAC,GAAG,GAAG,EAAE,CAAC,EAAE;QAAE,IAAI,CAAC,GAAG,EAAE,CAAC,CAAC,CAAC;IAElC,MAAM,CAAC,GAAG,EAAE,YAAY,CAAC,CAAC;IAC1B,GAAG,EAAE,CAAC,CAAC,sBAAsB;IAE7B,yDAAyD;IACzD,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,IAAI,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;QAC7B,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,IAAI,EAAE,CAAC,EAAE;YAAE,GAAG,CAAC,IAAI,CAAC,IAAI,CAAC,GAAG,EAAE,CAAC,IAAI,CAAC,CAAC,CAAC;IAC5D,CAAC;IAED,GAAG,EAAE,CAAC,CAAC,sBAAsB;IAC7B,6BAA6B;IAC7B,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,KAAK,IAAI,GAAG,GAAG,IAAI,CAAC,MAAM,EAAE,CAAC,EAAE;QAAE,GAAG,CAAC,IAAI,CAAC,IAAI,CAAC,GAAG,EAAE,CAAC,IAAI,CAAC,CAAC,CAAC;IAEhF,OAAO,UAAU,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC;AAC9B,CAAC;AAED,gCAAgC;AAChC,SAAS,OAAO,CAAC,IAAgB,EAAE,KAAa;IAC9C,MAAM,CAAC,GAAG,IAAI,CAAC,MAAM,GAAG,KAAK,CAAC;IAC9B,IAAI,CAAC,GAAG,EAAE,GAAG,CAAC,GAAG,EAAE;QAAE,OAAO,EAAE,GAAG,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;IAE5C,0BAA0B;IAC1B,IAAI,IAAI,CAAC,KAAK,CAAC,KAAK,IAAI,IAAI,IAAI,CAAC,KAAK,GAAG,CAAC,CAAC,KAAK,IAAI;QAChD,IAAI,CAAC,KAAK,GAAG,CAAC,CAAC,KAAK,IAAI,IAAI,IAAI,CAAC,KAAK,GAAG,CAAC,CAAC,KAAK,IAAI,EAAE,CAAC;QACzD,OAAO,CAAC,CAAC,CAAC;IACZ,CAAC;IAED,0BAA0B;IAC1B,IAAI,IAAI,CAAC,KAAK,GAAG,CAAC,CAAC,KAAK,IAAI;QAAE,OAAO,CAAC,CAAC,CAAC;IAExC,0BAA0B;IAC1B,IAAI,IAAI,CAAC,KAAK,GAAG,CAAC,CAAC,KAAK,IAAI;QAAE,OAAO,CAAC,CAAC,CAAC;IAExC,0BAA0B;IAC1B,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,EAAE,EAAE,CAAC,EAAE,EAAE,CAAC;QAC5B,IAAI,IAAI,CAAC,KAAK,GAAG,EAAE,GAAG,CAAC,GAAG,CAAC,CAAE,GAAG,IAAI;YAAE,OAAO,CAAC,CAAC,CAAC;IAClD,CAAC;IAED,WAAW,CAAC,IAAI,CAAC,QAAQ,CAAC,KAAK,GAAG,EAAE,CAAC,EAAE,EAAE,CAAC,CAAC;IAE3C,OAAO,CAAC,CAAC;AACX,CAAC;AAED,6BAA6B;AAC7B,MAAM,CAAC,MAAM,KAAK,GAAa;IAC7B,IAAI,EAAE,aAAa;IACnB,IAAI,EAAE,OAAO;IACb,MAAM,EAAE,SAAS;CAClB,CAAC"}

package/dist/pw-fuchs.d.ts

@@ -0,0 +1,4 @@
+import { type PwFormat } from './prowiz.js';
+/** pw_fchs: "Fuchs Tracker". */
+export declare const pwFchs: PwFormat;
+//# sourceMappingURL=pw-fuchs.d.ts.map

package/dist/pw-fuchs.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"pw-fuchs.d.ts","sourceRoot":"","sources":["../src/pw-fuchs.ts"],"names":[],"mappings":"AAKA,OAAO,EAAuC,KAAK,QAAQ,EAAE,MAAM,aAAa,CAAC;AA8IjF,gCAAgC;AAChC,eAAO,MAAM,MAAM,EAAE,QAIpB,CAAC"}

package/dist/pw-fuchs.js

@@ -0,0 +1,139 @@
+// SPDX-License-Identifier: BSD-3-Clause
+// Copyright (c) 2026 Bitti09 — modplayjs contributors
+// Ported from: libxmp src/loaders/prowizard/fuchs.c (Fuchs Tracker) —
+// depack_fuchs :35-143, test_fuchs :145-200.
+import { readmem16b, readmem32b, pwReadTitle } from './prowiz.js';
+const PW_MOD_MAGIC = 0x4d2e4b2e; // 'M.K.'
+function put32b(out, v) {
+    out.push((v >>> 24) & 0xff, (v >> 16) & 0xff, (v >> 8) & 0xff, v & 0xff);
+}
+/** depack_fuchs (fuchs.c:35-143). */
+function depackFuchs(data, start) {
+    let pos = start;
+    const out = [];
+    const u16 = () => { const v = readmem16b(data, pos); pos += 2; return v; };
+    const u32 = () => { const v = readmem32b(data, pos); pos += 4; return v; };
+    // Fuchs builds a full 1080-byte PTK header in `data`.
+    const hdr = new Uint8Array(1080);
+    // title: 10 bytes moved (fuchs.c:40)
+    for (let i = 0; i < 10; i++)
+        hdr[i] = data[pos++] ?? 0;
+    u32(); // all sample data size
+    // sample sizes (fuchs.c:44-49): smp_len → data[42+i*30], [43+i*30]
+    const smpLen = [];
+    for (let i = 0; i < 16; i++) {
+        const l = u16();
+        smpLen.push(l);
+        hdr[42 + i * 30] = (l >> 9) & 0xff;
+        hdr[43 + i * 30] = (l >> 1) & 0xff;
+    }
+    // volumes (fuchs.c:52-55): data[45+i*30]
+    for (let i = 0; i < 16; i++) {
+        hdr[45 + i * 30] = u16() & 0xff;
+    }
+    // loop start (fuchs.c:58-63)
+    const loopStart = [];
+    for (let i = 0; i < 16; i++) {
+        const l = u16();
+        loopStart.push(l);
+        hdr[46 + i * 30] = (l >> 1) & 0xff;
+    }
+    // replen (fuchs.c:66-79)
+    for (let i = 0; i < 16; i++) {
+        const loopSize = smpLen[i] - loopStart[i];
+        if (loopSize === 0 || loopStart[i] === 0) {
+            hdr[49 + i * 30] = 1;
+        }
+        else {
+            hdr[48 + i * 30] = (loopSize >> 9) & 0xff;
+            hdr[49 + i * 30] = (loopSize >> 1) & 0xff;
+        }
+    }
+    // fill replens for samples 16..30 with $0001 (fuchs.c:82-85)
+    for (let i = 16; i < 31; i++) {
+        hdr[49 + i * 30] = 1;
+    }
+    // pattern list (fuchs.c:89-99): count @950, ntk @951, 40 u16 entries
+    hdr[950] = u16() & 0xff;
+    hdr[951] = 0x7f;
+    let maxPat = 0;
+    for (let i = 0; i < 40; i++) {
+        const pat = u16();
+        hdr[952 + i] = pat & 0xff;
+        if (pat > maxPat)
+            maxPat = pat;
+    }
+    // write the 1080-byte header (fuchs.c:102-106)
+    for (let i = 0; i < 1080; i++)
+        out.push(hdr[i]);
+    put32b(out, PW_MOD_MAGIC);
+    // pattern data (fuchs.c:109-127): bypass "SONG" ID, read size, convert
+    u32(); // "SONG" ID
+    const patSize = u32();
+    if (patSize === 0 || patSize > 0x20000 || (patSize & 0x3) !== 0) {
+        throw new Error('fuchs: bad pattern size');
+    }
+    const tmp = new Uint8Array(patSize);
+    for (let i = 0; i < patSize; i++)
+        tmp[i] = data[pos++] ?? 0;
+    // convert fx C arg back to hex value (fuchs.c:130-134)
+    for (let i = 0; i < patSize; i += 4) {
+        if ((tmp[i + 2] & 0x0f) === 0x0c) {
+            const x = tmp[i + 3];
+            tmp[i + 3] = 10 * (x >> 4) + (x & 0xf);
+        }
+    }
+    // write pattern data (fuchs.c:137-139)
+    for (let i = 0; i < patSize; i++)
+        out.push(tmp[i]);
+    // sample data (fuchs.c:142-149): bypass "INST" ID, sequential non-empty
+    pos += 4; // "INST" Id
+    for (let i = 0; i < 16; i++) {
+        if (smpLen[i] !== 0) {
+            for (let k = 0; k < smpLen[i] && pos < data.length; k++)
+                out.push(data[pos++] ?? 0);
+        }
+    }
+    return Uint8Array.from(out);
+}
+/** test_fuchs (fuchs.c:145-200). */
+function testFuchs(data, start) {
+    const s = data.length - start;
+    if (s < 196)
+        return 196 - s;
+    // "SONG" at 192 (fuchs.c:149-150)
+    if (readmem32b(data, start + 192) !== 0x534f4e47)
+        return -1;
+    // all sample size (fuchs.c:153-156)
+    const hdrSsize = readmem32b(data, start + 10);
+    if (hdrSsize <= 2 || hdrSsize >= 65535 * 16)
+        return -1;
+    // sample descriptions (fuchs.c:159-177): fields at i*2 strides per C
+    let ssize = 0;
+    for (let i = 0; i < 16; i++) {
+        const d = start + i * 2;
+        const len = readmem16b(data, d + 14);
+        const lstart = readmem16b(data, d + 78);
+        if (data[d + 46] > 0x40)
+            return -1; // volumes
+        if (len < lstart)
+            return -1;
+        ssize += len;
+    }
+    if (ssize <= 2 || ssize > hdrSsize)
+        return -1;
+    // pattern list entries <= 40 (fuchs.c:182-190)
+    for (let i = 0; i < 40; i++) {
+        if (data[start + i * 2 + 113] > 40)
+            return -1;
+    }
+    pwReadTitle(null, 0);
+    return 0;
+}
+/** pw_fchs: "Fuchs Tracker". */
+export const pwFchs = {
+    name: 'Fuchs Tracker',
+    test: testFuchs,
+    depack: depackFuchs,
+};
+//# sourceMappingURL=pw-fuchs.js.map