badline 0.12.1 → 0.14.0

data/lib/badline/chips/vic/color_patches.rb

@@ -0,0 +1,38 @@
+# frozen_string_literal: true
+
+module Badline
+  module Chips
+    class VIC
+      # A mid-line color register write becomes visible one pixel into the
+      # column emitted the cycle after the write. That emit paints the whole
+      # column with the new color, so the boundary pixel is patched back to
+      # the old one before the line is finished. On the 8565 the boundary
+      # pixel shows light grey instead, the grey dot, whatever the old and new
+      # colors are.
+      class ColorPatches
+        def initialize(sequencer, grey_dots: false)
+          @sequencer = sequencer
+          @grey_dots = grey_dots
+          @patches = []
+        end
+
+        def clear = @patches.clear
+
+        def log(reg, old, value, boundary_x)
+          @patches << [boundary_x, reg, @grey_dots ? GREY_DOT : old & 0x0f, value & 0x0f]
+        end
+
+        def apply(colors, fg_mask)
+          @patches.each do |(x, reg, old, value)|
+            border = @sequencer.border_at?(x)
+            if reg == 0x20
+              colors[x] = old if border
+            elsif !border && !fg_mask[x] && colors[x] == value
+              colors[x] = old
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/lib/badline/chips/vic/display_state.rb

