(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 ))