badline 0.16.1 → 0.18.0

data/lib/badline/options/help.rb

@@ -49,10 +49,11 @@ 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[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[ieee_disk])} disk image or #{listed(%i[hard_disk])} hard disk 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."
+             "cartridge, #{listed(%i[tune])} tune, #{listed(%i[papertape])} papertape for a KIM-1, " \
+             "#{listed(%w[.vsf])} snapshot, or a directory to mount as device 8."
       wrap(text)
     end
 
@@ -86,16 +87,20 @@ module Badline
                #{@program} c128 [options] [media]
                #{@program} plus4 [options] [media]
                #{@program} pet [options] [media]
+               #{@program} cbm2 [options] [media]
+               #{@program} kim1 [options] [program]
                #{@program} --headless [options] tune.sid
                #{@program} [options] tune.sid --audio-out FILE
                #{@program} sid [options] FILE|DIR...
 
         Commands:
             c64                              Run a C64, the one --model names (the default)
-            vic20                            Run a PAL VIC-20, with the RAM --ram names
+            vic20                            Run a VIC-20, PAL or --ntsc, 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
+            cbm2                             Run a CBM-II, a B series or a P500, the one --model names
+            kim1                             Run a MOS KIM-1, on its keypad and LED display
             sid                              Play .sid tunes and directories of them
 
         #{media_kinds}
@@ -120,20 +125,59 @@ module Badline
         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
+        and tapes, and a .d80, .d82, .d67 or .d90 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,
+        .g64 images, and a .d80 or a .d82 then goes in an emulated 8050 or
+        8250. --drive-type 8050 or 8250 plugs either in instead, and
+        --drive-type 1001 an SFD-1001, which takes a .d82 in its one drive.
+        --drive-type 4040 or 3040 puts a .d64 in a 4040 or a 3040 instead
+        of the 2031, and a .d67, DOS 1's disk, goes in a 2040. A .d90 hard
+        disk always goes in a D9060 or a D9090, by its size. The pause
+        menu's DRIVE 8 page picks the drive type on the bus.
+        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.
+        $9000 and $A000, as xpet's -petram9 and -petramA do. --model
+        superpet runs the SuperPET, and --cpu 6809 its Waterloo 6809 side.
+        --bank-ram read write-protects its 64K bank RAM.
+
+        The CBM-II takes programs, disks, .d80 and .d82 among them, and
+        cartridges, and a cartridge made for it starts one without `cbm2`.
+        --kernal 03b fits the 1983 KERNAL in place of 04a, and --60hz runs
+        it on 60 Hz mains. Its --true-drive makes device 8 an emulated 2031
+        on its IEEE-488 bus, which reads .d64 and .g64 images, and a .d80
+        or a .d82 then goes in an emulated 8050 or 8250, and --drive-type
+        plugs in either from the start, as on the PET. Its keys type what
+        the host's keys type, F12 is RUN/STOP, Alt with F9 or F10 presses
+        its F9 or F10, and the pause menu's KEYBOARD page says where the
+        rest are. --model 510 or 510ntsc runs the P500, on the VIC-II with
+        KERNAL 02, whose keys are the B series' and whose two joysticks Tab
+        switches to.
+
+        The KIM-1 starts in its monitor, on the keypad and the six LED
+        digits, which the window draws with the keys under them. 0-9 and A-F
+        are the hex keys, comma AD, period DA, space or + +, G or Return GO,
+        P PC, S or Esc ST, R RS and T the SST switch, and a click presses a
+        key too. The pause menu's PANEL page sets SST, the TTY/KB jumper and
+        what U3's PB7 and PA0 are wired to. --tty puts the monitor on a
+        teletype at --baud, shown in the window, or with --headless on the
+        terminal, where Ctrl-C quits.
+        It loads .ptp and .pap papertapes, which start a KIM-1 without
+        `kim1`, and .bin files at --load-address. The program goes into RAM,
+        the NMI and IRQ vectors at $17FA and $17FE point at the monitor, and
+        the monitor starts it where it loads, or at --start-address.
+        --tty-load reads a papertape through the monitor's L command
+        instead. --ram 5k fills $0400-$13FF, and --ram expanded $2000-$DFFF
+        too. A .wav recording of a KIM tape goes in the cassette deck, which
+        the pause menu's DATASETTE page plays for LOADT at $1873.
 
         --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
