diff --git a/src/core/memory.ml b/src/core/memory.ml index 3f8e443..54343d7 100644 --- a/src/core/memory.ml +++ b/src/core/memory.ml @@ -94,6 +94,7 @@ let inc mem addr = Bytes.set m x c; overflow + let update_timers mem cycles = let should_inc_div = Timer.update mem.timer_div cycles in if should_inc_div then ignore (inc mem.map gDIV); @@ -108,26 +109,13 @@ let update_timers mem cycles = end end -(* A tile is 8x8, with each pixel encoded in 2 bits: - * - the whole tile takes 16 bytes - * - each line takes 2 bytes - * - the first byte contains the least significant bit for the row - * - the second byte contains the upper bit - * - 8th bit is the leftmost - * - 1st bit is the rigthmost *) let background_map mem n = let bg_map = Array2.create Bigarray.int8_unsigned Bigarray.c_layout 8 8 in - let offset = match n with - | 0 -> 0x1800 (* VRAM starts at 0x8000 *) - | 1 -> 0x1C00 - | _ -> failwith "Invalid background map index" in Array2.fill bg_map 0; for j = 0 to (Array2.dim2 bg_map) - 1 do for i = 0 to (Array2.dim1 bg_map) - 1 do (* bg_map.{i, j} <- (i + j * Array2.dim1 bg_map) mod 4 *) - let mem_addr = i + j * Array2.dim1 bg_map in - let tile_index = Bytes.get mem.map.vram mem_addr |> int_of_char in - bg_map.{i, j} <- tile_index mod 4 + bg_map.{i, j} <- n done done; bg_map