@@ -0,0 +1,168 @@
+# frozen_string_literal: true
+
+module Badline
+  module Chips
+    class VIC
+      # = VIC-II display state
+      #
+      # The bad line condition, the video counters it drives, and the DMA it
+      # starts. A condition that arrives mid-line opens the row late, which is
+      # what makes the screen scroll sideways or lose a column of cells.
+      class DisplayState
+        FIRST_LINE = 0x30 # 48: bad lines and the DEN-at-$30 latch begin here
+        LAST_LINE  = 0xf7 # 247
+        COLUMNS_PER_ROW = 40
+
+        # AEC follows BA three cycles later; the c-accesses before it read
+        # the bus the CPU still drives.
+        BA_DELAY = 3
+
+        # Columns run two ahead of Bauer's cycle numbers: column 10 is his
+        # cycle 12. BA falls on a match in columns 10-52, the c-accesses run
+        # in 13-52 and the g-accesses in 14-53. VC and VMLI reload in column
+        # 12 and the row counter steps in column 56.
+        DMA_FIRST = 10
+        DMA_LAST = 52
+        FETCH_FIRST = 13
+        GRAPHICS_FIRST = 14
+        GRAPHICS_LAST = 53
+        LOAD_COLUMN = 12
+        RC_COLUMN = 56
+
+        GRAPHICS_COLUMNS = Array.new(65) { |column| column.between?(GRAPHICS_FIRST, GRAPHICS_LAST) }.freeze
+
+        attr_reader :vc_base, :vc, :vmli, :rc, :bad_lines_enabled
+
+        # The wrap column is the last column of a rasterline, 62 on the 6569,
+        # which already compares against the line about to start, the same
+        # wrap the raster IRQ latch uses.
+        def initialize(registers, wrap_column = 62)
+          @registers = registers
+          @wrap_column = wrap_column
+          @vc_base = 0
+          @vc = 0
+          @vmli = 0
+          @rc = 0
+          @display = false
+          @bad_lines_enabled = false
+          @matched = false
+          @ba = nil
+          new_line(0)
+        end
+
+        def display? = @display
+
+        # Sets VCBASE, VC, RC and VMLI, in that order, and the display and
+        # bad-line flags, as a VICE snapshot gives them.
+        def restore_counters(counters, display, bad_lines_enabled)
+          @vc_base, @vc, @rc, @vmli = counters
+          @display = display
+          @bad_lines_enabled = bad_lines_enabled
+        end
+
+        def idle? = !@display
+        def bad_line? = !@ba.nil?
+
+        # The bad line condition as the last column compared it.
+        def bad_line_condition? = @matched
+
+        # True once AEC has followed BA down and the VIC owns the bus.
+        def bus_taken?(column) = @ba ? column >= @ba + BA_DELAY : false
+
+        # The CPU kept the bus through the cycle before +column+, so on a bad
+        # line AEC falls BA_DELAY cycles after it at the earliest.
+        def keep_bus(column)
+          @ba &&= column
+        end
+
+        def fetching?(column)
+          @matched && column >= FETCH_FIRST && column <= DMA_LAST
+        end
+
+        def new_frame
+          @vc_base = 0
+          @bad_lines_enabled = false
+        end
+
+        def new_line(line)
+          @ba = nil
+          raster_step(line)
+        end
+
+        # The raster counter moved on to +line+, at the line's start or, under
+        # the VIC-IIe's TEST bit, within it.
+        def raster_step(line)
+          @line_bits = line & 0b111
+          @den_line = line == FIRST_LINE
+          @in_window = line.between?(FIRST_LINE, LAST_LINE)
+        end
+
+        # Returns true when this compare opened display state.
+        def cycle(rasterline, column)
+          match = column == @wrap_column ? wrap_match(rasterline + 1) : line_match
+          @matched = match
+          opened = false
+          if match
+            opened = !@display
+            @display = true
+            @ba = column if @ba.nil? && column >= DMA_FIRST && column <= DMA_LAST
+          end
+          load_counters(match) if column == LOAD_COLUMN
+          check_row_counter(match) if column == RC_COLUMN
+          opened
+        end
+
+        # A g-access in display state consumes one buffer cell and one video
+        # matrix address. A row that opens mid-line makes fewer of them, and
+        # the shortfall carries into VCBASE.
+        def graphics_column?(column) = GRAPHICS_COLUMNS[column]
+
+        def graphics_access(column)
+          return unless graphics_column?(column)
+
+          @vc = (@vc + 1) & 0x3ff
+          @vmli += 1
+        end
+
+        private
+
+        def line_match
+          latch_den if @den_line
+          @bad_lines_enabled && @in_window && @line_bits == @registers.yscroll
+        end
+
+        # The wrap column compares against the line about to start. The DEN
+        # latch is level-sensitive across the counter's increment, so this one
+        # column sees both the line ending and the line starting.
+        def wrap_match(line)
+          latch_den if @den_line || line == FIRST_LINE
+          return false unless line.between?(FIRST_LINE, LAST_LINE)
+
+          @bad_lines_enabled && (line & 0b111) == @registers.yscroll
+        end
+
+        def latch_den
+          @bad_lines_enabled = true if @registers.display_enabled?
+        end
+
+        def load_counters(match)
+          @vc = @vc_base
+          @vmli = 0
+          @rc = 0 if match
+        end
+
+        # A condition still standing when the row counter wraps puts the logic
+        # straight back into display state, so a forced row rolls into the
+        # next one instead of leaving the line idle (Bauer 3.7.2 step 5).
+        def check_row_counter(match)
+          if @rc == 7
+            @display = false
+            @vc_base = @vc
+          end
+          @display ||= match
+          @rc = (@rc + 1) & 0b111 if @display
+        end
+      end
+    end
+  end
+end

data/lib/badline/chips/vic/graphics_mode.rb

