Fix ProDOS bitmap parsing

2021-01-03 10:34:46 -05:00 · 2021-01-03 10:34:46 -05:00 · ba08d57df5
parent e07992022b
commit ba08d57df5
2 changed files with 1 additions and 1 deletions
--- a/Test.dsk
+++ b/Test.dsk
--- 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]