badline 0.15.1 → 0.16.1

data/lib/badline/media/extensions.rb

@@ -7,6 +7,8 @@ module Badline
     # It loads on its own, for Options.
     #
     # - :disk, a disk image that the traps mount and a true drive reads
+    # - :ieee_disk, an 8050's or 8250's disk image, for a PET's IEEE-488
+    #   drive
     # - :gcr, a disk's raw GCR, which only a true drive reads
     # - :archive, a .t64, which the traps mount read-only
     # - :tape, :cartridge and :tune
@@ -14,7 +16,8 @@ module Badline
     module Extensions
       KINDS = {
         ".d64" => :disk, ".d71" => :disk, ".d81" => :disk, ".g64" => :gcr, ".g71" => :gcr, ".t64" => :archive,
-        ".tap" => :tape, ".crt" => :cartridge, ".sid" => :tune, ".m3u" => :disk_list, ".vfl" => :disk_list
+        ".d80" => :ieee_disk, ".d82" => :ieee_disk, ".tap" => :tape, ".crt" => :cartridge, ".sid" => :tune,
+        ".m3u" => :disk_list, ".vfl" => :disk_list
       }.freeze
 
       # The kind of the medium at `path`, by its extension.
@@ -27,7 +30,7 @@ module Badline
       DISKS = of(%i[disk gcr])
 
       # What goes in device 8 through the traps.
-      MOUNTABLE = of(%i[disk archive])
+      MOUNTABLE = of(%i[disk archive ieee_disk])
 
       # What goes in device 8, a true drive's or the traps', and the lists
       # of disks to put there.

data/lib/badline/media/pet_media.rb

@@ -0,0 +1,40 @@
+# frozen_string_literal: true
+
+module Badline
+  module Media
+    # What a PET does with media of its own (Media.attach). Disks of every
+    # kind, .d80 and .d82 among them, directories and .t64 archives mount
+    # on device 8 through the traps on the KERNAL's IEEE-488 primitives
+    # (PET::IEEETraps), programs load at the start of BASIC, $0401
+    # (Program), and tapes play on the datasette at cassette port #1. There
+    # is no cartridge port and no SID, and the true drives are serial ones.
+    module PETMedia
+      # What a PET doesn't take.
+      UNSUPPORTED = Extensions.of(%i[tune cartridge])
+
+      # What loads and runs the first program on the disk in device 8.
+      AUTOSTART = %(load"*",8\rrun\r)
+
+      # What loads and runs the first program on the tape in cassette #1.
+      TAPE_AUTOSTART = "load\rrun\r"
+
+      class << self
+        # A tape made for another machine plays all the same, and says so.
+        def tape_message(tape, message)
+          tape.platform == Storage::TAP::PET_PLATFORM ? message : "#{message}, a tape for another machine than the PET"
+        end
+
+        # BASIC 2 and 4 load the first program off the disk and run it.
+        # BASIC 1's LOAD finds no device on the IEEE-488 bus, so the first
+        # program, which the block gives, goes in as a program file does,
+        # once the KERNAL has booted.
+        def disk_autostart(machine)
+          return machine.type_text(AUTOSTART) unless machine.model.basic1?
+
+          data = yield
+          machine.on_init { Program.load(machine, data, autostart: true) } if data
+        end
+      end
+    end
+  end
+end

data/lib/badline/media/program.rb

@@ -2,12 +2,16 @@
 
 module Badline
   module Media
-    # A program loading into a C64, a C128 or a 264 series machine once it
-    # has booted (Media.attach). The VIC-20 has its own (Vic20Basic).
+    # A program loading into a C64, a C128, a 264 series machine or a PET
+    # once it has booted (Media.attach). The VIC-20 has its own
+    # (Vic20Basic).
     module Program
       # Where BASIC 3.5 starts on the 264 series.
       PLUS4_BASIC_START = 0x1001
 
+      # Where BASIC starts on every PET.
+      PET_BASIC_START = 0x0401
+
       class << self
         # Loads the program where it says, and RUNs one that loads at the
         # start of BASIC.
