badline 0.14.0 → 0.15.1

data/doc/snapshot-format.md

@@ -13,30 +13,31 @@ machine built afresh has: the default below. `word`, `byte` and
 `int & 0x..` are ints cut to the latch's width. A text that lists
 its values takes one of them. An optional int is absent when the
 latch holds nothing. A true drive's modules are named from its
-device number, `BL-D8` to `BL-D11`. Keys with `<N>` stand for each
-numbered unit. A default of "written only" is a key the load
-doesn't read, or reads only when the snapshot has it. Where the
-machines differ, the default is given for each, and a key only
-some of them have names them.
+device number, `BL-D8` to `BL-D11`, and the SIDs past the first
+are `BL-SID2` onwards, in the order they were fitted. Keys with
+`<N>` stand for each numbered unit. A default of "written only" is
+a key the load doesn't read, or reads only when the snapshot has
+it. Where the machines differ, the default is given for each, and a
+key only some of them have names them.
 
 ## BL-MACHINE
 
-Written by the C64, VIC-20, C128.
+Written by the C64, VIC-20, C128, Plus/4.
 
 | Key | Type | Default |
 | --- | --- | --- |
-| `family` | text: c64 vic20 c128 | "c64" |
+| `family` | text: c64 vic20 c128 plus4 | "c64" |
 | `region` | text: pal ntsc ntscold drean | C64: "pal" |
 | `vic_model` | text: mos6569 mos8565 mos8566 mos8564 | C64: "mos6569" |
 | `cia_model` | text: mos6526 mos6526a | C64: "mos6526" |
 | `sid_model` | text: mos6581 mos8580 | C64: "mos6581"; C128: "mos6581" |
-| `ram_expansion` | text: none plus60k plus256k | C64: "none" |
+| `ram_expansion` | text: none plus60k plus256k | C64: "none"; Plus/4: "none" |
 | `reu_kb` | int | C64: 0 |
 | `kernal` | text: c64 sx64 pet64 gs | C64: "c64" |
 | `datasette` | bool | C64: true |
 | `board` | text: c64 pet64 gs max | C64: "c64" |
 | `cycles` | int | 0 |
-| `nmi_asserted` | bool | false |
+| `nmi_asserted` | bool | C64: false; VIC-20: false; C128: false |
 | `cartridge_nmi` | bool | C64: false; C128: false |
 | `restore_pulse` | bool | C64: false; C128: false |
 | `freezing` | bool | C64: false |
@@ -48,7 +49,7 @@ Written by the C64, VIC-20, C128.
 | `ram` | text: unexpanded 3k 8k 16k 24k 32k all | VIC-20: "unexpanded" |
 | `bus.data` | byte | VIC-20: 253; C128: 255 |
 | `bus.video_data` | byte | VIC-20: 0 |
-| `model` | text: c128 c128ntsc c128dcr c128dcrntsc | C128: "c128" |
+| `model` | text: c128 c128ntsc c128dcr c128dcrntsc | C128: "c128"; Plus/4: "plus4" |
 | `mode` | text: c64 c128 | C128: "c64" |
 | `bus.address` | word | C128: 65533 |
 | `clock_bits` | int | C128: 0 |
@@ -60,14 +61,22 @@ Written by the C64, VIC-20, C128.
 | `host.typist.code` | int, optional | C128: absent |
 | `host.typist.wait` | int | C128: 0 |
 | `host.typist.typing` | bool | C128: false |
+| `ram_kb` | int | Plus/4: 64 or 16 |
+| `sid_card` | text: none mos6581 mos8580 | Plus/4: "none" |
+| `tcbm` | bool | Plus/4: false |
+| `sid_card_address` | int | Plus/4: 64832 |
 
 ## BL-RAM
 
-Written by the C64, VIC-20, C128.
+Written by the C64, VIC-20, C128, Plus/4.
 
 | Key | Type | Default |
 | --- | --- | --- |
-| `ram` | bytes | C64: 65536 values; VIC-20: 49152 values; C128: 131072 values |
+| `ram` | bytes | C64: 65536 values; VIC-20: 49152 values; C128: 131072 values; Plus/4: 65536 × 0 or 16384 × 0 |
+| `bus.low_bank` | int & 0x3 | Plus/4: 0 |
+| `bus.high_bank` | int & 0x3 | Plus/4: 0 |
+| `bus.rom_selected` | bool | Plus/4: true |
+| `bus.data` | byte | Plus/4: 255 |
 
 ## BL-COLORRAM
 
