badline 0.11.0 → 0.12.0

data/lib/badline/iec_bus.rb

@@ -15,7 +15,17 @@ module Badline
   # A drive drives CLK and DATA from VIA 1's PB3 and PB1, the same way. It
   # also pulls DATA while ATN IN differs from its ATN acknowledge on PB4
   # (an XOR gate), which answers ATN in hardware before the DOS gets to it.
-  # SerialPort reads the lines back into VIA 1.
+  # SerialPort reads the lines back into VIA 1. A drive whose
+  # serial_output sets DRIVE_ATN_GATED pulls DATA that way only while
+  # ATN is low, as the 1581's NAND does.
+  #
+  # Fast serial adds SRQ, which the C64 leaves alone. A C128 and a 1571
+  # clock bytes over it from a CIA's CNT, with the bits on DATA from its
+  # SP, through buffers each side turns towards the bus to send. A pin low
+  # pulls its line low. Each side pushes the lines it pulls when they
+  # move: the host through host_fast_lines=, which tells the drives
+  # (fast_lines_moved), and a drive through drives_fast_moved!, which
+  # tells the host (on_fast_change).
   class IECBus
     # CIA 2 port A
     HOST_ATN_OUT = 0x08
@@ -29,16 +39,60 @@ module Badline
     DRIVE_CLK_OUT = 0x08
     DRIVE_ATNA = 0x10
 
-    # The lines pulled low, as ATN, CLK and DATA bits
+    # The lines pulled low, as ATN, CLK, DATA and SRQ bits
     ATN = 0x01
     CLK = 0x02
     DATA = 0x04
+    SRQ = 0x08
+
+    # A drive's serial_output bits above VIA 1's port B: its fast serial
+    # pins pulling DATA and SRQ.
+    DRIVE_FAST_DATA = 0x100
+    DRIVE_FAST_SRQ = 0x200
+
+    # A drive's serial_output bit whose ATN acknowledge pulls DATA only
+    # while ATN is low.
+    DRIVE_ATN_GATED = 0x400
 
     attr_reader :drives, :host_lines
 
+    # The lines the host's fast serial pins pull, as DATA and SRQ bits.
+    attr_reader :host_fast_lines
+
     def initialize
       @drives = []
       @host_lines = 0
+      @host_fast_lines = 0
+      @drive_fast_lines = 0
+      @on_fast_change = nil
+    end
+
+    # The host's fast serial pins moved: +low+ is the lines they pull, as
+    # DATA and SRQ bits.
+    def host_fast_lines=(low)
+      return if low == @host_fast_lines
+
+      @host_fast_lines = low
+      @drives.each(&:fast_lines_moved)
+    end
+
+    # A drive's fast serial pins moved (serial_output's fast bits).
+    def drives_fast_moved!
+      low = 0
+      @drives.each do |drive|
+        output = drive.serial_output
+        low |= DATA if output.anybits?(DRIVE_FAST_DATA)
+        low |= SRQ if output.anybits?(DRIVE_FAST_SRQ)
+      end
+      return if low == @drive_fast_lines
+
+      @drive_fast_lines = low
+      @on_fast_change&.call
+    end
+
+    # Calls the block whenever the drives move their fast serial pins.
+    def on_fast_change(&block)
+      @on_fast_change = block
     end
 
     # The machine pushes the lines it pulls, as port A bits, whenever they
@@ -58,18 +112,20 @@ module Badline
     end
 
     # One pass over everything on the bus, for a reader that wants more
-    # than one line. +host+ is the C64's port A lines as the reader sees
-    # them, which a drive takes a cycle late (see Drive1541::SerialPort).
+    # than one line, SRQ included. +host+ is the C64's port A lines as the
+    # reader sees them, which a drive takes a cycle late (see
+    # Drive::SerialLines).
     def low_lines(host = @host_lines)
       atn = host.anybits?(HOST_ATN_OUT)
-      low = atn ? ATN : 0
+      low = @host_fast_lines | @drive_fast_lines
+      low |= ATN if atn
       low |= CLK if host.anybits?(HOST_CLK_OUT)
       low |= DATA if host.anybits?(HOST_DATA_OUT)
       i = 0
       while i < @drives.length
         drive = @drives[i].serial_output
         low |= CLK if drive.anybits?(DRIVE_CLK_OUT)