@@ -30,12 +34,20 @@ module Badline
         # Where BASIC starts, the pointer to the end of its text and the
         # KERNAL's end address (EAL). BASIC 7.0 starts at $1C01 and keeps
         # the end of its text at $1210, and the 264 KERNAL keeps EAL at $9D.
+        # PET BASIC 2 and 4 keep the end of their text at $2A and EAL at
+        # $C9, and BASIC 1 at $7C and $E5.
         def basic(computer)
           return [PLUS4_BASIC_START, 0x2d, KernalTrap::PLUS4_ZERO_PAGE.end_address] if computer.family == :plus4
+          return pet_basic(computer) if computer.family == :pet
           return [0x1c01, 0x1210, 0xae] if computer.family == :c128 && computer.mode == :c128
 
           [BASIC_START, 0x2d, 0xae]
         end
+
+        def pet_basic(computer)
+          model = computer.model
+          [PET_BASIC_START, model.basic1? ? 0x7c : 0x2a, model.trap_layout.zero_page.end_address]
+        end
       end
     end
   end

data/lib/badline/media/true_drive.rb

@@ -4,15 +4,16 @@ module Badline
   module Media
     # Device 8 as a true drive instead of the KERNAL traps: a 1541, or on
     # the C128 its 1571, or on the Plus/4 a 1551 if it asks for one, or a
-    # 1581. Once a true drive is plugged in as device 8, disk media go into
+    # 1581, or on the PET a 2031 on the IEEE-488 bus. 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 or TCBM. 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 (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.
+    # image swaps a 1581 back for the machine's own drive. The PET has no
+    # 1581, and its 2031 reads .d64 and .g64 images only. The traps' other
+    # disk media, a .t64, a host directory, or a .d80 or .d82, raise Error.
     module TrueDrive
       class Error < ArgumentError; end
 
@@ -36,7 +37,7 @@ module Badline
           kind = Extensions.kind(path)
           return true if kind == :gcr
 
-          !drive(computer).nil? && (File.directory?(path) || %i[disk archive].include?(kind))
+          !drive(computer).nil? && (File.directory?(path) || %i[disk archive ieee_disk].include?(kind))
         end
 
         # Puts the image in the drive on device 8, plugging one in that
@@ -44,12 +45,15 @@ module Badline
         # 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)
-          return insert_d81(computer, path, read_only) if File.extname(path).casecmp?(".d81")
+          pet = computer.family == :pet
+          return insert_d81(computer, path, read_only) if !pet && File.extname(path).casecmp?(".d81")
 
           drive = own_drive(computer)
-          name = drive&.model_name || (computer.family == :c128 ? "1571" : "1541")
+          name = drive&.model_name || default_model(computer)
           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 ')} image, which the #{name} reads" if pet
+
             raise Error, "#{path} is not a #{types.join(', ')} or .d81 image, which the #{name} and the 1581 read"
           end
 
@@ -61,6 +65,15 @@ module Badline
 
         private
 
+        # The model plug_true_drive plugs in.
+        def default_model(computer)
+          case computer.family
+          when :c128 then "1571"
+          when :pet then "2031"
+          else "1541"
+          end
+        end
+
         # The drive on device 8 unless it's a 1581.
         def own_drive(computer)
           drive = drive(computer)

data/lib/badline/media/vic20_media.rb

@@ -61,11 +61,11 @@ module Badline
 
         # Loads the program, `bytes` from the file at `path`, as Vic20Basic
         # has it once the KERNAL has booted, or attaches the cartridge it's
-        # a part of (Vic20Cartridge), and says which.
+        # a part of (Vic20Cartridge), named after the file, and says which.
         def attach_program(machine, path, bytes, autostart:)
           chips = Vic20Cartridge.chips(path, bytes)
           if chips
-            machine.attach_cartridge(chips)
+            machine.attach_cartridge(chips, File.basename(path, File.extname(path)))
             return "Attached cartridge #{path}"
           end
 

data/lib/badline/media.rb

@@ -11,6 +11,7 @@ require "badline/media/vic20_basic"
 require "badline/media/vic20_cartridge"
 require "badline/media/vic20_media"
 require "badline/media/plus4_media"