@@ -156,11 +200,13 @@ module Badline
         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, on the Plus/4
-        esc, help and f1 to f3, and on the PET rvs, escape and kp1) or a
-        joystick's
+        esc, help and f1 to f3, on the PET rvs, escape and kp1, and on
+        the CBM-II escape, norm_graph and kp00, and on the KIM-1 its keys,
+        as 0 to f, ad, da, plus, go, pc, st and rs) 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
+        types it, with \\n for RETURN, or on the KIM-1 presses the keys it
+        names, as in type=AD 0200 DA A9. 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,

data/lib/badline/options/table.rb

@@ -7,8 +7,7 @@ module Badline
     # The names Badline::Model builds, in the order the help lists them.
     MODELS = %w[c64 c64c ntsc newntsc oldntsc drean sx64 pet64 c64gs ultimax].freeze
 
-    # The VIC-20's models, as xvic names its video standards. Only PAL is
-    # emulated.
+    # The VIC-20's models, as xvic names its video standards.
     VIC20_MODELS = %w[pal ntsc].freeze
 
     # The C128's models, as C128::Model names them.
@@ -20,7 +19,27 @@ module Badline
 
     # 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
+    PET_MODELS = %w[8032 8096 8296 4032 3032 3032b 2001 superpet].freeze
+
+    # The CBM-II's B series, as CBM2::Model names them, the 610 first, the
+    # default, and the P500, as CBM2::P500::Model names them.
+    CBM2_MODELS = %w[610 620 710 720 510 510ntsc].freeze
+
+    # The KIM-1, which has the one model.
+    KIM1_MODELS = %w[kim1].freeze
+
+    # The KIM-1 teletype's rates, as KIM1::Teletype takes them.
+    KIM1_BAUDS = %w[110 300 1200 2400 4800 9600].freeze
+
+    # The KIM-1's RAM as --ram names it, and the names
+    # KIM1::Bus::RAM_CONFIGURATIONS gives it.
+    KIM1_RAM = { "1k" => :"1k", "5k" => :"5k", "expanded" => :expanded }.freeze
+
+    # The B series' KERNALs --kernal names, 901244-04a first, the default.
+    CBM2_KERNALS = %w[04a 03b].freeze
+
+    # The P500's one KERNAL, 901234-02.
+    P500_KERNALS = %w[02].freeze
 
     # The true drives --drive-type names for the Plus/4.
     PLUS4_DRIVE_TYPES = %w[1541 1551].freeze
@@ -39,6 +58,22 @@ module Badline
       Option.new("--disable-jit", "Run without enabling YJIT", section: "Options", build: :ruby),
       Option.new("-h, --help", "Show this help", section: "Options"),
       Option.new("--version", "Show the version and what built it", section: "Options", build: :native),
