mos6502-workbench 1.0.0

data/examples/labels_and_data.asm

@@ -0,0 +1,28 @@
+; Demonstrates labels, .byte/.word data, low-byte and high-byte extraction,
+; and cross-segment absolute addressing.
+
+.org $9000
+
+message:
+  .byte 'O', 'K', 0
+
+message_ptr:
+  .word message
+
+.org $8000
+
+start:
+  lda #<message
+  sta $0200
+
+  lda #>message
+  sta $0201
+
+  lda message
+  sta $0202
+
+  lda message + 1
+  sta $0203
+
+done:
+  jmp done

data/examples/primes.asm

@@ -0,0 +1,61 @@
+.org $0000
+current:
+  .byte 0
+divisor:
+  .byte 0
+prime_count:
+  .byte 0
+prime_ptr:
+  .word 0
+
+.org $8000
+start:
+  lda #$00
+  sta prime_count
+  lda #<$0300
+  sta prime_ptr
+  lda #>$0300
+  sta prime_ptr + 1
+  lda #$02
+  sta current
+
+candidate_loop:
+  lda #$02
+  sta divisor
+
+divisor_loop:
+  lda divisor
+  cmp current
+  beq store_prime
+
+  lda current
+remainder_loop:
+  sec
+  sbc divisor
+  beq next_candidate
+  bcc try_next_divisor
+  jmp remainder_loop
+
+try_next_divisor:
+  inc divisor
+  jmp divisor_loop
+
+store_prime:
+  ldy #$00
+  lda current
+  sta (prime_ptr), y
+  inc prime_ptr
+  bne pointer_ready
+  inc prime_ptr + 1
+pointer_ready:
+  inc prime_count
+
+next_candidate:
+  inc current
+  lda current
+  bne candidate_loop
+
+done:
+  lda prime_count
+  sta $02ff
+  jmp done

data/examples/simple_machine.rb

@@ -0,0 +1,25 @@
+# frozen_string_literal: true
+
+$LOAD_PATH.unshift(File.expand_path('../lib', __dir__))
+require 'mos6502/workbench'
+
+machine = MOS6502::Machine.new
+machine.map_ram(start_address: 0x0000, end_address: 0x7fff)
+
+rom = Array.new(0x8000, 0xea)
+rom[0x0000] = 0xa9
+rom[0x0001] = 0x42
+rom[0x0002] = 0x8d
+rom[0x0003] = 0x00
+rom[0x0004] = 0x20
+rom[0x0005] = 0x4c
+rom[0x0006] = 0x05
+rom[0x0007] = 0x80
+rom[0x7ffc] = 0x00
+rom[0x7ffd] = 0x80
+
+machine.map_rom(rom, start_address: 0x8000)
+machine.power_on
+machine.run(max_instructions: 3)
+
+puts format('PC=%04X cycles=%d mem[2000]=%02X', machine.cpu.program_counter, machine.cpu.cycle_count, machine.cpu.read_byte(0x2000))

data/examples/traced_machine.rb

@@ -0,0 +1,55 @@
+# frozen_string_literal: true
+
+$LOAD_PATH.unshift(File.expand_path('../lib', __dir__))
+require 'mos6502/workbench'
+
+#
+# A tiny memory-mapped register used to demonstrate custom devices.
+class ConsoleRegister < MOS6502::Device
+  attr_reader :value
+
+  def initialize
+    super
+    @value = 0
+  end
+
+  def read_byte(_address)
+    value
+  end
+
+  def write_byte(_address, byte)
+    @value = byte & 0xff
+  end
+end
+
+machine = MOS6502::Machine.new(bus: MOS6502::Bus.new)
+machine.map_ram(start_address: 0x0000, end_address: 0x7eff)
+machine.map_device(ConsoleRegister.new, start_address: 0x7f00, end_address: 0x7f00)
+
+rom = Array.new(0x8100, 0xea)
+program = [
+  0xa9, 'H'.ord,
+  0x8d, 0x00, 0x7f,
+  0xa9, 'I'.ord,
+  0x8d, 0x00, 0x7f,
+  0x4c, 0x0a, 0x80
+]
+
+program.each_with_index { |byte, offset| rom[offset] = byte }
+rom[0x7ffc] = 0x00
+rom[0x7ffd] = 0x80
+
+machine.map_rom(rom, start_address: 0x8000)
+
+machine.cpu.subscribe_steps do |event|
+  puts format('STEP %04X  %-3s %-10s cycles=%d A=%02X', event[:address], event[:mnemonic].to_s.upcase, event[:mode], event[:cycles], event[:snapshot][:accumulator])
+end
+
+machine.bus.subscribe_accesses do |event|
+  next unless event[:address] == 0x7f00 && event[:operation] == :write
+
+  puts format("IO write -> '%s'", event[:value].chr)
+end
+
+machine.power_on
+machine.run(max_instructions: 5)