From a94818f04b6c1a932eff9222765812dc301ddf3a Mon Sep 17 00:00:00 2001
From: tildearrow <me@tildearrow.org>
Date: Fri, 28 Jun 2024 16:24:31 -0500
Subject: [PATCH] S3M import: freaking BCD

---
 src/engine/fileOps/s3m.cpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/engine/fileOps/s3m.cpp b/src/engine/fileOps/s3m.cpp
index 0c3878b00..c60434eea 100644
--- a/src/engine/fileOps/s3m.cpp
+++ b/src/engine/fileOps/s3m.cpp
@@ -881,7 +881,7 @@ bool DivEngine::loadS3M(unsigned char* file, size_t len) {
               break;
             case 'C': // next order
               p->data[curRow][effectCol[chan]++]=0x0d;
-              p->data[curRow][effectCol[chan]++]=effectVal;
+              p->data[curRow][effectCol[chan]++]=(effectVal>>4)*10+(effectVal&15);
               break;
             case 'D': // vol slide
               if (effectVal!=0) {