badline 0.17.0 → 0.18.0

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
@@ -92,10 +108,17 @@ module Badline
       # 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
@@ -103,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 : []
@@ -118,11 +143,13 @@ 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.
+      # 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
@@ -135,9 +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?
@@ -175,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
 
@@ -204,8 +279,9 @@ module Badline
       # 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.upcase) if pet? || cbm2?
+        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
@@ -217,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

@@ -8,7 +8,11 @@ module Badline
     # joystick's, and the Plus/4 two joysticks and no pot devices. The PET
     # 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.
+    # 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
@@ -35,6 +39,7 @@ module Badline
         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
 
         draw_pot_ports
         return unless draw_keys(@computer.family == :c128 ? "C128" : "C64")
@@ -68,15 +73,47 @@ 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

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? || @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

data/lib/badline/frontend/pet_keyboard.rb

@@ -13,6 +13,12 @@ module Badline
     # key its unshifted character is on with the PET's SHIFT, so the
     # graphics on the graphics keyboard's symbol keys can be typed.
     #
+    # While the SuperPET shows its APL characters the keys go by position
+    # instead (#positional=): a key that types a character presses the PET
+    # key its unshifted character is on, and the PET's SHIFT follows the
+    # host's, so a key types the APL symbol on the SuperPET's keycap in the
+    # same place, shifted or not.
+    #
     # The CBM-II's keyboard goes the same way (Keys.cbm2_key), and there
     # Alt with a key presses one of the keys the host has none for
     # (Keys.cbm2_alt_key).
@@ -35,8 +41,12 @@ module Badline
         @right_alt = false
         @forced = -1
         @forced_shift = false
+        @positional = false
       end
 
+      # Whether the keys go by position, for the SuperPET's APL characters.
+      attr_writer :positional
+
       def key(scancode, down)
         if [LSHIFT, RSHIFT].include?(scancode)
           shift_key(scancode, down)
@@ -70,7 +80,10 @@ module Badline
 
       def key_down(scancode)
         key_up(scancode) if @held.key?(scancode)
-        key, shift = alt? ? shifted_key(scancode) : layout_key(scancode, shifted?)
+        key, shift = if alt? then shifted_key(scancode)
+                     elsif @positional then positional_key(scancode)
+                     else layout_key(scancode, shifted?)
+                     end
         return if key == :none
 
         unless shift == :host
@@ -128,6 +141,15 @@ module Badline
         [key, :on]
       end
 
+      # The PET key for the scancode by position: the one its unshifted
+      # character is on, with the host's SHIFT.
+      def positional_key(scancode)
+        key, shift = Keys.pet_key(scancode, false, @layout)
+        return [key, shift] if key == :none || !Keys::US_CHARACTERS.key?(scancode)
+
+        [key, :host]
+      end
+
       def shifted? = @left_shift || @right_shift
 
       def sync_shift

data/lib/badline/frontend/screen.rb

@@ -15,7 +15,7 @@ module Badline
     # least MIN_WIDTH window pixels wide, and at least as high as PAL's C64
     # crop, 272 lines, so a C64 shows in the same window whatever its
     # region. A crop with fewer lines or pixels sits in the middle of the
-    # texture, between black bands. The VIC-20's 284 by 284 crop and the
+    # texture, between black bands. The PAL VIC-20's 284 by 284 crop and the
     # TED's 384 by 288 fill their own.
     #
     # With `frame_lines`, the crop's lines run on past the frame's last

data/lib/badline/frontend/screens.rb

@@ -10,6 +10,10 @@ module Badline
     # On the C128, #follow switches to the screen the machine prints to
     # (C128#active_screen) each time it moves there, and #show_vdc's choice
     # holds until the next move.
+    #
+    # The KIM-1 has no video chip, and shows its panel (KIM1Panel), or with
+    # its TTY/KB jumper fitted its teletype's page (TeletypePane), which
+    # #follow brings up to the machine each frame.
     class Screens
       # The frames a move holds before #follow takes it. The C128 KERNAL's
       # reset clears the 80 column screen with the editor on it for over a