-        low |= DATA if drive.anybits?(DRIVE_DATA_OUT) || atn != drive.anybits?(DRIVE_ATNA)
+        low |= DATA if drive.anybits?(DRIVE_DATA_OUT) || acknowledging?(drive, atn)
         i += 1
       end
       low
@@ -77,6 +133,12 @@ module Badline
 
     def atn_low?(host = @host_lines) = host.anybits?(HOST_ATN_OUT)
 
+    # Whether a drive's ATN acknowledge pulls DATA, with its serial_output
+    # +drive+, while ATN is +atn+.
+    def acknowledging?(drive, atn)
+      atn != drive.anybits?(DRIVE_ATNA) && (atn || drive.nobits?(DRIVE_ATN_GATED))
+    end
+
     def clk_low? = low_lines.anybits?(CLK)
 
     def data_low? = low_lines.anybits?(DATA)

data/lib/badline/machine.rb

@@ -24,8 +24,10 @@ module Badline
   # - Media: +ram+, +load_prg+, +type_text+, +mount+, +unmount+,
   #   +mounted?+, +datasette+, +attach_cartridge+,
   #   +press_cartridge_button+, +release_cartridge_button+,
-  #   +attach_drive1541+, +drive1541+, and +address_bus+ for its
-  #   +cartridge+ and +detach_cartridge+.
+  #   +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
+  #   +address_bus+ for its +cartridge+ and +detach_cartridge+.
   # - Snapshots and tests: +snapshot+, +restore+, +save_snapshot+,
   #   +install_debug_register+ and +capture_output+.
   #
@@ -33,14 +35,15 @@ module Badline
   # input parts, with its one joystick as both +joystick1+ and +joystick2+
   # and nil for +control_ports+, and of the rest +ram+, +load_prg+,
   # +type_text+, +mount+, +unmount+, +mounted?+, +datasette+, +attach_cartridge+,
-  # +attach_drive1541+, +drive1541+, +install_debug_register+ and
-  # +capture_output+.
+  # +attach_drive1541+, +drive1541+, +true_drive+, +plug_true_drive+, the
+  # 1581's, +install_debug_register+ and +capture_output+.
   #
   # The C128 answers all but the cartridge button, and besides +mode+,
   # :c64, as Machine.build builds it, or :c128, +vdc+, the VDC a front
   # end can show in place of +video+ once +vdc_shown=+ renders it,
-  # +press_caps_lock+, +release_caps_lock+, +press_display_key+ and
-  # +release_display_key+.
+  # +press_caps_lock+, +release_caps_lock+, +press_display_key+,
+  # +release_display_key+, and +attach_drive1571+ and +drive1571+ for the
+  # C128D's 1571, its true drive.
   module Machine
     # A new machine of `family`, :c64, :vic20 or :c128, the model of it
     # `model` names. A C64's model is one of Model::ALL, with its SID

data/lib/badline/media/boot_disk.rb

@@ -0,0 +1,50 @@
+# frozen_string_literal: true
+
+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
+    # 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.
+    #
+    # On a C128 in C128 mode a boot disk goes in a true drive, a 1581 for a
+    # .d81 and the C128D's 1571 otherwise, and nothing is typed, so the
+    # KERNAL boots it. Other disks, and other machines, keep the traps and
+    # the autostart.
+    module BootDisk
+      SIGNATURE = "CBM".bytes.freeze
+      AUTO_BOOT = "copyright cbm 86"
+      TYPES = %w[.d64 .d71 .d81].freeze
+
+      class << self
+        def takes?(computer, path)
+          computer.family == :c128 && computer.mode == :c128 && boot?(path)
+        end
+
+        # Puts a disk that boots on the computer in a true drive as device
+        # 8, write-protected with `disk: { read_only: true }`, for the KERNAL
+        # to boot at power-on, and says so. Nil for any other disk.
+        def attach(computer, path, disk: {}, **)
+          return unless takes?(computer, path)
+
+          read_only = disk.fetch(:read_only, false)
+          "#{TrueDrive.insert(computer, path, read_only:)}, to boot at power-on"
+        end
+
+        # Whether the disk image at path boots: its boot sector, or on a
+        # .d81 the 1581's auto-boot file.
+        def boot?(path)
+          type = File.extname(path).downcase
+          return false unless TYPES.include?(type) && File.file?(path)
+
+          image = MOUNT_TYPES.fetch(type).new(path, read_only: true)
+          block = image.read_block(1, 0)
+          return true if block && block[0, 3] == SIGNATURE
+
+          type == ".d81" && !image.read_file(AUTO_BOOT, type: :usr).nil?
+        end
+      end
+    end
+  end
+end

