badline 0.10.1 → 0.11.1

data/lib/badline/z80/registers.rb

@@ -0,0 +1,120 @@
+# frozen_string_literal: true
+
+module Badline
+  class Z80
+    # The register file. Opcodes name 8-bit registers by a 3-bit index,
+    # B C D E H L (HL) A, and pairs by a 2-bit one, BC DE HL SP, or BC DE
+    # HL AF for PUSH and POP. After a DD or FD prefix, HL means IX or IY
+    # and H and L their halves, except beside an (IX+d) operand.
+    module Registers
+      attr_accessor :a, :f, :b, :c, :d, :e, :h, :l, :i, :r, :pc, :sp, :ix, :iy, :wz, :im, :q,
+                    :af_alt, :bc_alt, :de_alt, :hl_alt, :iff1, :iff2, :halted, :after_ei, :after_ld_a_ir
+
+      def af = (@a << 8) | @f
+      def bc = (@b << 8) | @c
+      def de = (@d << 8) | @e
+      def hl = (@h << 8) | @l
+
+      def af=(value)
+        @a = value >> 8
+        @f = value & 0xff
+      end
+
+      def bc=(value)
+        @b = value >> 8
+        @c = value & 0xff
+      end
+
+      def de=(value)
+        @d = value >> 8
+        @e = value & 0xff
+      end
+
+      def hl=(value)
+        @h = value >> 8
+        @l = value & 0xff
+      end
+
+      private
+
+      def register(index)
+        case index
+        when 0 then @b
+        when 1 then @c
+        when 2 then @d
+        when 3 then @e
+        when 4 then @prefix.zero? ? @h : index_register >> 8
+        when 5 then @prefix.zero? ? @l : index_register & 0xff
+        else @a
+        end
+      end
+
+      def set_register(index, value)
+        case index
+        when 0 then @b = value
+        when 1 then @c = value
+        when 2 then @d = value
+        when 3 then @e = value
+        when 4 then @prefix.zero? ? @h = value : self.index_register = (index_register & 0xff) | (value << 8)
+        when 5 then @prefix.zero? ? @l = value : self.index_register = (index_register & 0xff00) | value
+        else @a = value
+        end
+      end
+
+      # The register an (HL) or (IX+d) operand sits beside: H and L are
+      # always themselves.
+      def plain_register(index)
+        case index
+        when 4 then @h
+        when 5 then @l
+        else register(index)
+        end
+      end
+
+      def set_plain_register(index, value)
+        case index
+        when 4 then @h = value
+        when 5 then @l = value
+        else set_register(index, value)
+        end
+      end
+
+      def pair(index)
+        case index
+        when 0 then bc
+        when 1 then de
+        when 2 then hl_or_index
+        else @sp
+        end
+      end
+
+      def set_pair(index, value)
+        case index
+        when 0 then self.bc = value
+        when 1 then self.de = value
+        when 2 then self.hl_or_index = value
+        else @sp = value
+        end
+      end
+
+      # The pairs PUSH and POP name, with AF in place of SP.
+      def stack_pair(index) = index == 3 ? af : pair(index)
+
+      def set_stack_pair(index, value)
+        index == 3 ? self.af = value : set_pair(index, value)
+      end
+
+      def hl_or_index = @prefix.zero? ? hl : index_register
+
+      def hl_or_index=(value)
+        @prefix.zero? ? self.hl = value : self.index_register = value
+      end
+
+      def index_register = @prefix == 1 ? @ix : @iy
+
+      def index_register=(value)
+        @prefix == 1 ? @ix = value : @iy = value
+      end
+    end
+  end
+end

data/lib/badline/z80/shifts.rb

