badline 0.16.1 → 0.18.0

data/lib/badline/frontend/menu/drive_types.rb

@@ -0,0 +1,56 @@
+# frozen_string_literal: true
+
+module Badline
+  module Frontend
+    # The pause menu's list of the true drives a PET or a CBM-II takes on
+    # device 8, which the DRIVE 8 page's DRIVE TYPE row brings up: a row
+    # for each model, the disks it reads at its right, and the one on the
+    # bus said so. Up and Down move along the list, Return or a click picks
+    # a model, and Left or Esc goes back to the page.
+    class DriveTypes
+      MODELS = %w[2031 2040 3040 4040 1001 8050 8250 9060 9090].freeze
+      ACTIONS = %i[type2031 type2040 type3040 type4040 type1001 type8050 type8250 type9060 type9090].freeze
+
+      def initialize(painter, buttons)
+        @painter = painter
+        @buttons = buttons
+        @open = false
+        @model = ""
+      end
+
+      def open? = @open
+
+      # Opens the list with the focus on `model`, the drive on the bus, or
+      # on the first if there's none.
+      def open(model)
+        @model = model
+        @open = true
+        index = MODELS.index(model)
+        @buttons.focus = ACTIONS[index.nil? ? 0 : index]
+      end
+
+      def close
+        @open = false
+      end
+
+      # The model `action` picks, or nil.
+      def model_for(action)
+        index = ACTIONS.index(action)
+        index.nil? ? nil : MODELS[index]
+      end
+
+      # Draws the list `width` wide.
+      def draw(left, top, width)
+        @painter.text(left, top, "DRIVE 8 TYPE", MenuTheme::BRIGHT)
+        top += 20
+        MODELS.each_with_index do |model, index|
+          media = Drives::IEEEModels::MEDIA.fetch(model).join(" ").upcase
+          label = model == @model ? "#{model}, ON THE BUS" : model
+          @buttons.row([left, top, width], label, ACTIONS[index], media)
+          top += Buttons::HEIGHT + 2
+        end
+        @painter.text(left, top + 6, "RETURN: PICK  LEFT, ESC: BACK", MenuTheme::DIM)
+      end
+    end
+  end
+end

data/lib/badline/frontend/menu/menu_dialogs.rb

@@ -4,12 +4,14 @@ module Badline
   module Frontend
     # The pause menu's screens that take over its panel: the file browser
     # INSERT, Quick open and LOAD bring up, the question before a cartridge
-    # or Quick open power cycles the machine, and the prompt for a save's
-    # name. A disk or tape picked goes straight in, and a save loads.
+    # or Quick open power cycles the machine, the prompt for a save's name,
+    # and the list of a PET's or a CBM-II's drive types. A disk or tape
+    # picked goes straight in, a save loads, and a drive type picked goes on
+    # the bus.
     class MenuDialogs
       EXTENSIONS = {
-        disk: Media::Extensions::DEVICE8, tape: Media::Extensions.of(%i[tape]),
-        cartridge: Media::Extensions.of(%i[cartridge]), program: Media::Extensions::ALL, snapshot: %w[.vsf]
+        disk: Media::Extensions::DEVICE8, cartridge: Media::Extensions.of(%i[cartridge]),
+        program: Media::Extensions::ALL, snapshot: %w[.vsf]
       }.freeze
       TITLES = { disk: "INSERT A DISK", tape: "INSERT A TAPE", cartridge: "INSERT A CARTRIDGE",
                  program: "QUICK OPEN", snapshot: "LOAD A SAVE" }.freeze
@@ -25,13 +27,14 @@ module Badline
         @browser = FileBrowser.new(painter, buttons)
         @confirmation = Confirmation.new(painter, buttons)
         @name_field = NameField.new(painter)
+        @drive_types = DriveTypes.new(painter, buttons)
         @snapshots = snapshots
         @browsing = nil
         @browse_from = media_path.empty? ? Dir.pwd : File.dirname(File.expand_path(media_path))
         @computer = nil
       end
 