@@ -0,0 +1,166 @@
+# frozen_string_literal: true
+
+module Badline
+  module Chips
+    class VIC
+      module GraphicsMode
+        # Foreground masks depend only on the data byte, so each byte maps to a
+        # precomputed frozen pattern shared by reference instead of being
+        # written out pixel by pixel.
+        HIRES_FG = Array.new(256) do |data|
+          Array.new(8) { |i| data.anybits?(1 << (7 - i)) }.freeze
+        end.freeze
+
+        # The high bit of each 2-bit pair (10/11) is foreground.
+        PAIR_FG = Array.new(256) do |data|
+          Array.new(8) { |i| (data >> (6 - (i & ~1))).allbits?(0b10) }.freeze
+        end.freeze
+
+        # The same patterns as masks, all bits set for a foreground pixel.
+        HIRES_MASK = Array.new(256) do |data|
+          Array.new(8) { |i| data.anybits?(1 << (7 - i)) ? -1 : 0 }.freeze
+        end.freeze
+
+        NO_FG = HIRES_FG[0]
+
+        module Hires
+          def paint_hires(data, color, background, seq)
+            seq.cur_fg = HIRES_FG[data]
+            colors = seq.cur_colors
+            return colors.fill(background) if data.zero?
+
+            mask = HIRES_MASK[data]
+            flip = color ^ background
+            colors[0] = background ^ (flip & mask[0])
+            colors[1] = background ^ (flip & mask[1])
+            colors[2] = background ^ (flip & mask[2])
+            colors[3] = background ^ (flip & mask[3])
+            colors[4] = background ^ (flip & mask[4])
+            colors[5] = background ^ (flip & mask[5])
+            colors[6] = background ^ (flip & mask[6])
+            colors[7] = background ^ (flip & mask[7])
+          end
+        end
+
+        # Decodes 2-bit pixel pairs into double-wide pixels, each pair indexing
+        # the four colours in the mode's palette.
+        module Multicolor
+          def paint_pairs(data, seq)
+            seq.cur_fg = PAIR_FG[data]
+            colors = seq.cur_colors
+            palette = @palette
+            colors[0] = colors[1] = palette[data >> 6]
+            colors[2] = colors[3] = palette[(data >> 4) & 0b11]
+            colors[4] = colors[5] = palette[(data >> 2) & 0b11]
+            colors[6] = colors[7] = palette[data & 0b11]
+          end
+        end
+
+        # Each mode paints the byte a g-access read with the screen byte and
+        # colour nibble it latched. The VIC reads the byte itself, in the
+        # g-access column. #fg gives the foreground mask #paint would leave,
+        # without the colours.
+        class Text
+          include Hires
+
+          def paint(data, _screencode, color, seq)
+            paint_hires(data, color, seq.registers.background, seq)
+          end
+
+          def fg(data, _screencode, _color) = HIRES_FG[data]
+        end
+
+        class MulticolorText
+          include Hires
+          include Multicolor
+
+          def initialize
+            @palette = Array.new(4, 0)
+          end
+
+          def paint(data, _screencode, color, seq)
+            registers = seq.registers
+            if color.anybits?(0x08)
+              palette = @palette
+              palette[0] = registers.background(0)
+              palette[1] = registers.background(1)
+              palette[2] = registers.background(2)
+              palette[3] = color & 0x07
+              paint_pairs(data, seq)
+            else
+              paint_hires(data, color & 0x07, registers.background, seq)
+            end
+          end
+
+          def fg(data, _screencode, color) = color.anybits?(0x08) ? PAIR_FG[data] : HIRES_FG[data]
+        end
+
+        class ExtendedBackgroundText
+          include Hires
+
+          def paint(data, screencode, color, seq)
+            background = seq.registers.background((screencode >> 6) & 0b11)
+            paint_hires(data, color, background, seq)
+          end
+
+          def fg(data, _screencode, _color) = HIRES_FG[data]
+        end
+
+        class Bitmap
+          include Hires
+
+          def paint(data, screencode, _color, seq)
+            foreground = (screencode >> 4) & 0x0f
+            background = screencode & 0x0f
+            paint_hires(data, foreground, background, seq)
+          end
+
+          def fg(data, _screencode, _color) = HIRES_FG[data]
+        end
+
+        class MulticolorBitmap
+          include Multicolor
+
+          def initialize
+            @palette = Array.new(4, 0)
+          end
+
+          def paint(data, screencode, color, seq)
+            palette = @palette
+            palette[0] = seq.registers.background(0)
+            palette[1] = (screencode >> 4) & 0x0f
+            palette[2] = screencode & 0x0f
+            palette[3] = color & 0x0f
+            paint_pairs(data, seq)
+          end
+
+          def fg(data, _screencode, _color) = PAIR_FG[data]
+        end
+
+        class Null
+          def paint(_data, _screencode, _color, seq)
+            seq.cur_fg = NO_FG
+            seq.cur_colors.fill(0)
+          end
+
+          def fg(_data, _screencode, _color) = NO_FG
+        end
+
+        NULL_MODE = Null.new
+
+        # Indexed by ECM/BMM/MCM; the three invalid combinations decode to
+        # black.
+        MODES = [
+          Text.new,                   # 000 standard text
+          MulticolorText.new,         # 001 multicolour text
+          Bitmap.new,                 # 010 standard bitmap
+          MulticolorBitmap.new,       # 011 multicolour bitmap
+          ExtendedBackgroundText.new, # 100 ECM text
+          NULL_MODE,                  # 101 invalid
+          NULL_MODE,                  # 110 invalid
+          NULL_MODE                   # 111 invalid
+        ].freeze
+      end
+    end
+  end
+end