+require "badline/media/pet_media"
 require "badline/media/tune"
 require "badline/media/program"
 
@@ -25,7 +26,9 @@ module Badline
       ".d64" => Storage::D64Image,
       ".d71" => Storage::D71Image,
       ".d81" => Storage::D81Image,
-      ".t64" => Storage::T64
+      ".t64" => Storage::T64,
+      ".d80" => Storage::D80Image,
+      ".d82" => Storage::D82Image
     }.freeze
 
     class << self
@@ -48,8 +51,10 @@ module Badline
       # disk autostart of its own, and takes no .sid tunes, and the 264
       # series loads programs at the start of its BASIC (Program), takes
       # .crt cartridges and raw .bin ROM images in its two cartridges'
-      # slots (Plus4Media), and no .sid tunes either. The
-      # C128 in C64 mode takes a C64's.
+      # slots (Plus4Media), and no .sid tunes either. The PET mounts .d80
+      # and .d82 disks too, which no other machine takes, and has no
+      # cartridges, tunes or true drives (PETMedia). The C128 in C64 mode
+      # takes a C64's.
       def attach(computer, path, autostart: true, subtune: nil, **)
         path = DiskList.disk(path)
         refuse_unsupported(computer, path)
@@ -99,7 +104,7 @@ module Badline
         return :cartridge if computer.family == :plus4 && Plus4Media.rom_image?(path)
 
         kind = Extensions.kind(path)
-        %i[disk archive].include?(kind) ? :storage : kind
+        %i[disk archive ieee_disk].include?(kind) ? :storage : kind
       end
 
       # What device 8 serves through the traps for a host directory, a disk
@@ -120,14 +125,21 @@ module Badline
 
       private
 
-      # The VIC-20 and the 264 series have no SID to play a .sid tune on.
+      # The VIC-20 and the 264 series have no SID to play a .sid tune on,
+      # and only the PET has the IEEE-488 drive a .d80 or .d82 goes in.
       def refuse_unsupported(computer, path)
-        return unless Vic20Media::UNSUPPORTED.include?(File.extname(path).downcase)
-
-        case computer.family
-        when :vic20 then raise ArgumentError, "#{path} doesn't go in a VIC-20"
-        when :plus4 then raise ArgumentError, "#{path} doesn't go in a Plus/4"
+        family = computer.family
+        if Extensions.kind(path) == :ieee_disk && family != :pet
+          raise ArgumentError, "#{path} needs a PET's IEEE-488 drive"
         end
+
+        refused, name = case family
+                        when :vic20 then [Vic20Media::UNSUPPORTED, "a VIC-20"]
+                        when :plus4 then [Vic20Media::UNSUPPORTED, "a Plus/4"]
+                        when :pet then [PETMedia::UNSUPPORTED, "a PET"]
+                        else [[], ""]
+                        end
+        raise ArgumentError, "#{path} doesn't go in #{name}" if refused.include?(File.extname(path).downcase)
       end
 
       def attach_kind(computer, path, autostart:, subtune:, **options)
@@ -143,18 +155,26 @@ module Badline
         end
       end
 
-      def disk?(path) = File.directory?(path) || Extensions.kind(path) == :disk
+      def disk?(path) = File.directory?(path) || %i[disk ieee_disk].include?(Extensions.kind(path))
 
       def attach_true_drive(computer, path, disk, autostart:)
         message = TrueDrive.insert(computer, path, read_only: disk.fetch(:read_only, false))
-        computer.type_text(disk_autostart(computer) { Vic20Media.first_program(path) }) if autostart
+        if autostart && computer.family == :pet
+          PETMedia.disk_autostart(computer) { Vic20Media.first_program(path) }
+        elsif autostart
+          computer.type_text(disk_autostart(computer) { Vic20Media.first_program(path) })
+        end
         message
       end
 
       def mount(computer, path, disk, autostart:)
         storage = open_storage(path, disk)
         computer.mount(storage)
-        computer.type_text(disk_autostart(computer) { storage.read_file("*") }) if autostart
+        if autostart && computer.family == :pet
+          PETMedia.disk_autostart(computer) { storage.read_file("*") }
+        elsif autostart
+          computer.type_text(disk_autostart(computer) { storage.read_file("*") })
+        end
         "Mounted #{path} as device 8"
       end
 