@@ -0,0 +1,64 @@
+# frozen_string_literal: true
+
+module Badline
+  class Z80
+    # Rotates, shifts and the bit operations.
+    module Shifts
+      private
+
+      # RLCA RRCA RLA RRA, which leave S, Z and P/V alone.
+      def rotate_a(operation)
+        carry = operation.even? ? @a >> 7 : @a & 1
+        @a = shifted(operation, @a, carry)
+        assign_flags((@f & (SF | ZF | PF)) | (@a & XYF) | carry)
+      end
+
+      # The CB page's rotates and shifts by bits 5-3: RLC RRC RL RR SLA SRA
+      # SLL SRL. SLL shifts a 1 in.
+      def shift(operation, value)
+        carry = operation.even? ? value >> 7 : value & 1
+        result = shifted(operation, value, carry)
+        assign_flags(SZ53P[result] | carry)
+        result
+      end
+
+      def shifted(operation, value, carry)
+        case operation
+        when 0 then ((value << 1) | carry) & 0xff
+        when 1 then (value >> 1) | (carry << 7)
+        when 2 then ((value << 1) | (@f & CF)) & 0xff
+        when 3 then (value >> 1) | ((@f & CF) << 7)
+        when 4 then (value << 1) & 0xff
+        when 5 then (value >> 1) | (value & 0x80)
+        when 6 then ((value << 1) | 1) & 0xff
+        else value >> 1
+        end
+      end
+
+      # BIT n tests a bit of +value+ and copies bits 5 and 3 from +source+:
+      # the operand for a register, WZ's high byte for a memory operand.
+      def bit(number, value, source)
+        tested = value & (1 << number)
+        flags = (@f & CF) | HF | (source & XYF) | (tested & SF)
+        flags |= ZF | PF if tested.zero?
+        assign_flags(flags)
+      end
+
+      # RRD and RLD rotate a digit through A and (HL).
+      def rotate_digits(left)
+        address = hl
+        value = read_byte(address)
+        @cycles += 4
+        if left
+          write_byte(address, ((value << 4) | (@a & 0x0f)) & 0xff)
+          @a = (@a & 0xf0) | (value >> 4)
+        else
+          write_byte(address, ((@a << 4) | (value >> 4)) & 0xff)
+          @a = (@a & 0xf0) | (value & 0x0f)
+        end
+        @wz = (address + 1) & 0xffff
+        assign_flags((@f & CF) | SZ53P[@a])
+      end
+    end
+  end
+end

data/lib/badline/z80.rb

@@ -0,0 +1,11 @@
+# frozen_string_literal: true
+
+require "badline/z80/core"
+
+module Badline
+  # The Zilog Z80 (NMOS), which the C128 has beside its 8502. It is not
+  # part of badline/core, so a machine that has one requires it.
+  class Z80
+    include Core
+  end
+end

data/lib/badline.rb

@@ -1,6 +1,7 @@
 # frozen_string_literal: true
 
 require "badline/core"
+require "badline/c128"
 require "badline/options"
 require "badline/data_path"
 require "badline/snapshot"

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: badline
 version: !ruby/object:Gem::Version
-  version: 0.10.1
+  version: 0.11.1
 platform: ruby
 authors:
 - Inge Jørgensen
@@ -71,6 +71,25 @@ files:
 - lib/badline/audio/stereo.rb
 - lib/badline/audio/terminal.rb
 - lib/badline/audio/wav.rb
+- lib/badline/c128.rb
+- lib/badline/c128/banks.rb
+- lib/badline/c128/bus.rb
+- lib/badline/c128/bus_state.rb
+- lib/badline/c128/color_lines.rb
+- lib/badline/c128/cpu.rb
+- lib/badline/c128/drives.rb
+- lib/badline/c128/fast_serial.rb
+- lib/badline/c128/keys.rb
+- lib/badline/c128/mmu.rb
+- lib/badline/c128/mmu_pages.rb
+- lib/badline/c128/model.rb
+- lib/badline/c128/modes.rb
+- lib/badline/c128/saved_state.rb
+- lib/badline/c128/vdc.rb
+- lib/badline/c128/vdc/memory.rb
+- lib/badline/c128/vdc/painter.rb
+- lib/badline/c128/vdc/raster.rb
+- lib/badline/c128/vdc/window.rb
 - lib/badline/cartridge.rb
 - lib/badline/cartridge/action_replay.rb
 - lib/badline/cartridge/atomic_power.rb
@@ -102,6 +121,7 @@ files:
 - lib/badline/checkpoint.rb
 - lib/badline/chrout_trap.rb
 - lib/badline/cia.rb
+- lib/badline/cia/fast_forward.rb
 - lib/badline/cia/interrupt_register.rb
 - lib/badline/cia/serial.rb
 - lib/badline/cia/state.rb
@@ -109,6 +129,7 @@ files:
 - lib/badline/color_memory.rb
 - lib/badline/computer.rb
 - lib/badline/computer/attachments.rb