+      Option.new("--tty", "Fit the KIM-1's TTY/KB jumper, so its monitor talks to a teletype: a pane in the " \
+                          "window, or the terminal with --headless",
+                 section: "Options"),
+      Option.new("--baud N", "The KIM-1 teletype's baud: #{KIM1_BAUDS.join(', ')} (default: 9600)",
+                 section: "Options"),
+      Option.new("--tty-load", "Load the KIM-1's .ptp or .pap through its monitor's L command on the teletype, " \
+                               "in real time, instead of straight into RAM; implies --tty",
+                 section: "Options"),
+      Option.new("--load-address ADDR", "Where the KIM-1 loads a .bin, in hex (default: 0200)",
+                 section: "Options"),
+      Option.new("--start-address ADDR", "Where the KIM-1 starts its program, in hex (default: where it loads)",
+                 section: "Options"),
+      Option.new("--ram SIZE", "VIC-20 RAM expansion: #{RAM_NAMES.join(', ')} (default: unexpanded); " \
+                               "Plus/4 RAM: 16k, 32k or 64k; PET RAM: 4k, 8k, 16k or 32k (default: the model's own); " \
+                               "KIM-1 RAM: 1k, 5k or expanded (default: 1k)",
+                 section: "Options"),
       Option.new("--no-autostart", "Boot to READY. instead of running the program",
                  section: "Window options", needs: :window),
       Option.new("--writable", "Let the machine write to disk images, changing their files",
@@ -47,23 +82,28 @@ 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 2031 on the PET",
+                                 "a 1551 on the Plus/4, a 2031 on the PET or the CBM-II, or for a .d80 or .d82 " \
+                                 "an 8050 or 8250",
                  section: "Window options", needs: :window),