@@ -80,14 +89,14 @@ Written by the C64, VIC-20, C128.
 
 ## BL-CPU
 
-Written by the C64, C128, VIC-20.
+Written by the C64, C128, Plus/4, VIC-20.
 
 | Key | Type | Default |
 | --- | --- | --- |
-| `port.ddr` | byte | C64: 0; C128: 0 |
-| `port.data` | byte | C64: 0; C128: 0 |
+| `port.ddr` | byte | C64: 0; C128: 0; Plus/4: 0 |
+| `port.data` | byte | C64: 0; C128: 0; Plus/4: 0 |
 | `port.floating` | byte | C64: 0; C128: 0 |
-| `pc` | word | C64: 64738; VIC-20: 64802; C128: 65341 |
+| `pc` | word | C64: 64738; VIC-20: 64802; C128: 65341; Plus/4: 65526 |
 | `sp` | byte | 255 |
 | `a` | byte | 0 |
 | `x` | byte | 0 |
@@ -369,7 +378,7 @@ Written by the C64, C128.
 
 ## BL-SID
 
-Written by the C64, C128.
+Written by the C64, C128, Plus/4.
 
 | Key | Type | Default |
 | --- | --- | --- |
@@ -410,26 +419,34 @@ Written by the C64, C128.
 
 ## BL-TAPE
 
-Written by the C64, VIC-20, C128.
+Written by the C64, VIC-20, C128, Plus/4.
 
 | Key | Type | Default |
 | --- | --- | --- |
 | `playing` | bool | false |
 | `motor` | bool | false |
 | `countdown` | int | 0 |
+| `recording` | bool | false |
+| `since` | int | 0 |
+| `write_high` | bool | C64: false; VIC-20: true; C128: false; Plus/4: true |
+| `rise_at` | int | 0 |
+| `low_recorded` | bool | false |
 | `tape.bytes` | bytes | [] |
-| `tape.path` | text | C64: "" |
-| `tape.position` | int | C64: 0 |
+| `tape.path` | text | C64: ""; Plus/4: "" |
+| `tape.position` | int | C64: 0; Plus/4: 0 |
 
 ## BL-RAMEXP
 
-Written by the C64.
+Written by the C64, Plus/4.
 
 | Key | Type | Default |
 | --- | --- | --- |
-| `d100` | byte | 0 |
-| `locked` | bool | false |
-| `bank<N>` | bytes | 65536 × 0 |
+| `d100` | byte | C64: 0 |
+| `locked` | bool | C64: false |
+| `bank<N>` | bytes | C64: 65536 × 0 |
+| `control` | byte | Plus/4: 255 |
+| `csory_latch` | byte | Plus/4: 0 |
+| `ram` | bytes | Plus/4: 196608 × 0 |
 
 ## BL-REU
 
@@ -476,14 +493,14 @@ Written by the C64.
 
 ## BL-CART
 
-Written by the C64, VIC-20.
+Written by the C64, VIC-20, Plus/4.
 
 | Key | Type | Default |
 | --- | --- | --- |
 | `geo_ram_kb` | int | C64: 0 |
 | `crt` | bytes | C64: [] |
-| `exrom` | int & 0x1 | C64: 1 |
-| `game` | int & 0x1 | C64: 0 |
+| `exrom` | int & 0x1 | C64: 1 or 0 |
+| `game` | int & 0x1 | C64: 0 or 1 |
 | `nmi` | bool | C64: false |
 | `button` | bool | C64: false |
 | `bank` | int | C64: 0 |
@@ -511,9 +528,17 @@ Written by the C64, VIC-20.
 | `flash_high.erasing_sectors` | ints | C64: [] |
 | `flash_high.windows` | ints | C64: [] |
 | `flash_high.status_windows` | ints | C64: [] |