@@ -170,7 +190,9 @@ module Badline
       # (Plus4Media.cartridge_chips).
       def attach_cartridge(computer, path, options)
         case computer.family
-        when :vic20 then computer.attach_cartridge(Storage::CRTFile.new(path, machine: :vic20).chips)
+        when :vic20
+          crt = Storage::CRTFile.new(path, machine: :vic20)
+          computer.attach_cartridge(crt.chips, crt.name.empty? ? File.basename(path, File.extname(path)) : crt.name)
         when :plus4 then computer.attach_cartridge(Plus4Media.cartridge_chips(path, slot: options.fetch(:slot, nil)))
         else
           computer.attach_cartridge(C64::Cartridge.from_file(path, **options))
@@ -178,17 +200,19 @@ module Badline
         "Attached cartridge #{path}"
       end
 
-      # A VIC-20 or a 264 says when the tape was made for another machine
-      # (Vic20Media.tape_message, Plus4Media.tape_message).
+      # A VIC-20, a 264 or a PET says when the tape was made for another
+      # machine (Vic20Media.tape_message, Plus4Media.tape_message,
+      # PETMedia.tape_message).
       def attach_tape(computer, path, autostart:)
         tape = Storage::TAP.new(path)
         computer.datasette.insert(tape)
         computer.datasette.play!
-        computer.type_text(TAPE_AUTOSTART) if autostart
+        computer.type_text(computer.family == :pet ? PETMedia::TAPE_AUTOSTART : TAPE_AUTOSTART) if autostart
         message = "Inserted #{path} in the datasette"
         case computer.family
         when :vic20 then Vic20Media.tape_message(tape, message)
         when :plus4 then Plus4Media.tape_message(tape, message)
+        when :pet then PETMedia.tape_message(tape, message)
         else message
         end
       end

data/lib/badline/options/family.rb

@@ -1,6 +1,7 @@
 # frozen_string_literal: true
 
 require "badline/storage/p00"
+require "badline/storage/tap"
 
 module Badline
   class Options
@@ -12,7 +13,7 @@ module Badline
 
       private
 
-      # Takes `sid`, `c64`, `vic20`, `c128` or `plus4` when given first.
+      # Takes `sid`, `c64`, `vic20`, `c128`, `plus4` or `pet` when given first.
       def subcommand(args)
         case args.first
         when "sid" then @sid_command = true
@@ -20,6 +21,7 @@ module Badline
         when "vic20" then @family = :vic20
         when "c128" then @family = :c128
         when "plus4" then @family = :plus4
+        when "pet" then @family = :pet
         else return
         end
         @family_named = !@sid_command
@@ -31,19 +33,28 @@ module Badline
         when :vic20 then VIC20_MODELS
         when :c128 then C128_MODELS
         when :plus4 then PLUS4_MODELS
+        when :pet then PET_MODELS
         else MODELS
         end
       end
 
       # Without a family named, a program that loads at C128_BASIC_START is
-      # the C128's.
+      # the C128's, and an 8050's or 8250's disk or a PET tape the PET's. A
+      # program that loads where PET BASIC starts could be a VIC-20's too.
       def pick_family
-        return if @family_named || @sid_command || @media_path.nil?
+        return if @family_named || @sid_command || @media_path.nil? || !File.file?(@media_path)
 
-        program = Media::Extensions::PROGRAMS.include?(File.extname(@media_path).downcase)
-        return unless program && File.file?(@media_path)
+        if pet_media?
+          @family = :pet
+        elsif Media::Extensions::PROGRAMS.include?(File.extname(@media_path).downcase)
+          @family = :c128 if Storage::P00.load_address(@media_path) == C128_BASIC_START
+        end
+      end
 
-        @family = :c128 if Storage::P00.load_address(@media_path) == C128_BASIC_START
+      # Whether the media is an 8050's or 8250's disk or a PET tape.
+      def pet_media?
+        kind = Media::Extensions.kind(@media_path)
+        kind == :ieee_disk || (kind == :tape && Storage::TAP.platform_of(@media_path) == Storage::TAP::PET_PLATFORM)
       end
     end
   end