-      def open? = !@browsing.nil? || @confirmation.open? || @name_field.open?
+      def open? = !@browsing.nil? || @confirmation.open? || @name_field.open? || @drive_types.open?
 
       # Opens the browser on the files for `kind`: :disk, :tape, :cartridge,
       # :program, or :snapshot, which starts in the saves folder.
@@ -40,12 +43,16 @@ module Badline
         extensions = case kind
                      when :cartridge then @media.cartridge_extensions
                      when :disk then @media.disk_extensions
+                     when :tape then @media.tape_extensions
                      when :program then programs
                      else EXTENSIONS.fetch(kind)
                      end
         @browser.open(kind == :snapshot ? Badline.data_folder("saves") : @browse_from, extensions)
       end
 
+      # Lists the drive types, with `model` the one on the bus.
+      def pick_drive(model) = @drive_types.open(model)
+
       # Asks for a save's name, starting from `name`.
       def ask_name(name) = @name_field.open("SAVE AS", name)
 
@@ -66,7 +73,7 @@ module Badline
       def drop(path)
         extension = File.extname(path).downcase
         return @media.insert(:disk, path) && false if @media.disk_extensions.include?(extension)
-        return @media.insert(:tape, path) && false if EXTENSIONS[:tape].include?(extension)
+        return @media.insert(:tape, path) && false if @media.tape_extensions.include?(extension)
         return false unless programs.include?(extension)
 
         @confirmation.ask(@media.cartridge_extensions.include?(extension) ? :cartridge : :start, path)
@@ -77,6 +84,7 @@ module Badline
       # answered yes, or nil.
       def key(scancode)
         return browsed(@browser.key(scancode)) unless @browsing.nil?
+        return drive_key(scancode) if @drive_types.open?
         if @name_field.open? && !@confirmation.open?
           return named(@name_field.key(scancode, SDL.event_mod(SDL.event).anybits?(SDL::KMOD_SHIFT)))
         end
@@ -88,15 +96,21 @@ module Badline
         nil
       end
 
-      # Handles a click on the browser's list at `top`, or on a question's
-      # answer, `action`.
-      def click(action, top) = action == :browse ? browsed(@browser.click(top)) : answer(action)
+      # Handles a click on the browser's list at `top`, on a question's
+      # answer, `action`, or on a drive type.
+      def click(action, top)
+        return browsed(@browser.click(top)) if action == :browse
+        return picked(action) if @drive_types.open?
+
+        answer(action)
+      end
 
       def scroll(rows) = @browser.scroll(rows)
 
       def draw(left, top, width)
         return @browser.draw(left, top, width, TITLES.fetch(@browsing)) unless @browsing.nil?
         return @confirmation.draw(left, top) if @confirmation.open?
+        return @drive_types.draw(left, top, width) if @drive_types.open?
 
         @name_field.draw(left, top, width)
       end
@@ -104,12 +118,16 @@ module Badline
       private
 
       # What Quick open and a drop start: every medium, and the cartridges
-      # the machine takes.
-      def programs = (EXTENSIONS[:program] + @media.cartridge_extensions).uniq
+      # the machine takes, or on the KIM-1 its programs.
+      def programs
+        return Media::KIM1Media::EXTENSIONS if @media.kim1?
+
+        (EXTENSIONS[:program] + @media.cartridge_extensions).uniq
+      end
 
-      # Puts the disk or tape picked in, or asks before a cartridge or
-      # Quick open power cycles the machine, and leaves the browser, as Esc
-      # does.
+      # Puts the disk or tape picked in, a tape Quick open picks on the
+      # KIM-1 too, or asks before a cartridge or Quick open power cycles the
+      # machine, and leaves the browser, as Esc does.
       def browsed(picked)
         return nil if picked.nil?
 
@@ -121,12 +139,41 @@ module Badline
 
         if %i[disk tape].include?(kind)
           @media.insert(kind, picked)