@@ -18,8 +22,17 @@ module Badline
 
       attr_reader :screen
 
+      # The KIM-1's panel, the picture a KIM-1 shows.
+      attr_reader :kim1_panel
+
+      # The KIM-1's teletype's page, which it shows with the jumper fitted.
+      attr_reader :teletype_pane
+
       def initialize(computer)
         @computer = computer
+        @kim1_panel = KIM1Panel.new
+        @teletype_pane = TeletypePane.new
+        @built_tty = false
         @vdc_shown = false
         @vdc_shape = []
         forget_screen
@@ -31,6 +44,8 @@ module Badline
       # Shows another machine's video chip, once #build builds its screen.
       def computer=(computer)
         @computer = computer
+        @kim1_panel = KIM1Panel.new
+        @teletype_pane = TeletypePane.new
         @vdc_shown = false
         forget_screen
       end
@@ -38,6 +53,7 @@ module Badline
       # Shows the screen a C128 has moved its output to once the move has
       # held for FOLLOW_FRAMES calls, one a frame. #build then builds it.
       def follow
+        return follow_kim1 if @computer.family == :kim1
         return unless @computer.family == :c128
 
         vdc = @computer.active_screen == :vdc
@@ -60,11 +76,17 @@ module Badline
 
       # Whether the screen was built for the other chip, or the VDC's
       # display has changed size or crop since the screen was built for it.
-      def stale? = @built_vdc != @vdc_shown || (@vdc_shown && vdc_shape(@computer.vdc) != @vdc_shape)
+      def stale?
+        return @built_tty != @computer.tty? if @computer.family == :kim1
+
+        @built_vdc != @vdc_shown || (@vdc_shown && vdc_shape(@computer.vdc) != @vdc_shape)
+      end
 
       def build
         @built_vdc = @vdc_shown
-        if @vdc_shown
+        if @computer.family == :kim1
+          build_kim1
+        elsif @vdc_shown
           vdc = @computer.vdc
           @vdc_shape = vdc_shape(vdc)
           @screen = Screen.new(vdc, vdc.crop, dots: 2)
@@ -78,6 +100,22 @@ module Badline
 
       private
 
+      # The panel and the teletype's page both follow the machine, the
+      # LEDs' brightness and the page's lines going on behind the other.
+      def follow_kim1
+        @kim1_panel.follow(@computer)
+        @teletype_pane.follow(@computer)
+      end
+
+      def build_kim1
+        @built_tty = @computer.tty?
+        @screen = if @built_tty
+                    Screen.new(@teletype_pane, @teletype_pane.crop)
+                  else
+                    Screen.new(@kim1_panel, @kim1_panel.crop)
+                  end
+      end
+
       # The machine's output counts as on the VIC-IIe's screen, the one
       # shown.
       def forget_screen

data/lib/badline/frontend/teletype_pane.rb

