Add check so zero-page instructions can't use too big operands

This commit is contained in:
John Lorentzson 2025-05-02 22:38:35 +02:00
parent 09d7701c15
commit fd5a8fac4f

View file

@ -13,6 +13,11 @@
(defclass immediate-mixin () ())
(defclass implied-mixin () ())
(defclass zero-page-mixin () ())
(defmethod shared-initialize :after ((instance zero-page-mixin) slot-names &rest initargs &key &allow-other-keys)
(declare (ignore slot-names initargs))
(assert (< (operand instance) #x100)))
(defclass zero-page-x-mixin (zero-page-mixin) ())
(defclass absolute-mixin () ())
(defclass absolute-x-mixin (absolute-mixin) ())