+        elsif @media.kim1? && @media.tape_extensions.include?(File.extname(picked).downcase)
+          @media.insert(:tape, picked)
         else
           @confirmation.ask(kind == :cartridge ? :cartridge : :start, picked)
         end
         nil
       end
 
+      # Up and Down move along the drive types, Return or Space picks one,
+      # and Left or Esc goes back to the page.
+      def drive_key(scancode)
+        return picked(@buttons.focus) if [Keys::RETURN, Keys::SPACE].include?(scancode)
+
+        direction = Keys::DIRECTIONS[scancode]
+        if scancode == Keys::ESCAPE || direction == :left
+          @drive_types.close
+          @buttons.focus = :drive_type
+        elsif %i[up down].include?(direction)
+          @buttons.shift(direction == :up ? -1 : 1, 1)
+        end
+        nil
+      end
+
+      # Puts the drive type `action` stands for on the bus, and goes back
+      # to the page.
+      def picked(action)
+        model = @drive_types.model_for(action)
+        return nil if model.nil?
+
+        @drive_types.close
+        @buttons.focus = :drive_type
+        @media.drive_type(model)
+        nil
+      end
+
       # Saves the machine under the name typed once Return takes it, and
       # asks first when a save has that name already.
       def named(result)

data/lib/badline/frontend/menu/menu_media.rb

@@ -37,19 +37,28 @@ module Badline
 
       def writable? = @writable
 
+      def kim1? = @computer.family == :kim1
+
       def disk_path = MediaSlots.disk_path(@computer)
 
       def inserted? = MediaSlots.disk?(@computer)
 
-      # Puts a disk in device 8 or a tape in the datasette, `kind` :disk or
-      # :tape, and says whether it went in. A list puts its first disk in.
+      # Puts a disk in device 8 or a tape in the datasette or the KIM-1's
+      # deck, `kind` :disk or :tape, and says whether it went in. A list
+      # puts its first disk in.
       def insert(kind, path)
         succeeds? do
-          if kind == :disk
+          if @computer.family == :kim1
+            raise Machine::Unsupported, "the KIM-1 takes no disks" if kind == :disk
+
+            @computer.tape.insert_tape(Storage::KIMTape.read(path))
+          elsif kind == :disk
             disk = Media::DiskList.disk(path)
             Media.insert_disk(@computer, disk, read_only: !@writable)
             list(path)
           else
+            raise Machine::Unsupported, "the CBM-II has no datasette" if @computer.family == :cbm2
+
             @computer.datasette.insert(Storage::TAP.new(path))
           end
         end
@@ -68,6 +77,21 @@ module Badline
 
       def eject_disk = MediaSlots.eject_disk(@computer)
 
+      # Puts a true drive of `model` on the PET's or the CBM-II's bus as
+      # device 8, in place of the drive or the traps there, with the disk
+      # device 8 had in it if the model reads it, and says whether it went
+      # on. The disk comes out first, so what was written reaches its file.
+      def drive_type(model)
+        return true if MediaSlots.drive_model(@computer) == model
+
+        succeeds? do
+          path = disk_path
+          eject_disk
+          @computer.plug_ieee_drive(model)
+          Media::TrueDrive.insert(@computer, path, read_only: !@writable) if Drives::IEEEModels.reads?(model, path)
+        end
+      end
+
       # Sets whether disks are writable, for the disk in the drive too,
       # which goes in again as the notch now says.
       def writable(writable)
@@ -99,18 +123,25 @@ module Badline
         insert(:disk, set[index + step])
       end
 
+      # The extensions of the tapes the datasette takes, or the KIM-1's
+      # deck: .wav recordings.
+      def tape_extensions = kim1? ? [Media::KIM1Media::TAPE] : Media::Extensions.of(%i[tape])
+
       # The extensions of the cartridges the machine takes: .crt, on the
-      # Plus/4 raw .bin ROM images too, and none on the PET.
+      # Plus/4 raw .bin ROM images too, and none on the PET or the KIM-1,
+      # or on the CBM-II, whose cartridge goes in from the command line.
       def cartridge_extensions