data/lib/badline/media/not_disk.rb

@@ -0,0 +1,8 @@
+# frozen_string_literal: true
+
+module Badline
+  module Media
+    # A file that goes in device 8 but isn't a disk image or a directory.
+    class NotDisk < ArgumentError; end
+  end
+end

data/lib/badline/media/true_drive.rb

@@ -2,51 +2,74 @@
 
 module Badline
   module Media
-    # Device 8 as a true 1541 instead of the KERNAL traps. Once a Drive1541
-    # is plugged in as device 8, disk media go into it rather than into the
-    # traps, so a LOAD runs the DOS and every byte crosses the serial bus.
-    # A .g64 holds the 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, so the traps' other disk media, a .d71, .d81 or .t64 or a host
-    # directory, raise Error.
+    # Device 8 as a true drive instead of the KERNAL traps: a 1541, or on
+    # the C128 its 1571, or a 1581. Once a true drive is plugged in as
+    # device 8, disk media go into it rather than into the traps, so a LOAD
+    # runs the DOS and every byte crosses the serial bus. A .g64 holds the
+    # 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
+    # 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
       class Error < ArgumentError; end
 
       class << self
-        # Plugs a Drive1541 in as device 8, unless one is there already, and
-        # returns it.
+        # Plugs the machine's true drive in as device 8, unless one is there
+        # already, and returns it.
         def plug(computer)
-          drive(computer) || Drive1541.new.tap { |drive| computer.attach_drive1541(drive) }
+          drive(computer) || computer.plug_true_drive
         end
 
-        # The Drive1541 on device 8, or nil.
+        # The true drive on device 8, or nil.
         def drive(computer)
-          drive = computer.drive1541
+          drive = computer.true_drive
           drive if drive && drive.device == KernalTrap::Routine::DEVICE
         end
 
-        # Whether the path goes in a true drive: a .g64 always, and other
-        # disk media, which the traps would mount, when a true drive is
-        # device 8.
+        # Whether the path goes in a true drive: a .g64 or .g71 always, and
+        # other disk media, which the traps would mount, when a true drive
+        # is device 8.
         def takes?(computer, path)
-          return true if File.extname(path).casecmp?(".g64")
+          return true if %w[.g64 .g71].include?(File.extname(path).downcase)
 
           !drive(computer).nil? && (File.directory?(path) || MOUNT_TYPES.key?(File.extname(path).downcase))
         end
 
-        # Puts the .d64 or .g64 in the drive on device 8, plugging one in
-        # when there's none, and takes out what was mounted through the
-        # traps, so LOAD and SAVE reach the drive too. `read_only` puts it
-        # in write-protected.
+        # Puts the image in the drive on device 8, plugging one in that
+        # reads it when the drive there doesn't, and takes out what was
+        # mounted through the traps, so LOAD and SAVE reach the drive too.
+        # `read_only` puts it in write-protected.
         def insert(computer, path, read_only: false)
-          unless %w[.d64 .g64].include?(File.extname(path).downcase)
-            raise Error, "#{path} is not a .d64 or .g64 image, which the 1541 reads"
+          return insert_d81(computer, path, read_only) if File.extname(path).casecmp?(".d81")
+
+          drive = own_drive(computer)
+          name = drive&.model_name || (computer.family == :c128 ? "1571" : "1541")
+          types = name == "1571" ? %w[.d64 .g64 .d71 .g71] : %w[.d64 .g64]
+          unless types.include?(File.extname(path).downcase)
+            raise Error, "#{path} is not a #{types.join(', ')} or .d81 image, which the #{name} and the 1581 read"
           end
 