data/lib/badline/options/help.rb

@@ -49,7 +49,8 @@ module Badline
     # wrapped as the banner is.
     def media_kinds
       text = "Media can be #{listed(Media::Extensions::PROGRAMS)} program, #{listed(%i[disk])} disk image, " \
-             "#{listed(%i[gcr])} disk image for a true drive, #{listed(%i[disk_list])} list of disk images, " \
+             "#{listed(%i[ieee_disk])} disk image for a PET, #{listed(%i[gcr])} disk image for a true drive, " \
+             "#{listed(%i[disk_list])} list of disk images, " \
              "#{listed(%i[archive])} tape archive, #{listed(%i[tape])} tape, #{listed(%i[cartridge])} " \
              "cartridge, #{listed(%i[tune])} tune, #{listed(%w[.vsf])} snapshot, or a directory to mount as device 8."
       wrap(text)
@@ -84,6 +85,7 @@ module Badline
                #{@program} vic20 [options] [media]
                #{@program} c128 [options] [media]
                #{@program} plus4 [options] [media]
+               #{@program} pet [options] [media]
                #{@program} --headless [options] tune.sid
                #{@program} [options] tune.sid --audio-out FILE
                #{@program} sid [options] FILE|DIR...
@@ -93,6 +95,7 @@ module Badline
             vic20                            Run a PAL VIC-20, with the RAM --ram names
             c128                             Run a C128 in C128 mode, the one --model names
             plus4                            Run a Plus/4 or a C16, the one --model names
+            pet                              Run a PET or a CBM, the one --model names
             sid                              Play .sid tunes and directories of them
 
         #{media_kinds}
@@ -116,6 +119,22 @@ module Badline
         --drive-type 1541 a 1541 on the serial bus instead. There Escape is
         ESC, Page Down RUN/STOP and F4 HELP.
 
+        The PET and the CBM take programs, disks, .d80 and .d82 among them,
+        and tapes, and a .d80, a .d82 or a PET tape starts one without
+        `pet`. Their keys type what the host's keys type, Alt with a key
+        presses the PET's SHIFT and the key its unshifted character is on,
+        and the pause menu's KEYBOARD page says where the rest are. --basic
+        and --editor fit the upgrades Commodore sold, as in --model 2001
+        --basic 2. BASIC 1 can't LOAD from a disk drive, though a disk still
+        starts its first program, and BASIC 2 can. Their --true-drive makes
+        device 8 an emulated 2031 on the IEEE-488 bus, which reads .d64 and
+        .g64 images. The 8032 and the 8096 have two 50 Hz editors:
+        4-80-b-50hz, the default, and 4-80-b-50hz-0283, another chip's,
+        with 64-cycle lines and 313 lines a frame. The 8296 runs its own,
+        4-80-b-50hz-8296, and takes the 8032's too. --characters din fits
+        it with the DIN character ROM, and --jumpers ram9,rama puts RAM at
+        $9000 and $A000, as xpet's -petram9 and -petramA do.
+
         --headless plays a .sid tune on the host's audio device without the
         window, and --audio-out renders it to 16-bit PCM instead. The
         container follows the file's extension, .wav or .aiff. Played on a
@@ -136,8 +155,9 @@ 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 key (space, return, a, f1, run_stop, restore, and
-        on the C128 esc, help, keypad1 and the rest, and on the Plus/4
-        esc, help and f1 to f3) or a joystick's
+        on the C128 esc, help, keypad1 and the rest, on the Plus/4
+        esc, help and f1 to f3, and on the PET rvs, escape and kp1) 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

data/lib/badline/options/table.rb

@@ -18,6 +18,10 @@ module Badline
     # another name for the C16.
     PLUS4_MODELS = %w[plus4 plus4ntsc c16 c16ntsc c116].freeze
 
+    # The PETs and CBMs, as PET::Model names them, the 8032 first, the
+    # default.
+    PET_MODELS = %w[8032 8096 8296 4032 3032 3032b 2001].freeze
+
     # The true drives --drive-type names for the Plus/4.
     PLUS4_DRIVE_TYPES = %w[1541 1551].freeze
 
