badline 0.12.1 → 0.14.0

data/lib/badline/kernal_trap/save.rb

@@ -18,32 +18,24 @@ module Badline
     class Save < FileRoutine
       SECONDARY = 0x61
 
-      # ST bit at $90
+      # ST bit
       DEVICE_NOT_PRESENT = 0x80
 
-      def initialize(cpu:, bus:, layout:, drive:)
+      def initialize(cpu:, bus:, layout:, dos:)
         super(cpu:, bus:, layout:)
-        @drive = drive
+        @dos = dos
         @saving = false
       end
 
-      def save_state(out)
-        out.boolean(@saving)
-      end
-
-      def load_state(input)
-        @saving = input.boolean?
-      end
-
       def call
         return unless active?
         return finish if @saving
-        return unless @drive.saves?
+        return unless @dos.saves?
 
-        @bus.poke(0xb9, SECONDARY)
+        @bus.poke(zero_page.secondary_address, SECONDARY)
         return @cpu.program_counter = @layout.missing_file_name_exit if name.empty?
 
-        @bus.poke(0x90, 0x00)
+        @bus.poke(zero_page.status, 0x00)
         @saving = true
         continue_with(@layout.saving_message, @layout.save)
       end
@@ -56,20 +48,18 @@ module Badline
 
       def finish
         @saving = false
-        saved = @drive.save(name, payload, replace: full_filename.start_with?("@"))
-        @bus.poke(0x90, DEVICE_NOT_PRESENT) unless saved
-        @bus.poke(0xac, @bus.peek(0xae))
-        @bus.poke(0xad, @bus.peek(0xaf))
+        saved = @dos.save(name, payload, replace: full_filename.start_with?("@"))
+        @bus.poke(zero_page.status, DEVICE_NOT_PRESENT) unless saved
+        poke_word(zero_page.start_address, peek_word(zero_page.end_address))
         @cpu.y = 0
         @cpu.status.overflow = true
         continue_with(@layout.clock_release, @layout.data_release, @layout.save_done)
       end
 
-      # Start address at $C1/$C2 (STAL), end address (exclusive) at
-      # $AE/$AF (EAL)
+      # Start address at STAL, end address (exclusive) at EAL
       def payload
-        start = uint16(@bus.peek(0xc1), @bus.peek(0xc2))
-        length = (uint16(@bus.peek(0xae), @bus.peek(0xaf)) - start) & 0xffff
+        start = peek_word(zero_page.save_start)
+        length = (peek_word(zero_page.end_address) - start) & 0xffff
         [low_byte(start), high_byte(start)] +
           Array.new(length) { |i| @layout.file_byte(@bus, (start + i) & 0xffff) }
       end

data/lib/badline/kernal_trap/serial.rb

@@ -23,9 +23,9 @@ module Badline
 
       NO_DATA = [0x0d, EOI | READ_TIMEOUT].freeze
 
-      def initialize(cpu:, bus:, layout:, drive:, device: DEVICE)
+      def initialize(cpu:, bus:, layout:, dos:, device: DEVICE)
         super(cpu:, bus:, layout:)
-        @drive = drive
+        @dos = dos
         @device = device
         @listening = false
         @talking = false
@@ -35,22 +35,6 @@ module Badline
         @buffer = []
       end
 
-      # The frame under way, with the channels and the bytes it gathered.
-      # The device it answers is the machine's to set.
-      def save_state(out)
-        out.boolean(@listening).boolean(@talking).optional_int(@listen_channel).optional_int(@talk_channel)
-        out.int(@frame).blob(@buffer)
-      end
-
-      def load_state(input)
-        @listening = input.boolean?
-        @talking = input.boolean?
-        @listen_channel = input.optional_int
-        @talk_channel = input.optional_int
-        @frame = input.int
-        @buffer = input.blob
-      end
-
       def install
         routines.each do |address, routine|
           @cpu.install_trap(address) { call_routine(routine) if kernal_mapped? }