+| `high_bank` | int | C64: 0 |
+| `active` | bool | C64: true |
+| `ram` | bytes | C64: 8192 × 0 |
+| `ram<N>.data` | bytes | C64: 8192 × 0 |
 | `roms` | int | VIC-20: 0 |
 | `rom0.bytes` | bytes | VIC-20: [] |
 | `rom0.start` | word | VIC-20: 0 |
+| `c1lo` | bytes | Plus/4: [] |
+| `c2lo` | bytes | Plus/4: [] |
+| `c1hi` | bytes | Plus/4: [] |
+| `c2hi` | bytes | Plus/4: [] |
 
 ## BL-TRAPDOS
 
@@ -547,29 +572,31 @@ Written by the C64.
 
 ## BL-D8
 
-Written by the C64, C128.
+Written by the C64, C128, Plus/4.
 
 | Key | Type | Default |
 | --- | --- | --- |
-| `model` | text: 1541 1571 1581 | C64: "1541" or "1581"; C128: "1541" or "1571" |
+| `model` | text: 1541 1551 1571 1581 | C64: "1541" or "1581"; C128: "1541" or "1571"; Plus/4: "1541" or "1551" |
 | `phase` | int | 0 |
 | `cycles` | int | 0 |
 | `so_pending` | bool | false |
-| `serial.host` | int | 255 |
+| `serial.host` | int | C64: 255; C128: 255; Plus/4: 0 |
 | `atn` | bool | C64: true |
+| `irq_timer` | int | Plus/4: 16660 |
+| `latched_byte` | byte | Plus/4: 0 |
 
 ## BL-D8-RAM
 
-Written by the C64, C128.
+Written by the C64, C128, Plus/4.
 
 | Key | Type | Default |
 | --- | --- | --- |
-| `data` | byte | C64: 234 or 175; C128: 234 |
-| `ram` | bytes | C64: 2048 × 0 or 8192 × 0; C128: 2048 × 0 |
+| `data` | byte | C64: 234 or 175; C128: 234; Plus/4: 234 or 233 |
+| `ram` | bytes | C64: 2048 × 0 or 8192 × 0; C128: 2048 × 0; Plus/4: 2048 × 0 |
 
 ## BL-D8-VIA1
 
-Written by the C64, C128.
+Written by the C64, C128, Plus/4.
 
 | Key | Type | Default |
 | --- | --- | --- |
@@ -603,7 +630,7 @@ Written by the C64, C128.
 | `ifr.flags` | int & 0x7f | 0 |
 | `ifr.enable` | int & 0x7f | 0 |
 | `ca.control` | int & 0xf | 0 |
-| `ca.c1_high` | bool | true |
+| `ca.c1_high` | bool | C64: true; C128: true; Plus/4: false |
 | `ca.c2_high` | bool | true |
 | `ca.handshake_low` | bool | false |
 | `ca.pulse` | int | 0 |
@@ -617,7 +644,7 @@ Written by the C64, C128.
 
 ## BL-D8-VIA2
 
-Written by the C64, C128.
+Written by the C64, C128, Plus/4.
 
 | Key | Type | Default |
 | --- | --- | --- |
@@ -665,11 +692,11 @@ Written by the C64, C128.
 
 ## BL-D8-CPU
 
-Written by the C64, C128.
+Written by the C64, C128, Plus/4.
 
 | Key | Type | Default |
 | --- | --- | --- |
-| `pc` | word | C64: 60064 or 44836; C128: 60064 |
+| `pc` | word | C64: 60064 or 44836; C128: 60064; Plus/4: 60064 or 59829 |
 | `sp` | byte | 255 |
 | `a` | byte | 0 |
 | `x` | byte | 0 |
@@ -691,7 +718,7 @@ Written by the C64, C128.
 
 ## BL-D8-DISK
 
-Written by the C64, C128.
+Written by the C64, C128, Plus/4.
 
 | Key | Type | Default |
 | --- | --- | --- |
@@ -706,14 +733,14 @@ Written by the C64, C128.
 
 ## BL-D8-MECH
 
-Written by the C64, C128.
+Written by the C64, C128, Plus/4.
 
 | Key | Type | Default |
 | --- | --- | --- |