@@ -43,20 +47,34 @@ module Badline
                  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, a 1571 on the C128, " \
-                                 "a 1551 on the Plus/4",
+                                 "a 1551 on the Plus/4, a 2031 on the PET",
                  section: "Window options", needs: :window),
       Option.new("--drive-type MODEL", "The Plus/4's true drive: 1541 or 1551 (default: 1551); implies --true-drive",
                  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),
       Option.new("--model NAME", "C64 to run: #{MODELS.join(', ')} (default: #{MODELS.first}); VIC-20: pal; " \
-                                 "C128: #{C128_MODELS.join(', ')}; Plus/4: #{PLUS4_MODELS.join(', ')}",
+                                 "C128: #{C128_MODELS.join(', ')}; Plus/4: #{PLUS4_MODELS.join(', ')}; " \
+                                 "PET: #{PET_MODELS.join(', ')}",
                  section: "Window options", needs: :window),
       Option.new("--ntsc", "Run an NTSC C64, as --model ntsc does", section: "Window options", needs: :window),
       Option.new("--c64", "Start the C128 in C64 mode, holding C= at power-on",
                  section: "Window options", needs: :window),
       Option.new("--ram SIZE", "VIC-20 RAM expansion: #{RAM_NAMES.join(', ')} (default: unexpanded); " \
-                               "Plus/4 RAM: 16k, 32k or 64k (default: the model's own)",
+                               "Plus/4 RAM: 16k, 32k or 64k; PET RAM: 4k, 8k, 16k or 32k (default: the model's own)",
+                 section: "Window options", needs: :window),
+      Option.new("--60hz", "Run a CRTC PET's 60 Hz editor instead of its 50 Hz one",
+                 section: "Window options", needs: :window),
+      Option.new("--basic VERSION", "Fit a PET with BASIC 1, 2 or 4, as its board takes (default: its own)",
+                 section: "Window options", needs: :window),
+      Option.new("--editor NAME", "Fit a PET with an editor ROM its board and BASIC take: " \
+                                  "#{PET::ROMSets::EDITORS.keys.join(', ')}",
+                 section: "Window options", needs: :window),
+      Option.new("--characters NAME", "Fit an 8296 with a character ROM: ascii or din (default: ascii)",
+                 section: "Window options", needs: :window),
+      Option.new("--jumpers LIST", "Fit an 8296's board with jumpers, comma-separated: ram9 and rama for RAM at " \
+                                   "$9000 and $A000, userport for the user port's PA0-PA2 to switch in " \
+                                   "the RAM under the ROMs",
                  section: "Window options", needs: :window),
       Option.new("--c1lo FILE", "Put a .bin ROM image in the Plus/4's cartridge 1, low slot ($8000)",
                  section: "Window options", needs: :window),
@@ -100,7 +118,7 @@ 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",
+      Option.new("--vice", "Add VICE's modules to --save-snapshot's C64 or PET snapshot, for x64sc or xpet",
                  section: "Testing options", needs: :window),
       Option.new("--at FRAME:EVENT", "Run EVENT once FRAME frames have run (see above)",
                  section: "Testing options", needs: :window),

data/lib/badline/options/validation.rb

@@ -39,6 +39,12 @@ module Badline
         PLUS4_RAM[value]
       end
 
+      def pet_ram(value)
+        raise Error, "invalid argument: --ram #{value}" unless PET_RAM.key?(value)
+
+        PET_RAM[value]
+      end
+
       def plus4_ram_expansion(value)
         raise Error, "invalid argument: --ram-expansion #{value}" unless PLUS4_RAM_EXPANSIONS.key?(value)
 
@@ -92,12 +98,10 @@ module Badline
       end
 
       def validate_family
-        if @family == :vic20
-          validate_vic20
-        elsif !@ram.nil?
-          raise Error, "--ram needs vic20 or plus4"
-        end
+        ram_option
+        validate_vic20 if @family == :vic20
         @family == :plus4 ? validate_plus4 : refuse_plus4_options