@@ -0,0 +1,152 @@
+# frozen_string_literal: true
+
+module Badline
+  module Frontend
+    # The KIM-1's teletype as the window shows it with the TTY/KB jumper
+    # fitted: a page of COLUMNS by ROWS characters in the character ROM's
+    # font, printed as the teletype prints (KIM1::Teletype#output), with a
+    # line of the host keys that type what the window's keys don't. RETURN
+    # goes back to the line's start, LINE FEED down a line, the page
+    # scrolling up from the last, and a line full at COLUMNS goes on to the
+    # next. It answers what a Screen reads of a video chip, as KIM1Panel
+    # does.
+    class TeletypePane
+      COLUMNS = 72
+      ROWS = 24
+      LINE = 10
+      MARGIN = 8
+      TOP = 22
+
+      WIDTH = (COLUMNS * 8) + (2 * MARGIN)
+      HEIGHT = 272
+
+      PAPER = 0
+      INK = 1
+      HINT = 2
+      CURSOR = 3
+      PALETTE = [0xf2ecd8, 0x202020, 0x6c6858, 0x9c9480].freeze
+
+      HINTS = "BACKSPACE: RUBOUT  DOWN: LINE FEED  F9: MENU"
+
+      attr_reader :display, :dirty_lines
+
+      def initialize
+        @display = Array.new(WIDTH * HEIGHT, PAPER)
+        @dirty_lines = Array.new(HEIGHT, true)
+        @font = ROM.read("character.rom")
+        @page = Array.new(ROWS) { Array.new(COLUMNS, 0x20) }
+        @column = 0
+        @row = 0
+        @printed = 0
+        @baud = 0
+        draw_cursor(CURSOR)
+      end
+
+      def width = WIDTH
+
+      def height = HEIGHT
+
+      def palette = PALETTE
+
+      def crop = [0, 0, WIDTH, HEIGHT]
+
+      def clear_dirty_lines!
+        @dirty_lines.map! { false }
+      end
+
+      # The characters on the page, a line each, without trailing spaces.
+      def lines = @page.map { |row| row.map(&:chr).join.rstrip }
+
+      # Prints what the KIM-1 `computer`'s teletype has printed since the
+      # last call.
+      def follow(computer)
+        teletype = computer.teletype
+        title(teletype.baud) if teletype.baud != @baud
+        output = teletype.output
+        return if output.size == @printed
+
+        draw_cursor(PAPER)
+        output[@printed, output.size - @printed].bytes.each { |byte| print_byte(byte) }
+        @printed = output.size
+        draw_cursor(CURSOR)
+      end
+
+      private
+
+      def title(baud)
+        @baud = baud
+        box(0, 0, WIDTH, TOP, PAPER)
+        text(MARGIN, 6, "KIM-1 TELETYPE, #{baud} BAUD", HINT)
+        text(WIDTH - MARGIN - (HINTS.size * 8), 6, HINTS, HINT)
+      end
+
+      def print_byte(byte)
+        case byte
+        when 0x0d then @column = 0
+        when 0x0a then line_feed
+        when 0x20..0x7e then print_character(byte)
+        end
+      end
+
+      def print_character(byte)
+        if @column == COLUMNS
+          @column = 0
+          line_feed
+        end
+        @page[@row][@column] = byte
+        glyph(MARGIN + (@column * 8), TOP + (@row * LINE), byte, INK)
+        @column += 1
+      end
+
+      def line_feed
+        if @row < ROWS - 1
+          @row += 1
+          return
+        end
+
+        @page.shift
+        @page << Array.new(COLUMNS, 0x20)
+        redraw_page
+      end
+
+      def redraw_page
+        box(0, TOP, WIDTH, ROWS * LINE, PAPER)
+        @page.each_with_index do |characters, row|
+          characters.each_with_index do |byte, column|
+            glyph(MARGIN + (column * 8), TOP + (row * LINE), byte, INK) unless byte == 0x20
+          end
+        end
+      end
+
+      def draw_cursor(color)
+        column = [@column, COLUMNS - 1].min
+        box(MARGIN + (column * 8), TOP + (@row * LINE) + 8, 8, 1, color)
+      end
+
+      def box(left, top, width, height, color)
+        height.times do |row|
+          line = top + row
+          @display.fill(color, (line * WIDTH) + left, width)
+          @dirty_lines[line] = true
+        end
+      end
+
+      def text(left, top, string, color)
+        string.bytes.each_with_index { |byte, index| glyph(left + (index * 8), top, byte, color) }
+      end
+
+      # Draws the glyph for the ASCII `byte` over a cleared cell.
+      def glyph(left, top, byte, color)
+        code = Painter::SCREEN_CODES[byte & 0x7f]
+        8.times do |row|
+          bits = @font[0x800 + (code * 8) + row]
+          line = top + row
+          8.times do |dot|
+            @display[(line * WIDTH) + left + dot] = bits.anybits?(0x80 >> dot) ? color : PAPER
+          end
+          @dirty_lines[line] = true
+        end
+      end
+    end
+  end
+end

data/lib/badline/frontend/timeline.rb

@@ -44,6 +44,8 @@ module Badline
       # either, and the PET and the CBM-II's B series neither that nor
       # joysticks.
       def self.key?(name, family)