-          disk = Drive1541::Disk.open(path, read_only:)
+          (drive || computer.plug_true_drive).insert_image(path, read_only:)
+          computer.unmount
+          "Inserted #{path} in the #{name} as device 8"
+        end
+
+        private
+
+        # The drive on device 8 unless it's a 1581.
+        def own_drive(computer)
+          drive = drive(computer)
+          drive unless drive&.model_name == "1581"
+        end
+
+        def insert_d81(computer, path, read_only)
+          drive = drive(computer)
+          drive = computer.plug_drive1581 unless drive&.model_name == "1581"
+          drive.insert_image(path, read_only:)
           computer.unmount
-          plug(computer).insert(disk)
-          "Inserted #{path} in the 1541 as device 8"
+          "Inserted #{path} in the 1581 as device 8"
         end
       end
     end

data/lib/badline/media.rb

@@ -1,6 +1,8 @@
 # frozen_string_literal: true
 
 require "badline/media/true_drive"
+require "badline/media/boot_disk"
+require "badline/media/not_disk"
 require "badline/media/queue"
 require "badline/media/disk_set"
 require "badline/media/disk_list"
@@ -32,6 +34,9 @@ module Badline
       # there, a .d64 goes into it instead of the KERNAL traps too. The
       # autostart then loads through it.
       #
+      # On a C128 in C128 mode, a boot disk goes in a true drive for the
+      # KERNAL to boot at power-on, with nothing typed (BootDisk).
+      #
       # An .m3u or .vfl list of disks attaches the first disk it lists
       # (DiskList). The VIC-20 takes its own media (Vic20Media), and the
       # C128 in C64 mode a C64's.
@@ -39,7 +44,7 @@ module Badline
         path = DiskList.disk(path)
         return Vic20Media.attach(computer, path, autostart:, **) if computer.family == :vic20
 
-        attach_c64(computer, path, autostart:, subtune:, **)
+        BootDisk.attach(computer, path, **) || attach_c64(computer, path, autostart:, subtune:, **)
       end
 
       # Swaps the disk in device 8 for a disk image or a host directory,
@@ -50,11 +55,12 @@ module Badline
       # A .g64 goes in a true 1541, which is plugged in as device 8 when
       # there's none yet (TrueDrive). Once a true 1541 is device 8, a .d64
       # goes in its drive as well, and other disks, which a 1541 can't
-      # read, raise TrueDrive::Error, an ArgumentError.
+      # read, raise TrueDrive::Error, an ArgumentError. Anything else
+      # raises NotDisk.
       def insert_disk(computer, path, read_only: false)
         return TrueDrive.insert(computer, path, read_only:) if TrueDrive.takes?(computer, path)
 
-        raise ArgumentError, "#{path} is not a disk image or a directory" unless disk?(path)
+        raise NotDisk, "#{path} is not a disk image or a directory" unless disk?(path)
 
         computer.mount(open_storage(path, { read_only: }))
         "Inserted #{path} in device 8"

data/lib/badline/options/event.rb

@@ -23,7 +23,7 @@ module Badline
 
       # What insert takes: disk images, tapes and cartridges, or an .m3u
       # or .vfl list of disks or a directory to mount as device 8.
-      INSERTABLE = %w[.d64 .d71 .d81 .g64 .t64 .tap .crt].freeze
+      INSERTABLE = %w[.d64 .d71 .d81 .g64 .t64 .tap .crt .m3u .vfl].freeze
 
       attr_reader :frame, :action, :argument
 
@@ -95,7 +95,7 @@ module Badline
       def self.insertable?(path)
         return true if File.directory?(path)
 
-        File.exist?(path) && (INSERTABLE.include?(File.extname(path).downcase) || Media::DiskList.list?(path))
+        File.exist?(path) && INSERTABLE.include?(File.extname(path).downcase)
       end
     end
   end

data/lib/badline/options/family.rb

@@ -1,5 +1,7 @@
 # frozen_string_literal: true
 