-| `half_track` | int | C64: 35; C128: 37 |
-| `slip` | int & 0x3 | C64: 0; C128: 2 |
-| `side` | int | C64: 0 or 1; C128: 85 |
-| `zone` | int & 0x3 | 3 |
+| `half_track` | int | C64: 35; C128: 37; Plus/4: 35 or 36 |
+| `slip` | int & 0x3 | C64: 0; C128: 2; Plus/4: 0 |
+| `side` | int | C64: 0 or 1; C128: 85; Plus/4: 0 |
+| `zone` | int & 0x3 | C64: 3; C128: 3; Plus/4: 3 or 0 |
 | `time` | int | 0 |
 | `read_clock_in` | int | 2097152 |
 | `clocks` | int | 0 |
@@ -721,8 +748,8 @@ Written by the C64, C128.
 | `ones` | int | 0 |
 | `bits` | int | 0 |
 | `write_shift` | int | 0 |
-| `motor` | bool | C64: true or false; C128: true |
-| `led` | bool | true |
+| `motor` | bool | C64: true or false; C128: true; Plus/4: true or false |
+| `led` | bool | C64: true; C128: true; Plus/4: true or false |
 | `sync` | bool | false |
 | `byte_ready` | bool | false |
 | `byte_latched` | bool | false |
@@ -843,6 +870,49 @@ Written by the C64, C128.
 | `registers` | ints | C128: [0, 0, 0, 0] |
 | `result` | int | C128: 0 |
 
+## BL-SID2
+
+Written by the C64.
+
+| Key | Type | Default |
+| --- | --- | --- |
+| `address` | word | 54304 |
+| `model` | text: mos6581 mos8580 | "mos6581" |
+| `registers` | bytes | 32 × 0 |
+| `bus_value` | byte | 0 |
+| `bus_ttl` | int | 0 |
+| `voice<N>.wave.accumulator` | int & 0xffffff | 5592405 |
+| `voice<N>.wave.shift_register` | int & 0x7fffff | 8388606 |
+| `voice<N>.wave.shift_register_reset` | int | 0 |
+| `voice<N>.wave.shift_pipeline` | int | 0 |
+| `voice<N>.wave.delayed_triangle` | int & 0xfff | 0 |
+| `voice<N>.wave.delayed_sawtooth` | int & 0xfff | 0 |
+| `voice<N>.wave.msb_rising` | bool | false |
+| `voice<N>.wave.floating` | int & 0xfff | 0 |
+| `voice<N>.wave.floating_ttl` | int | 0 |
+| `voice<N>.wave.pulse` | int & 0xfff | 4095 |
+| `voice<N>.env.state` | text: attack decay_sustain release | "release" |
+| `voice<N>.env.next_state` | text: attack decay_sustain release | "release" |
+| `voice<N>.env.counter` | byte | 0 |
+| `voice<N>.env.env<N>` | byte | 0 |
+| `voice<N>.env.rate_counter` | int & 0x7fff | 0 |
+| `voice<N>.env.rate_period` | int | 8 |
+| `voice<N>.env.reset_rate_counter` | bool | false |
+| `voice<N>.env.exponential_counter` | int | 0 |
+| `voice<N>.env.exponential_period` | int | 1 |
+| `voice<N>.env.state_pipeline` | int | 0 |
+| `voice<N>.env.envelope_pipeline` | int | 0 |
+| `voice<N>.env.exponential_pipeline` | int | 0 |
+| `voice<N>.env.hold_zero` | bool | true |
+| `filter.highpass` | int | 0 |
+| `filter.bandpass` | int | 0 |
+| `filter.lowpass` | int | 0 |
+| `filter.unfiltered` | int | 0 |
+| `filter.input` | int | 0 |
+| `ext.lowpass` | int | 0 |
+| `ext.highpass` | int | 0 |
+| `ext.output` | int | 0 |
+
 ## BL-VICI
 
 Written by the VIC-20.
@@ -1045,3 +1115,131 @@ Written by the C128.
 | `int` | bool | false |
 | `nmi` | bool | false |
 | `nmi_pending` | bool | false |
