Stacken/c64-livecoding
6
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Nicer instruction printing

Browse source
This commit is contained in:
John Lorentzson 2025-05-08 19:32:43 +02:00
parent 41bd413b4c
commit 8dd78265b4
1 changed files with 22 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
wip-duuqnd/user-side-compiler/instruction.lisp
View file

@ -9,11 +9,28 @@
(%source :accessor source :initarg :source :initform nil))) (%source :accessor source :initarg :source :initform nil)))
(defmethod print-object ((object instruction) stream) (defmethod print-object ((object instruction) stream)
(format stream "#<~A~A>" (mnemonic object) (cond ((some (lambda (type)
(if (or (typep object 'implied-mixin) (typep object type))
(typep object 'accumulator-mixin)) '(immediate-mixin accumulator-mixin zero-page-mixin absolute-mixin))
"" (format stream "#<~A ~A~A~A>"
(format nil " ~S" (operand object))))) (mnemonic object)
(typecase object
(immediate-mixin "#")
((member indirect-y-mixin indirect-x-mixin) "(")
(t ""))
(typecase object
(accumulator-mixin "A")
(t (operand object)))
(typecase object
(indirect-x-mixin ", X)")
(indirect-y-mixin "),Y")
(t ""))))
(t
(format stream "#<~A~A>" (mnemonic object)
(if (or (typep object 'implied-mixin)
(typep object 'accumulator-mixin))
""
(format nil " ~S" (operand object)))))))
(defclass complete-mixin () (defclass complete-mixin ()
((%opcode :allocation :class :reader opcode :initarg :opcode))) ((%opcode :allocation :class :reader opcode :initarg :opcode)))