blob: 11c4f9ad0f556e36503e95fa73063a4bfe6c6ea6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
(local json (require :json))
(local inspect (require :inspect))
(local l6502 (require :l6502-lua))
(fn slurp [path]
(let [f (io.open path)]
(f:read "*all")))
(local emu (l6502.new))
(print (emu:set-pc 42))
(print (emu:set-reg l6502.reg.SP 10))
(print (emu:set-reg l6502.reg.A 255))
(emu:emulate)
(print (inspect (emu:summary)))
;; (local testcases (json.decode (slurp "testcases/6502/v1/00.json")))
;; (each [_ test (ipairs testcases)]
;; (l6502.run test.name))
;; (print (inspect ))
|