-      Option.new("--drive-type MODEL", "The Plus/4's true drive: 1541 or 1551 (default: 1551); implies --true-drive",
+      Option.new("--drive-type MODEL", "The Plus/4's true drive: 1541 or 1551 (default: 1551); the PET's and the " \
+                                       "CBM-II's: #{Drives::IEEEModels::NAMES.join(', ')} (default: 2031); " \
+                                       "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(', ')}; " \
-                                 "PET: #{PET_MODELS.join(', ')}",
+      Option.new("--model NAME", "C64 to run: #{MODELS.join(', ')} (default: #{MODELS.first}); " \
+                                 "VIC-20: #{VIC20_MODELS.join(', ')}; C128: #{C128_MODELS.join(', ')}; " \
+                                 "Plus/4: #{PLUS4_MODELS.join(', ')}; " \
+                                 "PET: #{PET_MODELS.join(', ')}; CBM-II: #{CBM2_MODELS.join(', ')}",
+                 section: "Window options", needs: :window),
+      Option.new("--ntsc", "Run an NTSC C64 or VIC-20, as --model ntsc does",
                  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; PET RAM: 4k, 8k, 16k or 32k (default: the model's own)",
+      Option.new("--60hz", "Run a CRTC PET's 60 Hz editor instead of its 50 Hz one, or a CBM-II on 60 Hz mains",
                  section: "Window options", needs: :window),
-      Option.new("--60hz", "Run a CRTC PET's 60 Hz editor instead of its 50 Hz one",
+      Option.new("--kernal VERSION", "Fit a CBM-II with KERNAL #{CBM2_KERNALS.join(' or ')} " \
+                                     "(default: #{CBM2_KERNALS.first}); the P500 takes #{P500_KERNALS.first}",
                  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),
@@ -76,6 +116,12 @@ module Badline
                                    "$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("--cpu CPU", "Set the SuperPET's CPU switch: 6502, 6809 or prog, for the system latch to pick " \
+                              "(default: 6502)",
+                 section: "Window options", needs: :window),
+      Option.new("--bank-ram MODE", "Set the SuperPET's bank RAM switch: rw, read for write-protected, or prog, " \
+                                    "for the system latch to pick (default: rw)",
+                 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),
       Option.new("--c1hi FILE", "Put a .bin ROM image in cartridge 1's high slot ($C000)",
@@ -94,7 +140,7 @@ module Badline
                  section: "Window options", needs: :window),
       Option.new("--verbose", "Print the display, sound and gamepad setup and the frame timing",
                  section: "Window options", needs: :window),
-      Option.new("--headless", "Play a .sid tune in the terminal instead of the window",
+      Option.new("--headless", "Play a .sid tune, or run the KIM-1's teletype, in the terminal instead of the window",
                  section: "Options without the window"),
       Option.new("--audio-out FILE", "Render a .sid tune to a .wav or .aiff file",
                  section: "Options without the window"),
@@ -118,7 +164,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 or PET snapshot, for x64sc or xpet",
+      Option.new("--vice", "Add VICE's modules to --save-snapshot's C64, PET or CBM-II snapshot",
                  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

@@ -52,11 +52,25 @@ module Badline
       end
 
       def drive_type_for(value)
-        raise Error, "invalid argument: --drive-type #{value}" unless PLUS4_DRIVE_TYPES.include?(value)
+        unless (PLUS4_DRIVE_TYPES + Drives::IEEEModels::NAMES).include?(value)
+          raise Error, "invalid argument: --drive-type #{value}"
+        end
 
         value
       end
 
+      def kernal_for(value)
+        raise Error, "invalid argument: --kernal #{value}" unless (CBM2_KERNALS + P500_KERNALS).include?(value)
+
+        value
+      end
+
+      def baud_for(value)
+        raise Error, "invalid argument: --baud #{value}" unless KIM1_BAUDS.include?(value)
+
+        value.to_i
+      end
+
       def reu_size(value)
         raise Error, "invalid argument: --reu #{value}" unless REU_SIZES.include?(value)
 
@@ -77,7 +91,7 @@ module Badline
 
       def validate
         validate_family
-        raise Error, "--drive-type needs plus4" unless @drive_type.nil? || @family == :plus4
+        validate_drive_type
 
         validate_mode
         validate_models
@@ -85,10 +99,20 @@ module Badline
         validate_paths
       end
 
+      def validate_drive_type
+        return if @drive_type.nil?
+
+        types = @family == :plus4 ? PLUS4_DRIVE_TYPES : Drives::IEEEModels::NAMES
+        return if %i[plus4 pet cbm2].include?(@family) && types.include?(@drive_type)
+
+        raise Error, "--drive-type needs #{PLUS4_DRIVE_TYPES.include?(@drive_type) ? 'plus4' : 'pet or cbm2'}"
+      end
+
       def validate_mode
         if headless?
           raise Error, "#{@window_only.first} needs the window" unless @window_only.empty?
           raise Error, "#{@any_window_only.first} needs the window" unless player_window? || @any_window_only.empty?
+          return if @family == :kim1
           raise Error, "no tune given" if tune_paths.empty? && !player_window?
 
           tune_paths.each { |path| validate_tune(path) }
@@ -99,9 +123,11 @@ module Badline
 
       def validate_family
         ram_option
+        @family == :kim1 ? validate_kim1 : refuse_kim1_options
         validate_vic20 if @family == :vic20
         @family == :plus4 ? validate_plus4 : refuse_plus4_options
         @family == :pet ? validate_pet : refuse_pet_options
+        @family == :cbm2 ? validate_cbm2 : refuse_cbm2_options
         if @family == :c128
           validate_c128
         elsif @c64_mode
@@ -118,7 +144,8 @@ module Badline
         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"
+        when :kim1 then @ram = kim1_ram(@ram_name)
+        else raise Error, "--ram needs vic20, plus4, pet or kim1"
         end
       end
 
@@ -130,11 +157,8 @@ module Badline
         raise Error, "the C128 needs the window" if headless?
       end
 
-      # The VIC-20 is a PAL one, in the window, without the C64's SID and
-      # REU.
+      # The VIC-20 runs in the window, without the C64's SID and REU.
       def validate_vic20
-        raise Error, "the NTSC VIC-20 isn't emulated yet" 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 VIC-20 needs the window" if headless?
@@ -170,14 +194,16 @@ 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.
+      # Only the PET has BASIC and editor ROMs to fit, and only it and the
+      # CBM-II a frame rate to pick.
       def refuse_pet_options
-        raise Error, "--60hz needs pet" unless @refresh_hz.nil?
+        raise Error, "--60hz needs pet or cbm2" unless @refresh_hz.nil? || @family == :cbm2
         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?
+        raise Error, "--cpu needs pet --model superpet" unless @cpu.nil?
+        raise Error, "--bank-ram needs pet --model superpet" unless @bank_ram.nil?
       end
 
       # The PET runs in the window, without the C64's SID and REU, at the
@@ -195,7 +221,8 @@ module Badline
       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.
+      # 8296 board's jumpers, and the 8296 has all of its RAM soldered on,
+      # as the SuperPET has besides its bank RAM.
       def validate_pet_board
         unless @characters.nil? || PET::ROMSets.characters(model).include?(@characters)
           raise Error, "the #{model} takes no character ROM #{@characters}"
@@ -204,6 +231,22 @@ module Badline
         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)
+        raise Error, "--ram doesn't fit the superpet" if model == "superpet" && !@ram_kb.nil?
+
+        validate_cpu_switch
+      end
+
+      # --cpu and --bank-ram set the SuperPET's switches, which no other
+      # PET has.
+      def validate_cpu_switch
+        validate_switch("--cpu", @cpu, PET::SuperPET::Board::CPU_SWITCH)
+        validate_switch("--bank-ram", @bank_ram, PET::SuperPET::Board::RAM_SWITCH)
+      end
+
+      def validate_switch(flag, value, positions)
+        return if value.nil?
+        raise Error, "#{flag} needs pet --model superpet" unless model == "superpet"
+        raise Error, "invalid argument: #{flag} #{value}" unless positions.include?(value)
       end
 
       # --basic and --editor name ROMs the model's board takes
@@ -232,6 +275,23 @@ module Badline
         @refresh_hz = editor_hz
       end
 
+      # Only the CBM-II has a KERNAL to pick.
+      def refuse_cbm2_options
+        raise Error, "--kernal needs cbm2" unless @kernal.nil?
+      end
+
+      # The CBM-II runs in the window, without the C64's SID and REU, and
+      # its model takes the KERNAL named.
+      def validate_cbm2
+        raise Error, "--ntsc needs the C64; a CBM-II on 60 Hz mains 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 CBM-II needs the window" if headless?
+
+        kernals = p500? ? P500_KERNALS : CBM2_KERNALS
+        raise Error, "the #{model} takes KERNAL #{kernals.join(' or ')}" unless kernals.include?(kernal)
+      end
+
       # `sid` takes directories as well as tunes.
       def validate_tune(path)
         return if !File.exist?(path) || File.extname(path).casecmp?(".sid")

data/lib/badline/options.rb

@@ -1,6 +1,7 @@
 # frozen_string_literal: true
 
 require "badline/pet/rom_sets"
+require "badline/drives/ieee_models"
 require "badline/options/option"
 require "badline/options/event"
 require "badline/options/table"
@@ -13,10 +14,11 @@ module Badline
   # Either opens the window for any media, or with --headless or
   # --audio-out plays or renders a .sid tune without one. `sid`, given
   # first, plays .sid tunes and directories of them in the terminal.
-  # `c64`, `vic20`, `c128`, `plus4` or `pet`, given first, names the
-  # machine family, and without one the family is the C64, the C128 for a
-  # program that loads where C128 BASIC starts, or the PET for an 8050's
-  # or 8250's disk or a PET tape.
+  # `c64`, `vic20`, `c128`, `plus4`, `pet` or `cbm2`, given first, names
+  # the machine family, and without one the family is the C64, the C128
+  # for a program that loads where C128 BASIC starts, the PET for an
+  # 8050's or 8250's disk or a PET tape, or the CBM-II for a cartridge
+  # signed as its own. `kim1` runs a MOS KIM-1.
   # The native build adds --no-sound and --version, and badline-ruby adds
   # --disable-jit.
   #
@@ -40,7 +42,7 @@ module Badline
     SID_MODELS = { "6581" => :mos6581, "8580" => :mos8580 }.freeze
 
     # What `sid` leaves out besides the window's options.
-    NOT_FOR_SID = %w[--audio-out].freeze
+    NOT_FOR_SID = %w[--audio-out --tty --baud --tty-load --load-address --start-address --ram].freeze
 
     REU_SIZES = %w[128 256 512 1024 2048 4096 8192 16384].freeze
 
@@ -77,7 +79,7 @@ module Badline
                 :audio_out, :seconds, :songlengths, :filter_chunk, :timeline
 
     # The machine family to build (Badline::Machine), :c64, :vic20, :c128,
-    # :plus4 or :pet.
+    # :plus4, :pet or :cbm2.
     attr_reader :family
 
     # The ROMs --basic, --editor and --characters fit a PET with, keys of
@@ -88,8 +90,17 @@ module Badline
     # The 8296's board jumpers --jumpers names (PET::Bus::Expansion::JUMPERS).
     attr_reader :jumpers
 
+    # The SuperPET's CPU switch, as --cpu sets it: "6502", "6809" or
+    # "prog".
+    def cpu = @cpu || "6502"
+
+    # The SuperPET's bank RAM switch, as --bank-ram sets it: "rw", "read"
+    # or "prog".
+    def bank_ram = @bank_ram || "rw"
+
     # The VIC-20's RAM expansion --ram names, a key of
-    # Vic20::Bus::RAM_CONFIGURATIONS, or nil without --ram.
+    # Vic20::Bus::RAM_CONFIGURATIONS, or the KIM-1's, one of
+    # KIM1::Bus::RAM_CONFIGURATIONS, or nil without --ram.
     attr_reader :ram
 
     # The Plus/4's or the PET's RAM in K --ram names, one of PLUS4_RAM's or
@@ -137,6 +148,8 @@ module Badline
       @ram_kb = nil
       @ram_name = nil
       initialize_pet
+      initialize_kim1
+      @kernal = nil
       @cartridges = {}
       @autostart = true
       @writable = false
@@ -228,8 +241,9 @@ module Badline
 
     def true_drive? = @true_drive || !@drive_type.nil?
 
-    # The Plus/4's true drive --drive-type names, "1551" without it.
-    def drive_type = @drive_type || "1551"
+    # The true drive --drive-type names: without it, "1551" on the Plus/4
+    # and the 2031 on the PET and the CBM-II.
+    def drive_type = @drive_type || (@family == :plus4 ? "1551" : Drives::IEEEModels::DEFAULT)
 
     # Whether --save-snapshot adds VICE's modules, so x64sc opens it.
     def vice? = @vice
@@ -246,9 +260,20 @@ module Badline
     def c64_mode? = @c64_mode
 
     # The frame rate of a CRTC PET's editor: 60 with --60hz or a 60 Hz
-    # --editor, else 50.
+    # --editor, else 50. A B series CBM-II's mains, which its editor
+    # follows.
     def refresh_hz = @refresh_hz || 50
 
+    # The CBM-II's mains, 60 with --60hz, or nil for the model's own.
+    def mains_hz = @refresh_hz
+
+    # The CBM-II's KERNAL --kernal names, one of CBM2_KERNALS or, on the
+    # P500, P500_KERNALS, the first of them without it.
+    def kernal = @kernal || (p500? ? P500_KERNALS : CBM2_KERNALS).first
+
+    # Whether the CBM-II to run is a P500, a 510 of either region.
+    def p500? = @family == :cbm2 && model.start_with?("510")
+
     def help? = @help
 
     def version? = @version
@@ -264,7 +289,7 @@ module Badline
     # A .sid on its own plays in the SID player, as `sid` would, unless an
     # option of the emulator's window asks for the machine.
     def play_lone_tune
-      return if @sid_command || %i[vic20 plus4 pet].include?(@family) || headless? || !@window_only.empty?
+      return if @sid_command || %i[vic20 plus4 pet cbm2 kim1].include?(@family) || headless? || !@window_only.empty?
       return if @media_path.nil?
 
       @sid_command = File.extname(@media_path).casecmp?(".sid")
@@ -324,8 +349,9 @@ module Badline
       when "--model" then @models << value
       when "--reu" then @reu = reu_size(value)
       when "--ram" then @ram_name = value
-      when "--basic", "--editor", "--characters", "--jumpers" then pet_option(name, value)
+      when "--basic", "--editor", "--characters", "--jumpers", "--cpu", "--bank-ram" then pet_option(name, value)
       when "--drive-type" then @drive_type = drive_type_for(value)
+      when "--kernal" then @kernal = kernal_for(value)
       when "--c1lo", "--c1hi", "--c2lo", "--c2hi" then @cartridges[CARTRIDGE_SLOTS.fetch(name)] = value
       when "--frames" then @frames = number(flag, value)
       when "--screenshot" then @screenshot = value
@@ -335,12 +361,16 @@ module Badline
       when "--seconds" then @seconds = decimal(flag, value)
       when "--songlengths" then @songlengths = value
       when "--rate" then @rate = number(flag, value)
+      when "--baud", "--load-address", "--start-address" then kim1_option(name, flag, value)
       else @filter_chunk = number(flag, value)
       end
     end
 
-    # The PET's frame rate, ROMs and board jumpers, its own until named.
+    # The PET's frame rate, ROMs, board jumpers and the SuperPET's CPU and
+    # bank RAM switches, its own until named.
     def initialize_pet
+      @cpu = nil
+      @bank_ram = nil
       @refresh_hz = nil
       @basic = nil
       @editor = nil
@@ -353,6 +383,8 @@ module Badline
       when "--basic" then @basic = value
       when "--editor" then @editor = value
       when "--characters" then @characters = value
+      when "--cpu" then @cpu = value
+      when "--bank-ram" then @bank_ram = value
       else @jumpers = value.split(",")
       end
     end
@@ -377,6 +409,7 @@ module Badline
       when "--headless" then @headless = true
       when "--quiet" then @quiet = true
       when "--all-subtunes" then @all_subtunes = true
+      when "--tty", "--tty-load" then kim1_switch(name)
       else @tui = false
       end
     end

data/lib/badline/pet/bus.rb

@@ -8,11 +8,12 @@ module Badline
     #
     # $0000-$7FFF - RAM, 4K, 8K, 16K or 32K of it from $0000, then nothing
     # $8000-$8FFF - screen RAM, repeated (Model), then nothing
-    # $9000-$AFFF - two empty ROM sockets
+    # $9000-$AFFF - two empty ROM sockets, or the SuperPET's bank RAM at
+    #               $9000
     # $B000-$DFFF - BASIC 4, or BASIC 1 or 2 from $C000
     # $E000-$E7FF - the screen editor ROM
     # $E800-$E8FF - I/O (IO)
-    # $E900-$EFFF - nothing
+    # $E900-$EFFF - nothing, but the SuperPET's I/O page at $EF00
     # $F000-$FFFF - the KERNAL ROM
     #
     # The data lines hold the last byte they carried, so a read from an
@@ -136,6 +137,7 @@ module Badline
         @user_port = !@expansion.nil? && @expansion.user_port?
         @debug_register = nil
         @io_write_handler = nil
+        @board = nil
         map_pages
       end
 
@@ -174,6 +176,11 @@ module Badline
         @write_pages[addr >> 8].poke(addr, value)
       end
 
+      # #peek and #poke as the SuperPET's 6809 calls them.
+      def read(addr) = peek(addr)
+
+      def write(addr, value) = poke(addr, value)
+
       # Whether the CPU reads the KERNAL ROM at $F000-$FFFF, which an 8096's
       # board covers while its control register turns it on, and an 8296's
       # RAM too.
@@ -185,6 +192,12 @@ module Badline
         map_pages
       end
 
+      # Lays the SuperPET's board (SuperPET::Board) over its pages.
+      def fit_board(board)
+        @board = board
+        map_pages
+      end
+
       # Lays the pages out again, for the board's control register.
       def map_pages
         map(@open_bus, 0x00, 0x100)
@@ -195,6 +208,7 @@ module Badline
         map(@io, 0xe8, 0x01)
         @read_pages.fill(@kernal_rom, 0xf0, 0x10)
         @expansion&.map(@read_pages, @write_pages)
+        @board&.map(@read_pages, @write_pages)
         map_debug_register if @debug_register
       end