From ba08d57df514ed24614cae4653fae0440003e53e Mon Sep 17 00:00:00 2001
From: Jeremy Penner <jeremy@sporktania.com>
Date: Sun, 3 Jan 2021 10:34:46 -0500
Subject: [PATCH] Fix ProDOS bitmap parsing

---
 Test.dsk       | Bin 143360 -> 143360 bytes
 asm/prodos.fnl |   2 +-
 2 files changed, 1 insertion(+), 1 deletion(-)

diff --git a/Test.dsk b/Test.dsk
index 4d67b11fe9213b269499da9740207aca52306b57..11a9afe902c8e7211d254cab67980d37eb8c1ad4 100644
GIT binary patch
delta 99
zcmV-p0G$7T;0S==2(SkO0tf%I2?O8-0VlKS2o^Y!fHboN49)?w0z>{hG}Oh?pv1w{
z#h}m9pwQCA)6<~a#nZ#xpw!Qx)62=w+}r@IkiYN=u93eW%B)O1A|PXH#Dg?|w={qO
F%&&(HG%x@F

delta 97
zcmV-n0G|JV;0S==2(SkO0s#KA2?O8-0YJ0r2o^XpjSRqz0Kg!V{ve6|ATRqMSo|OW
zzhyBX!ug=e@96HJ!t(F$>+`Olxv#Ocud=YQwgj^Q4A23y0z>{hl0h_sG=R4>fC0>}
DhAJ;$

diff --git a/asm/prodos.fnl b/asm/prodos.fnl
index 142a95d..27b1351 100644
--- a/asm/prodos.fnl
+++ b/asm/prodos.fnl
@@ -246,7 +246,7 @@
 (fn bit-in-bytes [bytes ibit]
   (local ibyte (math.floor (/ ibit 8)))
   (local byte (string.byte (bytes:sub (+ ibyte 1) (+ ibyte 1))))
-  (local mask (bit.lshift 1 (% ibit 8)))
+  (local mask (bit.rshift 0x80 (% ibit 8)))
   (values byte mask ibyte))
 
 (fn Prodos.parse-bitmap [self]