@@ -144,7 +128,7 @@ module Badline
       # takes data only on a channel it has open. Otherwise nothing holds
       # the data line when a byte starts, so the KERNAL finds no device.
       def accepted?
-        [OPEN, CLOSE].include?(@frame) || @drive.listening?(@listen_channel)
+        [OPEN, CLOSE].include?(@frame) || @dos.listening?(@listen_channel)
       end
 
       def unlisten
@@ -188,15 +172,15 @@ module Badline
         return unless @listen_channel
 
         case @frame
-        when OPEN then @drive.open(@listen_channel, @buffer.pack("C*"))
-        when CLOSE then @drive.close(@listen_channel)
-        else @drive.write(@listen_channel, @buffer)
+        when OPEN then @dos.open(@listen_channel, @buffer.pack("C*"))
+        when CLOSE then @dos.close(@listen_channel)
+        else @dos.write(@listen_channel, @buffer)
         end
         @buffer = []
       end
 
       def received
-        byte, eoi = @drive.read(@talk_channel)
+        byte, eoi = @dos.read(@talk_channel)
         return NO_DATA unless byte
 
         [byte, eoi ? EOI : 0]
@@ -205,7 +189,7 @@ module Badline
       def update_status(bits)
         return if bits.zero?
 
-        @bus.poke(0x90, @bus.peek(0x90) | bits)
+        @bus.poke(zero_page.status, @bus.peek(zero_page.status) | bits)
       end
     end
   end

data/lib/badline/kernal_trap.rb

@@ -2,9 +2,10 @@
 
 require "badline/kernal_trap/layout"
 require "badline/kernal_trap/routine"
-require "badline/kernal_trap/channel"
-require "badline/kernal_trap/drive"
+require "badline/kernal_trap/dos"
 require "badline/kernal_trap/file_routine"
 require "badline/kernal_trap/load"
 require "badline/kernal_trap/save"
 require "badline/kernal_trap/serial"
+require "badline/kernal_trap/chrout"
+require "badline/kernal_trap/keyed_state"

data/lib/badline/machine/clocking.rb

@@ -3,7 +3,7 @@
 module Badline
   module Machine
     # Running a machine from outside its own #cycle!, and the handlers that
-    # wait for its KERNAL to boot. Computer, Vic20 and C128 each include it
+    # wait for its KERNAL to boot. C64, Vic20 and C128 each include it
     # and answer #cycle!, #cycles and #init_threshold, the cycle at which
     # #on_init's handlers run, and keep the handlers in @init_handlers.
     module Clocking

data/lib/badline/machine/keyboard_buffer.rb

@@ -0,0 +1,49 @@
+# frozen_string_literal: true
+
+module Badline
+  module Machine
+    # Typing into the KERNAL's keyboard buffer once the machine has booted.
+    # The machine that includes it answers #keyboard_buffer, the Layout of
+    # the KERNAL it runs, and #ram.
+    module KeyboardBuffer
+      # Where a KERNAL keeps its keyboard buffer (KEYD), the count of
+      # characters in it (NDX), and how many it holds.
+      Layout = Data.define(:address, :count, :capacity)
+
+      # The C64's and the VIC-20's.
+      C64_LAYOUT = Layout.new(address: 0x0277, count: 0xc6, capacity: 10)
+
+      # BASIC 7.0's, in C128 mode.
+      C128_LAYOUT = Layout.new(address: 0x034a, count: 0xd0, capacity: 10)
+
+      # The 264 series KERNAL's, which sets its capacity at $053F to 10
+      # ($D86E).
+      PLUS4_LAYOUT = Layout.new(address: 0x0527, count: 0xef, capacity: 10)
+
+      def type_text(text)
+        codes = text.bytes.map { |b| ascii_to_petscii(b) }
+        on_init { @pending_keys = codes }
+      end
+
+      private
+
+      def feed_keyboard
+        buffer = keyboard_buffer
+        return unless ram.peek(buffer.count).zero?
+
+        chunk = @pending_keys.shift(buffer.capacity)
+        ram.write(buffer.address, chunk)
+        ram.poke(buffer.count, chunk.length)
+        @pending_keys = nil if @pending_keys.empty?
+      end
+
+      def ascii_to_petscii(byte)
+        case byte
+        when 0x61..0x7a then byte - 0x20
+        when 0x41..0x5a then byte + 0x80
+        else byte
+        end
+      end
+    end
+  end
+end