+require "badline/storage/p00"
+
 module Badline
   class Options
     # The machine family: the subcommand that names it, or else the media,
@@ -37,15 +39,7 @@ module Badline
         return if @family_named || @sid_command || @media_path.nil?
         return unless %w[.prg .p00].include?(File.extname(@media_path).downcase) && File.file?(@media_path)
 
-        @family = :c128 if load_address(@media_path) == C128_BASIC_START
-      end
-
-      # The load address of a .prg, or of the program a .p00 wraps after its
-      # 26-byte header.
-      def load_address(path)
-        offset = File.extname(path).casecmp?(".p00") ? 26 : 0
-        bytes = File.binread(path).bytes
-        bytes.size >= offset + 2 ? bytes[offset] | (bytes[offset + 1] << 8) : -1
+        @family = :c128 if Storage::P00.load_address(@media_path) == C128_BASIC_START
       end
     end
   end

data/lib/badline/options/help.rb

@@ -60,7 +60,9 @@ module Badline
         window also autosaves every two minutes of play, which only the
         pause menu loads. Device 8 answers through traps on the KERNAL's
         disk routines, unless --true-drive puts an emulated 1541 there,
-        which runs its own DOS and reads .d64 and .g64 images only. A .sid
+        which runs its own DOS and reads .d64 and .g64 images only, or on
+        the C128 the C128D's 1571, which reads .d71 and .g71 too. A .d81
+        then goes in an emulated 1581 in its place. A .sid
         tune opens in the SID player, as `sid` plays it, unless an option
         of the emulator's window asks for the machine.
 

data/lib/badline/options/table.rb

@@ -35,7 +35,7 @@ module Badline
       Option.new("--sound", "Play the SID through the host's audio device (F10 mutes)",
                  section: "Window options", needs: :window),
       Option.new("--no-sound", "Don't play the SID", section: "Window options", needs: :window, build: :native),