+
+## BL-TED
+
+Written by the Plus/4.
+
+| Key | Type | Default |
+| --- | --- | --- |
+| `registers` | bytes | 32 × 0 |
+| `interrupt_flags` | byte | 0 |
+| `key_latch` | byte | 255 |
+| `blink` | int & 0xf | 0 |
+| `blink_on` | bool | false |
+| `timer<N>.count` | word | 0 |
+| `timer<N>.running` | bool | false |
+| `timer1.reload` | word | 0 |
+| `column` | int | 0 |
+| `line` | int & 0x1ff | 0 |
+| `ba` | bool | false |
+| `cpu_slots` | int | 1 |
+| `fetch.patterns` | bytes | 40 × 0 |
+| `fetch.pointers` | bytes | 40 × 0 |
+| `fetch.attributes` | bytes | 40 × 0 |
+| `fetch.next_attributes` | bytes | 40 × 0 |
+| `fetch.char_position` | int & 0x3ff | 0 |
+| `fetch.line_position` | int & 0x3ff | 0 |
+| `fetch.row_line` | int & 0x7 | 0 |
+| `fetch.row_active` | bool | false |
+| `fetch.dma` | text: none attributes pointers | "none" |
+| `fetch.patterns_on` | bool | false |
+| `scanline` | int | 0 |
+| `window_open` | bool | false |
+| `line.layout` | int | 0 |
+| `line.painted` | int | 0 |
+| `display` | bytes | 119808 × 0 |
+
+## BL-TEDSOUND
+
+Written by the Plus/4.
+
+| Key | Type | Default |
+| --- | --- | --- |
+| `voice<N>.phase` | int & 0x1 | 1 |
+| `voice<N>.toggle_in` | int, optional | absent |
+| `noise` | byte | 255 |
+| `ran_ago` | int | 0 |
+
+## BL-KEYPORT
+
+Written by the Plus/4.
+
+| Key | Type | Default |
+| --- | --- | --- |
+| `output` | byte | 255 |
+
+## BL-USERPORT
+
+Written by the Plus/4.
+
+| Key | Type | Default |
+| --- | --- | --- |
+| `output` | byte | 255 |
+
+## BL-ACIA
+
+Written by the Plus/4.
+
+| Key | Type | Default |
+| --- | --- | --- |
+| `command` | byte | 0 |
+| `control` | byte | 0 |
+| `errors` | int & 0x7 | 0 |
+| `receiver_full` | bool | false |
+| `transmitter_empty` | bool | true |
+| `irq` | bool | false |
+| `receive_data` | byte | 0 |
+| `transmit_data` | byte | 0 |
+| `shifting` | int | -1 |
+| `transmit_remainder` | int | 0 |
+| `transmit_at` | int, optional | absent |
+
+## BL-TIA1
+
+Written by the Plus/4.
+
+| Key | Type | Default |
+| --- | --- | --- |
+| `ports` | ints | [0, 0, 0] |
+| `directions` | ints | [0, 0, 0] |
+| `inputs` | ints | [0, 0, 0] |
+
+## BL-TIA2
+
+Written by the Plus/4.
+
+| Key | Type | Default |
+| --- | --- | --- |
+| `ports` | ints | [0, 0, 0] |
+| `directions` | ints | [0, 0, 0] |
+| `inputs` | ints | [0, 0, 0] |
+
+## BL-D8-PORT
+
+Written by the Plus/4.
+
+| Key | Type | Default |
+| --- | --- | --- |
+| `ddr` | byte | 0 |
+| `data` | byte | 0 |
+
+## BL-D8-TIA
+
+Written by the Plus/4.
+
+| Key | Type | Default |
+| --- | --- | --- |
+| `ports` | ints | [0, 0, 0] |
+| `directions` | ints | [0, 0, 0] |
+| `inputs` | ints | [255, 255, 255] |
+
+## BL-D8-HOSTTIA
+
+Written by the Plus/4.
+
+| Key | Type | Default |
+| --- | --- | --- |
+| `ports` | ints | [0, 0, 0] |
+| `directions` | ints | [0, 0, 0] |
+| `inputs` | ints | [255, 3, 192] |

data/doc/snapshots.md

@@ -87,7 +87,9 @@ blocks given to `on_init` that hadn't run yet, which a restore reports.
 Every model saves this way, PAL, NTSC, old NTSC and Drean alike, and so
 does a machine with an REU, with its RAM and its registers. A snapshot
 restores into a machine with the same chip models, region, RAM