data/lib/badline/machine/settling.rb

@@ -0,0 +1,29 @@
+# frozen_string_literal: true
+
+module Badline
+  module Machine
+    # Brings the machine to the point a snapshot file is saved at: the main
+    # CPU between instructions, or jammed, with no REU transfer holding the
+    # bus. C64, Vic20 and C128 each include it, and answer
+    # #settled_for_snapshot? and #settle_chips_for_snapshot, which brings
+    # what each chip defers up to the cycle without running one.
+    module Settling
+      # The cycles settling may run: the longest instruction stretched by
+      # the VIC's longest hold on the bus, and an REU swap of 64K, two
+      # cycles a byte, stretched the same way.
+      LIMIT = 100 + 0x40000
+
+      # Runs the machine on, through its own #cycle!, to the settle point,
+      # and returns the cycles that took. A settled machine runs none.
+      def settle_for_snapshot!
+        ran = 0
+        while ran < LIMIT && !settled_for_snapshot?
+          cycle!
+          ran += 1
+        end
+        settle_chips_for_snapshot
+        ran
+      end
+    end
+  end
+end

data/lib/badline/machine.rb

@@ -1,12 +1,14 @@
 # frozen_string_literal: true
 
 require "badline/machine/clocking"
+require "badline/machine/keyboard_buffer"
+require "badline/machine/settling"
 
 module Badline
   # = Machine
   #
   # The machines badline builds by family, as the command line's
-  # subcommand names them: the C64, Computer, the VIC-20, Vic20, and the
+  # subcommand names them: the C64, Badline::C64, the VIC-20, Vic20, and the
   # C128 in C64 mode, C128.
   #
   # A machine answers what the front end, Media, the runners and the
@@ -28,7 +30,7 @@ module Badline
   #   +press_cartridge_button+, +release_cartridge_button+,
   #   +attach_drive1541+, +drive1541+, +true_drive+ and +plug_true_drive+
   #   for the drive Media::TrueDrive plugs in, +attach_drive1581+,
-  #   +drive1581+ and +plug_drive1581+ for a 1581 (Drive1581::Slot), and
+  #   +drive1581+ and +plug_drive1581+ for a 1581 (Drives::Model1581::Slot), and
   #   +address_bus+ for its +cartridge+ and +detach_cartridge+.
   # - Snapshots and tests: +snapshot+, +restore+, +save_snapshot+,
   #   +install_debug_register+ and +capture_output+.
@@ -58,16 +60,17 @@ module Badline
     # VIC-20's is "pal", with the RAM expansion `ram` names
     # (Vic20::Bus::RAM_CONFIGURATIONS), unexpanded when nil. A C128's is
     # one of C128::Model::ALL, with its SID `sid_model` when not nil, built
-    # for C64 mode.
+    # for C64 mode. :plus4 is refused until the Plus/4 runs.
     def self.build(family, model:, sid_model: nil, reu: nil, ram: nil)
       return vic20(model, ram) if family == :vic20
       return c128(model, sid_model, :c64) if family == :c128
+      raise ArgumentError, "the Plus/4 isn't emulated yet" if family == :plus4
       raise ArgumentError, "no machine family named #{family}" unless family == :c64
 
       profile = Model.named(model)
