74 lines
2.0 KiB
Lua
Executable File
74 lines
2.0 KiB
Lua
Executable File
#!/usr/bin/env lua5.3
|
|
|
|
require 'std.strict'
|
|
require 'lib' ("..")
|
|
local _6502 = require '6502'
|
|
|
|
local cpu = _6502:new()
|
|
|
|
local mmu = { ram = {} }
|
|
local mmu_metatable = { __index = function(t, key)
|
|
return t.ram[key] or 0
|
|
end,
|
|
__newindex = function(t, k, v)
|
|
if ((k == 0xBFF0 or
|
|
k == 0xF001) and v ~= nil) then
|
|
io.write(string.format("%c", v))
|
|
end
|
|
if (k == 0x200 and v ~= nil) then
|
|
if (v == 240) then
|
|
print("All tests successful!")
|
|
os.exit(0)
|
|
end
|
|
print(string.format("Start test %d", v))
|
|
end
|
|
t.ram[k] = v
|
|
end,
|
|
}
|
|
|
|
setmetatable(mmu, mmu_metatable)
|
|
cpu.ram = mmu
|
|
|
|
cpu:init()
|
|
cpu:rst()
|
|
|
|
local f = assert(io.open("6502_functional_test_verbose.bin", "rb") or
|
|
io.open("tests/6502_functional_test_verbose.bin", "rb"))
|
|
|
|
local data = f:read("*a")
|
|
assert(#data == 65536)
|
|
|
|
local i = 0
|
|
while (i < #data) do
|
|
cpu:writemem(i, data:byte(i+1))
|
|
i = i + 1
|
|
end
|
|
|
|
cpu.pc = 0x400
|
|
while (true) do
|
|
if (cpu.pc == 0x453a) then
|
|
print("Somehow wound up at input routine; exiting")
|
|
os.exit(1)
|
|
end
|
|
|
|
local o = cpu:readmem(cpu.pc)
|
|
-- print(string.format("Executing opcode %s [0x%X]", cpu.opname[cpu.opcodes[o][1]], o))
|
|
local cc = cpu:step()
|
|
--[[ print(string.format("%d OP $%.2X #%d 0x%.2X X 0x%.2X Y 0x%.2X A 0x%.2X SP 0x%.2X S 0x%.2X %s %s %s %s %s %s %s %s [$11=]0x%.2X",
|
|
cpu.cycles, cpu:readmem(cpu.pc), cpu:readmem(0x200),
|
|
cpu.pc, cpu.X, cpu.Y, cpu.A, cpu.sp, cpu.F,
|
|
((cpu.F & cpu.flags.N)~=0) and 'N' or 'n',
|
|
((cpu.F & cpu.flags.V)~=0) and 'V' or 'v',
|
|
((cpu.F & cpu.flags.UNK)~=0) and 'U' or '-',
|
|
((cpu.F & cpu.flags.B)~=0) and 'B' or 'b',
|
|
((cpu.F & cpu.flags.D)~=0) and 'D' or 'd',
|
|
((cpu.F & cpu.flags.I)~=0) and 'I' or 'i',
|
|
((cpu.F & cpu.flags.Z)~=0) and 'Z' or 'z',
|
|
((cpu.F & cpu.flags.C)~=0) and 'C' or 'c',
|
|
cpu:readmem(0x11)
|
|
))
|
|
--]]
|
|
end
|
|
|
|
|