From 9f26257364cff6c4c70de76ecc3b38ed106065eb Mon Sep 17 00:00:00 2001
From: techmetx11 <techmetx11@disroot.org>
Date: Wed, 10 Apr 2024 16:39:03 +0000
Subject: [PATCH] Fixed bug in RLE decompressor, added order list

---
 src/engine/fileOps/tfm.cpp | 21 ++++++++++++++++++---
 1 file changed, 18 insertions(+), 3 deletions(-)

diff --git a/src/engine/fileOps/tfm.cpp b/src/engine/fileOps/tfm.cpp
index fcc5b2bc3..7c0e949ef 100644
--- a/src/engine/fileOps/tfm.cpp
+++ b/src/engine/fileOps/tfm.cpp
@@ -45,7 +45,9 @@ class TFMRLEReader {
     do {
       rleTag=readC();
       tagLenLeft|=(rleTag&0x7F)<<lenShift;
-      lenShift++;
+      lenShift += 7;
+      logD("RLE tag: %X, len shift: %d, len left: %d", rleTag, lenShift, tagLenLeft);
+
       // sync back since we've already read one character
       tagLenLeft--;
     } while (!(rleTag&0x80));
@@ -107,7 +109,9 @@ public:
   void read(unsigned char* b, size_t l) {
     int i=0;
     while(l--) {
-      b[i++]=readC();
+      unsigned char nextChar = readC();
+      b[i++]=nextChar;
+      logD("read next char: %x, index: %d", nextChar, i);
     }
   }
 
@@ -200,7 +204,7 @@ bool DivEngine::loadTFM(unsigned char* file, size_t len) {
 
     // notes
     logD("parsing notes");
-    reader.read(buffer, 384);
+    reader.read(buffer,384);
     String notes((const char*)buffer,strnlen((const char*)buffer,384));
 
     // fix \r\n to \n
@@ -210,6 +214,17 @@ bool DivEngine::loadTFM(unsigned char* file, size_t len) {
       }
     }
 
+    // order list
+    logD("parsing order list");
+    unsigned char orderList[256];
+    reader.read(orderList,256);
+
+    for (int i=0; i<ds.subsong[0]->ordersLen;i++) {
+      for (int j=0; j<6; j++) {
+        ds.subsong[0]->orders.ord[j][i]=orderList[i];
+      }
+    }
+
     ds.notes=notes;
     BUSY_BEGIN_SOFT;
     saveLock.lock();