-      Computer.new(vic_model: profile.vic_model, cia_model: profile.cia_model,
-                   sid_model: sid_model || profile.sid_model, region: profile.region, reu:,
-                   kernal: profile.kernal, datasette: profile.datasette, board: profile.board)
+      C64.new(vic_model: profile.vic_model, cia_model: profile.cia_model,
+              sid_model: sid_model || profile.sid_model, region: profile.region, reu:,
+              kernal: profile.kernal, datasette: profile.datasette, board: profile.board)
     end
 
     # The machine the command line's `options` name, to start `media`, a
@@ -119,7 +122,7 @@ module Badline
 
       extension = File.extname(media).downcase
       return true if extension == ".sid"
-      return false unless %w[.prg .p00].include?(extension)
+      return false unless Media::Extensions::PROGRAMS.include?(extension)
 
       [Media::BASIC_START, Media::BASIC_START - 1].include?(Storage::P00.load_address(media))
     end

data/lib/badline/media/boot_disk.rb

@@ -4,7 +4,8 @@ module Badline
   module Media
     # A C128 boot disk. At power-on the C128 KERNAL reads track 1, sector 0
     # of the disk in device 8 and runs it when it starts with "CBM", as boot
-    # games have it. The 1581's DOS first loads and runs a USR file named
+    # games have it, from a sector image or from the raw GCR of a .g64 or
+    # .g71. The 1581's DOS first loads and runs a USR file named
     # COPYRIGHT CBM 86 when the disk has one, which is how CP/M's 1581 disks
     # hand the KERNAL their boot sector, so a .d81 with that file boots too.
     #
@@ -15,7 +16,7 @@ module Badline
     module BootDisk
       SIGNATURE = "CBM".bytes.freeze
       AUTO_BOOT = "copyright cbm 86"
-      TYPES = Extensions.of(%i[disk])
+      TYPES = Extensions.of(%i[disk gcr])
 
       class << self
         def takes?(computer, path)
@@ -37,6 +38,7 @@ module Badline
         def boot?(path)
           type = File.extname(path).downcase
           return false unless TYPES.include?(type) && File.file?(path)
+          return gcr_signature(path) == SIGNATURE if Extensions.kind(path) == :gcr
 
           image = Media.open_storage(path, { read_only: true })
           block = image.read_block(1, 0)
@@ -44,6 +46,16 @@ module Badline
 
           type == ".d81" && !image.read_file(AUTO_BOOT, type: :usr).nil?
         end
+
+        private
+
+        # The first three bytes of track 1, sector 0 as the drive reads them
+        # off the GCR of a .g64 or .g71, or nil when the sector isn't there.
+        def gcr_signature(path)
+          track = Drives::Model1541::Disk.open(path, read_only: true).track(2)
+          data = track && Drives::Model1541::SectorReader.read(track.bytes, 1)[0]&.data
+          data && data[1, 3]
+        end
       end
     end
   end

data/lib/badline/media/extensions.rb

@@ -28,6 +28,16 @@ module Badline
 
       # What goes in device 8 through the traps.
       MOUNTABLE = of(%i[disk archive])
+
+      # What goes in device 8, a true drive's or the traps', and the lists
+      # of disks to put there.
+      DEVICE8 = of(%i[disk gcr archive disk_list])
+
+      # Programs, which load on their own.
+      PROGRAMS = %w[.prg .p00].freeze
+
+      # Every medium Media.attach takes by its extension.
+      ALL = (KINDS.keys + PROGRAMS).freeze
     end
   end
 end

data/lib/badline/media/true_drive.rb

@@ -9,7 +9,7 @@ module Badline
     # disk's raw GCR, which only a true drive reads, so it plugs one in
     # when there's none yet. The 1541 reads only .d64 and .g64 images, the
     # 1571 .d71 and .g71 as well, and the 1581 only .d81, so a .d81 swaps
-    # the drive on device 8 for a 1581 (Drive1581::Slot), and another disk
+    # the drive on device 8 for a 1581 (Drives::Model1581::Slot), and another disk
     # image swaps a 1581 back for the machine's own drive. The traps' other
     # disk media, a .t64 or a host directory, raise Error.
     module TrueDrive