-      Option.new("--true-drive", "Put a true 1541 on device 8 instead of the KERNAL traps",
+      Option.new("--true-drive", "Put a true 1541 on device 8 instead of the KERNAL traps, a 1571 on the C128",
                  section: "Window options", needs: :window),
       Option.new("--reu SIZE", "Plug in an REU of SIZE K: 128, 256, 512 (a 1750) or up to 16384",
                  section: "Window options", needs: :window),

data/lib/badline/roms/README

@@ -61,6 +61,24 @@ https://www.zimmers.net/anonftp/pub/cbm/firmware/drives/new/1541/
 (1541-c000.325302-01.bin and 1541-e000.901229-05.bin) and concatenated.
 SHA-1 ab16f56989b27d89babe5f89c5a8cb3da71a82f0.
 
+dos1571.rom
+-----------
+The 1571 disk drive's DOS 3.0, 310654-05, 32 KB for $8000-$FFFF.
+Drive1571 loads it.
+
+Downloaded from
+https://www.zimmers.net/anonftp/pub/cbm/firmware/drives/new/1571/1571-rom.310654-05.bin
+SHA-1 f1be619c106641a685f6609e4d43d6fc9eac1e70.
+
+dos1581.rom
+-----------
+The 1581 disk drive's DOS, 318045-02, 32 KB for $8000-$FFFF.
+Drive1581 loads it.
+
+Downloaded from
+https://www.zimmers.net/anonftp/pub/cbm/firmware/drives/new/1581/1581-rom.318045-02.bin
+SHA-1 01228eae6f066bd9b7b2b6a7fa3f667e41dad393.
+
 Commodore VIC-20 ROMs
 =====================
 

data/lib/badline/sdl.rb

@@ -59,23 +59,6 @@ module Badline
     ffi_func :SDL_PushEvent, [:ptr], :int
     ffi_func :SDL_GetKeyName, [:int], :str
 
-    ffi_buffer :event, 56
-    ffi_read_u32 :event_type, 0
-    ffi_read_u8 :event_repeat, 13
-    ffi_read_i32 :event_scancode, 16
-    ffi_read_i32 :event_sym, 20
-    ffi_read_u16 :event_mod, 24
-    # SDL_MouseMotionEvent's xrel and yrel, and SDL_MouseButtonEvent's
-    # button.
-    ffi_read_i32 :event_xrel, 28
-    ffi_read_i32 :event_yrel, 32
-    ffi_read_u8 :event_button, 16
-    # Where the pointer is, in a motion or button event.
-    ffi_read_i32 :event_x, 20
-    ffi_read_i32 :event_y, 24
-    # SDL_DropEvent's file, which the receiver frees.
-    ffi_read_ptr :event_file, 8
-
     ffi_buffer :rect, 16
     ffi_write_i32 :rect_x, 0
     ffi_write_i32 :rect_y, 4
@@ -115,19 +98,53 @@ module Badline
     ffi_const :PIXELFORMAT_ARGB8888, 0x16362004
     ffi_const :BLENDMODE_BLEND, 0x01
     ffi_const :TEXTUREACCESS_STREAMING, 1
+    ffi_const :AUDIO_S16LSB, 0x8010
+    ffi_const :ALLOW_FREQUENCY_CHANGE, 0x01
+  end
+
+  # The events: the SDL_Event that SDL_PollEvent fills, the fields the
+  # front end reads from it, the event types, the key modifier and
+  # keycodes, and the dropped file's path.
+  module SDL
+    ffi_buffer :event, 56
+    ffi_read_u32 :event_type, 0
+    ffi_read_u8 :event_repeat, 13
+    ffi_read_i32 :event_scancode, 16
+    ffi_read_i32 :event_sym, 20
+    ffi_read_u16 :event_mod, 24
+    # SDL_MouseMotionEvent's xrel and yrel, and SDL_MouseButtonEvent's
+    # button.
+    ffi_read_i32 :event_xrel, 28
+    ffi_read_i32 :event_yrel, 32
+    ffi_read_u8 :event_button, 16
+    # Where the pointer is, in a motion or button event.
+    ffi_read_i32 :event_x, 20
+    ffi_read_i32 :event_y, 24
+    # SDL_DropEvent's file, which the receiver frees.
+    ffi_read_ptr :event_file, 8
+
     ffi_const :QUIT, 0x100
     ffi_const :KEYDOWN, 0x300
     ffi_const :KEYUP, 0x301
     ffi_const :MOUSEMOTION, 0x400
     ffi_const :MOUSEBUTTONDOWN, 0x401
     ffi_const :MOUSEBUTTONUP, 0x402
-    ffi_const :KMOD_SHIFT, 0x0003
+    ffi_const :MOUSEWHEEL, 0x403
     ffi_const :CONTROLLERDEVICEADDED, 0x653
     ffi_const :CONTROLLERDEVICEREMOVED, 0x654
-    ffi_const :AUDIO_S16LSB, 0x8010
-    ffi_const :ALLOW_FREQUENCY_CHANGE, 0x01
+    ffi_const :DROPFILE, 0x1000
+    ffi_const :KMOD_SHIFT, 0x0003
     ffi_const :KEY_TAB, 0x09
     ffi_const :KEY_F10, 0x4000_0043
+
+    # The path of the file the DROPFILE event in SDL.event carries, as a
+    # String, freeing SDL's copy.
+    def self.dropped_file
+      file = SDL.event_file(SDL.event)
+      path = LibC.strstr(file, "")
+      LibC.free(file)
+      path
+    end
   end
 
   # The few C library calls the native front end makes.

data/lib/badline/snapshot/state.rb

@@ -15,10 +15,11 @@ module Badline
       # save_state writes something else, so a State in another layout
       # fails before anything is read into a machine. Layout 3, without the
       # KERNAL and datasette in the setup, layout 4, without the VIA shift
-      # register's clock delay, and layout 5, without the board in the
-      # setup, still read.
-      SCHEMA = 6
-      READABLE = [3, 4, 5, SCHEMA].freeze
+      # register's clock delay, layout 5, without the board in the setup,
+      # layout 6, without the C128's Z80, and layout 7, without a 1581 on the
+      # serial bus, still read.
+      SCHEMA = 8
+      READABLE = [3, 4, 5, 6, 7, SCHEMA].freeze
 
       attr_reader :values, :strings
 

data/lib/badline/storage/d64_image.rb

@@ -17,6 +17,9 @@ module Badline
 
       def storage_kind = D64
 
+      # The sides of a disk the image's tracks fill.
+      def sides = 1
+
       def sectors_in(track)
         case track
         when 1..17 then 21

data/lib/badline/storage/d71_image.rb

@@ -7,6 +7,15 @@ module Badline
 
       def storage_kind = D71
 
+      # Tracks 1-35 on the first side and 36-70 on the second.
+      def track_count = 70
+
+      def sides = 2
+
+      def sectors_in(track)
+        track > 35 ? super(track - 35) : super
+      end
+
       private
 
       def error_tables = ERROR_TABLES
@@ -22,10 +31,6 @@ module Badline
       def bam_bitmap(track) = track > 35 ? [53, 0, 3 * (track - 36)] : super
 
       def double_sided? = @bytes[sector_offset(18, 0) + 3].anybits?(0x80)
-
-      def sectors_in(track)
-        track > 35 ? super(track - 35) : super
-      end
     end
   end
 end

data/lib/badline/storage/g64_image.rb

@@ -5,7 +5,9 @@ module Badline
     # A .g64 image: a 1541 disk's flux as raw GCR, track by track, for the
     # true drive to read the way it reads a real disk, copy protection and
     # all. It has no file system of its own, so only the true drive
-    # (Drive1541::Disk.from_g64) can use it.
+    # (Drive1541::Disk.from_g64) can use it. A .g71 holds a 1571 disk the
+    # same way, with "GCR-1571" for its signature and 168 half tracks,
+    # the first side's 84 and then the second's.
     #
     # The header is the signature "GCR-1541", a version byte ($00), the
     # number of half tracks the tables cover (84, tracks 1 to 42.5) and
@@ -36,6 +38,7 @@ module Badline
       class FormatError < StandardError; end
 
       SIGNATURE = "GCR-1541"
+      SIGNATURE_1571 = "GCR-1571"
       HEADER_SIZE = 12
       HALF_TRACKS = 84
       MAX_TRACK_SIZE = 7928
@@ -124,7 +127,9 @@ module Badline
       private
 
       def parse
-        raise FormatError, "Missing G64 signature" unless @data.start_with?(SIGNATURE)
+        unless @data.start_with?(SIGNATURE) || @data.start_with?(SIGNATURE_1571)
+          raise FormatError, "Missing G64 signature"
+        end
         raise FormatError, "G64 header is cut short" if @data.bytesize < HEADER_SIZE
 
         version, @half_tracks, @max_track_size = @data.byteslice(8, 4).unpack("CCv")

data/lib/badline/storage/p00.rb

@@ -18,6 +18,14 @@ module Badline
         def data(bytes)
           bytes[HEADER_SIZE..]
         end
+
+        # The load address of the program in a .prg file, or wrapped in a
+        # .p00 one, or -1 when the file is too short to have one.
+        def load_address(path)
+          bytes = File.binread(path).bytes
+          offset = wraps?(bytes) ? HEADER_SIZE : 0
+          bytes.size >= offset + 2 ? bytes[offset] | (bytes[offset + 1] << 8) : -1
+        end
       end
     end
   end

data/lib/badline/time_of_day.rb

@@ -52,6 +52,15 @@ module Badline
       @latch = input.boolean? ? FIELDS.to_h { |field| [field, input.int] } : nil
     end
 
+    # Whether the clock is stopped, or gets no pulses on its pin, with no
+    # alarm to raise, so its cycles move only the divider's phase.
+    def quiet? = (@stopped || @mains_hz.zero?) && !@alarm_pending
+
+    # Runs +cycles+ quiet cycles at once.
+    def fast_forward(cycles)
+      @accumulator = (@accumulator + (cycles * @mains_hz)) % @cycles_per_pulse
+    end
+
     def cycle!
       @accumulator += @mains_hz
       pulse! if @accumulator >= @cycles_per_pulse

data/lib/badline/version.rb

@@ -1,5 +1,5 @@
 # frozen_string_literal: true
 
 module Badline
-  VERSION = "0.11.0"
+  VERSION = "0.12.0"
 end