diff options
Diffstat (limited to '6502.lisp')
| -rw-r--r-- | 6502.lisp | 51 |
1 files changed, 0 insertions, 51 deletions
@@ -202,17 +202,6 @@ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (NOP 234 (implied)) (BRK 0 (implied)))) - - -(defun extract-keys (list) - "Extract the keys of associative lists." - (let ((ret nil)) - (progn - (dolist (i list) - (setf ret - (cons (car i) ret))) - (reverse ret)))) - ;; Generated list of opcodes. (setf *opcodes* @@ -225,46 +214,6 @@ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (caddr (assoc instruction *instructions*))) t) (t nil))) -(defun hexd? (string) - "Is a string a hexd number?" - (let ((stack ())) - (dotimes (i (length string)) - (push - (or (and (char-not-lessp - (char string i) #\0) - (char-not-greaterp - (char string i) #\9)) - (and (char-not-lessp - (char string i) #\A) - (char-not-greaterp - (char string i) #\F))) - stack)) - (push 'and stack) - (eval stack))) - -(defun hex2dec (string) - "Convert an arbitrarily sized hexd number (as string) to a positive decimal." - (flet ((hex (c) - (cond - ((and (char-not-lessp c #\0) - (char-not-greaterp c #\9)) - (- (char-code c) - (char-code #\0))) - ((and (char-not-lessp c #\A) - (char-not-greaterp c #\F)) - (+ (- (char-code (char-downcase c)) - (char-code #\a)) - 10))))) - (let ((ret 0)) - (do ((i 0 (incf i)) - (j (- (length string) 1) (decf j))) - ((minusp j) ()) - (setf ret - (+ ret - (* (expt 16 j) - (hex (char string i)))))) - ret))) - ;; A list with with the respective rules of some ;; addressing mode syntax. (setf |