data/lib/badline/media/tune.rb

@@ -10,9 +10,9 @@ module Badline
         # Plays `subtune`, or the tune's own start subtune, and says what
         # plays. A tune for more than one SID raises FormatError.
         def attach(computer, path, autostart:, subtune:)
-          tune = Storage::SIDFile.new(path)
+          tune = SIDTune::File.new(path)
           if tune.sids > 1
-            raise Storage::SIDFile::FormatError, "Written for #{tune.sids} SIDs, which only the SID player plays"
+            raise SIDTune::File::FormatError, "Written for #{tune.sids} SIDs, which only the SID player plays"
           end
 
           subtune = (subtune || tune.start_subtune).clamp(1, tune.subtunes)

data/lib/badline/media.rb

@@ -4,7 +4,7 @@ require "badline/media/extensions"
 require "badline/media/true_drive"
 require "badline/media/boot_disk"
 require "badline/media/not_disk"
-require "badline/media/queue"
+require "badline/audio/queue"
 require "badline/media/disk_set"
 require "badline/media/disk_list"
 require "badline/media/vic20_basic"
@@ -83,7 +83,7 @@ module Badline
       def sid_model(path, otherwise: :mos6581)
         return otherwise unless path && Extensions.kind(path) == :tune
 
-        Storage::SIDFile.new(path).sid_model
+        SIDTune::File.new(path).sid_model
       end
 
       # What the medium at `path` is to `computer`, which attach goes by:
@@ -156,7 +156,7 @@ module Badline
         if computer.family == :vic20
           computer.attach_cartridge(Storage::CRTFile.new(path, machine: :vic20).chips)
         else
-          computer.attach_cartridge(Cartridge.from_file(path, **options))
+          computer.attach_cartridge(C64::Cartridge.from_file(path, **options))
         end
         "Attached cartridge #{path}"
       end

data/lib/badline/memory.rb

@@ -29,13 +29,10 @@ module Badline
       Array(bytes).each_with_index { |b, i| poke(addr + i, b) }
     end
 
-    def save_state(out)
-      out.blob(@storage)
-    end
+    # Every byte as one record of a keyed snapshot module, under `key`.
+    def save_fields(out, key) = out.bytes(key, @storage)
 
-    def load_state(input)
-      input.blob_into(@storage)
-    end
+    def load_fields(input, key) = input.bytes_into(key, @storage)
 
     # Refills the whole memory as if newly built with `initial`
     def clear!(initial = [])

data/lib/badline/model.rb

@@ -7,7 +7,7 @@ module Badline
   # each was sold with, its video standard, its KERNAL and whether it has
   # a datasette. The names are x64sc's.
   module Model
-    # Each field but the name is a keyword Computer.new takes.
+    # Each field but the name is a keyword C64.new takes.
     Profile = Data.define(:name, :vic_model, :cia_model, :sid_model, :region, :kernal, :datasette, :board)
 
     # The breadbin PAL C64: the 6569 VIC-II, 6526 CIAs and the 6581 SID.

data/lib/badline/options/family.rb

@@ -12,13 +12,14 @@ module Badline
 
       private
 
-      # Takes `sid`, `c64`, `vic20` or `c128` when given first.
+      # Takes `sid`, `c64`, `vic20`, `c128` or `plus4` when given first.
       def subcommand(args)
         case args.first
         when "sid" then @sid_command = true
         when "c64" then @family = :c64
         when "vic20" then @family = :vic20
         when "c128" then @family = :c128
+        when "plus4" then @family = :plus4
         else return
         end
         @family_named = !@sid_command
@@ -37,7 +38,9 @@ module Badline
       # the C128's.
       def pick_family
         return if @family_named || @sid_command || @media_path.nil?