data/lib/badline/chips/vic/graphics_shifter.rb

@@ -0,0 +1,183 @@
+# frozen_string_literal: true
+
+module Badline
+  module Chips
+    class VIC
+      # The graphics shift register, pixel by pixel, for the groups where a
+      # mode or XSCROLL change lands (VICE x64sc `draw_graphics`). The
+      # sequencer paints whole bytes everywhere else, which comes to the same
+      # thing while nothing changes.
+      #
+      # The byte a group draws loads at pixel XSCROLL. ECM and BMM take hold at
+      # pixel 4 as they rise and at pixel 6 as they fall (the 6569's colour
+      # latency), except that BMM falls at pixel 5 out of any mode but hi-res
+      # bitmap. MCM takes hold at pixel 4 for the colour lookup but only at
+      # pixel 7 for how the register is read, where a rising MCM also resets
+      # the multicolour flip-flop. An MCM that falls out of the invalid
+      # ECM+MCM mode is a pixel later on both counts: the lookup changes at
+      # pixel 5 and the read at the next group's pixel 0. The mode bits are
+      # the sequencer's: ECM 4, BMM 2, MCM 1.
+      #
+      # The 8565 has no colour latency: ECM and BMM take hold, rising or
+      # falling, at the next group's pixel 0, and an MCM that falls out of
+      # ECM+MCM does so on time. Where that pixel 0 takes the group out of an
+      # invalid mode, it is still black into hi-res text, and so is a
+      # background pixel into multicolour bitmap.
+      class GraphicsShifter
+        ECM = 0b100
+        ECM_BMM = 0b110
+        MULTICOLOR_BITMAP = 0b011
+        ECM_MCM = 0b101
+        BMM = 0b010
+
+        # The group #draw painted, and which of its pixels are foreground.
+        attr_reader :colors, :fg
+
+        def initialize(registers, model: :mos6569)
+          @registers = registers
+          @latency = model != :mos8565
+          @next_ecm_bmm = 0
+          @black_below = 0
+          @colors = Array.new(8, 0)
+          @fg = Array.new(8, false)
+          @gbuf = 0
+          @vbuf = 0
+          @cbuf = 0
+          @flop = 0
+          @pixel = 0
+          @mode_lookup = 0
+          @mode_read = 0
+          @late_mcm = false
+          @late_read = false
+        end
+
+        # Rebuilds the state at the end of a group that painted whole bytes:
+        # the byte loaded at pixel shift under an unchanging mode.
+        def prime(data, screencode, color, shift, mode)
+          @mode_lookup = mode
+          @next_ecm_bmm = mode & ECM_BMM
+          @mode_read = mode & 1
+          @late_read = false
+          load(data, screencode, color)
+          (8 - shift).times { read_pixel }
+        end
+
+        # Draws one group, loading the byte at pixel shift.
+        def draw(data, screencode, color, shift, mode)
+          i = 0
+          while i < 8
+            step_mode(i, mode)
+            load(data, screencode, color) if i == shift
+            pixel = read_pixel
+            @colors[i] = pixel < @black_below ? 0 : lookup(pixel)
+            @black_below = 0
+            @fg[i] = pixel >= 2
+            i += 1
+          end
+          @next_ecm_bmm = mode & ECM_BMM
+        end
+
+        private
+
+        def step_mode(pixel, mode)
+          case pixel
+          when 0 then start_group
+          when 4 then step_lookup(mode)
+          when 5 then step_early_fall(mode)
+          when 6 then @mode_lookup &= mode | 1 if @latency
+          when 7 then step_read
+          end
+        end
+
+        def start_group
+          end_late_read
+          return if @latency
+
+          invalid = @mode_lookup > ECM
+          @mode_lookup = (@mode_lookup & ~ECM_BMM) | @next_ecm_bmm
+          @black_below = black_pixels_out_of_invalid if invalid
+        end
+
+        # The pixel values below which pixel 0 stays black as the group leaves
+        # an invalid mode: all four into hi-res text, the background ones into
+        # multicolour bitmap.
+        def black_pixels_out_of_invalid
+          case @mode_lookup
+          when 0 then 4
+          when MULTICOLOR_BITMAP then 2
+          else 0
+          end
+        end
+
+        def step_lookup(mode)
+          @late_mcm = @latency && @mode_lookup.allbits?(ECM_MCM) && mode.nobits?(1)
+          rising = @latency ? mode & ECM_BMM : 0
+          @mode_lookup = (@mode_lookup & ~1) | (mode & 1) | (@late_mcm ? 1 : 0) | rising
+        end
+
+        def step_early_fall(mode)
+          @mode_lookup &= ~1 if @late_mcm
+          @mode_lookup &= mode | ~BMM if @latency && @mode_lookup != BMM
+        end
+
+        def step_read
+          return @late_read = true if @late_mcm
+
+          mcm = @mode_lookup & 1
+          @flop = 0 if mcm == 1 && @mode_read.zero?
+          @mode_read = mcm
+        end
+
+        def end_late_read
+          return unless @late_read
+
+          @mode_read = 0
+          @late_read = false
+        end
+
+        def load(data, screencode, color)
+          @gbuf = data
+          @vbuf = screencode
+          @cbuf = color & 0x0f
+          @flop = 1
+        end
+
+        def read_pixel
+          multicolor = multicolor?
+          if @mode_read == 1 && multicolor
+            @pixel = @gbuf >> 6 if @flop == 1
+          elsif @gbuf.anybits?(0x80)
+            @pixel = multicolor && @mode_read.zero? ? 2 : 3
+          else
+            @pixel = 0
+          end
+          @gbuf = (@gbuf << 1) & 0xff
+          @flop ^= 1
+          @pixel
+        end
+
+        def multicolor? = @mode_lookup.anybits?(BMM) || @cbuf.anybits?(0x08)
+
+        def lookup(pixel)
+          case @mode_lookup
+          when 0 then pixel < 2 ? @registers.background : @cbuf
+          when 1 then pixel == 3 ? @cbuf & 0x07 : @registers.background(pixel)
+          when 2 then pixel < 2 ? @vbuf & 0x0f : @vbuf >> 4
+          when 3 then multicolor_bitmap(pixel)
+          when 4 then pixel < 2 ? @registers.background(@vbuf >> 6) : @cbuf
+          else 0
+          end
+        end
+
+        def multicolor_bitmap(pixel)
+          case pixel
+          when 0 then @registers.background
+          when 1 then @vbuf >> 4
+          when 2 then @vbuf & 0x0f
+          else @cbuf
+          end
+        end
+      end
+    end
+  end
+end