Add check so zero-page instructions can't use too big operands
This commit is contained in:
parent
09d7701c15
commit
fd5a8fac4f
1 changed files with 5 additions and 0 deletions
|
@ -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) ())
|
||||
|
|
Loading…
Add table
Reference in a new issue