SpindleyQ/honeylisp
1
1
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Fix ProDOS bitmap parsing

Browse source
This commit is contained in:
Jeremy Penner 2021-01-03 10:34:46 -05:00
parent e07992022b
commit ba08d57df5
2 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
Test.dsk
View file

Binary file not shown.

2
asm/prodos.fnl
View file

@ -246,7 +246,7 @@
(fn bit-in-bytes [bytes ibit] (fn bit-in-bytes [bytes ibit]
(local ibyte (math.floor (/ ibit 8))) (local ibyte (math.floor (/ ibit 8)))
(local byte (string.byte (bytes:sub (+ ibyte 1) (+ ibyte 1)))) (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)) (values byte mask ibyte))
(fn Prodos.parse-bitmap [self] (fn Prodos.parse-bitmap [self]