-        return unless %w[.prg .p00].include?(File.extname(@media_path).downcase) && File.file?(@media_path)
+
+        program = Media::Extensions::PROGRAMS.include?(File.extname(@media_path).downcase)
+        return unless program && File.file?(@media_path)
 
         @family = :c128 if Storage::P00.load_address(@media_path) == C128_BASIC_START
       end

data/lib/badline/options/help.rb

@@ -35,6 +35,34 @@ module Badline
 
     def describe(option) = @native && option.name == "--sound" ? "#{option.text} (default)" : option.text
 
+    # The media the window opens, by their extensions (Media::Extensions),
+    # wrapped as the banner is.
+    def media_kinds
+      text = "Media can be a #{Media::Extensions::PROGRAMS.join('/')} program, a #{listed(%i[disk])} disk image, " \
+             "a #{listed(%i[gcr])} disk image for a true drive, an #{listed(%i[disk_list])} list of disk images, " \
+             "a #{listed(%i[archive])} tape archive, a #{listed(%i[tape])} tape, a #{listed(%i[cartridge])} " \
+             "cartridge, a #{listed(%i[tune])} tune, a .vsf snapshot, or a directory to mount as device 8."
+      wrap(text)
+    end
+
+    def listed(kinds) = Media::Extensions.of(kinds).join("/")
+
+    # The words of `text` in lines of at most 70 characters.
+    def wrap(text)
+      lines = [""]
+      text.split.each do |word|
+        line = lines.last
+        if line.empty?
+          lines[-1] = word
+        elsif line.size + word.size < 70
+          lines[-1] = "#{line} #{word}"
+        else
+          lines << word
+        end
+      end
+      lines.join("\n")
+    end
+
     def banner
       <<~BANNER
         Usage: #{@program} [c64] [options] [media]
@@ -50,11 +78,8 @@ module Badline
             c128                             Run a C128 in C128 mode, the one --model names
             sid                              Play .sid tunes and directories of them
 
-        Media can be a .prg/.p00 program, a .d64/.d71/.d81 disk image, a
-        .g64 disk image for the true 1541, an .m3u or .vfl list of disk
-        images, a .t64 tape archive, a .tap tape, a .crt cartridge, a .sid
-        tune, a .vsf snapshot, or a directory to mount as device 8. It
-        opens in the emulator window. There F11 quicksaves the machine to
+        #{media_kinds}
+        It opens in the emulator window. There F11 quicksaves the machine to
         the next of five slots in badline's data folder, replacing the
         oldest, and F12 restores the newest quicksave or named save. The
         window also autosaves every two minutes of play, which only the
@@ -85,17 +110,18 @@ module Badline
 
         --at and --script run events once a number of frames has run, as
         in --at 3500:key=space or --at 250,500:screenshot=shot%05d.bmp.
-        key=NAME presses a C64 key (space, return, a, f1, run_stop, restore)
-        or a joystick's direction or fire (joy1-up, joy2-fire) for #{Event::HOLD}
-        frames. type=TEXT types it, with \\n for RETURN. insert=FILE swaps
-        in a disk, a list's first disk, a tape or a cartridge, and
-        eject=disk, tape or cartridge takes one out. screenshot=FILE saves
-        the frame as a .bmp, with the frame's number in place of %d. menu
-        opens the pause menu, and menu=PAGE opens it on snapshots, drive,
-        datasette, expansion, ports, sound or power. Its frames still count,
-        and resume closes it. display=vdc or display=vic shows the C128's
-        80 or 40 column screen, as F8 switches them. reset, freeze and quit
-        take no argument.
+        key=NAME presses a key (space, return, a, f1, run_stop, restore, and
+        on the C128 esc, help, keypad1 and the rest) or a joystick's
+        direction or fire (joy1-up, joy2-fire) for #{Event::HOLD} frames, and
+        pushes the C128's caps_lock or forty_eighty, which lock. type=TEXT
+        types it, with \\n for RETURN. insert=FILE swaps in a disk, a list's
+        first disk, a tape or a cartridge, and eject=disk, tape or
+        cartridge takes one out. screenshot=FILE saves the frame as a .bmp,
+        with the frame's number in place of %d. menu opens the pause menu,
+        and menu=PAGE opens it on snapshots, drive, datasette, expansion,
+        ports, sound or power. Its frames still count, and resume closes
+        it. display=vdc or display=vic shows the C128's 80 or 40 column
+        screen, as F8 switches them. reset, freeze and quit take no argument.
       BANNER
     end
 