-expansion, REU, KERNAL, datasette and board.
+expansion, REU, KERNAL, datasette and board. The second and third SIDs
+the SID player fits for a stereo tune are saved too, each with its
+address and model, and a restore fits them.
 
 Text typed with `type_text` that the machine hasn't taken yet, such as
 autostart's `RUN`, carries over, and so do the keys a C128 is typing on
@@ -123,6 +125,21 @@ do, and holds only badline's modules, so x128 doesn't open it, and
 badline doesn't open x128's. Restoring a C128 snapshot while another machine runs swaps the
 machine in the window, as for the VIC-20.
 
+## The Plus/4
+
+The Plus/4, the C16 and the C116 save and restore the same way. A
+snapshot of one holds its RAM with the ROM bank latch and whether ROM or
+RAM is selected, the cartridges' ROMs in each slot, the CPU with its
+port, the TED with its timers, its counters and its picture, the TED's
+sound, the keyboard's 6529, the Plus/4's user port 6529 and ACIA, a TCBM
+interface's TIAs, the tape with its place on it, the disk or directory
+device 8 serves through the traps and a true 1541 or 1581. It restores
+into a machine of the same model with the same RAM, and the BASIC,
+KERNAL and function ROMs come with the model. Its file names its machine
+`PLUS4`, as xplus4's do, and holds only badline's modules, so xplus4
+doesn't open it, and badline doesn't open xplus4's. `--vice` and
+`computer.export_snapshot(path)` refuse a Plus/4.
+
 ## VICE
 
 Snapshots use VICE's `.vsf` format, and badline's own modules are named

data/exe/badline-ruby

@@ -39,7 +39,7 @@ if options.headless?
   console = if options.player_window?
               lambda do |input:, output:|
                 load_sdl
-                Badline::Frontend::PlayerController.new(input:, output:)
+                Badline::Frontend::PlayerController.new(input:, output:, frames: options.frames)
               end
             else
               Badline::Audio::Console.method(:new)

data/lib/badline/audio/bare_player.rb

@@ -93,10 +93,7 @@ module Badline
         sections << Snapshot::Keyed.section("BL-CIA1") { |out| bus.cia1.save_fields(out) }
         sections << Snapshot::Keyed.section("BL-CIA2") { |out| bus.cia2.save_fields(out) }
         sections << Snapshot::Keyed.section("BL-SID") { |out| bus.sid.save_fields(out) }
-        @extras.each_with_index do |sid, index|
-          sections << Snapshot::Keyed.section("BL-SID#{index + 2}") { |out| sid.save_fields(out) }
-        end
-        sections
+        bus.save_extra_sid_modules(sections)
       end
 
       # Takes a rig that hasn't started to where #save_modules found one, in
@@ -152,10 +149,9 @@ module Badline
         bus.vic.load_fields(modules.required("BL-VIC"))
         bus.cia1.load_fields(modules.required("BL-CIA1"))
         bus.cia2.load_fields(modules.required("BL-CIA2"))
-        @stereo.sids.each_with_index do |sid, index|
-          sid.load_fields(modules.required(index.zero? ? "BL-SID" : "BL-SID#{index + 1}"))
-          sid.restored!
-        end
+        bus.sid.load_fields(modules.required("BL-SID"))
+        bus.load_extra_sid_modules(modules)
+        @stereo.sids.each(&:restored!)
         bus.vic.restored!
         bus.cia1.restored!
         bus.cia2.restored!

data/lib/badline/audio/machine_player.rb

@@ -19,8 +19,6 @@ module Badline
         @subtune = subtune || tune.start_subtune
         @computer = C64.new(sid_model: sid_models[0])
         @stereo = Stereo.new(@computer.address_bus, tune, sid_models)
-        @extras = @stereo.extras
-        @multi = !@extras.empty?
         region = @computer.region
         @frame_cycles = region.cycles_per_line * region.lines_per_frame
         @injected = false
@@ -30,7 +28,7 @@ module Badline
       def start
         @computer.on_init { inject }
         @computer.cpu.install_trap(@tune.entry_address) { begin_playing }
-        step until @started || @computer.cycles > START_LIMIT
+        @computer.cycle! until @started || @computer.cycles > START_LIMIT
       end
 
       attr_reader :stereo