-        extensions = Media::Extensions.of(@computer.family == :pet ? %i[none] : %i[cartridge])
+        extensions = Media::Extensions.of(%i[pet cbm2 kim1].include?(@computer.family) ? %i[none] : %i[cartridge])
         @computer.family == :plus4 ? extensions + [Media::Plus4Media::ROM_IMAGE] : extensions
       end
 
-      # The extensions of what goes in device 8: on the PET the 8050's and
-      # 8250's disk images besides the others, and no raw GCR, which only
-      # a serial true drive reads.
+      # The extensions of what goes in device 8: on the PET and the CBM-II
+      # the 8050's and 8250's disk images and the hard disks' besides the
+      # others, and no raw GCR, which only a serial true drive reads.
       def disk_extensions
-        return Media::Extensions.of(%i[disk ieee_disk archive disk_list]) if @computer.family == :pet
+        if %i[pet cbm2].include?(@computer.family)
+          return Media::Extensions.of(%i[disk ieee_disk hard_disk archive disk_list])
+        end
 
         Media::Extensions::DEVICE8
       end
@@ -125,17 +156,19 @@ module Badline
 
       # What a save of the machine is named after: the cartridge, the disk,
       # the tape, or BASIC, without the bracketed parts of a file's name. A
-      # VIC-20's are named after its disk, or else the machine, and a
-      # Plus/4's or a PET's after its disk or tape.
+      # VIC-20's are named after its disk, or else the machine, a Plus/4's
+      # or a PET's after its disk or tape, and a CBM-II's after its disk.
       def game_name
         vic20 = @computer.family == :vic20
-        name = vic20 || %i[plus4 pet].include?(@computer.family) ? "" : cartridge_name
+        name = vic20 || %i[plus4 pet cbm2 kim1].include?(@computer.family) ? "" : cartridge_name
         disk = disk_path
         name = File.basename(disk, File.extname(disk)) if name.empty? && !disk.empty?