+        return !kim1_key(name).empty? if family == :kim1
+
         pet = %i[pet cbm2].include?(family)
         (name == "restore" && !pet && !%i[plus4 p500].include?(family)) || (family == :c128 && LOCKS.include?(name)) ||
           !keyboard_key(name, family).nil? || (!pet && !joystick_direction(name).nil?)
@@ -73,6 +75,13 @@ module Badline
         end
       end
 
+      # The KIM-1's key for a name such as go, a or plus, as
+      # KIM1::Panel::KEYS names it, with st and rs, or an empty string.
+      def self.kim1_key(name)
+        key = name == "plus" ? "+" : name.upcase
+        KIM1::Panel::KEYS.include?(key) || %w[ST RS].include?(key) ? key : ""
+      end
+
       # The direction of joy1-NAME or joy2-NAME, such as up or fire.
       def self.joystick_direction(name)
         return nil unless name.start_with?("joy1-") || name.start_with?("joy2-")
@@ -150,7 +159,7 @@ module Badline
       def perform(computer, event)
         case event.action
         when "key" then press(computer, event)
-        when "type" then computer.type_text(event.argument.gsub("\\n", "\r").gsub("\\r", "\r"))
+        when "type" then type(computer, event.argument)
         when "insert" then insert(computer, event.argument)
         when "eject" then eject(computer, event.argument)
         when "reset" then computer.reset!
@@ -158,8 +167,15 @@ module Badline
         end
       end
 
+      # Types the text, which on the KIM-1 goes to its teletype, or with
+      # none presses the keys it names (KIM1#type_text).
+      def type(computer, text)
+        computer.type_text(text.gsub("\\n", "\r").gsub("\\r", "\r"))
+      end
+
       def press(computer, event)
         name = event.argument
+        return press_kim1(computer, event) if computer.family == :kim1
         return lock(computer, name) if LOCKS.include?(name)
 
         if name == "restore"
@@ -176,6 +192,17 @@ module Badline
         hold(event)
       end
 
+      # ST and RS act as they go down, and the KIM-1's other keys are held.
+      def press_kim1(computer, event)
+        case (key = Timeline.kim1_key(event.argument))
+        when "ST" then computer.press_stop
+        when "RS" then computer.press_reset
+        else
+          computer.press_key(key)
+          hold(event)
+        end
+      end
+
       # CAPS LOCK and 40/80 DISPLAY lock: a push puts one down if it was up,
       # and up if it was down.
       def lock(computer, name)
@@ -199,6 +226,8 @@ module Badline
       def release(computer, event)
         return computer.release_cartridge_button if event.action == "freeze" && computer.family == :c64
 
+        return computer.release_key if computer.family == :kim1
+
         name = event.argument
         return computer.release_restore if name == "restore"
 
@@ -237,7 +266,7 @@ module Badline
       # its cartridge stays in.
       def ejectable?(computer, what)
         family = computer.family
-        return false if family == :cbm2 && what != "disk"
+        return false if family == :kim1 || (family == :cbm2 && what != "disk")
 
         (what != "cartridge" || !%i[vic20 pet].include?(family)) && inserted?(computer, what)
       end

data/lib/badline/frontend.rb

@@ -4,6 +4,8 @@ require "badline/sdl"
 require "badline/frontend/boot"
 require "badline/frontend/frame_rate"
 require "badline/frontend/screen"
+require "badline/frontend/kim1_panel"
+require "badline/frontend/teletype_pane"
 require "badline/frontend/screens"
 require "badline/frontend/drive_led"
 require "badline/frontend/keys"
@@ -42,6 +44,7 @@ require "badline/frontend/menu/pause_menu"
 require "badline/frontend/menu/file_browser"
 require "badline/frontend/menu/confirmation"
 require "badline/frontend/menu/name_field"
+require "badline/frontend/menu/drive_types"
 require "badline/frontend/menu/menu_dialogs"
 require "badline/frontend/menu/menu_media"
 require "badline/frontend/menu/menu_ports"