@@ -40,23 +38,13 @@ module Badline
       def clock_hz = @computer.region.clock_hz
 
       # The whole machine as its keyed snapshot modules, as it stands between
-      # frames, and the extra SIDs as BL-SID2 and BL-SID3, once it plays.
-      def save_modules
-        sections = @computer.save_modules
-        @extras.each_with_index do |sid, index|
-          sections << Snapshot::Keyed.section("BL-SID#{index + 2}") { |out| sid.save_fields(out) }
-        end
-        sections
-      end
+      # frames, with the extra SIDs as BL-SID2 and BL-SID3, once it plays.
+      def save_modules = @computer.save_modules
 
       # Takes a machine that hasn't started to where #save_modules found one,
       # in place of #start.
       def load_modules(modules)
         @computer.load_modules(modules)
-        @extras.each_with_index do |sid, index|
-          sid.load_fields(modules.required("BL-SID#{index + 2}"))
-          sid.restored!
-        end
         @stereo.synthesize!
         @started = true
       end
@@ -66,23 +54,13 @@ module Badline
       # Returns the cycles advanced.
       def frame(budget, &)
         cycles = [budget, @frame_cycles].min
-        if @multi
-          cycles.times { step }
-        else
-          cycles.times { @computer.cycle! }
-        end
+        cycles.times { @computer.cycle! }
         @stereo.mix(&)
         cycles
       end
 
       private
 
-      # The extra SIDs clock ahead of the CPU, as the machine's own does.
-      def step
-        @extras.each(&:cycle!) if @multi
-        @computer.cycle!
-      end
-
       def inject
         @computer.ram.write(@tune.load_address, @tune.data)
         @tune.boot_memory(subtune: @subtune).each { |address, bytes| @computer.ram.write(address, bytes) }

data/lib/badline/c128/banks.rb

@@ -21,9 +21,7 @@ module Badline
       # The CR value the KERNAL's table holds for the bank.
       def configuration(bank) = @kernal_rom.peek(CONFIGURATIONS + (bank & 0x0f))
 
-      def write(bank, addr, bytes)
-        bytes.each_with_index { |byte, i| @ram.poke(physical(bank, (addr + i) & 0xffff), byte) }
-      end
+      def poke(bank, addr, value) = @ram.poke(physical(bank, addr), value)
 
       private
 

data/lib/badline/c128/bus.rb

@@ -228,7 +228,25 @@ module Badline
         system_rom_peek(addr)
       end
 
-      def write_bank(bank, addr, bytes) = @banks.write(bank, addr, bytes)
+      # Stores +bytes+ from +addr+ on in the C128 KERNAL's bank number
+      # +bank+, as its INDSTA does, with CR set to the bank's CR value for
+      # each byte and put back after it: into the chips where that value
+      # maps I/O, the MMU's at $D500 among them, into nothing at $FF00-$FF04,
+      # where the configuration registers take the byte, and otherwise into
+      # the RAM the bank reaches (Banks).
+      def write_bank(bank, addr, bytes)
+        cr = @mmu.cr
+        io = @banks.configuration(bank).nobits?(0x01)
+        bytes.each_with_index do |byte, i|
+          address = (addr + i) & 0xffff
+          if io && (address & 0xf000) == 0xd000
+            bank_io_poke(address, byte)
+          elsif !address.between?(0xff00, 0xff04)
+            @banks.poke(bank, address, byte)
+          end
+        end
+        @mmu.poke_configuration(0xff00, cr) unless @mmu.cr == cr
+      end
 
       def install_debug_register(&)
         @debug_page = DebugPage.new(@open_bus, &)

data/lib/badline/c128/mmu_pages.rb

@@ -66,6 +66,13 @@ module Badline
           @bank_io_reads[addr >> 8].peek(addr)
         end
 
+        # Writes the chip at +addr+, in $D000-$DFFF, as C128 mode's I/O maps it.
+        def bank_io_poke(addr, value)
+          lay_out_io(@bank_io_reads, @bank_io_writes)
+          @bank_io_writes[0xd5] = @mmu
+          @bank_io_writes[addr >> 8].poke(addr, value)
+        end
+
         # The bank CR picks, with common RAM in bank 0, then the pages page 0
         # and page 1 move to.
         def map_ram_pages