-        name = tape_name if name.empty? && !vic20
+        name = tape_name if name.empty? && !vic20 && !%i[cbm2 kim1].include?(@computer.family)
         name = name.sub(/\s*[(\[].*\z/, "").strip
         return name unless name.empty?
 
+        return "KIM-1" if @computer.family == :kim1
+
         vic20 ? "VIC-20" : "BASIC"
       end
 
@@ -154,7 +187,7 @@ module Badline
         case @computer.family
         when :plus4 then @computer.cartridge_slots.map { |slot| slot_name(slot) }.uniq.join(", ")
         when :vic20 then @computer.cartridge_name
-        when :pet then ""
+        when :pet, :cbm2, :kim1 then ""
         else
           cartridge = @computer.address_bus.cartridge
           cartridge.nil? ? "" : cartridge.name

data/lib/badline/frontend/menu/menu_pages.rb

@@ -13,8 +13,20 @@ module Badline
       COLUMNS = 25
       ROW_WIDTH = 200
 
+      # The KIM-1's settings on its PANEL page (MenuPorts).
+      KIM1_SETTINGS = %i[sst_off sst_on keypad teletype irq_open irq_wired pb7_out pa0_speaker].freeze
+
+      # The KIM-1's deck on its TAPE page: the keys down, and the rest.
+      KIM1_DECK = [%w[STOP PLAY RECORD], %i[kim1_stop kim1_play kim1_record]].freeze
+      KIM1_TAPE = (KIM1_DECK.last + %i[kim1_rewind kim1_eject]).freeze
+
       RECENT = %i[recent0 recent1 recent2 recent3 recent4 recent5 recent6 recent7].freeze
 
+      # The SuperPET's switches: SW2 picks the CPU and SW1 protects the
+      # bank RAM, each at PROG left to the system latch.
+      CPU_SWITCH = [%w[6502 6809 PROG], %i[cpu6502 cpu6809 cpu_prog]].freeze
+      RAM_SWITCH = [%w[R/W READ PROG], %i[bank_rw bank_read bank_prog]].freeze
+
       SID_MODELS = %i[mos6581 mos8580].freeze
       RAM_NAMES = {
         unexpanded: "", "3k": "3K", "8k": "8K", "16k": "16K", "24k": "24K", "32k": "32K",
@@ -76,8 +88,12 @@ module Badline
         when :swap then @controls.swap_ports
         when :sound_on, :mute then @sound.toggle_mute unless @sound.muted? == (action == :mute)
         when :sid6581, :sid8580 then @computer.sound_source.model = action == :sid8580 ? :mos8580 : :mos6581
+        when :cpu6502, :cpu6809, :cpu_prog then switch_cpu(action)
+        when :bank_rw, :bank_read, :bank_prog then switch_bank_ram(action)
         when :reset then @computer.reset!
         when :power_cycle then @computer.power_cycle!
+        when *KIM1_SETTINGS then kim1_setting(action)
+        when *KIM1_TAPE then kim1_tape(action)
         else pick_port(action)
         end
       end
@@ -88,6 +104,21 @@ module Badline
       # Whether the machine is a PET, whose ports page shows its keyboard.
       def pet? = @computer.family == :pet
 
+      # Whether the machine is a CBM-II, whose ports page shows its keyboard
+      # too.
+      def cbm2? = @computer.family == :cbm2
+
+      # The model of the true drive on device 8, or an empty one for the
+      # traps.
+      def drive_model = MediaSlots.drive_model(@computer)
+
+      # Whether the machine is the CBM-II's B series, whose ports page is
+      # its keyboard's alone.
+      def b_series? = cbm2? && !Controls.p500?(@computer)
+
+      # Whether the machine is a KIM-1, whose ports page is its panel's.
+      def kim1? = @computer.family == :kim1
+
       private
 
       def vic20? = @computer.family == :vic20
@@ -95,6 +126,8 @@ module Badline
       def plus4? = @computer.family == :plus4
 
       def draw_drive
+        return info("DRIVE", "") if kim1?
+
         media = @media
         inserted = media.inserted?
         set = inserted ? media.disk_set : []
@@ -110,9 +143,14 @@ module Badline
         skip
         drive = @computer.true_drive
         info("DEVICE", drive.nil? ? "FAST LOADING" : "#{drive.model_name}, TRUE DRIVE")
+        row("DRIVE TYPE...", :drive_type, drive_model) if pet? || cbm2?
       end
 
+      # The CBM-II has no datasette, and the KIM-1 a deck of its own.
       def draw_datasette
+        return info("TAPE", "") if cbm2?
+        return draw_kim1_tape if kim1?
+
         datasette = @computer.datasette
         tape = datasette.tape
         info("TAPE", tape.nil? ? "" : File.basename(tape.path))
@@ -124,8 +162,55 @@ module Badline
         info("MOTOR", datasette.motor? ? "ON" : "OFF")
       end
 
+      # The KIM-1's deck, with its tape's name and how far into it the deck
+      # is, in minutes and seconds.
+      def draw_kim1_tape
+        deck = @computer.tape
+        tape = deck.tape
+        info("TAPE", File.basename(tape.path))
+        row("INSERT...", :insert_tape)
+        row("EJECT", :kim1_eject)
+        down = 0
+        down = 1 if deck.playing?
+        down = 2 if deck.recording?
+        toggle("DECK", :kim1_deck, [KIM1_DECK.first, KIM1_DECK.last, down])
+        row("REWIND", :kim1_rewind)
+        skip
+        info("POSITION", "#{clock(deck.position)} OF #{clock(tape.duration)}")
+      end
+
+      def clock(microseconds)
+        seconds = microseconds / 1_000_000
+        "#{seconds / 60}:#{(seconds % 60).to_s.rjust(2, '0')}"
+      end
+
+      # Presses the KIM-1 deck's keys. RECORD with no file to record to
+      # puts a new tape in first, in the tapes folder (Badline.data_folder).
+      def kim1_tape(action)
+        deck = @computer.tape
+        case action
+        when :kim1_stop then deck.stop
+        when :kim1_play then deck.play
+        when :kim1_record
+          deck.insert_tape(Storage::KIMTape.create(new_tape_path)) if deck.tape.path.empty?
+          deck.record
+        when :kim1_rewind then deck.rewind
+        else deck.eject
+        end
+      end
+
+      # The first of kim1-1.wav, kim1-2.wav and on that isn't taken.
+      def new_tape_path
+        folder = Badline.data_folder("tapes")
+        number = 1
+        number += 1 while File.exist?(File.join(folder, "kim1-#{number}.wav"))
+        File.join(folder, "kim1-#{number}.wav")
+      end
+
       def draw_expansion
         return draw_pet_memory if pet?
+        return info("RAM", "#{@computer.model.ram_kb}K") if cbm2?
+        return info("RAM", "1K") if kim1?
 
         info("CARTRIDGE", @media.cartridge_name)
         return info("RAM EXPANSION", RAM_NAMES.fetch(@computer.ram_configuration)) if vic20?
@@ -163,6 +248,8 @@ module Badline
         return draw_8296_memory if model.cbm8296?
 
         info("RAM", "#{@computer.ram_kb}K")
+        return info("BANK RAM", "64K, BANK #{@computer.board.bank} AT $9000") if model.superpet?
+
         info("EXPANSION RAM", model.expansion ? "64K BOARD" : "")
       end
 
@@ -186,12 +273,15 @@ module Badline
         end
       end
 
-      # The C128 names its model and the mode it runs in first, the Plus/4
-      # and the PET their model and RAM, and the Plus/4 its RAM expansion if
-      # it has one.
+      # The C128 names its model and the mode it runs in first, the Plus/4,
+      # the PET and the CBM-II their model and RAM, the Plus/4 its RAM
+      # expansion if it has one, and the CBM-II its KERNAL, the B series'
+      # 901244 or the P500's 901234.
       def draw_power
         info("MACHINE", "#{@computer.model.name.upcase}, #{@computer.mode.to_s.upcase} MODE") if c128?
-        info("MACHINE", @computer.model_label) if pet?
+        info("MACHINE", @computer.model_label.upcase) if pet? || cbm2? || kim1?
+        info("KERNAL", "#{Controls.p500?(@computer) ? 901_234 : 901_244}-#{@computer.kernal.upcase}") if cbm2?
+        draw_superpet_switches if pet? && @computer.superpet?
         if plus4?
           info("MACHINE", @computer.model_label)
           expansion = @computer.ram_expansion_label
@@ -203,6 +293,25 @@ module Badline
         row("QUIT", :quit)
       end
 
+      # The SuperPET's CPU switch, which a move applies with a reset, and its
+      # bank RAM switch, which applies at once, with the CPU that has the
+      # bus.
+      def draw_superpet_switches
+        board = @computer.board
+        toggle("CPU SWITCH", :cpu_switch, [*CPU_SWITCH, PET::SuperPET::Board::CPU_SWITCH.index(board.cpu_switch)])
+        toggle("RAM SWITCH", :ram_switch, [*RAM_SWITCH, PET::SuperPET::Board::RAM_SWITCH.index(board.ram_switch)])
+        info("RUNNING", @computer.m6809_running? ? "6809, WATERLOO" : "6502, BASIC 4")
+      end
+
+      def switch_cpu(action)
+        position = PET::SuperPET::Board::CPU_SWITCH[CPU_SWITCH[1].index(action)]
+        @computer.switch_cpu(position) unless position == @computer.board.cpu_switch
+      end
+
+      def switch_bank_ram(action)
+        @computer.switch_bank_ram(PET::SuperPET::Board::RAM_SWITCH[RAM_SWITCH[1].index(action)])
+      end
+
       # A label, and its value under it, or NONE in the dim colour when the
       # value is empty.
       def info(label, value)

data/lib/badline/frontend/menu/menu_ports.rb

@@ -6,8 +6,13 @@ module Badline
     # control port has plugged in, a joystick or a pot device, and whether
     # the keys type or drive the joysticks. The VIC-20 has one port, a
     # joystick's, and the Plus/4 two joysticks and no pot devices. The PET
-    # has no ports, and the page, KEYBOARD there, says where its keys are
-    # instead.
+    # and the CBM-II's B series have no ports, and the page, KEYBOARD
+    # there, says where their keys are instead. The P500 has two joysticks,
+    # and the page says where its keys are while they type. The KIM-1's,
+    # PANEL there, sets its SST switch and TTY/KB jumper, which presses RS
+    # for the monitor to start again on the keypad or the teletype, and what its
+    # application connector wires: U3's PB7 to IRQ, and a speaker on U3's
+    # PA0 in place of the audio output on U2's PB7.
     module MenuPorts
       PORT_DEVICES = %i[joystick mouse paddles].freeze
       PORT_NAMES = %w[JOY MOUSE PADDLES].freeze
@@ -21,15 +26,22 @@ module Badline
       PET_GRAPHICS_KEYS = ["ESC: RUN/STOP", "SHIFT+LETTER: GRAPHIC", "ALT+SYMBOL: GRAPHIC"].freeze
       PET_BUSINESS_KEYS = ["ESC: ESC", "TAB: TAB", "PAGE UP: REPEAT", "KEYPAD: KEYPAD", "ALT+KEY: SHIFT+KEY"].freeze
 
+      # Where the CBM-II's keys without a character of their own are.
+      CBM2_KEYS = ["ESC: ESC", "F12: RUN/STOP", "HOME: CLR/HOME", "BACKSPACE: INST/DEL", "F1-F8: F1-F8",
+                   "ALT+F9, ALT+F10: F9, F10", "KEYPAD: KEYPAD", "ALT+0: KEYPAD 00", "ALT+C: C=  ALT+E: CE",
+                   "ALT+G: NORM/GRAPH", "ALT+R: OFF/RVS  ALT+P: PI", "_: LEFT ARROW"].freeze
+
       private
 
       def draw_ports
         return draw_vic20_port if @computer.family == :vic20
         return draw_plus4_ports if @computer.family == :plus4
         return draw_pet_keys if @computer.family == :pet
+        return draw_p500_ports if Controls.p500?(@computer)
+        return draw_cbm2_keys if @computer.family == :cbm2
+        return draw_kim1_panel if @computer.family == :kim1
 
-        toggle("PORT 1", :port1, [PORT_NAMES, PORT_ACTIONS[0], PORT_DEVICES.index(port_device(1))])
-        toggle("PORT 2", :port2, [PORT_NAMES, PORT_ACTIONS[1], PORT_DEVICES.index(port_device(2))])
+        draw_pot_ports
         return unless draw_keys(@computer.family == :c128 ? "C128" : "C64")
 
         row("SWAP JOYSTICKS", :swap)
@@ -61,15 +73,76 @@ module Badline
 
       # The PET's keyboard, whose keys type the characters on the host's
       # (PETKeyboard), and the keys that stand for the rest of its keys.
+      # The SuperPET's 6809 shows whether its keys type ASCII, or go by
+      # position for the APL symbols on its keycaps.
       def draw_pet_keys
         business = @computer.model.keyboard == :business
         info("KEYBOARD", business ? "BUSINESS" : "GRAPHICS")
+        draw_superpet_characters if @computer.superpet?
         (PET_KEYS + (business ? PET_BUSINESS_KEYS : PET_GRAPHICS_KEYS)).each do |line|
           @painter.text(@left, @top, line, MenuTheme::TEXT)
           @top += MenuPages::LINE
         end
       end
 
+      def draw_superpet_characters
+        apl = @computer.apl_characters?
+        return unless apl || @computer.m6809_running?
+
+        info("CHARACTERS", apl ? "APL, KEYS BY POSITION" : "ASCII")
+      end
+
+      def draw_kim1_panel
+        kim = @computer
+        toggle("SST", :sst, [%w[OFF ON], %i[sst_off sst_on], kim.sst ? 1 : 0])
+        toggle("TTY/KB", :tty, [%w[KEYPAD TTY], %i[keypad teletype], kim.tty? ? 1 : 0])
+        skip
+        info("RAM", "#{kim.ram_kb}K")
+        toggle("U3 PB7", :irq, [%w[OPEN IRQ], %i[irq_open irq_wired], kim.irq_wired ? 1 : 0])
+        toggle("SOUND", :speaker, [["U2 PB7", "U3 PA0"], %i[pb7_out pa0_speaker], kim.speaker? ? 1 : 0])
+      end
+
+      def kim1_setting(action)
+        kim = @computer
+        case action
+        when :sst_off, :sst_on then kim.sst = action == :sst_on
+        when :keypad, :teletype
+          kim.tty = action == :teletype
+          kim.reset!
+        when :irq_open, :irq_wired then kim.irq_wired = action == :irq_wired
+        else kim.speaker = action == :pa0_speaker
+        end
+      end
+
+      # What each control port has plugged in, a joystick, a mouse or
+      # paddles.
+      def draw_pot_ports
+        toggle("PORT 1", :port1, [PORT_NAMES, PORT_ACTIONS[0], PORT_DEVICES.index(port_device(1))])
+        toggle("PORT 2", :port2, [PORT_NAMES, PORT_ACTIONS[1], PORT_DEVICES.index(port_device(2))])
+      end
+
+      # The P500's two ports, its joysticks one for each set of keys, and
+      # while the keys type, where its keys are.
+      def draw_p500_ports
+        draw_pot_ports
+        return draw_cbm2_keys unless draw_keys("P500")
+
+        row("SWAP JOYSTICKS", :swap)
+        skip
+        arrows = @controls.arrows_port
+        info("ARROWS, SPACE", "JOYSTICK #{arrows}")
+        info("WASD, LEFT SHIFT", "JOYSTICK #{3 - arrows}")
+      end
+
+      # The CBM-II's keyboard, which types as the PET's does, and the keys
+      # that stand for the rest of its keys.
+      def draw_cbm2_keys
+        CBM2_KEYS.each do |line|
+          @painter.text(@left, @top, line, MenuTheme::TEXT)
+          @top += MenuPages::LINE
+        end
+      end
+
       # The toggle between the keyboard named and the joysticks, and
       # whether the keys drive the joysticks.
       def draw_keys(keyboard)

data/lib/badline/frontend/menu/pause_menu.rb

@@ -88,7 +88,7 @@ module Badline
       # any: :resume, :quit, :freeze or :swap.
       def click(left, top)
         action = @buttons.action_at(left, top)
-        return @dialogs.click(action, top) if %i[browse confirm cancel].include?(action)
+        return @dialogs.click(action, top) if %i[browse confirm cancel].include?(action) || picks_drive?(action)
 
         choose(action)
       end
@@ -159,6 +159,7 @@ module Badline
         when :insert_cartridge then @dialogs.browse(:cartridge)
         when :quick_open then @dialogs.browse(:program)
         when :remove_cartridge then @dialogs.ask_remove
+        when :drive_type then @dialogs.pick_drive(@pages.drive_model)
         else @pages.perform(action)
         end
         nil
@@ -235,10 +236,13 @@ module Badline
         repeat.zero? || Keys::DIRECTIONS.key?(scancode) ? key(scancode) : nil
       end
 
+      def picks_drive?(action) = DriveTypes::ACTIONS.include?(action) && @dialogs.open?
+
       def draw_sections
         top = @top + 32
         SECTIONS.each_with_index do |name, index|
-          name = "KEYBOARD" if PAGES[index] == :ports && @pages.pet?
+          name = "KEYBOARD" if PAGES[index] == :ports && (@pages.pet? || @pages.b_series?)
+          name = "PANEL" if PAGES[index] == :ports && @pages.kim1?
           @buttons.plain(@left + 6, top, name.ljust(14), PAGES[index], on: index == @section)
           top += Buttons::HEIGHT + 2
         end