+        @family == :pet ? validate_pet : refuse_pet_options
         if @family == :c128
           validate_c128
         elsif @c64_mode
@@ -105,6 +109,19 @@ module Badline
         end
       end
 
+      # --ram names the VIC-20's RAM expansion, or the Plus/4's or the PET's
+      # RAM.
+      def ram_option
+        return if @ram_name.nil?
+
+        case @family
+        when :vic20 then @ram = ram_configuration(@ram_name)
+        when :plus4 then @ram_kb = plus4_ram(@ram_name)
+        when :pet then @ram_kb = pet_ram(@ram_name)
+        else raise Error, "--ram needs vic20, plus4 or pet"
+        end
+      end
+
       # The C128 runs in the window, without an REU, and its NTSC models
       # have names of their own.
       def validate_c128
@@ -153,6 +170,68 @@ module Badline
         raise Error, "--sid-card-address needs --sid-card" unless @sid_card_address.nil? || @sid_card
       end
 
+      # Only the PET has a frame rate to pick and BASIC and editor ROMs to
+      # fit.
+      def refuse_pet_options
+        raise Error, "--60hz needs pet" unless @refresh_hz.nil?
+        raise Error, "--basic needs pet" unless @basic.nil?
+        raise Error, "--editor needs pet" unless @editor.nil?
+        raise Error, "--characters needs pet" unless @characters.nil?
+        raise Error, "--jumpers needs pet" unless @jumpers.empty?
+      end
+
+      # The PET runs in the window, without the C64's SID and REU, at the
+      # frame rate its editor sets.
+      def validate_pet
+        raise Error, "--ntsc needs the C64; a CRTC PET's 60 Hz editor is --60hz" if @models.include?("ntsc")
+        raise Error, "--sid needs the C64" unless @sid_model.nil?
+        raise Error, "--reu needs the C64" unless @reu.nil?
+        raise Error, "the PET needs the window" if headless?
+
+        return unless PET_MODELS.include?(model)
+
+        validate_pet_roms
+        validate_pet_board
+      end
+
+      # --characters names a character ROM the board takes, --jumpers the
+      # 8296 board's jumpers, and the 8296 has all of its RAM soldered on.
+      def validate_pet_board
+        unless @characters.nil? || PET::ROMSets.characters(model).include?(@characters)
+          raise Error, "the #{model} takes no character ROM #{@characters}"
+        end
+
+        unknown = @jumpers.find { |jumper| !PET::ROMSets.jumpers(model).include?(jumper) }
+        raise Error, "the #{model} has no jumper #{unknown}" unless unknown.nil?
+        raise Error, "the 8296 has 32k of RAM" if model == "8296" && ![nil, 32].include?(@ram_kb)
+      end
+
+      # --basic and --editor name ROMs the model's board takes
+      # (PET::ROMSets), and an editor named sets the frame rate.
+      def validate_pet_roms
+        raise Error, "invalid argument: --basic #{@basic}" unless @basic.nil? || PET::ROMSets::BASICS.key?(@basic)
+        raise Error, "invalid argument: --editor #{@editor}" unless @editor.nil? || PET::ROMSets::EDITORS.key?(@editor)
+
+        basic = @basic || PET::ROMSets.stock_basic(model)
+        fitting = PET::ROMSets.editors(model, basic)
+        raise Error, "the #{model} takes no BASIC #{basic}" if fitting.empty?
+        return if @editor.nil?
+        raise Error, "the #{model} with BASIC #{basic} takes no editor #{@editor}" unless fitting.include?(@editor)
+
+        editor_rate(fitting)
+      end
+
+      # The frame rate of the editor named, on a CRTC board, which has a 50
+      # Hz and a 60 Hz one.
+      def editor_rate(fitting)
+        return if fitting.size == 1
+
+        editor_hz = @editor == fitting.last ? 60 : 50
+        raise Error, "--60hz takes a 60 Hz editor, not #{@editor}" if @refresh_hz == 60 && editor_hz == 50
+
+        @refresh_hz = editor_hz
+      end
+
       # `sid` takes directories as well as tunes.
       def validate_tune(path)
         return if !File.exist?(path) || File.extname(path).casecmp?(".sid")