From 77ab02a17393baf77033e102b2173fd06c51eee8 Mon Sep 17 00:00:00 2001
From: tildearrow <me@tildearrow.org>
Date: Thu, 4 Jul 2024 15:41:23 -0500
Subject: [PATCH] S3M import; fix range of X effect

---
 src/engine/fileOps/s3m.cpp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/engine/fileOps/s3m.cpp b/src/engine/fileOps/s3m.cpp
index 3cc7c1239..9697b992b 100644
--- a/src/engine/fileOps/s3m.cpp
+++ b/src/engine/fileOps/s3m.cpp
@@ -1015,8 +1015,10 @@ bool DivEngine::loadS3M(unsigned char* file, size_t len) {
             case 'W': // global volume slide (!)
               break;
             case 'X': // panning (extension)
-              p->data[curRow][effectCol[chan]++]=0x80;
-              p->data[curRow][effectCol[chan]++]=effectVal;
+              if (effectVal<=0x80) {
+                p->data[curRow][effectCol[chan]++]=0x80;
+                p->data[curRow][effectCol[chan]++]=(effectVal&0x80)?0xff:(effectVal<<1);
+              }
               break;
             case 'Y': // panbrello (extension)
               break;