+- lib/badline/computer/kernal_traps.rb
 - lib/badline/computer/saved_state.rb
 - lib/badline/control_ports.rb
 - lib/badline/core.rb
@@ -124,22 +145,34 @@ files:
 - lib/badline/data_path.rb
 - lib/badline/datasette.rb
 - lib/badline/debug_register.rb
+- lib/badline/drive.rb
+- lib/badline/drive/core.rb
+- lib/badline/drive/idle.rb
+- lib/badline/drive/idle_cpu.rb
+- lib/badline/drive/orbit.rb
+- lib/badline/drive/serial_lines.rb
+- lib/badline/drive/sleep.rb
+- lib/badline/drive/watch.rb
 - lib/badline/drive1541.rb
 - lib/badline/drive1541/bus.rb
+- lib/badline/drive1541/byte_ready.rb
 - lib/badline/drive1541/cpu.rb
 - lib/badline/drive1541/disk.rb
 - lib/badline/drive1541/disk_state.rb
 - lib/badline/drive1541/disk_via.rb
 - lib/badline/drive1541/gcr.rb
-- lib/badline/drive1541/idle.rb
 - lib/badline/drive1541/mechanism.rb
 - lib/badline/drive1541/mechanism_state.rb
-- lib/badline/drive1541/orbit.rb
 - lib/badline/drive1541/rotation.rb
 - lib/badline/drive1541/sector_reader.rb
 - lib/badline/drive1541/serial_port.rb
-- lib/badline/drive1541/sleep.rb
 - lib/badline/drive1541/track.rb
+- lib/badline/drive1571.rb
+- lib/badline/drive1571/bus.rb
+- lib/badline/drive1571/cpu.rb
+- lib/badline/drive1571/serial_port.rb
+- lib/badline/drive1571/serial_via.rb
+- lib/badline/drive1571/wd1770.rb
 - lib/badline/ffi.rb
 - lib/badline/frontend.rb
 - lib/badline/frontend/app.rb
@@ -174,6 +207,7 @@ files:
 - lib/badline/frontend/player_window.rb
 - lib/badline/frontend/scope.rb
 - lib/badline/frontend/screen.rb
+- lib/badline/frontend/screens.rb
 - lib/badline/frontend/screenshot.rb
 - lib/badline/frontend/sid_history.rb
 - lib/badline/frontend/sid_view.rb
@@ -229,6 +263,7 @@ files:
 - lib/badline/model.rb
 - lib/badline/options.rb
 - lib/badline/options/event.rb
+- lib/badline/options/family.rb
 - lib/badline/options/help.rb
 - lib/badline/options/option.rb
 - lib/badline/options/table.rb
@@ -248,9 +283,13 @@ files:
 - lib/badline/rom.rb
 - lib/badline/roms/README
 - lib/badline/roms/basic.rom
+- lib/badline/roms/c128/basic.rom
+- lib/badline/roms/c128/character.rom
+- lib/badline/roms/c128/kernal.rom
 - lib/badline/roms/c64gs.rom
 - lib/badline/roms/character.rom
 - lib/badline/roms/dos1541.rom
+- lib/badline/roms/dos1571.rom
 - lib/badline/roms/eapi/LICENSE.md
 - lib/badline/roms/eapi/README
 - lib/badline/roms/eapi/eapi-am29f040-14
@@ -362,6 +401,22 @@ files:
 - lib/badline/vic20/vic/painter.rb
 - lib/badline/vic20/vic/saved_state.rb
 - lib/badline/vic20/vic/text_window.rb
+- lib/badline/z80.rb
+- lib/badline/z80/arithmetic.rb
+- lib/badline/z80/bit_page.rb
+- lib/badline/z80/block_io.rb
+- lib/badline/z80/block_transfers.rb
+- lib/badline/z80/bus_cycles.rb
+- lib/badline/z80/core.rb
+- lib/badline/z80/exchanges.rb
+- lib/badline/z80/extended_page.rb
+- lib/badline/z80/flags.rb
+- lib/badline/z80/interrupt_acceptance.rb
+- lib/badline/z80/jumps.rb
+- lib/badline/z80/loads.rb
+- lib/badline/z80/main_page.rb
+- lib/badline/z80/registers.rb
+- lib/badline/z80/shifts.rb
 - packaging/homebrew/badline.rb
 homepage: https://github.com/elektronaut/badline
 licenses: