faea86bc8c
Status of the project as it was on 2025-03-07. The commit date is based on the modification time of the files.
9 lines
184 B
Common Lisp
9 lines
184 B
Common Lisp
(in-package :chipgr8)
|
|
|
|
(defun run ()
|
|
(initialize-emulator)
|
|
(graphics-mainloop))
|
|
|
|
(defun loadprog (prog)
|
|
(dotimes (i (length prog))
|
|
(setf (aref *memory* (+ 512 i)) (nth prog i))))
|