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

Add relative addressing type for branches

Browse source
This commit is contained in:
John Lorentzson 2025-05-08 19:10:15 +02:00
parent 37241a1fc3
commit 76f1fa0658
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -44,12 +44,21 @@
(:zero-page zero-page-mixin) (:zero-page zero-page-mixin)
(:zero-page-x zero-page-x-mixin) (:zero-page-x zero-page-x-mixin)
(:zero-page-y zero-page-y-mixin) (:zero-page-y zero-page-y-mixin)
(:relative relative-mixin)
(:absolute absolute-mixin) (:absolute absolute-mixin)
(:absolute-x absolute-x-mixin) (:absolute-x absolute-x-mixin)
(:absolute-y absolute-y-mixin) (:absolute-y absolute-y-mixin)
(:indirect-x indirect-x-mixin) (:indirect-x indirect-x-mixin)
(:indirect-y indirect-y-mixin)))))) (:indirect-y indirect-y-mixin))))))
(defgeneric instruction-length (object)
(:method (immediate-mixin) 1)
(:method (implied-mixin) 1)
(:method (accumulator-mixin) 1)
(:method (zero-page-mixin) 2)
(:method (relative-mixin) 2)
(:method (absolute-mixin) 3))
(defclass branching-mixin () (defclass branching-mixin ()
((%branch-next :accessor branch-next :initarg :branch-next))) ((%branch-next :accessor branch-next :initarg :branch-next)))
@ -77,7 +86,7 @@
(define-instruction "PLA" nil (:implied 0)) (define-instruction "PLA" nil (:implied 0))
(define-instruction "TAX" nil (:implied 0)) (define-instruction "TAX" nil (:implied 0))
(define-instruction "DEX" nil (:implied 0)) (define-instruction "DEX" nil (:implied 0))
(define-instruction "BNE" t (:zero-page 0)) (define-instruction "BNE" t (:relative 0))
(define-instruction "LDA" nil (define-instruction "LDA" nil
(:absolute 0) (:absolute 0)
(:zero-page 0) (:zero-page 0)