data/lib/badline/options/table.rb

@@ -75,6 +75,8 @@ module Badline
                  section: "Testing options", needs: :window),
       Option.new("--save-snapshot FILE", "Save the machine as a .vsf snapshot after the last frame",
                  section: "Testing options", needs: :window),
+      Option.new("--vice", "Add VICE's modules to --save-snapshot's C64 snapshot, for x64sc",
+                 section: "Testing options", needs: :window),
       Option.new("--at FRAME:EVENT", "Run EVENT once FRAME frames have run (see above)",
                  section: "Testing options", needs: :window),
       Option.new("--script FILE", "Run the events in FILE, one FRAME:EVENT a line",

data/lib/badline/options/validation.rb

@@ -59,6 +59,8 @@ module Badline
       end
 
       def validate_family
+        raise Error, "the Plus/4 isn't emulated yet" if @family == :plus4
+
         if @family == :vic20
           validate_vic20
         elsif !@ram.nil?

data/lib/badline/options.rb

@@ -14,7 +14,7 @@ module Badline
   # first, plays .sid tunes and directories of them in the terminal.
   # `c64`, `vic20` or `c128`, given first, names the machine family, and
   # without one the family is the C64, or the C128 for a program that loads
-  # where C128 BASIC starts. The native build adds --no-sound and
+  # where C128 BASIC starts. `plus4` is refused until the Plus/4 runs. The native build adds --no-sound and
   # --version, and badline-ruby adds --disable-jit.
   #
   # TABLE lists the options, and both the parser and the help read it. It
@@ -94,6 +94,7 @@ module Badline
       @true_drive = false
       @screenshot = ""
       @save_snapshot = ""
+      @vice = false
       @timeline = []
       @jit = true
       @help = false
@@ -171,6 +172,9 @@ module Badline
 
     def true_drive? = @true_drive
 
+    # Whether --save-snapshot adds VICE's modules, so x64sc opens it.
+    def vice? = @vice
+
     def jit? = @jit
 
     # The name of the model to build: a C64 Badline::Model names, a VIC-20
@@ -272,6 +276,7 @@ module Badline
       when "--no-vsync" then @vsync = false
       when "--verbose" then @verbose = true
       when "--true-drive" then @true_drive = true
+      when "--vice" then @vice = true
       when "--ntsc" then @models << "ntsc"
       when "--c64" then @c64_mode = true
       when "--unpaced" then @paced = false

data/lib/badline/plus4/acia.rb

@@ -0,0 +1,45 @@
+# frozen_string_literal: true
+
+module Badline
+  class Plus4
+    # The Plus/4's 6551 ACIA at $FD00-$FD0F, its four registers repeated,
+    # as a stub with nothing on the line: it never receives, its
+    # transmitter is always empty, and it never interrupts. The command and
+    # control registers keep what is written to them, and a write to the
+    # status register, a programmed reset, clears the command register's
+    # low five bits.
+    class ACIA
+      STATUS = 0x10
+
+      attr_reader :command, :control
+
+      def initialize
+        reset!
+      end
+
+      def reset!
+        @command = 0
+        @control = 0
+      end
+
+      def irq? = false
+
+      def peek(addr)
+        case addr & 0x03
+        when 1 then STATUS
+        when 2 then @command
+        when 3 then @control
+        else 0
+        end
+      end
+
+      def poke(addr, value)
+        case addr & 0x03
+        when 1 then @command &= 0xe0
+        when 2 then @command = value
+        when 3 then @control = value
+        end
+      end
+    end
+  end
+end